%Header Record

Format:TXT

Communication SW:0

Data Type:PG

Capacity:1123

File Name:KS PAINT

Group Name:

Password:

Option1:NL

Option2:

Option3:

Option4:

%Data Record

\Lbl 0

\ClrText

"WILLKOMMEN ZU PAINT"

"MIT [MENU] KOMMEN SIEIMMER WIEDER INS"

"HAUPTMENUE"

" "

\Orange "[EXE]"

\Do

\LpWhile \Getkey\<>31

\ClrText

"\AxesOff":\AxesOff

"\GridOff":\GridOff

\ClrText

"SCHIRM LEEREN?"

\Orange "[F6] VIEW"

\Orange "[J]"

\Orange "[N]"

\(-)1\->A

\Do:\Getkey=29\=>\Abs (A)-1\->A:A=0\=>\PxlChg 63,127:A=\(-)1\=>\Locate 21,7," ":\LpWhile \Getkey\<>64\ And \Getkey\<>45:\Getkey=45\=>\ClrGraph

\ClrText

31\->A

63\->B

1\->C

\Lbl 1

\Do

\Getkey\->\r

\LpWhile \r=0

\r=37\=>A+1\->A

A>63\=>1\->A

\r=28\=>A-1\->A

A<1\=>63\->A

\r=27\=>B+1\->B

B>127\=>1\->B

\r=38\=>B-1\->B

B<1\=>127\->B

C=4\=>\PxlChg A,B

C=1\=>\PxlOn A,B

C=2\=>\Orange \PxlOn A,B

C=3\=>\Green \PxlOn A,B

C=4\ Or C=5\=>\PxlChg A,B

C=5\=>\PxlOff A,B

\r\<>48\=>\Goto1

\Lbl 2

\ClrText

"MENUE:"

\Orange "[F1] \-> FARBE"

\Orange "[F2] \-> RADIEREN"

\Orange "[F3] \-> LINIE"

\Orange "[F4] \-> KREIS"

\Orange "[F5] \-> SPEICHERN"

\Orange "[F6] \-> ENDE"

\Do

\Getkey\->\r

\r=47\=>\Break

\LpWhile \Frac (\r/10)*10\<>9

\r=47\=>\Goto1

\r=69\=>5\->C

\r=69\=>\Goto1

\If \r=79:\Then \ClrText

\Orange "[F1] \-> BLAU"

\Orange "[F2] \-> \Orange ":\Orange "[F3] \-> GRUEN":\Orange "[F4] \-> KLAR":\Do:\Getkey\->\r:\LpWhile \Frac (\r/10)*10\<>9\ Or \r/10<4:8-\Int (\r/10)\->C:\Goto1:\IfEnd

\If \r=59:\Then "KOORDINATEN":"P1 X"?\->U:"P1 Y"?\->V:"P2 X"?\->W:"P2 Y"?\->X:C=1\=>\F-Line U,V,W,X:C=2\=>\Orange \F-Line U,V,W,X:C=3\=>\Green \F-Line U,V,W,X:\Goto1:\IfEnd

\If \r=49:\Then "MITTELPUNKT":"X"?\->U:"Y"?\->V:"\r"?\->W:C=1\=>\Circle U,V,W:C=2\=>\Orange \Circle U,V,W:C=3\=>\Green \Circle U,V,W:\Goto1:\IfEnd

\If \r=39:\Then \ClrText:"SPEICHERN":\For 2\->U \To 7:\Orange "[F ] \-> ALS BILD":\Locate 3,U,U-1:\Locate 16,U,U-1:\Next :\Do:(\Frac (\Getkey/10))*10\->\r:\Int (\Getkey/10)\->\theta:\LpWhile \r\<>9:\theta\Disp\theta=7\=>\StoPict 1:\theta=6\=>\StoPict 2:\theta=5\=>\StoPict 3:\theta=4\=>\StoPict 4:\theta=3\=>\StoPict 5:\theta=2\=>\StoPict 6:\Goto1:\IfEnd

%End