0 RANDOMIZE USR 16385: REM HELLO HACKERS ! NEXT CODE 2H/2=/ OPEN # RETURN >2▟/ STEP k! DRAW DIM GO SUB [ POKE / STEP =!1d GO SUB [ POKE / STEP =!▗g GO SUB [ POKE / STEP =!hIN GO SUB [ POKE / STEP =!RND GO SUB [ POKE / STEP = STEP ▗g STEP DRAW DIM STEP [O] CLOSE # CLEAR THEN n PRINT STEP INT CLOSE # LET ( PRINT STEP k STEP 1d STEP # REM !Hq GO SUB [ POKE /!Yt GO SUB [ POKE /NOT Yt.KING OF TIME
2 CLEAR 60142: RANDOMIZE USR 15619: REM : FORMAT "KingTime"xThis Loader Written By Me On 17.06.94 Look Next Text.▖`C AND cUSR c=?c1USR D DEF FN NEXT !cSTR$ [M].SCREEN$ 5619: REM : SAVE "KI" LINE 1 LINE ]`]`HELLO EVERYBODY!THIS IS MY LOADER 'KS.STARS-1' LOADER NOT PROTECTED. IF YOU HAVE NEWTAPE VERSION GAMES THEN CALL ME,PLEASE !T.(0172)71-67-33(YURA) HELLO FOR ALL MY FRIENDS! THANKS FOR M.CODER .! RETURN RETURN 6 COPY GO SUB VAL STEP ` REM >2 COPY COPY >NOT 2 POKE COPY !) REM " PRINT COPY > RETURN GO SUB G GO SUB ^<> GO SUB V STEP ` REM <> PRINT OR MERGE RESTORE INVERSE RESTORE STEP f REM INVERSE LLIST LLIST MOVE STR$ LET CLS COPY <>![M] INPUT NOT i REM NOT [U] FOR NEXT ~2 CIRCLE REM " FOR # STEP FOR <2 PAPER REM GO SUB S FORMAT REM STEP FOR GO SUB S ERASE REM MERGE STEP FOR GO SUB S CLOSE # REM ! STEP FOR FOR " VERIFY REM ! LLIST REM " FLASH REM ! STOP REM READ REM ,p GO SUB VAL LLIST !CODE STEP FOR =2 FOR REM 2 PRINT REM 2 COPY REM >2 INK REM #" DIM REM " NEXT REM " CLEAR REM STEP © INPUT CLS <>3 PAUSE s PAUSE VERIFY PAUSE ATN INPUT LLIST REM FORMAT PRINT FOR PRINT COPY t PAUSE COPY t PAUSE COPY t PAUSE COPY PEEK >=NOT FOR ^#V# FOR [M] INPUT FOR <>_▜_ INVERSE INVERSE ~ THEN ©J THEN wCHR$ ; FOR B NEW g INVERSE ^ INVERSE ~ PRINT NEW LIST W LET NEW o INVERSE THEN n>= THEN STOP <>: FOR O! PAPER REM PEEK PAPER e FOR CODE O<2 FOR i&) GO SUB [ FORMAT REM N#~2[U] GO SUB y* CLOSE # REM STEP FOR # STEP FOR GO SUB S FLASH REM STEP FOR GO SUB S INVERSE REM STEP FOR GO SUB S OUT REM <> INVERSE 5 LIST INVERSE ~ COPY INVERSE w<>: INK REM =2 INK REM CHR$ INPUT GO TO : CIRCLE REM 2 INK REM INVERSE ! DATA REM STEP [J] FOR PAUSE CAT FOR * FLASH REM ~< TO X FOR * FLASH REM STEP SAVE FOR " FLASH REM INVERSE ! INPUT REM STEP [J] FOR PAUSE STOP FOR * INVERSE REM STEP SAVE FOR " INVERSE REM INVERSE ! SAVE REM STEP [J] FOR PAUSE INPUT GO TO * OUT REM STEP SAVE FOR " OUT REM NOT INPUT GO TO ~ RETURN ` PAPER & GO TO RETURN p PAPER 3 GO TO RETURN PAPER T GO TO LINE K GO TO RETURN ▝ LINE 1 GO TO RETURN ▘ LINE Q GO TO RETURN PAPER p GO TO VERIFY [R] INVERSE w INVERSE w COPY #NOT SAVE FOR INVERSE w INVERSE 6 INVERSE 6 #<> VERIFY ` RESTORE c* VERIFY REM STEP FOR # INVERSE u INVERSE t LLIST #NOT SAVE FOR # INVERSE 6 COPY <>CODE VERIFY p RESTORE !* ERASE REM STEP FOR # INVERSE u INVERSE t INVERSE 6 RETURN LLIST #NOT SAVE FOR VERIFY 22 FOR INVERSE 6 RETURN RESTORE CODE !* ERASE REM STEP FOR # INVERSE u INVERSE t LLIST NOT SAVE FOR INVERSE ~<>=== INVERSE w PRINT INVERSE ~O< NEW INVERSE w LET USR INVERSE ^ INVERSE V!`~= IF L GO TO O< NEW INVERSE w#~< INVERSE w<>yATN USR |2 FOR <> INVERSE ~<>= INVERSE ~ RETURN ATN >= RETURN LINE BORDER GO TO INVERSE 6 RETURN NOT FOR GO TO CODE 2 INVERSE ! DATA REM STEP [F] GO TO y2[M] GO SUB INVERSE * BORDER REM STEP FOR yVAL 2 FOR INVERSE ! DATA REM INVERSE ~< LINE GO SUB STEP <> GO TO STEP [C] GO SUB " FOR ! FOR w STEP MOVE GO TO INVERSE ! INPUT REM STEP [F] GO TO INVERSE ~< LINE O GO SUB y2[M] GO SUB INVERSE * LET REM STEP FOR : FOR LEN VAL 2 FOR STEP <> GO TO INVERSE ! INPUT REM STEP [C] GO SUB " FOR ! FOR w STEP MOVE GO TO INVERSE ! SAVE REM STEP [F] GO TO INVERSE ~< LINE ▖ GO SUB y2[M] GO SUB INVERSE * CLS REM STEP FOR : FOR THEN THEN VAL LEN 2 FOR STEP <> GO TO INVERSE ! SAVE REM STEP [C] GO SUB " FOR ! FOR w STEP MOVE GO TO NOT © INPUT } PRINT MERGE INVERSE n INVERSE f INVERSE ~▚ AND ▜_!IN GO SUB ^#V FOR MOVE LET THEN b( THEN [S]<>PI GO SUB R<> SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;852/,*'%#!! VERIFY +++yIN GO SUB ATTR = PAUSE INPUT <>[G] BEEP :SONG BY ST COMPILE? ~[Q] OVER [Q]+d,[Q][Q][Q][Q][Q][Q][Q][Q][Q][Q]@@@@@[Q][Q][Q][Q][Q][Q][Q][Q][Q][Q][Q][Q][Q])('▝-&-%$#▘"`!DUSR USR USR USR USR USR USR USR USR USR USR USR USR USR USR POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE POKE ▝▟[O]]sCHR$ 3U^ CAT LOAD CHR$ FW>= DATA LET /y#:ATTR LINE :VAL b[U] COPY VAL c[U]FN jp&[S][R])$ COPY [R]e[S][R]![S]#[R]![S][R]![S][R][S][R]![S]#[R]![S][U]![R][S][R][S][R][S][R][S]FN ![U]# COPY [S]bfcfbfcfbfcfbfcfbfcfbfcfbfcfbfcf COPY LN e/[U]-*ACS /[S]+[R]jp+[S])+[R](+( COPY [U]g4[T]4[R]424[S]4[T]4[R]424[S]4[T]4[R]4[U]#9*64[T]4[R]424[S]4[T]4[R]424[S]4[T]4[R]4[U]#9▙*6 COPY [S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a COPY [U][T]hq([R]*[U]+-/0[S]/INKEY$+/SCREEN$ -INKEY$r;RND9[S]jp+[R](&$ COPY USR d▙4▙4 COPY [S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[R]a[R]a[R]a[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a COPY [U]▝[T]hq0[R]/[U]-+-/[S]-INKEY$&ACS ([U]jp/[R]-[S]+[R])($ COPY VAL d▙0▙2[U]g4[T]4[R]424[S]4[T]4[R]424[S]4[T]4[R]4[U]#9▙*6 COPY [U][T]hq([R]*[U]+-/2[S]2INKEY$//SCREEN$ -[S]r;[R]<[T];[S]9[R]jp-)(RND$ COPY USR d▙4SGN ▙4[R]jp-)($ COPY [S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[R]a[R]a[R]a[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a COPY FN [U]hq4[S]4[U]4INKEY$2[S]2INKEY$/2ASN /[S]jp-[R]+($ COPY VAL d▙0▙2USR ▙7 COPY [S]bp[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[R]a[R]a[R]a[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]aRND[S]j+[R](& COPY FN [U]hq4[S]4[U]4INKEY$2[S]2INKEY$/2LEN 0[S]jp-[R])(RND& COPY VAL d▙0ACS ▙2AT ▙$9[S]jp-[R]-ATTR + COPY [S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[R]a[R]a[R]a[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a COPY [U]▝[S]hq4SCREEN$ 4[U]2[S]2[U]0INKEY$/-CODE ([R]jp-[S]+[R]/[S]-/[R]-+) COPY VAL d▙0▙2▙$9AT ▙4[S]jp+[R](& COPY [S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a[S]b[R]a[S]c[R]a COPY [U]▝[S]hq4AT 4[U]r22SCREEN$ 0[S]q4AT 4FN r2[T]0[R]jp''% COPY [R]d▙9[T][R]9[T][R]9[T][R]9[T][R]9[T][R]9[T][R]9[T][R]9[T][R]9[T][R]9[T][R]9[T][R]9[T][R]9[T][R]9[T][R]9[T][R]9[T] COPY FN hr()+)$&(& COPY KingTime COPY s$i▙8js$i▙8[S]js$$[R]$i▙<js$i▘jr7i▘jr5i▙2d▘$i▙2kv3i▙2kv7i▙2kv7i▙2kv3i▙2kv:i▙2[S]kv?[R]i▙2 COPY [R]j5i▙-j7i▙-js$i▙-js$i▙-js$i▙-j7i▙8j8i▙8js$i▙8js$i▙8js$i▙<j7i▙2j5i▙2d▘$i▙2d▘$i▙2kv3i▙2kv3i▙2kv3i▙2k!RND"LN dCODE PRINT GO> PRINT STEP qd LET = PLOT LET PRINT VERIFY GO STEP qd LET < STEP fd RETURN CAT OVER !ABS X GO SUB VAL <> OR COPY CLEAR CLS STR$ <> OR x!@ STEP ▖d FOR y!RND STEP ▖d GO SUB VAL STR$ <> RETURN USR FORMAT MERGE "INT d RETURN @8 PRINT | AND g"INT d LET VERIFY @ LOAD *INT d RETURN 8 VERIFY RUN ATN ($= RANDOMIZE MOVE <>RNDASN !▞g" PAUSE h!m" POKE h STEP eCODE 2 FLASH f2 BRIGHT f STEP UUSR !RNDf" INVERSE f! OR f" OUT f<> STEP LLIST f CLEAR COPY > GO SUB y GO SUB x2e THEN G TO OfBIN e:e THEN W TO zfBIN e<>v<>! RETURN RETURN 6 CLEAR GO SUB VAL >NOT 2 CLEAR CLEAR !)e" RETURN CLEAR > RETURN GO SUB G GO SUB ^ CLS <> RESTORE MERGE OR PRINT *Gc+ NEXT STEP [C];; LLIST 1 RESTORE INK MOVE INK !@ INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K] BOUSR ▚ SAVE DRAW DRAW [K]~c`©c`~[K]> DRAW [Q][K]~ RANDOMIZE c<=▝PI OUT [A][K]?8 RETURN [K]?ATN LEN ??VAL 6011[K]eBH@<38 [E][K]~c`©c`~[K] CLS CLEAR `[K]▝ FLASH IF COPY [G] SAVE P[K] LPRINT CRNDn LIST ▝ LPRINT [K]$1COS COS 01LEN COS 031[K]e▘HahUSR [E] DRAW [K]ccocc``[K] DRAW CLS RETURN PEEK IN SAVE LPRINT [K]©|EXP CLOSE #o▜OIN [A][K] CIRCLE CIRCLE USR CAT [J][P] OUT [K]? RETURN SIN [N][P] COPY [K]%1LEN PEEK 01[P]1IN PEEK ?[K]f?c>>©©?c©[K]FCLUSR THEN IF @ 0 CLOSE #USR [K]ccocc``[K]BIN CAT NEW SAVE 0[K] DIM LN 75 LIST `0[K] CIRCLE [K] CIRCLE =[K]Glscc`w`[K]7~>>c>`©[K]C TO A[F]u@ 0 CLOSE #USR [K][K]c``[K]x} RANDOMIZE ▜CHR$ IN LOAD ▜[A][K]PEEK n|88©[N][P]`[K][I] CIRCLE NOT [O][I]USR [K]W DIM [K]Gx{`c~©~[K]7~>>c>`©[K]COCHR$ + OUT @ 0 CLOSE # DRAW [K][K]c``[K]▜8P[K]▝ MOVE OVER P> STOP LPRINT @[K] CIRCLE NOT FLASH USR [K]ZS[K]1PEEK ?3?PEEK ?![K]2looc`c`[K]7[K]cwc``[K]V RETURN LPRINT [K]~>>c>©©[K]xp CLS NOT ▜[A][K] CAT 8>[U] CAT <USR [K] CIRCLE INK [I][K]g REM [K]1EXP COS 1LEN LEN ACS 031COS [K]3fgcc`c`[K], DRAW [K][K]cwc``[K]CODE ABS [Q][K]~>>c>©©[K]VAL 8<P[K]`f COPY COPY INK ▝[K][P] OUT AND CAT [I] OUT OUT [K]0[K]1ABS LEN 1LEN VAL <?1?[K]3c?c>>`?c©[K]>[K]~~~B[K][K]!&! !!D"[K] DATA B<[K]"J|" [K] DATA |"B"<R0<0|B0|D >[K] DATA [K]D@d@@@▗@▗▗ D@D[K] DATA D8D<x|@ RETURN @|x@xx 8@< [K][K][K][K][K][K][K][K][K][K][K][K] DATA [K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K][K]j[K][K][K][K][K][K][K][K][K][K][K][K][K][K]j[K][K][K][K][K][K]jARS ChIN p~krasivo5C1d IF ©umpsc C1ABS ▖©( MERGE OUT © IF OVER (zVAL tPOINT ~zLEN MERGE }POINT **ATN RETURN ATTR u© DRAW [G]SCREEN$ SCREEN$ FN COPY . COPY U COPY | COPY NEXT 2POINT IN ~~~IN IN IN IN ![L]IN STEP LLIST > INVERSE w<>(E)XIT GAME (C)ONTINUE "#$&'()*,-./012345667899:;;<<==>>>???????????????>>>==<<;;:998766543210/.-,*)('&$#" RETURN DRAW CLS RANDOMIZE SAVE PLOT PRINT NEXT LET LIST INPUT GO SUB FOR REM CONTINUE BORDER NEW DATA READ LLIST LPRINT OUT INVERSE BRIGHT FLASH INK CIRCLE BEEP VERIFY MERGE OPEN # ERASE MOVE FORMAT CAT DEF FN STEP TO THEN LINE <><>>=<= AND AND OR BIN BIN NOT NOT CHR$ CHR$ STR$ STR$ STR$ USR USR USR USR USR USR USR USR USR USR USR USR USR USR USR STR$ STR$ STR$ CHR$ CHR$ NOT NOT BIN BIN OR AND AND <=>=<><> LINE THEN TO STEP DEF FN CAT FORMAT MOVE ERASE OPEN # MERGE VERIFY BEEP CIRCLE INK FLASH BRIGHT INVERSE OUT LPRINT LLIST READ DATA NEW BORDER CONTINUE REM FOR GO SUB INPUT LIST LET NEXT PRINT PLOT SAVE RANDOMIZE CLS DRAW RETURN NOT COS LINE NOT NOT LOAD FORMAT NOT CLS CONTINUE NOT INVERSE REM :& STEP $STR$ x AND dGy AND O<> GO SUB SSTR$ &USR ~ THEN ©( GO SUB D2STR$ } AND @o~ THEN ©( GO SUB D2STR$ MERGE *STR$ GO SUB [STR$ STEP STR$ THEN THEN THEN THEN L OR *STR$ GO SUB [STR$ STEP STR$ THEN THEN THEN THEN STR$ D MOVE zATN (x GO SUB DG{ATN >=y GO SUB DO<>e.>)0= RANDOMIZE <> OPEN #L RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN pINT BEEP INT BEEP 3SCREEN$ FLASH SCREEN$ FLASH 5 BRIGHT BRIGHT BRIGHT BRIGHT 7 OVER OVER ERASE OUT ERASE OUT N LPRINT N LPRINT AND LPRINT AND LPRINT ?©USR LPRINT LIST SAVE DRAW RETURN H LLIST H LLIST <=` LIST `o&) RESTORE MOVE )NOT OR <NOT GO SUB VAL STR$ y NEW 2;NOT h&)Q AND "BNOT THEN 9 THEN 9 THEN 9 GO SUB CfNOT :=NOT PRINT :<NOT O OR *>NOT DNOT GO SUB VAL ">NOT >*@NOT UNOT STR$ GO SUB VAL "@NOT > COPY :<NOT <G OR :;NOT PRINT !DNOT LET STR$ _!3NOT N!UNOT STEP *BIN *BNOT ^#V#"BNOT *fNOT RESTORE MOVE !UNOT DNOT GO SUB C[C]STR$ :<NOT <G OR GO SUB K[C]STR$ INKEY$# RESTORE gTAN LLIST { NEW ATN STR$ GO SUB C[C]STR$ STR$ LPRINT LET =CHR$ [O]NOT <>ATN >=_ RESTORE !+NOT V LLIST OR C~[S] THEN > THEN IF PRINT ~LEN w LET #STR$ O GO TO <> PAPER MERGE N#F#~ RETURN >= RETURN ( RETURN #N# LOAD OR RESTORE STEP ▚BIN LLIST STR$ y RETURN # MERGE =<=h THEN % THEN % THEN %:PBIN o&)Q AND "▘BIN GO SUB C▗BIN VERIFY o&))) GO SUB [LBIN FOR :QBIN RETURN (">"[C]STR$ *▘BIN N#F#"▘BIN *▗BIN STEP # OR w= RESTORE *[C]STR$ 5>"[C]STR$ *▘BIN N#F#"▘BIN *▗BIN STEP # OR w"[C]STR$ *▘BIN N#F#"▘BIN *▗BIN STEP # OR w= FORMAT *[C]STR$ :KBIN RETURN COPY >= PRINT | NEW PLOT Xg LET w<>:RBIN ATN (7:QBIN ATN (%Oy= THEN ?ATN ('G MERGE RESTORE g.}7 THEN < THEN SAVE FOR LLIST O~[R]SIN w,{ MOVE <>Oy RETURN 8 THEN ?<><>:b OR RETURN (6 RETURN (8 RETURN (<> OUT FLASH RETURN 88 THEN <>> CLEAR FLASH RETURN 8 THEN MOVE > CLS FLASH RETURN 8 THEN INK >~ FLASH RETURN / NEW >= THEN LLIST <>> FLASH O<> RETURN LOAD ! CAT OR RETURN RUN ! CLOSE # OR GO SUB x/ NEW W> THEN B(▚# THEN : PLOT O<>' CONTINUE dSCREEN$ " REM OR ! READ OR DATA OR 60 GO SUB VAL > COPY 2 GO TO OR : GO TO OR < RETURN >=2 GO TO OR THEN '_! INK OR N#F* REM OR |LN }EXP 8 OUT GO SUB B" REM OR : GO TO OR _! READ OR 4 READ OR PRINT STEP INPUT OR LET G! READ OR RETURN (~ RETURN 0 # SAVE STR$ STEP WBIN <>@ABCDEFG @ A B C D E F G@@@A@B@C@D@E@F@G`@`A`B`C`D`E`F`G@ABCDEFG[Q]@[Q]A[Q]B[Q]C[Q]D[Q]E[Q]F[Q]GUSR @USR AUSR BUSR CUSR DUSR EUSR FUSR G LPRINT @ LPRINT A LPRINT B LPRINT C LPRINT D LPRINT E LPRINT F LPRINT GHIJKLMNO H I J K L M N O@H@I@J@K@L@M@N@O`H`I`J`K`L`M`N`OHIJKLMNO[Q]H[Q]I[Q]J[Q]K[Q]L[Q]M[Q]N[Q]OUSR HUSR IUSR JUSR KUSR LUSR MUSR NUSR O LPRINT H LPRINT I LPRINT J LPRINT K LPRINT L LPRINT M LPRINT N LPRINT OPQRSTUVW P Q R S T U V W@P@Q@R@S@T@U@V@W`P`Q`R`S`T`U`V`WPQRSTUVW[Q]P[Q]Q[Q]R[Q]S[Q]T[Q]U[Q]V[Q]WUSR PUSR QUSR RUSR SUSR TUSR UUSR VUSR W LPRINT P LPRINT Q LPRINT R LPRINT S LPRINT T LPRINT U LPRINT V LPRINT W STEP FN <> RETURN RANDOMIZE STEP FN <> RETURN USR SAVE FORMAT STEP FN <> RETURN ! FORMAT " LLIST >=>2 LPRINT >=<>G: LPRINT >=LN (! FORMAT " LLIST >=x2 LPRINT >=<>* LLIST >=|ASN RETURN (+" LLIST >=><>: READ >== RETURN COPY (2 READ >=><>2 READ >=: LPRINT >=<>vcxzgfdsatrewq5432167890yuiophjklbnm VCXZGFDSATREWQYUIOPHJKLBNM /?`: STOP ><>=<><=%$#@!&'()_ AND OR AT ;"^-+=*,.:PI<> RETURN (( RETURN RETURN ./ GO SUB x THEN G ( RETURN ©.( GO SUB x THEN O P MERGE STEP REM <> MOVE RETURN >=▘_!.<>~ RETURN USR :PI<>/2PI<>PEEK RETURN RETURN ./ GO SUB x/ NEW (6 MERGE PRINT z THEN ' THEN '▘W LET THEN g THEN _( THEN W( THEN O(z MOVE < RETURN ( RETURN '(<>- THEN 8ABS ><> OR y!@@ COPY 6 GO SUB VAL #w COPY GO SUB VAL STR$ x RETURN FORMAT OPEN # RETURN 27 LINE <> INK RESTORE *Z LINE #| RETURN !"Z LINE ~ LLIST <>> CLEAR © GO SUB y STEP USR > CLEAR © GO SUB y GO SUB M> CLEAR © GO SUB y>2USR >2USR > CLEAR © GO SUB y<>> CLEAR © GO SUB y>2USR 2USR > CLEAR © GO SUB y<>1 CONTINUE !p LINE d GO SUB VAL STEP NEXT >CHR$ GO SUB G GO SUB ^ CLS STEP 8 LINE !EXFX6G GO SUB VAL !eXfX6 GO SUB VAL !X▚X6E GO SUB VAL !RNDXINKEY$X6 GO SUB VAL ! OR X AND X6A GO SUB VAL ! RESTORE X NEW X6 GO SUB VAL !YY6 GO SUB VAL (> STEP hNOT `> STEP hNOT [I]> STEP hNOT L[Q]> STEP hNOT tFN > STEP hNOT !IYJY6iYjY6LU> STEP hNOT >2 CAT CODE 2 CAT 2& STEP 2PBIN 2QBIN 2RBIN PAPER MERGE GO SUB SLBIN >2KBIN !I STEP STEP SBIN > COPY 2KBIN !( STEP STEP SBIN ! CLOSE #~ RETURN COPY ( STEP ] LINE RETURN d0 RANDOMIZE w# STEP ] LINE NEW RETURN w# DIM STEP [O] CLOSE #>2RBIN STEP CAT :& STEP <2& STEP ATN LINE ( TO :$ STEP <2$ STEP NEW ATN ( STEP [O] CLOSE #>2KBIN :% STEP /2% STEP !p STEP ATN (>2KBIN !d STEP >2QBIN STEP SBIN STEP [O] CLOSE # STEP INT CLOSE # STEP ] LINE NEW RETURN SIN STEP ] LINE NEW ATN ( SAVE VERIFY 2 RETURN CLOSE #[T]>2 CAT CODE 2 CAT STEP 8 LINE STEP ▘ OPEN # STEP [O] CLOSE # STEP CAT :& STEP <2& STEP ATN LINE f TO STEP INT CLOSE # STEP ] LINE NEW RETURN NEW STEP ] LINE NEW ATN ( SAVE VERIFY 2 RETURN CLOSE # BEEP STEP 8 LINE CODE STEP hNOT !X> RESTORE RESTORE MOVE RETURN 8669 GO SUB VAL LLIST = RESTORE ! DEF FN "" STEP :& STEP <2& STEP ATN LINE TO LINE *" STEP ~#"" STEP ATN LINE STEP RETURN RETURN N#"" STEP MERGE RETURN ~#"" STEP 2KBIN NOT [M] TO RETURN >2RBIN SQR RETURN >2QBIN VAL RETURN CODE 2RBIN 2QBIN NOT [M] TO !NBIN w STEP WBIN OR OR STEP CAT ! CONTINUE GO SUB VAL STR$ INPUT STR$ *" STEP +"" STEP OUT LIST COPY LIST @ 1989,90 ALL RIGHTS RESERVED.THE SALES CURVE PRESENTS PLAY BEST SCORES OF TODAYSCORE AREA NAME12345678STNDRDTHTHTHTHTHCONTINUE ?CREDITS :STORM PRESENTSSAINT DRAGONWRITTEN BY ANDREW TAYLORGRAPHICS BY SHAUN MCCLURE@ THE SALES CURVE 1990LICENCE @ JALECO 1990.START LEVEL, 1WHEN YOU NEXT ENTER THE GAMEINFINITE LIVESTOTAL IMMUNITY RETURN K >2 CAT 2b OR 1CODE 2b OR STEP > CAT >2b OR STEP > CAT >2b OR STEP > CAT >2b OR STEP > CAT : CAT 2b OR STEP > CAT <> STEP c OR y NEW ATN >= NEXT CLEAR COPY > GO SUB yIN CODE GO SUB y COPY > GO SUB yIN CODE GO SUB y COPY > GO SUB yIN CODE GO SUB y STEP 8 LINE : CAT ATN ': MERGE O: MERGE EXP (! MOVE CAT @2 GO SUB VAL : CAT O:b OR G GO SUB [ MERGE : MERGE NOT @!CHR$ CAT @2 GO SUB VAL :b OR G: CAT O GO SUB [ MERGE ATN (: MERGE NOT @: MERGE NOT @ NEXT INK CLEAR ©> GO SUB y INK NOT PAPER ASN NEXT INK CLEAR ©> GO SUB y INK ! PAPER ASN NOT ▘ LPRINT 100000005BIB010000004BOB001000003TAM000100002RIN000010001LAT000001001URN000000501DIP000000251ARD STEP LOAD FORMAT STEP MOVE >= STEP Z OPEN #ATN CHR$ COS LINE "[C]STR$ GO SUB C[E]STR$ ▛ RESTORE PAUSE COPY MOVE ~ GO SUB LN GO SUB [[C]STR$ * MERGE GO SUB VAL : MERGE AND 1 GO SUB S[G]STR$ >.!p LINE d GO SUB VAL STEP NEXT >CHR$ GO SUB G GO SUB ^ CLS STEP 8 LINE STEP ▘ OPEN # GO SUB K[E]STR$ >[A]▜ AND 2[F]STR$ !NBIN 6>G+WBIN h&)))))>X▗g6 RESTORE MOVE GO SUB VAL 6 GO SUB VAL CODE 2& STEP >2' STEP > COPY 2KBIN GO SUB K[E]STR$ STR$ !; OPEN #"4 OPEN # GO SUB K[E]STR$ STEP WBIN !NBIN GO SUB K[E]STR$ 6- STEP WBIN STEP X ERASE THEN W(*4 OPEN #+"4 OPEN #~ATN u!X OPEN #"4 OPEN #m THEN _(*4 OPEN ##"4 OPEN #~ATN ^!; OPEN #"4 OPEN #V THEN g(%*4 OPEN #~ RETURN & LINE ( TO *[G]STR$ w#"[G]STR$ !; OPEN #"4 OPEN #:[E]STR$ <2[E]STR$ RETURN LINE ( TO THEN O ):[E]STR$ RETURN (▝ GO SUB K[E]STR$ !NBIN 6. STEP WBIN *[G]STR$ 6.+"[G]STR$ :[E]STR$ =2[E]STR$ !; OPEN #"4 OPEN # GO SUB K[E]STR$ *4 OPEN #~!NBIN w STEP WBIN NOT RND MOVE STEP _ ERASE STEP CAT ERASE <>*& STEP +"& STEP |ASN LINE COS LINE vvvv:[F]STR$ o&)))))>X▗g~< NEW w RESTORE MOVE GO SUB VAL ~< NEW w GO SUB VAL >2b OR STEP c OR y2[C]STR$ >2b OR STEP c OR :[C]STR$ LEN 2[C]STR$ >2b OR STEP c OR :[C]STR$ LEN 2[C]STR$ : CAT 2b OR STEP c OR :[C]STR$ LEN >=[A]*& STEP +"& STEP |ASN LINE COS LINE vvvv:[F]STR$ o&)))))>X▗g~< NEW w RESTORE MOVE GO SUB VAL ~< NEW w GO SUB VAL >2b OR STEP c OR yATN USR >2b OR STEP c OR yATN USR >2b OR STEP c OR yATN USR : CAT 2b OR STEP c OR yATN USR [L]; OPEN # . ABCDEFGHIJKLMNOPQRSTUVWXYZ=&! READ CAT OR GO SUB [ MERGE RESTORE PEEK (8# POKE LLIST STR$ CODE <> LLIST LPRINT ><>>2PBIN >2KBIN >2QBIN 2RBIN !| STEP STEP SBIN >2KBIN CODE 2QBIN ! MOVE STEP STEP SBIN CODE 2RBIN ![D] STEP STEP SBIN ! READ CAT > PRINT RESTORE ~ RETURN 0 # RUN STEP WBIN #y AND O~2NBIN RESTORE !NBIN STEP WBIN LLIST #y AND O STEP WBIN LLIST LET = TO <>@ h&)Q AND ^#V FOR y NEW 2 CLOSE # THEN 9 THEN 9 THEN 9 INVERSE ! LIST OPEN # INVERSE ~VAL$ w<>#dD DRAW c `Z6W DATA 2^WBIN B INPUT C TO F DRAW 3`!& BRIGHT J CLOSE #` b REM +d> LPRINT = BRIGHT J__T`* tLE`TBIN 3 r!tD DATA #r32n-p'CHR$ &r$ *`V"tF"R FORMAT .d] REM +dOD/ TO P/L REM JVAL$ , BRIGHT /l=XRC2dB DRAW &VAL$ COPY ! CLOSE #~ RETURN COPY >= STEP VAL$ CLOSE # NEXT RESTORE ^#n STEP STR$ STEP SAVE OPEN # LLIST <>! CLOSE #~ RETURN COPY >= STEP LINE CLOSE # NEXT RESTORE ^#n STEP STR$ STEP SAVE OPEN # LLIST ~ AND RETURN d8# STEP ] LINE NEW RETURN w+ STEP ] LINE NEW AND w RESTORE ^#V: RETURN CLOSE #▘wo STEP STR$ STEP SAVE OPEN # LLIST <>00000025 COPY CLOSE # COPY 2 MERGE " MERGE 1 CIRCLE MERGE STEP 8 LINE : CAT =2 CAT ATN LINE LOAD FORMAT 1 CONTINUE !p LINE d GO SUB VAL STEP NEXT >CHR$ GO SUB G GO SUB ^ CLS CODE 2RBIN 2QBIN >2KBIN >2PBIN ! DEF FN STEP SBIN : CAT AND 02NBIN !NBIN STEP WBIN >2QBIN >2PBIN ! DEF FN STEP SBIN >2[E]STR$ >2 CAT :[E]STR$ VERIFY 2[E]STR$ PAPER LOAD FORMAT o&> STEP 6 AND >2 PRINT v STEP CAT LET = RUN INVERSE lll RETURN lll RETURN l RETURN FORMAT RETURN RETURN AND TO 0f AND 0@ GO TO REM |`````||| COPY ▝RND[J][J]RND▝ COPY COPY ▝▝▝▝▝▝ COPY 0|000`USR | AND AND AND AND AND |8x| AND |USR USR RETURN | AND AND |<l TO RETURN RETURN USR DRAW AND ||USR USR DRAW AND AND | RETURN 00| AND AND | AND AND || AND AND ~|000006n OVER n68xINT IF OVER [A] CIRCLE GO TO PLOT GO TO CIRCLE [A]| AND AND COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY POKE OR ▖# COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY FORMAT © COPY COPY COPY LPRINT COPY OR ▖# COPY COPY COPY [P] COPY COPY COPY COPY COPY COPY COPY COPY COPY IF © COPY CLS +© COPY COPY IF b+ COPY COPY CLS COPY COPY © BORDER RETURN COPY COPY COPY COPY RUN COPY COPY COPY COPY COPY BORDER LOAD LN #▟▟ DATA LINE ffffeCOS M COPY ▟ASN 7? COPY RUN COPY COPY COPY COPY RANDOMIZE 7PEEK V_ DIM [C] THEN © COPY PRINT mo INPUT PAPER OVER OUT LET k NEW [Q] LOAD COPY CLS CLS IN COPY LOAD RETURN COPY STR$ CLEAR COPY )&▚PI▟sATN 7wASN "[H][E]EXP POINT CONTINUE COPY COPY NEXT COPY COPY COPY COPY © RESTORE CHR$ CHR$ ZS▘RP} FOR }o[D] MOVE COS COPY RETURN M SAVE FORMAT COPY RETURN © COPY COPY COPY COPY COPY COPY [D]' RUN DRAW COPY COPY PLOT IN RND<IN i|FN /l©<> LPRINT |8 CIRCLE ~ DEF FN < COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CONTINUE COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LIST COPY LPRINT COPY COPY COPY COPY COPY COPY [P] COPY COPY COPY COPY COPY COPY COPY COPY RANDOMIZE ))eSGN SGN e/ COPY e)SGN o COPY )e COPY [P]NOT DRAW COPY COPY COPY © RUN COPY COPY COPY COPY COPY RUN [P]q9ABS -CODE ? COPY $[U] CLS ERASE PAPER BRIGHT [M] COPY IF V OPEN #LEN IN [P] COPY READ COPY COPY COPY COPY LPRINT ,) COPY AND d[U] DIM COPY CLS CHR$ FLASH ERASE j PAPER CIRCLE TO POINT [Q] COPY COPY © CLS COPY CLEAR LOAD IN COPY STEP COPY INPUT [A]SIN rv VERIFY <> GO SUB INK X CAT INVERSE 4"jK LPRINT | GO TO 0IN COPY CLS COPY IN COPY COPY © DIM <=BZw[E]▖k© COPY ,CODE -nW COPY COPY CLEAR [G]V© RETURN © COPY COPY COPY COPY COPY COPY BEEP ▙G RANDOMIZE CLEAR IN COPY CLEAR IN RETURN PEEK [P]ACS SGN TAN ▜8© FOR USR AND n GO TO Z NEW f COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY [A] OVER FLASH RUN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN COPY COPY COPY COPY LIST COPY SAVE CHR$ SQR COPY COPY COPY [B]▞ COPY COPY COPY COPY COPY COPY COPY [E][E] AND VV AND [H] DRAW AND [E]V AND [E][E] AND COPY ONOT DRAW COPY COPY COPY © COPY COPY COPY COPY COPY COPY {~ LIST IABS RND▟ FLASH [ VERIFY IN m INPUT nl[M][J] RETURN - LET IN [P]STR$ POINT POINT STR$ [B] COPY LPRINT [I]ATN COPY +2 BEEP COPY LOAD FLASH Z FLASH INK ATN LEN [F][S]J DATA ▟ LOAD IN { COPY IN COPY COPY RETURN COPY [E][E][E][G]vv NEW RESTORE TAB GO SUB n ERASE INVERSE !/Z/ MERGE GO TO < COPY COPY COPY COPY IN COPY COPY IN NOT [B][F]SGN [F] COPY NEXT L[U]ACS PLOT INT [H] OPEN #SIN O LPRINT ? RETURN H▛© CLEAR COPY COPY COPY COPY COPY COPY COPY LOAD IN INKEY$O RUN SAVE [P]STR$ COPY COPY [9TAB <> LIST mPOINT G COPY RUN USR AND AND AND PLOT USR COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY @>USR COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CLEAR © COPY COPY COPY COPY SAVE ? COPY DRAW OVER PLOT [L] COPY COPY COPY ▖ TO COPY COPY COPY COPY COPY COPY SAVE COPY [E][E][C] VERIFY VERIFY [C][E][E][C][E] VERIFY [C][E][E][C]_PI▝ SAVE COPY COPY COPY COPY RUN COPY COPY COPY COPY RETURN wIN STOP FV DATA AT CLEAR COPY SIN ATN RUN TAN ATN [T]%-<%IN RANDOMIZE COPY [P][M] COPY CONTINUE VERIFY GO SUB )[K]Bv COPY ABS m CLS Z IF BRIGHT TAN (rW LOAD IN COPY COPY IN CLEAR COPY PEEK COPY ~BzFt<>-7 PLOT COPY PRINT CLEAR n OVER INVERSE %/ LPRINT /) POKE © COPY COPY COPY COPY COPY COPY COPY IN RND▟BIN [A] BEEP COPY SAVE f[ OUT Y] FLASH ▝? PLOT >=FW COPY CLEAR COPY COPY COPY COPY COPY COPY COPY GO SUB RETURN [G]O COPY SAVE ~ COPY I$ LOAD iUSR /);r©ATN USR AND AND AND OVER DEF FN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN COPY LPRINT LPRINT OVER PAPER 7 COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LIST COPY COPY COPY COPY COPY SAVE ? COPY COPY CHR$ LIST ATTR COPY COPY COPY [M] DATA COPY COPY COPY COPY NEXT COPY CAT _SCREEN$ *y))y**y*)y**y) MOVE LIST COPY COPY COPY COPY COPY COPY COPY COPY CLS COPY STEP COPY DIM p OVER d[E]SGN RETURN I STEP RANDOMIZE XATN LEN 4[U]N▚W RANDOMIZE IN [P][E][E][M][M] COPY STR$ N~PP GO SUB TAB COPY _d RESTORE PIPIol▗[B])8SUSR COPY IN © CLS COPY COPY LOAD IN IF [M][J]!;r%▗v PLOT PLOT W IF [B]gn OVER OUT DATA ▟ POKE ©© COPY COPY COPY COPY COPY COPY COPY ▟SJR_ COPY COPY [A]R[ FLASH Myh RETURN CLEAR [T]&C© COPY © COPY COPY COPY COPY COPY COPY COPY RETURN CAT ' OUT LIST LIST RETURN PIp LOAD [H]>/0© COPY USR AND RETURN AND DEF FN AND COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CLEAR COPY IN SAVE LPRINT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CONTINUE COPY COPY COPY COPY COPY DRAW © COPY COPY READ IF PLOT COS COPY COPY COPY LET COPY COPY COPY COPY LOAD COPY IF POINT )$TAN TAN $)POINT $)TAN $POINT )$^h FORMAT COPY COPY COPY COPY RUN COPY COPY COPY COPY RETURN RUN COPY [I][J]=I~ RUN &ASN gg LINE SAVE jrO BEEP [J] NEXT ▙[M][M][J] COPY RESTORE ABS VAL SAVE &ZiTAB RANDOMIZE FLASH PAPER CHR$ FOR INK %"H@K DRAW <>USR LOAD COPY { CLS IN COPY LOAD RETURN PLOT LN [A]▞($[U] FLASH COPY y CAT STEP I'(▛C SAVE = POKE COPY © COPY COPY COPY IN COPY COPY [P]▝▛▝y? COPY OUT LPRINT )w RUN [P]%' SAVE DRAW ▗▛+© RANDOMIZE © COPY COPY COPY COPY COPY COPY PRINT COPY >O RUN LIST ▜yz LET [ATN VERIFY AND LIST COPY CODE AND AND f GO TO Z AND f COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY IF COPY COPY RETURN USR LIST OVER FLASH ATN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY [A]© COPY COPY COPY COPY COPY DRAW © COPY COPY RANDOMIZE CHR$ SQR COPY COPY COPY COS COPY COPY COPY COPY COPY DRAW FOR PLOT CLOSE # ERASE bb ERASE CLOSE # ERASE b ERASE CLOSE # ERASE [E][M]P COPY COPY COPY © RUN COPY COPY COPY COPY RANDOMIZE ASN COPY FCHR$ mRND OUT FLASH PLOT [H][O]}o© RETURN /o▞;NOT COS USR [J][J]STR$ [A] COPY LINE VERIFY ~ CLEAR THEN H FLASH IF NEXT SGN POKE q[F]USR COPY COPY COPY COPY IN COPY COPY COPY PAUSE pbJT[A][D]@© CLEAR }' GO SUB J[A][B]F READ CONTINUE BEEP RANDOMIZE COPY © COPY COPY COPY ? COPY COPY OUT '▙[F] CLEAR IN [P] COPY COPY d[P] PLOT OVER [O] CAT [USR CLS J▚© CLS © COPY COPY COPY COPY COPY COPY DRAW RETURN © COPY CONTINUE DRAW OPEN #iO RETURN POINT © SAVE ©? RETURN | INPUT CIRCLE ~ NEW < COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY DATA COPY COPY COPY LPRINT SAVE COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY A COPY COPY COPY COPY COPY COPY RETURN COPY COPY COPY CLEAR COPY COPY COPY COPY COPY COPY ©<= COPY COPY COPY COPY COPY NEXT RUN POKE {[RRRR[{R[RR{[RATTR NEW @ COPY COPY COPY © COPY COPY COPY COPY COPY DRAW CAT @[E] BEEP R© CLEAR INK Y COPY CLEAR [B]IN COPY NEW [H]▚[H] BORDER IN s NEXT PEEK ABS BORDER PEEK COPY CHR$ ~ COPY CHR$ r ERASE <>;6 PLOT ASN m GO SUB 6ZX[E][P]+y# FORMAT COPY IN CLS CLS COPY COPY COPY COPY PAUSE PRINT ATN TAN SIN V GO SUB -© COPY RETURN RUN [H] ERASE o{ COPY G CONTINUE © NEXT CLS COPY © COPY COPY COPY IN COPY COPY CAT ▜ PAUSE RETURN COPY COPY CLS g GO SUB _<>_ IF JV© NEXT COPY COPY COPY COPY COPY COPY COPY RANDOMIZE ©,[M] CLS <=USR H CAT LPRINT RETURN [P] COPY COPY COPY COPY COPY COPY COPY SAVE PEEK [P]OcfCHR$ ▘ LIST LINE F RANDOMIZE } COPY COPY COPY COPY COPY STR$ RETURN RETURN JM[A] OVER DIM H@5 OUT © LPRINT © COPY COPY COPY COPY LLIST COPY RANDOMIZE CAT LOAD CHR$ @USR p OVER r RUN NEXT [P] COPY COPY LPRINT © COPY RETURN e~~[A] COPY NEXT [D]<= LPRINT POINT #~~INKEY$© COPY COPY LPRINT COPY COPY COPY COPY OUT ATN NEXT K ERASE V VERIFY RUN RETURN v FLASH [L]©{nJN[N] GO SUB CLS X COPY COPY COPY USR © COPY COPY COPY 7 IF ]))▟SGN COPY COPY PLOT RESTORE CLEAR }© RESTORE ABS LOAD BIN OUT _ GO TO COPY COS COPY COPY COPY ? COPY COPY OPEN # COPY bbz+[ CLS ~ PLOT COPY COPY [H]PEEK ~L[E][E] CLEAR COPY THEN COPY LLIST COPY COPY COPY COPY COPY COPY AoEXP =/▖©RK_Ky COPY FLASH ol BRIGHT [M][G] PLOT ▘ COPY [T]© COPY COPY COPY CLS COPY RETURN DRAW [O][G]*kAT PAUSE TAN !? COPY COPY NEXT COPY COPY RUN CODE ATTR i"@ OPEN # OUT [A]o STEP MERGE PRINT LOAD COPY COPY COPY COPY ▝ COPY COPY e COPY LINE E POKE PAPER STR$ DATA LIST PAPER i COPY INKEY$ COPY COPY COPY USR COPY COPY DRAW PAUSE CLEAR 7'; RETURN FLASH ERASE M LIST O? COPY COPY STR$ COPY COPY COPY COPY ?o[G] OUT LPRINT TAN IN RUN NEW PEEK PRINT CODE SAVE CLEAR ATN [R]'c LOAD i PLOT DRAW COPY COPY COPY LPRINT ? COPY COPY COPY j OVER / MOVE [C] OPEN # RETURN IF IN RETURN VERIFY ATN COPY CLS PAUSE CLEAR ABS SCREEN$ O{V COPY OPEN # COPY COPY COPY USR ? COPY { LLIST }))eSGN IN TAB ] FLASH LOAD LOAD FLASH RANDOMIZE IN COS JBIN POKE PEEK ▜ OVER STR$ COPY COPY COPY COPY COPY CAT TAN [P][N]1ACS PLOT CLEAR TAB CLEAR LOAD GO SUB GO SUB LOAD H COPY EXP TAN RETURN OVER RANDOMIZE - NEXT c? COPY COPY COPY RUN COPY RETURN RANDOMIZE 5 RUN [I] STEP ACS [H] BRIGHT STEP x LIST [P] COPY COPY RANDOMIZE COPY COPY NOT LOAD OVER bHw CLS OPEN # G▗{ SAVE RUN COPY COPY COPY COPY [D] COPY DRAW VERIFY RUN ▝ACS LINE RUN © RANDOMIZE `x POKE LOAD k? COPY COPY ▝ COPY COPY RETURN z??/ PRINT PLOT FORMAT ATN - RETURN ~{ DRAW DRAW ^© COPY COPY ▝ COPY SQR COPY RETURN RETURN ;f©EXP NEW COPY LOAD CLS [ POKE PI CLEAR PEEK _ VERIFY [E][J]/f BRIGHT ©© COPY COPY SAVE COPY COPY ©K DRAW [E]▞) COPY ? COPY COPY [ THEN COPY RANDOMIZE LOAD LINE _ INK 9? ERASE RETURN OPEN # COPY COPY COPY USR COPY ? POKE DRAW [E][E] AND VoTAB RND COPY COPY COPY CLEAR GO TO [P]EXP c REM ?/ DRAW STR$ COPY COPY COPY COPY USR COPY BORDER COPY w OUT j{ CLS RETURN RUN PEEK COPY THEN NEXT COPY ABS [O] PRINT RND CLS © INPUT COPY BORDER c? COPY COPY COPY RETURN COPY LOAD GO TO [P]PEEK OVER OPEN # POKE THEN FORMAT b_} RANDOMIZE 7 COPY COPY COPY COPY COPY COPY THEN OVER BI PLOT IN CODE ){ OPEN # LOAD COPY COPY COPY DRAW COPY IF STOP NEXT POKE J COPY COPY IN d?J ERASE CAT G_? COPY COPY COPY COPY RETURN ©oO CAT ▞ FOR STOP 4RND RUN ATN >=ASN y; PAUSE PLOT RETURN © COPY COPY ©} COPY RETURN RETURN [H]ABS IN ky COPY COPY m GO SUB RANDOMIZE [L] COPY OVER K DEF FN DEF FN [J]oABS DIM ©© COPY COPY SAVE COPY COPY COPY } CLEAR SQR km CLEAR COPY COPY COPY COPY om COPY COPY COPY DRAW COS JIN IN PEEK COPY NOT COPY COPY COPY LPRINT COPY [P] CLS DRAW [E][E][C] VERIFY © RETURN W COPY }}ATN BORDER ~l[F]EXP ? OUT RANDOMIZE ▝ COPY COPY COPY COPY USR COPY RUN GO TO [H] LOAD [M]RNDIN CLEAR ABS PAPER _ FLASH CLS }lATN SIN K LPRINT RETURN DIM 7 LOAD C? COPY COPY COPY COPY COPY RANDOMIZE GO TO [ THEN H@▛o9p7 COPY COPY COPY COPY READ ? COPY ▜ INPUT ASN CAT m[Q]@ LPRINT w LLIST COPY © COPY COPY RETURN ▜ COPY RETURN REM y SAVE [E] RANDOMIZE COPY [P] SAVE 9+ CLS [O]W©? COPY RETURN COPY COPY COPY s COPY / CAT LINE P COPY GO SUB }M FLASH CLS COPY TAN O CLEAR SQR POKE COPY DEF FN COPY COPY COPY © COPY COPY COPY ~m CLEAR 3Jo?? RETURN [P] COPY CLEAR O COPY O BORDER SAVE TO D[H]IN ACS ~ COPY COPY COPY DRAW COPY RETURN CLS [K] RETURN B_ ERASE Rv RUN COPY _PEEK ATN [H] BEEP IF BRIGHT [M][L]}©Y OUT THEN COPY COPY COPY LIST COPY OUT RANDOMIZE GO TO **y)? VERIFY [ OUT -- CLEAR Z~/ TO [H][A]7[P] CLS ▝ COPY COPY COPY COPY USR © NEXT OVER ? RUN POKE ▚ BEEP ?RND CLEAR COPY m GO SUB -n^ INK ' PAUSE OVER DRAW { STEP S COPY COPY COPY COPY COPY RANDOMIZE RETURN o}!+( RANDOMIZE SGN I@STR$ COPY PEEK PLOT © COPY COPY COPY COPY CLEAR COPY COPY CLS COPY OVER ©hUSR PLOT COPY GO SUB LPRINT LIST nW COPY OUT COPY © COPY RUN SAVE COPY RETURN NEXT DRAW z@VAL PLOT COPY THEN [C]d[M] RESTORE ? CAT ©? RETURN SAVE COPY COPY RETURN ZN[D] REM H© BORDER ATN RETURN [D]ATN CLEAR ? RANDOMIZE /[Q][P] LPRINT rZ© COPY COPY ? COPY COPY COPY CLEAR BORDER [O] BRIGHT [E][P] LIST IN IN ACS COPY COPY COPY COPY /COS PAUSE B@^y BORDER IN COPY COPY COPY DRAW COPY COPY o STEP RETURN SIN OVER Ii? COPY COPY CLEAR YI FLASH FLASH LET z LINE INK EXP ©COS PLOT <= COPY COPY COPY LIST COPY IN CLEAR RETURN POINT )$TAN IN TAB FLASH © COPY COPY }H?COS &'[A]©IN CLEAR [R] COPY COPY COPY COPY LPRINT © CLS RETURN o CLS SAVE o7; CLS e GO SUB PLOT PRINT COPY ACS NMATN [S]n PLOT © FLASH C COPY COPY RETURN COPY COPY LIST RETURN 7G[G]HRNDd[R][Q][G] PLOT x GO TO © COPY CLEAR OUT COPY USR COPY CLEAR RND BORDER `d` DATA yKx DRAW BORDER RNDIN © COPY COPY SAVE [P] COPY DRAW ERASE RANDOMIZE <:j FLASH CLEAR M DRAW PAUSE L STOP [P]K?© COPY SAVE ? COPY COPY COPY ABS /▟POINT COPY OVER NEW RNDATN PLOT _ COPY IN SCREEN$ M LIST POKE ABS COPY COPY COPY COPY COPY COPY RETURN [L] CLEAR ,[E][G]V©© INK FLASH IN COPY IN IN THEN RANDOMIZE TAN cOIN INK © COPY COPY COPY RETURN COPY COPY COPY CAT RETURN STR$ SGN ABS [N]CODE GO SUB COPY ABS © DIM ma COPY ! BORDER c{© NEXT COPY NOT COPY COPY COPY DRAW COPY [P][O] OVER CLOSE # ERASE b~AT CLEAR CLEAR FLASH FLASH CLEAR DRAW [O][B]%{y RANDOMIZE [T] COPY COPY COPY COPY LPRINT ? COPY DRAW PRINT RANDOMIZE LET &[F] CLS CLS K OUT ACS PI FLASH CLEAR PIINKEY$ OUT INVERSE ?CODE ? RUN C COPY COPY RETURN COPY COPY READ RETURN FLASH OVER Z POKE m@POINT ~{ FLASH © COPY COPY COPY COPY STR$ COPY RANDOMIZE RUN RUN CLOSE #▚BIN `{ COPY ▝USR 8 BRIGHT [E] LOAD LOAD [P]7 COPY LOAD LIST © COPY RETURN z~OH COPY INT [C] ERASE kk POKE ^©© COPY LIST COPY COPY COPY COPY PAPER [P] BORDER w[H]▝ CLEAR © LOAD CLS PAUSE IF IF BRIGHT CLOSE #▞/ BORDER RANDOMIZE [ COPY COPY COPY COPY COPY COPY COPY CLEAR POINT $ COPY ABS CODE BORDER CLS CLS COPY OUT LINE IF ^ CLOSE #[P]IN CONTINUE COPY COPY COPY COPY COPY © COPY IN NOT },[E]SIN COPY RETURN COPY COPY mmon OUT INVERSE ASN [T]{PEEK NOT CLEAR STR$ COPY COPY COPY RETURN COPY o©{[RR~rCOS COPY COPY COPY RESTORE < RETURN DEF FN INVERSE ) RETURN PLOT LET [T] LIST >= LPRINT CLEAR CLEAR PRINT RUN IF F CLS k FLASH { FLASH CLS COPY n PAPER [C]O CLOSE #[O]CODE IN IN C LIST >=/ LIST CLEAR CLEAR INPUT PAUSE SAVE I{v PLOT ACS RUN =KTAB NEW OUT [B]/ CLOSE #wIN ATN C COPY RETURN x TO COPY COPY COPY CLEAR ;▘~[H][P] COPY w COPY -= GO SUB RNDg RESTORE IN RANDOMIZE = BRIGHT IN USR RETURN 7▙O COPY NEW OVER OPEN #OQ__{} COPY RETURN COPY CLS INT PAPER IF nMCODE {g RETURN 2~rrs COPY SAVE COPY 5ABS EXP /ABS COPY ASN COPY COPY COPY COPY COPY CLS COPY } LOAD ?AT COPY COPY CLEAR COPY LET USR ; COPY COPY @ RETURN USR [E]▜[E] COPY PAUSE $[U]} DIM PI COPY RETURN COPY RUN )0 COPY RETURN ? COPY COPY N BORDER COPY COPY COPY <= RETURN PAPER DEF FN o OUT ©[P]' LOAD [U] NEXT COPY RETURN j~g COPY RETURN ? AND <=9<= COPY COPY RANDOMIZE COPY VERIFY COPY m LOAD CLEAR ACS IN RUN IN /o©OUSR COPY STR$ 9999?[P] COPY IF DRAW } PAPER _ CLS 7 COPY PEEK [G] COPY RANDOMIZE COPY ATN CLEAR COPY PLOT i TO o SAVE DRAW COPY COPY y DRAW ▞ABS COPY PLOT ATN PLOT LIST ATN COPY [F]',[H][D]< COPY COPY /© RETURN y TO LOAD COPY COPY PLOT w POKE [O][E] OUT COPY COPY COPY COPY RUN LIST COPY RETURN COPY PRINT / DATA RETURN INPUT oVAL ▝ RETURN 2w'&' COPY USR DIM =+o(-/ GO SUB GO SUB COPY OUT COPY COPY FLASH o RANDOMIZE %+nSGN [H] RETURN r;w&' COPY LIST q COPY Z BRIGHT [E] PAPER © COPY COPY COPY COPY CLEAR ©[D]SGN ASN EXP Z COPY SAVE CLEAR RUN [U] READ SQR COPY COPY LPRINT ;&[I] RANDOMIZE © FOR II}>=[H] COPY RETURN [ OVER @[Q] COPY RETURN ? CLEAR COPY d BORDER CLS COPY COPY BORDER RETURN SAVE [M]D COPY COPY COPY oATN ACS COPY COPY COPY IF ©{ COPY COPY IN [D][J]9[D]7 COPY COPY ▝ PRINT RETURN VERIFY COPY RETURN COPY GO SUB COPY SIN COPY COPY IN IN }[H]USR COPY LPRINT 9[D][J]9[D]=[N] COPY DRAW RETURN DRAW [P] INK 9;©[ OUT m INVERSE CLEAR CLS omTAN [M]USR CLEAR ? PLOT i LOAD SAVE RETURN = CLEAR TAN DRAW COPY IN RETURN _[G]6 CLS FORMAT [H][M][P][N],IN SGN o COPY PLOT y TO LOAD COPY USR © IF zpNI'PI GO SUB BORDER BORDER THEN [G] GO SUB oo FOR o+~^_ LPRINT RETURN 2w'&' COPY LPRINT STEP LEN 1/,[F]COS ©m CLEAR ms COPY OoyRND)<▟COS RETURN r;'&' COPY SAVE < SAVE PRINT SIN BF RETURN COPY COPY COPY COPY COPY DRAW CAT RETURN PAPER [J]CODE COPY USR CLEAR RUN [U] READ COPY CLEAR COPY LPRINT > ERASE zK COPY ©POINT $[U]SIN [G][D] COPY RUN i©@ COPY RETURN ? CLEAR CLS DATA BORDER COPY COPY COPY LOAD COPY DRAW o)z_ PLOT RUN FLASH FLASH COPY CONTINUE IN TAN SGN COPY COPY COPY [D][J][D]?▟ COPY SAVE ▝ LIST RETURN [P][I]©©' COPY COPY COPY © LOAD DEF FN BRIGHT POKE ATN COPY LIST 9[D][J]9[D]=[N] COPY LPRINT INPUT WK INPUT [F]IN IN CAT COPY CLS OUT © GO SUB COPY LOAD CAT J CLEAR CLS ? RETURN y COPY SAVE RETURN LN IN TAN SGN ▝9 FOR ;m CLEAR CLS [D] COPY IF FLASH [L]oCHR$ OVER CLEAR _© RETURN y>= COPY LIST ? LLIST SQR LEN PEEK [O][D] RETURN COPY RUN - CLS CLEAR DATA ATN DRAW AT EXP ? INVERSE ▜[Q] RETURN r~rrs COPY LPRINT VERIFY SAVE OR ?TAN ACS CODE © OUT COPY 'TAB IN ACS OVER DRAW INVERSE INK ABS kUSR RETURN CODE ▙M COPY ASN %EXP TAB COPY COPY STR$ RUN COPY COPY COPY DRAW COPY EXP /tTAB RETURN COPY COPY ▙g COPY COPY COPY USR INK )© PAUSE o[U] DATA RESTORE SIN [C]K COPY COPY mPI(USR COPY RETURN SAVE CLS q<= COPY CLS COPY COPY COPY USR RETURN ^ CAT 9? LOAD _ CLS oy COPY COPY oo RANDOMIZE CAT COPY COPY 99?9?[P] COPY SAVE NOT DRAW RETURN L[N] COPY COPY FLASH FLASH GO SUB GO SUB CLEAR COPY w| POKE CAT COPY LIST <=NOT 9<= COPY REM ABS COPY CLS CLS ~ COPY COPY CLEAR COPY COPY COPY RUN PLOT ATN RND SAVE CLEAR RUN ? PLOT x COPY DRAW RETURN INK ez|IEXP RUN RUN COPY NEXT mmon THEN INVERSE IN SIN NINKEY$[L]? COPY RETURN q>= COPY LIST ? LPRINT ~ FORMAT N BRIGHT ^© RANDOMIZE 6 VERIFY ?m COPY CIRCLE [D] PAUSE ^],~USR RETURN r~rrs COPY LPRINT LET CLS rJZo7IN COPY [ OUT FLASH RETURN OVER FLASH RETURN ^ VERIFY OUT OUT USR DRAW ▙O COPY PLOT DIM i# BEEP COPY READ ERASE © COPY COPY RETURN RETURN ^[F]SIN ox COPY COPY Ng CLS COPY COPY USR SGN ATN r©)RRyI-© IF OVER [H]EXP COPY RETURN © CLEAR NEXT LET <= COPY COPY COPY COPY COPY COPY [P][P] OVER CAT CODE COPY LOAD o GO SUB RUN COPY k CLS ©<= COPY COPY ?99?97[P] COPY LIST PRINT ©:Wg PLOT COPY COPY COPY COPY COPY COPY 'k GO SUB k COPY DRAW <=NOT ;<= RETURN ?EXP ▟ NEXT © COPY PLOT COPY PLOT RUN ©ooo PRINT ▞USR CLEAR RUN © PLOT x RETURN RETURN 9=yABS -IN COPY PLOT ? COPY ACS 7 NEXT VAL ' DIM IN [B]-SGN [M]?© COPY NEXT LOAD COPY SAVE LIST / ERASE O THEN -/CODE LOAD COPY [C]ACS COPY IF PAPER SAVE O RESTORE PEEK :USR RETURN ~rrs COPY LIST RANDOMIZE s9PIASN PEEK RUN RETURN COPY PAPER NEXT COPY OUT o CLEAR [J][C]K DEF FN [P]USR DRAW CAT [P]<=© COPY DEF FN OVER FORMAT BRIGHT THEN FOR COPY BORDER [G] RUN © DIM COPY RETURN }[F]TAN {8 LPRINT CLEAR RUN N` NEXT COPY COPY [A] PAUSE _[J][P]ZIJ CLEAR GO TO [C]IN REM PAPER OVER COPY COPY COPY CLS COPY COPY CLS COPY COPY COPY RETURN RUN LOAD ' VERIFY PEEK COPY COPY COPY COPY BORDER OUT ABS [H][F] COPY CODE USR COPY RETURN 9!)97 COPY SAVE PAUSE RETURN r COPY CLS IN COPY IN ATN COPY RETURN RETURN RESTORE POKE COPY RETURN g BORDER BORDER } BORDER [P] LPRINT COPY COPY COPY RETURN ~ COPY IN COPY COPY COPY COPY COPY COPY COPY COPY © RETURN USR ? CLEAR LOAD © RETURN x RETURN COPY LN RETURN [N]ABS SQR {© CLS © CLS INKEY$ACS FLASH INVERSE IN SQR O AND [M]© COPY COPY COPY RUN COPY COPY COPY DRAW LET ASN VAL ?-TAB COPY RETURN ATN ATN CLEAR ACS RESTORE COPY '}[N]EXP ©TAB USR RETURN ~rrs COPY SAVE SAVE RUN ASN [G][G] RUN COPY COPY COPY m COPY RUN DRAW [H]> CLOSE #[C]G LOAD USR CLEAR BEEP IN COPY CLS CLEAR COPY > MERGE [G][E] THEN CLEAR COPY BORDER <>K?[U] COPY ? COPY ©kdATTR RETURN RANDOMIZE NEXT DEF FN ` CLS COPY COPY [Q] LIST CLS y/SGN RUN RNDm CLEAR [G]ACS INK _ RUN {| COPY COPY ? COPY COPY © COPY CLEAR BORDER COPY COPY RETURN LET COPY LOAD COPY RETURN © COPY ACS IN GO SUB RETURN PAPER CLOSE # RUN [P]USR © COPY 9!)9? COPY COPY ACS COPY m CLEAR IN LOAD COPY COPY COPY LOAD COPY COPY IN NEXT INPUT INVERSE COPY COPY FOR COPY COPY CLEAR COPY CAT OUT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LPRINT COPY [L] LOAD © RETURN x COPY COPY COPY INT zR©ISQR TAB CODE © RESTORE FLASH [ COPY PAPER K THEN nNOT ^^] COPY RETURN ?▙O COPY LPRINT SGN [E] COPY RUN RUN CLS COPY PRINT SQR RETURN OVER MOVE ABS = RETURN 2~rrs COPY SAVE DRAW ^ ERASE /[G]V} LOAD COPY COPY COPY COPY RUN CLEAR ATN PEEK OVER EXP oz?@ COPY COPY LET USR ? COPY COPY / DRAW COPY COPY )I FLASH Z COPY ? COPY o%n/ COPY RETURN / CLEAR RUN DEF FN g COPY CLEAR COPY © SAVE PLOT DRAW COPY {? OPEN # COPY COPY ) COPY PAUSE IN COPY INVERSE }SQR COPY COPY /<=▜ABS <=<= COPY COPY CLS DEF FN O=? COPY COPY COPY CLEAR CLEAR RUN RUN o IF COPY ATN USR COPY 99)9?[P] COPY RETURN >qo STOP BEEP RETURN r COPY LOAD IN IN COPY CLEAR ATN COS DIM o COPY COPY COPY COPY COPY RETURN COPY OUT FOR © COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY POKE COPY BORDER pxxxxxx(((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((((hh((((8(((((((((888(((((h(h(((888888(((888888(((hhhh(((888888(((888888(((hhhh(((888998(((899888(((hhhh(((888998(((899888(((hhhhh(((88888h(((8888((((hh8xhhh(((((((((((((((((((hhhhhh(((((((((((((((((((hh888hhh(((((((((((((((((((hhhh(((((((((((((((((((hhhh(((((((((((((((((((h*((((((((((((((((((((((((((((((((((((((((((((((((xxx((((((((((((((8(((((((((((((((((((((((((((((((((((((((((((((((((88 NEXT ![F]qy CLS <> NEXT GO SUB [ FOR / STEP =!AT q` GO SUB VAL CLS <> NEXT !`AT q GO SUB VAL !AT q GO SUB [ FOR / STEP = CLS <>BOGMOLE #![R]t GO SUB K[P]t COPY COPY +++~+~+PEEK ( GO SUB FN REM pt"+PEEK (# LIST PRINT OR +~+F+ DRAW STR$ xLEN ( LET MERGE LET NOT ▞▜▞ STEP v CLEAR THEN { PLOT CLEAR THEN 0 OVER CLEAR 6 CLEAR THEN OVER *x/"v/ STEP CLEAR ▞!` RESTORE INVERSE LLIST CODE Gw# DRAW INVERSE 6% INVERSE 64! COPY COPY "▙ CLEAR THEN z[G]*[I]▜6!`▜ > COPY w# DRAW * BORDER COPY `▚~ GO SUB [Q] RETURN RETURN 8 RANDOMIZE INVERSE 4 PAUSE STEP vCODE INVERSE PEEK ( INVERSE 5 INVERSE PEEK (' INVERSE PEEK ( INVERSE 5:`▚ INVERSE PEEK &( RETURN CLEAR 0 STEP ▙. STEP [F]▞CODE INVERSE PEEK (0 INVERSE 5+:▚ STEP <* INVERSE COPY ^#V FOR RESTORE STEP SGN ~0:▞/2▜ STEP BRIGHT LLIST STEP [T]▞ STEP ▙ LLIST STEP [T]▞:▖ NEW RETURN > :▞/2▜ STEP v> STEP v> STEP vCODE INVERSE PEEK ( INVERSE 5 INVERSE PEEK ( INVERSE 5 INVERSE PEEK ( INVERSE 5 INVERSE PEEK ( INVERSE 5 INVERSE PEEK ( INVERSE PEEK ( INVERSE 5 INVERSE PEEK (:`▚ INVERSE PEEK &( RETURN CLEAR 0 INVERSE 5 STEP 4▝0.# INVERSE THEN 1~ . STEP [F]▞RND*©#"©CODE CLEAR THEN z OVER CLEAR THEN zINKEY$ STEP v CLEAR THEN zf :▚ STEP ▚NOT COPY t STEP v.:▝ RETURN [F]▞ CLEAR THEN z[G]NOT {u CLEAR THEN z[O] GO SUB sD2G STEP OVER ▞ STEP T8.NOT UCODE PRINT 2I2FCODE PEEK MOVE zATN ( LLIST STR$ NOT ▛|!FPEEK >={2G5STR$ LLIST -~# CLEAR THEN z^( RETURN COPY ( RETURN ( INVERSE PEEK ! INVERSE PEEK "(###SGN #N#F# RETURN COPY LINE 4v2H_ RESTORE ! DATA }^#V MERGE _!`▚ RESTORE !` MOVE <> INVERSE PEEK &(a LLIST NOT 4v INVERSE PEEK & X PRINT INVERSE PEEK &8Q INPUT INVERSE PEEK &8 DIM ( BORDER F INVERSE PEEK &(@ RETURN CLEAR 0< INK INVERSE PEEK &( OPEN # RETURN CLEAR 0 CAT . RETURN CLEAR () AND RETURN CLEAR "IN RETURN RETURN INT RETURN RETURN (COS STEP OVER ▗SGN 0POINT ~ATN RND~ATN ([P] LLIST NOT }vPEEK [F] POKE STEP POKE z PLOT PEEK (▞ CONTINUE STEP POKE z PLOT PEEK 8 OVER NOT FN vPEEK PAPER FN v LINE FN v FORMAT INVERSE PEEK #( THEN NOT FN v INVERSE PEEK $ PLOT INVERSE PEEK + LET INVERSE PEEK , GO TO INVERSE PEEK - BORDER . STEP [A]▞ CLEAR THEN zVAL$ `▚* FLASH COPY RETURN COPY (T RETURN CLEAR 8K CLEAR THEN z INPUT RESTORE MERGE PRINT ^#V FOR STEP [T]▞ LET 5* LLIST COPY ^#V# MERGE ^#V LLIST FOR 7 GO SUB R|ATN } RETURN 0:▖/=ABS 0> BEEP > [F] BEEP CODE > BEEP FOR STEP [T]▞> BEEP MOVE LLIST ##PI CLEAR THEN zn M.F GO SUB {D LLIST NOT COPY t. OR STEP 4STR$ ~. STEP INPUT ▞/PEEK 0NOT Az LLIST . STEP 4~. STEP INPUT ▞/PEEK ▞ CLEAR THEN zPEEK . COPY NOT U GO SUB {D LLIST NOT [R]t CLEAR THEN z[G] STEP [F]▞ LLIST CLEAR THEN z NEW NOT 8v. LET OR STEP TO STEP VAL . STEP [F]▞ CLEAR THEN VAL$ INVERSE THEN 1V STEP >=▗ STEP [J]STR$ NOT Az STEP TO CLEAR THEN {ACS CODE [R] STEP CLEAR THEN VAL$ CLEAR THEN INPUT INVERSE RESTORE STEP CLOSE # CLEAR THEN { PLOT STEP Hq STEP zq STEP INVERSE RESTORE STEP Hq STEP ^q INVERSE LLIST CLEAR THEN z[G]NOT <=w. STEP [F]▞ OR GO SUB K© OR STEP +- STEP READ -STR$ . STEP [F]▞xATN y=(. STEP [F]▞. STEP [F]▞STR$ NOT Az. STEP [F]▞ OR GO SUB K~ STEP . NEW OR STEP FORMAT :▞/2▜STR$ NOT Az INVERSE 6!`▚~ RETURN COPY LINE Az RETURN CLEAR 8:▚w# LOAD OR :▚ CLEAR RETURN STEP STR$ . LINE yy STEP [E]©. RETURN CLEAR 0{, INVERSE PEEK & u:[D] STEP I© STEP "©▗![E]PEEK (.+0a.$& RESTORE :a!PEEK 0 FOR 6 RETURN INVERSE 4 LLIST STEP [F]▞NOT @z LLIST l:D[E]2INOT x STEP RANDOMIZE ©(0 STEP [E]© RETURN CLEAR .( GO SUB .1 INVERSE PEEK &( NEW . RETURN RETURN LPRINT :▚ INVERSE 5.'<= OR > CLEAR RETURN STEP STR$ . PAPER x.NOT x STEP [E]©.2 RETURN RETURN ( NEXT INVERSE PEEK &( INPUT . RETURN CLEAR CONTINUE STEP BRIGHT ©,0 STOP .&&*NOT !y OR CLEAR STEP STR$ .( LINE STEP [E]©.1 INVERSE PEEK &(BIN . RETURN CLEAR (PEEK -8SQR STEP BRIGHT ©0ACS FOR 6 CLEAR INVERSE 5.%NOT 2yv= DRAW NOT @z INVERSE THEN 1~CHR$ wNOT FN v2▚NOT @z CLEAR THEN z PLOT OR STEP 7* OUT COPY ^#V FOR STEP [T]▞ STEP vSTR$ NOT @z STEP [E]© FOR ~ RETURN RETURN 6 DRAW 0 INVERSE 5+ STEP [E]© RETURN RETURN :▚ GO SUB STEP [E]©o& MERGE `▚Vw LLIST r RETURN & LINE THEN z6 COPY 6 LLIST CLEAR THEN z NEW NOT }vW▚0> COPY [C]0CODE w STOP W_z RETURN & :E[E]SQR PAPER THEN z LINE THEN zs TO STEP BEEP ▞>= OR N STEP STR$ NOT @z* LLIST COPY _^#V FOR STEP [T]▞ATTR FOR STEP AND ©PEEK CHR$ FN vNOT w FOR STEP AND ©PEEK CHR$ wNOT FN v STEP [E]© FOR STEP AND © PRINT ~ STEP AND © PRINT :[D]~ RETURN COPY .NOT Z▖ STEP [E]© PRINT STEP LIST © RETURN RETURN INVERSE 5 LET RETURN RETURN INVERSE 4wNOT @z FOR STEP PRINT zNOT az FOR OR O!`_QSTR$ <> STEP POKE zNOT Lz STEP POKE zNOT Uz INVERSE V& CLEAR THEN z DEF FN STEP ▘NOT Az OR STEP ▜STR$ NOT @z GO SUB [[K]▜zCOS LINE Az> COPY 2[M]▜ OR !` _:[M]▜ATN LINE FN v*[K]▜ OR K` RESTORE GO SUB VAL LLIST $`▚ GO SUB VAL STR$ NOT Az OR STEP (->d STEP (- LOAD 8>< STEP (-STR$ OR STEP (- LOAD [S]8 INVERSE RESTORE STEP SAVE INVERSE LLIST STR$ NOT @z PRINT STEP LET STEP ▞0 STEP NOT @z OR PRINT STEP > OR PRINT STEP > BEEP LET BEEP STEP STR$ NOT @z STEP [L]"NOT @z OR STEP (▝STR$ PAPER w CLEAR THEN z NEW NOT FN v STEP AND ©W CLEAR THEN z▙ STEP ▘NOT @z STEP OVER ▞:F<2F RETURN LINE ▝| OR GO SUB [G MERGE 2GNOT 4vo THEN THEN INVERSE u(NOT @z_>[D]2▞NOT @z2[A]_ SAVE )2NOT @z NEW `2}NOT @z CLEAR THEN z[G]NOT Az22[E]NOT @z_<=:[B]ATTR [S]ATTR 2[B]NOT @z OR INVERSE RESTORE PRINT STEP BRIGHT LET STEP <YP*▖/ RESTORE STEP LN ▙ STEP STEP vSTR$ STEP INK INVERSE LLIST STR$ NOT @z STEP AND ©2[C]:IATN (.NOT Z▖ LLIST CLEAR THEN zINKEY$ OR RESTORE COPY MERGE RESTORE OR :I_:[C] STEP Z0'2▘ INVERSE PEEK ,#~2 :▟ RETURN COPY (PEEK LLIST OVER {2I= STEP [E]© MOVE STR$ NOT @zCODE 2ISTR$ LLIST LLIST LLIST LLIST NOT 8v STEP PRINT z RESTORE STEP H©| LLIST NOT azW STEP "©NOT az RESTORE STEP OVER ▗W| LLIST NOT az STEP RANDOMIZE © LINE yy STEP STEP © RETURN CLEAR . LINE x.1 INVERSE PEEK & LINE x RETURN RETURN .CHR$ x| INVERSE 5.,? OR CLEAR RETURN STEP :▚G STEP STR$ 8'NOT |y STEP STEP ©. RETURN CLEAR ERASE xSGN © MOVE RETURN CLEAR ERASE yNOT y.- INVERSE PEEK &|(.4 PRINT STEP [F]▞ LET CLEAR THEN { NEW STEP CHR$ ▘.3NOT 2y OR STEP BRIGHT *▖/" OR ▜ OR STEP BRIGHT GO SUB K OR ▜ STEP INK STR$ NOT Az> BEEP BEEP BEEP NOT @z OR CLEAR STEP STR$ NOT Az!`▚ GO SUB [ BORDER COPY INVERSE N&2▚G~ RETURN CLEAR 0EXP x(w#< LINE <=w GO TO CLEAR THEN zINKEY$ LLIST NOT 8v OR ~ RESTORE !E[E]PEEK BRIGHT LET LLIST STR$ ERASE FN vwNOT @z:▞/2▜NOT Az[T]vAT vCOS vINT vNOT v CAT v FLASH v STOP v DIM v LIST v RUN v COPY vww9wAwUw<=w CAT w READ wxxx:xgx▘xCODE xCHR$ x FORMAT x CONTINUE xCy[T]yky OPEN #y PAPER y DATA y REM y▝y RANDOMIZE xIyCODE yzz!zCODE z5z>zIzSz^ztzyz▗z[F]z INPUT z FORMAT z OR z GO SUB z{{%{<{a{[K]{[T]{TAN {FwKwPw{{INT {<>{ BEEP {w INPUT y{w!w RUN {||Q|u||"|[S]z ERASE | RUN |3}-|4| OUT | NEW |?|i}u}▗}}[J]}SGN zSQR } LIST |}NOT } FLASH }* NEXT COPY THEN ~(Y INVERSE THEN n S:▖ NEW RETURN (J RETURN (F INVERSE THEN v .:▚ NEW o&`▜ RESTORE ! NEW [C]:▚ NEW _~/ LLIST INKEY$PEEK INVERSE THEN ~(w INVERSE THEN PEEK PY INVERSE N( STEP b▙ INVERSE RESTORE STEP LN ▙ INVERSE LLIST STEP MERGE ▙ INVERSE THEN PEEK <>CODE RESTORE MERGE OR GO SUB KC[E]O`▚ PRINT RETURN CLEAR i& CLOSE #J© LET ▗0> COPY REM STR$ MOVE LLIST <>o FOR CODE W STEP T© FOR }<> RESTORE MERGE OR STEP CONTINUE © NEW © AND USR THEN ATN THEN IN 0$ NEW ?(< RETURN ( GO SUB KC[E]KW!`▚~EXP TO T©# RUN =z7STR$ MOVE LLIST PRINT ▘W0 COPY LET <> PRINT RESTORE MERGE !"[G]"[I]_2[D] RETURN COPY ( STEP CONTINUE © INVERSE THEN 9 INVERSE THEN 8 STEP NEXT ©2[G] FOR STEP J© INVERSE t7 MOVE LLIST LET <> RETURN COPY USR :▚<> STEP [E]© STEP I©e CIRCLE LLIST NOT THEN z MERGE INVERSE ^3 STEP CONTINUE © MOVE .(<>* FOR COPY ~<>_!`▚~<> OR CLEAR STEP STR$ .<>> RETURN INVERSE N&2[D]:▘<7( OR INVERSE F3 STEP ?8STR$ STEP ?8A STEP ?88> COPY STEP [E]©<>STR$ ATN + FOR +} STEP [E]©<> STEP [ FORMAT STEP M LLIST PLOT 7<> INVERSE PEEK "USR : RETURN COPY >=#PEEK <>G!`▚:D[E]SQR >=x RETURN COPY (PEEK # LET READ RESTORE MERGE * DIM COPY ~ RETURN COPY MOVE CIRCLE LLIST READ OUT OR OR INVERSE THEN 5PEEK CLEAR THEN {INKEY$!`▚~ RETURN COPY (LINT -a. READ RESTORE LET INVERSE THEN 5~ INVERSE THEN 5 RETURN CLEAR THEN zN(▞> INVERSE THEN 5v TO READ . READ STEP THEN BIN INVERSE THEN 5v o STEP BORDER ▞NOT [P]▞8 PRINT .. STEP [F]▞ LET NOT CHR$ ▘ LET STR$ INVERSE THEN 5~( INVERSE THEN 5v( INK 8 PRINT ./ STEP [F]▞ LET 7 STEP THEN .0NOT [F]▞ CLEAR THEN zNUSR .5NOT [F]▞ STEP <* READ COPY ^#V FOR ~ RETURN COPY >= INVERSE PEEK !#~7>=# PAUSE *@}TAN (`CODE CLEAR THEN zV(*>~ RETURN PRINT 7 TO 0'"> LET GO SUB S@ INVERSE r COPY COPY COPY { 2▝2▗ GO SUB S▘ GO SUB S▛2▟ LET # STEP |▞ RETURN "( STEP ▗▞8 RETURN LOAD CLEAR THEN zV( CLEAR THEN z[G]NOT 4▝ CLEAR THEN z[G]7<> LLIST STEP ,▞ATN z STEP ▞8 PRINT RETURN " ! INVERSE THEN COPY F GO SUB [@zCOS BRIGHT #"@~ RETURN ( OPEN ## RETURN " PLOT STEP |▞ VERIFY CLEAR THEN z VERIFY INVERSE THEN COPY F ">~ RETURN CLEAR THEN z[G] INVERSE THEN COPY N :▘ RETURN COPY (INKEY$ RETURN FORMAT 2▝ATN <> INVERSE THEN COPY n > COPY 2▗ GO SUB [ STEP ▘ GO SUB [▘{ RETURN COPY ( RETURN 28 GO SUB S▙CODE <>_ RETURN (SCREEN$ ATN INVERSE THEN COPY NCHR$ [G]▝ INVERSE s! INVERSE THEN COPY DEF FN NOT [G]▝ RETURN INVERSE THEN COPY nCHR$ [G]▝ INVERSE s$ INVERSE THEN COPY INPUT NOT [G]▝ RETURN COPY CHR$ [G]▝ INVERSE s+NOT [G]▝ INVERSE THEN COPY ^CHR$ [G]▝ RESTORE !▘ INVERSE THEN COPY V(! RETURN (B RETURN . INVERSE THEN COPY V(:▘SQR #~+ RETURN COPY ( INVERSE PEEK #(:<( INVERSE THEN COPY OVER s INVERSE THEN COPY VERIFY INVERSE THEN COPY PEEK NOT [F]▝ INVERSE THEN COPY ~CHR$ [F]▝#s INVERSE THEN COPY RETURN NOT [F]▝:▙ RETURN COPY LINE [F]▝_#:w+LEN RESTORE !D[E]PEEK 0? STEP NEW ▞ STEP RETURN ▘( CLS CLEAR THEN {f / STEP ▞▞0 PLOT BEEP STEP RETURN ▘( INPUT STEP RETURN ▘ CLS STEP RETURN ▘( CLS / BEEP STEP RETURN ▘ RETURN MOVE RUN ~ RETURN LPRINT (# RETURN OUT <> LLIST LLIST <> INVERSE THEN COPY INKEY$:ATN (o:G[E]ABS (0 STEP OVER ▗|. RETURN 8, RETURN <8, RETURN Z8, CLEAR THEN z[G] INVERSE THEN COPY NEW }2J STEP BRIGHT INVERSE THEN 1^BIN TAB *J STEP [F]▞ STEP n▟ STEP [J] CLEAR THEN {ACS .! STEP [F]▞ CLEAR 6 CLEAR THEN OVER CLEAR THEN 0 OVER CLEAR THEN VAL$ *[I]▜ RESTORE } FOR LLIST :[B]000~ RETURN ( BEEP # RUN RESTORE ." STEP [F]▞ LLIST > BEEP INVERSE THEN 1F ! INVERSE THEN COPY f INVERSE ~0ATN ( STEP [E]▗86 STEP n STEP BRIGHT :[B] PLOT USR NOT L▗ STEP ▛▗ RETURN LINE ^▗ RETURN % STEP q▗ ? CLEAR THEN zF(> BEEP > BEEP STEP FN s STEP BRIGHT INVERSE THEN 1^ LINE _ CLEAR THEN { PLOT NOT G RESTORE PI GO SUB R LLIST ([R] RETURN 8[N] RETURN 0[J] STEP T▗ BEEP RESTORE ." STEP [F]▞> BEEP LLIST ▞ PRINT > BEEP LET STEP T▗ INVERSE THEN 1^ TO STEP n STEP BRIGHT CLEAR THEN { PLOT INVERSE THEN 1f(.! STEP [F]▞ STEP [J]*[I]▜~ BEEP ~# RETURN SAVE *[I]▜:[B] NEW ?72[B] CLEAR THEN { PLOT <>w# RESTORE PRINT STEP {▗ LET LLIST <> STEP q▗ LINE [K]+ RESTORE STEP {▗!"▙ STEP [T]▞[F] RESTORE GO SUB K[I]▜PI GO SUB B LLIST <> MERGE !>= INVERSE RESTORE STEP ASN INVERSE LLIST MOVE <> MERGE CLEAR THEN n( IF + MERGE CODE 2x/2y/2z/ INVERSE V0 THEN : THEN THEN : THEN 7 CLEAR THEN n RESTORE *x/PI GO SUB R LLIST 8 LIST :/ CLEAR THEN VAL$ MOVE <>(:[A]ATN ( STEP [E]▗ STEP ▛▗ STEP nNOT BRIGHT PRINT OR e! GO SUB [v/T THEN 90 THEN # THEN PRINT "v/|ATN ( STOP STR$ LET <> INVERSE RESTORE *=/ RESTORE GO SUB sB!>> RESTORE !' RESTORE GO SUB s=/!d_"B/ CLEAR rNOT v GO SUB {B LLIST "=/ INVERSE LLIST ::/ RETURN CHR$ q▖ CLEAR 6 COPY <>d_/_ STEP 4STR$ ~. STEP INPUT ▞/PEEK 0NOT Az LLIST .▝▝J COPY COPY COPY NOT COPY ▝▝>=▝RND▝ DRAW DRAW DRAW DRAW DRAW !! DRAW DRAW DRAW DRAW ( DRAW DRAW $*+- COPY I© STEP "©▗![E]PEEK (.+0a.$& RESTORE :a!PEEK 0 FOR 6 RETURN INVERSE 4 LLIST STEP [F]▞NOT @z LLIST l:D[E]2INOT x STEP RANDOMIZE ©(0 STEP [E]© RETURN CLEAR .( GO SUB .1 INVERSE PEEK &( NEW . RETURN RETURN LPRINT :▚ INVERSE 5.'<= OR > CLEAR RETURN STEP STR$ . PAPER x.NOT x STEP [E]©.2 RETURN RETURN ( NEXT INVERSE PEEK &( INPUT . RETURN CLEAR CONTINUE STEP BRIGHT ©,0 STOP .&&*NOT !y OR CLEAR STEP STR$ .( LINE STEP [E]©.1 INVERSE PEEK &(BIN . RETURN CLEAR (PEEK -8SQR STEP BRIGHT ©0ACS FOR 6 CLEAR INVERSE 5.%NOT 2yv= DRAW NOT @z INVERSE THEN 1~CHR$ wNOT FN v2▚ COPY ▝<>NOT FORMAT NOT AND NOT <>▜ue OUT ▝b`_ LPRINT _ COPY [T]▜time...3nxKt&*o*Co&PO&B▝!N[D] GO SUB V CLEAR 61CODE 2▙go2TAN /"▟▜ GO SUB {=/!q▖ READ " RUN MERGE INVERSE LLIST ! GO SUB [a/ GO SUB VAL CLEAR 6: INVERSE 4 STEP NEW ▟ CLEAR THEN zVAL$ STEP VAL GO SUB {=/ GO SUB s[G]▜ GO SUB [e/!^ CLEAR 9 RESTORE GO SUB R. PAPER U LLIST RANDOMIZE GO SUB s=/##"[I]▜"[K]▜ CLEAR 6 FORMAT ![D]"{/CODE 2[M]▜ CLEAR THEN znCHR$ CLS ▖ CLEAR THEN z RETURN GO SUB {=/!q▖ READ CLEAR 6 COPY NOT [R]t READ CLEAR THEN z~( GO SUB K▟▜yVAL BIN gs LLIST CLEAR uNOT X CLEAR THEN {ACS CLEAR THEN {VAL$ :TAN / NEW ▞2TAN /! CLEAR t&"/ STEP v STEP CLEAR ▞ STEP VAL STEP AND STEP PEEK ▟::/<!D▙ RETURN (+0 RETURN !&▙("!0▙0!>▙ RETURN ([B] STEP O!Y▙ STEP [T]▞ STEP STEP [T]▞ CLEAR THEN VAL$ CLEAR THEN INPUT STEP CLOSE # GO SUB {=/!q▖ READ CLEAR 6 COPY CLEAR THEN z~(*▟▜|ASN LINE [R]t CLEAR THEN zPEEK GO SUB {[G]▜ GO SUB s=/!q▖ READ *▟▜ DIM RESTORE !<ATN (!I[E]PEEK (0*J[E]%=($$$ SAVE "6/7 LLIST <>> OUT [E]▜ DRAW STEP ▞0/# PRINT STEP ▞#8 IF + STEP |▞ GO SUB K RESTORE COPY RESTORE !▜ CLEAR THEN zVAL$ ATN LLIST <>PEEK ( CLEAR THEN z INPUT # INPUT CLEAR THEN zn LLIST <> BEEP ~ RETURN USR # RANDOMIZE ~ STEP -? CIRCLE RETURN A? FORMAT RETURN [<> STEP INPUT ▞ STEP INPUT ▞ RESTORE STEP FORMAT LLIST CLEAR THEN z PLOT ~/ RETURN (% RETURN _ CLEAR THEN z~(: COPY COPY PRINT STEP v INVERSE ~3 CLEAR THEN { NEW STEP CHR$ ▘ LET STEP R BEEP # MERGE CLEAR THEN zv>= CLEAR THEN zACS > BEEP STEP "<>o MERGE GO SUB [ INK COPY o MERGE GO SUB [ FLASH COPY MERGE GO SUB [ LLIST COPY &)^#V FOR MOVE <>:C[E] STEP [L]" STEP BRIGHT 7[E] STEP < :[E] STEP ▞ STEP TAB *6/"<=▜<> STEP n▟ STEP M*<=▜"6/<>:K RETURN IN >= CLEAR THEN f<>![E]!([E]PEEK (8## RUN ++#F+[G]Ox OR O RETURN 0 STEP , yATN (NOT NEXT :/[ NEW SAVE LEN CLEAR ©2/[ GO SUB y CLS STR$ <>CODE INK PRINT : COPY COPY 2[P]▜ STEP v LET <> PRINT :[P]▜ STEP R LET <>:▖ NEW RETURN CHR$ FORMAT <> CLEAR FO STEP N▟8=>[A]2/<> STEP TO > BEEP CODE BEEP CODE BEEP <> STEP n▟> STEP CLEAR THEN DEF FN STEP n STEP [T]▟> CLEAR ▖/" OR ▜ STEP [T]▟> STEP n▟ STEP STEP %*O/ SAVE s#r####s#r<> STEP RETURN [T] ERASE RETURN 0t RETURN STEP SIN ▟ ERASE ▛> CHR$ B▟ STEP n▟NOT _0 STEP SIN ▟0USR STEP n▟NOT ▞ RETURN > RETURN LINE OUT ▛ RETURN 84 RETURN 0< RETURN 0S▛NOT }S▛2/NOT D▛NOT } SAVE STEP STEP SIN ▟0USR *▟ LLIST NOT [A] STEP n▟ STEP SIN ▟ ERASE POKE LINE POKE >? STEP SIN ▟0CHR$ B▟ CLEAR THEN {v(0 RETURN CLEAR THEN {nUSR STEP n▟ CLEAR THEN {nUSR PRINT :[S]▜ RETURN TO n▟ LET CLEAR THEN {VAL$ RESTORE *[Q]▜w#"[Q]▜![S]▜4 LLIST <> CLEAR THEN NCHR$ INK PRINT y RETURN (=>! OEXP TO & LET NOT INK LET RETURN CLEAR THEN { INPUT PRINT y DATA STEP SIN ▟0CHR$ B▟NOT STEP THEN {VAL$ y PRINT > STEP FLASH ▛ LET = PLOT NOT INK PRINT RETURN RND8*L[E]> COPY PEEK ( LET VERIFY RND FOR CLEAR THEN AND NOT LET STEP NOT INK CLEAR THEN NUSR INK MERGE x CLEAR THEN FCHR$ PLOT CLEAR PEEK 1 PAPER ▚USR CLEAR THEN fCHR$ r CLEAR 5RCHR$ LPRINT STEP [O] CLEAR THEN z~( INVERSE THEN (v LINE LPRINT */ RESTORE :[B]/ PRINT :ASN / PRINT *6/ RESTORE CLEAR THEN {ACS STEP TO : COPY COPY PRINT STEP v CLEAR THEN z~( INK STEP VAL INK . STEP INPUT ▞ FOR / RETURN ( STEP ; POKE CODE INPUT STEP LET STEP R LLIST "6/ LET 2ASN / CLEAR THEN INPUT !;/ THEN OVER THEN VAL$ CLEAR THEN z~ INK STEP CLOSE # INK STEP BORDER NOT ATN :ASN / PRINT CLEAR THEN {ACS INVERSE THEN 1N STEP >=▗ LET 2ASN / LET 2[B]/ LLIST "/ STEP N▟ PAPER ERASE =G STEP More..VAL$ OR STEP N▟8G>[A]GxSTR$ LN ERASE ▚x CLEAR ▚1 VERIFY FORMAT GO SUB D OR G*/ RESTORE *[B]/ RESTORE STEP Mx PRINT !k/Fx<w!▞/PEEK 84 STEP N▟8=G STEP NOT 4 LLIST GO SUB [ RANDOMIZE q*Q/#NOT IF 7 CLEAR THEN z~>=:▖ NEW RETURN CIRCLE STEP a▟ATN <>:▜ RETURN 0 RETURN FORMAT ><> CLEAR THEN {v>= PRINT :[S]▜ATN (' PRINT STEP <[B] CLEAR THEN { INPUT 7 CLOSE # LET ▛[T]▜ GO SUB S[Q]▜ LET MERGE PRINT STEP FLASH ▛ LET MOVE = POKE 2[S]▜ LET <>![T]▜"[Q]▜ CLEAR THEN {VAL$ CODE 2[S]▜<>ATN CLEAR THEN N>=? CLEAR THEN {~<>* GO SUB COPY BEEP ATN GO SUB R0!USR DRAW GO SUB [ LOAD COPY ATN GO SUB R8> COPY 2[O]▜:2[E] RETURN COPY >=>2[N]▜<><>*[E] RESTORE STEP ▙ INVERSE 4 STEP ▙ INVERSE 4 LLIST ~ RETURN COPY >=#~# STEP R NEW > BEEP :▜ BEEP > BEEP OR LLIST INVERSE u INVERSE t INVERSE RESTORE STEP INVERSE LLIST <> OUT RUN RUN LPRINT CODE [O][I][K] OUT [J][D][D] LPRINT COS [G][C][G]▛ OUT ▟[K][O][M][H][K][L] LPRINT ABS TAB INT PEEK TAN LPRINT CODE [O][I][K] OUT [B][A]▛ OUT [G][B][G]▛[G][O][D][G][K][L] LPRINT INT ▟▟[A]▟ OUT LPRINT 2 RANDOMIZE [C] NEW 2[B]/:H/2 IF [C]*<=▜" CLEAR [C]* NEXT COPY ~ CLEAR THEN {[O] THEN © CLEAR THEN { OVER NEW ?*▟/" CLS [C]o&"▟/ THEN y NEW 8 THEN o PLOT 2H/ OPEN # RETURN MERGE STEP FORMAT CLEAR THEN {ACS MOVE <>* LET COPY FOR )^#V MERGE INVERSE LLIST >2 PAUSE [C]2D/ STEP BRIGHT STEP MNOT E CLEAR THEN { PLOT INVERSE ~( NEW ATN / CLEAR THEN VAL$ CLEAR THEN n( IF GO SUB [ CLEAR [C] GO SUB S<=▜ GO SUB [ CLS [C] GO SUB S▟/: IF [C]2H/ NEW 8 OPEN # RETURN : RANDOMIZE [C]2[B]/PI<> STEP FOR ▙>!2▖/ INVERSE ~) RETURN 8 RETURN 8>2▞/ PRINT GO SUB K▖/ STEP INK LET G STEP DNOT > INVERSE CLEAR s INVERSE ~ NEW THEN '!/_ INVERSE " LIST [C]~#fo DIM l} MOVE d[A]SIN [A] CLOSE #[A] REM [A] RUN [A] INVERSE ~ STEP SGN INVERSE F INVERSE N STEP RESTORE "8 INVERSE ~ NEW RETURN STEP [B] GO SUB C}/NOT 7 STEP SGN STEP =[B]BK INVERSE THEN v( COPY INVERSE THEN ~( COPY INK RESTORE INK STEP INT $ INK LLIST INK CODE STEP AND NOT 7 NEW ATN AND NEW _:[B]/ NEW IF COS 2[B]/<> INVERSE ~ RETURN LINE '[A] STEP [B] INVERSE THEN n CODE ! LIST ]T STEP q[B]NOT > COPY ▝ INVERSE ~ NEW STEP [A] FOR INVERSE ~ NEW LIST STEP [A]CODE INVERSE THEN f(= STEP q[B]NOT > MERGE _![I][D] MOVE <>& INVERSE nT INVERSE ^)▝X INVERSE N INVERSE F OR RESTORE GO SUB [/~ATTR [S]ATTR wCODE LN (#NOT B[A] LLIST STR$ EXP LINE > NOT @[A] CLEAR ~ RETURN > CLEAR w2 PAUSE [C].NOT UATN INVERSE " INPUT [C] CLEAR 4 INVERSE RESTORE : PAUSE [C] PRINT INVERSE ~ NEW 2 PAUSE [C]STR$ :/[ NEW O OR INVERSE ~ STEP <`i) GO SUB [ LET COPY ^#V MERGE INVERSE LLIST NOT E INVERSE ~ PRINT STEP SGN > BEEP INVERSE ~ BEEP INVERSE ~ BEEP LET NEW BEEP INVERSE ~ BEEP NOT > INVERSE V> THEN z(> BEEP z NEW BEEP NOT < INVERSE V> THEN z( GO TO > CONTINUE CLEAR ~ATN >=STR$ x2 PAUSE [C]y STEP R INVERSE LLIST CLEAR 5NOT > STEP =[B] GO SUB K}/y INVERSE THEN v([D]NOT "[B]Ox INVERSE THEN ~([C]0[B]▘8 RETURN VAL 8 VERIFY VAL G<>: PAUSE [C]PICHR$ K[B] INVERSE ^ INVERSE V<> INVERSE ^ STEP ][B]M INVERSE ^ STEP ][B]Q]<>!G CLEAR THEN < THEN THEN < THEN THEN < THEN <> NEXT CLEAR RESTORE INVERSE RESTORE INK RESTORE GO SUB s PRINT [C] GO SUB [e/! SAVE RETURN 9 GO SUB R INK 0 STEP ASN [C].NOT U GO SUB C NEXT [C]O INVERSE ! SAVE COPY INVERSE 9ACS POINT # PRINT 3 RUN ! COPY COPY RESTORE X MERGE CLEAR RESTORE GO SUB K NEXT [C]!9" RUN [C] STEP INK [C]~[T]CHR$ ASN [C]>! COPY COPY RESTORE z NEW DRAW W STEP INK [C]x THEN z(NOT LLIST [B] OR INK o& GO SUB [ RUN [C] RESTORE CLEAR LLIST NEW 2 PRINT [B] INVERSE VSTR$ x RETURN VAL BRIGHT INK [C] INK THEN z INK ( CLEAR NNOT [C] CLEAR N COPY INK THEN ;0# INK # INK (~[T]( LOAD CLEAR qNOT k[C]~[T] r INK z INK [T]ACS w STEP CHR$ [C]yATN (e THEN J 0 INK _yATN LINE M[C]SQR PAPER M[C] INK z PLOT WNOT j[C]~ INK [T] 7 THEN BCHR$ e[C]0=(F OR THEN CHR$ NOT j[C] PAPER j[C] THEN ▘ THEN # ERASE %[C]+~ INK +ATN INK THEN J INK PEEK INK THEN B INK (z INK w STEP CHR$ [C]y VERIFY O8NOT r[C] INK NOT %[C]<STR$ x<CHR$ FORMAT [B] GO SUB K NEXT [C] THEN z THEN IF x RETURN VAL PAPER STR$ [B] GO SUB { PRINT [C] INK LLIST INK INVERSE LLIST CLEAR LLIST CLS <> RESTORE MERGE | NEW PLOT Xg GO SUB [/~ATTR [S]ATTR w MOVE LLIST <> OR STEP SCREEN$ " NEW [C]▝O_STR$ <>@ DRAW CLEAR ▝N[D]<~ COPY <<<< RETURN COPY COPY RETURN READ OUT SAVE RETURN DRAW COPY x[O]<={ COPY © RANDOMIZE <<<< COPY ~< RETURN DRAW SAVE DRAW RETURN OUT ▙©??© CLS q q CLS ©??©▙ OUT RETURN DRAW SAVE DRAW RETURN 0© COPY COPY ©0ABS $RND$ BORDER B$$B BORDER $RND$ABS <B▝▝▝B<[Q] LIST [J]y CLS FLASH / COPY ▝<© RETURN <▝USR LPRINT USR USR COPY ▝SCREEN$ USCREEN$ USCREEN$ USCREEN$ U TO 3 TO 3 TO 3 TO 3SCREEN$ SCREEN$ UUSCREEN$ SCREEN$ UU▖▖ @▝ COPY FdDFdDFdSCREEN$ COPY USCREEN$ COPY U@ @INKEY$ TO D"U TO EU LINE LEN *FFN 5[T]SCREEN$ uSCREEN$ e[C]mSIN }STR$ @[U] COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY %. COPY 6[Q]▝▝ff▝▝ | COPY a[S]BIN #E▚0HH0h[E]z▝▝▝fPOINT MERGE b@LN f[F]ATTR FLN @▝>▝ 6ccc6<?>cs1©©Fc>©`~cc>c>©F>cc>cc>>cc?8USR LPRINT USR USR USR >> COPY >▝>cs<JV^@<7cc©3{~cc~cc~3```3lvcccvl©10>01©©10>00p3`oc3ccc©ccc?▝?©Ff<cflxlfcp````a©cw©kccccs{ogcc6ccc6nscc~``6cck6nscc~fc>c`>c>©Y▝s3cccc>s3ccf<v3cckk6wc66cwwc6©C1© pp8T▝ COPY "x ~=gcg;``nscsn>c`c>8>gcc>>c©`?6;00|00`>cc?>``nscfoL8``flxlg▝V©kcfnscfo>ccc>nscsn`;gcg;nr```0G>~002{3cg;v3cf<vck>w66wv3©F9©▝pp(▝<B[J][R][R][J]B<▝STR$ NOT BORDER RUN $$▝ LLIST PAUSE V DRAW COPY COPY COPY COPY ▜ COPY ▝3 COPY COPY COPY COPY LOAD COPY DRAW ?O▜[H] SAVE DRAW DRAW RETURN OUT OUT COPY COPY COPY ▝ COPY COPY COPY ©?ACS GO SUB COPY FOR RUN PRINT jPEEK PRINT BEEP INPUT BORDER COPY CLS RUN COPY COPY ©[P]g OPEN #TAB jU3*U+U*U*©IN _CODE WATTR W REM VAL CIRCLE DRAW GO TO RETURN PLOT COPY CLS COPY COPY CODE COPY ▝ LPRINT USR LIST USR ▘NOT @R PAPER POKE RETURN COPY ▝Oo▜PI LPRINT USR ▘ CAT <=o=??© LPRINT RUN O STEP LOAD COPY @USR >> COPY ▝USCREEN$ USCREEN$ U*©_ COPY © COPY COPY [N][P] LOAD COPY COPY RETURN l0▝| COPY PLOT i INK [A]▝~ LPRINT LPRINT USR ? COPY 0 COPY ▝ LPRINT LIST DRAW RETURN COPY (T!cAINKEY$$$[D]▗IhIN COPY u? COPY © COPY COPY <>STR$ USR LLIST READ [H]???USR ` LIST SAVE DRAW DRAW SAVE DRAW l LIST SAVE SAVE P LIST LIST 2? FLASH MUSR LPRINT @[I]Q~?D[S]▞L"H!A'[D] READ READ NEXT NEXT CLS CLS CLS RUN LPRINT LIST LIST LPRINT LIST SAVE SAVE LIST -?V@ pp8T▝ COPY "x ~ COPY ©© COPY ▝ SAVE DRAW RETURN DRAW COPY COPY COPY COPY ?? COPY © LIST SAVE RETURN RETURN COPY COPY COPY COPY ???? COPY ` LPRINT LIST LIST DRAW RANDOMIZE COPY COPY |~T RETURN COPY COPY COPY COPY STR$ NEXT COPY ▝USR LIST IF USR USR LPRINT [Q] LIST DRAW ATN o/ATN [H]K DRAW ▝ RETURN DRAW COPY $I COPY GO SUB ©IN I[K] COPY y RETURN SAVE LIST PAUSE LIST LPRINT LPRINT PAUSE ??? OUT RETURN DRAW RETURN DRAW RETURN DRAW RETURN CLS LIST LIST SAVE SAVE RANDOMIZE SAVE SAVE CLEAR © RETURN ?IIN RESTORE STR$ USR PAUSE $USR ATN ©'▜ RUN PIe COPY RETURN SGN COPY CLEAR BRIGHT BRIGHT DRAW d$ACS [O]{K[K]>kA▝pp(▝<B[J][R][R][J]B<▝ COPY COPY COPY CLEAR DRAW PLOT [I][U] CLEAR COPY COPY 7[B]0 COPY © COPY COPY COPY COPY OUT COPY ▝ OUT COPY RETURN © CLEAR COPY COPY 7▝ COPY POKE COPY IN COPY COPY COPY COPY fPOINT MERGE b▝>▝ COPY ▝ CLEAR CLS COPY COPY COPY COPY [L] RETURN COPY ▝© COPY LOAD COPY ▝ LOAD OUT COPY FOR OPEN # PRINT ATTR AT CODE T[Q][Q] COPY COPY COPY COPY © COPY ?IN <= CAT COPY COPY RETURN RETURN COPY COPY CLS COPY * POKE LIST x >><B@LN f[F]ATTR FLN @[H]O?© COPY RETURN COPY LET PRINT SAVE COPY COPY COPY IF COPY ▝ LOAD CLEAR LLIST COPY © RETURN <= BORDER <= COPY RUN COPY ka LLIST <>H OUT OUT LOAD LOAD COPY LOAD CLEAR COPY CAT COPY COPY COPY RETURN COPY PLOT COPY BORDER LPRINT LIST [A]p9ABS LLIST LEN 7A LLIST NEXT CLS COPY ▝▞ COPY RETURN COPY COPY COPY COPY NEXT LET IN / OR COPY RETURN COPY / COPY CLEAR COPY ▝ RETURN COPY RUN COPY COPY COPY COPY INK © COPY ▝IN OUT COPY ▝ RETURN COPY DRAW CLEAR THEN CODE MERGE 5 PRINT * RUN CLS COPY BEEP [R] LIST DIM PAUSE LIST LPRINT CONTINUE DRAW RETURN T/© COPY ©© COPY COPY OUT COPY USR USR STR$ READ NEXT COPY LOAD COPY VERIFY ▚▜[D]IN ▜ COPY RETURN © READ BORDER READ COPY _ COPY ▝ RUN COPY © COPY CODE COPY COPY ▜▟ GO TO CONTINUE USR ▘▜ CAT BORDER COPY COPY COPY © COPY o COPY CLS CLS RUN RUN COPY RUN COPY IN CAT CLEAR POKE [T] COPY © SAVE y IF DRAW AT RETURN COPY RETURN COPY | COPY ~ BEEP COPY COPY COPY COPY USR USR USR +©IN © COPY COPY COPY COPY USR USR SAVE DRAW VAL$ RETURN COPY RETURN COPY ??©▝@[Q] .©©u LPRINT FLASH DIM READ LLIST READ STR$ CUSR [Q] LPRINT USR LIST LIST ?© COPY ▝USR USR USR USR LPRINT LPRINT LPRINT LPRINT FORMAT CONTINUE SAVE TAN BRIGHT SAVE USR READ [T] MOVE MERGE CLEAR LN [u? COPY USR LPRINT USR LPRINT SAVE DRAW RETURN FLASH > COPY COPY RUN RETURN FLASH RETURN COPY BORDER READ ACS ABS MERGE REM POKE COPY COPY COPY IN ▝pp(▝<B[J][R][R][J]B<▝$$▝$~$$~$>(>>bd&F(*D:▝ >>▝>▝ <FJRb<(><B<@~<BB<(H~~@|B<<@|BB<~<B<BB<<BB>< >><B<JV^@<^CODE SAVE VERIFY FOR CAT BEEP ATN mPEEK LN ~' COPY © COPY M PAPER [H]o7LEN DATA LOAD COPY ▝USR LPRINT LPRINT LPRINT LIST DRAW COPY COPY COPY COPY COPY SAVE COPY COPY COPY RETURN SAVE COPY LIST ▝*▝? COPY LPRINT RETURN COPY COPY ▝ LIST RETURN 2[U]g COPY COPY OUT COPY CLEAR COPY IN COPY ? COPY _USR LPRINT LPRINT p LIST SAVE SAVE DRAW © COPY COPY yUSR COPY COPY DRAW NEXT >=VAL ` LPRINT COPY ?USR COPY COPY COPY ? CAT RUN RUN CLS COPY COPY COPY 7CODE owINT & OVER COPY COPY © COPY COPY _ COPY COPY IF DRAW USR USR COPY CLEAR ERASE ▝ pp8T▝ COPY "x ~ COPY COPY COPY ©[H]//USR USR USR SAVE < PAUSE LIST LIST SAVE LIST LPRINT SAVE LIST LPRINT @ SAVE LIST LPRINT USR ?7© COPY RETURN LIST LPRINT FORMAT USR USR @@xDDD08$ (00($▝hTTTTxDDDD8DDD8xDDx@@<DD< 8@8x8DDDD8DD((DTTT(D((DDDD<8| |▝pp(▝<B[J][R][R][J]B< the[Q] you[Q]ing[Q] th RESTORE to[Q] an DATA is[Q]are[Q]You[Q]and[Q]in BORDER ed[Q]he[Q] a[Q] o LIST it CONTINUE ou POKE en POKE t LOAD i INPUT al GO TO t CONTINUE i POKE te PAUSE av RESTORE b RESTORE ve PAUSE he PAUSE n LOAD i READ a LIST STOP g CONTINUE [Q]a DATA i NEXT READ i PAUSE a RANDOMIZE u PAUSE u INPUT o LOAD DATA l LOAD r LOAD a READ s RESTORE r DIM l DIM t DIM o GO SUB b GO TO c FOR I[Q]e DATA e RESTORE NEW h LLIST p RESTORE e[Q]t[Q]i INPUT s[Q]t CONTINUE ,[Q]e PAUSE d[Q]o INPUT t LOAD a INPUT a PAUSE e INPUT o PRINT o PAUSE s POKE .[Q]o RUN l RESTORE a POKE a GO TO r RESTORE y[Q]c CONTINUE a GO SUB e GO TO RUN a NEXT e NEXT i POKE NEXT %W%$ COPY %2W%% COPY =&<#2% COPY #p%" COPY #p=&p COPY % COPY 1% COPY 3% COPY % COPY O=&p COPY O3R% COPY COPY COPY COPY COPY O3R% COPY % COPY 2% COPY 2% COPY % COPY % COPY O=&p COPY O% COPY O% COPY %%' COPY %OX1W%% COPY ) COPY ) COPY "# COPY " COPY =&[A] COPY % COPY "&p COPY %1W%% COPY %2W%% COPY %2W%% COPY %1W%% COPY COPY COPY O=&)#2% COPY O=&)#2%3 COPY O=&)#2% COPY =&)33#2% COPY =&7#2% COPY R3R COPY 3% COPY +m=& COPY +m=&7#2%- COPY &6#2% COPY O&5= COPY &6#2% COPY O&5= COPY O>=&51== COPY O>=&L&M&N%3=1> COPY >&5= COPY &5= COPY COPY COPY U COPY COPY =&& COPY JI=&& COPY =&& COPY 3,(1 COPY 6 COPY ▖13▖ COPY D+3D&k COPY &l COPY y,( COPY y,( COPY J3J3&{,( COPY } COPY ▜13▜ COPY &▜&▖ COPY &▞ COPY n+&INT &PEEK 3n,(1 COPY )}6 COPY COPY U RETURN COPY d3 COPY 6 RETURN =&f COPY d3 COPY 6 RETURN ==&0f COPY d3 COPY 6 RETURN =&f COPY %d3 COPY 6 RETURN =& REM f COPY COPY U CLEAR COPY 3' COPY " COPY U RETURN COPY 3*&= COPY ! COPY [3Z COPY [ COPY COPY [3Z COPY [ COPY COPY [3Z>= COPY [>= COPY ? COPY COPY &c COPY =W3Z3[ COPY =W3Z3[ COPY COPY E'+33&1 COPY =& 1 COPY &=,333▝1 COPY &ASN ===% COPY STOP ===&ACS 3+3n1 COPY &ASN ===% COPY STOP ===&ACS 3+3n1 COPY I&=& COPY &INKEY$ COPY =& COPY 6# COPY & COPY IJ& COPY JIK&z COPY J&w COPY & COPY & COPY 5FMm&/ COPY 5N& COPY u5FMm&/ COPY +m&VAL COPY 7&Q COPY & COPY & COPY &LEN COPY Eo OVER COPY &g COPY D&h COPY D&i COPY &j COPY &/ COPY E(5N& COPY &4&SCREEN$ COPY ,&AT COPY ~& LOAD COPY ~&AT COPY &D COPY &/ COPY &/ COPY E(5FMm&/ COPY E(u5FMm&/ COPY COPY n&ABS COPY O&q COPY O&q COPY O&▗ COPY O&▗ COPY O&[S] COPY O&[S] COPY "▚&▚ COPY &[L] COPY )&[K] COPY &[M] COPY &[M] COPY "&[K] COPY c&t&▜& LIST COPY &▞ COPY R&r COPY OHR&s COPY &r COPY OHR&[C] COPY ORH&[D] COPY RO&[R] COPY KJ&v COPY J&w COPY K&u COPY +l&TAB COPY + COPY KaJ& COPY aKJ&▚ COPY &ATTR COPY +lk&VAL$ &CODE COPY +l COPY -$ COPY n&ATN ,3n1 COPY &IN COPY &BIN COPY & OR COPY # POKE SAVE &D COPY #s& FORMAT COPY OVER COPY O{& DIM COPY |& DIM COPY )}& GO TO COPY d3 COPY 6 RETURN &$ COPY & COPY D3D&k+ COPY D&n3D COPY En#VD3D& READ ,3s1= COPY En#OVD3D&& DATA COPY #V IF ==& ERASE +,3V3▟3 SAVE 1= COPY %++&C3 COPY ++3X3Y3&C1 COPY ++&▛,3S3▘1 COPY 3.3=&E&F1 COPY OP3O=&E&▗3G1 COPY "1r=&E COPY ORH=&E=&[B]3H1 COPY RO&[R] COPY =&E COPY KJI&=& COPY aJIK1L3a%=&x3 RESTORE 1= COPY KJ&w COPY aKJ&▚ COPY <&K,3<1 COPY &I,31 COPY &J COPY 3@3?33` COPY E? KJ3J+3 LIST &y COPY E? KJ& LET COPY J3J3&{,( COPY !Q&▚ COPY !QPO3P3Q&▘&1 COPY !Q&▚ COPY !Q&▙ COPY !& COPY !P&▝ COPY !PO& COPY !OP& COPY 3R COPY UH3R3 RESTORE 3U1L1% COPY @>=2#&LN 3o=#d COPY o@>=&EXP 3 BEEP 3o, COPY ot>=& CLOSE #&ATN 3 BEEP 3o,3t3O1 COPY otL@>=& COPY +l====&USR 3l3m1 COPY )}=& GO SUB 3},1 COPY +&SQR COPY !$=&▗3p3 DRAW COPY & FOR COPY COPY COPY ,[R] COPY 6[R] COPY @[R] COPY L[R] COPY V[R] COPY a[R] COPY j[R] COPY s[R] COPY |[R] COPY [R] COPY [R] COPY [M][R] COPY RND[R] COPY VAL [R] COPY EXP [R] COPY BIN [R] COPY MOVE [R] COPY PAPER [R] COPY NEW [R] COPY LOAD [R] COPY SAVE [R] COPY [S] COPY [S] COPY [S] COPY [S] COPY -[S] COPY :[S] COPY C[S] COPY N[S] COPY Z[S] COPY e[S] COPY o[S] COPY x[S] COPY ▗[S] COPY ▙[S] COPY [I][S] COPY [S][S] COPY AT [S] COPY ASN [S] COPY USR [S] COPY OPEN #[S] COPY CONTINUE [S] COPY CLS [S] COPY [T] COPY [T] COPY '[T] COPY 1[T] COPY =[T])M[T] COPY W[T] COPY a[T] COPY n[T] COPY x[T] COPY ▖[T] COPY [S][T] COPY AT [T]ATN [T]&INT [T]& OR [T]5 VERIFY [T]5 BORDER [T]6 RETURN [T]7[U];[U];#[U]?+[U]?=[U]?M[U]?`[U]Fk[U]Sw[U]S▝[U]h▞[U]i[Q][U] COPY POINT [U]AT [U] COPY CODE [U] COPY USR [U] COPY OPEN #[U] COPY DATA [U] COPY PRINT [U] SAVE [U]? CLS [U] COPY RNDRND?RND COPY RND COPY RND COPY %RND COPY *RND COPY .RND COPY 6RND COPY ;RND COPY =RND COPY HRND COPY ORND COPY SRND! COPY WRND" COPY dRND% COPY oRND,6qRND-4▖RND-4[A]RND/<INKEY$RND/<INT RND/E CIRCLE RND/E GO TO RND0&INKEY$0 COPY INKEY$1 COPY INKEY$2 COPY "INKEY$3&&INKEY$3&,INKEY$3&8INKEY$3&GINKEY$3'PINKEY$3(WINKEY$3(]INKEY$3(gINKEY$3(oINKEY$3)zINKEY$3*INKEY$3+INKEY$3+[C]INKEY$3+[I]INKEY$3+[Q]INKEY$3+INKEY$INKEY$37COS INKEY$37LN INKEY$37STR$ INKEY$3; LINE INKEY$3< FORMAT INKEY$3< CIRCLE INKEY$3< STOP INKEY$3< REM INKEY$3< LIST INKEY$3< RANDOMIZE INKEY$3=PI3=PI3GPI3GPI3G&PI3H3PI3H<PI3OEPI3ONPI3OWPI3O`PI3OiPI3OrPI3O{PI3Q▗PI3Q[A]PI3Q[M]PI3QFN PI3QTAN PI3RUSR PI3S CAT PI3T BEEP PI3T LPRINT PI3T LOAD PI3T PRINT PI3TFN 3TFN 3UFN 3U+FN 3U4FN 3U=FN 3UFFN 3WOFN 3W^FN 3cmFN 3dsFN 3d▝FN 3d▟FN 3e[I]FN 3hATTR FN 3iLEN FN 3jATN FN 3lABS FN 3n TO FN 3o MERGE FN 3p LPRINT FN 3p DIM FN 3r PAUSE FN 3 COPY CLS FN 3 COPY POINT 87POINT 97POINT :;&POINT :;EPOINT :iZPOINT A5POINT A5[G]POINT AZVAL POINT B=>=POINT BO NEW POINT BO COPY POINT BTSCREEN$ BT%SCREEN$ B COPY 1SCREEN$ CW7SCREEN$ CWKSCREEN$ CWqSCREEN$ CW|SCREEN$ D<▛SCREEN$ D=[M]SCREEN$ D COPY VAL SCREEN$ L COPY TAN SCREEN$ XUCHR$ SCREEN$ XU PAPER SCREEN$ YU REM SCREEN$ ]O CLEAR SCREEN$ ^OATTR ^O&ATTR ^O3ATTR ^O@ATTR _OJATTR _OUATTR _OcATTR aSqATTR bTzATTR fH[G]ATTR fHCODE ATTR fH>=ATTR fH PAUSE ATTR g)AT gr#AT g COPY 8AT kj@AT q COPY RAT VAT 4< COPY < COPY TcMcMcMcMcMcMcMcFP3N>=%QRW= COPY ] COPY S COPY COPY COPY COPY CODE COPY VAL COPY COPY VAL COPY COPY TVAL COPY COPY XVAL /VAL K COPY _?` DRAW &U&[&W3`3A&V#d3 RANDOMIZE COPY KKK COPY KKK COPY EK COPY IF 333&# COPY VERIFY &INT +3o3 COPY &*&+&,=& COPY v3w COPY #uz+3y3z3& OUT = COPY F3F COPY ~u3w COPY u©3w3~ COPY PLOT 3 COPY 3,&9&:&;33 RANDOMIZE COPY SAVE =&G&O3 COPY RUN &H=& COPY %]W33X,3 RANDOMIZE 3&9&:&[G]3] COPY ? CLS 3?3@&b COPY Ov? CLS 3?3@&b COPY RUN 3 COPY <2F COPY (1F COPY t3O1L31 COPY t3t3O COPY wo3t COPY BRIGHT 3 COPY ^. COPY ^(. COPY ^<. COPY ^P. COPY ^e. COPY j3j COPY R& COPY u&o COPY v& FLASH COPY mlk&CHR$ &VAL$ &NOT 3l+$ COPY wl& LLIST &.+2NP1 COPY w+&. COPY IF 33p COPY POKE 3 COPY "▚r& STEP 3p3 COPY 3r COPY "▚r& STEP ==& CAT & COPY "V3V COPY #V PRINT & AND & OPEN #+33V COPY #V CLS & AND & OPEN #+33V COPY |N3N3w+&X& STOP =3|31 COPY #▟V& AND & OPEN #+3V COPY COPY COPY uVAL xVAL COPY {VAL COPY [L]VAL COPY [S]VAL COPY POINT VAL COPY 4CODE VAL COPY 6PEEK VAL COPY < FORMAT VAL COPY < STOP VAL COPY < FOR VAL COPY <LEN COPY <LEN COPY <LEN COPY ='LEN COPY =/LEN COPY =GLEN COPY =XLEN COPY =dLEN COPY ?LEN COPY F[N]LEN COPY GLN LEN COPY GIN LEN COPY G TO LEN COPY H INK LEN COPY H INPUT LEN COPY H CLEAR LEN COPY MSIN COPY QSIN COPY Q$SIN COPY Q7SIN COPY QJSIN COPY Q]SIN COPY QpSIN COPY S}SIN COPY /▗SIN COPY /SIN COPY d[B]SIN COPY dPOINT SIN COPY dSTR$ SIN COPY l DEF FN SIN COPY l INK SIN COPY l LLIST SIN COPY l SAVE SIN COPY lCOS COPY lCOS COPY l.COS COPY lDCOS COPY lcCOS COPY COPY xCOS ©COS ,Z3Z COPY [ZaBNcMcMcMcMcMcMcM3ZTBNb COPY [ZaBNcM PAUSE cM NEXT cM POKE cM PRINT cM PLOT cM RUN cM SAVE 3ZTBNb COPY ,[ZaBNcM THEN cM RANDOMIZE cM IF cM CLS cM DRAW cM CLEAR cM RETURN 3ZTBNb COPY [ZaBN=N=3ZTBNb COPY [ZaBN=3ZTBNb COPY COPY COPY LTAN COPY ]TAN COPY COPY [I]TAN COPY COPY OPEN #TAN COPY COPY ASN FASN &f COPY FOR 3 COPY J GO SUB 3I3 COPY &!3 COPY w&"33 COPY 3 COPY d& COPY F&&33 COPY ▝3&3 COPY 3 COPY 1 COPY !"#&>3 COPY !"#&>&?3 COPY !"#%$=&@,33 COPY +=&B COPY =&A3_ COPY 3+3j1k COPY 3^ COPY COPY / COPY cASN COPY &pASN COPY &wASN COPY 4▚ASN COPY 4ASN COPY 6[R]ASN COPY 6ASN ASN COPY 6 FORMAT ASN COPY 6 LPRINT ASN COPY COPY BORDER ASN COPY COPY POKE ASN COPY COPY ACS COPY COPY 0ACS COPY COPY ^ACS COPY COPY jACS COPY COPY ACS COPY COPY [J]ACS [R]ACS &%&&&'3 COPY 73&(3 COPY COPY &*=&+&-&.+33+33,1 COPY &*&+&,=& COPY &*&+&,=& COPY &*&+&,=& COPY RETURN 3+3 COPY (@21?3@ COPY %?=&R3 COPY 3? COPY ? RETURN &S3 CLEAR COPY ? DRAW &T3 CLS COPY ? DRAW &T3 CLS K COPY ? IF &U&]K COPY (e+2N COPY (-@21?3@ COPY (-e+2N COPY w. COPY COPY COPY < REM ACS COPY < RANDOMIZE ACS COPY <ATN COPY <7ATN COPY <LATN COPY <^ATN COPY <pATN COPY <ATN COPY <[K]ATN COPY <VAL$ ATN COPY <INT ATN COPY <>=ATN COPY < CIRCLE ATN COPY < BORDER ATN COPY <LN COPY <LN COPY <1LN ;LN &33 COPY 3 COPY 3 COPY &M&P===3+31 COPY SIN 3 NEW 3n COPY ERASE 3 COPY RESTORE &COS 3 DATA COPY READ &TAN 33n+ COPY STOP SLH&4&[T]==&V#d3c31 COPY S&▜&RND&▛++3S3R1 COPY S1L3S COPY bLOG3G3b COPY c==&[U]%,3c COPY COPY COPY +▗LN COPY +[C]LN COPY +[I]LN COPY ?[O]LN COPY HSGN LN COPY H LINE LN COPY H MOVE LN COPY H PAPER LN COPY R DIM LN COPY REXP COPY R+EXP COPY R8EXP COPY RJEXP ^EXP _ CLS ?v&W&V#d&X& BEEP 2N33@3?3` COPY CLS ?v&[&W&V#d&Y& CIRCLE 2F33@3?3` COPY u3u,&©&:& LPRINT &W&V3w3d1 COPY we&W&V COPY F{+&Y& INK 3{3F3w33u33@3?3` COPY wc2N3b COPY wa2F3` COPY CLS ?u3@3?3`&[&W&V#d&X2N& BEEP COPY CLS ?u3@3?3`&[&W&V#d&Y2F& CIRCLE COPY RANDOMIZE &Z&^33@3?3`1C2N+ COPY RANDOMIZE ]&[O]=&`&&a% 33@3?3`1C3E2F+ COPY Bw&]&_3B COPY xC)3B.3C COPY xCd3B.3C COPY xC=3B.$3C COPY &d2F COPY (M&©&:&~&|3M1 COPY u&©&:& VERIFY 3u++3x1 COPY uw&©&:& PAPER 3u,3v1 COPY v&©&:& BRIGHT 3v COPY vw~&[&W&V#d&X&]& INVERSE ,3w3v3~1 COPY uw~=& INPUT &[&W&V#d&X&©&:& VERIFY ,3w3~3©31Nd COPY w&©&:& VERIFY +3u3w COPY COPY [H]EXP COPY [K]EXP COPY <=EXP /( RUN EXP /(INT /(-INT /(VINT /(dINT COPY rINT COPY [P]INT COPY G TO INT COPY G GO SUB INT COPY GSQR COPY G/SQR COPY GFSQR COPY G]SQR COPY GtSQR COPY /▜SQR COPY /[O]SQR COPY /INT SQR COPY / BEEP SQR COPY / BORDER SQR COPY /SGN COPY /GSGN /SGN .! COPY .! COPY .! COPY .! COPY .! COPY .! COPY .! COPY .! COPY .! COPY .! COPY .! COPY .! COPY .! COPY .! COPY .! COPY .! COPY . ! COPY !.!! COPY "."! COPY #.#! COPY 3E COPY COPY COPY COPY STR$ SGN COPY COPY <=SGN COPY COPY STEP SGN COPY COPY OPEN #SGN COPY COPY INK SGN COPY COPY OUT SGN COPY COPY RESTORE SGN COPY COPY FOR SGN COPY COPY LET SGN COPY COPY RUN SGN COPY COPY CLEAR SGN COPY COPY ABS COPY COPY ABS COPY COPY ABS COPY COPY ABS COPY COPY ABS COPY COPY !ABS COPY COPY 'ABS COPY COPY -ABS COPY COPY 3ABS COPY COPY 9ABS >ABS L DATA &▟&3 READ COPY ▗G3G3▗ COPY G3 RESTORE 3G COPY L LLIST &4&[N] COPY TQ3T1L3O3Q3P COPY X3 READ 3V COPY V LPRINT X[E]3V31 COPY V3R==&[F]."3V%" COPY a3K COPY LPRINT &T3 OUT COPY INVERSE &b3 COPY INVERSE &4&[P]=&`&a3% COPY H3H COPY "V& TO & STEP 3V.#%# COPY #q3 RANDOMIZE 3q&4& DEF FN COPY q RUN V3q& AND &:&<= COPY #q PRINT V33q+&>=&[F]&:& LINE &<>%" COPY #V3 RUN & AND &:& MOVE 3q3p3V COPY #V PLOT & AND COPY COPY COPY M[H]ABS COPY MRNDABS COPY MASN ABS COPY MSTR$ ABS COPY M STEP ABS COPY M NEW ABS COPY M DRAW ABS COPY MPEEK COPY M-PEEK COPY M6PEEK COPY M@PEEK COPY MKPEEK COPY McPEEK COPY MlPEEK COPY l▝PEEK COPY l[E]PEEK COPY lFN PEEK COPY l THEN PEEK COPY l DATA PEEK LOAD PEEK _ COPY F&[P]K COPY e&[Q]K COPY COPY COPY @IN COPY <CIN COPY <OIN COPY <[IN gIN =&`&&aK% 33?3`3@3E3T COPY COPY COPY <|IN [O]IN COPY PIIN w`3d COPY v~©=& INPUT 3©1Nd3w COPY u~©=& INPUT 3©1Nd COPY $3333 COPY $3 COPY oOw3o COPY S3▗ COPY ▘3▘ COPY 3▚ COPY "3r COPY #{&:& RESTORE COPY #|&:& NEW =& BORDER &©&:& VERIFY & CONTINUE 1 COPY #v3v COPY |+ COPY ▟3▟ COPY COPY /(AT IN COPY (ACS IN COPY ( FORMAT IN COPY = BORDER IN COPY = CLS IN COPY HUSR COPY MUSR COPY RUSR COPY j'USR COPY l/USR COPY p5USR COPY pCUSR COPY p`USR COPY plUSR COPY psUSR |USR WAT ]VAL COS GASN [S]ACS <LN _EXP ]SGN ?ABS LIST PEEK hIN [P]IN FN IN }USR LPRINT LPRINT [O] OUT [J][D]▚ LPRINT [O] OUT LOAD RANDOMIZE [I][A][D][L] LOAD SAVE OUT [M][A][G][B] LPRINT [O] OUT [N][M][E][K]▛ LPRINT [O][B] OUT [A]▟[M] OUT [I][O]▟[L] LPRINT [O][B] OUT [A]▟[M] OUT [I][O]▟[L] LPRINT [O] OUT [D][C] OUT [A][J] OUT [C][L] LPRINT [O] OUT ▛▟[A][D][D] LPRINT [O] OUT ▟[G][B][I] LPRINT [O] OUT [N][D][O][M][E] OUT [M][D][A][O][E] LPRINT [O] OUT [C][O][D][D] OUT [L]▖[O]▟[J] OUT [O]▛▟[A][D] LPRINT [O][B] OUT [A]▟[M] OUT [O]▛▟[A][D] LPRINT [O] OUT [L][L][D][K] LPRINT [O] OUT [L][K][K] OUT [M][H][O][C] LPRINT [O] OUT ▛[A][A][D] LPRINT [O][B] OUT [A][I]▟[K] LPRINT LOAD RANDOMIZE ATTR [H][K] OUT [C][O][G][B] OUT [L]▖[O]▟[J] OUT [O]▟[C]▚ LOAD SAVE LPRINT LOAD CLEAR ATTR [H][K] OUT [C][O][G][B] OUT [A]▟[M] OUT [O]▟[C]▚ LOAD SAVE LPRINT [O] OUT [M][D][N] LPRINT [O] OUT [E][K]▚ LPRINT CIRCLE TAN [B][G][J][K] CIRCLE OUT ▛[H][K] OUT [A]▟[M] LPRINT ABS [K]▟[B][O]▟[L] OUT ▛[H][K] OUT [N][K][O]▞[K]▟ LPRINT [O] OUT ▟[O][I] LPRINT [O] OUT ▟[A][M][E] LPRINT [O][B] OUT [O][C][D][K]▛ LPRINT LN ▟[K][I][A]▟ LPRINT [O] OUT [D][K][O][J] LPRINT [O] OUT [B][O][G][D] LPRINT [O] OUT [E][D][D] LPRINT [O] OUT ▛[A][A]▛[H] LPRINT [O] OUT [K][O]▟[H][K][O][L] LPRINT [O] OUT [H][A]▟[K][H][A][K] LPRINT [O] OUT [N]▟[O][B][M][H] LPRINT [O] OUT [M][A]▟[E] LPRINT [O] OUT [N][A][B][K] LPRINT [O] OUT [I][G][O][B]▛ LPRINT INK USR PAPER USR FLASH USR LLIST USR LET USR IF USR STR$ STR$ "STR$ *STR$ 1STR$ ?STR$ TSTR$ bSTR$ kSTR$ xSTR$ STR$ ▖STR$ [Q]STR$ ACS STR$ ABS STR$ NOT STR$ OPEN #STR$ NEW STR$ GO TO STR$ NEXT STR$ CLEAR STR$ CHR$ CHR$ CHR$ CHR$ "CHR$ .CHR$ :CHR$ CCHR$ JCHR$ QCHR$ LPRINT LPRINT LPRINT LPRINT LOAD CLS RS[N][K][I][B]X[E]GZ[C][L][L]+@ MOVE RANDOMIZE LOAD RANDOMIZE RANDOMIZE INT PIACS ATTR AT OR LOAD IF d LPRINT LOAD CLS RS[L]X OUT Z[C][C][G][A][J] OUT [C][A]2SGN ▟[O][I]ABS [K][J]▚ OPEN #[O] OUT [H][I]▛▟#6[A]@Z[C]J[H] OUT [A][J]M[M]BVAL [B]Z▛▟#T[O][C]F[G][L] OPEN #A[I]VD▖[K][N]ABS [K]/▖ OPEN #GZ▞F[K][A][J] OUT ABS [A]*[C][A][D]M[D][I][C][C][A]▞H▖[L]Z+@ OVER RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF n LPRINT LOAD CLS RS[L]X[G][L][K]M[C]F6BCOS [G]:▛"[G][D]C0M[D][I][H][A][D][O][N][A]▞▚ATTR N[M]B OUT [C]J[H] OUT [L]HZ[K][O] MOVE RANDOMIZE LOAD RANDOMIZE RANDOMIZE RANDOMIZE INT PIACS ATTR AT OR LOAD IF n OUT d LPRINT LOAD CLS INKEY$ CIRCLE ▞▖[E]OM[C]F6BPEEK [G][L][K]0# OUT [H][A][D]*GZ[I].2[L]A[J]▚ MOVE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF f OUT e LPRINT LOAD CLS RS[L]XM[B].▖ OUT [D]$[I][K]ATTR ?[K]T[O] OUT /[B][I]0.HZ[I].2[L] OVER RANDOMIZE LOAD RANDOMIZE RANDOMIZE INT PIACS ATTR AT OR LOAD IF f OUT e LPRINT LOAD CLS RS[L]XZ$[I][A][J]Z▞F[K][A][J] OUT ABS [A]*[C][A][D]ATTR [A]Z[K][O] OPEN #([K]X[C][A]▞ OPEN #▖[H][G]HZJ[H] OPEN #▚6 OUT ,[K]Z+@ MOVE RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF n OUT k OUT i LOAD SAVE LPRINT LOAD CLS RS[L]XZ$[I][A][J]Z+@[N][E]ACS ▛"HZ[K][O]ATTR N+@D,[D][J] OUT [D]1[E][C][A]0▟▚ MOVE RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF o OUT n LPRINT LOAD CLS RS▖[E]X[O]/[B][I]Z+@ ERASE ;[E]PEEK OUT [H][I][K][C][N][E][C]I OUT 8U OUT ▛Z[D][I] OUT [A][J]Z+@ATTR N[I].22[L]"1▛T@[C][L][L]▚U* ▟▚ MOVE RANDOMIZE RANDOMIZE LOAD RANDOMIZE RANDOMIZE INT PIACS ATTR AT OR LOAD IF n OUT f OUT d LPRINT LOAD CLS RS▖[E]X[O]/[B][I]Z[C][L][L]+@[N][E] MOVE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF n OUT f OUT k OUT d LPRINT LOAD CLS RS▖[E]X[O]/[B][I]Z+@ ERASE ;[E]ATTR N[A][J]Z+@T[G]:▛UW▟,[K][C]V[N][K]M[C][A][J] OUT /[I];/&X OVER RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF n OUT f LPRINT LOAD CLS RS[L]XZ[A][J]Z+@[N][E]PEEK OUT [H][I][K]AB▟ OUT /[L][I][K];/&Z[C]J[H] OUT [A][J]Z+@A[J]▚ MOVE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF f OUT e LPRINT LPRINT LPRINT LOAD CLS RS[G][L][K]Z[N][K]B▟ OUT /[L][I][K]PEEK OUT [H][I][G][D][A][J][A][J]▛0▟B*GM[M][B] MOVE RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF d LPRINT LOAD CLS RS[L]X OUT [O]>▛? OUT [D]$[I][K]ABS [K]/▖ OPEN #▚6 OUT ,[G]▜ OUT [M] OUT +[L] MOVE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF n OUT e LPRINT LOAD CLS R[H]B6*[C][N]OZ[N]▟[K][A][J]M▛▟#COS 1[E]X[A]@Z▞F[K][A][J] OUT ABS [A]*[C][A][D] OPEN #▚6 OUT ,[K]M[H][I]▖ MOVE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF e LPRINT LOAD CLS RS[L]Z$[I][A][J]Z▞F[K][A][J] OUT ABS [A]*[C][A][D]ATTR [A]Z>▟ OPEN #[G]▜[H]8Q[I]J[G][L][K]Z[M] OUT [M][C]I MOVE RANDOMIZE LOAD RANDOMIZE RANDOMIZE RANDOMIZE INT PIACS ATTR AT OR LOAD IF o OUT f LPRINT LOAD CLS RS▖[E]X.:Z▞F[K][A][J] OUT ABS [A]*[C][A][D] MOVE 9ATTR [A]Z[K][O] OPEN #▛N$[I][A][J]Z▞F[K]▚T[G]:▛ MOVE RANDOMIZE LOAD RANDOMIZE RANDOMIZE RANDOMIZE INT PIACS ATTR AT OR LOAD IF n OUT f LPRINT LOAD CLS R[H]B OUT -[H]$Z OUT [D][O]9[A][J] OUT ABS [A]*[C][A][D]ABS [K][J]▚ OPEN #[B][H]8[M]9[O]1[D]9[A][J];[D]1[A]3".[C]6▟-[E]GZ[I].2[L] MOVE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF n OUT f LPRINT LOAD CLS RS▖[E]X.:Z▞F[K][A][J] OUT ABS [A]*[C][A][D]PEEK 6[A][D]▖[L];/▖".[C]Z[K][O] MOVE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF n OUT f LPRINT LOAD CLS RS[L]XZ[M]I▟[A][J]Z▞F[K]▚ABS [K][J]▚ OPEN #[H][I][K]"1▛+[B]▛8 OUT >▟HZ$[I][A][J]Z▖1[L] MOVE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF o OUT n OUT f LPRINT LOAD CLS R[H]B OUT [C][A]-[H]$Z$[I][A][J]Z▞F[K]▚EXP GZ[L]7▛[M],@ OUT [M] OUT .[D]S[C][A]▞XZ[K][O] MOVE RANDOMIZE RANDOMIZE LOAD RANDOMIZE RANDOMIZE INT PIACS ATTR AT OR LOAD IF n OUT f LPRINT LOAD CLS RS[L]XJ[G][L][K]Z[M] OUT [M][C]IAT [G]▜[H]8+[L]Q[N][K][J]▚ATTR [H][K]5 OUT 8 OUT [D]1[E]Y[L]W[B][G][I][B]HZ[A]▛? OUT +[L] MOVE RANDOMIZE LOAD RANDOMIZE RANDOMIZE RANDOMIZE INT PIACS ATTR AT OR LOAD IF o OUT k OUT i LPRINT LOAD CLS RS[L]X[I]([D][I].&ATTR [A]ZJ[H]▖[K]Y[M] OUT ,[K]Z[M] OUT +[L]ABS [K][J]▚ OPEN #[O][C]F OUT ▟[O][N];3.▖ OUT *GZ[I].2[L]UM[D]$[I][H][G]: OUT [O][N][A]▞[K]Y.▛▟[L][K]J".[C]M▛F OUT [K][C][N][E][C]I MOVE RANDOMIZE RANDOMIZE LOAD RANDOMIZE RANDOMIZE RANDOMIZE INT PIACS ATTR AT OR LOAD IF g LPRINT LPRINT LOAD CLS RS[L]X[G][L][K]Z[M] OUT [M][C]IATTR NI5[M] OUT [C]▖[H]=[H]T[N][G][D]▛O?[M]5[M]▚ MOVE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF k OUT j LPRINT LOAD CLS RS[L]XJ[G][L][K]M[M]BPEEK OUT [H][I][K]"5▟[O][I]GZ[M]I▟[A][J]DAT ([K]X[C][A]▞G[G][L][K] OVER RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF o OUT h LPRINT LOAD CLS R[H]B[E]OM[D][I][K]6BPEEK ;3[B]X[J]5[K]A[J][K]Y,[B][L][H]8[E]X-.Z[M]BFPEEK OUT [D][I][K]01▟;/&▚[A]3 OUT [K]▜HZ▖[K] MOVE RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF o OUT k OUT n OUT f LPRINT LOAD CLS RS[G][L][K]Z[M]02[I][K]SGN !U9[C]-6[A]@Z▖FPEEK OUT [H][I][A][O][E]01▟;/&▚[A]3 OUT [K]▜HZ[K][O]UA[G][L][K]E OPEN #▚6 OUT ,[K]M[H][A] OVER RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF n LPRINT LOAD CLS R OUT [H]B9▖[E]OG OUT M[C]F6![C][N]9▖[H]=[H] OUT T OUT ,[L]V[H][A][D][L]Z▟7A/[B][I]P MOVE RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF f LPRINT LOAD CLS RS▖[E]X[L].▖ OUT ▛2[B]PEEK [A]*[K]01▟;/&▚[A]3 OUT [K]▜HZ>▟ MOVE RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF o OUT k LPRINT LOAD CLS RS[L]X OUT OUT [G][C][C],6![C][N]PEEK OUT [D][I]▛ OUT [L]GZ[M]I MOVE RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF k LPRINT LOAD CLS RS[L]XZ[K][I][L][A][J]M[L],▖ATTR ▖7▛O▟1▛=[E] OUT J".[C]Z▖[O]CV[C][O][E] OUT [G][C] [B][K]▛▟[O]'▖F MOVE RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF o OUT g LPRINT LOAD CLS RS[J][M]X▚[A]34E.:Z▖ OPEN #▖[O]C OUT [I]3[I]2[L][J]1▛ MOVE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF o OUT k OUT j OUT i OUT h OUT g LPRINT LOAD CLS RS[I][K]▛▛X[L]# ▟GZ▖ATTR N▟1▛E[O]3.2[L]YS[N][K][M](X=[E] MOVE RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF LPRINT LOAD CLS RS[J][M]X▚[A]34E.:Z▖PEEK OUT [G][K][M][A][J]0▟[I].2[L]HZ[K][O] OVER RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF k OUT n LPRINT LOAD CLS INKEY$ CIRCLE ▟[L]X[A]*[I].2[L]GZ[M]I▟[A][J]Z▖PEEK [D][D] OUT [O].2[L] OPEN #=[E] OUT ▛F OUT ▟1▛"[C]M[A]*▖F[H]=[H] OUT ,[K][C]V.▛[K][M]▛E7 OUT [D]-[K] MOVE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF f LPRINT LOAD CLS RS[L]XZ$[I][A][J]Z▖1[L]PEEK [L];/▖E.:Z▛▟#M,[B], OUT [A][J]"[K]6([K][A]@ OUT ▚ABS [K][J]▚ OPEN # OUT [A][D][C] OUT =[E]J OUT [A][J]Z[I].2[L] MOVE RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF o OUT k LPRINT LOAD CLS RS▖[E]X.:Z▖1[L]SQR [E][H]8V[L]+[J]▛".[C] OUT ▛▟#V▛▟# MOVE RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF j OUT k LPRINT LOAD CLS R[H]B[E]OM[M]X3.2[L]O[N]▛F OUT ▛▟#PEEK 0# OUT [D][I][G]!A0[I]GZ[I].2[L]A[J]▚ OVER RANDOMIZE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF k OUT e LPRINT LOAD CLS R[H]B OUT -[H]$Z$[I][A][J]Z▖1[L]LN .[A][J][H]8S▟2[B]X▖[L]▚ OVER OUT ATTR [H][K],[K][C]V[N][M]$U0[A] OUT >>▛=▚ MOVE RANDOMIZE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF o OUT h LPRINT LOAD CLS INKEY$ CIRCLE ▟[L]XZ[N][A]▛▛( OUT [A][J]M@▚0# OUT MOVE RANDOMIZE LOAD RANDOMIZE INT PIACS ATTR AT OR LOAD IF d LPRINT [T]CHR$ [U]CHR$ RNDCHR$ INKEY$CHR$ PICHR$ DEF FN CHR$ bNOT INT NOT DRAW NOT 3BIN BIN BEEP BIN @ OR l OR SQR OR AND AND AND G AND AND OPEN # AND ,<=s<= BEEP <=>=g>=TAN >=<>[S]<>[T]<> GO TO <>2 LINE [L] LINE THEN E THEN ▖ THEN OR THEN TO [ TO [I] TO PAPER TO @ STEP AT STEP FOR STEP = DEF FN [L] DEF FN LOAD CLEAR FN +▛▛;ASN OUT COS [K][C][C] LOAD SAVE LPRINT PEEK ABS OUT LN [J]SCREEN$ POINT FN ABS PEEK [F][E]SQR ABS SGN OUT BEEP VERIFY MERGE CLOSE #ACS ABS COS INK LPRINT [K]▞PEEK TO LN ACS SIN INK MERGE CLOSE #CODE OUT ASN 9 BEEP VERIFY INK CODE LN MERGE LPRINT OUT VAL INK ABS PEEK [A]▙[A]PEEK ABS INK MERGE %▚9 OUT OPEN #[A]PEEK ABS LPRINT LN VAL [A]▜▞▖ THEN PEEK INK ▜ MERGE VAL DEF FN CODE 99 ERASE MOVE INK VAL LPRINT PEEK ABS MERGE VAL TO >=VAL INK PEEK [A][N]SGN [A][L]ACS 9 OUT FORMAT IN LEN SIN LPRINT VAL LEN / OUT INK ATTR SCREEN$ [O]PEEK ABS [A]>= MERGE CLOSE # CLOSE # OPEN #[L]%[U]LN [A] OUT LPRINT [A]ABS MERGE [A] INK ABS TAN TO [B]▜TAN ▛ INK MERGE [A] MERGE SGN [A] INK CODE VAL INK ABS OUT LPRINT LOAD CLEAR ATTR OUT ATN OUT INT LPRINT LOAD CLEAR ABS OUT COS OUT VAL OUT VAL OUT SQR LPRINT LOAD CLEAR VAL OUT EXP LPRINT LOAD CLEAR ABS OUT VAL OUT LN OUT SIN OUT VAL OUT COS OUT INT LPRINT IF SGN OZ GO TO RETURN OUT CODE MOVE PEEK MOVE FN GO TO COPY LPRINT [M][D][L]PZ GO TO RETURN SQR ACS LN %AT SGN PEEK LEN GO TO COPY ▚[K][C] LPRINT LOAD RANDOMIZE AT [M][G]E[E]VSIN [E] OUT INT ▞ LPRINT LOAD RANDOMIZE SGN GO TO RETURN OUT VAL GO TO COPY OUT SIN GO TO RETURN OUT CODE GO TO COPY OUT PEEK GO TO RETURN OUT AT GO TO COPY OUT AT OUT LOAD SAVE GO TO RETURN BRIGHT FLASH OUT LOAD RANDOMIZE AT OUT GO TO COPY VAL OUT GO TO RETURN EXP OUT GO TO COPY ATTR OUT GO TO RETURN FN OUT GO TO COPY PEEK OUT GO TO RETURN TAB GO TO COPY OUT INT LOAD SAVE LPRINT GO TO RETURN STR$ NOT LPRINT LOAD IF R[L] CIRCLE ,▚X[A][J] OUT ▛=[D]GC[K] MOVE LOAD SAVE LPRINT ATTR N[Q] OUT !"F0.2[L] MOVE LPRINT ATTR N▖[K][N] OUT !M[I][A][D][L]6[A] OUT &V OVER LPRINT ATTR N[G][L]T[O] OUT ▟ ▟▞ ▟ OPEN #[A][J]Z[C][A][A]7[A]>[G][L]G OUT ABS [A]*[C][A][D] MOVE LPRINT R[M] CIRCLE ▛[D] OUT [G][J]D OUT 7Z[M] OUT [C]Z[L]▖[J] MOVE LPRINT ATTR N+@ OUT [D]1[E][C][A]0▟▚ OVER LPRINT PEEK "[D]▚;[K][O].2▚[A]3 OUT [H][K]8 OVER LPRINT ACS [D][L] OUT ▚[A]3"-[K]"M[C](I MOVE LPRINT ABS [K]▟[B][O]▟[L] OUT ▖[G][D][D] OUT [B][A]▛ OUT ▟[G][E] OUT [M][A][C][G][B][I] OUT ▛[A] OUT OUT ▛[H][K] OUT [L][B][I][K][A][B] MOVE LPRINT R[J]F0[M][G] MOVE LPRINT R[H]Z[J][D]▚UD0.HZ[I].2[L]0[K]8 MOVE LPRINT ATTR N[G][L];[K]▚ OVER LPRINT R[J]FHZ[I].2 LOAD CLEAR [L][K]8 OVER LPRINT R[D]-[K]Z[J][D]Z▖[K][N]UZ[G][L] OUT [K]D MOVE LPRINT LOAD IF ACS ,[K][C]$V[H]B OUT *▛▛[D][K][J][J][K][M]▛ MOVE LPRINT VAL ▖ OPEN #▛![H]3▛ OVER LPRINT INKEY$[A]3"-[K]T▛3[B]X▟$ OVER LPRINT INKEY$[A]3"-[K]T[N]+: LOAD CLEAR ▟$ LOAD SAVE MOVE LPRINT INKEY$[A]3"-[K]6[A]/3T>▟[C] OUT [O][I][O] MOVE LPRINT ACS ▛ CIRCLE [F]M[Q] MOVE LPRINT ABS [K]/▖Y[M] OUT [H][K] OUT [M]▛[E]P OR LPRINT LOAD DRAW INVERSE FN [K]0 CIRCLE [I][K][O][G][K]>:"E7 OUT [F][A][N] MOVE INVERSE LPRINT LOAD CLS INVERSE %[E]>▖ OPEN #[N]▛D6[D][L]A,R[M][D][H]BZ▟O[J]-O[D][O][I][K] OVER INVERSE LPRINT ABS [K]/▖ OPEN # OUT [M]A[B][L][A]@V=[E] OUT Z[M][A] MOVE LPRINT R[F][C]0[D]QH OUT [A][J]Z[M] OUT [E][G][D][D]X[H][G][C]G▛[D]▚ MOVE LPRINT ATTR N[A]▛? OUT [M].2[L]U OUT [K][O]▚ MOVE LPRINT ATN *[J]▛[H]7▖[L]U OUT [D]2[I]D0#G OUT ▚[A]36[H][K] MOVE LPRINT ATN [D]1[E]YQ[M] OR LOAD CLS INVERSE ACS ▛ CIRCLE Z[D][O][I][K] MOVE INVERSE LPRINT ATTR N[M] OUT ▟2[O]▖4 OVER LPRINT ATN [K]T[L][K]8 MOVE LPRINT ATTR N[Q]*[A][J][J]Z[C][L][L]+@ ERASE [N][E]U[E]GZ+@ OVER LPRINT R[M] OUT [H][K] OUT [M]▛[E]P OR LPRINT LPRINT R[M] OUT ,▛.[D][D]"1▛+[B]▛8XZ[K][C][N][E][C]I OVER LPRINT PEEK [B] OUT [M][H]JJ OVER LPRINT R[M]*[C][N] OUT OPEN #[N]*[L][K]0[O] MOVE LPRINT R[C][O][I][K]V[M]*[C][N] OUT MOVE LPRINT R*[L][K]0[D]1[E]@* ▟▚ MOVE LPRINT PEEK OUT [H][I]▛.[D][D] OUT [L]A[J]▚ OVER LPRINT ATN [D]1[E]YQ [O][E] OR ERASE LPRINT LOAD CLEAR INVERSE LN [G]▞[C][K]M[I][A][D][L]6[A] OUT OUT %▖[G][D][D] OUT [E][G][D][D] OUT ▚ OVER INVERSE LPRINT R[F][C]GZ+@ OVER LPRINT R[D]1[E] OUT *[E][K]M[C][C]C OVER LPRINT LOAD RANDOMIZE SQR [E]6/[L]A[I]V[J][C] OUT [H][G]:GZ[E]▚ OVER LOAD SAVE LPRINT LOAD RANDOMIZE ATTR N[L]7▛▟[C]'[A][J]E2[L] OUT [C][O][E]Y[J]#[D] OUT 2[K]▚ MOVE LOAD SAVE LPRINT LOAD RANDOMIZE PEEK "[D][H] OUT [A][J] OUT *:▛[B]X[O][E]-.Z[E]MX▟[O]6/[H][B] OUT OUT ▚ MOVE LOAD SAVE LPRINT LOAD CLEAR PEEK [C]F OUT [K]▙[O][E][H][L][L]Z[I].2[O].2▚ OVER LOAD SAVE LPRINT INKEY$[A]3 OUT [C]!▖[H]O[A][J][J] OVER LPRINT ATTR N▛.[D][D] OUT ▛[O][E]Z[M][A]U[E][O]▖4 MOVE LPRINT ATN [D]1[E]@U OUT [I]▟▚ MOVE LPRINT R[H]K OUT F OUT ▚[A]3 OUT [C][G]:▛ OVER LPRINT PEEK Z▛.[D][D] OUT [D][O]: OPEN #N*U"F0 MOVE LPRINT ATTR N▛.[D][D] OUT [C][O][E]M[I]▟[O][N]" OUT ▚ OVER LPRINT ATTR N▛.[D][D] OUT <YQ[B]<▚[A]3 OUT [B][K]& MOVE LPRINT R[H]B"[A]2[L]M[E][K]▚ OVER LPRINT R[M] CIRCLE ▛"▚P MOVE LPRINT R[H]B"[A]2[L]M[M][D][N] MOVE LPRINT PEEK OUT [C][C]C OUT < A[J][K]YQ[N][K][I]V [O][E] OR ERASE LPRINT LOAD IF INVERSE %▖[G][D][D] OUT [H]Y7 OUT )[C][K]6 OPEN #[N]ACS CIRCLE [C] OUT >[I][A]X OUT [E]#0[A]X7 MOVE INVERSE LPRINT ATTR N[C][C]C OUT [H]Y MOVE LPRINT LOAD CLEAR INVERSE R[M] CIRCLE [M]<[C][K] OVER INVERSE LPRINT ATTR N[C][C]C OUT [I]▟[O][N]Z▛.[D][D]U OUT [D][D][H][G][C] OUT 2[L]Z[C][L] OVER LPRINT R[M] OUT ,[K]M▛.[D][D] OVER LPRINT PEEK [B] OUT [M] OUT .[D] OUT ![A]▛▛O▚ OVER LPRINT AT [K]@ OUT [M]S▟2[B]X▖[L]▚ OPEN #W▚ CIRCLE ▟[C][A]▞X@▚"[O] OVER LPRINT ATTR N[M]S+:▛A[H]▚ OVER LPRINT ATTR N[M]69 OUT U3.2▚ATTR [H][K]▟[O]7[K]W5▖[L] MOVE LPRINT LOAD RANDOMIZE MERGE ▝ GO SUB RETURN INPUT CLEAR EXP ACS LN ATN ATTR ACS LEN LN OUT ACS LEN OUT CODE TAB VAL LN TAB INT AT AT INPUT COPY GO SUB COPY CLOSE #▝ LPRINT ATTR N[M]U0▖[J]6!▟[I][K]G OUT [K]-[H] OUT [A]▛? OPEN #G▛,;▛;[O][E]J MOVE LPRINT GO SUB RETURN ATTR N[L]▖[J]S▞=+ MOVE GO SUB COPY LPRINT GO SUB RETURN ATTR N[M]S▞=+ MOVE GO SUB COPY LPRINT ATTR N[L]▖[J]0▟[O][I] OUT [A][J][J]Z[L][K]8 OUT [M];[A][L][G]VAL [B][A][J]Z[L]▖[J]▛3[B] OPEN #[C][G]U [O][E] OR LPRINT PEEK 0▖[J][H]JJ OR ERASE OUT LOAD IF INVERSE PEEK [D][D]0▖[J]V[C] OVER OUT SQR [K].▚Z▞8 MOVE INVERSE LPRINT ATTR N[L]▖[J][D]1[E];▛[D]▖[K]▚ MOVE LPRINT ATTR N.[D] OUT 8 [O][E] OR ERASE LPRINT LOAD IF INVERSE ACS ▛T>[O][J][K]9[O].2[L]9?[C]▚"+[L] MOVE 9VAL ▟[M]U9▛.[D][D]9S[K]@▚▖?[K] MOVE INVERSE LOAD SAVE 9ATTR N0▖[J]9▛3[B]U OUT [C] OUT [O]▖4 OVER LPRINT LOAD IF INVERSE FN [K] CIRCLE Z[L]▖[J] OUT *[K][J] OUT .[D]FN [I][L]E7 OUT [D]-[O][I][O]Z▛.[D][D]U9[M] OPEN #;Y OUT [C]4 OUT G OUT -[K] MOVE INVERSE LPRINT ATTR N[M]6[D][N]YZ[H][K]8 OVER LPRINT PEEK [J]C"!,[K][C]*[E][H][A]3 OPEN #Y[N][K][M]([K]6[M][G][O][I][O] MOVE LPRINT INPUT CLEAR GO SUB RETURN ATTR N[M];[O][E] OUT [A][J][J]Z▛-[E] OVER GO SUB COPY INPUT COPY LPRINT AT ▖ OUT [C]C6 CIRCLE [O][E] MOVE LPRINT EXP GZ[L]7▛[M][K] OPEN #▚ OUT ,[K]0▖[J]6▟▚X[O]▖4W50[K]8 MOVE LPRINT EXP GZ[L]7▛[M][K] OPEN #▚ OUT ,[M]6▟▚X[O]▖4W50[K]8 MOVE LPRINT ATTR N[A]2[A][J]M[H][I][K];▛AX[J]:▛6/,;▚ OPEN #[J][G][D][D]Z[O]5 OVER LPRINT ACS ▛T[O] OUT [C][O][I]=;&[K]▛ OVER OUT ACS ▛6 OUT [D][H][A][D]▟[O]▖[O]C MOVE LPRINT PEEK ▛Z[C](IDT[K][C]▛▚ MOVE LPRINT PEEK ▛Z[C](IDT[J][D][D] MOVE LPRINT ACS ▛T[O] OUT [L][L][D][A][J] OUT ▟[O]▖[O]C MOVE LPRINT R[M]1Z[L][L][D][A][J][O]CG OUT ▚[A]3;&[K]▛ OVER LPRINT R[H]B OUT >X▖K[H]=[H]V[L][A]E MOVE LPRINT 0▖[J] OUT .[D][C][O]V[C][O][E]Z[N][D][E] OUT [A][J]Z[L]▖[J] OUT [C]▚ OVER OUT LPRINT R[K][C]▛▚Z[N]&[K]▛UZ▖[O]C[A][O][E][O]▖4 MOVE LPRINT LOAD RANDOMIZE ATTR N[L]▖[J] OUT [C]▚"[A][D]/▖▚ OVER LPRINT INKEY$ CIRCLE ▞[F]▖[E]OM[L]1▟ MOVE LPRINT ATTR N[L]1▟ OUT [D]1[E]@[A]*[L]U OUT !M[N]▟O▖[L]ACS ▛ CIRCLE H[A] OUT [H][G]: OUT OVER LPRINT ATTR [H]7[L]O[N]5; OPEN #▛!▛0 CIRCLE [D]1[E] OUT @.[B][I] MOVE LPRINT ATTR N[A][I]T▛XM1[D] MOVE LPRINT ATTR N[H][A][D]!A;▟=[E]O OVER LPRINT ACS [B][G][L][K]Z[H][A]Y[M] OUT ,[K]M[G][L]▟<O[O].2[L]M@ OVER LPRINT R[M] CIRCLE ▛ OVER OUT ATTR N[H][A]T[N]/&O▖K OUT [C][L] MOVE LPRINT ATTR N[H][I][K]01▟.2[L]UY[J]FGZ[A]▛?6![C][N] OVER LPRINT R[H]B;/&OZ[H][A] MOVE LPRINT ATTR N[G][L]T[L][K]8 OVER LPRINT R[C][A]▞FZ[C][L]".[C]Z[H][A] MOVE LPRINT LOAD RANDOMIZE MERGE ▝ GO SUB RETURN GO TO RETURN VAL CODE INT LEN OUT INKEY$VAL SCREEN$ TAB OUT INT LEN POINT INT COS VAL CODE INT OUT LEN VAL FN GO TO COPY GO SUB COPY CLOSE #▝ LPRINT ATTR ?S> OUT [C][D][C][A][J] OUT [C][L] OVER LPRINT LOAD IF INVERSE ABS [A][I][C][A] OPEN #▖[B][K]O▚[A]3 OUT [H]%[H]BM▛C OUT ?[K]".[C] OUT ▚[A]3"? OPEN #[G][C]4 OUT [K]▜[D][O]EP MOVE INVERSE LPRINT CODE +[B][M]INT [D][L]+[B][E]H▖[L]▚ MOVE LPRINT OUT [M] OUT .[D][C][O]V[C][O][E]ZI5[M] OUT [C]▚ MOVE LPRINT ATTR N[L]1▟T/&$ MOVE LPRINT ATTR N[L]1▟T2/&$ MOVE LPRINT ATTR N[L]1▟T@[H][K][O]▞▚ACS ▖ CIRCLE ▛L MOVE LPRINT ATTR N[L]1▟T[A] [B] OVER LPRINT R[A] OUT >▛=[K]EZ/& OUT !;.[E] MOVE LPRINT ACS ▛T[N].[E] OVER LPRINT ATTR N[A][I]▟ [O][E] OR ERASE LPRINT LOAD CLS INVERSE ACS [J]Y[I][G]▞[C][C]▚6[D][N]U OUT ,[C][K]"▟# OPEN #%▖[G][D][D] OUT [H] OUT ▚SCREEN$ [B])[D]W[B] OPEN #B OUT [C]1[D] OUT [O]/[B][K] MOVE INVERSE LPRINT ATTR N1[D]T[M]!OZ▖F MOVE LPRINT LOAD IF INKEY$ CIRCLE ▟[L]XZ1[D] MOVE LOAD SAVE LPRINT ATTR N[A][I]▟=[E] OUT [H]76[D][N]U[E]J OUT [A][J]Z[L]2[I][K] OVER LPRINT LOAD DRAW INVERSE ACS CIRCLE [C]3%[F][H][K]([K]J[G][L][K]Z[L]2[I][K]ACS A▛C OUT [I][A]6[H][K]& MOVE INVERSE LPRINT R[M] OUT [H][K] OUT OUT [M] OUT ▛[E]P OR ERASE LPRINT ATTR [H]701▟ OUT !M[B][K]▖ OUT /&ATTR N[E][K]▖ CIRCLE ▛" MOVE LPRINT R[L] CIRCLE [H]BM[E][K]▚ MOVE LPRINT ATTR N[M] OUT [H]Y[N]-[E]U [O][E] OR ERASE LOAD CLEAR OUT INVERSE R[M] OUT > MOVE INVERSE LPRINT ATTR N[N]A[B][L]L OUT [K]>:"Y6▟[O]▖[D]E.: MOVE LPRINT ATTR N[N][A][J]Z▖[L] OUT <▛ OVER LPRINT ATTR N▖[L].[B][I] OUT [B][K]▖; OVER LPRINT LOAD DRAW INVERSE RND[A][I]▛V,▚ OPEN #SIN ▟ OUT [M]<▛7▛ OVER INVERSE LPRINT ATTR N[M] OUT [I]▟[O][N]Y[N]▚Z[B][K]&U0▟[O][I]YJ[G][L][K] OVER LPRINT LOAD CLEAR INVERSE LEN T+[B][M]INT [D][L]+[B]ACS ▖[G][D][D]6[A]Y[I][A][D][L]6[A]V[C][K] OVER INVERSE LPRINT R[J]F0[C]V▚[A]30[K][O] MOVE LPRINT ATTR N[M]![C]T@▖[G][L][K]U OUT < ;[A]▛▛( OVER LPRINT ACS [A] OUT ▞IY▛▟B[D][D]P LPRINT >▟ MOVE LPRINT >▟[K][O] MOVE LPRINT [K][O] MOVE LPRINT LOAD DRAW INVERSE VAL [H] OUT > OPEN #>[O]>▛? OUT [M]<# OVER OUT AT ([K][I]▟[O][N] OUT [H][G][C] OPEN #[L] CIRCLE [H][G][C] OUT [I][K][O]▖4 OVER INVERSE LPRINT LOAD CLS INVERSE FN [H]▚D CIRCLE ABS [A][I][C][A] OVER OUT TAN [B][G][J]▖[G][D][D]A OUT O▖K OUT MOVE INVERSE LPRINT LOAD CLS INVERSE R[C]A OUT [G][L]V[E]Y[M] OUT [M]< MOVE INVERSE LPRINT LOAD CLS INVERSE %▖[D]*[E][K]V▛Y[I][A] OPEN #[N]%[C]"[A][D]/▖ OUT [L] MOVE INVERSE LPRINT R[M] CIRCLE ▛ OPEN #▛N[L]1▟T[A] [B] MOVE LPRINT PEEK OUT [H][I][H][A][D]!A OUT [I][B][O]▖OZ[M]I▟[A][J]Z[L]1▟ OVER LPRINT LOAD DRAW INVERSE VAL [H] OUT [C]LN [A][L] OVER OUT ACS ▛ CIRCLE Z[A][I] MOVE INVERSE LPRINT ATTR N[A][I]"[M]LM,[M]U OUT [D][D]YJ OUT [A][J]Z[L]2[I][K] OVER LPRINT LOAD CLS INVERSE ABS [A][I][C][A] OPEN #[I][K]J[H][G]Y[M] OVER 9ACS [J]Y[C][I][K]▛Z▛".[C] OUT RND[A][I] OPEN #.▖Z2[L] OUT .& OUT [O][H][G][C] MOVE OUT %[C][I][A] OUT >▖ OUT [C]▚"+[L] MOVE INVERSE LPRINT R▖[D][H]B OUT >6![B][M][K] MOVE LPRINT LPRINT LPRINT LOAD CLEAR GO SUB RETURN PEEK 6![C]LA[J]▚ OVER GO SUB COPY LOAD SAVE LPRINT LOAD CLEAR INVERSE AT 1[B]Z[L]▟[O][I][G][D][D]A"▟#U OUT RND[A][I][G][D][D]AG▞[M][G]'[K] OVER INVERSE LPRINT ACS ▛ CIRCLE 0▟[O][I];[D]1[L] OVER LPRINT INKEY$ CIRCLE ▞[B][K]@ OUT , OUT [M][D]1[E][A][M]$ OVER LPRINT PEEK ▛Z[N][A]▛▛( OUT [A][J]ZY[M] OUT ,[K]M[I][G]▛ OVER LPRINT ATTR N[I][G] [O][E] OR ERASE LPRINT LOAD RANDOMIZE INVERSE VAL [G] OVER OUT RWSGN Y[I][K][C]JUSR OUT ACS [J]W▟S[C][C][K]▙[O][E][K]%▖[G][D][D]A6▟[H]$ OVER INVERSE LPRINT ATTR N▛▟#[D]1[E] OUT >▟[C] OPEN #[K]▜[M][K]▛"M@▛F OUT [K]6/,HZ OVER LPRINT ATTR N+@ OUT [D]1[E]05▛▚ MOVE LPRINT R[M] OUT ,TAN [B][G][J][K]Z[M] OPEN #[N][O][E] ERASE OUT XZ[N][K]B▟ OUT /[L][I][K] OVER LPRINT TAN [B][G][J]![C][A];.[E]E.: OVER LPRINT TAN [B][G][J][D][D]Z[N][K]B▟".[C]Z/[L][I][K]U OUT ▟2▚ MOVE LPRINT TAN [B][G][J]=[E]YUE.▖YZ+@ OVER LPRINT TAN [B][G][J][K] OPEN #[E]X▚ CIRCLE M[C][C]C OPEN #▛3[B]U OUT ▟2[O]▖4 OVER LPRINT ABS [B][D]2[I]H▖[L]YQ[I][G]▞Y[O];[G][I] OUT [E]7 OVER LPRINT R[H][K] OUT ABS [B][L]6FXZ[L]7▛[M][K] OVER LPRINT ABS [B]'H▖[L]YQ[J]/[O]▚[A]3"#▛ MOVE LPRINT ABS [B]▖[L][A][J][J] OVER LPRINT ABS [B][L]E[C][H]7 OUT ▛[O][G][D]U![E][K][H]7 OUT [H][K]8 MOVE LPRINT ABS [B][D]1[E]▛5O[O][J]C OUT [H]7 OUT /[B][I][E] MOVE LPRINT ABS [B]!M▟[O][I] OUT )O.2[H]7 OUT [B][K]& OVER LPRINT GO SUB RETURN IF INPUT RETURN R[M] OUT >▖6F OUT ABS [B][L] OVER INPUT COPY GO SUB COPY LPRINT ATTR N▟[O][I] OUT !▖[L]▖+▛▛ OUT D OR OUT INPUT RANDOMIZE LOAD COPY ACS CIRCLE [C] OUT ABS [B][L]U OUT ACS OUT [I][B][O]▖ OUT E.:1[L] OUT ASN OUT [A][O]([K]XQ%▖[G][D][D][H][I]1[L] OVER LPRINT ABS [B][I][B][O]▖E.:Z▛▟#UD6▟[H]0 OVER LPRINT PEEK OUT ▛▟# OUT ▛▟2[E] OUT 8GZ MOVE LPRINT ATTR N[I][G]▛6*[C][N]J OUT [A][J]ZU OUT [L]A[J]▚ MOVE LPRINT LOAD RANDOMIZE INVERSE R[H]B[O]▞O OUT [C][K]U OUT 1[B]9%▖[G][D][D]B OUT ▚ OVER INVERSE LOAD SAVE OUT RANDOMIZE ATTR N[I][G]▖[E][A][J][J] OVER LPRINT ACS 7Z2[L] OUT .& OVER LPRINT ACS ▛TRND[A][I] CIRCLE ▛ MOVE LPRINT RND[A][I] OPEN #0OM[L][E][H]8 OPEN #[L]+[J]▛H▖[L]▚ OVER LPRINT LOAD CLEAR INVERSE ATN [O] OPEN # CIRCLE ABS [A][I][C][A] OVER OUT LN [O][M]<[K][C]▟2GZ[J][G][D]▚ABS [A][I][C][A] OPEN #ACS 0 CIRCLE [K]@▛V,[K]Y[O][I][O] OPEN #[G][J]YS[M]<▛3$Y▖[G][D][D] OUT .▛G OUT [C]▚02[I][K]"[K]@ OVER INVERSE LPRINT RND[A][I] OPEN #▙#Z▛UZ[L]1▟L OVER LPRINT ATTR N[M] OUT [I]▖[E]J[G][L][K] MOVE LPRINT LOAD DRAW INVERSE LN [K]J OUT ABS [A][I][C][A] OVER INVERSE LPRINT USR USR [O]PEEK ABS SGN 9ASN OUT TAN PEEK PEEK COS 99SCREEN$ PEEK USR CODE ▚TAN LPRINT ATTR N[I][H]Z[K]01▟E▟# OUT )[C] OVER LPRINT ATTR N[K]▞[G][D]"-[A][J] OUT RND[A][I] OUT < U [O][E] OR ERASE INVERSE LOAD CLEAR LN [L]Y[C]4 OUT I MOVE INVERSE LOAD SAVE OUT ATTR N[L]1▟▖PL OVER OUT LPRINT LOAD DRAW INVERSE FN S?[A][H] OUT [I][O]RND[A][I] MOVE INVERSE LPRINT PEEK OUT *:▛[B]X[N][A][D][H]1▛J".[C] OUT RND[A][I] CIRCLE [K]▚U OUT +[E][K]▚ OVER LPRINT ATTR N▛T[L]▟▚U"▟-▛3$U OUT < @[O][N][N]I MOVE LPRINT LOAD CLEAR INVERSE ABS [A][I][C][A] OPEN #%[E]>▖Y▖[C]▛ OPEN #[N]▛Y▖[G][D][D]A OUT I([N]O?*[E]LN [I] OVER INVERSE LPRINT PEEK 6▟-[E] OUT [A][J]E2[L]U0,[C][A][E][K]"[G][D][D]Z[M]B OPEN #[M][O]XRND[A][I]V[L]. OUT [H]7 OUT ▛ OVER LPRINT ATN [I]▟[O][N]Z▛U OUT ▞7[H] OVER LPRINT PEEK ;[G][I] OUT [H][A]T< XZ[L]1▟ OVER LPRINT TAN [B][G][J][K] OPEN #[H][A][D][L]ABS [B]HZ▖[L][H]7E. OVER OUT ATN [O][E] OR ERASE LOAD DRAW INVERSE ABS [B]▖Z[J] OUT P▟$[G]IAT 1[B]Z[L]▟[O][I][G][D][D]A"▟# MOVE INVERSE LPRINT LOAD IF INVERSE ABS [A][I][C][A] OPEN #▚ CIRCLE ▞[K]0[K]D OVER OUT VAL 3 OUT [B][C][N][H]BA0[G][C]7[H]O[N]▖▖[G][D][D]"[A][D]/▖ OUT ▚COS [K]8 OUT VRND[A][I] OVER INVERSE LPRINT ATTR N[C][O]X[M]07[N][L]U OUT ▛ OVER LPRINT ATTR N[M][H]B OUT [H]8M[M][M][J][D][B][K][O][E] OUT ▛-[E]ATTR [H][K]▟2 OUT [A][J][J]V[I]. OVER LPRINT GO SUB RETURN INPUT CLEAR INT [D][L]+[B]T[L][K]8 OVER OUT ATTR N[N][D][E] OUT [A][J]Z0▖[J] OUT [C]!A0[K].▚$ OVER 9 GO SUB COPY INPUT COPY LPRINT LOAD IF INVERSE ABS [A][I][C][A] OPEN #▚ OUT [C]8M[I]. OUT [A][J]0▖[J]A[H][L]Z[M] OUT +[L]U6<▛3[K]W[C] OVER OUT ACS [J] OUT >▛ OPEN #[K]▖[G][D][D][B] OUT RND[A][I] OUT [A][J] OUT [A]3 OUT +▞ MOVE INVERSE LPRINT RETURN LOAD RANDOMIZE PEEK 6([A][J]0▖[J]T▖K OUT ▚ OVER LPRINT LOAD IF INVERSE ATTR [O][E][O]>▛? OUT .[D]U6(▛▚[A]3 OUT [C]7[G] MOVE INVERSE LPRINT LOAD IF INVERSE ABS [A][I][C][A] OPEN #▖▖[G][D][D] OUT )Z[M] OPEN #▚ OUT [I][K]+[B][M]INT [D][L]+[B] MOVE INVERSE LPRINT ATTR ?S[O]"[K]▖ OUT [D][C][A][J] OUT [C][D]4X[O].2▚ MOVE LPRINT PEEK [B] OUT [M] OUT ▟2[O]U OUT ▛+V▛[O][E]([A][J] OUT ▚[A]3EP OVER LPRINT LOAD IF INVERSE ABS [A][I][C][A] OPEN #▛N[N]▛T[O][N]JV▛[O][E][D]-[K]EXP ▟# OUT LN [I] OUT >▖ OVER INVERSE LPRINT ATTR N[I][G]< 9[J].[C]9>▖?[K]U [O][E] OR LOAD RANDOMIZE INVERSE ABS [A][I][C][A] OPEN #%▖[G][D][D] OUT [H]Z[L]▖[J]GW5;▛ MOVE INVERSE RANDOMIZE SAVE LOAD SAVE ATTR N[I][G][C][K]J[H][K][O] MOVE LPRINT ATTR N[A]2[A][J]0▖[J] OUT ▞=▟▚6+"[G][D][D]Z[O]5 OVER LPRINT R.▖Z▖[O]C OUT Z▛U OUT LN [I];3" OVER LPRINT FN [H][G][D]RND[A][I] OUT !ZLN [I]6>▛A"$ MOVE LPRINT LOAD CLS INVERSE ABS [A][I][C][A] OPEN #▖[H]B OUT >6![B][M][A][J]0[K][J][K]XRND[A][I] OUT >▖EZ[L]▖[J] OUT [C]▚T[L][K].▚$RND[A][I] OUT !A OUT OVER INVERSE LPRINT LOAD CLS INVERSE ABS [A][I][C][A] OPEN #▚ OUT [H]B[O]▞OF OVER OUT SCREEN$ [B][J]▛2RND[A][I] OUT !▛[O][E] OUT ![D][J]Z[M] OUT [C]▚U OUT [C]O OUT EXP [L] OVER INVERSE LPRINT LN [I]6▛▚[A]3"PU"[G][D][D]M[C]F;[A]▛▛[D]▖K OUT ▚[A]3;[D]1[L] OVER OUT ATN [O][E] OR LOAD CLS INVERSE INKEY$[A]3;[D]1▖[G][D][D]Z[L]▟[O][I]".[C] OUT [O]▖[O][E]P OVER INVERSE LPRINT LN [I] [O][E] OR ERASE LOAD CLS INVERSE INKEY$[K]ABS [A][I][C][A] OVER OUT LN [A]K OUT +[B][M]INT [D][L]+[B]UB OUT ▚[A]3 OUT [H]([L]%▖[G][D][D]0[K]KZ[L]▟[O][I]UZ[C][O]X[M]%▖[G][D][D] OUT [H]Y▖[H] OUT %[H]B"7[H]O?[K] OVER INVERSE RANDOMIZE RANDOMIZE LOAD SAVE GO SUB RETURN SGN VAL SIN ACS LEN LN OUT AT VAL VAL LEN GO SUB COPY MOVE MOVE LOAD CLEAR RNDVAL LN PEEK LEN CIRCLE AT OUT TAB INT POINT INT LEN LN INT OVER LPRINT LN [I] [O][E] OR ERASE LOAD CLS INVERSE FN [C]▖[O] OVER INVERSE LPRINT ATTR N[Q][E]GZ▖[O]C MOVE LPRINT AT OUT AT PEEK INT VSGN (AT [A][J]▛▖S"M[J]▟# OUT ATN INT COS CODE [H]#▛ MOVE LPRINT R[M] OUT ,[K]Z2[L] OUT .& OUT [K][C][N]$[L]O[G][L][K]Z[C] OVER LPRINT ABS [B][I][B][O]▖E.:Z[C]UZ.&"FJ OVER LPRINT PEEK "[D]X.▖[H]1▛ OUT [H][G]:GZ[O]5 OVER LPRINT ATTR N[M] OUT +[L]Q8▚V▖[B] OUT RND[A][I] OUT [A][J] OUT <.-[H]X▛-[E] OVER LPRINT LOAD CLS INVERSE ATTR ?[K] CIRCLE > OUT [A]▛G OUT [M]<P MOVE INVERSE LPRINT INKEY$ CIRCLE ▟▖[K]X OVER LPRINT ABS SGN OUT SQR OUT SQR OUT ASN INT EXP OUT TAN PEEK USR SGN OUT LN ATN ACS ASN 9TAN PEEK LPRINT COS 9SIN LEN SIN LEN OUT VAL CODE VAL$ TAB AT ATTR INT EXP SCREEN$ TAN TAN TAN POINT FN TAN FN LPRINT FN OUT PIUSR INKEY$USR RND OUT [O][N][M][L][O]RND[K][J]:[I][G][F][E]POINT OUT LPRINT POINT OUT PIUSR USR USR [J]PIUSR ▝[C][O]USR USR USR USR CODE $COS OUT LPRINT [B]POINT [A]USR USR USR PEEK [A]<▙USR USR ▟[O]USR USR USR USR VAL ▖SCREEN$ TAN LPRINT ▜SCREEN$ POINT ▛▛COS PEEK COS ▞▖PEEK ▞PEEK ▖PEEK MERGE PEEK [D]▖FN COS LPRINT PEEK ABS SGN [O][A][N][M][I]ABS PEEK SGN [D]SGN SCREEN$ TAN COS [A]COS COS TAN [A]SQR INT LPRINT USR TAN 99ASN 999▚9 OUT TAN COS PEEK ATTR OUT VAL LPRINT COS 9 OUT VAL$ 9▝INT EXP 9 CAT OUT PEEK LPRINT DEF FN STEP TO SCREEN$ FN THEN LINE <>9 OUT >=<= AND OUT VAL$ [K][J]ABS [N][M]USR ACS LN LPRINT USR [N][O]USR [I]USR USR [J] OVER BRIGHT FLASH USR USR [J]:USR USR [N]PEEK DEF FN USR USR USR LPRINT USR USR USR PEEK USR SIN [A]USR PEEK USR INK USR USR USR USR INK USR ▝ PAPER USR LPRINT USR USR ▛PEEK USR USR USR USR [J]USR [A]USR ▟ INK ▟[O]USR ▝ LPRINT # CAT 7 CAT P CAT g CAT ~ CAT [F] CAT AT CAT NOT CAT BRIGHT CAT DATA CAT LIST CAT PLOT CAT FORMAT FORMAT 1 FORMAT F FORMAT ▛ FORMAT [A] FORMAT CODE FORMAT NOT FORMAT FLASH FORMAT MOVE U MOVE k MOVE [J] MOVE SCREEN$ MOVE CHR$ MOVE MOVE MOVE LLIST MOVE RETURN MOVE ERASE " ERASE 1 ERASE D ERASE Z ERASE e ERASE z ERASE [J] ERASE BIN ERASE LPRINT ERASE REM ERASE OPEN #" OPEN #E OPEN #e OPEN #r OPEN #z OPEN #[M] OPEN #TAB OPEN #VAL$ OPEN # CAT OPEN # FLASH OPEN # PRINT OPEN # CLOSE # CLOSE # CLOSE #6 CLOSE #G CLOSE #k CLOSE #w CLOSE #▞ CLOSE #PI CLOSE # STEP CLOSE # MERGE - MERGE ? MERGE X MERGE n MERGE ▘ MERGE [S] MERGE EXP MERGE OPEN # MERGE LPRINT MERGE INPUT MERGE DRAW MERGE VERIFY O VERIFY c VERIFY t VERIFY [M] VERIFY POINT VERIFY USR VERIFY RESTORE VERIFY PLOT VERIFY BEEP G BEEP s BEEP ▜ BEEP [J] BEEP ERASE BEEP RETURN BEEP CIRCLE % CIRCLE o CIRCLE ATN CIRCLE >= CIRCLE LOAD CIRCLE INK INK C INK e INK INK VAL INK IN INK STEP INK READ INK PAPER PAPER > PAPER Y PAPER o PAPER ▗ PAPER RND PAPER TAN PAPER FLASH PAPER GO TO PAPER COPY PAPER # FLASH < FLASH ] FLASH l FLASH y FLASH ▟ FLASH LN FLASH DEF FN FLASH BRIGHT " BRIGHT B BRIGHT M BRIGHT Y BRIGHT q BRIGHT | BRIGHT [D] BRIGHT [M] BRIGHT SCREEN$ BRIGHT REM BRIGHT IF BRIGHT INVERSE w INVERSE [F] INVERSE [S] INVERSE >= INVERSE NEW INVERSE DRAW INVERSE OVER 1 OVER P OVER ~ OVER [D] OVER VAL OVER NOT OVER >= OVER FORMAT OVER MERGE OVER OUT 3 OUT R OUT x OUT ▞ OUT ATTR OUT NOT OUT REM OUT @ LPRINT P LPRINT Q LPRINT R LPRINT l LPRINT [F] LPRINT RND LPRINT IN LPRINT PAPER LPRINT CONTINUE LPRINT $ LLIST L LLIST [ LLIST © LLIST [E] LLIST ATN LLIST FORMAT LLIST PRINT LLIST STOP + STOP H STOP W STOP v STOP [B] STOP SCREEN$ STOP NOT STOP READ = READ R READ r READ [U] READ LEN READ USR READ NEW READ I DATA c DATA w DATA ▖ DATA [O] DATA EXP DATA PLOT DATA RESTORE 5 RESTORE U RESTORE ▖ RESTORE ABS RESTORE ERASE RESTORE NEW RESTORE < NEW NEW [M] NEW STEP NEW COPY NEW X BORDER p BORDER [D] BORDER USR BORDER OUT BORDER CONTINUE / CONTINUE ▘ CONTINUE [R] CONTINUE PEEK CONTINUE INVERSE CONTINUE $ DIM k DIM STR$ DIM U REM o REM ▘ REM PI REM >= REM RESTORE REM COPY REM ( FOR ? FOR K FOR c FOR { FOR [D] FOR ATTR FOR NOT FOR BRIGHT FOR PRINT FOR GO TO GO TO 2 GO TO J GO TO c GO TO LOAD IF ACS ▛ CIRCLE H[A]0[E]V,▚P MOVE LPRINT LOAD IF R[M] OUT [A] OUT ,[K] OR OUT LOAD SAVE LPRINT SAVE FN ATN PEEK ATTR OUT LEN VAL FN USR SAVE LPRINT SAVE FN ATN PEEK ATTR OUT AT ATN VAL SCREEN$ COS SQR OUT %SQR VAL OUT LEN VAL FN USR SAVE LPRINT SAVE %LEN INT INT SQR OUT INKEY$VAL SCREEN$ TAB OUT LN SCREEN$ ACS SQR PEEK LEN SGN INT MOVE SAVE LPRINT SAVE FN ATN PEEK ATTR OUT FN VAL SCREEN$ COS SQR OUT INKEY$VAL SCREEN$ OUT ATN PEEK POINT INT OUT SIN INT OUT SQR VAL USR SAVE LPRINT LOAD IF %▖[O]>[O]'[K]V2[L]Q[A][J]ECODE [O], OUT ▛▟[O][I][O] MOVE SAVE LOAD SAVE LPRINT LOAD IF R[M] CIRCLE [I][A]GE05[K][M]) MOVE SAVE LOAD SAVE LPRINT LOAD IF R[M] CIRCLE ▛0[A]E MOVE SAVE LOAD SAVE LPRINT LOAD IF R[H]BK OUT ▚ OR OUT LOAD SAVE LPRINT OUT BEEP ▖[B] VERIFY LPRINT LOAD IF >X[O]F MOVE SAVE LOAD SAVE LPRINT PEEK Y3[K]USR SAVE LPRINT FN [G][D][D]YI OUT ABS [A]*[C][A][D] OUT [O][I][O]USR SAVE LPRINT SCREEN$ [B])[D] OUT [B][K]▜)[C][K] MOVE MOVE MOVE SAVE LPRINT LOAD IF ACS ▛T[L][K] MOVE SAVE LOAD SAVE LPRINT SAVE 9 OUT FOR RETURN GO SUB RETURN CODE [E][K]▚V[M])[B][K] MOVE FOR COPY GO SUB COPY LPRINT R[H]B OUT ▛[O][E] OUT LPRINT OUT ▛3[B] LPRINT LPRINT MOVE SAVE LPRINT LOAD IF R[H]B[M]O LOAD SAVE LPRINT PAPER SAVE LPRINT LOAD IF INKEY$ CIRCLE ▟>▖[K]X▛!▛ MOVE SAVE LOAD SAVE LPRINT IF R[M] CIRCLE ▛INKEY$ CIRCLE ▟▖[K]PZ[Q] MOVE SAVE LPRINT R8[H]BZ[Q] MOVE SAVE LPRINT LOAD IF ATTR ?7[B] CIRCLE [A][J]E[A], OUT ?[K] MOVE SAVE LOAD SAVE LPRINT LOAD IF R[M] CIRCLE ▛6▟[C][K]EP MOVE SAVE LOAD SAVE LPRINT LOAD IF R[L] CIRCLE [H]B OUT [A][J]E[A], MOVE SAVE LOAD SAVE LPRINT INKEY$ CIRCLE ▟8▖[K]PZ[Q] MOVE SAVE LPRINT INKEY$ LPRINT LEN LPRINT SAVE SIN [K] MOVE MOVE MOVE LPRINT LOAD RANDOMIZE MERGE LPRINT LOAD RANDOMIZE CLOSE # LPRINT SAVE ATTR [G][C], MOVE MOVE MOVE SAVE LPRINT R>▖ OUT [H]BZ[Q] MOVE SAVE LPRINT INKEY$ CIRCLE ▟>▖[K]PZ[Q] MOVE SAVE LPRINT INKEY$ CIRCLE ▞[C][A]▞$Z[Q] MOVE SAVE LPRINT INKEY$ CIRCLE ▞[K]0.$Z[Q] MOVE SAVE LPRINT R[M] CIRCLE ▖[K]Z[Q] MOVE SAVE LPRINT R[M] CIRCLE [C][A]▞[K]Z[Q] MOVE SAVE LPRINT R[M] CIRCLE [C][A]▞[K]Z[Q]INKEY$[A]3 OUT ![B][L]S[J][D][D] MOVE SAVE LPRINT ATTR N[Q][K][G]:H[A] OUT [C]" OUT ▚ MOVE SAVE LPRINT ATTR N[Q]TZ LPRINT ATTR N[Q] OUT 7[B] CIRCLE ▛GZ LPRINT LPRINT U OUT LPRINT MOVE SAVE LPRINT R[L] CIRCLE [H]BZ[Q] MOVE SAVE LPRINT INKEY$ CIRCLE ▟>▖[K]PZ[Q] MOVE SAVE LPRINT MOVE SAVE LPRINT ATTR ?7[B] CIRCLE [A][J]E[A],GW LPRINT LOAD IF >P MOVE SAVE LOAD SAVE LPRINT y INPUT ▟ INPUT [O] INPUT SCREEN$ INPUT STR$ INPUT CIRCLE INPUT PRINT INPUT LOAD 5 LOAD E LOAD T LOAD [ LOAD h LOAD q LOAD ▜ LOAD [I] LOAD RND LOAD CHR$ LOAD TO LOAD MOVE LOAD OPEN # LOAD VERIFY LOAD STOP LOAD RESTORE LOAD IF LOAD LIST LIST 3 LIST K LIST a LIST s LIST u LIST w LIST © LIST LIST ▜ LIST [F] LIST [Q] LIST VAL LIST IN LIST DEF FN LIST FLASH LIST REM LIST LET LET $ LET / LET 1 LET 4 LET 7 LET C LET S LET V LET g LET COPY ▝ COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ) COPY COPY COPY COPY COPY COPY COPY !" COPY COPY COPY COPY COPY % COPY COPY COPY (% COPY ' COPY COPY ), COPY , COPY +* COPY + COPY INVERSE LET OVER LET OUT LET LPRINT LET LLIST LET STOP LET READ LET NEW LET DIM LET REM LET LOAD LET POKE LET RANDOMIZE LET IF LET CLEAR LET PAUSE PAUSE PAUSE PAUSE PAUSE PAUSE PAUSE # PAUSE * PAUSE / PAUSE 6 PAUSE 9 PAUSE : PAUSE ? PAUSE B PAUSE I PAUSE J PAUSE M PAUSE P PAUSE Q PAUSE V PAUSE W PAUSE X PAUSE ] PAUSE ` PAUSE c PAUSE h PAUSE k PAUSE p PAUSE MERGE OUT OUT OUT OUT COPY AT OUT OUT OUT OUT ACS ATTR OUT OUT OUT ATTR VAL OUT OUT OUT PEEK LEN SQR OUT OUT ATTR ATN INT SIN OUT ATTR ATN INT LEN OUT AT VAL SCREEN$ ATTR ATN INT OUT OUT OUT OUT INT PEEK AT ATTR OUT EXP TAB VAL SIN OUT FN OUT OUT OUT OUT ACS LEN OUT OUT OUT FN INT AT ATTR OUT LEN OUT OUT OUT OUT VAL SCREEN$ ATTR OUT OUT LEN VAL TAB ATTR ATN LEN FN OUT OUT OUT ATTR ATN TAB VAL SCREEN$ AT INT OUT OUT OUT VAL POINT INT TAB OUT AT FN OUT OUT OUT SCREEN$ LEN SQR INT TAB LEN INT OUT OUT OUT ABS INKEY$ OUT OUT OUT SQR OUT OUT OUT OUT VAL LEN OUT OUT OUT SQR VAL FN LEN OUT SQR INT AT SGN INT SCREEN$ OUT OUT OUT OUT SCREEN$ CODE OUT OUT OUT VAL EXP EXP OUT OUT PEEK AT SGN INT LEN SGN COS ACS SIN ABS PEEK ATTR OUT OUT OUT INT PISGN INT CODE ACS OUT OUT OUT OUT INT LEN SIN PEEK OUT OUT COS VAL ATTR OUT OUT LN INT ATTR OUT OUT ATTR PEEK TAN INT OUT INT POINT INT TAB INKEY$SQR TAB VAL CODE OUT TAB INT SIN VAL POINT FN INT PEEK TAB OUT TAB OUT OUT OUT OUT COS OUT OUT OUT OUT COS VAL VAL TAN OUT TAB INT SQR INT AT VAL$ SCREEN$ ACS ATTR OUT AT ATTR VAL CODE OUT AT PEEK POINT INT OUT COS VAL PEEK SQR OUT TAB PEEK SIN AT PEEK AT ATTR VAL TAB INT TAB PEEK SIN COS VAL TAB INT SGN PEEK COS AT PEEK INKEY$ OUT OUT PEEK AT TAN OUT OUT ATTR PEEK COS TAN OUT AT CODE INT PEEK TAN CODE ACS SGN AT OUT CODE VAL LEN OUT OUT !CODE VAL EXP OUT OUT "EXP PI OUT OUT OUT #EXP PIVAL EXP OUT $AT SGN VAL TAB INT %AT CODE ACS SQR INT &TAB PEEK SIN CODE INT &FN INT ABS OUT OUT 'PEEK TAB SIN INKEY$ OUT (ATTR TAB INT INT OUT )ATTR TAB INT INT AT )SGN PEEK POINT INT OUT *TAB ACS POINT INT TAB +CODE SCREEN$ ATTR OUT OUT ,AT ATTR ACS SGN TAN ,CODE COS PEEK SGN INT ,AT COS PEEK CODE OUT -AT FN PEEK ATTR OUT -AT SIN PEEK SGN TAN -CODE SCREEN$ LEN SGN ATN .EXP ACS LN ATN ATTR /TAN ACS COS COS OUT 0ABS TAB INT PEEK TAN 1AT SIN PEEK AT ATN 1FN PEEK ACS ATTR OUT 2PI OUT OUT OUT OUT 3INT PIPEEK SIN OUT 3INT PIPEEK SIN ACS 3EXP PEEK SGN INT OUT 4SGN VAL ACS LEN OUT 5LN VAL COS SQR OUT 5EXP COS INKEY$ OUT OUT 6ABS SCREEN$ SGN TAN INT 7EXP ACS COS COS OUT 8INT SIN CODE ATTR INKEY$9ATTR ATN TAB VAL FN :FN PEEK ATTR INT TAB ;CODE SCREEN$ SQR SQR COS ;VAL TAB SGN OUT OUT <VAL TAB SGN AT OUT <AT ATN PEEK SQR VAL <LN SCREEN$ PEEK TAB SQR <TAB ACS SQR INT TAB <ATTR TAB VAL COS COS =LN VAL OUT OUT OUT >INT LEN ATTR INT TAB >SIN SCREEN$ SQR OUT OUT ?SIN VAL LEN AT ATTR @LN ACS POINT INT OUT ACODE SCREEN$ AT ATN OUT BABS INT LEN SQR OUT BCODE SCREEN$ COS COS OUT CAT INT PEEK TAB SGN DTAN LEN ACS EXP INT EABS COS PEEK SGN TAN FSGN COS VAL PEEK TAN FSQR FN PEEK TAB EXP GABS OUT OUT OUT OUT HABS INT TAB LEN PEEK HABS INT PEEK POINT INT HCOS VAL SQR LN INT ICOS VAL LN OUT OUT JFN VAL VAL SQR OUT JCODE PEEK ATTR TAB VAL KEXP ABS OUT OUT OUT LSQR SCREEN$ LEN LN INT MFN PEEK COS COS OUT NVAL PEEK TAN OUT OUT OSQR VAL VAL TAB OUT OAT ATTR VAL LEN INT OTAB ACS LEN LN OUT PSQR INT INT CODE OUT QSGN ATN PEEK AT SIN QVAL LN TAB INT OUT RAT ATTR VAL VAL COS SABS PEEK TAB OUT OUT TABS PEEK TAB AT OUT TFN ACS LEN SQR VAL TABS PEEK TAB TAB INT TCODE ACS ATTR OUT OUT UATN VAL COS INT OUT USGN INT ACS COS ACS VCOS INT POINT INT TAB WABS COS VAL SGN TAN XSCREEN$ LEN ABS COS VAL YSGN COS SCREEN$ ABS OUT ZTAN INT INKEY$ OUT OUT [INT COS SQR TAB ACS /CODE TAB ACS LEN SGN /COS VAL SGN TAN OUT ]SCREEN$ LEN COS VAL SGN ^VAL CODE INT LEN OUT _SGN COS VAL AT INT `AT ATTR PEEK LEN SQR aSGN TAB PEEK FN COS bABS COS VAL VAL SQR cLN ACS PEEK LEN ATTR dCOS INT PEEK POINT INT eSGN PEEK COS COS OUT fCODE VAL ACS LEN ATTR gTAB PEEK LN OUT OUT hTAB VAL SGN TAN OUT iPEEK SIN SCREEN$ COS INT jAT VAL$ SCREEN$ INT INT kRNDVAL LN PEEK LEN lTAN LEN VAL SGN TAN mSGN COS PEEK INKEY$ OUT nPEEK COS ATTR PEEK TAB nABS PEEK LEN TAN OUT oINT SIN ABS PEEK LEN oLN TAB INT LN VAL pATN INT COS CODE OUT qAT ATTR SCREEN$ SIN CODE rCOS INT PEEK EXP OUT sLEN PEEK ACS COS OUT tAT TAN SCREEN$ COS COS uATTR VAL VAL ATTR ATN vAT CODE INT PEEK TAB wAT ATN VAL INT OUT xATN VAL TAB AT INT xABS TAB PEEK LEN SGN ySGN VAL TAB TAN OUT zABS VAL LEN INT OUT {AT SIN PEEK COS COS ▘ABS ACS LN OUT OUT COS PEEK TAB LN INT VAL COS SQR OUT OUT ▗LEN INT FN OUT OUT ATN PEEK TAB SQR OUT ▚AT VAL EXP ATTR OUT ▜AT ATN VAL TAB ATTR ▖COS VAL LEN LN OUT ▞VAL$ SCREEN$ ACS SGN TAN AT COS VAL FN COS ▟VAL$ SCREEN$ ACS INT ATTR ▙COS VAL SCREEN$ SQR COS SGN PEEK TAB INT EXP [A]AT VAL EXP ATTR COS [A]LN INT LEN ATTR COS [A][Q] OUT OUT OUT OUT COPY COPY ▝ DRAW DRAW DRAW DRAW DRAW !! DRAW DRAW DRAW DRAW ( DRAW DRAW $*+- COPY ▝6 COPY 5 COPY 7 COPY ▝? COPY COPY COPY P COPY F COPY ▝S COPY R COPY ▝Z COPY [ COPY ▝h COPY i COPY j COPY COPY COPY s COPY t COPY u COPY v COPY w COPY x COPY y COPY z COPY { COPY COPY COPY ▝▝▝▝▝▝VAL$ PRINT OR :H/ THEN ? THEN ? THEN ? THEN BORDER OPEN # RETURN B CLS THEN PI OPEN # RETURN C CLS STR$ FLASH <>▝! CONTINUE [T] OPEN # RESTORE OR :H/ THEN ? THEN ? THEN ? THEN BORDER OPEN # RETURN F RETURN B RETURN THEN PI OPEN # RETURN F RETURN #C RETURN STR$ CIRCLE <>: OR :H/ THEN ? THEN ? THEN ? THEN BORDER OPEN # RETURN B CLS THEN PI OPEN # RETURN C CLS STR$ FLASH <>▝NOT dm OR :H/ THEN ? THEN ? THEN ? THEN BORDER OPEN # RETURN B CLS THEN PI OPEN # RETURN C CLS STR$ FLASH <>▝! CONTINUE SCREEN$ OR :H/ THEN ? THEN ? THEN ? THEN BORDER OPEN # RETURN F RETURN B RETURN THEN PI OPEN # RETURN F RETURN #C RETURN STR$ CIRCLE <>[A]rATTR OR :H/ THEN ? THEN ? THEN ? THEN BORDER OPEN # RETURN B CLS THEN PI OPEN # RETURN C CLS STR$ FLASH <>▝:H/!XwX COPY GO SUB VAL 2/2▟/© OR !@~[S]w#xLEN RUN zWSTR$ REM <> NEXT !XUSR ~ PRINT NEW USR W LET PRINT NEW _ LET NEW 8▘w#xLEN DATA CLS <> NEXT ! OUT W GO SUB o+ CLS PRINT CLS <> NEXT !@ GO SUB g# CLS PRINT CLS <>V▝d0d1d2d3d4d3d5d6d7d8d9dAdBdCdDdEdFdGdHdId3dJdKdLdMd3d3d3d3dNdOdPdQdRdSd3dTdUdVdWdXdYdZd[d/d]d^d_d`d#d$d3d*d3d3d3SCREEN$ [J] SAVE 0>!SCREEN$ -> =>-=-> INK LN -- -8- INK LN -`-8 INK FN -p-8 INK VAL -0 INK VAL @5 -( INK LN H&%-▝-▟Y 1 INK LN >YVYY&[J](% INK N(YjY %->Y[R] A INK (=Y CIRCLE -[J][Q]%Y)5[J]@(->Y.Yx= INK INK [J][J]Y INK [J]&YY!%Yx-8Y0>[J](Y g YP>HYp▝ CLS CLS DRAW ▚ CLEAR ▜ CLEAR ▖ CLEAR ▞ CLEAR CLEAR ▛ CLEAR CLEAR ▟ CLEAR ▙ CLEAR CLEAR [A] CLEAR [B] CLEAR [C] CLEAR [D] CLEAR [E] CLEAR STOP CLEAR RETURN <> RETURN LINE RETURN 0 COPY 1 COPY 2 COPY 3 COPY 4 COPY 5 COPY 6 COPY 7 COPY 8 COPY 9 COPY : COPY ; COPY < COPY = COPY > COPY ? COPY @ COPY A COPY B COPY C COPY D COPY E COPY F COPY COPY COPY ▘▘▝▘▘▝▘ COPY ABS USR YCHR$ <= DEF FN { GO TO q LET s PAUSE CAT PAUSE j SAVE [A] SAVE BRIGHT SAVE RANDOMIZE CLS F COPY INKEY$ COPY CLOSE # COPY 6 COPY 6%. COPY COPY
