| Является частью релиза: | Chase H.Q. |
| Размер файла: | 47360 |
| md5: | 33f963fcfcfd5689f5c4318d76360cab |
1 RANDOMIZE USR 0 * PROTECTION BY KSA SOFTWARE * NEXT 1@CODE OPEN # RETURN !@@ COPY u GO SUB VAL ![A]][R]~FN w# IF [A][U] OUT IN STR$ [O] INK [J]ATN [G]x$ZR TO DATA [H]IN P MOVE G BEEP O MERGE PAPER S CIRCLE c OVER 7 BRIGHT <"▟ M LINE '▜ CIRCLE IN PAPER PI▟SQR K
1330RNDPT#[G]CODE _> TO B DEF FN | LIST [E]}Yg]▗FN [M]u[Q] COPY s LLIST m READ o▘ta©P CONTINUE f REM ` GO TO b INPUT PLOT b*w99z6K[I][L][L][L][L]▘USR )CHR$ ABS BIN AND SQ7(Z[A] PLOT ?2B▚zZ SAVE [U]"O1PUAT 1 CONTINUE SGN LINE R▙ OR ▚ PAPER BIN POINT VAL$ RNDL RUN [ PLOT NOT INPUT c MOVE CLEAR [B]f INPUT ▛kVAL DATA PLOT [L][D]n OR m CIRCLE J[B]VAL E NEXT LOAD [Q]SGN IF ▛VAL SIN ^ MERGE }(INT a@ASN KP{`▙%▟8SCREEN$ qPATTR aloSCREEN$ STEP ,l NEXT GO SUB s FOR i![G]i▟[d MERGE GO SUB VAL !+lp[O]2<> GO SUB LN !?[M]@[M]~ 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 @[M][N] NEXT INK RESTORE CLEAR RESTORE SQR INK !▖[M]{[M]ATN ▙ INK INK zCOS REM NOT SQR < INK `i_ GO SUB R~ NEW CODE THEN #▘[H]▝5 PAPER [Q]` RANDOMIZE n(BIN n MERGE NEW PINOT STEP LINE 1CHR$ } BORDER !▜C PLOT q FOR va``C IF THEN STEP FSTR$ +5 DATA SQR )J[G] DIM SAVE cVAL E▝ PLOT [Q] MOVE d/j MOVE nEXP /!2SQR V BRIGHT ACS c FLASH % REM |s0 LIST G AND x!I PLOT ASN xSIN @ [P] LIST [E]a([U]STR$ CODE DEF FN * CLEAR +BIN COPY r PAUSE xSTR$ DRAW s[Q]Y THEN }▗^▖[N]K CLS BLEN ~[D]~[N]c; IF > PAUSE ▗ BORDER (M?(Nr BORDER r BORDER [E]G STR$ FbAo8 OUT '[K] CONTINUE 6><>`7 SAVE =▜ VERIFY 5▛W[F] REM GLEN FORMAT NEXT @kL SAVE N>[I][M]&<=© MERGE +[ LOAD LINE ^q[M][R]SCREEN$ eATN ▝ PAUSE LEN BORDER 8 RUN LLIST ▜ASTR$ {}@}DA( OVER VERIFY @ [Q]![R][R]9> CIRCLE , CAT LPRINT >=[J][T] THEN PRINT SAVE yEXP OVER AND wSQR USR TO 0<= DIM RUN LIST AT VERIFY >?*c BRIGHT $ INK F[T]NOT 30 PAPER 4"`3[T]Cc2g0 LLIST RETURN REM 3pgABS BRIGHT LPRINT RUN 7▜ FOR POKE FLASH RANDOMIZE SAVE 8{KPI3 CLS GSGN NEXT FORMAT [E] RETURN vc8 FORMAT [B][N][L] LET SGN k[G]v/ FORMAT ?STR$ <=SGN RUN COPY ?"3 RETURN R[E][U]C[B]a@ GO SUB 'y0,SCREEN$ [F]@[C]CODE LLIST XP;ICHR$ ▝[O]L>SQR <> 6)(xLN xwV8 BEEP PI▜▛{tvGINKEY$ABS LINE OPEN # STEP / RETURN INK LOAD LOAD LOAD DEF FN 2[H] RUN | RETURN DEF FN | RANDOMIZE r<> CAT GO TO vSTR$ <= GO TO DRAW STR$ STR$ STR$ <>NOT NOT GO TO TO TO v<= AND GO SUB || STEP NEW { NEXT GO SUB s FOR i![G]i▟[d MERGE GO SUB VAL ! RESTORE {?ATN GO TO <> GO SUB LN !TRND@[M]~ 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 <>▘ COPY COPY INVERSE [F] COPY COPY READ COPY [P] DRAW COPY LPRINT COPY COPY DRAW © COPY COPY COPY BORDER 6▗ COPY COPY SAVE <#▜ LPRINT CAT LPRINT DRAW #@▗? RANDOMIZE COPY USR /▛[A]@▘@▘▖o▞`d _ LIST x_▗? LIST COPY p_ COPY RETURN _▜ SAVE COPY COPY @4hSTR$ COPY ▘ P 0▝ LPRINT SQR [Q]▟ MERGE %kTAB 1U*v+ CLEAR ▝f▝3[R]U_ COPY @[A]© ERASE COPY $ LIST Gk DRAW ^ MERGE ▝ PRINT @©q CLOSE #▘ DRAW !▝▝[P]q▝?q COPY LPRINT ? OUT LPRINT *BIN qUSR DRAW USR @▘o▘0LINT LIST CLOSE #!▝ LPRINT q_▝!▝a▗H▜IN COPY COPY RUN LOAD !!▘© LIST SQR [M]V▙P CIRCLE <>%mACS 0[A]SCREEN$ |;W RETURN C 3SCREEN$ SCREEN$ IN ~[H]▖ COPY RANDOMIZE P CLEAR H CONTINUE RND RETURN ?@SCREEN$ <▘ COPY VERIFY ▝USR MOVE ▘? LIST ▝ SAVE THEN ASQR ▘ COPY COPY a>=▝<= FOR RUN LPRINT PAUSE }▖ COPY CAT RETURN RETURN 0▝▜!▝[P]▝NOT r▛UFN SCREEN$ RNDUAT U@▘To▘*POINT ▗UJSCREEN$ {▗? LIST J▗© LPRINT COPY ▜QP_ RETURN ©A▘▗[U]▖}IN COPY RUN RUN @":▘?2F[C]F( POKE CHR$ F[U] OUT 1 COPY PEEK _ATTR DRAW [R]z▘H"UU A[G] RUN COPY [U]© CLS [I] LIST C RETURN ^3P AND >=▝ LPRINT MOVE O LPRINT q▝B LPRINT A▝AuqSTR$ NEW ▝?C©[P] LPRINT ▝<=SQR [P] NEXT COPY [A]SCREEN$ X MERGE fATTR TjUSR ATTR AT o5YSCREEN$ _▘SCREEN$ STEP INT ▗? LET "J▘©USR q_▘ DRAW ▝ STOP ▗CHR$ [U]▜/ IF CLEAR ©w NEXT ▖3▝#[J]_[H]'RFN `▘TAN o0 RETURN |/ MERGE RETURN USR zPSCREEN$ 3[Q]SCREEN$ SCREEN$ o▝F'[D] DIM COPY DATA COPY CLEAR 0 DIM BRND RETURN >TAB NOT @[Q]<▘ COPY i▝ LET MOVE ▘© LIST PAUSE ▝ RETURN THEN SQR 3 THEN r!3urq▝USR FqqVLEN FOR ▘V5XojCOS U_▘U[K]? RANDOMIZE Xq!▝ SAVE ! STOP ▗ OR [U]R PRINT FOR OUT z FLASH H COPY CLEAR POKE 4INT FSCREEN$ LEN POKE ?USGN :▚@VAL U"TAB ▝U>▗T© RUN SGN ▛BIN LIST SCREEN$ POINT B CLEAR ^^[B]▗?Q▝ COPY qqg NEXT COPY FOR LOAD LPRINT RETURN ! INPUT RESTORE ▝[P] INK ▝qqr▘USR ▝q FOR ▗ SAVE jSTR$ 7$3A_E▚ RANDOMIZE J,▝ LET ▘ _▘ LIST [H]▝A▗b CAT ▗V FOR BEEP ©▜ COPY CONTINUE COPY CLS LPRINT ▝KB[A]BIN SCREEN$ A_SCREEN$ ~▖! IF SCREEN$ OVER ▝*s▝'v▘ COPY FOR ]▙ DIM W VERIFY ASN RETURN CODE tSCREEN$ [Q]<▝qrrqqqSTR$ ▝▝2▝5$D&%BIN ▝10 LIST ©!R_▝8!Ek▜ SAVE RETURN © LET AC▝ LLIST Q▘USR [H]▝[M]▗BLEN [U]▙▗ GO SUB [S][H]PEEK [`H COPY PIN CLEAR ▝ LPRINT B▘[Q]▜U@ IN © REM DRAW [Q]@ ` MERGE U_ !![F]5 OUT BEEP COPY INVERSE CLOSE #/ CLEAR SCREEN$ COPY NUPv LPRINT ▝ LIST v LPRINT v LPRINT b▝rr!&*q7%? SAVE #?▘ LIST v?▘ DRAW ?▝s▗ ERASE "k[N]▗AX CAT ▙ CLS BIN ASN SQR m COPY ( RETURN B! RESTORE B[B][R]IN [Q] COPY SAVE +SCREEN$ ▘SCREEN$ c▝!▝[C]+} DIM COPY LINE REM [P] COPY PRINT COPY CAT ") TO [A]*FN ▟8STR$ CLS [E] MERGE ? COPY LOAD © LOAD WDh_V@C▜-[B]IN BEEP {ABS XPpAPUE[J]4/FN TA< OUT @UZ[O][P]FN ▝E`[E]LN ( IF MERGE ©o RETURN BEEP * CLEAR LPRINT CODE IN 229INKEY$ DRAW *D COPY FN INVERSE /} NEXT © POKE |_ PRINT #SCREEN$ MOVE COPY LIST 6uJ▚▟ REM FN [U]SCREEN$ OUT ©[Q] PRINT UGRND BEEP ▝IN [A]66? RETURN COPY COPY FORMAT U▘FN LPRINT U@ STEP 30▛/[ POKE 3U COPY *[L]: OUT COPY ▘?FN !9▗] POKE H[B]*5@B▝ CIRCLE ** CONTINUE ]▘ LOAD RNDU/_▝+b▚C-(©▛©;VAL ` |▘SCREEN$ [S] DATA [L]*_ CLOSE #SCREEN$ +SCREEN$ IF o*EXP ATTR [P]_R SAVE [I]x CLOSE # REM PRINT COPY COPY SAVE FORMAT CLEAR W?_ [N] COPY PEEK < CLEAR PRINT © IF DRAW IN REM Q COPY [B] COPY DEF FN ▜} j▝?d▙? COPY MOVE U©©P IF ATTR CODE _▗ COPY C LIST < DRAW © IF FN DATA ▗ LIST :[Q] STEP t&ASN FOR RETURN W= COPY COPY CODE OUT RETURN ▗ COPY COPY FORMAT &2XPEEK © REM "▝!▝[I]R▖NOT TO MERGE COPY USR * NEW ▘ INPUT [H]J▝_▚@G▛PI COPY ATN RETURN RETURN [H]/;Q CLEAR ▘ FORMAT @▝U LPRINT [J]0? CONTINUE TQ MERGE CLEAR QU{ RUN [P][P]CODE NOT DRAW T▝▗SCREEN$ MERGE STR$ [A][H]VAL$ © CODE DRAW d'▙D COPY ]^ CLEAR PAUSE © DRAW COPY LET } POKE [T]© MERGE COPY G[O] ▘Uo[C]© CLOSE #© RETURN , REM SCREEN$ RETURN ?FN CLEAR OUT BEEP [P]▗IN ▜ LIST j! REM © RETURN COPY ▜T SAVE _ CLOSE # COPY AND T( RETURN CODE ▚[H]CODE COPY ▝+4:▗© COPY PAUSE "▝(>[D][Q]STR$ [S]VAL$ / IF [Q] OR COPY LOAD SAVE o"▝"▝DVAL [B]▝ THEN COPY CLEAR SGN +7PUSR @[Q]SCREEN$ [S]U ERASE [A]_ POKE SCREEN$ VAL ©VSCREEN$ ATTR CLEAR COPY ?_PTINKEY$<= CONTINUE @[S]©SGN ▝y FOR SAVE ' COPY CAT @ SAVE _ COPY BEEP ©POINT @~CODE SAVE d[T]▟~*~ LET SGN IF ?SCREEN$ IN U][S]IN READ COPY / CAT ABS 86* COPY © INPUT / COPY COPY PRINT U}? CLOSE # IF COPY CODE ?▞K LPRINT MERGE DRAW ▟IN COPY _ COPY U{ OUT RETURN [R] DRAW / REM ▝ POKE A▗ COPY [R]"USR ▘ DRAW ©▚<=[P] INPUT POKE C▝; PAUSE ▗ PRINT COPY LLIST <U(▟▝▗SCREEN$ [C]C]USR W COPY RUN DRAW MPUSR ▟"@ CONTINUE @u DRAW ~V?@X"RND/ CONTINUE MERGE `>PIUU CLS COPY COPY IN P@ THEN FORMAT @U(_|U NEW } PRINT BEEP INPUT ©X▘©[ CONTINUE SGN LLIST [C]]CODE t} MERGE }*[O] POKE ATTR © FOR [F]▗?NOT 5x COPY RETURN ATN ▙IN RETURN . RETURN SCREEN$ BEEP FN CLEAR © RETURN ASN ▗~▜ LIST LN LPRINT ▝▝+ FOR CLEAR RETURN CLOSE # COPY COPY CONTINUE s"▝▛BIN a▛ DRAW IN [O] MERGE ©@?]FN :+G8s COPY LET H#▝0B LPRINT [F]▝ RETURN *[Q] LOAD CAT COPY [*aCHR$ T# LPRINT [I]INT pSTR$ [Q]+ COPY AT +B[Q]|"@▞ POKE SCREEN$ [R]©C▛▝CODE $▚? RESTORE CLEAR [O]▘(PEEK SGN INT REM AND k[P] COPY COPY LOAD ! CONTINUE ET COPY (~RND0@[D]SCREEN$ U. STOP RETURN ▝ REM RANDOMIZE ?@ IF Gp▚T_BIN ZP BRIGHT IF COPY [Q]?©e COPY TM^[H]S DRAW @@ COPY USR CONTINUE ▜ LOAD PRINT RETURN ©[Q]▝ DATA ▝▝▛ CLEAR ©=*SCREEN$ [Q]*SCREEN$ < VERIFY = PAUSE ▗ RESTORE COPY STR$ "▜XB▘ LPRINT [E] CLEAR USR BORDER BEEP CLEAR 00_|[F]]p/ LIST PA5 OUT TVAL$ [P]A LPRINT ▝[P][D] REM MERGE K RUN LLIST U INVERSE LIST ©IN IN $PUSR *[P][P] COPY |~ NEW RETURN POKE [I]© OUT COPY ?@jSCREEN$ USCREEN$ LPRINT [G]M~▖ MERGE CLEAR >[Q] PRINT _PI COPY U@? BRIGHT COPY RETURN CLEAR _ FORMAT _EXP RETURN MERGE ASN ▚?/INKEY$ RETURN @[T]©INT % LPRINT ▘©▝x©FN USR ▗ DRAW RETURN [O] CAT ~ INPUT ▗k RETURN [R]2,+G▘STR$ C BEEP [B] COPY THEN DRAW [L]X(8PATTR STOP l[L]FN Y[Q]*EXP CODE *FN [H]_ABS RANDOMIZE T&▝8Y▝ RANDOMIZE ▖ATTR IF LPRINT ?_?1 ERASE ▜*FN [K]PEEK PLOT RETURN IF P COPY CODE REM ET2 COPY 6[T]▝/VAL$ ▚o"▖FN JIN _USR IF [B] COPY RETURN COPY IN LPRINT ?E}?W COPY O DRAW $@▝ LPRINT ▚ LOAD COPY RETURN ?USR LPRINT ▝ DATA RETURN ▜ DATA USR CLEAR }M+>= GO SUB q[J] BEEP PLOT ▜ DRAW IF SCREEN$ RETURN ATTR dh/ SAVE DRAW h▖T* RETURN IN CLS COPY PRINT ?n>=▝SCREEN$ 8 DATA p-W[S] THEN ▟@ COPY Aw GO TO COPY A COPY <=CODE V- LPRINT / PLOT ▟ RUN SQR ACS ▞[F][D]W@SGN FOR LLIST [H] COPY CLS USR [Q]/D LINE <>ATTR COPY SAVE READ ▟▚[T]w@[O]▝©6~5[Q]?Z▚[N]% LET / INVERSE ▗BIN ▗JVAL$ TO J▗SCREEN$ I CLEAR E COPY _U OUT REM DEF FN W POKE SAVE [S]▜(]_ PRINT LOAD p INPUT YVAL$ ▝ REM [B] LINE ▟@- COPY [S] COPY PLOT / COPY STOP COPY RUN BORDER IF q▛UITR@PEEK FOR [Q]SCREEN$ [U]SCREEN$ ) RETURN x READ ▘SCREEN$ W@▘ DRAW <= LPRINT ▝[F]▘ LLIST ▜ OUT ▗| IF LPRINT ▝ FOR q LPRINT T CODE CONTINUE LIST .h▝(RND▝FN "T THEN [▝ READ r`SGN CAT @_ COPY COPY THEN &O LPRINT / OVER ▖ COPY SQR v▞[F]r1▗? IF CLS 1▗BIN LINE EXP EACS rUSR 0`[F]" READ ,A FLASH ABS u CLEAR STEP <>▗_ FORMAT LPRINT "▖UUT FORMAT M DATA s` PLOT RETURN STEP ▟@_[F] SAVE COPY _ PRINT SAVE COPY CIRCLE OUT s▝ BORDER UU]▟ MERGE CIRCLE STR$ } CIRCLE OUT "▗SCREEN$ POINT DRAW / LIST [R]ACS C@▘T RANDOMIZE E@*C@▝NOT INVERSE ▗T IF ▘ LPRINT ▘ LOAD CLEAR qMYCODE CONTINUE LPRINT +Jg5<>r LLIST t` PLOT STEP LPRINT k LPRINT ?PEEK CLS LPRINT ?[Q]-t▘<=INT ▘S^s MERGE BORDER ~s PRINT BORDER ?$▘▗POINT [B]? LIST [T]ACS d INPUT [U] DEF FN @SCREEN$ SCREEN$ FN SCREEN$ [Q]LBIN BIN DIM (q CIRCLE SCREEN$ ur>=▝USR t▖ RETURN s[Q]<= READ LPRINT ru LPRINT ▗ LPRINT SQR RETURN LPRINT qQ LPRINT /[S] SAVE ^? STOP SAVE COPY ` [C] SAVE _ RANDOMIZE ATN ACS ▗SCREEN$ FN @UAUT▝U▝USR SCREEN$ JFN ▜uh VERIFY ▗TINT r<>▘CODE [Q]@ COPY E LPRINT sg LIST ~TAN ,rv% LPRINT SAVE { LPRINT r▗ READ IF ▚ LPRINT TO ▚@ COPY STR$ © DRAW ▝ RUN <>r▝ OUT & ▗JBIN VAL$ TO u`%`▚AT LINE DEF FN JLN q CIRCLE ▗SCREEN$ t}9 LINE U@tFN COPY ▟@ DRAW CAT SAVE DRAW COPY LOAD COS swv LPRINT r▗ READ [K] LPRINT LPRINT ▘ COPY LIST ▘IN <>" ▝▞ LPRINT ▘ LIST ' ▗*▗ REM FN w`* BRIGHT ▚SCREEN$ SCREEN$ JLN x LOAD VERIFY ▘BBSTR$ VERIFY ▗EGG OR @ EEU<=U▘MMBBGBIN ▝@@FFGBVFGFVN MERGE F▝GB▝STR$ G▘USR 0▚((EEhhUSR (▝>▘GG OR pp0 ▝o ▝▘GNOT ▗8hEG @▘(#PI?▘hG b@W▝HCb▗GFFUSR p▘Go ▘GHE_▝F_▝F@ph(E0@[J]▝E ▝ ▝F FOR ▝G0USR (@@▝ @h ▝Gp [Q]GGE@ ▝M DIM ▝F= ▝8NOT E▝`=▜EGF8HCOS >iP h` THEN USR 8BIN G ▝0@; !▝ASCREEN$ BIN EEp ` A0'B>NY THEN E` THEN y`%USR p p 0 LLIST ▘GGUSR q0COS THEN x0<=▖` ! BEEP OR (>= ▝h BORDER 2# THEN QE<>!@@ COPY u GO SUB CODE OPEN # RETURN GO SUB [ POKE /!@[M]!= CLEAR ©!USR > GO SUB yw> GO SUB yw> GO SUB y~ RETURN ( STEP v NEXT STEP ▘v<> CLEAR ©> GO SUB y!@[M]USR GO SUB VAL ![B][B]" COPY [A]!CHR$ u"[C][B]>NOT 2[B][B] GO SUB ^>[A] GO SUB G CLS v:vATN RANDOMIZE NEXT GO SUB V>? GO SUB G CLEAR ©> GO SUB y!@[M]@ GO SUB VAL CLEAR ©> GO SUB y2 COPY COPY <> RESTORE MERGE OR PRINT CLEAR ©.& GO SUB a GO SUB [vzCOS CLS GO SUB i GO SUB [v GO SUB Sv GO SUB [vzCOS CLS GO SUB a GO SUB [v!"v LET STR$ MOVE LLIST CLS <>^ NEXT STEP cv> PRINT STEP *v LET RETURN POKE !@TAN X GO SUB VAL CLS <>!?[M] COPY ?# PRINT { RETURN LET <> LET COPY RESTORE MERGE PRINT INKEY$ FOR ACS FOR OR RETURN STR$ xLEN ( LET ### STOP LET MOVE LLIST STEP > OPEN # RETURN !@@ COPY 6 GO SUB VAL !XX6 COPY GO SUB VAL <>STR$ ! RESTORE !/= RESTORE OR CLS 0v CLEAR <> STEP OPEN # NEXT GO SUB s![G]i▟[d MERGE GO SUB VAL ! OPEN # COPY COPY i<> GO SUB LN ! DIM [G]0u~ 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 10u NEXT NOT 0u NEXT ![E]u[ GO SUB VAL NOT [ COPY FORMAT ▚ NEXT 1/`[[S]! LIST COPY ^> CLEAR © GO SUB y{▝wCODE GO SUB y~s!}eSQR !▞[^#V# MERGE <><> ▘ INVERSE LLIST ▜ RESTORE STEP USR LLIST BRIGHT ▟ CIRCLE OPEN # RETURN < CLS > GO SUB G~## JPOINT OR RESTORE /!USR LIST GO SUB VAL LLIST ACS ~#foCODE OPEN # RETURN DIM 1[/ LIST u[ CONTINUE 1[X[USR LIST ▚ LPRINT LIST X[p ▝p =0@X[`fJ[C] FLASH [ DIM ! CONTINUE RESTORE ! NEXT RESTORE CODE NOT /= VERIFY @l▝p| |▝`/▝`f▚u[ CONTINUE REM [K]© LPRINT © LIST 8p/vL1[F]2n: LPRINT RETURN LIST RETURN SAVE p8p8▜rq,8 TO 3<▜4▙8Np8p8ppp▝q8▝pl3AT 5<1pp0pIN x SAVE "YCHASE H.Q. MONITORING SYSTE STEP `c SAVE READ YTUN OR `[S] SAVE bZVOLUM OR Xw LIST BEEP YSIGNA[I] TO BRIGHT LLIST LIST % LIST !!$" SAVE # SAVE & INVERSE LIST A▘ SAVE LLIST IN STOP SAVE A# SAVE ^& FORMAT LLIST LIST [H]' LIST ATN ' SAVE I OUT *+,-./ LIST i OUT 5 INVERSE 6789 OUT : SAVE k VERIFY B00100C LIST ▛ OVER K SAVE ▛K LIST ATTR IN LIST THEN K STOP SAVE i BEEP @ INVERSE @ MERGE @ SAVE v BEEP E INVERSE E MERGE E SAVE jA SAVE uD LLIST SAVE LINE INVERSE ; OVER <=> INVERSE ? LIST REM FGHIJ SAVE REM INVERSE 2 LIST ▗ OUT ( INVERSE ) SAVE ▜▗ OVER 3 MERGE 4 LIST BIN ▝BIN ▝ CIRCLE ▝ CIRCLE ▝ FLASH $▝ FLASH $[B]U?©?©?©T RETURN DRAW RETURN DRAW RETURN DRAW 0▘?©NOT COPY ▝SCREEN$ 000.▘ RETURN DRAW STR$ SAVE LPRINT <=[B]#7/ FOR IN { COPY CLEAR BIN COPY ▘ DRAW DRAW 08▘Ppp▚ COPY COPY ?? COPY U/ PRINT ▘ COPY US IF 0p[A]7/?[P]<= LPRINT SAVE CLEAR COPY CLEAR CLS COPY FOR OR DRAW ▞© COPY MERGE REM MERGE LOAD BEEP LOAD COPY 90[D]0▖ RETURN COPY WATTR W FOR RUN FOR OR ?ATTR CLEAR RETURN CLEAR FN ▗@USR 0TXCHR$ CIRCLE ©IN ©IN ?PX▝ BEEP T[B] COPY PRINT LINE USR [Q]USR USR COPY _ATTR RUN TPX▖▝ RETURN <*p©▘TFN !"4▝ RETURN T>=[U] LIST ?USR USR ? SAVE }|WVAL$ V@@ READ POINT USR ! LIST [Q] SAVE © LPRINT LIST USR 7 SAVE USR + BRIGHT USR lUSR USR USR ▜ LLIST VAL ` ,▝;,▖!hUSR LPRINT [E] LPRINT LPRINT SAVE [Q]| COPY ATTR /[T]▝STR$ *STR$ >▝n▝D▝BNOT NOT <NOT $NOT ( COPY COPY LPRINT / @▘`)[U]▗@▘[U]!FA%a[F][U][S]R▞sB8R[C]$T[E] @▝!@<▝@8▘0@▝@FN ▘[U]▚)INKEY$!▝ASN RNDSHRSRUINKEY$TSI▖!USR ? COPY LPRINT {9▗[C] [J]▝IHRND▖▖dH FORMAT NOT 4▖UPCHR$ = 0▝B0▝0@06▝<▝▘<▝[Q]6[D][U] MERGE VAL [Q]V OPEN #o© LPRINT /IN [A]ASN P PRINT OUT SAVE RETURN LIST LIST LIST U COPY ][S]©?USR ▘PS[A]CTAN CODE P RUN COPY SAVE DRAW LIST 0% LIST 9 POKE :E COPY ©" RETURN [J]LEN $▝NOT ([M]USR 5ACS p CAT INPUT 1▜ INPUT [R]▗ OVER LLIST RUN BRIGHT 1PEEK SGN ▝ INPUT ▚ AND DRAW IF OUT IN PRINT $ REM / PRINT @_z[Q]AT([A]P LIST © LIST P LLIST DEF FN LIST LIST @[K] SAVE ? SAVE DRAW :z:u POKE RND:z CLS _{1 COPY COPY CLS 8© CLEAR RANDOMIZE 0 CLS CLEAR ( RUN CLEAR 0 COPY GO SUB ` RUN GO SUB PB LOAD GO SUB a! RUN GO SUB ACS ▗xp00USR p0pr USR 0▘(0C[P]▝ RANDOMIZE VERIFY ATTR ▝ BEEP CODE ▝ IF OPEN #[B]U CLEAR COPY CLOSE # COPY COPY FN © COPY USR * COPY COPY [U]W▖ COPY COPY d]© COPY PRINT GO SUB ▚ PAUSE LLIST © RETURN |*IN ^© COPY DRAW ` CLEAR 8(? DRAW SAVE 8= CLEAR |x RETURN IN 9 COPY COPY }IN CLEAR RANDOMIZE OUT COPY READ y[P] SAVE LET CODE DRAW LET [P] COPY RESTORE DIM COPY SCREEN$ ▝ DRAW STR$ ▜[O] SAVE EXP ▜ SAVE IN ▟ CLEAR ^IN ASN COPY RETURN [P]BIN COPY CLEAR ▗© RANDOMIZE TAN © STOP TO :▘SIN COPY h8xh OR 8▝h▝x▘▝CODE VAL ▝IN OR COPY ▛ PLOT _ COPY COPY TO ] COPY COPY POKE S©▞ COPY DRAW o COPY TAN "o COPY IN COPY BRIGHT RUN COPY ?NOT COPY COPY O<= COPY C▜ COPY <= LOAD RETURN ABS NOT OUT COPY `C INPUT [E]`PI INPUT USR BORDER " NEW NEXT READ RUN ▜ CLEAR COPY W REM DIM IN VAL$ RNDu[P] OUT LEN DIM IN GO TO RETURN IN OVER )ABS RUN QPEEK PAPER >1[N] POKE Q▙ IF LEN ABS }Um LINE PEEK INT READ ▖© COPY RND[I]IN COPY #[I]W COPY % CIRCLE FOR ATTR ▝8h▝8hu[O](~"~SGN ~,,AAVVFN 33HH]]SGN ~( ,,AAV,p0V[C] 33HH]Bp ]X[D] %%::OOddpP▛dd%©%©)©)-©-5©59©9#▗=©G*?©I1C©MQ©[?S©]FW©a©e©y▗i©}[E]q©©▝~ NEW CHR$ [S]dDNOT <▝V[U]▜H▜H LIST FORMAT FORMAT [Q][Q] LIST LIST LIST LET LET <=8<=(<=( CAT 0 CAT 0 LET NEXT RETURN ©#[A] BORDER 0INT ▘ RUN COPY PRINT ASN TO [Q]Nz[S]NOT VERIFY [Q]NOT y[M]:!:[R]PEEK >=w2 [S] AND VAL 2VAL$ ▝ STEP STR$ ABS STEP MERGE ▖> SAVE STEP RANDOMIZE ▟ STEP ▖ INVERSE ![M][R]_▘0 POKE ~#PEEK GO TO )▗INT ▝<PEEK BRIGHT $ STEP EXP 0<=Q0<!SQR ▝:[I] RESTORE STEP VERIFY [Q] NEW ( RANDOMIZE ▗ RANDOMIZE >S▖ LLIST !▝w▜= !i▝)IN OR RESTORE >+ STEP l▙ SAVE STEP ▟ STEP >SGN LLIST STR$ :1[S]PI>=zCOS CLS OUT INVERSE !/ LIST NEXT GO SUB s5▝1PIa CLEAR !:/ CLEAR 6 COPY INVERSE RESTORE !4▝4~ATTR AND 022▝ STEP CONTINUE LLIST STEP RANDOMIZE GO SUB {5▝<>! LET F#" DIM <>40/ RESTORE NOT z▖ INVERSE 9▝0z BORDER O NEW PLOT OPEN # RETURN 7<>pPEEK [T]YREWIND TAPE TO START OF SIDE SIN hK LIST ▛ BRIGHT " OR h▞ LIST ZSEARCH RUN ▟FOR LEN h STEP LIST ▟ZFOUELEN pJ LIST OP THO2IN `▛ LIST ZPRESS GEA ERASE DRAW DATA ▝ CONTINUE ▝A[J] GO TO ▝ COPY RANDOMIZE ▝ COPY GIDDY UP BOY[R]HOLD ON MA DEF FN *J[S] THEN }/EXP THEN ? THEN ? PLOT o&:S[S]PI THEN =:;[S]PI(&}2D▘|2I▘ GO SUB D AND 2Q▘:0[S] RETURN FORMAT >< NEW 2;▘USR RETURN >0[E] INPUT <>!+] STEP BRIGHT ▜CODE 2▘![A]"J[S]! SAVE [D]USR STEP *!INKEY$▘> LIST 2w▘8~ READ ▝ IF FLASH ▚ > INPUT 0▘ TO ▘ FLASH STEP ~▙1 CLS ▖NOT h▘, LIST L[▜ MOVE G SAVE PIY0 CONTINUE BORDER ▝RK▛PLA INK ▚ LIST OGRAMNOT ▜JOBBEE OR ▗INKEY$ LIST FZ▗PHIC 0[A]BIL TO ( AND LIST ▚ZMUSIC@▝J▚DUN DEF FN T[K]▗ LIST Z(C) 1989 OCEAN SOFTWARW[T] LIST CP▝8 PAPER INKEY$ CORPORATIO DEF FN @]▛ALL RIGHTS [P]▚ERVEBIN RUN ▚NOT VNOT 4▘▝ EXP X▘! LOAD } THEN CLS q, POKE STEP LINE CODE 2<[R]!w# DRAW <w<2=[R] STEP ▗:9[R]PI!USR BIN SCREEN$ ▝ TO STEP LIST RETURN STEP 6 RESTORE ▞ LLIST 6<> STEP ! AND [B]!;[R]~= >w▜▜ PLOT 2k[S]@▙> COPY 2▖[R]! INVERSE ▝ TO E[J] STEP ▞ BEEP [O] STEP CAT [L] STEP v▖ STEP CLS ABS STEP W STEP cVAL STEP NEXT PI STEP STEP : STEP STEP HLN ▘ POKE EXP ▘RBIN ▙yRND STEP LLIST USR STEP [K]ATTR STEP 3ATTR STEP UPOINT '▗[Q]TAB STEP ~ AND SCREEN$ STEP [J][T]9▘_?▛COS STEP CHR$ [M] STEP b[N] STEP .[N]N▗e[J] STEP BORDER "Z[T]>SGN STEP iSQR :PI(3> RUN FLASH RETURN / NEW (* STEP PAUSE ▖ STEP SQR PAPER ▗ ERASE 04NOT ▗06▞!=[R]~ RETURN (4Q[T]CHR$ D▗!k[S] THEN >0~6 STEP <=NOT D▗:j[S]PI LINE D▗=CHR$ <▜>2j[S]$[U][K]*l[S] RESTORE GO SUB R LLIST >0 PRINT GO SUB R>8>O@▘[G]7▘ OVER 8 LLIST y2 MERGE [Q]11 CLEAR IF ` RUN POKE INPUT POKE * INPUT _NOT COS 1n▘> SAVE wju▞CODE 2 FOR =*] STEP d▘Z▚ CLS DATA STEP ▚5#5 CONTINUE :=[G]PI>= RETURN 05Y▗ CIRCLE STEP OPEN #[J]CHR$ ▜> CLOSE # RANDOMIZE ▟ THEN #X▘ OR <> LPRINT ▘>=VAL RETURN 28=T▙*]^##FLN 0G# IF [J]{ INK ! STEP POKE NOT [M][E] STEP [G]PI> PAUSE ▚ VERIFY 0 AND RETURN 1▖▚!Z STEP F▚@▝9pN[F]1▚!WZPI(G6`, CLS / AND >=G6P[P]<>! CIRCLE w~PI LINE CONTINUE ▚# RETURN FORMAT 8 RETURN LPRINT 8 RETURN LIST 0 VERIFY LPRINT 2<>▚ BORDER VERIFY FORMAT USR IN 2NOT ▚ INVERSE W^# CIRCLE RETURN 0G~# RESTORE VERIFY OR O THEN !PIxSTR$ FOR OR MERGE RESTORE w$ IF STR$ x NEW Wy NEW ▘_y NEW LPRINT ▟▜Y0_>PI(=RND=(| NEW | VERIFY g} AND o`i, MOVE STR$ ABS FOR LLIST NOT ]▚![I]w>6S▝<> OUT READ P▚, GO SUB [Q] GO SUB [Q]P[B] GO SUB [Q]4POINT STOP VAL$ STOP COS STOP POINT STOP POINT STOP [T] STOP COPY tL RANDOMIZE TAB FLASH d!▜!▘ IF READ ▛!(▜▖[R] GO SUB VAL a"[B][R]#![S]!*[J]IN ! POKE USR RETURN BIN MERGE "rr PAUSE DIM READ 1 STOP [D]aSTR$ PI( OR :^STR$ RETURN 0PEEK :▞[R] RETURN w▖[T][R]2ATN [R]2 THEN [R] AND Y▚:▖[R]8[Q]▘ [K]'# RETURN >BIN SIN g▜ RESTORE ! INPUT "@[S]Tu COPY [G]▞CODE !>[R]m[R]/[S]▚bkw CAT ATTR LLIST PEEK >=!K READ 6,w,w!▘w#w#w![U]82YUSR 2d@ CLOSE #pS S[A] OR !?[S] STEP PEEK STR$ PLOT CODE 2T[S]($/! X STEP `▖!;XACS ▜} AND o PAUSE [I]NOT b[N] TO SCREEN$ ! MERGE [Q] RETURN 6<>:o[R]INKEY$w NEW LPRINT >=88+!N[S]~PIUSR :p[R]PI>=6<![J]> RETURN NOT STR$ [H]▝USR OVER ▜ STEP )▙2o[R]<[J]▝<> DATA O▘@ (O▝©8V[B]© RANDOMIZE <>!YY COPY u GO SUB VAL <>~▖HH COPY ▘:8 MERGE ▛EXP CIRCLE x27[S]y28[S]<> NEW ▟ :<[S]!=[S]ACS BIN >▘BIN INT ▗PEEK :7u▗_CODE -,▖W!8▞V#^#4▙ DIM d INK ▞`▞▝[K]xxx6>=>=6!|▞ THEN ~Q[A]PI OPEN # RETURN THEN LIST #CHR$ e▞<> COPY NEW ▝ IF ▝ LOAD RETURN PEEK 6y RETURN <> COPY ▘ SAVE xUSR LLIST pPEEK NEXT [O]pUSR IABS ▘[O] COPY ,/ LLIST LN CLS COPY ?8 LIST CODE F OPEN # RETURN Z CLEAR SAVE INPUT # LET <>E1%ABS ▙ GO SUB #'▗▗USR KFN >[C]G7 INK B RETURN DEF FN [D] NEW STOP <> CLEAR S>[B]@ ▝A ▖% DIM e RESTORE <>#[A]PI>== LINE ▟▛=(%=(X=(iUSR ▚USR =( LLIST 8▘[E]▗>20aNOT RANDOMIZE ▟:*[S] RETURN 0# AND 2*[S]j▜ RESTORE &n[C]8 FOR "l[S]:?[S] AND CIRCLE 2?[S]<>>4▜<2IN NOT )▙ PLOT USR >G▖*]>NOT ▙ INVERSE BIN [D]▝ o@▘>g▘&0 CIRCLE W▗o:0 THEN THEN ▚e. "oP[N]:~[R]2OSTR$ P▙> G AND 0CODE IF y NEW (GP@r▛!FN @>[A] THEN 8> #pP[Q] OPEN #+ THEN RETURN !XNOT ~▙:▟[R](8 CLS Oy2▟[R]vwvw6w▗ NEW &[C]0!s[R]5 CODE W_ GO SUB SJ[S]2▝▞#'O[S]NOT 5<[D]!^ RETURN 0/ AND G GO SUB R DRAW FOR RUN ▞ RESTORE GO SUB R8 THEN [J]2 STEP 8 THEN MOVE LLIST v>=V>=▚*[F][R] RESTORE F GO SUB ▜ LLIST (8 RUN ▖ FOR GO SUB S[F][R]<>>!▖▞/[S]>23[S]>USR [G]! VERIFY ACS [A] INVERSE % LIST EYCL[R]▗BONUIt0,00VAL ▖e LIST OR YTIMEp X 5▖2RND LIST EZSF▝E STEP [Q]# LIST CYSO@H▚GET VE BRIGHT ▘L OR CAT $& LIST FYOK! PU|▛OVER CREEP[R]▖+ LIST KYGA©▝ ERASE U▝:c [C]▘U FORMAT ▝Jt▘ONeUE[Q]p▞THIS MISS BRIGHT ▛h SAVE CONTINUE YPUSH:▖▗BUTT ▚▘BESIN BORDER DATA ▝R PRINT ▙ACHES VAL AT LIST LZ IF ▞1VAL PLOT SAVE PLOT Z[J]DIT INVERSE , RESTORE ▜= LINE [B]▙= LINE B2 STOP [G][R]▟ 21[S]*SQR ▟"SQR ▟& COPY INK COPY [B]~ INK _T. RETURN STEP CIRCLE ▟. RETURN | VERIFY gb INK # CONTINUE <>COS w-P REM --CHR$ PAPER ▟<>PIe▙ GO TO PAUSE ▙ GO TO GO SUB CLEN ▟ NEXT ▞oo&~u BORDER V GO SUB SSQR ▟^[B]1[S]<>!Y>T]STR$ #= PAUSE ▖▛>=2J▙USR ~▟:F▙<2F▙#~PI(BIN ▗ LLIST +~C▘ OR lU#N#F# STEP [J][P]STR$ <>a▘1[S]3▗#"C▙Q[H]F▙<>* LIST /▖ COPY RNDH STEP ATN ▙! LET }[H] COPY TAN ▜=}[M] COPY EXP ▟▛ OR RESTORE +[Q]{ GO SUB FN GO SUB FN [E]_ STOP READ ▙z NEW CHR$ ABS ▙z AND W{ VERIFY _ ERASE VERIFY WNOT ABS ▙ LLIST NOT DEF FN [K]:.![S] RUN :3 LPRINT [R]O STEP O▜▝/ AND ?GNOT G6▝|%[S]CHR$ (|g} VERIFY o ERASE ▘[D]g0▝=`▗[D]gE▜CHR$ <>6 COPY 4▝/`4FN [D]g DIM <>!( GO SUB " READ POINT ! DIM " FORMAT VAL$ ! READ 6 READ ~▝w▝, PLOT CLEAR ! READ PRINT [P] CLEAR +:@[S] AND so& INPUT INVERSE !VAL REM INVERSE RESTORE RESTORE OR :"[S]PIBIN CAT VAL$ STEP OVER POINT ? COPY STR$ LLIST INVERSE LLIST ~PI F INVERSE # INVERSE #}▝o▝f VERIFY !o CLEAR + STEP :[U]7▝'$! OUT LLIST x=(! DATA LLIST 0m▞ THEN 8 OR INK STR$ Y INPUT NOT INVERSE ACS _ INVERSE ~PI COS i▝{USR ▜[D]_![A] RESTORE * SAVE /[S]& LPRINT r▖NOT SIN _ RETURN ( /▝p//▝K/▝ RETURN p/0/▝ABS $▘ MERGE OR ] TO l[B]COS F▘IN ▖ NEW LPRINT o THEN THEN [F] [I]o& NEW CLEAR ~ CLEAR [G]5O~o THEN ?[B]2 PAUSE [A]x= RETURN PG▜▘▚Nx▜ AND ▘AT ▙ IF BIN [A]USR INVERSE ~ AND [B]8 VERIFY N8LEN ▞ THEN ?W INVERSE + INVERSE + MOVE SAVE $▖▝8( RETURN RUN 0@ [J]_J{[B]▜/ AND =2[B] CLEAR ~5 VERIFY SAVE PRINT <F[A]0G LLIST [H] LET o NEW AND LIST g} NEW p▜▝o<>M RETURN 0ppp p*04i|%▞▗[B]| AND ▖@[D][B]NOT [B]![D][C]! DRAW [C]" DEF FN [B]"D[C]qq▜~2 BRIGHT [B] FOR x RETURN W=[E]▝J▝[B]y GO SUB D2>[D]F>=#= RESTORE INVERSE RESTORE OR FOR [L][B]▗~#nTAB FN STR$ F++ OR G STEP [D][C]STR$ yO INVERSE LLIST LLIST NOT [U][B]>(;(4('((X▚(-▜* DIM $ THEN ?G THEN 8 THEN 8[A] ▝ ▝▞[B](0>G OR :▘<[B]!6x2[E]~++2[E]STR$ [D]v▝CODE NOT FORMAT [B]!y LLIST ▜ STOP [C]x RETURN FORMAT RESTORE q NEXT q NEXT ▛~O THEN 9 THEN 9[B] GO SUB D<>CODE ERASE @ DIM STEP ▘= POKE ▘F CAT NEW [O][A] CIRCLE RETURN CIRCLE THEN THEN [D]8 RETURN 0a^2[G][D]{=AT ▚NOT ERASE [C]^ NEW DRAW [O]G VERIFY ! CIRCLE >=W GO SUB DOz#V THEN : LINE 3[D]<[D]pipipi THEN x( CIRCLE >= RETURN RUN FORMAT ^/ AND SQR 8{@M▞O{[B]O:[G][D]/©▟0 THEN ! THEN ##2BIN ▘ Y▝▘X[L]V[C]8CODE ▘#7 THEN z [C]NOT b[D]▘W LINE G[D] IF G[D]{▛ PRINT ~=[C] ERASE ▟[D] LET :STR$ [D]▟>[D]V[C] LIST CIRCLE ▚:[E][C] CIRCLE >=U▖VAL <# OR MERGE Wg0#-[J]▚"[E]K LET DEF FN =CHR$ POINT [D]B INK STR$ LET W"COS ▝zCOS ▘o RETURN [D] LINE FORMAT [D]= PAPER LOAD ATN NOT y[E] PAPER ATN LINE [G] PAPER lATN NOT B[F] PAPER 6[E] THEN ? PAPER [E] INVERSE !>=[E]/ AND VERIFY ▝▝^▖ INVERSE LEN [E] GO SUB C[E] INK >[A](8 CIRCLE ▗ INK STEP LEN [E]% FORMAT ▙NOT [E]G INK NOT LEN [E]< INVERSE ![F]p99▟[F] OR INVERSE !)ATN / AND O@N GO SUB KO▖m[E]:[E]2p[E] ERASE ▜2`[E] INK LINE [A]8(ATN 0Z▝_Z▗NOT ATN ▖ OR RESTORE bjx=USR ▚0) RANDOMIZE ▞STR$ STR$ { GO SUB D_ INK ▘ PAPER PAUSE pEXP Pk[L]sIN [E] INK INK 1<> RANDOMIZE INK } INVERSE DIM MOVE s,r, `▞o|%[Q]CHR$ SQR [E]|▝5<=▗[B]gNOT SQR p ERASE pR▘[F]pRpRpR0/ P▘[F]PPP▚[F]_c▞COS [F] GO SUB sk[F] INVERSE !uA.Ah▘ LOAD pAT AT ▞ INVERSE DIM STR$ Yw-X`p@▝PEEK FORMAT ▘g[F]dGG▚g[F]< GO SUB s CLOSE #i▝ OVER pipiqpipipr0{@e▝ FORMAT peAT ▟ FORMAT [F]{- DIM ![G]~ VERIFY ▟w#USR 4▖▚# THEN )[D]NANCY AT CHASE H.QVAL$ P[O]SPECIAL INVESTIGATION AIRBORNE'$yIN 0▝ C TU▘BIN R DATA ▞ UP AHEADUSR .)<>▗VAL$ LEFp`▘WEg▛D LOUD AND *|▝!03▞ROGER[R]GOT[R]▝,@CODE ▜BABY[R]WHACS ▝Aj▚YOU DOQ▗MAN[R][H]▝BM▗GUYS ▝G VAL$ ▝OCOS ▖R WAYVAL$ IF 6▝KW ME▘N'K▘OU|LIK DRAW HA CLOSE #W▝R*'@E▞O RUN OUTp ERASE ET'BIN MOVG▗▘OHSCREEN$ O[R]PC▗SE[R]GD▜T[R]OUCH[R]@.O. MR. DRI▘YACHR$ OW[R]Br▚DOWNVAL$ MB▝,[Q]_E *[I]VAL$ OH GO SUB ▗VAL$ WHOCHR$ A[R]HARD'J CONTINUE ▘NK!▚PICKED IF WROp▖JOBVAL$ BETTR▗HECK!CLA▘FI*▗ADSVAL$ pgRY BEATTR ▝AG▘OD▘Y[R]o▝' LPRINT ▝A9DIO[L]@>=▗, BR!b[R]SE1[F]▘LAk▛VAL$ Z[G]▝[G]ASN [G] RETURN BIN [I] ▝[O][B] DRAW BIN [I]>=[I] TO [I] THEN [G] COPY CONTINUE [G] COPY INPUT [C][H][H] COPY DRAW INVERSE [I] GO SUB [I] LLIST [I] OPEN #[H] COPY INVERSE ▖ DIM [I] RESTORE [I] POKE [I][T]▝▜Y?[G]=[H]a.▖[J][J][J][M].▝VAL 2▝ LINE A[J]"[J][J][I] COPY SCREEN$ E▝ LIST T▙1[J]7[J];[J][I]7[I] COPY Wy[I][L]ASN [H] COPY G:=[G]PI([G]:>[G]LN FORMAT x2>[G]"0[G]CODE 23[G]<2=[G]<>[B]=(t=(!= ~CHR$ /[K][M] STEP [I][K] >SCREEN$ 2▘[J]> COPY PAPER LET [K]NOT GO TO [K]:<[G]PICHR$ U[K]:3P▘=@[A]G(*.[G]+V THEN INT :2[G]= THEN @'▝2'▙0[K]*0[G]~ RETURN COPY () INK u▘xNOT PI[L]ahNOT U /▚# RETURN DRAW RESTORE OVER LLIST RETURN U8## RETURN SCREEN$ 8Fj[K] READ PI RESTORE * PAUSE /(G!5{TAN CLEAR 6@ STEP ATTR [K] LLIST COS CAT ▛ GO SUB S.[G]CODE PRINT PI TO PI[L] LET [D][C]▟ PRINT RESTORE STEP LET [K] LLIST THEN ~#(> GO TO LET <22[G]".[G]<>=▝ LINE GO TO [J]> COPY 8% STEP GO TO [K]NSIN !4[G]~[A]w#▚w PRINT MOVE z NEW { AND _8z VERIFY WCHR$ p[K]>G!6XI▞▗ PLOT <> LET ▚ MERGE MERGE GO SUB [Q] GO SUB [Q]▗ MOVE STOP DEF FN [K] :▝ GO SUB :▝ BORDER :▗ LLIST MOVE zUSR ▜ NEW AND XW LPRINT { AND _0 LET INPUT 2IN x2d[L]y2a[L] RETURN COPY IN >_▜▜ AND USR [L] GO SUB DG▜▜2g[L]> COPY ▜ CLEAR 2▞[L]zE RETURN . RETURN ,( RETURN !( RETURN ( RETURN '( RETURN :0 VERIFY /▝Oy AND A VERIFY A▜I[[A]! SAVE OUT FOR >G RETURN b▝Pp0▛>INKEY$VAL w,q-$|▚} AND o8 OPEN #▞=CHR$ _[L]<>!STR$ E~T]VAL LLIST p(`(VAL$ [L]<> READ [G]1[S] RETURN >=!~[R]:)[S]=(*=(K=(g=>==▜<2)[S]>[D]ATTR [F]<>+USR 6#~ VERIFY 'w RETURN USR ! DRAW [I]NOT E[J]VAL ▘CODE "▝= TO OVER !▟ DEF FN ▚*J[S]|ASN USR POINT 9▗NOT <=[S][B]USR !=[R]~PI LINE POINT ▖5 AND VAL 2▟>V▙!"[M]<>! MERGE [Q] THEN f('F▚!2[S]w#wL!▘R[S][R]>`2~[R]!4>M▘!c&-}0 STEP PAUSE ▖}PI <2jtSIN Y▟} THEN ?|▟ RETURN >1.<=o> } AND VAL <>[R]▗} THEN + REM ▗ AND ' RESTORE [C]AG!W[N][M] THEN RETURN x STEP SAVE [M]{▝{▝z▝z▘STR$ [F] NEW THEN 8 LET w<>"[M][N]x!▚'w#{▙▝z▘><>:+[P]G!<[R]~ AND ' RETURN VAL$ [B]w INK _CODE W STEP VERIFY [M] INK FOR CODE 2+[S]<>CHR$ [F][Q]H<>L CAT STAGE [Q]:#[S]PI :,[A]a[N]2#[S]▚D![[N] STEP [T][P]:,p▖!hAT]M|E$ PAUSE LLIST %▚>:-2-[S] THEN ?O(F!h"[H]q, DRAW !t[R]:S[S]PEEK (w▙D!Y[N]PI( COPY `[B].[S]O:5[S][R](+! X STEP POKE [N]!;▞@~POINT w,PFN } AND o BORDER <>:p[R]PI(dO:N[S]PI! LIST v(>< RETURN CODE 2"[O](8G"E[O] GO SUB sy[O]> LLIST 1 LIST v ▚▟& RETURN ow, ▝--▘p[O]m▖ BRIGHT AND AND INT ▖2A INK GO SUB [J[S]q>RJ[C]' COPY COPY CODE GO SUB B0 CLS PI CONTINUE CODE d<▞= PRINT { PRINT z STEP G[P] LET /A INK S▘[R]▙▟[P]V[S]:▞[R]o:[J][R]g<▚ GO SUB B>0P=▙ ERASE DIM [O]= AND PI▖ RUN [O]ASN [B]B▜V[S]!▗[R]B▝&Q▞!|[R]OSTR$ NEW PEEK INK INK +y▝ DATA <>w▚▘ FOR ▘ LOAD INK IN STR$ [B]O!b OUT MERGE z GO SUB [Q]Pp▚W{ AND _p p(p4[I] MOVE INK <> OR INK LLIST O INK >~ NEW © RESTORE STEP TAN [P]lIN USR PAUSE VERIFY INK , INK <> VERIFY ( VERIFY ([B]OyG▝ THEN O!z[S][P]O LINE TAB [Q] LINE [Q](?(0( MERGE ~# SAVE ▝▛▘P▜Q MERGE ~/0 RUN C0 RANDOMIZE g MERGE CODE : GO SUB [Q]@p0*▘CODE OUT RESTORE ~LEN w▝ LLIST AND FCGPp▘0/*PI1▝z AND W BORDER MOVE <>%" #: TO [Q]PI( FLASH NEW PRINT ! STEP [Q] STEP [R]▖ LPRINT MOVE SIN _0FN NEW RETURN { NEW DRAW _ NEW RETURN { NEW NEXT 2 MERGE [Q]<>~# STEP [R]? THEN 0 PLOT {<>O NEW <GCOS [O] THEN 9>[B]O> RETURN CLEAR FLASH RETURN DRAW <>d COPY T AND COPY ▘`0IN Yd-▙G,7INKEY$< COPY COPY COPY COPY COPY <F▞0xx000USR ▗USR `USR 0▘`USR 0▝`0!▘0<CHR$ f<8STR$ <<f,▘0~f<~`|*▝~" 8;1▘f>2F▝~I #|<fUSR `▘f<.▜~``x``~0▝`▝n4v1▝<CHR$ ▘<>USR Plxpxl=@~ AND INPUT RETURN VERIFY USR AND fv~1mFN b Fffnl6p▝l▞▘`<CODE ▝~NOT NOT fP CIRCLE B▗ VERIFY RETURN INPUT AND READ P FOR ▘ BIN ▛`~!H CIRCLE INK :e$[N]:f[S]PI LINE PLOT [U]=>=* RETURN REM |PI RESTORE @ GO SUB B LLIST 8 RESTORE <8/<,CODE 2=[S]* DRAW &▜> RESTORE PEEK (0 RESTORE ▙ 0<2<[S]2>[S]PI@[S] AND @o& INPUT ~ THEN w()8& THEN _:m[S](O>y NEW NOT LN [U]! MOVE $▛ INK PI OR [S]▟STR$ y2 BRIGHT COS INK "[G]COS GO SUB S[U]COS uD`o& INPUT M▞~0,ACS (#OUSR ▜▝[B]ACS * IF /N#^#~P[K]▝ RESTORE [B] GO SUB R8CODE 0 DIM p4▘ACS >=`3▘]P3▝ RETURN 3 CIRCLE GO SUB R FORMAT > PRINT [F] LET !&COS 45USR 62oCOS <2▙COS >2COS ATTR ▚ RESTORE THEN <} THEN [Q] THEN ? AND .ABS 8o"WCOS o& MOVE RESTORE GO SUB R LLIST 8 FOR "/COS <>* RETURN CONTINUE G▝j!G▝1?▜<* DRAW GO SUB !;▝Q2▝12▘<-▝CODE p PAUSE COS :I BEEP ▗* DRAW / INK ▘PFN ▙ FORMAT GO SUB R CIRCLE >CODE NOT VAL [U]*] PLOT 0 RUN BIN ▘>[D]!O READ CODE ▚w, CLS GO SUB sINKEY$1 FOR ;▗ AND @_ CLEAR RANDOMIZE LINE PIRND IF [O](EG INK _ CLEAR ~▜/o{ NEW & CONTINUE F-N OR & GO TO AND BORDER g[O] THEN THEN { LINE OPEN #RND8 GO TO >>8=▗gN,F OR INK CLEAR #NOT ">▘INKEY$E▖/ AND (G& FOR 0L▙%V-^ MERGE $^,V MERGE CLEAR # GO TO AND [A]<>!4[S]~< NEW w#~ INPUT w>=# <> COPY ? RUN ▝([A]▗FN COPY :hFN .[S]PI TO TO TAN INVERSE ~PI( PAUSE PI INVERSE 4USR CLEAR RESTORE INVERSE N CLEAR ![M][R] CLEAR THEN 8 CLEAR PEEK [R] CLEAR LLIST # CLEAR ~ ERASE dINKEY$ CLEAR ~[B] ERASE ~INKEY$ AND VERIFY 0 STOP CLEAR ~ INVERSE PEEK CHR$ [F] LLIST I>PI b INVERSE ~ RETURN 0[>= ATTR [K] NEW O:]▝2[M]INKEY$*l[S][U] GO SUB R8FFL▝ ▙ INVERSE ~EXP (LN INVERSE N RESTORE [I]PI PAUSE RESTORE INKEY$yPI RETURN 8[U] STEP [M]FN -LN 0 AND ▚EXP (8 VERIFY B▞! NEW PIo INVERSE ~PEEK LOAD 8 VERIFY 8PEEK 0~ AND ▛8~ INVERSE wy2[A]INKEY$CODE ▖! NEW VAL$ 2JPI %-/ NEW O:SIN JPI>=2?PI(0/ AND ▚ VERIFY 0 AND ![A] INVERSE u INVERSE t DRAW RETURN PRINT 8▝~[B]>>=(> NEW STEP LN [U]*/COS (EXP [A] LET ! LIST TAN RESTORE 0 RETURN ( RESTORE V▜▘W:▘▘zS▘▘_CODE ▟[K]?PI! VERIFY [I] STEP E[J]NOT PAUSE ▖P[E] CIRCLE BRIGHT SCREEN$ IF <ZSCREEN$ $▖O:%[S]LEN USR :T DEF FN ▖ GO SUB D AND 2FN CIRCLE hACS OPEN #▖:]( AND ▝▗ INVERSE 1 LINE ▝ INVERSE LINE ▝0 AND CHR$ [J]7FN THEN INVERSE GO SUB <> THEN QUSR INVERSE RESTORE MOVE !#INKEY$ GO SUB VAL VAL$ ▞EXP 8y INVERSE wiK▗O0.>(▜ ▝ CIRCLE ▝ p▞(>EXP 6▜]~# INVERSE w1▘<>[H]▘B▝[I][L]PI>=_ NEW STR$ RETURN STR$ >= RETURN A>={ NEW ▘▜0USR >=, RETURN ▘ BRIGHT ▛PI( INVERSE 6 COPY Q FOR ▚LN 0 INVERSE p▘ INVERSE q BORDER ▜ INVERSE PEEK (& THEN INPUT ▝O! LOAD ▟ THEN 0 VERIFY PEEK 0~ INVERSE q GO TO ▗PEEK 8 GO TO READ ▝>=S▗:& GO TO ▛ INVERSE w2<[R]>[G] RETURN CODE [T]![J]>n▝n▘:H'!^( GO SUB l▜PI> PAUSE lPOINT <[C]▘a▞©POINT 2SGN USR 2 OUT POINT <> LOAD [C]>= CLEAR & READ CLEAR .a!( GO SUB ~PI# USR #▜ CLEAR + POKE yPIUSR p)~# INK 9▘& CONTINUE ATN ▛& GO TO ~,foPI MERGE GO SUB R FOR >K>|O LLIST RESTORE INK MOVE s#r#NOT [G]POINT `W▘##[A]##" READ POINT <> GO SUB []=( GO SUB [▞CODE 2>[D]gx= RETURN FORMAT ▗ THEN ?o<>[O][F]o^ THEN THEN THEN PIyUSR RETURN ERASE [D]NOT [K][C] FORMAT [G]x RETURN USR CLEAR ~O CLEAR [G]Nbj_:?[S] NEW LPRINT `▚2▟SCREEN$ >PI2wSCREEN$ :4[S] NEW *](*]^#V# AND CLEAR RESTORE RESTORE OR STEP [E]SCREEN$ STR$ LLIST CLEAR LLIST FOR CODE CLEAR RESTORE > CLEAR LLIST <>FN ▘ GO SUB D[E]▘ATN [B]PI PAUSE INKEY$SCREEN$ % FOR F THEN THEN THEN zPI{▙▝STR$ @▙▝▙▝▙▘:$[I]> RETURN a( OR ▗2 TO SCREEN$ OACS ▞ NEW 2 CIRCLE SCREEN$ > L▛ LPRINT SCREEN$ AND 2 DIM SCREEN$ ▝2[SCREEN$ C▘T]b▙ GO SUB S RUN SCREEN$ GO SUB [[F]SCREEN$ RESTORE pR LLIST (> PRINT IF ATTR 5O RESTORE [C] IF *ATTR LET PAUSE /ATTR LET IF /ATTR FOR "[F]SCREEN$ <> m▙=(= :[G]SCREEN$ PI>=CODE W_ LINE [H]D!>= COPY >4=!POINT [I](=USR !COS [I] GO SUB [l[S]d▖ CONTINUE COPY GO SUB S[F]SCREEN$ CODE [A]▝<▙▘>[K]!p>TAB [H]>"ATTR 8SCREEN$ > STEP 2[U] GO SUB SRND2$[S]<>#[O]▗/ AND O[O]▝[Q]3>= RETURN [D]2=(4 BRIGHT =(/,,r▝{INKEY$:! STEP PLOT ATTR VPF▝TAN ▚<> INK !▖[R][U] THEN 0 RANDOMIZE LLIST <> RESTORE INVERSE LLIST T]6 GO SUB VAL INK !<AT INVERSE t INVERSE u* PLOT / GO SUB ▘# PAUSE ▝▚ INVERSE p INVERSE qZ COPY <>#>=[I] PAUSE QAT BK!TAB z THEN NEW THEN ▜_A▝A[A] THEN ! THEN x RETURN 8^ INVERSE q0▝([E]▝ PRINT ▝>▛▛=>=! FLASH AT INVERSE N7[E] INVERSE 4 INVERSE f] THEN : THEN THEN ; THEN ;▘ GO SUB R4:~ INPUT INVERSE w INVERSE 5USR CODE W▗ INVERSE ww<>(27972("$""?▘USR INVERSE 1▘$ NEXT ▚+ INK !KTAB RESTORE SAVE ▘< ▝ DRAW [N] FORMAT STEP QTAB zPI>=▞>= INVERSE n INVERSE f DIM INK ▝ THEN ▝!▚n INVERSE f|.▘< CAT ▛EXP FORMAT =*[J] PI PAUSE TAB PI LIST } NEW SAVE RETURN [A] FORMAT INVERSE ▚ RETURN p CIRCLE INVERSE Q[A]h8 RETURN x8 INVERSE s<>x▝[S]"p[F]R▗ INK BRIGHT PEEK TAB m▗ NEXT <> INVERSE NY INVERSE [G] RUN ▗09▘▝O AT ▝ LET 0< RETURN 8=PIy▗▖w<>y RETURN 8PEEK ▘<> !SGN ▙ NEW LPRINT / INVERSE PEEK 0 INVERSE F(▜ THEN FORMAT !+[S]4&▚CODE AND N CLEAR oASN GO SUB ▝# GO SUB stq▜ INVERSE w GO SUB D▝t[J]$[J]▗ GO SUB SqVAL$ 4[M]Ht[O]▘O GO SUB ▜ INVERSE u INVERSE tA[N] INVERSE V INVERSE ^!"[S]~4! DIM PI(GzPEEK ,8 {PEEK 8USR ,▚ LIST r,s,d▞s,r MERGE x▜▜g▛ AND _ VERIFY oT GO SUB LN FOR ~▖r-s- MOVE s-rA▗xPEEK USR d THEN ▗2 DRAW CODE _[H]▞[D]_,,~ INVERSE o▛g, RESTORE OR MERGE INVERSE f INVERSE nT READ ▚ INVERSE ~ INVERSE [G]M▘2STR$ [B]<(7 INVERSE ~PI INVERSE ~ IF /CODE CHR$ ;CODE DRAW [F]8CODE NOT 2CODE 0 STEP [K][C]NOT ;CODE STEP [D] MOVE STR$ CODE .PEEK ▛5 LLIST >=~LN LINE DIM VAL$ " FORMAT VAL$ ▗2*VAL :2-VAL IF l@=▝u=▝o=▝ TO =▝x=[F]:>[D]2$VAL :2[S] RETURN 0: DRAW CODE RETURN ERASE [O]CODE OUT ! GO TO STEP F#N! CIRCLE LLIST STEP ▖8* VERIFY %▝>=▗! DEF FN ▜_! POKE STEP :6Y▘b▜#fo MOVE MERGE STEP Q▗PI LINE ;CODE [O](!& DEF FN STEP LET CODE ! ▝EXP [H]~= PAUSE SAVE CODE >w_#>OW RETURN FORMAT _[C]W THEN !n[C]G#N{COS /!VAL$ LLIST V>![K]▖> IF =VAL USR ▝ CIRCLE f[A]▝8 RANDOMIZE PAPER [K][C]<>Q[D] RETURN DRAW RANDOMIZE PLOT NEXT CLOSE #[A](-=2dVAL >2O[S]?ATN x▚[S]: MERGE [Q] NEW LIST w[S]~2VAL ASN #:ATTR ASN ▚#"zVAL 2ATTR ASN !N[S]~PI(5 :p[R]2p[R]#▘5/▝O[F](y NEW Oy PRINT THEN g!S[S]:R[S](ASN bd▞ VERIFY 82R[S]~▘x3▘0(▟!n[R]5 6d>! SAVE ▗ LLIST T]:(#x=(n▜bk8} THEN STR$ ▗ NEW PLOT COPY NOT [K]LEN [H]PI 9 VERIFY NEW ▗▙ ERASE ZLEN }/O|/Gy THEN 8▟ NEW ? PLOT O@} THEN <▝@B▗, BRIGHT ATN ▗bk0 BSTR$ {BP4▘ PLOT RESTORE [A]ATN SCREEN$ hNOT >LEN LET PRINT L▖0 GO TO COPY 3 PLOT COPY bkPI GO SUB J PAUSE ATN LEN PAUSE ▘:L READ [A]0&:VAL ASN PI( O|ASN (y VERIFY w▞ PAUSE MERGE LEN T]Ji LIST tL[S]|v▟! COPY "J[S] LLIST :c[S]G:ddVAL PICHR$ SSIN THEN 8▞"y VERIFY 0CODE Ox [T]G"x AND $LN 0Gy[A]O0 AND Ox[B]G0 BEEP ▘J[S]%-n▗o THEN =,▝ OR USR [I]X:/[S]ATN LINE [K]SIN PAUSE eSIN GO SUB D!'LN O:a[S]O([B]PI($N[B]8▝ RUN x PLOT ▙!b[S]▚wx▜ THEN 0{▖2a[S]*_[S] GO SUB ▗ GO SUB S_[S]! PAUSE ATTR FOR TSTR$ x2c[S]y2d[S][A] PAUSE SQR SIN _ THEN +ATN (# PAUSE <=SIN GO SUB D RETURN >8 THEN |( THEN z ▛ THEN z( THEN | q[C]M[S] GO SUB Kl[S]"l[S]{ATN PAUSE IF SIN 3[D]0 RETURN 0x2P[S]z2Q[S]▘>=CODE /▝<> CHR$ ▝hE▝ RESTORE [K]wT}_ GO SUB R(>0CODE 2&COS VaL[E]vCODE TAB ABS ▘h▞((▝l _▘=S DATA [E]H|PI IF VAL COS }[D]8 CIRCLE |INT 8 :M[S]!O[S]ACS BIN l(=(><>aQ[S] STEP IASN x'O▝ AND O:P[S]w:Q INK )[C]▖GO INK y STEP [O]ACS ▜ STEP WTAN = $U▗G▜G5 STEP ▙ASN :([S]▝CODE c STEP |ACS LINE G!M[K]▘ |G#~#ACS p▝>][B]USR CODE x PRINT STEP HACS > LET NOT HACS :/)$▚ INK G>$CHR$ [O]ACS ▝[P] AND %NOT [O]ACS 2yTAN y RETURN 0<O RETURN xy2wTAN RETURN CODE 2/ < SGN ▝G LPRINT ▛[A] AND ▝ PRINT STEP [J]ACS LET O:&▜0yNOT [J]v2([S],wTAN <5▗2.[S]<][F]!`"}[R]! X STEP POKE [N]!SIN STEP ~▙NOT ASN : LET TAN ▗O!3 DEF FN f[G]"/ASN >2JASN :3[S]< RETURN ERASE : RETURN PRINT ▘&[J]@ LET 23ATN ▗PI(M▘[J]▘*[A] RETURN 8y22[S]+ THEN [U] RETURN ASN [J]▝ OR INPUT ▘ RESTORE S▘ r▝VAL$ ▟DV#^!SCREEN$ DEF FN INK GO TO ▙ INK STEP INVERSE ACS LLIST STR$ MOVE <>PI ▚O OR !▙ CAT 0[E]`xSTR$ >u VERIFY Wy AND RETURN PAPER DEF FN ▜▜▝%[H] MERGE :*[S]▚ GO SUB D▘_ NEW AND LIST W{ NEW p▜ AND _#F[O]▚ RESTORE MERGE fo> RETURN ▘ INK LLIST ! CLEAR [E] STEP [M][E]- STEP B[F] LLIST MOVE #h▖[A]t▘` ▗z MERGE [G]W0Rfo OR INK STR$ ▟▙YPI O INK STEP VERIFY ACS LLIST # MOVE <>!PSTR$ [K] CAT X▘USR N BORDER "1▘STR$ /[A]O INK { INK z AND ©_wZg&USR ▘▗[O]LN 8(▝▝O▝▘ INK !POINT ▘SIN CAT W~#_N!' FORMAT # /▗y INK _ INK 7 RETURN ▝W▚ THEN ?( VERIFY ▘*[S]{ NEW SAVE USR ▗_zz!▝[I]_ MERGE Y THEN # INK LLIST { THEN 8 PAPER pATN INVERSE !)ATN / AND @USR INVERSE INK STR$ ▞s ATN INK 1) RANDOMIZE INK M INVERSE DIM MOVE ~[T]SIN w,0ppp *[M]i|%[Q]CHR$ ATN } VERIFY o8ATN | AND gNOT ATN _ FOR GO SUB s[C]t▝[M] t! DATA ▗ INVERSE & LOAD s▗_pr▟ INK { INVERSE DIM STR$ iINKEY$hACS Pppp p(@8[E]z NEW CHR$ ▛ATN VERIFY _8RNDz AND WNOT ▟ATN INK p PAUSE p PAUSE ▞ OR RESTORE bjx= NEXT >JQ[E]STR$ STR$ { GO SUB D_NOT $ATN COPY ©U?3*$~▝USR 00▝>= PLOT ▗PI(5': OVER ▘][S]"▘(LN ( OPEN #▛^[S]5 py PAUSE yLN CONTINUE <=▚ PAUSE ▘LN AND RETURN D▙wCODE G_:X[S]ATN >= PAUSE [I]LN f3▝[INKEY$2▝>=v1▝x0▗ THEN &.▛*q[R]O"q[R]![H▗<>:Z[S]uK▘ PAUSE STOP h▚[A]( THEN + GO SUB DP+SPOINT "& INPUT oCODE 2[[S]2Z[S]~ THEN / PAUSE EXP <2X[S]--~OATN ( PAUSE !EXP GO SUB D RETURN FOR ▝x[P]▘!Y[D]▟ PAUSE pEXP THEN y 9 GO SUB D VERIFY 83G▗VAL PI , CLEAR THEN {,/ AND Wx[C]8( RESTORE )TAB WVAL DRAW ▗!EVAL PAPER ▘ LLIST q▝ ERASE }▞:e[S]PI~(:iTAN :I▝_(* PAUSE [R]EXP THEN GO SUB DW▜▜2]LEN ▝^ABS ▝7r!]▝AY▚~2^[S]:b NEXT V▝ OPEN #COS [A]8(G▜▜ THEN 80 RANDOMIZE STEP GO SUB C_[S]CODE V▘2b@_ INPUT LLIST .[R]EXP LINE QINT , PLOT STEP VERIFY THEN GO SUB sNINT 10 GO TO >0!6INT @INT EINT w2)INT INK GO SUB [ CONTINUE LLIST GO SUB R THEN , THEN DM"▛ REM PY THEN ( THEN " FOR INVERSE ▖ DIM << INK CHR$ INT .[I]}2f[S]& READ >`2e[S][G]/ AND i PRINT *g[S] NEW v BORDER =(A CIRCLE ▘i[S]PI> IF ▞INT CHR$ ▖INT { RETURN >8=2I[S]< RESTORE !&[S]PEEK !A[J](>_2[F][R]:OCODE _ STEP VERIFY [M]! FORMAT [I]>VAL$ ▖(O:m[R]▝O▖O"g▘m[R]▝_9ACS ▜ VERIFY _ COPY RESTORE X=( FLASH ▝ MOVE RANDOMIZE ▘ RESTORE STEP DEF FN THEN ' RANDOMIZE ▝ LLIST ▝STR$ p RETURN [G]8SQR @SQR w2/SQR 2DSQR 2GSQR 2OSQR 2WSQR 1▝@▝ DIM ▗ GO SUB * FOR @P▝ GO TO ABS PI LINE MINT & GO TO o RANDOMIZE NOT INT :h CAT ▙[G]- DRAW MERGE ! INK STOP "v[S]! MERGE STOP "t[S]! BORDER STOP "r4 BRIGHT PLOT `▖>@+ MERGE '-3-▝ NEXT p-p--AT "mPEEK GO SUB SIN PEEK GO SUB CIN INK GO SUB C STEP IN GO SUB S▗IN "FUSR ! INVERSE STOP "n[S]! STOP STOP "p[S]! ERASE STOP "x[S] MOVE Oo& INPUT r, DRAW AND @o s▝oX0[E]CODE O2B[S]2C[S]2D[S]2E[S]2F[S]2G[S]LN [T] VERIFY ▗<2[R]m[R] GO SUB Cg[S]<>!H INK ! LIST GO SUB sPEEK ABS RANDOMIZE LET MOVE STR$ INK LET MOVE STR$ INVERSE LLIST CLEAR LLIST RANDOMIZE CLEAR RESTORE INVERSE g▖ PRINT $ INK OR MERGE PRINT $pppp8p8p8pTpTT THEN TCHR$ ISGN SAVE INK ▘ LLIST RANDOMIZE p{p{pp[D]p0pATTR p<=pH@o[E]>=SGN THEN / & LIST }[E]o ERASE ZABS REM EABS INK ©▜NOT ISGN INK !P ▗} VERIFY o▘: o[P]]!L READ ~,^w{ATN ((▜▜_[P]W*▚[R]hh( GO SUB K POKE / RANDOMIZE TO OR ▖ "▚[R]:.▝$VAL$ {!bY ` ▝x[O]▘ STEP STOP K[U]HH COPY 6 COPY GO SUB VAL !YY6(h POKE /w_0rr# IF /=[S]2<[S]2T[S]!?[E][L]J[S]{ THEN 0 PRINT RESTORE STEP PEEK LLIST LET ▚w> ERASE INK USR #~<w AND _+▗:<[S]ACS -▚} AND o:=[H]=[S]} VERIFY `o:B[S] VERIFY 08 GO SUB [n[S]ATN ) FOR ▚PI(=(▗ GO SUB C[F]SQR [K]▖"CHR$ SQR ! AND STOP DRAW ▘ATTR FOR GO SUB Sn:f NEW THEN _( NEW GO SUB D▜w ]▝C@R▝ppRpR GO SUB C[I]0R▗ OR SQR ! TO pR0R▝pR▝CR▘ VERIFY 0K▝G$▗G GO SUB [rp[N]p[N] GO SUB C[L]0[N]▗>=SQR ! MOVE p[N][N]▝= LOAD ▗ GO SUB SrEXP RUN w NEW CLS 2-IN 1▜ NEW (y NEW NEXT ▝q!▘[R]^▘q▜>NOT /USR :EA▝t▝PIqQ▝▙1▗SQR SQR !STR$ q1▝t▝E1▝vpIq` GO SUB C[B]1`▗PEEK SQR !USR q`1`▝v`▝D`I▝F0▗g GO SUB [x [C]▝Y1POINT ▗L=(D[A]▝=n[M]# RETURN 8 RETURN 8 VERIFY 2$[S] VERIFY 2%[S] VERIFY 2'[S]R&[S] FOR <=2YUSR 1 INK ▝▛1 INK ▗LN SQR !LN q INK 1 INK x[S]=2▘6▛[R] STEP ERASE LN INVERSE !▖[R] INK INVERSE THEN 8y!+[S][L]w; INVERSE ~<( INVERSE 5CHR$ rUSR INVERSE 60 OUT BRIGHT INVERSE ~c[H] INVERSE w8 FORMAT INVERSE ~PI LINE INVERSE 6 INVERSE 6 COPY USR ▚= INVERSE wATN [G][N] LINE BEEP USR !s GO SUB w GO SUB &++ GO SUB FN GO SUB FN REM LINE USR #p>!TTAB :aSTR$ PI:[A]>= ZPI CODE 2;[S]go2▘"2PI"FN <>>▚! NEXT REM F-NUSR -▜ INK ! LET REM V-^▝ MERGE ▖ FOR GO SUB BSTR$ 8 FOR INK 0 PY= OUT / AND 2^STR$ qaSTR$ INPUT 2EXP CHR$ ![STR$ > STEP p[[ACS CLEAR } RETURN USR > INPUT =( COPY Z GO SUB SCHR$ GO SUB s DATA CHR$ CLEAR ~N VERIFY ▜/oATN LINE ▙STR$ PAUSE [M]STR$ .:-~,*COS S[H]<W& CONTINUE ~ATN ( IF SGN STR$ NOT ▖STR$ -~ AND 8 CIRCLE * ERASE [K]G THEN ?/ AND _> [A]. THEN 8-=Oz2"CHR$ {27^▘5G▘gx▖0=o>[A]w▖ NEW LPRINT _ THEN THEN [D] ▙ CLEAR NEW _ CLEAR ~[A]G_ CLEAR }L▙ INK G INK [A]W▘ PAUSE CHR$ _ VERIFY ▝+<▞B INPUT INPUT RANDOMIZE } RETURN STEP MERGE [B]o RANDOMIZE pP▗▝o|%o▘[CHR$ * PAUSE ▝ PAUSE [H] THEN ZIN INK THEN 8x THEN 8 THEN 8[A]GPI IF READ CHR$ PAUSE {0a[A]G{x INK G} NEW -|%[R]CHR$ PIpL L▝ FLASH B▗/ AND ▘G([D]= #p:p:▝ LLIST p▚g OVER BIN RND ERASE ;BIN INVERSE ~o NEW LINE ;BIN CLEAR + THEN m( THEN }& GO TO % THEN e LINE ~NOT RETURN ERASE W> CLEAR N CODE CLEAR N2FNOT &[B] PAPER 9BIN LINE 9BIN O▜G>` CLEAR [G]SGN ▝ RANDOMIZE %[A]o%[M]USR ▖ NEW AND "RNOT FOR RANDOMIZE ▘R FOR CLS ▘NOT INPUT GCHR$ 9BIN b CLEAR [G]p>p>> ' ERASE LINE pt0t▝PEEK ptptt▝% u▗$" OR NOT px▗o&ps▘ jprpVAL p<[G]$~-ngPI GO SUB R} IF BIN PI PAUSE BIN >©PI IF ▘▝3[M]IN n(! COPY 9 RANDOMIZE oAy THEN }(} GO SUB DoxABS >8ABS >825BIN xEXP 8[B] MERGE RUN CLEAR #!4 OR NOT M OR 2EBIN CODE ▝8ABS [A]8 RANDOMIZE [F] MERGE PRINT BORDER GO SUB s[U]>=CODE 2H[S]▛2[A]>=>2 INK AND CLEAR !;xAT AND @ INVERSE o INVERSE & INPUT G NEW 2COS AND THEN THEN ! FORMAT |U8!0D2 CLOSE # AND |2x AND }2R AND <2[J] AND c"COS BIN . COPY x2ABS AND PEEK [H] NEW LINE 4 OR INK INVERSE n AND BORDER 2C AND 2TAN OR g THEN % THEN } EXP FN AND AND 2▛ AND y2TAB OR NOT BORDER CHR$ 85e THEN ]( CLEAR }ACS ▘ RETURN ▗<%PEEK ▝|INKEY$▝ FOR 03▘> COPY 4[D]y INK GNOT Q OR THEN uCHR$ READ >=} NEW > < CAT 0 NEXT INK > CONTINUE 0|▘ AND gm▘> DRAW ▝QAT INK xPICHR$ [I] OR INK !_ OR "VAL$ AND INK ▗▞(% GO SUB Sm OR COPY INK OUT ▚{ AND ob RANDOMIZE FOR MNOT . AND {[K] PAPER PI OR -[L]▘PI OR ▝eB▝[R]pB▙( MERGE GO SUB S IF OR } INK o SAVE ▙PI LINE BIN OR > IF OPEN # OR >NOT OPEN # OR 6▝[R]LN PAPER OPEN # OR =_/2- AND & GO TO &▝ DIM !▚ PAUSE LIST OR CODE NOT LIST % $▞2 AND /2 AND `▟gom▘ RETURN TO RESTORE ▘ RETURN TO OR p"@*C& DATA INK ▘ INT INK _ NEW {[C]_INKEY$,ACS ,, GO SUB [Q] INK ( $'▝ SAVE P'p&[B]_ GO SUB [Q]~ INK NOT g AND &~-PI ~@G▝p!▝[Q] I INK -CHR$ G>pCOS AND CHR$ CIRCLE AND ▝U▚G:R AND INPUT B2:x AND INPUT B>=yCHR$ <=: CLOSE # AND AND 8Y▝O5▝y`2▘ AND @d RETURN [O]INKEY$# INVERSE , PAPER [P]( PAUSE [E]<=NOT F<=-- INVERSE N THEN q LINE SIN AND THEN yCHR$ SIN AND COPY THEN Q>(B<▞ THEN aO(< CLS ▝y READ NOT SIN AND 0/▘t<=/t<=p0p0p0>=Opr[P] RETURN LPRINT ERASE ▖<= RETURN P0--▝(EXP IF F<=ONOT TAB BIN O RETURN P PAPER TAB BIN !aSTR$ EXP [B]ACS PAPER ▜>=z NEW O{ THEN ?▝/ AND G|PI IF ▜>= }[A]0▝ ERASE ▜>= LINE ▜>=Oy2>= PAUSE FLASH <= VERIFY © GO SUB D▝Oy/ AND RESTORE / NEW [E]>![0!/ INK ▜/ AND 2m>=[Q][E] PLOT ▚->= GO SUB VAL INK }NOT $>="[H]▘*>="[H]*>= INK _" OR ▗ DIM {o CAT ▜ GO SUB [Q]o GO SUB [Q] GO SUB [Q]Ppp▗[Q]o RETURN p,P6▗ INK ▝[N]c FOR } AND o5 BEEP ▚ LINE [G]>= VPv$6[C]NOT [I]>= CAT ▟[ MERGE RESTORE LIST GO SUB VAL LLIST [P] LLIST OR GO SUB g, IF STR$ CHR$ MERGE >=<> INK : INK AND 2f THEN :COS AND 27 THEN 2^ THEN &▚2[O] LINE 2 THEN ;[D]2{ LINE 2 INVERSE LINE <
12829SGN LINE :ABS AND 2A THEN BIN ▞Z<> INK !#<>"2 THEN CBIN # GO SUB S/<>sCHR$ #CHR$ ▘W LINE #CHR$ ▘i<>#CHR$ ▘i<># FORMAT ▝)0▝cp@CHR$ LINE }sUSR ▘▗<>USR ▘[D]<>USR ▘[D]<>sUSR ▗LN PAPER [D]<>#USR V LINE $0▘ LINE SCREEN$ &▝SIN &▝SIN `&▘W[D] LPRINT ▘E LINE ▝<>E▝ CIRCLE E▝ CIRCLE pE▝ CIRCLE E▝[C]▝40F▝ LIST l▝ RUN l▝ RUN l4▘ LINE G▘# LINE tt THEN RESTORE tt THEN RESTORE t)t) THEN RESTORE t)t)t)t)▘[Q] INK &▝t&t&&C▝tjt#T#dt▛t▛t▛pbt▖t▖©t▗t▗t▗t▗▝MCHR$ e THEN $▗▚A THEN G:{ LINE ▗rKK▘[O] LINE "f▟▖f THEN CHR$ [A] THEN :^ THEN $▟^ THEN O$▟▘[O] LINE ;▟▘{ LINE ▛▘f THEN t▟( PAUSE OR THEN --NOT 6 THEN t00▚EXP THEN RETURN P ERASE [K][U]▝( NEW IF [U] THEN ONOT <>1[A]<>NOT [K]<=! GO TO INPUT GO SUB D! DIM GO SUB $[A] GO SUB S! TO |2r TO }2PI TO *@[S]N*▚G THEN THEN [A] [D] AND VAL CLEAR o> NEW DEF FN CLEAR g STEP VERIFY STEP GO SUB D AND NEW RETURN [L][G] RESTORE READ INK GO SUB [l[S] MERGE INK ~, INK INVERSE INVERSE oABS =▘[D]O[L]▘[K]G%3▜0`i)▜0 p ▜| THEN &o% FOR INK TAN MOVE STR$ ▚! GO SUB STEP FN TO p@▜`o& BORDER 0$ z▚# RANDOMIZE *l[S] INK RETURN FOR 5[E] DIM CLEAR ! READ GO SUB s PRINT TO RANDOMIZE INK x VERIFY CLEAR ▚ CLEAR SIN ▙ IF STEP AND CLEAR wN[A]OG CLEAR nATN ▝xATN NOT READ TO LN ▗2 GO SUB TO xLN ▗ RUN INK IN 72 DRAW TO xATN PRINT INK POINT CONTINUE CLEAR 6N<(< OUT [A]o▜[P]g FOR MERGE INK CHR$ COS TO NOT POKE TO p`▝ CLEAR DEF FN ▚ CLEAR o CLEAR N+a▜oG THEN THEN [F] o,& NEW x!W[B]O INK READ INK ^ THEN # RESTORE jeySGN O(1 PAUSE ▗ STEP { GO SUB D_ykbJ▝ pp)| LLIST ▚,F CLEAR ,ASN >[Q]!6 READ T`EXP PAUSE AND STEP Oq INPUT IN PRINT y AND NEW SAVE O[G]q,w<>_CODE THEN 0▝▜ SAVE THEN / THEN / THEN / DEF FN <> BRIGHT 0 NEW REM INPUT Z LLIST ▗ LLIST LLIST 0 LLIST SIN LPRINT BRIGHT LPRINT INPUT NEXT SAVE IF DRAW ▗ RETURN <> POKE [L] DRAW CLEAR RETURN SAVE IF DRAW RETURN COPY K DEF FN ^ DEF FN q DEF FN [H]▘▗ DEF FN PIN 2( #0@#P(`2hFpZxHPX`hp-pAxZx(<ZVAL FN [Q][I][A]▖-▖AATN 2 LIST ( CONTINUE # LPRINT FORMAT #USR (VAL 2[Q]F[A]Z LET ▝N CAT 0 READ ▝v▝B▝BSTR$ . CAT 0 BORDER <=(NOT $NOT $ READ RUN p[B] CAT 0BIN VERIFY BEEP v BEEP S CLOSE #[C] BEEP STOP BEEP CIRCLE $ CIRCLE FN (EXP > CIRCLE [I] CIRCLE USR CIRCLE CIRCLE CIRCLE PLOT CIRCLE Z INK [G] INK > MERGE TO INK & PAPER N PAPER [D][N]▘ PAPER BRIGHT PAPER FLASH . FLASH L FLASH [M] FLASH CIRCLE [J] PAUSE FLASH $ VERIFY BRIGHT ▚ BRIGHT [Q] BRIGHT t▝INT ▟ INVERSE 2 INVERSE L INVERSE j OVER INT OVER CIRCLE ERASE ▝▟ ▘ OPEN # ▜ OPEN # LLIST DATA SAVE 0[A] LLIST SAVE DATA LIST CONTINUE READ CONTINUE LPRINT ▘pp▛ CONTINUE SAVE READ CONTINUE SAVE LPRINT ▘[E] GO TO LIST INPUT SAVE GO TO LPRINT INPUT CONTINUE LIST CIRCLE GO TO LIST ▘ CONTINUE LIST !▝[S] BORDER FORMAT I MOVE STR$ MOVE MOVE MOVE PRINT MOVE SAVE RETURN COPY USR DRAW COPY ▘ ▝▘? ©SIN ?USR USR LPRINT USR LIST USR STR$ SAVE STR$ ` LIST NOT 0`<=USR 0 CAT LPRINT OUT LIST J▛ SAVE COPY DRAW VAL COPY POINT [E] LPRINT COPY COPY @ LINE %5 PAPER CONTINUE ▞[O]USR = BRIGHT DATA [K] AND [G] OVER NEW LINE !B~jVj▝<NOT <▘ RUN B▘ READ H▘NOT 4N▘▝R ▝vl▛ LLIST LIST LIST (▜ READ LIST COPY STR$ 6p006▘ READ pBNSIN RETURN READ OUT DRAW " INVERSE P IF SCREEN$ _[Q] LET MERGE [[U] CONTINUE JZ@TAB AT v PAPER j FORMAT , STEP IN [Q]TjINT 2l@[F] GO TO [B]jtd+ CLOSE # U STEP INT t▛n GO TO CONTINUE FLASH VAL OR *HACS LPRINT INPUT iP COPY ▘o[A]r▞ LPRINT RETURN p COPY FN LPRINT CLEAR SAVE RETURN SAVE LN INKEY$▝ LLIST FN LPRINT COPY LIST COPY LET COPY CLS SAVE SAVE STR$ <STR$ <USR USR LLIST STR$ ▝<p<=8X COPY O!b[I]▝| NEXT ©▖7© LPRINT pL▝▜ DRAW @▜@0 RETURN 2 J▝p▝▙ LIST ▚[Q] COPY RANDOMIZE [I]?USR l▝c0tP`G[P]` LIST ▞[M] LET LIST ▗▙USR SAVE x#T SAVE LEN ▘Dx▝A▝p▝,r▘USR ACS AND ▘USR 0x▝[A]▝DFN SCREEN$ 8▖P[B][A]ACS ▘[B]n0 GO TO RQ▝FOh![F] DRAW INPUT LPRINT [A]q SAVE [A]j 4▝ SAVE ▝H▝ ▖0p p▘USR 00 LPRINT [J]2▚ LIST SGN !/ OR CHR$ AND ▗ OR :STR$ 2Qqq▗ NEXT ?USR OVER ▞G? LIST t.▘ CONTINUE LIST ▚▝▗SCREEN$ x▝▗p[L]SCREEN$ !▝ LLIST !h!]▖SIN INKEY$J▝r0<>2>=▘ SAVE 1 PLOT ▗ CLEAR COPY RETURN SCREEN$ 0 AND COPY [E] COPY DRAW W OUT COPY CLEAR PRINT FN ? FOR RETURN X? READ RETURN ▝ CLS %▘ LOAD RANDOMIZE *▘ CAT SAVE ▘74▟ PLOT RETURN CAT COPY INK COPY COPY READ COPY COPY SAVE 0`R[E]© COPY LIST _© COPY RUN MERGE [Q] COPY CODE SAVE +` COPY SAVE 5 o▝ LOAD u▝IN 9▘ COPY IN [S]?©▗[D] RETURN © LINE COPY PLOT © RETURN <= COPY SAVE LPRINT COPY COPY LPRINT [K] `PI[E] COPY COPY USR } COPY COPY OUT W RETURN IN LPRINT CODE RETURN ? LPRINT BEEP BIN ▝[P] CLOSE #▘ COPY ▜ INK LINE ©U▝ BORDER p LLIST p LLIST p LLIST p LLIST LLIST NEW LLIST ▝ DRAW ▝! RETURN COPY [I] NEXT p NEW >= COPY p LLIST p LLIST p LLIST ▝ BORDER ` LLIST ▝ LIST NEW !i FOR ▝ COPY [▝ BRIGHT p BEEP p BEEP p BEEP p BEEP ▝IN BEEP ▝ BRIGHT BEEP 1 BRIGHT F▝ CAT )▘ COPY DEF FN PLOT ▚ LIST COPY COPY ACS 6▘9q FLASH >= COPY q FLASH q FLASH a FLASH ▝ OUT 4▘ COPY [O]2▘[P] COPY FOR COPY LLIST COPY RETURN CIRCLE FLASH COPY COPY 8 AND q LPRINT q FLASH q FLASH q FLASH a FLASH ▝cU▝SGN "Y▟ RETURN © COPY CAT COPY SAVE ? COPY COPY PLOT `▘ LPRINT Xq FLASH q VERIFY q VERIFY q VERIFY Q VERIFY ▝©! VERIFY ABS TO USR ?* MERGE RETURN [J]d DATA LPRINT COPY |[D]h NEW `[P]© DRAW 3>= PAUSE `[P]APEEK DRAW ' FORMAT RANDOMIZE OUT APEEK CLEAR O[Q] DRAW LOAD RUN ▗{USR RETURN POKE ▝? RUN STR$ ▝<>/ONk▚|USR ©u▘Um%U©>=$ OPEN # COPY ©ATN [C]▝ PLOT ▝ DEF FN '▘9L▝ RETURN LEN ▘ DRAW l▝▝ RETURN SQR ▙??USR USR LPRINT LPRINT `▘ LPRINT ▝?I READ LPRINT )[K]NOT < BORDER NEXT LIST ©▝~<=0 RANDOMIZE LIST 0 CAT RETURN CAT DRAW 0▛[P]@ RETURN x▜}▘NOT <?[I]0BIN <>pBIN PBIN ▘STR$ >5 MERGE ?▝A7ATTR LLIST ▚ LPRINT VAL$ COPY [P]▗USR # RETURN `VAL$ SAVE pVAL$ AT ▚ LPRINT LIST LIST LN VAL$ !2[E] CLEAR [Q]_ NEW LLIST SGN C LIST SAVE 9BIN RANDOMIZE PEEK A[A]3>= DRAW OVER ! RANDOMIZE COPY ' FORMAT RETURN ^[R]▝O CLS ▖p LIST LN G[P]@gu▝ COPY USR ▘USR PUSR ▝[F]▝<0AT ▗ LIST ▝B GO SUB ▚ DRAW CODE RUN ▖ PRINT / SAVE ©e DRAW ad▝PACS f RETURN ©`TAN q©▞SGN ▗ AND 5 PAUSE ▚1 TO STOP @IN <# FORMAT PAUSE COPY ▘}g[A] SAVE `[P]F▘O[Q]<▗ LPRINT DRAW <▘ DRAW "2~▘ CLEAR qxqxr<<E▖ RANDOMIZE DRAW USR TO CLS <B(▝ MERGE 2▝▚o▝0r2"F▝▛2:r<r<b8B612:▞ LPRINT COPY PRINT © READ :2D▘ CAT :Dr::▘p`!zr:" RETURN STEP - CLS ▝=qUUSR ?"0▝D20D▘SCREEN$ D▘ INK D LLIST BDqpACS "BrDrD? LIST ACS D▗q▖ RANDOMIZE 2D▗s▖ DRAW 2D▘g[A]R:▝ CAT M▘aNr:▝A2:PEEK K(8STR$ 0ACS ▘>=7'▝ STEP ▗H?USR [F]▝D▝ACS ` RETURN OR DASN ▘SQR CLS ▝` CLEAR `# CLS RANDOMIZE 1▘rTBVrTs MERGE BVA< LPRINT " FORMAT ▗ COPY SAVE 4~▘ SAVE ~▚0 CAT RUN ▙q4~▗ COPY CLS RLA$~▟t~t~t~▝?:a~[J]TAB ~HCHR$ ▖[E]tt~tRBt|T▘@4|▘>▘8PCHR$ LPRINT LET $|▘t|4|▘STR$ >t|d|"8ABS 8t|t|▘ATTR J▘ DRAW |g▘ LIST t|%,t LIST att|4|sLEN ▘ NEW 5CHR$ COPY DATA ▝|rB4|B▖_[Q] SAVE VAL O`U(▝ LINE % GO TO %2itrtrr▘VAL$ i▘ SAVE r AT ▘USR ?tr% CIRCLE dv#[M]%&u LOAD tr▝!▝ DRAW "X:j▘ LPRINT `[D]`▘ DRAW p*p88 RETURN Q DRAW ~pb▘ LIST pphp~v[R]`▜rB*[T]pFN ▝ LPRINT p[K]bpFN pACS p[K]p LPRINT p[K]0 LPRINT p DRAW INPUT p~ DRAW gqCOS r DEF FN e` LPRINT p[M]p ERASE pACS q^▘?USR qPpBIN Q&qzqBp[K]q[U] OPEN #sZ LLIST qINKEY$ PRINT q|qRqR▗ DRAW |INT STR$ AND ▘▘▘CHR$ AND ▗INT |STR$ ▝ |:▘:LN CHR$ USR ▘LN |@ ▗:| 6▝INT 0- '▝LN P@ `Z0KpZ x▝INT `0PZ▞`[A][A] LIST [A][A] LPRINT [A] LPRINT ▚`[A][A]`▚ LIST LPRINT LIST ▝VAL [A]p )▘[A]pSTR$ ▝pSTR$ ▝[A];▝[Q]7CHR$ ▝ LIST ▚[A][A] FORMAT FORMAT VAL VAL ▝[A] HC`▘ FORMAT VAL ▘`6 B▝ .0)/▝ LIST /USR Pb LIST @(▘``@wLEN zLEN z1{1{[B]{RND▗[F]{POINT TAB [N]{LEN {* LET z LET *a{a*▗EXP { MOVE 1ABS { MERGE 1STR$ { INK 1 OR { INVERSE *▗ OR z OR T▗={=pMpM▝LEN i▗[R]{ASN *▗{{*m{mpMpM▝ INVERSE ~<>{ LLIST ~▗ INK z INK FN ▗O{Op[K]pM▝ASN pT▗{T▗©{©pF Fw STEP { RESTORE @ INPUT ▛zzCzC▛ozoz[D]z[D]▗[R]z[R]ATTR ▖? FORMAT ? FORMAT ▝SCREEN$ COPY LLIST #) STOP ) STOP I STOP I STOP a STOP a▗i STOP io STOP 8[T]t STOP STOP COPY © OVER © REM _ DATA 9 LIST SFN ' FORMAT USR [Q] FORMAT [Q]BIN '[K]S RETURN CLS RETURN MOVE © LPRINT _ TO [F]VAL OUT FOR © CLS COPY LOAD ATTR STR$ USR MERGE ATN COPY WW OUT ▖ OUT CAT 0 COPY ▜H COPY ▘ DRAW [R]▚© LIST ?@▚+▘SCREEN$ STOP 5▝ COPY E INPUT ▟LN STOP NEXT STR$ STOP IF <= TO STOP COPY GO SUB S FORMAT P[D] LIST LIST ` SAVE SAVE h-▝TAB VAL ▖▘[O]g COPY *ASN ERASE [A]* VERIFY BIN @▘ COPY COPY NOT ▝hPCHR$ @©STR$ NOT /▜P▘<=<=>= COPY CLEAR ▝7▘<<▗<~~▘ COPY COPY p8 CIRCLE [E]@? @USR LPRINT LIST SAVE ^▗ DRAW ,▝▝VAL [I]©USR ? LPRINT USR LIST LPRINT SAVE LIST DRAW SAVE RETURN $ COPY @F[H] ?USR @ LPRINT LIST SAVE DRAW l▝▘© SAVE USR LPRINT LPRINT LIST LIST SAVE SAVE TO [N]▝D▖▝"[C]▝ FORMAT ? LIST @ SAVE SAVE ▖ RETURN ▖|FN ERASE ▘USR LIST ▝ USR SAVE [Q]▘ LIST ▚ SAVE 8USR <=▚p TO ▗USR NEW ▘0@>▝@ LIST ▟" GO TO S PLOT EXP RANDOMIZE l CLS r DRAW ! CLEAR [O]USR CLEAR [H]F RETURN ▝ RETURN LEN RETURN PAPER RETURN CLEAR RETURN COPY 4 COPY K COPY _ COPY q COPY ▘ COPY [B]▞SCREEN$ COPY ACS COPY USR COPY LINE COPY OPEN #[U] DATA COPY GO TO ▝ IF {▝bx▟!&*/37<_CGKORVY]e[B]cgjmpswz} OR ▝[D]▞▟[A][D][G][J][N][Q][T]PI_▞VAL$ LEN ASN EXP ABS SQR [G]BIN <> STEP MOVE VERIFY PAPER OUT DATA DIM INPUT POKE RUN IN $-6@JVbo~[R]ASN TO NEW &O©INT b OUT ▙[E]GTAB OVER [R]`J<2+%!`L=3,&"p▜`O?4-'0▝p,▖QA5-'#pBTB7.(`XWD8/)$ p▚`YF90`▝P▗▜]H;1*%!@0[L][S] FOR STR$ SCREEN$ ▙n]fqU.a58<@DINU]f MERGE LINE PI▛kxfKQYp▜fASN CAT COS ▞▖ ▘0f`,▞[Q] LINE ABS [K]▖iucmpB▙ FLASH SCREEN$ PIucIv,]3kPX▞` OUT ASN [U]▘|q`iepK FLASH PEEK [R][F]P▘5q@▗▖ BORDER EXP TAB [C]yn|0P[L]▚B*USR AND ▗=-▘p▚40! p-.0$,-pC%6! ,▝XPZ:$BpCn9'PP▜?'0o`[K][K]CODE NOT CONTINUE STEP MERGE ▖>29[R]1 OR !PEEK PRINT @[G] GO SUB VAL X GO SUB VAL PI TO RETURN CONTINUE STR$ !X CONTINUE OR ^#V# MERGE IN N#F# READ GO SUB VAL LLIST STR$ FOR 1( GO SUB NOT STEP ▙ CONTINUE GO TO INKEY$ CONTINUE FOR ( DEF FN CONTINUE REM 0 PAUSE [O]v CONTINUE ASN NOT ENOT ]NOT [B]NOT [G]NOT RESTORE NOT [Q] INPUT NOT 6▝NOT ▘ SAVE REM / READ TAN READ SAVE DIM ( FOR SGN READ POKE READ 0 REM SL[K]T PAUSE STR$ <iNOT ~ATN 5[P]▝B$$B▝▝NOT f<<fNOT ▝NOT BORDER ~<<~ BORDER NOT NOT BORDER COPY ~~ COPY BORDER ▝ COPY 5G[M] STEP @ INPUT STEP ^ INPUT CLS v STEP PAPER GO TO !TAN DIM STEP RUN FOR STEP [O] INPUT CODE FLASH RETURN / NEW ( PRINT `▘ PRINT ▝ LLIST @▘> RUN 0 TAB POKE 88/8 STEP NEXT GO TO PAPER !& INPUT !+ INPUT 8 INPUT GO SUB VAL CODE != INPUT TO [Q]j▘x FOR pj _V▝ OUT v >©©[E] DIM NEXT NOT PAPER GO TO FLASH O FLASH EXP OR [L]CODE STR$ POKE >FN HSTOP THE TAP OR DPPRESS ANY KEY TO CONTSIN OR KHCHASE H.QVAL$ AND H1. SINCLAIR JOYSTIC THEN P2. CURSOpFP3.P▘MPn▝Np,▚P4[C]YBOARBIN AND P5. DEFINE|▜ OPEN #IHRE@ ▜ AND <>HGEARBIN .▙VAL$ AND DIM HACCELERATE▜PBRAKEP▚)PLEFT`-▚IPRIGH@▜VAL$ BIN ▞PQUI`▜BIN POINT PPAUSP<▖BIN <>PTURBO@i▘<=B[Q]STR$ @TES CLOSE #$A▝.*T MOD OR OR PIN GAM▗VAL$ BIN AAL▝1@VAL ▝ Z▟TART LEVELVAL$ BIN g*@NEX`▝▜,@1▟END SCREENVAL$ BIN PI,PXTRA ▚DITVAL$ q[H][H] AND CHR$ H RUN INKEY$▗NOTE!ABS [B]ROL OPTION OPEN # AND RESTORE HCAN BETAN [C]IFIEDVAL$ OR APARE YOU HATN ▚Y WITH▛R CHOICEVAL$ B▜YES(Y) OVER [F]NO(NPOINT STEP COPY FOR ~PI>= SAVE N THEN THEN 9#>=▘ RESTORE zUSR IN NEW AND Xgk INK READ MERGE OR ~ NEW © RESTORE STEP , GO TO LLIST THEN ~#( NEXT INK STR$ MOVE LLIST INK <> VERIFY INK , INK <> VERIFY ( VERIFY ([B]OyG▝ THEN O!z[S] INK MERGE INK MOVE 8J~ GO SUB [Q]@p AND _z VERIFY Wp"p)[A]CODE INK E THEN LET q} AND o THEN LEN qh▝GKPp▘ INK qRND▚!YYm▝u}HHu COPY GO SUB VAL <> GO SUB ▘R REM GO SUB ▖ VERIFY H RESTORE MERGE #[▘ MOVE LLIST C INPUT LOAD STEP m GO SUB # CONTINUE 3s▚ RANDOMIZE 0 INPUT IN PEEK #USR RANDOMIZE >2$Dt1 PRINT INKEY$/x@[E]USR g{ VERIFY THEN <0 IF USR W THEN 8 CONTINUE IN <> j STEP M GO SUB SAVE ( PRINT zSTR$ OR A(PEEK ( BORDER # IF SIN 7 INPUT w! VERIFY GO SUB G NEW O▜▜▝ THEN 8 THEN 8 THEN 8▜_STR$ MOVE OR MERGE GO SUB S INVERSE REM ~2 OUT REM #~ THEN COPY 2 LPRINT REM ! BRIGHT REM <>[U] MOVE STEP TO GO SUB STR$ x RETURN USR { AND _ FORMAT z AND W<>B N M SYSPH J K L[F]AT Y U I O P 6 7 8 9 0 5 4 3 2 1 T R E W Q G F STR$ IN A V C X Z CP##!&%" NEXT ! CLEAR | DRAW q GO SUB G GO SUB ^>NOT 2 RETURN RETURN ![O] LOAD " COPY RETURN <>CODE 22[T] INPUT ! RETURN LIST NOT x INPUT >=2o INPUT USR !EXP # RETURN COPY (▗N#"v PLOT [Q]! LET ~#2INT INPUT 2VAL$ INPUT " LINE INPUT <>~#fo PAPER CODE 2 LOAD >PI <C▘?▘ LINE EXP "▘NOT *I▚=CHR$ ERASE INPUT STEP n▜"IN INPUT NOT STR$ INPUT #▖< THEN ©( NEW ©AT ▘VAL$ INPUT ▝[F]W NEW (Gz THEN ? THEN ? THEN ? LINE " LOAD LINE )▘ AND LIST ^(!VAL$ INPUT 5! LOAD 5`▝8q▚( CLS <> PRINT > COPY }[C] LET CLS <>!Z LIST l!^ LOAD DRAW 2: LOAD COPY [S]> THEN ~ THEN PI OPEN # RETURN THEN LET #(: LOAD PI LINE 9 LOAD INK RANDOMIZE NOT LOAD IF ▝ LPRINT ▝ LOAD DATA ▘PEEK 6VNOT >= COPY SAVE xl▘USR LLIST { LPRINT PEEK NEXT [O]pUSR > IF ▗[O] COPY ?k RANDOMIZE ▚ CLS COPY ?8 LIST @4 AND FLASH [N]<> COPY RETURN p9 LPRINT ▗w OUT p▖ COPY SAVE [T] DEF FN d ▜?[P] COPY COPY 0[J]▜ LOAD COPY ? DRAW [M]8 DEF FN $▗BIN ©[G]>= COPY ▜>@[I]USR CHR$ COPY ©lz▞LN w~ DRAW RETURN © BORDER o OVER o▚ RANDOMIZE COPY ;?? RETURN j READ LINE ▞ RETURN COPY 3PI COPY [P] COPY LOAD 7[E]▜ NEXT SAVE 0 COPY OVER COPY DATA ,>=▘ POKE ;0 GO TO SGN ▘ CLOSE # COPY ▝ LPRINT DEF FN p| FORMAT COPY ▞ CLEAR ~_2![G]USR 4[U]F#~ VERIFY ▟w# THEN (>[D]G RETURN > OPEN # RETURN C RETURN CODE OPEN # RETURN VERIFY RND▗ CIRCLE TO [Q][L]),q[B]TAB STEP GO SUB COPY LET STR$ [L]B▜ASTR$ ABUSR ▝A@▜ACHR$ BAUSR B▚AK▝KSTR$ ▝K 0@p p 6[C][L]B THEN B[L]B[L]BSTR$ [L][L][K]A[L][L]A[L]▝B$P ▘▞*▘STR$ = )@<▝p< ▝JN/O▝ 1▝p/p/p 0 ▘BSTR$ [F][L][E][L]BB:!:[R]PEEK >=w▜O!7RNDIN fh CLEAR © GO SUB y/ LIST GO SUB VAL NOT ▘USR LPRINT USR LPRINT USR LPRINT >2[S]>2[S]>SCREEN$ 2f29[S]<>:9[S]PI>=:[S]▝SCREEN$ [B] VERIFY RETURN Z0 RETURN 8x%▝8[B] VERIFY 2[S]:[S] NEW <2[S]>?PI![S]>yIN GO SUB ATTR = PAUSE [N]<>*J[S] THEN }/o:S[S]PI( THEN % THEN [G]:;[S]PI[A]>(X>"[S]2 U▝;U▖<>><2[S]2:[B]▝:;ACS =>=![S]5(~ AND o&,~▝~▘>6▝<>▘ PLOT $▝CODE 2[N]NOT SCREEN$ USR NEW LINE Zr OUT PEEK TO DIM BRIGHT POKE STEP [B]>! INK ▜▜!▝O TO ! THEN NEW INK Dz GO SUB yE GO SUB y<D`0[A] INK RETURN ~ INK #zCOS CHR$ [▝Z:J▙ RETURN * CIRCLE STEP SQR CODE D▝<ATN ▛2J▙!USR " AND ▝!▟▗ LIST USR [A] GO SUB VAL GO SUB s DEF FN ▝1[S] STEP VERIFY ▝ STEP PRINT ▝ LET EXP STR$ LLIST MOVE LOAD ▞!USR ] OR VAL ,PI OR RESTORE GO SUB VAL > STEP ▘ LLIST STR$ OR RESTORE VAL GO SUB [Q]+w# REM LET ▝ STEP ▘ MOVE STR$ &VAL GO SUB VAL bSTR$ MERGE <>CODE ! LPRINT 9CODE STEP SCREEN$ ▝PI>=!+] STEP BRIGHT ▜>2^▘![A]"J[S] STEP *:PI[G]▘( STEP VERIFY [Q] NEW CHR$ y[M]▘>IN :[J]!USR 8>= FOR > LIST 2L▘0~ STEP l▙:1[S]PI <=▗ IF ▘=E[U] PAUSE q▘> STEP RANDOMIZE ▟!TAB ▘ ! STEP ~▙ STEP ▟ STEP >SGN NOT (▘K SAVE ATTR Y: FORMAT ▝ 8▙ ERASE H SAVE FN YENTER F[P]I▖- LIST MY9Q OPEN #▚ LIST ZPROGRAMNOT ▜JOBBEE OR ▗INKEY$ LIST FZ▗PHICV0[A]BIL TO P AND LIST ▚ZMUSIC@▝J FOR ▗DUN DEF FN !b* LIST JYB)OFFQ▝Rh▞▘ LIST ZRANK NEW ▝O▝ ▛GE PLAY NAMp[S] LIST BZ1_▙ 56784010 ALLw▝1[H]▝CHR$ VAL$ CHR$ LIST ▘Z2*▘ 3$USR 0[F]▝4*[J]#ABNOT [L]▚ STOP LIST CHR$ Z3R#▚ 43403 #▝3*SGN ▘2 s▝ AND SIN ▝ MOVE COPY 69-▝; TO ▝J▝l=3▝▛▝t OR INT ▝ ▝n ▚ COPY INVERSE COPY u TO @ RETURN j?p p`▘n ▚ RANDOMIZE RNDH_ GO TO >=k ▝g ERASE COPY ▝ RANDOMIZE DEF FN [S] MERGE STOP a DEF FN COPY ▝ LIST wg▝; OR |▝q▜ COPY COPY COPY v OR AND ▝A▚ RETURN ?w©v TO @ LPRINT ▘ DRAW 0Gp ▝_0`▝n PAUSE %NOT [U]/PEEK W IF k1 v REM ERASE ▝ STOP ▝ MOVE ▝x8g LPRINT COPY :q LPRINT q LPRINT ▝l ▚ COPY COPY tqq▝n ▚ RETURN SCREEN$ ©t TO A LPRINT DRAW j?p q LPRINT DATA 2RND LINE Orq▘g x RANDOMIZE ERASE <= LPRINT [G] CLS ic9CHR$ k INVERSE [B] INVERSE .Z7;LN J CLOSE #[G] OUT 89g▝USR ▝:q LPRINT q LPRINT ▝l COPY [Q]rr2 RETURN 5@r▖ DEF FN g<>EXP [C]fB LPRINT ▘ DRAW P▝ PLOT >=a LPRINT ▝o ▚ STOP GCHR$ [S]' CONTINUE >=r y RANDOMIZE ERASE q INK ▚= CLOSE #[E]RND/▚▞ CONTINUE D[S]$f▘+[M]qqr LPRINT Q▝rs4 RETURN :[Q]©T▖[E]▝*R[E]C LPRINT ▘?s LPRINT r LPRINT ▘g BIN j▝ PLOT ts▘g INVERSE { ERASE 2 ▚;[Q]▗EXP D▞,'3!▘;g▝rs LPRINT 5▘ GO TO ▝rt5 RETURN 4t▖L RUN ) PAPER ▚D LPRINT $s LPRINT s LPRINT ▝ LINE ▝ REM { OUT t▝g INVERSE | ERASE AB("$&▝ BRIGHT Q COPY zt LPRINT t LPRINT ▝n1▝vv▝n RETURN z[Q]t▜([E]▝([C]VR▝rt LPRINT 2▝" GO SUB | SAVE v INVERSE | ERASE 5 Sc%*▜[N].d;LN ]▝AT q▝vv LPRINT v LPRINT A[Q]* COPY vv v ▝n ▝ RETURN LPRINT v▚ DEF FN [E]▝ THEN RT▘*?s LPRINT v LPRINT ▜ LINE GB[S]+ BORDER PAPER } SAVE f INVERSE INVERSE COPY INVERSE GCHR$ ▝G OR EGFF▝GSTR$ ▝GCHR$ ▚G OR ▗@ ▘P ▝DNOT `mp @ CHR$ DGCC (p@▜(l>l(G@ E+0 CLEAR x CLEAR ▘NOT MERGE [D] NEXT DEF FN DATA P DEF FN RESTORE P BRIGHT DEF FN FOR P▖ BEEP LEN 3 FLASH |8RND CLOSE #M DEF FN Y2 STEP YL8USR Wq AND PIav><BB~BBB|BB|@BBBD[O]▚~@|@@~@▝@ ▝N 78▝>[R]▝> FLASH B8DHpHDPCHR$ @8BfZ (BbRJFhp (n0PBRJ@8▗<@<▝ RETURN "h 0<>![O] LOAD " COPY RETURN <>CODE 22[T] INPUT ! RETURN LIST NOT x INPUT >=2o INPUT USR !EXP # RETURN COPY (▗N#"v PLOT [Q]! LET ~#2INT INPUT 2VAL$ INPUT " LINE INPUT <>~#fo PAPER CODE 2 LOAD >PI <C▘?▘ LINE EXP "▘NOT * STEP BEEP NEXT GO SUB ssUSR !USR FN ad MERGE GO SUB VAL ! BEEP LOAD PAPER <> GO SUB LN !kBIN 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$ 1b LLIST ; LET w IF 1 NEXT <><= COPY IN LIST %]©_ COPY COPY CODE INT ▜ BEEP PRINT U READ W DRAW ATTR FN VAL IN INPUT V8XQ| VERIFY AT STOP [Q]iAQX▘ OUT USR IN 4* COPY LPRINT INT SAVE SBIN W ERASE CODE COPY LIST RETURN SAVE COPY @]G COPY ] INVERSE © COPY LPRINT # LLIST NOT IF SCREEN$ SCREEN$ CODE W POKE tSGN PRINT UUSCREEN$ RETURN CODE IN SCREEN$ *W© FORMAT CLEAR © CLOSE #EJ COPY IF [Q]*ATTR SAVE FN [F] COPY DRAW ©© LPRINT x COPY @USR USR ▚P RETURN +STR$ VAL BIN [R] LPRINT OR ▝ AND RND*dpp@^B^?^T^▝^~^[D]^9] GO SUB ]Fjpj[C]d>dhSIN [C]dPZ REM NOT ^ READ ^__ REM OPEN #ab/bc[D]bvbE]m][F]]IN ] RETURN ABS [I]THIS INKEY$NANCY AT CHASE H.Q. WE'VE GOT A DEF FN EMERGE$[K]HERE. RALPH THE IDAHO SLAS▝AT NFLEEING TOWARDS %▖SUBURBS. 2▘TAK▜ CLOSE #VEHICL@[M]S A WHITE BRITISH SPORTS CARUSR .[P] OVERVAL$ SAVE "YOK! YOU ARE UNDER▜REST O DEF FN "[E]# LIST CYSUSPICION OF FIR[T]DEGREE[Q]-, SAVE lYMURDE ERASE ▘m PAUSE mo)P DIM LLIST R[C]Ay[D][A]/(~q[B]^$< PLOT pq[B]n1Pq▗5P MOVE n ▛ BRIGHT oq[B]dFk LLIST [C]▚ PLOT j LLIST [C]~SGN ?▝MP?▘`[A]?▗l[B]BIN ?▗l[B]| FORMAT ?▜l[B]▗ACS P OVER n ▚ NEW ol[B]▝ACS ?▗x[C]▝>=?▖x[C] LIST LIST RANDOMIZE DIM LET QCHR$ LIST [F] REM RANDOMIZE LET LET LIST [A] RANDOMIZE Y PAUSE [S]LEN LIST [Q] ERASE _▖`CHR$ SAVE [I]x MERGE CLS [L]9(%▟+(7u%'h) FOR RANDOMIZE BIN SAVE ▙h NEW _[T]`▝TAB RETURN "/[H]` RESTORE `[D]` LOAD `00▝P ▟p0PVAL p▝P 0P00P▜`a .[A] B<PNLZ^v@ 0tfpZpZ▚R`Ca▖`STR$ PAUSE " NEXT NEXT CHR$ LLIST sa CIRCLE GEcLEN #5'0 GO SUB [A]x9Km©}[9 SAVE SAVE 8▞a ERASE @▛RNDa_EXP a@@[C]P▗▚00▝0▝p LIST CIRCLE ▗ PEEK 0▝[Q]@+05▝p '+PP5[M]<>a LIST RANDOMIZE ) IF IF INT i LIST PqSIN AI IF J CLS [C]s! LIST Q▖sa SAVE XU[Pppp$p,8▝LN STOP SIN STR$ @ NEW [E])* SAVE [Q]p` CIRCLE P` REM 0<= LIST 0 IF ▝ FORMAT 0$ SQR ▘PEEK a1 BEEP ▘VAL A▝[A]!▝ LIST pMa/ FORMAT FOR ▜ LIST P LINE [S]aATTR ▗[R] PAUSE LET LEN CODE [L] CLOSE #a CLEAR ;H LET SAVE CIRCLE PRINT Uc▝#%)KMIN TAB SQR ) SAVE SAVE USR ▟b,ABS ▝fEY[Q]▝ LIST ▘]bTAB ▗wb LIST LIST USR LET ▝a BORDER ▝[E]p[S]c0 RANDOMIZE ▞ LET Q[A]EXP LET QSIN PAUSE ▘[B][J] IF z IF :<> LIST Z+*)!"[T]R[R]<= LIST ▚0 LET ACHR$ aY %FN E[T] STEP K▞GU NEXT 3 LET o CLEAR }USR CLS [D]I8WENOT !o=+(%3Q#H[C]+=[) CONTINUE #%+-FN ▝▘#m▝+Z▟b RETURN $"▙[O]X▝4 PEEK *|▝ ▝TAN ▞c. VERIFY 2M▚`▞a [A] [J]![H]B▜0"[D]▝VAL 3c▜S7NOT SOuBEXP 0Nl[U]K▝ XP/q PRINT `* LIST @(R BRIGHT GO SUB PN▝ LIST 0D4▝VAL $0pq MOVE F8▘cTAB [P][O]8[P] READ LPRINT PEEK > IN LPRINT INT PEEK */ PLOT AG DRAW P SAVE >? GO TO CAT CAT COPY COPY FLASH COPY LOAD SQR ▝ OVER IN CLEAR COPY BORDER COPY REM IN STR$ INVERSE C} LINE SCREEN$ CHR$ ATTR ATTR MERGE [T]WSCREEN$ ©USR CLEAR [T]"INKEY$[H] READ [H]▜ DRAW [F]M LIST ▜ CONTINUE A▜ FORMAT COPY ▚ DIM SAVE ▜PPOINT ▜ATTR MOVE DRAW 1▟FN LIST [N]Q[O] FORMAT 1ABS IF m LINE CLEAR : READ ▖© COPY RND[I]IN COPY #[I]W COPY % CIRCLE FOR ATTR &▜xp00xpp▘00[F](SGN dSGN dpepe OVER e OVER @▖eii [H]Ji'ff PRINT f PRINT f▚g▚g@▜ziSCREEN$ i@▜CHR$ gCHR$ gT▗|h|hb REM h REM @▖h PAPER ij@▝(ATN ▝?NOT ▘ RETURN ©(<>▝~STR$ CLEAR ?y MERGE ▘ CAT ; FLASH ▖ INPUT ATTR SCREEN$ SCREEN$ REM SGN +IN LIST "IN o RETURN OVER [S]/ RETURN NAT [P] IF ? COPY CLEAR W COPY RETURN ? RUN [U] COPY RETURN 7*IN RETURN *Wa RETURN " COPY UU^~%NOT SCREEN$ SCREEN$ [R][K]W) COPY COPY LINE ml*SCREEN$ @tCODE 5V@wU COPY COPY MERGE ©9NOT LLIST OVER © REM ATTR COPY COPY COPY LPRINT XLEN UUF LPRINT 8 COPY LPRINT COPY ▙Lu© COPY WJ[L]▝H[C]▘ge▘ NEXT [O]▝TAN ▝ LPRINT COS ▝ SAVE LN ▘ DRAW 2SQR ▘[M]7IN CIRCLE COPY LIST 0%{©mH/ PAUSE fO CONTINUE ?_NOT COPY SAVE 6%_ SAVE (x? SAVE !▟UcFN / COPY CONTINUE CLOSE #4U |7 COPY LET DRAW RETURN SCREEN$ RETURN COPY LIST `o▞IvUSR $ FLASH COPY FLASH $/ FORMAT ▝ POKE P▘ GO TO [A]0© COPY RETURN BORDER COPY BORDER OUT COPY CLS c COPY AND OUT Z IF *[K] CAT ©[J] COPY [P][R]▜SQR COPY OUT f COPY vRNDLN REM COPY RUN IN COPY CLEAR `J▝▝ SAVE !O▖ RETURN |CODE COPY COPY PRINT >y/▞ RETURN [O]{ COPY USR COPY OVER ;▟ BRIGHT ; SAVE LPRINT BRIGHT PRINT MERGE U BEEP CIRCLE p6 COPY SAVE )▝▘*IN [F]▜T5EUURAT FORMAT ▗t<[J]▘<F[P]▘bDRND▝"0▝>STR$ SCREEN$ ▘PEEK G▗▘ STOP @ABS ▝0! OPEN # DRAW jSGN ▘xN[K]USR USR STR$ USR ?>| DRAW `ATTR *T MERGE FORMAT _>| IF [A]▝▖0[N]/>| POKE ▖CODE >| PRINT ▖o>| PLOT P[H]>| DIM LPRINT p[Q]4▝ LPRINT ▘ COPY LPRINT LOAD INPUT ▘ DRAW '[A]SGN COPY © BRIGHT NEXT g CIRCLE LOAD [S] CLS FORMAT !FN j▘▚h@FN CHR$ ▝8▘D >SCREEN$ RNDU< NEXT ▘ 9▝ SAVE VAL$ TAB CHR$ CUSR [F]RNDPOINT LPRINT = BORDER SGN [Q][B][A]] BORDER INT [A] INVERSE BORDER SQR [A]TAB BORDER ASN USR p[A] TO STR$ ▝FN LOAD COPY RUN OUT ▝ CLS ^NOT z? COPY DRAW m FORMAT FN [Q]jSCREEN$ VAL$ PAUSE ▙ COPY RETURN ACS BIN -ACS PAPER )ACS LINE ACS SGN @ COPY ▝ LIST FY#▝ DRAW ATN REM | CLS FLASH ▝PEEK 0+ NEW ▘ RETURN jo▝VAL$ 0$!o▝0#B▝ SAVE LINE ▘0B▝OO CLEAR DATA OU@U DATA O*USR SCREEN$ DATA >▘T DRAW 0*▝,h▘h;▘ FORMAT ,}▝h! FLASH ▘BIN CM▛▗?[Q] SAVE FORMAT ?v>=?&f TO COPY COPY [F]▖ LIST 6© COPY SAVE 1▚<IN COPY IF x{▝SGN >=▘ DRAW 5USR U▝/#%_▘▝P#4▝& REM >=&T CLOSE #>=AT SCREEN$ SAVE (▝pATN ▘ LPRINT [L]P'>=@ OR LIST [Q] THEN CIRCLE ACS ' COPY >=/ IF CjASN VU▞o COPY PLOT INT ▝]ASN ZTAB '[S]o COPY IF P:.X©0 COPY USR COPY RETURN COPY © DRAW COPY INVERSE ^ATN INPUT INKEY$INKEY$▝_▗@INT INT *[G] LIST COPY LPRINT SAVE COPY ?USR LIST MERGE LPRINT LIST ~▜j` SAVE ▚ POKE ATTR _[Q]0* COPY SAVE OUT CIRCLE SAVE ▜SCREEN$ FN [Q] REM LN UP[F]H MERGE X`0 LPRINT ?USR LPRINT COPY LPRINT CLS ▞ LPRINT U LPRINT [K] LPRINT W LIST SCREEN$ LPRINT POINT LPRINT ATTR LIST DRAW SAVE ©USR ▗ LOAD RUN USR MERGE S TO J[S] ERASE w OVER CIRCLE ` AND ▖ IF COPY <=([T]TUSR LIST COPY ▟ AND ▚ LIST AND ▞U0 SAVE SCREEN$ CIRCLE ▝} OVER ASN 0 TO ▖[Q] DRAW z?@ RETURN COPY [K]j[K]jVAL$ jPEEK ▛ DEF FN j PAPER j NEW j REM @ LIST PAUSE j POKE @p!$▞▘ LIST ▝`c0l▜©C COPY STR$ 60TAN [G] LIST x SAVE 0 DRAW ` SAVE COPY [E] COPY ▜X[A]▟© LIST ?@ SAVE © LIST v▙ LET ?USR NEXT @ LET "k$P▖VAL$ ##**1188??(hkhkllblbll▜ LINE l RETURN l0#▝0#▝0#▝0#▝ #]▝ LIST H_pa COPY COPY VAL$ % SAVE DRAW <> COPY LPRINT UW LPRINT CODE LPRINT ▝Pp`▝ ▝[Q]▝[Q]▘ LPRINT 0FN LIST LPRINT LIST ▝ SAVE ▝ SAVE c▖ DRAW LPRINT (FN COPY ▗K7:v0[L]▞g COPY PLOT ,,<40SCREEN$ USR ATTR USR WUSR USR USR USR 0P▜USR LPRINT USR `[J]USR pUSR 2 FORMAT USR [A]?USR [F]NOT USR ATTR
10133 POKE ▟O IF P▘▘▙▝▝ LLIST STR$ LLIST LLIST USR 1FN ▝© GO TO ▝IN ▝▘▖▝P▘▗▝BIN (▝,▜▖STR$ ▝[U]8L▗©©| ▝[A]?@0▝▖▝▝▚▝FN ▖ SAVE SAVE LIST DRAW ▜AT LIST ▝ ▝BIN ▝d▝,"▗▖▝[F]▝[D] ▝[B]$▝[L](▝▞,▝▝3"[M][Q][U]P▝0▝VAL LIST [A]▝t[E]AT mAT m TO m TO m STOP m STOP @ FOR @mX>=IN SAVE ? DRAW ? BRIGHT © RETURN [INT 4 BRIGHT *VAL$ USCREEN$ 6AT ,h7 CIRCLE [A]VAL 0 LPRINT LIST LN PVAL [Q]`[Q]>© COPY BORDER FOR Rv*$<~vf,▞4nn@▟`n`n▜n▜@FN n[J]nASN nUSR SAVE CNOT H#F[A]SN[Q][G]TAB O:@VAL$ ABS @( READ ▜~~IN SAVE |>P▗FN T* DEF FN [G] SAVE ? DRAW ; CLOSE #[F]FN ASN >=ATTR [A]▚ CLS RUN CODE LET BORDER [B]$▞(~xi[K]5TAN =SGN COPY COPY BORDER 9RNDwUSR [P]`[P]`▞v LPRINT USR ? OPEN #[J][A]▙ LIST COPY RANDOMIZE RANDOMIZE SAVE [B]n DRAW SQR ▚ COPY LIST [J]©rIN LIST N~z~INKEY$~ FOR n8~d~[A]~oo:o GO TO [B]]o]o}o}o[I]o OUT [U]oTAN ▜BIN o FORMAT o0#▝0#▝0#▝0#▝ #Y[L] DATA RETURN [U] $ <BIN jATTR READ DIN RETURN lUSR LPRINT 8? RETURN [I]STR$ FN &Hy>=SCREEN$ ▚H© SAVE 0 LET `TAB ?@ REM [Q]V© LPRINT COPY p INVERSE VAL ▚OVAL ▜x COPY COPY READ USR 7lUSR !AT LLIST COPY RETURN IF ▝ NEW ▘ BORDER VERIFY [G]▝N!▘p▜ LIST op LET p LOAD LOAD pQ?p?pfpf▗p[J]p FOR VAL$ pCHR$ ▖ VERIFY p NEW p BORDER LPRINT COPY AT BORDER LIST D[Q]d[Q]d@© RUN DRAW ▘ COPY BORDER RETURN ZDTAN ZdTAN $DH| CAT , DEF FN I:[A] LOAD USR , LINE [Q]J[Q]y@T▚$TAN SAVE ▖9ABS STOP ▜USR B@[@▟[A]SQR FORMAT N RETURN BRIGHT VAL$ ▘ CAT CLEAR BRIGHT DRAW ▖ ERASE FN U COPY NEXT SCREEN$ INPUT ▝[S]▝ LPRINT ACS ▚p SAVE 0.▝>2▝2@,[B]Sq&q<qRqhq▝0[J]~q,,AA]]SCREEN$ SCREEN$ ~q4[A] ▜ ▜▙▙VV[T][T],[D]%%::OO[M][M]B[D]33HH[F][F]XPIddkkrryy-r-rTAB rTAB r MERGE r MERGE rssUsU▗msms[I]s▗RNDsRNDLEN s[K]EXP sEXP ▛ DEF FN s DEF FN s CLOSE #s CLOSE #s OVER s OVER sVAL$ tVAL$ t&u&uNuN▛fuxuu▗[S]u[S]▗SIN u POKE # FORMAT uv# BRIGHT uPI INPUT u0v~IN COPY FOR THEN ^CODE DRAW RUN LOAD ] MERGE ▚ATTR _LN n VERIFY CODE c LOAD _ RUN OVER CLEAR OUT BEEP BEEP IF INVERSE RETURN COPY MERGE USR CLEAR IN GO SUB IF RUN LOAD CODE jCODE OUT R GO SUB PEEK ~ RETURN ={j LLIST z PLOT 7 INVERSE Z5 OUT ERASE PRINT BRIGHT PEEK TAB {CODE u OUT RETURN ;]© COPY OUT PEEK PLOT . RETURN BEEP ASN © RUN AT SQR GO SUB - CIRCLE TAB o DRAW /PEEK [G]IN POKE Z RUN lINT :/INT EXP © PLOT POKE _]_ POKE VERIFY RETURN IF ASN COPY ATN CLS ATTR BRIGHT % REM [R]D▞ABS g RUN h[B]Z[Q] PLOT PAPER COPY PEEK ow[A]O COPY COPY ABS COPY RETURN POKE ^ BEEP PEEK [F] LOAD RUN CLS SQR OVER RNDY STEP %dPOINT T&SIN CLOSE #INKEY$[U]POINT MERGE %#_▝{ COPY COPY RANDOMIZE DEF FN RNDINKEY$▚ COPY DRAW READ J©▗ COPY ▜IN { COPY RUN BRIGHT GO SUB DRAW INPUT OPEN #a▛s GO TO BEEP ; FOR CODE FOR ~ RETURN [P]u RUN _SQR OUT uIN SGN TAB ~m OPEN #[L]PEEK DEF FN l; GO SUB ] OUT INT RETURN ~ BEEP RUN > COPY INT COPY ]COS U DRAW CAT VAL$ DATA INPUT CLOSE #7g[R] CLS BEEP IF INPUT © LOAD CLEAR GO TO Tt▗!@ BRIGHT CLS r[D]VAL SQR IN RANDOMIZE v SAVE > COPY SQR LOAD IN INPUT NEW +RND▖ LOAD LOAD COPY DRAW COPY IF ▘? LLIST GO SUB IN COPY ,[H] RUN FOR EXP IN PEEK COPY ~ PRINT LOAD Z7EXP PAPER NEXT ~{ GO SUB > GO SUB /~wf RETURN CLEAR ? OUT SQR nRM CIRCLE [Q]=IN PLOT CIRCLE y COPY OUT CLS © CLS LOAD RETURN GO SUB W DRAW ~ RANDOMIZE OVER FOR FLASH w©PEEK } GO SUB FLASH [E] CAT FLASH ~TAB O4 COPY v[ FLASH OPEN #,©VAL$ IF VjJb?R RETURN ▖▛ OUT BEEP BEEP IF INVERSE GO TO CLEAR CLEAR GO SUB IF LIST VAL$ CODE j▜ OUT R GO SUB [Q] REM RETURN ={▜ LLIST z?USR COPY ^Z5D ERASE RUN © NEW CODE u BRIGHT REM ▝©[B] OUT SGN [K]"▝ PLOT pASN ©PSCREEN$ ▘ DRAW 0▚- CIRCLE AT >=SGN b[G] POKE _N "▜/@INT LN 0 DEF FN ▘/:P▘ SAVE FORMAT SAVE ▞) NEXT / FOR | GO TO ▞[P]m RUN _FN |▞uIN ABS -pr▜ OPEN #[L][O]^r CONTINUE ▝] RETURN ▝IN 6▘W;▝;▗ COPY USR =IN L BIN DATA < [Q] BEEP RANDOMIZE IF h▘NOT <o▜} PRINT VAL CODE IN ?USR VERIFY PRINT MOVE ▗USR + NEW 5[C]▘<=8V?w IF PAUSE CLEAR l▚AT LIST RETURN 8LN [U]▘ LIST z▘ DRAW *▚ RETURN ATN pZ▝ CLEAR ▘ TO 3$[J]8 LPRINT H LPRINT PUSR *[A]USR (FN USR )H LIST <▝8▝ ▛PoIN ` PAPER GO SUB GO TO ▝ CLEAR LPRINT _ PLOT ▞wo?USR VERIFY ) ERASE ^ RUN [M]▘[A]▘VAL [A] OVER ▝o PLOT CLS PLOT [U]VAL$ BRIGHT ACS FLASH RETURN [O]▘nSGN ▞v DRAW CLEAR `[N] BEEP (VAL LOAD t VERIFY ▝!x▝, NEW ▝ NEW OR COPY COPY LET <> COPY LIST { COPY RUN BRIGHT GO SUB DRAW INPUT OPEN #a▛s GO TO BEEP ; FOR CODE FOR ~ RETURN [P]u RUN _SQR OUT uIN SGN TAB ~m OPEN #[L]PEEK DEF FN l; GO SUB ] OUT INT RETURN ~ BEEP RUN > COPY INT COPY ]COS U DRAW CAT VAL$ DATA INPUT CLOSE #7g CLS BEEP IF INPUT © LOAD CLEAR GO TO Tt▗!@ BRIGHT CLS r[D]VAL SQR IN RANDOMIZE v SAVE > COPY SQR LOAD IN INPUT COPY COPY COPY COPY LPRINT © COPY LOAD LOAD COPY DRAW COPY COPY LIST ? LLIST RETURN COPY ,[H] RUN FOR EXP IN PEEK COPY ~ PRINT LOAD Z7EXP PAPER NEXT ~{ GO SUB > GO SUB /~wf RETURN CLEAR ? OUT SQR nRM CIRCLE [Q]=IN PLOT CIRCLE y COPY OUT CLS © CLS LOAD RETURN GO SUB W DRAW ~ RANDOMIZE OVER FOR FLASH w©PEEK } GO SUB FLASH CAT FLASH ~TAB O4 COPY v[ FLASH OPEN #,©VAL$ IF VjJb COPY ABS COPY ?R RETURN LIST OUT BEEP BEEP IF INVERSE SAVE LIST MERGE CLEAR CLEAR CLEAR GO SUB IF LIST SAVE STEP [O] PLOT NEXT GO SUB ss LPRINT ! LPRINT FN ad MERGE GO SUB VAL ![N] PLOT LOAD IF <> GO SUB LN ! CLOSE # DATA LPRINT ~ 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$ 1b LLIST ; LET w IF 1 NEXT <><= COPY ▖ATN @SCREEN$ IN ▙^INT W COPY COPY IF RNDo4▜ CLEAR pZLN .▜ REM /SGN %PEEK 8▖ RUN VAL$ n[Q] BORDER (IN w*TAN +STR$ COPY COPY MERGE POINT USR x COPY MOVE COPY SAVE p FLASH CODE READ 8ABS A OUT ▗H@* LIST COPY [A]OUSR COPY IF 6IN .ATN FORMAT ▖[M]@* LPRINT _Bh?[A] POKE CHR$ ▝|=[I](USR BORDER _p@@ LET STR$ LEN (▜STR$ ▚D▝@` SAVE NOT [O]? FOR dZl88$^&^#^8^W^T^i^9] INVERSE ][D]i[P]i/INT COPY dSe)eSe COPY d2(z▛^CODE ^ RESTORE ^STR$ _/_ CLS ^ REM sb[L]b OUT b[K]cc LOAD bE]m][B]]TAN ] RETURN ABS [I]THIS INKEY$NANCY AT CHASE H.Q. WE'VE GOT A DEF FN EMERGE$FN HERE. CARLOS, THE NEW YOR THEN ARMED ROBBER, H▛ BEEN SPOTTIN STR$ YELLOWRTSE ON D▜FREEWAYUSR .▖ OVERVAL$ B▚ SAVE "YOK!/▛U ARE UNDER[F]REST O DEF FN -" LIST BYSUSPICIH▘OF'p▜YVAL$ v▜o)P DIM LLIST R[C]BIN [J][A]/(~q[B]©<5Fqq[B]t!PA▞n5Puq[B]~SGN 1▝MP1▘`[A]1[E]l[B]p LPRINT <sml[B]▖SQR P%ql[B]|>=PK▜▗ACS Pul[B]STR$ LIST ▜ FORMAT LET [B] PAUSE CHR$ LET Q▘ LPRINT <>USR IF ▘ REM DIM [E] LET LIST LIST p9`<a(w OR 789 CLS [iUSR SAVE ▙FN GENOT E7 SAVE SAVE CONTINUE )▛}+9STR$ SAVE ▟▖9k CLEAR ;8UC LLIST CM FOR [U]HO`Oa▙[O]ABS ▘▝TAB OVER t`aa& -▝ ▗ ▝ ![B]▖`{a00 FORMAT ▝[A]@00 ▝pp ▝00PF0Ppp▘P &▝0▞FN `[C]a `90mpg0[R]0TAB COS @;▝0 ?▗ LIST ``VAL$ 0BIN [M]p▚p[A]p~ 7ATTR RANDOMIZE ` FORMAT a LIST LIST [A] LET LET 1 LIST LPRINT MOVE ▘▝ LIST ` DIM LIST LET a[A]bcq#5)+ CLEAR CLEAR ]+)'%USR NEXT [E]3 PRINT PRINT U CLEAR IN CLEAR ]bN▖▝▖*[G]▝Fo/b ▝!2 AND ▘Cba^Qf▝PajQr1^b1[K]Q[S]A1x▜0Hb LIST qQ1"!$▝▟P=as1>1▝▗hbCHR$ LIST ▝[A]NOT RANDOMIZE y LIST LPRINT THEN SAVE GO SUB ▝u[B]▝,EY(▝=&-TAB @ NEXT ▞; PLOT ▜ REM [A] LET q1 NEW `▟rr▘BP STOP ▝ BEEP >R[C]Rtr[E]~rfrpz CAT FORMAT PAUSE r IF INT USR LET LET STR$ LET ▝tp CAT n[M]b!SQR ▝z DEF FN STR$ ▝"*▟ LPRINT b_ LIST bVAL LLIST LIST ` LET LEN rr STEP ]▚c LIST VAL LET A LPRINT P[L]c RESTORE LET q LIST ▞ REM RANDOMIZE RANDOMIZE LIST LIST A▝I LIST PAUSE PAUSE B z▗ LPRINT RANDOMIZE RANDOMIZE EXP MtbLN RESTORE CLEAR ] PRINT U3A]+ BRIGHT ▟xM[R]#KABS PAPER [F] CLS u1 CIRCLE ) THEN !ux/-+ LEN /. PAUSE f▘ LINE TAB INK ▚ IF ▝6# POKE ▝!▝▝!▜▝d THEN 3i▗Pp R{3f0[A]D▘ LIST rSCREEN$ $ MERGE ▝ pLpVPH▘0pl0 THEN c SEXP n▝pDV▝[A]p[H]p[R]pATTR pASN `IN p<>p MOVE p FLASH p RESTORE p LOAD p OUT p[J]▝pq`ASN ▝[A]tSIN ▘[L]cK▜ DRAW OR COPY SAVE ▛ COPY COPY LIST IN " COPY LPRINT COPY READ LPRINT / COPY BORDER x COPY CONTINUE 9IN COPY LPRINT CLEAR © LET COPY COPY IN PLOT BRIGHT v COPY LIST <8? POKE xxO READ }PI LPRINT :USR 0< LPRINT USR > FORMAT USR LLIST CIRCLE > MOVE [K]|©_ STOP COPY COPY CODE PLOT CLS COPY © FOR MERGE kIN RUN [Q] COPY CLS STOP COPY RETURN VAL ACS ▗ COPY RETURN ▜J+SCREEN$ COPY RETURN [F]U COPY COPY o FOR COPY LOAD CLOSE #[J]▝ COPY 8 COPY STR$ _8 RESTORE ▗pp00USR p@[G]00}e}e+f+fwfw@▜f[O]f[O]0[G]PEEK f OVER f OVER f[C]g[C]g REM g REM @▝g*▗h7h@*▗WhWh*iicic@▝ip*1▝~▘ LPRINT ©!9▘|CODE /▘| CLS [A]▘PEEK IF USR U[R]TPEEK SAVE [Q]? DRAW >w COPY LPRINT COPY BRIGHT jSCREEN$ [Q]SCREEN$ AT CLOSE # V? DRAW ▘STR$ U[E]B_ RETURN COPY POKE S INPUT LOAD [E]WV MERGE CLOSE #SUSR SCREEN$ ▞ATTR [E]KG COPY COPY OR [U]' DATA ▘>=(:▘(@▘VAL PLOT [I] FORMAT [K]FN *SIN [I]@2X@5 LIST O SAVE ? DATA ▙▝ LPRINT Z▝[H] DRAW ▝USR ▚0FN [F] RETURN u COPY COPY VAL$ LOAD KZ RUN DATA LIST ' CAT LN NEXT [A][B]▚ BEEP ABS [R]CODE READ PRINT SCREEN$ aASN [K]© DRAW EXP s[F] PAUSE 0? COPY COPY SAVE E▘D=▗Cx SAVE >USR SIN ACS [U] COPY DRAW : COPY VAL$ w[M] RUN 8"▖ CLEAR H▖▞X COPY ▟? COPY RETURN %]Rl COPY LPRINT [A] COPY SAVE CAT [I]jVAL ABS CONTINUE [L]SCREEN$ FN GUSR ? LPRINT LPRINT COPY LPRINT NEXT LIST V LPRINT ABS ▛U LIST STOP SAVE DRAW qa COPY DRAW r PAPER ▘ IF [M]▘ COPY INPUT 0▝ IF STR$ SCREEN$ ▘PEEK `S▘j▘AT MERGE O▜VACS FLASH mACS FLASH n+[E] RETURN SCREEN$ SCREEN$ ATTR FORMAT SCREEN$ MERGE -iV▘ FORMAT ▘ OR ▝F01 CAT H[L]▘$2[I][I],=INKEY$hFG DRAW ©BIN BIN C# DRAW ©▞▗?[A]? SAVE CIRCLE ?7 TO fg COPY COPY TO ▝! CIRCLE COPY COPY COPY SAVE k COPY COPY VERIFY OUT COPY COPY CLS z▝U LPRINT ▙ COPY COPY [F]ASN TAB POINT POINT p[T]PEEK ©W[M]jVQ COPY COPY M> DRAW SIN > RANDOMIZE |USR {`? DRAW STEP ▖ RETURN ? COPY SAVE _ COPY POKE BIN ▚@SCREEN$ ASN R STEP ▚VAL$ ACS REM [H] ERASE VERIFY [A]`g COPY TO [F] LOAD Rj▚QyWP!yIN CONTINUE _[D]▜ LPRINT ?USR ay REM !y CLEAR LIST IF SAVE DRAW SAVE r PAPER qyqyqy▘1©qyQy[I] REM ;SCREEN$ ATTR LN VAL$ MERGE QVCHR$ ▚ RESTORE 1N1[H]▝[F]C▘J!y▝u1y▝[U]qyqyqyqyqyqyqy1y▗ MERGE U*ATTR FLASH ▗SCREEN$ ATTR MERGE !y<> CLS OUT [D][A][A]<>[A][D]7[E] OVER Qy▖▟?|LEN ~y~ay▘USR r▝ DRAW y▗ DRAW _ COPY IF i▝@L▘SCREEN$ POINT rCODE ATTR PRINT VERIFY ▝ DATA IN COPY `g COPY NEW [F] BORDER POINT jV COPY [Q]@ COPY CAT iTAN iATTR i CIRCLE i LLIST i DRAW i CAT i AND iABS i REM i NEXT ij LIST jj|j|0[B]j[B]0▗kk[Q]kkRkRk^k^k SAVE lkl▙vkvk SAVE [C]k[C] ▞ PLOT k PLOT kFN =U CLEAR IF [I][L]E=d CLOSE #[Q]n=`AT 'USR RETURN IN SCREEN$ @ABS COPY MERGE $▖ABS jFN @_ABS * OUT VAL$ [J][I]?[D] REM [R]tuP*CVAL ▘B CONTINUE UVAL$ TB] ▞ COPY LN ▞ COPY X COPY FN ©X IF ~CODE ={INT INT =P LPRINT Z LIST ]P%=`INT ©RND FORMAT =v COPY U' CIRCLE 5 COPY BRIGHT [J] COPY w▖0ABS t[D][A]ATTR SCREEN$ SCREEN$ 6[J]}V_[R]ATTR .[K] POKE VERIFY VWINOT `[U]INT CHR$ 0 POKE BZp [Q][F]=xTLN RANDOMIZE STR$ [P] LIST >` LPRINT ©p LPRINT COPY SAVE USR COPY DRAW ▗ DRAW '-©ZW COPY PRINT RETURN ▚ DRAW ` SAVE FORMAT ?? LIST GO TO R[Q] SAVE LPRINT USR * FORMAT ? COPY ▝9▟p© SAVE ? POKE USR COPY E[S]SAT FOR COPY RETURN IN @[R]^ MERGE *© PRINT WFN OPEN #,ATTR T COPY REM SCREEN$ U LLIST _[Q]iUSCREEN$ @IN .2▙©USCREEN$ USCREEN$ COPY CLEAR @IN SCREEN$ U0*[E]©}▘WFN COPY USCREEN$ USR ?IN @IN @ COPY CLS 0<>▗ PAUSE CODE PlPPR▗RTAB IN @z▚ COPY [R]^}▘P▗ COPY USR ?Px0dpx▚ RETURN ATTR TUSR ?0P▘©x0▗[R]^ BEEP ( AND V COPY FOR BORDER ▗ CLEAR PAUSE IF CODE _ COPY FOR G[H][T]▗ CLEAR FOR COPY RUN [T]▗ CLEAR FOR RETURN IN CLEAR [L] CLEAR LOAD CLEAR ▟ COPY BORDER CLS PRINT NEXT VERIFY ATTR COPY DRAW COPY IN AT © COPY TO /PEEK DRAW COPY RETURN PEEK COPY OUT ? OUT CODE IN IN COPY [P] OUT OVER OUT CODE SGN NEXT IN CAT MERGE CLEAR _PI IF IF CLEAR BEEP [B] GO SUB RETURN © STEP [P][J]▜ PAPER LEN GO SUB S LET LOAD ▝ GO SUB ▜ NEXT OUT © COPY ABS OVER SQR l]WIN IN INT © COPY ]▛ COPY COPY xx``8ppx [R]hxxh88h(m1mGm]m CIRCLE m33O▞k SAVE k SAVE ▜ SAVE ▜ CIRCLE mCHR$ IN ,,HHdd CIRCLE m%%AA]]yy CIRCLE m::VVrrm[C][G]mAT mCHR$ mdn3 ekk▜▜dnPeH`e▚% e[B]]]yydn eIN VVrr LIST n LIST noompmp▖o▖o>=o>=o CLOSE #o CLOSE #oRNDpRNDpp[G]p+p+p3p3pNOT pNOT p*HpHpXpX#[p[p; CAT p CAT *[T]gpgp MERGE p LOAD p BEEP p LET p FLASH p PRINT p READ p CLEAR p0▝P▚PoPo0▝0▝P▚ DIM o DIM o0▝0▝P▗<p<p* ▝0▝PapaCODE 0▝0▝p▝ BIN [N] COPY ^ OUT IN © CLS 0 RUN ~ CLEAR POKE `ATTR COPY y OUT USR RUN OVER NEXT 0 ERASE CLEAR CODE USR SAVE qTAN ▝ COPY OUT ▙[K] COPY LOAD x TO [P]} RETURN RETURN RUN m[A]PEEK COPY CLS COPY INPUT q LPRINT [P]©~ RETURN PRINT f DEF FN C[B] SAVE OUT CLEAR CLEAR CLS GO TO USR CODE IN © RETURN OVER USR OVER COPY ▘ GO SUB 08▘~{ 8▘lq 8▘~i 8▘zq 8▘ LIST a 8▘ BRIGHT REM 8▘ IF ERASE 8▝ CLOSE #FN *INKEY$[B][P]IN INPUT INT ASN 3i[N] OVER COPY | IF k MOVE THEN ASN TAB FORMAT t NEXT b OR FLASH ~ PRINT SAVE IF AND INT [T]IN CLEAR RANDOMIZE MOVE SGN BORDER IN RETURN RUN NEXT READ i<<[P] COPY COPY CAT RETURN SIN qUSR OUT RUN o DEF FN TO CIRCLE [T] COPY LPRINT k▖IN OUT © FLASH SQR CLEAR COPY [G]`▗8CODE s DRAW ( LLIST [L] FLASH COPY COPY MERGE INKEY$SQR OUT RETURN RESTORE EABS COPY PEEK GO SUB RESTORE [L] OUT COPY FLASH ABS LOAD } ERASE DEF FN ABS l▝ BRIGHT ;"IN IN CLEAR PEEK t NEW RANDOMIZE [P] COPY DRAW [R]/ ERASE VERIFY RUN EXP ERASE *SCREEN$ READ COPY } STEP IN COPY NEXT CLS INKEY$`SQR } OUT n DEF FN SAVE COPY ACS COPY /ATN | CIRCLE PEEK INPUT VAL ACS COPY OR ATN ~[F]SQR mTAB SQR COPY SCREEN$ IN RETURN OPEN #*[U][N] CLEAR [U]~ CAT n▙ DATA IN CLS CLEAR H GO SUB PLOT USR COPY POKE IF LN OUT LPRINT COPY CLEAR IF RESTORE OUT PAPER LOAD FLASH PABS INKEY$ LPRINT OVER ~ RUN %[C] PRINT ▙6 LOAD ©©PEEK RANDOMIZE [G]~w COPY OUT COPY }▙^CODE W▗ RANDOMIZE ▚wA[C]sW;7 OUT IN IN CLS K_{© RETURN CLEAR PRINT G+ATN V[L]{eATTR COPY COPY FLASH [S]PI© CLS INVERSE PIATN } COPY ABS [R] FLASH COPY CLS INK sKPEEK RUN ABS ;)RNDABS [T] COPY mPOINT ~ GO SUB ASN ACS INVERSE U COPY INVERSE IN COPY PI_[ CLS LIST BEEP COPY SQR [Q] COPY ?@ OUT CLOSE #▚ LIST LIST pSCREEN$ [G]INT LIST POKE LIST CLEAR ?@ LIST REM ©Uqk▚q▝q[H]▛qTAB qNOT q INK q▝ LOAD ▚qr▛r1rGr]rp&psr:: SAVE [J] AND AND sr,r$r▜▜[M][M]LEN LEN STEP STEP [D]y$y▙▙[T][T]LN LN CLOSE # CLOSE #,[I]$[F][F]SCREEN$ SCREEN$ IN IN FLASH FLASH sr$$AA STOP STOP nHH[C] DIM DIM ,[D]33OOkk LIST LIST p▗▜[M][M]LEN p▗ ▗▜[T][T]LN p▗ ▗▜SCREEN$ SCREEN$ IN @▗▜%p▗`▗▜,,Hp▗▗r$ INVERSE p▗[A] LIST hshs|s|sFN sFN FORMAT sq CONTINUE s CONTINUE POKE s POKE #▗tt▚,t,t8t8▗<t<FtF▗TtT/t/hth1▜ptptSTR$ tztz▗▚t▚t[C]t[C][G]t[G]#[K]t[K]*[O]t[O]1[S]t[S]8▗INKEY$tINKEY$t/SCREEN$ t OVER VAL$ t STOP NEW INT t INPUT ▗PEEK t PAUSE LINE t RETURN ▗ VERIFY tuSQR ▘SCREEN$ COPY IN COPY ' COPY COPY FORMAT SmT. LPRINT [P]_ NEW PLOT BRIGHT [E]|ACS ^ASN =o OUT OUT < CAT CLEAR J/] FOR q[K]zF% INK REM <9H▞hyv INVERSE [L][C]g RANDOMIZE COPY <u%hCODE CLEAR 8ATTR OUT CODE REM "L'{}` LOAD ▛© RETURN 4PEEK PI© TO [M]o6HR MOVE [C]07`<>`▚▘ COPY LIST [Q]IN ?NOT RETURN MERGE H STEP LIST 0SQR CAT >=ABS AT FN VAL$ [I] BEEP w POKE c- TO fZ RANDOMIZE (ATN LEN , FORMAT [O]_( CAT COPY POKE OPEN #{ BEEP CIRCLE dEXP [C][A]8EXP INPUT `vNOT [I] PAUSE RETURN h GO SUB ▞ OUT [I]SCREEN$ jP POKE % xINKEY$IN DRAW q CONTINUE 'NOT [= OUT zfPEEK ATTR =[C][T] CAT f{ CLEAR [C] INK VAL$ PRINT zJ[E]<x COPY SAVE u LIST ;|W|SQR SGN Yt STEP DATA ©[K]▛ INPUT y[K]SD< SAVE ▗SGN ▙BIN D/dSTR$ "STR$ 2STR$ .[E]NOT ,NOT 4 LLIST LLIST LLIST LLIST LET LET SAVE SAVE [C] RANDOMIZE RANDOMIZE DRAW DRAW COPY LIST LET ▗ COPY SAVE [M]▞> LPRINT USR 7p[ NEXT ▝ DIM ATTR ▞IN LPRINT MPUSR 9<PI FLASH m LPRINT COPY [P]`▖ COPY p DRAW INPUT N[B]w SAVE IN LIST RETURN SAVE MERGE RND[C] RETURN DRAW N~z~INKEY$~,u8~d~[A]~BuXu DIM ▗LN ▗0[K]P▗ POKE ▗{u{u BEEP ▗[T]u[T]uH▛SQR u<=u OPEN #u RESTORE uFN RUN uv> INPUT |cATTR AND A)USR ▘A< AND x▘k READ E VERIFY RETURN lp COPY ▝ LPRINT 8~ RESTORE IN RETURN VAL ▚AT 3EXP [D][R] NEW [M] IF c LPRINT RETURN Q SAVE [Q]▙[H] LIST ` LIST p LPRINT DIM q©USR STR$ 8 LIST © DRAW `[P]<=( DEF FN ▙ REM G[Q] DRAW 8ABS B LOAD Q[H] LPRINT <=8 CLS INVERSE " LIST INVERSE LET 9v9v@▟}v}v[U]v[U]@▝v=[U]ACS v ERASE vUSR SAVE CNOT H#F[A]SN[Q][G]TAB O:@VAL$ ABS @z▖ CLEAR ~~IN SAVE |>P▗FN T*[G][G] SAVE ? DRAW ; CLOSE #[F]FN ASN >=ATTR [A]▚ CLS RUN CODE LET BORDER [B]$▞(~xi[K]5TAN =SGN <▟9RND) COPY COPY USR [P]`[P]`▞v DRAW ??USR ▗[J][A] ▘ LIST RANDOMIZE SAVE [B]n DRAW DRAW ▗ LIST [J]2<>tt,t,t8t8t<t<tFtFtTtTt/t/t`t`ththtptptttttztzttt▚t▚t STEP AND MERGE NEXT GO SUB ssUSR !USR FN ad MERGE GO SUB VAL ! OR MERGE LOAD PAPER D<> GO SUB LN !AT OR 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$ 1b LLIST ; LET w IF 1 NEXT <><= COPY ▘IN PRINT [B]© SAVE COPY PRINT FOR COPY IN COPY COPY INT SCREEN$ CODE DIM IN CLEAR ▝7 ▖ CLS CLEAR © COPY COPY ABS U]▚ LOAD COPY COPY COPY SAVE (▘ CLEAR {8 CIRCLE U<▝ DIM ▜[P]FN © PRINT COPY ASN INK L▚[B]X©IN COPY IN LN OVER [K]FN z PRINT [H]5 CIRCLE ? COPY [L] LET _ COPY IN [H]?FN ? COPY IF POINT IF PRINT [A]5 SAVE ? COPY LIST COPY IN [P] COPY ▖& COPY USR IF LEN IF PRINT ▝U% COPY ▝ COPY LET COPY IN ▝ PAUSE IF LIST R▝ PAUSE VAL COPY NEW SIN COPY STOP [I]▘▜ PAUSE ATTR STOP LIST COPY ▘W READ COPY USCREEN$ STR$ ▚ COPY V U0▗ RETURN IN TO dpp.^0^-^B^Z^W^l^9] CONTINUE ] LET ij LPRINT d4ee4e LPRINT dFU REM ▜^ATTR ^ TO ^k_ BORDER ^ PAPER ^ REM vb[L][M]b FLASH bAT cc CLS bE]m][G]]STR$ ] RETURN ABS [I]THIS INKEY$NANCY AT CHASE H.Q. WE'VE GOT A DEF FN EMERGE$HERE. A GANG OF1▞ICAGO PUS OPEN #ARE FLEEI[E]TOWARDS THE SUBURBS. ▘TAM CLOSE #VE;▘LE©O[A]ERMAN SPORTS CARUSR .[G] OVERVAL$ SAVE "YOK! YOU bUNDER[H]REST O DEF FN -# LIST CYSUSPICION[I]▗SELLVAL$ DRUG OPEN #Or IN ro)P DIM LLIST R[C]o5FSQR nq[B][A]/(~q[B]P<[R]jq[B]n5P[O]s ▚ VERIFY uq[B]~SGN *▛M[C]x[K]F&oR[A]`[A]*▗l[B]FN LIST *▜l[B]▗ACS PFN s ▗ LPRINT ul[B]STR$ LIST ▝P AND LET ▗ LIST LIST [A]USR IF j LIST [Q]USR PAUSE ▞[S] LIST LPRINT POKE _ CIRCLE ` BEEP SAVE ▙FN ` LOAD `<▘[O] RETURN T PRINT [F]K`aSTR$ U`aPp[A]P00<0p $0p. *"▝$ 0<▜P0P[A]>▜o`a@T▝Ppn0,`[M]J 0`VAL$ ▝Pp SGN p@TAN ▝[A]INT ▝pPxp PLOT 1▚POINT `Kal▝`k[E]A PAUSE PAUSE COS [S] LET LET STR$ LIST a SAVE XU[Pppp$p,8LN [Q]aSIN STR$ ▝[P]ACS a)*BIN a[Q]pq OVER 0 STOP P RETURN AFAAT ▝ FORMAT `$<>a PVAL QSIN (▝ LIST q VERIFY a LPRINT [K] FORMAT by IF IF z LIST LPRINT PAUSE PAUSE [B]VAL [J] IF INT Y LIST LET NEW ▖ NEXT NEXT NOT CLEAR CLEAR ABS RK▝XEXP ▜8▚▙[O]@SQR ▘_POINT ▘`q FOR ▗ Ca22r1 LIST LIST @[S]p3rDRFpppE?▘ b[Q] RANDOMIZE RANDOMIZE IF ZI LET LLIST PAUSE PAUSE Bq`wba[N][I]%m;9" FOR ▛[N]bABS SIN ▝TAB BRIGHT ▘ BRIGHT b)▜ DRAW bUSR Pppp$p.p8pB L0cpWp_pipsp}p▜p[B]p[L] W▗TAB c LIST P INK PRINT ▗[A] RANDOMIZE [J] LET RANDOMIZE ▘ RANDOMIZE POINT NOT IF ▝*USR RANDOMIZE ▝EXP CHR$ LIST ▝[A] CLEAR [I] CONTINUE PRINT PRINT RND CLEAR -kY SAVE -_m+)'%C[R]+$▘(>= SAVE [B]h5#A?1 FOR I SAVE &R CIRCLE 2 OVER ▝2▝2 IF a8[L]O[R]▝ ▟UV▘@sVAL$ t$t"4sUSR ▝0" CLOSE #C DEF FN tV▚[A] LIST `RABS T▛tMt©t▞ MERGE CT▟▗@ LIST [Q]t<>t OPEN #ct RESTORE [F]▘ LIST t CIRCLE t STOP t GO TO $r THEN t BRIGHT TT5p FORMAT PASN (,[P]PEEK INPUT BORDER COPY ACS STEP OUT COPY } BEEP COPY COPY NEW { CLS COPY USR RESTORE COPY [Q] GO SUB COPY USR
