| Es parte de la publicación: | unplugged |
| Tamaño del archivo: | 23040 |
| md5: | b2e419a8d5294f02c540e86c80d5a2ec |
0 GO TO USR 0
62413 STEP [M]_1` INVERSE ![J]] INVERSE ~PI(- STEP [D]]! COPY COPY INVERSE N INVERSE FATN GO SUB BH INVERSE RESTORE STEP <_ INVERSE LLIST INVERSE ^ INVERSE V INVERSE RESTORE STEP LN ] INVERSE LLIST INVERSE STEP > STEP [D]]NOT RESTORE [N] CLEAR © GO SUB y<>[M]USR [C]USR SIN USR INKEY$USR [R] FLASH INVERSE ! BEEP ] COPY COPY GO SUB C INK ]>Z COPY N# THEN GO SUB C INK ]02 RESTORE ! COPY COPY GO SUB VAL LLIST ▜0@▜0 LLIST ~#8 BRIGHT ▜0 IF TO X^>= THEN AN# THEN GO SUB C INK ]8 DEF FN ▜ THEN ▜0 IF TO X^ RESTORE * INK ] GO SUB [Q] GO SUB VAL GO SUB [Q] LLIST ▜8USR ▜0 ~#8▜ THEN ▜0 IF ~# CLOSE #/^ GO SUB [Q] GO SUB VAL ▜8[Q]▜0 ~#8▜ THEN ▜0 IF CHR$ BEEP ] INVERSE RESTORE ~# CIRCLE ▜ THEN ▜ CIRCLE ▜ THEN ▜ CIRCLE ▜ THEN THEN ▜ RUN ~# PAUSE !!!"{^<>!!!"t^<>:u^><0 NEW / MERGE NOT /=▝^}<}!!!▗g>OCODE 2 VERIFY /yUSR ^ OR INT ^ OR ©[D] FORMAT NEXT : VERIFY /ATN <>:u^ THEN ? AND ^> STEP [E]^! RESTORE ?LEN !>USR STEP SCREEN$ ^ := NEW 7<>ATN <>!- SAVE THEN F IF <> STEP NEXT ^ SAVE STEP CAT ^ STEP OUT ^0 SAVE CODE AND RETURN 8[B][R]&o THEN F LLIST RESTORE STEP [I]^ LLIST THEN AND } STEP NEXT ^ SAVE INK STEP AND ^} OPEN # GO SUB _ CONTINUE GO SUB _<> RESTORE STEP 6_> NEXT STOP F_CODE 2USR ^ GO SUB [t^|[D]g"[U]^y2[G]_=O NEW LIST y[Q]G!}[D][P]Ox[F][P]LEN w- PAUSE f_ OR MERGE STEP CLEAR ^ MOVE STR$ !RND^~w!t^x[D]G▚_ NEW w{ NEW LIST (,4>>[A] INT LLIST <>:]!▚^ACS w* POKE /"t^"{^ INVERSE .!-6 CLS STEP ▝^ STEP CAT ^ STEP OUT ^0 SAVE INVERSE E INVERSE o[A]0 GO SUB D<&o5 FOR 2_!8}[S]([A]O}[T](=LEN w, LIST T&X NEW CLS v NEXT OPEN # RETURN ^w,CHR$ COPY _$ PRINT READ <>[N](Y FOR READ " READ [N] FOR MOVE GO SUB s OUT [N]1[N] PRINT OR MERGE RESTORE INVERSE RESTORE CLEAR RESTORE INK INPUT GO TO !NOT DIM #"INT [N]:@[Q] PRINT > STEP <[Q] STEP USR LET PAUSE INKEY$ LLIST MOVE STR$ INK CLEAR INVERSE LLIST GO TO LN 1q▙ CLS NOT NEXT [M] STEP [P][N]xLEN CLS STEP RUN [R]INKEY$! OVER PI[E] STEP e▜ LOAD -FN STEP CAT PI STOP STOP b STEP A[D]! STEP FN @ STOP CONTINUE PAPER VAL$ ,CODE ▘LN DIM VAL STEP PAUSE STOP "0 LET ▚FN RANDOMIZE [R]USR ▞LEN h MERGE h GO SUB [Q]+ x RETURN [S]TAB /TAB ▖"#ATTR EATTR > LPRINT FORMAT ▖ MOVE [S]VAL$ USR LIST ▝[L] OVER 9SIN [H] STEP L[P]v>f[U] FOR @ LOAD CONTINUE [R] READ > DIM READ BORDER USR { GO SUB VAL [I]CHR$ [C]{ CONTINUE 2!0 LET RETURN pABS ©LEN [I]^ RETURN ! EXP ` CONTINUE [Q]TAB z[H] OPEN # RETURN _G[O] STEP U[P]x;F[S] DIM _ RETURN g DIM STEP IF CONTINUE "[Q]<> BRIGHT {v STEP 5[Q]NOT NEXT O STOP STR$ REM >yNOT LET STR$ y[ RUN z FLASH W_ RESTORE XINT FLASH [I] CIRCLE DATA C GO SUB sz[P] RANDOMIZE MERGE RETURN ▟ PAUSE h LINE <>z NEW USR { AND _ CIRCLE z AND SAVE W<>$|FN STOP }SCREEN$ o|+g LPRINT DEF FN [P] NEW ▘ CIRCLE FOR GO TO ▗FN CIRCLE VERIFY ( SAVE ( VERIFY ) SAVE |%[C][R] VERIFY [S]>zV▚ VERIFY ▙38 STEP NEXT LEN RANDOMIZE <> POKE PI( SAVE =<> MERGE RESTORE STEP DRAW [P]| LLIST MOVE <> LLIST [P]zc. CLEAR ATN GO SUB R OVER FN RANDOMIZE LPRINT [K]_ PRINT :0#" CLEAR [P]<> PRINT [S]Jo LET ABS 8 RUN }>[M] GO SUB G GO SUB ^<>22[Q]K(d RUN 9 PLOT > INPUT 26[Q]2 LLIST C> OR CLEAR © GO SUB ySTR$ <> OR RESTORE GO SUB VAL LLIST STR$ PLOT <>*INT [N]DMv[R] PAUSE <>PI GO SUB B PAPER Z[J],"w[Q] GO SUB Cmn RETURN CIRCLE c FORMAT STEP [D] COPY NOT l[Q]"[B][Q] READ SCREEN$ "▜ ERASE TO SIN ▚[C][H]T]w COPY INK [[R] CONTINUE <> DIM } DATA MCODE [B] NEW ?(▜2ACS h[E] PRINT GO SUB [Q] DRAW Fv REM ATN [Q] MERGE INVERSE ![[R]POINT SQR COPY OC][R]>Z COPY N# THEN STOP 02mO_SQR <>[K] RESTORE VAL LLIST ▜ DATA @ CLS i LLIST ~#8 BRIGHT {0 IF TO BRIGHT [R]>=PIA CIRCLE [M]ATTR 8 DEF FN ▘ LINE > RESTORE * INVERSE OPEN # LOAD [Q]▜ RUN VAL ▝8 IF ]~[I]LN DIM NEW RETURN CLOSE # LPRINT [R]LN STR$ ▚[Q]▘[C] INVERSE CHR$ STEP NATTR LPRINT IN CIRCLE STOP ▘ PLOT READ THEN RUN [T] CLOSE # PAUSE ACS PI FLASH VERIFY CHR$ PRINT RND@' CLS >[R] TO ~ CLEAR !POINT PI CLEAR N CLEAR # CLEAR F PLOT ▘^[N]VH BEEP (P4[D] THEN FOR STEP ;[R] INK rfCHR$ ?▙[D]> OPEN # RETURN <>G[D]oGGC@F▞ RUN DINKEY$C▞j!Q[S]V*[[S]`FN e[E] IF "X[T]<>! STEP [T]NOT W[T]![U] POKE eASN GO SUB ▘9RND▚[J]▚ RANDOMIZE 'UINKEY$}t[T]/▜[S] STEP ▟[S]NOT DATA ([D]SQR [J] CLS [P][R] INK RND.ATTR OUT LEN ATN zPOINT .z PRINT ▚ RUN *EPILN [K] STEP o[S]ty~ DATA L RESTORE / RUN l[S] CLS LIST PLOT DRAW CLOSE #[R]#[S]USR [C]@[J](<>Q[S]xSTR$ [T] INVERSE o PAUSE CONTINUE SAVE © INVERSE } NEW ▜ COPY OUT INT INK STOP w<> GO SUB KABS FOR gTAN TO [L] VERIFY ▗ COPY TAN Q▗c▘ CLEAR ^#VSCREEN$ zCOS >= POKE ! CIRCLE AaSCREEN$ ▝[R]SCREEN$ STR$ &SCREEN$ FfSCREEN$ ▚INKEY$SCREEN$ AND CHR$ SCREEN$ NOT BIN [R] OR SCREEN$ CIRCLE [T]VAL$ [U]RND CONTINUE SCREEN$ "BSCREEN$ b▘POINT 'SCREEN$ G CIRCLE g▜VAL$ PI<= CLOSE #SCREEN$ INT [S]AT SCREEN$ )*SCREEN$ +,INKEY$-. CIRCLE ISCREEN$ i▞SCREEN$ POINT <>SCREEN$ NnSCREEN$ ▙VAL$ INKEY$ DEF FN SCREEN$ INKEY$ CIRCLE INT SCREEN$ SCREEN$ SCREEN$ LINE /SCREEN$ OoSCREEN$ CODE FOR CAT FORMAT [R] SAVE SCREEN$ ! INK " INK #$SCREEN$ %&SCREEN$ AaSCREEN$ ▝[R]SCREEN$ STR$ ▘SCREEN$ ▗SCREEN$ ▚ATTR FfSCREEN$ ASN SCREEN$ SCREEN$ SCREEN$ cdINT e CIRCLE SCREEN$ B'SCREEN$ GgSCREEN$ ▜[S] REM CHR$ LPRINT VAL$ baSCREEN$ )ISCREEN$ i▞SCREEN$ POINT <>SCREEN$ LINE THEN SCREEN$ TO STEP REM DEF FN FORMAT SCREEN$ ATTR AT ATTR TAB VAL$ SCREEN$ CONTINUE *SCREEN$ JjPOINT CAT SCREEN$ SCREEN$ TAB CODE SCREEN$ LET 1QSCREEN$ q[B]SCREEN$ LEN MOVE SCREEN$ 6VSCREEN$ v[G]SCREEN$ ACS VERIFY SCREEN$ ERASE OPEN #ATTR CLOSE # MERGE SCREEN$ [E]SCREEN$ COS POINT TAN ASN SCREEN$ 2RPOINT rSCREEN$ [C] INK 7WSCREEN$ w[H]VAL$ ATN BEEP hSCREEN$ INKEY$SIN SCREEN$ :;SCREEN$ <=SCREEN$ >YSCREEN$ y[J]SCREEN$ EXP PAPER SCREEN$ FLASH BRIGHT SCREEN$ INVERSE OVER SCREEN$ PEEK [O]j~ INK }|INT {AT SCREEN$ 9SCREEN$ SCREEN$ SCREEN$ [/SCREEN$ ]^SCREEN$ SQR SGN REM ABS >=?SCREEN$ ZzSCREEN$ [K]©SCREEN$ [P]IN INT OUT BRIGHT SCREEN$ INT CONTINUE _ LIST " PAPER # PAPER $ PAPER % PAPER &SCREEN$ AaSCREEN$ ▝[R]SCREEN$ CHR$ NOT SCREEN$ BIN OR SCREEN$ AND INKEY$SCREEN$ ▚fSCREEN$ edINT cTAB !SCREEN$ SCREEN$ SCREEN$ CSCREEN$ DESCREEN$ F[T]ATTR [U]RNDSCREEN$ >='SCREEN$ BbSCREEN$ ▘gSCREEN$ ▜PI REM <= BRIGHT SCREEN$ [S]G REM A)SCREEN$ *+SCREEN$ ,-SCREEN$ .ISCREEN$ i▞SCREEN$ POINT <>SCREEN$ jkSCREEN$ lmSCREEN$ LINE THEN SCREEN$ TO STEP [K] DEF FN SCREEN$ SCREEN$ SCREEN$ SCREEN$ MATTR SCREEN$ AT TAB INT VAL$ BIN SCREEN$ /nVAL$ CAT GO TO SCREEN$ NSCREEN$ SCREEN$ CODE j1SCREEN$ 23INKEY$45 PAPER QSCREEN$ q[B]SCREEN$ LEN MOVE SCREEN$ ERASE OPEN #SCREEN$ CLOSE # MERGE SCREEN$ VvATTR [G]ACS SCREEN$ TAN SCREEN$ SCREEN$ SCREEN$ COS TAN REM ASN BRIGHT RSCREEN$ r[C]SCREEN$ WwSCREEN$ [H]ATN INKEY$ VERIFY SCREEN$ 6ATTR 7SIN LLIST ZSCREEN$ [/SCREEN$ yzSCREEN$ {|SCREEN$ }[N]SCREEN$ ABS PAPER SCREEN$ FLASH BRIGHT REM <>YSCREEN$ :; REM < GO TO ~SCREEN$ [O]PEEK INKEY$ INVERSE SCREEN$ =]SCREEN$ ^[K] REM [M] CONTINUE [J]INT [L] POKE POINT INT SGN SCREEN$ EXP SQR REM d PAPER SCREEN$ PAPER PAPER SCREEN$ PAPER PAPER SCREEN$ PAPER PAPER SCREEN$ PAPER PAPER SCREEN$ PAPER PAPER SCREEN$ PAPER PAPER j PAPER SCREEN$ PAPER PAPER [K] PAPER PAPER SCREEN$ PAPER PAPER INKEY$ PAPER SCREEN$ PAPER PAPER SCREEN$ PAPER PAPER [K] PAPER PAPER REM POKE INT INKEY$SGN POINT EXP SQR [G] CIRCLE CIRCLE CIRCLE SCREEN$ SCREEN$ 1SCREEN$ 23SCREEN$ 45SCREEN$ 67SCREEN$ QRSCREEN$ STSCREEN$ UVSCREEN$ WqSCREEN$ rsSCREEN$ tuSCREEN$ vwSCREEN$ [B][C]SCREEN$ [D][E]SCREEN$ [F][G]SCREEN$ [H]LEN SCREEN$ SIN COS SCREEN$ TAN ASN SCREEN$ ACS ATN SCREEN$ MOVE ERASE SCREEN$ OPEN # CLOSE #SCREEN$ MERGE VERIFY TAB BEEP [L]INKEY$ABS [S]x[K] THEN [S] LIST D▞ OUT [S]h DRAW [S] LPRINT [T]X[T] FORMAT [T]SGN P[S][Q]" OUT PI; REM PI:FN INPUT 2 RUN <>B_ CLOSE #FN PRINT USR +NOT SQR REM AND =[R] PLOT : FOR > INPUT 2 PLOT PI PRINT ▜ RETURN AND @WC[A] DRAW RETURN ^|5 LET AND >= OUT ACS LPRINT OPEN # LLIST [ READ NEW DATA COS RESTORE GO TO NEW 9 CONTINUE ATTR STEP ▛ DIM V FOR & GO SUB INPUT ▘ LOAD l LIST LET NEXT ) POKE vP LET [K]# PLOT P INPUT [A] NEW LEN ! k*> COPY COPY T]PI DATA RESTORE [N]X[P]6<=t#_6G+TAN C[E]*[Q] INVERSE . MERGE INVERSE &~#BIN SAVE CLOSE #8SCREEN$ CLOSE # i LPRINT %3 INVERSE % DEF FN MOVE INVERSE - BIN mSCREEN$ MOVE ▚]"USCREEN$ <>v▙IN @ LPRINT LPRINT ]yx RESTORE THEN - IF P[N] LLIST $| POKE VERIFY Z GO SUB LPRINT M[H] READ CHR$ BEEP FN CLEAR !ATTR [O]~zPI LINE SCREEN$ CLEAR n STOP [M]fX)~| THEN ? READ DRAW _SCREEN$ n▜8 CLEAR u CLS CLEAR t DRAW O{ NEW RETURN 0| RETURN POKE 8'bk COPY INVERSE .s#s+"[T] DIM [H]w CLEAR [E] CLS FOR RETURN ▟! PRINT SCREEN$ N#F OR AND jO▙w! RESTORE OUT [Q]~ FOR foSTR$ ▗ MERGE Q[L][E] MOVE 5t LPRINT }} RESTORE NOT UPOINT : ERASE POINT <2 RANDOMIZE c< NEW I[F][S]SCREEN$ USR cSCREEN$ (cSCREEN$ [O]SCREEN$ RUN kEXP nK BORDER D CLEAR BIN bPASN x[H] CLOSE #▙ NEXT 0 GO SUB RANDOMIZE ` RETURN E8 RANDOMIZE *[A] GO SUB LOAD LIST SCREEN$ PAUSE NEXT SCREEN$ PRINT PLOT INT SAVE ATTR 0SCREEN$ `[A]SCREEN$ USR LIST ▘ P[S]B▞x▙G PRINT zBC TO SIN LEN INVERSE <▖NSQR d DRAW BRIGHT BEEP ORSGN 5POINT Rx[A] CLOSE # RESTORE STEP qATTR LLIST z` CONTINUE 9BIN "FATTR STEP SIN ATTR v RETURN FN STR$ |[O]POINT VAL ERASE ATTR !nAT gCOS (MUSR 8[R]1AT OVER LET b[Q]5bYTAB (TAB [P]COS ATTR RUN X OR FORMAT @uUSR * STOP READ ! PAPER >Gw, DRAW LET LIST Y{<> OR MERGE MERGE x COPY INVERSE RANDOMIZE hM--3▙TAB }[P]< PLOT MOVE OASN LPRINT READ >= MERGE PLOT [I]W FOR w[U]INKEY$~ SAVE FOR MOVE STR$ <>`FN a PLOT ▘B▘C▘$▘%▘▘[Q]▘[Q][Q]▘[I][Q]▘[A][Q][Q]▘([Q]▘0x[Q]▘8p[Q]▘@h[Q]▘H`[Q]▘PX[Q]▘XP[Q]`HJ[Q]SCREEN$ `a GO TO b SAVE VAL LEN NR [A] RANDOMIZE )TAN <>0▟ RESTORE LN <>0TAB !`X!q~T]#AT .SCREEN$ > PAUSE MOVE ©PId[I] RESTORE ]VSQR PI~kS@g <>[C] PAPER USR (Z; OUT [R]TAN NEW >H2B PAPER SCREEN$ M<> INVERSE !SIN VAL$ INVERSE * INVERSE SQR INVERSE PLOT >=<y. INVERSE "VAL$ PEEK STR$ .[M])] AND _@}L@▖ LINE VAL$ g STEP ]VAL$ [Q]y FORMAT 0 REM OR AND SCREEN$ AND OUT [T]▖ACS K OR OR PLOT 1▗v4v▙AT INPUT $f~[M];CHR$ [L]>=[ MERGE CLEAR SQR FLASH STOP CONTINUE ▟> STEP DATA ^[M][K]g LLIST VAL VERIFY FLASH & RESTORE ▚ OR w NEW DRAW DIM F GO TO NEXT LLIST # RETURN k[S] LLIST U3t MERGE ATTR [R]! CIRCLE MERGE PRINT yS▝LEN GO SUB s MERGE VAL INVERSE !!LEN CLEAR .0 NEW o THEN ? AND `g RANDOMIZE INVERSE n#▞f8 CLEAR |} MOVE s,r READ PLOT o$▗ REM MTASN GO TO W9▝DA[E]{ CLEAR -CHR$ >CODE 1!LEN LEN ▝LEN STEP LLIST LEN <>GG LOAD EXP FOR RUN LEN G LET © LIST [R][Q][Q]h *USR USR USR USR SCREEN$ SCREEN$ ▗SCREEN$ ▖SCREEN$ [A][E]SCREEN$ [I][M]▝SCREEN$ >=>=>=>=SCREEN$ SCREEN$ ▗SCREEN$ ▖SCREEN$ [A][E]SCREEN$ [I][M] FORMAT FORMAT FORMAT FORMAT SCREEN$ SCREEN$ SCREEN$ ▗▖SCREEN$ [A]SCREEN$ [E][I]POINT [M]▚ RETURN RS0▚ RETURN 08[H]# POKE VACS VAL r▙5>[C]▞ CIRCLE SAVE LPRINT <> LOAD ▖[Q][O]!) GO SUB FOR ▜p0VAL o/ IF YFN STEP #COS /CODE jLN MERGE * CLOSE # BRIGHT g PRINT INPUT W GO TO /PI`▙ STOP AT MOVE X CLOSE #PIABS U=K▝ FOR LPRINT *▘COS "$COS *f PRINT *[A]Db[A]CODE #>SQR /8[R]3jo BEEP [G]▞USR <> BORDER NOT POINT COS POKE [I]{ STEP EXP [P]#" GO SUB <>c PLOT SCREEN$ RESTORE RND+ PRINT GO SUB X CAT INK COS IF FOR CAT L COPY RUN LIST LLIST FOR cLN ! CAT CHR$ [S] CAT [O]k PLOT MERGE h[B][P]▞&8z RETURN CIRCLE >= OVER : OUT <>ACS 4 RESTORE [H]wINKEY$[|[K]TAN OVER VERIFY ABS AND LPRINT IN RUN ▝ RANDOMIZE PIX[D]<= LPRINT ATTR EXP RANDOMIZE RETURN ▘USR LIST <NOT LIST DRAW COPY [S]?30 REM CLEAR LIST . DRAW NEXT LPRINT ▙ DRAW 0p^ PAPER # CAT NOT INPUT RETURN NEXT GO TO x??@ CLS CLOSE # VERIFY RETURN [U]A) RUN FLASH ~Wa]▖▙ RESTORE LIST USR ▘ACS ~?n OVER COPY . TO DRAW GO TO C'TAN SGN [Q] RETURN J"AOAASN BRIGHT USR GO TO 7 CIRCLE #0 TO 8- LPRINT [< OPEN #▖un BEEP FN o LIST DIM ▗ GO TO BRIGHT n>=TAB = LIST PRINT OUT OPEN #: , CLEAR ~STR$ ~xM-ABS <c PAPER MSCREEN$ TAN NEXT ▛▚ CAT [E] GO TO BEEP z} RETURN 2 BRIGHT [E] POKE NEXT TAN [K]STR$ [C] OUT nI STOP vnw~tTAN POINT TO CODE [K] DIM OPEN # GO TO STOP RETURN < DRAW ERASE ~ INK ▗i}Fu[E] GO TO M INVERSE ▙4 OR TAB INT 3<TAB GO TO 7AT <=Ce▗ TO GO TO ^xW STEP [C]4`▗ MERGE NEXT [G]x RETURN B%0 LIST mUSR ]V BEEP LPRINT S,Ww▚#"R& COPY ▝WWBIN COS NOT E%▚▜3 CAT ?▝ LPRINT © OVER p▚} RETURN RND GO SUB REM [A]▙u▚RNDWn]g0Wt▚ RUN ▖▚Lw[E]p▙ MOVE BRIGHT CAT LPRINT [B]-APOINT ▚A MOVE [H]qv PLOT MERGE USR OPEN # SAVE ©" TO BORDER [E] INVERSE COPY FOR [T] NEXT PRINT RETURN NSIN -NOT 0X[O]CN[I]ASN u[O] NEXT ▙] INVERSE CHR$ Mv]SQR VERIFY NEXT PRINT USR [S] COPY <ACS DRAW ~<=( MERGE 7USR V[O]'0<?s[Q]jM DRAW VERIFY INVERSE n COPY RETURN 6 BRIGHT n MERGE USR [O]STR$ CONTINUE INT PAPER ▜AMWL INVERSE VAL INVERSE ▙]5 RETURN FLASH RETURN ERASE NEXT &NOT 0 CLOSE # FORMAT $ LET RUN geCHR$ LUSR LLIST E NEW L%~K DRAW [S] COPY <▟?▗~ CAT .PEEK vxMJL%J NEXT INPUT [A] NEW u] DATA INVERSE ▙LF CIRCLE _ RESTORE %1 STEP , BRIGHT ▗[B]q CLOSE #| INPUT DATA NEW MK.`~ NEXT DRAW SIN RESTORE [A][U] MOVE %P MOVE p DEF FN 7J DEF FN INPUT NEW A OPEN #n/uINT USR RETURN PAUSE NOT [R]WINT | RETURN <>S OUT . CONTINUE p: DEF FN INPUT NEW E OPEN #hPI0V[G]E INVERSE POINT AT RESTORE RETURN LEN [F]0 OR OPEN #VAL$ [H][O]A[D]Z DEF FN INPUT NEW E PLOT RETURN USR j%3 NEXT [R]3NOT [P]$1c@e OUT dH[S]W|nB DATA SU DEF FN , NEW @ LET COPY - PAPER ~udFTAN <tUSR vINKEY$ MERGE %>=STR$ [B]ACS BEEP GO TO Wo▙ CONTINUE 8 RETURN NEXT INPUT [A] NEW c<0 OPEN # DRAW LET V3LN q▚bAB]5[C] RUN LPRINT R>=y RETURN q CLOSE # CIRCLE OR 07n_Z_ RETURN hA<=5g[O] POKE FORMAT FORMAT OVER DEF FN GO TO S[A]u DEF FN MERGE MFN PRINT FORMAT PLOT LPRINT 1 DRAW 0L GO TO /NOT IN / RETURN 4 BEEP [C][O] RETURN LIST 4 SCREEN$ wn NEXT 6%<3X PLOT BORDER nACS REM ~G_/}E MOVE [A] PLOT RUN ▚<= OVER DATA RETURN }9 POKE FORMAT OR INT ATN INPUT v~W5 NEXT [Q] BEEP RETURN U7[G]7LEN REM [E]9 RETURN / CLEAR 0 CIRCLE GO SUB e GO TO ▙ CLS REM 3SQR 5 CLEAR _ PRINT RANDOMIZE OPEN #[I]Q$$>= ERASE [C]0e AND ] OUT PEEK BIN uuUSR GO TO RANDOMIZE ^ CONTINUE RETURN SAVE LPRINT RETURN BIN LLIST BORDER 1tsZ FORMAT PLOT PEEK © INPUT OPEN #0 CLEAR 8 DATA CONTINUE x_ VERIFY RESTORE ^ INK n<>~`©q[P][D]w▗ PLOT DEF FN ~D/© RETURN 2M CLEAR [O]LN INK ▙ CLEAR COPY VAL$ [D]▚/ CLS [H]s INPUT <=0 LET X OVER d CONTINUE @ OPEN #"WT ERASE 06 BORDER ▜ SAVE >=▟S CLOSE #w TO CLEAR d[L][G]0@[P] BRIGHT 0[P][K] GO TO RESTORE CONTINUE CAT x OUT OVER % GO TO MERGE [H]T<= RETURN O RETURN Lu RUN 8 BRIGHT CONTINUE x COPY GO TO CONTINUE RANDOMIZE COPY F- ERASE RETURN AACS A[A]_ SAVE BRIGHT ▚ ERASE SIN CN OR L= INPUT 4ah MERGE |F LOAD [I] REM qRN_Eq▙L INVERSE X[Q]7▚pt>==Q[N]n OPEN #n</= INPUT _ COPY ▙[M][P]0NOT M▘} REM LEN < NEW CLOSE #][A]/A OPEN # PAPER u▚5G~n<3▙q LLIST INPUT DRAW GO TO [K] THEN *w~Qp TO PRINT REM q CIRCLE STR$ [M]LN A[F] CIRCLE w~STR$ NEXT <= PEEK 4NOT , MERGE JwnL FORMAT 8 REM }n[B]▚ BRIGHT ▘6▚ OVER OVER AT < TO G PLOT / INT > OVER CLOSE #0 TO dq OPEN #W REM RETURN RANDOMIZE COPY USR REM OR LPRINT RETURN RUN [D]▚ BEEP l$:0SP_ INPUT }LN MERGE INVERSE REM [B]~INT RETURN COPY [O]([P] LET REM n RETURN #q▚ INVERSE ▗SCREEN$ d▖MR PAUSE C PAUSE INPUT 5SQR SSIN w▙_ RETURN SCREEN$ BORDER gk©STR$ REM STR$ STOP [L] RETURN AND GW[G]2A OUT >=G LOAD LIST PAUSE 4] FORMAT OUT NEW INPUT y REM RUN CONTINUE POKE NEW INT [J] RETURN EXP [P] REM Z RETURN NEW [I] LPRINT STEP RETURN BEEP ▚w M DEF FN 6~ MERGE <g STOP < LET PAUSE [G] STEP ▙SCREEN$ t VERIFY [K] REM NEW RETURN BORDER LIST REM 7▙TAB `SCREEN$ eG[A]][L]nUSR STOP RETURN TO CAT h TO { INPUT KAT DNOT XW[G] CONTINUE y COPY © RESTORE REM 5{[G]x SAVE CLEAR RETURN MERGE p@▝[O]USR Lv( INVERSE GO TO STR$ [M][U]U OPEN # GO TO 1WINKEY$A FORMAT 5 PAPER CODE O RETURN 1[E]= RETURN INK n,0Sun INVERSE y][G]G ERASE ▚BIN FN 0^[T] CIRCLE [H]`| AND NOT PAUSE PLOT FORMAT | CONTINUE MT BRIGHT [I]</a MOVE FN TwzS6/z RETURN P!@tR[p▚4GFN ]DUSR wAT 1 FLASH `[H]USR T SAVE [G] RETURN uT▗$ RESTORE BEEP tbt]▘ RUN ATTR ▚ MERGE COPY ] PLOT BIN XRD ERASE A MERGE a GO TO 6nB"qVAL VERIFY vFASN [M]/ MERGE fua LINE OR BEEP 9AT PRINT tD OR t CLEAR INKEY$ACS W] BRIGHT ▚}▜5][A]ACS STR$ OUT / LIST ][H]VAL$ OUT [I] CIRCLE ~! ERASE [K]v>= NEW RETURN NOT <l[E] RETURN DRAW USR OR 1 PAPER STEP 0 OVER 1 INVERSE [I] OVER VAL$ RETURN W CLOSE # DRAW USR ▗7▗][A]▖/SCREEN$ ]U▜n PRINT LOAD LIST MOVE qv MERGE MduA MERGE [K][Q]D MERGE OR OVER INK ~BIN _[C]_ DIM LIST M BEEP ~ACS CW[K]ppACS Aqb/u AND ]▚"4[E][C]L CONTINUE VERIFY PLOT q BRIGHT J=TAN INVERSE ~ PRINT x CLEAR DEF FN %[C]qACS [N][E]▙_ RETURN w~_ GO TO WVAL RETURN X BRIGHT 6▚C TO RETURN USR FORMAT ] SCREEN$ LLIST GO TO E▜ZQNOT V INVERSE INPUT [B]▙J COPY COPY p▚C BEEP RETURN a~ DATA RETURN BRIGHT ▚T STEP We▚5UX▗ COPY USR ▗ COPY 'SQR J POKE [E]Y DATA IF IF SAVE DRAW ▞ CIRCLE PAPER ;J▛ PAUSE LIST [E]x©[CSK IF [I]H@PJ DRAW PAUSE BIN 0N COPY [O] RETURN J REM POKE DRAW ABS <_[Q] RANDOMIZE CLEAR RETURN [U] LIST . SAVE VERIFY PSQR SAVE RETURN IP IF PI CLS [R][I] LET RETURN [M] ERASE LLIST RETURN |U[S][E]?[K]USR E] INPUT LET S CLEAR SAVE CONTINUE COPY SQR DRAW FORMAT 3 CLEAR COPY ▚ LIST LIST LIST 1EK SAVE SAVE RETURN LIST SQR 8 RETURN STR$ O RETURN { CONTINUE g OR K[T] COPY 10 AND RETURN ©RNDz LET ]_ SAVE BORDER mTAN USR | GO TO PLOT l PAUSE ? RETURN FN 0jFN ?VAL$ U= RETURN VAL$ 8bmmw . RETURN COPY [D][I]VAL VAL @Mdf|[R]ETAB SAVE [R]R*c SAVE LIST CONTINUE RETURN CAT j3B DATA LET SRND READ USR NE;[G] MOVE RNDSCREEN$ COPY COPY QJ[O]©? RETURN ▞< DRAW DRAW CLS ▛ RETURN USR LPQSCREEN$ LPRINT ELC BRIGHT :EO[O]=/ RETURN 4pP OUT ERASE Dz COPY SCREEN$ ©SCREEN$ ||E CLEAR RETURN FORMAT _ RETURN RND?[U] DEF FN f IF [E]w LIST U CONTINUE "<$[A]$S PAPER RETURN ©JSGN sPLN RETURN |P OR aP LET RETURN ( COPY Qh OR 32 DRAW RETURN [U] LIST c LIST STR$ [CHR$ RETURN 9U FORMAT } [H], OVER .n RETURN j?[N][R]] BORDER p LIST LPRINT USR [O] COPY CONTINUE LPRINT CONTINUE IF x CONTINUE . SAVE COPY [H]USR [Q][B]USR Q[J] LPRINT LPRINT LPRINT @K RETURN ▚ RETURN ~/© RETURN ?, OR 0 CLS RETURN IF AT USR GVAL D& COPY E]`A~ RETURN [H] OR ] gSTR$ X[N] OUT OUT FLASH FN DRAW USTR$ ▝:N[B] FORMAT S40 CONTINUE RETURN C OR sU POKE CABS V STEP 0ABS RETURN RETURN [R]> PRINT SAVE [B] RETURN [Q]USR /``GINT I LPRINT RETURN ▗W$[Q]6▗RND DEF FN RESTORE V LPRINT BORDER RETURN BIN fT[H]sq INT d[E][M] PAPER RETURN PI FORMAT | RETURN ) PAPER <S[A] RETURN OEn? RETURN |U RUN RETURN MOVE ]-Eq@4 K CLEAR [Q] COPY CLS POINT RUN ATTR ▝ LET ▝ READ LET STOP ABS ERASE <> FORMAT 1B[I]RINT SAVE RETURN * OUT IN © PRINT ▘ OR 5j INPUT EXP OUT [U]uW6G MERGE RETURN RANDOMIZE RUN CAT INPUT %^c INVERSE LOAD Q INVERSE ]+▙C LOAD OUT COPY IN ©©[P] POKE COPY DIM OR NOT NEXT STR$ PEEK NEW STR$ [M]r CAT RUN RANDOMIZE RETURN L[B] LIST & DRAW READ [P] LLIST NEW ATN NEXT RETURN RUN [Q] CLS RANDOMIZE RANDOMIZE NEXT NEXT [P] RANDOMIZE RANDOMIZE [N] CONTINUE DRAW LPRINT [ IF POKE GO TO BRIGHT SGN | DRAW |LN >= LIST FN RETURN LIST f` LPRINT USR xV[T] SAVE LPRINT SGN RETURN RETURN [I] LPRINT RETURN ,▚x[Q]Z▙= CLS [R] USR [Q]x@ ERASE " PAUSE © RETURN `x©ga[P]1PEEK @ CLS 6 LET FORMAT `▗VAL H BEEP ?<=IN ▚ NEW } CAT NEXT CLEAR RESTORE w VERIFY [P][P] CAT CAT [P]ACS RANDOMIZE [P] OR CONTINUE ? LPRINT [_/7;=>?>FN RETURN fJOW NEW "©[P] LOAD [E] COPY COPY [P] RANDOMIZE L OPEN # NEXT PEEK NEW STR$ [M]4 NEXT LOAD NOT NOT pPSTR$ h COPY READ ;&NOT 9pG FLASH STR$ IF [N][U]M POKE L[A][E] IF RETURN LOAD CLOSE #▖[B] DRAW LET DIM 7LQa@USR JP/ OUT AAuYD REM COPY DRAW [A] LPRINT 0 NSQR wDb©USR SGN LPRINT DRAW ~ INVERSE MERGE LPRINT DRAW SCREEN$ j[I]▙[Q]POINT LPRINT LPRINT FN :ABS [P]LN ▜ CLS FN STR$ LLIST LIST ?# SAVE ▛ INPUT NEXT % PAUSE j CAT STOP NOT CLS LPRINT CODE LIST AT DRAW CLS ▛[K] RANDOMIZE [F][Q]INT BORDER M BORDER (GPEEK GAT ? RETURN CLS [K] RANDOMIZE CLS [Q][ NEXT [S]PI NEXT # CLS CONTINUE TAB INVERSE COPY [K] CLS FS CONTINUE PIy[T] LIST CLS TAB [S][T]▝)?[S]PI<▙ IF [S]▝#USR ©ASN INPUT )[J][P]VAL$ ©EXP INPUT CLS ▗AT # LPRINT ? STOP CLS [K]EXP CAT RETURN NIN CONTINUE CLS ▘LN CHR$ AT COS LIST d CLS INPUT BORDER $`b LOAD OUT [S]<=INT LLIST POINT s[R] DRAW SIN LET `R* RUN LOAD READ n<=PI[M]G CONTINUE RETURN h SAVE W3 LINE k` DIM cPI# DEF FN [D] COPY %`" CLEAR CLS 2[' DRAW 1 NEXT INKEY$[R]<>`H RETURN CLEAR |.PI[M]STR$ SQR ~TAB >COS Z PAUSE PI( LPRINT hVSGN IN k[R][▚ NEXT PI[R] LIST [R]<=/1kY[O]NOT INKEY$ DEF FN ▚ SAVE LEN READ STR$ / PRINT [T]AT IF CAT RND[P]/w/ZSIN BORDER [F]Oq BRIGHT /bZ LINE s'U<=/q▛Z9)W/ AND Z,[Q] COPY Z[M]q DIM Z▜ STEP SAVE h[P]AT ▜[T]Y[P]5q BEEP INKEY$:USR DRAW CLS [T][G][S][N] RANDOMIZE [F] CLS , CLEAR COS USR Z▖ LIST [T]?URND CLEAR ^[L][P]GAT ; RETURN ▟ LIST CLOSE # OVER AND ASN [P]USR MVAL$ ; COPY OUT [P]?[Q]F CAT IN USR R[" RETURN [P]▜ OVER POKE RETURN , OUT PEEK USR [K] CONTINUE OUT NOT PI CAT MOVE [Q]LEN LOAD IN PEEK [K] OPEN #:I OUT BORDER }[Q] RUN /d[K]ASN USR INT INPUT OUT NEXT p4Js ERASE DRAW <jINT ,▟TBIN INT =[INT M>= CLS TASN ?STR$ [Q][S]<=[P]▜L OUT LEN LET [L] OR VAL$ OPEN #[J]# ERASE GO SUB PIL FLASH PLOT VAL$ LET DEF FN ERASE PEEK L FOR USR KUSR <=VAL$ BCOS SAVE ERASE BEEP : AND INT LINE CODE LPRINT GO TO ▘qVAL$ s DIM FORMAT _:"COS LIST u)TAB COPY C3 DIM | BEEP :>=COS [O] SAVE ▘ NEXT CLS CR{ POKE Z PRINT DRAW h[R]3<>]I INPUT POKE IF [T]I[D] RETURN %/[K]<=` OR [M]HAT NgH%/STR$ [K] PAUSE SO▚▝▛▚<= CLS H<>J LPRINT )STR$ USR [U]IUSR AND I!NOT ?<>/IN `R CAT PRINT N AND CLS I! LLIST [P]<>]I INPUT POKE IF CAT AT [T] CLS CAT ) NEXT R{ POKE COS IF AT VERIFY PRINT ▘g▝ RANDOMIZE wV CAT STEP [T] LET CLS `IN [R] CAT ERASE POKE STEP LET CLS ` OUT [R] BORDER ERASE POKE STEP LET CLS ` LOAD PI NEXT *▝▗ DRAW AND `( RUN V[D] RANDOMIZE s NEXT { IF `[A] CLS ( COPY { CLS 7<= CLS `[U] CLEAR © CLS >=0}rINKEY$ RETURN FN USR ABS ©Hi©©TAN C BRIGHT DRAW READ THRNDIN BEEP SIN FORMAT COPY BRIGHT READ TuFRND OUT BEEP SIN FORMAT COPY BRIGHT | FORMAT CLS BIN . BEEP F5 LIST SIN © PAPER | POKE CLS 1.5 FLASH F▝ POKE IF OR NEXT RND<= LOAD CLS ]F BEEP SIN DIM } OR FORMAT AND ASN CLEAR INVERSE F|SIN THEN CLS DASN RETURN INVERSE F|SIN PAPER VERIFY }RFRND[F]P RESTORE ZU DATA SCREEN$ =l_ CLOSE #K COPY INPUT LIST DEF FN RETURN USR J LIST PRINT RANDOMIZE <=Z© PLOT LLIST ▟EXP LPRINT FORMAT BRIGHT ARND RETURN J RETURN L)USR @) DRAW R DRAW HJP SAVE T[Q] SAVE POKE USR INVERSE i@G BEEP PRINT LLIST RETURN /[F]m LIST MOVE [Q] LIST L=`CHR$ [F]VABS LPRINT CHR$ [R]a@ BEEP <=@ DRAW NOT [U]XZ`)`iUSR m4USR URND) SAVE _▝uR BEEP [T]NOT F IF 3 BRIGHT LIST [F]/NOT >=B COPY RANDOMIZE IF LOAD STOP LIST CLEAR [P] BRIGHT POKE NEXT STOP <= CLOSE #▙VAL h) LIST INVERSE DATA }©VAL$ w@ RUN ▝ PLOT SAVE ▘ NEXT LET COPY |7 REM LLIST vL IF CLEAR NEXT [R][B][K]▗LZ COPY RNDHV[E]H[U]H▗FN U1RND▝@] RUN bEXP BEEP PRINT W READ PAUSE FORMAT RETURN COPY .OrNW@N.Q RUN COPY x RETURN INK [E][U]RNDPOINT [L]$ LIST i(USR ACS sCyF@i@(@[E][K]Z@▖CODE iq[C]@ BORDER ▜ INK CLEAR |R FLASH GW CLOSE # RETURN OR MERGE @ LLIST M PLOT @yG INK CODE N@<=C@7PEEK CODE e[T]>=( GO SUB k▝[R]L_l-[C]▙/ CIRCLE USR RANDOMIZE Z STEP [O] PRINT r@ LPRINT VAL$ 9 RETURN c MERGE RETURN jgJ▟SCREEN$ [D]LL[N]ZH<>| LINE E/>=V[L]SQR 5]sD`POINT RND@QJ7Uh PRINT VAL$ ACS Z<=INT 7q+ BEEP [D][N]USR ERASE ▗[D]wo[M]▙WqPOINT ) OUT 1u POKE ERASE G RUN S[F]LiE/O RETURN R[F]]i[F]=[U][Q](ZF B(FZTPIjC[R]h[R]BCODE LOAD VERIFY RETURN OR [Q]▝? BORDER RETURN ATTR GSQR IF RESTORE E COPY RETURN VERIFY ▘[C] CONTINUE A COPY [Q]D[P]j9:[Q]x[A]ABS CAT VAL )&AARNDB RANDOMIZE DIM } RETURN DIM ▝F;a IF [J] RETURN B CONTINUE EXP ▘[M] INPUT [M]~POINT fA▗ FOR [P]o PAPER E INPUT [K]{<=SIN !▚ INVERSE = LPRINT BRIGHT ©STR$ 3▝ BORDER RETURN [D]7^[K] DRAW COPY NOT RETURN SCREEN$ [F]G CAT RETURN [O]▘ RETURN 5UX LIST ▖▖SCREEN$ 0USR SCREEN$ 80SCREEN$ |SCREEN$ ©x OUT COPY LIST ]CHR$ RESTORE VAL$ " LLIST INKEY$STR$ [L]USR ▝POINT CONTINUE RNDRND COPY ▝ SAVE ▞ DIM ?INKEY$?[K]q^SCREEN$ NEW RANDOMIZE ?j CAT SCREEN$ NEXT h[I] DRAW b LPRINT COPY ? LOAD [K]bo"i LOAD SCREEN$ COPY @")RNDLN LIST O RANDOMIZE CONTINUE SAVE ▖0GUSR STOP PRINT RANDOMIZE CHR$ AND ">= CIRCLE 5,▖ FORMAT [K]'1b2";"#`)RNDiINKEY$ PLOT SAVE PAPER iA^▘ COPY + LIST VAL$ PRINT RETURN STR$ USR KUSR MOVE @▞ SAVE V%CHR$ 6[Q]>▞© LIST [U]vA[F] DRAW hUSR J▖ LPRINT b COPY SAVE AATN @T"USR UATN RETURN V[E]?b LIST R[F]} NEXT u6▝i▚Q▖ DRAW RNDQ[Q]% OUT AND ▜[R]@ FOR RETURN H[F]| CAT [F] OR [Q]SCREEN$ ?[A]( COPY MSTR$ @i<=T▛USR x[A]?RNDiPEEK R= OUT RETURN USR d) OUT ▖ CLS ATN ▙ RETURN USR B IF >=vz@POINT RETURN 4_USR INK DATA LN USR RETURN RETURN CLOSE #USR [U] DRAW ▞i w!v% CAT PEEK A> PAPER [T] CLEAR e(C©h RETURN V LIST CIRCLE b<=>Q[J] LPRINT >PEEK ©n# LOAD PEEK q( RETURN J?7@r~ DRAW i DATA CLEAR QNH[G] COPY COPY [F]CHR$ " LIST STEP L▙ PLOT BORDER USR S INVERSE tNOT INVERSE COPY ]_ INPUT Zi[C]3Q2 COPY USR } RETURN RNDUSR Ha SAVE © RETURN CLEAR ACS LOAD STOP @u[E] INK MERGE MERGE @ABS LPRINT USR INVERSE R$ DRAW CLS [H] OUT LPRINT ]_=zUh DRAW @[Q]Q▚FN COPY V$ RETURN RUN PEEK 4a@[F]{$[B]ULN ) CLS VPOINT ©R! COPY >Z LOAD ©UZ COPY U[U] RUN OUT t RETURN [N] LIST ©JEP OPEN #WGBIN WS87SGN A FORMAT OUT DC GO SUB RETURN OUT BIN @PIuF[E] CLS b LIST LIST U▖VAL IN RNDIN ▘{[E]©i RETURN URND RUN R BRIGHT pBIN /USR ASN ©B[F] LOAD OSTR$ [E] COPY JohU) OUT Q CLEAR [B]wDINKEY$_[F])PI[B][D]Z CLS U?ZR©▘ CONTINUE [E]X© COPY J COPY URND LOAD LLIST x RETURN U+8[O] PLOT RETURN V▜[F]USR V[B]iHW▙CHR$ USR m8V RETURN EXP USR PAUSE IF CONTINUE !hJ DATA FORMAT [R]p>ACi LLIST Su>=Z;EXP 3("xUSR 6 CONTINUE ` LINE ▗ TO p▙▗8B▗<[I]4c[F][ DRAW v8[S]<I SAVE [S]|AT [P]▝ PLOT DATA ▖l LIST f PAPER POKE LIST [Q]vz DIM 2*p3(▖8[G]USR "p LPRINT [G]@STR$ lY[S]▝`D`H[K]pIUSR IPOINT ▚f▞▘"z"[I][I]▚"POINT p([I]8b:&USR )y1▘b LLIST [C] USR [Q][I] POKE `VAL$ AV'TAN @[S] DIM [I]*T@ZUi!<=|INKEY$S PAUSE ) CONTINUE [P]t READ V LPRINT { CONTINUE ▖▘ LIST ▚! (Zu[R]@[T]pFN CONTINUE n▝[O]USR CONTINUE (RND@ IF q}`yp INPUT [K] DIM [S] CIRCLE [S][G][A]RND COPY ePOINT v PAUSE CONTINUE * ▝SCREEN$ @[Q]~© CONTINUE (hJ !@+USR ([F(FN ▟r[R]>l PLOT CONTINUE [B] [Q]hV[A]=[Q]O@[@STR$ pEXP USR LN ? CLS PEEK y CONTINUE )JUSR " [R]3[B][D] FORMAT MERGE CONTINUE STEP LIST i▗WINT Z LIST !~n INK | PAPER ( SAVE H▗ LPRINT [R]?n DRAW INT J NEW [C] CONTINUE 9|ct5=w CONTINUE ▖USR H ?0USR "©[Q] LPRINT ( INPUT LN FORMAT ,c CIRCLE a DEF FN ▞ln DIM 77Xj LIST e[J] LIST CONTINUE CONTINUE [C][I]>*x LPRINT SIN LINE b LPRINT LPRINT ▞ TO n▝.EXP AND XVAL$ DIM %NOT INKEY$! LLIST [K]8USR $`▖ LIST ▖0fUSR vVAL$ gFN 0&7+[L] CONTINUE USR CLOSE #▖EXP &@<*&USR a#@lPI`INT TO CONTINUE POINT RUN AT ATTR [E]f▜ DEF FN [O]5 CONTINUE ▞USR F[S]A[I]` MERGE <=FN >STR$ g IF [E] DIM " CLEAR MERGE ▖POINT ▘STR$ [O] DIM CPI▖e|B/[C] CONTINUE [J]nF▖b&[C] TO C[I]X▘▘0qiIN POKE [F] THEN P` DRAW X CONTINUE [J]USR [R]USR TAB LN ▘ [C]!▘FN COPY )▞▚)▞n@m' DIM CONTINUE J MERGE RNDW`INKEY$[H]8 OR F DIM [G]<"8 [G]?[I]@▗# ERASE <©1^IN a CONTINUE ▗/ALN > CONTINUE STR$ [R]▝)!*▝USR SCREEN$ ` FOR EXP 0s PLOT ▚ CONTINUE ▘[C]▘[C]F[C]t6FN E FORMAT ▘p[Q] LPRINT {IN [Q]!/ OR == CONTINUE LINE ABS | LOAD d ERASE + DRAW j NEW DATA CONTINUE EXP FORMAT N[Q]] LET CONTINUE [R]p$r[R]: DIM ▝}) FLASH SAVE MOVE LN M DIM i▞©X▘H▗8▖M DATA <> FORMAT n CONTINUE J▖JBZC REM W[E]Xo CONTINUE FORMAT RETURN 1q GO SUB I NEW ( SAVE Jn CONTINUE Jhx[ LIST [C] LPRINT USR ,R@J=▗|▖ DATA I▗BIN [R]. CONTINUE I▝>4SCREEN$ |6x[ DEF FN SX`▗ SAVE TAB DRAW ▖ DATA [O]Jd[S] LPRINT fXFN LPRINT v DIM 2AT R@[M] LIST LPRINT SXjUSR ▝x CONTINUE DIM h,LS@bUSR INKEY$8[G] AND "($▞8▖& DRAW [A]▘x`6[Q][J]IN @ASN CONTINUE INKEY$8aUSR [K]<$▖zqIN CLEAR [L] DIM ?[R]zh SAT TO |R[S][I]SCREEN$ DATA @[C]*t`[Q]9 CONTINUE tHD:KRG SAVE )▖@H▗ LIST THEN /t LLIST CONTINUE [J]0[R] lG SAVE 0; PAUSE [L] CONTINUE ` RANDOMIZE ( CONTINUE IN pABS RESTORE NOT TAB dh0[U] DIM M8 NEXT STOP DRAW i CONTINUE INKEY$l[G]F[R] AND h▚[R]b▝SCREEN$ FN @[M]FVAL J SAVE CONTINUE T. CONTINUE M INPUT ( Z`@LEN USR XHb@!CHR$ USR -<©LN {TSGN hZ} CONTINUE Z CLEAR COPY LN ^[R][F] CLOSE #[E]JABS CONTINUE [R]i[R]Z($[R]DhBZ▝[R]▝h@[U]0p NEW MPEEK [% PAUSE (Z DATA RETURN [Q][0[C] CONTINUE p[U] LPRINT 5d MERGE CONTINUE [U](USR R[A][Q] LPRINT NOT pP%L?@[C]|USR [R]ph[▚$mq[P]▘ STOP !▜x" STEP USR 8t`*c0 PAPER CONTINUE ▖▗▖STR$ X[G]aUSR INKEY$ LIST LPRINT `3f RETURN CLOSE #v[A]7▚} CONTINUE [T]C[K]c NEXT 'SGN bG9X INPUT LET <= DIM $[Q]▖▞ "h0JY▝[Q][U]PINKEY$[G]▙q[C]X&(<>▖2▞<[U]▖ATTR 8 LPRINT D▘`Xpf▙0re[C]m CONTINUE CIRCLE R IF ▘▚&▜[I]!▞[A] RETURN o CONTINUE !▖"20@▗( CODE : BRIGHT IN INVERSE h! STEP =!8LEN [Q]5 LIST ([Q]|( VAL Lv SAVE ![R]bnD CONTINUE h[B]▗STR$ [G]>=[R]n CONTINUE JB▗[U])USR iRND`INKEY$ [G] SCREEN$ @0[R]m)i[U][Q][R]hO DIM P`f[R]P"[Q]@[R]Z LET MOVE a INPUT `USR CONTINUE PRINT [Q] OR MLN LN KBR!0y CONTINUE (@[▚▗▖ LPRINT Z@ OR 0SGN )USR @ OR `USR LEN SAVE BJ~[A]q%K`[S]Jp[R]<h>[3[C]V1▙80▖J[R]m▚|*q▚`+`▚@ LIST ▝ AND } OVER [I]Gw`ePOINT CIRCLE *`%[H] LIST `4 TO O[I]@[G]ASN s CONTINUE [S]>0[S]~[S] INPUT [G][I](▙ RUN ZPOINT LIST ▗kCOS THEN AND |o<A[L] CONTINUE @ BORDER lB]*ABS BRIGHT CONTINUE ©[H]LN INKEY$Uf$C[T]▖ DIM af▚USR SCREEN$ @BIN PAUSE p RUN < CONTINUE Ph INK Z8 GO TO FN C RESTORE STOP CONTINUE pp▚USR ▘*8USR h*y[K] LPRINT THEN j?dpLN MIN FORMAT ,BIN RUN STOP 0t<hf<= LINKEY$VAL `w STOP CONTINUE `@0( ▞ USR DRAW 0 RETURN P7[S] NEW LINE IF C CONTINUE H[K]j [R]▖& OR f LPRINT [S]|`j8 X<=<[S] GO TO FN x DEF FN FN READ CONTINUE : DIM d[R]INKEY$ [G]D"@[G]▗"USR p[C]a@> CAT CONTINUE [Q]bFN ▘ [C]`[R]@kUSR V[Q]O▖} CONTINUE [R]CODE RESTORE FLASH INT ▘ CLEAR CONTINUE 7 TO BIN ▘[S]!▞lYFi[G] %3(▗ CLEAR [P] CONTINUE (USR SAVE hZG RUN @@[C][F]EXP CONTINUE J0hPZ>= CLOSE #▖ TO (Z[A] CLOSE #4 FOR [C] CONTINUE ▗▖ J USR ` MOVE J PRINT *ACS G▝l(Z8Ah[ ▚ CONTINUE !USR -D▜/P)3 i DRAW RND@VAL >h▜(<Z` LLIST FORMAT CONTINUE ▖ LPRINT K?EwT RETURN DIM OPEN # POKE STR$ [O]▞>▞© RUN USR ▚ RETURN © COPY PAUSE !▖ CLEAR © CONTINUE [J]M?[P]NOT BORDER CONTINUE ABS RND RETURN CONTINUE COS NEW >[Q] RUN @[I] DIM COPY © DRAW OPEN #= COPY USR CONTINUE PAPER af LLIST CONTINUE ▖I▗ABS @ OVER b BRIGHT s[I]NOT CODE 9 FORMAT v[F] NEXT = CONTINUE LEN PAUSE P DATA CONTINUE [R]`INKEY$`@pf 0XJUSR bHTAB LVi LPRINT ▞D) LPRINT ▞f>{ DIM $;INKEY$ LIST a!INKEY$ SAVE ![Q]▖ DRAW " USR PEEK f[Q]`[P]▚` &!@0" IF [C]▜ CONTINUE h▚"!S$ RANDOMIZE &▘ LPRINT PEEK CONTINUE [C][K]CODE |VjPEEK IN PAPER STOP CONTINUE &▜ LIST !▖x(b LPRINT IF [R] RETURN [G] CONTINUE j▗NOT MJ[I]EXP ` CONTINUE INKEY$`$@[Q]INKEY$a LPRINT ~'▞ASN INPUT PAUSE THEN CONTINUE / DRAW % CIRCLE CONTINUE % RETURN BRIGHT x[K]? IF ▚ MERGE ~<>[O]POINT ▖EXP gb9)NOT 'fLN <> CLOSE # READ =[Q]LN ; CONTINUE ATTR [O][L] LIST SAVE CAT PLOT LPRINT NOT ©2 POKE DEF FN IPEEK )SV MOVE MERGE RETURN MERGE Wu$>h LIST M CIRCLE [M]h DATA xRNDhZ:▗bz DIM ▝[R]USR b@ INK LINE h^ CONTINUE O FOR CONTINUE hUSR GP( PRINT @Ri[E] DRAW J▝E▙[Q] LPRINT CLOSE #[S][Q] LIST _y RANDOMIZE COPY COPY [Q] LIST /[Q] GO TO RETURN NEW SAVE ? COPY STR$ [K] DRAW COPY C THEN PLOT COPY POKE ▜ CIRCLE 8 POKE ? COPY PAUSE RUN CAT RETURN OUT ▜▟ BEEP GO TO ▝CHR$ = PAPER V SAVE LIST MCODE NEXT PAPER RANDOMIZE ▝ SAVE o[S] CLEAR COPY GO TO NEW RUN SAVE B▚©[K]©[S]FN IN R LIST RETURN THEN SAVE PAUSE o SAVE RANDOMIZE a[R]© GO SUB ATTR IF d▝ DRAW ([K]INKEY$[K]* DRAW j[K] DRAW )RNDRNDINKEY$V▝ DRAW [Q] RETURN J)INKEY$▘[K] RETURN RETURN INKEY$ABS RUN @8▘) RETURN LN PAPER IINKEY$ LIST COPY IF INT SAVE INPUT RETURN CONTINUE DATA ? OVER [N] SAVE i COPY u BEEP @h IF [U] COPY Bb GO SUB MERGE ▖ MERGE ?CODE CONTINUE COPY DATA OVER BORDER SAVE gD<=Wh LIST Z COPY INVERSE ] PAPER _A?# LPRINT ?SQR DRAW STOP COPY LIST OUT SAVE COPY CLS STR$ REM 7 INPUT }<>dW PAPER GO SUB CAT IF STR$ r CLS CAT pEXP X▟USR b?? PLOT MERGE PAUSE ▙USR © SAVE IN RETURN vATTR ▟t▗) REM USR G{yUSR PAPER PRINT _USR INPUT ▜ RETURN V<>@CODE LIST ▝ RUN REM ▞▗STR$ COPY "@7©"{ CLEAR RANDOMIZE j PAPER ECOS RETURN [K] SAVE 5 MOVE RNDINKEY$ LPRINT ▖ INPUT ▖▖ COPY SAVE * STEP REM OUT INPUT a[S] CLS FN p©[E] LLIST RETURN d/D DEF FN VAL THEN 9t[E]DVAL$ DEF FN JL CONTINUE ▛DSCREEN$ A[S] INPUT REM LINE BIN [Q] INK H&&T▖&%%Xe]XRHE%X[J]▖.[J][E]LN f&R DIM ("%[B] BORDER [S]SCREEN$ FN *FN SCREEN$ [S]RNDTJFN FN VAL$ CLEAR =B NEXT ▘ INPUT U COPY T SAVE EXP RUN LOAD Q@ FOR E LPRINT PRINT rACS P RESTORE s RANDOMIZE dP[I]AT +[K]SIN %/&AT AT [S]>=[Q]oSCREEN$ DEF FN FN ▖E*EWE CLOSE #[S]Y*TPE CLEAR ACS POINT T▗LN TINKEY$FN [I][S][K]FN >=▖LN J([R]#`D▙ LINE VAL$ LPRINT *ujuuuhQ[S]R`GYYJ%▖T[A]b%%V[S];ATTR "q▖ REM *.( LPRINT [S]TAB H▙ LINE `Vv(V▖R!QQ[Q][M]` INK TPf▟ECYDjH!SCREEN$ INKEY$D[B]H[Q]T[R]RRNDE OR EA[B]RINKEY$* LINE EXP $tN▞SCREEN$ ( INPUT REM [A]JD[R][S]INT N AND [U]"%T[S]%2[K]d[N]@POINT 2s AND RND▖E&"I(rqDLN RETURN DJB LPRINT PAPER oG RETURN )B▖WBVAL$ WG DRAW REM POKE G?POINT READ SQR DRAW GO TO RANDOMIZE NEW SAVE DRAW RUN DRAW RANDOMIZE <> DRAW 8 PLOT LOAD d LIST RANDOMIZE ▞ PAPER NEXT PAUSE COPY SAVE [S] INVERSE PAPER >=G CLEAR OPEN #STR$ r COPY <> IF [A] RETURN iBw2wy9 CLOSE #} REM DATA p=[A] LPRINT RETURN @ MERGE U`▗QINT CHR$ $H FOR 7 COPY RETURN DIM USR CHR$ SCREEN$ READ " BORDER COPY RESTORE RETURN TATN ▘©[B] RETURN h CAT [R] CLS T()V[B]([P][R] CLEAR QvLmSTR$ @<=[U] COPY Z?( RETURN TZE▖ LIST BRIGHT Pmb[B] b LIST PVAL RETURN GO SUB PEEK ©[F]▚[B]A [B] DRAW © COPY ?b DRAW COPY hIN TJD RANDOMIZE COPY [E] OUT [ RANDOMIZE DIM USR OUT { NEXT SAVE CLEAR LOAD OR @wUSR l FORMAT SGN & COPY ▞ LIST C MOVE USR TAB MOVE * IF IF KUSR K q1 STEP RND FOR ©U GO SUB DRAW ?[P]LaNUSR m@ FORMAT h▗)FC^@[B] LOAD vSGN RETURN =INKEY$[A]▖XE7@sUSR AUSR ▞AC CLOSE #uUSR wAINKEY$[A] PAUSE @tZ[P]) CLEAR jS[E]PZ[Q]k POKE OR INVERSE @ MERGE LEN M@Ke[K]USR SAVE TRNDFFN [P][P]STR$ 5@i IF CONTINUE MERGE [F] PRINT AUSR POKE RETURN Z▖ URND[E]f$$@V[F]iFaHHUiQ[I] LIST LET UZ URND[A] PAUSE PAUSE ASN @ CLOSE #" POKE POKE @[F] LLIST . SAVE SAVE G REM ZEXP ▖G LIST E[BIN RETURN T▖GASUj▟TAB CZ OR [I]l,[A]_ COPY RANDOMIZE NOT [L]u[S] SAVE COPY [Q] COPY INKEY$[F]n LIST [K] @oi IF INK `VAL SAVE & INPUT 8 COPY SAVE h LOAD [S]:+<VAL DIM oATTR THEN SAVE BEEP LIST LINE SAVE i INKEY$@ RETURN ▗b RANDOMIZE &1[A][L][Q]USR -[E]0 INK @Ti REM USR DIM INK INKEY$p@E CLOSE #>TAN CIRCLE PLOT THEN A[K]h[S]▝j RETURN ~© RANDOMIZE SCREEN$ IN NEXT SCREEN$ OUT BORDER SCREEN$ LOAD CAT LN RUN SAVE SCREEN$ [P] CLS INKEY$ OUT a[M]|{[O]~ LOAD LPRINT FORMAT SGN LN ▜ BORDER <= LOAD VAL$ [A]@~qhA▝V[K] LIST RUN i RUN [U] RUN B STOP H RANDOMIZE 0>=n FORMAT MOVE [I]13USR C PAPER A LPRINT i LPRINT /x<> RANDOMIZE [G][A] DIM [Q] MOVE "TAB wi▝w* CLEAR SAVE Y SAVE INKEY$3[K]4{bUU(U COPY STOP RETURN ATTR RANDOMIZE DRAW W" SAVE CODE " LIST _" LPRINT IN "USR ©# COPY ▖ COPY U▖SCREEN$ RESTORE LIST C PAPER RANDOMIZE WiCODE INKEY$_[K]IN ©i COPY < DRAW LIST [F] LIST DuvPG[E]ABS LPRINT =CHR$ hV[F][Q]ZTVi@QZ[B]ASN [U]V▝[R]Q MERGE q><>(T5/@<>[F]CHR$ W BORDER RESTORE OUT G RETURN ▗<>8M CONTINUE UEEXP RETURN ▞_CHR$ _USR C POKE NOT USR ?NOT PAUSE ( RESTORE [O]=F POKE BRIGHT ] RETURN MOVE CHR$ hUhASN CLEAR UX!n>=:NOT EXP BIN ) [Q]=VTI LLIST PT3 RANDOMIZE Zlayer r.7=!USR THEN RETURN THEN F>= LLIST !FN AND 4▞l@ STOP CODE go2ACS AND "ATN AND NOT ATTR OR "FN STR$ ">NOT RESTORE d~2E OR RESTORE INVERSE LLIST "USR INVERSE ^#" BORDER BIN MOVE INVERSE n INVERSE f" POKE BIN !POINT NEXT 7NOT INKEY$i>[R]STR$ XVPEEK AND <= RETURN 0g[E] DATA MERGE _ MOVE |} CLS J VERIFY LIST READ !Q AND wR AND l GO SUB VAL <2FN AND ! LIST "l AND ▛▞INKEY$ DIM AND * MOVE BIN ^.{ CLS [I]`(}POINT [K]RND INVERSE ~POINT VERIFY 08 RETURN 8>2▟CHR$ PRINT RETURN INVERSE ~ COPY NEW !>= OR MERGE P▜_^# THEN ;[P] NEW PI2 STR$ FOR STR$ AND CIRCLE O DEF FN OR [B]G▞VAL$ <= MERGE OR N# RESTORE F MERGE FOR INVERSE & THEN 8 THEN yw#xw INVERSE % LOAD MOVE LLIST #STR$ PAPER LLIST MOVE { RETURN DATA > CLEAR 2 BRIGHT <=PI( PRINT ▜O LET 0554PI GO SUB B FOR LET RETURN !T/>0-]CODE 2tSTR$ INVERSE !PEEK AND GO SUB b}}| DEF FN INVERSE w;#y NEW S LLIST POINT ew2yPI OUT Z▗ BRIGHT INVERSE 6 STEP /NOT POINT ABS LLIST ! COPY CODE [O]V PAUSE INVERSE uPOINT gt INPUT A RETURN {; RUN FN LET POKE >3= RND GO SUB [U] CLS ) STEP NOT $▜ RUN [L]>=BIN READ LLIST STEP LN r LOAD ASN q[S] BORDER IF ^ CLS "[D]CHR$ MERGE 8[G]▘(I8[L](%8TAB (COS 8EXP AND `8 STR$ ▙8 PRINT BORDER USR !h[S] DATA z MERGE FORMAT 2AT AND DEF FN INVERSE THEN ▚X DIM INPUT + AND CODE GO SUB sFCHR$ RANDOMIZE K LOAD RESTORE RETURN 1;;▙<><> AND IN [G]I COPY [S] THEN RANDOMIZE XLN LOAD 4▜o&[T]PEEK #f▙[R]>>z COPY STOP H[N] LLIST GO SUB R[S]W OPEN #▜<> RETURN 8▙ COPY INVERSE s READ SQR rq>= CLS E RESTORE FOR ASN FOR PAUSE VAL$ CHR$ / GO SUB DAT SAVE CODE SQR RETURN *CODE VERIFY .ACS PI^:▟CHR$ RETURN [P]< STOP [G]> BEEP DEF FN > PRINT <> POKE ▚ POKE CONTINUE COPY THEN RETURN LINE INPUT CODE LN CLS DIM IF MOVE CLS [C]2[R] OR 2ATTR AND .o CLS g"[U] OR BRIGHT PEEK E PRINT z2SQR CLOSE #goATN SGN )INT xTAN REM g DIM POINT BEEP <> PAPER FLASH THEN POKE / CLOSE #(▝<><>.NOT INT CHR$ OCHR$ BEEP BEEP IF CHR$ READ CHR$ DIM RESTORE CLS PEEK PRINT DRAW M" RANDOMIZE LN AND [H] THEN F RESTORE LINE [G]BIN "▜ LLIST NOT ACS nINKEY$f RANDOMIZE MOVE g[C]~o9<INT ▟{LN BIN BORDER 8▚ PAUSE [G]PI AND RETURN `▚[O]_▜ASN .& TO G▜▜TAB RANDOMIZE xFN 'STR$ LLIST ([F][D] THEN p(z PRINT FOR t FOR AT N1 PRINT ASN z NEXT <=+Z LINE INK READ }>=ACS (;5 9sKVAL$ [S]S:|EXP u+ti ERASE CONTINUE V [R]SIN "g IF (BIN SIN CODE RND[K]5 SAVE | LLIST PAPER THEN y( THEN q( RETURN (< RETURN LET (= INVERSE wox NEW PAUSE KBIN [H]n) PAPER PLOT RND GO SUB AND ~ THEN A READ [T] THEN x▜▞ THEN / DATA DRAW VERIFY INVERSE ▚ THEN h( LINE ▚! OR ▚[P]TAB AND [J] VERIFY x NEW H!ASN AND ACS w LLIST [T]▙>=u[B]'PI INVERSE VAL$ LN STEP LEN 4~8[S]-COS _SQR ▜2COS =[SCREEN$ F DEF FN [N]5 © THEN POKE L COPY J OVER 1:WRND[I]PI*USR #~< STEP "USR [VAL$ MOVE GO SUB AT DEF FN ="[ THEN MOVE GO SUB [ VERIFY NEXT 2 OR VAL$ ▙DM RANDOMIZE z"' OR PLOT LEN ; LLIST n LLIST !] AND STEP RESTORE <= FOR C MOVE BIN !▞/ STOP CIRCLE *' OR INKEY$J[H]<=[F][B]F LINE INPUT FLASH Q BORDER VAL$ ▛hNOT "ATN PRINT :CSQR FN PAPER n[R]VAL [R]VAL INKEY$ATN ▛SIN SIN FN LOAD AT y|2TAN AND ▝-_▜[P]W*SGN TAN ERASE FLASH 9 LET EXP H>=!ATTR COPY INPUT (w[Q][S] INK POINT ^IN COPY CLEAR COPY !E GO SUB yC GO SUB [T]B< RETURN PRINT ▝ FOR ~PI SAVE C GO SUB y<>d*e[E]50%=]17MS_q▘[M][O][Q]INKEY$FN SCREEN$ AT VAL$ VAL$ W#%)-/3IN !#'+-1UABS +▜ INK +;M_SQR RND CONTINUE [A] CIRCLE ipv}▟[F][N]FN LEN SQR PAPER bhmu{[C][M][U]CODE LN ~▚[A][G][Q]SCREEN$ TAN PEEK USR x▖[A][I][Q]VAL FN LPRINT VAL CONTINUE RETURN QaRProTracker 3.5 compilation of n.e.fontan.sep2o▞3 H LLIST byEXP Xeue key-jee{triebkraft}z&% LIST (J FOR #CODE gu▜LN CONTINUE DRAW Fj▟[A][F]SCREEN$ [K][P]SCREEN$ [U]POINT PRINT PEEK VAL$ '*-ABS LIST !!$$▗y03 COPY / NEW ▝q CLS TO =T THEN PRINT [U][K]"p NEW ▛ CONTINUE /POINT 2&g STOP #S INK G[Q] DIM ▝ NEXT e▙SGN CAT STR$ b}"FCODE COS RANDOMIZE ▖ DRAW LET >=LEN y<> FORMAT LINE SCREEN$ THEN TO SCREEN$ STEP DEF FN © CAT LEN DIM INK RETURN DIM GO SUB LET POKE | GO TO IF ASN PRINT <=o OR DATA LIST CIRCLE [P]D>=wzU[D]'@j NEW a.VAL jSCREEN$ mam STEP FLASH LN IN r LET SCREEN$ CAT kf;kIN LEN >=<=LN ▘ INVERSE , CAT _ STEP ;STR$ THEN NEXT kfATTR mf FOR VERIFY >= REM j_FN k_ikRND_>LN w REM k4/!>= LIST CAT ASN ▖ FORMAT <>|x▖ FOR ▖<=LN THEN CLOSE #INKEY$ OR [C]<>[K]NOT <=JSTR$ i OR INPUT ▜▜i{[U]▜INKEY${[C]▜[K]{▜J{i▜){INKEY$▜[C][K]wJwi)w[U]INKEY$w[C]w FOR ▗ACS > CLOSE #[K]STR$ NOT [T] VERIFY NEXT M VERIFY LLIST A VERIFY ▟>=y VERIFY [L]!J MERGE f[S]~G"f THEN r FLASH LINE #t ERASE STEP f DEF FN $ VERIFY CODE q CLS %ASN CAT & STOP CODE MERGE THEN '5TAB V(bT[Q] STOP )Z<>r[R]*Zb TO +,ZHSCREEN$ !d VERIFY -F-.hD PRINT FLASH / CAT TAB >0"INKEY$TAB '/.V[L]*. FORMAT m▞ DEF FN -[T]aSCREEN$ ;m+*a▘*# CAT ) OVER <[T]▚'▘&! CAT %ATTR $ PAPER SCREEN$ ;'t FLASH PEEK INT 8 NEW , THEN "t STEP [T]STR$ !IN READ LOAD DIM JkUi)~[U]INKEY$~[C][K]~J~i)~INKEY$[C][K]tJti)t[U]INKEY$t[C]t FOR ▗ACS > CLOSE #[K]STR$ NOT ASN VERIFY [S]~'PI CAT +SQR <>[|#LN , CIRCLE COS IN #[G]COS PAPER [F] DEF FN NEXT [E] VERIFY yiCODE aU OPEN #Xeft CAT t PAPER STEP VERIFY Fb' FLASH @ THEN CLS READ [K])▖VAL STOP <>Uy*miN▚ CAT +t PLOT 8: BEEP PI CLOSE #STR$ ▙ LIST STR$ ;-▟ FLASH ^=p(/.mABS ▟,u/IN RETURN FLASH ACS ▟/][S] BORDER S&._▚,[P]- RESTORE THEN xwZ_S FLASH / RETURN z6 OPEN #L8p▛ CAT '[S]w▙& VERIFY TAN _ PAPER ;v THEN ▖ MOVE #▜)FN LN ;ATN " DEF FN CONTINUE REM CODE 4!XATTR ;Z POKE + RESTORE INVERSE IF LdEm MOVE BORDER POKE TO COPY = NEXT CLEAR 7CHR$ J`& CAT BEEP THEN 9S OUT ▛ POKE E[#C[S] LET CAT ▙ THEN INK CAT ▙ CLOSE # CAT SIN [U]A*D'wA[T] LET THEN CLEAR SIN CIRCLE xVAL TAN ; CLOSE #ASN ▗,▛ NEXT VLN y VERIFY TAN ZASN AND %PAT LET PLOT & OR CODE [ REM IF LIST THEN RANDOMIZE RANDOMIZE OPEN # VERIFY ) CAT RETURN [U][M]/ READ CLOSE #=TAB FN SAVE OUT V MERGE BRIGHT D`c INPUT t ERASE OPEN #U'[M]"Z.}[N] CAT INPUT GO TO # LINE DIM MERGE STEP EXP FORMAT INKEY$IN $ OR OPEN # CAT {-}COS LOAD PAPER _ LINE STR$ ABS INT X DATA OVER Sd CLEAR & LLIST NOT VAL$ n<=SGN SQR THEN EXP ' RETURN CHR$ LINE NEW (VAL "' STEP NOT a| GO TO READ ▖Ja"| DIM LET ▖▖<>INKEY$|INT ▖ FORMAT [O]<=/LN NEXT [P] THEN FOR FOR LET PAUSE On< LIST ACS FORMAT RUN BRIGHT [R])i*Z+RND,)-Z.R/[U]0"@VAL h▜INKEY$▖[K]{▜i▖VAL$ { ERASE RETURN ▟ MOVE NOT h MOVE LEN SAVE COPY OPEN # BEEP _TAB OPEN #w RANDOMIZE l LIST IF ATTR oyTAB DhRPOINT wwwPIw LIST THEN RANDOMIZE RANDOMIZE OPEN # VERIFY ) CAT COPY [U][M]x VERIFY oB INVERSE FLASH SCREEN$ DXPOINT >=,[Q]/"S POKE [S].▚w▟X[Q] LINE AND & CLOSE #D[K]w,ACS +nhSTR$ b/tIN VERIFY *W[K]_4Z)JP[K],S-TAB ATTR FORMAT LET |<>POINT THEN VERIFY l= LET PRINT GO SUB - LIST i5 STEP [R] LINE ACS '&(%[B]$RND#)"J![A] CVAL d▚E▗C[Q]E);▗Z NEXT [T]uKF OUT STR$ [I]E<= OR CIRCLE READ INKEY$q^[U]%VAL ▗INKEY$kd[G];[E]B[Q]X);[S]Z[C]&<>[K] THEN STEP .[M][L]| ERASE NEXT SCREEN$ ▖/ AND ,j PAUSE ▜b|<>K▜ FOR ▖ ERASE INT DEF FN SIN 7 IF COPY ~()Z*RND+),-R[E].[Q]/)0 MOVE KBIN x▚ BRIGHT ~ OPEN #PEEK ▖▖<=ACS ~V[S]"<=[K]wc OR PI LET wNLLN r LET [M]y<= STEP {i{ STOP LIST THEN INT CIRCLE PLOT RETURN STEP RANDOMIZE OPEN # VERIFY J CAT ©[U][D][M]LN DIM E CLOSE # BEEP a OUT FN OUT V*p4B'P NEXT CLOSE # MOVE 8hJ-h NEXT ){[Q]4J+J;ir▞4*J)ASN VAL$ [Q]U~)4TAB O[S]©0 BORDER BEEP BEEP [Q] LINE LN CLOSE #w BRIGHT j2/[F]y INVERSE [S][R]'i&Z%RND$(#Z FLASH i" INVERSE [U] LIST NOT ▟Z COPY [U]ATTR AND NOT Pv[R]FN w<=[Q]tCZ[C]▟ TO v MERGE [K]PI DEF FN INPUT READ I▜ ERASE UASN bKo READ ▖ GO TO INPUT LET THEN BRIGHT / FORMAT LOAD INT LPRINT STOP ▜<> DRAW FORMAT USR [U] CAT LLIST OVER LOAD LPRINT USR [Q]<>(▜JCODE CP~USR ▗~AT C POKE BIN [D]jlLj LET OVAL$ TO [K]q4v BEEP @MzBIN [G]| PAPER ERASE h~ DEF FN FORMAT MERGE FORMAT MERGE LET RETURN !dVAL$ ▜ LIST INKEY$<>[K] THEN CAT Z STEP i<>BIN CAT ▘EXP POINT LIST <> STEP ▙SCREEN$ Dw[Q]w CLEAR GO TO COPY ` LIST ?▙ LET FN STOP <>© FORMAT LINE USR CAT N OVER LPRINT IF USR <>[U]▜SCREEN$ B RUN P CONTINUE USR ~JBBIN BRIGHT .Yz1u| OR BEEP ~0▖ OR <=▘▗]▚BIN CHR$ > OUT # BORDER FFN ERASE ▘STR$ *4 TO © VERIFY ;z~%[G] MERGE $▚<>[I] IF LET CHR$ [L]~M[Q]CiCiCiC(CCZC[C]C[G]C[G]CC[U]CRNDERNDC[Q]C(Ei; FORMAT [D]*C,].s2t14 FORMAT INVERSE 68z)4▟PM FORMAT 55 ERASE <=:x1<=:F|M~1▚4 FOR TO TO MOVE _ IF R▙ DEF FN GO SUB VAL$ FORMAT INT ▘ OPEN #<=▖,]BPOINT ▘LN RANDOMIZE LINE NEW FLASH ▖ STEP "▜SCREEN$ CLS VAL TO INKEY$ FLASH FORMAT LEN ▖[D]V- THEN DEF FN dVz STOP IF LINE CHR$ <>J>=J<= AND J OR BIN JNOT u*SIN CHR$ STR$ u2TAN ]LEN USR LEN (USR [N]D[S] MERGE ▜&▜ TO FORMAT LOAD ? FORMAT Gg DIM FORMAT ▖>=[S] READ <= AND OR (BIN [S]NOT CHR$ STR$ 6 RANDOMIZE ▖9 SAVE ▛Zb COPY COPY : REM SAVE ▙Z▟ZZ▛ZZ▞Z▖o▗VAL$ ▝ GO TO ) CONTINUE [A]> READ lINKEY$o[A][S]▙o` POKE NEW CLS NEW RUN &cSCREEN$ CIRCLE ▛ PRINT PEEK UXTZ* INPUT PLOT CLS RETURN COPY RETURN NEW INT LPRINT /H RETURN ~ INK PLOT xCHR$ REM LIST 7 DIM CLS [I][U][H]USR PAPER VAL READ + BORDER SAVE CHR$ STR$ ▝ RETURN / RANDOMIZE CODE OUT `8USR LOAD NEXT SAVE CLEAR LOAD FOR COPY ▞ CLEAR CIRCLE INPUT wSIN J DRAW IN z?=p[S] RETURN [P] RETURN LIST REM > OUT [R] SAVE RESTORE RETURN LN PLOT SAVE CLS p RANDOMIZE LET RETURN ATN ▘©[K] RETURN (B CAT CLS i▞ DRAW SCREEN$ IF N▞ CIRCLE CLEAR [R]▜*:f DRAW [O] DRAW [A]96ABS ASN ?LN v CLOSE # LPRINT RETURN READ PLOT CIRCLE CLS [S]▘[F]h LET i▗([P]INKEY$ CLEAR [I]{[A] SAVE X' DRAW ? CLEAR PRINT [A]n SAVE R& RETURN ©[O]©?p© LOAD CONTINUE CLEAR PLOT VAL$ CLOSE # LIST ?▜@ LPRINT ▝ VERIFY $K*▚[A]w[A]}[P][R]?) RETURN INKEY$$ LIST :@ LOAD POINT bZ[E] LIST OUT @ COPY STR$ CLEAR RUN <>p COPY LOAD CONTINUE CLEAR NOT [B][T] COPY ▙ CLOSE #[K]VAL$ EXP =Ah[R][U]@[I]i CIRCLE NOT A[A] LPRINT 7[A]sUSR PLOT [C]) LPRINT ]/CHR$ 8▜[S]<> OUT LOAD CLS 'XUSR xz▙?zSCREEN$ ? @ OPEN #▙ CLEAR [U]USR <=USR _CHR$ AND A$USR ?M MERGE CLEAR SMUSR V[P] CLEAR GO SUB [I][S]© BORDER OVER [B][G]FN ©iASHZ MOVE BEEP USR LET CHR$ bA©@ INVERSE 8Z▖▙tQz+ CLEAR DATA PAPER DIM h()D BRIGHT @USR @BIN CAT @ CIRCLE PAPER COPY E BORDER INKEY$aj[P][P] CONTINUE [O]INT PAUSE 0[R]N/ CLOSE #9p> CLS PLOT / DEF FN [U] CONTINUE CIRCLE U OUT LET F DEF FN FORMAT AND LNOT LPRINT THEN [A] RETURN [O] LPRINT USR EXP ▖[R] RETURN Pp}USR }P~q`^ LIST NUSR }p PLOT LIST [H] MERGE RETURN MERGE wT MERGE CLS 1 LPRINT RUN RANDOMIZE [U] CLEAR DRAW EINKEY${ DRAW ( CLS RANDOMIZE ATTR TAB y6oIN DRAW DRAW )u] MERGE 5 CLS L LPRINT } RANDOMIZE DIM ▚[B] SAVE i[S][T]▝ SAVE > LLIST Z REM M[G][G] SAVE CLEAR RNDWuM CLS S LPRINT RANDOMIZE zA[R][U] LIST Zhc[Q] LIST B LIST Oq[H]`[D] LIST eRND LIST ▗ OUT LPRINT U INVERSE S CLS T<= LPRINT OVER [A]hi LPRINT [K]( LPRINT [Q] LPRINT RESTORE SCREEN$ DATA INK IF FLASH CLEAR hACS ACS Z?SCREEN$ ?USR *?"?USR ▝USR IN USR DRAW pACS [S]©SCREEN$ ©SCREEN$ ©©FN K RESTORE CLEAR COPY {[F]@ RUN DEF FN [F]USR MERGE q BRIGHT @O CLEAR `▝.U< PRINT LIST BRIGHT p= LIST RUN OVER T RETURN uV STOP 9CHR$ 04P BORDER PAUSE RANDOMIZE IN CAT SIN MERGE w0[N]▘SUSR COS %@ DRAW OVER [A]5W]W RUN Uw CIRCLE COPY USR _ FORMAT NEXT PAUSE T▗[I]t STOP c'u[O]% PRINT RUN [D]} COPY [A]USR INK [Q] DRAW B LPRINT BEEP y NEXT STOP [D]CHR$ PN PAUSE ©[N]SCREEN$ [N]SIN Wy MERGE 1USR RUN COS 3J SAVE u▚6▖ INK [K] SAVE (5▝ LIST ( LIST [U]Z LPRINT U[A][U]x{0 CLEAR NEXT LIST RETURN PAUSE CHR$ LP9 PAUSE RETURN 8PI BRIGHT BORDER ▘T# INVERSE <>[N] LOAD A MERGE ]SQR /AFN [N] OUT ACS COPY d LPRINT PLOT INVERSE RANDOMIZE FOR RUN [N] RANDOMIZE d CLOSE #iX^ MERGE Y▟[O]@USR [E][U] PAPER CAT INPUT USR v`C RUN PLOT DIM _YSQR STOP VBMACS UU COPY U[Q]oSCREEN$ W[A]PEEK BRIGHT ▛STR$ hUSR ▞UNIN PRINT LPRINT LIST ( LIST [S] SAVE SAVE DRAW ( DRAW [S] RETURN [Q] RETURN V8.[M] DATA y PAUSE PRINT CLOSE # POKE FN RANDOMIZE PRINT RETURN N[E]_ BEEP RETURN dV▝©U[R]U[Q]?<= INVERSE [J] CLS Z▜V?[S] CAT ©( COPY [F]1P=_NOT OR RETURN Ci RETURN R[E] RETURN RND DRAW J DRAW P[F] SAVE ) SAVE @ LIST T CLOSE #▞INT ACS OPEN # LPRINT *USR [J]USR TPI?NOT RETURN Z9!z9p!9y=8[F]88i8(z[U]z[ DRAW FN K8 RANDOMIZE FN RETURN 9FN RESTORE DATA RANDOMIZE COPY CIRCLE yFN © COPY RETURN |_ RETURN LET [R] CLOSE #AT UV[F]VjSTR$ PRINT (iuS RANDOMIZE PEEK RETURN A PAPER INVERSE ACS [Q][D]SUSR Q[Q] LPRINT LPRINT LPRINT F LIST h([T]j[R]▛Th[S]SQR DRAW DRAW RETURN * RETURN AT RETURN Gc[F]g PAPER [D]COS GO TO x POKE RESTORE P5 DATA U2 NEXT ▝v▝86hb[L]( MERGE ?v▘h&Z INVERSE REM BEEP g INVERSE T CLEAR FOR $] LINE INVERSE R[F] RETURN ) LET [A][Q]COS T+W OPEN #IN 8 NEW ▘{J LIST @ LPRINT * BRIGHT [A][Q] CONTINUE IN USR AT [S] OPEN #>)AHiSIN b MERGE RNDy▖Fe[E]jO COPY CLOSE #[Q]8(z)z BORDER OVER USR EXP 8 OVER LIST )8 OUT RETURN OVER SIN CONTINUE >=FN _ FLASH = RANDOMIZE MERGE y[A]<=3Z CLOSE #USR IN COPY IN RETURN G OR PEEK }@ CONTINUE STR$ COPY D[R]vASN Z GO TO -^PEEK CODE V▗8VAL ^U RESTORE PEEK MERGE h@h LIST THEN [G] LIST SAVE RND SAVE [S] DRAW DRAW Z? CAT [L] LINE i% PRINT TAB PRINT Z COPY R DRAW [H]q STEP ERASE OUT oC PAPER [G]__ PAPER BEEP [G] BEEP RETURN STR$ CIRCLE J▚EV[F]©i▖Z[S][U][S]iV[B]▛URND REM RESTORE ERASE [S]© COPY #_RP[B][S] LET RETURN =USR _CHR$ MERGE D RUN CHR$ [B][E][M][U]©B PAUSE `V ▜i?8LaED) LINE C[B]▘F[B]FN 9[U]!Q[U]B RETURN PLOT [H]SIN .? PLOT [T][H]>$ RUN 2S DATA (V▝ LINE [A]!hFN oBUSR R LIST 8PEEK .y RETURN /8IN CLOSE #USR CLEAR IN @STR$ LN INK PI9@©STR$ RETURN f8p^USR G RUN FOR [B]@ CLEAR FOR RESTORE USR x RETURN { REM [A]USR SCREEN$ c/ BORDER INPUT ▗ RANDOMIZE SQR LIST =@ PRINT [D]@Z LIST 4[I]!WSIN COPY >USR % COPY ▜V PRINT RETURN >IN RETURN E?USR RNDNOT RUN ▜ RETURN ▛ GO TO USR u[E]POINT [B]5F[F])ZkRND([S] LLIST LPRINT LPRINT AT ~▘ LLIST LIST LIST *LEN IF n LLIST SAVE ( SAVE SCREEN$ [T] DRAW Z[S] LLIST DRAW SCREEN$ ?? RETURN RETURN ( RETURN [S] RETURN INKEY$©©_@ PAPER GO SUB LET ▚WuUSR ] OPEN #▝)BIN > COPY P PRINT © LIST BEEP V RANDOMIZE ERASE USR CONTINUE W DRAW PLOT ] OR U_>= RESTORE )6^ SAVE COPY USR A LOAD LINE ▘C CLOSE #CHR$ [R]M MOVE oAT ©▗L CAT CAT OR GO TO CONTINUE LLIST ?SCREEN$ DRAW DRAW * DRAW DRAW +X IF FOR RUN ([S] LLIST LIST [S] LIST FN LIST LIST [S]ASN STEP REM CONTINUE O LLIST [S]FN USR USR SCREEN$ USR USR ([S]VAL CONTINUE RETURN ?[I]p[B]INKEY$[S]8_▟ LOAD b RESTORE STR$ PRINT LPRINT LEN 38TABS z LIST BORDER VERIFY SZ CONTINUE u DATA USR '[R] INPUT INK OVER RETURN USR C LPRINT [L]<> LLIST ~SCREEN$ OUSR POKE L} RETURN }▘ SAVE ▛fOJ8[M]? PLOT OR CHR$ ASN E READ PLOT BIN RETURN OPEN #S[POINT BBIN POINT ▝JABS CHR$ [ CAT RETURN ▗ COPY RETURN v<= CAT V OUT POINT SCREEN$ (SCREEN$ (AT PRINT Dh[N]?SCREEN$ ??3h GO TO IN ©]<>▙CODE OR U2VAL }▞/qEW MERGE Z[N] COPY COPY MOVE Z7COS P[T]RPOINT ©©SCREEN$ ??(?[S]([S]COS INVERSE SCREEN$ SQR j( REM CLS [Q]t/9LEN <>"▟ DIM Q▞[F]78yCHR$ H NEXT 8p RETURN [E]CHR$ ABS 8NOT MOVE [U]8DEXP 8 RETURN Oy AND _+k5UX COPY PRINT zfSTR$ CLOSE #TAB CLOSE # OUT ▟▟[j[L]w<>FE5ABS CHR$ Gtxd NEW K PAPER )?(?[R]©©O,WdqZUSR W[B]CEXP [T]t RETURN yT~ GO SUB RETURN C[A]USR © COPY TAN u[F]ASN ih[B] LPRINT [S] DRAW LIST SAVE * SAVE [K] LIST DRAW [S] LPRINT RETURN USR 1m NEXT [E][M]g BEEP TO STR$ LINE RND GO SUB CLS SIN TO FOR CHR$ RANDOMIZE PI CLOSE #DCOS VAL REM OVER I CLS AT [Q]T PAPER FOR ? DEF FN CLOSE #Bh[Q][Q]( REM OPEN # IF CLOSE # OPEN #([S]COS PEEK REM ERASE TO PEEK ▖ABS ▖%▖▜POINT USR 2[R]8[U]y READ ACS POINT [F]C POKE USR {CHR$ CAT @USR PRINT @y[F]zz;[T] VERIFY USR RESTORE 8 RETURN LIST STOP RETURN PI-y84[P]▛[P] CLOSE #SVAL m LINE ▙VAL$ [B]"e LIST |CHR$ J COPY i FORMAT USR DRAW NOT RETURN COPY USR DATN ▛R*~RNDATN J RANDOMIZE READ PLOT TAB READ }JINT FLASH PLOT AT [R],5R>*ATTR ?©CODE © PLOT ▙A^ REM ;C FLASH [U]ATN LN LIST RETURN LLIST STOP LLIST >=? RETURN BEEP USR BEEP COPY USR SGN LET aG MERGE g RETURN ( LPRINT [S] DRAW LIST SAVE ( SAVE INKEY$ LIST DRAW LPRINT ( RETURN [R]USR ACS INKEY$ATN E▞LEN RANDOMIZE w[D]_PEEK _| PLOT PLOT LEN Z2p▝©P OPEN #D, OVER p OPEN #COS p: OPEN # STEP p FOR OPEN #3p[T] OPEN #*w) CONTINUE =Z TO V LIST oKAp* SAVE 8INKEY$p[T] IF COPY y"IN Z8CHR$ CODE [Q] LLIST DIM zzC LOAD [U]USR LOAD DATA 8USR _ INVERSE RETURN COPY LIST [F] BRIGHT RUN [U] OR [M] RESTORE USR /CHR$ SQR H RETURN ZFN y[R]ABS LET pS[F] DEF FN CLEAR COPY DATA POKE x GO SUB SQR | RETURN eUSR FN J RETURN v[Q]b LIST DRAW l LPRINT ▟ NEW [S][Q] LET k▜ INK CLS ATN i9.z PLOT | RETURN CLOSE #p[A][L] COPY (yo[▗USR j NEXT INT USR SAVE ATTR [F] RUN VAL ejP[E] ERASE <>)n4CHR$ tDRNDSGN Ah READ U AND FORMAT AND PEEK PAPER FLASH ^[B] LLIST RNDN/CHR$ _FN O RANDOMIZE ▞ GO SUB SAVE STR$ CLOSE #_( MERGE T AND USR N GO SUB ?©g[F][S] FOR ? DRAW [S] LIST * SAVE SAVE (SCREEN$ LIST DRAW (?[S]FN LPRINT RETURN [S]©USR [S] COPY COPY CLOSE # AND !I RETURN E VERIFY COPY i LPRINT PAPER Q9[H] MOVE V POKE z INPUT PRINT RETURN [Q]U STOP l[Q][S]cb MOVE ▞qV▘8[L]{z[B]5tW CAT SGN VAL MI▟ RETURN FU* COPY FORMAT =Au,X▝-s`S LLIST [K]< DATA O OVER POKE LPRINT = READ CLOSE # LPRINT CIRCLE TO Kuv|PEEK M MERGE xJQ COPY CHR$ PEEK INVERSE NOT Q▖"/▗RNDCHR$ LET PEEK =NOT [[M]zcQ8[Q]CODE h[S] LIST ▘ LIST ▝BIN [P]hVAL$ [Q]h[S] DRAW ▘ DRAW ▝?BIN [P]VVAL$ [Q]© LLIST MOVE LCSTR$ ▗ INK LPRINT 9 RETURN [E]▝[M]}▟FN 2 FOR )[S]?▖©x COPY A]CINT KB POKE ©CHR$ ?PEEK FORMAT CHR$ RETURN PEEK K!:S THEN P[T] VERIFY /?EXP s CLEAR READ xPEEK POKE CHR$ vRND9[U] SAVE / BRIGHT hSCREEN$ LIST B LPRINT [U](SCREEN$ USR B[U]* BRIGHT BIN }CHR$ J)CHR$ PRINT VERIFY R INVERSE WZ9hx9▖;<9 LLIST SCREEN$ 2© RETURN ^CHR$ R LPRINT p RETURN ▖XPISCREEN$ B▝ABS *PEEK =b"U[U]POINT [S][T][B]zoFN LET U FORMAT 8FN DATA < RETURN BORDER FN [H] DATA RESTORE j RESTORE RESTORE DRAW }SCREEN$ LET ©EXP CLOSE # MERGE Wnf POKE FLASH PEEK ? OUT PEEK C POKE READ PEEK n{ RETURN ▝8UV[I] COPY ▗ COPY n GO TO zP CONTINUE $CHR$ ▗ PAUSE LET RETURN %[N] STOP _OINT LET ▙[E]5|C▟jRNDUSR AT USR MOVE }A RESTORE )G POKE OPEN #zfRNDASN hH NEW ATTR [E]FN INKEY$* LIST LIST LIST FN SAVE [S] SAVE ▘ SAVE [S]FN DRAW DRAW [Q] DRAW [Q]?j? RETURN RETURN ( RETURN (©t©Wp[G]P) NOT PRINT ^}[H]v VERIFY T[R]hABS S CLOSE # RETURN b<=rRSIN COPY VAL PLOT LN J3 CAT ABS ? PAPER ?ASN TAB VERIFY R*E[Q] RETURN [K] CLOSE #$ CIRCLE [Q]h? PLOT POKE nGh"ZUSR PI]PbE CIRCLE [T]'d@}[T] PAUSE DIM COPY ^^#F%E STOP ▛INT AND ©TAB 5 PAUSE [S]_!Jy[8 BEEP TAN ERASE p4r LPRINT FOR [H]ABS BEEP FORMAT PEEK DRAW FOR PEEK ]`~ OPEN # RETURN G CLOSE #"m[F] MERGE [A] FLASH STEP W OUT @S AND J▝COS dy~5W[E]PEEK 7UAT USR Kh DIM [N] INVERSE LPRINT j LPRINT [S] LIST [G] LIST FN LIST SCREEN$ SAVE ) SAVE j SAVE [S] DRAW [G] DRAW FN ? DRAW SCREEN$ ? RETURN ) RETURN ! MOVE EXP ©J_SIN `STR$ ▞< RETURN C FORMAT K NEXT * OR CODE } LET Bkp[u BEEP K[U][Q] LLIST LEN )POUSR W MERGE RETURN ▗ RETURN LEN m© FORMAT - NEXT READ D SAVE '(ATTR [E]@ BEEP RSCREEN$ CLOSE #TAN p CONTINUE OPEN #FN r. RETURN R[K]_▖bTAN ▖PEEK ; tSTR$ 8[U];[R];X NEXT SGN FN [H] PLOT INKEY$eTAB DATA ©IN SCREEN$ y( OVER W▝ LET RETURN RUN EXP REM SCREEN$ xSCREEN$ <SCREEN$ | DATA SCREEN$ = STEP [B]POINT BEEP CLOSE #t(pW PRINT >=UXACS h©>=_pCtBIN RETURN 5wTAN SQR .[S]e▞i STOP USR DEF FN U LET INPUT , COPY STR$ LINE INK RANDOMIZE KEXP OVER STEP }USR c PRINT VERIFY ▟B} AND RETURN DATA X> RESTORE COPY SCREEN$ A RUN BEEP [S] OUT ▛SCREEN$ DATA [Q]▛ DRAW MA[M][L]^ PLOT <[ CAT Up LET [T][A>=Z BRIGHT BEEP 3[C]K READ RESTORE CLS GO SUB [O][P]© NEXT CHR$ COS MERGE MERGE =AT w STEP c INK SATTR RUN [K] LPRINT [R]P[S] LIST ▝▚B LPRINT # SAVE ▙SGN FN :COS [S]SCREEN$ RETURN ©8 CLEAR [M]a]x= RETURN T BRIGHT UUABS STR$ h▞;F% RESTORE ▘#8p DEF FN [I]CHR$ R POKE AT ?SQR [U][A][.G RETURN LET `;;[A]n8 RETURN S OUT CLOSE #[M]<{SGN NEXP READ pUTAN ~▙U[A]][A]O▘[E]N[T] INK PPEEK RETURN BRIGHT INK ©A[Q]RNDBUSR F▘ DRAW ?▘USR [F] LPRINT SAVE J LPRINT STR$ E+ATN hPLN TAB Q LET k)P[R] SAVE [Q]+ VERIFY DL[R]: INVERSE [L] DRAW *USR DRAW SCREEN$ ? RETURN * RETURN [S]©/ COPY Q} PAPER MERGE 5u[H]VCAT FORMAT "▟ GO SUB Q▖ LOAD SCREEN$ |[S]A▙j9INKEY$_GSGN CHR$ STR$ & CAT x VERIFY )0@c▛▝CODE RETURN PFN ]=bz@[T] PRINT FORMAT EXP j INK |?RND ERASE [T]Fy PAPER @R READ { RETURN NOT USR MERGE @ LIST O@WrgUSR 4USR h RANDOMIZE USR )@t CLEAR READ INPUT ©USR qCHR$ W[J]mSTR$ oACS BORDER O TO BORDER PLOT A(USR @TAN FN SCREEN$ IF RUN NOT + LPRINT OPEN # STEP TAN READ PLOT SCREEN$ NOT LIST FORMAT v[C]INT [E]NOT SAVE POKE STEP SAVE [C] PLOT FOR NOT DRAW !<LEN X[J]([Q] RETURN (VV[C][A] RESTORE $u[U]L[F] RETURN IF READ [K]©@ACS [K]iDASN USR [C]USR RANDOMIZE !m GO SUB F[C] SAVE [A]A LPRINT CONTINUE COPY CAT LIST THEN fSCREEN$ CAT LIST INKEY$ SAVE SCREEN$ LPRINT FN SAVE [S] DRAW FN USR SCREEN$ DRAW ?INKEY$ RETURN SCREEN$ FN RETURN ©FN COPY r© LPRINT BIN [I]ABS TAB MOVE t>=[A]▙w9;?Qo[H]_ CONTINUE e FOR LPRINT [T]INT FOR (TAB aIp_ RETURN [U]9H[P]pCHR$ [K]▖)E POKE FORMAT h▝[O]LEN VATTR RUN KHCODE BIN X PAUSE GO SUB RETURN DATA #USR ©[N] OPEN #zRNDab[U]SGN bO DATA ABS [Q]~INKEY$ RETURN RETURN BRIGHT W OUT LEN [M]^PI LLIST RESTORE /?{▞[D]VAL MERGE NSCREEN$ MERGE CLEAR NOT FLASH ©A OR CATTR ▗A+ THEN ERASE BEEP CHR$ pUSCREEN$ [R]( THEN F[U]+ LOAD hV THEN OVER DEF FN LPRINT ▗ZJ TO RANDOMIZE ` OR MOVE LIST [R]VAL POKE t[ OR Yz CAT CODE SAVE [S]FN DRAW ? THEN [I]POINT CODE RETURN ^SGN ©PEEK _NOT OR m MERGE ▚7U STEP CLS FLASH ATN RNDUl7U5 LIST ( SAVE [T] DRAW SCREEN$ [B]QASN RETURN MDi. THEN PEEK LET [L]ATN UEXP hI LET DRAW [U]?gINT |H IF ) RUN 2LEN ▗CODE yJZ)[R] PAPER PLOT ACS [B] LPRINT VAL$ (CODE FN USR CHR$ 0 MOVE (b- RETURN Zk8a LOAD 5(9D▝INKEY$b[L]9- BORDER SCREEN$ USR [R]▞9▚ PRINT ▘NOT K8[P] RETURN SIN <INT VAL 9) DRAW ,} RETURN B▝p RESTORE S[L]*<>[C]q▗8ASCREEN$ AND )SGN BORDER [A]f> DIM RETURN ▝ OUT [T]EPEEK K STEP GQ▟v[T] DRAW T)( TO [M][U]5 OPEN #0[jNOT i PAPER TAN LIST B[E] LIST +LN B LPRINT XSIN F▝ SAVE PVAL$ ▛[A] IF J▜ DRAW 2[U]▞[U] REM ▜? RETURN RETURN +© SAVE BIN h COPY LN I]%DABS 7RNDL CAT VhATTR hSCREEN$ O@ABS m MERGE =>;© CAT LEN ?X▙TAN CE[G]▟}l RUN ▚[I] MOVE INVERSE RETURN PGSCREEN$ MOVE 2[S][R]]F OUT VAL [R] FOR [S]KQ INVERSE NEW MSTR$ {STR$ ▟Q DEF FN INPUT / LINE AABS PLOT ▙▟G ERASE uATTR ATTR RESTORE MRND*k CONTINUE MOVE TAB !1FN AZGV[F]▞▘ PRINT INVERSE >=o/; INPUT y▗Kp▘ RETURN [K] POKE STR$ OR )4 PAPER j▗]n_jC POKE BEEP KATTR FLASH FSPIASN STR$ ASN PLOT UX
