| Is a part of release: | Spectrofon #06 |
| File size: | 34304 |
| md5: | 577263a36d98c6d5781b7a52fe5e2705 |
1 RANDOMIZE USR 0 NEXT 1FN a!@@ COPY u GO SUB VAL CODE OPEN # RETURN CLEAR ©> GO SUB y OR !USR GO SUB [ POKE / STEP = STEP USR CODE STR$ > GO SUB y!FN a{ GO SUB [ POKE / STEP =NOT FN aSCREEN$ !ASN )"[B]/!?"PI/!▖'"]![I])" CLS ]CODE 2 RUN /=2]!@USR GO SUB VAL !HHu COPY GO SUB VAL ! Y!Y OUT 60 GO SUB VAL ! OR ^ RESTORE STEP [L] LLIST OR STEP YBSTR$ x= GO SUB STEP [H]E STEP ©E!USR @ COPY GO SUB VAL NOT D@ WRITTEN BY LAPTE VERIFY FREE MEMORY-45056[Q][Q][Q] DIRECTIVES STEP NEW <> NEXT GO SUB ssUSR !USR ▟[d MERGE GO SUB VAL ! RESTORE <>o CLEAR d<> GO SUB LN ! POKE LIST ~ 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 RPI2 LIST > RETURN CHR$ LIST ![G] DRAW "i LIST !CODE DRAW "PI LET ! FORMAT DRAW " READ PAUSE NOT P LIST RETURN CHR$ 9 LIST !VAL CLS ▘ BORDER CLS ▝P▜CHR$ P LIST ! INK PLOT 4▘q SAVE 4▘ CAT SAVE 4[C]>2` LIST 2[O] LET 2 PAPER PAUSE 2▘ LET <>>=CHR$ ▝ LET ! FOR PLOT ~#PI([D] RETURN PAUSE 2u LIST * COPY PRINT NOT kI▗ ~#▝"0[R] 7 CLEAR COPY > GO SUB y CLEAR IN ~ GO SUB y2 POKE 2 DRAW PRINT 2 PLOT #~2' POKE 2/ POKE ▜M POKE 2U POKE 2Z▝ow POKE #J▜ CODE 2i LET U ▛0▝a▚26 PRINT 2} LET &▜CHR$ COPY LIST ~210▟CHR$ LET ^#V#" PLOT MERGE LLIST ▙▜CHR$ LET * PLOT [J]▗CHR$ 0 LET [K]ASN PRINT 2CHR$ PRINT [S]▝<>VAL$ ▟ AND VERIFY _2 CAT PRINT CODE 2<= PRINT ~ FOR ▝#4▜! PLOT ACS ▝PACS NOT ▝CODE CHR$ ACS R PRINT GO SUB y>= : PLOT THEN POKE : PEEK ▘>[G] LINE [N] LET ,▗=CHR$ [N] LET RANDOMIZE ▝ RANDOMIZE : PLOT 5>▖[O] LET CHR$ INK PAUSE !> RANDOMIZE >▘ LINE [A]1? LET 2TAN LET * PLOT NOT POINT LET A?TAN LET "0 /?▝a?▜[A] POKE 2 CLEAR PRINT 2?▗[H] POKE 2[Q]?▗PEEK POKE 2<=G▝ BRIGHT 7B!7▘ TO PAUSE M170 )p[A]~2 PLOT # BEEP ▘>@▝▗CODE 2t PRINT ▚▜CHR$ X PAUSE ~#< POKE ▘2 [H]▖CHR$ e PAUSE ~2▘ PAUSE b▗CHR$ v PAUSE !f▝fASN ▚CHR$ ▝ PAUSE *USR !Q▝~2▝#xqJ▘>qJ COPY >AK GO SUB y: PLOT , LINE THEN PAUSE A,)▘ VERIFY *1c▗: PLOT LOAD ▘[A] POKE q▗CHR$ POKE !ATTR q<A<▖ LIST PAUSE * PLOT NOT RESTORE PAUSE B{ LIST PAUSE "0A<▝b{▜ READ POKE 2 RETURN PRINT 2{▗ REM POKE 2 NEXT { PRINT 2 PRINT ▛/ PRINT #B"s▘ POKE M2s0q<q<q<q<▝ PRINT ▚▖CHR$ [A] NEXT ~2 LLIST NEXT Q▗CHR$ [R] NEXT "[B]▝[B][U]▚CHR$ AT NEXT * CODE ▗CHR$ AND NEXT +▜a PRINT 2o PRINT >▝n0CCHR$ CLOSE # NEXT : LLIST NEXT 2 READ NEXT BEEP 0▗ AND VERIFY !a PAPER PAUSE # OPEN #rATTR ▘>rATTR COPY >aa▘>F▘ PLOT RANDOMIZE ▖ READ POKE > RETURN LINE L!M▗' POKE H OVER ▘' POKE s[O]▗: DRAW PRINT <2 MOVE ▗ GO SUB yNOT v!s▗M POKE " CIRCLE ▝MINKEY$s<>+▜= GO SUB y RETURN LINE v DEF FN ▙>PI(G:` LIST LN > STOP .p▝ABS !ABS ▗[H] POKE CHR$ STOP F▝[H] q2 FORMAT ▘: CLEAR q! OUT q▝= TO '▝ CLOSE #r RUN ' m▘( CLS NOT ▝hBIN ▘CHR$ 5q TO q BORDER ▗: RETURN PRINT <e INPUT ▝NOT LEN ▘ PRINT '▝ FOR r▝ RETURN L6 PRINT LOAD [F]6 PRINT ! POKE PRINT >< NEW 2E PRINT _~ AND Wc DRAW ▝z SAVE ▚ RETURN COPY LINE TAN PRINT =ASN ▘CHR$ TAN |▘a PRINT b▜ LINE [C] PRINT : PLOT <C▞ RETURN CHR$ INKEY$ PRINT :t PRINT INPUT LINE >NOT PLOT =▝p▝ PRINT SCxT▗PI LINE NEXT S▗ASN PRINT CHR$ NEXT N[R]▗> INPUT [B]▗_>5t▙t▙d▙IN GO SUB y<> RETURN CLS CLS RETURN DIM PLOT y SAVE OPEN # SAVE STR$ CLS ~ SAVE CIRCLE SAVE M▙ PAPER / RUN h LLIST a DIM wPIIN G GO SUB [I]G DRAW TAN p1 POKE SGN ▚S$ PLOT TO [U]~Z8 IF OVER NOT SCREEN$ [C]{fR?-IN CLEAR LOAD LLIST MERGE <>PEEK COS POINT [P][G]▙▚©wqjd_YTPKGC?<852/-RND*(&$" [G]88▛=?@BDD0▘E▘B0▝B,▘@?:▝? BPI<ADABEBDGDEHK▘'(▝92▝?v0▞E?BEH0▘K0▘N0Q_▝_▝Q▚n CLS ▚E▝I▘▝▘E▝t HINKEY$▗ A▖@DGLPppp p(P8▝;@:Pp0Z▝8@"Pp0:▘6 RANDOMIZE INKEY$▝ RETURN ▚ DRAW N RANDOMIZE CLS [C] ▝$%(#!0▝(Z▗g RANDOMIZE IF ▘@▝▝%▝▝' STR$ 0▘ RUN @:▝ DRAW @B▝ PLOT ▝STR$ O@▜%▜D%▝▗P%0▞%U%0 PLOT ▟8PI▝D ▝@ ▝=@T▝+▜/.7[J],+*)('&%$#"! ©pVpVpVpVpVpVpVpVVpTAB TAB ▝M TAB TAB MA@TAB 0pTAB pTAB pTAB pTAB pTAB pVpVpVpVqqqpTAB qZ!Z▝O!ZOF!b▝C ▝@@qZqZqZqZqZpVpVpVpVqVAL qVAL qVAL qZ[H]48;>@DGJLPSVP▝!7:=!CFI!ORUP▝I▗▘C▗] DRAW ▝▝▝▝▝▝#SGN CLS POINT ▝0[N]*****USR ▝[P]▝[M]▝[J]▝[I]*$* LET E▝y▘▘Z▝▘Z ppp$p"4ATTR ZZ DRAW (+.147:=@CFILORUX[▝U▝O▝I▝C$▗= RUN NEW VERIFY ▜8?0?[U] DRAW $>!H CLEAR DRAW ▝▝ RETURN EXP DRAW BIN INT [Q]Z.sYYPp4p44[H]p6s0P PAPER DRAW ATTR ▝ ERASE SCREEN$ 6TUVvSCREEN$ <=<>EXP ▝ INVERSE OR CODE STEP cI MOVE 8 LLIST |ASN <>H STEP eHSQR 0 IF RETURN STEP > BRIGHT NEXT GO SUB s! AND a▟[d MERGE GO SUB VAL != BRIGHT COPY COPY z<> GO SUB LN ! GO TO FN a~ 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 1PIa NEXT NOT G▜[F]NOT !XX6F GO SUB VAL 6E`[J]X? GO SUB VAL STEP $PI! @ THEN SIN STEP `SCREEN$ STEP INPUT [R]G<>IN <=GREAT BONUS STEP MOVE i OR STEP [R]STR$ RANDOMIZE STEP READ ATTR ! X_ GO SUB VAL 2 OR X THEN # THEN # OR ! BRIGHT b STEP PEEK bSTR$ STEP POKE [Q]STR$ ▖ GO TO !_ X ![C]:xa NEW 2xa STEP BORDER b*xa|ASN ( [C]PI GO SUB R"xa*va"va*[N][N]a STEP DIM iNOT 1b! BEEP Jp▘! OVER S▟ RETURN >= RETURN STR$ LIST <> STEP ~RNDINT z( TOOLATE !R P OR [N][L] RANDOMIZE NOT [b"<>b!(X, IF > STEP ASCREEN$ c▙-[U]w<>s<>~PI>= NEW OPEN # RETURN 5!POINT [D] STEP CLS b>0NOT [S] LIST CIRCLE STEP c DRAW ▘[M] COPY ▘} AND CODE <8 DRAW GO SUB B= {PI>0 LINE ▝ `▗F@VAL h[D]<> COPY [B] ERASE Qc▝Ox AND 0 STEP [S]y J!@▟PIANOT uTAN ▛dc! COPY [I] CLS v CLEAR NEXT <> CLEAR 63 COPY CLEAR 62 COPY OR !@Px MOVE IN FOR x!ABS c STEP FSCREEN$ FOR STEP fSCREEN$ STR$ NEW !STR$ P[M] OPEN #NOT `SCREEN$ ~ CONTINUE _ CONTINUE @ CONTINUE ! CONTINUE CONTINUE READ BORDER BORDER RUN NEW RUN NEW BORDER ) BORDER H BORDER g BORDER ▚ BORDER ▛RND BORDER BIN BORDER :▘a<>=:!▘a~PI(5 RANDOMIZE 6▞/ NEW PRINT CLEAR 53!IN a▗!AP LET Bh▟NOT fSCREEN$ !d~< NEW ©wUSR 4< NEW w CLEAR 43! CAT cI▝ PRINT i▝~[Q][P]![E] OPEN #`z▗N LET ! BEEP POINT [G] yINKEY$ FOR y/INKEY$ FOR INK OLEN INK w STEP #SCREEN$ GO TO RETURN USR ▛INKEY$▝ SAVE =▛ NO MORE F▙<=ENERGY LEFT>=[G] STEP INKEY$dNOT We!"VAL dK OR !▟ STEP ASN [Q]*VAL d RESTORE OR ▘0▝SQR ▝ LLIST 1STR$ DEF FN <>:oa!I[M]>▚~ STEP j PRINT 2▜ STEP Nc+▚ BIRDSW LET "[J]▗Pl"▘ STEP *(▝ NEXT ▘ STEP K1|▗X .& CIRCLE "e[A]#xLEN LET STR$ BORDER NOT ©!W PLOT ▞D RESTORE MERGE STEP ▟e FOR [D]# POKE MOVE LLIST STEP QSCREEN$ STEP 2SCREEN$ CLS vv NEXT LLIST r▘ GO SUB VAL 6[F] MERGE RESTORE STEP DRAW PAUSE ~ FOR LLIST RETURN H68 NEW x6 COPY MOVE BSGN COS ▟ INVERSE ~▜▜o▜! POKE INKEY$2 ERASE ▖:/a!(~▝~0▘#f▖NOT [S] RESTORE !▞~PI LLIST <> OR RESTORE 2f0▗61▘x=CHR$ ▛ RETURN 6 LOAD LLIST STR$ <>`.(5 LLIST <>>=<> <>* ANTI-GRAV "ROCKEj/▖LAUNCHER:▖EXPLOSIV OUT ▞ TELEPORTSPACE BURG&▝D[S]▝HA▞AY MININGB▘MP$COS ▟ PUZZLE!wQ DATA j LET ▛:PIPI LINE e LIST !VAL fB[M][S]PI5!▘PI~= NEW w RETURN CHR$ MERGE f CLEAR 55 GO SUB [PI:a_:▘PI!{PIATTR ▞ DRAW <>W▘ } THEN >, CLS o[M]▝ATN ▞ CONTINUE <>*[C]a GO SUB [va ERASE ▗ FORMAT >NOT 2LN ▛[O]}"[S]!9{"[Q]}T8 STEP [O]}▗"[S]▞<>>© FLASH RETURN CIRCLE > RETURN ▝ CLS RZ▗PAWS MOVE DE ON▘AB PAUSE [B]? (Y/N)> OUT FLASH RETURN THEN g LINE ▙x:RND THEN _ LOAD NEXT STEP LLIST dNOT READ ATTR STEP AT g STEP BEEP INPUT STEP c LOAD STEP LIST STEP BRIGHT LOAD ! Y!Y LPRINT 6B REM REM ▝NOT READ [A]`@`A RESTORE 6U>SCREEN$ R RUN LLIST MOVE ]`UX STOP !@v▘6 COPY FLASH ▙<>> STEP PAUSE g▝> ▘>!CODE GO SUB Sh8▝GQ▘PI THEN ▖> LLIST ACS w> %F[G] DIM STR$ LPRINT <> STEP ki!▗HbEXP MERGE STEP zSCREEN$ MOVE ! LET H0▘ASN H▚! CONTINUE HSCREEN$ LN 0▝ RANDOMIZE @▝CHR$ POINT EXP i"" !! !▞!F RANDOMIZE ▛`6N GO SUB VAL [Q]6M▗@6X^▝IN OR S READ "LN ^STR$ ▟ AMMUNITION C LLIST ▘TPI# BORDER ▗<>NOT [C] OR ▖,N[P][P]N,U REM [B]i CLEAR F<>([A](29icATN :aPI▝I0▘!z▘ [H]<>x>=pdhd`2X2PH@IN ▛"/[U]CODE 2Vax!Ui OPEN #▚E|2▛i OR VAL$ NEW AND GACS ▚O:▛i THEN !USR ▜▗▝O STEP SGN PI▝ READ [L]<>2POINT ATN ▝ RESTORE GO SUB GO SUB VAL LLIST L[E]STR$ PAUSE <>@.@ [E],.^IN 8T LLIST 7 LET ▘TAB ▘++[S]D RANDOMIZE ▘PEEK NOT CLS b GO SUB [7ATTR <> STEP j>=PEEK ▝#PEEK ▝NOT FLASH ▝v▝[N][N]<>:ca CLEAR ▚ CLEAR ▚PI<> INVERSE LLIST <> INVERSE RESTORE !%j RESTORE INVERSE !K[C] INVERSE 6U[J] STEP SCREEN$ NOT ▙jNOT /j:eaPI>= INVERSE ![J] RANDOMIZE INVERSE 6 INVERSE 6▘%▗<>:d▗ CLEAR 6@7▖:B[C] AND d INVERSE w& CLEAR 6D▝QR INVERSE ~ INPUT INVERSE wt▗PI>= TO b[I][H]T"[J]T"[L]T"[N]T"[H]U"[J]U"[L]U"[N]U<>D GO TO u CIRCLE RND5<>U> RESTORE USCREEN$ PEEK REM SCREEN$ UOEXP USCREEN$ CODE INT SCREEN$ US INPUT USCREEN$ ATTR INPUT SCREEN$ UT CLS [F]SCREEN$ SCREEN$ CLS SCREEN$ NOT COPY ▝1 STOP @▝@*0p &pIpWp^ j 'psp▝p▖p%p[P]pINKEY$TAB 0ABS OR w$ IF STR$ <>| NEW USR o| NEW SAVE PLOT @g<> INVERSE !B[G]▘1▝▖ INVERSE 6:[PEEK ▝lu GO SUB CONTINUE ▗ POKE <> COPY COPY NOT USR P[J]@[R]▝@ AND USR ▝STR$ USR USR 3 COPY RETURN 0(Q=S,0(▝@@P▘ COPY COPY ~▞{>= INK VAL I yWELL DONE!!THE GRIFFINSA▝A [C]EAD!!<=X RESTORE INK IN q LLIST LET y2INT X2INT Y<>m m$m(m[M]m[Q]m[U]mFN mn n$n(n[M]n[Q]n[U]nFN n,m0m4m8mAT mVAL mTAN mLN COS m,n0n4n8nAT nVAL nTAN nLN no o$o(o[M]o[Q]o[U]oFN o,o0o4o8oAT oVAL oTAN oLN o AND ▝ TO ▝`▗ '▝p<>`Z▞@c v▞ !"@▚ ▘# 0[P]▗$%&'<>▘(0INT ▝EXP ▗)*+,@STR$ P▘- MOVE @ MERGE ▗./01p RESTORE ▚2304@▝@ CLEAR 56789>=:;78<`[B]▙=>?@ABCDE??FGHA)IJDKL1:MNOPQRSTUPPVWXY!O▚Z[/]^_qV`abc0▝u▚defbcgqz▚hijklA▝▝"▗mjkn1[B]▝!v▗opqr1[T]1PI▗osqtqCOS BIN ▝u TO ▝v! INK [A]wxyz{|}~©▝▘▗▚p ▝▜>=R▖▞NOT ▞▝▛rr▚▟▙[A]BIN ▘[B][C]r2H▗[D][E][F][G]BIN [F]▘[H][I]rr▗[J][K]▙ AND @rR[L][M][N]NOT [M]▝[O]r[B]rrPOINT BCOS rrSTR$ "SCREEN$ " FORMAT r2q1▝8CHR$ GUSR E▝F▗EGDDNOT E▗FEMH@▝M @▘DDCHR$ M▘BBCUSR DSTR$ AMMA0▘EE@0V▘GE_o DEF FN CNOT ASTR$ D0:BIN AE[ ERASE ▘P' MERGE [G]#& LPRINT SAVE @`PH,[U] OVER ▜ <~▚~<FLH▖STR$ USR ▟INKEY$INKEY$FUSR ``USR ▝▝CH ▝@P[K]?©© LPRINT SAVE DRAW RETURN RETURN [O][K][C]▟A@@ SAVE &o[I]© LPRINT LPRINT RETURN RETURN IN CAT OUT C##!!""ZHRT6▚!q|▝p▚[D]*[D]*▝ [O]▚[K] LPRINT PEEK ~ CLEAR RETURN LET SAVE TASN k BEEP , OUT 7 COPY ▝CHR$ STR$ [S] MOVE REM PRINT (mqBIN `/▝BIN ▝STR$ [A] LOAD COPY OUT OUT ©oww POKE IF IF CLEAR CLEAR RETURN RETURN COPY z▝©PUSR LIST ▞ NEXT CLS PRINT RANDOMIZE DRAW IF CLEAR IF 0PEEK ▘=PEEK %▗USR USR LPRINT LPRINT PH[N] DATA PRINT SCREEN$ UATTR BEEP <= CAT _} RETURN CLEAR IF PRINT FOR OUT PEEK ` LPRINT LPRINT FORMAT FORMAT LN xLN ▗▗ +▜P%>yw CLS RUN INPUT STEP USR CLS IN OUT LOAD RUN CLS USR DRAW ▞ RANDOMIZE PAUSE RESTORE U+_ABS |NOT DRAW ▝ SAVE n)▖ CLS RUN VAL$ TAB u3P!CHR$ ▚? COPY :CHR$ IF STEP ▗><< LIST ▝ CLS ISTR$ ▘ CLEAR IF PI[D]??} RANDOMIZE CLS NEXT RUN BORDER LOAD OUT SAVE SAVE LIST LIST LPRINT LPRINT USR USR aBIN m[I][P]1.nt ▗[Q]USR ©SCREEN$ ?~8▚CODE _[P]?IN SAVE 7 LPRINT LOAD OUT OUT USR RETURN !▗ COPY MERGE :▚[C]PSCREEN$ PSCREEN$ FORMAT :SCREEN$ U COPY USCREEN$ U COPY 0▝P▖ RETURN TSCREEN$ T COPY ©©(o▗kIN © RETURN VERIFY SAVE SAVE SCREEN$ UIN (@©[A]atn.1[P][F]©USR ▗@<>&q▖} IF DRAW IF POKE IF POKE FOR pH0HFN CIRCLE BRIGHT INPUT REM BRIGHT 0[S]SCREEN$ u;uzABS [P]o RUN CLS PRINT DRAW DRAW CLEAR CLEAR CLS CLS RUN CAT ]ACS ▘ LPRINT LPRINT WATTR [I] CLOSE #SCREEN$ U*uz=oATN [ASN P@▖@@V POKE ▗ GO TO [N]};USR :▘?USR ©▛?USR FORMAT LN PEEK w REM PLOT 7 PAUSE ▖ CONTINUE [F]i*2:P▘pTAB "v PLOT POKE GO TO CONTINUE CONTINUE " MOVE p▝P CONTINUE CONTINUE PPI▝G▖© COPY MERGE y BEEP SCREEN$ PRINT IF F`LN TATTR J▝NOT ATN ~▘n MERGE IF PRINT SCREEN$ )AT ▚<=oIN zUSR ▖ RETURN UUSR pFN TSCREEN$ MERGE ([C][P] COPY u= REM PRINT RETURN COPY IF UUSR VAL XVAL$ 0▚ COPY ~] LET ▟SCREEN$ [I] COPY MERGE SCREEN$ PRINT RETURN USCREEN$ USR LIST /VAL$ LEN P▝ READ _ CIRCLE @▜3g CAT ▝U SAVE PUSR LPRINT 0 TO NEW NEXT ▗9[P]>[S]8~ RETURN PEEK PEEK USR [P])[A]'@▝NOT _8|G9:G|8 COPY LIST )] COPY ©p(`8▖ RETURN COPY CLEAR CLEAR RETURN NEXT NOT s NEXT 93 COPY /▚ DRAW |>[P] CAT g▝[J]@▜ NEXT NEW TO [I]0`USR Qg▜ STEP ~ CLEAR 6^ COPY ▛ STEP nc STEP 2c STEP CONTINUE w[G]O LIST k%# !' [L]%GCODE CLEAR w" CLEAR w# CLEAR w$ CLEAR w%!I@"yw!BIN (▚!ACS wx3[C]x=w POKE STEP MOVE i STEP x CLS 2v CLEAR NEXT STOP ▚ LIST MIX[U]▞PIECES!P[I]~><>2tw2VAL wd OR STEP g[R] NEW 2sa STEP ▛wl▗STR$ INPUT CODE 0t STEP tw> STEP RUN } CLS vv[D]i![P]v RESTORE STEP [U] PAPER CLS v PAPER w PAPER '▝L▙▛w LLIST STEP LPRINT v:xa CLEAR ACS ) MOVE Z▗ AND , INK ▘ CHR$ 0<> STEP tb<=p NEXT ▜!! RESTORE CLOSE #▗@ MOVE {PEEK USR PI[K] LLIST STEP INK aNOT <=v:ta RETURN >= CLEAR 4$ CLEAR 4# STEP pwNOT twLN ▗5$ CLEAR 5 ▚ DRAW COPY NEW :u0,▟%!sa~ AND w*yw y CLS "Hw=G▘CHR$ %8 $▝ VERIFY P$▝Q$▝lP$▝[O] PRINT NEXT OPEN # DATA x▞>VAL$ 2jSCREEN$ STEP `SCREEN$ CODE P▜<>:sa!ATN w INVERSE ▜PI>=O6:r@▝q2ra▖: STEP CLOSE #}NOT *[R]{▝*`COS (X,X0X4XFN XAT XVAL XTAN X(Y,Y0Y4YFN YAT YVAL YTAN Y COPY ! BORDER w4~ RETURN 6 COPY NEXT ~!xx<>SGN l BRIGHT l DRAW l OR x! OR wCxxc OR x2x RESTORE ~O!p|▚2Fxi&USR )SGN p FOR #8[D]+ STEP ▗PI STEP mx LLIST # CLOSE # RESTORE *CxR[C] LLIST STR$ INT STR$ [M]<>x RETURN LINE txCODE 2|x STEP ▘ INPUT CAT [B] SAVE >= %~ INPUT COPY wSTR$ <> NEXT STEP gBIN ▘[C]c*▘vab! IF [A]G( !XR RESTORE 9 LET !"SQR y STEP KPI STEP ATTR a DEF FN ▞EXP e CLEAR 6 - CLEAR 6!5▗F :`▗>▝POINT NEXT 1:Ya RETURN PRINT CLOSE # CLOSE #} LET 0>< NEW 2yBIN CLOSE #} RETURN RETURN RETURN STEP ▛POINT STEP LEN ATTR t▞ STEP [I]FN STEP POINT STEP /POINT [D] RETURN [U] STEP Ty STEP {y STEP TAN y>IN FLASH RETURN ERASE B{STR$ PI(CODE [C]ACS NOT >2gy>2py RUN RESTORE !▝w# RANDOMIZE >o0$CHR$ fy<>:paPI( CLEAR 5 CLEAR ~!▜[B]NOT p[B] BEEP ▘ AND ▖ STEP -[U] NEW !y LOAD CLEAR w▚ CLEAR w!<=9 RETURN ,USR %▚#} RETURN ▘SQR y▞]T) PAUSE y RESTORE C+▖D LLIST STEP [S] ▘STR$ ▗STAR OR PAWOP▝R FLASH R. TRO DIM ▖RESENTED@2▘BY@;SOFTWCOS F▚ROJECTJ▚CONVERp0p0p0▖CREATION<>[F]C64 ORIGINALJOHN DARNEC.I▝S'sSTE[▞RKGRAPHIC▚BYPETE<>▙GOUGH128 MUSIC[R]TIM FOLLIN IN 0CHR$ ▗RFOR[P] CIRCLE _0▝BK TO▘US TO !▝T BEEP =▘FIDAYv▘ESNOT 0MEz INPUT [R]G[R]^▘ELhu! p▖ CLS STEP )}TAB [B]LEN {> RUN FLASH RETURN 0p!U▗i!fu[B][0{> LOAD FLASH RETURN THEN g FORMAT STEP *[R] CLS a▚NOT ▙x> CLEAR q8-> CLS 8$▝ ~pA0D.15/2/88 THEN @[O][D] <> CLEAR qy2 RANDOMIZE [T] STEP |6G[N][F]NOT o{>E2D}2U}2f}2u}2▚}<>ASN ▝ CLEAR T▝CODE 0(▘>GSGN ▘6|COS ▘ OR q[G]▙{ATN PAUSE 9|! COPY ATTR AT p GO SUB VAL STEP USR ||▘UPc▜!AT STEP LPRINT |0▗DOWN▝pLEFa!p&▘HT9▝p9!zL▝ L s▝AT d▞ <> CLS G1 DIM KEY IF ▜R ▚ NEW |NOT [R] RESTORE VAL$ [B] IF BORDER |!o~!AT PEEK ( REM USR #[M] SAVE LLIST w{ NEW O THEN ; THEN ; THEN ;C> CLEAR +wACODE =LGOKi▘ INPUT [R]L▘3;5▜G1]t▜BOARD▙2 EKEMPSTON"▝3▖CURSOR1▝4 SINCLAIRB▝51▝R CLEAR ▚FINES▝6B▜EXIT<> INK X▟w#"[Q]} INK <> PRINT OR MERGE RESTORE INK ▛ INVERSE RESTORE CLEAR RESTORE GO SUB W PRINT > GO SUB G▟ LET GO SUB G CLEAR LLIST INVERSE LLIST LLIST MOVE STR$ LET INK ▜ CLS <>>ATN >= NEXT @"[D] CLEAR ©> GO SUB y OR STEP _ LIST 2!~STR$ > GO SUB y2▘<> NEXT ▖ GO SUB Y OR STEP LIST ▗2 MERGE } CLS COPY > GO SUB y>?IN GO SUB yCODE COPY COPY COPY COPY COPY COPY COPY DEF FN >NOT 2 LOAD /!G▜" LIST RETURN [! RETURN ["=/ CLS STEP o FLASH [A] THEN G SAVE INVERSE !AT CODE 7 STEP CHR$ ▞ INVERSE !u7> COPY `@ DATA ABS `["s▗ LIST LIST 0)"z▗AT IT! REM }:▖@[E]u GO SUB VAL pG▜ STEP VNOT 0ug[L] RANDOMIZE USR 49152Star Paws 7 DRAW ▘7>= & ERASE v THEN 6 INVERSE ▗ RETURN A LCHR$ GO,▜A GALAX%▗AWAYSTR$ .▞WHOOPS!,W& SAVE ▙ONE RETURN RETURN CAPT. RO OPEN #w▗ HAS▝EOSSIGN[E]THE DIFFICULT JOB OFL▗RACK/%& D>ROYA▝A▘CO[S]▝Y,▙TASTY SPACE GRJNS.&[I]▟UT IT MILDLY,h▗FUTUwaw[N][R]UNI/▜[C]EPENDS UPONHIS SUCSCREEN$ ▝SCHR$ . DEF FN ▝A"▜E,UNARM STOP ▞& AFRAID, DEF FN (!pLV DATA ▜SUPPLIEQhDROPP▗FROM/M▗ SCOCOS ▖CRAFT.LE DEF FN ▗ HOWb`(f[B]ITEMS ANDYOU WILLW▗ ABLg!s LPRINT [U]A0PI▝L!%fq)zq* OPEN # PAUSE ^[O]FN AT ▘TW TO 1q▜BIRDS,T LINE ` LPRINT ▘RF▗,SIX= BEEP ▝V}▗EY,&R▘UR1<> INPUT ▝MVAL ▝.0 CAT F _ IF ▘RI▝▝L(▝BABS r INVERSE TCHq▜o▝HCOS G▗ALSO0A""[F]▝ RETURN 9PICOO"F▗TRUCI;" DATA ▜STR$ >= GO SUB -▜REWNIANW▝ Z[C]▘30TAN ▚UTES,GdISH▖WITH WAV▘DDNOT ITT▖▘SA<=[R] {▘AT LET ▝L8RAD 8pWTWO LPRINT LPRINT r/ THEN SLI OPEN #▗THINRSERVE0x6▘GRTA▚[S]ERD CHR$ ▗VODT USR ])x▛_q INPUT !JABS ▞OCK MARKE'▘PO)USR $▗▝DSIN ▝WASN p LPRINT HAK( MERGE )▝O.) OR RUM BORDER INPUT @E▜OFA HUG}SATTR VAL ▝EFCCOS sTAN r THEN P▝▙S PAPER ▟▗BRIS|f?▘IR[F]O▘PR1▝F4$▝Me2▝7p▗POIN"0 GO TO RESTORE EVEF"▝S@ RETURN [E]▝OW "NqOUS".R POKE RFUR▗ NEWjFLE>▗COMM IF K FLASH YUSU▝[O]▘IL3+YISSUE[U] DRAW PEEK ▗RO T CLS ▝XA▘PA VERIFY ADMMEDHAVW$ STOP SAVE Q CLS PAUSE MUCROU DRAW "[▝7 NEW a]BTk! AND 2d CAT p THEN STEP TP [P]0PEEK PAPER ▘VEt' LINE ▝ RETURN PEEK W▗M WRVAL ▝N READ |▛LL,x▝M OUT +`/[A]9▜ COPY NEXT 1PI`?>=*]^[G]▝KACS ▘TOS;▘PAz▚ NIKIT[N]USR !=▖;[C] NEXT OR !X~PI(5~ NEW READ ▖xLEN LIST STR$ NEW '/[R] RETURN CLEAR q# DRAW q> RETURN GO SUB G GO SUB ^> OPEN #©CODE OPEN # OPEN # RETURN !Pa RESTORE CLEAR LLIST Xw ERASE [S] CLEAR CLEAR !POINT }" RETURN CLEAR ▘A! LLIST [D] STEP %@!▝[D] STEP (@!LEN P[D]!STR$ [E]Ps#r#> _0 q▘/[U] INK ▜F@r▗d OR 0 RANDOMIZE G STEP SGN [R]STR$ GO TO v[U]▝ CIRCLE [O]ABS ~ RESTORE STEP [S] LLIST # RUN "P▖~<(< STEP N*P▖#▞ GO SUB v STEP Q STEP FTSTR$ RANDOMIZE OVER [R]O LIST k !'#%!())%0!$[J]&!"#*#%)"#&▛&!"!!#▘IN ▘VAL$ ▝ ▝▗ASN ▝[A] STEP [C]c!&▞"~USR GO SUB VAL uVAL ',Gd[K]TAB (;KR0[N](8<JR$-2[G]#"-8D00% 3▝7 N▝0▚$.0c▗▟▝u[B]@Vn▚[M] BEEP CODE FLASH RETURN / NEW CHR$ ▘▖!A&▘IN g▘ PLOT Q▛ STEP #SCREEN$ STEP 2SCREEN$ GO SUB <>p"!▝ FOR ▝ FOR [A][B] PAUSE <> STEP ! LPRINT W6, CLS G THEN ▝<> PAPER MERGE ▘$▗ NEW AND LN r$[I] GO TO NOT 7:USR RETURN INPUT USR ><>2 RUN }2 CLOSE #} LLIST NOT ▜ NEXT [C] STEP BIN k STEP N LET STEP TPI STEP EXP e CLEAR 6 CLEAR 6 STEP b[D] STEP (j STEP LLIST d^2c STEP ATTR a▖ BORDER b> STEP RUN } NEXT v▙ CLOSE #} STEP =g STEP d STEP ▛POINT STEP LEN ATTR [H][I]FN STEP w STEP ▛ STEP POINT STEP /POINT STEP RETURN [U] STEP TAB INKEY$ STEP [T]RND*IN d[O] STEP [B][L] STEP S[G] STEP DEF FN [P] STEP *▛ STEP ▙[R] STEP j STEP FOR LET STEP ▛NOT LN STEP jUSR :zaPIUSR NOT e:[a INVERSE !B[C] CLEAR ▚ INVERSE w:▝aPI>= CLEAR 51NOT ▗g[R]:|!f▛ RESTORE CLEAR 4W CLEAR nW&STR$ ) STEP ASN [Q]:}aPI( CLEAR 5.▖USR CLEAR 5,<> CLEAR 4.▚:~a RETURN CIRCLE :©ah▜ STEP ASCREEN$ ~#V CLEAR ▚.h[K]!▛NOT 5[J] BORDER NOT ▝<~~▝<NOT BORDER CODE ▘:`▙▚:Ya![B]▛6[E]N![H]▛~<[R]wUSR !D[C]~< NEW w<>:[U][J][E] LIST :ma RETURN 0!IN ▛5USR 6![B]a@▝Z LN ▖<> INVERSE 4! DEF FN TAN ▛( CLEAR 67NOT [O] CONTINUE INVERSE ~A INVERSE w<> STEP LET ▛ CLEAR 5;VAL ▚: INVERSE 6 INVERSE INPUT 7CHR$ e[B]x▟PI( CLEAR 5 CLEAR 6NOT e[B][A]▝J !▞ INVERSE 6<>!e[B] RESTORE [P]▚CHR$ ;▙ LLIST :[K] MOVE ▚% STEP ▙<> CLEAR FV STEP K[R] CLEAR 5VUSR CLEAR 6U0V▞ RETURN ( DIM STEP [U] RETURN ▞ CLEAR 6V<> STEP BEEP ▛e!ABS [F] RESTORE :RNDaPI BRIGHT ~▘ RNDOCHR$ ▜▗ LPRINT ▛:▙▘ CLS ▛pp▙:h[Q]▗ OUT ▙:iPI▘SGN ▙T▘:kLEN ▗[I]▙:lLN [B]t▙:Ua PRINT THEN gBIN O LET NEW STEP SCREEN$ [A]NOT >=[A]▜ COPY [A]NOT ▛[A]NOT OR ▖2[B]NOT ©[A]NOT [A]p▝[A]?▜ RETURN CHR$ K[B]:] PRINT ▜6NOT POKE [Q]▜CHR$ [B]! ▟!z BEEP ▚!/jw!(a VERIFY PI STOP ▘EXP eUSR NOT *[R]!M CLEAR 6>=▝+ TO QVAL LET ATTR STEP READ ATTR :/a STEP LEN j2U▟ RETURN (N6 INVERSE w RETURN CLEAR 5 INVERSE ~ AND INVERSE w CLEAR 64 RETURN 9& RETURN CLEAR 4: CLEAR 6; STEP BORDER c RETURN ▝T,▖ RETURN h▟!X2NOT ASN [Q] INVERSE ~ IF NOT ▙ CLEAR ▘$▖ IF ▙NOT /NOT NEXT ▘4▛SGN u COPY RETURN CLEAR IF FOR GO TO [F] CLEAR N INVERSE ~PI THEN A THEN I(▛H▙"I▙CODE 2j▙!NNOT ▘j▙[T]! RUN ▟0 RETURN ▝ COPY CLEAR 4I<>▝[G]>=▗ RETURN )8+LN ▝>=▘ RETURN THEN CLEAR 6II▘<>PI`▝ LIST ▝ POKE ▝ TO CLEAR 64 COPY <> CLEAR ~PI8▘!▛ CLEAR 54( NEXT CLEAR THEN f CONTINUE INK ▖ PAPER ▙[A] PAPER >=[A]RND RETURN LINE ! BEEP STEP INKEY$▙: RETURN CHR$ [B]45▝▗▝1|▘D▘<>0#PI(c▘ VERIFY c▝<>t_▝ GO TO RESTORE STEP uh FLASH ▖USR CLEAR 4, CLEAR 6W2}a[C]▖2©a CLEAR 6.3▝T RNOT ▙3&p:▜ CLEAR 61NOT [R]1▙CHR$ FORMAT ▟&:oa RETURN ( LIST RETURN V▟M[G] RETURN ERASE 0(▚ INVERSE ~2[I] PLOT [S]2TAN INVERSE RESTORE OR ![G]x STEP FSCREEN$ RESTORE INVERSE LLIST INVERSE ~PI LINE v[A]>= INVERSE PEEK (<▝CHR$ v[A]0]▖> VERIFY RETURN ERASE @▞ &! INVERSE RESTORE INVERSE 6INT ! CLS [H]x POKE NOT BORDER cNOT i LIST NOT RUN LIST STEP [T]e STEP *[R]STR$ INVERSE LLIST ><>COS ▗(ax=2TAB ▝L'▗ BRIGHT e(/▘f@>w CLEAR p▘`4 MERGE ▗ IF VAL$ ABS ▝DCAN' LPRINT S▜Y!INKEY$@(▝ LIST x▘FU FORMAT ▚!,▗( CLS PLOT ▝ NEXT DEF FN ▙▜CODE <>STR$ CHR$ ▝ STEP ▛▘▙[A] CAT ▘ COPY [A]z PLOT PI( CONTINUE (<>▗USR INVERSE 6▘▜ CLEAR PEEK >= CLEAR 4$ LLIST k$[S]▝<>p:P:▝p:Vp:p:0:5g▘oa4[B]NOT '[B]"▘ LINE ![T]▗ RETURN (>=[J]"6Z▜ THEN g>= CLEAR THEN S AND p3g▗D[B]NOT Z@3▝ 3▝32i`3▘ DEF FN <>0[C] CLEAR 6 OPEN #D[K][B]%ATTR NOT <ATTR NOT LATTR NOT lATTR NOT {ATTR NOT [G]ATTR ▝p[G][I]SCREEN$ NOT CODE SCREEN$ NOT IN SCREEN$ NOT OUT SCREEN$ NOT INPUT SCREEN$ NOT ATTR STEP TAB [B]!R5 OUT USR !S CONTINUE ▛w<> STEP CHR$ [B] STEP OR [B]!XP▝W0[A] CLEAR 5<> STEP INVERSE [B] STEP LPRINT [B]!Qa~ AND 4▝P▝4▝ PLOT I▝=G▘ RETURN K▝= K[C] STEP [C]KPM▘ CLEAR 4M*[C] STEP -[C]M▝ VERIFY M▘ RETURN O▝=O(/(b▝ ik▚t▘ DEF FN ▘▝▚▘▝▘$▝[I]▘-▝[R]▘6▝SCREEN$ ▘@?▝0ZINT 0c/SQR c l▘CODE F CLEAR wU CLEAR wT CLEAR w CLEAR :▚w CLEAR w CLEAR CHR$ [E]w CLEAR w CLEAR w CLEAR w CLEAR w CLEAR w CLEAR wy CLEAR w CLEAR w CLEAR w CLEAR 6_▝7▖ CLEAR w CLEAR 6▗ CLEAR w$5▖w CLEAR w CLEAR w(▚[I]w* CLEAR w+ CLEAR w, CLEAR w1 CLEAR w4 CLEAR w7 CLEAR w8 INVERSE ![M][C]INT ▘ CLEAR w[D]▝<xI CLEAR wJ CLEAR wK CLEAR 66vO>(2 DEF FN TAN !fx GO SUB [E]6# POKE >2[>2[>2[▚ REM [>2 FOR [F] GO TO [<>@ABCDEFG @▗▚B C D USR @IN A@B@C@D@E@F@G@ABCDEFG?@?A?B?C?D?E?F?G_@_A_B_C_D_E_F_G▘AIN ▘B▘C▘D▘E▘F▘G[S]@[S]A[S]B[S]C[S]D[S]E[S]F[S]GCHR$ @CHR$ ACHR$ BCHR$ CCHR$ DCHR$ ECHR$ FCHR$ G STOP @ STOP A STOP B STOP C STOP D STOP E STOP F STOP GHIN IJKLMNO"H"I"J"K"L"M"N"OBHBIBJBKBLBMBNBObHbIbJbKbLbMbNbO▘HIN ▘I▘J▘K▘L▘M▘N▘O[S]H[S]I[S]J[S]K[S]L[S]M[S]N[S]OCHR$ HCHR$ ICHR$ JCHR$ KCHR$ LCHR$ MCHR$ NCHR$ O STOP H STOP I STOP J STOP K STOP L STOP M STOP N STOP OFN PQRSTUVW"P"Q"R"S"T"U"V"WBP @`USR IN [Q]USR LPRINT ▝ ▝@▝`▝▝[Q]▝USR ▝ LPRINT ▝▘ ▘@▘`▘▘[Q]▘USR ▘ LPRINT ▘ @`[Q]USR LPRINT ▗ ▗@▗`▗IN ▗[Q]▗USR ▗ LPRINT ▗ @`[Q]USR LPRINT ▚ ▚@▚`▚▚[Q]▚USR ▚ LPRINT ▚▜ ▜@▜`▜▜[Q]▜USR ▜ LPRINT ▜▖ ▖@▖`▖[P]▖[Q]▖USR ▖ LPRINT ▖▞ ▞@▞`▞▞[Q]▞USR ▞ LPRINT ▞[F]©[F]w[F][H]▝©▜[F][F]▗Y FORMAT L MOVE ▗ STEP TAN STEP TAN ▘TAN OR PAT GAT ▗[R] ERASE [R] ERASE ▖` MERGE S VERIFY F BEEP 9 CIRCLE [K][G] GO SUB [Q] GO SUB [Q]Ppp$▜!P[G]"Q[G]▚}*)[G]~EXP 8O:, ▝+@:. ▝-@ :0 0▝/@0:2 @▝1@@:4 P▝3@P:6 `▝5@`:8 p▝7@p:: ▝9@:< [A]▝;@[A][B]{!)[G]▜o0$#6{!@^#V*Q[G]r+s+ THEN ▙CHR$ [A][G] INVERSE *=[G] STEP [N][H] INVERSE *?0▝A0▝E0▝G0#▝I0*▝K01▝M08▘O[G]▝>=[A][H]N RETURN LLIST 0EXP FORMAT AND EXP CIRCLE NOT NOT [H] VERIFY d PRINT y VERIFY dO LET 0Z▘GT[G] CLEAR [G]O2[J] INVERSE n INVERSE f"3[J] INVERSE ~PI M▝ Om▛:C[C]NOT t▝=P▚>([G] INVERSE ▚RNDP DEF FN ▘yINKEY$▝G▜PICHR$ [J]:{W[I]*3[J] RESTORE MERGE !CHR$ TAB _▘ LLIST RESTORE STEP 2[J] MOVE LLIST n▟NOT 2[J] FOR !? ERASE STEP 5[J]NOT [U][I] MERGE ▘(O -▖:INKEY$a NEW ! PLOT LPRINT "▖[I]5 COPY :E[C]&▝USR ▝NOT ( AND DRAW [H]>ACS 2iy>2gy>2pyCODE P_F N[E] LINE [J] [E]* CLOSE #[I]xUSR PI GO SUB R! IF USR (!xUSR " CLOSE #[I]ATN 0[O]▘8F[A],,NOT LOAD [I]} VERIFY o} NEW 2 POKE [L]pTAN U▗= + FOR ▟ FOR CLEAR 4L>PI CLEAR 6▛INT ▘ MERGE LLIST ▞ LLIST FOR ! FOR [SIN NEXT GO SUB sa[J]N#F# RANDOMIZE FOR xNOT ▖CA MOVE {INKEY$SIN w#0 ▘>""▘ NEW [A]2y[J]x2o[J]0*▗ SAVE >"C▞CHR$ n[J] GO SUB {a[J]<> PRINT ▝ CIRCLE pGpM M▝0M▝ LPRINT * TO ▛ CONTINUE E[G]<>:[E]EXP [K] CLEAR 5Q ▝R▘6D▝ACS ▛[K]!USR ▛ RESTORE !N[L] RESTORE :[G]5F CLEAR 5E TO !SIN [J]7▝▜[G]CODE ▝[O]▘2[E]R TO CHR$ [J] RETURN UL[L]NOT `[K]NOT <>[K]:▚ STEP ;[L] RETURN ( CIRCLE R▝USR ▗▝[G]5[B]F<> 5 LIST G▜O▜▝ CLEAR ▚!R[K]▜ CLEAR PEEK PAPER ma<>TAN @▗NOT ▛[K][G] INPUT INVERSE w,SCREEN$ ▝=[L]INT (USR I▝piPi▝SQR `i▝ DEF FN pipipi i▝ POKE pipiP PAUSE ▘ FORMAT RNDa!T▝E▝F-▝^▙▟0:ga CLEAR [G]) DIM ([F]Y AND [D][M]NOT [F][M]NOT [M]NOT [C][M]NOT ▞[M]NOT [M]NOT ▚[M]p[M]LN [M]NOT ASN [M]NOT [Q][M]NOT SIN [M]NOT POINT [M]NOT CODE [M]NOT INKEY$[M] INVERSE !K[C]! BRIGHT [M] RESTORE "~[B]>= STEP RESTORE [J] STEP [M] STEP DIM [L] STEP >=[L] STEP CODE [L]<>% PAUSE ▝USR p[I]▞ FORMAT > STEP BORDER eNOT O[M] COPY ▝>=![S] CLEAR 540!60!/~ FORMAT AND ▗ CIRCLE >@@0@▚:©a RETURN CIRCLE INVERSE &▝.▘▝ ▗<>>n CLEAR 4K[G][D] RESTORE INVERSE !VAL$ [C] AND INVERSE w INVERSE LLIST <>cadaea<[D]K TO 5[M][J] PAUSE ▝,[D] PLOT 2za!d STEP SAVE i STEP EXP jNOT LLIST d STEP ▗[I][M] STEP [C]+▖ LET ▛USR INVERSE 4<> STEP !▗LN [M] STEP SIN -▘LN [M]>=STR$ INVERSE wNOT ▘ INVERSE 5(L(p[G][I][M]▞PEEK GO TO PEEK OIN SIN IN STEP STOP [M]NOT -[N]! GO SUB ["[O]r▖[O]!`"[O]▖ RETURN [N]!^"[[U]nIN USR NOT [N]! CLOSE #[M] CLEAR ~AATTR LIST [N]~POINT USR #MD STEP f[N] CLS ▗ OUT [N]! K▝K▝ LPRINT KK▝ OVER PK!INKEY$ABS 9▝p9▝9 FLASH ▘:_k▜▜ CLEAR ▚0▚ INVERSE ▚![N] SAVE ▚|PI(}SIN 0T0▘0▘pp0[F] INVERSE 6E INVERSE 6SIN *[J]"[J]<>7 CONTINUE i` GO SUB S[J]2[O] INK OPEN #▗ STEP M[U] INK 4 FLASH ▞ CAT [ LPRINT GO SUB VAL PLOT ▚>= CLS INK G INK INVERSE LLIST ▟(7 INVERSE THEN INVERSE THEN ▝▚PI INVERSE THEN ▝▝▘p"p"p""▞ INVERSE LN INK ATTR INK NEXT (SQR INVERSE k INVERSE b STEP CODE [O]STR$ CONTINUE <>▜[O][O][H][O][P][O]|STR$ PEEK STR$ CHR$ ▘CHR$ LBIN ▙BIN LIST BIN R OR DATA CHR$ ▖NOT &NOT REM NOT PI AND DIM AND K<=TAB <= ERASE ASN dACS &ATN CONTINUE ATN `▗ LINE CHR$ [O]Q!©[O]3▖!PI[O]:Xa FLASH ( CLOSE #▝<>g INVERSE N INVERSE !RND[C] INVERSE q AND [P]! ERASE [O]-8!<=SIN $ RESTORE [T]ATN INT 2EXP INT 2SQR INT 2IN INT 2STR$ INT 2NOT INT 2 RUN SQR 2 RANDOMIZE SQR 2 CLS SQR 2 COPY SQR 2SGN 2SGN S▝PEEK INPUT OR :[H]a2[I]a<> COPY COPY *STR$ COPY ▘*lPICHR$ SIN [P]:5[P]!-[P]T▛:6[P]<26[P]PEEK CODE ▗!5[P]~; RETURN (LEN ▜wNOT o[P]:[I]1[U]▘▟[P]▘NOT SIN 0▜[G][P]:B[C] AND dO<> READ ▘:z▝ CLS >=:▞P▘ BORDER ▝[I]pp[N]! OPEN #[O]=▝ ERASE [B] INPUT [P]NOT [Q]NOT U[Q]NOT l[Q]NOT [Q]NOT [L][Q]S▘ LINE 7 CHR$ 7[P]>25[P]>©LN d▘ VERIFY @>=▘4vs>2T[Q]SQR ▜@[Q] STEP ,[Q]) LET ▘B[C]:W▖ INVERSE 6 INVERSE 6[I]▝+[M]▝[Q]▝I[U]▝J▞!T[Q]~PI(5CHR$ [B]X!k[Q]5USR 6 STOP ▗ STEP (j-M▘4m▗PICHR$ Q[B] COPY ▚2▞a CLEAR 6* ▝▞▘ j▝<>pAT ▝NOT [L]▗ RESTORE STEP ABS [Q]t[D]} THEN = THEN =/ NEW O INVERSE ! FORMAT [Q] INVERSE > CLEAR [Q] INPUT OPEN # RETURN DO THEN g zCOS >=yM INVERSE DIM M INVERSE DIM xO NEW OPEN # RETURN OR RETURN STR$ ▛y<CHR$ RUN [Q] FOR <>H0▜y=CHR$ [R] OR x$▘ RANDOMIZE #▟ RESTORE <> OR ! "5[R] OR au[F] STEP ASN [Q]STR$ REM STR$ <> OR RESTORE !B] NEXT LLIST STR$ <>7 RUN (B,▘c[R][U]▖ NEW H AND 8 THEN ' THEN 'L▝a▝▘ASN LLIST <> STEP [F]j LOAD ▚ CLEAR ▚ STEP INKEY$[R]!' PAPER ▙?▝O[U] STEP SGN [R]▝[S]x RETURN USR FORMAT OR STEP CAT [R]GCODE 7 CLEAR ACS wSTR$ <>x7 NEW Xgx NEW ▗gyUSR NEW ox NEW 8▜▜ASN oy NEW <> LLIST [H] STEP [S]# RESTORE NOT INPUT [R]# DIM ~ FORMAT NOT CLEAR [R]@▘ RUN CAT ▖ RESTORE INK LLIST RESTORE RETURN 0< CLEAR CODE MOVE [T]NOT [N][T]NOT d[T]NOT y[T]NOT ACS [T]NOT [E][S]NOT CLOSE #[T]NOT FLASH [T]NOT OVER [T]NOT NEW [T]NOT FOR [T]NOT ▘[T]NOT LET [S]NOT [T]NOT [U][S]NOT N[T]0[S]y[S]NOT l[S] STEP LEN [S] INK LLIST <>#<> <>+<> LPRINT COPY <>!<"LN [S]CODE 2'▘ LLIST #2▖ RESTORE GO SUB SLN [S]><>0^[S]`[S]e[S]g[S] LLIST #~ RESTORE ![S]1▘<>[S] +▘[Q▚NOT >=[T]&oUSR )[O]<X FOR STEP [T]*POINT [S]>@w STEP ^[S]"POINT [S] STEP ▗PI"SGN [S]<> DIM ▖ RETURN USR }[D]op][A]2 LPRINT [S]:POINT [S] NEW ▚2 BRIGHT [S] RESTORE CODE 2 CLOSE #d▗ [I]OLEN LEN NEW ?<> OR STEP [T]w$ RUN NOT L[T]STR$ ▚% STEP #SCREEN$ ` STEP DRAW PAUSE : AND [S]= NEW O NEW SAVE LEN ©[G] LLIST #N RESTORE >PEEK # CLS > THEN 8[A]ao FORMAT ▜# RESTORE ng STEP ASN k[N]6POINT ▘X RESTORE [G]2 AND [S]O LLIST # RESTORE ~!@@ COPY u GO SUB VAL w▖ COPY GO SUB VAL 4 LLIST c▜ RESTORE ~2PI[T]> P▗ RANDOMIZE "O▗: CLOSE #[S]PI SAVE ▚( LIST } NEW LPRINT o▘ASCREEN$ ` CLEAR v[H]>w2<=[S] PLOT CODE SAVE !([T]"&[T] FOR !L[T] PLOT e!X[A] CIRCLE COPY ATTR COPY ATTR AT /AT ! IF [T]: RANDOMIZE [T][A]▝~# FLASH RETURN INKEY$##CHR$ [U]? THEN ERASE [U]y2VAL$ Ua<> FLASH NOT "[U] INK !B~_PI#"/[U](!VaPEEK GO SUB _TAB PLOT 2Va INK <> RESTORE STEP f[U] LLIST >=4▚]T## OVER Z▖+6+6 COPY <>~ LLIST >= INPUT w#5▜ THEN #/ax<^ MERGE RESTORE OR THEN 8NCODE THEN 0p#pp#P[F]PEEK CHR$ STR$ LLIST 0a OR w# IF STR$ MOVE AT CODE <<>`▚ LPRINT ▚`▜ LPRINT ▜`▖ LPRINT ▖`▞ LPRINT ▞ VERIFY [U] INK [U] BRIGHT [U] OUT [U] STOP [U] RESTORE [U] CONTINUE [U] FOR [U][K]▗x! GO TO [U]▜~ CLEAR ▚ NEW OSCREEN$ ▗f▝o FOR Q!:TAB /▝{0▞>RNDO> [B]2-RND(O GO SUB VAL { VERIFY ▝▝ [F]STR$ ACS <>SCREEN$ LN TO LN RETURN LN 0EXP ▚▜▞▖ ▞(&▝$▝"▝$▝@(▝B(▝@$▝D(▝B(▝X<▝V<▝X@▝Z<▝X< THEN PEEK TAB ▘ORND+LEN RESTORE INVERSE LLIST -▘ NEW ©▗ TO BEEP RND=0 STEP >INKEY$STR$ FLASH LET 2[a<>CHR$ <INKEY$:[K]0K▖ CLEAR 58D:`F[C] READ 7 RETURN (3_▗ :ULN ▝' NEW SAVE [G]▝AT ▞ INPUT 2E[C] CLEAR 68 ▝▞F<>a0[K]▘ NEW © VERIFY d NEW ©[O]▘ NEW ©>[Q]▝~]9▚++ FOR !KRND7ACS R▘0 CLOSE # COPY qP▝ LPRINT P[A]▗INKEY$▟INKEY$[G]INKEY$bEXP ▗EXP ACS EXP CONTINUE EXP CODE ▘[N]INKEY$▝%8LEN ▝ CAT ▝ CLEAR 67v▛>2F[C]!RNDINKEY$ STEP OR [O][L]STR$ SGN <>LAZ MISSILESNOURISHMENT[A]NING LAMPMAP OFE STEP INPUT [R]" [G]▜ ▝ OVER ▖CODE FLASH RETURN / NEW ( SAVE @ SAVE <>0▜G STR$ ▘ READ ATTR 0[O]LEVEL :▚a AND 0NOT [S] COPY ?VP THEN $ THEN $▝SGN B▜6# CLS LLIST STR$ i▖CHR$ ▟PI<> STEP [R]PI1[B][D] LLIST PI THEN ,0pppp*p3p<pHpQZ>;; LLIST ACS w[E]ATN STEP FN 1STR$ 0}▘-0pppp*p3p<pHpQZ>p}▜<>:Qa! CLEAR FN ▞[K] FOR :Pa!USR Io NEW 2 STEP FN O>[B] FOR 2SGN FN INK INK s{ VERIFY s[Q] MERGE RESTORE FOR VAL ]T FOR GO SUB VAL LLIST MOVE >[S] { AND _8z VERIFY W INK IN INK <>Y LINE INK THEN Y STEP INK DEF FN ! "OPOINT :R`s▜Sa MERGE STEP NPOINT MOVE [C] AND NEW NOT NPOINT ▙ PAPER OUT !*▘'POINT [N]▝W@*▝W *_ POINT ▘vPOINT 0POINT ePOINT INK pPOINT pPOINT T8▘> % INK PAPER INK <> REM [C]SCREEN$ !1 LLIST [D]( MOVE L,, GO SUB [Q] GO SUB [Q]Pppp$p.,# MOVE p=pEpOpYpcp=▘ RETURN ▗o▜ LLIST +LEN [A] DIM $>[U]USR } AND o CIRCLE | VERIFY g<>J▝USR I▝ CIRCLE H▚<>o FORMAT $<>; FLASH <▞o<>|% NEW USR } VERIFY .▝ AND .▝ FOR PAUSE ▜# FOR OR RESTORE [S]▝ SAVE B BRIGHT ▘fSCREEN$ `▚INKEY$OLEN IN ▝ PRINT B RANDOMIZE ▝;![H]SCREEN$ COS [B]w TO FN STEP PLOT [B] STEP [C] STEP -[C]NOT [I]▛[E]▗[C] STEP *!PEEK p'*▝ NEXT -▝*P0▝ ▜[C] STEP '[C]NOT LN ?Q0 H@*0-00 306▗!$ATTR 0▟▛[R]PI STEP TAB [B] STEP OR [B] STEP LPRINT [B]▟0▗CHR$ [B] STEP INVERSE !Kp'*▝SCREEN$ -▝ INVERSE P0▝[O] IN [B] STEP PAPER [B]▟NQ0 H@*0-00 306▘ MOVE ATTR <=1 LPRINT ▞ STEP RESTORE ▘ INPUT EXP [K]! STOP ▘CODE w, IF <>>2ZPI STEP TPI>▝<>IN e STEP EXP e▘IN e ERASE BIN COPY ©M CLS Q CLEAR A OUT O OUT P` LOAD 0 LOAD 7 LOAD 6 RUN 5 LOAD 8p▘9!▟ COPY COPY COPY ▚ RETURN ppo`0▗ll' 0▗ FLASH FLASH (▗ LIST PAPER PAPER 0▚ AND CIRCLE CIRCLE BEEP FORMAT <▗ LOAD LOAD ▚ DRAW vv FOR FOR (▚ RANDOMIZE LOAD LOAD uu<▚ CLS LOAD LOAD xxP▝ LET 0d PLOT //``? CAT CAT VAL$ LIST LIST ww RUN RUN IN IN LET LIST NEXT NEXT RUN RUN ▝▝ DRAW DRAW PAUSE PAUSE SAVE SAVE CLS CLS INPUT INPUT RETURN RETURN CLEAR CLEAR || PLOT PLOT COPY COPY CLEAR CLEAR ©© COPY SCREEN$ SCREEN$ COPY COPY INPUT INPUT RETURN RETURN UU COPY COPY INVERSE INVERSE ©© CLOSE # CLOSE #[Q][Q]©©[I][I]**[R][Q]M'' PAPER IN ?© STOP ▗ COPY [I]BTAB bTAB ▘TAB [S]TAB SAVE !©NOT ▜ LPRINT `x BEEP ▝ LPRINT ▝▘USR FLASH USR "▜8-▗xpSTR$ B[N]▝ ERASE N▚ LPRINT < BEEP ▗0@b▘kSGN RUN ?z DRAW |▘1 MOVE pQ LLIST 00*▝ IF RETURN ▙<x LIST LPRINT USR #G0▖80 LPRINT USR 0"G INPUT P&06▖▙ SAVE LIST 0D▗ LPRINT #USR p&0X▗##w▝|0f▗x LIST p&0z▖ LPRINT USR 0▖▗<p&0[M]▜ LPRINT USR @RGp&0PEEK ▜▘ LIST PR BIN P&0 LPRINT ▝#▞▜@ INPUT p REM L1▝▞©1ASN ▝ DRAW DEF FN ▝p@[M]©4`"▝ -▝ SAVE @:©▚▗▝ COPY ▘ GO SUB ▜ RETURN 0R▝`o▗© COPY COPY a▟ SAVE LPRINT COPY DRAW ▚▗p LIST RESTORE ▝1ATN l[C][A]▝ SAVE COPY RETURN RETURN COPY LIST SAVE <c SAVE ▝<=A CIRCLE 3▜ COPY NOT OUT DRAW © COPY COPY ▝ RETURN /▘ RUN RETURN C>=0 OPEN #▝ RETURN S CIRCLE ▝? THEN COPY 0 CAT COPY ▘ IF "ACS ▘ CLS "PEEK ▘ CLS W RETURN 0▝©" FLASH ▘©[P] ▘ BORDER CLS RANDOMIZE RETURN MOVE ▗ RETURN ©[I]x▗0©[P] NEW ©USR BORDER LLIST RANDOMIZE LPRINT 3▘ RETURN O▘~@▘ RETURN #'@▘ RETURN !G▗AMpipi▝ RANDOMIZE P▚i▝0i▗ BORDER RANDOMIZE p▗0 RANDOMIZE SAVE cUSR RETURN x[T]▘©LN #▗▝@INKEY$0▘©PEEK 1TAN ▝IN 3AT ▝p MOVE ph` INPUT MOVE ▘[P] h▝0 INPUT RETURN ~ COPY LIST ©[O]▘ INPUT 1=@▝0▘ LOAD $▘ LOAD 1▝p FORMAT qVaV FORMAT ▘'1V▝STR$ !V▝s▘▚; BORDER ▝▝ARND▝@COS I▛~^U^USCREEN$ ^SCREEN$ 0UnUSCREEN$ <SCREEN$ UUSCREEN$ ▘SCREEN$ J▛UW[F]SCREEN$ [H]SCREEN$ 0U[[F]SCREEN$ *UFUSCREEN$ [Q]SCREEN$ ACS ▛ LPRINT LPRINT UU RESTORE SCREEN$ RND REM 0UV RESTORE SCREEN$ [T] LINE UQ[F]SCREEN$ FN * STEP ▛ SAVE xUUySCREEN$ POINT z0▙UUEXP SCREEN$ FN PAUSE UTeSCREEN$ SCREEN$ 5 CLEAR ▝&▗ LPRINT {x▘ LOAD 0 INPUT LLIST [%▗ CLEAR FLASH [I][S] LET O@ DRAW FLASH [I] PRINT o`▘COS VAL RUN g`..ATN VAL LIST RUN LIST __70<=0▜ CIRCLE LPRINT LPRINT __0~~==USR LOAD ▟ DRAW DRAW LET LET CAT CAT wSQR INVERSE INPUT #AT 2o STEP #NOT %qSCREEN$ D▝ STR$ ▝PEEK ▘USR [G]▝[N] LIST OVER $▛q DRAW LIST USR LPRINT >3▝5 POKE ▘ DRAW STEP ▝0 CLEAR ▚D LIST FORMAT FORMAT ▝@? INK ▛▝▝ SAVE LPRINT 2*[T]`"▘4/▝@#|▘ LIST "▘ MERGE q▗ POKE @ RESTORE 3[F]CHR$ n▖@ IF "bm NEXT ~/$USR ▘[Q]▜[F]▘ CLOSE # CLOSE #▘PG▘1 CLEAR @5@ DEF FN |▘ COPY 6ABS ▝K[F]STR$ 1Q-[M]▜O READ [R]FN STR$ [Q]x▗P LLIST COPY ;s▝0 CLOSE #▜▝"RE_▘F7▘6 NEW ▘STR$ z▘▝F OPEN #▝& DEF FN 1INKEY$▝7 CAT ▗X▚1SIN OVER ▝(S8▖▝USR [C]H▙8▚8▘▝ RETURN (~▘ RETURN z▘ RETURN v▘ RETURN r▘ RETURN n▘ DRAW j▖ CLEAR [P][P] DRAW b[G] RANDOMIZE RUN RUN © NEXT PLOT PLOT © BORDER AND AND COPY GO SUB [O][O] INK ▚~~ COPY NEW RUN || COPY $▖ABS SGN COPY IF =<PEEK ▝▝▘ SAVE ▝ CLS CLS }$ SAVE y▘ CLEAR %0▗ DRAW SQR LN 20ppP▝#=▝`)Tx0% STOP ▝ DRAW 0▘▝ NEXT H▘ OUT X RANDOMIZE SAVE IN DRAW SIN *▘ LOAD LOAD ▘▘ GO SUB GO SUB NEXT ▘ PAUSE PAUSE RANDOMIZE PRINT PRINT LIST y[C] PAUSE PAUSE STOP STOP ""uu RESTORE RESTORE UUrr STOP STOP SCREEN$ SCREEN$ P▘ REM REM pppp00<N▘ PRINT PRINT p`▘ PRINT POKE ~ FOR CONTINUE RUN >= RETURN RETURN ©~▘IN [S] CLS CLS OUT USR [Q]COS [P][P] ▘_@TAN ▗ DRAW DRAW [P]SGN CLEAR CLEAR _@SGN RANDOMIZE [C]<<[P]LN 8▖▖[N][N]_@EXP 9UU//▘SCREEN$ SCREEN$ p▗[P]INT :pp p0p p@pP▘[P]h▘==P▝IN @▘©[I]▘ IF IF [M]▘ CLEAR )Z▗[P] CLS 3▘o`0 ERASE RUN LIST CONTINUE > BORDER LPRINT BORDER STOP ▘ BEEP FORMAT STOP ▗ COPY COPY ' 0WP LOAD E[C]' INPUT WP INPUT ▗**PIPIp▗ INPUT p p0p p@pP0hp OPEN #▝/@▘_@0[I]IN [T] BORDER LPRINT RETURN SAVE ▗ COPY COPY FLASH CIRCLE 0 ERASE ABS SGN IF SAVE [E]▝ RANDOMIZE *<▘ASN TAN 0 STOP ▘<>>=0 REM ▖ MERGE CLOSE # CLS USR USR ▗▖▖▞▞▗[F][F]UU ▗POINT POINT p▗ CLS SCREEN$ SCREEN$ pp p0p p@pP0hp[F]▝ THEN @▘ BEEP FORMAT 0[I]SCREEN$ CODE [Q]<=▜[J]qp''[M][M]OO REM REM OO PLOT PLOT CAT CAT FOR FOR CAT CAT PRINT PRINT gg FOR FOR LET LLIST LPRINT [C][O]//©<> BORDER BORDER ? OPEN # IF IF IN [D] CLEAR CLEAR [P]COS 3 IF IF OUT USR COS 3Z▘[J]▝>=xx©j[B][H][H] PAUSE yy CAT USR POKE RETURN RETURN CODE [Q] DATA TO g` GO TO RETURN RETURN ATN VAL GO TO LINE CONTINUE ATN VAL ASN LPRINT [B]ee<=USR DRAW [O][O]sp CLEAR ??ATTR FN RANDOMIZE ▖ INK CIRCLE CLS ??TAB AT MERGE CLOSE # RANDOMIZE D[C]TAB AT ▜ LLIST LPRINT 88GG STOP STOP IN IN ▖©© RETURN RETURN ?? DRAW DRAW [G] LLIST SAVE SAVE © DEF FN [B] SAVE SAVE [P]CODE /PEEK 0[P] CAT ▝?E* SAVE ▝[E]▝▝ CAT USR DATA ~~' FOR .0▙ BORDER LPRINT NEXT AT ▘ CAT USR 0* RETURN [M]▝▜ ERASE LPRINT LPRINT sp RANDOMIZE ▞▖ IF [U]0 RETURN RANDOMIZE SAVE DRAW ▘ NEXT LIST 0*( RETURN | POKE RETURN NOT NOT |+![F][F]=[E][A] CLEAR **ABS ▝ REM REM CLEAR ABS ▝ GO SUB GO SUB ▗SGN jj ▗10▝G PAUSE SGN ▘hBIN pp DRAW [Q] INK CAT CAT RANDOMIZE RANDOMIZE COPY FLASH ??▘SCREEN$ BRIGHT ▘ZZx▗ NEXT RETURN NEW A▝/>[H]▝ CLEAR E POKE 3| CLOSE #L OVER ▘ CLS =fP3[E]P(p80H BORDER ▘ LLIST LLIST OVER [T] RANDOMIZE RANDOMIZE DRAW RETURN RETURN yy NEXT NEXT CLEAR ==[J][J] NEXT NEXT DRAW ▘▘yy BORDER BORDER RETURN RR READ READ LLIST <>▗**STR$ STR$ [F]BIN BIN CIRCLE [K] OR IN IN COPY PRINT [F][F]// COPY RESTORE IN IN GO TO GO TO COPY FOR BRIGHT CLEAR ▛▜ COPY O@ LIST ©© LOAD ▖▝(▝ LET /$)# RUN RUN VAL$ ▙(▙[U][U][R]98 COPY TTASN ▗ED▘5 ▗ COPY COPY RESTORE DATA ▗xx0▙IN IN +( COPY OUT OUT LET LET ▛▖ DRAW DRAW c^▘ OUT OUT *H▜ LOAD LOAD COPY COPY >>© BRIGHT ?FN ; CLEAR L INK ▝IN T DIM P▝[P]NINKEY$▝ OUT SCREEN$ ? LOAD PP▝[P]`8▘[H][H]P▖? CAT CAT [O][O]©©[E]▜▜SGN SGN IN PIPI[L][L]STR$ STR$ ?PIPI OR OR LINE LINE ▟[C][C] CLOSE # CLOSE # COPY >>** DIM CONTINUE COPY BIN ▘UUVAL ▗88POINT POINT AND |▘ CLEAR g DEF FN ▝ COS ▘ATN VAL +▗ LPRINT SAVE LEN ▝▗PP[F] RETURN RETURN COPY UUSCREEN$ © DRAW SCREEN$ U© SAVE USCREEN$ ` PAPER ▟xUSCREEN$ l8SCREEN$ UhUSCREEN$ nx0▚hSCREEN$ Ul80 (▗SCREEN$ U@8SCREEN$ B[K]@SCREEN$ [P] COPY *U_ RETURN SCREEN$ [I]*U[[O]SCREEN$ [L]▝[O]0▘[K]▝▗*UP8*▗[C]PSCREEN$ PI COPY LINE UW COPY SCREEN$ INKEY$UV BORDER ▝NOT ▝▝▝ BORDER @▝▝▝NOT 00(UT8▘[Q]▟SCREEN$ POINT COPY PAUSE UU COPY LLIST SCREEN$ POINT "=▞VAL STOP UU[Q]aSCREEN$ POINT EXP [Q]bUUVAL (UU8▝FN [K]▝bEXP +f▘[F]▗ DRAW READ RANDOMIZE ▜ SAVE NEXT @ COPY p~▗ POKE %▝USR ▗w[F]▚= RUN USR ▛▗; READ +▚USR LLIST SAVE (USR 0▗STR$ -▝?5▗ LPRINT 8 CLEAR ▘USR @▝@0▜▗ LPRINT STR$ DEF FN RETURN LIST y DRAW COPY 450 LIST ▝><▝INKEY$#▝vP@3#▝E99 CAT [T]▗ COPY ss@▝ RETURN ~.▗ DRAW GO TO LPRINT P▗ RANDOMIZE <>STR$ AT N▘[D] CLOSE #[C]▘6[Q] RUN w8▚ COPY PLOT sTAN ▘9(▗ NEXT SGN ▗ RANDOMIZE IN >= c▝v@~▘::<TAN ▘[M]<SGN ▝[N]@[H][D]▝qL OR ▝ GO SUB BORDER STR$ ▘▟0▘0▘[I][I]'1▙▘`c▘??▚▗ COPY ^^VAL$ ▗ RETURN aaACS ▗ DRAW GO SUB LLIST PEEK ▗ RANDOMIZE FLASH NOT INKEY$▗ CLS ATN ▜[U]▗ NEXT . PLOT g@ DEF FN ▘30 NEW ▘EXP ▝ TO RANDOMIZE SGN p AND ▘[X=r:Q@▝[J]@▘-,0 AND ▘mlp AND p AND CLS -@ AND ▝LN @ AND ▝IN @ AND ▝op AND ▘ut= MERGE ▘54= INVERSE ▝ASN Ppp LIST ▘LEN 0>▝ATN P@zTAN -▟CC>=USR RANDOMIZE 8c.. GO TO GO TO "" BRIGHT <=▜TAN qqLEN LEN FFBIN BIN BRIGHT BRIGHT [C]ll FLASH FLASH ▟▟AT AT nn6688 AND AND VAL$ VAL$ .. CIRCLE CIRCLE INK INK SQR SQR ccmm[L][L]EEBIN BIN STR$ v▛ STEP STEP BEEP BEEP aa[A] BIN F▘▘.[R]h>8 ▘▗NOT ▗▗O▗▞< POKE ▝?VAL$ nnFbb##[B]▝▚▚[P]a`[B][B]vv AND AND IAUSR USR ▞▖11EXP EXP 88 BRIGHT BRIGHT hh READ READ nnEXP GO SUB GO SUB mm▞▖LEN 1ACS ACS LEN LEN vv>=>=FF<=<=C@[L][L][L]##[G]▚[C]▘88nnInn▞1 LLIST LLIST 8▜▗▗ READ 8▟ BORDER CAT USR GO TO o` LOAD olP[C]o` LLIST LPRINT oo GO TO GO TO RUN RUN OVER OVER USR USR STR$ PLOT STR$ AND PSTR$ RETURN STR$ |▚ RANDOMIZE NEXT LIST `▗ CLS FLASH CIRCLE pp▘NOT ^[L] CLS CLS ?ABS = RUN RUN IN VAL 0ABS =ABS ABS IN LEN 1LEN LEN p▘IN ?USR IN [E]?8 PAPER ▘ RETURN SAVE ▗ RETURN PLOT PLOT pp▝ LIST R▝▛ RETURN RETURN CAT USR LOAD }} LOAD LPRINT GO TO o PAPER ▘llp0SQR 4<=<= CAT USR TAN ▝[P]jB▝1 VERIFY ▘ABS = BRIGHT p0▝ DRAW CIRCLE ▘▜ LINE ▞IN COS VAL CLS OUT OUT {x▘ POKE ▘ FLASH FLASH vUSR p USR CLS ▞ SAVE RANDOMIZE LET LET NEXT LIST POINT >=USR FFbb&&dd[A] LPRINT LPRINT LET LET ll66[A][A] REM REM [A]**HH11/ POKE LIST [U][▝ LET ▙▙ POKE ff/ PAUSE ffO@lIN LPRINT [C][J] CONTINUE COPY COPY NEW NOT NOT g` LIST [J][J] LPRINT [R][R]wp0[D] PAUSE [R][R]O@ DATA ▝▝' CONTINUE NOT NOT STOP [A]▝G!h[J]BIN PAUSE LIST ? MOVE [I][I]IN <>[J][J]? DATA COPY ▝"▜[T]# DRAW DRAW _^[G][P]CHR$ dd?▘▗▗INT : OUT USR 0[H] LINE ?[C][P][T]#_@▛ CLEAR DRAW LINE AT ▝©#▛▖ DRAW INKEY$▞[D][A] RETURN @@/ SAVE .[Q]▝ IF ?? OR BIN RANDOMIZE VAL VAL INK CIRCLE DRAW &&C@ SAVE ((A@ CLS FN FN ]/0[L] DRAW FN FN SP RANDOMIZE IH IF 00 OR BIN SAVE IN ? MOVE USR LET -[G][D][A] DEF FN RESTORE [J] PRINT 88SQR SQR COPY COPY SAVE [J]OO RETURN RETURN II&&©©>>)) DATA DATA POINT )%$IN ? CLEAR DRAW [A]▗ RANDOMIZE DATA DATA N▘▘©Z▝9 LET NEW } RUN ▖ DEF FN INPUT .AT 0 THEN ▝~▚USR USR ?[D] DATA ▗ ERASE IIb▙ CAT CAT IN LINE yy? REM II>|▝©!n DEF FN USR _ LINE [A][P]_@ NEXT CLS IN IN RUN LIST 0S▘N LPRINT POKE [C][C] NEXT NEXT LOAD LPRINT PAUSE [O][O]O@ IF [C][C]_$D FORMAT ▝<=[O]O[J]▗88' ERASE p[H] STOP ▘ BEEP ▘▗ RETURN H▝ DRAW 0▝ SAVE ▝▝ DEF FN DRAW DRAW ?? CLS SAVE CLEAR $$[L][I] CLEAR DRAW DRAW CLS [E]▘PIPI[U][U][U][H]SCREEN$ ▚ COPY COPY RUN LIST (8▘USR INT ppo` RETURN ll' RETURN FLASH FLASH o▘ PAPER PAPER CIRCLE CIRCLE BEEP FORMAT RETURN #▘ FOR FOR ▗uug` RANDOMIZE ▘o`USR / DRAW i▜ CAT USR RETURN GO SUB GO SUB OUT NEXT NEXT [P]NOT OUT ASN +▘1▝STR$ LIST == STEP ' CONTINUE ,#▝ CLEAR OUT 0▝ DRAW ▘ CLEAR <> CLEAR {0 MERGE ▗ DRAW SQR LN M0ppk6 ERASE ▝` INVERSE V39|▘u▚>> RETURN RETURN DEF FN DEF FN }▝ RUN [N]▟ATN RETURN RETURN oo RETURN RETURN VAL$ VAL$ RETURN RETURN INPUT INPUT 0 ▞[O][O]▘▘ RETURN RETURN [P]▛+▞IN IN OUT USR IN ?[P] BORDER ▘COS COS ▘ABS ABS ▘TAB TAB ▘[L][L]▘ATTR ATTR ▘SQR SQR ▘SQR SQR p$0*000*▚PIPI[P][Q] 1▚ BORDER USR USR +▙ LOAD LOAD RUN LIST LOAD READ READ BORDER LPRINT LOAD GO TO GO TO ▖ LOAD LOAD wp LOAD FOR FOR ▘ NEW NEW ▘ REM REM INPUT INPUT LOAD p$0*000* DIM DIM BORDER LPRINT CONTINUE // LOAD LPRINT LOAD ▘ LIST LIST + CLS CLS CLEAR DRAW CLS BEEP ▘ RANDOMIZE SAVE DIM ▘98 LOAD ▚ INVERSE BRIGHT CLS IF IF ▗ RANDOMIZE RANDOMIZE ABS SGN ▘EXP LN ▝SQR 0$0*00P*[B]yx IF CLS SAVE >=▛>=%<>IN <>Yl▘ PAUSE LLIST [I] RESTORE COPY COPY IF IF LINE [F] COPY COPY REM REM ** COPY COPY CLOSE # CLOSE #STR$ USTR$ SCREEN$ ▗ATTR ATTR WW/RND▝CODE NOT ▘^^ INVERSE [D]AT AT @@A@;; INPUT INPUT [P]||[P][P]?w??IN OVER OVER ATN 7IN DEF FN DEF FN COS 3IN e98 DEF FN ▝PI▝ DRAW RANDOMIZE ?[H]'▞IN PAUSE ?w▘©© CAT ▜ LINE IN IN PRINT PRINT ?[P]UUjj[P]SCREEN$ *SCREEN$ SCREEN$ MERGE MERGE VERIFY ▟ COPY COPY FOR FOR OUT USR VAL 0 BEEP BEEP [P]NOT COPY COPY ATTR ATTR ? FORMAT PPa▗ CLS CLS PI[Q]o▘''iPOINT ▗ATN 7TAB ▟LEN ▗COS 3AT EXP [J]▝ COPY [B]:Q▝ READ MERGE COS ▚O@ RETURN __ LIST ▜[Q] DRAW [Q][Q][M]__ RETURN RETURN CODE [Q] PAUSE CODE CODE CLEAR CLEAR O@ RESTORE UUZZPI[Q] REM SCREEN$ SCREEN$ ASN ASN DRAW B▘ RUN LIST ▘55%F▗ CAT USR POKE T<>▘PEEK PEEK )▗ BORDER <><> MOVE >▝ CLS [O]▗ GO SUB FOR READ B GO TO FOR READ ;STR$ LET NEXT [M] BORDER GO SUB ,>= COPY [H]u▖((SP RETURN [M]▖ATTR FN DRAW ATTR ATTR COPY COPY ATN ▙UUVVPOINT FN IF SCREEN$ SCREEN$ TAB TAB ]/=▘ RETURN RETURN 0▚yxe▗ IF IF COS VAL } PRINT LOAD LOAD INT INT ©}▘ PAUSE PAUSE v[L]▚ CLS zx OVER OVER ▟:8 DEF FN ▝ LIST +▗ DRAW BORDER LPRINT FLASH BEEP ▝<>▘ POKE THEN ▝▝[U]NIN ▝0 @ IF p▚ DRAW < LET ▝zPs▘ IF `0▘} PAUSE IF P[D]▘ IF 5 CLEAR / ▝©>0 ▘PEEK ▘}▝0 ▝CHR$ IN ▖u© IF A RETURN w▚INT COPY ▝}[R]@▗<<= OUT ▚} COPY IF Q ▗: READ POINT ▚INT COPY STEP CLEAR FN `} BORDER q}G COPY BORDER IF V~[T]▟ NEXT B IF COPY PRINT PRINT CLEAR @ATTR PRINT USR CLEAR O COPY NEXT REM >z RETURN FOR USR COPY REM FN © SAVE u POKE PRINT @ CLEAR @ RESTORE LPRINT COPY PRINT E DRAW LLIST [H] RETURN [Q]▛ DRAW COPY SCREEN$ [S]FN ? THEN PRINT W COPY PRINT X<W RETURN ? CLEAR ▜[B]A COPY CAT REM SCREEN$ CODE REM SCREEN$ RETURN CODE DRAW COPY IF SCREEN$ [S]SCREEN$ SCREEN$ VERIFY ▝ DEF FN THEN ▝1p OPEN #▘k1 OR ▝1*>@ RETURN p ▝©LN ▛! LPRINT ▘>`0▗_@PI▝>P ▝ USR ?@▗USR @0 ▜/USR [Q]© ▟0[N]@ LPRINT >P©[Q]w▚VAL$ [Q]? LPRINT _FN w▝q@▚[P]@ COPY LPRINT RETURN T ▟.[Q] COPY NEXT ©SCREEN$ `@yUSR _Q COPY RANDOMIZE RETURN U[P][Q][T]▟| LPRINT PEEK [T] COPY CLEAR }[T]?P▟ CLEAR p COPY S COPY DRAW IF O[O][Q]c[G] IF LIST ? IF SCREEN$ RETURN CLEAR =P COPY P RANDOMIZE x© CLEAR Q` SAVE zSCREEN$ COPY FN STOP COPY [Q]▙SCREEN$ NOT PAUSE CLEAR U COPY CLEAR V COPY COPY [B]P© NEXT IF SCREEN$ ATTR IF SCREEN$ IN ATTR COPY ? RETURN SCREEN$ FN SCREEN$ SCREEN$ Q MOVE ▝3p#'0 REM s2▝©!J▝`C▝IN !*▘USR `▘[Q] RUN p[P]USR ▘[Q]St▘ CAT [Q] P0▖ BEEP FORMAT LPRINT P ▝ LIST [Q] FORMAT ▙4 ▗ LIST FORMAT 0 ▘ THEN LPRINT ▘FN ▟ BORDER P SAVE CLOSE # CONTINUE w▚ FOR FN SAVE SCREEN$ w▝@▚ BORDER FORMAT ? SAVE ? MERGE ▝c[L]0 THEN FN ? DRAW OUT SCREEN$ FORMAT FORMAT p CLOSE #© RETURN ©Ug CONTINUE [T]▟8/FN COPY COPY _FN CAT CLOSE #▘?/ COPY >S BORDER FN c>SGN RETURN SCREEN$ ▜ COPY ▜?OT~^ COPY TP?USR RETURN REM LN IN STR$ LLIST [I]* LIST DRAW IN U© COPY U OR © READ COPY MERGE UUT< RETURN SCREEN$ SCREEN$ RETURN ▗ COPY CAT COPY SCREEN$ a FORMAT ▝ OPEN #>=0 REM tSIN ▝0 `&▝/!*▘ LIST ` CONTINUE `p▗' LIST CONTINUE a LPRINT ▝ CONTINUE `0▜u POKE SAVE `` ▘s CONTINUE [K]▘ CONTINUE $ RUN ` ▗ DRAW POKE 0 ▘r SAVE ▝ REM 5▝ MERGE ▜ RANDOMIZE CLOSE # RETURN PRINT STR$ ▝` ▜ IF REM RETURN REM ▜7▗ LIST ▚ POKE RETURN PRINT G LLIST c[L] PAUSE REM COPY 7 REM [T] POKE POKE [M] OR PRINT COPY [P] MERGE Y IF [T]▟ DEF FN REM ? COPY BEEP SCREEN$ 3 PRINT ▟ BEEP ? PRINT ? COPY CAT CLOSE # RANDOMIZE REM c▘CODE ▜SCREEN$ [R] COPY LLIST OPEN # MERGE [H] COPY MERGE LIST ?▜[H] IF ./ LIST © RETURN SCREEN$ [Q] DRAW COPY / MERGE _ COPY MERGE ` LET _ SAVE COPY PRINT ▚?SCREEN$ SCREEN$ IN ▖IN NEXT COPY REM SCREEN$ SCREEN$ FN zRND IF <= READ k▘ BRIGHT SCREEN$ [L] COPY ACS 6 OR BIN ▝▚ATTR ACS 654 COPY SQR ; PRINT POKE DRAW :: OR BIN LET IH NEW OVER OVER GO SUB <=<= READ LPRINT STEP CIRCLE CIRCLE INVERSE RESTORE INVERSE SAVE SAVE LPRINT NOT [P][P]o` INK USR USR ^▝#l CAT RANDOMIZE ; LOAD DRAW [D]▘ READ RND▗ SAVE PEEK PEEK LINE ▘SGN SGN RND▝ABS zRNDATN ▝*<><z CAT BRIGHT ▘ RUN m▘VAL RUN ATN ▘7000[▞[B]{[I]pp COPY ▘ LLIST COPY ▝p COPY p COPY COPY DRAW ; COPY ▘ LET COPY ▖ NEW INVERSE INVERSE IH GO SUB COPY ▝ STEP COPY ▗ INVERSE LPRINT LPRINT COPY p RANDOMIZE p RANDOMIZE RANDOMIZE ▝! RANDOMIZE NEXT ▘ LOAD [I]▗ READ INPUT INPUT RANDOMIZE ▘p NEXT p NEXT p NEXT p NEXT {CHR$ p NEXT p NEXT p NEXT p NEXT ▟ COPY LIST == RUN STEP STEP RUN O LET MIN ▝▝>>||$ LLIST OR ~▗nnvv0[M]nnzz^^[[ PAPER PAPER mmACS ACS ww INPUT INPUT __ IF IF hhxxPIH▝| GO SUB PRINT ▝ SAVE !t READ LET %▗ GO TO RUN ll COPY 2ACS ACS COPY DIM ▖ VERIFY 66 COPY BEEP [U] MOVE VAL$ VAL$ ?<>//[P] GO TO ;;O@ READ RUN RUN CODE [Q]USR PI[Q] LIST 0ATN VAL M VERIFY EXP ▖ DRAW wp COPY LLIST RUN ▝▘ OUT 0▘<>k REM ]▘ BORDER 0▘ LOAD ▘ LOAD } LOAD oPEEK 0▘ BORDER LINE ▘ RUN Z0 RUN COS f▗ NEXT FLASH CIRCLE A0▝ SAVE SAVE CONTINUE ▘ GO SUB GO TO 00▜ GO SUB GO TO RETURN DRAW SAVE LIST LPRINT ONOT COPY ▝ RETURN Pdr ▘SCREEN$ AT MERGE P0 REM FN @▝▗[Q]>*<= LIST 6▘LN 8 FOR @▘66.J▗mm▛▖P▝[J]^▗llkh>fww FOR CONTINUE LPRINT @ THEN >= DEF FN ;; INVERSE NOT USR SAVE M[U]70 SAVE SAVE c<=USR 88pp{{ LPRINT LPRINT PEEK PEEK RUN RUN IN ss COPY COPY ? RUN RUN COPY COPY ~~ DATA DATA MERGE ©©a NEW ▘ LPRINT LPRINT xxn```??wp|▝INKEY$▘70pSTR$ `STR$ ▝8STR$ ▝ LPRINT POKE ▞ COPY 00 LOAD NOT <>▚gg LOAD ^▚nn THEN >= LPRINT 0▗SQR LN CLEAR CLOSE #▚vv;8 CLEAR |STR$ 0STR$ ▗ CLEAR OPEN # FORMAT 0STR$ ▗ CLEAR LPRINT LPRINT 0STR$ ▗ CLEAR READ READ 0STR$ ▗ DRAW LIST LIST 0STR$ v0STR$ ©©tt©©▝x©©PEEK PEEK LINE ▖NOT `` OUT OUT INVERSE BRIGHT $rb▘ STEP TO ©AT OSIN 0SQR 1[A]11▖1▗11|x▝ COPY AT [M]▖::[D][A] COPY <<PI▗OO<=USR ▝. INPUT INPUT ? INVERSE [C]mmSQR LN GO TO [N][N] FLASH CIRCLE NEW SAVE SAVE PLOT LET }+ACS ;SGN ~~?▘©© VERIFY ▘??▛ LOAD LPRINT RETURN CC LOAD LPRINT USR LET ▚ LOAD LPRINT FLASH SAVE SAVE LPRINT LPRINT LOAD s▟ STEP STR$ CAT USR INPUT NEW PRINT ▝ LIST CIRCLE ▝▜▘ SAVE 1▘ CLS +0▘ CLS 0▝?u COPY USR j "ppo` RETURN W▖' RETURN FLASH FLASH 0▜ RETURN CIRCLE CIRCLE BEEP FORMAT RETURN e▘ FOR FOR ▘uu$▘xx0[P][P][U]▞▘ RUN RUN ▜ PLOT PLOT ©▘ TO TO ▘SQR SQR [J] CLEAR USR USR ©@$ FORMAT ▝{▘▘ IF IF ▘ RANDOMIZE RANDOMIZE 0H▘ NEXT NEXT CLOSE #0▘ NEXT NEXT Z NEW NEW ©)▝ DATA Z▘ PRINT ▜▘ PRINT V▝ LET RUN LET ▘ LET ▘ PLOT FORMAT ▘ PLOT ~▘ RUN ▝ NEXT v GO SUB q NEW q NEW q NEW a NEW fq NEW q NEW Q NEW ▝ LIST ! NEW ▘ BORDER w▚ LOAD wwIN 0 GO TO ss?©[B]▖PEEK PEEK NEW OUT OUT SAVE READ READ FLASH CIRCLE LPRINT NOT ▝ BORDER NEW ▝ COPY 1 NEW ▝OPEEK ▘[P][P]▟o`USR ||o` FLASH IF ! NEW ▝ STOP NEW ▞ FLASH ▟▝ CAT USR TO = NEW LOAD } GO TO BORDER } NEW LIST xq NEW q NEW q NEW q NEW q NEW q NEW Q NEW ▘ PAPER PAPER q NEW q NEW q NEW Q NEW ▝ DRAW ! NEW ▘ RANDOMIZE >U[▗ RANDOMIZE BRIGHT BRIGHT Q NEW ▗ CLS LN LN ▘<=<= GO TO ▘ CLS CLS GO TO SAVE SAVE © CLOSE #▝[N]▘ RETURN [D] RANDOMIZE [K]▘??▘VAL ▘USR ▘ BORDER BORDER 0F▘ LOAD LOAD .▘ INPUT INPUT 4>EXP IN ▗ NEXT RETURN ▝[A]g▗ PLOT >TAB ©IN NEXT <=<=IN RANDOMIZE ^?,m CLOSE #E5▝ COPY EG▘ OUT P8 CONTINUE ▝[P][R] PAUSE ▘%U RETURN _ ▗ DRAW OUT FORMAT ▘ RANDOMIZE 0▘ LET 0▘ RESTORE %00▘ STEP M00▘[F][F] 8@▗ RETURN UUH▗ DRAW [E][E]P▘ RANDOMIZE 0▗ PAUSE [I][I]`▗ DATA $[A][A]h▗ CONTINUE (▖▖p▘ REM *0▘ INPUT .0 ▟ REM *?< COPY STOP "©ASN ▚ DATA $ RUN POKE 0▗ BORDER NEW u▗ CAT ASN ▚ LPRINT [P][G]▗?'u▝C ▗<< COPY (yy COPY >=▗ LPRINT NEXT PAUSE DEF FN LLIST ! BORDER ~V# CAT >= OVER ▘ BORDER '0 PLOT LOAD /?xb▘>©+^▘< COPY CHR$ ▝y:▘ THEN J:▘ CAT LJ[K]**&▝▚IB GO SUB mN THEN 0V▝#▜h'N AND @'t▘N▖/ RANDOMIZE ▚"@N PRINT ▝W.▖▜` STOP WD ▖[A] FORMAT IF [H]FN BIN CONTINUE [H]@ PRINT h▞$ POKE [Q] REM ~▝M [G] POKE /INKEY$USR 5 POKE STR$ /[Q] READ OPEN # IF FORMAT [T]BIN LPRINT [C] DRAW t/[Q]'[J] SAVE S@▞IN IF + OPEN # DRAW INKEY$INKEY$_@t, SAVE GRND NEXT [A] OPEN #@PEEK [Q]SCREEN$ 2SK# LOAD @▚f©Pt$}ERND OUT INKEY$K-@ RETURN [Q](I RETURN K" OUT @©X CLEAR %[B] DEF FN [Q] RETURN FN USR 0 MOVE IF STR$ CLS ▗}P PAPER ▘ DEF FN ? CLS ▝ IF SGN ▝ LIST ▝0 TO ▘L, CLEAR ▗@`6[K]NLN ▘[A]ABS [S]/▚[A][Q] PRINT ▝.▖▖8 MOVE } ▖[Q] $t RETURN %FN F1:% FORMAT CLEAR @#-h▜I}[T] CONTINUE EXP ▝'`USR [O]▘ ▜ CLEAR K DIM [Q][G]▟B}0K CONTINUE SAVE LPRINT G POKE DIM ▞[K]▘>G POKE ( LET 8 [K]?E]K CONTINUE NEW ~G CLOSE # FORMAT <=>EUSR $▜C DIM POINT ▝ FORMAT SGN ▛>[B] DIM | LPRINT $4 FORMAT /FN *[E]CHR$ R>= CLS FORMAT ![J][Q]_ CLOSE #STR$ ▞[B]iw DIM [C] THEN PIN FN USR [C]©R>=ATN FORMAT LPRINT _ VERIFY [F]DIN ▞dsFN USR USR BIN IN SCREEN$ 04~DVAL x CLS CHR$ _T LPRINT =_ SAVE ▝>SGN ▝ LIST ▝ TO ▗ SAVE ▗ ▚&▘p? SAVE $Bp/@ CONTINUE GO SUB $▚@O[Q]t SAVE ▗N ▝[P] ▜]*IN [Q]▞ NtIN PPOINT [▜@[P]@h IF EXP ▝`▗0'[Q]▙ ▜?@USR IF h[G]▟#P[P]L IF ~8 CLEAR 4&[Q][Q] CLEAR <N [C]STR$ [B]@[H]@ IF y[P]▝[B] PRINT 41[C] p▘ABS ?USR IF j`E▟[H]@" CAT [U]z_84▛hCODE J[T]%0 CLOSE #SIN > POKE fh[H] PRINT 0G@"G DATA Z] IF dSIN CLOSE #/ REM 0"$[P] CLOSE #SIN - POKE x PRINT ASN [D]/[S]Y REM p01/ REM USR Q,jACS ▘[H] MERGE COPY STR$ _ SAVE ▘FN LLIST ! FOR ▝ TO ▗USR @p CAT ▜pI[Q] [M]? SAVE ▛[M] FORMAT : +<=▝▞▚ CONTINUE ]$INT ▖▝' @CODE ▘@▗/ CONTINUE b ▘Dc CLOSE #POINT ▛[A]' FORMAT >OFN }`▗ CONTINUE # ▚O FORMAT 0PEEK [K][G] CLOSE #' OPEN #PEEK @_▙©[R]▛FN # CONTINUE ©▘ LIST dP.PEEK [O]g LPRINT d}M[H] / LPRINT CODE O LIST >[K][I]▖▟% FORMAT COS )[H] DEF FN CM"!CODE FN <>L PRINT ,ABS [K]% CLEAR @ FORMAT [B] RANDOMIZE [H]~[J],ASN K IF [Q]' PRINT ,▛}^E CLEAR cASN [E]K CONTINUE [G]G:/K IF [T]USR 0G CLOSE #Kj% PRINT u0`#aGH▗▗▘q{[E] DRAW A@ INPUT INPUT -, OUT OUT 44[H][H]▖▖ LLIST BORDER RND RUN INT INT <=XX[I] OUT OUT PEEK >>=>=IN ?ff[P][Q][Q] CAT BEEP FORMAT BORDER BEEP FORMAT LET <=USR DRAW [K][S] DRAW ATN VAL RANDOMIZE ATN VAL NEXT ATN VAL BORDER 10 CONTINUE -, INPUT LEN 0[M]G REM [N]IN ?©SQR ;▛▛©ATN 7 STEP STEP ?RND% OR OR IN STOP STOP 9nn OUT LET VERIFY VERIFY i▘77!▘SIN SIN [D]▞ INK INK IN BORDER CONTINUE CONTINUE ? VERIFY ▝ PRINT Z▘ RANDOMIZE DRAW qW COPY FLASH FOR 0p=▝ MOVE -w▘ STEP I▝ INVERSE BORDER G[I]BIN BIN INPUT GO SUB NEXT NEXT C@ DIM qqkh LPRINT FOR ▝▝▜▘CHR$ {{POINT FN DRAW ▝▝[H][B]▟▟ CLEAR DRAW CLS GO TO GO TO ▝ CLS PLOT PLOT kh RANDOMIZE LOAD ▝ REM ▘ CLEAR CLEAR ▘}}POINT ▘CODE ▘ OR ASN ▘ STEP SQR ▘[N]STR$ ▘;;[N]▘QQIN ▘aaIN 88 LOAD & RANDOMIZE BIN R CLS LET LET )~▘ATN VAL E▟ OPEN # FORMAT IF //[X SAVE >>! POKE ▘▚SGN ▘ OVER 6a STOP ▞cc}| RETURN CLS CLS ! CONTINUE ▗ CLEAR CLEAR [L][I]▝,o▝_*▞▘<=USR ▝ LIST , CLEAR IN @0p DATA ▘ DRAW ▗▝ CLEAR ▝▗ DRAW READ LPRINT THEN ▙ SAVE CLEAR DRAW DRAW CLEAR [O][O] CLEAR >> DRAW >= LPRINT ▝ MOVE IN 77>>oo OVER OVER ll OVER OVER NEXT NEXT nn NEXT NEXT LL CLS CLS RUN RUN }|vvxxDDSIN SIN ccACS ACS tPP IF IF QQCHR$ CHR$ --XX||KH MTAB ▝ SAVE AND NEW ▘ LET RETURN GO TO [U]▗>=llINT ▜ACS ACS COPY FORMAT ▖ VERIFY 66 COPY BEEP J[J] MOVE CODE CODE <>// CAT USR GO TO ==g` READ NEXT NEXT COS VAL LIST DATA }| INPUT ▛ DRAW DRAW RANDOMIZE SAVE CONTINUE OR BIN READ INKEY$▘ DRAW POINT CLEAR NEXT M CLEAR THEN Z>VAL$ [Q] ▘ DRAW " ▝{.x▝sl RETURN #zR SAVE :RND~t LET SAVE DATA 66<>▗ CONTINUE FLASH FLASH 0▘[[ INK ▗ FOR 0TAN ▘ BEEP BEEP STR$ DATA VAL$ VAL$ gSIN ▚ PLOT COS VAL Z RANDOMIZE RANDOMIZE INK s SAVE BRIGHT PEEK PEEK !▘~~v▚ POKE STOP STOP _▝[Q]=<>G▝[L]▝CODE O▘/[S] OUT '-e▗ CAT COS COPY ▗ BORDER EXP ▝rTAB ▘ READ SCREEN$ ▚ SAVE f`;8 OVER PLOT LIST CLS READ LPRINT 8 INPUT ABS "[C]R$▘B"![S]<E#Z LPRINT 0[F]SCREEN$ T p[I]USR @BE$USR FORMAT ▝ATTR ▗=ATN s ERASE ▗ IF & BORDER o8[R]n INPUT [H]USR POKE TAB PRINT KUSR PRINT ! PAUSE ATTR LPRINT POKE USR ▝K LPRINT PRINT /2CODE LPRINT IF [S]I_▞/[U][P] LPRINT IF ^u_▘PEEK IF ▞ PLOT IF ? LPRINT IF j GO TO IN ▟c VERIFY ?USR CLEAR # AND ©USR IF 6IN OR OVER INPUT |USR 3 GO SUB |COS 0 RESTORE COS [I]O>= RESTORE ATN READ IN DRAW FLASH BORDER RETURN _8[ LOAD LOAD /BIN [N] CAT CAT RETURN VERIFY [N] COPY ▛[O]IN 9 COPY ▛bIN COPY IN ▟ SAVE > COPY INKEY$?~ASN COPY COPY SGN ASN COPY RUN ]LN OVER RETURN BORDER [USR DRAW RETURN FLASH LPRINT LPRINT NEXT iATN ▞? RETURN © RETURN ? DRAW © DRAW O▖g RETURN O RETURN ^ LPRINT CHR$ ^SCREEN$ RND REM UU RESTORE ▝0O DRAW U RESTORE _ RETURN _ RETURN ? RETURN RND REM DRAW ^ VAL ^ 0▝X@▝/@,© RETURN @.© DRAW PI REM USR ~>P; NEW r© DRAW ? DRAW }>?z▗g RETURN /VAL$ }▗].^▗▘/VAL$ 0p▘^|[D]/.O DRAW _ DRAW _ RETURN ]VAL$ ? RETURN ^^^_ RETURN @VAL ▝UASN /.© RETURN ~x©d LINE ▟<~~ GO TO USR ,/[M]<x0|M7 BRIGHT ▞> SAVE READ COPY DRAW LIST USR SCREEN$ X[I]0AT VINKEY$VACS FTAB M( SAVE ? COPY RETURN LIST :K[H]#fl INK PAPER [J]SIN ASN VAL SIN [I] CIRCLE CIRCLE INVERSE STEP USR COPY © RETURN LIST X' NEW DEF FN TO [M]NOT [J]▘[M] BRIGHT USR TO ▖USR OUT ?[P] LN l RANDOMIZE mSTR$ INK INVERSE STEP GO SUB llfvCHR$ CIRCLE mACS [L] FLASH INK LINE ▝USR ▙6fwCOS SQR [D]AT ACS FLASH mmvACS MOVE ▜MV[I][Q]TSCREEN$ POKE REM PRINT IF RESTORE IF DATA `'G SAVE OUT COPY © OVER LIST USCREEN$ ~=u[I] PRINT OVER RUN CLEAR OUT © CLEAR COPY o STOP x LOAD SQR COPY INPUT SQR LOAD CLEAR W COPY ^ LIST AVAL$ [I] PRINT COPY IN CLS COPY FLASH COPY CIRCLE READ TO [B]+'JWK'/[Q]jMASN [G]? LOAD IN CLEAR RUN PEEK COPY RUN ABS COPY w RETURN RETURN CHR$ SAVE U IF CLEAR REM U<>▚?^D▚ATN USR COPY ▝© MOVE INT ABS CLEAR 6 CLEAR 6:[a2> REM :Wa2B REM :Xa2F REM :NOT FOR CLEAR w>VAL$ 2 THEN [R] INVERSE !B[C] INVERSE 6$ CLEAR 66 STEP [G] LET [R] STEP [S] LET CODE CLEAR w CLEAR w6 CLEAR w CLEAR w CLEAR w*2PI>2W GO SUB >2[H] GO SUB SCREEN$ COPY GO SUB >k2 CLS GO SUB >2 INPUT >2 INPUT >{2 CLEAR GO SUB >2 INPUT STEP (j STEP LLIST d STEP [F]j STEP nc STEP aPI0` INVERSE !VAL$ 0[I]6 STEP ▚g STEP INVERSE g!(ax= STEP ASCREEN$ ~ RETURN xLN i LIST REM NEXT STEP TAN LIST :[P]aPI( STEP PIf STEP OPEN # LIST > STEP RUN } NEXT 1:Ya RETURN TO CLOSE #} CLS v NEXT CLS STEP -[U] STEP j STEP =g STEP LEN f▟ STEP d NEXT STEP FOR GO SUB STEP GO SUB STEP CLOSE #}5 STEP c FOR RUN INVERSE ▚ CLEAR ▚ INVERSE wH[Q]:PIPI( STEP FN GO SUB STEP s REM STEP STOP DIM CLS STEP [B][L] STEP d[O] NEXT STEP S[G] STEP FOR LET NOT BEEP DIM STEP [N][H] ▖I GO SUB NEXT STEP ▛NOT k▗) REM STEP GO SUB [O]2 REM STEP REM USR !, INK _b CLS GO SUB VAL NEXT !_"[O]>,2[O]W[C] INVERSE RESTORE STEP [O] INVERSE LLIST NOT [N][H]!<>"NOT [H]M▝!+NOT [H]<> DRAW ▝▝CODE P CLEAR 6[R]▝RND▝!▗>ACS [B]1▝[E]NOT [C] STEP INPUT [R] LIST kp+<>!H▚! TO REM RESTORE :z"/:[L]([F]) INVERSE ~ CLEAR PEEK *CHR$ >=[M]>$2@[Q] STEP ,[Q] INVERSE 6q▝K INK ▘[A]|▛ CLEAR 6*<>!r REM 5 ;TAN 8 NEW INVERSE w INVERSE ~ RETURN LINE DEF FN [M]NOT >=[M] STEP f[N]!>= STEP FSCREEN$ INVERSE u INVERSE t GO SUB S[J]>2[I] INVERSE ~2 FOR INVERSE 6L▜L>2[J]&▝CODE ▚:[M]a2[[M]>()[C]▝>=▘PIUSR [G][C]USR NOT 5[M]!LN GO TO RESTORE :`aPICHR$ ;▙ LLIST :[K]▞><>2U FOR STEP = FOR CODE <>:Z▘LN GO TO VERIFY ▙PI LINE U FOR CLEAR 5 CLEAR 6NOT LN GO TO LN ▝J'▝+$<> CLEAR 6S STEP BEEP ▛PI!ABS [F] RUN ▘ PIM▘ IN p_▟▙ STEP [U]NOT STEP STEP [C] FOR STEP [F] FOR READ ▞PI :▚a!NOT FOR ][E] CLEAR PEEK ![I] GO TO (i![H] GO SUB ~= NEW w STEP INPUT TAN RETURN USR CLEAR 4<>SIN RR2R22[C]IN [J] LOAD [J]IN [P] BEEP [P] BEEP [M] LOAD [M]IN [U] CAT [U] BEEP [U] LOAD [U]<=SCREEN$ BEEP SCREEN$ BEEP CODE BORDER CODE IN TAN BORDER TAN STEP INPUT FOR STEP LET 0/▝Q▜ RETURN PAUSE !x GO TO ( T▝<T▝▝T▞PIUSR CLEAR 5<>: INVERSE GO TO 6:[T]▝▘▜▜ NEW ▘=~ RETURN COPY >=2m GO TO #~2q GO TO BIN ▝USR ▝USR &USR STEP E PAUSE :m GO TO RETURN LINE ; REM g▖ INVERSE GO TO STEP e LIST STEP dc-3[I]3▗} LIST PAUSE &▘ PAUSE 0▚ PAUSE 2R9|▘29▗C$▝@ COPY R PAUSE PAUSE [C]`2 CLEAR 6P! SAVE GO TO RESTORE ! COPY (9 CLEAR 6][A] STEP SCREEN$ NOT OVER GO TO NOT LET FOR NOT INPUT FOR NOT FOR FOR VAL$ ▗ GO TO 2TAB VAL$ ▝ LET [▝CODE 0<>:[Q] LLIST ▘[I]▛9▝p9▖[F] FOR NOT [C] FOR NOT FOR i▛ 0 NEXT GO SUB s> GO SUB 1▞ STEP RESTORE ▘ INPUT ERASE <>CODE THEN ▚▝▘!A GO SUB [K]}AT FOR !▖>o NEW 2© GO SUB O> [B]2k GO SUB INK INK >PI(GACS w# RANDOMIZE } VERIFY o0%▝P> [H]$ INK CLOSE # INK <>VAL$ 7VAL$ YVAL$ {VAL$ [N]VAL$ IN VAL$ LLIST VAL$ CODE ▖▛ CONTINUE GO SUB 1▜:[H] GO SUB ![I] GO SUB DATA ▚V+^+ STEP MERGE ▚ REM XP STEP MERGE 0SCREEN$ THEN [B]SCREEN$ !1/[E]NOT [I]POINT @@! BEEP INPUT RESTORE !c LOAD RESTORE ! BRIGHT ▚ LIST RESTORE !Xai▘wc▘!Wt▗w! COPY @▘ INPUT 0▝@▝@▝ CLS ( AND `w! CLEAR P▛: CLS GO SUB NEW RETURN (: CLEAR ▟USR !b@6U STEP #SCREEN$ 6SCREEN$ POKE <>pzpz▝<z x▝<@x x x x x(@x0▟<> GO SUB [ CLS GO SUB STEP STOP INPUT GO SUB [ CLEAR GO SUB {▘▘ FORMAT 6!BIN jUSR ▜TAB 2 LOAD PEEK ▝#▝&▝)▝=▝@▝C▞F LOAD FOR }6, [B]o$>[U] } AND o8| VERIFY gpp`[I]BIN <>VAL tVAL READ VAL RLEN : COPY GO SUB STEP l LOAD : INPUT ![ LOAD B$[D]! @o#}[R] pppp$p0p<H▝ LLIST SVAL$ <>[O]SGN LPRINT SGN "ABS dABS tA VERIFY O PAUSE ▛8 RETURN LET 0EXP CIRCLE ! CLOSE #P▞[E]![Q]@: INPUT o+NOT `SCREEN$ STR$ LEN STOP LEN SIN $SIN STEP LIST :LEN ▘ LIST `LEN ▘@ELEN ▝pLEN pLEN pABS ▝[G] OVER <>FDBVTVOGCODE g#Z▘▙2▘PI CLEAR 65 STEP a REM STEP MERGE f'` CONTINUE ▘U LIST ATN [B]2RND LIST |!"X#X▗▘ CLS STR$ #▜]T LOAD <>S[M]R G<> THEN FOR CAT FOR OPEN # FOR BEEP FOR FLASH FOR OUT FOR READ FOR BORDER FOR z▝>=%=U;@[A]N THEN ? THEN ?▝O#F STEP SGN [R]NOT SGN [R][O]▝USR [N]▜ CLEAR 6O<> INVERSE RESTORE (▜ INVERSE !T[C]~i▝#▝▖# INVERSE GO SUB INVERSE LLIST p!▘T[C]POINT w# INVERSE ~▝0!▖ (Px[G]PEEK NEW [G]x▘▜ RESTORE INVERSE LLIST x!E LET SQR OR ▟ STEP & PAUSE STOP OR x!▘ LET [T][O] STEP CLOSE # LET STR$ PAUSE !▝~6<>"~:~R~j~▘~[K]~SIN ~ LINE ~a CLS ▝▗'NOT % LET INVERSE RESTORE y▘ AND dKR▝ LLIST v AND 22 REM p2▖ LET ##6_[F] NEW RETURN 86# INPUT <>! REM LET 5USR ! DIM ▘6▘USR #▝<COS 0SIN ERASE ▘PIUSR AT ▘ REM x▟>= INVERSE 4:oa RETURN USR !4 PAUSE ▖5~=USR 6<>/>▗~<~<▚ STEP ~!5 PAUSE Ea PAUSE POINT [D]E!!>=2 STEP ASN [Q]STR$ OVER $▝P$▘▝ READ 8▝ OVER I INVERSE ▝T▞[L]=(>+2 DEF FN TAN INVERSE 5( STEP BRIGHT PAUSE PLOT INVERSE 4! DEF FN TAN 5(▗ DEF FN TAN 6( DATA ▛ MERGE }<> INVERSE F▞hSCREEN$ DEF FN TAN STEP `SCREEN$ CODE POKE yVAL CLS <>|USR ▚ NEW PLOT Xg<>STR$ ▝CODE l▝4▙6> CLEAR 6= CLEAR w? CLEAR 6@▗!H"X PRINT CODE 2 PRINT LIST STEP LET fAa( RUN 2. RUN STEP h BRIGHT ▘^@')B CLEAR m▞STR$ GO SUB !@[S] RANDOMIZE y[A] STEP i!H▜> STEP RNDi![Q][> ▖ STEP 9 PLOT STEP W PLOT >" RANDOMIZE : RANDOMIZE STEP SIN PRINT [E] STEP / RUN STEP INKEY$ PRINT STEP INPUT PLOT STEP [K] PRINT STEP CLOSE # SAVE STEP PRINT STEP v▜} STEP AT RUN STEP 6 PRINT 3▖: PRINT PI :▘▚ FORMAT h INVERSE ![J] RANDOMIZE OR (NOT ▟ NEXT yVAL <=ALL GRIFFINS DEAD HERE! OR STEP POKE [Q] STEP *[R]STR$ PLOT STEP READ ATTR CODE ▛!_w#y▗SCREEN$ # CLS LINE ▛*X PRINT STEP QSCREEN$ CLS +▚ OR STEP PLOT -[D]`XUSR ~w#xLEN NEXT ▘ PRINT % OR ▗STR$ OR STEP K/▘ OPEN #<>[R]>= CLEAR 5<NOT i STEP POKE ▘▘ CLS [A] RETURN (>= CLEAR 4<<>,^IN IN ,[N] PpUSR LPRINT LIST LIST LPRINT USR 06p POKE LINE POKE R▗>= OR MERGE RESTORE LET aw, IF --ACS ▜ LIST LLIST MOVE STR$ <>P$▚!f▘ PRINT STR$ ▜ FOR INK !a▝:~ INK w# INK NEXT @▝ POKE @@▝ REM @ NEXT ! PRINT RESTORE 7▚1[E]g[P]▗o[E][P][F]!▜ GO SUB VAL <>![ STEP REM PRINT :▟/▛:▙a RETURN FORMAT (5 CLEAR 4>RNDFN 1▝[D] BEEP ▘ATTR PI( CLEAR 5▗[F]FN 1LEN ▜(FN d! DIM PRINT 5# PAUSE ▗© PLOT w$▞2▟a<>> CLS ▖ CLS ERASE DRAW ~ DRAW LPRINT RANDOMIZE ERASE (! PLOT CIRCLE ▘: OVER ▝ FOR CLEAR k▘jSCREEN$ #B▘jSCREEN$ [D]! RETURN COPY " RUN >2! RUN :[A]a RETURN >=!EXP ▘w[E]@<>!▝0▝= ▝=▝=_▚@<> CLS ! DRAW RANDOMIZE BRIGHT [L] MERGE B GO SUB VAL INK INK INVERSE ! 7 INVERSE THEN INVERSE THEN ▝▝▚PI INVERSE THEN ▝▝▝!▘p*p*p*p*▘ OR [B]FN INK [L] INK MOVE NEXT <>:aPI DRAW RANDOMIZE BIN uSQR ▝ATN VAL STEP 5[J]STR$ LN ▜ FOR ! READ ([I](! FORMAT READ ~ RETURN MERGE RESTORE STEP j[U] LLIST MOVE #NOT 5[J]!- RUN ?▝TAB ▜ PAPER 9 PLOT PAPER W▖ABS SAVE PAPER AT SAVE FORMAT ▛▝USR " DIM STEP g POKE ▘<O G▚y!H|▙ PRINT >2POINT SAVE CODE 2 PRINT 2SCREEN$ SAVE [B]▗ INPUT 2FN SAVE NOT 6 PRINT OSGN USR CHR$ CHR$ !ATTR RUN 1b"[T]▛ STEP STEP RUN !SCREEN$ SAVE ~4! RUN ( CLOSE # PRINT <>:FN SAVE RETURN (":. RUN ![T]▜N:POINT SAVE EXP (/3SQR n▝ CLS USR !POINT SAVE 4<>▚~ RETURN (5s VERIFY FLASH ▝<> DEF FN FN SAVE <>$ STOP D=▝L▘q SAVE LEN CLEAR [R] STEP POKE U▝GU [I] RETURN USR :X PRINT NEW O:[J] RANDOMIZE =EXP (< IF <> STEP EXP VAL SQR ATN LEN j LINE eT▜NOT (j▙ SAVE ▙ SAVE ▝ SAVE [L] SAVE [L]▞ CORRECT$▛ TOO HIGH`▗ LOWs▗!ATTR SAVE }!. RUN ~ RETURN >=4<>!SGN `PI>=5<>▙ LPRINT LET LPRINT ▗ LLIST STOP U>=: RANDOMIZE PI!SCREEN$ STOP INVERSE ~! TO AND RESTORE STEP f[U] MOVE u MERGE d`1▚! RANDOMIZE 5 $:? RETURN 8 RUN DATA ▝ RANDOMIZE -▗ NEW ( 8 RANDOMIZE : RANDOMIZE ml RANDOMIZE NOT W RANDOMIZE 0▘NOT ▗0!V09▖USR ! RANDOMIZE ~ INPUT wU▝ RETURN ( STEP LET ▛USR INVERSE 4<>>0▝( INK RETURN USR INVERSE 5'$ CLOSE #j▘ FLASH 7r▘ SAVE COPY COPY ACS © DRAW x COPY COPY SAVE ,▞g COPY COPY AND © COPY COPY RETURN [L]▗[S]EP▗_ COPY COPY ERASE ▝ STOP IN ▚ COPY COPY ▖ ]/]d=▙ SAVE Mt▗ NEXT CAT USR =[S]▗ DATA BORDER LPRINT =AT ▗ FOR RUN LIST =ACS THEN NEXT @▗ CLOSE #;8= LINE ▗ OPEN # FLASH CIRCLE P▘ATTR FN P(▘ OPEN # FORMAT P<▘PI[Q]p= DRAW ▗ BEEP FOR CONTINUE ▜W FORMAT FORMAT (( RETURN RETURN RND[F][F]USR COPY PIAT AT )) COPY >>--[E][E]|| COPY UUMMINT INT SCREEN$ SCREEN$ COPY jjQQ VERIFY VERIFY ▗mmSIN SIN [G]**XX CLOSE # CLOSE # COPY ASN ASN YY PAPER PAPER TAB TAB COPY SCREEN$ SCREEN$ ▘ MERGE MERGE ▗99 BRIGHT BRIGHT ▚**,,44(▚UU>=>=0P▗@0P© RETURN 8xx▝>TAN )▗`[T]SQR 0 pqp@xUSR yUSR ATN [A]ATN VAL sCODE p<BIN LIST C LPRINT LPRINT NOT USR BORDER USR BORDER CAT J@0▗H▘@"|INT !J0[A][I]8LN EXP 0:pxq| LPRINT } DATA LOAD ABS CONTINUE wSQR STR$ 7ATN NOT [H]COS CAT LINE COS IN PAUSE #PEEK |#SGN ?x CAT p NEW USR J▝ BRIGHT IN @`@ LPRINT 8` LPRINT p0 LIST LIST 8 RANDOMIZE LPRINT < CLS LPRINT w OUT l BORDER c DRAW {▜ SAVE |o LET ?▝ READ >=<=SCREEN$ SCREEN$ RETURN SAVE 4 DRAW ?ASN SAVE [N] LPRINT NOT THEN <=| FOR SGN ▗ FORMAT FOR ▝ LIST PLOT ▝@[▝ PRINT ▝"G▗ RUN [C]▜<=[M] LOAD LN sx{y[J]{: RUN TO O DATA > LIST > DRAW < RETURN |:$< LIST b▝C▗@▘ LLIST ▝ CONTINUE USR ~IN D[Q]▛▝[A] THEN [D]NOT PI BORDER ▜ RUN DEF FN RUN OVER @{SGN {|0{< LIST ATTR ; LIST "; LPRINT CHR$ ;USR LIST w DRAW RUN [Q]▝l b<@IN LIST USR [O] CAT PEEK <=x0 PLOT STR$ LPRINT LN © AND COPY SAVE 0 DRAW p IF [R] LIST zCODE LPRINT [I]OUSR CLS _ RANDOMIZE OVER <SGN p DEF FN SQR USR INPUT v(!&SIN [Q]6T5TvAT SIN SCREEN$ ▗VvAT ERASE [H]UVvSCREEN$ SCREEN$ 6VYTwSCREEN$ AT PLOT VmTmSCREEN$ ,AT GO TO ▞.AT GO TO UTmATTR ▝P ▝ INPUT P8▞vSCREEN$ FN PLOT VYY PLOT ▝]@mY RUN SCREEN$ ,FN PLOT TmT{, GO TO AT CLS [Q].AT 4' RETURN STR$ COPY ▖ LPRINT © COPY SCREEN$ +CODE [H] RETURN FORMAT >©ABS (2COS RETURN CLEAR ^ CLEAR ViNOT POINT } COPY CLEAR COPY CLEAR COPY CLEAR SAVE CLEAR [M] THEN CLS CLEAR !:/ GO SUB V!X' INK > OPEN # RETURN > GO SUB O>? GO SUB G1PIa NEXT AND ▞6 GO SUB VAL NOT @%] VERIFY ▞ COPY [F] COPY d<>[K]'▖^'FN AT N@ RETURN r DRAW RETURN 0[-CSTR$ fv~8STR$ ▝~▗~`` f~▝~USR ▝~f`3 (▝@(0[A]|BB|@STR$ }POINT RETURN Pa.[BATTR ▜#N#MT@J@I CLEAR nJ CLEAR TQj▖<>0L@`[K]USR [A]USR ABS [S][A][Q]> FORMAT 8 MOVE }[Q] $t[Q] RETURN % FORMAT
