| Является частью релиза: | Army Moves |
| Размер файла: | 55296 |
| md5: | 345c5ffa34c233c51e220ad861f233f9 |
0 STEP R;;STR$ ![H] FOR !fs#r!{s#r!▞s#r!PEEK @ MERGE INK >ATN H LLIST INK ~ THEN © : NEW O~ NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW LPRINT TAN oa~ STEP INKEY$t LLIST # OVER LLIST STR$ NEW ©(# THEN w G~ STEP INKEY$t# RANDOMIZE VAL$ NEW ? AND G~ STEP INKEY$t CLS #[Q] INK !X' INK CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <> COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY REM NOT CHR$ STR$ ▘ FOR ▝ LPRINT STR$ LIST BIN LPRINT USR USR COPY COPY RETURN GO TO ▗USR CHR$ >▜ FOR SAVE DRAW RETURN COPY [P]NOT ▜> DRAW SAVE LPRINT GO SUB DRAW ▘▜▜USR ▘??▘ FOR ▚p SAVE LIST SAVE SAVE DRAW USR [M]▝USR RETURN ▘A FOR ▝ CLEAR )▚||x COPY COPY © FOR ▜ SAVE RETURN COPY ▜▜EF▘? RETURN y BRIGHT USR ▜▚ CAT CAT OUT OUT STR$ ▘ FOR RETURN COPY COPY USR USR DRAW RETURN DRAW USR RETURN RETURN SAVE FOR ▗?©©?>??©▘8 FOR ▗[O] CLS ▚ LIST xx<< COPY LET ▘E▝y@ PAPER LET ▗x LIST LET LET USR COPY READ LLIST STR$ STR$ NOT FOR NOT BORDER RUN RUN NEXT NEXT LLIST STR$ USR # GO SUB ▝STR$ NOT BORDER ©~||USR SAVE LIST p FOR ▝` COPY DRAW ▚|| OVER ▚ COPY USR NEXT ▝ READ CNOT NOT <=▜ LIST STR$ STR$ USR ▝ DEF FN USR OVER ▝ GO TO USR 3USR x|?{@ PAPER ▝ LIST STR$ ▗[M]USR Ixx RANDOMIZE RANDOMIZE LET |USR OUT %STR$ ▝USR BORDER ▘ READ STR$ FOR p SAVE RANDOMIZE RANDOMIZE NEXT ~>=▝ LOAD USR <=▘~ FLASH ▚USR LLIST READ READ <=▜▜<=NOT STR$ z CLOSE #▝qASN a> IF ▝ BORDER USR NOT USR ▖▝ COPY |@ MERGE LEN ▞NOT NOT READ READ IF <=<= CAT ▝~@ PAPER 7BIN USR COPY COPY DRAW FOR ▝6<||| FLASH ▘▝NOT STR$ <=USR LOAD ?USR |▘<8|USR PAPER LN z TO COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY BORDER NEXT STEP R;;STR$ ![H] FOR !fs#r!{s#r!▞s#r!PEEK @ MERGE INK >ATN H LLIST INK ~ THEN © : NEW O~ NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW LPRINT TAN oa~ STEP INKEY$t LLIST # OVER LLIST STR$ NEW ©(# THEN w G~ STEP INKEY$t# RANDOMIZE VAL$ NEW ? AND G~ STEP INKEY$t CLS #[Q] INK !X' INK CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <> COPY COPY RUN COPY ▗ SAVE RUN POKE GO TO INPUT COPY ▝ RETURN USR CLEAR USR IF ▖ POKE POKE CONTINUE CONTINUE LIST DATA COPY ▝ RETURN 7[C] POKE POKE x CONTINUE PVAL FORMAT VAL XhV+5 COPY (-d▘ FORMAT FORMAT USR [Q]@@USR (▗©?2CHR$ USR ▚▜©FN LIST LPRINT LPRINT `[N]▜ RANDOMIZE PLOT CONTINUE FORMAT [Q]@ TO ▗USR ▙7/7+EB▘▞CODE x%<~Y? OUT / LINE ▗//__USR IN ▘©©PI DRAW CLS POKE USR DIM ▝ ERASE USR [U]▗JI[P] LIST >▗z MERGE SCREEN$ U READ COPY ▗ LIST CAT VAL OI▗STR$ COPY COPY >x@y6l▚ DATA RESTORE IF CLS z▗ CLS NEXT INT ▝x▗USR ▘ MERGE VAL$ y6A6I6▘USR ?▝|▛=STR$ /COS } REM y6y6▟7!.!~_<USR >▛ REM USCREEN$ *u[K]~ATTR UATTR y696▝~,*▖ FORMAT P[Q]`@USR ▜ SAVE |>A▘A▘ z_▝ IF ! PLOT IN LOAD [O]USR LIST DRAW COPY <USR ? SAVE PVAL a[R]a AND X LPRINT ?© SAVE K@ LET DEF FN LEN CLS AT >=}{ CLS RUN POKE CONTINUE VAL Iw DRAW COPY COPY OUT ? LIST <= COPY ff? COPY DRAW LIST READ ▜© AND IN SGN xp LET LLIST STOP BIN CHR$ ▝USR 8NOT LET RANDOMIZE USR SAVE ▖ RESTORE CHR$ %[A]H[U][C][N][S][I]9 LINE RANDOMIZE IF DIM H CLOSE #VAL$ VVAL$ ^IN PIPIIN PEEK PEEK ABS ABS INT INT TAN TAN USR FN [E]CODE [Q]IN ▝ NEW >=[A] <~IN IN k FOR <=▜IN CAT CHR$ ▛<= READ LET ySGN _ATTR Q NEW @[R]▘@[A]STR$ TAN !" COPY ▝~B▝▝$<~$$ BORDER COPY CIRCLE GO SUB 6;M▚ COPY COPY LIST LPRINT MOVE IN ©> DRAW LIST USR [P] COPY COPY DCHR$ ▗[A]INKEY$? COPY USR OUT FORMAT PPPOINT POINT II(( COPY DRAW COPY ?<= SAVE CLS <=USR LLIST u▘ COPY COPY q~9zACS DD AND RANDOMIZE STOP STOP AND ▝▝ COPY COPY USR LPRINT p($bA0 TO 2 CLEAR RETURN =y RANDOMIZE q!3[H][P] DEF FN n[C]▚ CIRCLE 'B▘USR [L] LIST ! COPY PRINT ▗[B][P][B] CLS COPY *LN ▘@@<= ▟;[F]USR COPY ▚8D▗ BORDER USR ▗9($*USR -[C] NEXT COPY ©IN _IN WATTR 0+ PRINT c BEEP <=%▘@_USR Q▗R[S]EINT ▗ CLS 8A FORMAT [B]_IN _/_/_/^ABS ]ABS }POINT UATTR AND ▝ MERGE ▚ RANDOMIZE USR COPY pwUSR t▘ PLOT PAUSE STR$ IF PAUSE POKE POKE RUN LIST H@-[O]▗© COPY USR USR ▗▝▜▜ STEP ▗▜▜▝[G][C] COPY BEEP TT((D|DD(( COPY p@ IF MERGE SCREEN$ BORDER EXP ▝| GO SUB ▘<=SQR ▘<= RUN |SCREEN$ U▚ COPY FLASH THQBIN [B]▗HT FLASH x▘_ATTR @▚ OUT OUT RETURN USR DRAW ▚ RETURN OUT OUT PLOT STOP NOT " STOP RUN xUSR & LIST DRAW RETURN ?B▖ COPY RETURN DRAW LIST FN T▘ RETURN USR ▘▛DD[S][S] MOVE MOVE CONTINUE CONTINUE POKE CLS SAVE y(@?©|r LIST SAVE |USR ▘©USR A▚""EE▛▛1▘ OUT y@(USR LIST SAVE CLEAR }TAN ▞?} CLEAR SAVE LIST USR [Q]P @USR @▚PIPI[Q][Q]PI'▝©xUSR @▝▜▘ LET LPRINT USR USR ▘ LPRINT LET @▙ IF IF ▘ABS SGN IF ZY▘ OUT RETURN OVER ▘©©h▘ COPY ?m▘©zY@ AND ▝▞ RETURN 2 ERASE n.. OVER PEEK ^CHR$ .▗^SIN r RETURN ~ CLOSE # COPY RUN CLS FORMAT CLS RUN >= COPY [G]// IF CLEAR RETURN CIRCLE COPY ▘ RETURN CLEAR &▞ GO SUB IF POKE REM POKE CONTINUE FORMAT GO TO GO TO USR CLOSE #USR TAN [E]TTU[G][F][D]""r| POKE DATA >=FN ( FORMAT OUT gCHR$ COPY ▟▝T/#▘▗(P6 COPY [J]CODE ©| LET STEP 5' CONTINUE ▚[C][Q][Q] FORMAT FORMAT PRINT SCREEN$ U+lr▘▟ RETURN RETURN 1<='▚▝AA@ sACS ▜? DRAW HNOT ▝▝x▗▟USR USR COPY OR ,▘ COPY COPY [C]/[C] LIST LN ts;[O]O OUT ?<8p`USR > OR ▗©[P]© DRAW [N] CLS = COPY IN W FOR UINT USIN PVAL PVAL LIST LET STOP "CHR$ BCHR$ 2(O▜ COPY ▝▝IN CLEAR STR$ MERGE ▝,▗ LPRINT LIST LIST SAVE DRAW DRAW *[F] REM MERGE CONTINUE LIST IN @[Q]SCREEN$ }▚{} RETURN OVER CODE BEEP ATTR BEEP ATTR BEEP ATTR W[T][H]▝▘[B]FN [F]SCREEN$ MERGE SCREEN$ PRINT CLS CLEAR CLS CLEAR COPY ??o▜ZCHR$ COPY [R]B0USR LIST PISCREEN$ P[Q] FORMAT [Q]QbQbEbAbQhVAL SCREEN$ MERGE REM GO TO j GO TO Z CLOSE #SCREEN$ TAN ATTR ASN CODE IN VAL$ LEN CAT > IF MERGE REM POKE SAVE [A][D]USR COPY ▖©}}LN LN 0q RETURN >▙▘*UFN RFN Q[U]P FN A© CLEAR REM U FLASH ]▗[S]U[S]P @▝ STEP 3 MERGE ATTR OVER |▜[Q]PP LINE DIM ▝AFN ▝ COPY EXP VAL$ PRINT NEW IF PEEK D,X RANDOMIZE COPY &VAL$ _U*+^INT ▝T%[S][J]5k BEEP CODE WATN WATN ^ IF DRAW x888NOT [P][P]STR$ ?STR$ ©/TAN ▚ SAVE STR$ [Q]STR$ ▞▝ COPY COPY COPY pD PRINT SCREEN$ _' TO ▝ LIST STR$ ▗ LLIST l▝ RETURN LN LPRINT FN CLEAR IF CLEAR IF PRINT CLS DRAW LLIST 8USR x LLIST ▚&XRNDKWATTR [P]CODE [H] NEXT <NOT ? PRINT SCREEN$ WPEEK LLIST STR$ ▝▝▙LN GO TO =▘z MERGE X▝USTR$ WATTR W▘VAL$ pN LIST RETURN IF SQR e FOR BORDER FOR BORDER ▝PI OPEN # CLS PRINT LINE ▟8STR$ [T]▜© COPY 0SIN INPUT B▝IN x▚IN o CAT <=NOT LLIST ▖ RETURN LLIST COPY COPY RETURN LET ▜~ PRINT SCREEN$ CLOSE # DRAW CLS RUN STR$ LIST SAVE FN T▛ LLIST 6V▟ LOAD RUN CLS CLEAR RETURN ©w▝ LPRINT &l▘x▝ DRAW j COPY SAVE <=[G]▝r LPRINT x IF U RESTORE PAUSE PRINT IF RANDOMIZE DRAW CLEAR DRAW y[H]▝ OUT H▛}>? OUT RETURN RETURN DRAW SAVE SAVE LIST v9▛ RETURN LIST <>[O][P]USR O▖G<=C▝CODE [B]@[Q]@[Q]P[Q]PFN P▙ LIST ▜ COPY SAVE LIST USR SAVE ▞ DRAW |SGN OUT ?<C[P]kVAL$ STR$ A▝[M] LPRINT g BORDER RUN NEXT NEXT yy}<<>[O][O][P] CAT CAT BORDER SAVE DATA PAUSE LET LIST SAVE xx<<0r▝> RETURN CHR$ W▚ LPRINT BORDER EXP CLEAR ▙8USR =<PEEK [O] OUT OUT CAT LOAD BORDER F▚ CLS |~?IN BORDER RUN [G]? COPY CLS NOT ▚▚[P] SAVE CONTINUE [H]p~▜B<NOT RETURN ? COPY ▝[C]▘ COPY CLS STR$ ▗▙ LIST 76{y==SGN [O][O] CAT LOAD COPY DRAW GO TO [I]00gxUSR DRAW LPRINT CHR$ @▗ LPRINT =▘ CLS RETURN E▝:▞TSGN x SAVE x SAVE LN BRIGHT STEP }▖ NEXT DRAW LIST |~ OVER NEXT LPRINT |O▚ LPRINT TAB ▗ PRINT ATTR UjUSR ▝<>[S]▘80p[Q] @C RETURN MERGE REM }$[I]00c| LPRINT ~0=p▖ RETURN PRINT FOR ASN iBB▘STR$ [I]▙ SAVE TAB Vk7+7+5>x LIST LPRINT LPRINT GO TO e▘ LPRINT READ USR COPY ▛ IF MERGE *T[Q] LINE ▖ RETURN PRINT REM PRINT FN QAA9NOT ▗<NOT < ERASE -U▜UATTR ^uFN ▛▖7 POKE NEXT hATN /▜=▘▘▟ CLEAR PAPER CLOSE #P[Q][Q][R]AAB▘▜NOT !▜UCODE DIM [H]USCREEN$ WFN SAVE f PAUSE IF 2d4>=1 DEF FN pUSR ? RETURN LIST 8 IF U▖U REM =^IN { PRINT 2BIN ▗+WIN FOR %▖/ LPRINT SAVE LIST 0 LET `< LIST LPRINT BIN C▝ STOP XVAL$ LR▜SCREEN$ MERGE IN _IN ©8g PLOT Op#▚ RETURN COPY q▝0@A▙(D▘ASTR$ bTAN XFN TAT VSCREEN$ 7 LOAD ▚ LPRINT OUT MOVE BEEP BEEP MOVE 6w▞?<=9A&kpATN P[A]<> COPY ▘{sUSR {▝qG COPY )CODE -▘0& SAVE <> COPY ▚UQ MERGE © COPY ©IN _/ BEEP ▝.▝<> COPY ▝CHR$ OUT INK COPY ▗©©IN IN USR _USR /▜; THEN MOVE IF COPY ▗ CONTINUE FORMAT FN FORMAT 2 CLOSE #FN CLOSE #FN FORMAT USR LPRINT ▝>=▙SCREEN$ CLOSE # DIM CIRCLE LIST SAVE LIST CONTINUE FORMAT [Q]>=[Q]USR [Q][C]USR USR ▝ LPRINT COPY ▘ REM PRINT . STEP ▝[B]KK/[H]W▛EE9▝ REM R▗ DRAW COPY [T][P] INPUT LN P CAT NOT RETURN LINE DRAW ▝ABS ▖PEEK ^VAL$ SCREEN$ DIM ▜UCODE WCODE _ RETURN ABS RESTORE OR USR ▞▘[A][S]<=>=▖▖C DIM BIN ▝▘ LPRINT 9[E]&!▛IBIN COPY IN FN RETURN COPY [H]ATTR USCREEN$ j RESTORE &J▜ LPRINT AL`08|~+U LIST RETURN LPRINT SAVE ?[P]USR gSTR$ SAVE ▜vB▘▜ FOR 1AF8 @▜! CONTINUE ▘6▝ LLIST U[I] LPRINT RETURN ▝ LPRINT COPY CHR$ TAN COPY ] RUN COPY WSCREEN$ CONTINUE LET COPY COPY LLIST STR$ ▝CHR$ c COPY ▘8USR ATTR !>▜[N] LPRINT @A^@@USR SAVE >USR w NEXT COPY COPY INVERSE SCREEN$ * OR LIST COPY LPRINT >= COPY SAVE # CLS OUT ▗ LLIST [P]8BIN VAL$ ▝ IN LPRINT ~ RANDOMIZE ? DRAW COPY FOR USCREEN$ QFN @? COPY ABS PRINT STOP RANDOMIZE wCOS !~)▞~>>[P]RND08q3CHR$ LLIST 8 NEW COPY NEXT y COPY IN ]SCREEN$ T[Q]EXP Q[R]f>=H FORMAT [A][Q][Q]LEN CHR$ PAPER "▘▝ TO [L][Q] FORMAT POKE 2 CLEAR COPY OUT NEXT yPEEK +USCREEN$ USR COPY !B▗ SAVE $SGN ▝> INK [A]~ LIST @USR @USR @ AND y<=x[Q]`[Q]`VAL LOAD +▜<=WSCREEN$ P COPY LINE [C](D▜▖P ▘▝STR$ STR$ >=>RNDUSR CHR$ ▗ LPRINT ASN ▗ LPRINT >= GO TO ^▜ CLEAR zASN j SAVE J[O]USR ' @▝B$(0 K?▗USCREEN$ @▝USR nSGN kb▗EGCGx STEP ▗ ! CONTINUE STR$ ▘8 DRAW ▘ CLEAR PEEK A© COPY [I]▝{ STEP ▜USR ▚ BRIGHT PLOT .>2▝0[S]▖:wSQR WE▘@▝=▟▚`▝~$W▘)▜< INPUT [O]PEEK PEEK RETURN |4[B]@▖VAL aSTR$ STEP ▟kCODE ▜( COPY RETURN DRAW SAVE CLS W▗?? OUT USR ▗7<=▘STR$ MOVE AT ERASE ▘USR } RETURN ▞▘CODE CODE ATN ] REM OUT IN BEEP OR * COPY ▘IN OVER <>mUSR NOT ,ASN <=©zU REM [F]: LIST SAVE LLIST FORMAT [U]P~F[G] LET ▝ IF PAUSE POKE POKE DATA CONTINUE CONTINUE >= FORMAT FORMAT [A][A][Q] USR A[D]▘▘3<=STR$ BIN TO BIN STR$ NOT <= STEP OUT COPY ATN © RUN FLASH <▜E((P▖ COPY MERGE SCREEN$ R▘▘USR USR USR USR (USR P[N]Q[R][R][S]CHR$ BLVAL USR 0p#3 READ ▚ AND BORDER RUN COPY TAN © COPY | PRINT SQR RETURN 0pp GO SUB COPY B▘?H=▗STR$ SIN NOT [H]8|<COS 9xW▛ GO SUB CODE _ATTR RETURN OUT ATTR U*U▙▞@[Q]Ak COPY {H?[Q]STR$ CAT [J]PEEK }VAL$ ]VAL$ BEEP jU/SQR MOVE LOAD DEF FN INK LOAD NEXT COPY © INPUT IN BORDER CLEAR IF :▝FN 'g LPRINT `SQR ▗`[R] LOAD PEEK @▘ BEEP INT b7( CLEAR RUN g[P]ASQR LOAD CLS PRINT INT <▘T[Q] PRINT ▘wm@▝STR$ USR ▟?'#cQQ FORMAT >= CONTINUE CONTINUE t▗ COPY [Q]/f▟ REM MERGE CLS uSCREEN$ COPY IN } CLS BEEP PEEK /FN |▝FN NEXT ATTR BEEP PI REM MERGE SCREEN$ COPY USR <= THEN RESTORE ▗ab=zH|INKEY$#▜ COPY INPUT USCREEN$ [Q]TuSGN ▗DSCREEN$ MERGE IF CONTINUE [O]▛ CLEAR IF MERGE PAPER *5jX8 REM ▛u IF u INPUT IF COPY RUN SCREEN$ U ERASE ▞+ MERGE j RUN PAUSE Gx6▛UATTR UATTR VSCREEN$ TAT XFN PCOS COS ^ CLEAR ▝▜ LIST CLOSE # REM POKE CLS COPY [P][K] COPY [I][Q]▝▗ LINE RCHR$ BCHR$ BNOT F>=P LPRINT ANOT BCHR$ ▘▗▗ LET ▝,/EXP ;s BORDER AND [M]SCREEN$ U[S]PEEK ASN ▚▗[T]W CLS 3LEN ▘ STEP ▝0 GO SUB ▟p` IF ▘PB▘ATTR COPY ?6▘@©A ?v&l@xuK*/PEEK ▜▝@[Q]T*DPSCREEN$ PRINT C▝%SGN NOT ▘B AND CHR$ USR USR ▞.<=v FLASH © CLS CAT PEEK ( RETURN ▚ LIST RETURN ?FU) OR STEP COPY [H] RANDOMIZE LLIST NOT CAT [P]??O© LOAD [J]agNOT COPY ©ATTR TPEEK ▝TPEEK ATTR MERGE <= COPY BIN 8▘08USR USR 0 DEF FN ( NOT ▝P DEF FN h▝@ DEF FN pX ▗ppxxH#▘00 @▖88:800 P!@▘:USR `INKEY$▗0phhc<=iP▗88`e▛▘0(©<=yqACS ▘ STR$ 0([P]P@ (8▛00 pp``ptt0>=LEN ▝o© CHR$ `▘x| OR (2 h ▗00x|!@!Z3▘hh(+▝| ▗`tp`)/▝8 BRIGHT ▝((J▘xx REM $▝ !~s[M]▟ [O]q !()<>▝8 e BRIGHT 9 DIM ▗8prpi CIRCLE ! IF )8 ▝V62h ▝jb1H?▘(08 ▘*y:f "|C@ ▘prb[E]!y!sq▘xx<>( GO TO 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 ▙""© CONTINUE FORMAT FN FORMAT [Q] FORMAT [Q] CLOSE #FN CLOSE #FN FORMAT CONTINUE FORMAT FN LPRINT LPRINT LPRINT >= CLOSE #FN FORMAT FN FORMAT [Q] FORMAT SCREEN$ CLOSE # DIM CIRCLE LIST SAVE LIST CONTINUE FORMAT [Q]>=[Q]USR [Q]KK/[H]WEEx DRAW RETURN COPY CAT ▙[P] RETURN DRAW SAVE INPUT LN P[Q]@ COPY COPY COPY RETURN DRAW RETURN ©©?<||xx8ABS RESTORE OR ▘[A][S]<=>=▖▖ @@@▝▜ CAT RETURN RETURN DRAW <|x0 COPY SAVE LPRINT AB`08|~ RETURN COPY LIST USR RETURN ??>>>? COPY ▜1AF8 @▜!USR USR USR LLIST LPRINT LPRINT LPRINT LLIST DRAW RETURN RETURN SAVE DRAW SAVE DRAW DRAW LIST LLIST USR USR USR COPY 8USR 8USR @@@ !>USR LPRINT >>< COPY COPY © SAVE SAVE SAVE p0 LPRINT COPY SAVE COPY © LLIST 8BIN 0USR USR LLIST NOT READ LPRINT LIST pppx SAVE SAVE SAVE xx SAVE SAVE p STOP RANDOMIZE COPY RETURN ~>>0 COPY COPY COPY ?>>~||| SAVE SAVE SAVE LIST p VAL aEXP Q[R]f>=H FORMAT [A][Q][Q]USR @@ LIST SAVE LIST !B▗ SAVE >WCODE _IN ©IN ~ LIST @USR @USR @ AND y<=x[Q]`[Q]`VAL (D▜▖P ▘▝STR$ STR$ LPRINT LPRINT LPRINT LIST LIST LIST SAVE USR LPRINT LPRINT LIST LET LET CLS CLS IN IN IN [P] LPRINT LPRINT @▝B$(0 `p LIST RANDOMIZE yxx||8USR @x▚8USR pb▗EGCGx?©| SAVE SAVE SAVE LIST RANDOMIZE ©?USR USR USR LPRINT LPRINT BRIGHT PLOT .>USR LPRINT LIST SAVE SAVE |x SAVE RANDOMIZE LET LET READ NOT =USR `▝~< INPUT [O]PEEK PEEK RETURN |?©~>>||| SAVE SAVE SAVE LIST LIST READ COPY COPY COPY RETURN DRAW SAVE CLS COPY COPY ©©?? OUT 7<=STR$ @ @USR LPRINT SAVE DRAW >??>~| DRAW SAVE LIST LPRINT ©IN OVER CONTINUE LET COPY RETURN RETURN RETURN DRAW DRAW COPY ©??>?©©>>|||©? COPY RETURN LET ▝ IF PAUSE POKE POKE DATA CONTINUE CONTINUE >= FORMAT FORMAT [A][A][Q] AAA▘▘3<=STR$ BIN TO BIN STR$ NOT <= STEP SAVE DRAW DRAW LIST SAVE LIST SAVE SAVE LPRINT MERGE SCREEN$ R▘▘(((PPPQ[R][R][S]CHR$ BLVAL USR 0p#3 READ ▚ AND BORDER B▘(((PPP[Q][Q][R]AASTR$ SIN NOT 8|<COS 9xW(((PPP[Q][Q][Q]STR$ CAT © COPY ©PEEK }VAL$ ]VAL$ BEEP jU/SQR MOVE LOAD DEF FN INK ` LPRINT USR USR USR USR (((PPP`[R] LOAD PEEK COPY BEEP INT MERGE SCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ CLEAR RUN g?'#cQQ FORMAT >= CONTINUE CONTINUE t▗ COPY SCREEN$ MERGE SCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ U REM MERGE CLS uSCREEN$ COPY [P] COPY RETURN DRAW SAVE LIST LIST LPRINT LPRINT LPRINT USR USR REM MERGE SCREEN$ COPY USR COPY COPY COPY COPY USR USR ab=z MERGE SCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ MERGE CLS COPY USR USR USR ▝><| SAVE LIST p SCREEN$ USCREEN$ CLEAR CLEAR IF MERGE PAPER *5jUSCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ u IF u INPUT IF 0x SAVE LIST LIST LLIST STR$ STR$ ATTR USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ UATTR UATTR VSCREEN$ TAT XFN PVAL aSTR$ COS 0x SAVE CLEAR CLEAR CLEAR OUT OUT OUT CAT ▜▜[I][Q]▝▗ LINE RCHR$ BCHR$ BNOT F>=P LPRINT ANOT BCHR$ ▘▗▗ ,/EXP ;s BORDER AND [M]0x SAVE SAVE LIST LIST LPRINT LPRINT LPRINT USR USR USR 8USR LPRINT 0p`<0pv&l@xuKUSR %B.<=v FLASH © CLS CAT ><< COPY RANDOMIZE LLIST NOT CAT [P]??O© LOAD [J]agNOT USR LPRINT LIST SAVE xx SAVE LIST LIST LPRINT USR prp (( ``( 0(8prV((( (80(8prj0(0prj(*(00pp(0prj(*(p(0`SCREEN$ STEP A IF NEXT GO SUB ssUSR !USR ▟[d MERGE GO SUB VAL !@ IF G COPY IN 9<> GO SUB LN !▞ OR RETURN [R]~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 NEXT NOT R▖MY[U]VAL$ COPY BIN *6ATN N#F#"6ATN GO SUB C[S] INVERSE !4ATN CLEAR ![S] STEP s[S] STEP ?[T] STEP l[T] STEP [T] STEP CLOSE #[T]<>:[S] THEN ? INVERSE N THEN 90< CLEAR w THEN q( THEN RANDOMIZE CLEAR q[P] INVERSE F CLEAR p:[S] CLEAR wO CLEAR ~&.hABS 0SGN 0 y[E]8k[A] CLEAR t CLEAR ▚ IF [T] CLEAR PEEK 0X)CODE CLEAR w OPEN #yABS 8 CLEAR F}[A]%▘N▖ CLEAR ~W▝_zD▟ABS 0SGN 0"{[E]8'(%q| CLEAR w[C]"<>▝[E]I(EXP 0 PRINT [B]W LET DATA {ABS CIRCLE }▘<>U<>:IN ▙[G]!( THEN ©( GO SUB DGINT ▛_ CLEAR GO SUB [6ATN BORDER TO CODE INVERSE THEN F 2R[U]!N[U] THEN ?O THEN ?2,[U]28[U]<O▝2G[U]!([U]" RANDOMIZE [T]y2[U]<> CLEAR ~ATN >= BEEP THEN ? THEN ? THEN ?o& LET iCHR$ )[F] CLEAR ^ INVERSE ~ THEN ? CLEAR ~8<2CODE [T].0)[U]<G:/ NEW <=2EXP [T] OR RESTORE ~ RETURN A( NEW 8 PLOT w# NEXT LLIST STR$ BORDER <>M▞ GO SUB [[S]) RESTORE INVERSE LLIST h▗2[U]▟2[U]![S]" STEP <=W▙ATN >=G OR STEP N[U] INVERSE n INVERSE # INVERSE f RESTORE GO SUB [[S] MOVE CLEAR 1[J]~ CLEAR INKEY$ CLEAR ACS CLEAR ## PAUSE STR$ FORMAT <> LLIST ▚ GO SUB VAL >▘ GO SUB VAL CONTINUE > COPY b▖CODE GO SUB g# CLS &▝0&W[H]CODE > FOR 2 DATA [U]2 CONTINUE [U]! VERIFY [U]" FOR [U]> CLEAR ) GO SUB [8ATN VAL ▝>2 LLIST [U]!<NOT R▚h STEP CAT [U]! DATA 0'▝ATN USR +&'~[E] GO SUB [BATN FOR ! LET [U]@ RESTORE 6<> FOR GO SUB [@6+ LET [U]p FLASH [F] FOR STEP LET [U] FOR =CHR$ VERIFY [U] LLIST 6 GO SUB <> GO SUB [Q] GO SUB [Q]Pppp$p.p8 BEEP ▝ INVERSE FOR ▝ CLEAR LPRINT ▛! COPY COPY "8ATN STEP pRNDVAL$ ▛( INVERSE ":ATN <> INVERSE STEP ▙ RETURN COPY ( RETURN ( LIST CLEAR 4 OVER 0*<>CODE 2KRND CONTINUE Y[E]0 GO SUB D INVERSE PEEK FORMAT CLEAR PEEK FORMAT INVERSE ~ CLEAR [G]08<> CLEAR PEEK FORMAT >-▜<>5*INKEY$3[S]POINT STEP INKEY$ MERGE RESTORE GO SUB KFN RND*SCREEN$ RND STEP QSGN MOVE MOVE :FN RND GO SUB KSCREEN$ RND GO SUB VAL GO SUB KAT RNDATN GO SUB B= LIST *INKEY$RND[M]-▝ FOR ▗ PRINT STEP LOAD RND▚ LET = PRINT RESTORE BIN [J] RESTORE + THEN ' THEN IF + PAUSE LLIST <> GO SUB [INKEY$RNDPEEK ▜~2FN RND#▘SCREEN$ RND<=▞ LIST RND2 PLOT RND▜▜2AT STEP COPY COPY COPY COPY PAUSE NOT ©PINOT FN tCODE H[G]5sTAB :rPI STEP |FN ! IF PI:vPI THEN ?0!SQR PI" SAVE PI2FN G:uPI[A]2VAL PI:sPI2 REM PI:tPI STEP DIM PIPI#x STEP DATA PI= LOAD <> PRINT RESTORE ^%O{STR$ ▚A+ GO SUB o CLS H[J] RETURN 8 LLIST LET NOT IF PI LLIST LET MOVE NOT ATN PI FOR !wPIs LET ▘NOT h▖TAB PI"9FN wPI# GO SUB VAL <>p@▘JFN p[A]2?[C]sPIp FOR +LN STEP STOP ▝ GO TO ▚ INVERSE n RETURN INVERSE f COPY SIN [E]▝ RESTORE @[M]▗+~ LLIST A$p[K]0[K]▚FFN INVERSE *pPI▖ FOR INVERSE <>@ THEN COPY F[E] INK COPY ▖ RETURN C COPY DRAW 0)▚ DRAW COPY [M] BORDER DRAW LIST @▚ COPY DRAW LIST BORDER LIST ? LIST BORDER DRAW ▘<=▘ RANDOMIZE ▖ RETURN LPRINT 0? BORDER COPY pSCREEN$ pSCREEN$ pSCREEN$ ERASE COPY ▚USR 8 LPRINT 8Q RUN ?<=© BORDER SAVE 8 BORDER COPY IN ▛ READ SGN ? BORDER DRAW READ [P]<= LIST ▖ COPY ▝ BORDER 8 READ ▗<= SAVE LIST 2C▚ SAVE B8 BORDER COPY ▘ STEP COPY W REM BEEP COPY ▝ RETURN !▖▜USR <0<POINT |?NOT LIST LET <=©<= DRAW 8 BORDER 8 BORDER © CAT ▚ LET RUN [G] OUT 8 LET CAT SAVE LET <=0▘NOT DRAW 80 LIST 0pSGN DATA COPY ▝ INPUT ▚USR STEP VERIFY PAPER TO MOVE ▖ INK ASN TAB OR INVERSE ▝8▝ BRIGHT FOR OUT ▜ OPEN # STEP PAPER VERIFY STEP USR COPY Prf BORDER COPY ▝: INVERSE INVERSE FOR CLEAR ▚ RESTORE INK TAB ASN INK VERIFY INVERSE MOVE TO ~CHR$ ▘ OR ▚©©`USR o<=n▗`U*@ CLS iFN ▘USCREEN$ DRAW IF PAUSE POKE PAUSE trtrtr POKE PAUSE POKE TSCREEN$ (pN MERGE n@^*p^ OPEN #@nTpnprp|`~▘SCREEN$ SCREEN$ FN SCREEN$ SCREEN$ [F]U*USR SCREEN$ ▛FN PRINT SAVE _ DRAW _OUSR US FOR DRAW CODE PI' RUN [M]_STR$ UVg LOAD ▞ SAVE STR$ SCREEN$ [U] BORDER RUN RETURN _^g[E] LET ▖Q<= LOAD />0FN COPY _[H] DRAW CHR$ U▗W CONTINUE LLIST ▘CHR$ SCREEN$ ▞CODE LIST PP@@0ATTR RESTORE PAUSE IN LIST PAUSE COPY PAUSE COPY LOAD PRINT .ATTR NEXT LET NEXT OR LIST LET LIST q COPY BORDER CONTINUE *SCREEN$ ATTR COPY NEXT LLIST STOP LIST PAUSE NEXT LPRINT NEXT UW COPY LET LLIST RESTORE p LLIST COPY COPY <= BORDER "SCREEN$ ATTR TO ▛9CHR$ NEXT BORDER PLOT eUWUSR 8▘8SCREEN$ DATA STOP SCREEN$ ATTR DIM PAUSE ? COPY NEXT COPY <= LET OR UT@@ CONTINUE SCREEN$ SCREEN$ *[Q]*[Q]p<=U▝W INK COPY SCREEN$ SCREEN$ T *4>xSIN GO TO PLOT 4Nx[S] TO - DIM [C] DRAW RETURN VAL ▝VAL ▞VAL FN gp-P-▝ -▞xxGVAL$ x▖▖ DRAW [A]▜x[N]x IZQUIERDA &FUEGO-1USR BAJAR0▞2 REINICI▗PAUS4IN USR ] OVER ] DRAW ]^8^V^t^[C]^VAL ^ DEF FN ^ GO TO ^_(_F_d_▘_[Q]_PEEK _ BRIGHT _ IF _`6`T`r`[A]`VAL$ ` TO ` REM `a&aDabIN aa[O]aSGN a PAPER a SAVE ab4bRbpb▙bAT b LINE b CONTINUE bc$cBc`c~c[M]cINT c CIRCLE c PLOT cd2dPdnddSCREEN$ d>=d NEW deIN "e@e^e|e[K]eLN e VERIFY e POKE ef0fNflffFN f AND f DATA fg g>g/gzg[I]gACS g CLOSE #g PAUSE gh.hLhjh▖hINKEY$hBIN IN h STOP hii<iZixi[G]iTAN i ERASE i[A]kVAL$ k TO k REM kl&lDlbll[O]lSGN l PAPER l SAVE lm4mRmpm▙mAT m LINE m CONTINUE mnIN $nBn`n~n[M]nINT n CIRCLE n PLOT no2oPonooSCREEN$ o>=o NEW op"p@p^p|p[K]pLN p VERIFY p POKE pq0qNqlqqFN q AND IN q DATA qr r>r/rzr[I]rACS r CLOSE #r PAUSE rs.sLsjs▖sINKEY$sBIN s STOP stt<tZtxt[G]tTAN t ERASE t LIST tuhu▚u[U]uCHR$ u LPRINT u RETURN uv:vXUSR v[G][E]vSIN v FORMAT v INPUT vw*wHwfw▗w[S]wA@USR A[D]BACADAEAFAGa@aAaBaC}IN EaFaG▝@▝A▝B▝C▝D▝E▝F▝G[R]@[R]A[R]B[R]C[R]D[R]E[R]F[R]GSTR$ @STR$ ASTR$ BSTR$ CSTR$ DSTR$ ESTR$ FSTR$ G LLIST @ LLIST A LLIST B LLIST C LLIST DSCREEN$ LLIST E LLIST F LLIST GHIJKLMNO!H!I!J!K!L!M!N!OAHAIEIN KALAMANAOaHaIaJaKaLaMaNaO▝H▝I▝J▝K▝L▝M▝N▝O[R]H[R]I[R]J[R]K[R]L[R]M[R]N[R]OSTR$ HSTR$ ISTR$ J[B]STR$ KSTR$ LSTR$ MSTR$ NSTR$ O RIGHTSTR$ LEF ▗ UP ▗FIRE"ATN DOWN`▝2-▗ABOR 6LN ▜E INT ^#V THEN :/▚SbLEN :cLEN CLEAR [A]">ATN 2[G]LEN 2[L]LEN :bLEN o"<ATN /▜[`LEN GO SUB S6ATN )[C]INT ▖= RUN <>STR$ w GO SUB [[U]LEN :5ATN =[B]6ATN G2 ERASE LEN O> [B]2 PAPER LEN ASN ▝ IF RANDOMIZE STR$ LIST {ATN STR$ ▘© REM $~$▟>(>>bd&F((*D:0@,▝STR$ ▗ AI▗8|8H|R/ COPY 0 @[R]▝~l$▜000▛<ffnvf<8USR ▝<0~▘,L RETURN ~``|<f`|f0▘~(▘@C8▘f>0/_ 0x=▝~p. h▝@▗JV^@7,,~F LOAD GO TO fABS f GO TO lCHR$ USR USR ▘CHR$ lUSR f▞ GO TO INPUT bdldb INPUT 0▘` LIST ▘ AND CHR$ ▝ BORDER USR ff BORDER <CHR$ <STR$ X PLOT dhxlf RUN LIST USR `▝b8[B] AND GO TO IF ERASE CHR$ CHR$ BORDER <=b2ZNF STOP lCHR$ AND `▘l`P VERIFY DEF FN t ▙db NEXT vCHR$ LIST |▚ BRIGHT FLASH [J]0X▝ BORDER CHR$ b▜4 READ bd40 SAVE [C] BORDER CHR$ CHR$ ERASE IF GO TO AND BIN h0L▜STR$ bTAB PLOT ▙8p STOP OVER oWn*4ATN NEXT "ZASN "XASN *XASN CLEAR !/ASN CLEAR 6 CLEAR 6x[U]#{[S] RETURN COPY :STR$ COS ATN >2STR$ COS 6*ZASN ERASE CLEAR s CLEAR r CLEAR MOVE '?▚!xASN FOR PAPER [S]!sTAN NEXT >CODE 2tASN "4INT 3! DEF FN TAN REM *fASN |ASN USR :tASN COS ATN USR GO TO ▙ NEXT "vASN !"tASN >> CLS <>> STEP nTAN >▝▚ CLS <>[S]▙ OR CLEAR n CLEAR f|ASN (B CLEAR ~; CLEAR 5*~= CLEAR wABS ▞ COPY # CLEAR V STEP &ASN ~SQR CODE 2lTAN STEP DEF FN COS > CLS STR$ CLEAR u CLEAR t CLEAR `▞( CLEAR 4 STEP 2ASN <=STR$ ATTR [J]>=:u[O]▖=2uASN <>:CHR$ COS ▘*v H▝ THEN [B] THEN R(LN > READ #N#NOT > PRINT LOAD ▚z NEW O LET < SAVE J THEN 9 THEN 9▜>$zN#SCREEN$ <N#ACS ( CLEAR ^ CLEAR n CLEAR fN CLEAR ~ MERGE Y CLEAR COPY GO SUB y CLEAR IN GO SUB Y MOVE o.▘xASN yABS ▗▘ASN BIN ▗ASN TO pp©m/ SAVE @AB GO TO [H]DEFG @ A B C D E F GUSR @IN A@B@C@D@E@F@G`@`A`B`C`D`E`F`G@ABCDEFG[Q]@[Q]A[Q]B[Q]C[Q]D[Q]E[Q]F[Q]GUSR @IN USR AUSR BUSR CUSR DUSR EUSR FUSR G LPRINT @ LPRINT A LPRINT B LPRINT C LPRINT D LPRINT E LPRINT F LPRINT GHIJKLMNO H I J K L M N O@IN H@I@J@K@L@M@N@O`H`I`J`K`L`M`N`OHIJKLMNO[Q]H[Q]I[Q]J[Q]K[Q]L[Q]M[Q]N[Q]OIN USR HUSR IUSR JUSR KUSR LUSR MUSR NUSR O LPRINT H LPRINT I LPRINT J LPRINT K LPRINT L LPRINT M LPRINT N LPRINT OPQRSTUVW P Q R S T U V [J]W@P@Q@R@S@T@U@V@W`P`Q`R`SIN U`V`WPQRSTUVW[Q]P[Q]Q[Q]R[Q]S[Q]T[Q]U[Q]V[Q]WUSR PUSR QUSR RUSR SUSR TUSR UUSR VUSR W LPRINT P LPRINT Q LPRINT R LPRINT S LPRINT T▚ LPRINT U LPRINT V LPRINT W STEP ▞H0BIN <= COPY COPY B POKE T▗USR w LIST i© COPY ▘B POKE <>▝ VERIFY ▝>=▝Mp4 LINE ▚ CLEAR ]{ DRAW >▘*INT COPY b COPY ATN COPY ATN COPY ATN SAVE ATN VAL$ VAL ABS LLIST VAL EXP AQ10P SW29OL&XDE38IKMCFR47UJNVGT56YHBSGN [E][U]ASN ) RESTORE INVERSE LLIST <>!PEEK EXP !SIN EXP "EXP [U] STEP 3EXP THEN ? THEN ? THEN ?2▞EXP [T]▚2©EXP 2[F]EXP RND▗:<ATN G@[P]EXP OR INVERSE n INVERSE # INVERSE f[A] STEP SIN EXP STR$ FOR <>X' STOP [P]:/2RNDEXP :>ATN RESTORE 6#= IF LLIST LOAD <>G DATA ▝ RANDOMIZE 0IN <> NEXT !x/ STEP ▘INT CODE 2SCREEN$ ATN >2/> STEP [T]INT STEP cINT *Q/"INT !EXP "Q/!LN ATN q# DRAW q>NOT 2ATN ATN !*INT "LN ATN >LN GO SUB G GO SUB ^ CLS <> NEXT CLEAR !:/! LIST /) GO SUB V CLS CAT w▖ PLOT CLEAR © NEXT GO SUB yAT OR PRINT RESTORE MERGE INVERSE RESTORE CLEAR RESTORE STEP EINT STEP FINT STEP ]INT CLEAR LLIST INVERSE LLIST MOVE LLIST LET STR$ CLS <>*x/#"x/|ASN !z/4*{▞{/<> STEP OR INT NOT CIRCLE INT THEN ▖INT !X [Q][I]"[N]ATN !@6 RESTORE MOVE GO SUB VAL <>!/ THEN RETURN ▝PEEK ▝ PLOT ▖ACS <>2POINT ATN OPEN # RETURN <>USR ▝O NEW <=LEN FLASH ▝<> ▗ SAVE NEXT NEXT cW[C] RETURN ![P]ATN y FLASH RETURN PLOT LPRINT w# THEN PRINT <> >[U](4 THEN O( THEN W( THEN _(>[A] THEN ! THEN ! THEN !▝2PIL[B]*EXP ~ RETURN LINE INT 2FN ATN <>#BIN ▟ POKE o NEW 8 PLOT F21SQR } NEW PLOT [F][P]ATN THEN ^<> STEP SQR &(> COPY o<>CODE o<> MERGE GO SUB ▘T]ACS INT ▘ THEN SGN RUN ▚} MOVE <> GO SUB [4 FORMAT [B] MERGE CODE GO SUB R RESTORE STR$ ! COPY © STEP hSGN RESTORE STEP ASQR STR$ ATTR MOVE "4ATN <> FOR s#r# FOR <> RETURN 08[ RETURN :8 RETURN A8S RETURN G0O PRINT BEEP LET VERIFY ` RETURN & BEEP = RETURN :09[H]0J[F]SQR ~SQR PAUSE SQR GO SUB S LIST SQR 2 DRAW SQR y2)SGN !INT ATN >- BEEP > BEEP 6 COPY STEP VAL$ SGN RETURN - RETURN ( RETURN (PNOT [F]SQR d[F]w#6 COPY x RETURN 8 VERIFY > BEEP :)SGN ATN x2[G]▘INT [E]▜><>26SGN 9▘CODE ▘E[P] PRINT STEP QSGN LET O STOP <>|/g}/o#<>xATN ([C]+Fp[N]> BEEP NOT MERGE SQR MERGE FOR > THEN 8 THEN 0 THEN # THEN = PAUSE MOVE <>P▙ THEN GO SUB j GO SUB B0?= LET ASN "VAL / FOR MOVE <>oCODE THEN 90 THEN % RUN <>oCODE THEN [J]0▝? PLOT THEN 2VAL /}<>ATN RESTORE OR MERGE STEP MERGE SGN :FN ATN ERASE ▝ PLOT P▛( PLOT MOVE STR$ LLIST <>G!b+▝▛ CLS PLOT <>> STEP <>SGN STEP IN }▝jCODE 2 LPRINT SGN THEN |(>-ATN STEP 7SGN :EXP RETURN 8({ABS CODE oABS ><>yABS CODE GO SUB CmABS 2UABS :EXP ATN (| STEP ABS STEP lABS | STEP [B]▝}0▛ LIST CIRCLE STEP ]ABS DRAW ▘[M] COPY ▝ PLOT [E]} AND 0 BEEP : LPRINT SGN ATN >= BEEP <> DRAW FOR zt/WyNOT oABS RETURN 0>=ed▝ BEEP CLEAR ▖ NEXT > PLOT NEW LIST STR$ [A] AND 0 RETURN : CIRCLE AND <> NEW POKE LLIST ~# RESTORE @▛ RUN !0):[O]ATN o[K]w<> RETURN 0 RETURN LINE PEEK RETURN LINE PEEK RETURN LINE 6PEEK RETURN LINE JPEEK < GO SUB [EXP RESTORE :[N]ATN THEN ' THEN ' THEN '4"[P]ABS VAL$ ▝▝I▚_ LLIST FOR >▚$ RANDOMIZE STEP [O]ABS /▞< RETURN 8CODE 2[O]ATN 6< RETURN 8CODE 2[N]ATN <>▝<>yATN >0▟ATN > READ = DATA = INVERSE >=G:EXP OLN 0 CLOSE #▝B[K] SAVE SGN STEP PEEK > STEP VAL ABS <= STEP >=EXP > STEP ▙PEEK STEP zPEEK CODE ▗ly>0▘>0NOT XPEEK `y!USR [L]( CLS <RND▗> THEN BORDER Tn COPY COPY COPY COPY COPY MOVE ▛@ COPY 8[ OR a*▙▝(gpppp(02▘ NEXT [P]2▘`.`▚ COPY COPY CLS OUT RETURN .k▘ OUT LPRINT @ COPY LIST COPY | NOT [M]© FLASH BORDER / DRAW ?COS LOAD ( SAVE 8k OUT BRIGHT LPRINT POINT WPEEK COPY ASN .SIN pPOINT RETURN [F])m▗ DRAW `▚ DRAW COPY INT INPUT SAVE ? COPY 9w▞ CLEAR [P]USR PEEK ▝`▚ LPRINT COPY COPY POKE ▚STR$ CAT CAT COPY COPY ▞ COPY COPY COPY LPRINT LIST p PAUSE p PAUSE p DRAW qqQw▗ COPY USR LINE ▚ LOAD CLEAR IN USR ▘?<= PAUSE ▝(▝ PAUSE ▝ PAUSE ▝<= PAUSE ▝ PAUSE ▝ READ PAUSE ▝ PAUSE ▝STR$ ` PAUSE ▝` PAUSE ▝ PAUSE ▝VAL *- PAUSE /[P]▝ PAUSE ▝(LN ▝ PAUSE COS ▘<=` PAUSE ▝ LOAD p PAUSE p PAUSE p PAUSE p PAUSE p PAUSE q DATA q DATA q INPUT q SAVE rr▝b COPY DRAW © ▝ LIST COPY CLEAR DATA ▗ COPY LPRINT ▜ DATA ▝ DATA ▝ SAVE DATA ▝ DATA ▝ LPRINT DATA ▝ DATA ▝USR a DATA ▝▝a DATA ▝p PAUSE DATA ▝PUSR ▝ DATA >=[P] DATA CLOSE #▘a DATA ▝IN q DATA q DATA q DATA q DATA q DATA " VERIFY ▝ VERIFY ▝STR$ 9▝0 LPRINT ▘ RUN [E]▜USR COPY COPY DRAW READ ▜[D] COPY RETURN 0?STR$ L COPY DRAW COPY LLIST ▘ COPY LIST STEP ▖2▘1^(LN USR OR RUN DATA ▜>o▝ POKE Ja▗ LOAD SCREEN$ a OPEN # GO TO CLEAR ▘#ACS CLEAR CLOSE # TO RETURN ▚ LET LEN READ USR LPRINT ▚ COPY j|? COPY ▗ COPY COPY COPY H▝USR COPY 7IN [I]<= COPY [A] SAVE COPY ©USR LIST COPY 0?z▝pRk▘NOT POKE ▝ RETURN REM ▘<SGN ▝[M]s>=c>=COS CONTINUE BRIGHT ▘ FORMAT ?[M]▝,/▝ FOR ▘0SGN ▝ SAVE SGN ▝▝▘ SAVE PAUSE ▝ PAUSE ▝ LPRINT PAUSE ▚^ COPY PAUSE ▝e PAUSE CLOSE #▗> PAUSE TAN PAPER PAUSE ▝FN CONTINUE ▘ PAUSE ▝ PAUSE ▝ PAUSE ▝ LOAD p PAUSE p PAUSE p PAUSE p PAUSE p PAUSE p PAUSE p PAUSE p PAUSE p PAUSE p PAUSE p PAUSE tINT tINT tBIN T DEF FN ▜ RETURN 3 COPY IN TO ~ DATA ▝ DATA $[C]▝ DATA ▝. PAUSE ABS ^T PRINT ▗© DATA COPY > DATA ▝ PRINT 1 AND DATA =} DATA ▝ DATA ▝ DATA ▝▝ SAVE a DATA ▝ CLEAR q DATA q DATA q DATA q DATA q DATA q DATA q DATA q DATA q DATA q DATA UAT ▝AT RETURN [G]▘[T]▜ LIST 8 COPY COPY ▙ INPUT ▖`© COPY RETURN :ASN ▚ LPRINT © COPY x LLIST Y▜@1 COPY COS [B][G] LINE . LINE n FOR u CAT ▜ NEW COPY IF #y& COPY ~#▗OIN @▗IN ©[Q]0▗ COPY IN o DRAW 0(▗ LIST OUT / LPRINT /P7<▗ LINE [A]SIN INKEY$0<▗[T] LPRINT ▚: LOAD nLN hi▗@ePRs▜8 LPRINT ▝ LPRINT +▘ LPRINT COPY USR LIST [Q] COPY LPRINT ? SAVE v[O]V[O]p DRAW TAN ▘[T][M] LIST |` DRAW ▝ LIST p DRAW p DRAW p DRAW p DRAW p DRAW p DRAW p DRAW p DRAW p DRAW p DRAW DRAW ▗ RESTORE /QF18▗ OUT FORMAT ATN PLOT 18▗ CAT PIpp DRAW ▝ READ PAUSE p DRAW @ CONTINUE y▗USR p▜ LIST USR LIST 0 PAUSE ▗@p PAUSE #PEEK SQR ▘M FLASH zCOS VERIFY G[R]▗[F] FLASH POINT BORDER k%UU$~? RETURN U FLASH ▙%?@Te CLOSE #/ COPY _AT ▖/ COPY VAL = CLEAR ] BEEP / COPY CAT AND RESTORE SCREEN$ VAL$ / COPY ▘IN Q"CODE ▗TAB GO SUB INPUT VERIFY 0▗ PLOT PRINT < PLOT )▞x: GO TO STR$ 5)[D] LIST [N]eG*_0F▗ BORDER PEEK ©")LEN s FOR SGN )SQR ▗[T] RETURN U▚ OVER p READ ▗?[Q]▞ RETURN ?p FOR ▜ LPRINT © LPRINT SIN @*K▝w[A]x▘▝ RETURN p DRAW p DRAW p DRAW p DRAW p DRAW p DRAW p DRAW p DRAW p DRAW p DRAW p DRAW p DRAW p DRAW ▚ PAUSE ▙}[E]0 DRAW ▗o BORDER ©0 DRAW DEF FN BORDER PEEK w#p DRAW p DRAW DRAW 0 CONTINUE [B])w LPRINT PEEK @ PAUSE ^▜ LIST COPY ©9tM BRIGHT GO TO ~▝ RETURN READ ▘ POKE ▖▝ SAVE GO SUB [G] CONTINUE COPY SAVE © LPRINT FORMAT COPY LPRINT USR LPRINT 84▚' INVERSE COPY LIST %▗▘ RETURN AT (F PAPER 9<>▗ LPRINT REM SCREEN$ GO TO )[D]▝P% FOR ▗▚?[P] LIST OVER ▘<=q▚ SAVE COPY USR ▝P[N][U]2▝©J z(z2z<zFzPZZjf▝ SAVE f▝p▝p▝x[S] ERASE ▝ COPY DRAW s▚< COPY DRAW 1nt[F]UFN 0▜x>INT ▜PFN ▝/▝0&v▚ RANDOMIZE COPY CAT LIST RETURN :"▚= CLEAR U LET *Q IF PAPER 'TAB THEN RETURN ?U▘Ow REM COPY NOT USR CONTINUE ▘ CLEAR ▘?▝z[N] RETURN RESTORE ▝@RNDIN $▘ LPRINT GO SUB ▝VAL INKEY$k▘USR ▝B▝USR <+L▝ READ zfTAB +[P]b> COPY RETURN PAUSE L▝ DRAW BIN ▘ FORMAT /▘ RETURN l▘ CONTINUE f▘ SAVE v▘ PRINT SGN ▘`[E]▘ IF [I]POINT ▝}SGN ▝ RETURN FOR ▗w`H RANDOMIZE USR (▝SGN ▘FN 2 FORMAT ▘ NEW FORMAT @ RUN GO TO ACS < PRINT CLOSE #INT F▘ BORDER PAUSE >=▗ RUN [F]F▘ IF [Q]R▝J▘USR [B]▘ OR ▗ DRAW ?▚' SAVE ▝ RETURN [I]▝*▝ SAVE l*▝ CLEAR |4{X▝ COPY AT ERASE >=Hp([G]▝ SAVE [Q] FORMAT COPY LOAD LIST |▝ CONTINUE ▘ COPY ▜Q▘p COPY PEEK ▘>-F8O INVERSE P▘C INPUT VAL$ ▝0[A]▝[H]USR RETURN <©; SAVE RETURN >U{RASN AND ▘x?"c FORMAT ▘VAL ▘USR TO ▝ FORMAT ▝ DRAW VERIFY ▝ LPRINT LINE ▘ RETURN LINE ▘USR CLOSE #▘ DRAW * CONTINUE ▝? CLOSE #o: PAUSE 8D}}&r VERIFY ▘ COPY DRAW <p4 STEP x,pq SAVE OVER ATTR ▝ RUN n▘px▘ LLIST x▘ DRAW OVER ▘TAN |l) CONTINUE ▘SQR PAUSE @wCHR$ ▝ DIM ▝ RETURN LPRINT <© BRIGHT ▚|© COPY OVER ,[A] RETURN COPY DRAW ,[K]>=▝ RETURN ▘ RETURN RETURN *▝?▝@SQR ▘ COPY ▘@ MOVE ▝ COPY DLN INKEY$▝IN NEW qVAL ^s>=N.▝ LET .▝$8q FORMAT ▝ SAVE ▝ LIST ▛@ RETURN © LPRINT COPY USR VAL$ ▘@▘`CODE CODE ▘Lf▗ COPY PEEK ASN ▝ PAPER ▖r▝[P](▝ LINE ▘gP▘7 LOAD /▝ CLOSE #▗+CODE LPRINT DEF FN P▘W BORDER POKE E COPY LOAD LET LN v▘_▘ LIST Z▘LN LOAD INPUT ▘©u DRAW NEW RND[G] DIM ,o▝ COPY [D]O▝IN ©tINT ▝ COPY ![*▘▝l[K]b▘ COPY x▟LN ? COPY .v ERASE ▝©USCREEN$ ▗ LLIST ]|▚? NEXT COPY [P]USR SAVE ▚/© LPRINT -SCREEN$ IN SGN /P[_/© OPEN #VAL / ▚SCREEN$ DRAW < PAUSE 2▘W1(▗NOT COPY IN ▝ DRAW <>[E][G]▝ COPY g COPY COPY a▝USR CONTINUE ▝l/ PAUSE ▝8XO DRAW ▝<=%AT : COPY | LINE COPY ▝/[P]▝&▝SCREEN$ ▘ OR ▘ SAVE OR ▘USR VAL ▗▝ RESTORE ▘SQR DATA (▚©5© CLEAR COPY MERGE [x REM LLIST ▗7UW6 POKE ▘<▚ RETURN pSTR$ V▚ RANDOMIZE DRAW 5j▘USR [O]▝~ATN PLOT [T] POKE / LINE -© CLOSE #© OVER © CONTINUE © PAUSE © DRAW o DRAW ▝<>INKEY$ CAT 0 COPY ▜( COPY p RETURN DRAW SAVE USR LIST LPRINT ?USR COPY BORDER NOT ,▝V[E]▚<▝NOT BORDER p`[C]NOT 8 COPY FORMAT DRAW USR USR ??STR$ COPY LLIST 0h▘▚*▖USR / CONTINUE w LIST ▝POINT ▝NOT p"▗NOT COPY z▖ POKE USR INPUT USR a▝USR t▝NOT © TO © TO © VERIFY © LPRINT © REM ▘ COPY CLS POKE ▝ RETURN ▘[P] LET RETURN CHR$ RETURN Kj DATA &CODE TAB 0f▘} PRINT ©▗©__▝©TAN ▘ LOAD ▚?5 RUN GO SUB LINE ▜?!/PEEK COPY PRINT X[G]J▘! BORDER ▘▚F▝ PRINT ▘ RUN IN }SCREEN$ }TAN }PEEK }>=} ERASE ~ PAPER ~ PAPER ~ DATA $~. SAVE ▘%v0▚CODE [Q] COPY DATA AND ▘ PRINT PAUSE & LIST ▝ OVER [K]▗RND PRINT POKE l IF ▛IN LOAD . CLEAR ▗u© PRINT DATA ▚VAL$ COPY COPY [Q]P▚ MERGE COPY PRINT DATA Z▚ATTR CLEAR LOAD [Q] SAVE ▚u COPY PRINT CLOSE #▜.CODE VAL$ [Q] SAVE ▜5u LET CLEAR 'JCODE [U]^©u[U]▝ DRAW '[U]▝EXP G& SAVE ?[S]~INT ~BIN / TO P>▝R#▖ COPY D PRINT p COPY [Q]n RUN VAL$ 54 MERGE f▜©]VAL$ POKE L▗GABS POKE LINE ▚TAB oPOINT ▚_IN MERGE [E]-[I].?©CODE FN ▚n OUT uBIN /CATTR ABS IN CODE ATTR /M▗ PRINT REM BEEP _Ev▘= INPUT RANDOMIZE b1 CAT RUN MERGE MOVE <.▗ASN o[T]AT ,r PLOT PRINT PRINT t*zSCREEN$ CODE CODE [Q]a▘ PRINT MERGE )[C][R][T]CODE !V? PRINT MOVE !j▘!PEEK +ACS ▝▗&▝ IF LINE ▘ MOVE ▘ COPY !▘ COPY RETURN , BORDER 0B▘ OUT IN 4p▘?/▘ RETURN ?>[T]. PAPER ▝~▘p▚© LIST RETURN CLEAR p.=▘©d▝ SAVE qp/E STEP ▝ ASN ▖v▗ COPY RETURN hATTR LPRINT `USR (VAL ? LIST ▘Q[C]@*0▗4 LIST l▘VAL ▘ COPY ▝+ ▝pppp$p0P<▘Z▘+▝?0[S] OVER +INT NEW ▝Qd]0&▝?$ SAVE [S]▝?SCREEN$ CODE /▚▝p0[F] CLS p0ATN ▝ DRAW [T]`P`p} LOAD p▘p▘p▘▘' ERASE p▘▘ COPY USR p▘pP▘▘pSIN ▘▘p▘p▘p▘qAAaQ!qq▝▗BIN qq4pPqq COPY COPY LPRINT ▝* RETURN ▝*[E] MERGE LINE wINT [S]$.▘[S]▝ SAVE LIST ▛ LET C27 BORDER BORDER %p©CODE z$ DEF FN ▘[P] RUN F$ CIRCLE ▗o COPY RUN LPRINT ▚' COPY DIM LPRINT RUN ▚v DIM ATN BORDER POKE # LIST ▗IN Uo NEXT G PAPER TAN COPY PRINT = INK ▜' CLEAR PISCREEN$ ASN CIRCLE [U] RESTORE $ RETURN SAVE FLASH >=>= COPY [C]*O[S].PEEK /SIN ▘VAL q BORDER READ ?>=+ IF Rm▝USR CHR$ / OVER ▗WCHR$ RANDOMIZE O{ OR @/▗IN RESTORE NEXT CLN [J]mLN ▗© IF COPY NEW x ERASE e#0▚CODE CLEAR ©IN / LOAD - OUT READ [T].W COPY CLS WCODE $/~[C]@© COPY FLASH DRAW _IN IN RUN CODE MERGE dIN BORDER RETURN 4▘p{▛IN COPY OUT FOR PRINT j CLEAR o COPY COPY BORDER ts MERGE RUN IN PI IF PRINT COPY IF POKE COPY [D] DATA ©* BORDER [P]▝ COPY COPY LOAD RESTORE `USR ~(▖ RETURN COPY '<NOT l CIRCLE COPY NOT IF SIN >=>= COPY >=>= COPY BORDER <0©{8▘O[S]▗CHR$ SCREEN$ ▜! THEN eLEN w4 AND j[M] REM h BORDER 5[H]▜ RUN ^_UQ]5▚,SCREEN$ : INPUT SCREEN$ [K]4 REM ▚ INK u/[u MERGE 5[N]▙1▖Z!TAB ▚wRND OVER RsqCHR$ COS ▝ DRAW j OVER BIN TAN ?>=▝ VERIFY ▝ LIST Z▘AT O CONTINUE %<=O IF [F]? RETURN ▘TAB READ USR $H9▚▗ CLS <= CONTINUE / PLOT ▞,<▗ BEEP LLIST PRINT CLOSE #▝"▜ STOP [Q]CODE PRINT z[G]▝ LIST *©' SAVE IN D▗*▞©7IN >CODE PRINT RND'INKEY$&▞ LOAD G CLEAR _ IF ATTR LOAD USR *[D]▖ATN ATTR [Q]IN IN MERGE w" OVER %CHR$ ▞CODE PRINT W CLEAR CONTINUE POINT POKE ;" COPY ▞_ IF IN IF SCREEN$ ©<=ABS f7▖INKEY$CODE CLEAR COPY RUN U/ PRINT qPI▘ m TO USR USR LN ▗ACS COS 33/IN >=▝ IF USR U"ATTR M RETURN ▗ RETURN COS M OVER ▙[K]"NOT TAB L LIST ▗ CLEAR VAL$ ▘;!▗[S]mk DRAW ▗T ERASE LINE 4'T[R]l!BIN ▘@INT #Z▗ VERIFY /,'l*X! BRIGHT ▘ COPY DRAW #B COPY SCREEN$ CODE _[J]▘ MERGE W#h▘ MERGE ` CLS ▗ POKE VAL 2m POKE X/w▘ POKE ,?i▘ POKE ?q▘ BEEP 7= RUN OR [E]/[H]▘ PLOT PAUSE TO ▘}h00▘CODE FN /CODE CLOSE #S FORMAT 2L▝ COPY 0▘▝NOT USR G▞USR 3▝$USR TO G[H]USR ▝USR 0GRND▝VUSR SCREEN$ t#s▚x© RETURN BCHR$ LLIST 0x/▘:G FOR ▝COS ▘▘ STEP G RANDOMIZE 0j!▝}0j!▜BASN w[H]7 DATA [T] INVERSE ▘!_`V2S▝;Hy▝6/ FOR ▝|H▜▝c/ RANDOMIZE ▝ LINE H[F]▝ AND LPRINT ▘wH[T]▝/▘>=HLEN ▘rH SAVE ▝$2E▘ GO TO GO TO ©▝fXUSR 1▘ CLEAR H FLASH ▘s[I]f▝[▘#P CLOSE #▗▘Ahm[E]h POKE U▞ READ /[L] LPRINT COPY USR ©95`VAL x POKE ▚ CLOSE #/ DRAW ▝ CONTINUE ▝ LPRINT LIST + BRIGHT P▝+(4▝8▝<▝?@(▞%TZ[S][P]CHR$ ▝CODE INK ▝IN BEEP ▝[C]SQR v"i OR U LOAD / INVERSE THEN IF SGN LEN t9y CIRCLE SQR [I] PAPER SCREEN$ CLEAR T_/▞Wy GO TO ▜ COPY BORDER 1 CIRCLE NEXT RETURN PEEK u@[F]▞ STOP POINT COPY ? LOAD THEN WS}p<< READ CAT DEF FN <9 REM ▖ INK #[C]H AND ▖ INVERSE ATN DRAW COPY O MERGE OUT COPY rZ>[P]FN THEN O[B]COS DEF FN DRAW EXP TAB zP▞[T] LET [F] RETURN _LN DATA [P]&E(&©▞IN RETURN OPEN #[T] OUT CLS CLS RANDOMIZE CAT zx▚ COPY _ RUN <=<>ATTR LET z STEP SAVE OVER ATN SGN wAT [K]ABS z[Q]2 CLEAR :N}{▛.OzTAN fO^LEN INT =_[T]z>=▞ PAUSE PAUSE IN D|/IN ▜p(wOv0▘ /e~? RETURN /[E]▝" READ SAVE ? COPY 3SIN SIN 3INT ▖ COPY CLS SQR ▛SQR SQR INT K,▘©[N]CHR$ [J]J POKE ▘ BEEP CHR$ MERGE K*▘ SAVE /▘ LIST / CIRCLE [J]PTU ▛`` SAVE COPY NEW PRINT CIRCLE [P] FOR [G]hSCREEN$ SCREEN$ PEEK n LPRINT 6[A]i? INPUT LOAD n COPY VERIFY INPUT ▝m PRINT ^ STOP nINKEY$ BRIGHT EXP n LOAD CIRCLE v INVERSE ~ LPRINT ~ INPUT STOP 3▝VjPEEK SAVE v MERGE PAPER TAB VERIFY SCREEN$ DEF FN CLEAR vn RETURN SAVE SAVE CONTINUE &[D]▝▚ COPY RETURN FOR RETURN FOR (iACS INK [K] PAPER REM SCREEN$ ^ATTR PLOT ATTR /@[L]SCREEN$ STOP SGN ! LIST ▞▝ DEF FN SCREEN$ CLOSE # DIM l0!8▛^SIN [E]INT CHR$ LN CF▚5 PLOT 9[T] CLOSE # THEN IN ▘▚T▜L INVERSE x[C]INT 'jTAN EXP USR -▗LEN [T] VERIFY k IF xMSTR$ [D]SCREEN$ [U]x8C LET *▛▗SCREEN$ VERIFY GO TO INT 0pf[N]▛ RETURN DIM Z LPRINT FN ▞fVAL$ oFN x REM SCREEN$ NOT ▞v[M]W DIM RPOINT R<▞uPOINT k COPY FOR COPY VAL$ ?[E] COPY ▗▝▝[Q]%7PI▘ %8 THEN 2}<ASN ▘PIOU=▗ ▙5[Q]▗[U] DATA 6*}T▗ LET @ RESTORE AT INKEY$vMm▝LN = INK 8z/[J]▗ FORMAT 5Z GO TO <D READ P▝[U]/STR$ DATA Lq5▙ DATA MvE[G]&0▝ STOP 2 OUT AT LN M OR ▗%$4▗ RESTORE RND RESTORE RND= PAPER ▘%[N]▝ COPY (▗TAN ▗ LET COPY CAT /▚ COPY 7 BORDER LIST RUN % RANDOMIZE ? BEEP COPY DIM <[A] LOAD GO SUB COPY PRINT LOAD <[J]8>=▝ LIST POKE DOZ▘P▘ DRAW D NEXT AT ND▘-▝ LPRINT N▘$>[A]▘ NEXT ▜.[K]▗©▟INT x COPY 5 OR TAN ▝0PI ERASE ▘ LLIST ▝>= P▘ L[U]▝VAL$ ▘_t▝ SAVE ▝ LPRINT ~▗ LPRINT COPY U?SGN . POKE ▚?O REM USR ▚7#CODE USR ?▗ INPUT PRINT MERGE @SIN LOAD l CLS +LN ▚ COPY RETURN 8SIN <ABS VAL ',^▝ DRAW )CHR$ ?sv@ SAVE ▘ COPY y▝ LPRINT EXP 9b▝?I=▘?`}I)▚ COPY READ BORDER x COPY COPY >= COPY COPY _ RUN COPY COPY [P] BORDER _[M]T O COPY COPY _AT ▚© COPY ?VAL V▘ LPRINT `P▝i▝pptiP[A]*O BEEP + TO CONTINUE `,PI▝?l▗ FORMAT @ LIST ▚Lr ▘ LIST ▗<=ASTR$ 0▗0 ▗CNOT ▘@▗8@STR$ RESTORE CAT IN ▘ COPY DRAW EXP ▝x@USR s OVER BRIGHT ▘ COPY DRAW READ ▝ SAVE ▘5 CIRCLE ▗ FORMAT Y OVER USR DRAW .USR ▝ NEXT COPY COPY © LPRINT REM KA▝ LIST KR,0P▝/bg7▝<=LP▝STR$ L&_W▝L6▝_[]Fz▝CODE ?CODE ▝ RETURN @▝@ ▝ DRAW P Vpp /r▝SQR p0p@ NEXT > INPUT ▝©KPOINT GO SUB RUN ▝ GO TO ▘▞ LPRINT SCREEN$ VAL$ CODE RUN IN RETURN M[B]▜ LIST UU©U{ INVERSE ] TO >▘ RUN PEEK [▙▘ CLS > [S]+▜| NEXT 1 OR 4t▗5[H]EASN / LET 7TAB kCOS :H▗ FLASH CHR$ <=RND9 LIST [L]▛COS 6 RANDOMIZE [D]m MERGE LPRINT THEN 4▚▗VAL$ CIRCLE PI[M]/ IF ▗-w[N][M]9*▗ CAT REM s6 LET ASN [J]Ow[H]/ SAVE LN ;bATN :6▗i|[O]=;▗ FLASH o DIM / LOAD ▗}COS 7▜;▗:wEXP DEF FN 9ACS <=<= LLIST : PLOT dO DRAW ▝ COPY BIN ▝Y▘ COPY FORMAT NEW LIST wD[H]▝NOT A▘ RETURN !@=< NEXT CIRCLE ▘4 OVER ▝CHR$ <7CHR$ BRIGHT [A]= STEP LPRINT USR `▗USR DATA CAT CLS ▜ READ IN 4 RUN /▝/1 COPY LPRINT VERIFY ▚ TO TO STEP [Q][F]7 RUN POKE / FORMAT ERASE LPRINT RETURN DRAW ▝ LIST [J] RETURN COPY [Q] SAVE IN p@ LIST ERASE ▝?AT ▗~CHR$ :[N]IN NEW ©CHR$ SAVE ?▝ LIST <? LPRINT LLIST DRAW 7▘ READ DRAW b PAPER ▘<= COPY phphh_▝ COPY 0zt▜TAN DRAW COPY ACS T▘( ▝ BRIGHT PEEK ▝ COPY AT RETURN L▝ FORMAT SCREEN$ ▝[I] <[A]< COPY COPY LIST CONTINUE USR ST▙FN 7|>=▝L▝▖▝P0▝▘:E_MSTR$ [I] LPRINT FN LPRINT >=0▝▝p0(▖ LPRINT <=IN PAUSE DATA VERIFY >=INT AT [O][A]▘tfXJ<.&8Jl▙VAL [S][E]▚( REM l INPUT pPOINT t VERIFY SAVE IF BRIGHT PEEK @▘D!▚" CIRCLE " LINE #L%N& LIST &[C]' POKE 'V( COPY B NEXT B▘ RANDOMIZE D RANDOMIZE ▘ FLASH FLASH RANDOMIZE p POKE COPY D FOR Dn CLEAR ▝ LPRINT LPRINT ▝/INT ▗FN SCREEN$ SCREEN$ p: CLOSE #▚SCREEN$ E4P/K▗/UU} SAVE CLOSE #▚S$*PEEK (+ POKE ▝ LIST © STEP BEEP ▚FN A© INVERSE B BORDER ▚0[S] IF INKEY$0kSCREEN$ SCREEN$ ▛ FLASH ▚ LET tR VERIFY /RNDUU/ INVERSE ▚ 9 REM :, RANDOMIZE / MERGE ▝ DRAW E9 BRIGHT BEEP ▜ VERIFY uO&q▝ BRIGHT ▜ CLS :CHR$ READ [I]-%©pUSR DEF FN ▝ NEW ▖br STEP Qtc= VERIFY USR UpUSR STEP ▘VAL$ COPY ▜FN POINT [S]FN EXP ;-r VERIFY m MERGE _▜VtyUG8 LPRINT CAT CONTINUE @SCREEN$ *:z[L] *USR rz STEP CAT POKE USR ueWuMe.▝pSTR$ Ur@ STEP <= CONTINUE 0INT ▙NOT [S]SCREEN$ COS ,V▝NOT ©BIN MOVE [R] FORMAT Q▝WC ERASE MOVE wZ LLIST ▛[M]VAL$ SCREEN$ POINT FN INT .=C<▝r? FORMAT ▛ DRAW MERGE U POKE BEEP [G]L CLS ▝STR$ r? FORMAT ▛▘?SCREEN$ FN SCREEN$ ;:[T]ATTR ?▝:N MERGE ▛C RESTORE VERIFY u5 MERGE N BRIGHT sIN CIRCLE ▛2CHR$ IF READ SCREEN$ INT PIVAL$ 20/c▝IN ▝SCREEN$ CIRCLE ▛-WS DRAW CHR$ POINT /[D]▝IN ▝W CIRCLE ▛:FN REM ▙[T]FN OPEN #f;[P]+ OUT BEEP ▞MR=W CLOSE # POKE &TAB [R]SCREEN$ j5p READ ▞TT PRINT 0 LPRINT ts PAPER ▖"▞SCREEN$ [T]SCREEN$ INPUT DATA *VAL ,.X[G] CIRCLE ▜B MERGE Q MERGE ?N~▛/LN ▙tQ STEP ▖@[R]*FN IF [K]=Xr.,,+XUUp CLEAR STEP ▜$X[N]R5H PAPER OVER ▛/x_LN CODE 8PEEK BEEP ▜AT NTAB [L][T]ABS ,AT VAL COS ▝YvYM MOVE ▜V% VERIFY O^ NEXT /qc▘ FOR TO SIN u[Q] DEF FN ▚ATTR CLS "2+..SIN REM STOP CHR$ ▝ MERGE [M]uv: DEF FN ▚▗ATN P OR # FOR q OR OR ▝ CAT 8 READ vj CAT SCREEN$ CHR$ jNOT */NOT ▞,LN [S] LINE ▛ OR [G]Q3 IF CLOSE #u LET / DRAW Uq BORDER ▜[H] CAT NEXT CHR$ p LIST CAT ▗ CONTINUE @0▟▟ATTR CHR$ THEN ▛*SCREEN$ BEEP eSTR$ _m INPUT CAT ▗T0USR 7'▛_<=U DEF FN READ *s3 DEF FN VAL$ . CAT RESTORE }SIN NEW SQR LIST CIRCLE BORDER _USR REM ▘/USR %[J] NEW ▝ AND FOR ▘ CIRCLE FOR LIST LIST ▟: SAVE / DRAW f CLEAR BORDER ▚H2▜NOT 1 CLS x[B]/ PRINT ▜02420YM VERIFY ▘▖[D]H&L COPY B COPY 0▗ RETURN (9a▝Nx GO SUB uT▖ RETURN BIN ▗ RETURN DRAW DRAW CLS EXP [D]'HL COPY B COPY 2B RETURN :(Ny&▞=@ RETURN =^/▝F-▜=@ RETURN B,@5VAL$ >@2 CLS ▘<P?/▘>@7▘DU▘<dz▘Ep(▝pKP-`p-?▗<@@U▘<(@[G]p-@▘▗B COPY `▜9PI▝NP BEEP pZ▘< BEEP >@PzTAN p-p▜<"▘<p PRINT ZH(R@▜x3 COPY <0q DATA LINE [R](0$X63<8(BB NEW X` PAUSE @2h[C] NEW HF CONTINUE B PAUSE ZD PAUSE @s FLASH PLOT X`s REM [B] GO TO LF PAUSE @ PAUSE @7;▚ PAUSE R` GO SUB K{[A]▞ GO TO B NEW P`0i▘ PRINT PK▝(▘ PRINT ▘▘ PRINT pd▘ FOR RND▝0Z` RUN P<▘ FOR EXP PRINT 2▝VRND`[G]▝s▘ GO TO BRIGHT K@TAN ▘@0[G]▜ GO SUB B PLOT ▘ GO TO (Zzb▘ GO TO ▝ PRINT dpA▝# -|S PLOT NEW < BRIGHT J▘ LIST THEN 0*DHZT▘Qr;PEEK LOAD PX1r▝r▝Ar▝VqrQr▘PXu/qrqrQr▘JXqrqr▗ FOR H@i▘ PRINT PKqr▘ PRINT ▗ PLOT `VA@r@▘bVrP<▝r▝r▝rRND`[G]qr Kqrqr▘ PLOT ▘qrqr▗ PRINT RXqrQrPCODE qr▜ GO TO (@ BRIGHT J▘ LIST THEN 40#6qr▝r▘ DATA B[E] LOAD PFqrQr SAVE DATA rFN PLOT P(r DATA r DATA r DATA DATA ▝Fr DATA r DATA ▝ DATA @i DATA ▝Fr DATA ▘B DATA F PLOT CW▝1r ▘@ DATA P} DATA DATA ▘ PRINT /▝ PLOT PKr DATA Kr DATA r DATA DATA dr DATA r DATA PRINT ZFr DATA b DATA p LIST qrarNOT DATA q<>▝Cr MERGE ▗-5▝B23` DEF FN 0F IF X0p$ LINE [D]>>H2rPI> 2tPI>2vPINOT jPI0▝P STEP mPI>X$▝$▝@▝`6▝1[E]mPIhFN $H%HXH$▝&CODE 4H(X DRAW #H"P"&PWH/X*H DRAW *,H^*/X/X".▝2▝6:▝(>IN 0PTt[E]TAN CLOSE # POKE DATA P CLOSE #BIN >=ASN RND@[F]|LN u POKE f0VlFFN 6 DATA ' / COPY W▗g>v SAVE ▚SIN [G]lINKEY$&ASN LPRINT OR [K] MERGE T RESTORE MERGE OR "ASN @RND^4IN [K]uLN e VERIFY U POKE F60&Nl COPY RND, COPY LIST dZ LIST PF LPRINT A< FORMAT 72[Q]0.,,@** ((&& COPY RESTORE [A] PRINT POKE RESTORE VERIFY MERGE LN OR [K]ASN |N[M]@"ud NEW D NEW $ NEW NEW COPY LPRINT 2 COPY POKE 2 POKE ( POKE COPY t CLEAR U RETURN POINT RETURN P▝[F]▝%@▝F@▝g@▝▖(▝,0▘ACS CLEAR PpP▝PP▝ INVERSE Pp`p@pHp8p@pH0P OR COPY ▗8ACS 8 OVER 0▝ PLOT ~▘SCREEN$ $▗SCREEN$ f@▝ 6)▘$▝ `E▝G▝ `▝[U]▙▗▟▗▙©▙wwjj_'0'▝_ YYPP WATTR T CIRCLE CAT ERASE `0op[A]p[A]p[A] ERASE QTW `@B x{~ `@c[P][S]INT ABS `0 NEXT pp_ RUN ▝#<) BEEP j5&VAL ▝@ LPRINT ▝o COPY ▝▚23@▝H[C]/ PRINT ▝ CLOSE #L ▟ POKE w PAPER COPY <> GO TO (B GO TO B PRINT ZF GO SUB HF GO TO B GO TO (B PLOT PF PLOT @ GO TO (@ BRIGHT HZ LIST XF PLOT PFC0#6-5B523B5C0#6 IF X IF X IF X NEXT STEP R;;STR$ ![H] FOR !fs#r!{s#r!▞s#r!PEEK @ MERGE INK >ATN H LLIST INK ~ THEN © : NEW O~ NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW LPRINT TAN oa~ STEP INKEY$t LLIST # OVER LLIST STR$ NEW ©(# THEN w G~ STEP INKEY$t# RANDOMIZE VAL$ NEW ? AND G~ STEP INKEY$t CLS #[Q] INK !X' INK CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <> COPY COPY COPY OUT <= COPY ▙ RETURN CLEAR CLEAR CLS COPY RUN FOR FOR FLASH LINE PAPER [K][L]ATTR RESTORE [I] DRAW CLEAR CLEAR RANDOMIZE IF NEXT INPUT MERGE INKEY$CODE K OR [K]TJ&![A][A] RETURN BRIGHT <9H`USR RETURN USR DRAW USR RANDOMIZE USR NEXT USR LOAD IN OUT CAT <=▛[F]LN <*p|T8X LLIST `LEN MOVE LLIST `▝C▝B▝r?9yNOT 7y CLOSE #▘^ COPY DRAW CLS RUN LOAD STEP CAT [P][P]><:txp DIM LET DIM OPEN # STOP ERASE INKEY$BIN [U]M▞▜Y▛C▜©USR AT ?_IN LOAD RUN LOAD AND STOP POKE PRINT POKE RANDOMIZE IF CLS PAUSE PRINT PLOT RESTORE LOAD SAVE JCODE COPY [A]l COPY COPY ?[P][P]_ CAT ©/O_ OUT [P][P]IN @ LIST RND DRAW CLS PLOT PLOT GO SUB LOAD BORDER <= INK STEP [O]ABS [M]:|9u RANDOMIZE s REM PRINT AND SQR ▖x_ COPY LET COPY MERGE ▞ COPY COPY RUN STOP RANDOMIZE USR CLEAR RANDOMIZE c▟s▜<=O[P][P]? STOP ▘ COPY SAVE >▖ CLS DATA INT CLOSE # CONTINUE ©Xmh SAVE ▝ COPY RANDOMIZE PEEK [H]((P0P[Q]a[U]C▘▝NOT ;PI7g_x_ COPY COPY CLOSE #,YTAB y▛[D][D][M]<88}©s PAUSE STOP STOP DATA BIN BIN >=▖▞[B][D] RUN ▞w:ZT▚ RANDOMIZE ▜ RANDOMIZE STR$ READ NOT ▝[M] OUT SAVE W COPY SAVE LIST SAVE IF OVER ▟ OR IK+G[P] OUT IN ??USR ©I▗▞ BORDER BORDER NEXT RANDOMIZE CAT STR$ STR$ ▘▝▝[Q]a[P]C|IN COPY NOT ? REM MERGE FN OUT LN LET [R]c COPY RETURN RANDOMIZE NEXT BORDER NEW DEF FN DEF FN ▘RND[M]882rdd DATA >=>=<>[B][B][D]## OR RESTORE THEN THEN IF PAUSE LET PAUSE RESTORE STOP PRINT IF <=VAL <USR U?[A] DRAW COPY MERGE SCREEN$ ] READ DRAW LPRINT POINT MOVE GO SUB FLASH COPY NOT CODE OUT USR ?▝©+P▝>[U] STOP PAUSE IF IF PRINT u NEXT G▜? STEP [N]> OUT © LLIST [F]VAL$ |<= CLEAR LET COPY ? COPY RETURN DRAW NEXT DATA <>[D][E] MERGE <> COPY [J]©O LOAD IN ATN RUN COPY MM[L] OUT PLOT CONTINUE CONTINUE MERGE MERGE POKE CONTINUE ▖8>=uz CONTINUE " NEW PI POKE LOAD RUN INK PI<= BRIGHT SAVE NEXT 7n GO TO }|{vASN ASN U INVERSE LOAD LOAD VERIFY RUN ``USR @BD▗( MERGE COPY NEXT {(*[O] OPEN #▖ FLASH COPY STOP © CLEAR <pc> COPY USR "[S] COPY [A] LLIST DRAW COPY ?5▜` READ W LOAD CLEAR FORMAT x@#iFN ?[P] OUT LOAD ATN ▛GAE GO TO DIM LEN lf CAT OVER ~=-+[H] PLOT lN][D]CODE OUT BORDER y©qSTR$ "[U]X LPRINT ▜ INVERSE COPY ©??STR$ IN STOP 3 FORMAT ▜/7_[Q]PI PRINT SAVE ▜©{ DATA >▘ DRAW CLEAR GO SUB ,▖>▘NOT ?{ BRIGHT $>=▗{ CLEAR CLEAR >9 COPY COPY COPY COPY COPY COPY COPY COPY COPY NOT [Q] COPY COPY LLIST (U P @[Q]P[Q] MERGE RETURN ©#<© READ <NOT MERGE 'p[R] GO TO LIST DRAW RETURN RETURN <T[Q]@0h CIRCLE AT CLOSE #ATTR EUSR SAVE SGN G[T]a▚[P] MERGE POINT DRAW RETURN COPY y!USR dINKEY$7 CAT ` FORMAT VAL Y(= RETURN CHR$ P);*ZJUTAB 5INT STOP REM RESTORE OR MERGE ATTR MOVE PAUSE ▜[D] CLS POKE PRINT PLOT PLOT STOP STOP RESTORE THEN OR LINE [G]▖[E]FN FORMAT LPRINT SAVE CLEAR NOT COPY [E]=▝ LPRINT 8INKEY$ SAVE [J][L]PI'CODE FLASH FOR <>zy RETURN SAVE USR LIST IN PEEK INT EXP 9y}~ LET V/L[I]X CIRCLE qqEXP =9YX DEF FN ?)7kWn VERIFY VAL$ BRIGHT GO TO DRAW SAVE SAVE COPY COPY IF FORMAT [S]>=[Q]USR STR$ ▜ATN <=COS NOT IN CAT CODE W'WSIN '##*{G THEN OR FOR RESTORE [T]RNDcaba`pLN [M] RETURN NEXT ©/#GKOK[H][D] DRAW LIST 0 8 LPRINT BRIGHT PEEK %INKEY$[F]<>▖[P]|87*VlTAT CIRCLE POINT CIRCLE COPY IN qxUSR ~▝v PLOT ▜IN _IN //▟ COPY BEEP FOR 5> RESTORE [F]? RETURN RETURN COPY COPY CAT BORDER c'g<=O CAT ▟[H] DRAW USR `PaCbCf5" AND DATA NEW cr3SIN SQR [P] LIST BORDER >= RUN CODE BEEP FOR u: RUN ▘1USR ▖ PRINT PAPER CLOSE # RANDOMIZE ERASE ▜[H]>▞>u REM MERGE SCREEN$ Phz+W[R]N[B]'[P]x LPRINT STR$ RANDOMIZE NEXT -▝[I]▜x▞NOT NEXT [U]▞; COPY ATTR T▘USCREEN$ FORMAT ©▜ DRAW USR <=GPOINT ▘USR SCREEN$ GPIC CAT DRAW |>[O] OUT OUT OVER [O]PEEK SGN SGN | RANDOMIZE PAUSE DATA DATA <>▞g[P] LPRINT NEXT l[G]ATTR =n VERIFY [D] MOVE FOR FOR LOAD COS ▗ LLIST NOT ▞ NEW = OVER @USR [A]▟▞FG?8< CO[P][P] RESTORE [R] IF [H] RETURN p▜? SAVE ^[R]aSTR$ ASTR$ |[Q] CIRCLE LOAD PRINT DIM OUT DRAW READ COPY RETURN INPUT ▙[M][I]SQR ▞[H]/ LPRINT <<=© SAVE <USR ? RETURN COPY CLEAR IF CLEAR IF PRINT REM RUN >[I]UINT MERGE REM © OR ` LET [Q][N]ATN 7;PEEK VAL$ 6 REM BEEP DRAW [D]Pas<=SGN >+|USR >>▘▝>>[B] CLEAR FOR BEEP CODE WVAL$ USCREEN$ WCODE COPY COPY REM USCREEN$ USCREEN$ REM }▘ RND*%K__[P][P] TO [A][G]▜▗ SAVE STR$ G BORDER ? COPY LET ▝ LPRINT ? COPY IF v MERGE ATTR _ CLOSE #>I▘U IF Fu▜A▘p RETURN [P]©> POKE [G] LIST <=[J]332dgghhxSGN SGN _ CAT BORDER NEXT RANDOMIZE DRAW )TAB ▜IN COPY CODE WATTR ] REM INT UINT uVAL$ CAT IN ©<H[N] RETURN LLIST CHR$ ▗>= CAT LIST COPY PAUSE COS c>= DATA R<> OR [T][B]▙TAN BSTR$ [T] TO READ EXP ▘▝N>= COPY ▝©`▗CODE COPY ATTR DRAW ATN COPY COPY PEEK g COPY ?<= NEXT STOP LLIST ▟ CIRCLE LPRINT PAUSE z<[P] PLOT %[L] COPY COPY AND NOT NEXT c?$[E][K][C][K] STEP <> TO BORDER BORDER GO TO FOR RESTORE NEW STOP NEXT N▝xDp▛ CLEAR ▞> LPRINT RUN }SCREEN$ U[S]<=CHR$ BORDER USR NEXT ▘s NEXT STR$ RANDOMIZE [H]EXP |SGN |[M] BRIGHT [O]^[O]NVAL$ CAT LOAD CAT BORDER wgw[T] COPY SAVE SQR ▚ RETURN CLEAR h@@[Q] OPEN #▗ BEEP [H][H]CODE >▝LEN USR y▝8USR <▘SGN [M]USR [O]▗ DEF FN DEF FN CAT CAT N[T] READ NEXT ss|`N??|[M][T]a NEXT [B]{ RANDOMIZE CLS RANDOMIZE RANDOMIZE AT LIST DRAW CLEAR CLS CLS PRINT RETURN |▝▙CHR$ CAT ▝ RUN STR$ s▝{USR 9RND=ASN SAVE DRAW OUT *W COPY RETURN ▗▗?O DATA TAB ' LOAD RUN NEXT PRINT LET b COPY LIST CODE {{}~ |STR$ 98<USR [M]▘[O]▙USR DEF FN I<>ATN Ox LPRINT W COPY SAVE LPRINT © RANDOMIZE [U] CLEAR CONTINUE @USR ▗ LIST /SIN ▜ CLEAR y[D]' BORDER CAT STR$ STEP [H] GO TO GO TO LOAD COPY BORDER RUN ©w{w{98988[O] SAVE COPY USR >▗▝ PAUSE ?,▗ COPY COPY CLEAR CONTINUE POKE >MTAB COPY SQR LET RETURN CHR$ IN COPY LPRINT [Q]!:eATTR ,XVAL LPRINT CHR$ [C]%/ DRAW USR RETURN PRINT u NEXT S[H] RUN COPY S CLS CLS RANDOMIZE ©h| DRAW RETURN [N][O][N]([C]?[P]g OUT ATN w NEXT [L]: ERASE 3PIgo CAT [P]([B] DRAW LPRINT USR STR$ <=< LIST USR SQR RUN <= CAT OUT OUT XINT <>▚ CAT CAT DEF FN TO THEN [E] OR COPY COPY STR$ =STR$ BIN ▞ RETURN RETURN SAVE SAVE STOP ▝@G▘?# DRAW TO SIN / LET SAVE ▘ FOR USR SAVE ▞ POKE [Q]USR [F]*WIN © COPY OR % LIST ▞ CLEAR STR$ L DRAW LPRINT 2 COPY COPY ▙~PI: AND LIST CODE 6▚<=? RESTORE RETURN CLS # OR LIST ▝ LPRINT @▟a( OVER ? COPY RUN [R]@|/[A] COPY COPY @ BRIGHT [Q] STEP ~=1+#NOT LIST 6]▖ CLS PRINT {IN V REM }VAL$ VERIFY STR$ LPRINT ▘ LIST LIST <SQR ▘LUSR LPRINT POKE x0 SAVE LET ©[F] COPY COPY ATTR MERGE ATTR © RETURN ASN ©[Q] COPY CLEAR ~e<=3XFN X(P(0x,▘w"USR ▘[A] INPUT ~ STEP [H]? RANDOMIZE FORMAT `▞ COPY wU COPY _INT INVERSE VAL$ ]PEEK W DRAW VAL ©??IN ▗ CLS NOT VAL$ ▚▝ BEEP [U]▝S▝@▝FN ~[E]©w COPY W CLEAR _SCREEN$ PRINT COPY © REM MERGE ATTR RETURN LPRINT OR 0▘ NEXT LET C[P]3POINT ?'#[H] COPY ©USR ▗USR USR CHR$ LET ▖[P]O COPY 'q STEP FORMAT COPY ▝; POKE [R]_? CAT CODE U[A][Q] FORMAT DIM LET CLS *Uj5kuVAL$ V.VINKEY$v#K[L]USR [P][C]INT rPAY H/'!>_ BORDER = TO ▘ LET DEF FN SIN RANDOMIZE LPRINT ▟ COPY LIST RETURN RETURN PLOT LIST COPY COPY 9` AND [J][B]© COPY ~TAB ^POINT T[U] MERGE STOP Gm3STR$ STR$ LPRINT [F]] LIST SAVE |ABS CLOSE # FOR CLEAR ~IN OUT COPY DEF FN U"BIN ▞▝ LET USR LOAD ▞LEN COPY COPY ▗bSGN USR SIN [T] LLIST VERIFY BRIGHT :RNDB*U IF PRINT PAUSE RANDOMIZE RETURN PRINT IF CLEAR > LIST DRAW ©▘Q* LIST RETURN ]ATTR POKE [Q]▚SGN LINE ACS hkhk[I] COPY COPY dDdSIN [J]T THEN RND[T]##37ATN W7OO LOAD RUN LOAD RUN CLS wSQR QATTR M+ MOVE 3c CLEAR OUT CLEAR ▝ GO SUB [NABS <=,<=qSTR$ COPY ▛5USR LET COPY CHR$ ^ DEF FN ^CHR$ ▘ POKE DIM CLS OPEN # VERIFY [H][I] @@]▚<[J]-5-5-UmUmTj2[H]NOT <= LPRINT PLOT CLEAR OUT EXP ▚ LOAD COPY 9USR VERIFY ABS 9 COPY COPY [O] CLS READ ;[R]a'A[Q]`PP0h SAVE POKE POKE DRAW : DEF FN =~ COPY OUT <=ATN CAT COPY COPY DEF FN 2 OR 5 OR dUSR @[R] RETURN INVERSE NOT COPY *▝ LIST USR SAVE IN RETURN /_/ RUN COPY p|@G©< 9P8<>▜5▗ PRINT ▚▞#)WK<=??IN COPY RETURN COPY CAT LET RETURN COPY STR$ LPRINT LET ▚▘▝CHR$ FN [T]/ BEEP + LLIST AND D▘▞NOT $ STOP * BRIGHT NEW #[S]8[P]Zl THEN RESTORE g©~YIN w[K] RANDOMIZE RETURN © LET RETURN ?NOT CLEAR RANDOMIZE IF CLS IF RANDOMIZE IF PRINT IF POKE IF POKE SAVE LIST SAVE LIST DRAW PAUSE [P] IF | IF }: INVERSE z=n-[O]▟^MV' INPUT © COPY GO SUB STR$ THEN TAB INKEY$▞B"[K]q STEP [B][A]▛IN RETURN DRAW ? OUT COPY ATTR ▘:USR ?STR$ >[H][K]L▚D▗B[R]STR$ [Q] FORMAT LPRINT FORMAT CONTINUE POKE CONTINUE PRINT m▝ CLEAR PEEK ▘ COPY ~[H]VAL READ TAN XFN dINT V+ OR FORMAT INK LN SGN SGN PEEK PEEK RND<=USR USR <=©?8#/USR [A]▚▚NOT C[R]P[A]▖ ERASE RUN RETURN DRAW < FORMAT EXP LLIST ~p THEN [M][S]STR$ ▘E CAT nINT [B] CONTINUE Y(t<:[O] OVER THEN OR O RESTORE NEW 'b[H]RCOS SASN THEN iz)[J] FLASH RETURN z6 TO Aq CLS SIN [A]▞▖P OPEN #[P]p▖ ERASE ▘= RANDOMIZE INKEY$ LPRINT @ A?~`▜▙[A]ECHR$ DCHR$ D[S] RESTORE [S] RESTORE SCREEN$ 5jUk BEEP ATTR BEEP - TO [N][A]@ LPRINT USR STR$ bBIN CHR$ ▗ CAT |3#▙ LPRINT LPRINT 9BIN < SAVE STR$ m[D](uATTR qSQR QSQR CODE _CODE VTAB OPEN # MERGE IN COPY SQR /▝u PRINT LN 11"!3▘LL[I][I]VAL 3?<USR ▘E*G VERIFY ATTR WATTR MERGE INT MERGE VAL$ OUT INPUT PRINT IF uINT YTAN i MOVE READ PI OUT COPY OUT [P] LINE [C]USCREEN$ USCREEN$ MERGE .[N]▝@ LINE SGN [I]U[S]TAB r PRINT FOR WINT u REM MERGE SCREEN$ WPEEK }SCREEN$ W OVER RUN <=?A▝ COPY l▗IN _IN OUT [L][N]© LOAD 7C[T]A"G+[R]C▚<=▛F GO SUB R RESTORE LINE MERGE VAL$ ]LEN ▖WSCREEN$ MERGE INPUT ]INT uSQR GO TO ▗[P][P]EXP <= PRINT ▛CODE VAL e COPY s?IN [P] OUT DEF FN LPRINT /{NOT ©▙ COPY COPY [P]_ OUT OUT oCODE o//[P]/?SGN ▝ RETURN Q▘ RETURN RANDOMIZE 3D CLEAR REM RUN DRAW JSTR$ RETURN CHR$ DRAW ▜ RANDOMIZE RANDOMIZE LET LET PAUSE PAUSE NEXT L MERGE ▞ NEXT <=> RANDOMIZE BORDER COPY /SQR RETURN -/=9?Y[v{ACS INT TAN GO TO POKE GO SUB POKE i CIRCLE <> CIRCLE THEN COS [C] COPY RANDOMIZE READ ▙ RANDOMIZE READ ▛[H]CODE OVER LOAD <=O COPY CLEAR READ >=CHR$ COPY [P]IN ©SQR © PLOT N OVER N BRIGHT SGN [M]SGN STEP EXP y[J]y FLASH SIN s2s6e NEW e NEW l LINE TO THEN SIN ▛ FOR {VAL$ ©K[G]ABS PEEK COPY COPY CLS [P]E RETURN RND=;7{wkWk VERIFY VAL$ VERIFY VAL$ BRIGHT AT /AT ]EXP YEXP Y[L]23236efeg COPY IF CLEAR RETURN CLEAR RETURN INPUT ▝ COPY ▜▝ COPY 09'1[N][K][H]POINT 7/7/WoVn OVER INKEY$ OVER [M][J][J];SIN 2SIN sCOS }SQR COPY LOAD CLEAR REM TSCREEN$ TFN CLOSE # CONTINUE MOVE LPRINT MOVE READ !COS @@▖[F][K][E]*2""eSTR$ E▝ THEN STR$ ▛▝[H]STR$ USR /[E]▜ INPUT RUN POINT CLOSE #▗[E]>>W LINE COPY SCREEN$ OUT SQR MERGE IN ] RETURN © FOR BEEP RNDOq[R] NEXT CLEAR COPY IF BORDER OUT CODE UVAL$ V READ a CONTINUE q[K] STEP PI LINE =_ P[S]B[U]N[N]© OVER hIN OR COPY PI©IN COPY IN RUN ATN [ FOR CHR$ = CLEAR AND BSCREEN$ CLEAR ?▟ PAPER INPUT ~uSCREEN$ /[I]q CONTINUE D"A"I*]>x?SIN SGN NEW PAPER LET CLS PRINT CLS GO SUB LINE GO TO VERIFY [N]PEEK THEN CAT CODE [P]▟[C]RNDBKRNDU▛▘E&9,U* FORMAT [R]G THEN COPY TAB Wx[A][K]▝@NOT Ba`FN SQR [▖Y▙YSCREEN$ BRIGHT ▖ INK ▖ CIRCLE FN FORMAT PEEK WPEEK WPOINT u[T]u^▝[G]*/ OUT 1▘©[P]/j[C]CHR$ a0 LIST LLIST LPRINT ▜~ DRAW LIST [C][F] zASN @1jg PAPER RESTORE LOAD PAPER [K]- PLOT TAB Z[H]-W RETURN IN _bAT ▞[A]0` LPRINT b23[B]"#FMz>uSCREEN$ W FOR uATTR V REM |FN INK v INPUT DATA uINT W REM ABS PAPER OVER ; COPY COPY SAVE BORDER <= COPY )▚USR LOAD ©x6[E]CODE UUSCREEN$ ECODE USCREEN$ WTAB Z[F]VAL$ uSCREEN$ SIN [B]SCREEN$ uSCREEN$ TSCREEN$ e GO SUB [COS COPY © CAT _ NEXT CAT RETURN ▝i AND k_[P] OUT [P]_ THEN ▗?[P]©IN [G]▝?▛USR COPY CLOSE #*WRSIN +i▜NOT G▘PPUSR P x X GGh?88x@``h!▝`STR$ x▝Gx`▘hh ▝`CHR$ xh▝p ▝hNOT x STEP G[_▝(8▘ `` B▘xxaSTR$ `p@[N] AND `▘hhx▘ppH BIN 8▘h`NOT p▝` DRAW i GO SUB OR pF DRAW ?( >D INVERSE (^0 STR$ H8 [P] DEF FN `0"0▘HH8NOT H ▝H(▝H@/c AND HP▗7x P <=H!Ex ▝hP▘P`( [S]HQ(`8e▝xHr▚+X VERIFY DEF FN pH)[Q]~IN COPY COPY COPY VAL READ TAN XFN dINT V+ OR FORMAT INK LN SGN SGN PEEK PEEK IN COPY COPY COPY COPY <=USR USR <=©?8#/▚▚NOT C[R]P[A]▖ ERASE RUN RETURN DRAW < RETURN COPY COPY COPY COPY LLIST ~p THEN [M][S]STR$ ▘E CAT nINT [B] CONTINUE Y(t<:[O] OVER THEN OR O RESTORE NEW 'b[H]RCOS SASN THEN iz)[J] FLASH RETURN z6 TO Aq CLS ©© COPY COPY COPY COPY COPY STEP MOVE LOAD NEXT GO SUB ssUSR !USR ▟[d MERGE GO SUB VAL ! FORMAT LOAD ATTR COPY O/<> GO SUB LN !] FORMAT USR ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 NEXT NOT R8USR ▘▝ATN @[Q]p0pXSGN lACS jSIN ATN _ACS h POKE CONTINUE FORMAT [Q]USR 6, T▗ ▖USR [Q]=T AND COPY ▛8lt 8 LIST ? BORDER DRAW c COPY ▚ LIST ` 2▚ IF SCREEN$ SCREEN$ CLEAR UUp2p2p2`2SQR COPY SAVE 0"CODE DATA e COPY NEW k BORDER PLOT g OPEN # PLOT k THEN PLOT g BORDER PLOT k COPY PLOT g RETURN 6j=[G]e^Vj/[G]h PLOT j/ PLOT e_ PLOT j? PLOT e OUT NEW "ATTR DATA 6 COPY LIST ▖ LIST LIST 0 STEP FN ` COPY RUN RUN COPY `(IN ©p~PEEK [Q]©PEEK [Q] FORMAT SCREEN$ P LIST Pc AND P}PEEK P© RETURN p}PEEK `s DEF FN p▝$▝,4▝<▝DACS COPY IN FORMAT OUT ~[Q]CODE ABS PW~[Q]ATTR ABS P BEEP z[A]ATTR ASN PUz@ATTR ASN @[F]iATTR ASN %d+[E]^@(QpIN ▘[Q]SCREEN$ SCREEN$ UAT▖[S]p! LPRINT [R][L] LPRINT ~AN DRAW Q[D] RANDOMIZE ▖~[N] RETURN ▛ COPY CHR$ 9B[ COPY MOVE [D] COPY TO SIN [A][B] COPY <>▖ COPY ▟G COPY IN [E] COPY [M]FN COPY RESTORE COPY RETURN PPO COPY NEXT ▗ COPY RETURN [Q]$ COPY COPY PRINT ▖ COPY OVER HD COPY CODE NEXT RND RETURN SGN [Q](?W RESTORE ▞ CLEAR }A COPY COPY FOR [F] COPY SAVE [Q][T] COPY COPY ePOINT ©STR$ @O COPY IN CLEAR DIM ▗?.| DRAW RESTORE Fx FOR LJ[Q]xE▘AT AF2▝FB INK Q▘▝©CHR$ SCREEN$ [R]▗© PAUSE © LLIST P▖ COPY POKE ▗ COPY IN IF I OUT STOP COPY RANDOMIZE !▞IN DATA ▗ COPY PAUSE OUT ? LET #▝▖ LOAD [E] PAUSE O MOVE ▗~)S PRINT [P]<>[S]<TATTR PAUSE L MOVE ▞<[Q]@S PRINT IABS @FN STOP [F]8[Q] LPRINT DATA [R]▖LEN LN Q▝2@ STOP [R]T[E][E]APFN B@▘,! POKE ▝RFN ▚ LIST LIST LIST B▝c▘©>▝, STEP FN COPY LIST COPY POINT LIST ?_^ IF DRAW > MERGE /ATTR LIST > LIST LIST ]USR >W▝V/▝x▝ATTR ▝UK▘l▘ AND "▘ INPUT ^ AND [N]▝▘ STEP ▗[Q]WCODE USR _ LIST COPY SAVE © DRAW DRAW ? COPY RETURN COPY SCREEN$ COPY X▝ COPY GO TO ▗SCREEN$ U LPRINT ▚© RETURN © RETURN |>▘© RETURN q▝[L][Q][I]' DATA INVERSE SQR 3 TO LOAD RUN `[J][J][A] INVERSE IN y[O]RNDRND LPRINT © RETURN [I] LLIST ▜VAL LN ` READ GNOT C OPEN #▛▛Q▝q7AT USR OPEN #KUSR ▝USR CB@COS ▟IN `/t``p 7AT 0 OPEN #K0C▘ LIST @0 SAVE NOT CXCOS ▟/t00p07AT 0 OPEN #KsC[T]▘ DEF FN m@ACS p THEN OPEN #CHR$ NOT CCUSR COS ▟USR /tUSR [A] CLOSE #3ACS ▙A▘@NOT NOT IN READ d[I] LPRINT USR 5 LIST <|> COPY VERIFY MERGE GO TO CODE + INVERSE _[P]lIN VAL$ =©[M]<IN AT ©[A]IN [Q]4_~CODE . PLOT W GO TO IN [L] RANDOMIZE © MERGE j[H]IN REM 5W DATA COPY LIST COPY CONTINUE COPY LIST SCREEN$ FN -0▛ STR$ 1L2 PLOT IN 3 TO <NOT 8USR LIST @[O] LPRINT © LPRINT INT USR qr COPY 8 RETURN [M] COPY L RETURN DATA MERGE GO TO [T] GO TO G GO TO TO <=SGN THEN [I] RESTORE 8[B] REM xt LIST q LPRINT ;USR @CPOINT USR T CLS USR ! COPY CLS STR$ N COPY CLS USR [N] COPY {CHR$ [ RETURN ; FORMAT [B] CLEAR [ OR G SAVE LINE CLEAR [ FORMAT O RETURN ;BIN COPY COPY { CLS >=?(▝<=[H] COPY CLEAR CLS DEF FN | DRAW CLS INK x CLS USR xC AND 2 OUT INK CT[M]▝0wt PLOT ▝CODE ▘ LPRINT ASN ▘[I]SQR ▘x0`▘▘ LPRINT ▘ LIST ▘ OVER v$ABS { FOR 6▘ LIST > $▝USR <TAN H▝[P] 0▘ BORDER [M]N▘USR T▘ RUN SGN ▝ SAVE 0f▘8sl00USR x37COS 0TAB ? LIST TO x0[P] DATA 08 OUT INPUT x LPRINT 8 POKE ^ LPRINT x> PAUSE [N] SAVE 8?EE DRAW x?SCREEN$ ATTR DRAW [F] INK 7|X: PAPER ASN |8=ml|X? GO TO n POKE $ PRINT ^ TO X/ POKE _ POKE 8▗▘Xj( [D]P*SCREEN$ SCREEN$ FN FN MERGE PRINT RETURN IN CLS IF [Q]▝▝ COPY DIN DRAW CAT NEXT PAUSE [T] CAT LET T PAUSE FN CAT STEP BRIGHT [T]+ NEXT /WCHR$ IN CODE OR COPY THEN LIST LINE 4NOT USR LIST SCREEN$ 5 NEXT ] CAT LINE COPY NOT STEP © LIST IN DRAW [Q]©NOT W?: CONTINUE POKE LIST ATTR LLIST LEN |U ERASE PAUSE INT OR CAT © LINE RETURN DRAW 5W LIST LINE ,NOT LIST LIST LOAD ?NOT COPY O DRAW THEN 3p7CHR$ DRAW 00 COPY COPY COPY U"U▖Ppp$ COPY 0 LPRINT 0 CLS RETURN RETURN V&V▙Ppp$0▘SCREEN$ ▝U STOP ▗ RETURN SCREEN$ T▖ PRINT DIM UCODE OCODE INPUT SCREEN$ © COPY RETURN `l FLASH 2dxfX`d&l6i:6cX DEF FN n[L] STOP j:ACS *p2[F]l CLS ACS eSQR ▚nl>jp[G]be▛p2▚n[L] PLOT k IF INKEY$ 2▗SCREEN$ U RETURN i▟▝ COPY RANDOMIZE ▝[P]POINT BORDER [F] SAVE f SAVE ▜FN f RANDOMIZE BORDER [P]@$▜ COPY COPY U~? LIST ▛/ DRAW DRAW *SGN U|? CLOSE #P~8< COPY z=~ IF =ABS IF = FLASH ▘ BORDER IF ▘ FLASH IF ▘~ IF '-▝ U VERIFY 7 FOR ▝ PAUSE ▝8 BEEP [A] RESTORE @ LPRINT P<▛IN <= TO [Q][Q]> REM <= SAVE }<[B]CHR$ INKEY$ THEN ASN R LET CLOSE #*POINT DRAW cP4 READ [B]7 CLEAR XUSR / LPRINT RNDp.BIN RETURN [A]ACS ATN t DEF FN dUSR NEXT CLOSE #CODE ` CAT CAT IN [F]*VAL ©/0|ASN [S][A] LET O[Q]PUSR $[Q]0USR VUSR -8▚IN SAVE LOAD COPY USR ?O SAVE l NEXT MERGE RUN SCREEN$ [S]CODE l%L]EXP ATN *AEs2[H]ABS SGN IN g}w? CLOSE #"PEEK IN [S]=]/ATTR SCREEN$ [Q]` LIST ▙FN p(48p([A] LPRINT Pf TO @ PLOT ▝[J]8USR `w LIST LN LOAD FORMAT ~ INVERSE [M]0▙k LIST s+ PLOT EXP < OVER [R] LPRINT e▜ SAVE 1 FOR +<n[F] OPEN # DATA _ PAPER OPEN #IN IF LIST LET /~▝ LLIST FLN [M]!UP MOVE pl`▘(SGN 7iI▛|SCREEN$ DRAW SCREEN$ DRAW SCREEN$ |(P▝_a▝ FOR #▝▝ FORMAT ▞▝COS [▟[O]G5/ RANDOMIZE ,NVAL$ *[L]AT V LPRINT CAT +`PEEK IN VAL x_VAL LIST CODE LIST USR [AT ▝VAL$ ▝/PI▝SQR PRINT ▛`@`_ POKE o PLOT VAL$ @A[J]INKEY$[U]FN X[A]n 6COS r'U/(s CAT _▛ LOAD _ PRINT COPY CODE U© REM lIN INPUT 5UAT [Q]TAN INPUT LPRINT p, FOR [I](q DATA [Q]4! [S][T]%TAB sCOS <= NEXT ▟LN OIN STR$ LPRINT PI SAVE SGN VAL$ ABS ?}|#CHR$ READ OVER ABS 4[U] CAT NEXT $USR LOAD `<=`[T]VAL VAL 7 FORMAT /`P, 8▗ LPRINT p|[H]X0`<( FORMAT STOP 4 BORDER READ FOR <= GO TO ▗▝0!STR$ 0SCREEN$ mIN gCODE vIN wCOS zFN DEF FN ▖! LPRINT $[Q]▝▝BIN <> INPUT LINE IN r[U] VERIFY STOP $.FN SIN TO VERIFY LPRINT PAUSE CLOSE #PSIN 6[I] LINE DRAW L~VAL ERASE INKEY$ CONTINUE [M] IF t~ FORMAT STOP .[A]SCREEN$ TAN PEEK >= REM (F@ STOP 0▝ RANDOMIZE =▘ OUT COPY DIM OUT COPY NEXT r CIRCLE x FLASH COPY OPEN # ▝ FLASH pp`▝S *▝[L]pppN▝ RETURN p$▝NOT ▝ THEN 0<▝ IF ▝ MERGE H▘ ERASE SCREEN$ H▘ INK UT0▗0[A] OUT COPY CLS [G]▝ [G]▝[ N▝[D][S]▝ MERGE ▝SCREEN$ ▝>=p0ZASN ▝ MERGE USR p PAUSE PAUSE ▖[Q]©?USR USR / ▝ CLS ▝ NEXT ▘(▘)S▘*[L]$▝+ ▝+ppp$p0p<pH H▝!pTpHpl0<▝ ▗p[A]▘USR / [A]▘( OPEN # ▝[ [G]▝[D] [S]pp0 ERASE ▝ATTR CIRCLE ▘, OVER q DATA q DATA ▚USR ? COPY LIST 0pppp*p0p<pHpNpZpfplpxp▗pp[G]p[S]pFN pTAN pUSR p AND p ERASE q▙ SAVE USR STEP COS LPRINT LPRINT [N]EXP SAVE [G][B]▞ RETURN ©EXP [N]a▝© ▛$ © DRAW `?? PB▝pBPBRNDRND RETURN © PRINT VAL$ B▗ COPY POINT [F] R B▘PpBpBP▗▝▗▝ ▗[F]FN RETURN 2 OR [F] DRAW POINT [D] GO SUB ▞?▞ DRAW @©`▗[B] LLIST STR$ USR USR P▗ LIST ? COPY COPY ) SAVE COPY COPY ▝ DRAW LN ▝ SAVE ▝ DRAW a▘ CAT REM ? COPY NEXT USR PAUSE INPUT ▘y LIST y COPY ]<▝▗▘ OUT @? LOAD USR RETURN pCHR$ NEXT RETURN : INPUT CODE ▝v5 OR 0 LPRINT ?E▝▝▘USR © LIST p▘p▘p▘▘▝▘▝ DRAW ▘▝▘▝ DRAW ▘▘ RANDOMIZE LIST |▘▘ OUT <!B▝▘▝ DRAW ▘'USR DRAW ▘ BRIGHT NEXT DRAW SGN ? DRAW [I] BRIGHT RETURN G=▝ LPRINT P▝up▘qA▝ DRAW ▝ SAVE e▝▝ SAVE ▝▝ SAVE INK LIST ▝z▝< REM ▗ COPY [P](▖@?>USR SAVE INVERSE H NEXT SAVE "▗x? SAVE +▗xT▘USR =/▝ LPRINT d DRAW COPY LPRINT [N]▝t LIST GO SUB ▞ COPY LET OUT COPY LET [I] RETURN LET BRIGHT q Y% MOVE -TAN [M]▘ GO SUB PI CAT LEN q▝/ LLIST :7▗p?[M] PRINT NEW ▜IN DATA USR CLEAR ▖ DIM LPRINT [J]©-USR ©USR IN USR <%=8&?[D][U] GO SUB STOP USR ▗& CONTINUE ▚ OPEN # BEEP ACS RETURN OUT DRAW IF p0; a/@# LPRINT @ASN !▜BIN POKE p▗ CIRCLE ( _& COPY pBpJVAL$ COPY _[Q] DRAW [Q] CIRCLE $▖+H[A]USR CCHR$ (& POKE +▗aCHR$ CUSR DATA CONTINUE COS SAVE SAVE BRIGHT LIST LPRINT FORMAT LIST 8 LIST POKE LPRINT FN LIST USR LIST LPRINT , LIST FORMAT 2p""▘ SAVE 4 BRIGHT LPRINT 0Dp"PD▘FUSR STR$ Pppp p0p8▝ LIST 0@▜ LIST / COPY ▗ COPY ▗ COPY =C CLEAR ©?[S]*}▝ GO TO RANDOMIZE ▚O DATA VAL c▗BLN /▖▗[C]B[B]T BORDER ▚POINT R COPY [M]▗AT [N]"USR RND+T[Q]n[F]@ ▝pCHR$ p LINE p ERASE p PAPER p STOP p PAUSE p IF a▘ SAVE ©@ LINE ▝@ LINE ▝@ LINE ▝P LINE ▝?@ LINE ▝@ LINE O LIST LINE BAT L/[A]▘RND LINE TRND8[M]D[S]2WFN F[B]hd SAVE @[A][I] DRAW LPRINT q▗qq[E]q[M]q[U] PLOT ▝ DRAW ATAN ▘ SAVE _PEEK AND PEEK ▝[M] LIST COPY FOR SGN LIST ©USR [A] LIST [E]▝* FORMAT S▗=C[F] THEN [S])[E]▝B▗O LIST [E] LINE FN z0 LINE ▘[Q]![E]U SAVE VAL$ -▝SCREEN$ "( LLIST COPY DRAW ▗( DRAW ▘ COPY rFrNrV▘ COPY OUT B^▝▜[1▝ OPEN # DRAW B LPRINT ▗ACS , DRAW Qe▛R DRAW >[F][E] DRAW ▗BSIN RETURN ▚)▝m COPY NEXT ▘B PAPER D▗[T]T? LINE ▝0 LINE ▝ LINE ▝ MOVE ▝^Y[E]▝1[E]▘FN A[E]▘[Q][S]@ LINE ▘ MERGE SGN "g▘SCREEN$ * LINE 9PEEK fC▘ IF RETURN ▛[A] COPY LIST <h COPY LPRINT zCHR$ >=USR [U][A][A]%8"[I]Id"[Q]IH"FN ▞X"VAL KT 0▖ CLOSE #0▘E @[U]FN ABS ▘DPe[S][A]"▗▝[E] COPY ▝([L]▝p LINE ▝p LINE @ LINE NEXT UtVAL$ LINE F▝8F▝ LOAD RETURN <=( COPY @BIN ©l GO TO ▘c8EXP [F]AT COPY [M]?USR USR ,@ COPY [O][I]FN ▘}▟▗ NEXT @[M]▗<= LPRINT GO TO ▝ READ RANDOMIZE x▘[N] LLIST ▗? GO SUB sFN ▘IN 8 CAT x[C]USR X LIST [I] LPRINT 8#USR 0USR G CIRCLE [D] RUN USR COPY ? READ ©8USR COPY #= COPY 76▘ AND -[F] COPY 5 LIST COPY 9 CONTINUE DRAW 4 LIST ypPEEK { CAT LPRINT .▖ READ 0 SAVE 8©▘<=e▗ ▛EXP [Q]ATN [Q] CONTINUE DEF FN @USR ▝▗? NEXT [C]@USR STR$ VAL BIN SAVE STOP 8+VAL ▖ CAT COPY COPY 0▜ DRAW STEP ▜ PAUSE COPY 0 LLIST CONTINUE [O]0 NEXT AVAL USR OVER ? ?NOT USR 40STR$ LET TO LLIST LIST USR LLIST LIST ▜ LLIST SAVE ?[Q] LIST SAVE © SAVE p?USR SAVE `USR LIST `USR SAVE 0STR$ USR RETURN EXP ▙?01▚©COS ▙© COS ©[T] FORMAT ©BIN 00©1`?USR P? LPRINT LIST LPRINT /USR ▗ LIST x `s[P][D]▘ SAVE [K]5 | BRIGHT 8 COPY G COPY COS ▞ PLOT # LOAD READ a<="[B] RUN [T] LOAD T CLS IN @ LIST 0<COS NOT @1A3▗▜TAN TO LATN PAUSE ▚USR 0▞USR 0▜STR$ ▝ CAT FLASH RANDOMIZE b}}}m▘NOT COPY INK ▚ TO 33NOT TO (c TO NOT 3 LET $] DEF FN ▘NOT NOT CODE 0<?ASN CAT NOT NEXT PAUSE wL7[K]▞ CAT CAT 004VAL _▘USR p"wLN [D]▘ THEN Op"w ERASE w[I]w NEW COPY COPY s@C@<>s@@▝xC@Ic@ LLIST ▝ RETURN s@ NEXT PAPER DEF FN USR @▝.▚ COPY LPRINT ?#▝ ▜ COPY USR ?/ CLEAR ?_@ COPY V▝/ MOVE TO ▝@SSIN INVERSE Y` CLEAR C`vy▚` DRAW ▖K▙ DRAW SAVE LPRINT SAVE DRAW USR DRAW ▗ SAVE RETURN m▗ LPRINT ? COPY s▝?CHR$ tttp>=p>=p>=p>=p>=p>=@>=▝p>=@>=▝. DEF FN / COPY LPRINT ▝Q VERIFY PAPER TAB ▗E4▘?SGN t[B]8 COPY USR COPY SAVE COPY LIST !v▞ COPY LIST q▗ COPY USR 1 CLS COPY ;q▗tBIN tBIN q▗tBIN q▗q▗q▗q▗rx▘+x▝kK MERGE COS ▗RND LPRINT WR FORMAT b[A][R]p LIST @LN LIST MOVE 6 LPRINT © LIST USR ~[B] LPRINT LPRINT RETURN LIST USR RETURN LIST USR DRAW ▗ DRAW ? FLASH ▗< SAVE ©Ft POKE $ POKE ▝t POKE IF ▝d POKE ▝t POKE [S]▘©t POKE ▞ CAT VAL LIST sVAL POKE ▘ PRINT [G]1 PRINT ▗ COPY P ▝ CONTINUE PI POKE READ ▘ IF PI▘:▘[N]l▘SQR Mr▘IN CLS ▘?n▚ LIST ?USR BIN [Q] LIST ?USR ? LIST ? SAVE ?© SAVE LPRINT COPY DRAW SAVE COPY DRAW 2F▘ READ COPY uSGN uSGN uSGN p>=p>=p>=p>=p>=p>=@>=▝ FORMAT p>=0>=▘t DEF FN ▘:y▘©▖ IF FORMAT COPY ,[S]4▘= DRAW (▝}[I] COPY 1@ COPY 1 LPRINT ▗ COPY USR ▙ COPY ! LIST [G]▗| BRIGHT LINE vxvxq▗vxvxq▗q▗q▗A▗ SAVE [A] IF ▝ CLOSE #x▘ VERIFY %▝ATTR %©RND?J IF [L] LPRINT USR x2p DRAW l LIST RETURN LIST ▟ LIST LPRINT LIST © LPRINT [A]▖ SAVE ©` SAVE ?G▞ DRAW ?<USR RETURN ▝xXVAL$ CAT DRAW 0 RETURN ▜ DRAW 8 RETURN (( COPY l( NEXT ~X LPRINT - FORMAT LPRINT V0USR ACS LPRINT [U]▘V SAVE w▝©,©▘ PAUSE VAL [D]":r▝ RUN ▘ POKE CHR$ :>=▘OSTR$ DRAW © ▜<= DRAW ?USR ▖<= SAVE ©G▚▘ DRAW COPY ▚▘ DRAW ▘ COPY z0N▝4▛ COPY ? LLIST ©?STR$ ▝ COPY 6 CAT ~ACS TAN LIST CHR$ kH DEF FN ▗mx LIST L▘j SAVE `▘ INPUT SAVE 0 RETURN CONTINUE ▝[R]▝O©$/NB▝p$b▝ RETURN RUN x ▝/ LINE l▝ PAUSE RETURN x▘ LPRINT ▗ READ DRAW ▝▞ READ USR RETURN STOP @▗A COPY ▘ COPY LN @▝© OR DATA ▘CHR$ @©▝ ERASE ▗©;CHR$ ▗©. THEN REM ©V▞▜ NEXT n DRAW IF ▗/?ew4▜[Q]*: LIST USR SIN 60@▗( DRAW EXP POKE LIST TAB @[M]▗ DRAW STOP BRIGHT ▞ RETURN t~[H][H]▘|[P]PI▝0PI▝G▗ COPY COPY CAT %IN -CHR$ ▝©} LINE [G]▝pSIN SAVE ` DRAW B▗8VAL RETURN ▘▝~[L]▘ BRIGHT LN ▚z▘ OPEN #t▙LN j GO SUB ▗ COPY 0?v, PAUSE ? DRAW POKE , IF LLIST ,- CIRCLE REM SCREEN$ ▘l LPRINT @[I]▜[I]?p/USR SAVE USR p SAVE USR ASN LIST ? OR G`IN "▝ RETURN LPRINT ▘ COPY BRIGHT ▗STR$ COPY COPY NEXT COPY +▖ INK ▖..[E] ERASE ▝0 COPY DRAW x COPY LIST AND G▘ DEF FN ?▘,E▗ POKE COPY LIST T▝X▟▖? LIST USR XUSR LIST >/ CLEAR INPUT ▗/ PAUSE p▗3 LINE LPRINT 6▗@ TO LPRINT ▗@6"▝/& OUT RETURN r▝<Z LET `r▟USR VAL LIST LIST CLS ▝?▝8;▚ LPRINT ©USR _ LPRINT © LPRINT ©{ASN ▝V[A][B] LOAD LIST <<=VAL LIST (=BIN GO TO x LINE ▗AT LIST [P] COPY [M] DRAW 6▜, CAT 0? RETURN VAL SGN ▘ PAPER CLEAR -?3 RETURN ▗ DRAW D[H]f CIRCLE w[E]w[E]w[E]w[E]w[E]W[E]4w[E]w[E]G[E]▝{8Vy LPRINT I GO TO [R] RETURN |© SAVE 8?<=USR LIST PI[Q] LIST CP LIST [Q] SAVE ~&VAL$ h[E]SQR ▝ RETURN VAL$ ▝ CONTINUE ▗P COPY &r▜▖ LIST COPY LIST ▘ FORMAT COPY ▝▛P RETURN LIST [Q] DRAW 8 STOP ▘( CONTINUE PAPER 5▝ DRAW AND ▜ RETURN LIST ©[T]▘z▙/ RANDOMIZE ▘ SAVE / SAVE ? COPY TO ▗ COPY c[B] COPY sUSR COPY 4/[Q] COPY LPRINT ▜@USR DRAW I▗ LIST | POKE ▗IN POKE SGN ▘S TO VAL$ 3t SAVE COPY ▖6"%N COPY CLS ▝▘<▘J[Q]USR p6 FORMAT FORMAT 8USR BORDER ▝p(]▝0cxx RETURN ~ OVER ([M][E] RUN LIST DRAW STR$ READ LPRINT <USR 0#@SGN THEN ▘75"▗ PRINT VAL 5 LIST USR OVER ▝9 GO TO ▘?4EXP ▗ NEXT pd▘© DRAW ACS ▘8LN IN "F▝ TO "F▝0D? SAVE v CIRCLE w[E]w[E]w[E]w[E]w[E]G[E]▝w[E]w[E]g[E]▝ OVER '[E][O]▝ COPY DEF FN ▝ RETURN REM I LIST ▝@ ▝l0 COPY c6▝© ERASE COPY ©"? LPRINT ?USR PEEK ▘ COPY RETURN BIN ▘} LINE ▘ NEXT OR ▗ NEXT XUSR COPY LPRINT {^{^{^{^{^ CLEAR DRAW {^{^{^{^ LPRINT ? RETURN {^k^p>=p>=p>=p>=▘?USR p>=p>=▝ NEXT ,>= ▝,p>={^|&{^{^ TO {^s LINE {^^▝1{^# LINE q▗q▗q▗q▗©?pSGN q▗q▗A▗, STOP Q▗{^{^{^;^▝+^▝+^▝+^▘?{^+^▝ DRAW dUSR DRAW LPRINT ^▝ SAVE ▝^ NEXT +^▝ COPY Z▝?"(VAL rTAN xSx▝ AND REM $nH" DRAW LIST J▝©/PEEK V CAT VAL DRAW T▝[T]F▜ DRAW CAT LIST SAVE {^{^{^{^{^^▝0{^{^{^{^▝©{^k^p>=p>=p>=p>= REM p>=p>=>=▝ >=▝ DATA p>={^|&{^{^[O]{^s LINE {^^▝{^C LINE q▗q▗q▗q▗ COPY DRAW pSGN q▗q▗Q▗a▗{^{^{^;^▝+^▝0+^▝x^{^+^ LIST ?^ SAVE ?^▘ SAVE RND5^ RETURN v ERASE [D] DRAW >©A SAVE ?[T]USR LIST W LPRINT USR [H]PI LIST USR g CONTINUE USR NOT P LPRINT [Q] LIST < ERASE SAVE ?USR LPRINT COPY [U]EXP ?[Q]pQ SAVE *[T] DRAW G SAVE USR POKE LPRINT 0FN LIST pP LPRINT 8CHR$ FN USR LPRINT PUSR ▘ NEW [S]USR ?USR USR 0USR LPRINT `[Q] LET USR 5@ COPY /dv& DATA v ERASE ▘▗0 LIST _FN USR ▘IN CLOSE #CODE ▞?©AT > COPY T▘ COPY OUT P2 REM [Q],? PRINT LIST [E]▘© IF #▝ CLEAR s? CLS CLEAR CLS CLEAR IF u COPY CLOSE # PLOT CLS VAL$ ?▘ CLEAR ^|▗?}|▘IN SAVE ▗ CLS SAVE ~▘w VERIFY CLS [Q]<▗ PRINT @ DRAW ▖▝ ERASE ▘'INKEY$[N]▝j▖ NEXT LLIST USR LLIST 2pp▙ RUN READ STR$ "STR$ READ RUN e▟ PAUSE DATA VERIFY Z[M]VAL$ [P]IN BBIN F CIRCLE /~[Q]CHR$ ▗F LINE VAL [S]f▖SCREEN$ TO ▙ CLOSE #[G]X BRIGHT [O]`[R]" DATA INKEY$h* GO TO VAL$ p2 POKE ACS x:L^USR E▘ESTR$ ▘USR ▘NOT B▘▘ AND ▘USR F▝CHR$ ▘88 AND ▘ RESTORE GGFGL▘Z▘USR ▖▝▝▝@P▘TAB C▖EEESTR$ CHR$ ▘<>▘BIN F<>▘0▝0▝▜9▘ LINE ▘CHR$ ECHR$ :▘NOT P▝ y▘[C]▝.! BEEP ▘STR$ D▝▝ 0▘fSTR$ DD$ T^8▝3▘V▝F©▝J02XA269▝ CNOT ▝<[J] +Eor▚▛▙[B][F]COS SQR BLEN CLOSE # STOP &),/7?GMUkuy▟[J][N]RNDSCREEN$ LN ABS 2NOT AND TO LEN /`Z/X ▝Pf▝# LOAD ▛#H#@#8-[D]!X!P!P- RETURN - FORMAT - RETURN - ▝▝%W▝% INPUT %▗0%▝▝(%▝$[R],`,P.`.H$$($▖0$ASN pLEN pLEN RND#0 CIRCLE /H DRAW I▗H!LEN ▜H!P DRAW ATN RETURN ATN ▝ ▘▝ PRINT ▝ ©▝ [I]▘%[L]▝ATTR ~▘%ATTR ATN -( RETURN OUT ▖0.X.POINT ▝POINT ▝TAB ▘`TAB POINT ▝[R]LEN ▝LEN ▝EXP $ABS 0qfaf/H!x▝@!r▟0 DRAW #( DRAW ,@SQR ▜H DRAW !t▝ FOR ▝ H▘ POINT `LEN [F]▝ [F]▝0[L]▝ [R]▘0ATTR [E] RETURN INKEY$▝▝%E▘.ASN ▝^H.b▝ASN ▝[R]▘0TAB Z LEN lSTR$ ▝TAB rpLEN pLEN /T#(ax+[D]▜▚)*▙(() MERGE ▝{▝ ▘ 1▘0d▘-NOT ▝ J▝ !P.~▝#/▝.▙.PNOT rBIN q^^X LINE ▝( LINE ▝ LINE ▝b[A]#/@ DRAW /8 DRAW 7/ |▝/▘▝@,8▙▝0▙▞(, *Q▝MW GO SUB ATN ▝ VERIFY ' INPUT ▝▝ [O]`<>.ATTR ▘8|▝( STOP ATN ▝BE▝ PAUSE ` FLASH #▘#[T] ATTR COS ▝SQR ▘8s[P]r9ABS 9<> IF ABS "?▝/▙▝";[R]#TAB X*/▘(p▘)|[E]▝)▗" !▗[E]▘"FN ▘ READ ▘)[M]▘( LOAD mqAT ▘$▝' RUN " CIRCLE ▝3▘AT CAT ~▘./▜+(+0▗H[R]tbtb▝8 REM ` PLOT ▝+[G]!Z▝d▝h DIM ▝ ▝ "N▝ LN " LIST ▝#[D]-(r POKE ▝^0" POKE ▝8z▝▞▗8$B LPRINT ▝▝F▝▗▝f▝<>▝ CAT u CLEAR ▝@ [L] COPY ▟▝ 8 DRAW ` ▝X ▝P ▝H ▝@8.0 ▝(:HX8▝PEEK ASN [F]▘P3▝[U] PRINT W▝ LPRINT v▝ FLASH ▘8#<>▝@_V8(ACS COPY *"▘(.S▝$_[A]+X DRAW Hw▞8INKEY$▘ ▝ ▝ ▝HABS ▘ LET 8 <=▝ OPEN #*INT 8X DRAW 9▞"*▜@w▝ FLASH %▘ t▝ ▝ ▝ ▝ $▝ *▝ 0▝60 DRAW ▝8▝#▝ READ [R]▘0▝[K]▝#▚ STEP ▗H+@ RETURN ▝SIN 7▝▞▘PEEK ▛8X DRAW /▝PEEK ▝_A)▝ INVERSE ▝ LLIST ▖8` DRAW ▝X ▝P ▝H ▝@8©0 ▝(▛▚HG INPUT ▝m▘c!▝Up_` DRAW ▝X ▝P ▝H ▝@ FOR ▝ RUN ▝(<>▝▘▚H LLIST ▘▛pTAN ▘ AT ▝ AT ▝ AT FLASH AT ▝ AT ▝ AT ▝AT (>= ▝ ▝SGN ▝d▝LN ▘ CIRCLE ▝ CIRCLE ▝ POKE ▘->=▗▙▘ LPRINT ▝▝[D]Bh▝t▘$LEN ▘ CLS ▝c▝ ▝▝ OPEN #▝Q▘! STEP ▝! INK ▖= -.▘$ BEEP ▘"▘0 B▘! ERASE ▝ ERASE ▝▜LQ▘o DRAW 8▝ ▝ 8 DRAW ▝s*▝8 *▝@ *▝H 0▝P 6▝X <▝`B▘ DATA ▝ CONTINUE ▝SQR 3▘▘r▝vR_▝▟▚ ?r▗r▗2▗▝ )▘ DATA ▝0 DATA ▘$ VERIFY c▝Y[M]▝[M]R9rNOT "IN m▘ ▝ ▝ ▝# THEN ▝_▝k▘▘R GO SUB C▘ MOVE ▘ MERGE '0 RETURN ▝ ▝▘ FLASH !SGN ▝! FORMAT 0oCOS ▝{▝s}▝▝$▝▝8u MOVE ▝$s▝s▘PEEK ▝&▝0[F]▘#B▗H [L]▝%'▗`;▝$ READ ▘SGN ▝` REM ▟('P^▝/0▝A▝▖P▝▜8K▘▞0FP CLS ▝ CAT _▝ FORMAT ▝[E]▝70k▘w▘R▘TAB ▝ RANDOMIZE ▝0H IF ▜0p▝+C;▖&@ RETURN b▜HSBIN INT ▘S0ACS ▝jPf▘[D]ACS ▝O▘uAT ▝$[Q]▝H[U]▘▘B0 PAPER <>▗ LPRINT NOT [L]▝IP▘▘i▝!M▝0 STOP ▝!83▘48▗▝ LOAD /)▗&A▝ VERIFY ▝EXP b▗9V▝70 OVER 0 NEXT 0d▝=qINKEY$[R]NOT ▘>▘&/▝5@[F]! INPUT ▝'▘ ▜ INVERSE ▘▝▗ Cp LINE ▘0H▗P!©▘ I▘8Q▝(?▝ MOVE ▝E1[M]1PEEK DATA ▘:▗▗▘SCREEN$ [C]P@((I1 CLEAR P▖E▝XA[C]▗@,▝p LIST MERGE ▝[E]▖▘ITAB ▘?a=▗`▘v▝G▘&▜@K▘" INK ▗ ^?p▖▖▘ A▘▝nvh?▝W@ LLIST IN LEN fBIN ▜b ERASE I FORMAT CLS ZCODE : STEP T[D] CONTINUE GACS OPEN #'^▞ BRIGHT 8g[O] OPEN #▛[[U] READ LIST <INT PAUSE 0 0 (.(**2" *0($.0(02/886(68:8USR 6▟ COPY COPY [B]COS COPY COPY COPY TfhfT".2"<>@Z/^<> COPY CLOSE # IF [M]XH COPY X0H2 COPY @4@$▜@ COPY @(TAN ▘,INT ▝ ▖" ▗ MERGE (8 CLS H[E]882888▝H BORDER ▚688<▝[H]CHR$ DRAW STR$ RETURN VAL STR$ STR$ CHR$ STR$ CHR$ CHR$ ▞"$&(*(&$" 6P MOVE pp0 GO SUB ▝ COPY p(p(p5qpPpPp]a:CODE RESTORE [Q]g[Q]g[A]h[A]hiipjpj`k`kPlPl@m@m0n0n COPY POKE [U] COPY RND, PRINT , PRINT [M] OR ^[F][A]eCHR$ 5 POKE & COPY POKE < CLOSE #7TAN 2[E]-t(T#4[D] POKE 7 POKE 2 POKE - COPY BIN COPY LIST dUSR d[A]d`0▝0 ▝ 0CODE d COPY USR [A]` COPY T>=▗ NEW ASN RESTORE " RESTORE @ RESTORE ^ASN @"U COPY RESTORE [A] PRINT POKE RESTORE VERIFY MERGE LN OR [K]ASN |RND^[F]ud NEW D NEW $ NEW NEW [O]▝: AND ▞ CLEAR TAB FN ▝ OPEN #<>X DRAW /P DRAW /H DRAW /@ DRAW #0 DRAW #( DRAW ,@!H DRAW ! GO SUB ssUSR !USR ▟[d MERGE GO SUB VAL ! SAVE PAPER NEW w<> GO SUB LN !POINT THEN USR ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 NEXT NOT RSGN NOT iy STEP ▖[A]NOT INT STEP >=EXP !`VAL$ FOR >!EXP FOR ! LLIST VAL STEP wSQR !▖EXP FOR ><>! LINE ATN FOR >@!▖FN FOR >! DEF FN POKE FOR >> RETURN ▝▝▝▝ ▝$▝ COPY @(,▝ DRAW 8▝ CLS < IF !O PLOT m>(K▝O▝S▖0!STR$ RUN FOR > 0▝*j▖D!3 RANDOMIZE FOR >4p▘>#▝▖6!RND IF FOR >Cp.P▜[M] POKE FOR ©!INT CLOSE #t POKE STEP ▘INT !oPEEK /▝2CHR$ Qw▝. MERGE LEN ASN PSTR$ ▝: DIM ▝ GO SUB ▝ SAVE @ RESTORE MERGE ▝/@ MOVE CLEAR DIM ▝f▝ CLEAR A0H[H]NOT ▛{ STEP ▜[O]:<= RETURN _>SQR CHR$ BEEP z STEP L:<> RETURN ATN AT [R]© STEP CAT STEP [K]▛ STEP /[F] STEP [D] STEP [D]▟ STEP (▖ STEP [P]▞: THEN RETURN ATN LINE PLOT z STEP MOVE ▙!vVAL$ ~ STEP 3SQR ATN CHR$ {G▘!w@ STEP ATTR SGN > ▜ { STEP [Q]~: STEP 4*{ STEP ▗]▘ LINE 40▘: CAT t▗JSQR ERASE T0SQR PAPER ▝ MOVE {▜T{>2 MOVE RETURN [E]▖SQR CHR$ a{ STEP [B][R][K]! OPEN # RETURN NLEN ATN CHR$ s{ STEP STR$ [N] STEP |{ STEP PAUSE STEP POINT [O]NOT ABS z: MERGE CODE ▜{ STEP CLS <> STEP * CLS <>|[T]INT !/$▖ STEP cINT !<= RETURN IF !S▗4ATN h!/▜ BEEP j" BEEP RETURN !e"Fj▟ INK RETURN >52 FLASH RETURN !&" INVERSE RETURN E[O]~2 CAT RETURN >2 OUT RETURN !VAL " LLIST RETURN STEP [F][N] STEP r[N]!| DRAW "4ATN STEP SQR COS !▚_>PSQR CHR$ IF INKEY$[D] READ RETURN >2/ATN STEP FORMAT [O]![T][T] FOR ><!l▛@X FOR !USR w[Q] GO SUB VAL [M]>_>W GO SUB S[N]ATN STEP [F]ABS 1-KEYBOARD>pABS 2-JOYSTICK0▝P03-PLAYGAME 0`▝4 2NH▗`[C]M-MUSIC ON/OFF STEP =[P]!F STEP SAVE >_>P▞[J]PROGRAM BY VICTOR RUIZ>PTAB COPYRIGHT DINAMW▛SOFT. 1986!j▝E0 SAVE CLEAR STEP PLOT ▗AsX STEP T▙>"#▜,} STEP STEP ~>@/▝"4▗b}!p<>▝[T]▝$PI▝ATTR ▝C`PI DEF FN ▗>P▟!h▝"j▘v} BORDER ;▚NOT a©>"~}>2 RESTORE RETURN STEP REM }: RESTORE [L]}<>B{▘[L]}{▜ CAT RETURN 2 BORDER RETURN ># VERIFY ▝ VERIFY >2 MERGE RETURN B OPEN #2 FORMAT ▘ BORDER RETURN Q PAUSE Q▘}qJSCREEN$ THEN <> STEP STEP }@ NEXT qaH▙ACCESS CODE ? COPY [G]SQR " DIM RETURN * DIM RETURN FOR * BEEP RETURN CODE GO SUB R LINE &~NOT I~>[bA▗;~>*0 FORMAT POKE RESTORE RETURN <>"EXP ▝B OR ▗~2 FOR RETURN CLOSE #▝R4WRONG bUSR *@p▟DENIED: FOR RETURN CLEAR ▝▜ATN CHR$ [K]~NOT >#▛<>: GO SUB OPEN #SIN ~ STEP EXP COS [ GO SUB RETURN NOT USR ~b MOVE <▘ GO SUB RETURN CAT ▘ TO ~B CIRCLE /▖!"NATN >@# READ BORDER ~NOT STEP ~A GO SUB r▗2▘ATN x▝a.▝▛AT LATN >2ATN *NATN STEP QSGN LEN GO SUB KLATN ~24ATN :4ATN BEEP !LATN 4:ATN PEEK ERASE ©$*[G] GO SUB KNATN FOR !PIATN ~!AT " LOAD RETURN STEP Y[O]!N'▝▘' CLS ~<>SX▗BIN " LET 3SGN ▘ PLOT ▝ INK [P]▘!INT ▘>0LN ▝ AND ▖+[N] STEP 2▝ STEP ▘ FOR ▘[R]©%▚!INKEY$" NEXT RETURN (▝ PRINT ▝ RUN ▝ RANDOMIZE ▝ CLS ▝ CLEAR ▝ THEN ▝ COPY #k▗r GO SUB K&SGN ▚ STOP POKE " COPY COPY * COPY mn*0▘n CLOSE #▝ ▝o▝ #▝p▘ OUT RETURN .▝q! CAT RETURN STEP D[L]5 GO SUB FLASH u PLOT 1a!#"▘ATN STEP [O]<= COPY STEP Q:▝#z▗ GO SUB [▘ATN <▚ PAPER C>2 LLIST ▗2 OPEN # RETURN GO SUB LINE © LET ▘ COPY PLOT ▘ COPY +▘ OPEN # RETURN VERIFY STEP p CAT <>!▘X▝7#▘[U]ASN #4▗*▘ COPY D▗INT !'=▙!!"<ATN !">ATN * FOR >▖'3[I]* COPY CIRCLE CONTINUE ~#foUSR "6ATN STEP /LEN STEP DEXP Gs▝<>VLN ▗B POKE &LN 6 OPEN #▗SCREEN$ IF 0& TO V MERGE <>: FLASH "PI▝ FLASH VAL U▝Ti▝ BEEP !▟_>0SQR ERASE R▝<> STEP POKE ▘>U2▙YOU HAVE LOST FFECTIVES.w" BORDER ▞ COPY _>NSQR CHR$ [L]▝CHNOT BIN ▝ ▗8SQR CHR$ CODE 0▝`▗RSQR CHR$ NOT p(▝▝2c▛ CLEAR <> GO SUB x▗ATN LINE READ ▝▘ COPY 0▝`▗ IF ▝>▘:s:▘▘@9▝`9▘▘l▗ COPY >'$▘*▘UPG▝`^▗A▘>^@v▝`v▘[▘©4ATN <>!0▚oVAL$ 7p▝xp $▘: READ [D]▖▞▘NOT B▘NOT b▘Q GO TO ▖ REM SGN FOR >!, MOVE ▝ COPY STEP DATA SGN ▗▗0* LET [Q]▘ COPY d▘ NEXT ▘BIN _!▚▘5SQR ▖▝ STEP ▝g▖ COPY !>= CLS d"k[O]<>RND▜<> RETURN STEP t▗>vPABS THE MISSIONCODE ▚S FAIL[R]▝<>(▝vxABS HELIX[E]TER WITHOUT FUELNOT FN [N] SIN SGN ▘t▗ PAPER ;▝fCOS XE RUN ▘ STEP LLIST >=uMPLET▚ STEP DEF FN STEP [A]Dn▚SQR CHR$ STEP >a▝G'▝uSIN uSIN : FN CLOSE #<>: RUN STOP ▘:▗V▘ RUN RETURN AD* RUN RETURN COPY MOVE " COPY W MERGE ▗_>W MERGE ▞BONUS LAN'▝G,▘*jp!5▗ COPY !FN D INK [L] /▝▝&)▘D▗vCHR$ q▗Sg[P] CLOSE # <>NOT REM ▘ THEN [O]bFN 64▚<> STEP 7[N]: SAVE ▗[K]▗>ACS NOT [S]▗!PEEK NOT MOVE ▗ STEP CLS COPY 2 POKE ▘Ze▝Pp LEN {▘ STEP RETURN INT ▜_>SQR ERASE PRINT ▗#PEEK ▝▝PEEK ▘2▝q▝ STEP TAB 4USR ▝@4USR ▘▜[O]$9▝>=ATN ▘N▝+u!( FOR 2▘ RETURN [R]POINT ▝Nt OVER R PAPER <>$FN ▘tCODE THEN ▝@$▜▟D▜[O] STEP ?EXP HaXopzpz z[B]}p}u[[▘}Gq▘>y[O]▜ABS SORRY.e▞ WENT TOO<>▝Rf▘ BEEP * FLASH ▘ STEP 8 SAVE Rs_▝3_▝ NEXT H▝<><>*ABS ▖*▚: OUT RETURN 2 COPY ▚ COPY STEP RND STOP CLOSE # OUT "SQR PAPER @▚% /▖SQR PAPER K▚<>: PRINT _▜U▚ STEP ! STEP &h MOVE RETURN NOT ▞[L] REM ▖:! COPY ATN CHR$ ▝▚:# COPY COPY :% COPY COPY F▘' COPY +-▝[S]0!▝[B]P!▝▝!▝$P! STOP ▝ CIRCLE BVp! COPY >,BG▗ CIRCLE ▚>.N`#W▗SQR CHR$ LIST px0!o`▘▜`o0E▜▗SQR CHR$ $ ▝PFN ▝FN :fATN LET ERASE 3▜>&SIN B[B]▝'[B] TO ▘2)v▚2+ COPY NOT [L];AK~ATN CHR$ z▜S▚▘[G]▜[L]($▝<>f▝rXw6▘_▜<>▝-6 INPUT RND▜NOT EXP ▜&▞! COPY :/ COPY ATN LINE ACS ▜b- COPY NOT INK ▜BIN 0▝CHR$ ▝ ▝C▘SQR ▝/]▖*]▘ CAT RETURN /▝-▗1 COPY <>p'''▝[▝f7[K]ATN *fATN FORMAT SCREEN$ IF "3 COPY *3 COPY ~25 COPY :5 NEW S▖NOT OVER ▖ CLEAR ▝5▘ IF POKE ▝▝% P▝~ STOP !▝!▝! ,▝- DIM ▝POINT G%▘POINT ▖0 FOR ▝IN 0SQR CHR$ IN ▖! COPY STEP `▚▝ FOR } READ ▝# OPEN #▝% CIRCLE P INVERSE ▘!fVAL ▝[K]VAL 2▖<>▜_><SQR ERASE RANDOMIZE ▖u▜5 COPY STEP U[C]:7R3▞ STEP ▗▞▞_>>=SQR PAPER 3▞*:[S] OPEN #▘9 COPY ▘; COPY ▘▛CODE ▝=USR ▜_>ZSQR ERASE ^▞ POKE ▝ LINE 2EXP , PAPER ▘[B]3/0B▘▞RA▞ STEP NEXT [B] v▘▞.* ▝<> ~▗NOT SQR CHR$ [N]`)▖[N]▞> COPY 27 COPY <>$POINT ▗fATN !i1z▝*[I]▝t BRIGHT ▝?) BRIGHT ▗A COPY *?▗A COPY :Af OPEN #▞NOT r1w▝1w▝ !w▝=BSTR$ ▜!n POKE GO SUB KA COPY *[▝"<>▝<>tSIN ERASE ▗ STEP ▞ STEP PAPER >f/o▗B!J GO SUB 4!= COPY N▝,▝A#[R] ▟N▘ ERASE e2 [T]▝ FOR [Q]▚ COPY @▝# CLOSE # GO SUB [[K]*$▘AT ▞!U▝<>▝![P]▘[U] U▘[U]N[E]▝<>▞o[T]sW▘ CAT CW▞ FOR >2 LOAD RETURN NOT YuTAB uTAB :▛▘ACS r DATA ▝ LIST ▝= CLS ▘:C38▘▛▞▘VAL #M▘<▛▘!E@ OUT ▗; COPY !G REM ▘ COPY 0+*▝&4▝*s NEXT ▗ATN CHR$ c▛3 NEXT ▘NOT ©s DIM {▗R PAPER R▛sxbSGN cr STEP F▟?▚ LINE PI▛NOT ▚%/▘INT ▛3PEEK BORDER NOT n:<=%▜▛CHR$ LINE ▛ STEP nNOT 6[B]: RANDOMIZE STEP RUN P▚ ERASE DATA ▛ STEP THEN *▝ CLEAR (T▖ ERASE LET ▛NOT ▟:5▘!%88▜?SQR PAPER !>b▘!dQ OUT @0▝J 0▝ LINE ▝ CAT FOR SQR ERASE <>+ LLIST YB▝k0)▝ OPEN # THEN t STEP ▙NOT 4▗ LINE |<>▜▗ COPY STEP K0[D]▝s▚_: COPY SQR PAPER CACS TAB ▘ LINE ( COPY SQR ERASE LINE 0(▝[B]▝<>u▘<= RETURN !SQR CHR$ READ DIM ▝<=SIN SQR ERASE RETURN -x CONTINUE ▝ FORMAT ▜ RANDOMIZE RETURN ~! CAT RETURN BIN ▝ CAT D▗▝9/▘&▟5▝/P▘ PAPER : [I]q▘T▙▝ VERIFY V MOVE Z▟NOT TO ▝N▝p.-NM/ DIM ▜▟:NATN [U]n2▘k▟▘[A]! OPEN # RETURN NLEN ATN CHR$ [S]▟NOT [T]▟<> STEP ©▘ CAT CHR$ SGN ▟:IJ▘SGN ▟ STEP N▘I COPY P▘ FORMAT ▟▖▝I$r LINE CIRCLE ▟+v[/▗ PLOT ▟:K▗▝ PLOT #P:▘K COPY p#A▘▙<=▝KPI▜▙NOT 0▙: INVERSE OPEN #▝▙>- THEN <>:'▘ COPY "U▘H▙- DEF FN ~▘!*▜7&u▗* INVERSE RETURN }▞-▞'VAL [J]▙!fVAL$ &l6[O]▝{▝ABS ▝STR$ ▘ COPY .0▝IN `&▝p&p&▘ COPY [T]▝<>[B]▝ FOR CHR$ MOVE ▙) FLASH [O]▝O'[O]▝Q[O] STEP ▜▝t<=<Ac▘▘!SUSR ▗Q COPY *U&LEN ▝ FOR 82▝Q6 RUN ▘ COPY ]u▘36▝H@▗ZSQR CHR$ Qp▚>LSQR CHR$ `D▘ COPY ~▖^▖▜*6ATN ~2W COPY 7▗Y COPY :[ PAPER ▘ DEF FN =7 STEP ▖SGN >=}▗ GO SUB K4ATN [D]▝VAL ▘dATN LINE ▝b▝WIN ▝Y0 INVERSE ▝ STEP ▝]>=607TAB ▝GTAB ▝'TAB ▝[M]3▝U STOP 'g▗ THEN RETURN : THEN ACS [A]NOT G[A] RUN '[N]a~2O!LN ▘2M!▚2S COPY STEP NOT ▙y▚ATN CHR$ G[A] STEP [Q]7A▘S[A]gi▘ OUT 6 CAT B▘r[A]cK▘r[A] INPUT ▘<= RETURN MERGE ▘_ COPY 'l▗!9 COPY NPOINT EXP _>SQR PAPER e▛▚[B]_>SQR ERASE ▘ PAPER Z▝ OPEN #▝ OPEN #; PRINT RETURN STEP NEXT [A]-1 DIM O9 COPY l' OPEN #▘ GO SUB [A] COPY ▟▝ CLEAR NOT ▝ l[N]▚[B]>! RUN k0▘ RUN DIM ▝D0▗▝2ak▘2c COPY >d2gSIN ▝c*▝gLN ▝d CLEAR [B]>bNOT V[B] ! _:_[Q]▗o[B]:e*ASN :!9*6▝g OPEN #/ .▝a DEF FN ▘[E][B]4LEN ▘!,G▝,SM2#'*[L]▗!eVAL$ RND FOR >NOT TO [C]!,v▝`/▝i@ POKE ▝kp/p/▝[C]*X CLEAR [B]NOT [F][B][S]CODE FN ph▝@h▘[B]phP9W COPY 2>ATN v▝2`h e▗!B POKE P[B]▝ [B]0USR ▝pUSR I[P]p)@)#06pINT INT ▗[B]NOT IN p"QCHR$ T2[T]▝[M]`z STEP 7RND OUT ▗7 COPY *8▘ COPY COPY ▘ STOP [C] FORMAT ▝~ BEEP *▟▝; *▟▝9 *▟▝m !*▟▝o INK 9w9}▝i}▝* RUN ▝B}▝q,▗s COPY *q CLEAR ▗s COPY :s READ P[D]NOT [F]: POKE ▝i: POKE ▝k * OVER ▝u #W▝w !#W▝C:)▗>=[D] STEP BIN :▘>=[D]R*[C]▗>=[D]>>=a▝k*▛▝i*▛▝j▛ *JO&▝Ck▝ CIRCLE ▖( VERIFY <= LOAD [D] STEP LOAD [G]NNOT n[E]( GO SUB M COPY [D] STEP O[G]P'[D]#[E]> DRAW 2y COPY > RETURN 2{ COPY STEP FN [H]>!w OPEN #▘ COPY P4▘G[E]t$▝p$p$EIN ▜a[E] STEP ▚[I]>">▝[B]p>[H]n[E] STEP [J] VERIFY <=SQR ERASE BIN [E]2PI!Bq1a1 STEP [F]! LINE SQR CHR$ BIN [E]TAN c▝ INK NEW ▜BIN [E]*C COPY ~▛ GO SUB K COPY " COPY STEP ▘O[* INPUT jSIN [S]▝ FOR [P]RVAL$ A▟ FOR :u▝w▝Cz[H]J[H]▘)[D]j▘.[F]3I>=▝<>)&▖>SQR ERASE :[F]<>:}.▙▘} COPY )▘! MERGE ASN ▗SQR PAPER X[F]CHR$ ▘} COPY GO SUB ▘B POKE :~CHR$ ▘[F]▜© COPY STEP ERASE [F]NOT [O]▘© READ © READ n[F]<> STEP ,,RNDCHR$ MOVE [F]*©p<=3u5 COPY &INKEY$-SCREEN$ >=▝<> STEP [R][N].?▜ DATA [F]NOT PRINT [F]:▝c▝▘▖[F]NOT [K] STEP NEW [J]<> ▛TAN SQR ERASE [G] STEP '[K]NOT 5[G] !▜PSQR ERASE [G] STEP T l LINE %[G]+▘>H<>▝<>)LEN ▘2[G]!▖▗<>NOT }[K]a▜_>DSQR ERASE N[G] AT ▝N@▘ STEP ~V/z▘q[G]a▝ATN ▘> RUN zP/▘[U][G][M]▜_>(SQR CHR$ [U][G]ATTR [R]▝d DRAW 03▝[U]p3<bH▘ LINE DEF FN O REM L▝ DEF FN INT ▘u COPY TAN ▝ix▝i7▘[H] MOVE _> CLEAR [G]>dNOT CONTINUE [G]>l CONTINUE CODE ▝<>!A▘ COPY DRAW p ERASE [H]- DATA ▝iIN [H]+▚▝SQR PAPER a[H]@&0 CLOSE #▝u REM CHR$ PLN >=SQR ERASE *k[J]▝#[T]▝%RNDa1 ▘/[Q]▘y[H] OVER [B]▘ COPY Sd▝<>4 LOAD (!▗SQR ERASE PIQ▚_> POKE SQR PAPER PI.v!L▝SQR h` REM @AT ▝r▝ MERGE AT ▗ATN CHR$ MERGE [H] DRAW RND OVER Q▘-[I]p~▗i COPY !yq.q.e▝ OVER 2▝P<=▘▝02 TO /k TO -+▗@[I]!*q[M]!Ib[I] STEP c[I]B▘ PAPER b▘!{1[N]0 OVER >! POKE =SQR ERASE [I]@ CONTINUE PAPER [I]p OVER ▘CHR$ [J]@ COPY L▝k PAPER <=[I]0 CIRCLE MOVE ▝Qf▝p[K]f@ PAUSE ▝ PRINT p PAUSE ! INK p BORDER 0 BORDER A▛▘[J]p>=B▘[J]D▝<> TO R[H]2SQR PAPER ?[J](e[S] CLOSE #▘?[J]!gNOT L[J]P#▗L[J] STEP POINT ▘ LINE #B,Q CLS ▘ STEP [O]8/ PAPER 6[D]▗%▘[J]%▝u?*▘PEEK [K]nrPISQR LINE POINT [J]▘! COPY # LINE SQR PAPER TO [J]![D]( DRAW ▝ ▝▗k COPY !"▜▘!▜1ABS ▗<>>0 LLIST ▝>>▝▘>{▝<>0▝▚▘>NOT OVER gP*▝*▘NOT PRINT 0 CONTINUE REM ▘>[K]- COPY ▝g▘/▝ LINE ▘NOT #P▝ LIST o▝`▘▝0) INPUT { { K+$ [K]▗>b!Y,PY▝6▗<>* MERGE RETURN [ OUT ▝. OUT ▗▞ COPY *▞▝;/▝E * BRIGHT ▝G ' GO TO ▝ !' GO TO ▝▜ PAUSE OVER fSQR CHR$ [L]&H▘DG., AND ▝)[H]▝+4{<=L AND zLM%▛▛ COPY STEP THEN [O]!^ CLS GO SUB K[G][D]▟ COPY !7EXP FOR !tCODE STEP wSQR STEP VAL$ [N]*▟ COPY ~[U]▘ COPY a! STEP [L][L]'▘>/ PAUSE ▜!z GO SUB K MERGE RETURN FN ▘@ DIM ^[S]LEN <>7▘2[P4~2[B] ?+POINT ▝[D] J(EXP [F] COPY :[F] COPY 2[H] COPY :▛:[B][Q] STEP [G]SGN .▜_> CLS SQR ERASE RETURN [L]w( FLASH ▝[J] ▘,▖[H] COPY NOT [M] STEP x[M]@TAN ▘:"[J]▝▖ATN CHR$ [M]<>NOT [L][L]:[J] COPY 2vATN , R▝ DRAW IF ▝[M]g!>ATN 1@g RETURN SQR CHR$ W[M]:[D] COPY !<▝B FORMAT ▝* a^@aO COPY NOT [M] CODE ▜▘[M]NOT PI[M]*[~[T]▘FN TAB >'FN NOT :86ATN NOT RETURN [M]/▘[L] COPY * FOR !3 DIM ▘ ERASE LINE 7▝4 PRINT B"[ @H~o@H=v▖"[N] COPY STEP [U]RND:[L]D▗ RETURN [M]*[N].SCREEN$ ▝[D] GO SUB ▝[B]! DATA ▝~ PAPER SIN -[J] FOR T'[N] STEP /LEN STEP DEXP <>! CLEAR TAB EXP ▖©[N] STEP _[P]!Zs▝Pp ▘!p#p+[T]▝ FORMAT pGTAB ;▘[F][N]"0▘[U]ASN 0d[L]<>( MOVE STEP cINT <><> STEP ASQR 2▝FN ▙ STEP ATTR SGN <>!SCREEN$ IF STEP ▘INT <>: CLS , OVER CLS RETURN * NEXT RETURN |ASN LINE OVER [N]▘!▘ NEXT RETURN WCHR$ RANDOMIZE [N]EXP ▝ COPY 8 CLS RETURN NOT IF [N]8 THEN OR ▘[O] IF [A] PRINT RETURN <> STEP [O] STEP <>* COPY n&U▘bATN d 5'l'74▝] 4C▝>=▘ LOAD RETURN n PAUSE ▖ COPY !CHR$ COS FOR :> IF NOT CONTINUE 4ATN STEP IN COS /ACS INK [E][U]VAL$ "8ATN !USR w"@ATN ! LIST i"BATN STEP b[U]P"▘USR ] CLS ▘DVAL ""▘@X@"▖>2/ATN !INT ;J0)▗:/ATN O[Q]@rm[L]▝ BRIGHT )[H]▘ /&▜USR w FOR >Ap▘-0y[P]▗R PAPER [P]pACS p[E]0ACS 0[E]▝`ACS ▝An▗Xp~▗<>NOT INT NOT <>[B]2 COPY NOT n STEP PI BRIGHT NEXT GO SUB ssUSR !USR ▟[d MERGE GO SUB VAL !INKEY$ BRIGHT DIM %<> GO SUB LN ! FOR TO USR ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 NEXT NOT RPINOT iy STEP ▖[A]NOT INT STEP >=EXP !EXP FOR ! LLIST VAL STEP wSQR !l[T] FOR ><>!EXP SGN FOR > !▖EXP >! LIST i[Q] STEP ▘INT [A]! CLEAR TAB c FOR >!eVAL$ ▝P▚> COPY !yp ▝'▝ PINOT THEN z STEP ABS [N]:[Q]PEEK ATN CHR$ NEXT y STEP MERGE ▞ STEP ▖ STEP m▘ STEP LEN ▖ STEP MOVE ▖!fVAL$ FOR :[S]PEEK :[U]▘<ATN >ATN :INKEY$-SIN z STEP AT [G] STEP [H]▚ STEP _▜!w CLEAR "FN PEEK >2SCREEN$ PEEK STEP NEXT :AT PEEK _>SQR ERASE Az STEP CLS ©:VAL$ PEEK ATN LINE Kz STEP [B]:VAL Uz STEP ,[D] !SQR PAPER bz STEP ▞[E]:SIN !▜lz STEP INK [D]:TAN +[H]vz STEP /©!wVAL$ ~ STEP 3SQR ATN CHR$ ▚z> STEP ATTR SGN !v@▘[E]zVAL$ ▗ THEN |:ACS V▝INKEY$0USR ▘:LN e▖CHR$ z:SGN PEEK 2INT PEEK ©2PEEK PEEK [I]2AT PEEK STEP RETURN [I] STEP RND[H] STEP OUT [N]NOT NEW y STEP [K]|![Q]PEEK PRINT <▗4ATN h_[O][T]INT >2USR PEEK STEP NOT ▙>92CHR$ PEEK !l"BIN PEEK ! LINE ATN ~2[S]PEEK >Q▚ STEP LLIST [M] STEP STR$ [M]_>*SQR CHR$ {>2 AND PEEK !/[K]>_>W GO SUB S[N]ATN STEP [F]ABS 1-KEYBOARD>p▙ABS 2-JOYSTICK>p0▙ABS 3-PLAYGAME>pH▘ABS 4 1ST>_>P`M-MUSIC ON/OFF ▜F>_>P[M]PROGRAM BY VICTOR RUIZ>_>PPICOPYRIGHT DINAMQ[I]SOFT. 1986 STEP VERIFY [O]>2/ATN STEP 4[O]![T]▜▘<A% STEP [J]▜'| STEP CIRCLE |>#▝▘>!CODE ▗]|!p▝▝$▜▝▛▝▝[D]▝[H]▝[L]▗>*YC▘>! RESTORE ▜i|NOT }>! LET s|<> OUT ▜[S]PEEK 2>=PEEK >7v[E][E]:>=PEEK ▛"(▘[E]|( CAT ▙|![C][P]"4ATN STEP SQR COS <>: LINE SQR ACS | STEP EXP COS [J] LINE PEEK NOT PEEK |▘ LINE PEEK LIST ▘>"F▘ LINE |▝<>@▗ BEEP | STEP [U]e▗ OUT [N]>@"c BORDER |NOT LINE qf▘[F]ABS THEN ▙!"NATN !#"▘ATN ▗LATN ![I]ATN *NATN STEP QSGN LEN GO SUB KLATN ~24ATN SIN ▚!LATN N▝"▖:4ATN BEEP *LATN #7 GO SUB [ATN CODE GO SUB R PAPER }2 VERIFY [G]pVAL$ GO SUB KNATN FOR !PIATN ~!"" TO PEEK STEP [F][N]V▝#q GO SUB [▘ -}<>T LET ▘ LINE ATN #[E][H]▘!BAT ▘>2SCREEN$ ▝ CLS [J]▘ DEF FN PEEK VAL IF [B]1[M] STEP ~[M] STEP /[J] STEP BEEP } STEP IN ~ STEP BRIGHT ©▚:CHR$ PEEK BABS ▝R▝ BEEP ▛_>0SQR ERASE RUN }<>NOT LET ~ DEF FN FORMAT PEEK GO SUB x>=▗ATN LINE ~ DRAW P▝`▗-~>.▘: ERASE RANDOMIZE ▚SQR CHR$ 8~<>09▝`9▗O~>P▘>2(~>`^▝`^▘t~▘ FORMAT PEEK @=▝`v▘▙~▗4ATN <>!0▚oVAL$ 4#▝ATTR p $▘: AND q▖SGN ~NOT u~NOT [F]~CRND▘! REM I▗!I▘▝ CLOSE #PEEK STEP DATA SGN EXP ▘0 <># BEEP ▜B STEP ©>sW[J]ABS THE MISSION HAS FAILED<>ACS PEEK STEP [O]▘ OUT [N]p>©>t▛ABS YOU MADE I MOVE ▝ MOVE ▝/A GO SUB e▝`e[O]O BE CONTINUED IN NAVY MOVES.`[M]▘%©@VAL$ ▘:USR FORMAT ▝▝ABS AT ▝d[R]E ▘ STEP LLIST INVERSE RMPLETVAL QU▝<>AT<>"▝2SIN 9▝<> OPEN #▜ VERIFY PEEK STEP f[N]: CIRCLE CAT ▟SQR PAPER STEP LINE ▟NOT E▛: PAPER OUT ▛SQR PAPER NOT /▗>▙2"ASN ▞ STEP DEF FN } STEP 7[N]NOT /[J]?▗ BRIGHT PEEK : OVER N▗D!j ▝SCREEN$ ▘Q0[C] STEP ^▝: STOP PEEK 2 LPRINT PEEK : NEW PEEK 2 DATA PEEK STEP PAPER [E]05▘|▘▝▝<>W▗~▘u▖ IF SQR CHR$ AT CODE GO SUB B▘NOT >= ▝ /sC#p[C]<>*45INT PEEK ▝[S]a CLOSE # CONTINUE PEEK ▗ATN CHR$ PAUSE P▝<><=[B]fATN >!SCREEN$ PEEK N[B]2[K]ATN *fATN RESTORE ▛ GO SUB KFN PEEK " REM PEEK * REM PEEK [G]▗~2 STOP PEEK LINE ▛+▝NOT R▝▝~ AND ▚~2 OVER ▗▝-▝ FOR REM A▝ STOP F OVER PEEK !fATN 4:[K]ATN PEEK ERASE ▝<>▞_><SQR ERASE m▝> IF O[B]!">ATN !"<ATN STEP [K]▖: GO TO ''▘CHR$ ▛@▜yVAL$ "6ATN STEP @0SQR CHR$ BIN ▝'<▖ INPUT PEEK PEEK FORMAT ▘71 BEEP ▗IN ~!▚DQ! DEF FN ▝NOT OVER ▝paa▘▘ qVq CLEAR ▝ STEP TAN [D] INVERSE ATN LINE DRAW 0▝<>&▝ FOR 0LN CHR$ ▝<>!!C RETURN ▘[▘PZ▘*:ATN #▝ATN 0▗ FOR >@#k BEEP [G]▝`[G]▝▙D BORDER ▖<>!URND FOR > MOVE ▝b▘▜ }▘ STEP NOT Q[J]: LIST <▜▘NOT A[F][O]▖ LINE [B]▘NOT 1[J]: PAUSE P[O]▘ STEP ▗NOT ]FN ▘NOT [C]▖ LINE SIN ▘NOT PLOT [G]: FORMAT ▗▘ STEP LINE [F][A]_>SQR CHR$ MERGE ▘: POKE PEEK ! PLOT PEEK NLEN ATN ▘NOT 0SQR CHR$ GO SUB ▘[F]▗ PAUSE PEEK !<Q)1▙SQR CHR$ IF ▘NOT ^[G] STEP STEP FN ▜ CLOSE #▘ POKE PEEK RUN <>: SAVE >=▘<k& RUN SAVE PEEK <>K▝S▘ PAPER H "▘▝LEN 9 STEP TAN SQR CHR$ o"r▘ofQ LPRINT "[K]SGN ▘!N}"[F]▗▘!L▘ STEP ▘ BORDER ATN ▝ DEF FN ▞ NEXT CHR$ COS [F]▝ IF F▝ POKE 0.▝COS 0D▝▝▝<> /▝▝▝"P▝"P▝#b8▘ DATA &(: DRAW PEEK !H RESTORE SQR PAPER POKE 0▝<>)STR$ SQR CHR$ ▗3▜_>SQR ERASE ▗ INVERSE ▘ DEF FN PEEK s▝ PAUSE &O▘ PAUSE PEEK [F][C]▖ PAPER >▗ STEP >▗*BIN #E▝<>TAB ▖CHR$ H▗ STEP v!P` INK ▗[▗!Vc▚<>:BIN PEEK 2 RETURN ]!E CLEAR GO SUB K PAPER PEEK n& LET CIRCLE RETURN PEEK 2▝ PAPER $ OVER ▝ PAPER &X▗[I]▗!(b>▚ CAT DRAW GO SUB KIN r▘IN (0!IN N▝[F]▖IN :IN !IN AND ▞IN :IN ATN CHR$ OUT ▗@▝▝ Cr▝#r▝cr▚>!:▜IN NOT ABS ▗!$ CLOSE #▛IN _>SQR ERASE 3! DATA ▘!$p< STEP DATA ![S]So▘IN ▞▘IN 1▜SQR ERASE K> COPY ▗* BRIGHT PEEK FOR :CHR$ f+ STOP ▝ CLEAR 5|:IN ▘IN 5▗<>!k CLEAR s▗k CLEAR d PRINT ▝▝ COPY SQR CHR$ [P]y NEXT ▝SQR t NEXT X6▘▜T NEXT $ LIST 4 GO SUB $ LET ▘ READ U▝ LET x▘IN ▗▙IN :IN IN STEP w▚ RANDOMIZE ▘@ATN [F]▗#"tATN $▘IN ▚ATN RANDOMIZE C RETURN t[F]▘e▚tT$<> FOR > IF $▝@dO▝#j GO SUB [t)▚<>e FOR PAPER [G]▚ SQR ERASE [G]▚_▗#[U]▘`ATN t▜[E]ATN *`ATN )▗k CLEAR " LET ▘"lIN ~ PLOT 5ATTR ▝ %[H]▝ MQ[T]S▖ GO TO ▚NOT ▜ STEP [J]▗8▝ FOR 6 LIST ▝ FOR ▝ LIST IN !`TAN ▝[E]TAN [R]▚<>-▘ ERASE PEEK (e▗!▜NOT IF LINE ':#▘NATN ▝2'▝o9 FLASH , TO S▜:NATN -▝N▝▘7▜<> STOP ▘!INKEY$[J]▘! PAPER [O]▜ LINE q▜<> STEP SIN ~jCHR$ [D]▜:COS ▝[D]▘▘IN j STEP }g▘IN P'▘PI▜▟IN <>!c CLEAR "IN STEP CHR$ ▜& MOVE ▘STR$ ▜/E▗▚*IN GO SUB K IF S]▘: IF )[T]▘ ERASE STOP PAPER IF PEEK NOT CHR$ ▜0!▘IN #~INT ▝ NEW !▘▖ CAT ▚IN NOT READ ▜<>[H]▝ [H]%r▘#▖DZ▝&SCREEN$ ▘LEN ▖&)^'!▙ CLEAR FN E CLOSE # STEP 7RND*8ATN FOR ! COPY COPY CLEAR V▖<>5▝~<'J▝ DRAW '6▘IN R![P]▝ ▝k▝ STOP CHR$ ![G][Q]NOT 3▖VAL &[T]▝ [H]▝" ▝<> RESTORE 2[U]PEEK $LN @▘ FORMAT ▖$CHR$ @▝ FORMAT FORMAT ▝[U][O]BIN FOR ~#foT TO ABS ▘*6 FOR ▝<7 BEEP ▘>ATN -▗SQR LINE ▞8▝<>7/XpJpJ▟ATN ~![S]PEEK N▝_>hSQR PAPER j,5Ys LIST REM ▘*AT ▝▝ ERASE &>I STEP RETURN [R]O RUN U©▝▞ STEP GO TO [M] MOVE TAN [L] [C]% CONTINUE vB▚CHR$ ATTR ▞NOT SQR ▞(/ VERIFY ▘INT ▞[M]9( DATA ▝ CLOSE #09e▝<>p©[E] ERASE RESTORE ▞NOT g:$IN ATN LINE LOAD ▞NOT NEXT ▞NOT <>IN !![H]▝$R▗ STEP NOT TAB ▝&[U]▘:(VAL <> STEP ASQR SCREEN$ * STEP hSGN ▞a}▘AT PEEK [Q]▘ LET DRAW 4ATN 0!▗~2&IN ()>▘(IN W▘[O][B]2)e▘[S] AND @-▘ DATA PEEK `-▝ LPRINT INVERSE ▝*# STOP ▗,IN ** STOP ▗,IN :, CIRCLE ▝FN ASN ▝,[N]ASN NOT 9[C] SQR PAPER CHR$ STEP 9[C]!&]▘,IN @B RESTORE ▝ BRIGHT 7VAL$ ▘ REM Y▞CHR$ REM NOT [A] STEP &▛ a▘▛`INKEY$,IN NOT CHR$ l▝ FOR i;*▘BESGN SQR M[J]<>:.!3▘.IN SAVE ▝▛[G][I]▘,IN PRINT ▝.[N]TAN TAN u?▗0IN *0VAL$ ▝2:Y▝4 *E▝6 ▝o▝8 ! SAVE ▘2: ,▝▗<IN :6[H]ASQR CHR$ LEN ▛▝20▗ LIST SQR CHR$ USR @▝2 SAVE ▟ LINE ▛NOT REM ▛ STEP OVER *<IN "FN k OPEN #▝▛::▝h@INKEY$SCREEN$ PEEK STEP NEXT [D]▝ FOR <-▝4 POKE ▝6 POKE 0▖ FOR :8▝:u ERASE U▛5▖▝▖ THEN ▝:TMF NEW *>IN " STOP GO TO ▝:!▘:IN xE ERASE g ACS <>*FN +USGN FOR { FOR FOR ▘[H]{ FOR FOR ▝COS { FOR ©. PAPER }; FOR ▝6▗ FOR ▗4IN ASN EXP ▗ATN CHR$ INVERSE P FOR ▘!g%6▘ READ ▜ ▘ RUN {USR ▝4'[B]▝6[B]wATTR FOR >E@ OR ▗▟NOT 0[R]CHR$ X▟t▝@▞[G]▗LEN ▖:@I▘8IN ▝_▗SQR ERASE X▟RND[R]▘6IN [G]▘q▟ LEN ▝▝ LOAD 5gEsASN Q5W[ COPY ▝SCREEN$ J▘!8 OUT ▜8IN NOT X▟!e|,▘<>▟ STEP COS ▝ PAPER MSGN I▗C RETURN }I▗ATN CHR$ GO TO ▟MBIN NOT ▙O▝}@}@▖ FLASH ▟<>>H2DIN J ERASE ▙>@ STEP ATTR [I]▝Z8#▗▙ATN *Zx▝-▞_:FIN SQR CHR$ G▙<>▝#) GO SUB [▙-[B]▘,▙ATN CHR$ `▝B▝[E]▝D[▝F`▘> FN ▝INKEY$▝H[C]▘INT :INT ' STEP ▘INT 0_▘ COPY ▝@%P BORDER / ERASE STEP ▙PC▗k RETURN O C▝k01P1@1▘![D]0N▝[D]pNP0rg▜_>SQR ERASE AFa▖ PAPER A> PRINT 2FIN _1▝}▘NOT iP▘ ERASE Z0) CLOSE #▗Z>>)+[▗,SQR PAPER i0▗ STEP AND <>s[K] ERASE <>: DATA + CLS ▘FIN FOR ▝HN&[M]▝ DATA I▝SCREEN$ "▘HIN !▝▝ +▝ VERIFY ;&LN NOT DRAW ▚ OR NOT m<>▜!9 VERIFY !n<>rnx▘[A]0▗1 STEP A[A]4▗ATN CHR$ [A]$;▜SQR ERASE [A]NOT 51I▘=[A]I▗ VERIFY PEEK STEP [P]0 POKE ▝=NOT REM N▘ PLOT PEEK ATN r MERGE ▝ LPRINT ▝ DATA rASN > CLOSE #▘[O][A],▝ CIRCLE [R]7MBIN ▝[O]-ASN BEEP ▚[O][A]NOT TAB [A]<>$<>▖ COPY SQR LINE AT [A] STEP LINE ▟%h7▝LEN [3[U]▝K▝J"ABS ▗*JIN ~ RUN ▝[A]?NOT ▘LN PEEK /CODE ▝SGN +{DD▚INT [A]<><>:VAL$ STOP xSQR ERASE [B]NOT o[C]! RETURN GO SUB KVAL$ PEEK d▝ ?▘ IN u[J]▗"IN :L_▘7[B]▗▝", INK ▘G[B]J<B▝N▚ IN SQR PAPER k[B]TAN "6▘NIN JNOT STEP [C]kATN ▘VAL$ PEEK |)CHR$ [B]|),)▝ ,)▝"L)[O]▘! DEF FN *:▘ATTR [B]"+0}▝ LPRINT .▘▝ 4▝Lb4"IN SQR ERASE MERGE ▝LATN ![U]PEEK ▗PIN :P;_▚ RUN [B]> COPY !P,:▝PB AND ▙▗PIN ▗ MOVE ▖> )▘! CIRCLE B▘VAL$ PEEK !<ATN s[B]2NIN oLVfSQR PAPER I[C] STOP <>>y- IN 9▝" CIRCLE ▘RIN m<=Z▗>!RATN ▗RIN :R7 BEEP ▗[C]!:-▗▝▝[C]AX*▘u.j STEP TAN [D]&▘IN STEP DRAW NOT u?[C]▚ ERASE PAPER [C]NOT J[C]O[P]CHR$ LET [C]!TAB ▗SQR ERASE LET ▘!z PAPER ▘ STEP [Q]o4▘[D]/FN ▚J[C]>2VAL [T]@ DEF FN FOR ▝T2VIN :VAL /PI▘VAL PEEK } PAPER Q[D]:T- INK ▝V&H▝2.F▗SQR PAPER [F]▝0.Us*s** MOVE ~b`▗SQR ERASE LEN p`FN ▝4INKEY$[U]vO LET ▘ CIRCLE [D]K,h▝ATN 6▘:X) NEW ▘XIN ▜_> NEW SQR CHR$ PAUSE [D] READ ▝SIN (▝9 RESTORE ▝SIN ?▟▗▝SIN LET CHR$ [E] BORDER ▘SIN PEEK PI<i▝ INPUT i▝X!y!zVAL$ p FLASH ▝XwJ> PRINT ▝(▝Z[G]f[E]<>>A[G]▘▝wu@+y[E]/▘ ERASE [E].▝SIN }▝[M]6▘[U][E]e7▖ NEW SQR PAPER SIN [E]<>>= MERGE ▖[S]PEEK PEEK TAB ( POKE ▗ LIST SQR ERASE INK STR$ ▝ZLPa^▘ PRINT [E]{▝<>SCREEN$ |$,$▝<>. OUT SQR CHR$ #[F]▗ CIRCLE #[F]NOT +[F]>2 DEF FN PEEK NOT PRINT :+8▘INT PEEK ,▝BIN y LIST PEEK STEP TSTR$ ▜a[F] STEP [G]:/ OPEN #▘a[F][O]▖[B]2[S]PEEK STEP TAN [F]$ LLIST Y▗▝[F] STEP 10 ▝▝0 ▝▝0 STEP 58▝LEN 2▘ATN LINE ▝[S]q▝@ SAVE ▝[F],0▘SQR ▚ STEP LINE [F]NOT _>HSQR CHR$ BIN [F]>J [A]<> STEP FLASH 0l|▚ PAPER [F]NOT IF [F]<>%[SIN ▘ REM [F]Z▘ CONTINUE PEEK @aCHR$ RANDOMIZE [F]?▝ IF ,?▝ IF FOR LIST PEEK NOT ▘▞u▝/Z▝_▗SQR PAPER 0[G] REM `%▘ DRAW PEEK !*SQR ERASE ]p-TAN -QV▘u[G]^%1▘u[G]R▘: SAVE OR ▝Y▗ SAVE PEEK !,.USR OUT ▗[N][G]!. STEP STEP OVER ▝<>[G] 3 LIST ▖ PAPER BRIGHT [G]!"INKEY$▘2^"▗▝2`8 CAT ▘ PRINT [G]./▗SQR ERASE PRINT OR ▝INKEY$;▝INKEY$-;2▝INKEY$3j▘[H] READ ▗INKEY$PEEK >)K▝>`▛▗([H]!D/X2▗ STEP ▖SGN - COPY ~▗bIN > FLASH ▝[B] ▚2dIN ! RETURN [R] TO FOR :d RESTORE ▘/4▝b FORMAT ~L^[G], REM GO SUB ▘[S]D5▜EXP ▗[F][H]>4[O]▝`*[O]▝^F▝<>^1▘ THEN [H]. SAVE ▝*▘> CLEAR ▝@>▜2AT PEEK NOT EXP [I]PEEK ^]▝ RUN `,▝ RUN p,p,@▝9 REM 0 OUT ▝AT .P▘AT PEEK [▝ STEP @%▗ DRAW SQR PAPER DP%▝ ERASE %▝[B]%▝8[T]▘[K][I](> FORMAT ▗ PAPER O[I]<>"ASN LIST SQR PAPER t[I]"IN [I]XPOINT PAPER ▗dSQR ERASE [J]P%▝ PAPER % }▝ POKE 0%0 PRINT ▝ LOAD [I]>[F]▝)3z.▝[A]1▜SQR CHR$ FORMAT [I]:USR 3SQR FORMAT [I] STEP ▟©C,▘CHR$ BORDER 0<▝ BORDER ▝PEEK PAUSE ▝AT PAUSE CLS [I] STEP /[J]NOT BRIGHT ©~[H]▝[U]u▖ FOR >[Q]5SQR ERASE .[J]#5f STEP FN ▜[H]D[J] STEP ▘▞ STEP b▝[Q]/ OR ▝[Q][G][J]NOT 1[J][H]$AT F^h▝ DRAW ▝.#jIN STEP [O]]/i▜ DRAW 4[T][D]c INPUT "lIN !7EXP FOR !tCODE STEP wSQR !▖EXP [G]▜ STEP m[N]*lIN ~ TO ▘nIN -`(H▝pAABS ▘2>=#▘rIN O2tIN a2vIN INK 2xIN I▖2zIN STEP :[K]:fPEEK CHR$ 6[K];;▛▘ GO SUB VAL x' 6`s▝<>|▘2hPy~2| ▗. MERGE ▝~ RESTORE [F]~2IN :IN 2▘IN :|IN 2▗IN :~IN 2▚▜_> CLS SQR ERASE [H][K]ACS 4~2▖ STR$ /▖▘IN NOT 9[L] STEP [C][L]2▘!>xY7(Y▝▗▝ ▝▚▗IN :[H] OPEN #[K]:<ATN ▝[U] LPRINT [K]:>ATN %▝▘ TO ▗[L]*p STOP ▝▘ LOAD ▝▚ POKE ▝▗ RETURN ▝▝Ps*C@[N]{▘:nf▖ATN CHR$ 6[L]<>NOT :[K] NEW ▖BATN :▖IN 2vATN TAB OPEN #▗ DRAW SQR CHR$ /pATN ATN CONTINUE RETURN SQR CHR$ q[L]pSTR$ IN !BV▝vV▘D[L]A0@a.▜nIN NOT VAL [K]:j ERASE ▜[M][L]NOT ATN [L]*hSQR p▘FN TAB 6TAB FN ▝ BORDER p POKE THEN 6>=▘USR p3▘ INPUT 6 LPRINT ▚4 GO TO "▙IN .j▝~ LOAD ▝| REM ▚ BRIGHT PEEK ~2<ATN +%▝> D[D]▘DEXP ▝▘0[M]@3▘*▙IN [N]▚[S]LEN <>! CLEAR TAB ▟ STEP THEN [M]!N NEXT Y*6ATN INK "SIN ▖"TAB pnSCREEN$ ▘/LEN "LEN ▝!ob▘DEXP BCHR$ ▗<>!Zt▝Pp ▘!p#p+`3<>! FORMAT @[A]▝<>x▝j3&▘[U]ASN &▜ STEP PEEK [J] STEP SAVE [O]<>/ BEEP STEP cINT DATA ▗~IN >SCREEN$ 0&▝VAL$ SL[L]▝]▘ LIST i5a8STR$ ▘!SQR STEP ATN [L]Cq %▘X▘▗<>:>=PEEK OUT :rIN :tIN !:vIN e▘xIN :zIN "k NEW ▝ SAVE [M]▘ASQR PRINT n REM ▗w CLEAR . REM IF [I]P▝SQR ▖▘ TO PEEK [J]▗!CHR$ COS FOR a▘~f# LLIST ▖"4ATN STEP IN COS -4ATN ![A]k)▛[U]VAL$ "8ATN !USR w"@ATN LINE ▚"BATN STEP b[U]P"▘USR ]K▘DVAL ""▘@X@">2/ATN [9▘$[O]@▝ ▝_▚[A]k0@ATN ▗:/ATN m[Q]pLN M[P]▝m[P]▝ -[P]▘USR w TO ▘Ap▘ LLIST }[C]R PAPER YVAL pEpE▗SGN [A]k SAVE ▝pE0E } BEEP R PAPER [O]0Ea0 RUN 10 RUN ▝` CONTINUE ▝ACOS ▗Xq{▗<>NOT INT COPY IF ▖TAB [Q]X[R] BRIGHT [R]▝y@▝[K]▝2▘ DEF FN [Q]PpP▝S8▝ LOAD Pp▘[R]tP▝p@pHpPp@pHp@@@ OR COPY ▚▙▙00[E]w©▚ COPY MERGE MERGE 0@00!▛KPTY 0▝▝ `@9▝$▝ `@{▗GG0@0@[M]▗jj0@▗▗_dP[M][P]0pp0NOT P]ruplPi LLIST DATA P `A DRAW COPY Y `A&[G][J]_ `pATTR LEN ▝t pABS !▞▙AT COPY LOAD <>NOT ▘▞<>>2/IN :[S]PEEK _: DRAW PEEK SQR PAPER 0[G]>2/IN :[S]PEEK _><SQR PAPER 0[G]>2/IN <>>2/IN :[S]PEEK DRAW PEEK !IN N▝SQR ERASE ][G]>2/IN :[S]PEEK _>@SQR ERASE ][G]>2/IN <>: GO TO
12304 CLOSE #USR 23872m^ INPUT [N][N] RETURN COPY SCREEN$ M" LINE 1015616 LINE P_P_
