Zulu Wars Ulundi: ZULU WAR.B

  1 REM DISKED & PROTECTED BY SIMSOFT'95g/f`  HI!!! COPY ! NEXT  GO SUB V1 OUT `! COPY ZT COPY ]6 GO SUB LN CODE  OPEN # RETURN !k/*=/w#w! LET <>"CHR$ / POKE `!SQR  MERGE  STEP  VERIFY ] STEP SQR  CLEAR !:/ LLIST ▞ STEP  VERIFY ] STEP  POKE ` STEP  NEXT  RETURN ![[u GO SUB VAL !( COPY >2wCODE #wNOT SGN AT /NOT =
  0 RANDOMIZE USR 23985 POKE /NOT =USR 23998gmCnSCREEN$ SSSS:HELLO ?! LINE 1 LINE (_(_ COPY  COPY  STEP |;; READ 33PI GO SUB R RESTORE  CLEAR  LLIST * CLEAR ~=(^#V RUN @## CLEAR ~< ~ CLEAR w# CLEAR ~< ~ CLEAR w#~ CLEAR w CLEAR ~ RETURN 8 CLEAR 6 CLEAR ~ RETURN 8 CLEAR 6 CLEAR ▚ RETURN 8 CLEAR 6 CLEAR ~PI  CLEAR 6# CLEAR ~▜▜▜ AND @WO CLEAR  THEN F   OR  CLEAR F OR  OR  OR  CLEAR  THEN F(  MERGE  OR CSTR$  RANDOMIZE  MOVE STR$  CONTINUE z VERIFY W{ AND  _STR$  PAPER z AND WSTR$  FORMAT QSTR$ <=>X CLEAR ▚W CLEAR FK CLEAR  THEN  OVER  OR STR$ xLEN   PLOT   CLEAR 6 COPY  CLEAR 6 COPY <> CLEAR  THEN V( INK y INK ( CLEAR  THEN [G]~#PI #~ INK O INK # CLEAR  THEN  VERIFY  CLEAR  THEN ^ NOT ▙""C COPY K COPY >cceb=>ccc©c>c>~ccc~`cw©kccccc6?`|``?B?`? COPY  LPRINT   LPRINT  LPRINT   LPRINT  LPRINT   LPRINT  LPRINT   LPRINT  LPRINT   LPRINT  LPRINT   LPRINT  LPRINT   LPRINT A~ccc~` COPY ▗ COPY  LIST  COPY ~c~cc~?`?>ccc©c COPY ~c~cc~~c~cc~~c~cc~~c~cc~>c>>c>>c COPY  COPY kk>>kk COPY ~c~cc~cc©cccc>c?`?`??`|``? COPY  COPY ~~~`~cc~>ccc©c COPY ?`|``?cgo{sc?`|``?~ccc~`>c>cw©kcc~ccc~` COPY ~c~cc~ COPY ~~ccc~`?`|``? COPY ~ccc~`>c~c~cc~>ccc©ccc©ccc>c>?`|``? COPY >c> COPY >c>cgo{sc~ COPY c66c>c>~c~cc~`~ccc~~6© COPY mkgo{s COPY mkgo{s~?`|``? COPY =>c>~ccc~`>ccc©c COPY cc©ccc COPY >ccc©c?`? COPY mc? COPY >ccc©c COPY cgo{sccc©ccc`~ccc~ COPY ]cw©kcc>ccc©c COPY  COPY ?`?`? COPY ]?`|``?! COPY ?`? COPY ~ccc~`flxlfc?`? COPY ]?`?c66c COPY  COPY ?`|``?cgo{sc COPY 56©"~>c> COPY >c COPY cw©kcc>ccc©c COPY 5cgo{sc"cc©ccc6© COPY ccc?> COPY ~c~cc~~ccc~` COPY 5?`?">c>>ccc©c COPY c COPY c{mmm{?`cw©kcc COPY %~flxlfc"?`?! COPY ccc?> COPY 0?`|``?cgo{sc COPY %?`|``?>c>"~~c~cc~ COPY ?`? COPY cc©ccc?`|``? COPY >ccc©c?`c~c~cc~"cgo{sc>c> COPY >ccc©c COPY ~c~cc~?`|``?mkgo{s COPY 00000000>ccc©c2kk>>kk COPY cw©kcc COPY cw©kcc~ccc~` COPY flxlfcc8~?ccc?s66$,6© COPY cgo{sc COPY ?`|``?>ccc©c>c COPY 1>c>?`|``?8~?`>~?`"fk{{kf COPY  COPY ?`?cccc?> COPY VAL PEEK VAL VAL [P]~ccc~`cc©ccc>c>`©~c~cc~~~00©`~c>1 COPY  COPY ~>c>c COPY IN 111?VAL cc©ccccgo{sc>>?`|``?cw©kcc6©>c>cc>>c COPY  COPY ?`|``?cw©kccccc?> COPY VAL PEEK VAL 0cgo{sccc©ccc©0~ccc~`?`>~>c>>c>`©ccc?>B?`? COPY IN 1?11IN ?`|``??`©`~c>?`?>c>cc©ccc>>cB>c> COPY LEN 1LEN LEN cc©ccc~ccc~`>>cgo{sc?`|```?`|``?>ckkc>ccc?>B~c~cc~ COPY [L]?>c>>ccc©c>`~cc>?ccc?s~cf;8~?`?L COPY [I]flxlfc6©>`~cc>000066$flxlfc>c>cc>>c>INT ~c~cc~%O*FFFF#MFCCMFCCMFDMFDDMF#MF+MF  PRINT CCMFCCMFDMFDDMF#MF+MF  PRINT e not present.Please try again. COPY  COPY ! DIM ~ RETURN  +~ RETURN  CLEAR (#~ GO SUB FN +F+~+ DRAW | RETURN a  LLIST } RETURN #  BRIGHT <> CLEAR <<<f TO  VERIFY  PLOT   VERIFY  VERIFY  TO fff> LPRINT `|ff| VERIFY  CLEAR  RETURN  CLEAR  LPRINT   CLEAR  LPRINT Ffvnfb|ff|lf CLEAR 0~ CLEAR ffff$<fnvf<8<<f<`~<ff<,L~~`|f<<`|ff<~<f<ff<<ff><0 AND  VERIFY  VERIFY  VERIFY  VERIFY l~~<f`ff:<f VERIFY  CLEAR  COPY <ff~ff|`|ff|f CLEAR ©8lddd RETURN ▘~`|``~| VERIFY  VERIFY  VERIFY  VERIFY |~b```` AND l88l AND bfnvfFbfnvfFfhphdb>ffff AND ▘ AND  INPUT  VERIFY  AND  AND ff~fff<ffff<~f CLEAR >ff>6f|ff|``<f``f<~ CLEAR fff><[C] VERIFY 88 VERIFY [C]|f|ff|``|ff|CHR$ CHR$  PAUSE  PAPER  PAPER  PAUSE |Ff| VERIFY  VERIFY  VERIFY  VERIFY  RETURN x<x VERIFY  VERIFY  VERIFY  VERIFY  RETURN 8| RETURN 8888>`<f< TO  VERIFY  PLOT   VERIFY  TO 8<l< xll8llll~8ll<88lx`8| VERIFY  VERIFY  VERIFY ||d```f<<fdl|lLdl|lLdhphd<lll TO ▘ AND  INPUT  VERIFY  AND ll|ll8lll8|llll<ll<Lxddx`<```< DRAW 0000ll<8 VERIFY T|T VERIFY xlxlx``xdx AND  AND  PLOT   VERIFY  PLOT  |f CLEAR <pp<2<` CLEAR ~lll<©!""!###$##$"##"$##$"#"""#"!!$$!#$$$$#""$!##""#!!$!#!"$$!##!$!"$!"""!#$"##$!$$##"""!#"$#$$"#$$!$"###!$$#!"!$!"$!#$!!#$#"!!!$!#!!"#$#"$#"!"#!"$!$#"#"!%""$"!$$$##!!$"!#!!$$"$#"!""#"####!$"!#!"$!"!#"!!#"!!$!###!#$"$!##$$$$"#!""!"'($#$$#!$" CLEAR $!$"!"$#"!$$((##"#$!!!"#!$$"$!$"!"!#'"#!"!$#$!$"$"$#"$"$%$"!!"!"!$"(($'$$#!"$$!$"####$#"#!"#(("$"$""#$!"$"$$!!$##!#!$#"##$$$"# CLEAR ""!#!"$!!#$#$"$("$!"!"!!#$"!"""!$!!"!!"!!$$#!!!#!""#$!#"##$!!!$$!!""$"$MTN!$$#$#"$$##$$#"$"$!!"$#"#!$#"!"!$!!#!#"!"#"#"YZ["/]""!""$$"$#!!!$!$"$$$"$"$!SUVWNTN!!"$$$"$!""$!$##"#$"$#"!"!##!"##!###"$!$"`#"#$&^##!$!!!#$!"/#$#!!#!#!#"##"RUVVXP"#$"$#!"!"###!!!"$##$"$#"$#!$!"#$#$"$!"#$a$#c$!_%!###!!##$$1$!""$""!$#"#"!SVUWP!##"!#!#"""#"$$"!"&!!#$!"$#"!$#$"""###$$'#b"$de$"$"!"$##!"!"""#0$$#""$$!$##"RVUO#"$"!#!#$!!"#fg!$$""#!#$#$!$!""#"!##!"!##$#$##$$!"$!$$#$$-!"$##2"!"!"$$###"!"RP##"#!""!"!#$""hi"#!!"##fg$$$"&""#!#"!###!$#"!!#!$" #!"#!"!1$."!$$#!$"#$##"#"$#!!!$'""!"!#!!#!$$""# CLEAR !hi#!!"!$#"#!#"!$$#"!%!"#"("r!!"#'$$)*1$$""#$"##$"$"!"!!#"$""$!#"#$#"####""!!$#"!"!##$!!$"!$!"$$$!#!!#!$$!$$p!"#$$#+,+,*0$"!#$$#!!#!""#!$$$"!###$#!!#!#!$#!#!"$!#"#"#!!"$!$""!"$!#!"jklmnj$"l###""!+,*)*2"$3456#$$"!!#""(!#"!$##!#"$"#"$$$$##$!$$$#""#!!#!!!#"!"$" CLEAR !$##$#!$"!!$$)++,)#(#7=>8$$#"#"$#"#$$"$#!!!$!!#$###"#"!"!!!!#"$$$!"#$"$!"!#!$#!$#$!!!#$!$#&$$+,)*+"($9=>:"$$#!#!#!#!""$"#$"!!$$!#$"""$"#!"!#!$"!""""!#$$"#!#!!#"#"$#""""##$!#*+,)**(!;<=>$"#"##$"$##""##"%$"$$$"#"!!fg!"!!$!""$$#$!#$#"#!$"'!!#$$$$"##$"#!$""+,+,+#"#?CDE#!#!$$""!#!!##$$#"$#$"$"#!$hi#$#!$#"$"!$"!$#"#"!#$"$"$"$$!$$("$"!#!"#!+,"%!$$$##$$$$!""$"$""#$#!!$$!#$$#"!#!!!!$!#"#!"#$!!!#!$!#""#$$"#"!"$#"#""#"##$$'!$#"$$!!!!#!$"$#$!""$#!!"$"#""#$!"!$##$""#$$fg"#$$$"!$$!$#!#"!!"#"!#!!!!#$#!$$"$$""#$##!$$$#$"$$!"!$!"!!##"!!#"#"####!$!##"#hi"!#$"!""$##$!$$""$!!!##$$!#!!#""$!#$$"!#$"!!!#((!"$##"!"$!!####!$#"##"!$!$!$!"##"!"##!#""!#"#!$""$"$""!$!$$!#$!$$"!###$##$$$#$"##! CLEAR $"""!"#""#$""#"""###$$"$!$#!$###!$!#$"$$$!"%!!!#$"$$"##$"!#!$$##!!!""$"##$!$"#!!"#!"!!"$####"#"""!$"!!"!"!$"!"#!#!!""$#!!""$#!"#$""'!#"!#""!"#$!""!!$#$$#$##!!"$#$!###!$""###"!"""!$"!#$$$"!##$#"#!""(('""#$##$"!$""!"#"$!"$"$!#!!#!" CLEAR $$$$####!#$"$#"&!!$$!##$!#(!#!""##!!!$!$$$!"((((!!"#""!#$#$#""!#!$$"#!"!"$!"#"!#!$!"!!$""#"#$!"$#"!###""#&!%#$"#$"""$!!$$"!$!#!##"$##!$##$##$#!$#"#$!#$($!#$"""$"#$/$"!#"!$""$#$$#!!#!"'"!"!$!!!!$"!!"#!!!#$"#$$!"#$!"$&$$!"$$$"!!"#$$$!"$!!!""#$!!1###"##$"""##"$$#"!#$"%"'"&(#$"#"!$!$$#"$"!!%"!$###$###""#!$"$"!$#$"""#"!!$""#"#$!$!$#&"""###!!$"$$"$!#!##((($!""#$#"""$"""$$$"!$#$!!""""$"##"$$""#!!#""!!!#"$#""!!$"##"!$$$#$!$"#""!%"$&!%((!#"#!!"#$""#"!$"#""!$"$$$!($$$"!!!$!!##!#""!!"$#!###!$!-!$".$#!"$##! CLEAR "$""!$$#!""$$$"$$!#!""!"!!$"##$#"#"# CLEAR "!#$#$"!#"#"$!0!!$!!"2#!"2##""#"#""!"###$"$!"$!#$!#"!!"$#!"#"$!"$$"""$#!!$$!!##"###!$!!"!!####1"$"!"!$#""!"$!"$"#!!#$#!"#$#$$#!"!!!#!#"$$#!!!#!$"""!"!!#$"#!$#""$#!$!#!$$""!#$#$#!%!!$$!#""!$$$!##!$$$"$##$$"$"!#"#$#""#!"##  CLEAR $##"!'#$!"$###%$"."((##'$!#"!#!""!(!$"""!##$$"#!"##"!!#!!$"##  3456  CLEAR ""#""""#!$!#"#!"$2!(((""##"0$$$#"!#$#"$"!"!$!"$#"!$!"##$$$$!#  7=>8  CLEAR $!!!#!#!""$$!/!#!##$#!$#!##1#"$$!$"$!!"!#!!#!""!$!#"$#""#$#$#  9=>:  CLEAR 3456  #!$!!!!$"""#"1##!$##-$#"!!!$!#!"""#$$!$!!"$!!!""$"!$!"$"#!#$$  ;<=>  CLEAR 7>>8  $$#!!#!""#$"!"$!!"##2$$&!"!!##"#$"#"$!$""#""(($$$#$#!#$!#$!"#  ?@@A  CLEAR 9>>:  "!" CLEAR #$!$""!!"'!#"##!"/!"$"$!$#!$#"#$$"$#!$#$""'!#$#"!$##"#  CLEAR ;<=>  $$"!!$!$#!###!"!"$##!"#"2"$!#$"!$!!""#!`"!"!/]# CLEAR $#!!#!#!"#  CLEAR BCDE  """!#$$"$""#$$"""$"$!!#"""#"""##"#"!!#&b"##$%^"#$#$!#"!####"!  CLEAR !""""!""((#"""!"!$!$#"""$""""!#$!!$$"#" "#c#$_$#""#"""#!""$!#  CLEAR #$!#$$!!(!!#$#$#""#"!!!"##"#$$"!#"""##YZ[!de$!"##"!!!#$!"!#$""!"!#""!"#!"""!"!!""##"#"!#!#!"!$"##!!!$!"!#$!!!"$!#!#"#""$!$"$!!$#$"#!$$#$#!$$! CLEAR "$#!#$""#!###"#$"#!#!"!"$$!##%"""$$!$!##"$##$###""!$!!$!$$!"!!""$!$$$#!""!$#!!#"#"$$!"$##"$"!#!#!!#!#$"#$!!!###"$!#!$($$"$###!!&"$$!##"#"""$$$##$$"!"#$""# CLEAR $$"$#"!""##!"#!"""!"!"!!$'#$"$$!"""!#!"!"##!!$#"#!$$"!4544455554445544455455454555455454554455554545445445454455554554554545545554454455445555445445 CLEAR 4445544545444454 CLEAR 5 CLEAR 445 CLEAR 44455554554545 CLEAR 454 CLEAR 5 CLEAR 444545554445545454455444554454445445445445454445444454510555445554 CLEAR 54455554440054445 CLEAR 454545445554144545545445 CLEAR 4 CLEAR 545455400414455454454454454544550045545454545445445454445545445 CLEAR 45 CLEAR 44454444544455055454 CLEAR 5444544454554454554445454454555454454445554454111545555445554454454545 CLEAR 4 CLEAR 554454 CLEAR 54451114125 CLEAR 445545545454455455551111554544554444555544554544545 CLEAR 444544542544442545544545542544554444545451145545554454 CLEAR 544445544544454555545455441442441455455444451544454454554551154445454445 CLEAR 444454554 CLEAR 544554444504144114544445454454454s554454544544114455445 CLEAR 4411544445 CLEAR 4454454445554 CLEAR 5554554544554s45545145 CLEAR 454 CLEAR 11444455445455442254454541144554 CLEAR 545454444544555504445555142554545454455544545555145554555445545 CLEAR 452255454554 CLEAR 555445440505555045111554445554454 CLEAR 545445455455545 CLEAR 4454454454455455454445445 CLEAR 44505455441 CLEAR z44554445444454455554 CLEAR 5444454554445 CLEAR 445455455544554545xxx00x55x4554441 CLEAR 45223355544455414445545 CLEAR 45545545545454455544445454555445455445445554441 CLEAR 404454444554555454454545545545555444454455544555445554544545455454454451 CLEAR 40455554445 CLEAR 444555455544454554 CLEAR 545544454444545545545555445554541 CLEAR 055445 CLEAR 455554544545544554411445554554 CLEAR 5554 CLEAR 1544445555455545451 CLEAR 4458888445 CLEAR 4455455545 CLEAR 45224545554455454 CLEAR 55455454454451454444554114454554454444555545555454554454455455444555444454454455454 CLEAR 5445555454445550455544454454444544445554445544545445454544541144545 CLEAR 4 CLEAR 54555454444554454 CLEAR 554545555454 CLEAR 54545455545 CLEAR 44555455445224554455544545544454555454555544455455545444455115555455544545455444454454545 CLEAR 44455455544554545555445544545454445 CLEAR 44545554554454544454545454454445554554455444545 CLEAR 445455545554444555454454445455544554 CLEAR 54544555455554554444545554 CLEAR 54455445445445545144455554545444545455544554455454544544445455545555455444455455445111445544455544545445555445454454455544455455444555444555455550554454445454455441111445545455454445455554445545544445544554545545 CLEAR 4444545545455554554544445455445 CLEAR 454454454455454555154554545555255445545455554555450554454 CLEAR 5555444454445544454 CLEAR 544555545454445444454545415444554 CLEAR 54 CLEAR 544445044045555455455454554545544445545544545554545544555455545445544545454 CLEAR 5545445400055445545544545544544555444544445545455544454444554455445454555454454445545545400554455454554 CLEAR 545554415444454454554 CLEAR 5454 CLEAR 55z45534544454545545444454454545445554454 CLEAR 55454 CLEAR 54555445545 CLEAR 4455z4544450454155554 CLEAR 54445 CLEAR 4455545455444455545554 CLEAR 5 CLEAR 444454454 CLEAR 55405455454445 CLEAR 45545 CLEAR 4454554 CLEAR 54 CLEAR 545455455454455454 CLEAR 545454 CLEAR 54545555444454 CLEAR 5 CLEAR 445555455444545454445454540 CLEAR 45555155545445445340054044445544551455444544555545 CLEAR 44544440022330 CLEAR 445444454555445451400055454z554455554554545554445455544554554000 CLEAR 4554 CLEAR 54424454454445445044454545545545445 CLEAR 454 CLEAR 000 CLEAR 22330044455444454451554444z4555545554454 CLEAR 55444554555454555445554000 CLEAR 00445455554 CLEAR 5545454055455445554554 CLEAR 54544004554555454544440088880 CLEAR 00454445444554444505545444255554445454454 CLEAR 5 CLEAR 0555454454440 CLEAR 0045445554555455554 CLEAR 54415544455455554425455125554554544454440 CLEAR 8888004555545555444554454 CLEAR 5455544554554414445425455454454555440 CLEAR 4444555411445555445455455544454445454451442541445 CLEAR 454455440 CLEAR 4545545414455455545 CLEAR 4554 CLEAR 5545451114114554555445445554 CLEAR 55554545545455454555545 CLEAR 445445544454545544554454554454 CLEAR 5454454445444544445544554454555455445454 CLEAR 54454 CLEAR 5554554445454555454554554544545545445455554445445554544445445054 CLEAR 5444554444544544455454 CLEAR 545 CLEAR 44555545555445454454 CLEAR 054454 CLEAR 545545554554 CLEAR 3 CLEAR 3 CLEAR 3 CLEAR 3 CLEAR 3 CLEAR  CLEAR 3 CLEAR 3 CLEAR 3 CLEAR 3 CLEAR   CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  CLEAR  FOR  CLEAR tvustvus CLEAR TAN  CLEAR  NEXT  DEF FN  DATA P DEF FN  RESTORE P BRIGHT  DEF FN  FOR P BRIGHT  BEEP LEN 3 FLASH  FLASH |8 CLOSE #M LOAD U INPUT U/ NEXT ! AND #^v> CLEAR   @@@>SQR  GO SUB j~(|INT  INPUT |(([Q]@p`8USR 0USR #[M]~ CLS IN  PRINT  COPY ABS  RUN ~.*_ACS  MERGE n<<Z VERIFY © LOAD Z> BRIGHT  INPUT { OUT  RETURN CODE  CLEAR  OUT v8 CLEAR © COPY  COPY  COPY  LPRINT  SAVE  RETURN  COPY  COPY  COPY  CLEAR  LPRINT  SAVE  LPRINT  LPRINT USR  CLEAR  CLEAR  CLEAR  CLEAR ©© COPY  COPY  COPY  COPY  LPRINT  SAVE  RETURN  COPY  COPY  COPY  COPY  LPRINT  SAVE  RETURN  CLEAR  COPY  CLEAR  COPY  CLEAR  COPY ▞ COPY  CLEAR  COPY  LIST  LIST  LIST  FORMAT  LIST  LIST  LIST  COPY  LET [B] LET  COPY >*>*>~ COPY  CLEAR 444< CLEAR  CLEAR [O][C][O]yIy CLEAR ~ COPY USR  LIST  LIST  SAVE  SAVE  SAVE  RETURN  COPY USR  LPRINT  LIST  LIST  SAVE  LIST USR  COPY  COPY  RETURN  RETURN  DRAW  GO TO  LPRINT  COPY > CLEAR  COPY ©©???©©© COPY ` CLEAR 0@ CLEAR @,` >UjUSCREEN$ [P] LLIST STR$ PEEK U REM IN <CHR$  PRINT ATTR UCODE  RANDOMIZE p▜}SCREEN$  MERGE SCREEN$  COPY PEEK B▗▗CHR$ B▘▘▘▗[S]▘▘| VERIFY SCREEN$  CLOSE #SCREEN$  VERIFY SCREEN$  VERIFY SCREEN$  RETURN b▝▟vATTR  MERGE PEEK a▝[C]▘A▝[O]uATTR  MERGE SQR  INPUT  LPRINT [M]▘▝▝ LOAD SQR USCREEN$  MERGE SCREEN$  MERGE SCREEN$  COPY x▗rYTAB WPOINT  COPY *USCREEN$ @[Q]PFN TSCREEN$ USCREEN$ UUTTTTUU MERGE  MERGE  MERGE  MERGE  CLOSE # FORMAT  COPY  COPY  COPY  COPY  COPY  CLEAR  COPY  CLEAR  COPY U MERGE U MERGE UFN SCREEN$ ATTR SCREEN$ ATTR SCREEN$  SAVE  CLEAR  CLEAR  LIST  CLEAR  CLEAR   CLEAR  CLEAR 8 CLEAR  U CLEAR 0>x00HHDnl DRAW  DRAW ▗▗ PAPER 7~~BB LIST PEEK ACS  PLOT  ▙©>h[C]64|TAN 0HH[I][K]PEEK  PAPER [I][U][U]44|TAN 4HH© COPY  COPY  LPRINT  LOAD  LOAD  GO TO  GO SUB  COPY  COPY  COPY  COPY  COPY  COPY  RETURN  COPY  COPY  RUN  RUN 7ATN  GO SUB  CLEAR ATN  CLEAR  GO SUB  GO TO  LOAD  LOAD  LPRINT  COPY  COPY © COPY  COPY  COPY  COPY  COPY  COPY ATN 7 RUN  RUN  COPY  COPY  RETURN ? COPY  CLEAR ~ COPY  CLEAR  LPRINT  DRAW  COPY  CLEAR  LPRINT  LPRINT  LIST ???©©© SAVE  SAVE  DRAW  DRAW  DRAW  RETURN  RETURN  RETURN © COPY  CLEAR © RETURN  COPY  CLEAR  RETURN ©©©??? RETURN  RETURN  RETURN  DRAW  DRAW  DRAW  SAVE  SAVE  COPY  CLEAR ? COPY  CLEAR ~ COPY  CLEAR  DRAW  LPRINT  LIST  LPRINT  LPRINT  CLEAR <f FLASH ABS ~ COPY  COPY USR `VAL 70 COPY  COPY ~ABS  CLEAR  CIRCLE  GO TO  SAVE  CLEAR ABS  CLEAR NOT ~ CLEAR  COPY ©IN  OUT o SAVE  POKE  POKE  POKE  POKE 7o OUT PEEK } CLS  PLOT   GO TO  POKE  POKE  POKE  POKE tTAN  CLOSE #d7/7 CIRCLE VAL `USR < CLEAR USR `VAL ©USR IN IN IN IN USR © CLS  COPY  COPY  COPY  COPY  CLS  CIRCLE  GO TO  PLOT   CLS  CLS  PLOT   GO TO  CIRCLE  CLEAR VAL `USR  CLEAR 7/7USR `VAL  CIRCLE  CLEAR < GO TO  PLOT   CLS }PEEK  OUT o7d CLOSE #TAN t POKE  POKE  POKE  POKE o OUT IN © COPY  POKE  POKE  POKE  POKE  SAVE  CLEAR ~NOT ABS  CLEAR  CLEAR 07ABS  CLEAR ~ COPY  COPY  SAVE  GO TO  CIRCLE  COPY  COPY ~ABS  FLASH f<VAL `USR  CLEAR < LPRINT VAL X GO TO  POKE  GO TO &+-.////7o OUT PEEK } CLS  PLOT   GO TO  CIRCLE VAL `USR ////0 PLOT   CLS  CLEAR  RETURN  COPY USR USR  CLEAR ` LIST [A]P FORMAT  FORMAT  CLEAR 7o OUT  OUT o7 OUT  LPRINT  COPY  COPY  COPY  COPY  LPRINT  OUT  RETURN  CLEAR  CLEAR  CLEAR  CLEAR  RETURN  FORMAT  FORMAT P[A] LIST ` CLEAR 0//// COPY  RETURN  CLEAR  CLS  PLOT  USR USR ////.-+& GO TO  PLOT   CLS }PEEK  OUT o7USR `VAL  CIRCLE < CLEAR  CONTINUE  CIRCLE VAL `USR ?_ow{}~ COPY  CLEAR  DRAW  IF  PLOT   INPUT  OVER PEEK ~~}{wo_?~PEEK  OVER  INPUT  PLOT   IF  DRAW 8(((8 CLEAR  CLEAR USR @@@USR  CLEAR  INPUT * REM  INPUT  CLEAR  CLEAR  COPY  COPY  CLEAR  COPY  CLEAR  COPY @@@ COPY  CLEAR  DRAW ~ CLEAR  GO SUB K$[*&[} RETURN  FORMAT [B] CIRCLE W| RETURN   FORMAT [A] CIRCLE _ MERGE !XCODE  EXP (  DRAW LN (# CLEAR STR$  OR G MERGE T] MERGE EXP (# GO SUB VAL  GO SUB K,[gy RETURN 8|(x LLIST  MOVE STR$ CODE  INVERSE <> GO SUB K$[*&[} RETURN  FORMAT [B] CIRCLE W| RETURN   FORMAT [A] CIRCLE _ MERGE D!XCODE  EXP (  DRAW LN (# CLEAR STR$  OR G MERGE T] MERGE EXP (+ GO SUB LN  GO SUB K,[gy RETURN 8|(x LLIST  MOVE STR$ CODE  INVERSE <> GO SUB K$[*&[} RETURN  FORMAT [B] CIRCLE W| RETURN   FORMAT [A] CIRCLE _ MERGE !XCODE EXP (   DRAW LN (# CLEAR STR$  OR G RESTORE  LPRINT [ GO SUB VAL  MOVE STR$ LN ( OR G!  RESTORE  GO SUB VAL  MOVE STR$  NEXT  OR *,[} RETURN 8 ! LPRINT [ GO SUB VAL  FOR r#  CLS STR$ ! LPRINT [p#  CLS <> GO SUB K$[*&[} RETURN  FORMAT [B] CIRCLE W| RETURN   FORMAT [A] CIRCLE _M MERGE !XCODE EXP (   DRAW LN (# CLEAR STR$  OR G RESTORE  LPRINT [ GO SUB VAL  MOVE STR$ LN ( OR G! LPRINT  COPY  RESTORE  GO SUB VAL  MOVE STR$  NEXT  OR *,[} RETURN 8 ! LPRINT [ GO SUB VAL  FOR r#  CLS STR$ ! LPRINT [p#  CLS <> GO SUB K$[*&[} RETURN  FORMAT [B] CIRCLE W| RETURN   FORMAT [A] CIRCLE _ MERGE y NEW  AND @gy▜ CLEAR oSTR$  OR  RESTORE  OR CODE  LPRINT [G RESTORE  GO SUB VAL  MOVE STR$ LN ( OR ! D} RETURN  0| AND g RESTORE  GO SUB VAL  MOVE STR$  REM *2[} RETURN 8 ! LPRINT [ GO SUB VAL A| DRAW  LLIST STR$ $| NEW  SQR <> GO SUB K$[*&[} RETURN  FORMAT [B] CIRCLE W| RETURN   FORMAT [A] CIRCLE _ MERGE } NEW  AND @g}▜ CLEAR oSTR$  OR  RESTORE  OR CODE  LPRINT [G RESTORE  GO SUB VAL  MOVE STR$ LN ( OR ! LPRINT  COPY } RETURN  LPRINT 8| VERIFY g RESTORE  GO SUB VAL  MOVE STR$  DIM *2[} RETURN 8 ! LPRINT [ GO SUB VAL A| DRAW  LLIST STR$ $| NEW  INT <> GO SUB K$[*&[} RETURN  FORMAT [B] CIRCLE W| RETURN   FORMAT [A] CIRCLE _ MERGE y NEW  AND @gy▜ CLEAR oSTR$  OR  RESTORE T]~#CODE GEXP ( GO SUB VAL *2[} RETURN 8|  LLIST $| NEW   INVERSE   SAVE } RETURN  0STR$  CAT <> GO SUB K$[*&[} RETURN  FORMAT [B] CIRCLE W| RETURN   FORMAT [A] CIRCLE _ MERGE Dy NEW  AND @gy▜ CLEAR oSTR$  OR  RESTORE T]~+CODE GEXP ( GO SUB LN *2[} RETURN 8|  LLIST $| NEW   INVERSE   SAVE } RETURN  0STR$  CAT <> CLEAR ?© COPY  CLEAR USR  LPRINT  LIST  LIST  SAVE  SAVE  DRAW   CLEAR ?<C COPY  CLEAR  COPY  DRAW  RETURN  RETURN  RETURN  RETURN  COPY  COPY  CLEAR  COPY  COPY  SAVE  COPY  DRAW  DRAW ▜ COPY  COPY  COPY  LET  READ  DRAW ©▜ SAVE  COPY @[Q]`[A] LIST  LPRINT  CLEAR  CLEAR ?8{©©©1IN ©[B][C][C][R]▝USR  LPRINT  LPRINT   CLEAR ?/> OUT  CLEAR  COPY  PLOT   LOAD  GO TO  RANDOMIZE  PAUSE ▜?~ RANDOMIZE  RUN  LOAD USR  LPRINT  LPRINT p LIST  SAVE  SAVE  CLEAR ?©x CLEAR [M]??_IN © COPY  CLEAR  DRAW  DRAW  DRAW  RETURN  RETURN  PLOT   RANDOMIZE  COPY  CLEAR @A CLEAR  CLEAR  RETURN  COPY }SQR SQR SQR { RUN wATN  COPY  CLEAR USR USR USR  COPY  CLEAR  DRAW  DRAW  PRINT  NEXT  LET  REM ASN ][U]I[S]@ INVERSE ATN [R]A RUN MSCREEN$ ATTR  COPY  COPY  COPY IN ©__ COPY  CLEAR  PLOT   RANDOMIZE  DATA  INPUT  PRINT  IF  LIST  IF  CLEAR  CLEAR @FN wOPI[H]'S? COPY  CLEAR  SAVE  LIST  DATA  GO TO  POKE  LIST  LET  POKE /p AND  LIST +FN @~ CONTINUE  LPRINT  SAVE p COPY  CLEAR  RANDOMIZE  SAVE  SAVE  DRAW  DRAW  COPY  RETURN  RETURN  RESTORE  SAVE QINKEY$PEEK  ERASE SIN  DATA H INPUT  BORDER  CLEAR P(▝[Q]STR$ $C/_IN IN ?©© COPY  CLEAR / RETURN TAN  FLASH  COPY  FLASH  AND  MOVE  DRAW x! POKE  OUT [N] COPY b GO SUB IN  MERGE  OPEN # FOR [F] COPY  CLEAR  LIST  COPY  DRAW  LIST  CLEAR ( <A*,/ MERGE SCREEN$ USCREEN$ @ COPY ? COPY  COPY  COPY  COPY  CLEAR R CLEAR @  CLEAR  CLEAR @[J]dSCREEN$ / NEW  MERGE  CONTINUE VUSR !@[G]@[S]H CLOSE #`▞"▝H▝@<~ COPY  COPY  COPY ~<▖0$D MERGE j©N PAPER AT  RUN  BRIGHT ▞dVAL  MERGE JSQR  GO SUB ABS SCREEN$ E[A] MERGE kPEEK m!J LIST mATN  RETURN ▗([E]"h LINE ▝([E]@dP COPY  RETURN  PLOT   OUT  COPY  COPY  COPY  BEEP  INPUT  OUT  CLS  LOAD  CLEAR  COPY  COPY  PAPER { RUN PEEK  CLEAR  LOAD  COPY  COPY  RUN [N] COPY ATN  COPY  COPY  COPY  COPY  GO TO IN d COPY  OUT  COPY  COPY  LOAD  MOVE TAB  BRIGHT  RUN IN  COPY  COPY  COPY |CODE  CLEAR [K]© CLS  COPY  COPY  CLEAR `p0 CLEAR p RANDOMIZE POINT pp DEF FN  COPY  COPY USR  LIST  CIRCLE t INPUT PEEK  CLEAR @`@ACC▖>=>=<0` LPRINT USR   COPY  RETURN ~~j BEEP POINT  COPY ?▖[M][N]<><>>= LPRINT `USR  LIST AFKO[[sbL GO TO  BRIGHT  BRIGHT  BRIGHT  BRIGHT L BEEP  GO SUB  READ  READ STR$ STR$  LPRINT p▝USR USR USR  LPRINT  LPRINT <> THEN  MERGE ^ SAVE  DRAW  RETURN [H] LET  LIST x SAVE CGFB COPY  COPY  COPY  CONTINUE h © COPY  COPY  COPY  COPY © COPY  CLEAR  DRAW  COPY  CLEAR ` SAVE  COPY  CLEAR  LLIST  RETURN  COPY  COPY  COPY  COPY  DRAW NOT  CAT ? COPY  COPY  COPY  COPY >!"% FOR !aAT  STEP o IF  STEP  GO TO  LET !INT [N]~o&"iAT !SQR [N]~o&"mAT !"qAT ! RESTORE ! NEXT  MOVE # GO SUB SuAT "wAT !&[C] RESTORE *uAT  MOVE  RESTORE ! MOVE  FOR s*uAT #"uAT  GO SUB [wAT PI GO SUB R IF [I][S]! RESTORE ! MOVE # GO SUB SuAT "wAT ! RESTORE ! NEXT  MOVE # GO SUB SyAT "{AT  STEP LN [T]!"}AT *▝AT ~o& RESTORE ! MOVE PI GO SUB RCHR$  RUN [S]NOT L[T] STEP  LOAD PI*AT  RESTORE ! MOVE PI GO SUB RCHR$ [T]NOT L[T]*▞AT  RESTORE ! MOVE PI GO SUB R PAUSE [T]NOT %[T]!"uAT NOT L[T] STEP /[U]!&[C] RESTORE *yAT  MOVE  RESTORE *▞AT  MOVE  FOR s*▟AT  RESTORE ! MOVE PI GO SUB RCHR$ I[T]NOT L[T] STEP +INKEY$*yAT #"yAT  GO SUB [{AT PI GO SUB R IF  INK [S]*uAT #"uAT  GO SUB [wAT PI GO SUB R IF <>[S]NOT  LLIST FN *[B]AT  RESTORE *▝AT  RESTORE ! MOVE ~o& MOVE  FOR s*[B]AT  RESTORE ![Q] MOVE  RESTORE *▝AT  RESTORE ! MOVE ~o& MOVE  FOR s!"qAT  STEP [L]INKEY$*▞AT  RESTORE ! MOVE PI FOR  GO SUB R"▞AT <>!V▚ RESTORE *yAT  RESTORE ! MOVE  STEP J GO SUB  MOVE "▝AT !$d RESTORE *▝AT  RESTORE ! MOVE ~o& RESTORE *▝AT  RESTORE ! MOVE ~o&DM LLIST  MOVE  RESTORE i` RESTORE !P MOVE  STEP J GO SUB  MOVE "[B]AT !d RESTORE *▝AT  RESTORE ! MOVE ~o& RESTORE !: MOVE  STEP J GO SUB  MOVE "[F]AT !&[C] RESTORE *yAT  MOVE ~o&"▞AT <>*▝AT  RESTORE ! MOVE ~o& RESTORE *[F]AT  RESTORE ! MOVE ~o& MOVE PI GO SUB R PAUSE AT [U]!"[J]AT *}AT  RESTORE ! MOVE PI GO SUB RCHR$ AT [U]*[B]AT  RESTORE ! MOVE PI FOR  GO SUB R~o& RESTORE !- MOVE PI GO SUB R LINE AT [U] IF AT [U] STEP q[T]*▝AT  RESTORE ! MOVE  RESTORE *▝AT  RESTORE ! MOVE ~o& RESTORE ! MOVE PI FOR  GO SUB R MOVE  FOR sNOT $INKEY$*▝AT  RESTORE ! MOVE ~o& RESTORE *[F]AT  RESTORE ! MOVE ~o& MOVE PI GO SUB R PAUSE )RND!"[J]AT *}AT  RESTORE ! MOVE PI GO SUB RCHR$ )RND*[B]AT  RESTORE !P MOVE PI FOR  GO SUB R~o& RESTORE !- MOVE PI GO SUB R LINE )RND IF )RND STEP q[T]*▝AT  RESTORE ! MOVE  RESTORE *▝AT  RESTORE ! MOVE ~o& RESTORE ! MOVE PI FOR  GO SUB R MOVE  FOR sNOT $INKEY$*▝AT  RESTORE ! MOVE ~o& RESTORE *[F]AT  RESTORE ! MOVE ~o& MOVE PI GO SUB R LINE [T]RND IF [T]RND!"[J]AT *}AT  RESTORE ! MOVE PI GO SUB RCHR$ [T]RND*[B]AT  RESTORE !P MOVE ~o& RESTORE !- MOVE PI GO SUB R LINE [T]RND IF [T]RND STEP q[T]*▝AT  RESTORE ! MOVE  RESTORE *▝AT  RESTORE ! MOVE ~o& RESTORE ! MOVE  MOVE  FOR sNOT $INKEY$*▝AT  RESTORE ! MOVE ~o& RESTORE *[F]AT  RESTORE ! MOVE ~o& MOVE PI GO SUB R LINE INKEY$ IF INKEY$!"[J]AT *}AT  RESTORE ! MOVE PI GO SUB RCHR$ INKEY$*[B]AT  RESTORE ! MOVE ~o& RESTORE !- MOVE PI GO SUB R LINE INKEY$ IF INKEY$ STEP q[T]*▝AT  RESTORE ! MOVE  RESTORE *▝AT  RESTORE ! MOVE ~o& RESTORE ! MOVE  MOVE  FOR sNOT $INKEY$!"▟AT <>!"▟AT <> STEP LN [T]*[B]AT ~o& RESTORE !$ MOVE PI GO SUB R PAUSE OINKEY$*▞AT  RESTORE ! MOVE PI FOR  GO SUB R"▞AT *▝AT  RESTORE ! MOVE  RESTORE *[B]AT ~o& MOVE  FOR s*▝AT  RESTORE ! MOVE  RESTORE *[B]AT  RESTORE ![Q] MOVE ~o& MOVE  FOR s*[B]AT  RESTORE *▝AT ~o& MOVE  FOR s*[B]AT  RESTORE ![Q] MOVE  RESTORE !0 MOVE  FOR s*▝AT  RESTORE ! MOVE ~o& RESTORE *iAT  RESTORE ! MOVE PI FOR  GO SUB R MOVE PI GO SUB R LINE CHR$ INKEY$ IF CHR$ INKEY$NOT  CONTINUE PI*▝AT  RESTORE ! MOVE ~o& RESTORE *iAT  RESTORE ! MOVE  MOVE PI GO SUB R PAUSE  READ INKEY$NOT  CONTINUE PI*▝AT  RESTORE ! MOVE ~o& RESTORE *mAT  RESTORE ! MOVE  MOVE PI GO SUB R PAUSE PINOT  CONTINUE PI*▝AT  RESTORE ! MOVE ~o& RESTORE *mAT  RESTORE ! MOVE PI FOR  GO SUB R MOVE PI GO SUB R LINE +PI IF +PINOT  CONTINUE PI*▝AT  RESTORE ! MOVE ~o& RESTORE *mAT  RESTORE !DM LLIST  MOVE PI FOR  GO SUB R RESTORE i` MOVE "[N]AT *▝AT  RESTORE ! MOVE ~o& RESTORE *iAT  RESTORE !DM LLIST  MOVE PI FOR  GO SUB R RESTORE i` MOVE "[R]AT *qAT  RESTORE ! MOVE PI GO SUB RCHR$ SGN PI!▟/ RESTORE *▝AT  RESTORE ! MOVE ~o& MOVE  FOR s STEP o IF *[N]AT  RESTORE *[R]AT  MOVE  STEP  SAVE  PLOT  *▝AT  RESTORE ! MOVE ~o&} STEP Y IF  STEP C RUN NOT  CONTINUE PI!▟/ RESTORE !0 MOVE  FOR s STEP o IF *[N]AT  RESTORE *[R]AT  MOVE  STEP  SAVE  PLOT  *▝AT ~o&} STEP Y IF  STEP C RUN ! STEP <= POKE !"qAT <>*[B]AT  RESTORE !P MOVE PI FOR  GO SUB R~o& RESTORE !w MOVE PI GO SUB R PAUSE +FN *[B]AT  RESTORE !P MOVE PI FOR  GO SUB R~o& RESTORE !} MOVE PI GO SUB R LINE +FN  IF +FN NOT  PAPER FN *[B]AT  RESTORE !P MOVE ~o& RESTORE !w MOVE PI GO SUB R PAUSE aFN *[B]AT  RESTORE !P MOVE ~o& RESTORE !} MOVE PI GO SUB R LINE aFN  IF aFN NOT  PAPER FN *[B]AT  RESTORE ! MOVE ~o& RESTORE !w MOVE PI GO SUB R PAUSE [H]FN *[B]AT  RESTORE ! MOVE ~o& RESTORE !} MOVE PI GO SUB R LINE [H]FN  IF [H]FN NOT  PAPER FN *[B]AT  RESTORE ! MOVE PI FOR  GO SUB R~o& RESTORE !w MOVE PI GO SUB R PAUSE  OPEN #FN *[B]AT  RESTORE ! MOVE PI FOR  GO SUB R~o& RESTORE !} MOVE PI GO SUB R LINE  OPEN #FN  IF  OPEN #FN NOT  PAPER FN !"AT <>!"AT <>! RESTORE ! NEXT  MOVE # GO SUB SyAT "{AT !"}AT  STEP  NEXT  RESTORE !@ MOVE  STEP f GO SUB "RNDAT *RNDAT  RESTORE ! MOVE PI GO SUB RCHR$ POINT !"POINT AT NOT %POINT ! STEP CHR$  GO SUB "POINT AT  STEP LN [T]*▞AT  RESTORE ! MOVE  STEP f GO SUB "▞AT !"TAB AT *▝AT ~o& RESTORE ! MOVE PI GO SUB RCHR$ QPOINT NOT HAT  STEP /[U]*[B]AT  RESTORE ! MOVE PI FOR  GO SUB R~o& RESTORE !- MOVE PI GO SUB R LINE POINT  IF POINT *[J]AT  RESTORE ! MOVE PI GO SUB RCHR$ POINT NOT HAT *[B]AT  RESTORE !P MOVE PI FOR  GO SUB R~o& RESTORE !- MOVE PI GO SUB R LINE SIN POINT  IF SIN POINT *[J]AT  RESTORE ! MOVE PI GO SUB RCHR$ SIN POINT NOT HAT *[B]AT  RESTORE !P MOVE ~o& RESTORE !- MOVE PI GO SUB R LINE  OVER POINT  IF  OVER POINT *[J]AT  RESTORE ! MOVE PI GO SUB RCHR$  OVER POINT NOT HAT *[B]AT  RESTORE ! MOVE ~o& RESTORE !- MOVE PI GO SUB R LINE SCREEN$  IF SCREEN$ *[J]AT  RESTORE ! MOVE PI GO SUB RCHR$ SCREEN$ NOT HAT *[J]AT  RESTORE *POINT AT  MOVE "[J]AT *▞AT  RESTORE ! MOVE PI GO SUB RCHR$ 'SCREEN$ NOT HAT  STEP  LOAD PI*AT  RESTORE ! MOVE PI GO SUB RCHR$ ASCREEN$ !"AT NOT HAT *TAB AT  RESTORE ! MOVE PI FOR  GO SUB R"TAB AT *TAB AT  RESTORE ! MOVE PI GO SUB RCHR$ aSCREEN$ NOT HAT *[J]AT  RESTORE ! MOVE PI GO SUB RCHR$ uSCREEN$ !"[J]AT *[J]AT  RESTORE ! MOVE PI GO SUB RCHR$ ▞SCREEN$ !"[J]AT *[J]AT  RESTORE ! MOVE PI GO SUB RCHR$ POINT SCREEN$ ! STEP CHR$  GO SUB "LEN AT !"ASN AT NOT ATTR *[J]AT  RESTORE ! MOVE PI GO SUB RCHR$ <>SCREEN$ !"LEN AT !P STEP CHR$  GO SUB "ASN AT NOT ATTR *[J]AT  RESTORE ! MOVE PI GO SUB RCHR$  NEW SCREEN$ !"LEN AT !P"ASN AT NOT ATTR *[J]AT  RESTORE ! MOVE PI GO SUB RCHR$ ATTR !"LEN AT !"ASN AT *LEN AT  RESTORE *▝AT  RESTORE ! MOVE ~o& MOVE  RESTORE ! MOVE PI GO SUB R PAUSE [B]ATTR *LEN AT  RESTORE *▝AT  RESTORE ! MOVE ~o& MOVE  RESTORE !P MOVE PI GO SUB R LINE [B]ATTR  IF [B]ATTR *ASN AT  RESTORE !P MOVE  STEP f GO SUB  RESTORE *▝AT  RESTORE ! MOVE ~o& MOVE  RESTORE ! MOVE PI GO SUB R PAUSE [B]ATTR *ASN AT  RESTORE !P MOVE  STEP f GO SUB  RESTORE *▝AT  RESTORE ! MOVE ~o& MOVE  RESTORE !2 MOVE PI GO SUB R LINE [B]ATTR  IF [B]ATTR NOT [E]ATTR NOT HAT *[B]AT  RESTORE *LEN AT  RESTORE *ASN AT DM LLIST  MOVE  RESTORE i` MOVE ~o& RESTORE !- MOVE PI GO SUB R LINE 9AT  IF 9AT ! STEP <= POKE  STEP q[T]*[B]AT  RESTORE *LEN AT  RESTORE *ASN AT DM LLIST  MOVE  RESTORE i` MOVE "[B]AT *▝AT  RESTORE ! MOVE  RESTORE *▝AT  RESTORE ! MOVE ~o& RESTORE *LEN AT  MOVE  MOVE  FOR s*▝AT  RESTORE ! MOVE  RESTORE *▝AT  RESTORE ! MOVE ~o& RESTORE *ASN AT  RESTORE !P MOVE  STEP f GO SUB  MOVE  MOVE  FOR s*[J]AT  RESTORE *POINT AT  MOVE PI FOR  GO SUB R"[J]AT  STEP +INKEY$NOT EAT *[J]AT  RESTORE *POINT AT  MOVE "[J]AT NOT SCREEN$ *yAT #"yAT  GO SUB [{AT PI GO SUB R IF  LET FN !"}AT <><>X CLEAR >!"% FOR ! LIST  BORDER  STEP o IF  STEP  GO TO  LET !T[S]~o& RESTORE ! MOVE PI GO SUB RCHR$ YTAB !T[S] RESTORE ! MOVE  FOR s!< COPY ~o& RESTORE ! MOVE  STEP J GO SUB  RESTORE != COPY ~o& MOVE " SAVE  BORDER !> COPY ~o& RESTORE ! MOVE  STEP J GO SUB  RESTORE !? COPY ~o& MOVE " DRAW  BORDER !@ COPY ~o& RESTORE ! MOVE  STEP J GO SUB  RESTORE !A COPY ~o& MOVE " CONTINUE !B COPY ~o&" CONTINUE !C COPY ~o&" CONTINUE NOT lVAL !%[ RESTORE ! MOVE  FOR s!'[ RESTORE ! MOVE  FOR s!▟/ RESTORE !G MOVE  FOR s*x/"v/!} STEP [L]" STEP c IF  STEP k STEP o IF  STEP [K] BORDER !▟/ RESTORE ! MOVE  FOR s STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT STR$ TAB ▛ CLEAR ▜ATTR TAB  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT  INK TAB  CIRCLE TAB  STEP s LIST > BEEP !} BEEP NOT  DRAW TAB   CLEAR ©{}{ <A+  GO SUB TAB  STEP s LIST > BEEP !} BEEP NOT VAL$   CLEAR VAL$  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT CVAL$ ▙ CLEAR ▟-VAL$  STEP s LIST  STEP C RUN !▟/ RESTORE ! MOVE  FOR s STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT VAL$ Wyberite urowenx igry:jVAL$  STEP s LIST  STEP C RUN  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT  DEF FN VAL$ (1)-sravenie   IN VAL$  STEP s LIST ! MOVE  STEP  SAVE  PLOT  > BEEP !} BEEP NOT  COPY VAL$ (2)-srednqq bitwa  GO SUB VAL$  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  > BEEP !} BEEP NOT 0CODE (3)-malaq bitwa   CODE  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  > BEEP !} BEEP NOT nCODE "*TE+AST"/E <A+>AME A__OS"AT"O*OCODE  STEP s LIST  STEP C RUN  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT CODE 1▞CODE  STEP  STEP TAB  RETURN CHR$ RNDCODE !" CONTINUE NOT  RETURN CODE  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT ASN CODE 2TAN CODE  STEP  STEP TAB  RETURN CHR$  FORMAT CODE !" CONTINUE NOT  RETURN CODE  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT  LPRINT CODE 3 OUT CODE  STEP  STEP TAB  RETURN CHR$  CLS CODE !" CONTINUE NOT  RETURN CODE NOT zCODE  STEP c IF  STEP k STEP o IF !" CONTINUE !" CONTINUE !" DRAW  BORDER !" CONTINUE !" SAVE  BORDER !" CONTINUE  STEP © INVERSE ! RESTORE ! MOVE # GO SUB S CONTINUE " CONTINUE !d RESTORE * CONTINUE  RESTORE !: MOVE  STEP J GO SUB  MOVE " CONTINUE !" CONTINUE  STEP  MERGE ABS * CONTINUE #" CONTINUE  GO SUB [ CONTINUE PI GO SUB R IF >VAL !d"  CONTINUE !"$ CONTINUE !"( CONTINUE !", CONTINUE !V REM  RESTORE !b REM  MOVE # GO SUB S CONTINUE " CONTINUE * CONTINUE  RESTORE ! MOVE  FOR s* CONTINUE #" CONTINUE  GO SUB [ CONTINUE PI GO SUB R IF [E]VAL ! RESTORE ! MOVE # GO SUB S CONTINUE " CONTINUE !d RESTORE * CONTINUE  RESTORE !: MOVE  STEP J GO SUB  MOVE " CONTINUE * CONTINUE  RESTORE ! MOVE  RESTORE * CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s* CONTINUE #" CONTINUE  GO SUB [ CONTINUE PI GO SUB R IF IN VAL !"0 CONTINUE  STEP   CIRCLE  STEP v INK !SGN "4 CONTINUE ![M]"8 CONTINUE !i COPY "< CONTINUE  STEP 9 OVER ! RESTORE ! MOVE # GO SUB S CONTINUE " CONTINUE  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT ?LEN e>LEN  STEP  STEP TAB  RETURN CHR$ WLEN  STEP & DATA NOT PIATN ! STEP CHR$  GO SUB "@ CONTINUE !d RESTORE * CONTINUE  RESTORE !: MOVE  STEP J GO SUB  MOVE " CONTINUE !"D CONTINUE * CONTINUE  RESTORE ! MOVE ~o&"H CONTINUE * CONTINUE  RESTORE ! MOVE ~o&"L CONTINUE * CONTINUE  RESTORE ! MOVE ~o&"P CONTINUE * CONTINUE  RESTORE ! MOVE ~o& RESTORE ! MOVE PI GO SUB R LINE  OR LEN NOT  POKE LEN !V REM  RESTORE * CONTINUE  MOVE ~o& RESTORE ! MOVE PI GO SUB R LINE  LPRINT LEN NOT  POKE LEN * CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$  LET LEN NOT LEN NOT ©ATN * CONTINUE ~o& RESTORE ! MOVE PI GO SUB RCHR$ SIN NOT ©ATN  STEP EXP *0 CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ SIN NOT ©ATN  STEP  PRINT  FLASH  STEP z READ * CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ SIN *H CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ SIN *( CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ SIN !▟/ RESTORE !G MOVE  FOR s STEP [K] BORDER  STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT tSIN  WA' HOD kSIN  STEP s LIST  STEP C RUN ! STEP  LLIST  IF ! STEP  LLIST  IF  STEP  SAVE !" CONTINUE !▟/ RESTORE ! IF  MOVE  FOR s STEP [K] BORDER  STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT EXP SIN HODOW:COS SIN  STEP s LIST *H CONTINUE  STEP @ NEXT NOT  TO SIN   THEN SIN  STEP s LIST *H CONTINUE  RESTORE ! MOVE PI GO SUB R LINE  PLOT  SIN  IF  PLOT  SIN  STEP o IF NOT  GO SUB SIN   GO TO SIN  STEP s LIST  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT COS qCOS  STEP  STEP TAB  RETURN CHR$ COS NOT 5COS ! RESTORE STR$  GO SUB h& RESTORE ! MOVE PI GO SUB RCHR$ 2COS NOT 5COS NOT XCOS *$ CONTINUE  RESTORE ! MOVE PI GO SUB R PAUSE XCOS ! STEP CHR$  GO SUB "T CONTINUE !"X CONTINUE  STEP ATN USR NOT ▙ACS  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT hCOS agCOS  STEP  STEP TAB  RETURN CHR$ }COS NOT [H]COS ! RESTORE STR$  GO SUB h& RESTORE ! MOVE PI GO SUB RCHR$ [E]COS NOT [H]COS NOT  FORMAT COS *$ CONTINUE  RESTORE !3 RESTORE * CONTINUE  RESTORE ! MOVE ~o& STEP  FORMAT  GO SUB  MOVE PI FOR  GO SUB R MOVE PI GO SUB R LINE  FORMAT COS  IF  FORMAT COS !"T CONTINUE !"X CONTINUE  STEP ATN USR NOT ▙ACS  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT  LPRINT COS o OUT COS  STEP  STEP TAB  RETURN CHR$  PRINT COS NOT TAN ! RESTORE STR$  GO SUB h& RESTORE ! MOVE PI GO SUB RCHR$ TAN NOT TAN NOT 2TAN *  CONTINUE  RESTORE ! MOVE PI GO SUB R PAUSE 2TAN !"T CONTINUE ! STEP CHR$  GO SUB "X CONTINUE  STEP ATN USR NOT ▙ACS  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT BTAN pATAN  STEP  STEP TAB  RETURN CHR$ WTAN NOT qTAN ! RESTORE STR$  GO SUB h& RESTORE ! MOVE PI GO SUB RCHR$ nTAN NOT qTAN NOT SCREEN$ TAN *  CONTINUE  RESTORE !P RESTORE * CONTINUE  RESTORE ! MOVE ~o& STEP  FORMAT  GO SUB  MOVE PI FOR  GO SUB R MOVE PI GO SUB R LINE SCREEN$ TAN  IF SCREEN$ TAN !"T CONTINUE !"X CONTINUE  STEP ATN USR NOT ▙ACS  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT INT TAN mEXP TAN  STEP  STEP TAB  RETURN CHR$  CAT TAN NOT  COPY ACS ! RESTORE STR$  GO SUB h& RESTORE ! MOVE PI GO SUB RCHR$  NEW TAN NOT  COPY ACS  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT  PLOT  TAN F PRINT TAN  STEP  STEP TAB  RETURN CHR$ ASN NOT  VERIFY  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT ASN TASN  STEP  STEP TAB  RETURN CHR$ ATTR ASN * CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ ATTR ASN *H CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ ATTR ASN  STEP [K] BORDER  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF !T[S] RESTORE ! MOVE  FOR s!< COPY "/ CONTINUE * SAVE  BORDER "` CONTINUE  STEP  THEN LN !> COPY "/ CONTINUE * DRAW  BORDER "` CONTINUE  STEP  THEN LN !@ COPY "/ CONTINUE * CONTINUE "` CONTINUE  STEP  THEN LN !B COPY  RESTORE * CONTINUE  MOVE  FOR s!C COPY  RESTORE * CONTINUE  MOVE  FOR sNOT  INPUT  BORDER  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT SQR ASN eINT ASN  STEP  STEP TAB  RETURN CHR$  OUT ASN !"0 CONTINUE !" CONTINUE  STEP & DATA NOT yATN  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT  LOAD ASN v INPUT ASN  STEP  STEP TAB  RETURN CHR$ ▙ACS ! STEP  LLIST  IF ! STEP  LLIST  IF  LOAD 8! STEP  LLIST  IF  STEP  SAVE !▟/ RESTORE ! DIM  MOVE  FOR s STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT =ACS   KARTA  4ACS  STEP s LIST  STEP C RUN !", CONTINUE !"P CONTINUE !"L CONTINUE  STEP EXP !H"P CONTINUE  STEP EXP !"L CONTINUE  STEP EXP !"P CONTINUE  STEP EXP !'"L CONTINUE  STEP EXP !N"P CONTINUE  STEP EXP NOT LEN  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT [O]ACS s[N]ACS  STEP  STEP TAB  RETURN CHR$  OPEN #ACS * CONTINUE  RESTORE ! MOVE  RESTORE ! MOVE  FOR s!V REM  RESTORE * CONTINUE  MOVE  RESTORE ! MOVE  FOR sNOT ©ATN !" CONTINUE !"X CONTINUE !"T CONTINUE  STEP  MERGE ABS ! STEP <= POKE *H CONTINUE  RESTORE ! MOVE PI GO SUB R PAUSE  COPY ACS NOT SIN  STEP [K] BORDER !V REM  RESTORE * CONTINUE  MOVE ~o& RESTORE ! MOVE PI GO SUB RCHR$ yATN !▟/ RESTORE ! DIM  MOVE  FOR s STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT >ATN ^ OGONX ^5ATN  STEP s LIST  STEP C RUN  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF ! STEP  LLIST  IF ! STEP  LLIST  IF  LOAD 8! STEP CHR$  GO SUB  STEP  LLIST  IF  STEP  SAVE  STEP +>= STEP ASN  CAT  STEP & DATA * CONTINUE #" CONTINUE  GO SUB [ CONTINUE PI GO SUB R IF /LEN !"( CONTINUE *0 CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ PIATN NOT LEN !", CONTINUE !D"4 CONTINUE ![O]"8 CONTINUE ![K] COPY "< CONTINUE  STEP 9 OVER  STEP [K] BORDER !INT [N] RESTORE *  CONTINUE  MOVE  FOR s!SQR [N] RESTORE *$ CONTINUE  MOVE  FOR s!▟/ RESTORE !x MOVE  FOR s STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT  CLEAR ATN  EGO HOD  POKE ATN  STEP s LIST  STEP C RUN  STEP CODE  BORDER !X[S] STEP  INVERSE  SAVE "v/! TO "4 CONTINUE ![P]"8 CONTINUE ! THEN  COPY "< CONTINUE  STEP 9 OVER ! RESTORE ! MOVE # GO SUB S CONTINUE " CONTINUE !d RESTORE * CONTINUE  RESTORE !: MOVE  STEP J GO SUB  MOVE " CONTINUE * CONTINUE  RESTORE ! MOVE ~o&"L CONTINUE * CONTINUE  RESTORE ! MOVE ~o&"P CONTINUE * CONTINUE ~o& RESTORE ! MOVE PI GO SUB R LINE [N]LN  STEP GEXP  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP z READ  STEP ASN  CAT  STEP & DATA * CONTINUE #" CONTINUE  GO SUB [ CONTINUE PI GO SUB R IF :LN * SAVE  BORDER  RESTORE ! MOVE PI GO SUB R LINE  OR LN  IF  OR LN  STEP D DATA NOT  VERIFY  STEP © INVERSE NOT xVAL */ CONTINUE  RESTORE *` CONTINUE  RESTORE ! MOVE  STEP f GO SUB  MOVE  FOR s*/ CONTINUE  RESTORE ! MOVE  RESTORE *` CONTINUE  RESTORE *` CONTINUE  RESTORE ! MOVE  STEP f GO SUB  RESTORE ! MOVE  STEP J GO SUB  MOVE PI FOR  GO SUB R MOVE  FOR s<> STEP  RETURN  STEP  NEW  CLEAR  STEP NOT EXP eEXP  STEP  STEP TAB  RETURN CHR$ GEXP *, CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ GEXP !"0 CONTINUE !" CONTINUE  STEP & DATA <>*L CONTINUE  RESTORE ! MOVE  RESTORE *$ CONTINUE  MOVE PI GO SUB R LINE ASN EXP  IF ASN EXP *$ CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R"$ CONTINUE *  CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R"d CONTINUE *$ CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R"h CONTINUE !* STEP CHR$  GO SUB "l CONTINUE !"p CONTINUE !"t CONTINUE !"x CONTINUE !"| CONTINUE  STEP YSQR  STEP [B]SGN NOT  REM INT *L CONTINUE  RESTORE ! MOVE  RESTORE *$ CONTINUE  MOVE PI GO SUB R PAUSE INT *$ CONTINUE  RESTORE ! MOVE "$ CONTINUE *  CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R"d CONTINUE *$ CONTINUE  RESTORE ! MOVE "h CONTINUE !f"l CONTINUE !"t CONTINUE !"p CONTINUE !"x CONTINUE !"| CONTINUE  STEP COS SQR  STEP [B]SGN NOT  REM INT *P CONTINUE  RESTORE ! MOVE  RESTORE *  CONTINUE  MOVE PI GO SUB R LINE INT  IF INT *  CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R"  CONTINUE *  CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R"d CONTINUE *$ CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R"h CONTINUE !* STEP CHR$  GO SUB "l CONTINUE !"t CONTINUE !"p CONTINUE !"x CONTINUE !"| CONTINUE  STEP SGN  STEP [B]SGN NOT  REM INT *P CONTINUE  RESTORE ! MOVE  RESTORE *  CONTINUE  MOVE PI GO SUB R PAUSE  REM INT *  CONTINUE  RESTORE ! MOVE "  CONTINUE *  CONTINUE  RESTORE ! MOVE "d CONTINUE *$ CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R"h CONTINUE ! STEP CHR$  GO SUB "l CONTINUE !"t CONTINUE !"p CONTINUE !"x CONTINUE !"| CONTINUE  STEP ISGN  STEP [B]SGN NOT  REM INT  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT  IF INT e RANDOMIZE INT  STEP  STEP TAB  RETURN CHR$ *SQR *, CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ *SQR !"0 CONTINUE !" CONTINUE  STEP & DATA <>*  CONTINUE  RESTORE *P CONTINUE  RESTORE ! MOVE  MOVE PI GO SUB R LINE ASQR NOT EXP *$ CONTINUE  RESTORE *L CONTINUE  RESTORE ! MOVE  MOVE PI GO SUB R LINE XSQR NOT EXP <>! RESTORE ! MOVE # GO SUB S CONTINUE "▘ CONTINUE !$[ RESTORE ! RESTORE * CONTINUE  MOVE PI FOR  GO SUB R MOVE  FOR s!&[ RESTORE ! RESTORE * CONTINUE  MOVE PI FOR  GO SUB R MOVE  FOR s! OR [L] STEP  INVERSE  SAVE "v/![K][M] STEP  INVERSE  SAVE "v/* CONTINUE #" CONTINUE  GO SUB [▘ CONTINUE PI GO SUB R IF iSQR <>! RESTORE ! MOVE # GO SUB S CONTINUE "▘ CONTINUE !$[ RESTORE * CONTINUE  MOVE  FOR s!&[ RESTORE * CONTINUE  RESTORE ! MOVE  MOVE  FOR s!/[L] STEP  INVERSE  SAVE "v/!.[M] STEP  INVERSE  SAVE "v/* CONTINUE #" CONTINUE  GO SUB [▘ CONTINUE PI GO SUB R IF NOT SQR <>! RESTORE ! MOVE # GO SUB S CONTINUE "▘ CONTINUE !$[ RESTORE * CONTINUE  MOVE  FOR s!&[ RESTORE * CONTINUE  MOVE  FOR s![L] STEP  INVERSE  SAVE "v/!`[N] STEP  INVERSE  SAVE "v/* CONTINUE #" CONTINUE  GO SUB [▘ CONTINUE PI GO SUB R IF SGN <>! RESTORE ! MOVE # GO SUB S CONTINUE "▘ CONTINUE !$[ RESTORE * CONTINUE  MOVE  FOR s!&[ RESTORE * CONTINUE  MOVE  FOR s!INT [K] STEP  INVERSE  SAVE "v/![N] STEP  INVERSE  SAVE "v/* CONTINUE #" CONTINUE  GO SUB [▘ CONTINUE PI GO SUB R IF YSGN <>!$d RESTORE *  CONTINUE  RESTORE *$ CONTINUE DM LLIST  MOVE  RESTORE i` RESTORE !P MOVE  STEP J GO SUB  RESTORE *l CONTINUE DM LLIST  MOVE  RESTORE i` MOVE "▗ CONTINUE  STEP CODE  BORDER ! RESTORE ! MOVE # GO SUB S▖ CONTINUE " CONTINUE *▗ CONTINUE ~o&" CONTINUE *d CONTINUE  RESTORE ! MOVE PI GO SUB R( PAUSE KABS *d CONTINUE  RESTORE !P MOVE PI GO SUB R LINE KABS  IF KABS *h CONTINUE  RESTORE !2 MOVE PI GO SUB R LINE KABS  IF KABS *h CONTINUE  RESTORE ! MOVE PI GO SUB R( PAUSE KABS !▟/ RESTORE *▗ CONTINUE  RESTORE ![Q] MOVE ~o& MOVE  FOR s STEP o IF *| CONTINUE  RESTORE *x CONTINUE  MOVE  STEP  SAVE  PLOT  * CONTINUE } STEP Y IF  STEP C RUN NOT sABS !▟/ RESTORE ! MOVE  FOR s STEP o IF *| CONTINUE  RESTORE *x CONTINUE  MOVE  STEP  SAVE  PLOT  NOT gABS wfABS  STEP s LIST  STEP C RUN *▗ CONTINUE  RESTORE *t CONTINUE  RESTORE *p CONTINUE DM LLIST  MOVE  RESTORE i` RESTORE !P MOVE  STEP J GO SUB  MOVE "▗ CONTINUE *x CONTINUE  RESTORE *t CONTINUE  MOVE "x CONTINUE *| CONTINUE  RESTORE *p CONTINUE  MOVE "| CONTINUE *d CONTINUE  RESTORE *t CONTINUE  MOVE "d CONTINUE *h CONTINUE  RESTORE *p CONTINUE  MOVE "h CONTINUE *▖ CONTINUE #"▖ CONTINUE  GO SUB [ CONTINUE PI GO SUB R IF  FORMAT SGN <>* CONTINUE  RESTORE ! MOVE ~o&"[A] CONTINUE *[A] CONTINUE  STEP  FORMAT  GO SUB "[E] CONTINUE  STEP CODE  BORDER ! RESTORE *[E] CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R MOVE # GO SUB S/ CONTINUE "^ CONTINUE ! RESTORE *[E] CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R MOVE # GO SUB S` CONTINUE "b CONTINUE * CONTINUE  RESTORE ! RESTORE *` CONTINUE DM LLIST  MOVE  RESTORE i` RESTORE */ CONTINUE DM LLIST  MOVE  RESTORE i` RESTORE *[E] CONTINUE  MOVE  STEP J GO SUB  MOVE "[I] CONTINUE !$d RESTORE * CONTINUE  RESTORE ! MOVE ~o& RESTORE * CONTINUE  RESTORE ! MOVE ~o&DM LLIST  MOVE  RESTORE i` RESTORE !P MOVE  STEP J GO SUB  RESTORE *` CONTINUE DM LLIST  MOVE  RESTORE i` RESTORE */ CONTINUE DM LLIST  MOVE  RESTORE i` RESTORE !P MOVE  STEP J GO SUB  MOVE "[M] CONTINUE * CONTINUE  RESTORE ! MOVE PI GO SUB R LINE [IN *[I] CONTINUE  RESTORE *[M] CONTINUE ~o& MOVE  FOR s*[I] CONTINUE  RESTORE ! MOVE  RESTORE *[M] CONTINUE  RESTORE ![Q] MOVE ~o& MOVE  FOR s*[M] CONTINUE  RESTORE * CONTINUE ~o& RESTORE !w MOVE  MOVE  FOR s*[M] CONTINUE  RESTORE ![Q] MOVE  RESTORE !2 MOVE  FOR s* CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ [IN !▟/ RESTORE !2 MOVE  FOR s STEP o IF ! RESTORE */ CONTINUE  RESTORE *T CONTINUE DM LLIST  MOVE  RESTORE i` MOVE  RESTORE ! RESTORE *` CONTINUE  RESTORE *X CONTINUE DM LLIST  MOVE  RESTORE i` MOVE  MOVE  STEP  SAVE  PLOT  * CONTINUE ~o& RESTORE !w MOVE } STEP Y IF  STEP C RUN * CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$  FLASH IN *[M] CONTINUE  RESTORE *[I] CONTINUE ~o& MOVE  FOR s*[M] CONTINUE  RESTORE ![Q] MOVE  RESTORE *[I] CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s* CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$  FLASH IN !▟/ RESTORE *[I] CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s STEP o IF ! RESTORE */ CONTINUE  MOVE  RESTORE ! RESTORE *` CONTINUE  MOVE  MOVE  STEP  SAVE  PLOT  *[I] CONTINUE ~o&} STEP Y IF  STEP C RUN *` CONTINUE #"` CONTINUE  GO SUB [b CONTINUE PI GO SUB R IF #PEEK */ CONTINUE #"/ CONTINUE  GO SUB [^ CONTINUE PI GO SUB R IF PEEK *[Q] CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ USR !"[Q] CONTINUE <>* CONTINUE  RESTORE ! MOVE PI GO SUB R LINE #USR NOT ▟USR !" CONTINUE * CONTINUE  RESTORE ! MOVE  RESTORE * CONTINUE  RESTORE ! MOVE ~o& RESTORE *T CONTINUE  MOVE  MOVE  FOR s* CONTINUE  RESTORE ! MOVE  RESTORE * CONTINUE  RESTORE ! MOVE ~o& RESTORE *X CONTINUE  MOVE  MOVE  FOR s* CONTINUE  RESTORE ! MOVE ~o& RESTORE ! MOVE PI GO SUB R LINE USR  IF USR ! STEP <= POKE NOT  MERGE ABS * CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ ACS USR *P CONTINUE  RESTORE *X CONTINUE  MOVE "P CONTINUE *L CONTINUE  RESTORE *T CONTINUE  MOVE "L CONTINUE  STEP EXP <>!"[U] CONTINUE  STEP [L]NOT *FN  CONTINUE  RESTORE *AT  CONTINUE  MOVE # GO SUB S/ CONTINUE "^ CONTINUE */ CONTINUE ~o& RESTORE !| MOVE PI GO SUB R PAUSE  CLEAR USR * CONTINUE ~o& RESTORE ! MOVE PI GO SUB RCHR$  CLEAR USR !"VAL  CONTINUE NOT 9STR$ */ CONTINUE ~o& RESTORE !, MOVE PI GO SUB R PAUSE STR$ !d"VAL  CONTINUE NOT 9STR$ */ CONTINUE ~o& RESTORE !$ MOVE PI GO SUB R PAUSE 3STR$ !"VAL  CONTINUE NOT 9STR$ !"VAL  CONTINUE *TAN  CONTINUE  RESTORE *VAL  CONTINUE  MOVE PI GO SUB R LINE PSTR$  IF PSTR$ *VAL  CONTINUE "TAN  CONTINUE */ CONTINUE  RESTORE *< CONTINUE  RESTORE !DM LLIST  MOVE  RESTORE i` MOVE PI FOR  GO SUB R"/ CONTINUE */ CONTINUE #"/ CONTINUE  GO SUB [^ CONTINUE PI GO SUB R IF  FORMAT USR *H CONTINUE  RESTORE *TAN  CONTINUE  MOVE PI FOR  GO SUB R RESTORE ! MOVE PI GO SUB R LINE [J]STR$  IF [J]STR$ NOT [K]NOT *TAN  CONTINUE  RESTORE ! MOVE PI GO SUB R LINE SCREEN$ STR$ NOT LNOT *H CONTINUE  RESTORE *TAN  CONTINUE  MOVE PI FOR  GO SUB R"H CONTINUE * CONTINUE  RESTORE ! MOVE  RESTORE * CONTINUE  RESTORE ! MOVE ~o& RESTORE *TAN  CONTINUE  MOVE PI FOR  GO SUB R MOVE  FOR s*@ CONTINUE  RESTORE ! MOVE "@ CONTINUE  STEP  NEXT  RESTORE !U MOVE  STEP f GO SUB  RESTORE ! MOVE "LN  CONTINUE *LN  CONTINUE  RESTORE *@ CONTINUE  MOVE PI GO SUB R LINE CHR$  IF CHR$ ! STEP <= POKE NOT [K]NOT *FN  CONTINUE  RESTORE *AT  CONTINUE  MOVE # GO SUB S/ CONTINUE "^ CONTINUE ! RESTORE ! NEXT  MOVE # GO SUB SSGN  CONTINUE "PEEK  CONTINUE !V▚ RESTORE *SGN  CONTINUE  RESTORE ! MOVE  STEP J GO SUB  MOVE "USR  CONTINUE *USR  CONTINUE ~o& RESTORE ! MOVE PI GO SUB R LINE NOT !$d RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o&DM LLIST  MOVE  RESTORE i` RESTORE !P MOVE  STEP J GO SUB  MOVE  RESTORE */ CONTINUE  MOVE PI GO SUB RCHR$ NOT */ CONTINUE  RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s*/ CONTINUE  RESTORE ![Q] MOVE  RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s*USR  CONTINUE  RESTORE ! MOVE  FOR s! NEXT "SGN  CONTINUE * CONTINUE  RESTORE ! MOVE " CONTINUE * SAVE  BORDER  RESTORE ! MOVE PI FOR  GO SUB R" SAVE  BORDER ! STEP  LLIST  IF !d STEP  LLIST  IF  LOAD 8! STEP CHR$  GO SUB  STEP  LLIST  IF  STEP  SAVE *SGN  CONTINUE #"SGN  CONTINUE  GO SUB [PEEK  CONTINUE PI GO SUB R IF 6CHR$ */ CONTINUE  RESTORE *< CONTINUE  RESTORE !DM LLIST  MOVE  RESTORE i` MOVE PI FOR  GO SUB R"/ CONTINUE */ CONTINUE #"/ CONTINUE  GO SUB [^ CONTINUE PI GO SUB R IF &CHR$ NOT  MERGE ABS *H CONTINUE  RESTORE *TAN  CONTINUE  MOVE PI FOR  GO SUB R RESTORE ! MOVE PI GO SUB R( PAUSE [K]NOT *H CONTINUE  RESTORE *TAN  CONTINUE  MOVE PI FOR  GO SUB R"H CONTINUE * CONTINUE  RESTORE ! MOVE  RESTORE * CONTINUE  RESTORE ! MOVE ~o& RESTORE *TAN  CONTINUE  MOVE PI FOR  GO SUB R MOVE  FOR sNOT  MERGE ABS <>!"TAN  CONTINUE * CONTINUE  RESTORE ! MOVE ~o&"[A] CONTINUE *[A] CONTINUE  STEP  FORMAT  GO SUB "[E] CONTINUE *[U] CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$  CLOSE #NOT !"BIN  CONTINUE !"< CONTINUE *T CONTINUE  RESTORE ! STEP CHR$  GO SUB  MOVE PI GO SUB RCHR$ 5BIN  STEP  OR *FN  CONTINUE  RESTORE !P MOVE PI FOR  GO SUB R"FN  CONTINUE *FN  CONTINUE  RESTORE *[E] CONTINUE  RESTORE !DM LLIST  MOVE  RESTORE i` MOVE PI FOR  GO SUB R"AT  CONTINUE !"< CONTINUE *[U] CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ 5BIN *BIN  CONTINUE  RESTORE !P MOVE PI FOR  GO SUB R"BIN  CONTINUE *T CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ [F]BIN  STEP  OR *FN  CONTINUE  RESTORE !P RESTORE *[E] CONTINUE  MOVE  STEP J GO SUB  MOVE "FN  CONTINUE *FN  CONTINUE  RESTORE *[E] CONTINUE  RESTORE !DM LLIST  MOVE  RESTORE i` MOVE PI FOR  GO SUB R"AT  CONTINUE !"< CONTINUE *[U] CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ [F]BIN *BIN  CONTINUE  RESTORE !P MOVE "BIN  CONTINUE *[U] CONTINUE  RESTORE ! MOVE "[U] CONTINUE *T CONTINUE  RESTORE ! MOVE PI GO SUB R LINE  TO BIN *X CONTINUE  RESTORE ! MOVE PI GO SUB R LINE  TO BIN *[U] CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$  TO BIN <>*X CONTINUE  RESTORE ! STEP CHR$  GO SUB  MOVE PI GO SUB RCHR$ / OR  STEP  OR *FN  CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R"FN  CONTINUE *FN  CONTINUE  RESTORE !P RESTORE *[E] CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R MOVE  STEP J GO SUB  MOVE "AT  CONTINUE !P"< CONTINUE *[U] CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ / OR *BIN  CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R"BIN  CONTINUE *X CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ ▞ OR  STEP  OR *FN  CONTINUE  RESTORE *[E] CONTINUE  MOVE "FN  CONTINUE *FN  CONTINUE  RESTORE !P RESTORE *[E] CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R MOVE  STEP J GO SUB  MOVE "AT  CONTINUE !P"< CONTINUE *[U] CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ ▞ OR *BIN  CONTINUE  RESTORE ! MOVE "BIN  CONTINUE <>!$d RESTORE * CONTINUE  RESTORE ! MOVE ~o& RESTORE * CONTINUE  RESTORE ! MOVE ~o&DM LLIST  MOVE  RESTORE i` RESTORE !P MOVE  STEP J GO SUB  MOVE "FN  CONTINUE <> STEP CODE  BORDER !">= CONTINUE  STEP  NEXT  RESTORE ! INK  MOVE  STEP f GO SUB " TO  CONTINUE !d RESTORE * TO  CONTINUE  RESTORE !: MOVE  STEP J GO SUB  MOVE ~o& RESTORE ! MOVE PI GO SUB RCHR$  RANDOMIZE  OR NOT >= OR * FORMAT  CONTINUE  RESTORE * FORMAT  CONTINUE  RESTORE * CLOSE # CONTINUE  MOVE  MOVE # GO SUB S/ CONTINUE "^ CONTINUE * CIRCLE  CONTINUE  RESTORE * CIRCLE  CONTINUE  RESTORE * BRIGHT  CONTINUE  MOVE  MOVE # GO SUB S` CONTINUE "b CONTINUE  STEP  NEXT  RESTORE !  MOVE  STEP f GO SUB " LPRINT  CONTINUE !V▚ RESTORE *>= CONTINUE  RESTORE ! MOVE  STEP J GO SUB  MOVE "USR  CONTINUE *USR  CONTINUE ~o& RESTORE ! MOVE PI GO SUB R LINE h AND *>= CONTINUE  RESTORE ! MOVE ">= CONTINUE NOT 3 AND * LPRINT  CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ y AND NOT  DRAW <=!$d RESTORE *` CONTINUE  RESTORE */ CONTINUE DM LLIST  MOVE  RESTORE i` RESTORE !P MOVE  STEP J GO SUB  MOVE " DATA  CONTINUE * DATA  CONTINUE ~o& RESTORE !, MOVE PI GO SUB R PAUSE VAL$  AND NOT  DRAW <=* SAVE  BORDER  RESTORE ! MOVE " SAVE  BORDER * LPRINT  CONTINUE  RESTORE !| MOVE " LPRINT  CONTINUE *USR  CONTINUE  RESTORE * LPRINT  CONTINUE  MOVE  FOR s*USR  CONTINUE  RESTORE ! MOVE  RESTORE * TO  CONTINUE  MOVE  FOR s*USR  CONTINUE  RESTORE ! MOVE  RESTORE *` CONTINUE  MOVE  FOR s*USR  CONTINUE  RESTORE ! MOVE  RESTORE */ CONTINUE  MOVE  FOR s*USR  CONTINUE  RESTORE ! MOVE  RESTORE * DATA  CONTINUE ~o& MOVE  FOR s*USR  CONTINUE  RESTORE ! MOVE  RESTORE * DATA  CONTINUE  RESTORE ![Q] MOVE ~o& MOVE  FOR s* DATA  CONTINUE  RESTORE * LPRINT  CONTINUE  MOVE  FOR s* DATA  CONTINUE  RESTORE ![Q] MOVE  RESTORE !0 MOVE  FOR s*` CONTINUE  RESTORE *  CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R MOVE PI GO SUB R LINE e<= IF e<=NOT  DRAW <=*` CONTINUE  RESTORE *  CONTINUE  RESTORE ! MOVE  MOVE PI GO SUB R PAUSE |<=NOT  DRAW <=*/ CONTINUE  RESTORE *$ CONTINUE  RESTORE ! MOVE  MOVE PI GO SUB R PAUSE [D]<=NOT  DRAW <=*/ CONTINUE  RESTORE *$ CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R MOVE PI GO SUB R LINE VAL <= IF VAL <=NOT  DRAW <=!▟/ RESTORE !0 MOVE  FOR s STEP o IF */ CONTINUE  RESTORE *$ CONTINUE  RESTORE !DM LLIST  MOVE PI FOR  GO SUB R RESTORE i` MOVE  RESTORE *` CONTINUE  RESTORE *  CONTINUE  RESTORE !DM LLIST  MOVE PI FOR  GO SUB R RESTORE i` MOVE  MOVE  STEP  SAVE  PLOT  * LPRINT  CONTINUE } STEP Y IF  STEP C RUN *>= CONTINUE  RESTORE ! MOVE ">= CONTINUE *` CONTINUE #"` CONTINUE  GO SUB [b CONTINUE PI GO SUB R IF % AND */ CONTINUE #"/ CONTINUE  GO SUB [^ CONTINUE PI GO SUB R IF  AND <>!" CONTINUE !" CONTINUE  CONTINUE !"[U] CONTINUE !" GO TO  CONTINUE ! STEP <= POKE  STEP 7 CAT * LIST  CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ ]>=NOT RND TO  STEP CODE  BORDER  STEP [L]NOT *FN  CONTINUE  RESTORE *AT  CONTINUE  MOVE # GO SUB S/ CONTINUE "^ CONTINUE */ CONTINUE "` CONTINUE *` CONTINUE  RESTORE ! OPEN #c MOVE PI FOR  GO SUB R RESTORE !P MOVE  STEP f GO SUB " POKE  CONTINUE *` CONTINUE  RESTORE ! OPEN #c MOVE PI FOR  GO SUB R" SAVE  CONTINUE * SAVE  CONTINUE  RESTORE * POKE  CONTINUE  RESTORE !P MOVE  STEP J GO SUB  MOVE PI FOR  GO SUB R" SAVE  CONTINUE * LIST  CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$ <>* POKE  CONTINUE  RESTORE ! MOVE PI GO SUB R( PAUSE <>* POKE  CONTINUE  RESTORE !2 MOVE PI GO SUB R IF <>* SAVE  CONTINUE  RESTORE ! MOVE PI GO SUB R( PAUSE <>* SAVE  CONTINUE  RESTORE !P MOVE PI GO SUB R IF <>NOT <>!"D CONTINUE NOT  TO */ CONTINUE ~o& RESTORE !| MOVE PI GO SUB R PAUSE !<>NOT <>!▟/ RESTORE !2 MOVE  FOR s STEP o IF * POKE  CONTINUE  RESTORE *$ CONTINUE  RESTORE !DM LLIST  MOVE PI FOR  GO SUB R RESTORE i` MOVE  RESTORE * SAVE  CONTINUE  RESTORE *  CONTINUE  RESTORE !DM LLIST  MOVE PI FOR  GO SUB R RESTORE i` MOVE  MOVE  STEP  SAVE  PLOT  * DRAW  CONTINUE } STEP Y IF  STEP C RUN */ CONTINUE  RESTORE *` CONTINUE  MOVE PI GO SUB RCHR$ VAL$ <>! STEP  LLIST  IF !d STEP  LLIST  IF  LOAD 8! STEP  LLIST  IF  STEP  SAVE ! STEP  LLIST  IF !2 STEP  LLIST  IF  LOAD 8! STEP CHR$  GO SUB  STEP  LLIST  IF  STEP  SAVE *` CONTINUE ~o& RESTORE !% MOVE PI GO SUB R LINE  AND <> IF  AND <>NOT  CONTINUE  THEN *` CONTINUE ~o& RESTORE !- MOVE PI GO SUB R LINE  POKE <> IF  POKE <> STEP  NEXT  RESTORE !@ MOVE  STEP f GO SUB  RESTORE ! MOVE PI GO SUB RCHR$  POKE <>NOT  CONTINUE  THEN !" CONTINUE *` CONTINUE ~o& RESTORE !} MOVE PI GO SUB R LINE  LINE  IF  LINE  STEP STR$  TO NOT  OUT  THEN  STEP  NEXT  RESTORE ! STEP  MOVE  STEP f GO SUB  RESTORE ! MOVE "LN  CONTINUE * CONTINUE ~o& RESTORE ! MOVE PI GO SUB RCHR$ G LINE *LN  CONTINUE  RESTORE ! MOVE "LN  CONTINUE * CONTINUE  RESTORE * CONTINUE  RESTORE ! MOVE ~o& RESTORE ! MOVE  STEP f GO SUB  MOVE " CONTINUE * CONTINUE  RESTORE ! MOVE ~o& RESTORE ! MOVE PI GO SUB R PAUSE ▞ LINE * CONTINUE  RESTORE ! MOVE " CONTINUE ! RESTORE * CONTINUE  MOVE  RESTORE *LN  CONTINUE  MOVE PI GO SUB R IF [T] LINE  STEP STR$  TO NOT  OUT  THEN ! RESTORE ! NEXT  MOVE # GO SUB SSGN  CONTINUE "PEEK  CONTINUE !V▚ RESTORE *SGN  CONTINUE  RESTORE ! MOVE  STEP J GO SUB  MOVE "USR  CONTINUE !$d RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o&DM LLIST  MOVE  RESTORE i` RESTORE !P MOVE  STEP J GO SUB  MOVE  RESTORE *` CONTINUE  MOVE PI GO SUB RCHR$ n THEN *USR  CONTINUE ~o& RESTORE ! MOVE PI GO SUB R LINE n THEN *` CONTINUE  RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s*` CONTINUE  RESTORE ![Q] MOVE  RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s*USR  CONTINUE  RESTORE ! MOVE  FOR s! NEXT "SGN  CONTINUE * SAVE  BORDER  RESTORE ! MOVE PI FOR  GO SUB R" SAVE  BORDER * CONTINUE  RESTORE ! MOVE " CONTINUE *SGN  CONTINUE #"SGN  CONTINUE  GO SUB [PEEK  CONTINUE PI GO SUB R IF COS  LINE !▟/ RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s STEP o IF * POKE  CONTINUE  RESTORE *$ CONTINUE  RESTORE !DM LLIST  MOVE PI FOR  GO SUB R RESTORE i` MOVE  RESTORE * SAVE  CONTINUE  RESTORE *  CONTINUE  RESTORE !DM LLIST  MOVE PI FOR  GO SUB R RESTORE i` MOVE  MOVE  STEP  SAVE  PLOT  *USR  CONTINUE  RESTORE ! MOVE ~o&} STEP Y IF  STEP C RUN !"D CONTINUE NOT  TO  STEP STR$  TO *D CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R"D CONTINUE *` CONTINUE  RESTORE *BIN  CONTINUE  MOVE "` CONTINUE *D CONTINUE  RESTORE ! MOVE PI GO SUB R PAUSE  TO NOT y>=!"D CONTINUE */ CONTINUE  RESTORE *< CONTINUE  RESTORE !DM LLIST  MOVE  RESTORE i` MOVE PI FOR  GO SUB R"/ CONTINUE */ CONTINUE #"/ CONTINUE  GO SUB [^ CONTINUE PI GO SUB R IF s>=*X CONTINUE  RESTORE ! MOVE PI GO SUB R LINE  TO *T CONTINUE  RESTORE ! MOVE PI GO SUB R LINE  TO *[U] CONTINUE  RESTORE ! MOVE PI GO SUB R LINE  TO  IF  TO *SGN  CONTINUE  RESTORE ! MOVE "SGN  CONTINUE NOT `>=* CONTINUE  CONTINUE  RESTORE ! MOVE " CONTINUE  CONTINUE * CONTINUE  CONTINUE  RESTORE *[E] CONTINUE  MOVE PI GO SUB R LINE RND TO  IF RND TO NOT `>= STEP v INK !SGN "4 CONTINUE ![M]"8 CONTINUE !i COPY "< CONTINUE  STEP 9 OVER  STEP 2 OUT <>!▟/ RESTORE *` CONTINUE  RESTORE ![Q] MOVE ~o& MOVE  FOR s STEP o IF * POKE  CONTINUE  RESTORE *$ CONTINUE  RESTORE !DM LLIST  MOVE PI FOR  GO SUB R RESTORE i` MOVE  RESTORE * SAVE  CONTINUE  RESTORE *  CONTINUE  RESTORE !DM LLIST  MOVE PI FOR  GO SUB R RESTORE i` MOVE  MOVE  STEP  SAVE  PLOT  *` CONTINUE ~o&} STEP Y IF  STEP C RUN <>!" LIST  CONTINUE ! STEP <= POKE  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT 8 STEP s7 STEP  STEP  STEP TAB  RETURN CHR$ m STEP * CONTINUE  RESTORE ! MOVE  RESTORE ! MOVE  FOR s!V REM  RESTORE * CONTINUE  MOVE  RESTORE ! MOVE  FOR sNOT  CLEAR  STEP  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT } STEP o| STEP  STEP  STEP TAB  RETURN CHR$ [C] STEP NOT AT  STEP ! RESTORE STR$  GO SUB h& RESTORE ! MOVE PI GO SUB RCHR$ POINT  STEP NOT AT  STEP NOT PEEK  STEP * GO TO  CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R" GO TO  CONTINUE NOT  BEEP  DEF FN  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT  DEF FN  STEP q STEP  STEP  STEP  STEP TAB  RETURN CHR$  READ  STEP NOT  CLEAR  STEP ! RESTORE STR$  GO SUB h& RESTORE ! MOVE PI GO SUB RCHR$  IF  STEP NOT  CLEAR  STEP NOT  DEF FN !" LIST  CONTINUE <> STEP  RETURN  STEP  NEW  CLEAR  STEP NOT  DEF FN p DEF FN  STEP  STEP TAB  RETURN CHR$ ) DEF FN NOT C DEF FN ! RESTORE STR$  GO SUB h& RESTORE ! MOVE PI GO SUB RCHR$ @ DEF FN NOT C DEF FN NOT R DEF FN * GO TO  CONTINUE  RESTORE ! MOVE " GO TO  CONTINUE NOT  BEEP  DEF FN  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT b DEF FN aa DEF FN  STEP  STEP TAB  RETURN CHR$ w DEF FN NOT [B] DEF FN ! RESTORE STR$  GO SUB h& RESTORE ! MOVE PI GO SUB RCHR$ ▙ DEF FN NOT [B] DEF FN NOT [I] DEF FN !" LIST  CONTINUE <>! RESTORE STR$  GO SUB h& RESTORE ! MOVE PI GO SUB RCHR$ CODE  DEF FN NOT F CAT  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT IN  DEF FN mPEEK  DEF FN  STEP  STEP TAB  RETURN CHR$  CLOSE # DEF FN NOT F CAT NOT  STEP * GO TO  CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$  FOR  DEF FN !" GO TO  CONTINUE * GO TO  CONTINUE  RESTORE ! STEP CHR$  GO SUB  MOVE PI GO SUB RCHR$  CAT !" GO TO  CONTINUE ! STEP  LLIST  IF !2 STEP  LLIST  IF  LOAD 8! STEP  LLIST  IF  STEP  SAVE !8 RESTORE * GO TO  CONTINUE  RESTORE ! MOVE  STEP J GO SUB  MOVE " LPRINT  CONTINUE  STEP BIN  BORDER  STEP < FLASH NOT  STEP  STEP BIN  BORDER !8" LPRINT  CONTINUE  STEP ? PAPER NOT  STEP ![C] RESTORE * GO TO  CONTINUE  MOVE ~o&" DRAW  CONTINUE ! CONTINUE  RESTORE ! MOVE  STEP J GO SUB  MOVE ~o& RESTORE ! MOVE PI FOR  GO SUB R"X CONTINUE ! CONTINUE  RESTORE ! MOVE  STEP J GO SUB  RESTORE !DM LLIST  MOVE  RESTORE i` MOVE ~o& RESTORE ! MOVE PI FOR  GO SUB R"T CONTINUE !V REM  RESTORE * CONTINUE  MOVE  RESTORE ! MOVE  FOR s<>!" CONTINUE  STEP [K] BORDER !▟/ RESTORE !N MOVE  FOR s STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT  STOP  CAT   BITWA   INK  CAT  STEP s LIST  STEP C RUN * CONTINUE  RESTORE ! MOVE ~o& STEP  FORMAT  GO SUB "[E] CONTINUE !"[Q] CONTINUE !$d RESTORE * CONTINUE  RESTORE ! MOVE ~o& RESTORE * CONTINUE  RESTORE ! MOVE ~o&DM LLIST  MOVE  RESTORE i` RESTORE !P MOVE  STEP J GO SUB  MOVE "[M] CONTINUE *[M] CONTINUE  RESTORE *[M] CONTINUE  RESTORE *[E] CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R RESTORE !P MOVE  STEP J GO SUB  MOVE  MOVE # GO SUB S/ CONTINUE "^ CONTINUE */ CONTINUE  RESTORE */ CONTINUE  RESTORE *[E] CONTINUE  RESTORE !DM LLIST  MOVE  RESTORE i` MOVE PI FOR  GO SUB R MOVE # GO SUB S` CONTINUE "b CONTINUE ! RESTORE ! MOVE # GO SUB S DIM " DIM ! DIM  RESTORE ! MOVE  STEP J GO SUB  MOVE ~o& RESTORE ! MOVE PI FOR  GO SUB R"4 CONTINUE ! DIM  RESTORE ! MOVE  STEP J GO SUB  RESTORE !DM LLIST  MOVE  RESTORE i` MOVE ~o& RESTORE ! MOVE PI FOR  GO SUB R"8 CONTINUE *` CONTINUE  RESTORE *4 CONTINUE  RESTORE *8 CONTINUE DM LLIST  MOVE  RESTORE i` RESTORE !P MOVE  STEP J GO SUB  MOVE " DIM * DIM  RESTORE !$d MOVE PI GO SUB R LINE  MOVE  IF  MOVE NOT ASN  CLOSE #* DIM  RESTORE !c MOVE PI GO SUB R PAUSE * MOVE NOT ASN  CLOSE #* DIM ~o& RESTORE !} MOVE PI GO SUB R LINE B MOVE  IF B MOVE NOT ASN  CLOSE # STEP  PRINT  FLASH ! RESTORE ! NEXT  MOVE # GO SUB SSGN  CONTINUE "PEEK  CONTINUE !V▚ RESTORE *SGN  CONTINUE  RESTORE ! MOVE  STEP J GO SUB  MOVE "USR  CONTINUE *USR  CONTINUE ~o& RESTORE ! MOVE PI GO SUB RCHR$ ~ MOVE NOT [R] CLOSE #*USR  CONTINUE  RESTORE ! MOVE ~o& RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& RESTORE !P MOVE  STEP J GO SUB  RESTORE !$dDM LLIST  MOVE  RESTORE i` MOVE  RESTORE * DIM  MOVE PI GO SUB R LINE ABS  MOVE NOT [R] CLOSE #*` CONTINUE  RESTORE ! OPEN #c MOVE PI FOR  GO SUB R RESTORE !P MOVE  STEP f GO SUB " POKE  CONTINUE *` CONTINUE  RESTORE ! OPEN #c MOVE PI FOR  GO SUB R" SAVE  CONTINUE * SAVE  CONTINUE  RESTORE * POKE  CONTINUE  RESTORE !P MOVE  STEP J GO SUB  MOVE PI FOR  GO SUB R" SAVE  CONTINUE *4 CONTINUE  RESTORE * SAVE  CONTINUE  RESTORE *  CONTINUE DM LLIST  MOVE  RESTORE i` RESTORE !DM LLIST  MOVE PI FOR  GO SUB R RESTORE i` MOVE " DIM *8 CONTINUE  RESTORE * POKE  CONTINUE  RESTORE *$ CONTINUE DM LLIST  MOVE  RESTORE i` RESTORE !DM LLIST  MOVE PI FOR  GO SUB R RESTORE i` MOVE " DIM !▟/ RESTORE ! CONTINUE  MOVE  FOR s STEP CODE  BORDER  STEP o IF * DIM  RESTORE * DIM  MOVE  STEP  SAVE  PLOT  *USR  CONTINUE ~o&} STEP Y IF  STEP C RUN ! RESTORE !( MOVE # GO SUB S DIM " DIM ! STEP  LLIST  IF !d STEP  LLIST  IF  LOAD 8* DIM  STEP  LLIST  IF  STEP  SAVE * DIM #" DIM  GO SUB [ DIM PI GO SUB R IF ▝ ERASE !▟/ RESTORE !0 MOVE  FOR s STEP o IF * DIM  RESTORE * DIM  MOVE  STEP  SAVE  PLOT  *USR  CONTINUE ~o&} STEP Y IF  STEP C RUN *x/"v/ STEP  NEXT  RESTORE ! STEP  MOVE  STEP f GO SUB "LN  CONTINUE * CONTINUE ~o& RESTORE ! MOVE PI GO SUB R PAUSE  OPEN #*LN  CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R"LN  CONTINUE * CONTINUE  RESTORE ! MOVE ~o& RESTORE ! MOVE  STEP f GO SUB " CONTINUE * CONTINUE  RESTORE ! MOVE ~o& RESTORE ! MOVE PI GO SUB R PAUSE A OPEN #* CONTINUE  RESTORE ! MOVE " CONTINUE ! RESTORE * CONTINUE  MOVE  RESTORE *LN  CONTINUE  MOVE PI GO SUB R PAUSE X OPEN #NOT  INVERSE  OPEN #* CONTINUE  RESTORE ! MOVE ~o& RESTORE ! MOVE PI GO SUB R PAUSE [P] OPEN #* CONTINUE  RESTORE ! MOVE  RESTORE * CONTINUE  RESTORE ! MOVE ~o& RESTORE ! MOVE PI FOR  GO SUB R MOVE  FOR s* DRAW  BORDER  RESTORE ! MOVE " DRAW  BORDER * CONTINUE  RESTORE ! MOVE ~o& RESTORE ! MOVE PI GO SUB R PAUSE  PAPER  OPEN #* CONTINUE  RESTORE ! MOVE  RESTORE * CONTINUE  RESTORE ! MOVE ~o& RESTORE ! MOVE PI FOR  GO SUB R MOVE  FOR sNOT [R] CLOSE #* SAVE  BORDER  RESTORE ! MOVE PI FOR  GO SUB R" SAVE  BORDER * CONTINUE  RESTORE ! MOVE " CONTINUE * DIM  RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s* DIM  RESTORE ![Q] MOVE  RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s*USR  CONTINUE  RESTORE ! MOVE  FOR s!▟/ RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s STEP o IF * DIM  RESTORE * DIM  MOVE  STEP  SAVE  PLOT  *USR  CONTINUE  RESTORE ! MOVE ~o&} STEP Y IF  STEP C RUN * CONTINUE  RESTORE ! MOVE ~o& RESTORE ! MOVE PI GO SUB R LINE [R] CLOSE # IF [R] CLOSE #* CONTINUE  RESTORE ! MOVE  RESTORE * CONTINUE  RESTORE ! MOVE ~o& RESTORE ! MOVE  MOVE  FOR s*SGN  CONTINUE #"SGN  CONTINUE  GO SUB [PEEK  CONTINUE PI GO SUB R IF U MOVE  STEP  PRINT  FLASH * DIM #" DIM  GO SUB [ DIM PI GO SUB R IF [H] FORMAT *` CONTINUE #"` CONTINUE  GO SUB [b CONTINUE PI GO SUB R IF ▜ FORMAT */ CONTINUE  RESTORE !O MOVE "/ CONTINUE */ CONTINUE #"/ CONTINUE  GO SUB [^ CONTINUE PI GO SUB R IF b FORMAT * CONTINUE  RESTORE ! MOVE ~o& RESTORE ! MOVE PI GO SUB RCHR$ % MERGE * CONTINUE  RESTORE ! MOVE  FOR s!"[Q] CONTINUE * CONTINUE " TO  CONTINUE  STEP A MERGE !" CONTINUE !"X CONTINUE !"T CONTINUE  STEP  INPUT ABS  STEP   CIRCLE  STEP 2 OUT <>!d~o& RESTORE ! MOVE PI GO SUB RCHR$ ▜ MERGE *[M] CONTINUE  RESTORE * CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s*[M] CONTINUE  RESTORE ![Q] MOVE  RESTORE * CONTINUE  RESTORE !! MOVE ~o& MOVE  FOR s STEP  LINE  DATA NOT  VERIFY  STEP  NEXT  RESTORE ! INK  MOVE  STEP f GO SUB "LN  CONTINUE !d RESTORE *LN  CONTINUE  RESTORE !: MOVE  STEP J GO SUB  MOVE ~o& RESTORE ! MOVE PI GO SUB RCHR$ LN  MERGE NOT A MERGE ! RESTORE ! NEXT  MOVE # GO SUB SSGN  CONTINUE "PEEK  CONTINUE !V▚ RESTORE *SGN  CONTINUE  RESTORE ! MOVE  STEP J GO SUB  MOVE "USR  CONTINUE *USR  CONTINUE  RESTORE ! MOVE ~o& RESTORE * TO  CONTINUE  MOVE PI GO SUB R LINE  RUN  MERGE NOT  VERIFY *USR  CONTINUE  RESTORE ! MOVE  RESTORE *LN  CONTINUE  MOVE  FOR s*SGN  CONTINUE #"SGN  CONTINUE  GO SUB [PEEK  CONTINUE PI GO SUB R IF >= MERGE <>! RESTORE ! NEXT  MOVE # GO SUB SSGN  CONTINUE "PEEK  CONTINUE !V▚ RESTORE *SGN  CONTINUE  RESTORE ! MOVE  STEP J GO SUB  MOVE "USR  CONTINUE *USR  CONTINUE ~o& RESTORE ! MOVE PI GO SUB R LINE  INVERSE  VERIFY *USR  CONTINUE  RESTORE ! MOVE  FOR s!$d RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o&DM LLIST  MOVE  RESTORE i` RESTORE !P MOVE  STEP J GO SUB  MOVE  RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s!BIN s RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o&DM LLIST  MOVE  RESTORE i` RESTORE !P MOVE  STEP J GO SUB  MOVE  RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s*SGN  CONTINUE #"SGN  CONTINUE  GO SUB [PEEK  CONTINUE PI GO SUB R IF ) VERIFY !" CONTINUE ! RESTORE ! MOVE # GO SUB S CONTINUE " CONTINUE !d RESTORE * CONTINUE  RESTORE !: MOVE  STEP J GO SUB  MOVE " CONTINUE * CONTINUE ~o& RESTORE ! MOVE PI GO SUB R LINE O BEEP * CONTINUE  RESTORE ! MOVE  FOR s!"[Q] CONTINUE !" CONTINUE !"X CONTINUE !"T CONTINUE  STEP  MERGE ABS * CONTINUE #" CONTINUE  GO SUB [ CONTINUE PI GO SUB R IF  BEEP !d RESTORE !U▚ MOVE # GO SUB S/ CONTINUE "^ CONTINUE */ CONTINUE  RESTORE ! MOVE  FOR s*/ CONTINUE #"/ CONTINUE  GO SUB [^ CONTINUE PI GO SUB R IF p BEEP !" DIM !" CONTINUE ! RESTORE !g MOVE # GO SUB S/ CONTINUE "^ CONTINUE !d RESTORE * CONTINUE  MOVE  RESTORE !VAL  GO TO  RESTORE */ CONTINUE  MOVE ~o& MOVE  FOR s* DIM  RESTORE ! MOVE PI FOR  GO SUB R" DIM * CONTINUE  RESTORE ! MOVE " CONTINUE * DIM  RESTORE ! MOVE PI GO SUB RCHR$  DRAW  BEEP !" DIM * CONTINUE  RESTORE !2 MOVE " CONTINUE */ CONTINUE #"/ CONTINUE  GO SUB [^ CONTINUE PI GO SUB R IF PI BEEP !T[S] RESTORE ! MOVE  FOR s!SGN AT  STEP  INVERSE  SAVE "v/ STEP  INK  BORDER !▟/ RESTORE !z MOVE  FOR s STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT F CIRCLE  ! CLEAR > CIRCLE  STEP s LIST !"} STEP Y IF ! RESTORE ! MOVE # GO SUB S DIM " DIM  STEP o IF * DIM  RESTORE ! MOVE  STEP  SAVE  PLOT  NOT x CIRCLE 3w CIRCLE  STEP s LIST * DIM  RESTORE ! MOVE  STEP  SAVE  PLOT  NOT [A] CIRCLE 3 CIRCLE  STEP s LIST  STEP C RUN * DIM #" DIM  GO SUB 
  23314 GO SUB R IF f CIRCLE  STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT <= CIRCLE #! CLEAR $PEEK  CIRCLE  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  > BEEP !} BEEP > BEEP !} BEEP NOT  PRINT  CIRCLE %&'()*+ INPUT  CIRCLE  STEP s LIST ! MOVE  STEP  SAVE  PLOT  NOT  INK ,-./012 INK  STEP s LIST  STEP C RUN  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF ! RESTORE ! MOVE # GO SUB S DIM " DIM  STEP o IF * DIM  RESTORE ! MOVE  STEP  SAVE  PLOT  NOT X INK & CLEAR Q INK  STEP s LIST  STEP C RUN * DIM #" DIM  GO SUB [ DIM PI GO SUB R IF @ INK <> STEP BIN  BORDER !▟/ RESTORE !M MOVE  FOR s STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT [M] INK  ! CLEAR [E] INK  STEP s LIST !"} STEP Y IF  STEP C RUN  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF ! RESTORE ! MOVE # GO SUB S DIM " DIM  STEP o IF * DIM  RESTORE ! MOVE  STEP  SAVE  PLOT  NOT  CLS  INK #> CLEAR $ PAUSE  INK  STEP s LIST  STEP C RUN * DIM #" DIM  GO SUB [ DIM PI GO SUB R IF  LLIST  INK  STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT 2 PAPER %& CLEAR ') PAPER  STEP s LIST  STEP C RUN <> STEP BIN  BORDER  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT | PAPER > CLEAR u PAPER  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT [K] PAPER >()*+,>[D] PAPER  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT LN  PAPER >->>>.>LEN  PAPER  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT  VERIFY  PAPER >/>>>0> CAT  PAPER  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT  POKE  PAPER >1>>>2> GO SUB  PAPER  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT  FLASH >34567> FLASH  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT 0 FLASH > CLEAR ) FLASH  STEP s LIST  STEP C RUN  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  * LPRINT  CONTINUE } STEP Y IF * LPRINT  CONTINUE  RESTORE ! MOVE } STEP Y IF * LPRINT  CONTINUE  RESTORE ! MOVE } STEP Y IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  * LPRINT  CONTINUE  RESTORE ! MOVE } STEP Y IF * LPRINT  CONTINUE  RESTORE ! MOVE } STEP Y IF * LPRINT  CONTINUE  RESTORE ! MOVE } STEP Y IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  * LPRINT  CONTINUE  RESTORE ! MOVE } STEP Y IF * LPRINT  CONTINUE  RESTORE ! MOVE } STEP Y IF * LPRINT  CONTINUE  RESTORE ! MOVE } STEP Y IF  STEP C RUN <>!▟/ RESTORE !H MOVE  FOR s* CONTINUE  RESTORE ! MOVE ~o&" DIM !7" DIM  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP [G] BRIGHT * CONTINUE  RESTORE ! MOVE ~o&" DIM !&" DIM  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP [G] BRIGHT * CONTINUE  RESTORE ! MOVE ~o&" DIM !" DIM  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP [G] BRIGHT ! STEP  LLIST  IF !P STEP  LLIST  IF  LOAD 8!( STEP  LLIST  IF  STEP  SAVE <>!"  DIM !NOT  RESTORE ! PRINT  MOVE # GO SUB S DIM " DIM * DIM  RESTORE *  DIM  MOVE PI GO SUB R PAUSE  CONTINUE  BRIGHT  STEP c IF * DIM  RESTORE * DIM  MOVE KE STEP  OUT " INK  RESTORE  INK  STEP c IF ! STEP  LLIST  IF ! STEP CHR$  GO SUB  STEP  LLIST  IF  STEP w$ INK  LLIST  INK NOT U INVERSE * DIM  RESTORE * DIM  MOVE KE STEP  DEF FN " STEP [J]`i RESTORE ! MOVE PI GO SUB RCHR$  INVERSE NOT U INVERSE  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP c IF * DIM  RESTORE * DIM  MOVE KE STEP  OUT " INK  RESTORE  INK  STEP c IF ! STEP  LLIST  IF ! STEP CHR$  GO SUB  STEP  LLIST  IF  STEP w$ INK  LLIST  INK  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF *  DIM  RESTORE ! MOVE "  DIM * DIM  RESTORE ! MOVE " DIM * DIM #" DIM  GO SUB [ DIM PI GO SUB R IF AT  BRIGHT <>* CONTINUE  RESTORE * CONTINUE  MOVE PI GO SUB RCHR$ [A] INVERSE NOT 8 OVER * SAVE  BORDER  RESTORE ![A] MOVE PI GO SUB R PAUSE [R] INVERSE NOT 8 OVER * CONTINUE  RESTORE ! MOVE " CONTINUE *x/"v/ STEP  NEXT  RESTORE !  MOVE  STEP f GO SUB "LN  CONTINUE *LN  CONTINUE  RESTORE ! MOVE PI GO SUB R PAUSE  ERASE  INVERSE NOT  OVER  STEP  NEXT  RESTORE !▞ MOVE  STEP f GO SUB  RESTORE ! MOVE " CIRCLE  CONTINUE !" CLOSE # CONTINUE ! " BRIGHT  CONTINUE *LN  CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$  OVER !" FORMAT  CONTINUE *LN  CONTINUE  RESTORE ! MOVE PI GO SUB RCHR$  OVER !/" FORMAT  CONTINUE NOT 5 OVER !L" CIRCLE  CONTINUE !" FORMAT  CONTINUE ! " CLOSE # CONTINUE !" BRIGHT  CONTINUE  STEP IN  OR <>!6/ RESTORE *4 CONTINUE  MOVE  FOR s!7/ RESTORE *8 CONTINUE  MOVE  FOR s! " LPRINT  CONTINUE ! RESTORE ! MOVE # GO SUB S/ CONTINUE "^ CONTINUE ! RESTORE ! MOVE # GO SUB S` CONTINUE "b CONTINUE  STEP o IF */ CONTINUE  RESTORE *` CONTINUE  MOVE  STEP  SAVE  PLOT  * LPRINT  CONTINUE } STEP Y IF  STEP C RUN * LPRINT  CONTINUE  RESTORE ! MOVE " LPRINT  CONTINUE *` CONTINUE #"` CONTINUE  GO SUB [b CONTINUE PI GO SUB R IF s OVER */ CONTINUE #"/ CONTINUE  GO SUB [^ CONTINUE PI GO SUB R IF c OVER !▟/ RESTORE ! MOVE  FOR s!8X RESTORE ! SAVE X MOVE # GO SUB S/ CONTINUE "^ CONTINUE */ CONTINUE  RESTORE */ CONTINUE  RESTORE ! MOVE  MOVE # GO SUB S` CONTINUE "b CONTINUE *` CONTINUE  RESTORE *< CONTINUE ~o& MOVE  FOR s*< CONTINUE  RESTORE ! MOVE "< CONTINUE *` CONTINUE #"` CONTINUE  GO SUB [b CONTINUE PI GO SUB R IF  DIM  OVER */ CONTINUE  RESTORE ! MOVE "/ CONTINUE */ CONTINUE #"/ CONTINUE  GO SUB [^ CONTINUE PI GO SUB R IF  OPEN # OVER <>!"$ DIM ! RESTORE ! NEXT  MOVE # GO SUB SSGN  CONTINUE "PEEK  CONTINUE !V▚ RESTORE *SGN  CONTINUE  RESTORE ! MOVE  STEP J GO SUB  MOVE "USR  CONTINUE *USR  CONTINUE  RESTORE ! MOVE ~o& RESTORE * CONTINUE  MOVE PI GO SUB RCHR$ [C] OUT *USR  CONTINUE ~o& RESTORE ! MOVE PI GO SUB R LINE [C] OUT *$ DIM  RESTORE ! MOVE "$ DIM *SGN  CONTINUE #"SGN  CONTINUE  GO SUB [PEEK  CONTINUE PI GO SUB R IF H OUT *$ DIM  RESTORE ! MOVE PI GO SUB R PAUSE TAN  OUT NOT y READ *$ DIM  RESTORE ! MOVE PI GO SUB RCHR$  OR  OUT NOT y READ  STEP  NEXT  RESTORE ! MOVE  STEP f GO SUB "( DIM *( DIM  RESTORE *$ DIM  MOVE PI GO SUB R IF  DATA  OUT NOT y READ !▟/ RESTORE ! RANDOMIZE  MOVE  FOR s STEP [K] BORDER  STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT  LPRINT ZULUSSKIJ LPRINT  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT + LPRINT   POLK   " LPRINT  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT K LPRINT  RAZBIT  B LPRINT  STEP s LIST  STEP C RUN !d STEP <= POKE  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF ! RESTORE ! NEXT  MOVE # GO SUB SSGN  CONTINUE "PEEK  CONTINUE !V▚ RESTORE *SGN  CONTINUE  RESTORE ! MOVE  STEP J GO SUB  MOVE "USR  CONTINUE *USR  CONTINUE  RESTORE ! MOVE ~o& RESTORE * CONTINUE  MOVE PI GO SUB R LINE TAB  LPRINT NOT  LET  STOP *USR  CONTINUE ~o& RESTORE ! MOVE PI GO SUB RCHR$ CHR$  LPRINT NOT  LET  STOP !$d RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o&DM LLIST  MOVE  RESTORE i` RESTORE !P MOVE  STEP J GO SUB  MOVE " DATA  CONTINUE *USR  CONTINUE  RESTORE ! MOVE ~o& RESTORE *$ CONTINUE  RESTORE !DM LLIST  MOVE PI FOR  GO SUB R RESTORE i` MOVE " DIM *USR  CONTINUE  RESTORE ! MOVE ~o& RESTORE *  CONTINUE  RESTORE !DM LLIST  MOVE PI FOR  GO SUB R RESTORE i` MOVE " DIM *USR  CONTINUE  RESTORE ! MOVE ~o& RESTORE *  CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R MOVE PI GO SUB R LINE g LLIST  IF g LLIST NOT SCREEN$  STOP *USR  CONTINUE  RESTORE ! MOVE ~o& RESTORE *  CONTINUE  RESTORE ! MOVE  MOVE PI GO SUB R PAUSE ▖ LLIST NOT SCREEN$  STOP *USR  CONTINUE  RESTORE ! MOVE ~o& RESTORE *$ CONTINUE  RESTORE ! MOVE  MOVE PI GO SUB R PAUSE POINT  LLIST NOT SCREEN$  STOP *USR  CONTINUE  RESTORE ! MOVE ~o& RESTORE *$ CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R MOVE PI GO SUB R LINE  FORMAT  LLIST  IF  FORMAT  LLIST NOT SCREEN$  STOP !▟/ RESTORE ! CONTINUE  MOVE  FOR s STEP CODE  BORDER  STEP o IF * DIM  RESTORE * DIM  MOVE  STEP  SAVE  PLOT  *USR  CONTINUE ~o&} STEP Y IF  STEP C RUN ! RESTORE ! MOVE # GO SUB S DIM " DIM ! STEP  LLIST  IF !P STEP  LLIST  IF  LOAD 8* DIM  STEP  LLIST  IF  STEP  SAVE * DIM #" DIM  GO SUB [ DIM PI GO SUB R IF  STOP !▟/ RESTORE !0 MOVE  FOR s!▟/ RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s STEP o IF * DIM  RESTORE * DIM  MOVE  STEP  SAVE  PLOT  *USR  CONTINUE  RESTORE ! MOVE ~o&} STEP Y IF  STEP C RUN * DATA  CONTINUE  RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s* DATA  CONTINUE  RESTORE ![Q] MOVE  RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s*USR  CONTINUE  RESTORE ! MOVE  FOR s* DATA  CONTINUE  RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s* DATA  CONTINUE  RESTORE ![Q] MOVE  RESTORE *USR  CONTINUE  RESTORE ! MOVE ~o& MOVE  FOR s*USR  CONTINUE  RESTORE ! MOVE  FOR s* SAVE  BORDER  RESTORE ! MOVE PI FOR  GO SUB R" SAVE  BORDER *SGN  CONTINUE #"SGN  CONTINUE  GO SUB [PEEK  CONTINUE PI GO SUB R IF ~ LPRINT  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT - READ   CLEAR $ READ  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT M READ   CLEAR D READ  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT m READ   CLEAR d READ  STEP s LIST  STEP C RUN <> STEP [K] BORDER !k/ RESTORE ! MOVE  FOR s STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT SQR  READ  INT  READ  STEP s LIST !* FOR  RESTORE * CONTINUE  RESTORE ! MOVE  STEP J GO SUB  MOVE  RESTORE !* FOR  RESTORE * CONTINUE  RESTORE ! MOVE  STEP J GO SUB  RESTORE !DM LLIST  MOVE  RESTORE i` MOVE  MOVE # GO SUB S/ CONTINUE "^ CONTINUE  STEP o IF */ CONTINUE ~o&} STEP Y IF */ CONTINUE #"/ CONTINUE  GO SUB [^ CONTINUE PI GO SUB R IF  DRAW  READ !k/ RESTORE ! MOVE  FOR s<> STEP [K] BORDER  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF !n STEP  INVERSE  SAVE "v/<>!▟/ RESTORE ! MOVE  FOR s STEP [K] BORDER !} STEP [L]" STEP c IF  STEP k STEP o IF ! CONTINUE " CONTINUE  STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT ▛ DATA  POBEDA  BRITANII! x DATA  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT SQR  DATA Armiq zulusow razbita    [S] DATA  STEP s LIST  STEP C RUN NOT M RESTORE !▟/ RESTORE ! MOVE  FOR s STEP [K] BORDER !} STEP [L]" STEP c IF  STEP k STEP o IF !" CONTINUE  STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT USY POBEDILI! RETURN  DATA  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT A RESTORE Britanskaq armiq poravena   % RESTORE  STEP s LIST  STEP C RUN  STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  > BEEP !} BEEP NOT z RESTORE Kone~nyj s~et  CLEAR f RESTORE  STEP s LIST * CONTINUE  RESTORE ! MOVE PI FOR  GO SUB R RESTORE !2 MOVE  STEP J GO SUB  RESTORE * CONTINUE  RESTORE * DRAW  BORDER DM LLIST  MOVE  RESTORE i` RESTORE ! MOVE  STEP J GO SUB  RESTORE * CONTINUE DM LLIST  MOVE PI FOR  GO SUB R RESTORE i` MOVE  STEP @ NEXT  STEP C RUN  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT  DRAW  RESTORE Britanskie poteri    CONTINUE  RESTORE  STEP s LIST * DRAW  BORDER  STEP @ NEXT ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT - NEW Poteri zulusow  CLEAR  NEW  STEP s LIST * CONTINUE  STEP @ NEXT  STEP C RUN  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT ▞ NEW ▛ CLEAR ▜r NEW  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT [R] NEW [Q] NEW  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT EXP  NEW LN  NEW  STEP s LIST ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT  BORDER  NEW ▙ CLEAR ▟ FORMAT  NEW  STEP s LIST  STEP C RUN  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF  STEP o IF ! RESTORE ! MOVE  STEP  SAVE  PLOT  NOT @ BORDER  KLAWI'A 7 BORDER  STEP s LIST  STEP C RUN  STEP M> BEEP !} BEEP  STEP TAB  STEP o IF ! STEP  LLIST  IF ! STEP  LLIST  IF  LOAD 8! STEP  LLIST  IF  STEP  SAVE  STEP  RETURN  STEP  NEW  CLEAR  STEP NOT ▗ BORDER ▗ BORDER  STEP  STEP TAB  RETURN CHR$ [J] BORDER NOT u BORDER <>!6/ RESTORE !$ MOVE  FOR s!7/ RESTORE !` MOVE  FOR s<>!6/ RESTORE ! MOVE  FOR s!7/ RESTORE ![D] MOVE  FOR s<>!6/ RESTORE ! MOVE  FOR s!7/ RESTORE ![G] MOVE  FOR s<>!6/ RESTORE ! MOVE  FOR s!7/ RESTORE ![J] MOVE  FOR s<><><> CLEAR  INK  CLEAR 2RwC4P2M1MoCzdTcT1JncBxByB6DyC3D3PhCnLxLmLyLeNuZrD2To1RcLcM2P1P2D4DpgPiLeMcmoLlySxSxAyArTyZxZjixNyNxTyTpMdTcToGcD1RbTaTtP1T3P2DpM3D2T8Dij1Dy CLEAR d"! FOR  STEP o IF  STEP k STEP o IF , FOR > STEP s LIST > BEEP *SIN /#6# STEP ATTR  FOR  STEP SCREEN$  POKE > BEEP *( FOR " FOR  STEP  OR  FOR  STEP SCREEN$  POKE : FOR G LIST   RANDOMIZE  PRINT > STEP Y IF  STEP Y IF  STEP Y IF l FOR  STEP s LIST > STEP Y IF z FOR  STEP s LIST *( FOR  GO SUB [SIN / GO SUB R STEP P NEXT  FOR  STEP s LIST > STEP Y IF [E] FOR  STEP s LIST *SIN / STEP P NEXT > STEP Y IF  STEP Y IF  STEP Y IF , FOR > STEP s LIST  GO SUB K( FOR  STEP  SAVE  LET  CAT  COPY  OPEN #_ CLOSE #_ DIM  OPEN #_# BRIGHT k[E][U]INKEY$[A] CLEAR  General %elmsford  CLEAR Korolewskij dragunskij polk   17-j Ulanskij polk  CLEAR Britanskaq kawaleriq  CLEAR 80-j polk  CLEAR 90-j pehotnyj polk  CLEAR 113-j pehotnyj polk  CLEAR 94-j polk  CLEAR 124-j polk  CLEAR 58-j polk  CLEAR 221-j strelkowyj polk  CLEAR Tuzemnyj kontingent  CLEAR Kolonialxnye wolxnonaemniki     FOR  STEP t LET . STEP w LET !+ GO SUB NOT r LET CODE w# DRAW   RUN ! "( FOR *e/d" FOR " FOR <> FOR z RETURN ( THEN J{ FOR ! THEN 90 FOR ) FOR  PRINT <> FOR {SIN  NOT  INPUT  STEP SIN  GO SUB  OR KB MERGE  FOR #) FOR )y[F]x[M] FOR 0 PLOT   FOR  FOR CODE |g}oTAN ( FOR CODE  THEN  THEN y[F]x[M] IF ▜ GO SUB y[F]Ox[M]G READ  READ  INVERSE  LLIST STR$  THEN xCHR$ CHR$  GO SUB <>D| BRIGHT CHR$  GO SUB  FOR |FN G THEN |CHR$ CHR$  GO SUB <>|/g}/o#<>!ATN NOT r LET CODE = THEN |CHR$  INPUT }l&@ GO SUB R0? THEN ▜ GO SUB j▜ GO SUB j LIST /jgW<<> MERGE  CLEAR  THEN U RETURN >? STEP Y IF  CLEAR  THEN UPEEK * FOR 6<>![K]7 STEP ASN  MOVE ! INPUT r CAT  RESTORE  GO SUB K( FOR y RETURN (* FOR T]6  GO SUB VAL > STEP Y IF >2' FOR  STEP Y IF >" STEP Y IF  STEP 2 LOAD  STEP ▟ LOAD  GO SUB [( FOR * FOR  STEP w IF  RETURN  LINE  LOAD  RETURN (Z RETURN  LINE S LOAD  RETURN  LINE S LOAD  RETURN  :j/ INPUT 2j/ STEP ) LOAD  INK  RETURN  :A/ INPUT 2A/ STEP ) LOAD >= RETURN  8  RETURN RND0 PRINT { RETURN (ySQR 8 LET  LET  STEP Y IF w# STEP 2 LOAD  STEP ▟ LOAD [U]>? STEP INKEY$ LOAD  STEP ▟ LOAD [K]y RETURN  LINE S INPUT +~ RETURN (- RETURN ()6 > STEP Y IF > STEP Y IF >  STEP Y IF  STEP Y IF > STEP Y IF  STEP Y IF  STEP Y IF  STEP 2 LOAD  STEP ▟ LOAD NOT S INPUT  INPUT 2' FOR 6 +6 >? STEP INKEY$ LOAD  STEP ▟ LOAD NOT S INPUT >" STEP Y IF >  STEP Y IF  LLIST  STEP L PAUSE q#px RETURN  y RETURN >=* FOR  GO SUB VAL <> STEP 2 LOAD > STEP Y IF <>:A/ RETURN  :j/ THEN _(>C>L RETURN CHR$ CODE  INPUT >G STEP INKEY$ LOAD <> THEN [H] PRINT 2' FOR ySQR 8 LET NOT CODE  INPUT 6#ySQR 8 LET NOT CODE  INPUT > STEP Y IF  LET  STEP Y IF w#> STEP Y IF :' FOR  STEP Y IF  STEP 2 LOAD  STEP ▟ LOAD NOT S INPUT > STEP Y IF :' FOR  STEP Y IF >" STEP Y IF > STEP Y IF  STEP Y IF <> CLEAR  THEN U RETURN  STEP Y IF  CLEAR  THEN UPEEK <> OR  CLEAR  THEN U RETURN >L STEP Y IF > STEP Y IF  CLEAR  THEN UPEEK  STEP w IF  RETURN (. RETURN (e RETURN +( RETURN -( RETURN 0 PAPER ^ LIST  RETURN : ERASE ^ LIST STR$  OR  PRINT y RETURN  n LET  STEP Y IF STR$ * FOR w OR EXP * FOR STR$ 6! RESTORE * FOR ~ RETURN ( RETURN +( RETURN -( RESTORE )) MOVE _ RESTORE  OVER * FOR ~ RETURN - LLIST  TO CHR$  GO SUB <>STR$  OR y RETURN  LINE ACS  LOAD >  STEP Y IF > STEP Y IF  STEP Y IF >  STEP Y IF > STEP Y IF STR$  OR NOT ACS  LOAD  LET  CLEAR  THEN U RETURN >? STEP Y IF  CLEAR  THEN UPEEK > STEP Y IF NOT >= LOAD xLEN >= STEP Y IF  PRINT  MERGE  RESTORE *( FOR w#"( FOR  GO SUB [[ REM PI GO SUB R ERASE  IF  GO SUB  LLIST  MOVE CODE <>CODE  PRINT  STEP  IF  STEP ▘ PAUSE  RETURN +( RETURN -( RETURN *( RETURN /CHR$ 2 LET > RESTORE  STEP ~ LIST  STEP [F] PAUSE  PRINT  STEP  IF  LET  RETURN +( RETURN - #STR$ gx RETURN   PRINT  RESTORE  TO  RESTORE !DM STEP w LET  STEP  RESTORE  LIST > RESTORE !i` STEP t LET LN  PRINT  OR  RETURN /( RETURN *CHR$  SAVE  GO SUB  STEP - LET !J GO SUB  STEP r LET [Q] STEP - LET !f GO SUB  NEXT > LLIST  STEP ~ LIST  LET  RETURN >= RETURN +( STEP - LET !PI FOR  STEP w LET ! GO SUB R STEP w LET  BORDER  STEP - LET > STEP ~ LIST  INVERSE > MOVE NOT ~ LIST  RETURN )  CLOSE # STEP [F] PAUSE  CAT ! STEP [F] PAUSE  RETURN ( PRINT  STEP J GO SUB  LET  RETURN : ERASE  SAVE  GO SUB  RETURN 0 PAPER  SAVE  GO SUB  VERIFY 0O FLASH  RESTORE *]/"]/ LLIST <>> STEP  STEP ~ LIST } STEP ~ LIST |NOT ~ LIST V#^ MERGE  FOR  RESTORE "l/"I/ STEP C RUN  STEP @ NEXT >  STEP Y IF  LLIST  STEP Q PAUSE  FOR  MOVE  STEP G PAUSE  GO SUB [( FOR  STEP G PAUSE  RESTORE  GO SUB [ FOR PI GO SUB R LLIST  CIRCLE " FOR >= GO SUB [SIN /PI GO SUB R CIRCLE  STEP  INPUT  RETURN  DATA >= GO SUB K( FOR  STEP  SAVE  LET :* FOR  RETURN  CIRCLE (/ STEP t LET ! SAVE  LET NOT r LET ! GO TO  LET NOT r LET >© FLASH  RETURN  CIRCLE  STEP T CIRCLE  CAT  OR  STEP o IF STR$ *▖/ RESTORE *▗/ RESTORE  OR > BEEP CODE  BEEP > BEEP  CLEAR  THEN U PLOT  , FOR  STEP s LIST > BEEP CODE  BEEP > BEEP  LLIST  STEP P NEXT  CLEAR  THEN UACS  LLIST "▗/ LLIST "▖/ STEP  GO TO  LET  RETURN  RETURN  GO SUB h THEN  CIRCLE !|ASN >=+ IF s#r#<>^#V#<> RESTORE STR$ *! FOR # STEP L PAUSE  FOR PI GO SUB B FORMAT * FOR  GO SUB R CIRCLE  FOR # GO SUB >NOT  PRINT  STEP [F] PAUSE  STEP ; LET  STEP Q PAUSE  FOR  STEP L PAUSE  FOR  LET NOT t LET > STEP  DIM *]/#~ RETURN : > RETURN USR  STEP [F] PAUSE  GO SUB  RESTORE *]/#~ RETURN  ( IF "]/ RETURN ( RETURN 8 CONTINUE  RETURN :( PRINT  STEP Y IF  LET  LLIST  RETURN :USR ><>! MERGE  PAUSE  STEP r LET >2+ FOR  STEP [F] PAUSE  STEP  PRINT  PRINT ! STOP  PAUSE NOT r LET > STEP  STEP D2/2▛/ STEP o IF :k/G STEP D/ STEP  MERGE  PAUSE  STEP D[v/c. CLEAR zATN  GO SUB R[I] GO SUB R[I]_P GO SUB R0#"v/ THEN SGN DM<> STEP ▘ PAUSE  RETURN ( STEP  IF >*!x/ STEP t LET >"!v/NOT t LET  RESTORE  MERGE  THEN |(>- STEP Y IF  STEP CHR$  GO SUB  RESTORE  MERGE ' STEP  NEXT 0 CONTINUE  STEP  NEXT 0d STEP  NEXT 0 STEP  NEXT 0 STEP [F] NEXT  CONTINUE  STEP [F] NEXT d STEP [F] NEXT  STEP [F] NEXT  STEP [F] NEXT  MOVE  LLIST <> RESTORE PI GO SUB R LLIST <>>0PI GO SUB R8< RANDOMIZE NOT Y IF  STEP [F] PAUSE  STEP R RUN >! STEP t LET > GO SUB  STEP ~ LIST >[! FOR  STEP t LET !G PAUSE  STEP r LET  STEP [I] LIST ! LINE  NEXT NOT r LET )# RESTORE  RESTORE STR$ * FOR  RESTORE  RESTORE CODE  GO SUB J8T]*SIN /% GO SUB R0STR$ STR$ STR$  STEP  INPUT  MOVE  LLIST 6STR$  GO SUB VAL  GO SUB S FOR <> RESTORE  STEP  IF ! GO SUB K STEP w LET  LLIST  STEP w LET !)NOT w LET  STEP  SAVE  NEXT > MERGE  STEP ~ LIST !L PAUSE  STEP r LET ! FOR  MOVE NOT w LET  STEP [F] PAUSE  STEP R RUN  RESTORE  RESTORE >* STEP t LET !#" STEP w LET  LLIST  STEP w LET ##> GO SUB  STEP ~ LIST >[ STEP t LET >PI! GO SUB R STEP t LET > IF  LLIST  STEP L PAUSE  FOR  STEP t LET <> STEP [F] PAUSE  STEP R RUN  RESTORE  RESTORE  STEP [F] PAUSE  STEP  LET  RANDOMIZE ># STEP ~ LIST ! GO SUB S STEP w LET  LLIST  STEP w LET >"## STEP t LET  LLIST  GO SUB [( FOR  STEP G PAUSE <> STEP  LET  RANDOMIZE  STEP  POKE ! FOR sNOT w LET  RETURN ,CHR$  SAVE  GO SUB <>* FOR 6#6'# GO SUB [( FOR  STEP G PAUSE  STEP SCREEN$  POKE  LLIST <>><>NOT ~ LIST !c IF  STEP r LET !k STEP r LET !o IF NOT r LET !AT |BIN  INPUT  RESTORE STR$ NOT = STEP [I] LIST !<= POKE NOT r LET *]/#~ RETURN  ( IF  RETURN (( PLOT   RETURN INKEY$ LINE P RETURN  RETURN CHR$  LINE P RETURN  RETURN " LINE P RETURN #~ RETURN $ LINE P RETURN  STEP  LET  RANDOMIZE  RETURN  OR  !© PRINT  STEP r LET > ERASE I RETURN  AND  !w PRINT  LIST  PRINT >PI! GO SUB R STEP t LET  LET  RETURN = >CHR$ NOT Y PRINT  RETURN <> > LINE NOT Y PRINT  RETURN >( RETURN < > LINE  STEP e PRINT  RETURN >= !( STEP w LET > PAUSE  RETURN <=CHR$  SAVE  GO SUB > IF  STEP e PRINT  STEP [F] PAUSE  RETURN  AND  LINE  BRIGHT  POKE <> STEP ~ LIST *I/# STEP Q PAUSE  FOR  STEP L PAUSE  FOR NOT w LET |ASN >=zCOS >=7<>|ASN (7<>zCOS >=7<> STEP [K] PRINT .K&E STEP w LET ! OUT "NOT r LET !c IF  STEP r LET  STEP [F] PAUSE  RETURN  INK 8 STEP  LOAD  IF  STEP [F] PAUSE  STEP [F] PAUSE  LET  STEP  IF  STEP [F] PAUSE  STEP  POKE NOT  RUN  RANDOMIZE  LET  STEP m CLEAR !s LIST  STEP r LET NOT  RUN  STEP L PAUSE  MERGE  STEP L PAUSE  MERGE STR$  MOVE <>!o IF  STEP r LET  STEP [F] PAUSE  RETURN  LINE + RUN  PRINT >2+ FOR  LET  STEP [F] PAUSE  RETURN  LINE 1 RUN  RETURN " LINE [I] PLOT   RETURN ' LINE H RUN  RETURN , LINE  RUN  RETURN ; LINE  GO SUB  PRINT  RETURN AT  TO  GO TO  PLOT   RETURN INKEY$(~ RETURN CHR$  LINE 3 RUN  RETURN TAB  TO  FLASH  PLOT   RETURN  INK  CLOSE # LOAD  IF  RETURN  LINE  RUN  PRINT :+ FOR  RETURN (@ LET  STEP R RUN  RETURN ( RESTORE  PRINT !SIN  LOAD  STEP r LET  LET  LLIST  RETURN  "> FOR  STEP ~ LIST  STEP  SAVE  NEXT !G PAUSE  STEP r LET NOT  RUN >! STEP t LET  STEP [F] PAUSE ! INPUT  STEP r LET NOT  RUN >" STEP t LET NOT  RUN *]/#~ RETURN $ LINE PEEK  PRINT  LET ▖ PLOT   OR  OR [N] LIST  OR NOT  IF !@ NEXT  STEP r LET p! NEW  CLEAR  STEP r LET ( STEP [T] PLOT  !s LIST  STEP r LET ]>NOT  STEP ~ LIST *( FOR  RESTORE  STEP w LET  COPY  COPY *]/#~ STEP Y IF  RETURN "( STEP ~ LIST  LET "]/ LLIST  OR  GO SUB [( FOR  STEP G PAUSE > STEP t LET > LLIST NOT t LET  STEP [I] LIST ! DATA  PLOT  NOT r LET > BEEP } BEEP | BEEP <> STEP  LET  RANDOMIZE  STEP  POKE ! SAVE  PLOT  NOT r LET > BEEP { BEEP } BEEP <> STEP [F] PAUSE  RETURN , >>.& BEEP  STEP t LET NOT  GO SUB  PRINT  RETURN ; LINE  GO SUB  PRINT  RETURN + LINE  GO SUB  PRINT  RETURN 'CHR$ + RUN !C RUN  STEP r LET NOT  GO SUB  PRINT !C RUN  STEP r LET CODE <> STEP  IF >} STEP ~ LIST !Y IF  STEP r LET ABS >NOT Y IF !C RUN  STEP r LET CODE NOT  GO SUB  PRINT  RETURN A PAPER  SAVE  GO SUB  THEN CODE  RETURN [ ERASE  SAVE  GO SUB [*]/#~ RETURN 08 RETURN :8 RETURN A80 STEP [F] PAUSE  THEN CODE  LPRINT  RETURN (2 FOR ( RETURN $  THEN  LOAD  STEP SIN  RUN &o)) GO SUB K FOR G: FOR  RETURN $( RETURN ( CODE <>x<>><>!Z REM [CODE 2 FOR PEEK   THEN o : THEN n + LIST  THEN n+( CLS [ RESTORE ! FOR 4 LINE  INPUT  LLIST ~ RETURN   CIRCLE w+ RESTORE  GO SUB [[ REM  GO SUB R PAPER  INPUT  LLIST  THEN o( FOR CODE w" FOR : FOR  STEP [F] RUN  RETURN  >! STEP t LET ! SAVE  STEP r LET : FOR ! FOR FLN  CIRCLE w<> RESTORE  STEP L PAUSE zCOS  LLIST USR  GO SUB [ FOR  STEP G PAUSE  STEP G PAUSE *( FOR  GO SUB [ FOR " FOR T]*SIN /% GO SUB R FORMAT  STEP  INPUT  STEP [F] PAUSE  STEP R RUN  RETURN  LINE  INVERSE  DRAW  RETURN   STEP  SAVE  NEXT > RESTORE  STEP ~ LIST & COPY  RESTORE  STEP [F] PAUSE  RETURN =CHR$  SAVE  GO SUB  STEP [I] LIST  STEP 1 RUN  LLIST | RETURN  COPY  ! MOVE  FOR  STEP w LET !G PAUSE NOT r LET >"NOT t LET  RETURN PEEK   STEP  IF !~o STEP w LET !&NOT w LET  RETURN USR  C STEP [F] PAUSE  RETURN "( STEP  IF ! INVERSE  SAVE NOT r LET  STEP [F] PAUSE  THEN CODE  VERIFY A PAPER  SAVE  GO SUB &o> STEP t LET >*!{/ STEP t LET  STEP [F] PAUSE  RETURN "CHR$  SAVE  GO SUB >NOT ~ LIST  READ  SAVE  OR  RESTORE <>`i<> RETURN CODE CHR$  RANDOMIZE ! FOR >* STEP t LET > RESTORE  STEP ~ LIST . COPY  STEP 8 CLEAR > MOVE  STEP ~ LIST ! RANDOMIZE NOT r LET * FOR  GO SUB S FOR CODE  GO SUB Rgo>=o<> RETURN RNDCHR$ # RANDOMIZE ! NEXT NOT r LET  RETURN ABS   STEP  IF ! THEN | STEP w LET >BIN !CHR$  GO SUB NOT t LET  RETURN INT  LINE  IF  RETURN LEN CHR$ ] RANDOMIZE  STEP [F] PAUSE  STEP R RUN  STEP [F] PAUSE >! STEP t LET !V RANDOMIZE NOT r LET ## STEP L PAUSE  FOR <> RETURN SGN   STEP  IF !j RANDOMIZE NOT r LET |ASN >= THEN |.&CHR$ CHR$  GO SUB <> RETURN IN CHR$ [D] RANDOMIZE  STEP  IF > RESTORE  STEP ~ LIST >STR$ &h. GO SUB  STEP t LET !&NOT w LET  RETURN SQR   STEP  IF ! FORMAT  GO SUB NOT r LET  RETURN ATTR  "!% RESTORE  STEP [F] PAUSE  STEP  LET  RANDOMIZE .K&E STEP w LET  LLIST  STEP r LET ![J] STEP r LET .`&iNOT w LET  RETURN POINT  ! DEF FN "NOT PI RANDOMIZE  RETURN BIN CHR$  SAVE  GO SUB  STEP [F] PAUSE  RETURN 0 POKE  STEP  SAVE  GO SUB >!&j STEP t LET NOT e LET  STEP [I] LIST  STEP [F] PAUSE  PRINT > RESTORE  STEP ~ LIST  STEP [I] LIST > MOVE  STEP ~ LIST  LET <> STEP [F] PAUSE  RETURN - PRINT  TO [F] PAUSE  RETURN (( RETURN RND0 RETURN A CLOSE #5 IF  BRIGHT B IF  LET  TO / IF <> STEP  SAVE  PLOT   STEP [I] LIST  LET !CHR$  GO SUB NOT r LET  STEP R RUN  RETURN  LINE  POKE >*NOT t LET  STEP ; LET >!NOT t LET N#F#:K/[N]USR :L/[M]<> RESTORE  MERGE  OR  PRINT  BEEP  LET STR$  MOVE  LLIST <> STEP o IF :[A]/ PLOT   SAVE 2[A]/<>> STEP NOT M CLEAR  THEN VAL$  CLEAR  THEN n( IF :/ RETURN  USR  STEP  PAUSE  LET > <>:/ RETURN  COPY  <<> STEP ▙0_ STEP 3<>><> STEP ABS  IF  STEP  POKE  STEP ABS  IF ! SAVE  STEP r LET NOT 1 RUN  STEP  IF ! LLIST  IF  STEP r LET  STEP [F] PAUSE  RETURN /USR  STEP  IF ! LLIST  IF  STEP r LET > LOAD .&8 STEP t LET NOT [F] PAUSE CODE _ THEN |( COPY ULGNOT ACS * VERIFY <>o>>& BEEP  STEP t LET  STEP [I] LIST .}& BEEP NOT w LET  STEP [I] LIST >} STEP ~ LIST ![L]"NOT r LET  STEP > CLS  STEP  POKE  STEP ABS  IF  RETURN  !w$ STEP r LET  STEP  POKE  STEP ABS  IF ![E]# STEP r LET > INK . LLIST & INK  STEP t LET NOT 1 RUN > INK . RESTORE & INK  STEP t LET !c IF  STEP r LET  STEP [F] PAUSE  RETURN  INK 8 STEP  LOAD  IF  STEP [F] PAUSE  LET  STEP  IF NOT USR  IF  STEP > CLS  STEP  POKE  STEP ABS  IF  STEP  POKE  STEP ABS  IF !-# STEP r LET EXP *l/# STEP Q PAUSE  FOR  STEP L PAUSE  FOR >NOT  STEP t LET *# FOR |ASN  *( FOR "# FOR *% FOR  GO SUB [( FOR  STEP G PAUSE  STEP [F] PAUSE  RETURN "  STEP [T] PLOT  ><> STEP ~ LIST  RETURN - PRINT  TO [F] PAUSE  STEP ; LET  LET  TO CHR$  GO SUB  STEP w LET  STEP [F] PAUSE  RETURN ( STEP  POKE > STEP ~ LIST  DEF FN CODE  STEP ~ LIST *( FOR "% FOR ! STEP w LET NOT 1 RUN  STEP [F] PAUSE  STEP ; LET  STEP Q PAUSE  FOR  STEP L PAUSE  FOR ###>! STEP t LET >"!% FOR NOT t LET  STEP [F] PAUSE  STEP R RUN  RESTORE  RETURN  !W DRAW  STEP r LET  LLIST > FOR  STEP ~ LIST  STEP  SAVE  NEXT !G PAUSE  STEP r LET ' RETURN   STEP [F] PAUSE !t DRAW  STEP r LET  LLIST >! STEP t LET !▛ DRAW  STEP r LET !W DRAW  STEP r LET  LLIST >" STEP t LET  STEP [F] PAUSE  RETURN  VAL NOT 1 RUN *% FOR |ASN  TO  INPUT  STEP L PAUSE  MERGE ~# RETURN   STEP L PAUSE  FOR "% FOR  LLIST <>![K] DRAW  RESTORE *% FOR |ASN  TO  INPUT ~ RETURN NOT BIN  INPUT  DIM  OR  MERGE  STEP L PAUSE  READ xLEN ( GO SUB VAL NOT 8 RETURN  MERGE  OR *% FOR ~# RETURN   STEP L PAUSE  FOR "% FOR STR$  MOVE <> STEP  LET  RANDOMIZE  STEP  POKE > MERGE  STEP ~ LIST >STR$ ! GO SUB iNOT t LET ! CIRCLE  DRAW  STEP r LET >2+ FOR  STEP [F] PAUSE NOT  PRINT  PRINT >NOT  RESTORE ! RETURN  STEP r LET  STEP [F] PAUSE  STEP ▘ PAUSE  RETURN (CHR$  CLEAR  LLIST  STEP s CLEAR ! MERGE  OR  STEP w LET !# CLEAR  STEP r LET  STEP [F] PAUSE  STEP 6 CLEAR !STR$  MOVE  STEP w LET !- CLEAR NOT r LET  STEP [F] PAUSE  STEP 6 CLEAR  LLIST >! STEP t LET ! RETURN NOT r LET * FOR ]T6 * FOR xLEN >= GO SUB VAL <>.+ RESTORE  STEP [F] PAUSE  RETURN (( RANDOMIZE  RETURN "  STEP [T] PLOT  NOT SGN  CLEAR  RETURN INKEY$ ! NEW  CLEAR  STEP r LET NOT SGN  CLEAR  RETURN CHR$   STEP  IF ! BRIGHT  CLEAR  STEP r LET NOT SGN  CLEAR  STEP m CLEAR NOT SGN  CLEAR  STEP R RUN  STEP [F] PAUSE  RESTORE  STEP ▘ PAUSE  RETURN ( 4 STEP [F] PAUSE  STEP [I] LIST *]/~ RETURN ) !]T STEP w LET  STEP [F] PAUSE  RETURN  TO CHR$  SAVE  GO SUB  STEP  RUN  RANDOMIZE ! RUN  CLEAR  STEP r LET  LLIST >! STEP t LET ! RETURN  CLEAR  STEP r LET <> LLIST >! STEP t LET ! THEN  PRINT  STEP r LET <>! STEP ▘ PAUSE  RETURN )( LLIST ABS USR  STEP [F] PAUSE NOT 6 CLEAR  STEP [F] PAUSE  FOR  STEP [F] PAUSE  READ " FOR  FOR <> STEP ▟ IF  FOR 2 FOR  RETURN >=<>PI GO SUB RDM<> MERGE  STEP L PAUSE  FOR  MOVE  FOR <>* FOR " FOR <>xLEN >=* FOR  FOR  GO SUB VAL  GO SUB S FOR <> RESTORE * FOR  GO SUB [ FOR PI GO SUB R RESTORE STR$  LLIST  STEP L PAUSE  OR  RESTORE xLEN (* FOR  GO SUB VAL  LLIST STR$ q#p<> STEP H RETURN " FOR " FOR <>* FOR > COPY w#<>! RETURN  STEP r LET  STEP 6 CLEAR  STEP [F] PAUSE  PRINT !> RETURN  STEP r LET  STEP 6 CLEAR !H RETURN  STEP r LET !TAB  RETURN  STEP r LET  LET  RETURN = >CHR$ NOT Y PRINT  RETURN <> > LINE NOT Y PRINT  RETURN > > LINE  STEP e PRINT  RETURN <( RETURN >= > PAPER NOT Y PRINT  RETURN <=CHR$  SAVE  GO SUB !( STEP w LET > ERASE NOT Y PRINT * FOR  GO SUB K FOR <4PEEK USR  RETURN >=# POKE  CLEAR > STEP Y IF  STEP [F] PAUSE  STEP [F] PAUSE  STEP R RUN  RESTORE  STEP [F] PAUSE  RETURN " PRINT ( STEP [F] PAUSE  RETURN  STEP |;; LLIST  FOR *=/s#r<>v STEP ▙{ RETURN  COPY   SAVE ::/ RETURN ( RETURN ( RETURN (<2▝/ CLEAR 6 COPY !2"B/!"D/;;NOT }NOT >  STEP Y IF  LLIST  STEP P NEXT >  STEP Y IF ^#V LET  RETURN (USR <>><BB~BB|B|BB|OOOWOWWWOOK^^ONNN CLEAR 91 CLEAR SSSSVVVS CLEAR VS CLEAR X CLEAR BB< CLEAR  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY  COPY