| Is a part of release: | The Vindicator |
| File size: | 24832 |
| md5: | e442114350a919bed2c3d0c8d3fdf0e7 |
256
023900: COPY COPY COPY COPY COPY COPY COPY COPY COPY 1PIa!@@ COPY u GO SUB VAL CODE OPEN # RETURN 2>/2k/! SAVE PI RESTORE GO SUB [ POKE /= INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE INVERSE SCREEN$ " LINE 115616 LINE ASN ^ASN ^INCDE4LDHL,VECT+2g OPEN # STEP y GO TO STEP v RESTORE STEP INPUT >G!h OPEN # STEP ▞ POKE :]2 RANDOMIZE LIST 2 IF LIST !" IF / STEP DRAW SAVE NOT VAL RESTORE *O/"W/#"S/"K/6#"Y/6#6 NEXT >+ GO SUB O GO SUB O GO SUB O GO SUB O GO SUB OCODE INVERSE &FN INVERSE ./ INVERSE RESTORE LLIST INVERSE &@ INVERSE . COPY INVERSE }/ INVERSE o INVERSE RESTORE MOVE INVERSE & COPY INVERSE . CLEAR STEP NOT 3>o THEN LOAD g THEN [E] THEN AT THEN POKE /FN GO SUB _VAL$ /AT TAB FN POINT SCREEN$ ATTR INVERSE AT INVERSE TAB CLEAR TAB CLEAR AT / RESTORE INVERSE LLIST INVERSE w#zCOS OUT M[S] RANDOMIZE /[A]U ERASE ▗I AND ▖XUSR {qP INVERSE CLEAR [S] BRIGHT 2{▛[ BORDER STOP 'V LET /[D]▖! VERIFY [G]9 GO SUB YX AND 2gJ CAT CLEAR [O] ERASE RESTORE j Z^L DEF FN W[O] STEP F` CAT Y CLEAR )Co#2ft1 LFN G5& LLIST ASN PAPER DRAW EXP [S][G]@VAL$ r RANDOMIZE w"[U]TAN TAN TAN TAN NEW [G]o RETURN [E]em STOP [M] PAPER [U]9 NEW W0[E]6fSCREEN$ &[G]AT ▙X^©[U]▗aTAN ▚dwK&TAN VERIFY PAUSE READ PAUSE BEEP PAUSE SQR XN6m STOP [U] RUN t PRINT IF LET PAUSE NEXT DATA [E] BORDER [E] IF TAN NEW TAN [D]V OVER [U] VERIFY [U]LyMJhR IF k[G]n▜ TO [L]P DIM jATN <NOT INK TO y(JVAL$ LLIST MERGE READ OPEN #[Q]ACS ov% BRIGHT #[R]E BEEP V▘(3/ READ BEEP ▘ TO LET |ABS VPH POKE +POINT LLIST q{^ THEN S<>k9[S] NEW POINT COS READ BRIGHT PRINT ▙IN <># ERASE ▛FN ABS l: OUT ▜ TO MERGE CLS + OPEN # PAUSE v{[F]s[F]c[F]{[F] BORDER [B]n PRINT [F]z▗▞ABS ABS J▞vK[F]1g[R]'POINT STEP RND9 CLEAR >LEN ▛ RESTORE zASN ▝▛ovTG[P]ATN ;[D]9[D] SAVE [D]Y STEP N=[U][N]k VERIFY CLOSE #▝ FORMAT [N] ERASE COPY [F] LPRINT [F] LET ASN RANDOMIZE [F]xwEXP ▟#X6KoS CLS T RUN PAUSE LIST CONTINUE WACS ASN VERIFY ) BORDER s5d FOR Q FOR b BEEP vTAN BRIGHT ▛[H], INPUT VAL$ [E]▘▖ COPY [O]bSQR GO TO LINE [L]]aSGN A4RLN 8 RETURN ACS <=R7-[S]▙[P][O] LINE NEXT FLASH 'I DEF FN z CAT ▚▟VAL$ /FN CIRCLE b[H]% PRINT BEEP 7$4▖[F]LN CAT SQR SGN CLS REM u STOP LPRINT SQR [F]SGN <=q LET [J]VAL$ 2Tl VERIFY CATTR STEP ] STOP SGN >=▘jEXP p LOAD POKE ASN r READ ;Zu/NIi}[I]c|@Ot-xLN b LPRINT LEN C[M] DRAW SGN AT [G]y NEW MsPLEN POINT LOAD IF RESTORE u PAUSE ▘F LPRINT DIM ▝ AND ` COPY ©LN GO TO *LN z+NOT [K] OVER ▟ PRINT [I])[T]d BEEP RETURN STOP [B]* DIM AT ][U]<= FOR SQR [C]sACS RESTORE N GO SUB VAL !LN SQR <CODE ACS WINT <>bSTR$ ▗5[M]IN @COS LINE KN CLEAR RESTORE ▖VAL [D]▜ INPUT O ERASE STR$ INK ]Tw[I]k[T]&U RETURN ]`[B]hkAT &<=ATTR LN VAL QPOINT CHR$ READ |TAB ACS RUN VAL [R] IF FLASH TAN INPUT CAT >=EXP [C] NEXT TO ABS ▚<=USR LEN FOR BIN [F]PEEK OUT ▞ LINE INKEY$VAL LLIST RANDOMIZE BEEP [B] FLASH SQR [E] RESTORE DEF FN CODE CIRCLE SAVE ▜IN AT NEXT TO <> RESTORE RND$ GO TO PAPER ▛ GO TO BEEP CAT GO SUB ▘ CIRCLE LIST [I] MERGE INPUT POKE CHR$ PAPER BORDER GO SUB RANDOMIZE [U] PAPER STOP [J]CODE DATA `RND INK MERGE ▞ PLOT AT [R] STOP INPUT DIM PEEK IN POKE PUSR {U$n*/u=Jf>O▘ ERASE PI RETURN FLASH MOVE NOT [C] INK FLASH PLOT OVER BEEP [O]TAN AND ▖ LOAD [T]SGN THEN IF [B] STEP INT ▜ACS [Q]NOT SAVE REM ATN LET ERASE LEN o GO SUB <=CHR$ IN PRINT [H]INKEY$ LIST PRINT ATN INT CLS ▟[U]<= INVERSE LET [N] ERASE AT [N] NEW INKEY$>= DATA GO TO EXP $ PLOT OPEN #[M] CONTINUE RUN STEP ABS [P][C] CIRCLE [F] LPRINT OPEN # COPY [J]FN USR CLEAR ▜ SAVE OPEN #SIN ▟ DRAW CODE READ m[M][U] INK [Q][A][O]LN AND ▘ LET TAB PI STOP 7ACS r4IfXZam(Oa2Ny[G]COS LEN FORMAT FN VAL RESTORE OUT VAL INPUT IN ATTR DRAW ATTR OVER STOP [Q][T] VERIFY NEW PRINT EXP OPEN # DIM TAB POINT STR$ RESTORE [U] NEW FLASH SIN z CLEAR [U]SCREEN$ TAN ▛ DATA VAL NEW STOP MERGE LEN [C]▙PI PAPER AND [P]▜INT TO LOAD LPRINT POINT MOVE COPY ▟EXP "[C] IF VERIFY ▛[L]▗[S] CIRCLE ▘[P] OUT [P]▗SGN RETURN [N]VAL$ OR CONTINUE LPRINT [L]SQR AND REM ERASE [J] RUN OPEN #[U]▙ OPEN #▛ PLOT LN SQR [H] LET CLS EXP BRIGHT [B]%CODE z4Aybi<Vq3AmPIc[B] MOVE SIN [P] BEEP FN OR STOP MERGE NOT [D] BRIGHT STR$ [F] PAPER ABS ▙INT RND INK CLEAR ▚[U] CIRCLE NEW AND FN NOT ▛[N]SCREEN$ IF FLASH SQR k INPUT VERIFY VAL$ INVERSE ▟[G] BEEP [I] FLASH <> CLEAR ▟SGN STR$ CAT GO TO COPY ERASE FLASH CLEAR [E] CAT STEP PRINT [N]EXP I[N][D]PEEK [N] REM VERIFY CAT [F] RUN BRIGHT COPY LPRINT >= INPUT [A]TAN DEF FN LPRINT GO TO [G]LN INVERSE ▟ POKE <= DATA x LIST IN CHR$ LPRINT CLOSE #▖ COPY [Q]>=[K] GO SUB CONTINUE PEEK BEEP READ #RNDw&W53b?LPBy DATA <=SQR [O] CLOSE #POINT LEN ▛ INK ACS PLOT LEN [Q] NEXT BEEP TAN BORDER ▛[T]PI TO LLIST [M]INT ABS ▙VAL POINT OR STOP ▗LEN LLIST PEEK SGN p DATA ERASE [S]SIN POKE [P] FLASH [A] DATA FN VERIFY PRINT ▙[R]<> DEF FN [J][D]ABS >=[N]▜ OPEN #[Q] CLEAR ▛LN P PRINT DRAW VERIFY [P]▙ BORDER FORMAT >= GO SUB [O] ERASE [M]▟ MERGE CONTINUE POKE LEN STR$ DIM [F]PEEK COS FOR ▖IN POKE [H]LN BIN DIM MERGE [M] RETURN TAB [U] GO SUB [L]PEEK VERIFY READ 5[S]s<Gni-]{9U$R GO SUB <=CODE [L] PAPER STR$ [S]▙z LINE OR [J] BRIGHT [Q][A]FN INK ▟ LOAD CAT >=EXP [D] PAUSE STEP SGN ▜ AND STR$ OVER DATA [N] OR NEW PAPER IN u▖ THEN [T]PEEK BORDER PAUSE [U] STOP ACS CAT NEW [A] CAT PAPER AND [I]INKEY$ OUT PRINT NOT [R] LET COS $[P] IF <= RANDOMIZE ▜ LET [S] OVER [I] OR [E] LPRINT CAT PAUSE [A]TAB INVERSE ▙ GO TO ▝ACS STR$ DRAW <=▚ LIST THEN SCREEN$ CLOSE # COPY [O]IN ABS DIM POKE [S]VAL [G]%FN r5IP_e NEW BIN FN ▖ LINE CHR$ [U] LLIST DEF FN BEEP [O] BEEP MOVE ▛ CLOSE # FORMAT PAUSE INKEY$CODE <> READ LET AND OVER RUN OR INKEY$ AND SAVE ▖FN SAVE LINE INVERSE z RESTORE BIN STR$ POINT LPRINT NEW INKEY$ RUN VERIFY EXP [G] BORDER TO TAB TO PAUSE RNDVAL$ CLEAR ▟CHR$ OR PLOT [L]ABS &[B] DIM OVER [B]▗ NEW <=PEEK [L][L]ASN ▚ INK PRINT PLOT [R] INK INPUT LLIST [O][S]LEN REM TAN DATA o[M]PEEK POINT ▙COS ▞ COPY SQR RND RUN [O][Q]INKEY$[F]6ACS k;WgQ?9D4+l[A] BEEP TAN RETURN STEP <=NOT ▗CHR$ VERIFY ▘ CIRCLE NOT CLS POINT STR$ RESTORE [M] DEF FN CODE BEEP LLIST PAUSE RND MERGE POKE AND RND MERGE CONTINUE [R] LET STEP OVER n LLIST BEEP SCREEN$ INVERSE REM STOP ASN IF DIM ASN INVERSE [F]▚[Q] BRIGHT STEP CLEAR ▝ ERASE >= IF ▝NOT CHR$ DATA [I]BIN & RUN OUT ▟ LOAD LIST [S] BRIGHT [L]LN LET LPRINT SQR [K] PRINT BIN CODE ▙[I] GO SUB INVERSE [S][P] PAUSE OVER [F]▗PEEK INK GO SUB ABS [B] LET INK >= READ ▘[N] TO BEEP [G]PUSR zU$niX3m/ SAVE F`[B]R;$ TO COPY COPY [J]dABS TO Sk[B] FORMAT COS PAPER [Q]y OVER O SAVE LLIST ▜STR$ [E] INK SGN BT REM DATA PRINT RETURN {FN } RANDOMIZE ▛@4ASN { CLOSE #IN <= CLEAR ▞N[D]ABS r CLEAR <%[F]"r= RETURN [B]NOT OPEN #d MERGE PI[K] CLOSE #c POKE / POKE [A][S] CIRCLE j5 GO TO CLOSE #r[G]CHR$ ▘v INK DIM SQR N BORDER SCREEN$ LEN } LOAD >POINT LN o RETURN iEXP COu SAVE DIM MOVE POINT OVER ^YeLN 6[M] CIRCLE [E]s INPUT FN [K] OVER = DATA EXP COS <=SINT BORDER ▗RND CAT y▛NOT QmINKEY$X FOR LIST VAL VAL$ RETURN ix FORMAT ERASE VAL [J]k OVER ;COS TAB ▛COS LPRINT CLOSE #SIN [U]▞][D]ABS <> DIM ▙ READ STR$ +w[F]KB,+ ERASE [C]U STEP NEW ^ FORMAT REM SGN /o: PAPER :[[M]EXP G[E]▖[S][I]CCHR$ ▗[H]SQR COPY DEF FN SGN DRAW DIM [K]▙$ TO OR [T]2LN FN [K]CODE OR s>=s` IF STOP gCHR$ MOVE IEXP S ▛N[A]I3[R][O]Mp▖tUNOT COS LIST CONTINUE VAL$ SGN PRINT SCREEN$ 6[T]CHR$ & INK { OR [J][O]CODE t OR DRAW d NEW RUN [I] NEXT 1 STEP POKE BIN ,[S]8% ERASE [N]o RETURN REM -YLEN ACS "9Ho&/BIN <wkP/c"RPI COPY CLEAR T[A] @@ COPY CLS POINT DATA TAB r2 CLS x DEF FN ▗5-@@[A] CONTINUE %em RETURN RANDOMIZE INK LLIST F[L][U] CLOSE #[Q]U^<>D<=qASN INVERSE O7`COS DTAN `SIN I[E]NOT USR Q[N]EXP LOAD MERGE [N]JB<=>t SAVE pPI INPUT [A]NOT @USR !A[E]M[Q] CLEAR VERIFY [K]@ U1/@I[Q]▞ CLS i BEEP CODE e'J>=B▞ DIM L[R][A]L VERIFY ml COPY COPY CSIN CONTINUE P USR CIRCLE @+`(S▙INKEY$B[T][U]INKEY$ FLASH USR ] VERIFY DIM [U] CONTINUE EUSR @| STEP PAPER ACS NEXT B}AUSR SGN GO SUB BORDER `[I]XD RETURN >= LPRINT RETURN }BIN M▘[E]bTAB POINT D0[G][B]DUSR USR @[Q]STR$ ? COPY ACS VERIFY cASN ERASE COPY PAPER `@ GO SUB ABS @[R]y RANDOMIZE NEW COS }PINOT FLASH $@Q▖ IF @0AT %COS TO ▗ POKE z▖ REM 'USR h%,BIN [Q]N T THEN i CLS [S])[A]hq[N]<>" FORMAT Hd OUT 1U$@▙ TO [I]? LPRINT PRINT CLS P READ 5 PAPER ?[D]▟ TO /yJ[F]ABS Z▘D6FU$ OVER CIRCLE BORDER POINT OPEN #p[O][R][A]" RUN @FYWY>=X&LN OUT PIOLEN [A][D][Q]& RANDOMIZE 5[B]tH$ BRIGHT [D]F q@;[U]2@1% AT H^▞[Q]© LIST ©FN [U]LaH LLIST ▝AT ▗VASN COPY BORDER RUN POINT sABS CODE PLOT 6 FLASH $J[R]# CONTINUE [Q]R[J][C] RUN SQR [O] CLS INPUT [R] OPEN #f STOP ▚a)$u NEXT ^u MOVE x7M>=U#P CAT }( ▘VAL @$%00~COS ▝ PAPER 8 RETURN <[T]P COPY LIST LOAD IF bQcTB OUT `[F]Mbp [Q]'7▗o OUT RNDPEEK [Q]ASN PLOT COPY LA@FAT $ STOP VAL FN 1 FORMAT COS z RETURN REM M©,>=# AND @ VERIFY [D]0▗ FORMAT LPRINT }SIN ▝ DIM ▗ READ SIN %`SIN B▟R[R] RANDOMIZE [A][A]4@ D )~ ATN [A] AND 5Z BEEP DIM COPY SAVE ▛ RUN USR [Q] MERGE INT <>▙ BORDER OPEN #[T]!y$e STEP B OR o REM sT[F]USR ]>=▗ATN @INKEY$?[M][H]IN k&[T] OVER >=& NEW CONTINUE 1Y▗B[U]D[T]ATN @5K CLOSE #6 OR aZSHgl 1% ,USR DD BEEP `2FN LPRINT EcATTR NEW BRIGHT COPY SAVE W COPY fT[, TO LOAD ~JASN ~SIN USR [A]1CODE ▗ FLASH [U] LIST MERGE INPUT STEP INT LEN [S][Q] LINE y~ OUT h&4 STEP 6[A] INVERSE ▝▝CHR$ STOP ▗ NEW CODE r TO [D]u[U]JUSR [C]h[I]Q▚BIN PSQR [I]2[M]A▝? LPRINT USR EA@V=>a COPY SAVE A BRIGHT ▗rG[U]' INK COPY SAVE >[G]T COPY @[> COPY LPRINT @▝ CLS DIM [U]▜ COPY RETURN IF ( COPY RETURN ▘▖▞} SAVE RETURN @? COPY COPY LIST ` COPY USR SAVE LIST LET D COPY COPY RANDOMIZE RANDOMIZE COPY RETURN @F COPY LPRINT COPY USR CLS DRAW COPY DRAW ? COPY COPY RETURN 7 COPY COPY LPRINT "© COPY COPY COPY COPY USR COPY COPY @y COPY COPY RETURN COPY COPY USR >I COPY d R READ "NOT COPY SAVE B#! SAVE ▗ COPY ▛VAL$ © DRAW B"`O TO FLASH COPY COPY $1 COPY RETURN I[A]VAL RETURN COPY USR ? COPY COPY LPRINT kd COPY LPRINT SAVE SAVE LIST COPY COPY CLS PAUSE COPY SAVE ▖ COPY ? COPY RETURN ? LLIST COPY RETURN @© COPY COPY DRAW COPY COPY LPRINT ? COPY ! COPY COPY COPY COPY COPY @x COPY COPY DRAW LINE COPY COPY LPRINT ©)K COPY COPY DRAW < POKE ▚ MOVE l READ q[F] COPY SAVE ! VERIFY e[E] COPY B THEN RANDOMIZE COPY RETURN $▚o[A][S] COPY COPY ▘: COPY PISGN ? COPY COPY USR ? COPY COPY LIST 1 FORMAT COPY LPRINT LIST DRAW LIST COPY DATA COPY SAVE (H COPY COPY RETURN ? COPY COPY READ COPY RETURN @© COPY COPY SAVE COPY COPY LPRINT ? COPY ! COPY COPY COPY © RETURN @x COPY COPY RETURN ▚iS COPY COPY LPRINT COPY ▞+ COPY COPY DRAW ~ PLOT MOVE <>2L[I]@"=© SAVE TI6@▗jo COPY COPY p! [J]>= COPY VAL$ COPY 2USR ▝ COPY COPY NOT COPY USR © COPY COPY LIST +>= COPY LIST SAVE DRAW DIM COPY BIN COPY LIST ▟0 COPY ? RETURN ? COPY ? READ COPY COPY LPRINT © COPY COPY SAVE COPY COPY LPRINT ? COPY ![T] RETURN COPY COPY <=© RETURN DRAW COPY COPY RETURN [T]=1 COPY COPY LPRINT COPY ▞©G COPY COPY RETURN COPY RETURN READ ▟d[G]© SAVE b,d▗@@ COPY USR [T]d TO COPY COPY LIST ▗<<>T COPY t COPY LPRINT t▘▗ COPY COPY READ RUN USR © COPY COPY LIST FOR < COPY LIST DRAW NOT DRAW USR COPY >= COPY LPRINT IVAL COPY COPY DRAW DRAW ? COPY SAVE BORDER COPY COPY RETURN © COPY COPY SAVE COPY COPY LPRINT COPY ![T] RETURN ? COPY <=© DRAW DRAW COPY COPY DRAW LEN [O][A] COPY COPY LIST © OR O© BEEP COPY COPY RETURN COPY NEXT RETURN EAT wFN j[I]▗ LIST SCREEN$ ▝(STR$ SAVE COPY @ RETURN CLEAR ? COPY COPY SAVE Drj COPY < COPY COPY 6 LPRINT INPUT COPY LPRINT pUSR . COPY COPY NEXT LLIST USR © COPY DRAW Hd COPY LIST RETURN ? DRAW LPRINT COPY VAL COPY LPRINT COPY COPY DRAW RETURN © COPY LIST COPY COPY USR © COPY COPY DRAW COPY COPY USR COPY $ FOR RETURN I COPY ▜ OVER ? CLEAR AT POKE COPY COPY DRAW / RETURN INK COPY COPY LIST ? BORDER _ COPY OUT COPY COPY RETURN COPY NOT DRAW k x[I]"<=} FOR COPY LPRINT [A]VAL MOVE ( INPUT LIST RETURN COPY ▝L OUT SCREEN$ © COPY COPY DRAW [P] LIST DRAW < COPY COPY USR p[C]IN COPY IF SAVE CONTINUE ▖ COPY COPY RANDOMIZE LIST COPY DRAW LEN COPY LIST RETURN SAVE RETURN @ COPY COPY LPRINT ? COPY COPY DRAW RETURN © COPY LIST COPY COPY @{ COPY COPY RETURN COPY COPY COPY d CLS RETURN [[P] COPY [H][P] RETURN PLOT PAUSE COPY COPY LET COPY LIST ? READ OUT COPY LOAD COPY ▞ SAVE ▚ CONTINUE RETURN >=[D]L COPY LPRINT : @ LPRINT >x STOP [Q] RETURN COPY [A]% INVERSE © COPY COPY DRAW <=h DRAW x@? COPY COPY LIST VAL$ CIRCLE COPY IF SAVE LIST L COPY COPY RANDOMIZE SAVE COPY 7 COPY LIST RETURN ` DRAW © DRAW @? COPY g COPY COPY LPRINT © COPY COPY © COPY LPRINT COPY DRAW @y COPY COPY RETURN COPY COPY USR H COPY d COPY COPY ][P] COPY S[O]_ DRAW M~x COPY COPY RUN COPY SAVE © COPY SAVE COPY COPY COPY COPY COPY COPY COPY COPY r INK prpprpprpprpprprprp8pprp8prprpprrpprrp88pprrp8prrprpprrp88p88pprp88prp8p88p88pprp8p8p88p88p88p@ COPY @@!@[M]~ATN >=O# GO SUB VAL ~#PI( POKE RESTORE bkO GO SUB VAL LLIST DIM 0 RETURN 8>|~ COPY FLASH COPY NOT BORDER COPY ~6©©©>f[J]f[J]<?f?00???0>go{s><?>c>`©>c<l©©`~c>>`~cc>©>c>cc>>cc?>0??>c>o©©`>>gg©ss~g~ss~>c`ps>|fccf|©`~pp©©`~`pp>c`oc>cc©ccc?cc>flxlfc`````©cw©cccgw{ows>ggss>~gg~pp>cc{o>~gg~vs>p>g> COPY ggcss>cccc6cccc©6c66cNOT f<©0©`0xx<~ COPY <>f>00>33>000>ff><f|`>>ff><``|fff8<60<88<6~~~~|ffff<fff<|ff|``>ff>0000<`<|<fff<ff<<f~~~<f<<ffff><~0~8x<>c INVERSE LET LET INVERSE c>NOT [U]USR !▙<="VAL$ USR !>="CHR$ !<>"RNOT >2RNDUSR 2CHR$ 2INOT 2 INPUT STR$ <>>=2RNDUSR CHR$ GO SUB STR$ !AT <=~#PI( DEF FN RETURN PAUSE 2INT USR *TAN AND NOT VAL USR RETURN ~#2INT USR "TAN AND NOT VAL USR RETURN 1>N STEP [J] AND y2[O]BIN 2LEN AND 2INT AND #~2RNDBIN 2TAB BIN #~2 OR BIN 2 STEP BIN 2 ERASE BIN #~2 STOP BIN #~2 REM BIN #NOT VAL USR RETURN CODE 2 VERIFY STR$ NOT VAL USR RETURN >2 VERIFY STR$ NOT VAL USR RETURN ~2[D] OR 2 MOVE STR$ #NOT VAL USR RETURN ~2ABS AND O> STEP [J] AND #~2IN AND O> STEP [J] AND #CODE 2 LINE OR NOT VAL USR RETURN CHR$ _STR$ ~2[O]STR$ #NOT VAL USR RETURN CHR$ pSTR$ ^#V#"USR AND MERGE LLIST NOT VAL USR RETURN CHR$ {STR$ *USR AND NOT VAL USR RETURN CHR$ [A]STR$ ~#2 AND 2 AND ~#2 AND NOT VAL USR RETURN CHR$ [N]STR$ ~#2AT STR$ NOT VAL USR AND AND VERIFY _2 AND CODE 2 AND >PICHR$ COS STR$ ~#2RNDUSR "VAL$ USR !ACS AND >N STEP [J] AND #~2CODE OR OCODE STEP [J] AND >2[D] OR >= :INT AND 2LEN AND 2[O]BIN : STEP BIN 2 ERASE BIN CODE 2[Q]STR$ >= LINE CHR$ 2 INPUT STR$ =CHR$ CHR$ :ABS AND O> STEP [J] AND >=2CHR$ CHR$ HNOT !ATTR >=~#PI LINE USR RETURN LET 2CHR$ *ACS AND NOT CHR$ RETURN ~#2CHR$ "ACS AND NOT CHR$ RETURN )~2 OR 2SIN AND 2SQR AND O> STEP [J] AND #~2 OR 2 OR #~2+ OR 24 OR #~2D OR #NOT CHR$ RETURN CODE 2;NOT NOT CHR$ RETURN >2;NOT NOT CHR$ RETURN ~2ABS AND O> STEP [J] AND #~2IN AND O> STEP [J] AND #CODE 2 LINE OR NOT CHR$ RETURN CHR$ AT CHR$ ~#<2 INPUT STR$ 2PEEK AND NOT CHR$ RETURN CHR$ EXP CHR$ ~2 SAVE CHR$ #NOT CHR$ RETURN CHR$ LINE CHR$ ^#V#"CHR$ AND MERGE LLIST NOT CHR$ RETURN CHR$ MERGE CHR$ *CHR$ AND NOT CHR$ RETURN CHR$ REM CHR$ ~#25 AND 2B AND ~#2I AND NOT CHR$ RETURN CHR$ RUN CHR$ ~#2NOT NOT CHR$ AND VERIFY _2O AND CODE 2G AND >PICHR$ NOT ~#2CHR$ "CHR$ !ACS AND >N STEP [J] AND >#N STEP [J] AND :PEEK AND 2 INPUT STR$ = LINE :NOT :ABS AND VERIFY O> STEP [J] AND >= :SQR AND 2SIN AND 2 OR >=2INOT CHR$ [N]BIN !F<>~#PI LINE USR RETURN LET 2_NOT *LN AND NOT TNOT RETURN ~#2_NOT "LN AND NOT TNOT RETURN )>N STEP [J] AND y2K OR 2COS AND 2SGN AND #~2R OR 2[ OR #~2s OR 2| OR #~2 OR #NOT TNOT RETURN CODE 2[A]BIN NOT TNOT RETURN >2[A]BIN NOT TNOT RETURN ~2ABS AND O> STEP [J] AND #~2IN AND O> STEP [J] AND #CODE 2 LINE OR NOT TNOT RETURN CHR$ GO SUB NOT ~2`BIN #NOT TNOT RETURN CHR$ RETURN NOT ^#V#"BIN AND MERGE LLIST NOT TNOT RETURN CHR$ BIN *BIN AND NOT TNOT RETURN CHR$ #BIN ~#2ATN OR 2 OR OR >2IN AND >2 LINE OR NOT TNOT RETURN CHR$ 1BIN :`BIN 2bBIN NOT TNOT RETURN 2bBIN NOT TNOT RETURN CHR$ RBIN ~#2g AND 2t AND ~#2{ AND NOT TNOT RETURN CHR$ _BIN ~#2nBIN NOT TNOT AND VERIFY VERIFY _2▝ AND CODE 2y AND >*PICHR$ uBIN ~#2INOT "RNOT !ACS AND >N STEP [J] AND >#N STEP [J] AND >= :SGN AND 2COS AND 2K OR > RETURN LINE BIN BIN >=2RNDBIN =>2RNDBIN :LEN AND <2LEN AND 2[O]BIN O> STEP [J] AND NOT DIM BIN >=2 OR BIN >2 OR BIN >2 OR BIN :LEN AND =O> STEP [J] AND y RETURN LINE DIM BIN 2LEN AND >PI(G:RNDUSR LN >2[O]BIN >2 OR BIN 2 ERASE BIN > RETURN LINE * OR >=2 OR CHR$ J OR >2 OR :SIN AND <2SIN AND 2 OR O> STEP [J] AND NOT J OR >=2+ OR CHR$ J OR >2+ OR :SIN AND =O> STEP [J] AND y RETURN (2SIN AND > RETURN LINE r OR >=2R OR CHR$ [C] OR >2R OR :COS AND <2COS AND 2K OR O> STEP [J] AND NOT [C] OR >=2s OR CHR$ [C] OR >2s OR :COS AND =O> STEP [J] AND y RETURN (2COS AND > RETURN =2[D] OR <2[D] OR !POINT AND >< NEW 2[S] OR _~ AND MERGE WCODE J STEP [J] AND > COPY RETURN COPY LINE AND =2ATN OR CHR$ AND >2ATN OR >= LINE CONTINUE OR :IN AND <2IN AND RETURN CHR$ DRAW OR : LINE OR INPUT 2 LINE OR >NOT DRAW OR :IN AND =2IN AND RETURN CHR$ DRAW OR : LINE OR INPUT 2 LINE OR W>J STEP [J] AND >PI LINE 4 AND =2 AND CHR$ 4 AND >2 AND > INPUT 2 AND _>:_!ACS AND >N STEP [J] AND CODE #N STEP [J] AND >PI LINE f AND =25 AND CHR$ f AND >25 AND > INPUT 2G AND _>_!ACS AND >N STEP [J] AND >#N STEP [J] AND >PI LINE [I] AND =2g AND CHR$ [I] AND >2g AND > INPUT 2y AND _>:_!ACS AND >N STEP [J] AND >#N STEP [J] AND <> OR OR CLEAR COPY GO SUB ySTR$ y CLEAR IN GO SUB ySTR$ <> CLS CLEAR CLEAR [Q]<=POINT >=-<>8▖>=ASN >= INPUT <>M▙ PAPER / RUN h LLIST a DIM wPIG GO SUB [I]G DRAW TAN p1 POKE SGN ▚S$ PLOT TO [U]~Z8 IF OVER NOT SCREEN$ [C]{fR?- CLEAR LOAD LLIST MERGE <>PEEK COS POINT [P][G]▙▚©wqjd_YTPKGC?<852/-*(&$" 9=7;9=7;>g LINE 9;=>=69=@GHIBCE;=986489;98649=>=>=98684;;@;969;<;9;69H=;9<79979797979;84H21-/1-$+*(`/49> FOR LINE 8!`!0!!!g LINE !!!#%&% !!#%&% "-!9!9-9-!!-9@;>=@;>C9679;=>@B>=;N=>=;*=997;9`g LINE ! LINE LINE RETURN LINE CLS LINE 8ASN LINE CLS ASN LINE MOVE LINE IN LINE RANDOMIZE IN LINE RETURN IN LINE CLS RUN IN LINE POKE THEN LINE RANDOMIZE THEN LINE CLS RUN IN LINE RANDOMIZE IN LINE CIRCLE LINE CIRCLE LINE CIRCLE LINE CIRCLE LINE CIRCLE LINE CIRCLE LINE CIRCLE LINE CIRCLE LINE CIRCLE LINE 0!0-09/EB?<9630-*'$!9=7;9=7;>9=7;9=7;>!#%&(!!#&%#!!!!89=@E=@9=@E9=0/.-,+*)('&%EILQUX9=@LEILQUX]XU]XUQLIE@=94-!9-!9-9-!9!-98-!9-010/.-,+*)('&89!-9010/.-,+*)('&%© OUT RUN RUN BORDER CLEAR COPY ©oo= LPRINT COPY COPY IN COPY LOAD COPY CLS COPY LN ym OUT PRINT RUN CLS CLEAR COPY COPY ©©IN STR$ COPY NOT COPY COPY IN OUT LOAD RUN REM POINT f LET RETURN PDTCODE RND CLEAR CLEAR ]©IN NOT RUN LIST LIST ? OUT LOAD POKE SIN [S] LET t COPY ▜ RUN PLOT MERGE ▞A@[Q]M RUN X LIST ? OVER (>[T] DRAW ? LPRINT = {2 SAVE COPY RUN CLS CLEAR COPY RETURN _©PEEK MOVE d[A]%] LOAD RUN CLS DRAW ABS ATN ©[K]a> COPY [A]▛[D]G DRAW ▘@© LOAD = RETURN TAN [D]@P$EOO= RETURN ▘X[Q]SCREEN$ )m%n CLEAR '_PI RUN CLS CLEAR COPY COPY ©©IN STR$ COPY USR LIST ? OUT LOAD RUN IF A▜a RETURN PEE} CLEAR _©IN <= RUN LIST LIST ? OUT LOAD DRAW " ERASE # DATA CONTINUE RETURN COPY ▜ RUN RUN RESTORE %[F]UH[R]K RUN ▖ FORMAT ? MERGE (W3 DRAW DRAW DRAW IF q{4 DRAW COPY RUN CLEAR CLEAR COPY DRAW ©© COPY ERASE ATN POKE P+©o RUN SAVE BORDER ©~ PAPER EXP IN RETURN RUN COPY CLEAR DRAW ©© COPY OUT RUN DRAW LIST ? COPY LOAD RUN CLS SAVE LET gpR:x RETURN @@© LOAD = RETURN $KU DATA ABS /USR WOo= RETURN ▘_ RETURN CODE COPY ATTR COPY REM COPY IN DRAW *W RESTORE w CLS CLEAR CLEAR COPY ©©IN NOT RUN LPRINT LIST ? OUT LOAD RUN REM ▜LN UD[H] CLEAR COPY ]^IN <= RUN LIST LIST ? OUT FOR SAVE b REM USR USR LPRINT INK ~ COPY RUN RUN PRINT UTAB IV[Q]Iw[A]/R(ASN OPEN # DRAW 8? DRAW IF } RUN T DRAW COPY RUN CLEAR CLEAR COPY SAVE ©© COPY MERGE RUN DRAW LIST ' COPY LOAD RUN CLS SAVE [P] RETURN © PAPER ERASE OUT C RETURN RUN COPY CLEAR SAVE ©© COPY OUT RUN DRAW LIST ? COPY LOAD RUN CLS SAVE DRAW ?O[N]O~@© LOAD = RETURN _ OUT [H] MERGE RESTORE CLEAR © LPRINT _Oo= RETURN ▘ COPY RETURN IN COPY ATTR COPY IF RETURN o RETURN $_RND BEEP CLS CLEAR CLEAR COPY ©©IN NOT RUN LPRINT LIST ? OUT LOAD RUN REM ▜(pR OR V[Q]UABS U_ RUN LIST LIST ? OUT FOR VAL BINT LIST [Q] STOP 0IN COPY RUN RUN CLEAR u COPY ]OSCREEN$ K IF HP- CLOSE #) RUN OPEN # DRAW ▝> DRAW PLOT ~ RUN d RETURN RETURN RUN CLEAR CLEAR COPY LIST ©© COPY BEEP w DRAW LIST = COPY LOAD RUN CLS SAVE RETURN C© STOP c# RETURN RUN COPY CLEAR LIST ©© COPY OUT RUN DRAW LIST ? COPY LOAD RUN CLS SAVE PAUSE ~P[M]~@ LPRINT @© COPY © LOAD = LPRINT COPY _W MERGE PRINT RUN CLEAR COPY LIST _``CHR$ COPY RETURN CODE COPY CODE COPY IF RETURN )W$ BEEP CLEAR COPY ©©IN NOT RUN LPRINT LIST ? OUT LOAD RUN PAPER gR_ DATA WE[H] FORMAT u DIM I/IN <= RUN LIST LIST ? OUT FN LPRINT C RETURN _Nb LIST } COPY ▗ RUN CLS PRINT } CLEAR M_RNDIT▖[A]'P* RUN NEXT DRAW xz©D RETURN RETURN RUN DRAW CLEAR COPY LPRINT ©© COPY OUT RUN DRAW LIST / COPY LOAD RUN CLS SAVE NEXT RETURN q©ASN q OUT P COPY USR REM COS DATA ~@A- COPY OUT u CLEAR DRAW w RUN COPY j _ OUT RUN BEEP PRINT CLEAR © SAVE ©_ COPY STR$ COPY NOT COPY COPY IN COPY CODE COPY IF CLEAR ▜ RRNDWABS PRINT CLEAR COPY ©©IN NOT RUN LPRINT LIST ? OUT LOAD PLOT ERASE ▘▝ =USR ]<=W IF %[F]QJCODE G RUN FORMAT LIST ? OUT POINT PB RETURN &[I]1 DATA x COPY ▗w CLS CLEAR w COPY ]©VAL$ J"PATTR RUN OPEN # DRAW _po©nX RETURN RETURN RUN DRAW CLEAR COPY USR ©© COPY OUT RUN DRAW LIST ? COPY LOAD RUN CLS SAVE LOAD DRAW ?@* RUN LPRINT PRINT 0@© COPY LOAD o CLEAR CLEAR COPY COPY GO SUB @IN COPY _ OUT BEEP PRINT RUN CLEAR COPY DRAW _© COPY STR$ ©CHR$ COPY RETURN IN COPY LOAD COPY IF INK ▜ Q$ PRINT } CLEAR COPY ©©IN NOT RUN LPRINT LIST ? OUT LOAD RUN [C]SGN 0 OUT BEEP CLEAR E[R]ATSCREEN$ G RUN LIST LIST ? INVERSE FN ▘c RETURN ) STOP 2USR COPY RUN CLS CLEAR © COPY __ATTR H Qo RUN CLS DRAW x LOAD SAVE ;©n MOVE ~ RETURN RUN DRAW CLEAR COPY ©© COPY OUT RUN DRAW LIST ? COPY LOAD RUN CLS SAVE ABS DRAW POKE BIN _ SAVE @{ LIST OVER Q SAVE @ CLEAR DRAW __ RUN RUN CLS CLEAR COPY RETURN ©©IN STR$ COPY CHR$ _ COPY IN OUT CODE RUN IF u▜▚0Td] MERGE CLEAR COPY _©IN NOT RUN LPRINT LIST ? OUT LOAD PRINT RJUSR @ SAVE >=©▜ BEEP COPY RND▝A@[Q]E RUN FORMAT FORMAT ? BEEP (# DRAW STR$ BIN 1 PAPER TAN LIST COPY RUN CLS CLEAR COPY COPY ©©IN CIRCLE AT RATTR RUN CLS DRAW E COPY S}INKEY$PEEK RETURN RUN DRAW CLEAR COPY ©© COPY OUT RUN DRAW LIST ? COPY LOAD RUN CLS SAVE COPY CONTINUE © NEW ▙? DRAW @/ASN SAVE *SCREEN$ [O]ATN G READ h@@ IF CONTINUE [E]ATN OPEN #X@@ REM SCREEN$ IN READ POKE [Q]▜@ FORMAT PLOT THEN LIST PEEK ~/[Q]IN @H@`BSCREEN$ COPY pA@SCREEN$ POINT ?USR @VAL <@ .▜ FORMAT NEW 8@ASN ? IF @5BA @. CLEAR POKE *ASN CLEAR P@@PEEK >SCREEN$ [Q] SAVE (▝▖@@ NEXT SAVE ▝ SAVE SCREEN$ DRAW ~@H@VAL ▜uUSR DRAW 5W LIST @@?USR >P[Q]@ [K][Q]( LPRINT 0@ 9[ COPY [Q]@ BORDER [F]`@~PEEK <= LLIST !a_ COPY DRAW @CODE IF [Q]STR$ LLIST "[B]0p@@USR 40 CLEAR TAB ▚*ATTR LPRINT SAVE @PPLN @▜vUSR DRAW $EXP @SCREEN$ ABS 9h@ / LIST VAL @2CODE ©@8@ REM ▝▝` LIST @<`#EP RANDOMIZE LPRINT (@© LIST LPRINT ~ SAVE ▘@@ LPRINT @{l LIST |*IN READ LPRINT (@P`▙[Q]▜fUSR 4BIN $[B]u MOVE @ RUN YLN 0@ CLOSE #[M][Q]@( COPY @@ BORDER [Q]U LPRINT LPRINT @ LPRINT 8/@ATN DRAW XBIN @~© LIST ©POINT LIST BIN @@@/ LIST LPRINT LINE SCREEN$ CLEAR B@0 PAUSE ▖ LIST ▚T[Q]u LPRINT 4H[C]$0 LPRINT @BZ PLOT LIST <8@pUSR @@< STOP PEEK @? FOR LPRINT !USR @▘IN STOP NEXT W DATA ▘z@^ COPY DRAW @ COPY INK 8@$/X RESTORE |CHR$ SCREEN$ CODE REM P|@ CONTINUE [A]%*@hW")>=,@IN >= NEXT 8@@ [A]@ COPY BEEP !@ LPRINT USR @CHR$ SCREEN$ SAVE ▗SCREEN$ IF ▝@h< COPY [O]Uy|>@$ TO AT ASN ~c IF ! LPRINT @4 ` STR$ + LPRINT X SAVE 8@@[VAL p8@[Q]VAL SAVE @ LLIST @[P]n! LPRINT © LIST @ STOP SCREEN$ CODE LPRINT SAVE >▗%]" COPY @P CLEAR COPY AND USR W0 LPRINT % LPRINT LPRINT @( SAVE J DIM SCREEN$ [S]AT _ MERGE !@9(USR ?[I]BIN LPRINT LPRINT @@/@ LPRINT x8@ TO [P]/ LPRINT @) @ PLOT " LIST O@ INPUT b LIST @IN LET FORMAT LPRINT @ DRAW COPY LPRINT LPRINT @4 COPY IF NOT USR NOT <@ LIST GO SUB >=~[Q]▝} LPRINT ~[Q]rD4! COPY LET IN $k COPY //PEEK _ CONTINUE MERGE } RANDOMIZE GO TO y$[D]@;LN COPY [A] IF LPRINT ▖ COPY LOAD COPY / RETURN b LIST LPRINT @IN LOAD FORMAT | LPRINT @ LLIST COPY BRIGHT LPRINT @z CLS DRAW (CHR$ USR (@ REM x@[U] BEEP BIN PRINT HIN LIST PRINT Hxaz# COPY BORDER W DRAW ==W>= POKE r[S][Q]$ PLOT ▖[J]r_@*FN IN COPY , LIST D_ COPY RETURN PEEK RUN COPY LOAD INPUT d@ LIST @© COPY FORMAT CONTINUE LPRINT @ COPY OVER USR USR @t COPY LN OR USR ` LLIST ▝▖@@- LOAD ▗ REM [F]_ LIST REM GO TO "VAL USR LPRINT T COPY PAPER LET © k RETURN >vv[R]FN g▖H GO TO @[J]1©[I] RETURN LIST " COPY COPY 8 CLS SAVE _' DRAW DATA @ LIST PRINT INT 8@ COPY COPY FORMAT P USR @ COPY BRIGHT ▙USR @y CLEAR LIST ▘CHR$ USR [A]@[A]? FLASH ▗P STOP IN SAVE P BEEP FORMAT X < CIRCLE y COPY RETURN %IN 5 COPY DRAW CLEAR CLEAR ! ERASE CLEAR @ RETURN GO TO >L▝ RETURN :FN > COPY x3 COPY CLEAR CLEAR COPY OUT USR g DRAW DATA @ LIST (@p@ COPY CLEAR USR @@ PAPER LN USR @ SAVE @AUSR LPRINT [Q]▝USR @@kIN $ RANDOMIZE _ LIST $JFN BORDER INKEY$t RETURN IN COPY SAVE ^ SAVE [I]^ SAVE REM ! POKE INPUT CHR$ NA CLEAR FN 8 COPY | COPY RETURN ?0w DRAW >=@ LIST h@ COPY NEXT ▘@ LPRINT @ RESTORE 545▛USR @x RUN LIST B STOP LPRINT T@▖ BEEP OUT SAVE `>?USR c LLIST @x= COPY ▚)_ COPY LPRINT UU FORMAT CONTINUE @ LOAD $L NEXT SQR LN COPY PEEK ? COPY CLS 0 COPY : CLS DRAW FORMAT LIST LIST @ COPY ▜USR >@ LPRINT @_ LIST zHjUSR @ LPRINT IF Aq LPRINT IF REM > LPRINT @4TAB IN LIST OR COPY <= CONTINUE 80[Q] RETURN COPY COPY LET x$_ COPY USR FN FN VAL [U][C] INPUT ▝0 LOAD > COPY OUT COPY LIST 0 COPY FORMAT CLEAR RANDOMIZE FORMAT LIST COPY [Q]@ RETURN LPRINT @ SAVE GO SUB CLOSE #[D]USR @ LPRINT CLOSE #JLN LPRINT CLOSE #=▗U% BEEP COPY USR RETURN pBIN u FOR USR RETURN ▙▗[F] OUT COPY PLOT USR ▖[I] LET [P]8 COPY LOAD COPY RUN 8USR COPY GFFGFGEGFFEGGDDFFFEGGEGEFFDFFFEGFVFDFEGFDGFFGFGFGFGFFGFFGFGFEGGFGFGGGFFDGGGBBFBBBGBBDFDBBGBBDDDGBBDFDDGBDDBDDGBDBBDDGBDBBDDBBBGBDBDDBBBhGBDBBBBBBhEGGGhh@!PNOT ~ATN >=O# GO SUB VAL ~#PI( POKE RESTORE bkO GO SUB VAL LLIST DIM 7y BRIGHT z RETURN CLS ( CLEAR CLEAR ©© RETURN CLEAR RETURN CLS (© LOAD LOAD RUN LOAD LOAD RETURN CLS (© LOAD LOAD LOAD LOAD LOAD 00130000AMANDA BARLOW 00002000MARK OWENS 00001000MARTIN MCDONALD00001000JOHNATHAN DUNN 00001000SIMON BUTLER 00001000DAVID COLIER 00001000MIKE LAMB 00001000IVAN HORN 00001000JAMES HIGGINS 00001000JOHN MEEGAN 00001000PAUL OWENS 00001000MARK JONES Dz-zz COPY y CONTINUE y MOVE yINT y[T]yyuy^yGy LLIST #~< # DIM + LLIST ^#V# RESTORE FOR ^#V#><> THEN z(CODE 2SQR z STEP <=z~ VERIFY ATN IF sz STEP [S]z POKE MERGE RESTORE o& GO SUB Ky)))~# IF LLIST # MOVE <>{ AND _ FORMAT z AND W<> RESTORE z NEW AND @gz NEW THEN THEN THEN o FOR LLIST <>?© LOAD <=w> SAVE DRAW RETURN INPUT BRIGHT ,/"ww"wwwwwwwwwwwwww LPRINT [A]hVAL LN VAL ▖ SAVE LN VAL ▖ LIST LPRINT FORMAT [Q]~ATTR 6d$H[I]0 DATA l▚▘[S]CHR$ lp FORMAT RETURN lCHR$ l RETURN lCHR$ CHR$ l(H▖ RETURN GO TO ▚ GO TO CHR$ ll▚ GO TO ▘▘|nBIN l▘▘l▘▘ll▘▘nCHR$ |W8$P( 8L[A]<B<JV^@<l▘▘ INPUT ▘▘▘ GO TO ▘▘ GO TO ▘▘ GO TO l▚▚l GO TO ▚▘▘▘▚ GO TO GO TO ▚ LPRINT ▚ GO TO GO TO ▚ LPRINT l▚▙▚l▘▘▘ INPUT ▘▘▘ INPUT INPUT ▘l▘▘▗ CONTINUE ▗▘▘▚ GO TO GO TO [C][C][C]▘▘▘ GO TO ▘▘▘▘▘▘l▘▘▘▘▘l GO TO ▘▘ GO TO |▘▘▘▙f GO TO ▘▘ GO TO ▘▘▘l▚lCHR$ ll VERIFY ▘▘▘▘▘▘n▘▘▘▘▘D(▘▘[C][C][C][C]n▘D((D▘▘▘▘nCHR$ l INPUT @ INPUT pp STEP [M]:yATN >= NEXT STEP ~ STEP [M]:yATN STEP }0 STEP [H]~ STEP LEN ▘<>>2y!"y OVER STEP g~ STEP [M] STEP }8 LLIST NEW STEP j~ LET STEP 8© STEP ~z*}=} DATA } COPY COPY > RUN FLASH RETURN THEN G( THEN O POKE ATN <>7<>1 LOAD SECTION 1 COPY 2 REPLAY THIS SECTION COPY LOADING COPY COPY SS PL COPY PE COPY FOUND SECTION 1A COPY START TAPE COPY WIND THE TAPE TO THE START COPY OF SECTION 3 AND COPY PLEASE SELECT COPY LOAD ERROR COPY LOADING SECTION 1A COPY STEP 8©>22~>A2~ INVERSE ![ COPY > STEP CLOSE #~>B2~ INVERSE ![M]/}> STEP CLOSE #~ CONTINUE CLEAR INVERSE RESTORE INVERSE LLIST INVERSE RESTORE INVERSE LLIST xLEN NEXT <> STEP 8©>32~>A2~ INVERSE ![ LIST > STEP CLOSE #~>B2~ INVERSE ![M]Tu>ASN STEP 8©>12~>A2~ INVERSE !e FORMAT > STEP CLOSE #~>B2~ INVERSE ![M] DATA t> NEXT 1 LIST COPY STEP [T]~NOT e PRINT INVERSE RESTORE MERGE STEP M©0 MOVE INVERSE LLIST LET <> MOVE INVERSE LLIST LET GO TO 2 RETURN ~ INVERSE RESTORE MERGE INVERSE ! OPEN #~ STEP 0 POKE : OPEN #~ RETURN ~ COPY COPY MOVE INVERSE LLIST STEP <>G< THEN ? AND 02[S]}x NEW INPUT AND A2[T]} STEP ~z[C]} COPY COPY STEP V~USR CIRCLE STEP ~z POKE } COPY COPY ATN <>!@@6 GO SUB VAL 6 COPY GO SUB VAL <> NEXT GO SUB V AND 02>=D INVERSE RESTORE LLIST "BIN D GO SUB S TO D@" LINE D INVERSE | RETURN [ @VAL GO SUB VAL GO SUB sUSR D CLEAR "CHR$ D1 PAUSE ] STEP CONTINUE ©!$^"BIN D STEP !$^[ GO SUB K TO D GO SUB VAL !@ GO SUB [ LINE DVAL GO SUB VAL GO SUB {USR D CLEAR *CHR$ D7 GO SUB ^<> GO SUB VAL !/ POKE GO SUB VAL GO SUB sUSR D CLEAR "CHR$ D1 PAUSE ] STEP CONTINUE © STEP !@ GO SUB [ LINE D GO SUB VAL / POKE GO SUB VAL GO SUB {USR D CLEAR *CHR$ D7<>!HH COPY u GO SUB VAL !YY6D COPY GO SUB VAL STEP ~zU}d}▘} COPY COPY <> CLEAR !:/!//STR$ u GO SUB VAL > COPY 2:/2]><>2CHR$ />2>=/ STEP 7*BIN D> MERGE !PF RESTORE STEP u LLIST RESTORE #~ RETURN I #~ RETURN N #:>=DPEEK ( RESTORE MOVE THEN [( ERASE <= MOVE MOVE F#^#V<> OR STR$ NEXT <>E AND PRESS PLAY PLEASE 7 RANDOMIZE USR ((PEEK 23635+256*PEEK 23636)+10) NEXT !XX COPY u GO SUB VAL CODE OPEN # RETURN *S//[U]D FOR MERGE GO SUB VAL <>>d GO SUB O!H FOR G FOR d GO SUB LN p!x FOR STEP / FOR INVERSE LLIST INVERSE GO SUB _ INVERSE AT [G] INVERSE TAB wy#VAL CHR$ u FOR NOT x FOR NOT c FOR ▞TAB +/[O]} PRINT /cV@ PRINT BIN DRAW _s CLS QACS NEXT TAB [B]9LEN CLOSE #[F]!FN /T[O]g CLEAR RUN t0m RESTORE n DIM VERIFY L INK MpPOINT [MQ▛35 CLOSE #(: READ DRAW ▘@4z NEXT $ READ <^ SAVE *dRc< BEEP [A]^!d=i CAT e OPEN #> PAPER 6 RETURN o CLOSE #8[F] LOAD eGX&*▝ LOAD OR CONTINUE FOR [J]X PAPER 49NOT MERGE DATA IF [O] MERGE LEN STOP +q▖ ERASE ▜[ DEF FN REM OPEN #%JQf[N]P OVER [P]M3LEN CONTINUE 9EXP VAL$ i BEEP CHR$ GO TO FOR CLS FLASH , VERIFY FOR /3rMzSGN BRIGHT ;m%@x[E][C]MACS ▖E2 VERIFY RUN AT GO SUB TO Mf▟[S]A PLOT MERGE n~▝* REM 9Uo8[R]^[J]9▘1-LEN [C] REM i RANDOMIZE qsLEN ACS LN SQR % ERASE D GO TO RETURN C INK sR[S]SQR PAPER SAVE OR ;SCREEN$ NOT DEF FN 9 DATA INKEY$ CAT [O][U]<> ERASE CLS [Q]=▜SQR SIN [P] BEEP INPUT GO TO 2fG PRINT 2$ > THEN +H BRIGHT DIM PICOS INT Y5iLEN DEF FN J1[G]hee IF [T]"4EXP LLIST [L]VXh CONTINUE B[ FLASH FORMAT ABS *COS 1 THEN STEP ] GO SUB =47@n[I]▝JUSGN [U] PAPER FOR ]][U] LPRINT 7HTAN rSTR$ i GO TO FOR [R] BRIGHT [U][O] READ >=m2[L]L/K CONTINUE E▖ATN [F]" OVER NEXT RETURN ATN FABS INK [F]J5I DIM |▙▝ CONTINUE shp NEXT BEEP BIN BRIGHT POINT M[I]© PRINT [A]m LINE RESTORE s&g+EXP 2x DEF FN ^[H]r5: MOVE EXP .=s STOP F OPEN #[O]p; DEF FN "Z REM IF LLIST ▘qSCREEN$ READ fvw NEW g OVER ▚ PLOT <>ER# PLOT "< DATA ▘0QCHR$ [A] BEEP >[A] IF n[S][M]VAL$ ▗uVAL jPEEK g[B]N▞)A PLOT TAN TO VAL$ SCREEN$ PRINT jvq/ INK ©U RETURN PLOT RANDOMIZE D NEXT Ol© INPUT FN {INT LLIST HVAL [Q][R]K!EASN <[J]I GO SUB ATAN <>}▖$aFN zLEN [J]-@e[N] THEN INK ▖VAL [J]COS fG▞<=[A] LPRINT b$ DRAW S▝[M]ACS [L] OPEN #LEN POKE :NDk#Rl[E][T] COPY 0| RETURN ?MA<= LET ▙5UNOT f RETURN [I]-CHR$ THEN &aQINT X%BIN 9USR NOT U~[K]VAL B[B]SQR ERASE [H]▗ CONTINUE .Y AND :[E]VAL$ ASN [L]7SIN l RANDOMIZE #Sl LINE ) CAT 1TAN &[R]A<=VAL$ DATA 5ASN ^RND+,)CODE `k# SAVE 0>#8▜W POINT <>VAL HLN [Q] LINE ▜[P] FORMAT qI@[Q]TAN > FORMAT Y LOAD [M]^vj INVERSE FLASH e'[K]:7Z_WINT ATTR !LN GO TO COS q~ LLIST ][G]@%/ TO LEN LPRINT POINT [S] PAPER Q"]$▞ABS I} LET VAL$ ▘ PAUSE ▛<=NOT PRINT DRAW LINE PAUSE i?AT ERASE ▚[J] GO TO LPRINT 4OuAS REM MERGE SGN MERGE 6[I] OR ,w DIM n RESTORE yhZ▙▟ MERGE TvSIN INPUT PRINT NEW :L STEP ouEXP dQNc[O][T] PAUSE INPUT GO SUB ABS RUN o PAUSE SQR VAL$ FTAN a SAVE SAVE [H]@ MOVE 5 STEP r STEP l[L] CONTINUE # DATA 2 RUN DRAW STOP RUN hMSIN AT BORDER # GO SUB LN NOT STEP RETURN CLEAR ! AND CLS CLEAR 6 CLEAR # SAVE INK : COPY ▘ RETURN (! DRAW CLS "[K] CLEAR !X>A RETURN INK NOT OVER DRAW PLOT INK =( 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] INK NOT OVER DRAW >!= DRAW "[K] CLEAR CODE 2>2 RETURN INK NOT OVER DRAW INK RETURN [I]8](# IF 9= RETURN [I]8:(+ RETURN [J](+ RETURN [K](+ RETURN n& COPY INK NOT OVER DRAW RETURN INK NOT OVER DRAW PRINT w RETURN .*= BORDER >[M]! CLOSE # DRAW SAVE x{▚INT DATA 6>=+{▚INT FLASH 6>=+{▚INT BEEP 6FN +{▚w DRAW STEP INK DRAW FORMAT >= CLEAR PI>=>© FLASH RETURN POINT NEW ( POKE y/O NEW PLOT OPEN # RETURN 7<> NEXT >2 LOAD DRAW PLOT OPEN # RETURN !NOT RETURN RESTORE FLASH RETURN NEW O MERGE [M] STEP MERGE DRAW 0 RUN >CHR$ LN 0 PAUSE LET <> STEP INK DRAW 0 CONTINUE x RETURN CLOSE #0 POKE STEP INK DRAW 0 OVER !TAN RETURN F# STEP MERGE DRAW 0 ERASE ~#LN 0 STEP LET >2 LOAD DRAW [O] MOVE .>> STEP FLASH DRAW FORMAT >>>SGN LN THEN [O] ERASE O CLEAR >:ABS CHR$ THEN CLS &▚&SIN . CLEAR !I COPY >>▚TAB AND INVERSE w INVERSE #SIN .>> STEP FLASH DRAW FORMAT STEP = DRAW FORMAT >> FORMAT LN THEN SIN ERASE [D] CLEAR |TAB gzCOS CAT NOT CHR$ RETURN >▚TAB AND INVERSE w INVERSE #.>COS STEP * RETURN FORMAT CLEAR ~ATN (Vi CLEAR © GO SUB y CLEAR N CLEAR F INVERSE ! INVERSE M>.COS STEP * RETURN FORMAT >©ABS (2COS RETURN CLEAR ^ CLEAR Vi CLEAR M.>COS STEP * RETURN FORMAT {SIN SIN .>CHR$ [F] CLEAR CHR$ RETURN GO SUB SLEN CLEAR [F] CLEAR >SQR > STEP FLASH DRAW >> FLASH LN THEN COS ERASE ( RETURN <>!y[M]~ INPUT DRAW w#xLEN PLOT NOT <>~:COS RETURN ATN BIN THEN CLS CLEAR !:/ GO SUB V!X' INK > OPEN # RETURN > GO SUB O>? GO SUB G1` NEXT !6 GO SUB VAL NOT @ RETURN !X' INK 1` CLEAR !:/ NEXT >0 CLEAR © GO SUB yNOT STR$ CODE 2 COPY ▘ INVERSE !@ COPY !COS CLEAR "LEN CLEAR STEP PLOT DRAW :COS RETURN ATN BIN DIM REM ERASE STOP ACS LPRINT ACS LPRINT ACS LPRINT ERASE STOP GO TO GO SUB MOVE CODE OPEN # RETURN | RETURN CIRCLE STEP THEN CLS 1 COPY COPY !@6# CLS SAVE INVERSE ! CONTINUE RETURN CONTINUE STEP @ RETURN CODE 2 COPY ▘ INVERSE !@ COPY !COS CLEAR "LEN CLEAR STEP PLOT DRAW :COS RETURN ATN BIN THEN CLS CLEAR !:/ GO SUB V!X' INK > OPEN # RETURN > GO SUB O>? GO SUB G1` NEXT !6 GO SUB VAL NOT @ RETURN COPY t COPY !'Px COPY TAN ▗c@ RETURN r DRAW RETURN 0~ffffv~8~~f~``~~ff~fff~~``~f~~f`~ff~? PRINT NOT ▟▖X'NOT RETURN SIN :/ OPEN #~. COPY CIRCLE (?T▘ .© SAVE ~ FORMAT e FLASH ~ FORMAT eDEXP ~ FORMAT ~ RETURN CIRCLE DRAW CIRCLE DRAW 4 RETURN [M] CLEAR NOT RETURN DRAW RETURN NEXT COPY COPY > OPEN # RETURN >?NOT ▘= GO SUB GNOT NOT 'NOT r/<>bkNOT ##6+SGN IF COPY COPY COPY COPY COPY CLS <>ATN GO SUB R#05(5( NEXT +"TAN /CODE >FN { FOR 1`"_!y RESTORE !/= RESTORE ! GO SUB LN NOT V*"_ PRINT ><>2_ LET *_NOT _ FOR #"{/+@ GO SUB C8/"SIN /!<"6/*SIN /6>+ RANDOMIZE ++"=/ MERGE GO SUB V CLEAR !:/!ACS /"O/CODE FOR STEP FOR +"W/#"S/"K/6#"Y!W AND 6#6O▜▝▜▝O!q>=~2 FOR USR # INVERSE ![USR #V# RESTORE INVERSE 6 INVERSE p INVERSE p INVERSE p INVERSE s INVERSE r FOR ^#V INVERSE 6 INVERSE p LLIST INVERSE s INVERSE r INVERSE = MOVE 2NOT <2PEEK USR 2W AND <> LINE <>▟>=] OR ] OR 2[H] OR [M] OR © GO SUB <>[B]>=] OR ] OR >[H] OR [M] OR © LINE [F]>=O OR O OR PI OR POINT OR @©$ STEP SCREEN$ AND :W AND PI LINE STR$ >?2STR$ !PEEK USR 5 F INVERSE ![USR STEP [H]CHR$ INVERSE !|USR STEP [H]CHR$ INVERSE ![N]USR STEP [H]CHR$ >2PEEK USR INVERSE ![USR STEP WNOT "hBIN 2pBIN INVERSE !|USR STEP WNOT "jBIN 2qBIN INVERSE ![N]USR STEP WNOT "lBIN 2rBIN >?2nBIN :X AND PI(**uBIN "hBIN *yBIN "lBIN :{BIN 2nBIN :oBIN PLOT -!|BIN INKEY$2oBIN :}BIN 2pBIN :©BIN 2rBIN :W AND !X AND ACS >=!sBIN >yIN GO SUB ATTR = PAUSE ZSTR$ <> CLEAR COPY GO SUB QIN GO SUB Y<>[H] COPY GO SUB QIN GO SUB y PAUSE wSTR$ COPY GO SUB QIN GO SUB Y<> PRINT OR MERGE RESTORE INVERSE RESTORE STEP [P]STR$ INVERSE LLIST LLIST MOVE STR$ LET <>CODE 2W AND 2X AND STEP qSTR$ CODE 2pBIN 2qBIN 2rBIN <><>LEN ASN INT xPI[S][B]▞N8`ACS NOT >= STEP LLIST NOT STR$ INVERSE N INVERSE F INVERSE n INVERSE f~#V_SIN INVERSE n INVERSE f^#V INVERSE q INVERSE pNOT RNDCHR$ INVERSE ~ O NEW !3BIN VAL$ [R]VAL$ w> INVERSE wNOT RNDCHR$ INVERSE ~ O NEW 8!3BIN VAL$ [R]VAL$ wCODE INVERSE wNOT RNDCHR$ !3BIN INVERSE ~ /INKEY$w> INVERSE wu INVERSE p INVERSE p INVERSE w INVERSE THEN VERIFY INVERSE ATN 2NOT X INVERSE w INVERSE w INVERSE wI INVERSE THEN RETURN INVERSE THEN OVER ? INVERSE p: INVERSE 6@4 INVERSE 6USR . INVERSE THEN DEF FN ( INVERSE p INVERSE THEN VAL$ N INVERSE THEN VAL$ H INVERSE 6 COPY INVERSE pU INVERSE p INVERSE ^ INVERSE VPI IF NOT INVERSE w INVERSE THEN F(2 LINE USR INVERSE n INVERSE u INVERSE f INVERSE t~ INVERSE w INVERSE w INVERSE ~ INVERSE w INVERSE THEN INPUT INVERSE ~ INVERSE w INVERSE r INVERSE s INVERSE ~PI(:X AND PI INVERSE 6 COPY <> INVERSE ~ THEN _>=0 INVERSE 4<> INVERSE 5<> RETURN LN 8I AND 8& AND 8) AND 0O!A OR N INVERSE u INVERSE u INVERSE t INVERSE tNOT RNDCHR$ AND 2 FOR USR NOT RNDCHR$ < INVERSE wNOT RNDCHR$ ! OR ▜O~#fo INVERSE u INVERSE t+~ INVERSE wNOT RNDCHR$ !4STR$ ON DIM INVERSE N THEN i(+ INVERSE ~ VERIFY INVERSE w0 INVERSE ~ INVERSE w INVERSE n INVERSE f#~PI IF NOT INVERSE u INVERSE t INVERSE w INVERSE ~ INVERSE w> INVERSE ▚G INVERSE n INVERSE f~#PI PAUSE [T]NOT INVERSE n INVERSE f NEW © INVERSE u INVERSE t!▝BIN ▜_^#V INVERSE n THEN u(Hg INVERSE F THEN THEN } INVERSE ~( THEN A THEN m INVERSE [G]0 INVERSE THEN INPUT [H] INVERSE ▚LN 8 INVERSE THEN VAL$ x INVERSE w FOR THEN 8[A]_z0 AND [Q]8 THEN # THEN AND 0 SAVE FOR y INPUT INVERSE w THEN Q(! INVERSE F THEN y( INVERSE n INVERSE f INVERSE u INVERSE t FOR INVERSE p8 : LINE USR INPUT 2STR$ >!oBIN VAL$ INVERSE INKEY$ VAL$ w INVERSE ~PI PAUSE cBIN NEW © INVERSE w INVERSE ~ NEW 8 INPUT COPY INKEY$w>A2STR$ FOR INVERSE ~<>k5X?8(S 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/,*'%#!"$&)/▜[H] OR PI OR TAB OR USR OR STOP OR GO TO OR AND AND / AND D AND G AND ▜▜▜▜▜▜▜▜▜▜▜!X AND 6!H<=▜o0$^#V!?>=w# IF :@>=2P>=*A>="uBIN GO SUB [C>= GO SUB SyBIN }2{BIN :F>=2|BIN :E>=_ STEP gSTR$ :O>=_ STEP gSTR$ !X AND 4<> STEP R>=:X AND PI>=:?>=PI 2X AND NOT qSTR$ =2?>=:P>=PI /:M>=PI>==2M>=:@>=2P>=:N>=PI(:m>=G:A>=2uBIN :B>= NEW 2vBIN *C>="yBIN !P>=5:K>=PI( PAUSE <=*uBIN GO SUB [G>="uBIN *uBIN GO SUB [G>=PI GO SUB R"uBIN :L>=PI( PAUSE 4<=*yBIN GO SUB [I>="yBIN *yBIN GO SUB [I>=PI GO SUB R"yBIN :uBIN 2{BIN <>b<=s<=▗<=[F]<=INKEY$<=ATN <=>=<= INK <= REM <= CLS <=>=>=.>= COPY NEXT COPY F( OPEN # COPY COPY @ IF COPY COPY $d IF COPY COPY ▖ PAUSE LIST LIST COPY COPY <( COPY COPY < COPY d IF COPY Pd IF COPY COPY COPY d IF IR COPY COPY COPY NEXT COPY PAUSE Q COPY COPY COPY COPY ▗ PAUSE E5 COPY COPY COPY P COPY (d IF COPY COPY ( COPY COPY :m>= NEW H DEF FN 8 THEN ' THEN '!p>= THEN + THEN + THEN + THEN ~<>[G] BORDER I,▟>=[B]>=[F]>=[L]>=[P]>=RND>=POINT >=TAB >=EXP >=ABS >= DIM >=)<>EXP <> BRIGHT <> COPY <>" LINE G LINE e LINE G LINE h LINE ▚ LINE VAL <>VAL <>VAL <>VAL <>[F] LINE SCREEN$ LINE SGN LINE SGN LINE SGN LINE THEN SGN LINE SGN LINE THEN 5 THEN 5 THEN THEN 5 THEN 5 THEN p THEN p THEN TAN <>SCREEN$ THEN SCREEN$ THEN SCREEN$ THEN READ THEN READ THEN TAN <> PAUSE THEN PAUSE THEN PAUSE THEN M TO M TO ^ TO ^ TO M TO M TO TO TO TO TO M TO M TO TO TO TO TO VAL$ TO VAL$ TO TAN <> DIM TO STEP DIM TO STEP DIM TO STEP ) STEP ) STEP 5 STEP > STEP > STEP > STEP > STEP > STEP > STEP N STEP N STEP q STEP [A] STEP CODE STEP CODE STEP TAN <>TAN <>N STEP N STEP q STEP [A] STEP CODE STEP CODE STEP N STEP N STEP q STEP [A] STEP CODE STEP CODE STEP TAN <>TAN <>N STEP N STEP q STEP [A] STEP N STEP N STEP q STEP [A] STEP TO N STEP N STEP q STEP [A] STEP N STEP N STEP q STEP [A] STEP DEF FN STEP DEF FN STEP DEF FN STEP DEF FN STEP TAN <> GO SUB STEP GO SUB STEP DEF FN DEF FN GO SUB STEP GO SUB STEP DEF FN DEF FN GO SUB STEP GO SUB STEP DEF FN DEF FN GO SUB STEP GO SUB STEP TAN <> COPY ▜ COPY ▜ COPY ▜▝BIN [A] FORMAT FOR 927 RESTORE 2 FOR 5 RESTORE 4 FOR 240 FOR 927 RESTORE 2 FOR 5 RESTORE 4 FOR 2790▙▝BIN [A] FORMAT FOR E>C RESTORE > FOR A RESTORE @ FOR >@< FOR E>C RESTORE > FOR A RESTORE @ FOR >CE4▙▖▘USR [A] MOVE RESTORE NOT FOR 2 MERGE ▛? MOVE USR NOT 2 MOVE USR MERGE NOT ▛' MOVE USR ▜▖▘USR [A] MOVE RESTORE NOT FOR 0 MERGE ▛? MOVE USR NOT 0 MOVE USR MERGE NOT ▛' MOVE USR FOR ▙▝USR ▖▘[A] ERASE RESTORE 97 LOAD 6 LET 4 FOR 2 LET 02 COPY 6 READ COPY 2▙ STOP ▜▝USR ▖▘[A] MOVE RESTORE ! LOAD LET FOR LET COPY LLIST COPY ▙▝BIN [A] LLIST FORMAT %,1*,1*,▜▖▘USR CLOSE # COPY 1▝ AND 1<=1>=1▜▖▘USR [A] VERIFY COPY %-*,▜<>▝ MOVE [A] RUN + FOR + RUN + RESTORE + FOR + RESTORE + FOR + RUN + FOR + RUN + RESTORE + FOR + RESTORE + FOR + RUN . FOR . RUN . RESTORE . FOR . RESTORE . FOR . LINE RUN ) FOR ) RUN ) RESTORE ) FOR ) RESTORE ) FOR ) RUN + FOR + RUN + RESTORE + FOR + RESTORE + FOR + RUN + FOR + RUN + RESTORE + FOR + RESTORE + FOR +▜<> RUN + FOR + RUN + RESTORE + FOR + RESTORE + FOR + RUN + FOR + RUN + RESTORE + FOR + RESTORE + FOR +▜<> RUN + FOR + RUN + RESTORE + FOR + RESTORE + FOR + RUN + FOR + RUN + RESTORE + FOR + RESTORE + FOR + RUN . FOR . RUN . RESTORE . FOR . RESTORE . FOR . LINE RUN ) FOR ) RUN ) RESTORE ) FOR ) RESTORE ) FOR )▜<> RUN + FOR + RUN + RESTORE + FOR + RESTORE + FOR + RUN + FOR + RUN + RESTORE + FOR + RESTORE + FOR + RUN . FOR . RUN . RESTORE . FOR . RESTORE . FOR . RUN 0 FOR 0 RUN 0 RESTORE 0 FOR 0 RESTORE 0 FOR 0▜ RUN 7 FOR 7 RUN 7 RESTORE 7 FOR 7 RESTORE 7 FOR 7 RUN 7 FOR 7 RUN 7 RESTORE 7 FOR 7 RESTORE 7 FOR 7 RUN 5 FOR 5 RUN 5 RESTORE 5 FOR 5 RESTORE 5 FOR 5 RUN 5 FOR 5 RUN 5 RESTORE 5 FOR 5 RESTORE 5 FOR 5▜ RUN 7 FOR 7 RUN 7 RESTORE 7 FOR 7 RESTORE 7 FOR 7▜<>▝ MOVE [A] RUN 0 FOR 0 RUN 0 RESTORE 0 FOR 0 RESTORE 0 FOR 0 RUN 0 FOR 0 RUN 0 RESTORE 0 FOR 0 RESTORE 0 FOR 0 RUN 5 FOR 5 RUN 5 RESTORE 5 FOR 5 RESTORE 5 FOR 5 LINE RUN 0 FOR 0 RUN 0 RESTORE 0 FOR 0 RESTORE 0 FOR 0 RUN 0 FOR 0 RUN 0 RESTORE 0 FOR 0 RESTORE 0 FOR 0 RUN 0 FOR 0 RUN 0 RESTORE 0 FOR 0 RESTORE 0 FOR 0▜<> MOVE RUN 0 FOR 0 RUN 0 RESTORE 0 FOR 0 RESTORE 0 FOR 0▜ THEN BEEP RUN 42 FOR 4 COPY 0 READ RUN 4 FOR 4 RUN 5 COPY 7 READ RUN 3 FOR 3 RUN . FOR 0 RUN 35 FOR 97 RESTORE 9 LET 7 RUN 9 COPY 7▜BIN PAPER FOR 705 RESTORE 0 FOR 3 RESTORE 2 FOR 02. FOR 705 RESTORE 0 FOR 3 RESTORE 2 FOR 057▜<> MOVE RUN 2 FOR 2 RUN 2 RESTORE 2 FOR 2 RESTORE 2 FOR 2 RUN 2 FOR 2 RUN 2 RESTORE 2 FOR 2 RESTORE 2 FOR 2 RUN 5 FOR 5 RUN 5 RESTORE 5 FOR 5 RESTORE 5 FOR 5 RUN 7 FOR 7 RUN 7 RESTORE 7 FOR 5 RESTORE 7 FOR 7▜▝USR CIRCLE [B] FOR 787▖▘8▝035787▖▘5▝030▜▝USR CIRCLE [B] FOR 565▖▘6▝.13565▖▘3▝.1.▜ MOVE COPY < READ COPY < READ RUN <▜▖▘ COPY <▜▖USR [A] INK COPY ▜▖▘USR [A] MOVE RESTORE NOT FOR 0 MERGE ▛? MOVE USR NOT 0 MOVE USR MERGE NOT ▛' MOVE USR ▜USR [A] MOVE RESTORE NOT FOR 3 MERGE ▛? MOVE USR NOT 3 MOVE USR MERGE NOT ▛' MOVE USR ▜USR [A] MOVE RESTORE NOT FOR 5 MERGE ▛? MOVE USR NOT 5 MOVE USR MERGE NOT ▛' MOVE USR ▜USR [A] MOVE RESTORE NOT FOR 7 MERGE ▛? MOVE USR NOT 7 MOVE USR MERGE NOT ▛' MOVE USR ▜BIN MOVE FOR C<A RESTORE < FOR ? RESTORE > FOR <>: FOR C<A RESTORE < FOR ? RESTORE > FOR <AC▜USR ▖▘[A] MOVE RUN FOR $ RUN MERGE ▛? MOVE FOR ▜ RUN FOR " RUN MERGE ▛? MOVE FOR ▜▜▜2 CAT 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 ▙"" GO SUB COPY ▗ COPY ~ COPY ? COPY RETURN COPY ?~ LIST COPY COPY LIST COPY ~ COPY ? COPY RETURN COPY ?~ LIST COPY COPY LPRINT COPY ~ COPY ? COPY RETURN COPY ?~ LIST COPY COPY COPY hJ? RETURN COPY LIST ? COPY RETURN COPY LIST ? RETURN LIST COPY RETURN RETURN FORMAT J? RETURN COPY LIST ? COPY RETURN COPY LIST ? RETURN LIST COPY RETURN [E] DRAW ? RETURN COPY LIST ? COPY RETURN COPY LIST ? RETURN LIST COPY RETURN SAVE SAVE RETURN RETURN LIST P RETURN RETURN [Q] LPRINT RETURN RETURN USR CIRCLE ??~? LPRINT ?~? LIST COPY LIST VAL 0 GO TO NEW ??~? LPRINT ?~? LIST COPY LIST INK TO ??~? LPRINT ?~? LIST COPY LIST DIM DRAW ? DRAW ? COPY RETURN ? LPRINT ? COPY RETURN ? DRAW LIST COPY RETURN OPEN # SAVE RVAL ? DRAW ? COPY RETURN ? LPRINT ? COPY RETURN ? DRAW LIST COPY RETURN RND`LN ? DRAW ? COPY RETURN ? LPRINT ? COPY RETURN ? DRAW LIST COPY RETURN p|? COPY ? COPY RETURN ? LPRINT ? COPY RETURN ? COPY LIST ~ SAVE SGN ? COPY ? COPY RETURN ? LPRINT ? COPY RETURN ? COPY LIST ~xH? COPY ? COPY RETURN ? LPRINT ? COPY RETURN ? COPY LIST ~[A]?h? LIST ?~? COPY RETURN ?~? LIST LIST ? COPY RETURN ~ FORMAT 2h COPY LIST ?~? COPY RETURN ?~? LIST LIST ? COPY RETURN COPY LIST ?~? COPY RETURN ?~? LIST LIST ? COPY RETURN COPY RETURN ?~ COPY RETURN ?~? RETURN LIST ? COPY LIST ? COPY RETURN ?~ COPY RETURN ?~? RETURN LIST ? COPY LIST COPY COPY COPY COPY ~ RUN COPY COPY COPY CODE 2 LLIST BIN O▜▝▜▝O! STOP BIN ~2 READ USR # INVERSE !VUSR #V# RESTORE INVERSE 6 INVERSE p INVERSE p INVERSE s INVERSE r FOR ^#V INVERSE 6 INVERSE p LLIST INVERSE s INVERSE r INVERSE 2a}> OPEN # NEXT GO SUB V CLS :a} STEP USR v STEP IN USR CODE FLASH RETURN / NEW ( POKE > OPEN # CLEAR COPY > GO SUB y CLEAR IN > COPY GO SUB y<>
