1 CLEAR VAL "24499": BORDER NOT PI: INK NOT PI: PAPER NOT PI: CLS : RANDOMIZE USR VAL "23906"
15874 NEXT !XX COPY 6 GO SUB VAL Ki OR GO SUB _ NEW g@ GO SUB VAL STR$ LET &@Tu GO SUB VAL !=USR / OR GO SUB [Q]~ACS # GO SUB [Q]~ACS # SAVE STR$ CONTINUE !IN "6/!^~<(= BEEP # RUN RUN FLASH RETURN / NEW 8LEN O LIST y2 BRIGHT ^ NEXT OR !@ INKEY$w, RANDOMIZE }[D]o$|[S] }o8| VERIFY g DATA STR$ CIRCLE !@@ COPY u GO SUB VAL &<"6/NOT VAL ^DISK VERSIONBYALEKSEY POPUSHINSELECT GAME' MODE:------------------1. START GAME 2. INFINITIVE LIFEINFINITIVE TIME COPY NEXT CLEAR © OR > GO SUB y! GO TO VAL GO SUB [ POKE /' STEP = STEP GO TO VAL STR$ > GO SUB y!FN a GO SUB [ POKE / STEP =CODE THEN A(2▚ THEN I(2|og"|NOT [R] READ SCREEN$
0 COPY COPY STEP |;; READ 33PI GO SUB R RESTORE CLEAR LLIST * CLEAR ~=(^#V RUN @## CLEAR ~< ~ CLEAR w# CLEAR ~< ~ CLEAR w#~ CLEAR w CLEAR ~ RETURN 8 CLEAR 6 CLEAR ~ RETURN 8 CLEAR 6 CLEAR ▚ RETURN 8 CLEAR 6 CLEAR ~PI CLEAR 6# CLEAR ~▜▜▜ AND @WO CLEAR THEN F OR CLEAR F OR OR OR CLEAR THEN F( MERGE OR CSTR$ RANDOMIZE MOVE STR$ CONTINUE z VERIFY W{ AND _STR$ PAPER z AND WSTR$ FORMAT QSTR$ <=>X CLEAR ▚W CLEAR FK CLEAR THEN OVER OR STR$ xLEN PLOT CLEAR 6 COPY CLEAR 6 COPY <> CLEAR THEN V( INK y INK ( CLEAR THEN [G]~#PI #~ INK O INK # CLEAR THEN VERIFY CLEAR THEN ^ NOT ▙"" BORDER COPY COPY USR INVERSE BRIGHT OUT OVER BRIGHT INVERSE BRIGHT r OUT OVER BRIGHT CIRCLE FORMAT LLIST STOP CHR$ OR ©© OR CHR$ STOP LLIST LIST SAVE DRAW RETURN COPY COPY COPY $ COPY SAVE LPRINT LIST LIST SAVE SAVE DRAW RETURN RETURN COPY RANDOMIZE RANDOMIZE LET LIST LIST LPRINT USR USR RANDOMIZE RANDOMIZE RANDOMIZE PLOT SAVE DRAW RETURN COPY RETURN SAVE LPRINT USR $I[C],f~~f DRAW ▝ CLEAR CLEAR [A]P,[C]I$USR LPRINT SAVE RETURN COPY COPY COPY DRAW LPRINT [A] LPRINT USR [Q][Q][A] LIST ``` COPY COPY RETURN SAVE SAVE LPRINT LPRINT USR STR$ LLIST BORDER COPY USR LPRINT LIST SAVE RETURN COPY ©??NOT LPRINT LIST LIST LPRINT LIST DRAW COPY LPRINT LLIST LLIST qcc0 LPRINT ` LIST ERASE [R OPEN #q LLIST LLIST LPRINT COPY COPY USR OUT P[A]x88((H▖▖H(( CLS COPY RETURN RETURN OVER 830? SAVE DRAW RETURN COPY USR 8USR SAVE RETURN ( COPY ?▝LN ▜LN ▜VAL ▙ RUN RUN AND AND AND <=<= AND AND AND <=<=WUuW▙VAL ▜LN ▜LN COPY COPY COPY USR ?USR COPY SAVE LPRINT USR ??>! SAVE SAVE ▘▝USR USR @@ SAVE USR CHR$ RETURN " COPY RETURN LLIST COPY ©STR$ 0>=$[C]I4[N]PEEK 601LEN LEN 006PEEK [M]6/(VAL$ 4I[C]$>=0STR$ © COPY COPY COPY COPY m[N]| COPY ? COPY COPY SAVE <=? COPY LPRINT LPRINT r==IN [J] INK USR © COPY USR LPRINT LIST SAVE DATA BIN ?▜GC[T][R]QQQVAL LN , NEW NEW [I][A]QQQ[R][T]CG▜?© RETURN DRAW DRAW DRAW RETURN COPY COPY COPY COPY COPY COPY RETURN
63974 SAVE COPY ? COPY ??? LET DEF FN EXP COPY ? LET ▞ LET b▘0 COPY COPY COPY USR LPRINT LPRINT LPRINT LIST LIST LIST SAVE SAVE DRAW COPY RETURN RETURN RETURN COPY | AND [O][O] AND | COPY COPY COPY COPY DRAW ▜LN IN SGN SQR RANDOMIZE RANDOMIZE SQR SGN IN OUT __ OUT COPY ?? COPY COPY COPY ? COPY RETURN x`USR USR [Q]PI8 @@USR `[A] LIST SAVE SAVE COPY SAVE COPY SAVE DRAW DRAW RETURN COPY >=IHOO COPY COPY [I]XLN >= CONTINUE h CONTINUE >= CIRCLE FORMAT FORMAT OUT USR COPY LIST USR USR ? COPY ?? COPY RETURN SAVE LPRINT USR USR COPY ?USR LPRINT LPRINT COPY COPY LPRINT COPY $ << COPY COPY CLEAR COPY ??©© COPY SAVE USR USR LIST COPY ©©??? COPY COPY ? COPY [D][D][D]▘ COPY COPY STR$ 1<> PRINT CLS DRAW COPY READ FLASH + THEN THEN + FLASH READ E COPY RETURN DRAW DRAW RETURN COPY ©?▘▝@@` LPRINT LPRINT LPRINT LIST LET COPY ©? COPY COPY COPY © COPY DRAW NEXT GO TO FORMAT FORMAT [Q][Q][R] BEEP CONTINUE FORMAT FORMAT [Q] FORMAT FORMAT CONTINUE RUN SAVE + COPY READ USR ?© COPY !USR ? COPY COPY COPY COPY BORDER 1 CAT 0# COPY LOAD BORDER BORDER READ LPRINT LIST LPRINT LPRINT LPRINT SAVE SAVE DRAW SAVE LIST LLIST NOT USR USR COPY LPRINT COPY LPRINT LPRINT COPY INK $$ COPY RETURN RETURN RETURN COPY COPY COPY COPY COPY COPY NOT LLIST LLIST LLIST LET LIST SAVE DRAW DRAW RETURN RETURN COPY COPY SAVE ? COPY COPY COPY SAVE SAVE RETURN COPY RETURN SAVE COPY READ STR$ LLIST LPRINT SAVE COPY DRAW LIST LPRINT USR LIST LIST LIST SAVE SAVE DRAW RETURN COPY COPY COPY ~ABS Z$$ RANDOMIZE COPY DRAW LIST BORDER SAVE DRAW RANDOMIZE y9=> COPY RANDOMIZE 8? COPY ??// CAT ▜<=NOT ?USR USR COPY COPY ©@@` [Q][Q] LPRINT BORDER COPY SAVE NOT [Q]GXf CLS N$O REM OR q=SIN D;<= LIST COPY RETURN $ COPY ?`? COPY COPY ?IN [P] OUT ___ OUT COPY LOAD ? OUT STR$ &NOT STR$ DATA PAPER aNOT _ BEEP COPY COPY COPY RUN BORDER READ NOT STR$ STR$ STR$ ▝▝▝ BORDER BORDER BORDER FLASH LLIST SAVE RETURN COPY ©©??[P] COPY COPY COPY ©@@@ [Q] `@@@© COPY ? CAT © COPY [P] COPY © COPY ▜ LLIST SAVE RETURN SAVE SAVE SAVE RETURN 0 COPY COPY COPY RETURN LIST LPRINT LPRINT LPRINT LIST LIST SAVE DRAW RETURN COPY COPY 8$80(($< COPY COPY COPY RETURN DRAW LPRINT NEXT NEW TO 8 COPY USR LIST RETURN , COPY COPY COPY USR LPRINT SAVE COPY SAVE ; PAPER *-]]- COPY COPY 3g TO 3f LPRINT COPY RETURN COPY ©? LPRINT SAVE COPY RETURN COPY COPY COPY LIST SAVE COPY COPY COPY COPY COPY COPY [M]9s& COPY CLEAR CLEAR RANDOMIZE SAVE LIST LIST LIST LPRINT LPRINT USR USR USR USR RANDOMIZE PLOT PLOT PLOT RANDOMIZE COPY ©© COPY READ GO TO FOR CONTINUE FOR GO TO READ COPY COPY COPY COPY COPY RETURN LPRINT COPY COPY SAVE y~©©©xv PAUSE PAUSE vx©~y SAVE COPY COPY COPY COPY COPY ©©©??© COPY ?<= LLIST SAVE RETURN COPY RETURN RETURN RETURN # COPY COPY RETURN IF IF COPY COPY IF STOP INPUT CONTINUE CONTINUE LOAD LPRINT COPY COPY COPY LIST COPY COPY 00VAL p[A] FORMAT [A]pVAL 00 COPY COPY COPY COPY COPY RETURN RETURN DRAW DRAW DRAW SAVE DRAW DRAW RETURN COPY <= LPRINT RETURN COPY COPY COPY LIST DRAW ERASE U FLASH <= COPY COPY COPY ? COPY COPY COPY COPY COPY COPY >=[P]? COPY OUT OUT OUT [P] OUT OUT CODE OUT 'USR SAVE COPY RETURN CLEAR IF DATA [I]h▖▖h[I] CONTINUE XFN >=>=▖▖▖x▚y RETURN COPY COPY ? COPY x[L]jj[L]x COPY LPRINT RANDOMIZE 3` TO [J]* COPY RETURN DRAW DRAW SAVE SAVE LIST LIST COPY USR USR USR COPY LIST LET RANDOMIZE SAVE DRAW COPY LIST LPRINT LPRINT LPRINT COPY COPY OUT _XkRNBB^bB©@_ FORMAT COPY COPY COPY COPY ©? COPY COPY COPY COPY [P]0 NEW TO [J]% COPY RETURN IF LLIST SAVE SAVE STOP ▞IIIp COPY COPY PRINT COPY COPY COPY COPY COPY RANDOMIZE USR USR RANDOMIZE COPY COPY COPY xs BORDER DEF FN [M] COPY BORDER TO <><> TO BORDER COPY ?/STR$ RETURN COPY LPRINT "STR$ COPY COPY BORDER [I]▜▜▗ DATA [E][H] COPY COPY COPY COPY COPY USR `p($*-./__IN © COPY NEXT BORDER STR$ [J]3f NEW f CAT ! COPY ©? COPY COPY READ ##'G▜ COPY COPY COPY COPY SAVE CLS PAUSE DEF FN 2CHR$ PAUSE STOP ▘B"B STOP STOP STOP CHR$ RETURN IF SAVE COPY COPY COPY COPY RETURN @[Q] FORMAT CONTINUE POKE IF CLEAR RANDOMIZE CLS IF IF CLS SAVE COPY STR$ [J]~ COPY AIAyy COPY RETURN DRAW DRAW DRAW SAVE LIST LIST LPRINT USR LPRINT LPRINT SAVE COPY RETURN COPY ©©© COPY COPY COPY ©IN _'w▜© COPY ( COPY ©IN ^- COPY COPY AND [M]9s LIST COPY $ DATA DATA COPY IN IN ???? OUT <= READ LET SAVE DRAW RETURN RETURN SAVE DRAW COPY COPY DRAW ▗▜▜▗▗▗[M][A][A][P]DRND MERGE GO SUB LET COPY COPY COPY USR OUT FORMAT BRIGHT CHR$ POKE CONTINUE FORMAT [Q]A▘/_IN ©?IN ? COPY CAT [P]? COPY [P][P][P]7 COPY g LPRINT LIST DRAW COPY COPY ? // COPY COPY /#; CLS COPY COPY CLS COPY CLS COPY CLS CLS CLS COPY CLS COPY CLS COPY CLS COPY CLS CLS +[SQR {d CLS {{;;[L] FOR CLS COPY READ [L]k▛▛k[L] READ COPY COPY CLS COPY COPY 2===%======%%=%%%%=%%=%%=%%%%<<<<<,,,,,,< STOP BIN PI▛R5 DRAW AT ]STR$ FN ▙tZ@( SAVE LPRINT >=VAL [I]iS<& RANDOMIZE STOP FORMAT SQR INKEY$[B]|gR=( GO TO BEEP NOT CODE [L]▜taN;( LOAD INVERSE THEN EXP PI[F]q_O>. DRAW FOR FLASH THEN SQR SCREEN$ [K]▞yiYJ;, LET STOP CLOSE # AND LN POINT [K]~pcVI;.! IF GO SUB LPRINT CLOSE #<=INT TAB [Q][E]▖|0c CLEAR COPY > GO SUB y GO SUB x PLOT ?2D>=CODE 2E>=2F>=2G>=NOT DIM <=|2PEEK <=}▜o▜o&I>=~#DMfoASTR$ GO SUB S STEP STR$ ~#NOT INT STR$ ECHR$ GO SUB S STEP STR$ `i#~#DMfo]STR$ GO SUB S PRINT STR$ ~#NOT STOP STR$ SIN OR GO SUB S PRINT STR$ `i#~#fowSTR$ GO SUB SCHR$ ~#NOT CHR$ EXP NOT GO SUB SCHR$ CODE 2 ERASE CHR$ 2J AND 2QBIN 2[U]<=<2TCHR$ 2STR$ OR 2>=NOT >2H>=> COPY 21CHR$ 2&CHR$ <>~LN (w_CODE W GO SUB R~#NOT INT STR$ !Y>=~#LN LINE [T]STR$ "SIN STR$ g>=▜o&~#fo"FCHR$ NOT ECHR$ ^ GO SUB R~#NOT STOP STR$ !]>=~#LN LINE CAT STR$ " PAPER STR$ o>=▜o&~#fo"COS OR NOT SIN OR ^ GO SUB R~#NOT CHR$ !b>=~#LN ( INPUT "CHR$ u>=▜o&~#fo"INT NOT NOT EXP NOT CODE 21CHR$ NOT *CHR$ >PI>=CODE 2&CHR$ NOT STR$ >PI( LIST CLEAR COPY > GO SUB y GO SUB H!TCHR$ 5CHR$ CNOT !VAL$ LINE ^# INVERSE !UCHR$ INVERSE INVERSE DIM NOT ATTR CHR$ NOT COS CHR$ NOT SQR CHR$ NOT AND CHR$ NOT MOVE CHR$ NOT MOVE CHR$ NOT LPRINT CHR$ NOT LOAD CHR$ NOT LOAD CHR$ NOT NOT NOT NOT NOT CHR$ NOT NOT NOT NOT NOT x2INOT 2kNOT x2DNOT 2fNOT CODE 2LEN NOT ~#2yNOT ~#2TCHR$ "FCHR$ THEN INK THEN ▝NOT CNOT ~#2WNOT NOT HCHR$ ~#2▖NOT NOT HCHR$ ^#V# GO SUB SNOT NOT HCHR$ ^#V# GO SUB S/NOT NOT HCHR$ > COPY <CHR$ HCHR$ 2 ERASE CHR$ ! FLASH LINE NOT HCHR$ ^#V#" FLASH CHR$ x2 ERASE CHR$ FOR NOT HCHR$ CODE 2DNOT 2fNOT 2LEN NOT 2E>=~#2TCHR$ "FCHR$ NOT SIN NOT x2INOT 2kNOT ~#2TCHR$ "FCHR$ NOT CNOT !{>=CODE 2INOT NOT PNOT ^ GO SUB R~#NOT VNOT !<>CODE 2kNOT NOT rNOT ^ GO SUB R~#NOT xNOT > COPY PI(><( TO !▘>=~# RETURN ( STEP CODE NEW 2E>="NNOT > COPY PI(F><(IN !<>~# RETURN (USR x▘"pNOT &USR o^,V![A]NOT >o ERASE NOT $ DIM THEN : THEN THEN : THEN THEN : THEN THEN : THEN THEN : THEN THEN : THEN THEN : THEN GO SUB S=>=>!>=NOT 5CHR$ # OR ! PLOT DEF FN ^# INVERSE !<>NOT INVERSE INVERSE DIM NOT BIN NOT 'BIN NOT /BIN NOT :BIN NOT EBIN NOT PBIN NOT _BIN NOT nBIN NOT nBIN NOT ▚BIN NOT [A]BIN NOT BIN NOT VAL$ BIN NOT DEF FN BIN NOT CIRCLE BIN NOT CHR$ x2) OR 2K OR x2$ OR 2F OR CODE 2[B] OR ~#2Y OR ~#2>=NOT "INT NOT THEN DIM THEN [B]NOT # OR ~#27 OR NOT SGN NOT ~#2h OR NOT SGN NOT ^#V# GO SUB S DATA BIN NOT SGN NOT ^#V# GO SUB S RANDOMIZE BIN NOT SGN NOT ^#V# GO SUB S> COPY <CHR$ SGN NOT 2QBIN ! CAT NOT SGN NOT ^#V#"ZBIN x2QBIN FOR NOT SGN NOT CODE 2$ OR 2F OR 2[B] OR 2G>=~#2>=NOT "INT NOT NOT ATTR OR x2) OR 2K OR 2[G] OR x2$ OR 2F OR 2[B] OR ~#2Y OR ~#2>=NOT "INT NOT THEN POINT THEN [B]NOT # OR x2) OR 2[G] OR 2$ OR 2[B] OR CODE 2F OR ~#2>=NOT "INT NOT THEN POINT THEN MOVE NOT # OR x2) OR 2K OR 2[G] OR ~#2>=NOT "INT NOT NOT # OR ! OPEN #>=CODE 2) OR NOT 0 OR ^ GO SUB R~#NOT 6 OR !#<>CODE 2K OR NOT R OR ^ GO SUB R~#NOT X OR !M<>CODE 2[G] OR NOT [O] OR ^PI GO SUB R~#NOT RND OR > COPY PI(><(ACS ! PAPER >=~# RETURN (ATN CODE NEW 2G>=". OR > COPY PI(F><(POINT !$<>~# RETURN (SCREEN$ x▘"P OR &USR o^,V!p OR >o ERASE o OR $ DIM THEN : THEN THEN : THEN THEN : THEN THEN : THEN THEN : THEN THEN : THEN THEN : THEN GO SUB SA>=>PI(>< LINE OR !P<>~# RETURN LINE OR 2C>="[M] OR !STR$ OR 5CHR$ <=!LN STEP ^# INVERSE !CHR$ OR INVERSE INVERSE DIM NOT AND NOT AND NOT ( AND NOT 3 AND NOT > AND NOT I AND NOT X AND NOT g AND NOT g AND NOT © AND NOT ▞ AND NOT RANDOMIZE OR NOT PI AND NOT <= AND NOT MOVE AND NOT INK STR$ x2!<=2C<=x2<=2><=CODE 2▞<=~#2Q<=~#2STR$ OR "COS OR THEN LLIST THEN ▞NOT <=~#2/<=NOT ASN OR ~#2`<=NOT ASN OR ^#V# GO SUB S INVERSE AND NOT ASN OR ^#V# GO SUB S PAUSE AND NOT ASN OR ^#V# GO SUB S<=NOT ASN OR > COPY <CHR$ ASN OR 2J AND ! RANDOMIZE STEP NOT ASN OR ^#V#"S AND x2J AND FOR NOT ASN OR CODE 2<=2><=2▞<=2F>=~#2STR$ OR "COS OR NOT [T]<=x2!<=2C<=2▙<=x2<=2><=2▞<=~#2Q<=~#2STR$ OR "COS OR THEN [R] THEN ▞NOT <=x2!<=2▙<=2<=2▞<=CODE 2><=~#2STR$ OR "COS OR THEN [R] THEN <>NOT <=x2!<=2C<=2▙<=~#2STR$ OR "COS OR NOT <=!CODE >=CODE 2!<=NOT (<=^ GO SUB R~#NOT .<=!+<>CODE 2C<=NOT J<=^ GO SUB R~#NOT P<=!M<>CODE 2▙<=NOT [G]<=^ GO SUB R~#NOT [N]<=> COPY PI(><(ATN !ACS >=~# RETURN (LN ▘ PAUSE 5<=CODE NEW 2F>="&<=> COPY PI(F><(SCREEN$ !2<>~# RETURN (ATTR x▘"H<=&USR o^,V!h<=>o ERASE g<=$ DIM THEN : THEN THEN : THEN THEN : THEN THEN : THEN THEN : THEN THEN : THEN THEN : THEN GO SUB S?>=>PI(>< LINE <=!P<>~# RETURN LINE <=2C>="[E]<=> COPY PI LINE ABS <=!H>=5CHR$ ABS <=6!PEEK <=5CHR$ ABS <=CODE 21CHR$ > VERIFY W:E>=▘ PAUSE LINE <=CODE 2E>=:F>=▘ PAUSE MERGE <=CODE 2F>=:G>=▘ PAUSE LPRINT <=CODE 2G>=y2D>=!G>=> GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR =B GO SUB yC GO SUB ATTR <>FN CP COPY U>=[>=_>=d>=d>=d>= COPY COPY COPY COPY COPY * CAT ▜<>INKEY$ LINE THEN [A] CAT c TO [J] STEP FORMAT F DEF FN RESTORE DEF FN RETURN RETURN RETURN COPY COPY COPY CLEAR CLEAR CLEAR RETURN RETURN RETURN DRAW DRAW DRAW CLEAR CLEAR CLEAR CLEAR CLEAR CLEAR DRAW DRAW DRAW DRAW DRAW DRAW COPY RETURN CLEAR COPY COPY COPY RETURN CLEAR DRAW RETURN RETURN RETURN DRAW IF SAVE COPY RETURN CLEAR COPY COPY COPY CLEAR CLS RANDOMIZE RETURN DRAW IF COPY RETURN DRAW IF SAVE DRAW CLS IF SAVE PLOT POKE RETURN RETURN RETURN COPY COPY COPY CLEAR CLEAR CLEAR RETURN RETURN RETURN DRAW DRAW DRAW CLEAR CLEAR CLEAR CLS CLS CLS DRAW DRAW DRAW IF IF IF CLS CLS CLS RANDOMIZE RANDOMIZE RANDOMIZE RETURN RETURN RETURN COPY COPY COPY CLS RUN NEXT COPY RETURN DRAW SAVE POKE LIST SAVE RETURN RETURN RETURN DRAW SAVE DRAW RETURN RETURN RETURN RETURN * Z80 Music Player and music (c)1990 Sean Conran *<>{>=!80(!(08!80FN !FN 08!80>=!>=0FN !FN 0▖!▖0x!x0X!X'!X08!80X!X0x!x0>=!>=M0X!X'!X08!80X!X0x!x0>=!>=50x!x0X!X08!8/0(!(08!80FN !FN M▜<>0FN !FN M-<>0x'0XATTR LINE ATTR LINE 0x0FN 0▖'0xUSR LINE USR LINE 0▖0>=ATTR LINE ATTR LINE ATTR LINE 0x0FN USR LINE USR LINE 0FN '0▖ REM LINE REM LINE 0FN 0( REM LINE REM LINE 0(0>=0FN 0▖-<>0FN !FN G'!FN 0▖!▖0x!x0FN !FN 0▖!▖50x!x08!8M0[I]![I]50x!x0X!X;08!80x!x50▖!▖0FN !FN ;0(!(08!850(!(0>=!>=0(!(0FN !FN )0>=!>=50FN !FN 0▖!▖;0x!x0X!X50[I]![I]0>=!>=50FN !FN 0[I]![I]0FN !FN 508!80(!(M-+<>?<>[L]>=08 OR >=$ABS >=08[L]>=0FN OR >=$ABS >=0>=[L]>=08 OR >=$ABS >=08[L]>=0FN OR >=$ABS >=0>=[L]>=0▖ OR >=$ABS >=0>=[L]>=08 OR >=$ABS >=0X[L]>=0▖ OR >=$ABS >=0▖[L]>=08 OR >=$ABS >=0x[L]>=0X OR >=$ABS >=0X[L]>=0>= OR >=$ABS >=0([L]>=0X OR >=$ABS >=0X[L]>=0>= OR >=$ABS >=0X[L]>=08 OR >=$ABS >=08[L]>=0FN OR >=$ABS >=0FN [L]>=0FN OR >=$ABS >=0([L]>=0X OR >=$ABS >=0FN c TO 0h-M<>CODE >=0xx!xABS >=0(CODE >=0xx!xABS >=0([O] STEP CODE >=0▖▖!▖ABS >=08CODE >=0▖▖!▖ABS >=08 LINE STEP [O] STEP [O] STEP LINE STEP CODE >=0FN FN !FN ABS >=0XCODE >=0FN FN !FN ABS >=0X COPY STEP COPY STEP CODE >=0FN ABS >='[L]>=0(080X-#<>M<> RANDOMIZE >=8!8<>0FN P DEF FN P DEF FN P DEF FN P DEF FN P DEF FN P DEF FN P DEF FN RANDOMIZE >=8!8<>0▖u DEF FN u DEF FN u DEF FN u DEF FN u DEF FN u DEF FN u DEF FN RANDOMIZE >=X!X<>0[I][K] DEF FN [K] DEF FN [K] DEF FN [K] DEF FN [K] DEF FN [K] DEF FN [K] DEF FN P DEF FN P DEF FN P DEF FN P DEF FN RANDOMIZE >=X!X<>0FN THEN DEF FN THEN DEF FN THEN DEF FN - OPEN #>=x!x!x! REM DEF FN ▖!▖!▖!▖! IF DEF FN REM DEF FN REM DEF FN IF DEF FN FN !FN !FN !FN ! CAT CAT CAT -<>{>=!>=0[I]![I]0(!(0>=!>=0[I]![I]<>0FN 0>=0(08''''''-+<>M<>ABS >=0(CODE >=0>=ABS >=0(CODE >=0XABS >='CODE >=X!XABS >='CODE >=0XABS >='CODE >=X!XABS >='CODE >=0FN ABS >=0▖CODE >=X!X[L]>=0808-#<><>M<>X!X0[I]0>=0X0[I]0>= FORMAT (!(0X0FN 0X0FN 08'''''''''-[J] COPY [M] LOAD LOAD BORDER RANDOMIZE CLS RANDOMIZE DRAW BORDER © BRIGHT LOAD LOAD GO SUB CLEAR CLS CLEAR RETURN BORDER q BRIGHT INPUT no= FLASH ABS OVER BORDER q BRIGHT INPUT .- THEN [N] DEF FN BORDER q BRIGHT INPUT NOT [N] DEF FN BORDER q BRIGHT INPUT NOT [N] DEF FN BORDER q BRIGHT INPUT N@l= OPEN #[N] DEF FN BORDER ©[M] LOAD CAT USR l RANDOMIZE NEXT [N] DEF FN COPY ©[M] LOAD CAT USR l RANDOMIZE NEXT [N] DEF FN ©q BRIGHT INPUT N@l= OPEN #[N] DEF FN q BRIGHT INPUT NOT [N] DEF FN q BRIGHT INPUT NOT [N] DEF FN q BRIGHT INPUT THEN [N] DEF FN q BRIGHT INPUT FLASH ABS OVER <=q OUT INPUT CLS CLEAR RETURN COPY CLS LOAD DEF FN CLS RANDOMIZE DRAW ~ GO SUB sU CLOSE #< CLS v NEXT CLS STEP PAPER CLOSE #!i@ STEP CLOSE #.. TIME OUT .. COPY NOT d MOVE GO SUB sU CLOSE #< CLS v NEXT CLS STEP PAPER CLOSE #!H STEP CLOSE #.. GAME OVER .. COPY ! STEP STR$ STEP BEEP STEP R MERGE THEN b LINE ▝ MOVE > COPY 2[U]<= STEP BEEP :&CHR$ PICHR$ [B] MOVE CODE 21CHR$ STEP STR$ STEP R MERGE THEN bCHR$ [S] MOVE NOT LEN MOVE GO SUB sU CLOSE # NEXT ! STEP STR$ CODE 2USR MOVE STEP z CLOSE #> INPUT 2USR MOVE CHR$ [K] ERASE !@ STEP CLOSE #.. GAME CREDITS .. COPY !▗@ STEP CLOSE #DESIGN,CODING & GRAFIX BY COPY ! DIM @ STEP CLOSE #.. TWILIGHT .. COPY !cH STEP CLOSE #PUBLISHED UNDER LICENCE BY COPY ! OR H STEP CLOSE #.. HI-TEC SOFTWARE .. COPY !CP STEP CLOSE #(C) 1990 HANNA BARBERA INC COPY ![T]P STEP CLOSE #(C) 1990 PAL DEVELOPMENTS. COPY NOT _ OPEN # GO SUB s LINE ERASE !p FORMAT 1CODE MERGE > MOVE >_ GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]=CHR$ INKEY$ ERASE 1![U]@ STEP CLOSE #(1) .. KEYBOARD CONTROL COPY !$H STEP CLOSE #(2) .. KEMPSTON JOYSTICK COPY ![U]H STEP CLOSE #(3) .. INTERFACE II COPY ![U]P STEP CLOSE #MUSIC BY .. SEAN CONRAN COPY !%P STEP CLOSE #.. CHOOSE AN OPTION .. COPY ! POKE "SQR OPEN #> RUN FLASH RETURN NEW LINE TO OPEN #> RUN FLASH RETURN NEW LINE TO OPEN #> RUN FLASH RETURN NEW LINE TO OPEN #>▟ FLASH RETURN NEW CHR$ INT OPEN #> CLEAR FLASH RETURN NEW CHR$ INT OPEN #>© FLASH RETURN NEW CHR$ INT OPEN #> OUT FLASH RETURN NEW CHR$ INT OPEN #> CLEAR FLASH RETURN NEW CHR$ INT OPEN #> OPEN # RETURN ><>26! STEP BEEP +"SQR OPEN #}TAN CHR$ e OPEN #NOT SGN MOVE > COPY 2[U]<= STEP BEEP :&CHR$ PICHR$ MOVE OPEN #CODE 21CHR$ MERGE STEP STR$ MOVE > RUN FLASH RETURN G NEW LINE TO OPEN #x NEW LINE TO OPEN #x NEW LINE TO OPEN #z27NOT T CLOSE # MOVE MERGE RETURN COPY >= RESTORE RETURN LINE O CLOSE #o&)))< MOVE MERGE FOR w$w$w$w$w$w$$w$} AND o8| VERIFY g$w$$w$$w$$w LLIST ,NOT CLOSE #1<>GGGGGGGGGGGGGGGGGGGGGGGGGGGCODE OPEN # RETURN GO SUB s BEEP CLOSE #go1X>USR RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE =CHR$ ▖ CLOSE #!1[> RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE RETURN CHR$ ERASE CLOSE #!=CHR$ PI CLOSE #1<> GO SUB sO MERGE 1RND MERGE >[Q] MOVE ! RESTORE VERIFY GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]=CHR$ READ CLOSE #!>1Z RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE RESTORE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE MERGE =CHR$ * MERGE 1<>:7PICHR$ ] MERGE FLASH W<> RETURN CHR$ } MERGE ![Q] MERGE LOAD { FLASH RETURN INKEY$CHR$ w MERGE z▝W# THEN ! LET <>![G] MERGE O~# FLASH RETURN INKEY$CHR$ [A] MERGE z▝W# THEN ! LIST <> OUT OUT CLEAR CLS ©@ABCDEFG#@#A#B#C#D#E#F#GC@CACBCCCDCECFCGc@cAcBcCcDcEcFcG@ABCDEFG[T]@[T]A[T]B[T]C[T]D[T]E[T]F[T]GNOT @NOT ANOT BNOT CNOT DNOT ENOT FNOT G READ @ READ A READ B READ C READ D READ E READ F READ GHIJKLMNO#H#I#J#K#L#M#N#OCHCICJCKCLCMCNCOcHcIcJcKcLcMcNcOHIJKLMNO[T]H[T]I[T]J[T]K[T]L[T]M[T]N[T]ONOT HNOT INOT JNOT KNOT LNOT MNOT NNOT O READ H READ I READ J READ K READ L READ M READ N READ OPQRSTUVW#P#Q#R#S#T#U#V#WCPCQCRCSCTCUCVCWcPcQcRcScTcUcVcW PRINT OR MERGE RESTORE INVERSE RESTORE CLS v STEP 0CHR$ NEXT INVERSE LLIST LLIST MOVE STR$ LET <>7> COPY INVERSE !USR < STEP CHR$ NOT [R] RETURN :/[ NEW SAVE COS 2/[ CLEAR © GO SUB y<> STEP USR ] STEP TAB MOVE STEP USR ]<> STEP USR ] STEP V MOVE STEP USR ]<> STEP USR ] STEP 0 MOVE STEP USR ]<>:/[ATN LINE u CLEAR STEP USR ]7> COPY INVERSE !USR < STEP H STEP USR ]NOT u CLEAR ACCCCLxzzzx{x{x{xx{{{{{yx{{?``cfFFFFFFFFFFFFFFFFFFFg``DCLFGxx{x{xx{yyx{yyxB`fBIN OR _`DLxtuz{z{zz{y~©zxyK@Lyx{K@@@Lz{zyK@Ba STOP STOP STOP STOP STOP STOP STOP STOP STOP STOP STOP STOP AND <=g`Dxvwzx! TO _[7 MERGE GO SUB VAL !`TAN _ CONTINUE [P]NOT NOT 3!T OUT COPY COPY RESTORE COS _ATN GO SUB B LLIST >=~ RETURN t( GO SUB FN INPUT +F THEN x( THEN LN xPI( RETURN >0>t+~ DRAW + CAT x{▞tz▗tx▗tzy▖t{tx[A]t{▖tK@tLx{tyKBa▚t READ t>=<>_Dy▖txx▞tzt|}tK@Lx{xtK@@Lytxt?@tLx{ytx{{y{{x▚t{ytBa▜tCODE gc``_``a>=<>_D▗t{xy▖t{x{?@tLxGz▜tx{▜tz▜tBCCL▗tztKA@L▙t?@Az{Q`]t^tCODE tCODE g`_`t^>=<>_D@L▖t{xyytzyK@@CCLtz{y|}▜txzK@@L▗t?CC[pqrspqrspqrspqrspqrspqrspqWCC[rspqrsRatCODE tCODE tCODE g_`t]f<>_DL{zKCCLx▜tK@@LtzGyzt{K@tL{y▗tz{xtzBCC[jmlkmlkljWXXUCCVYkjSatCODE eftCODE _`ta<>_D|}▗tGF{ztF{▗t{z▚tyx[E]t{?CtVXYnokmjWXXYnomZUCt[nomlTatCODE ▜tCODE _`ta<>_C@tAxy{t?A{?A▖txt{t?@tCtVXtUCCVXtUCtVXt]t^▚tCODE _`ta<>e/`CtLz{▗txKLtKLtx{▗tzt{y▗tyB``ct`tct`tcf▚tCODE _`ta<>g`CCLFtx▗tztzy▗txz▞t{B`fSCREEN$ FN POINT tSCREEN$ POINT FN POINT POINT SCREEN$ _`taSCREEN$ FN POINT POINT SCREEN$ POINT tSCREEN$ POINT FN POINT SCREEN$ bcdtLEN BIN OR LEN gdf▜tCODE _`ta<>_CDt{ytK@@Ly▗t{tK@tL{tKLt?BaINKEY$▚tINKEY$▗tg`tfINKEY$▞tINKEY$▗tCODE ▚tLEN AND <=LEN ▛t/]t`tcf<>_CDx▗t{G▞ty{JCLt?@tL▗txzBBaINKEY$▚tINKEY$t_``ftINKEY$▞tINKEY$▗tCODE ▚tLEN >=<>LEN tgc`_`tf<>_CDtKL▟t{tytx?BCtD▖t?CCaPI/^INKEY$ STOP t_`a▗tINKEY$▞tINKEY$▗tCODE t/^>=<>LEN ▟tCODE g_``at<>e`CDrspqrspqrspqrspqrspqrspqrspqrspqrZCt[pqrspqrsZCCa STOP t/`aINKEY$ READ tccf▗tINKEY$▞tINKEY$▗tCODE ▗t/`a>=<>LEN t/t/^▗tCODE _``at<>_CCXXYmktWYjmjktjmWUCt[jkWUCCa READ t`t^INKEY$CODE ▞tINKEY$▞tINKEY$▗tCODE ▗t__`^>=<>LEN t_t_a▗tCODE gct]]f<>_CtV[nolWXtUVXtYkltnoWXUCtVYljZCtSQR SGN ABS ▜tPICODE ▞tINKEY$/^▚tINKEY$t/]^ATTR AT STR$ CHR$ NOT `^<>LEN /at_aCODE SCREEN$ FN SCREEN$ CODE LINE THEN /`CtVXYlWUCtDCCVYnomlWXtUCtVXYnoWUCtPEEK IN USR tCODE ▞tINKEY$_a▚tINKEY$t__`TAB VAL$ PEEK IN USR ``a<> STOP LEN STOP STOP _at_aCODE tINKEY$CODE t``CtVXtUCtVXtUCtUCt`]]`t]tf▗taINKEY$_aTAN ASN ACS tINKEY$t__`]t`ta<> READ t]at_a]t^INKEY$CODE /]`29?t3``▚taINKEY$_aATN ttINKEY$t__`ctf<>bct`at_a`tccfINKEY$CODE _``6 BORDER )t)' BORDER ))t)t)' BORDER ' BORDER )))t)' BORDER )t' BORDER )t)7`a▚taPI_aLN EXP INT tINKEY$t__`t CONTINUE AT LEN <>LEN _at_a``fCODE ▗tINKEY$CODE _``6 NEW *[A] NEW *t' NEW *t[C] NEW *t[C] NEW **' NEW **' NEW *t' NEW *t[C] NEW ' NEW **▙ NEW **7`a▗tSIN tgcc]^tINKEY$t__`tTAB VAL$ LEN <>LEN ATTR _at_a`fCODE ▗tINKEY$CODE /`t6 NEW *[B] NEW **▜t▖ BORDER **▛*t' NEW [E][F]' NEW *t▘▖*[A] NEW *▘▖*t' NEW ▟*t7`atLEN LEN LEN g_TAN ASN ACS __`]t^LEN LINE THEN LEN TAB _at_aaCODE ▗tINKEY$CODE /`t6▞▖ NEW * DATA NEW BORDER ' BORDER )t▟▟*t[C] NEW *&!t(![G][H](#*t)t▚*[B] NEW *)' BORDER ▞▖▖**'▜▖*t▘7a`]^tLEN LEN LEN _ATN t__`SIN tft//]]at_afCODE ▗tPICODE _ct`6 BORDER )▟* RESTORE NEW NEW ' NEW *t▞t▗ BORDER *&$.8t/%#*t▞▗ NEW *t' NEW ))▚▚▟*'▚)▞▗ NEW *))7dfLEN /^LEN LEN _LN EXP INT gbftLEN ▗t CONTINUE AT //`tat_atCODE ▜t/at_6 NEW *▞t[I][J][I][J] NEW *)t*&$.5t4/%#*t))**▟*' NEW [I][J]▞▞t*))*t7)LEN eccfLEN /]tf▖tCODE ▗tLEN ▗tTAB VAL$ __`tat_atCODE t]]cdt_6 NEW *)t[K][L][K][L][I][J] NEW *[A] NEW **&$.5t4/%#*t▜▖' NEW [K][L] BORDER )t' BORDER *[C]*t7*LEN ▚tLEN /`a▛tCODE ▗tLEN tSIN t`at_at/^tCODE ▗t/`6 NEW *t[C] NEW **[M][N][M][N][K][L] NEW *[B] NEW !$.5t4/%!t"**▚ BORDER ▚' NEW [M][N] NEW *t' NEW *t NEW *7*LEN ▚tLEN _`a STOP t/]^tLEN ▗tLEN tLEN _at_a STOP STOP /`a STOP tCODE STOP t_`6 NEW *t.8t/ NEW *.8t5t48t5_]t` READ t__`SIN ttLEN tLEN _at_` READ READ `t READ t]`6 NEW *t09t36 NEW *09!t3`tfFF LPRINT FF LPRINT LPRINT F LPRINT FF LPRINT Fgd`tSIN t__`ctftLEN tLEN _atbct`6!t#*)t76 NEW *)' BORDER )' BORDER )' BORDER )' BORDER )t)7``f LPRINT t LPRINT LPRINT LPRINT LPRINT LPRINT t LPRINT Fg`taSCREEN$ FN POINT SCREEN$ LEN SCREEN$ FN SCREEN$ LEN __`fLEN ▗tLEN tLEN _atSCREEN$ POINT FN POINT CODE POINT SCREEN$ POINT CODE POINT POINT SCREEN$ POINT tSCREEN$ _488/%#*t76 NEW * DATA NEW **' NEW *▙*' NEW * DATA NEW *' NEW *t' NEW *t DATA *7`f LPRINT t LLIST LPRINT LPRINT LLIST LPRINT t LLIST gd`aINKEY$LEN INKEY$LEN __atLEN LEN tLEN _atINKEY$CODE tCODE ▞t_t4/%#*t76 NEW * RESTORE NEW **' NEW *t' NEW * RESTORE NEW *' NEW *▙*' NEW *t&! RESTORE !7a LPRINT ▚t LPRINT LLIST ▗t LPRINT ▜t_`aINKEY$LEN INKEY$SIN t__atLEN LEN SIN t]atINKEY$CODE tCODE t/^e]_t4/%#*t09:;t=88>;t< NEW *&$.885a LPRINT ▚t LPRINT `]f LPRINT ▗t`]]``afINKEY$LEN PILEN __aSIN SIN VAL SIN t_`_`atINKEY$CODE /^CODE ▞t_t4/%#*t))' BORDER )0991 BORDER ))' BORDER )t)' BORDER ))*&$.5ta LLIST t/^ LPRINT _a LPRINT `]`taINKEY$LEN tLEN __afLEN ▗tLEN bcbcdtINKEY$CODE _`]]^▖t_t4/%#*t'[A][I][J] NEW )t*t' NEW *t[A] NEW *t' NEW *t&$.5tat/ca LLIST _a LPRINT e]`taPISIN tbbdtLEN ▗tLEN tLEN LEN ▚tINKEY$/ctfg]t^_t4/%#*t'[B][K][L] NEW **[C] NEW *▙' NEW [C] NEW *[B] NEW **[E][F]' NEW *t&$.5ta]^tat_a LLIST t LPRINT LPRINT LPRINT `a▗tLEN tLEN ▚tSIN ttLEN tLEN LEN ▗t/ftCODE t_t4/%!!"' NEW [M][N].8t/ NEW *' NEW *t[G][H]' NEW ** !$.5ta LPRINT LPRINT tat_a▚t LLIST LPRINT LPRINT `a^tLEN tLEN ▜tLEN ▗tLEN tLEN LEN ▗ta STOP tCODE STOP t_t48t5t48t/ NEW *t.8t5ta LLIST LPRINT `]]at_`]]bt LPRINT LLIST `t]t^LEN t/^/]t` READ t``fF LPRINT F LPRINT F LPRINT F LPRINT Fe`29t79t3`tfF LPRINT Ft LPRINT F LLIST _``atg`tat LPRINT F LPRINT Ft LPRINT F LPRINT FFgc`taLEN tef_`tfF LPRINT FF LPRINT FF LPRINT tF LPRINT FF LPRINT tFKQa LPRINT LLIST LPRINT LLIST _1 BORDER ))' BORDER BORDER )' BORDER )*&!t7 NEW 7``f LPRINT LPRINT t LLIST t_``at LPRINT Fat LPRINT t LPRINT t LLIST LPRINT t LPRINT g``aLEN ▜t_`tf LPRINT LPRINT LLIST LPRINT LPRINT LLIST LPRINT tRa LLIST t LPRINT ▗t_)*▛*[A] NEW ' NEW *t' NEW *&$.885 NEW **7`ft LPRINT LLIST ▖t/ct`t LLIST g]tft LPRINT t LPRINT t LLIST _`]SIN t▚t``cfFt LPRINT LLIST t LPRINT LLIST ▗t LLIST LPRINT LPRINT Sa▚t LLIST ▗t_ !#**[B] NEW ' NEW *t' NEW &$.,))*[I][J]7a▗t LLIST `a▚t/]t_]^▖t LLIST ▚t LPRINT t LLIST t_`fLEN LEN ▗tLEN `` LLIST t LLIST ▚t LPRINT ▚t LPRINT LLIST S`]^t/]ta8/%#*t' NEW * NEW (!$.+*t[K][L]7at`]`a▚t_at_`a▙t/]]^▜t/]`aLEN LEN ▗tLEN ``▜t/^▗t LLIST ▚t LLIST /]]Itt4/%#**;t+**&!![M][N]7IttItItIttIItaSIN ttLEN `ItIttt[S]H4/%#*))' BORDER )' BORDER )' BORDER **&$.8t5[P][P]t[P]t MOVE tttttaLEN LEN tSIN t[P][P]t PAPER FLASH t[P]t[P]t[P][T]▝t4/%#**' NEW *' NEW DATA ' NEW *&$.5t[O][Q][O]t BRIGHT MOVE ERASE tttt CIRCLE `LEN LEN ATTR AT LEN `[Q][Q] CIRCLE [Q]t[P][O][S][Q][T]tt4/%!"' NEW ' NEW RESTORE ' !$.5t[R]t TO STEP t INVERSE ERASE tt CIRCLE t INK CIRCLE `LEN LEN TAB VAL$ LEN `[O][R][P] INK CIRCLE [Q]t[Q]ttt48t5tttttt[P] INK t INK ``]t`tRND[O] INK [P][Q]tRNDtt[P]HHtttt[P][O]t[S]tttRND[Q]tt[P] DEF FN [O]tt DEF FN tttt DEF FN DEF FN DEF FN tt[Q]t[P]tRND OUT DEF FN DEF FN t OUT t MOVE t[Q]t BRIGHT t[Q] CAT tttt▝t DEF FN t DEF FN CIRCLE OUT DEF FN DEF FN tt DEF FN DEF FN t[Q]t CIRCLE t[Q] OPEN # CLOSE #t BRIGHT t MOVE ERASE t[P] DEF FN [Q]t MOVE INVERSE t FORMAT t▝t DEF FN DEF FN ▝t OVER t OUT INK t DEF FN PAPER FLASH [P]t[P]t[Q][P] INK t[Q] MERGE VERIFY INVERSE TO STEP ERASE [P] OPEN # CLOSE #[Q][O]t ERASE tt DEF FN DEF FN ▝tt BEEP t[P]t[Q]t[Q]t[P][Q][P][Q]t[P][Q][P]tt[O] MERGE VERIFY [Q]t DEF FN t[S]t[P]tt[Q]t DEF FN t[Q]tt[Q][Q][Q][Q]t[Q][Q][Q] CIRCLE DEF FN DEF FN t CIRCLE DEF FN DEF FN CIRCLE DEF FN [Q]▝[P]t▝[P][S][T]t[S][P]t[Q]t DEF FN CIRCLE t MOVE PAPER FLASH [R] OVER t[Q][P][P][Q][P][Q][Q][Q][P][Q][Q][P][Q]t CIRCLE INK [P]t INK t INK [P] DEF FN [Q]t[Q]t[P] CAT [Q]RND[P]tRND[O]t OPEN # CLOSE #[Q][P][P] INK MOVE ERASE t BEEP t[P][Q][Q][Q] BRIGHT [Q][Q]t[Q][Q][Q][Q]tt INK t[Q]t[P]t[Q]t DEF FN DEF FN [Q]t▝[Q]t[Q] FORMAT [R]t[Q] TO STEP tt MERGE VERIFY [R] BEEP [Q] OVER [Q] BEEP t ERASE tt[Q][R][R]t BEEP [Q] INVERSE [Q] BEEP [Q]t OVER [Q][Q] BEEP PAPER FLASH [Q]t OVER TO STEP BEEP t[Q] PAPER FLASH t[Q]t[Q]t▝[R]t PAPER FLASH [R] PAPER FLASH [R]tttttttttt=tGtOtGtEGBEEBBGBBGBtGAAOAtOAtOAAOAAOAAOAtEtBtAtEBBGBEGBGDtEtBEEBEEBEEBEtBtEBBEBBEBBEBtEBEEBEBEEBtEEBEBEtGtFtLtOtEEGEtGEtGEEGEGtEtGttEEtB&tGBtGBBGBtGBGHtDtTDtGtOtFtGtEEGtEECCEtGEEGEtDDEEDCGtO tG0tE$tFFDDCFBBCEBADDEEDDEEDDEtCABFCBBFFDDG tOtAOAAOtAtO4tGtBtGt=[B]t NEXT > OPEN # RETURN !? RESTORE FLASH RETURN NEW PLOT OIN USR STEP INK 0 IF ! RETURN +|ASN RANDOMIZE STEP MERGE 0 FOR [M] STEP MERGE 0 DATA > AND LN 0 LPRINT $ LET <> STEP INK 0 MERGE x RETURN CLOSE #0 POKE STEP INK FORMAT y INPUT O&VAL 0 INVERSE u THEN TAB USR yO INVERSE ~TAB USR INVERSE #SIN . STEP MERGE FORMAT > THEN LN THEN VAL ERASE SGN |TAB gzCOS LINE | RETURN <> STEP INK FORMAT >= CLEAR PI>=>© FLASH RETURN >=POINT NEW ( NEXT y/O NEW PLOT OPEN # RETURN 7<> STEP 2 OPEN # STEP [C] OPEN # NEXT STEP CONTINUE TAN > COPY 2USR !5 MERGE 6# CLS CODE 2% MERGE !`,"X> COPY 2m▚>2ZCODE 2@ MERGE 2qACS >2ATTR > COPY 2@▜2[I]▗2LEN >2▚>2s▝>2[H]>2USR ▛!"/LEN "^LEN CODE 2 AND 2LN CLOSE #2 LINE CLOSE #27▗>2 RESTORE CLOSE #>2 CLOSE #▝2W>2% MERGE STEP $ MERGE 1IN ]:ATTR o&h[O]~2[B]▖ STEP INVERSE SCREEN$ > RUN FLASH RETURN NEW CHR$ SIN ▝ STEP pAT > OPEN # RETURN > CLS FLASH RETURN NEW LINE u CLEAR STEP s▞ THEN b LINE [O]▝CODE OPEN # RETURN NOT [T] STEP [T] CLOSE #:LN CLOSE #PICHR$ STEP ▝: LINE CLOSE #PICHR$ STEP ▝: RESTORE CLOSE #PI LINE E▛ STEP : MERGE STEP ▗AT >= LINE BORDER ▝2 CLOSE #▝:W INPUT 2WNOT GO TO ▝>2W>PIBIN RUN SIN >PI LINE 4▘!N#F#>EXP CHR$ ▘CODE 2 NEXT ▝=2A▘!VAL$ "G▘NOT :▘" RANDOMIZE ▝:X[B]2X AND 2w:Y[A]2Y AND 2xNOT ▙▝>PIBIN RUN ATN >PIBIN [L]SIN >PI LINE e▘!~ RETURN CHR$ V▘CODE 2A▘NOT e▘#"G▘2w:x AND 2x>PI LINE [Q]▘!P~ RETURN COPY CHR$ x▘!P~#"l▘2l:X RETURN 0CHR$ [Q]▘:k VERIFY :YEXP PAPER [Q]▘LN ERASE [Q]▘>PI LINE :Y RETURN ▖ PAPER EXP ▘:X RETURN P ERASE EXP ▘ STEP CODE !~ RETURN CHR$ AND ▘!Y~#"INT ▘O:k▝2k:[B]2:lO:▚2ly2▚>PI LINE !~ RETURN COPY CHR$ IF ▘CODE 2[R]▘#" INPUT ▘2i2NOT :Y RETURN [Q] PAPER :/LEN PI LINE !j" INPUT ▘2 CONTINUE ▘:X RETURN USR LINE A RETURN CHR$ Q:ATTR RETURN PAPER Q VERIFY 2ATTR >[Q]2XNOT z▝:ATTR AND 2ATTR > 2XNOT z▝ STEP s▞:LEN PI LINE [G]:SIN PI LINE [G]:ATTR RETURN &CHR$ z:/ RETURN [A] LINE [G] AND 2/NOT [G]:/ RETURN >=CHR$ [B]CODE 2[2SIN > COPY 2LEN NOT [G] AND 2/>= LINE IN 2[H] RETURN CHR$ TAN 2 AND ▗! AND ▞" TO ▗CODE 2 PRINT ▗NOT IN :X VERIFY 2XNOT LINE ▜>PI LINE 6▗:X NEW SAVE 2X AND o&^#V:Y NEW SAVE t<_ RETURN GCHR$ ▗:Y NEW LINE ▗ RETURN GCHR$ ▗:X AND 2XNOT ▚▜>=2▗CHR$ ▚▜2 AND >(2 CLOSE #▝:m▚PICHR$ (▗x2ZCODE 2 AND ▗ STEP IN ▛NOT ▚▜>PI LINE ^▗!N>EXP CHR$ P▗CODE 27▗2USR NOT ▜:X▝2X#"=▗NOT ▙▝:[B]▖PI LINE LN ▗:X RETURN P PAPER LN ▗: AND ▗PICHR$ LN ▗!CY:Y NEW SAVE t<o~ RETURN OCHR$ LN ▗:Y NEW LINE [H]▗,~ RETURN OCHR$ LN ▗1IN ] STEP . CLS > COPY 27▗:X AND 2X! GO TO ▞"=▗>2ZNOT ▙▝CODE 2(>[Q]2:z2 PAUSE >PI LINE [J]!~ RETURN CHR$ FLASH ▗CODE 2 AND ▗NOT [J]2▙#" TO ▗ RETURN [G] ERASE 9> COPY 2LEN :X NEW CHR$ ▟>PICHR$ ▟:X VERIFY o&^#V:Y NEW SAVE t<_ RETURN GCHR$ +:Y NEW LINE ▟ RETURN G LINE ▟! INVERSE ▞" TO ▗> COPY 2 PRINT ▗NOT LET :X NEW CHR$ ▟ STEP SIN {PICHR$ ▘ STEP ^SIN {PICHR$ ▘:X AND o&^#V:Y NEW SAVE t<_ RETURN GCHR$ ▘:Y NEW LINE ▟ RETURN G LINE ▟CODE 2 AND ▗: PAUSE WNOT X[B]2XNOT LET :X NEW CHR$ LET :X AND o&^#V:Y NEW SAVE t<_ RETURN GCHR$ LET :Y NEW LINE ERASE RETURN GCHR$ LET STEP ^SIN CODE SQR CHR$ LET STEP SIN {PICHR$ LET :X AND 2X: PAUSE WNOT AND ▗PICHR$ AND ▗! AND ▞" TO ▗CODE 2 PRINT ▗ THEN B LINE NOT ▚:Y NEW CHR$ l▚:X NEW SAVE o& RANDOMIZE LLIST :Yt AND _o~ RETURN GCHR$ ▚▜ LLIST {o~ RETURN GCHR$ ▚▜ LLIST {o~ RETURN GCHR$ ▚▜ LLIST {o~ RETURN GCHR$ ▚▜:X NEW LINE l▚ LLIST {o~ RETURN GCHR$ ▚▜>PICHR$ ~▚/2m▚>2ZNOT ▚▜:Y AND RETURN INT CHR$ RND▚:ATTR RETURN CHR$ [K]▚:% MERGE PI LINE fASN NOT FN ▚<2ATTR CODE 2YNOT z▝2Y> INPUT 2POINT ▚CHR$ ▚▜:Z< RETURN CHR$ ABS ▚>2ZNOT ▚▜ THEN J LINE x▜:Y NEW CHR$ ▜:X NEW SAVE o& RANDOMIZE LLIST :YtOo~ RETURN GCHR$ ▚▜ LLIST yo~ RETURN GCHR$ ▚▜ LLIST yo~ RETURN GCHR$ ▚▜ LLIST yo~ RETURN GCHR$ ▚▜:X NEW LINE ▜ LLIST yo~ RETURN GCHR$ ▚▜:m▚PI LINE 2▜/2m▚>2ZNOT ▚▜:Y VERIFY RETURN RETURN CHR$ Z▜:ATTR RETURN CHR$ N▜:% MERGE PI LINE fASN NOT ]▜=2ATTR >LN 2YNOT z▝2Y> INPUT 2^▜CHR$ ▚▜:Z< RETURN CHR$ r▜>2ZNOT ▚▜:m▚PI> LINE ▜>2Z1IN ]NOT ▙▝>2(>FN 2: THEN B LINE ▖>2Z:Y NEW CHR$ ▖:Y RETURN LN CHR$ PEEK ▜:ATTR <2ATTR CODE 2YNOT z▝:X NEW SAVE o& RANDOMIZE LLIST :Yt AND _o~ RETURN OCHR$ ▖ LLIST {o~ RETURN OCHR$ ▖ LLIST {o~ RETURN OCHR$ ▖:X NEW LINE ▖ LLIST {o~ RETURN OCHR$ ▖:Y AND 2Y THEN J LINE ▖>2Z:Y NEW CHR$ {▖:YPICHR$ 5▖:ATTR =2ATTR >LN 2YNOT z▝:X NEW SAVE o& RANDOMIZE LLIST :Yt=_o~ RETURN OCHR$ ▖ LLIST {o~ RETURN OCHR$ ▖ LLIST {o~ RETURN OCHR$ ▖:X NEW LINE {▖ LLIST {o~ RETURN OCHR$ ▖:Y VERIFY 2Y THEN b LINE ▞:X NEW CHR$ ▞>PI LINE VERIFY ▖:X RETURN pCHR$ VERIFY ▖ VERIFY 2X> COPY 2 AND ▗2USR ! AND ▞" TO ▗CODE 2 PRINT ▗:Z RETURN LINE LINE ▖> COPY 2m▚>2ZNOT m▞CODE 2m▚>2ZNOT m▞:X VERIFY o&^#V:Y NEW SAVE t_ RETURN OCHR$ m▞ RETURN OCHR$ m▞ RETURN OCHR$ m▞:Y NEW LINE ▞ RETURN OCHR$ m▞:X VERIFY 2XNOT m▞:X NEW CHR$ e▞:X AND o&^#V:Y NEW SAVE t_ RETURN OCHR$ m▞ RETURN OCHR$ m▞ RETURN OCHR$ m▞:Y NEW LINE e▞ RETURN OCHR$ m▞:X AND 2X1IN ]NOT ▙▝:7PICHR$ ~▞ FLASH W<> RETURN CHR$ [O]▞!STR$ ▞ LOAD { FLASH RETURN INKEY$CHR$ [I]▞z▝W# THEN ! LET <>!ATN ▞O~# FLASH RETURN INKEY$CHR$ LEN ▞z▝W# THEN ! LIST <> OUT OUT CLEAR CLS ©ttt COPY COPY RETURN t DRAW DRAW ▚t COPY t RETURN RETURN DRAW DRAW IF IF DRAW CLEAR RETURN COPY COPY COPY COPY DRAW CLEAR RETURN COPY COPY CLEAR RETURN COPY COPY RETURN COPY COPY COPY ▗t IF DRAW CLEAR RETURN COPY DRAW CLEAR RETURN COPY CLEAR RETURN COPY RETURN COPY t COPY RETURN RETURN DRAW SAVE SAVE DRAW RETURN RETURN t COPY COPY CLEAR DRAW DRAW DRAW CLS CLS IF IF IF IF IF IF CLEAR [U]RNDINKEY$RNDINKEY$ DRAW DRAW DRAW DRAW t DRAW CLEAR COPY RETURN COPY t COPY &&%% COPY ''(( COPY ))**++,, COPY ,,++**)) COPY COPY COPY COPY BEEP Z CLOSE #Z MOVE Z STEP pAT 1IN ]:/[ATN ( STEP FOR ]NOT RUN < CLS v NEXT CLS STEP + CLOSE #!i@ STEP RETURN POINT .. TIME OUT .. COPY NOT [F]▛ STEP pAT 1IN ]:/[ATN ( STEP INVERSE ]NOT RUN < CLS v NEXT CLS STEP + CLOSE #!H STEP RETURN POINT .. GAME OVER .. COPY STEP s▞ THEN b LINE AT ▛ STEP s▞ THEN bCHR$ TAN ▛NOT u CLEAR >PI LINE y▛_:6 RETURN <>>={=2USR ▛▜o&?▛^#V>A! FOR w,w,ww,w,w<>!@ OPEN # RETURN A RETURN # POKE <>dCODE OPEN # RETURN OR GO SUB _G DRAW STR$ > SAVE OPEN # RETURN OR DRAW STR$ CONTINUE <>XXXXX#XCXcXX[T]XNOT X READ XY#YCYcYY[T]YNOT Y READ YZ#ZCZcZcZcZcZcZSQR tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ©tJ`tUSR t[A]SCREEN$ BIN OVER SAVE ▟,▟F▟`▟z▟[E]▟VAL$ ▟>=▟ STOP ▟ DRAW ▟▙0▙J▙d▙~▙[I]▙SIN ▙ TO ▙ NEW ▙4Nh▘[M]ACS FORMAT REM [A][A]8[A]R[A]l[A]▚[A][Q][A]INT [A] CLOSE #[A] INPUT [A][B]"[B]<[B]V[B]p[B][B][U][B]PEEK [B] CIRCLE [B] PAUSE [B][C]&[C]@[C]Z[C]▝t[C]▙[C]FN [C]CHR$ [C] BRIGHT [C] PLOT [C][D]*[D]D[D]^[D]x[D][C][D]AT [D] AND [D] LPRINT [D] IF [D][E].[E]H[E]b[E]|[E][G][E]VAL [E] LINE [E] DATA [E] RETURN [E][F]2[F]L[F]f[F][F][K][F]TAN [F] DEF FN [F] CONTINUE [F][G][G]6[G]P[G]j[G]▗[G][O][G]LN [G] ERASE [G] GO TO [G][H] [H]:[H]T[H]n[H]▖[H][S][H]SGN [H] VERIFY [H] LIST [H][I]$[I]>[I]X[I]r[I][I]INKEY$[I]USR [I] PAPER [I] POKE [I][J]/[J]v[J][A][J]SCREEN$ [J]BIN [J] OVER [J] SAVE [J][K],[K]F[K]`[K]z[K][E][K]VAL$ [K]>=[K] STOP [K] DRAW [K][L]0[L]J[L]d[L]~[L][I][L]SIN [L] TO [L] NEW [L][M][M]4[M]N[M]h[M]▘[M]tACS [M]USR ttt@ABCDEFG#@#A#B#C#D#E#F#GC@CACBCtDCECFCGc@cAcBcCcDcEcFcG@ABCDEFG[T]@[T]A[T]B[T]C[T]D[T]E[T]F[T]GNOT @NOT ANOT BNOT CNOT DNOT ENOT FNOT G READ @ READ A READ B READ C READ D READ E READ F READ GHIJKLMNO#H#I#J#K#L#M#N#OCHCICJCKCLCMCNCOcHcIcJcKcLcMcNcOHIJKLMNO[T]H[T]I[T]J[T]K[T]L[T]M[T]N[T]ONOT HNOT INOT JNOT KNOT LNOT MNOT NNOT O READ H READ I READ J READ K READ L READ M READ N READ OPQRSTUVW#P#Q#R#S#T#U#V#WCPCQCRCSCTCUCVCWcPcQcRcScTcUcVcW▘P▘Q▘R▘S▘T▘U▘V▘W[S]P[S]Q[S]R[S]S[S]T[S]U[S]V[S]WCHR$ PCHR$ QCHR$ RCHR$ SCHR$ TCHR$ UCHR$ VCHR$ W STOP P STOP Q STOP R STOP S STOP T STOP U STOP V STOP WATTR INKEY$ INPUT INKEY$aPI POKE PIINKEY$FN FLASH FN 4POINT RNDPOINT PEEK [C]IN RUSR STR$ ERASE STR$ [C]CHR$ RNOT BIN ERASE BIN [C] OR R AND <= ERASE <=[C]>= ERASE PEEK SQR ERASE SQR [C]SGN RABS [C]EXP RINT ERASE <> LINE R LINE [C] LINE ERASE LINE OPEN # OPEN # THEN R THEN [C] THEN ERASE THEN TO R TO [C] TO ERASE TO STEP R STEP [C] STEP ERASE STEP DEF FN R DEF FN [C] DEF FN ERASE DEF FN CAT R CAT [C] CAT R<>[C]<> OPEN # OPEN # ERASE CAT FORMAT R FORMAT [C] FORMAT OPEN # OPEN # ERASE FORMAT MOVE R MOVE [C] MOVE ERASE MOVE ERASE R ERASE [C] ERASE ttt[K]t> GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]=CHR$ CLOSE #[S]<>> GO SUB [Q] GO SUB [Q] GO SUB [Q]=CHR$ BORDER [S]<>> GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR FOR =CHR$ SAVE [S]<>> GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR FOR =CHR$ [T]<>:WPI LINE `[T]:Xo& FORMAT [M]) RANDOMIZE " POKE RND:Y NEW SAVE tO GO SUB CN[T] GO SUB C RETURN RNDLN [Q]> LLIST GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]=CHR$ L[T]1IN ]:[PI LINE ▙[T]:/o& FORMAT [M])^#V:] NEW SAVE tO FOR "8[R]:[R] STEP ERASE [S]NOT [H][T]SGN yVAL CHR$ [B][T]:bPI LINE OR [T]:co& FORMAT [M])^#V:d NEW SAVE tO FOR "INT [R]SGN [R] STEP ERASE [S]NOT DEF FN [T]SGN yVAL CHR$ >=[T]:iPI LINE RANDOMIZE [T]:jo& FORMAT [M])^#V:k NEW SAVE tO FOR "<[S]>[S] STEP RESTORE [S]:vPI LINE $[U]:wo& FORMAT [M])^#V:x NEW SAVE tO FOR "n[S]p[S] STEP RESTORE [S]:PI LINE O[U]:▗o& FORMAT [M])^#V: NEW SAVE tO FOR "[Q][S][S][S] STEP RESTORE [S]:WPI LINE k[U]:Y2qINKEY$:X2[L]INKEY$:Z2INKEY$ STEP lINKEY$:[PI LINE ▜[U]:]2qINKEY$:/2[L]INKEY$:^2INKEY$ STEP lINKEY$:bPI LINE [T][U]:d2qINKEY$:c2[L]INKEY$:e2INKEY$ STEP lINKEY$:iPI LINE IN [U]:k2lFN :j2[G]FN :l2FN STEP gFN :vPI LINE FLASH [U]:x2lFN :w2[G]FN :y2FN STEP gFN :PI LINE RUN [U]:2lFN :▗2[G]FN :▚2FN STEP gFN CLS v NEXT STEP <= IF xLEN CHR$ RND1[U][O]![A]>( MOVE GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] MOVE GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] MOVE GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] MOVE GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]=CHR$ STEP <= IF :WPI LINE INKEY$1!LN [Q]> FOR LLIST FOR GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]=CHR$ CLS RND1IN ]:[PI LINE "INKEY$ GO SUB [8[R]!:[R] STEP PLOT [S]:bPI LINE 3INKEY$ GO SUB [INT [R]!SGN [R] STEP PLOT [S]:iPI LINE DINKEY$ GO SUB [<[S]!>[S] STEP [T]:vPI LINE UINKEY$ GO SUB [n[S]!p[S] STEP [T]:PI LINE fINKEY$ GO SUB [[Q][S]![S][S] STEP [T] STEP <= IF NOT ASN ▝ GO SUB sFN INKEY$>O NEW o&$[Q]^#V INVERSE ! INVERSE y NEW SAVE t2[U]INKEY$.&)4[Q]^#V.&) FORMAT [M]<> GO SUB S<=INKEY$"INT INKEY$y2PEEK INKEY$> 1 LLIST GO SUB sINT INKEY$1 MOVE STR$ ~[T]w#~[S]w#~[R]w MOVE ~SIN w+~COS w+~VAL w GO SUB s<=INKEY$=CHR$ LN INKEY$NOT PIINKEY$ GO SUB SPI" CLEAR INKEY$y2PI> 1 LLIST GO SUB s CLEAR INKEY$1 MOVE STR$ ; COPY 7 THEN THEN THEN THEN THEN THEN THEN THEN ~[T]w#~[S]w#~[R]w#~[Q]w MOVE STR$ ; THEN ; THEN THEN THEN THEN ; THEN THEN THEN ~VAL w+~LEN w+~SIN w+~COS w GO SUB sPI=CHR$ CLS INKEY$NOT PIINKEY$ GO SUB S}PI"pPIy2▝tPI> 1 LLIST GO SUB spPI1 MOVE STR$ ; COPY 7 THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN ~[T]w#~[S]w#~[R]w#~[Q]w MOVE STR$ ; THEN ; THEN THEN THEN THEN ; THEN THEN THEN THEN ; THEN THEN THEN THEN ; THEN THEN THEN ~VAL w+~LEN w+~SIN w+~COS w GO SUB s}PI=CHR$ nPINOT PIINKEY$ GO SUB SFN "FN y2FN > 1 LLIST GO SUB sFN 1 MOVE STR$ ; COPY 7 THEN THEN THEN THEN THEN THEN THEN THEN ~[Q]w#~[T]w#~[S]w#~[R]w MOVE STR$ ; THEN ! THEN THEN THEN THEN ! THEN THEN THEN ~LEN w+~SIN w+~COS w+~VAL w GO SUB sFN =CHR$ FN NOT PIINKEY$ GO SUB s[T]FN >O NEW o&,[Q]^#V INVERSE ! INVERSE y NEW SAVE t2[P]FN .&)^[Q]^#V.&) FORMAT [M]<> GO SUB SCHR$ FN "ASN FN y2EXP FN >1 LLIST GO SUB sASN FN 1 MOVE STR$ ~[T]LEN w#~[S]VAL w GO SUB sCHR$ FN =CHR$ COS FN NOT [S]FN GO SUB S LET FN " NEW FN >1 LLIST GO SUB s NEW FN 1 MOVE COPY 7 THEN THEN THEN THEN THEN THEN ~[T]w#~[S]w#~[Q]w MOVE THEN ; THEN THEN THEN ; THEN THEN ~VAL w+~SIN w+~COS w GO SUB s LET FN =CHR$ DATA FN NOT [S]FN GO SUB SJPOINT "?POINT >1 LLIST GO SUB s?POINT 1 MOVE COPY 7 THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN ~[T]w#~[S]w#~[Q]w MOVE THEN ; THEN THEN THEN ; THEN THEN THEN ; THEN THEN THEN ; THEN THEN ~VAL w+~SIN w+~COS w GO SUB sJPOINT =CHR$ =POINT NOT [S]FN GO SUB SSQR POINT "VAL POINT >1 LLIST GO SUB sVAL POINT 1 MOVE COPY 7 THEN THEN THEN THEN THEN THEN ~[Q]w#~[T]w#~[S]w MOVE THEN " THEN THEN THEN " THEN THEN ~SIN w+~COS w+~VAL w GO SUB sSQR POINT =CHR$ VAL$ POINT NOT [S]FN MOVE MERGE RETURN COPY >= RESTORE RETURN LINE LSCREEN$ o&)t< MOVE MERGE FOR w$w$w$w$w$w$$w$} AND o8| VERIFY g$w$$w$$w$$w LLIST ,NOT RETURN POINT @A@▝@STR$ @HAH▝HSTR$ HPAP^'^4^A^N^[^h^u^▘^^.c;cHcUcbcoc|c▞c[G]c[T]cBhOh/hihvhh[A]h[N]hSCREEN$ hATN hVmcmpm}mm[H]m[U]mLEN mPEEK m THEN mjrwr▗r[B]r[O]rATTR rLN r OR r ERASE r OUT r~w▛w[I]wRNDwSIN wIN w TO w INK w NEW w NEXT w GO SUB smAT !>1Z RESTORE t=CHR$ DIM SCREEN$ !QSCREEN$ "ATTR .&)eSCREEN$ ^#V INVERSE ! INVERSE INVERSE "/AT LLIST GO SUB sATTR ":ATTR INVERSE n INVERSE #&)tPI INVERSE RANDOMIZE !,,":ATTR MOVE s,r$ MOVE r-s$ MOVE s,r$ MOVE r-s$ MOVE s,r$ MOVE r-s$ MOVE s,r$ MOVE r-s$} AND o8| VERIFY g MOVE s,r$ MOVE r-s$ MOVE s,r$ MOVE r-s$ MOVE s,r$ MOVE r-s$ MOVE s,r$ MOVE r-su INVERSE CHR$ ATTR 1[U][O][A]>P LLIST GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] LLIST GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]=CHR$ TAB ATTR 1ACS ] STEP CHR$ SIN STEP [K]TAN STEP `LEN STEP zCODE ! DRAW W INVERSE !"NAT ":ATTR INVERSE n INVERSE #&))[C]| RANDOMIZE !,,"NAT MOVE s,r MOVE s,r BRIGHT u INVERSE CHR$ 3AT 1<>> CLEAR COPY GO SUB yCODE CLEAR IN GO SUB y2CODE CLS 2INKEY$ CLS <>> INPUT 2AT INVERSE ![>PIBIN CODE >PIBIN LET TAB INVERSE !b>PIBIN CODE >PIBIN LET TAB INVERSE !i>PIBIN wTAB >PIBIN BRIGHT AT INVERSE !v>PIBIN wTAB >PIBIN BRIGHT AT INVERSE !>PIBIN wTAB >PIBIN BRIGHT AT <>2TAB 2)TAB 2_TAB 2kTAB STEP [G]VAL$ INVERSE ~ RETURN LINE 5TAB INVERSE n INVERSE f INVERSE N INVERSE q~ RETURN COPY CHR$ TAB CODE INVERSE wo& INVERSE N INVERSE F~ INVERSE w INVERSE ~ INVERSE PEEK LINE +TAB INVERSE ▚ INVERSE w<>> INVERSE wCODE INVERSE w<> INVERSE n INVERSE f INVERSE N INVERSE q~ RETURN COPY CHR$ ZTAB CODE INVERSE wo& INVERSE N INVERSE F~ INVERSE w INVERSE ~ INVERSE PEEK LINE mTAB INVERSE [G] INVERSE w<>> INVERSE wCODE INVERSE w<> INVERSE ~PICHR$ FORMAT TAB STEP [G]VAL$ :X INVERSE PEEK CIRCLE INVERSE ~ VERIFY :YEXP CIRCLE LN FORMAT > IF INVERSE w<> INVERSE ~ AND o&^#V INVERSE ~ NEW SAVE t_ RETURN GUSR STEP [G]VAL$ INVERSE ~ AND INVERSE w RETURN USR CIRCLE CODE INVERSE w<> INVERSE ~ RETURN COPY LINE [O]TAB < INVERSE w NEW o& LOAD TAB ~ INVERSE ▚ INVERSE wNOT [G]VAL$ RETURN STEP +VAL$ INVERSE ~PICHR$ VAL$ :AT AND INVERSE w INVERSE ~ VERIFY INVERSE w INVERSE PEEK USR > INVERSE w AND INVERSE w<> INVERSE ~ AND INVERSE w INVERSE PEEK USR CODE INVERSE w<>: AND PIUSR : CLOSE #▝ RETURN USR :7▗PICHR$ iVAL$ :USR PI LINE iVAL$ INVERSE ~ AND O AND G INVERSE ~ VERIFY _ AND -W:Y AND EXP CIRCLE LN FORMAT :XSQR CIRCLE INT FORMAT NOT CODE INVERSE ~ AND O AND G INVERSE ~ VERIFY :Y AND EXP CIRCLE LN FORMAT :XSQR CIRCLE INT FORMAT STEP 9 CLS >(2 CLOSE #▝NOT IN ▛: AND PIUSR : CLOSE #▝ RETURN USR :7▗PICHR$ VERIFY VAL$ :USR PI LINE VERIFY VAL$ INVERSE ~ AND O AND G INVERSE ~ AND _ AND W:Y AND EXP CIRCLE LN FORMAT :X AND SQR CIRCLE INT FORMAT NOT CODE INVERSE ~ AND O AND G INVERSE ~ AND _ AND W:Y AND EXP CIRCLE LN FORMAT :X AND SQR CIRCLE INT FORMAT STEP 9 CLS >(2 CLOSE #▝NOT IN ▛:m▚PICHR$ CODE x2Z2 AND >2▗NOT 9 CLS STEP +VAL$ INVERSE ~ RETURN PAPER RCODE :AT PICHR$ @CODE INVERSE ~ RETURN LINE <CODE x INVERSE w INVERSE ~ AND INVERSE w INVERSE PEEK USR > INVERSE w<>:AT PICHR$ hCODE INVERSE ~ RETURN LINE dCODE x INVERSE w INVERSE ~ VERIFY INVERSE w INVERSE PEEK USR > INVERSE w<>CODE 2[Q]AT 2[A]AT 2[G]AT 2INKEY$AT 2VAL AT 2USR AT 2 FORMAT AT 2ACS AT 2 AND AT 2 VERIFY AT ![N] INK STEP CLEAR TAN CODE LN LINE DATA CODE x2[~2/#~2]#~ RETURN ERASE ERASE CODE 2a>2^#~2_#~2`> COPY 2[G]AT NOT DATA CODE 2^#~2_#~2`> COPY 2[A]AT !v PAPER STEP CLEAR TAN CODE LN LINE /VAL x2b~2c#~2d#~ RETURN ERASE VAL 2h>2e#~2f#~2g> COPY 2INKEY$AT NOT /VAL 2e#~2f#~2g> COPY 2[Q]AT ! POKE PAPER STEP CLEAR TAN CODE LN LINE [F]VAL x2i~2j#~2k#~2mPI LINE ▟VAL #~2n#~2o#~2pCODE 2q#^#V GO SUB Sr#N#F GO SUB C▝t#~2ACS AT RETURN CHR$ ▚VAL 2lNOT [F]VAL 2lNOT [F]VAL >$2l2VAL AT !o BRIGHT STEP CLEAR TAN CODE LN LINE CLS VAL x2v~2w#~2x#~2zPI LINE NEXT VAL #~2{#~2|#~2}CODE 2~#^#V GO SUB S©#N#F GO SUB C▝#~2 AND AT RETURN CHR$ GO TO VAL 2yNOT CLS VAL 2yNOT CLS VAL >$2y2USR AT ![G] BRIGHT STEP CLEAR TAN CODE LN >=x2~2▗#~2#~2▜PI LINE SLEN #~2▖#~2▞#~2CODE 2▛#^#V GO SUB S#N#F GO SUB C▙#~2 VERIFY AT RETURN CHR$ NLEN 2▚<>2▚<>>$2▚2 FORMAT AT <>▗tCODE 2[2b22A▘2 NEXT ▝2 CONTINUE ▘2f▘2SIN 25▘2 SAVE ATN 2[R]▘> COPY PI LINE BEEP LEN :ATTR RETURN 9 LINE CODE LEN RETURN * LINE FOR LEN RETURN & LINE STR$ LEN RETURN ,USR 2f▘2i!@[G]"j>2l<>25▘2[!0^"/>:^LEN 2SIN >2[![A]L"/CODE 2^<>> COPY 2SIN 2[!USR L"/>2^<>2[R]▘2i2>@2j2▗>[A]2k AND 2>2l=2▚!Y"INT ▘<>>PI>=2LEN :/ VERIFY O:XEXP USR :] VERIFY :YEXP CIRCLE LN FORMAT :ATTR RETURN CHR$ JSIN :/ RETURN [I] LINE WSIN :X VERIFY 2X AND 2/CODE 2LEN COPY <>:;▘PI>=:j VERIFY O:XEXP USR :k VERIFY O AND G:YEXP CIRCLE LN FORMAT COPY :[M]SIN PI LINE [C]SIN :Y AND 2Y<>:Y VERIFY 2Y<>>PI LINE LEN SIN :k AND 2k RETURN USR CODE 2[M]SIN <>:k VERIFY 2k RETURN USR > COPY 2[M]SIN <>CODE 2;▘2i!,LN STEP CLEAR TAN CODE LN >=x2i2;▘~2j#~2k#~2l#~2SCREEN$ SIN #~2INT SIN #~2[M]SIN <>:y RETURN CHR$ COS >2yNOT COS RETURN CHR$ COS >2y! NEXT ▞N>EXP CHR$ ?COS >PI LINE ;COS >PI LINE /COS CODE 2v2 GO SUB ▝<>!-N> COPY 2"COS NOT ?COS ! NEXT ▞N#"COS :w▝2w:COS PIUSR :x VERIFY :YEXP CIRCLE LN FORMAT :w VERIFY :XEXP CIRCLE LN FORMAT STEP ! CLS :y RETURN ! LINE LINE COS > COPY 2COS !6:y RETURN LINE FOR COS RETURN LINE TAN RETURN LINE TAN RETURN LINE 9TAN RETURN LINE COS COS RETURN LINE COS COS :@ MERGE AND 2@ MERGE >2y<>:@ MERGE AND 2@ MERGE >2y:% MERGE =2% MERGE NOT $ MERGE :]LEN PI>=: AND ▗PIUSR 2 GO SUB ▝!u" RANDOMIZE ▝=2 NEXT ▝CODE 2m▚>2Z<>!POINT P INK STEP STAN >2/LEN > 2y:@ MERGE AND 22@ MERGE <>!ATTR P INK STEP STAN >2]LEN > 2y:@ MERGE AND 22@ MERGE <>!TAB P INK STEP STAN >2^LEN > 2y:@ MERGE AND 22@ MERGE <>!CODE P INK STEP STAN >2_LEN > 2y:@ MERGE AND 22@ MERGE <> GO SUB s[H]TAN o&)^[Q]^#V FOR RANDOMIZE INK > MOVE STR$ ~[T]LEN w,~[S]VAL w$ MOVE STR$ ~[S]VAL w-~[T]LEN w$| NEW CHR$ [B]TAN } AND o PAPER [B]TAN | VERIFY g=CHR$ gTAN 1<>CODE 2COS 2"COS 2v2 GO SUB ▝!<LN STEP CLEAR TAN CODE LN >=~PIUSR "COS #x2 GO SUB ▝2v~2w#~2x#~2y! NEXT ▞- RETURN CHR$ INVERSE TAN !"COS "<COS GO SUB S0COS <>!=LN 6~# RETURN COPY >= RETURN RETURN CHR$ GO SUB TAN #6NOT GO SUB TAN :ATTR COPY O~#EXP >=~# RETURN RETURN LINE ASN RETURN COPY CHR$ ASN <>| AND t|t| AND |USR AND RETURN | AND < AND | AND t RETURN t RETURN AND USR DRAW AND || AND USR DRAW AND AND | RETURN AND t| AND AND | AND AND || AND AND ~ AND |1IN ] STEP pAT STEP + CLOSE #!@ STEP RETURN POINT LEVEL COMPLETE: COPY !▗@ STEP RETURN POINT BONUS FOR TIME REMAINING. COPY :LN CLOSE #PICHR$ INT ASN : LINE CLOSE #PICHR$ INT ASN : RESTORE CLOSE #PI LINE STEP ASN STEP CODE CLOSE #:@ MERGE <2@ MERGE STEP : MERGE CLS v NEXT NOT RNDASN !H STEP RETURN POINT 50t POINTS BONUS. COPY !▖ RESTORE :@ MERGE <2@ MERGE STEP : MERGE LLIST +}TAN CHR$ REM ASN :USR ▛ RETURN LINE BACS o<2USR ▛&)?▛^#V FOR 6F,6F,6F6F,6G,6F!▗H STEP RETURN POINT EXTRA LIFE AWARDED. COPY !P STEP RETURN POINT PRESS FIRE TO CONTINUE. COPY STEP s▞ THEN b LINE `ACS STEP s▞ THEN bCHR$ hACS >< RETURN LINE <=ACS 2qACS o&)tPIACS ~2Y#~2ATTR #~2@▜#~2▚#~2 RESTORE CLOSE ##~2 LINE CLOSE ##~2LN CLOSE ##~2s▝NOT r▝ COPY INKEY$) COPY INKEY$( COPY 1 STEP 2 OPEN #!@ STEP RETURN POINT CONGRATULATIONS ! COPY ![S]@ STEP RETURN POINT THE LILLI-PUNIES HAVE RELEASED COPY !H STEP RETURN POINT REDDY AND HAVE PROGRAMED YOUR COPY !bH STEP RETURN POINT ROCKET TO GET YOU HOME SAFELY. COPY ! STOP H STEP RETURN POINT WELL DONE .t COPY !▘P STEP RETURN POINT SEE YA NEXT TIME ! COPY ! COPY COPY +}TAN CHR$ ▗ATN STEP s▞ THEN b LINE ATN :6 RETURN <>CHR$ u CLEAR STEP 2 OPEN #!H STEP RETURN POINT NOW TRY WITHOUT CHEATING! COPY STEP s▞ THEN bCHR$ ABS ATN STEP s▞ THEN b LINE OR ATN NOT u CLEAR !N#F#>EXP CHR$ RESTORE ATN CODE 2 SAVE ATN 25▘<>" MOVE ATN :/▝2/:][A]2]<>>PICHR$ FORMAT ATN :_LEN PI LINE LN :X RETURN d FORMAT :Y RETURN xUSR 2 SAVE ATN !TAN " MOVE ATN <>:X RETURN d FORMAT :Y RETURN x FORMAT AND 2Y<>P▘[G] RETURN @[I]FN P COPY "SCREEN$ RETURN b RETURN "* RETURN [C]Z RETURN b: RETURN & RETURN P[A] RETURN [Q][S] RETURN [A]& RETURN pJ RETURN Px RETURN pVAL$ RETURN &[A]LN RETURN /[A]< RETURN [Q] RETURN $0[Q] RETURN 0 RETURN RETURN P RETURN 0( RETURN pp RETURN %P RETURN [Q] RETURN `0 RETURN `@ RETURN ` RETURN 'BAT RETURN [S] RETURN BFN RETURN 2 RETURN 2VAL RETURN *2[Q] RETURN PX RETURN )[Q]x RETURN b RETURN [Q][G] RETURN !P4 RETURN P& RETURN ▚VAL$ ! RETURN (@ RETURN 22" RETURN 4P[G] RETURN 6BH RETURN #@▙ RETURN "p RETURN ,R` RETURN 0[K]z RETURN 9@@ RETURN :[Q]: RETURN ;[Q][C] RETURN 8[Q]X RETURN .PSCREEN$ RETURN - RETURN 7[Q]p RETURN 3[A]▖ RETURN 1PSCREEN$ RETURN +[Q]( COPY COPY LOAD COPY t COPY <= COPY COPY COPY 8to COPY POKE DRAW ©9 RETURN COPY RETURN COPY COPY 8 COPY COPY 8 COPY COPY t COPY COPY | RETURN COPY ▘ DRAW ©1 DRAW ©A DRAW ©A LIST tUSR SCREEN$ [Q]? COPY SAVE H▘$? COPY SAVE USR SCREEN$ [Q] LIST t SAVE ?<= LIST 8USR LPRINT RETURN ` LPRINT RETURN USR LIST RETURN t LPRINT | LPRINT LPRINT | LPRINT LPRINT |t COPY LOAD COPY t COPY <= COPY COPY COPY 8 COPY COPY t COPY COPY 8 COPY <= COPY COPY <= COPY COPY <= COPY COPY COPY 8 COPY COPY 8 COPY COPY t COPY COPY | RETURN COPY ▘ DRAW ©1 DRAW ©A DRAW ©A LIST tUSR FN ? LET SAVE H▘$? BORDER SAVE USR [S][Q] LIST t SAVE ?<= LIST 8USR LPRINT RETURN ` LPRINT RETURN USR LIST RETURN t LPRINT | LPRINT LPRINT | LPRINT LPRINT |t COPY USR COPY t COPY ?? RETURN POKE USR DRAW SCREEN$ SAVE t LIST COPY SAVE LIST COPY CONTINUE LIST >= LIST REM FN LIST +H LIST TAB SAVE LIST LIST COPY LPRINT LIST t RETURN IN USR DRAW ? OUT RETURN 0@ LIST {USR LPRINT {USR USR ?COS USR © AND USR COPY LPRINT USR COPY LPRINT COPY DRAW SAVE COPY LIST LIST IN USR LPRINT VAL @USR LEN [I]USR ;YUSR [I]@ LPRINT IN 2 LIST COPY LPRINT COPY tt COPY tt COPY USR COPY t COPY ?? RETURN POKE USR DRAW SCREEN$ SAVE t LIST COPY SAVE LIST COPY CONTINUE LIST >= LIST REM FN LIST +H LIST TAB SAVE LIST LIST COPY LPRINT LIST t DRAW ? OUT RETURN 0@ LIST {USR LPRINT {USR USR ?COS USR © AND USR COPY LPRINT USR COPY LPRINT COPY DRAW LIST COPY USR LPRINT COPY VAL USR COPY [I]USR COPY XUSR COPY [I] LPRINT COPY 0 LIST COPY LPRINT COPY tt COPY tt COPY COPY t DRAW COPY DRAW SAVE © OPEN # LIST ?FN LPRINT tUSR COPY LPRINT USR COPY LPRINT USR USR USR BEEP `USR CLOSE #`USR ASN ` LPRINT x LPRINT LIST COPY LPRINT SAVE t DRAW ? CLS SAVE © SAVE OVER SAVE OVER 0 DRAW STEP LN RETURN cLN COPY LN COPY x8 COPY ? COPY USR [Q] COPY LPRINT VAL COPY USR [I] COPY USR X COPY USR [I] COPY LPRINT 0 COPY LIST LPRINT COPY COPY t DRAW COPY DRAW SAVE © OPEN # LIST ?FN LPRINT tUSR COPY LPRINT USR COPY LPRINT USR USR USR BEEP `USR CLOSE #`USR ASN ` LPRINT x LPRINT LIST COPY LPRINT SAVE t SAVE © CLEAR DRAW ? CLS SAVE © SAVE OVER SAVE OVER 0 DRAW STEP LN RETURN cLN COPY LN COPY x8 COPY ? COPY USR CLEAR LIST [Q] CIRCLE LPRINT VAL ▟@ [I] BRIGHT [K]X SAVE [I] CLEAR L0 COPY VAL LPRINT DRAW ? COPY LIST MERGE USR LPRINT COPY CIRCLE + COPY DATA tW COPY ERASE to COPY REM t OUT COPY PRINT tCODE COPY RANDOMIZE t OUT COPY PRINT tIN COPY RANDOMIZE t OUT COPY NEXT tIN COPY DIM t OUT COPY NEXT tIN COPY LLIST t OUT COPY OPEN #to COPY INKEY$t_ COPY J/ IF [E]USR CLOSE #( LPRINT BUSR DRAW ?ASN COPY COPY ~ COPY ▝ COPY t COPY COPY ~ RETURN © CLS RETURN © MERGE DRAW ? DRAW |© COPY RETURN COPY t COPY tt STOP 8 COPY tUSR s<=!; LOAD tW ERASE ^tb[Q] REM UWT:CODE LN <SGN +[O]FN UtO REM Nto[Q] REM tON TO *[P]jUSR ]D:INT 8x=8u PAPER T+ GO SUB .USR VERIFY L7[Q] REM {WT}CODE LN TSGN +[O]FN MERGE tOjNto[Q] REM tmN TO * OVER SCREEN$ USR D SAVE ct COPY tt COPY tt COPY tt COPY tt COPY tt COPY ABS COPY t COPY ©B RETURN ? VERIFY RETURN AND USR RETURN [I] LPRINT COPY f` RETURN [L][A] DRAW o SAVE LPRINT / DRAW LPRINT DRAW LPRINT 9 RETURN LIST PLOT LIST SGN IF SAVE CONTINUE DRAW PEEK ` RETURN } DRAW ©G DRAW © BEEP DRAW ©W PLOT ©SQR STOP © CLS STOP © PLOT LPRINT 7[G] LPRINT CLS p LIST DRAW LPRINT SAVE t COPY ABS COPY t COPY COPY B RETURN ? BORDER RETURN BORDER @ RETURN [J]` COPY 2 RETURN STEP FORMAT DRAW ATN SAVE LIST SAVE LIST DRAW LIST BRIGHT IF LIST DRAW SAVE OVER | SAVE A POKE DRAW OVER ` RETURN Y RETURN ?PI RETURN BORDER @ RETURN ATTR ` COPY [ RETURN PLOT RETURN ? GO SUB RETURN ? FLASH RETURN MERGE USR COPY m LIST CLS sUSR LET ?/ LIST <= LIST LLIST LPRINT SAVE USR SAVE x? DRAW DRAW ©t COPY ABS COPY t COPY ©B RETURN ? VERIFY RETURN AND USR RETURN [I] LPRINT COPY f` RETURN [L][A] DRAW o SAVE LPRINT / DRAW LPRINT DRAW LPRINT 9 RETURN LIST PLOT LIST SGN IF SAVE CONTINUE DRAW PEEK ` RETURN = DRAW ©G DRAW © BEEP DRAW ©W RETURN ©SQR RETURN © CLS RETURN © PLOT RETURN 7 PLOT RETURN PRINT H COPY kp COPY / LPRINT COPY ? COPY ©/ COPY ©O RETURN COPY < DRAW COPY CHR$ RETURN COPY t COPY FLASH COPY t COPY COPY $ COPY ©% COPY % COPY [Q] COPY ]VAL COPY nVAL RETURN CODE x LIST ? SAVE LIST ? DRAW LIST g DRAW LIST POKE SAVE s POKE SAVE FORMAT DRAW |USR RETURN ?y RETURN ©▜ RETURN ?ATN RETURN SQR USR COPY }USR RETURN ? CLS RETURN © PRINT RETURN ? REM RETURN INPUT USR COPY q LIST CLEAR _USR SAVE ?? SAVE | SAVE LET LPRINT DRAW USR USR DRAW 8? RETURN |©t COPY ABS COPY t COPY ©B RETURN ? VERIFY RETURN AND USR RETURN [I] LPRINT RETURN f` RETURN [L][A] DRAW o SAVE LPRINT / DRAW LPRINT DRAW LPRINT 9 RETURN LIST PLOT LIST SGN IF SAVE CONTINUE DRAW PEEK ` RETURN = DRAW ©G DRAW © BEEP DRAW ©W RETURN ©SQR RETURN © CLS RETURN © PLOT RETURN 7 PLOT RETURN PRINT H COPY {p COPY l LPRINT RETURN CODE RETURN © OVER COPY COPY / COPY COPY © COPY ©t COPY tt COPY tt COPY tt COPY tt COPY tt COPY ABS COPY t RETURN COPY B DRAW ©k SAVE ©c LIST © LIST ©f LPRINT © INK USR ? PLOT ? POKE P? SAVE `©[M] LIST o LPRINT `_=[Q]STR$ LPRINT ?} SAVE ©PEEK RETURN ? STOP RETURN ? FOR RETURN ? REM RETURN o INVERSE RETURN G OUT RETURN Go GO TO i0USR VAL$ p LPRINT ? LPRINT SAVE USR t COPY ABS COPY t COPY COPY B DRAW © BORDER SAVE © BORDER LIST ©[J] LIST ©L LPRINT ©COS USR ? GO SUB USR CONTINUE ? LIST USR _; LPRINT ?USR LPRINT >{USR /▘USR FORMAT ?{ SAVE ©[K] DRAW © RESTORE SAVE © BORDER LIST © MERGE LIST COPY PAPER SAVE ©o DRAW ©ATN DRAW © FLASH LIST ©ATTR LPRINT COPY ACS LIST OUT DEF FN DRAW POKE SAVE READ ` LIST ▜ LPRINT SAVE 8USR DRAW USR USR RETURN ??t COPY ABS COPY t RETURN COPY B DRAW ©k SAVE ©c LIST © LIST ©f LPRINT © INK USR ? PLOT ? POKE P? SAVE `©[M] LIST o LPRINT `_= LPRINT STR$ @ LPRINT ?} SAVE ©SGN RETURN ? STOP RETURN ? FOR RETURN ? REM RETURN © INVERSE RETURN © OUT RETURN ©o GO TO ©oUSR ©CODE LPRINT COPY COPY : SAVE COPY DRAW RETURN COPY : RETURN COPY PAUSE COPY ©< COPY ?C COPY ©t COPY FLASH COPY t COPY COPY $ RETURN COPY [U] SAVE COPY [U] LIST COPY [I] LPRINT COPY INT LPRINT COPY vUSR © PRINT USR DRAW ? DRAW @? NEW LPRINT / SAVE `/ DEF FN USR USR LIST @ LIST ?> DRAW ©[O] RETURN © LLIST DRAW © GO SUB SAVE © INVERSE SAVE COPY PEEK DRAW © OUT RETURN ©CODE DRAW ©W LIST ©w LPRINT COPY ▙ LIST [P] IF DRAW DRAW @ SAVE >USR LIST USR SAVE 0? DRAW ?STR$ RETURN ©t COPY ABS COPY t RETURN COPY B DRAW ©k SAVE ©c LIST © LIST ©f LPRINT © INK USR ? PLOT ? POKE P? SAVE `©[M] LIST o LPRINT `_= LPRINT STR$ @ LPRINT ?} SAVE ©SGN RETURN ? STOP RETURN ? FOR RETURN ? REM RETURN © INVERSE RETURN © OUT RETURN ©o GO TO ©oUSR ©CODE LPRINT COPY COPY 6 SAVE © PRINT RETURN ©{ COPY COPY : COPY COPY p RETURN COPY RETURN RETURN COPY t COPY COPY t DRAW ? COPY SAVE ▗USR LPRINT TAB USR ▟[I]BIN 1>=▙ TO BIN A7"B OUT PAUSE t[U]_ RANDOMIZE t? RANDOMIZE t[O]s CLEAR GO SUB y PRINT 0 MOVE 8|STR$ <<zxBCATTR ▘▖"ATN $USR l CONTINUE USR INPUT CIRCLE LPRINT q[Q] SAVE [O]USR DRAW ? COPY COPY COPY t COPY tt COPY tt COPY tt COPY tt COPY tt COPY tt COPY COPY t DRAW ? COPY SAVE USR LPRINT LPRINT USR COPY xUSR <[I]7 COPY GO TO tN<rt} FLASH PEEK tABS =t CLEAR ?t PAUSE fOt BRIGHT RND;tSIN ▝MtSGN FLASH =t[T]< OR ▚▝atN FLASH rt^ BORDER z.<▝tUSR FLASH FN USR FLASH [I] LPRINT FLASH SAVE USR DRAW ? COPY COPY COPY t COPY tt COPY tt COPY tt COPY tt COPY tt COPY tt COPY COPY t DRAW ? COPY SAVE !USR LPRINT ASN [Q]USR LEN [I]USR #▖▖q#38D GO TO ▘O CLS Bt[P] IF %t[P] DRAW 1tIN DEF FN yATN LIST 1CODE [O] LET ▛ LPRINT [R]0>STR$ <<^@ LET BA MERGE CHR$ $ GO SUB DUSR 6FN USR w CIRCLE LPRINT ▙[Q] SAVE yUSR DRAW ? COPY COPY COPY t COPY tt COPY tt COPY tt COPY tt COPY tt COPY tt LPRINT LPRINT LPRINT LPRINT [A]USR / CONTINUE ;LN / CONTINUE [A]USR LPRINT USR LIST USR P3[I]USR FORMAT LPRINT USR LIST @ LLIST ` DRAW © DRAW © SAVE ?[A]USR / CONTINUE ;LN / CONTINUE [A]USR LPRINT USR LIST USR P3[I]USR FORMAT LPRINT USR LIST @ LLIST ` BORDER 'CHR$ CIRCLE LPRINT VAL LIST LPRINT SAVE ; DRAW ; DRAW ? DRAW ? DRAW ? DRAW USR SAVE USR SAVE LPRINT LIST LIST USR DRAW ? COPY COPY COPY COPY SAVE LPRINT LPRINT USR SAVE ? DRAW © RETURN © IF © LIST © IF © RETURN ' DATA USR LPRINT LPRINT SAVE COPY COPY COPY COPY tNOT t▝~<~~`f`f|f~fff[A]ffff~~▝▝<<NOT NOT COPY COPY COPY COPY READ tAgoPEEK mACS mACS mACS mACS mACS mACS mACS mACS oPEEK Ag READ COPY COPY ▗t8<U PAPER + GO SUB ERASE b[Q] PRINT V REM CODE LIST ATTR [O]WU REM LPRINT [Q] LPRINT USR LPRINT [Q] LIST @ SAVE ?IN i@[G]@[G]▗tIN i@[G]@[G]▗tIN i@[G]@[G]▗tIN i@[G]@[G]▗tIN i@[G]@[G]▗tIN i COPY COPY COPY COPY COPY COPY COPY COPY @[G]▗tIN i@[G]▗tIN i@[G]▗tIN i@[G]▗tIN i@[G]▗tIN i@[G]▗tIN i COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY @[G]▗tIN iIN iIN iIN iIN iIN i? DRAW BABS }ABS }▚tABS UABS EABS tABS }ABS }ABS tABS }ABS }ABS t▝} COPY COPY DRAW ? SAVE USR LIST [Q] LPRINT FORMAT USR >=8 DATA x STOP LIST LET G'USR 8 LPRINT 0 LIST ` SAVE @ DRAW ? COPY COPY USR ▝USR ▝4▚t COPY COPY ▚SCREEN$ U[C]SCREEN$ [D]U▚SCREEN$ [D]U[C]SCREEN$ U▚SCREEN$ COPY U▗t COPY COPY COPY COPY COPY COPY SAVE LPRINT LPRINT USR CIRCLE =SGN eINKEY$CCHR$ >|STR$ USR H▝▝$$USR H GO SUB ATN COPY COPY COPY COPY SAVE LPRINT LPRINT USR CIRCLE %[U]eINKEY$[ PAPER >|STR$ USR HUSR H▝▝$$▝▝$$ MOVE ▛ CLS OUT COPY COPY SAVE LPRINT LPRINT USR CIRCLE %[U]}PEEK [ PAPER >|STR$ USR HUSR H▝▝$$▝▝$$USR HUSR H[T] OR RUN LOAD DRAW = LIST CHR$ LPRINT PLOT USR INPUT > PLOT 2b IF uz{:FINT =ACS +vUSR INPUT SAVE PLOT LIST CHR$ SAVE = DRAW 7 LIST >= LPRINT POKE USR POKE : SAVE .F SAVE Mx{xFx< SAVE + SAVE USR POKE LPRINT POKE LIST >= SAVE 7 DRAW / LIST FORMAT LPRINT h#(3H~ CONTINUE }(B>==h+FN USR >= SAVE FN DRAW h DRAW FORMAT RETURN /SGN ?CUSR oVAL wxo|`L_F^VAL$ / OVER ]bmSGN n CLOSE #w`oC LPRINT SGN GO TO ?USR USR /VAL /xUSR / LPRINT ▝tUSR bUSR SIN USR OVER USR bUSR <USR CLOSE #/ CONTINUE / LIST USR LPRINT GO TO POKE ? LPRINT USR USR pUSR >=USR BIN USR TO USR ~USR PEEK USR BUSR SGN USR CLOSE #USR [Q]USR @USR ? LPRINT ? POKE © COPY COPY COPY COPY USR ? DRAW H_ IF xW REM W REM x_ IF H? DRAW USR COPY COPY COPY COPY COPY COPY RUN COPY READ COPY OR COPY COPY * FORMAT © LPRINT ? LIST USR SAVE LPRINT LIST LIST LIST LPRINT READ P LPRINT USR IF OUT CLS COPY ▜ COPY h LIST LPRINT DRAW USR DATA # DATA ' DATA ($8$9 DATA 8d8d9 DATA 9 DATA ? DRAW USR COPY IN COPY @ DRAW ? SAVE LIST LIST USR LIST LIST LPRINT LIST ` LIST [Q] LIST [Q] LIST [Q] LIST ` LIST LPRINT SAVE USR DRAW ? COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CAT NEXT ▜ LLIST 0USR H COPY COPY SAVE @ DRAW ? RETURN © COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN © DRAW ? SAVE @ COPY COPY USR H▜ LLIST 0 CAT NEXT COPY COPY COPY COPY COPY COPY COPY COPY DRAW ? LIST USR LPRINT LIST USR 8NOT NOT BORDER NOT COPY 8 RETURN LIST DRAW LPRINT DRAW DRAW ? DRAW ? RETURN © DRAW ? DRAW ? RETURN © RETURN RETURN CONTINUE RETURN RETURN DRAW SGN ~8 COPY PLOT SCREEN$ AT COPY BORDER COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LPRINT LPRINT LPRINT LPRINT FORMAT LPRINT LPRINT LIST FORMAT LIST [Q] LIST USR SAVE [Q] SAVE USR SAVE DRAW @ DRAW DRAW @ RETURN ? RETURN ? COPY © READ COPY STR$ COPY COPY 6 COPY COPY > COPY >STR$ COPY STR$ CLS STR$ LET LET 8 LIST p LIST hx_ RETURN 5TUSR READ COPY STR$ COPY COPY 6 COPY COPY > COPY >STR$ COPY STR$ COPY STR$ COPY USR ?9USR 3 DATA ?|▝:,STR$ NOT READ BORDER COPY <= COPY 8 COPY l COPY ` COPY | COPY | COPY OUT 8 (STR$ USR `0© IF *AT USR COPY <= COPY 8 COPY l COPY ` COPY | COPY | COPY COPY 8 COPY DRAW ( CIRCLE [M]' TO > DRAW ▝4/NOT ( BORDER <= DRAW ? LIST USR LPRINT LIST USR %[U]#BIN _ IF Qnvo PLOT / POKE )[E]USR h LPRINT LIST LIST USR DRAW ? DRAW ? LIST USR LPRINT LIST USR SAVE ) SAVE 1 POKE © DEF FN g>Z RETURN = RETURN USR DRAW USR DRAW USR SAVE LPRINT LIST LIST USR DRAW ? DRAW ? LIST USR LPRINT LIST USR SAVE 8 LPRINT ? DRAW © RETURN © RETURN © RETURN ? DRAW ? DRAW USR SAVE LPRINT LIST LIST USR DRAW ? DRAW ? LIST USR LPRINT LIST USR USR [E]/s RETURN | NEW ©Z©SGN ?LN ?VAL USR >= LPRINT LIST LIST USR DRAW ?tGtCODE OPEN # RETURN GO SUB s OPEN #go1X>USR RESTORE t=CHR$ @ OPEN #!1[> RESTORE t MERGE t RETURN CHR$ OPEN #!=CHR$ _ OPEN #1<> GO SUB s( CLOSE #>! INK Z GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]=CHR$ [O] OPEN #![N] MERGE 1 DATA [P]> MOVE GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]=CHR$ REM OPEN #1<> GO SUB s[Q] CLOSE #1[U][O]>[Q] MOVE ! FORMAT [M] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]=CHR$ 4 CLOSE #!>1Z RESTORE t MERGE t=CHR$ { CLOSE #1<>>=2[U] CLOSE #USR >2[U] CLOSE #! LET P" RETURN CLOSE # COPY >=2LN CLOSE #LN CHR$ NEXT CLOSE #>2LN CLOSE # STEP NEXT CLOSE #>=2 LINE CLOSE #LN CHR$ NEXT CLOSE #>2 LINE CLOSE # STEP NEXT CLOSE # GO SUB [ RETURN CLOSE # GO SUB S RETURN CLOSE #>=2 RESTORE CLOSE #LN CHR$ NEXT CLOSE #>2 RESTORE CLOSE #o&)tASN GO SUB S RETURN CLOSE #~#~#~#~#~#~#~#~<>.&)tASN PIPNOT MERGE t>2X MERGE >PI>==2@ MERGE !9 MERGE ~<w RETURN CHR$ a MERGE 6 STEP a MERGE >=2X MERGE +NOT J MERGE RESTORE :X MERGE oTAN P_&5 MERGE ~o&)tASN FOR w$w$w$w$w$w$w$w LLIST <> COPY t© COPY t RETURN COPY tUSR NEW a▜©@ COPY USR 0▗B RETURN 0[J] NEW fg[P]©/ LINE R[E]PEEK _ COPY )JR[E]PEEK LRNDJR[E]IN RETURN [J]<[C]C LPRINT NEW a▜©JRPEEK A COPY !JR[E]▘R RESTORE LINE R RETURN [C]g NEW fg[P]© RANDOMIZE H[E]PEEK _ COPY )JRdPEEK R RESTORE LINE R[E]IN RETURN [J]<[C]O NEW ` BORDER [P]©C LIST ▗ COPY @0 LLIST USR 0▗ RETURN [J]0[P] COPY t© COPY t RETURN COPY t[E]t RETURN RETURN COPY t COPY LIST ▚t LLIST STR$ 0SCREEN$ |SCREEN$ 8|t CLS LET h OVER AND PLOT RANDOMIZE [I] AND ty INPUT wPEEK AND IF SAVE AND t RETURN 9[D]<> OVER AND PLOT ▞[I] AND t SAVE =▝© RETURN ▝PEEK AND IF 8 AND t▜ DRAW = READ <= RETURN AND RETURN COPY LIST |t[M]©< INVERSE SQR STR$ PEEK | IF ▞t▝[P] BRIGHT MOVE COS STR$ RETURN RETURN ▞t COPY BRIGHT ▜ FORMAT LLIST LN RETURN :USR USR USR [M] DRAW ▜&d LLIST LIST ▝`▝`▝`+| LINE S[R] LET }p|(STR$ PAUSE RETURN [O]<[A]<[A]<[A] IF ~ STEP COS STR$ NEXT SQR [O] COPY CONTINUE COPY CONTINUE COPY CONTINUE ▝ INPUT ▘3 TO ASIN RETURN [K]p INPUT LET } COPY t= FLASH SGN = FLASH SGN = FLASH SGN ▘[L][O]VAL VAL ▘▖t=<=<=< CLEAR COPY CIRCLE LET SQR © COPY COPY LPRINT |0||}>}>}>} COPY LN LEN E▝[I] AND 0 AND AND rfNrfNrfN COPY OPEN #}[G] BORDER [I] LIST AND AND AND /RND:/RND:/RND: LLIST ©▝COS }[K] BORDER [J]L AND AND AND 2▝L2▝L2▝L▚ INVERSE IN ▝ FORMAT | BORDER [J] TO LIST AND 0 AND AND < FLASH << FLASH << FLASH <▘ READ OUT ▝VAL D BORDER [J] TO |0||#<BIN #<BIN #<BIN © BORDER COPY t LIST AND © COPY COPY LPRINT ▟t RANDOMIZE IN [I] COPY FtGtFt▗tFtEFEBtGtFtGt▗tFGGFEtBtFtGt▗tFEEFEtGtFGFtGFFGFFGFGtpZ>n RETURN ;xT [A] RETURN :P▘|[K] RETURN pz[M] RETURN ` RETURN `F0` RETURN 2[Q] @ RETURN x`[Q] RETURN 2 L RETURN [A][Q]pLN RETURN .[A] [A] RETURN '`d@▗ RETURN /[A]dVAL$ RETURN $`d@[M] RETURN %P[U] [Q] RETURN [A]z[I] RETURN LN RETURN [A]@[M] RETURN P[G]0[Q] RETURN X▗0 RETURN P$< RETURN [A]d`LN RETURN [A]< RETURN !HX(p RETURN 4[A][C]LN RETURN 2[A](< RETURN 5p▗PLN RETURN 6[A]x/ RETURN 7[A]<LN RETURN 8[A]LN RETURN hR( COPY plr[Q] RETURN [A][G]@LN RETURN pdZ[C] RETURN [A]2 RETURN hR([A] RETURN ▖[E]0[Q] RETURN [A]d[M] RETURN `/Hl RETURN N▚0 RETURN )vT0 RETURN 7[A][G]LN RETURN #|$([A] RETURN "<<([Q] RETURN ;@4 [A] RETURN ,[A]<N RETURN 8[A]ZLN RETURN 9[A]xLN RETURN [A][G][A]LN COPY #Pn[M]▛▛ RETURN +▝tLnx5▛=▛ RETURN 8▘[Q]p[Q]5▛=▛ RETURN 0[A]<P#▛,▛ RETURN :[A]<SGN #▛,▛ RETURN 7BxSGN #▛,▛ RETURN .[I]ZH[A]#▛,▛ RETURN -[A]Z0AT #▛,▛ RETURN 3xp^[A]5▛=▛ RETURN 5p ^[C]5▛=▛ RETURN 4P(VAL$ #▛,▛ RETURN 6pPVAL$ #▛,▛ RETURN (▗<(p#▛,▛ RETURN 2X[G]PSGN #▛,▛ RETURN ▘SGN ▛▛ RETURN Pl SGN ▛▛ RETURN 0<SGN ▛▛ RETURN @AT ▛▛ RETURN [Q](▛▛ RETURN &PSCREEN$ 0p▛▛ RETURN %p20▛▛ RETURN $[Q]AT USR ▛▛ RETURN [A]~P[Q]▛▛ RETURN [A]( P▛▛ RETURN `d [A]▛▛ RETURN `p0p▛▛ RETURN [Q]d[S]▛▛ RETURN `▛▛ RETURN 'x" RETURN x RETURN ( COPY 5Fx@5▛=▛ RETURN P[Q] SGN ▛▛ RETURN `▚`[Q]▛▛ COPY -0x@▗▛▛ RETURN 7/xLN #▛,▛ RETURN 6x[G]VAL$ #▛,▛ RETURN ([I]xSCREEN$ #▛,▛ RETURN 2dP0[A]5▛=▛ RETURN 3d @[E]5▛=▛ RETURN 5dP@5▛=▛ RETURN 4P▘VAL$ #▛,▛ RETURN PxSGN ▛▛ RETURN [Q]F@▛▛ RETURN P`PVAL ▛▛ RETURN p▛▛ RETURN 0@SGN ▛▛ RETURN <Z@[Q]▛▛ RETURN FP `▛▛ RETURN 2 ▛▛ RETURN [Q]2z▛▛ RETURN '[Q]|hTAN ▛▛ RETURN [Q]FP▛▛ RETURN hVAL P[Q]▛▛ RETURN ~SCREEN$ `[Q]▛▛ COPY USR t COPY t RUN LOAD COPY t RETURN IN COPY COPY OUT CLS COPY t RUN LOAD COPY t OUT CLEAR IN CLS OUT SAVE CLS OUT CLS OVER INT _ IF _ PRINT CODE GO SUB ATN GO SUB ATN GO TO 7 FOR BEEP STOP PI CLEAR W COPY ATTR COPY PRINT -'r-Z/t©©©©©t*8<U PAPER + GO SUB G ERASE STOP [Q]UWINT VAL$ SGN COPY tSCREEN$ SCREEN$ ?<~l RESTORE FLASH PAPER l RESTORE z4 COPY CLOSE # COPY CONTINUE © CLOSE # COPY CONTINUE © FORMAT COPY FN COPY P IF PRINT <SCREEN$ ~T RESTORE FLASH RETURN PAPER RESTORE z4 LPRINT INVERSE OUT SQR GO SUB W ERASE STOP [Q]EWINT CODE DRAW OVER MERGE REM LIST COPY COPY COPY COPY CLS SQR ATN INVERSE K REM G REM [S] PRINT ] SAVE ?{ATTR W COPY COPY COPY COPY STOP INVERSE FLASH SQR GO SUB W ERASE STOP [Q]UWINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] CAT DEF FN SCREEN$ [P]E]:INT <= LIST 8U PAPER + GO SUB G ERASE STOP [Q]UWINT CODE SGN ATTR [O] MERGE LOAD [Q] CAT DEF FN SCREEN$ [P]E]:INT :#U INVERSE + REM G VERIFY STOP [Q]UVINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] CAT DEF FN SCREEN$ [P]E]:INT 8<U PAPER + GO SUB G ERASE STOP [Q]UWINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] STEP N REM [P]EN[A]1:#U INVERSE + REM G VERIFY STOP [Q]UVINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] THEN NINKEY$[O]XmIN NEXT 8?U PAPER ATTR GO SUB <= ERASE STOP [Q] MERGE WINT CODE SGN ATTR [O][H] MERGE CAT REM LOAD [Q] CAT DEF FN SCREEN$ [P]E]zINT x<U PAPER + INPUT G MERGE STOP [T]UUINT VAL$ SGN ATTR [O] VERIFY O GO SUB LOAD [T] CAT STEP SCREEN$ [O]E^:SGN 8<U PAPER + INPUT G LET STOP BEEP UgINT [P]SGN ?ATTR O LOAD LOAD _? COPY 8<U PAPER ATTR GO SUB <= ERASE PAUSE [Q] PRINT W IF CODE DRAW OVER MERGE LINE LPRINT COPY COPY COPY COPY COPY ?_ LOAD CODE OATTR SGN INT CODE UW STOP PIG MOVE + GO TO U PAPER 8= COPY COPY COPY COPY LPRINT LINE MERGE OVER DRAW IF CODE PRINT W PAUSE [Q]<= ERASE ATTR GO SUB U PAPER 8<:INT E]SCREEN$ [P] CAT DEF FN LOAD [Q] MERGE ATTR [O]SGN INT CODE UW STOP [Q]G ERASE + GO SUB U PAPER 8<= LIST <= LIST 8U PAPER + GO SUB G ERASE STOP [Q]UWINT CODE SGN ATTR [O] MERGE LOAD [Q]+ GO SUB U PAPER 8<= LIST }BIN PEEK SCREEN$ }BIN RETURN SCREEN$ BIN SCREEN$ LLIST BIN LN SCREEN$ |▝tPEEK } OVER PEEK SCREEN$ }BIN PEEK SCREEN$ 8<U PAPER + GO SUB G ERASE STOP [Q]UWINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] STEP NSCREEN$ [P]E]:INT <= COPY 8?U CAT + BORDER G OPEN # STOP [T]UUINT VAL$ SGN ATTR [O] MERGE LOAD [R]+ GO SUB U PAPER 8<= NEXT MOVE VAL$ U PAPER cINKEY$Q PAPER SCREEN$ ASN [N]yINT }ABS }INT - MERGE LINE RESTORE LLIST DEF FN NEXT REM CLEAR OR RETURN ;u< PAUSE CIRCLE PRINT CONTINUE PAUSE FORMAT [Q]SCREEN$ @USCREEN$ SCREEN$ H LPRINT USR "V8VAL$ OCODE O[Q]USCREEN$ UUSR LPRINT LIST CIRCLE [M] RETURN USR FORMAT IN COPY [Q]ASN U OUT COPY `SCREEN$ SCREEN$ MERGE T COPY RETURN COPY RETURN COPY RETURN COPY RETURN OUT IF [P] PAUSE COPY RETURN @ COPY COPY UU COPY COPY SCREEN$ SCREEN$ UT COPY RETURN COPY RETURN COPY RETURN COPY RETURN OUT IF [P] PAUSE COPY RETURN COPY DRAW UT COPY IF SCREEN$ SCREEN$ UV COPY RETURN COPY RETURN COPY RETURN COPY RETURN OUT IF [P] PAUSE COPY RETURN IN COPY © COPY `k OVER [L]^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ FLASH Z[L]R CLS ^USR COPY t CLS OVER CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ FLASH Z[L]R CLS ^USR COPY DRAW COPY RETURN CLS VERIFY CLS X CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ FLASH Z[L]R CLS ^USR IN RETURN OUT IF LOAD PAUSE w RETURN SQR RETURN INVERSE RETURN INPUT RETURN RUN ~ CLS PEEK RANDOMIZE OVER IF INPUT CLS v FLASH INT [L]/ CLS NG FLASH ^SQR Z{R CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ FLASH Z[L]R CLS ^USR CLS [ FLASH ][L]^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ CLS ^ FLASH Z[L]R CLS ^USR COPY CLEAR OUT CLS [P] RUN COPY INPUT COPY BRIGHT COPY INT COPY v RETURN INPUT CLEAR OVER CLS [O] RUN ^ INPUT OVER INVERSE ZSQR Rs^ READ @}BIN PEEK SCREEN$ }BIN RETURN SCREEN$ BIN SCREEN$ LLIST BIN LN SCREEN$ |▝tPEEK } OVER PEEK SCREEN$ }BIN PEEK SCREEN$ COPY t CLS LINE DJ READ DSQR J{TSQR N{@SQR P{^SQR J{DSQR LINE SCREEN$ SCREEN$ UTSCREEN$ SCREEN$ UT COPY RETURN COPY RETURN COPY RETURN COPY RETURN COPY RETURN COPY RETURN COPY RETURN COPY RETURN OUT IF [P] PAUSE COPY RETURN COPY RETURN OUT IF [P] PAUSE COPY RETURN COPY RETURN COPY RETURN COPY RETURN COPY RETURN COPY RETURN COPY RETURN COPY RETURN COPY RETURN OUT IF [P] PAUSE COPY RETURN ^INT r RETURN RETURN + RETURN W RETURN CODE RETURN _ RETURN IN RETURN © RETURN COPY RETURN OUT IF [P] PAUSE COPY RETURN TSCREEN$ TSCREEN$ RETURN + RETURN W RETURN CODE RETURN _ RETURN IN RETURN © RETURN COPY RETURN OUT IF [P] PAUSE COPY RETURN U^SCREEN$ INT UrSCREEN$ RETURN COPY RETURN COPY RETURN COPY RETURN COPY RETURN COPY RETURN COPY RETURN COPY RETURN COPY RETURN OUT IF [P] PAUSE COPY RETURN © COPY IN COPY OUT COPY LOAD COPY LIST PRINT U PAUSE SCREEN$ PRINT U PAUSE [O] PRINT MERGE PAUSE REM PRINT [Q] PAUSE N PRINT [P] PAUSE ] PRINT INT COPY DRAW COPY IF COPY PLOT COPY INPUT SCREEN$ VAL$ yNATTR VAL$ WNVAL$ rN RANDOMIZE VAL$ INT N]VAL$ PRINT INT PAUSE ] PRINT [P] PAUSE N PRINT [Q] PAUSE REM PRINT MERGE PAUSE [O] PRINT U PAUSE SCREEN$ PRINT U LPRINT OUT COPY IN COPY © COPY ]VAL$ INT N RANDOMIZE VAL$ rNVAL$ WNATTR VAL$ yNSCREEN$ VAL$ UNSCREEN$ VAL$ COPY DRAW 8<U PAPER + GO SUB G ERASE STOP [Q]UWINT CODE SGN ATTR USCREEN$ OU LOAD [Q] STEP OSCREEN$ CODE EO:VAL$ 8<U PAPER + GO SUB G ERASE STOP [Q]UWINT CODE SGN SCREEN$ [O]U MERGE SCREEN$ REM [Q] PAUSE N PRINT [P] PAUSE ]uINT 8VAL$ UO+CODE GO STOP [Q]UUINT SCREEN$ SGN UATTR [O] MERGE O REM LOAD [Q] STEP NSCREEN$ [P]E]:INT PRINT < PAUSE PAPER PRINT GO SUB PAUSE ERASE [Q]SCREEN$ WUCODE SCREEN$ ATTR [O] MERGE O REM LOAD [Q] STEP NSCREEN$ [P]E]:INT <N[VAL$ ATN NKVAL$ N REM VAL$ PRINT N SAVE VAL$ yNATTR VAL$ WNVAL$ rN RANDOMIZE VAL$ INT N]VAL$ r<u PAPER r GO SUB u ERASE r[Q]uWrCODE ur[O]u MERGE r REM u[Q]rNu[P]r]uINT COPY tUUSCREEN$ SCREEN$ UUATTR [O] MERGE O REM LOAD [Q] STEP NSCREEN$ [P]E]:INT :INT E]SCREEN$ [P] STEP N LOAD [Q]O REM MERGE ATTR [O]UUSCREEN$ SCREEN$ UU COPY t8VAL$ UO+CODE GO STOP [Q]UUINT SCREEN$ SGN UtSCREEN$ SCREEN$ UU COPY t COPY tUUSCREEN$ SCREEN$ UtSCREEN$ SCREEN$ UU COPY t COPY DRAW COPY IF COPY PLOT COPY INPUT UNUNSCREEN$ VAL$ UN COPY DRAW COPY tUUSCREEN$ SCREEN$ UUSCREEN$ [O]U MERGE SCREEN$ REM [Q] PAUSE N PRINT [P] PAUSE ]uINT COPY tUUSCREEN$ SCREEN$ UUATTR USCREEN$ OU LOAD [Q] STEP OSCREEN$ CODE EO:VAL$ > FLASH ; GO SUB W ERASE STOP [Q]UWINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] CAT DEF FN SCREEN$ [P]E]:INT 8U PAPER + GO SUB G ERASE STOP [Q]UWINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] CAT DEF FN SCREEN$ [P]E]:INT 8U BRIGHT + REM G VERIFY STOP [Q]UVINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] CAT DEF FN SCREEN$ [P]E]:INT x? MERGE PAPER + GO SUB G ERASE STOP [Q]UW:CODE SGN ATTR [O] MERGE O REM LOAD [Q] CAT DEF FN SCREEN$ [P]E]:INT 8<U PAPER + GO SUB G ERASE STOP [Q]UWINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] STEP NSCREEN$ [P]E]:INT x>U FLASH + INPUT G ERASE STOP [Q]UVINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] CAT DEF FN SCREEN$ [P]E]:INT 8<U PAPER + GO SUB G ERASE STOP [Q]UWINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] STEP NSCREEN$ [P]E]:INT LOAD BEEP wTAB FOR AND wAT # AND u#BIN 1▗#D!#!!▛t LOAD BEEP wTAB FOR AND wAT # AND u#BIN 1▗#D!#!!tSCREEN$ USR Q@@[G]t ERASE [Q]W?^5▛t RUN ERASE [S][Q]UW?^5tx>U FLASH + INPUT G ERASE STOP [Q]UPINT [Q]SGN FN @ LPRINT USR [Q]@t DRAW SQR SCREEN$ W CLOSE # STOP BORDER LINE ]ABS `U LIST CONTINUE ▝tSIN gr CLS SQR ]8<U PAPER + GO SUB ERASE [Q]WCODE [O] MERGE REM [Q]N[P]]:<ZmR W/Uj N]:<ZmR[Q]WCODE j[Q]N[P]]"INT x?U INVERSE + REM G FORMAT BORDER LPRINT SUSR INT [Q]ABS @SCREEN$ M. NEW USR N[Q] OUT @ INVERSE INT GO SUB 5 PLOT # DIM qP*FN P^UUSR USR 'wgU"[M]<j"p*^T$vdR$FN FORMAT REM POKE REM POKE PAPER CLEAR RETURN } RETURN [Q] COPY @ RETURN [Q] COPY @ OUT FN COPY FORMAT x?U INVERSE + REM G FORMAT BORDER LPRINT SUSR INT [Q]ABS @SCREEN$ M. NEW USR N[Q] OUT @ INVERSE INT x= PRINT PAPER FOR GO SUB w ERASE [Q]WCODE [Q]^Lj GO TO P STEP &SCREEN$ E: STOP [N] FLASH ; GO SUB ERASE [Q]5W:CODE MERGE REM ?[Q]?N.[P]]INT <= LIST 8U PAPER +TAB G ERASE RESTORE [Q]SWLN ATTR [O] MERGE LOAD [Q] CAT CAT SCREEN$ [O]E:#U CIRCLE + GO TO G CLOSE # STOP [R]UQINT AT SGN CLOSE #O DIM LOAD [R] CAT >=SCREEN$ [M]E/:EXP 8:U BRIGHT + REM ▜ CLOSE #CHR$ [Q][F]T:VAL$ <+[M] PAPER GO TO CAT [Q] TO *[O]EZzTAN x8U BRIGHT + GO TO G MOVE b[T]Q:AT |k[M] CLOSE #/ DIM o[T]O<>*[M]u/zLN > FLASH ; GO SUB W ERASE STOP [Q]UWINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] CAT DEF FN SCREEN$ [P]E]:INT 8U PAPER + GO SUB G ERASE STOP [Q]UWINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] CAT DEF FN SCREEN$ [P]E]:INT 8U BRIGHT + REM G VERIFY STOP [Q]UVINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] CAT DEF FN SCREEN$ [P]E]:INT x? MERGE PAPER + GO SUB G ERASE STOP [Q]UW:CODE SGN ATTR [O] MERGE O REM LOAD [Q] CAT DEF FN SCREEN$ [P]E]:INT 8<U PAPER + GO SUB G ERASE STOP [Q]UWINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] STEP NSCREEN$ [P]E]:INT x>U FLASH + INPUT G ERASE STOP [Q]UVINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] CAT DEF FN SCREEN$ [P]E]:INT 8<U PAPER + GO SUB G ERASE STOP [Q]UW:CODE <+[O] MERGE O REM LOAD [Q] STEP NSCREEN$ OUT E[N]+ GO SUB G ERASE STOP [Q]UWINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] THEN NINKEY$[P]@8>U FLASH + GO SUB G ERASE STOP [Q]UVINT CODE SGN ATTR [P] MERGE O REM LOAD [Q] STEP nSCREEN$ OUT E[N]k GO SUB RUN ERASE [S][Q]UW?^5tx>U FLASH + INPUT G ERASE STOP [Q]UPINT [Q]SGN FN @ LPRINT USR [Q]@t ERASE [Q]W?^5▛t> FLASH ; GO SUB W ERASE STOP [Q]UWINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] CAT DEF FN SCREEN$ OUT E[N] DRAW SQR SCREEN$ W CLOSE # STOP BORDER LINE ]ABS `U LIST CONTINUE ▝tSIN gr CLS SQR ] RETURN COPY t LOAD © COPY COPY RETURN COPY t LOAD SAVE ? RESTORE O ERASE ▜LN PEEK ATTR BEEP E LPRINT + PRINT U RETURN ATTR RETURN COPY t LOAD x? RESTORE N ERASE ▜LN PEEK ATTR BEEP E LPRINT + PRINT U RETURN ATTR COPY COPY IN CLS RETURN COPY tIN COPY COPY ~© RANDOMIZE ATN RUN _ INPUT CODE NEXT DRAW © COPY COPY OUT OUT COPY COPY CLEAR CLEAR COPY IN COPY COPY RUN COPY t RUN LOAD COPY t RETURN DRAW COPY CLS ? PRINT _ SAVE ? COPY t RUN LOAD COPY t OUT COPY SAVE SQR <= COPY INPUT [U] CLEAR INT CHR$ PRINT LPRINT FOR SAVE BORDER LOAD FOR PRINT RUN COPY k COPY POKE COPY CLS 5 OVER USR COPY ABS COPY LET CLS ^©ATTR WCODE WFATTR REM POINT U REM % CLOSE #KSCREEN$ [H]TkATN U_ LPRINT SAVE POKE IF + LET ^ CONTINUE CODE Q_[S] COPY S COPY CLS ▛ PRINT W IF / PRINT REM PRINT TCODE n INVERSE IN ▟}[ RETURN [H] COPY [ RETURN CODE CLEAR BEEP RETURN BORDER CLEAR OPEN # IF CONTINUE MERGE MERGE j REM IN U COPY ? OUT ~[F]SCREEN$ zDPEEK [R]{b CLEAR COS RETURN U©SCREEN$ RETURN ©n COPY CLEAR CLEAR COPY SCREEN$ @ READ [T] RUN M FOR [H] CLS / PRINT © DRAW _ IF CODE CLEAR RETURN ▟ CLEAR B RETURN [R] CLEAR U~IN PRINT _ COPY SQR COPY INPUT />VAL$ 5]~ RETURN /IN © CLS RUN RUN |} CIRCLE ?p[[Q] DRAW RETURN BEEP @ COPY [Q]+ FORMAT LPRINT /hW POKE CODE REM CLEAR ▝t SAVE INT ▘t IF POINT COPY u<= DIM LIST IN y^VAL$ IN © CLS ; RUN _c/ MERGE FOR *IN ©[F]*" OPEN # LLIST OPEN #RNDATTR B OVER [G] CLEAR jV CLOSE #POINT /@LN $p▘ LPRINT VAL$ LIST ▞t t▖t t[E]t[F]t▖t[E]t@[D]t COPY LIST LPRINT LIST A COPY READ READ /STR$ cp*©t COPY © LPRINT >8| RETURN >NOT PRINT REM STR$ QSCREEN$ t[A] FORMAT ▖HCODE ©_0 COPY ` COPY USR IN USR COPY `PEEK 8 MERGE COPY t LPRINT CLS POKE LIST IF PAUSE FOR PRINT DIM MERGE POINT 8@ LPRINT LPRINT FN @64XXll&6,66kkk76ZXll,4XXld$ REM SCREEN$ MERGE U[P] COPY IN COPY IN COPY IN COPY jSCREEN$ UU© COPY UUSCREEN$ SCREEN$ [Q]SCREEN$ SCREEN$ [F]U FORMAT SCREEN$ tUU CLEAR COPY CLS COPY CLS COPY CLS COPY INKEY$SCREEN$ UU RUN COPY UUSCREEN$ SCREEN$ SCREEN$ SCREEN$ UUSCREEN$ t IF U CLEAR IF IF . IF ^[U]CODE U_ POKE IN U_SCREEN$ PEEK ~SCREEN$ PEEK U| DRAW SCREEN$ SAVE © DRAW ABS <>~[U]ABS <>~[U]ABS <>~[U]ABS <>ABS <>~[U]ABS <>~[U]ABS <>~[U]© DRAW ABS <>~[U]ABS <>~[U]ABS <>~[U]ABS <>~[U]ABS <>~[U]ABS <>~[U]ABS <>~[U] COPY CIRCLE SCREEN$ [F][ FOR RUN BEEP RUN CODE RUN [P]EPEEK SCREEN$ ]o>SCREEN$ ] MERGE PEEK [U]} OR PEEK SCREEN$ }BIN FN RETURN U PAPER [S]IN VERIFY IN REM IN POKE * CONTINUE U▝t~ ERASE UFN ATTR CHR$ &POINT TAB BIN ^POINT BIN COPY DRAW ~SCREEN$ IN CLS © RUN IN RUN _ RUN /SCREEN$ _ STEP CODE LOAD [F]MSCREEN$ SCREEN$ MOVE >=INKEY$[F] SAVE [S]© CLEAR ©AT ©E©AT ©E}SCREEN$ jUSR U LINE ©USCREEN$ $ SCREEN$ P[S]FN COPY COPY BRIGHT &[M] LIST DRAW 9 DRAW LIST DRAW & COPY t[P] RETURN ` RANDOMIZE COPY RANDOMIZE COPY OVER `[P][P] COPY COPY COPY RETURN Hz TO PAUSE TO RETURN TO RETURN L RETURN COPY RETURN COPY RETURN COPY RETURN ~ COPY ~ COPY ~z COPY PAUSE COPY RETURN © RETURN TAB ASN [jTAB ASN [jTAB ASN © RETURN IF CLS ^ CLS [O] CLS ^ FLASH [K][L]R CLS [O]© COPY IN COPY OUT COPY LPRINT LOAD COPY DIM % DIM % LOAD COPY CONTINUE CONTINUE LOAD COPY LPRINT OUT COPY SCREEN$ SCREEN$ UU COPY DRAW COPY IF COPY POKE COPY GO TO *, SAVE * GO TO * COPY GO TO COPY POKE SCREEN$ SCREEN$ UT© DRAW IN IF OUT POKE LPRINT LOAD DATA DIM * DIM DATA LOAD REM CONTINUE $ FOR SCREEN$ FOR [U] CONTINUE * FOR [U] FOR SCREEN$ FOR [U] CONTINUE * FOR [U] FOR SCREEN$ FOR [U] CONTINUE * FOR [U] FOR SCREEN$ CONTINUE $ FOR SCREEN$ FOR [U] CONTINUE * LOAD DATA LPRINT MERGE TSCREEN$ SCREEN$ UT© DRAW IN IF USR MERGE R LINE TAN BEEP PAUSE CAT POKE BEEP PAUSE CAT POKE BEEP PAUSE CAT POKE OUT PAUSE USR SCREEN$ SCREEN$ UT© DRAW IN IF USR MERGE R LINE TAN BEEP PAUSE CAT POKE BEEP PAUSE CAT POKE BEEP PAUSE CAT POKE OUT PAUSE USR SCREEN$ SCREEN$ UT© COPY t LPRINT CAT COPY CIRCLE OPEN # SAVE VERIFY CLOSE # MERGE RUN CLOSE # CLOSE # LET CLOSE # CLOSE # FORMAT DRAW FORMAT FORMAT COPY DRAW COPY RETURN PAUSE VV[M]VV(VVV VERIFY FORMAT CIRCLE CAT COPY LPRINT COPY COPY TO COPY © COPY COPY tSQR SQR VAL$ INPUT SQR SQR IN COPY COPY [G]6 COPY NEW IF AT RETURN DRAW RETURN RETURN ▚INT RETURN REM PLOT INT RETURN IF RETURN PEEK COPY ~ COPY ^ COPY [O] COPY ^[O] COPY COS COPY DPOINT <>J*SCREEN$ *I<>[U]S COPY RETURN IF RETURN DRAW RETURN POKE RETURN PAUSE POKE RETURN PAUSE 0 COPY [K]D'*FN [U]FN SCREEN$ '$J COPY [E][O] COPY ^[O] COPY ^ COPY _ COPY [P] COPY ^[O] COPY X▝[K]ABS Z[R][K]TAB Z[R][K]ABS 0 RETURN PAUSE POKE RETURN PAUSE RETURN POKE COPY POKE COPY PAUSE POKE RETURN PAUSE 4zSIN TAN RETURN SIN TAN zSIN Z[R][K]CODE ZFN [K]ATTR ZATTR [I]▖^ COPY [O]_ COPY [O]^ABS [O]ABS ^[P] COPY @ COPY COPY TAN ZSIN ZTAN SIN IF TAN 2 RETURN POKE PAUSE COPY POKE PAUSE z POKE z PAUSE POKE COPY PAUSE COPY RETURN @ CONTINUE 0 TO 8 GO TO LIST TO FN INKEY$PBIN INKEY$[R]BIN FLASH NINKEY$SGN P RETURN FN tB[I]CPALN `VAL q`0 FORMAT !FN 3T:SGN 6cqAT ap0(h4 LIST h CIRCLE [E][I]L NEW TfL REM TO @ @ @ @`@`[Q]`` LPRINT @0USR BCHR$ ▘▙▗* TO =/X▖8p80Tp48lX AND 5▙▚[I][A])USR `2 LPRINT p70gX*8f28W30p;`373e#e#r FLASH =eLN ©▗t[Q]0[Q]0 0 0 0[Q]8a▚▝<>RND LIST IN LLIST CLEAR QPEEK [R] CLEAR AINT [R] CLEAR AINT [T]uBJ▚0 LIST ▖tUSR ATTR J CLS [P] CLS _S[F]ATTR JSUATTR @tSCREEN$ SCREEN$ COPY tUUSCREEN$ SCREEN$ UUSCREEN$ SCREEN$ ▗t@@@ATTR J RANDOMIZE [P] CLS _Q[F]ATTR JSUPOINT @t2& STEP j%t[O] MERGE REM @[Q] LPRINT NUSR [P][Q]]@INT 8< PAPER GO SUB ERASE [Q]W:CODE <+[O] MERGE O REM LOAD [Q] STEP NSCREEN$ [P]E]:INT 8<U PAPER + GO SUB G ERASE STOP [Q]UWINT CODE SGN ATTR [O] MERGE O REM LOAD [Q] STEP NSCREEN$ [P]E]:INT [I[IHSASIRSA[IZH[IRAAS[I[I BEEP VAL THEN ATN OPEN #7 CAT VAL BEEP SIN CAT ASN BEEP SIN CAT ASN BEEP SIN CAT ASN BEEP SIN CAT ASN FLASH VAL NOT 7 OUT ATN USR 0 BEEP SIN THEN ASN OPEN #2 CAT ASN BEEP SIN CAT ASN BEEP SIN CAT ASN BEEP SIN CAT ASN BEEP SIN CAT ASN FLASH SIN NOT 5 OUT SIN USR 5 COPY tSCREEN$ SCREEN$ UT[P] NEW COPY RETURN COPY RETURN OUT PLOT [P] NEW COPY RETURN COPY t▗t COPY tUT.SCREEN$ O PAUSE © RETURN © RETURN o IF O PAUSE © RETURN COPY t▗t© COPY ~t© COPY o COPY © COPY o COPY © COPY © COPY ▗t COPY COPY ~t COPY t COPY COPY ▗t COPY RETURN ~t COPY RETURN COPY IF COPY RETURN COPY IF COPY RETURN COPY RETURN ~ t© COPY o COPY © COPY o COPY © COPY © COPY ~t© COPY ▗t COPY t COPY COPY ~t COPY COPY ▗t COPY RETURN COPY IF COPY RETURN COPY IF COPY RETURN COPY RETURN ~t COPY RETURN tw{SQR SQR [SQR CSQR ;Ap6^ RETURN Z▘ZINT ^INT ZINT ^▘^INT ZINT ZINT Z▘ZINT ZINT ^▘RINT R▘^ RETURN RETURN ▗ LINE RETURN INVERSE RETURN OVER RETURN BRIGHT RETURN LINE RETURN LPRINT CLEAR RETURN CLEAR RETURN LPRINT LINE RETURN BRIGHT SCREEN$ OVER T INVERSE LINE RETURN ▗t© IF COPY USR PAPER COPY FLASH fRNDRNDf FLASH CLS © CLS `FN o COPY COPY USR p INVERSE w COPY COPY FLASH FLASH ffRNDtff FLASH FLASH SAVE IF COPY LPRINT 0 FLASH FORMAT f`RND[Q]RND[Q]f` FLASH USR !©SSQR ©{©;©S©©IN IN ©©S;©{USQR *S!©©zAZ]Z]z]ZAz]z]Z]ZAZ]Z]ZAz]JAJ©z LPRINT CONTINUE INPUT OVER INVERSE LPRINT INVERSE CIRCLE INVERSE PAPER INVERSE CHR$ BRIGHT FORMAT LPRINT ▘▗to RUN 3NOT 24d(>= LPRINT GO TO LOAD IF LIST PLOT LOAD USR TO `NOT 0[I]L,&USR @VAL 7_ RUN LOAD IF GO TO LPRINT >=(dTAN SIN INK TO NOT AND 3NOT STR$ RUN USR oUSR USR _ RUN VAL 7@USR &-M[L]NOT 3 TO cNOT LOAD PLOT LIST USR USR USR USR USR USR USR USR USR USR USR USR USR USR USR USR 0USR © COPY COPY COPY COPY COPY COPY COPY IF USR ©USR 0 SAVE USR @ DRAW @ IF @ POKE @ SAVE POKE DIM MOVE [S] SAVE u LINE 5SQR ww* MERGE ? COPY u COPY / COPY COPY COPY OUT jWPOINT USR VERIFY p FLASH LN GO SUB BRIGHT INPUT INPUT RUN wUSCREEN$ COPY RETURN MERGE U IF SCREEN$ CLEAR / IF VAL MERGE USR ATTR LOAD BEEP wTAB FOR AND wAT # AND u#BIN 1▗#D!#!!DDDFFc'3▛ AND DEF FN COPY [N]?;_R LOAD NEW CODE DO[S]DATTR SGN INT CODE UW STOP RNDG MOVE + GO TO U PAPER 8= """bb[Q] AND DATA USR ▖USR TO USR CIRCLE MOVE cs9 COPY [M] COPY REM COPY g COPY " LIST E REM " MERGE ` OVER DRAW IF CODE PRINT W PAUSE [Q]<= ERASE ATTR GO SUB W PAPER 8<?~©INT PCODE IF TSCREEN$ COPY / COPY ▗t@[Q]HPEEK IF CLOSE #[R]@[Q]W@ CLS [Q] RUN @ IF [A]_ COPY ? COPY © DRAW IN CLS © CLEAR COPY REM _U*[S]U/© COPY COPY U* PRINT 0FN SAVE POKE COPY Z IF VAL$ T/USR *AZSCREEN$ SGN ASN SAVE OUT LPRINT g[E]tp CONTINUE POKE REM ?R~[R] PRINT zSCREEN$ ?T CONTINUE CIRCLE LIST FORMAT [Q] LPRINT [Q] z6z6ABS .{> CLEAR .{> CLEAR -{< RETURN - IF PLOT GO TO FORMAT `"= GO SUB FLASH THEN ATTR %SQR ▛u[F]WZASN 6 BEEP *TAB 5kmTAB Uk: GO SUB w LIST "^B FLASH mP REM [Q]dQ ERASE uFR[Q]uZ[S]iQZ▛iSZ▙wXUSR LPRINT VAL x FORMAT L< CONTINUE ?[U] DRAW ? FORMAT ~INKEY$u IF POKE ©[S] PRINT [Q] COPY O POKE ?FN }F CONTINUE # OPEN # INVERSE N[S]=A~▝ DRAW ▝SCREEN$ ▝UBSGN ▟t LIST SAVE DEF FN W NEXT J CLEAR RND~[A]CODE PRINT ~RNDIN R CAT REM s POKE | CONTINUE ?p▟t64XXll&6,66kkk76ZXll,4XXld$ LPRINT CLS IN CLS IN [Q] CLS IN CLS IN [Q] CLS IN CLS IN [Q] COPY COPY COPY COPY COPY tATTR [O] MERGE O REM LOAD [Q] STEP NSCREEN$ [P]E]:INT COPY RETURN USR ERASE [A][Q][Q][Q][Q][Q][Q]bUSR COPY RETURN COPY RETURN ▝ASN z▝R COPY z▝rABS zEXP rABS zEXP rASN jPOINT R▝ COPY RETURN CODE RETURN W IF PAUSE W RETURN CODE RETURN W RETURN CODE RETURN W RETURN CODE RETURN W RETURN CODE RETURN W RETURN IF PAUSE CODE RETURN SCREEN$ SCREEN$ UTSCREEN$ UTCODE RETURN W RETURN CODE RETURN W RETURN CODE RETURN W RETURN CODE RETURN W RETURN IF PAUSE CODE RETURN [D]t RESTORE MERGE OR PRINT :CODE CLS ATN (*VAL CLS ~ATN LINE L CLS RETURN LINE p CLS RETURN LINE ▖ CLS RETURN LINE ] CLS "VAL CLS ![O] CLS ^ STEP [B] CLS # SAVE *AT CLS :VAL$ CLS ▗_>?[D]_ STEP [B] CLS !INKEY$ CLS ^ STEP [B] CLS # SAVE LET STR$ MOVE LLIST GO SUB M:/[PI LINE INPUT ▛!SIN CLS NOT C CLS :/[PI>=! FLASH CLS NOT C CLS :/[PI LINE !U DRAW "VAL CLS >2CODE CLS <> STEP [B] CLS CODE 2CODE CLS 2INKEY$ CLS NOT CONTINUE IF #~2POINT CLS #~2SCREEN$ CLS #~2ATTR CLS #NOT CONTINUE IF #~2[O] CLS #~2[P] CLS #~2AT CLS #~2INKEY$ CLS #NOT CONTINUE IF #~2[U] CLS #NOT CONTINUE IF OR CLEAR COPY GO SUB Q CLEAR IN GO SUB YSTR$ <>t?tddtU DRAW d d d ddddddddddddddd COPY [M] LOAD LOAD BORDER RANDOMIZE CLS RANDOMIZE DRAW BORDER © BRIGHT LOAD LOAD GO SUB CLEAR CLS CLEAR RETURN BORDER q BRIGHT INPUT no= FLASH ABS OVER BORDER q BRIGHT INPUT .- THEN [N] DEF FN BORDER q BRIGHT INPUT NOT [N] DEF FN BORDER q BRIGHT INPUT NOT [N] DEF FN BORDER q BRIGHT INPUT N@l= OPEN #[N] DEF FN BORDER ©[M] LOAD CAT USR l RANDOMIZE NEXT [N] DEF FN COPY ©[M] LOAD CAT USR l RANDOMIZE NEXT [N] DEF FN ©q BRIGHT INPUT N@l= OPEN #[N] DEF FN q BRIGHT INPUT NOT [N] DEF FN q BRIGHT INPUT NOT [N] DEF FN q BRIGHT INPUT THEN [N] DEF FN q BRIGHT INPUT FLASH ABS OVER <=q OUT INPUT CLS CLEAR RETURN COPY CLS LOAD DEF FN CLS RANDOMIZE DRAW ~ STEP pAT NEXT 1IN ]:/[ATN ( STEP CAT ]NOT RUN !5 MERGE 2 COPY ~ AND 0# SAVE CODE 2[Q] CLEAR STEP 2 OPEN #> INPUT 2[Q] CLEAR CHR$ z RETURN !@ STEP RETURN POINT .. GAME CREDITS .. COPY !▗@ STEP RETURN POINT DESIGN,CODING & GRAFIX BY COPY ! DIM @ STEP RETURN POINT .. TWILIGHT .. COPY !cH STEP RETURN POINT PUBLISHED UNDER LICENCE BY COPY ! OR H STEP RETURN POINT .. HI-TEC SOFTWARE .. COPY !CP STEP RETURN POINT (C) 1990 HANNA BARBERA INC COPY ![T]P STEP RETURN POINT (C) 1990 PAL DEVELOPMENTS. COPY NOT ; COPY !ASN DRAW 1VAL$ [O]> MOVE >_ GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]=CHR$ ▘ RETURN 1IN ]![U]@ STEP RETURN POINT (1) .. KEYBOARD CONTROL COPY !$H STEP RETURN POINT (2) .. KEMPSTON JOYSTICK COPY ![U]H STEP RETURN POINT (3) .. INTERFACE II COPY ![U]P STEP RETURN POINT MUSIC BY .. SEAN CONRAN COPY !%P STEP RETURN POINT . LAST SCORE: 0t . COPY !,"[H] COPY > RUN FLASH RETURN NEW LINE FN COPY > RUN FLASH RETURN NEW LINE FN COPY > RUN FLASH RETURN NEW LINE FN COPY >▟ FLASH RETURN NEW CHR$ [G] COPY > CLEAR FLASH RETURN NEW CHR$ [G] COPY >© FLASH RETURN NEW CHR$ [G] COPY > OUT FLASH RETURN NEW CHR$ [G] COPY > CLEAR FLASH RETURN NEW CHR$ [G] COPY > OPEN # RETURN ><>26! CLS v NEXT +"[H] COPY }TAN CHR$ A COPY NOT [M] CLEAR > RUN FLASH RETURN G NEW LINE FN COPY x NEW LINE FN COPY x NEW LINE FN COPY z27NOT RUN FBEXP t NEXT 1u]!COS READ z]F GO SUB VAL NOT z]!FN aUSR ] RANDOMIZE ▝ GO SUB VAL STEP TAN _!USR :USR PRINT > CLEAR © GO SUB y LET PEEK (> CLEAR © GO SUB y2/[NOT u CLEAR CODE 2/[NOT u CLEAR
