| Es parte de la publicación: | ProTracker |
| Tamaño del archivo: | 26112 |
| md5: | a5d8a106030c658e64ed58cb5c722492 |
10 RANDOMIZE USR 0: REM 1COS _ STEP INVERSE ]! LET <>"CHR$ /! STEP CLOSE #]> STEP THEN ]!SIN STEP CLOSE #]!SIN LEN STEP > STEP THEN ]!LEN Y GO SUB PI GO SUB VAL > STEP THEN ]@ GO SUB VAL > STEP THEN ] STEP ^ GO SUB ![A] STOP GO SUB VAL !aM STEP CLOSE #]* POKE / RESTORE ! COPY STEP CLOSE #] LLIST " POKE /!aTAN _ STEP [A] STOP STEP INVERSE ] STEP Y GO SUB NOT CLEAR ©2/[ GO SUB y<> GO SUB [ POKE / CLS v NEXT CODE !XX COPY w GO SUB VAL OPEN # RETURN <>SCREEN$ -- PT --ver 3.4r--------REMIX BY MMCM SG '98 -------- INVERSE ! POKE COPY INVERSE 9 MERGE RANDOMIZE STR$ FOR STR$ FOR STR$ GO SUB R8T] GO SUB LN FOR INVERSE V INVERSE ^ RANDOMIZE LLIST LLIST LLIST ; LET INVERSE w INVERSE # RUN INK IN LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE RETURN 8_POINT GO SUB RETURN (Z DEF FN COPY RETURN INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE INK & COPY (g;<( LET o GO SUB VAL [U] INK THEN [Q] LET RETURN LPRINT 8 LIST POINT <( LET VERIFY oO& COPY GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT > DRAW ;STR$ HG?[F] RETURN 8 PRINT ▙ AND POKE INVERSE RANDOMIZE [P]> LOAD ) LLIST A8 SAVE INK USR THEN ©( STOP VERIFY REM FOR MOVE s#r#= SAVE FOR 0[L]!X' INK <>HR FOR INKEY$ OR NOT PI TO COPY LIST ! INPUT [R] NEXT ~ INVERSE o© NEW LEN PLOT @W~# NEW DRAW O>X[B]I~ VERIFY USR 8#>=G~0F THEN 8 [I]#CODE LIST ;8 CLS BRIGHT DRAW 3 AND @ THEN ©~ PLOT SAVE CAT LLIST # INK SAVE NEW COPY LOAD THEN < RESTORE n`G DRAW ▟|EXP 09TAB NEW SAVE a/ INK W&AT RND_[O]▖ DRAW z0%ATTR u▞RNDLN tSCREEN$ y[I](#8IN ATN STOP ▙0 IF +BIN [L] AND LLIST [U]7 PRINT INVERSE K BRIGHT > LET {0 BRIGHT }BIN <= TO INPUT HLN THEN G|SCREEN$ RETURN REM ▙' SAVE AND INPUT COPY [H] RANDOMIZE >=▖ DRAW ©PI NEXT <> SAVE CHR$ VAL$ STEP SCREEN$ ▟/ CIRCLE >= GO TO LINE D PLOT [P] CLEAR ? CIRCLE TO REM NEW XFN RETURN READ COPY LIST ▗ DATA $[H] CLS CHR$ INPUT MOVE DVAL ` FORMAT FN ATN _x IF BIN CONTINUE [P] INK /@ DRAW LN ' LPRINT CHR$ DATA O CIRCLE COS STEP [Q]BIN ▖' LIST x[S] AND REM [H]<>BIN [U] DATA [J] THEN INPUT BIN CONTINUE AT [H][K]z DRAW OR AND BORDER NEXT READ [I]>= >ATN EXP CHR$ [Q] FOR IN RNDG CIRCLE [P]ATTR NEW NEW FN [I] OR FORMAT NOT 0 RANDOMIZE LLIST ACS MOVE @ OUT CAT dCOS IN ©o SAVE 'H[O] FOR J,? OR FN LN ▜ PRINT >=|[H] RETURN CHR$ oq SAVE PEEK e[F]PI© LPRINT m<= STEP CLS NOT STR$ >= TO /@ FORMAT 9BG CONTINUE BIN [H] PAUSE THEN LINE w$'!▝AT fO<> READ PRINT >=gTV▙POINT TO GE COPY ~uO SAVE TO wU_VW[H] DIM ©[M] STEP R OR PCHR$ ` OUT <>Nt STEP D[P]POINT LIST READ DATA OR U CLS GO SUB CLEAR E[L] READ AND p CLOSE #[P]+ RESTORE ABS BRIGHT SIN PI RANDOMIZE BIN WT[H]NOT MERGE CHR$ e/[Q] OR RBIN rB NEW ©[D]EXP CONTINUE CHR$ T THEN J OVER DRAW z' CIRCLE [H]SIN O>=▝ STEP "CHR$ ' LLIST _LEN OPEN #BIN aQ[P] THEN y IF DF'xPI$ SAVE ) FOR d PAPER IN FLASH CHR$ "[H][R]BIN %<> DRAW /W CONTINUE ATN s READ [H][PI/ RANDOMIZE INK BORDER pF COPY STEP v STEP U? LIST > FORMAT IN GO SUB LINE p?@▜h▚ THEN NOT {'F TO [P]▜ PRINT 6 LIST OVER *EFN [S]U▖[I]5) THEN POINT [R]▞3K[U] DIM D/ CIRCLE FORMAT CLEAR D CLEAR TeiG STEP USR COPY LIST COPY NOT OUT /USR C7[L] INK SAVE ac LET l TO ) LPRINT LINE STEP ERASE IF INK MERGE ] BORDER G STOP MERGE THEN >= INVERSE AND BRIGHT [F]R AND STR$ FORMAT ERASE POINT 3[R]<=[P]POINT 7USR >= MOVE Q▝[H]}<= NEXT OR CLOSE #/T[Q].LN STOP RNDQ>=USR 9{[H] CLEAR [D]r NEXT OR LPRINT MBIN DATA AT IF DIM [O]NOT [A]]USR DEF FN VAL -_/y STEP ` AND "3; LINE yN[E]EXP / PRINT <>@ 0LN POINT N LET 3[K]v>7_~f CAT LET w, DEF FN SCREEN$ FN [F][S]©TAB ▖▚4@ TO Eq NEXT ("U1FN <> RANDOMIZE IN [Q]3dh[I]ATN & THEN DRAW NEXT ▝W READ AND UIN oGrINT ▜q6JEXP [P]Np(1aINKEY$ STEP |#0 CONTINUE INT CHR$ LINE -[C]LEN BIN IF GO TO OVER AND COPY 0(/VAL ([A][C]▞+▖5▘ OVER :< STEP /%BIN ' RETURN * AND LPRINT ▗PI COPY MERGE COPY CHR$ [H]ACS [P]▚!]80 PAUSE NEW PRINT [O]▚'8[L] COPY LN INVERSE BIN LPRINT VAL MOVE RETURN NEW USR 8 COPY # INVERSE @"08X CONTINUE [J]-▖BIN X AND VAL$ [S] STOP ▚▝{CHR$ USR <> FLASH 7_V AND TINT l▖G@ LPRINT }VAL 7[Q]e IF <>= GO TO G<▘TAN LD0 OUT REM C READ }FN E[Q] VERIFY ATN SUSR = GO TO '`▜# FORMAT <> COPY <=[P]E▖ABS >=v RETURN [L]w RUN S5▗ BEEP STEP @n^[F]USR ©zNOT ,Z OVER q CIRCLE SIN FORMAT [K]/OZN TO w}(IN +h7[K]WT SAVE 3 IF [A]BIN ▙ STEP ▖(kUSR bz MOVE 8 CONTINUE DEF FN ▝ STOP g+e AND yV"O INK `CHR$ s▞[K] LOAD OVER sCHR$ READ X[J],INKEY$USR LPRINT [E] PRINT c[D].*A CLOSE # LIST © LET @NOT G;LN xpo RETURN STR$ @ GO TO BORDER COPY USR o MERGE ASN RETURN ▖? LET ? OR [A]:VAL 5 LIST PRINT RANDOMIZE CHR$ [P] LOAD [H] RUN x LLIST / LIST MOVE ▗.FN IN [A]▝ MERGE 0oHg>=▖ LINE ▜ COPY VAL STEP SCREEN$ CHR$ AT ▘1NOT COPY DEF FN CONTINUE 2 SAVE H MOVE SCREEN$ ` RANDOMIZE >=▝CFN 9 LINE FN SGN LET MERGE CIRCLE (LN >=~ NEXT CONTINUE ▖ STEP [P]$E AND IN e RETURN `5 LPRINT TO OR @!03©Y PLOT 7V[P] LIST LINE INPUT ▘ NEW CAT TO rcD POKE USR SAVE d[P] OVER PIASN MOVE #0[C]C9i` SAVE INK EXP READ [P]!>=WT$~ NEXT [I]41 TO WUu~'[L]EXP _(p STEP PAPER PR PAUSE fAT CLEAR E INK , THEN IDv STEP GWTAB w PLOT !USR ▜? GO SUB ▛ LLIST [F]j FLASH CAT DRAW 9|}5COS STR$ | CLOSE #ACS <=M CLEAR G▜ STOP ?9 LPRINT RETURN <= RETURN OUT [I]▟' RUN CLS <>CHR$ LLIST LINE LN GO TO sc LPRINT GO SUB THEN [C] FORMAT LLIST ?[S]l OR INVERSE !/▞IN ▖[O] NEW ▜[K];©UN GO SUB © POKE wUSR [N][L]{ CLS OR GO TO a COPY AT CAT BRIGHT ASN =:}f READ z PRINT REM POKE [H]CHR$ INK DRAW Gu CLOSE # READ CONTINUE FN P[R]@RNDIN y FLASH INPUT COPY ' CAT FORMAT BIN COS [O]BIN AND CHR$ POINT LN LET DEF FN PAPER BU Q CAT ~CHR$ IN '~ COPY ?[O]lnf RETURN [H][Q] RETURN POINT Q[T]SPIK [P]WINT P VERIFY BRIGHT SCREEN$ " OPEN #TRz@ LIST A>= OR ▜_STR$ O RESTORE COPY p LIST xLN /SGN ^.'PBIN USR @ LOAD s STOP RETURN p SAVE |~ COPY © CLS >=wI OUT ~ CAT CAT FORMAT ^ RUN w COPY N4A CLEAR A@|ATN <=[I]i INK DRAW DRAW EXP NOT LEN LINE `p07 LIST PAUSE CHR$ FORMAT [H]n AND CLOSE # FOR MERGE © RETURN FORMAT ATTR [F]BIN ▛▝NOT ' LINE USR VAL BRIGHT INT INVERSE A BORDER O[J],r AND PEEK LPRINT ?}x;CHR$ `CODE NOT INPUT THEN ©[E]q!6[S] TO > LET BIN ▖ CLEAR IF LLIST [J][A] DEF FN POKE ▜A LET RESTORE STEP OVER Cc LLIST LET MOVE xACS [Q]P@%f[S][P] DRAW BRIGHT ▝USR FN FORMAT CONTINUE LIST LPRINT LET RANDOMIZE 0q<>[H]EXP LET ©>TAN CLOSE # COPY RETURN ?p` [Q]o RETURN VAL <>[A]/r DIM USR TO COPY [L]NOT > LPRINT [H] LOAD RETURN VERIFY [C][A]▞[B]SIN [Q]POINT >a COPY LIST 8V MERGE USR CHR$ CONTINUE [P][H] SAVE PRINT IN [J] PRINT DEF FN [P] INK RETURN LIST CLEAR USR <[T] FORMAT STR$ m?©e[T][P][H] SAVE < LET `STR$ p7POINT CODE f; OVER r> RANDOMIZE RUN LOAD CAT 7▜ LIST FORMAT ` LPRINT SAVE DRAW RETURN MOVE DRAW THEN COPY PI IF ▛[M]SQR POKE PI TO [J]N DRAW DEF FN FOR : FOR [H]SIN [R]q}<=LN [O] AND ZSSTR$ n OUT <>COS RANDOMIZE VERIFY LET [Q]O POKE IF l IF CLEAR r LIST PRINT ©$© LLIST 8BIN ▙BIN TO STEP INVERSE INK SQR [ATN INPUT AND AT SCREEN$ DIM CHR$ SCREEN$ FOR AND SAVE RETURN [O] DEF FN DIM BIN A! PRINT IF MERGE Bl▘FN THEN [E]IN N<>▝CHR$ '_h DATA MERGE [P] RUN CODE PRINT ? FORMAT INT ] LET INKEY$:[T][H]cfj'> COPY CHR$ ©Q DRAW SIN STR$ >=▝AT ▘ RETURN STR$ LN o>▖ AND @" RANDOMIZE (& CLOSE # DRAW COS SGN LPRINT RETURN o~ABIN >=[U][M] SAVE r READ +W/CODE ^PEEK e PLOT x SAVE PI?Xp8</> OVER SAVE [H] GO TO CHR$ ▜ NEW ▞ STEP o[M] DRAW <> OR STR$ [G]z COPY SAVE TO ▙SGN <x[P] GO SUB ▗.▗ DRAW ACS [H] LPRINT VERIFY ERASE LLIST BORDER STR$ PEEK _/N LIST V▜1 FOR ▖ LLIST ,oYLEN FORMAT @`RUgTS[L] DEF FN PVTd DATA DNOT -@[F]uQ DRAW A THEN AND "<>RCHR$ X@o] TO @HU[N]QL FLASH LINE RaCENOT . OR D2AG CLS A[G] DRAW FLASH AND 5EFIN MOVE *▖E[E] OR T AND OPEN # LINE %VtD4 OVER BIN MOVE RANDOMIZE OUT <>i[U] PRINT BIN ] MOVE STEP QCODE IF |>=1[C]ea|A<>BVAL$ IF >=0Px7BIN [I] PAPER RETURN 9 DEF FN 0@B!c/ACS NEW [E] LLIST !▞@[F]7 COPY LEN UWT3▛ COPY 2SCREEN$ AND RETURN OPEN #1 #SIN STEP CHR$ INKEY$▙#FSCREEN$ SIN <>[S]g▗<NOT #>=I[F] NEW TO OR Db NEXT lSCREEN$ LPRINT j USR COPY ©?W*@▞ NEW @AATN IF XT STOP PAUSE CIRCLE ▞[B]ABS Q7f| COPY LINE CLEAR SCREEN$ U-T6^ READ ▖O ERASE REM tz=> TO *jSCREEN$ THEN ▟ REM CLOSE #FN T RETURN P9[P]CHR$ [H]IN POKE T COPY [F]S NEW NEW PI MOVE POINT CLOSE # STEP j5:[A]b STEP /VAL VAL$ EBIN `<>[Q] INK [N]sPI GO TO IF NOT 5E8qc DIM !▝ ERASE RK2LEN THEN [H]. NEXT LEN EXLN pVAL I4 DEF FN USR [Q]SCREEN$ AT FN >=▖ THEN ERASE [U]▘[S]INKEY$ACS [M] SAVE COPY [E].[O] CONTINUE [Q]SGN ([S][I]INKEY$. ERASE OR CHR$ F[O]=[E]v STEP STR$ y THEN LLIST LPRINT CODE VAL$ ©~0ATTR FORMAT P@& RANDOMIZE [D]u TO 'INKEY$[C]b RUN FN f[H] STEP X| LINE AkYK[L]SQR BIN REM USR [T] COPY SIN LINE PdBFJPISGN PRINT ▟ COPY <>▚YCODE [G][P]>=X> COPY FN &} STEP [Q]▙|/NOT ( TO ▝▞RND%FN [A] AND l[N]▘Z PAPER DRAW [P] LINE L▘[N]▚LN 0' DEF FN aSTR$ A▝[S]@CODE INT AND D LINE J[G] RUN CHR$ GO TO ▚X [I] AND "©$ OUT DEF FN N[S][U] NEW PAUSE h(>=NOT [I]ATN CHR$ VAL$ C SAVE V[H]Z LPRINT COPY _xFN ▝[S]▗▛[G][H] LIST NOT [P]VAL ATN RETURN DEF FN IN [O]<▙CODE ▚[T]▟[C]" INPUT SCREEN$ LINE | READ VAL$ COPY 0 THEN ATTR NEXT o▛ OR [T] PRINT CAT TO 49u+▗IN i FORMAT DIM >=0▟ PRINT COPY PAUSE NOT TO LOAD FN RESTORE VAL$ [H]CHR$ >= LET e LIST NEXT DRAW PAPER RUN IN ,SIN CLEAR 3 RANDOMIZE ▝'[K]/I>=x, LET READ LOAD <> REM *N AND &TAB Ub▝E[R][F] MOVE iPOINT CLEAR TO RANDOMIZE 4 DRAW [L]SNOT 6SQR ?FCHR$ USR STEP Z COPY LPRINT ▝[Q]# LLIST DIM [H] OR [T]ECHR$ M' RUN 8 TO CLS DEF FN E DIM U[R] CLEAR 1 LINE 9F FLASH LOAD ; LPRINT MERGE TO H POKE E©DU[N]7USR [L]▜/ PRINT AND G CLS ▜ STEP STR$ 3LN AND OA RANDOMIZE 5[P]>=FACS GO TO [P]C3<> PLOT ` BRIGHT [P](IN [N]E©_VAL / ERASE G[H] DATA COPY =!lfg▜ CONTINUE [B] POKE [L]G STEP RETURN ?r PLOT PRINT COPY ? DRAW INPUT LLIST CLOSE #>=ABS SIN FN [P][G]▟▚~wpjd^YTOKGC?<852/-*(&#! COS COPY DRAW COPY 1W REM W_ CLEAR RESTORE [P]}} RUN [H]▟ POKE BORDER PAPER DEF FN CHR$ ATN TAB [T][K][B]▞▘zsmga/VRMIDA=:630.+)'$< CLOSE # CLS [R]L OPEN #[Q][Q][Q]CODE [G][T][S]ATN [Q][U] PAPER [J][I] NEXT CLOSE #[N]> POKE TO "LN q PAUSE ▘ GO TO / VERIFY XCOS AND nS OPEN #[P] INPUT @ NEW PAUSE [B][O]MA NEXT PLOT VAL$ CAT [K]k, LET LIST ATN INPUT Y▘O NEXT >=Y CAT [R]{= FOR W6 CAT LINE SAVE BRIGHT q FOR YFN [A]ydg=P= RUN AT , DRAW AT g INPUT LPRINT CLOSE #[O] PRINT >=ABS MOVE COS SIN FN [P][G]g▞ POKE PRINT AT ~wpjCOS [O]d^▛ MOVE YTAT gKGC[O] PRINT ?< VERIFY COS 852/ CAT z-* CONTINUE Y(&$"COS BIN [Q]z VERIFY W CAT PRINT , CAT rPEEK q CAT 37[R][E][E]e RETURN #[U]v[T]E CAT mCOS {INT g[O] INVERSE FORMAT ▛ INK ▟J ERASE [L]= FOR g7 FOR INK INVERSE TAN ▟hg=F%=SQR DIM DEF FN TAN AT g[L]▗n[O] PRINT ZF MOVE COS 4#3▞5 BORDER [S]g= DEF FN CHR$ PRINT AT ATN TAB [T][K]COS [O][B]▞z VERIFY ▘zsmY CAT ga= FOR /VRAT gMIE[O] PRINT A= VERIFY COS :631 CAT z.+ATN ^)'BAT POINT BD RETURN NEXT 3cB COPY ! DEF FN 'NOT X STOP [N]@ PTIN CAT 3lay LLIST erv1.0 SAVE STOP byNickSGN xofGDCgO NEXT "HUSR MOVE Y_l COPY rATTR <=[D]~2[E] TO 7#^P RESTORE M7!ACS STEP [M][G] LLIST N DRAW F$ PRINT GO SUB syUSR RANDOMIZE COPY FOR RND<=[Q]USR >0=mSTR$ FOR s NEXT ! CLS r= PAUSE LET Y> LIST 2TAN NOT yq FORMAT BIN LOAD OR *LN 86"C AND BIN FORMAT COS %lSTR$ OPEN #@ THEN LOAD MOVE >NOT CODE >=, CAT zU`[G]WkR NEXT {▟c ERASE <> REM BORDER INK LINE )LN OPEN # OUT TO CLS [O] INVERSE ) STEP /;}5- CLS AND VORNEZH-© RETURN SIN "INKEY$ OR 2UCOS INK <=>d. STOP <> COPY LINE SIN LINE COPY ATTR COS NOT [P]! CLS BIN og"[O] TO $<USR BRIGHT PLOT <>L CLS OR 1STR$ "▗<=CODE [N]ASg CLS <>` PLOT Q<= STEP LLIST AND CLEAR ▜ SAVE <>SGN BEEP . INVERSE GO SUB s OUT CLEAR LOAD COPY g< LINE _BIN ▛{o<INT { LET o}▜ DRAW NOT 9 RANDOMIZE MOVE z NEW ▝{PI PAUSE [T]NOT OR NOT @:[U]CHR$ [K] DRAW = RETURN LIST <[Q]2CHR$ : NEW NEXT =5 STEP THEN PLOT TAB CODE ;[O]COS ©COS 8~ AND &STR$ o~[J][O] THEN ; PLOT [L]IN CHR$ zo8g FLASH DIM DIM THEN m( LET <> INVERSE g|ASN NEXT LIST { NEW CONTINUE TO MOVE PLOT LIST MOVE 6 RETURN READ NOT CLEAR o| LPRINT INT s NEW INVERSE LIST mSTR$ }r?<=" IF VERIFY INKEY$NOT FOR eSTR$ eLN PEEK iy6BIN &9n&%CHR$ ▞▟ NEXT ^ RANDOMIZE LLIST O[M]"z= IF < DIM ^BIN *>=NOT |#BIN GO SUB ! NEXT COPY 0NOT FBIN GO SUB R$ OR FOR B[F] PAUSE * CIRCLE [Q]J DRAW ^Pz STOP l VERIFY <=©<=:[K]ACS ATN INPUT SIN LINE z[E]▖ PLOT |ACS CAT OUT c CLEAR [L] DATA ~ OR DRAW 7 DATA ▛BIN ▜h DATA IN BIN DATA USR POKE CHR$ ACS INPUT SIN DATA SGN <ACS <>▞ COPY CAT 3▘ DATA RESTORE VAL iBIN DATA OR o" DATA COPY BIN RUN ▘ DATA READ INVERSE ASN o IF LLIST OR CIRCLE SAVE LLIST ) OR . LLIST INKEY$w} OR LLIST B OR 7 CLEAR LLIST e OR X AND LLIST : OR LLIST I8 LLIST *z[Q]▟ LLIST AND )f<=[O]<= LLIST }[O] LLIST " REM LINE [J]>S PLOT [L] OUT ▘o PAPER LLIST [M] AND OUT POKE LLIST SCREEN$ OR [S] LET LLIST OVER OR LLIST OUT +CHR$ MERGE THEN ERASE LLIST FLASH :LN < LLIST L PAPER LLIST CONTINUE ▞Q▜6# LLIST AND [I][A] LLIST + LLIST 38 LLIST RETURN OUT u5$IN RANDOMIZE STOP 7 AND ` READ STOP G AND EXP L STOP [L] OVER [L] AND STOP ` AND /NOT STOP 8 NEW NOT 2SGN AND STOP X AND )BIN STOP g STOP aBIN UATTR FORMAT STOP f STOP ATTR <=SGN .<= STOP [P] OR STOP Q LOAD LINE ATN [I] PLOT EXP OUT [Q]Oi[T]EXP CLEAR } NEW [K]oATTR MERGE OVER [L]k MERGE [M]ABS O[ OVER THEN <=IN COPY u CLEAR SQR SAVE NOT GO SUB iC[T]B'ABS INVERSE |2^ READ AND PAPER [O]y,ASN W} CIRCLE INVERSE M THEN [H]ATN (`Vy>/ COPY <= CLEAR .:>▗U<= LINE RETURN [G] CIRCLE T<>USR {E INVERSE DRAW VAL !-"G[S] THEN },[M]F9f[L]M> RETURN DIM MUSR INK 9PI 2 GO SUB sINT BEEP c FLASH ~f INVERSE ▜0#MSGN SIN _VAL$ [G] PAPER [J] TO W.TAN OUT STR$ MERGE "u<>?ABS THEN % STEP PAPER <= GO SUB [D]▖S▗%_[R] INK INKEY$_3 LINE ATTR [S]<>&USR PLOT /PI PAPER [F]>=▝ SAVE pACS [B]ATTR LLIST LIST NEXT 0 AND `<># OVER =/0/ RESTORE LPRINT ▜PEEK o~ LLIST Q~,f RESTORE :BIN INK O TO 7NOT OUT <= FOR ~ NEW mFSGN )V VERIFY 4[R]{YkJ▝ FOR CLS X<>[B] DRAW PEEK u THEN ▜c]:[K]; TO h INK y FLASH [I] GO SUB FOR <> FORMAT Q TO REM PNV FLASH ^ INK z] CLOSE #COS [B MERGE SAVE [T][L]6kTAB z BEEP LEN A TO BEEP [I]LEN GO SUB TO LN 9 CONTINUE 3 MOVE [E] NEXT OUT k LPRINT oN,F GO SUB C[ THEN [E]ABS Iu[Q]@ CLOSE #ATTR [G]▝a[J]NOT BRIGHT <=(P<> IF /6[O]i`/LINKEY$ INVERSE ;ACS BIN a5 RANDOMIZE * NEXT DATA PAPER DRAW H RANDOMIZE h INVERSE 9 OVER = CLOSE #2▘ TO ▛ TO mcc CAT RNDIDD/[O]{EXP E RESTORE ~<=3[P]SCREEN$ C3<> CONTINUE PLOT DRAW kBIN [T]Z[ OPEN #UQ|<>FN iRNDE BEEP m RUN OVER FORMAT DIM STEP [F]<>SGN [J]bIE BEEP E BRIGHT -[M]EINKEY$_ CIRCLE E? LINE ▜XE`/ OR ▛▖[K]EACS RCODE STR$ BIN REM 9 INK 5 DRAW Y FORMAT SAVE Bii OR B[K]POINT Z| RETURN Z POKE LINE ^[U]H~B@ OUT TO NOT 1ATN :B RANDOMIZE GO TO ▝Bi STOP Bk>=jO//qx6[wum▖B&▝'B< FOR CLOSE #gIN [D] CIRCLE GO TO SGN SAVE V MOVE [F]%V PAUSE POKE [H] CAT IF V* LIST KV<=[D]IV INVERSE SGN ATTR X©zV SAVE THEN ▛V▝Vr[A] CAT q CAT $XG PAUSE EXP ~[J][S][P]VAL READ SCREEN$ GO SUB LINE 5$V▛©BIN [}T OPEN #V COPY LINE CHR$ THEN YINKEY$mRND TO LOAD wJ[m BEEP f-[R] READ NOT LLIST [F]?W^x LOAD SCREEN$ x OUT NEW QgSTR$ +# DEF FN PAPER ATTR <d[A]PEEK PAUSE :2ek>PITAN 2f LINE OPEN #CODE LOAD CIRCLE ABS AND ▛m▗[J]oUSR V CAT "<oJTAB 3 GO SUB Zu▟<)[S]] LPRINT [F]9<>W PAPER RNDNOT PI-CHR$ CHR$ [O]COS 6 DRAW PIw{/ ERASE INVERSE 6BIN v THEN COS o COPY I^ OR STOP RESTORE [F]}5^yS OUT oB5y/oPOINT BEEP DRAW VERIFY TO SCREEN$ ▜ MOVE o FORMAT [U]|o LET CAT OPEN # TO ATN o%FN BRIGHT k BORDER o RESTORE yi{l[N]yTAB k[2[QX[L]SGN WRNDNOT DIM )8 THEN 8[K] STOP [D]y[F]<> NEXT C<>ASN [B]k8 MOVE DIM y OPEN #[J][N] PAPER ZSIN [L]9 LOAD Z0[E] STEP STEP AND SMg`( LIST /INKEY$[K]tUSR `DY_POINT L5▝STR$ gSCREEN$ PEEK PIk OUT C<=PI(LEN J^USR DRAW K CIRCLE e COPY |▜ DIM ]! COPY #IN [P]▛D2 LIST L STEP o*>[J]E DATA RNDATTR PAUSE LIST IN { CAT DATA 0PEEK 6 RETURN [P]_ NEXT STOP DRAW 6 NEXT X AND [D][A] NEXT SCREEN$ g{Ea[H]b PLOT oXS SAVE v[K][Q] RETURN RANDOMIZE &y AND l BRIGHT #[U] PAPER SQR yAT STOP y STEP wd REM SCREEN$ OR ASN ACS G AND PAUSE POKE COS L~ POKE LN OUT yg VERIFY DIM ,I CONTINUE `}~ CLEAR u AND A CLS [I]INKEY$<= INK [H] STEP j CLS RUN wVAL$ PI TO [N]NOT LET #P~RND|*INT RIN H OVER >=dNPOINT e| NEXT RESTORE -IN PAUSE LOAD OR [J]( STOP =!VAL BORDER THEN PRINT 1 ERASE LSGN <>yINKEY$f[O]EXP [J]j_.C OUT LOAD 2} DATA k COPY LIST ^POINT ht GO TO x▞[D] DEF FN |_: FLASH ATTR E LPRINT FRQ&PLR CLEN hrust-pHR▘L CLEAR ▝<>.a[O] CLEAR OUT TO CAT COPY ▜0 CAT DRAW 8X STEP ▝<ULEN 1 NEW * LOAD <=g~NOT ~ NEW STR$ CHR$ jUSR INK FN ▞▟3W RUN READ ? NEXT LLIST s5 LPRINT TO FJl CLS [P]EXP LET EXP [K] LIST 9 POKE TO ?>LEN 1 NEW * CLEAR SAVE NVAL$ LIST NOT ? DATA a5USR OPEN #VAL$ RETURN !g DRAW r SAVE ▜ RANDOMIZE !ATTR LPRINT CIRCLE [R]▜ CIRCLE l NEXT ▜>= LLIST ~ NEW ▜ LIST *AT c▜bs[F]IN 3?@`? NEXT pa5xlT[D]NOT >= READ LLIST ! FLASH =<> NEXT (!USR IF DRAW FOR GO SUB VAL <>! CLOSE #> FOR CAT INPUT `BIN $ LPRINT ATTR [M]▘>ASN 2pCOS [M]% RETURN STR$ MOVE LLIST STEP OPEN #<> PRINT POINT <>[M]: MERGE LET PAPER w$ PRINT PAUSE %M_ NEW sm[E]sc+BIN GO TO p OR 7▜ CLS GO TO ?? DRAW BORDER [P] COPY RETURN NEXT CAT ©IN IF GO SUB WmIN FLASH CLS PLOT PEEK / RESTORE ▚ VERIFY V THEN TO NOT JPOINT SQR TAN VAL$ [E]RFN [S][M]<>[U][G][A]▛>3▚▝ COPY RANDOMIZE BORDER ? COPY DRAW NEXT [P]CODE RETURN CLS MERGE FLASH o PLOT ~ CLS CONTINUE ATTR 5/n VERIFY jASN TO NOT SQR RND[E]TAN VAL$ FN J)[S][M][G][E]L[A]▛▚`EXP z@ COPY ? RETURN CLEAR COPY LIST DRAW CLS SAVE RANDOMIZE } SAVE ^PEEK CLEAR CODE ▛© COPY SAVE MOVE RETURN ▜? CLEAR DRAW ? SAVE SAVE LOAD FLASH O>= PAUSE OR © PRINT FOR POKE ?| COPY RETURN CLEAR DRAW RETURN STR$ CLS IF SAVE CONTINUE CLS / OPEN #W/>= PRINT THEN M`~ COPY LPRINT ▜ RETURN CLEAR x LIST DRAW STR$ ? CLS SAVE _ COPY } RESTORE STOP OPEN #>= RANDOMIZE REM CODE ~© PRINT CLEAR NOT COPY < RETURN CLEAR DRAW CLS COPY LLIST SAVE ~ OUT x@rEXP MOVE AND SGN _ RETURN PRINT PAUSE NOT © COPY CLEAR RETURN < CLEAR DRAW LLIST CLS SAVE OUT COPY @~EXP x MOVE RETURN r AND SGN PAUSE __ RETURN POKE COPY © RETURN CLEAR SAVE ▜ CLS !0 SAVE SAVE }_ABS OVER DEF FN DRAW ▛/_| CLEAR MOVE ? COPY RETURN > DRAW CLEAR LPRINT CLS SAVE USR STOP RUN OVER ~ PRINT DEF FN LET /PEEK |X COPY RETURN LPRINT STR$ CLEAR DRAW DRAW IF USR LPRINT RUN RUN PRINT REM INVERSE EXP x TO IN VAL |TAN VAL ?$ COPY RETURN CLEAR SAVE STR$ DRAW STR$ ? IF RUN ▝ MERGE LOAD INVERSE LET REM TO RANDOMIZE rIN TAN E`.~[T] COPY RETURN CONTINUE STR$ CLEAR DRAW DRAW IF USR CONTINUE RUN RUN ▟ RANDOMIZE REM FLASH EXP x<>SQR .~VAL X?/ COPY G RETURN CLEAR SAVE MOVE DRAW MOVE ? IF RUN ▝ MERGE LOAD FLASH LET PAUSE <> DRAW rSQR VAL IN / DRAW RESTORE < COPY RETURN G CLEAR DRAW COPY CONTINUE IF F RUN IN LOAD THEN [H] CIRCLE OR STOP OR ATN ATTR ~ LET [P] MERGE /< DRAW COPY RETURN CLEAR CONTINUE G DRAW IF F COPY RUN LOAD [H]IN CIRCLE OR THEN OR ATN LET STOP ATTR /~[P] LPRINT RESTORE COPY z POKE RETURN = CLEAR DRAW COPY [T] IF PLOT COPY PEEK THEN MERGE STR$ REM MERGE SIN [U]x LET [H]WIN ▛ MOVE COPY RETURN POKE CONTINUE CLEAR ~ DRAW IF ` DRAW PLOT CLS R_ DRAW MERGE W/STR$ SIN OR ATTR [U][H] RESTORE STOP ▛ POKE CONTINUE COPY >| RETURN CLEAR [T] DRAW IF # PRINT ATN REM OUT ERASE _ DRAW SGN W/ATTR [M] OR ATTR ▙▝ POKE CONTINUE COPY >| RETURN CLEAR [T] DRAW IF # PRINT ATN REM OUT ERASE _ DRAW SGN W/ATTR [M] MERGE ATTR ▙ SAVE LIST COPY ~ RETURN DRAW ▝ LLIST IF ▝! PRINT LOAD ▛~ RANDOMIZE STEP OR CODE ASN [S] RANDOMIZE PAUSE [B]>|▝ COPY [T] RETURN DRAW ` SAVE IF `H PRINT CLS b_ RETURN STEP LET ATTR ASN IN |[S][B] LPRINT COPY RETURN CLEAR USR CONTINUE IF USR [Q] POKE PLOT INVERSE <=IN SAVE ATTR REM W[F]▝ DRAW COPY CLEAR NOT CLEAR IF POKE USR PEEK COPY ▘<= REM ATTR [F]_ RETURN NOT COPY # IF READ NEXT CIRCLE RUN _PEEK COPY IF [M] LIST ▝ COPY ▖USR IF LN USR NEXT CLEAR USR PLOT RETURN BEEP PEEK MERGE IN [M]1▝ DRAW STR$ ▝ NEXT ▛▘ GO TO ,TAB AT ▗ NEXT `_`aTAB `U` PRINT CLS PLOT ▛c PRINT ATN + CIRCLE XcPEEK REM RETURN RETURN RETURN LOAD COPY PRINT THEN D CLS |7>USCREEN$ [E]VAL$ INPUT [P]@ LPRINT [O] [M] LIST "@▖1[O][E]SQR POKE Z/>=▖SCREEN$ PEEK W"0 FLASH 3 LPRINT FOR D[T] INVERSE [C]A PLOT DIM PAUSE [D]Ri OR [D] TO [J][H] MERGE STOP TO ©X" ERASE 1 FOR f+ INVERSE {▗SCREEN$ FN [ PAPER ATTR USR Z INK zASN [O]tPOINT [J][M] OUT ▘g POKE d[F]▛▝©SIN I[G] FORMAT jdPOINT BRIGHT <=ATTR ZfxLEN TAB ASN x TO VAL CLOSE #j(h` FORMAT 6 STOP h FLASH RESTORE JUSR NEXT CIRCLE W THEN <>>=GATTR @ RANDOMIZE [C] REM RND AND [B]LN THEN RESTORE INK [Q]NOT IF SGN [E]H FLASH SAVE INVERSE %AT <=ASN DRAW [H]KFN X<> RETURN ▝ LIST PLOT ME`h THEN VAL 2ASN CIRCLE LINE LINE FN @ LLIST ce FORMAT LINE VAL j CLEAR INT VAL COPY Z[S]0/q BORDER K5[Q] THEN .[H][I]IN P_0hKXt9IN H OUT r FORMAT TAB CONTINUE >. DEF FN PRINT [A]SGN |8IN COPY LN <l PLOT RFN PI^CHR$ VAL .GATN PEEK PRINT P REM h[A]`{ LET OUT a/^[I]X COPY MOVE r FORMAT COPY STEP [A]f CLOSE #p>=STR$ FORMAT :<=a▚qSQR INVERSE STR$ jFN COPY CLEAR !STR$ ATN ▛w<>N DIM OPEN #[N]?p COPY w CLS USR @▟s,r4 OPEN # STEP ATN RETURN RUN RND MERGE VAL ▟ MOVE MERGE U MERGE Mm INVERSE ?@> GO SUB . INVERSE sTAN LN r? SAVE BRIGHT - PAUSE <>[I]STR$ >©[P]2 STEP .NOT [G] CLEAR / NEW AND BIN gCODE ASN CLEAR .2POINT USR @[S]O COPY L2 RUN OVER STEP e RANDOMIZE OVER 3^ INVERSE TO ASN [F] PAPER / BRIGHT TAB OUT BRIGHT BRIGHT 9 FOR BRIGHT LIST U[1CODE BRIGHT <> INK ~1b▜oLEN _,V PLOT INK }▝o READ CLEAR x INK IF eCHR$ AT <> GO SUB sNOT T VERIFY LEN READ `1n@ RESTORE ▛ READ ; MERGE OR L COPY Y_+IN [P]1<> CLEAR COPY ATTR ▟ GO SUB yh< LPRINT ©P THEN Z(}. LOAD : RANDOMIZE INT Z/INT FLASH xUSR TO INPUT RUN >=ASN OVER x GO TO [U]PEEK } INPUT LN >=[S]VAL$ FN LEN INKEY$bu REM YqVAL$ CHR$ STOP FN ACS |VAL ▘ MOVE NEXT H2 RESTORE [U] PAUSE CONTINUE FORMAT ^USR AT j CIRCLE CLS j DEF FN J CAT CLS 0 DEF FN B FOR ▙NH▜F'V LINE N CLOSE #[J]VAL IF H▜' FORMAT gR PAUSE DVAL USR TAN READ ASN CIRCLE FN * REM READ ASN `$ DATA ▗ OUT IN GO SUB LPRINT NEW ▘N`▙c`(▘: DATA VAL FORMAT TO LPRINT STOP ▗ PAUSE CONTINUE TAN [H]USR INT CIRCLE cBIN jAT ASN VAL d BRIGHT a~ NEW CIRCLE n( STEP 6 SAVE [A]VAL j.ATN f OR LN nO[O]'▜ FORMAT db$ PAUSE CONTINUE [Q]ABS USR X MERGE CIRCLE PII STEP .INT BIN AT CHR$ DATA $QVAL CLS VINKEY$ CONTINUE PAUSE .?3INKEY$ STOP PLOT .<@SCREEN$ PgVf[S] FORMAT SIN DATA ▜hCODE USR V5 CIRCLE xR[J]EXP `▗LEN [O]<>`K^ ` NEW '` CLS OR ` STOP INVERSE LIST p▞W CLS `P[O] PAUSE j CIRCLE USR NOT CAT VAL <VAL VAL READ 0 LPRINT ▙j0BIN | IF REM AND cUSR [Q]VAL$ X VERIFY @( LINE SGN USR USR FLASH ASN TAN RND CIRCLE DEF FN VERIFY RESTORE CIRCLE >=VAL SCREEN$ > IF i>= INPUT *AT sGh READ VAL$ SQR ?IPOINT GO SUB ATTR [Q]@K▝ ~FAT `O= CLOSE # LINE j RUN [Q]EXP AT [Q]K▖PEEK POINT % PAUSE @ REM NEW LET LN MOVE FLASH aQ. ` INVERSE ASN [T]h4LN { INPUT uINKEY$LN +bVAL$ [Q];Vf*N7 PAPER Y COPY _ NEXT STEP `▝! COPY ATN V RANDOMIZE IN < STEP CLS ▘!w LPRINT 9PI; CAT zc{^BIN FN t STEP @USR SAVE INVERSE y[B]SQR <>1c COPY CIRCLE [O]{ ERASE CLOSE #jCOS THEN PRINT DEF FN '[H]![A]IN g FOR DATA PAUSE ABS x[G]f LET GO TO " TO (▝i▙[I]fSIN {8STR$ z)NOT ~P▙ GO TO RETURN 6-p▛ BEEP [I]x<RND6? RETURN )[F] INPUT ▘ INVERSE PI LOAD yPEEK PLOT EXP BEEP w|ms NEXT PLOT >@▟ GO SUB VAL$ FOR INK FLASH = PLOT [M]N' DRAW ©CODE FOR _ PAUSE < NEW BORDER NOT POKE 2/<>4 LPRINT CLS AND ~ LET @ BRIGHT [M] STEP INK [N]]<▛lF/dX[T] AND / MOVE [F] CIRCLE c PRINT 6OESGN NOT USR CHR$ t[S]yINT RESTORE © GO TO <>* POKE /"Z[N]!7 NEW INK b PAPER NEXT [~2ABS CAT i▘, MERGE [ PAPER fmSQR g RETURN RETURN BORDER [U] STEP CONTINUE PAPER NEXT m LIST LPRINT VAL$ bSCODE ▘ CLEAR & OVER ▙5bxw,>={ RETURN REM RESTORE NOT RND▜ GO SUB SIN NEXT ATTR | THEN 6G STEP % PRINT POINT ▛[E]▖h▗E GO TO GO SUB ^ CLS v>2j/ CLEAR THEN VAL$ COPY COPY [n(:/ RETURN DEF FN E<>YWL>IN LIST LIST !>[R]"; BEEP AT hCOS CAT ABS INK STEP [[U] LINE ▜[T]NOT [L] OR LEN [S]>=bUSR $%&'INT gB? COPY -WIN ©? BEEP ▝ProNOT Tacke? LET 3.4compiBIN latnGg f OUT LIST -=*> CLS BRIGHT Rm BORDER ix<*=-~by LET 3MC IF [K] ERASE SageR LIST G BORDER u10j STOP .Dec98p MERGE PAPER NEW ? CLEAR ACS R& TO [I]#▚YB<>2/[ OR CLEAR © GO SUB ySTR$ <>>W LIST RANDOMIZE _<> STEP B NEXT ~#:Q CAT RETURN STR$ PLOT <>#Vn6^Q FLASH RETURN ▖:( GO SUB PRINT ▘BIN #z< RETURN @ :W LET PI PAUSE +[D] DEF FN <> MERGE ▜ RETURN / MOVE <> RESTORE MERGE OR ▜o&)IN 9▙s RESTORE zPI[D][M]W GO TO COPY [D] MOVE $8@VAL /~VAL w$[aSTR$ PAPER TO MOVE LLIST <> NEW DATA W LIST ▚5 FOR IF DRAW USR { NEW PLOT @gACS ATN 1▘oxc7 RANDOMIZE 1 VERIFY OR ATTR NEW SAVE gz OVER cNOT <= PRINT )ceo NEW <> RUN [t READ GO SUB RETURN [▗ STEP DRAW "<>$EXP :|USR } AND Q~[H] CIRCLE | VERIFY g CAT _'*USR ?s GO SUB [Q] COPY [T]+ STEP (▗=CHR$ FORMAT 1? INK [O]c TO !< PLOT [K] MERGE ATN LET 9X: NEW ? RETURN SAVE >8CODE 2[E] BEEP ▛AT FOR &` AND TO POKE o VERIFY READ STEP INKEY$,ACS MERGE wCOS OVER >=▗#0>= OUT POKE O CLS >[I]> STOP VERIFY LET iVAL VAL READ RANDOMIZE © FLASH RETURN 8 RESTORE [R] GO SUB = Y[C] OVER LIST MERGE STEP & FOR TO GO TO ? DEF FN :]<[N]{ IF 2 IF [S] DIM k CLS SAVE USR PRINT : DATA @V0>= DRAW RANDOMIZE <>CODE FLASH NEW CLOSE #; OUT LEN OPEN #ASN 0[F]>=F[L][A]0I RETURN [Q]eW OPEN #iz LIST EXP B INK [P] RUN PAPER x MERGE VERIFY NEW VERIFY 0▖ RETURN 7 OVER COPY ( IF OVER CLS # DATA SIN '[Q]BIN [A]8 OVER LINE RANDOMIZE RETURN RANDOMIZE LIST d>= LOAD RETURN /[P]&n RUN X THEN g OPEN #INKEY$ATN 8 MERGE ACS ([A]▖[H]CHR$ [Q]▖Q3>=h▖[[G][H]USR {q_ CIRCLE zqWVAL$ INKEY$▙^ PAPER wT] CLEAR >=OPEEK LOAD " FORMAT O~ TO STEP <=G BEEP hSIN hWxABS =SIN "<> BORDER VAL$ INK >= BRIGHT STEP LPRINT NEW Y▚:INKEY$ COPY LINE 9e OPEN # COPY STEP AND ATN READ FP#N COPY PAPER DIM [A]<> PRINT z FOR [C]BIN 8y PAUSE 4_ GO TO B LET NOT INK ERASE PEEK COPY FORMAT ▖ FORMAT INT 8g NEW LPRINT [B][D]SIN o OVER PLOT X RESTORE SAVE DIM X GO SUB s[L]▚E©SKN1[O]▚ LLIST j LLIST xABS PAPER ySGN ATTR PAPER SCREEN$ SCREEN$ ERASE [A]▟ INK /▝ STEP W; OPEN #O[U]▚ INPUT {<> LLIST ISTR$ CHR$ h[U] OVER FORMAT qqk8@USR [J]HPOINT GO TO CIRCLE SPI> VAL }`O([O] IF 0USR cVAL$ ▚▙z DATA |▖ FOR [P]▜VAL [K]ATTR oP(X(!COS AT (` READ 6,H▗aSCREEN$ L2VAL$ SAVE IF 0!n[B]`hRv[R]p▖LN USR DEF FN >=Y DEF FN FORMAT CONTINUE [J]STR$ LIST 8 THEN SAVE FORMAT LPRINT ▗i IF 8@ IF 89 IF @us IF @4[M] LPRINT ▚ PAPER %iFN >=[Q]83 COPY ▟/xLN FORMAT DEF FN CIRCLE ▖A LPRINT DRAW AND [J] COPY wB▖[A]2[A]▜[A] s[A]Ny[I] CONTINUE LPRINT S[Q]v INK g( COPY .BIN 0:▚0SQR I" l LIST [A] POKE SAVE IF [I]@g<>U~50 AND 3CODE INT NOT F!SIN ▜[B]0 DRAW ▝ps.: LPRINT [A]COS COS o= CIRCLE d LET AND CIRCLE 7© CIRCLE STEP DRAW INT RETURN STEP CAT OR TAN OR MERGE INVERSE < RESTORE STR$ CONTINUE @ TO VERIFY PI GO SUB R0 CLS INVERSE pd PRINT W PAUSE }zfz▝R}ATTR USR . LLIST MOVE FOR SIN PI?ASN [P]1 RETURN 0T722©▖▜ INK 7 COPY X:j▘A STEP GO TO SIN NmkSQR f{ CAT n▚ BORDER k![M][J]PEEK SAVE TAB PI)USR T RESTORE [Q] TO RANDOMIZE k PRINT PLOT &<>` LET owVAL$ 9lFABS g<>p AND DIM MERGE q<=SIN PLOT < NEW NOT INVERSE ATN ▗PIUSR W▞ PRINT VAL$ >==▜_! OVER INT ~#fo DIM &yx▜~ OR m DRAW RSTR$ ,^Vy[I]z;| CLS ,!&<> NEXT OR PRINT O{2 VERIFY ▞ MERGE 2 STEP ^[L] LIST *?LN . FOR yz STEP Q© LET INVERSE ~ACS >[K] REM 2^SCREEN$ O[A]BIN TAN CONTINUE : PAPER fPIx(ASN ) RUN .TAB u GO SUB M PRINT NEW LIST LET LOAD GO SUB AND [A]' DEF FN @ABS T LET }nUO MOVE x>=TAB PAPER LN PRINT M FLASH BRIGHT RNDSIN SCREEN$ RNDINKEY$ LET BIN G▙ NEW I LINE PAPER THEN 0SIN 8BIN <>7 CIRCLE W AND zSGN G▗ RETURN 0 VERIFY POKE PAUSE MOVE kj CLOSE #NOT POKE IN ? LET =CHR$ ATTR ▞>_ CLS [R] LET STR$ CLS <>SGN ©() THEN NOT = RETURN `0 OUT OR [U]POINT } STR$ 3m OVER [F]>[N]LNOT >=[L]> INK ▚ VERIFY LLIST MERGE GTAN ' MERGE SAVE yG BRIGHT /[ PRINT CHR$ >=[Q]LEN ~%VAL ,ir LET "NOT ATN <>>IN . BEEP CLEAR :VAL k(d OUT ▞[P]^ RETURN [I]SG FLASH RND LINE <>73 READ AT PRINT SIN } REM LN V@INKEY$ STEP OVAL$ +U RETURN ▘FN .[B]USR PEEK ACS h▗▛ DEF FN STR$ GO TO PEEK CLEAR ▞LOZA RESTORE | LLIST FLASH <=c:[H] OPEN #[J]3CODE STEP fABS *[Q]} RETURN LINE RETURN '|![T]STR$ -ATTR n INK CIRCLE [Q] DATA SCREEN$ Y THEN VAL [f[N][M] RETURN COPY ▖8 INPUT COPY /w#[S] OVER <[H]K BEEP MOVE LLIST MERGE MERGE [D] READ FOR PI! COPY #z CLS MOVE <>CODE STEP P▛j MERGE SAVE ▜UTAB z[U] PRINT >=o[L][A]&©z INVERSE IN 6©w▙>2pCOS USR ©q TO CODE [M] MERGE &~▛ STOP ,FINKEY$ LET <> AND ▘Z<=?POINT ^<= MOVE 9~ INVERSE CAT CLEAR !=▗ ERASE READ ' COPY 0!]><>2[I]fCODE w RANDOMIZE LET 2/R RESTORE DEF FN RETURN ]:^▚ PRINT *f FOR I RESTORE M GO SUB sb INVERSE <>c BORDER !8▟"4x MERGE INVERSE INT f STEP cN[H]IN POINT STEP ( SAVE /Se! INVERSE / NEXT MERGE VAL$ >M POKE PI TO [D]▙ FLASH CLEAR TO v] FOR POKE CODE s POKE STEP [K] LIST ▖[M]ACS ~% OPEN #0 READ MERGE (- NEW BRIGHT >= FORMAT b[C]TAN [Q] DRAW N STEP [L]C▟Gz5^▗I9 RESTORE STEP c? DIM AND d LLIST ▞I© LET unACS DRAW S BRIGHT [A]F OVER LEN MERGE VAL$ ▙ OPEN #u/t CLS FOR ABS v NEXT v PAUSE [H]/[H][H] VERIFY 1(=USR OR ▜SCREEN$ 2] CLOSE # INK PLOT / SAVE > DRAW " STEP [K]3ocq=K MENU:FILESUSR R CLEAR F STOP AD CT INK NEW LOG SAVE E#|LN PSAV POKE & MERGE CIRCLE SAVE N LPRINT 7<> CLOSE #"DOWN GO SUB NEW h DRAW PTnT OR 9[S][L] PRINT MP MERGE [S]SGN ▞d NEXT R THEN 9 CLS T[Q]0Xx`hQpa PLOT VAL >=SIN [M][Q]FN p[G]▖[A][I][U] DATA FN DRAW VAL CHR$ DRAW FN ▖{▘0 GO TO [P] TO LPRINT ▖ TO LPRINT [A] TO LPRINT [I]CHR$ LPRINT [Q]og▞▟ LET CLS F[Q];COS PLOT PRINT OUT } GO SUB GO SUB V-xo IF : PLOT [Q]e OVER ^TAN NOT [F]EXP [T]_M!PI[B]L> IF s2 RESTORE /[G]: LLIST ▜PEEK # PRINT INVERSE INVERSE PRINT NOT n%} OR DEF FN oPIABS u!2▜ LIST R3BIN BABS <=ABS INKEY$yABS o[J] COPY ABS STOP COPY ▖ABS [J]~SQR @[N]IN SQR B OVER IF SQR BORDER ^RNDSQR { POKE TAB [G]G STOP TAB [H] LLIST pLEN LLIST |r<=Z NEXT VERIFY ! CONTINUE [A] BEEP DIM ATN [C] INK cCHR$ PRINT CLEN ( PAPER ![F] DRAW DEF FN : POKE [I]STR$ BRIGHT THEN ▖ GO SUB [[I]TAN ▚ FORMAT ▘▜My PRINT TAN [E] CLEAR *▟[I]" NEW / LET PEEK rLN RND NEW [F] COS ▞▞LN FN SIN LPRINT ▙EXP ?VAL READ MERGE STEP ▜PImIN READ PI MOVE LLIST [C] DATA lVAL FOR FLASH PRINT INT > COPY NOT [H]: BORDER [A]= SAVE 2Z PLOT NEW O~POINT < AND EXP FORMAT VERIFY [L]" NEXT "NOT BORDER UACS VERIFY ▝ BEEP {9]TPIEXP 7STR$ gv LLIST w DRAW >= COPY LINE ▝[K]+~ RETURN S(@mABS INK LINE [H][A]FPI[O][L]pm VERIFY s+[P][L]o`CODE yMUSR /[P]W/ PAUSE BORDER "[A] STEP PLOT V'NPSGN OUT [C]f> OVER wM LINE [Q][N] FORMAT OR OR LINE CLOSE # RUN COS OPEN # RESTORE EXP [I]V[L]o OPEN #USR | OR OPEN # OPEN # OR RACS [M][O] GO TO [H]UCODE QASN [C]7 CAT CHR$ !VAL$ NEXT LINE [L]PEEK CLS PI CONTINUE /`>4z BEEP ,*.(,/.[Q][H]ATN PEEK THEN CLS REM MERGE NEXT y RESTORE MERGE RUN ▖w READ <> LET LLIST OUT OVER ~_iVAL$ FORMAT THEN ASN 3 THEN [B] NEXT K THEN OR FOR [G]<>_IN [I]USR STOP <>VAL IN ~ DRAW [E] DEF FN PEEK i_# SAVE CODE FATTR kCwp STEP J3[B] OVER IN [C]mSMFps CLEAR BORDER 7WAIT ,_|1|=:COMP][O]DON<=2|" DRAW S] IF WP TO & INK OR e,tLO ERASE P▞E▛+ THEN ATTR 8>*1[N]I'MPEEK R[U] INPUT Y MERGE ©[Q]{<=[K]0▙;FINT [T]+ RETURN NOPOINT ABS ▜IN ▙▞©[Q][M]OTAN RCH MERGE NI POKE G![R][O]ASN RND CLS [Q]o^TAN ~ ERASE ~B{{q RANDOMIZE PAUSE A OVER FLASH RUN 1 CONTINUE LINE STEP [C]:▜ LIST ]<(1 FORMAT [B]=NOT [C]:!L[B]YINT RANDOMIZE feCx[R]| CLS ~ POKE 2v CLEAR PI GO SUB V PRINT RESTORE >?yGy READ ▙CODE w,>NOT 2CHR$ 8NOT W[C]"© LLIST LET INVERSE RESTORE STEP RUN [B] DATA v GO TO READ DRAW PRINT | RETURN ( LET <> LLIST CLS ATN STEP SQR [C]~y POKE R THEN _(L OVER TO [G]ASN IW OVER [O] CLEAR A8 THEN d ERASE PLOT INPUT LET $▞ COPY ? READ NOT /= DIM y(<=SQR e DRAW try,Abo BORDER IgnCODE CAT e IN PRINT ACS FORMAT 2 PAUSE 8^▚yi CLEAR o STEP " RUN [L]y[N][F][P][L] INVERSE [C]aPEEK [H]<? TO FOR LET <>{>o NEXT ERASE STR$ <> INVERSE [U]z ERASE OVER GO TO [D]VAL$ yV CLS DATA <B2 DIM ▛/[I]g6 ~KH INK OVER [D] GO SUB 5[U] NEW [A] LLIST 9x RUN FLASH -h{ OR o<=SASN ]v CLEAR gCODE OR bUSR = PAUSE P[D]STR$ 6(,! FLASH [A] CAT PEEK (#EXP LINE *W/ RESTORE [J][P] OUT H BEEP TO xCOS <STR$ IN /c[K][O]<{ THEN =ABS USR VAL$ CAT "BACS VERIFY 2&xsv1 RUN FO`▝INKEY$)<JyX NEXT IN ABS Hg OUT IxGSGN CLS d OR MERGE OVER l* MOVE h LOAD AACS |[O]>] NEW [C]< NEW ?>=2[G]|EXP INKEY$7INT ▖ DIM [R] FLASH DIM IF = RETURN >= FOR PI_<PI[G] DEF FN CLS MRNDPI LET [[M][T] RUN [K]NOT S ERASE =[Q]SQR INK ▚ DATA ▛$▜ NEW qRND RANDOMIZE STEP OR ▖NOT %[T] CLS l<o IF C RETURN *8x ERASE O[N]<=qCOS yt REM NOT [J]f)STR$ FLASH @ NEXT 7 AND i OR L1m OR }m INPUT RETURN ~O CIRCLE = LET NEW j BEEP INPUT PRINT ;ue[L] LET BORDER [K]m LET ]o> ERASE | PRINT CLEAR INKEY$u OVER IF ▜COS ©2[E]SCREEN$ PRINT [S] BRIGHT %ATTR <>L= SAVE PRINT LPRINT RESTORE 4 RANDOMIZE CIRCLE <=<=CHR$ [O] GO SUB NOT ACS ▜ PLOT jSTR$ GO SUB O DRAW Z BEEP Z PRINT u3ASN owPSGN ]WySGN PAPER AND ATTR CLOSE # NEW ASN df OPEN # PAPER =K STEP k4. LET DIM FOR Nr▘ INPUT COPY STEP RETURN GO SUB r(!"[T] BEEP READ NOT ACS POINT ATN {[R] RETURN = LOAD 9 LPRINT <>=▖ ERASE e[H]k[F]b GO TO }R| THEN [L]IN THEN LLIST U THEN 6) CLS }R SAVE }W▜ RESTORE /_!EXP [F] FLASH BEEP ,6NOT xACS X1:LEN 3 REM COS TAN SIN ▗~SIN {INT 52[M] NEXT [D]z CAT RETURN TO [K]o[G] CIRCLE "SQR IF [J][P]j> GO TO FOR 6NOT [K][G]#s PLOT r"SGN FOR oSIN ` TO $# IF PEEK CODE [U] RUN COS / FORMAT QATN ERASE POKE I>= NEXT j THEN PRINT LN P SAVE s BRIGHT INT rmATN QjSQR { BORDER ▛:yATN CLOSE # INVERSE *EXP VAL$ !USR V OR Y` BEEP INK OR INPUT [G] CLEAR FN SCREEN$ OR * REM R FOR OR AND dy NEXT PRINT a RESTORE INVERSE Vw[ IF . NEXT AND [G]NOT u DIM TAB <=▖VAL$ INVERSE LLIST MOVE STR$ OUT 6 BRIGHT IN I[F] BRIGHT 6ACS INK D3:@ NEXT [E]f TO PRINT ; OR TAB # INVERSE VAL$ PEEK z INPUT VERIFY <> VERIFY FLASH TAB <> AND <>|%[O]v+i++[T] READ g<>>=2<> INK ![H]~[E]SCREEN$ >AT COPY w#xLEN CONTINUE [T]y<> LPRINT USR VAL CLOSE # STOP COPY es:i▘PI LINE aNOT NEW FLASH NEXT w5w[E]USR "▟[I]r,/E CLEAR [I] COPY .RNDSQR [H]}:n>2)f PLOT PEEK U[B][I][P] POKE o[N][G LOAD }SUSR [H]b CAT S POKE PLOT f[J]v/][K][N] RUN [R] COPY BIN BIN ACS NOT ^NOT MOVE [F]OT OUT aKE PLOT y(R|▞NOT GIeCU▟P SAVE Y/VAL$ R:STAW[Q][A]yD SAVE READ ES:#EXP OPEN #P^yIN LW INVERSE SQR NOT THEN STEP FOR I>= MERGE N INK OUT CHR$ M COPY g[K]EXP O CLEAR 7 RANDOMIZE ]D▞ PAPER POKE USR Z READ OnU<>K[T]COS eiH47T::[T]n OPEN #<> DEF FN OUT INK [T] LET HhPX~▖ PAPER SAVE `[T][I] NEXT [J]VAL$ LOAD (VAL$ ▙[L]ATTR STEP FORMAT TAN y@` NEXT 7w PAUSE [O] COPY } BORDER :▙[I]2([L] STEP t {TAN ▖ INPUT VAL STR$ TAB BORDER ns<=LNOT LN SAVE 2▛VAL ▟eY]*f OVER NEXT ]("NOT GO SUB ][D] GO SUB BoV STEP [F]EXP [F][R]&sVAL$ t7[I]:© RETURN 0841$G INK A VERIFY 7[A]SIN :$w(| RANDOMIZE U▗ RETURN OR !-[J]VAL 2pATTR ▖ CLS INPUT !▜LSGN POINT />=S]&[Q]INKEY$ INK STEP ACS [J] PAPER BIN ACS .ACS SAVE BIN =u▟▝ 3PId%SCREEN$ M[O][H]NOT N PLOT |PEEK } SAVE ▚USR CLEAR CLEAR USR LET &IN USR <>▞&[K]> COPY [S]CODE ▞[N] COPY LOAD _[K] DRAW LOAD SIN <>O:] NEW DRAW LEN 2VAL IF y1'▘5▖ FOR BRIGHT FN e[G] OUT `[E]VAL READ o/ LLIST <>!r OR 4B RUN Fr!~ CLS COS ▘ATTR l6 COPY (! DEF FN * FOR /" POKE :] REM < PRINT FLASH ASN COPY STEP CAT [K] MOVE POKE ! CAT 8INKEY$ INVERSE FOR # STEP [L]RND BRIGHT CLS ABS _S RETURN [K] BEEP z STOP USR INPUT Z READ RANDOMIZE ▜©PEEK LEN PAUSE DIM [K]IN MERGE [H] MOVE FLASH FOR SIN @o STEP _k PAPER ABS @ NEXT | CONTINUE IN [A] RESTORE MERGE 7ATN CAT LPRINT [K]8 FOR h OR [K]}- TO ABS ;[D] STOP EXP USR O INVERSE ▗NyPI>=BIN #~[C]w LET % DRAW ?aF DRAW PRINT COPY _}$_/{[J] GO SUB [R] TO SCREEN$ ATTR COPY LLIST Am RANDOMIZE SGN LN ▙ STOP BIN [B]5 LPRINT SAVE P[N]©,VAL USR FORMAT ?#O[Q]<[D][K][A]<> MOVE BIN ERASE t OPEN #▚ GO TO I BRIGHT CIRCLE f©<>4 MERGE FLASH <q▙mk OVER INK SAVE CIRCLE ,c ERASE USR X$c[Q] POKE VAL R STEP INPUT ATTR POINT $[U]NOT LET CAT PEEK CIRCLE ?ACS OASN [ DRAW <>ATN ABS SIN FORMAT u TO [F]ijPOINT ACS NOT K[O] VERIFY P[J]4 INVERSE SCREEN$ OUT ASN /ATN DRAW [J]f▜[O][O]INT <> CLOSE #f<= FORMAT 1ABS VAL$ LET cSGN SCREEN$ f[Q]7GATTR [F]gBIN POINT [E] COPY DATA ATTR O▗▜[C]" MERGE M FORMAT [N]ATN NOT GO SUB MERGE BRIGHT NOT POINT DEF FN k SAVE DRAW ASN Vo PAPER fATN GO SUB gI▚ BORDER [U]▚[O] OVER ▟o RESTORE !}ACS wEXP OR VAL$ ▗ DRAW J-# SAVE FN [R]lw[N]wFN AT y^ INVERSE OPEN #POINT RUN [B][M]<>PT[H]SEU=]P AND [Q]AT FLASH VERIFY INT ASQR ^▙> INPUT ABS iqSQR SQR {▞INT Vsow▘[O] NEW = RUN OUT >? LOAD e MOVE =[O] DRAW nCODE STR$ s▘{ INVERSE DEF FN w<q RUN ~G8W0 VERIFY LET PLOT # STEP STR$ *[O]X[O]S3f CIRCLE u CAT n PLOT v OPEN #▙4 CLS LOAD LINE 0 OPEN # GO SUB : GO SUB FOR ^<>" FOR INK a LET 7<>>-w©?[E] OPEN #jg> [E] DEF FN PEEK OR CLEAR # IF <ASN V{▞POINT q AND n TO OR = NEW Z OR IN / STEP ▖:©FN ▝2TAN <>v OPEN #= IF REM NEW PAUSE Y READ BRIGHT { BRIGHT 9 INPUT INOT BRIGHT FN INT RANDOMIZE FLASH w GO SUB PRINT STEP ]=O OR RUN nW LIST cATN STR$ xRNDK STEP :ATTR NOT [J]v▛[C]=5`ASN DEF FN ATN [B] TO COS STR$ c[B]7TAB [B][B] DATA { STOP BRIGHT <> BRIGHT [B] CLOSE # INPUT [B]z READ ▟SQR [B]LW REM qLN,FPI"SQR OPEN #_ MERGE o[I]`i NEW ▙@STR$ hiO LET INVERSE ! POKE PEEK [J][P]© NEW RETURN d OUT [O][P]CHR$ RUN w LET CLS PEEK PI BRIGHT {[K]n OUT / INPUT >= RETURN THEN ABOUASN A LLIST HI READ POINT MUNOT [J]CED/VAL$ T[J] CLS RETURN LN &[G] TO ERASE [L] STOP CLOSE #. RANDOMIZE Wi+t CLS n[P][K]29.0[[T]70GDLEN F IF Id IF aLEN ▗n STEP t[K][F]NiEXP , DIM gsg MOVE LN STOP ABS [I] STEP u[U]phABS ASN BORDER : DRAW ▙(0732)14- DATA DEF FN 962]7<=IKOr TO OPEN #BIN qg84Q<>9▗"5▖*TL#RG FOR IN CLS ^ DRAW EXTND-VAL$ | RESTORE RETURN FROM#op▞CODE v▟ NEXT FOR H6M RANDOMIZE TKPEEK S▗'W AND 3 CIRCLE MLO[J][B]E[E] DEF FN LSQR y>=SQR N[D]oCHR$ [> RANDOMIZE N INVERSE STOP USR PAUSE 9j RETURN :'GRAPH FORMAT B BEEP N CLS G^ MOVE <=_'ScINKEY$+FN C DATA PL LOAD HA DIM NLs0BUFVAL INVERSE {STR$ OPEN #WTXVAL$ FLASH PO/TINKEY$STR$ RESTORE SL4]MT: BEEP W LINE [U]ejINKEY$Q-▞L BEEP GO SUB [D],2-hfcW> LET [R]0SGN ATN OVER BORDER OVER [O]AT R]I FLASH c▖STAN LLIST DEF FN q FOR [E] CONTINUE Corp LIST V[A] INK INKEY$EZMA[D] BEEP MOVE [Q]: NEW ? INK [R] GO SUB D COPY NEW ?G GO SUB !4 IF :2>+ PRINT CAT LPRINT - OR 8> OUT DIM STR$ xPI$SQR ▜ ERASE =OCOS FORMAT BORDER g DEF FN oCODE Q INVERSE #SCREEN$ AT SGN l REM PAUSE NOT GO TO REM !BIN f SAVE OVER =CODE D CONTINUE |wm[T]= OPEN # TO FLASH 3)o RUN DATA LINE OPEN #VAL$ PAUSE 3 GO TO FLASH q; RUN [A]O GO SUB IF FOR :yYsLEN LOAD THEN INKEY$ DIM ▙> FLASH VAL RUN ,SQR l REM [P]RNDlI DRAW INVERSE COS FOR K STEP CODE [T]VAL$ [H]_w CAT @SBFN q[C] FOR MRND} LET OPEN # OR !PI"qY[F]zNOT INKEY$CODE 6[<> DRAW yINKEY$[N]u[G]geCOS LIST x CLEAR BIN [F] LIST ▛SIN ! LPRINT "m VERIFY [J]uuPI[D][N][T]l▞a POKE LOAD <>STR$ ERASE TAB <=y▛iINT NOT INT [P]o[Q]F AND ]SGN 9 OVER [S]*[U]SQR FOR BEEP ▘o&x~O VERIFY .▗[C] COPY #▞ MOVE <EXP CODE LLIST ) LIST inBIN Y[U] STEP REM POINT ,RINT NEW b DRAW y CLS = SAVE <>OX FOR Jy▜VAL$ INPUT u~SQR ,G CLS $AATN ©$[K] FLASH <> INVERSE [U]$[D] LOAD USR %q5<>▘ !_ASN IF FN BRIGHT #[[U]/ INPUT INT GCODE I FOR [P] NEXT PEEK " CIRCLE <>LN >= FOR ▚VAL$ ~$nX COPY FOR < GO TO yb CLEAR USR /2 BEEP g© CIRCLE Z[U] RETURN () DATA ,%!q}T▘ COPY ' AND THEN ?Y VERIFY W8[J]IN CHR$ POINT w$ IF > POKE STEP OUT PAPER CLS /<=R- NEXT LLIST PRINT OUT :[F]`CODE PI>= RESTORE AND IF FN = PAUSE e PAUSE =CHR$ STEP VERIFY t DIM VERIFY gf CLEAR d[[D]▝ VERIFY BORDER ATTR INPUT ATTR [M]' FOR CODE vb DEF FN ERASE 2 OPEN #sIN © VERIFY ASN 0ASN RETURN LINE =4 OVER [>= PAPER TAN NOT [L]<IASN COS DIM (5Q>r[G][H]SCREEN$ INK ACS SGN D- CAT |EXP DRAW r LET !>[R]";COS IF hLZCOS TAB ▛[T][R]e[P] DIM AT V.Mbt CIRCLE ? RESTORE INK RND~n LET VAL CLS NOT AT +oU COPY PICHR$ FN h LIST [P] COPY LIST STEP aPOINT AT :b2 CLS - CAT VAL$ THEN POKE <= DRAW [I]SIN ▝ INVERSE GO SUB [VAL INK [P]SATTR PLOT NEXT RESTORE #n/nd86X/ SAVE / LIST ab2jBIN ATN RND LLIST eO/3PIASN CLEAR aBIN MERGE ASN ATN RNDRNDLN [M]? RETURN [R]CODE PAUSE WASN yGzATN [G]} PRINT CAT CODE CODE VERIFY >= PAPER AND TAB TAB [T]EXP [K] CLS NEXT <> RETURN H0 RUN I[Q] PAPER [R]-x INPUT PLOT _o[J]ySQR OPEN #w RANDOMIZE ?▞sK] OUT LOAD CAT #~INKEY$ TO OVER ,7;;TAB <m OVER R=EXP OUT - DRAW TEXP yD[G]<y RANDOMIZE !W GO SUB CLEAR z STEP FN [J]rKNOT xUSR ▛[E]SQR <7y LET REM PAUSE VAL$ PRINT c9ACS Y@;RNDRND CAT ▖ LET TAN Sqf*IN PAPER H LOAD COPY LPRINT EXP PAUSE & CLS o LIST NEW COPY CAT CLOSE #STR$ x=>V[ TO Mt VERIFY A LIST NEW COS ▝z[H] OR ~TAN NEW RUN STEP ,PIvv1z]SCREEN$ Z DRAW [G][P]7? %N VERIFY THEN VAL FORMAT CODE GO TO ATTR NOT PAUSE 1w FORMAT CLEAR * PAPER OVER INKEY$>[I]©^E GO SUB [F][S] COPY A}[L] MERGE g[O]>[L]~INKEY$#ATN GO SUB jVAL ▚LEN k NEXT REM CLEAR !lTAN mPI(ATTR GO TO ? LINE ▞[jINKEY$EXP Q CIRCLE =P<> INVERSE N~VAL [G]= IF PI RETURN ` .Ni CLEAR w6Fz RANDOMIZE SGN pCODE COS [P]~ PLOT INK CAT ? CLS :ATTR MERGE NEXT .yPEEK [B] READ THEN ~( AND LOAD Z PAPER [M]©~,eATN TAB O~-[L][ VERIFY GTAB (H[O] LOAD VERIFY 2 COPY [T]og"<ATTR 2fC*F7_5a5x VERIFY SQR x BORDER SCREEN$ [[L]COS [L][COS COS S[COS INVERSE VAL [ATN RNDSQR PAUSE BORDER FOR >= CLEAR GO TO > CAT ▛Y LINE COPY FN DRAW TO POINT ATTR VAL$ POINT LINE U)=EXP T<>Y[L] LINE PAPER [F]CHR$ }CHR$ ABS N▝z OPEN #n▞ STEP 1▛ NEXT R RANDOMIZE u RANDOMIZE tNOT dfU` FORMAT FOR INOT BIN VAL$ PAUSE ~O&s CLS SCREEN$ <= CLOSE #,EXP qGo LET 9POINT [I]xT FOR RESTORE DRAW LIST n LIST f PLOT |TAB LLIST PI GO SUB R CLOSE #[O] PAUSE INKEY$[T]ATN SCREEN$ STEP wSQR 6_G[J]x PLOT USR LOAD POINT 1 BEEP <>J INVERSE ▘ AND 8 BEEP R_"KK TO [O]><> RETURN CIRCLE CODE PEEK [U] PRINT ASN n<>[L] CAT ▖ BORDER ATN k/[G][B]<>>aCODE ▛[H] DRAW / NEW CHR$ }POINT NOT © CLEAR BEEP NEXT ![K]POINT =IN V COPY b}}B0[A]PI PAUSE USR POINT r#< RUN sv DRAW BRIGHT SQR ~(J SAVE vgPI GO SUB s RANDOMIZE SCREEN$ INVERSE ! POKE Y▖NOT CHR$ > THEN OUT W PAUSE RETURN ©( THEN <=[P]INT U]M INVERSE RANDOMIZE RESTORE GO TO INT ; MERGE CODE o OR CLEAR # eATTR Mi DEF FN VIN Pq<>STR$ CLS GO TO ^$©V GO SUB SKLEN ]V OUT CHR$ O<LN 8PEEK ATN ATN RESTORE tnPOINT SQR DIM CLS ~_ CLOSE #>=^NCODE {NOT LIST >=VAL IF <>1%PEEK CONTINUE ▛N▖<(2 STEP !SCREEN$ GO SUB [©INKEY$"CHR$ ▘IN ▚ PAUSE ©SCREEN$ ©ATN PAPER 8>[L] OPEN #_x MERGE &b<>' STOP ^. LIST DATA LEN INKEY$ FLASH STEP NEW COPY DRAW LINE STEP aATTR STEP LET SIN PEEK 87 STEP PEEK [M]PEEK BIN DRAW 7PEEK STR$ X NEXT PEEK G:SGN VAL oLN THEN EXP LN ▛INKEY$EXP LN 9LN EXP LN AND © BORDER LN ATTR THEN LN SCREEN$ mATN TO ATN VAL$ AND *o BEEP ▚@PEEK STEP CODE POINT IN TAB IF VATTR ▟G< DIM + SAVE > LOAD .POINT 8[B]PEEK NOT [T] f[P]~ CLEAR 5USR ATN yRND DIM BATTR [M][E]>=PItV[P]▜wtCODE -<>▟, OUT STEP n$[M]ATTR FOR O RETURN ▙fzPI IF [S]ATTR X MERGE BEEP |PI LIST { GO SUB STOP GO SUB { RESTORE POKE 7 MOVE VAL OUT LIST [M]h` BORDER ( REM SQR Vh GO TO NOT ? REM AT [P][A] PAPER [Q]AT < PRINT F FOR GO TO ▛y▜>SGN ' BRIGHT INPUT ▗VAL$ B*ATN FOR ▚P+NOT =( CLEAR 7x AND 2}AT ACS vXJi DRAW y DRAW VAL$ _ RUN [N]|L[Q]@XW[S] FLASH RESTORE ^Z SAVE oATTR Q RUN -COS ATTR MERGE 7[D] VERIFY FLASH LLIST RUN YSA INVERSE FOR ISGN G>@[A] LET 9 CONTINUE x[P]=CHR$ FORMAT +~ CAT {EXP RETURN POKE LINE 2ATTR ACS % FOR S FOR THEN CAT w# LLIST 3'<= BEEP ~~ CAT <= READ (!▝ PAUSE TAB "<>AT aX LIST TO $. FOR sr8VAL ATN SGN VAL [F]EXP [P]ATN RUN ' SAVE CLEAR /SCREEN$ OPERAABS mtPOINT STOP >=SGN ▘ OR X>INT ©▛ DEF FN [L] STEP 6)CODE eTAB +j[J][G] LIST w OPEN # VERIFY UVAL$ 7amylTAB q?5 OVER LT NEXT IF [E]IN FOR CONTINUE x<>9 LOAD ([L]VAL$ CODE AR0u DATA }-^ FORMAT v CLOSE # OPEN #PICSGN [P]ATTR OUT CODE BRIGHT [L] NEXT Uy PRINT LINE CLS ▟ CIRCLE PLOT 9BIN ? CONTINUE [Q]8(x0A PLOT Ofp@apH[O]=P#VAL$ [ OR COS AND =S(]ySW@s[G]n4[N]m8F▛ASN 0< CLEAR X INPUT INVERSE LEN e▚ BEEP [ NEW _I RESTORE y LIST ?~[H] OPEN # SAVE w)V▙ LLIST NOT Q OVER SCODE >= ERASE 59 RESTORE INPUT INT [U]JpL STOP PSQR L RETURN INVERSE SIN %?UPOINT N STOP ▜H OUT <=[J] CLS wCHR$ p[R] MERGE CONTINUE VAL$ VAL$ LN O PAPER ~CODE ~[D]INKEY$~ RESTORE "S~ REM !~)IN IN <> RUN Ey LOAD YOU DATA FOR U?AT Y▛©l<= LLIST FN L TO h RESTORE GO TO xp[A][I] GO TO [M]FN CODE # LET 'H▜SQR i8 OPEN # PRINT v9 LET f LLIST [[N]`/L4NOT /[H] RESTORE [K] RESTORE ©|[R][P]ACS =IN SGN LLIST STR$ BIN rO~ CAT CAT W©([L] RETURN a=▝^▖`8[B]<SIN w READ VERIFY CLEAR INVERSE CODE RESTORE U FOR USR ▞ACS > +=IN COPY C9 DIM ATTR = PAUSE COS ^XUSR CLOSE #M CLS TAB WINT ▚>=O▜ RETURN L DEF FN Zr[F]SXUVAL$ DEXP LINE C*WVG/ RESTORE B[F]ATTR HNVAL$ rJMDM GO TO aR)WN BORDER TAB LN <>z OUT [G]" DIM t FOR ACS K DRAW : OVER LINE AND USR ▜[O] OUT (SQR LPRINT INT RUN LN RUN RUN LPRINT ACS ) PLOT DATA COPY POKE SAVE z RETURN FORMAT 2| OVER VAL v1USR ^ LINE [O]v<L MOVE G©iABS STEP [D]VAL RESTORE PEEK ? CLEAR ! MOVE CODE GO SUB [ RANDOMIZE f>=%( VERIFY SGN 3[I]BIN VAL$ [F]▞TAB EXP INVERSE *[E][K][O] RESTORE ygATTR Y+▟▗[Q]{oI. COPY VAL BEEP [P] NEW N▝ IF LLIST VAL BRIGHT SCREEN$ 0G OR EXP r THEN ^ OPEN #x/ STEP [L][Q]t LLIST [H] INVERSE ?^o`_ NEW @ READ FLASH G▚CODE THEN f[P]^USR w AND PAUSE >=:c CLOSE #8ATTR g DEF FN 7a FOR PLOT LIST BORDER k OVER OVER RND^▗&{ RUN DRAW G(x PLOT G"%VAL$ PI}u}▚▜_[M][H]~#] BRIGHT INVERSE V^w=>=n(CODE ▛©f GO TO Gt POKE NATTR CLEAR ^!*V NEW TAN [K]WSIN zVAL$ r// ERASE DATA q f<> CLOSE #u LIST < RUN [S] NEW [Q] LINE OR ~ TO vXsj/ CLEAR CIRCLE PEEK PRINT ATTR OVER RANDOMIZE [K] LOAD [Q] FOR "~SIN [M]o[O] GO SUB PLOT INVERSE !TAN ;PEEK CIRCLE ACS DIM EABS USR OVER I NEXT INKEY$ COPY "_NOT } THEN 16 OUT CHR$ 0 LPRINT |uF<=xSGN SQR ~[G]4 NEXT SQR G:[A]zeSGN ▚ INK COPY c FLASH STR$ <uIN RUN 68, INVERSE CLEAR CLS vCOS THEN < STEP b FLASH STOP [S]5c OUT i DIM BRIGHT >= MOVE 3PEEK INK 0%ABS TPEEK HeC DRAW ABS E 3 OR ACS PATTR - BORDER V DEF FN TAB O LPRINT INKEY$ READ ▖vTAN @9>CODE [K]/[T]A[S] LLIST oL CIRCLE CLOSE # FORMAT w-[O]©p[I]AASN CLS LN COS GO TO ~L|X PAUSE ▘ IF GO TO V PAUSE SCREEN$ y`[J]ABS ZFN { CAT LLIST ^V DEF FN INKEY$= SAVE w LLIST REM MOVE CLS CHR$ io<G2r LLIST RANDOMIZE [D]s RESTORE CLS ▟7D▘t© STOP STEP AND >8w,Lz IF FLASH STEP CIRCLE )[N] REM STOP COS LPRINT <=bq PAPER SGN POKE EXP % DRAW COPY p[R] DRAW EXP (dCODE BORDER DRAW LIST CODE CONTINUE COPY j DRAW dL DRAW [U] DRAW CIRCLE 0c CLOSE # FORMAT | DRAW RETURN 0 AND YPw OPEN #7 THEN ~m; SAVE z$01[Q]OK>=- NEXT RETURN RETURN %[K][Q]C DRAW NRL DEF FN NEW ERASE 2-0BIN ACS [J]T RESTORE PRINT CURSCOS INK RESTORE PEEK [B]W^j OPEN #F INK "<>W LOAD INK [L]_SCREEN$ LEN [N]_[O]/ LET ATTR [E]INT ©~▟ INVERSE }AT READ UCHR$ } MERGE &oSGN [K]V,?<=[J][Q]- BEEP SAVE TAB me LOAD [D]}k|t INPUT aw/ LOAD MERGE FLASH ATTR "/_TAN JLEN LET SQR O NEXT > STEP 6"W BRIGHT MOVE 8[P]<<=Z[U][R] RETURN 8BIN TO TO >|L[P][I] INK STOP ? NEXT {2EXP TAN OR STEP ▗[E]7'▞yATN LLIST /[ LOAD POKE CAT <= IF STR$ x25ASN INPUT IF 7 READ >@ RESTORE NATN SGN 1IN U= PAUSE UABS [L] OVER [N]2)[B][D]▙1i[B][C][Q]YCODE [B][B] GO SUB [L][B]ATN 7y DRAW [F]SQR (INT NEW RETURN PAPER MOVE { LET VERIFY NEXT OR [O]j▞[E]" AND ASN © RANDOMIZE ▘AT 7▚VAL ▚ FOR 7 BEEP MERGE FOR ▟[N] INK [G]j LIST FLASH j CLEAR SGN THEN z RUN © NEXT [F]O[ OVER dt OR M COPY 3XLN © NEXT k[G] CLEAR ATTR ] RESTORE }y{V MOVE MERGE INVERSE RESTORE Y[L][G]TAB '[N] MOVE / MERGE [N]SQR INVERSE VERIFY [E] BORDER ]LEN ▗!ASN HCODE 2▚ACS GO▝: NEW [A]PI RANDOMIZE INVERSE RUN NOT ▗ACS 9▜BIN c PAUSE CLEAR ~]ATTR RETURN RND[R]QRNDACS CIRCLE REM E AND _ MERGE [U][D] TO >=b▝[D].7nIN (sC▗y2mC0 INPUT [Q] DIM READ [U]>COS w LPRINT STEP 2po>= OUT DFN o]VAL FORMAT ~ CAT 4 VERIFY h@ FORMAT o LLIST o ERASE ACS _Og:CUSR zW{ABS 0OINT [D]TAN (PEEK V~ATN LET $ REM STEP VAL 7OLN LPRINT 7 VERIFY ©D| AND EXP k CLEAR y VERIFY GvSQR [A][J] TO [D][B]COS ERASE VERIFY x READ EXP ( NEW G~[R]VAL w# RUN © NEW ©]b OMINKEY$N OUT OFN LIST CHR$ _zVAL >=[>=R TO <>" RUN ATN COPY zPI( RETURN a0: RESTORE ▘=▜h<O▝ TO ?Wz RETURN b CODE [U] PLOT PLOT STR$ SQR IF SIN t NEXT z2 CONTINUE ATN GO TO SQR (PI TO ATN |STR$ |INT TAB {▟[r"ASN 5l#▞N5[B]{4oCODE o@<>J)[A]p▚I CIRCLE OPEN #AT >=Y< THEN [K]!` CLOSE # STEP a OUT STOP [Q]tABS ACS x CLS m~ STEP RETURN ATN WoINKEY$[I]BIN 6CHR$ r<>o INK $& INPUT }d(? CLS , GO TO g/4[P] CLEAR 9wASN G}g COPY <> MERGE T]) MOVE THEN < CAT [F]} DEF FN t[G]o|$▜b> COPY -[O] THEN ? FOR TAN BEEP LLIST ACS yTAB DEF FN ERASE FORMAT )USR ▙ DRAW STEP GO SUB LOAD FOR INT THEN <= DRAW ATN BORDER &[D]LN PLOT BORDER MOVE RETURN LINE VATN [I]a'VX OR [U] COPY STEP {EXP MJBW BRIGHT W OPEN #9dt© CLS INK ^]gVxVT GO TO q3[P] PAUSE LPI PLOT g FLASH CAT E` P NEXT ; POKE [E]PI ERASE >O RETURN % CLOSE #*~># ERASE POKE > STEP MTAB >=1 BEEP AT RETURN RUN @K[B] STEP MOVE 9 BEEP GO SUB 32<>za9r LET t%FN OVER 9C LINE NOT [O]5+W[R][N]ATN +C©[P]ASN INK STOP CAT e[ PLOT FOR .5Y_-G8l"[M]Q>=; FOR OPAT RANDOMIZE VERIFY G<>O LPRINT ;[K] MERGE P" RUN Q<=USR x CONTINUE u ERASE PAUSE CIRCLE G FORMAT [F][C][S] PRINT 0 TO [C][R] CIRCLE NEXT ▘7 ERASE SIN DATA BIN n OPEN # PAPER uVAL K PIR BRIGHT >=1 SAVE ;89 FORMAT VERIFY POKE 5 PRINT ; CLS INT - LIST [E]: OPEN # BEEP NOT gf9*WCUSR COPY OR ABS IF OR [Q] DRAW BIN PAUSE [T] PRINT AND [wfUSR INT ▖ACS [E]uIN BEEP ySTR$ LET ! PAPER INT TAB n LET ( REM 6[I] PRINT GO TO I STEP SGN INT * REM YFRz[C] CODE FN SCREEN$ [F]VAL$ [M] LET BORDER [H] CLOSE # INK gNOT g MERGE PAPER }6P>=F INVERSE RESTORE TO [gRND< STEP [A]r REM +;6CODE } POKE t CLS w-? RUN SCREEN$ =[B] CLEAR NLEN NEW { OPEN #TAN OVER ^PITAN REM LN MOVE ▗Gg ERASE [D]VAL wb DRAW STR$ ALpW PAUSE LIST CIRCLE SGN VERIFY iS FOR z OPEN # PAPER [Q] SAVE STEP QATTR BRIGHT lu CAT NOT INK THEN VAL$ [E]= FOR C]AT g[I]FN [O] PRINT LEN PEEK MOVE COS BIN DATA FOR DRAW BRIGHT LN [F]4RND[N]>=1kJbAT gt©[H] COPY [H] CLOSE #LN ▛TAB ▜[T][[U]@[O]COS /RNDLEN xzV[C][M]CODE EXP 7SCREEN$ SIN BORDER VERIFY COS [P]( READ {[9CODE TO [R] IF [O]} OPEN #ATTR [S] VERIFY COS 08K CAT zUh CONTINUE Y▜[G][M]ATTR O BRIGHT CLOSE #ASN LEN [T]G[H] GO TO [H] INVERSE [J]r▝+CODE [ AND hSQR }*[H]? CIRCLE w INPUT DATA BEEP =O LPRINT LET <BIN INVERSE SQR @ VERIFY w[E] COPY EXP > CLS <> NEXT !z1B LPRINT READ STEP AND -W~▚OC BEEP RETURN ▘ DIM OR INVERSE V^ MERGE v LIST "ec MOVE B▚-d[J]SdCOS 5Ol2 GO TO ▛▗y<▛ACS = CLS <ABS 2[N]▛[S][K] REM 18 COPY <CODE OUT [D]TAB ▛▜ PRINT INT VAL [O] LET Z[ LIST [G]zmACS 5▝ IF CLOSE # RESTORE T]6:PI/ABS MERGE Kmr CONTINUE [E] DEF FN TO >=wABS FORMAT INK w PRINT YCODE INK 2<=cINT RANDOMIZE 6 LLIST RESTORE PAPER 6o▟s[K] OR CLOSE # POKE 4 STEP POKE PAPER kU7▗qiW8K FORMAT .|X"<>: RETURN f[L]` OR :LEN CAT INT =O2 CLS /*%[Q] STEP NEW 6 COPY INVERSE IF OR ▖"B IF AT IF B:>= REM STR$ INK STR$ '>Qd CONTINUE GO SUB $▘su{ THEN PRINT MERGE : READ LEN o NEW g LINE POKE PRINT RESTORE * DATA TO !-u SAVE SIN *TAN FOR s#r CAT uwOkW OPEN #w PRINT < FOR PAUSE 2 OR BEEP 1m/STR$ . LET K CONTINUE DEF FN n THEN [A] STEP POKE [O]X OR +[P] BEEP PAUSE GO SUB STd:>t[S]c POKE STR$ NEW /[L] RUN ▝ LLIST "▙}_|;(b LET p PRINT TO OPEN # CAT INKEY$~^ READ VN BEEP $~[C] MERGE Hx[B]tM[A] LOAD LET GO SUB PAPER [B] OUT MERGE ASN K[F]ATN FORMAT O[F][O] CLEAR © GO SUB yRND LIST [VAL [pVAL [P] STEP ERASE ATN [I]fR GO TO PLOT bSQR [U][U]R SAVE zCSCREEN$ PA~ INPUT COS TO % PRINT !ATN RUN LIST LLIST $ REM `v LINE {gm NEW FLASH VAL$ SAVE 5SBIN e2[P] LPRINT LET q0 RANDOMIZE RESTORE ! FORMAT xe"fnPEEK 6 dCODE 2/yFN ▚ OVER GPEEK ABS STEP OPEN # FLASH ATN MERGE nATTR ACS ( RANDOMIZE DRAW }COS !jo>VAL$ w STEP LINE MOVE [S]^F[C]T;q 8 VERIFY 0 ERASE { LIST STR$ N DIM EXP 8>=yCOS INT p#POINT [E][N] MERGE EXP (NOT IF BRIGHT ©PI LINE CLEAR TO GO SUB [rATTR U[E] MOVE ]T FLASH VAL AND TO CIRCLE > NEW MOVE = IF CLOSE #O[J]f*ABS +_[P] STOP ATN STR$ IN I RETURN >c▝f NEXT [I]UVAL$ 4 CONTINUE COPY o[Q][T]< INPUT PRINT AND >[U] MOVE INVERSE R[C]q SAVE ]$w COPY ▙v LLIST PRINT O NEXT OVER AND [A] STEP OR ' DEF FN @PEEK LET NEW [U] THEN SGN ' FOR ?TAN [U] LET < STOP MERGE IGb CLEAR Ox( RETURN 0xVAL$ DIM . STOP ) READ POKE RANDOMIZE sSTR$ _ RETURN FOR [R]ACS wv SAVE FOR MOVE , CIRCLE <>h COPY BRIGHT LPRINT 1 CLS LINE NEW CODE zSTR$ IF ^AlVAL ATN / STEP mINT ]3SIN GO SUB STR$ | BRIGHT SQR NEXT IF CLS SAVE *hVAL ! DEF FN OPEN # FOR OR RANDOMIZE <>▗/!.LEN ▛/SQR !uSTR$ RETURN ▘ NEXT INKEY$ PAUSE ▗ LOAD 6J[H][!~▘USR JW PAUSE c RESTORE i TO m CLS 2 DEF FN ▟,q MERGE AT FOR ▚G[ezL▜ LET !w[L] OUT PAUSE REM ~▜▚,,>. COPY FOR "j PAPER PRINT "▖z IF FORMAT O>)A PAPER PEEK ( RETURN CLS ▝= PAUSE BORDER VAL <2LEN KS=pG` LINE CLEAR , MOVE oR LOAD hCOS SGN PRINT BORDER THEN STEP %LEN IN RETURN ( OUT VAL SQR LET o CAT FOR CODE NOT &xo INPUT LPRINT ~2zCOS y}g BRIGHT ▙WTAB CLS ( ERASE CAT E INVERSE !n CLEAR ▝ACS AND O4TAN ACS AT CLEAR " IF CHR$ STOP LEN STEP ZCOS [F]u9▖n DIM POKE STOP MERGE l POKE MERGE POINT ▟){<>ATTR CAT [B]' RESTORE [R]SGN <> RESTORE :6 CLEAR TAB PI(f2SIN NOT DEF FN MOVE LIST (VINT [K]n* DRAW h MOVE _/[N,F{ INK CHR$ SAVE n#[P]TAN f DATA RESTORE [J]BIN ▖ MOVE xLEN (%PEEK !#CODE [U]SCREEN$ LLIST 7[D] LPRINT * PAPER OR BORDER INKEY$ LIST c^PIV<>N[N] COS jACS GPIWPICODE BEEP N MOVE MOVE S OR LLIST RESTORE CLEAR LTAB x▙ DRAW , DRAW PEEK ]! DEF FN "1[H]POINT CODE FLASH ~ LOAD *SIN MOVE OR [G]J PLOT DRAW LINE REM PICOS LOAD |qs7 PRINT DATA [ MERGE [N]{3 PRINT INKEY$ FLASH BORDER [D]INKEY$ LLIST ATN PI MOVE LET LPRINT . AND USR g[B]9n FLASH SIN 3 MERGE " LET VERIFY OR X&b[I]PI LINE COS } STEP ^SIN &~ VERIFY t3[S]SCREEN$ VAL$ ▞ SAVE TO GINKEY$^<>O FLASH LLIST ▞Wy <=SGN 9r PRINT RIN COS NEW USR ACS ACS VAL$ yPEEK ▚ MERGE SIN W[U]_'`<>{+]` CIRCLE k2 INVERSE THEN LINE N[H][J][O] INVERSE [D] DRAW Vh-%[T]jMcJr~ RUN {©(2} PRINT FkPIG LIST AND [O] LET !! PRINT c[B]l BEEP >O[K]3M MERGE ?ATN $ATN INVERSE RESTORE !0y1|[L]▛ THEN >=q]ASN USR GO TO CLOSE #TAN >aLN ACS <:r{ RETURN `0I DEF FN o MERGE FN NEW © PRINT s OUT ,NOT ETAN = FLASH ` O[J]^' LIST LEN 1,[J]N GO SUB -m&([I]w VERIFY FOR 2, GO SUB RUN ERASE (q INK 9!TAB w-M/ STEP FORMAT : OVER AT AND 0USR [J]VAL$ 6 CLEAR Wy STEP SIN ,> RETURN b BRIGHT ] NEXT 7wCODE SGN LIST AND (.}[U][ GO SUB [?DpZ NEW [E] LLIST y RETURN SGN ,P[[N]H^REXP TO S REM I}jSIN } CLEAR PEEK #()-w0 OVER IF VERIFY P OVER AND MERGE m[R]`}w~E[S][K]INKEY$I LINE LINE ,>=f GO TO USR [C]yCODE iX/@ GO TO INT / READ THEN EXP M[D]WINT drw OR 3 DRAW RANDOMIZE LPRINT FORMAT IF c LPRINT BIN 9ASN STEP ▞=INKEY$EXP (y[F] DEF FN [M] IF 6LEN LINE STEP NPI IF PLOT ASN l CLEAR o COPY 0 AND Upp[G]PEEK PICHR$ |COS BEEP 6RNDABS C OR RETURN aINT `8 FORMAT |BIN MOVE [B]@USR ue STOP [R]▛STR$ LIST CAT RESTORE 8LN ".nPOINT MERGE CLS 9uC[P]f LINE FOR ASN RANDOMIZE [J]CACS 'W[h RETURN LLIST ▞[E] DRAW { DRAW OVER SGN 7USR SIN INVERSE PEEK >=[J]>=b[N][G]EXP DIM uCHR$ _ RUN AT / NEXT PIQd DRAW c LOAD ▙SQR ▟▟[F]0 OVER xXlPEEK e PAPER TAN / PAPER m TO E[o MERGE t VERIFY { LET VAL STOP M<>ASN LOAD [C] FORMAT <=4INKEY$ COPY m RETURN RUN POINT ACS ` CLOSE #SGN ERASE LN ) MERGE NEXT 0_s[I] PRINT BRIGHT [R] LET [F]ATTR [Q]▙ COPY 5 LOAD 4▙VAL$ PACS SAVE ]% NEW ?[C] OUT &;<>W FLASH READ NOT J VERIFY <>▟ OPEN # TO INVERSE IF +GPOINT INK =: OVER CC(Q▙@?V LLIST LLIST NOT REM TAN o CAT ABS INVERSE !1 PAUSE OR MOVE ERASE J LPRINT C[F] OUT IF PEEK PLOT ▝7 VERIFY W OUT 3STR$ lPI[R],SCREEN$ NEXT &FN ` VERIFY sM:AT (W OUT s$▘JINT LEN AND [P]ATN SCREEN$ [B]-CODE <>_COS DEF FN ▙] OR ▖F BORDER 7STR$ 6? INK MUSR 1ATN [F][Q]$l GO SUB - REM NEXT O}j PRINT POINT ▚ TO m PRINT COPY AT ▜▜&[CODE MERGE DRAW *Oy▜▝oqAT SAVE L[O]rSTR$ <= REM DEF FN % REM w LLIST zU~us# PLOT COPY ?[M]▘v INK [B]e[T]cqJUSR STR$ [N][L]LN s[O]ATN ▜SGN TO &x: OPEN #1 DATA q▘p BORDER PLOT REM CLEAR PLOT /^ CLOSE #V{SIN LINE :LN y RANDOMIZE POKE MERGE CONTINUE CAT a[F] FOR DEF FN O&~P FORMAT INVERSE TO DIM BORDER b[H] GO TO G,J MOVE TINKEY$MABS [R]. LINE [O]^ RESTORE <C}CODE INK E CAT CLEAR FOR ▟[ THEN 0 PLOT z INVERSE <>[L]^ LLIST POKE z-PUSR yZLEN O[P] PRINT d RESTORE ~yATN 0z( CAT ▘SCREEN$ N LLIST CODE fSGN /CHR$ [U]ATN /! TO DEF FN W CAT TX}[O]QzCOS (2 FLASH FOR Y OR BVAL$ INK OUT aSTR$ x MERGE DRAW BEEP q6xL- RANDOMIZE RANDOMIZE w, GO TO GO SUB O!▘nINT > MERGE KATTR CHR$ LLN INT fCOS )BIN LIST FNe~LN (, RANDOMIZE POKE x2.EXP *▖ CAT FN CODE RESTORE LEN INVERSE w▝ PAPER W STOP ©o LET { LLIST x]R PRINT RESTORE READ FLASH ▝QINT t STEP iINT 9EXP S INVERSE VERIFY [J]▗~ SAVE zPOINT KCODE NOT FOR RND[ MERGE ▟nL LET OR jxrHABS +$[I][H]▖m OVER ▗[J] BRIGHT PRINT SQR u FLASH CLS w CONTINUE <NOT INT LN BRIGHT { GO TO FOR [N]RND{ BORDER segB[D]W▛ COPY 2~#PI>=8T▝[P]{ PAPER RANDOMIZE EXP LINE [O]INT AND `3,a▝ SAVE p}[I][P][I]NOT FORMAT CLEAR ▚ PAPER =2{EXP CAT PRINT PEEK 1 LINE _COS TAN ! CONTINUE AT ©x RUN SQR <[E] RESTORE OVER y SAVE SSCREEN$ U[Q]:BIN [L] OPEN #PI~3[H] INVERSE CHR$ [M]ACS S CAT >▞&,ACS OR sN OPEN # CLOSE #x INPUT ? CIRCLE IF NOT IEXP (l PAPER THEN w[Q]INT Av DATA [G]CODE [J]CODE Fz(F OR COS IN s▟ PLOT a[N] NEW BRIGHT CLEAR ABS AINT = LINE rEXP PAUSE J/n[C][A]/ LIST LPEEK ABS LET [LN SCREEN$ . NEW [M]DM LLIST Djc_JASN <>|F[U]W TO //[J] TO B CAT +Tm>= BRIGHT H RUN >= OR '[B]BIN RETURN BIN INPUT w LLIST STR$ <> VAL$ _[F]NOT LN LINE W[J]u▗o▞: NEXT $SIN NEW SGN CAT 1? NEXT " OR BORDER © LLIST <> RESTORE =!SQR (' IF CLOSE #3 IF [J]P LINE RETURN Iu[J]ZAT [L]d GO TO [P]VAL$ INT t5 STEP ▟I STEP ~XATN COPY 6VAL <> MERGE ~ PLOT O OVER o# BRIGHT FOR |PIABS n COPY q PAUSE -SQR y/[R]_ PLOT NEW TAN INVERSE FOR PRINT s MOVE <>▛SCREEN$ INVERSE 0 REM e POKE MERGE CIRCLE ABS [E] POKE J FLASH c▚ASN PAUSE RLN @LEN MERGE ASN P%[K]B NEXT ACS ACS P`o▘[L][A]PEEK PRINT [L][C] AND o[L][Q][L]>&72[I]f[R] RUN SQR COS COS >K RESTORE " REM RANDOMIZE Gye[O]▝ LINE THEN }▙o CAT ;rZ NEXT <>GPROC+9 PRINT IN<=J2V▚ COPY AND dVAL$ "ATTR <>STR$ N STEP E STEP POINT <>[P]/ZPIO>*[C]7▜>=G0 BORDER F LLIST PRINT SAVE GO SUB S PLOT SQR COPY DATA |[B]F,PEEK CLEAR > RANDOMIZE x▜CODE |TySGN [L] LIST RETURN ▘ CLEAR VAL$ NEXT STOP @[z STEP kj=VAL 8x( RETURN `w©O PAUSE [I]ny<> NEXT /i STEP IF SQR ~SGN .kCODE k▘"}6 SAVE <LEN OVER !=CODE INT " FOR [INT #INT !ATTR w▚ OUT [C]}<> PLOT d7!USR ▘kSTR$ DATA INT $ BEEP INPUT ▘ LET ▙JCODE RUN [U]AT i▙ MERGE SGN [C]IN COPY /GABS ▝ MERGE <>&[<>wABS f OUT pSINKEY$r AND LN OABS z MERGE =IN >=< REM [<=G AND -[H]USR RESTORE RND<=[O][G] BORDER To IF BRIGHT z[L]SCREEN$ SIN PAUSE IN THEN N PAPER Z PRINT THEN RETURN Fy THEN ~ PLOT @k[E] CLS LPRINT n[G]z[S]2g DATA [T]V READ yS OPEN #tZw[D]© FOR [C]TAB OVER zNOT FLASH SGN IN CLS } LOAD PEEK *or NEXT SQR [N] PRINT FLASH ~w LOAD IN RANDOMIZE ABS PEEK COS GO SUB ATN [H] FOR DATA /PIsj[O][O] OUT RUN RETURN ">=<NOT [S]ABS m OVER ' STOP PEEK DIM 0W PAPER ATN PEEK NOT STEP `[U]▜COS ▝ COPY NEXT DATA FORMAT gCOS @ MERGE IN OIN < LINE C DRAW TO bPEEK [J][P]x( FORMAT [T]EXP ERASE RESTORE GO SUB K▛CODE 1= DATA 4wABS [N]} PRINT 5 THEN CLOSE # FOR V! GO SUB DU BORDER RETURN NOT PEEK Q'1 LOAD COPY PI PAUSE ▚PEEK bINKEY$2[D]MATTR } LPRINT [H] MERGE 7 CONTINUE INVERSE POINT g IF NEXT CAT CAT OPEN # REM ▝] LIST FLASH (3f_COS w CLOSE #[B]'0G/ GO SUB [B]o CAT <>}[C] DIM ]9 DEF FN LOAD z FLASH /IN LINE INVERSE NEXT 2 REM PEEK 1 NEXT READ ^ PAPER j3zACS SGN SQR }<=W FLASH PEEK [N]▛ FORMAT ▖^f INPUT ▙ RUN LOAD LINE [S]IN FOR RUN ~ AND RUN LOAD O NEW 5yM, FOR p PLOT yO# OUT & FOR k▛ RUN <= CLS GO SUB ^IN _<>VAL$ 3 NEXT FN [J][L] CONTINUE btSCREEN$ USR c TO [Q] LET PRINT ▘[N]} BEEP THEN ?8 ATN ▞OG'v) RESTORE b> BORDER k(N0fT CIRCLE BRIGHT ! NEW G STEP + GO SUB o INK x COPY t} RESTORE +{[G]oz©6[I]STR$ gTAN CODE [T]_ COPY POKE TAN ?=H8USR LET [A]&▛ATTR [R]xg OR OUT LPRINT =# RANDOMIZE STEP 7[M] LET INVERSE &a!8 READ ▘ RANDOMIZE [G]bSTR$ OVER ` OUT [M]INKEY$L>'~w=|-IN %L~@6I.CODE *^▗ GO SUB LET FLEN 7>=ASN [H]INKEY$ BORDER _ LOAD DIM =w{Q STEP L DATA [S]E[S] OUT LPI RANDOMIZE IN INKEY$y LIST [O]POINT MERGE mPEEK [K]PI<>▞5 GO SUB [Q]# PAUSE .[J] RANDOMIZE !▙7y▛ STEP [N]Zn▘SGN BORDER CODE ![M] FOR V FLASH SQR ACS FLASH o CAT CAT OVER i<>7 READ REM STR$ >[B] DRAW PRINT RESTORE MERGE STEP o[M] POKE `[L]ufa CAT = BRIGHT RETURN $o▗gz VERIFY USR FOR ▙KPEEK MOVE LLIST Y_'▘ LET ▜k<>[B]"▞ ERASE ,[M]z 2[A]INKEY$ RANDOMIZE [@2▟[M]m[A]7w OR POKE LEN ▝+ OUT THEN bPEEK ABS [S] FOR INT R COPY CHR$ LN RETURN x _ NEW THEN {[Q] INK j@s CLS INT PLOT W/[H]!z PRINT kLj[B]w OUT R DRAW }#AT >` CIRCLE MERGE w FOR <>:ACS [M]!IN POINT @ LPRINT PI cl MERGE FOR OR vuvABS SIN ▙ LIST ATN 5~O,~P<1 CLOSE # CONTINUE FOR OUT "▗SQR OUT [H] LPRINT nATTR [U] CIRCLE [Q] PRINT ▛ LPRINT OR RNDp▜_PEEK DIM OR DSQR K,u RESTORE o CLEAR [P] OPEN #@ OR d[J]qLaCC[B]-[T] BEEP MERGE CODE [P][[N]Z[H] MOVE BORDER ▗[N] BEEP GO SUB RANDOMIZE RANDOMIZE VAL$ NEW rw IF [E]ACS <>SQR % DIM PAUSE PRINT CHR$ [N]<>~▚R$' LIST 0IACS ▜ THEN xG<=*D[B] BRIGHT GO TO x04p/COS CLS hk*+%COS CLS P BRIGHT l HCOS CLS @ BRIGHT l8 CLS AT y LET 7ATTR USR y< INVERSE BORDER >a RANDOMIZE 'z[H]LEN ? OPEN #U RETURN 4!O RESTORE _o DATA y RETURN 8|[C]▚▙ CLOSE #PIz^&>=CODE q[O] NEW COPY ~ FOR BRIGHT O[E]y~PI PAUSE -[O] GO SUB Dm3 CLEAR y<3f CLOSE # PLOT 6CHR$ IN vE GO TO FOR @ CLEAR LOAD LLIST MERGE >=IN TAN POINT [Q][G]▙▚B_fqjd^ZTPKGC?<852/-*(%#! LPRINT CLS INK ? RETURN OPEN #▜ INK © DEF FN IF CLS c RANDOMIZE SCREEN$ Ms POKE BORDER PAPER DEF FN CHR$ ATN TAB [T][K][B]▞▘zsmga/VRMIDA=:630.+)'$"ATTR NVAL$ OVER ATTR [G]RSCREEN$ ATTR TAB _VAL$ AT SCREEN$ 2_[S] BEEP PEEK [P]4O! POKE s DEF FN 3 PAUSE [Q][J]n[D] LIST [U]6 POKE AT LET DEF FN mEXP Y OPEN # PAUSE g NEXT FORMAT ▛l REM I LIST ERASE [L][O] PRINT g6 PRINT GO TO BRIGHT COS h[E][O]E$ CAT n DIM STEP FOR YCOS [L]▗ng=YFgRND4" DIM =SQR POKE NEW INK AT g STEP CHR$ ATN [O] PRINT AT [T] VERIFY COS [K][B]▞▝ CAT zzs FOR Ylfa[g=VQ PRINT AT MHD@AT [O]=9z[G]230-Y CAT +(BIN CONTINUE &$,!qNg[O] PRINT ZLN BIN CONTINUE vTAB STR$ 2 CAT z SAVE COPY ` CIRCLE (▖q READ LIST ` LPRINT X AND ▗|4VAL h{v GO TO [E]D SAVE MOVE COS VAL p,=SQR CLEAR PEEK ▗SQR gX PLOT LINE g=[S]|WATTR X8NOT SAVE AT g OUT CHR$ AT [O] PRINT [A]{ VERIFY COS eQ>,7z DRAW AT g LOAD LLIST VERIFY [O] PRINT >=ABS VERIFY COS SIN FN [P][G]2z▙ CAT SAVE [B] FOR Ypkd^g=YT PRINT AT OKGBCOS [O]?;z VERIFY 852/Y CAT ,*= FOR '%#POINT g! RESTORE INKEY$888VAL$ IF : PAPER MERGE v PRINT x RESTORE { COPY GO SUB mzPEEK VERIFY zoNOT FLASH y%wCODE RETURN OR 2 BEEP g CIRCLE :k▘ RETURN LIST INK VAL } LOAD VLf STEP h RETURN DIM nVAL$ COPY >( STEP k BEEP COS DEF FN ▘BIN [L] CLEAR READ CHR$ ~D NEXT 0 STOP NEXT : FLASH G{5 THEN GO SUB PRINT 3o&w~2^xZPIPOINT RESTORE LLIST [M] LET [C]NOT RETURN [D] AND d[P]( POSITp0N▗VAL L[D] RUN TFATTR . VERIFY PA MERGE CLOSE #wXASN SCREEN$ BORDER Od VERIFY G NEXT s LET SCREEN$ >EXP 0 CLS A FOR 6<= POKE <>d'LN NEXT S OVER U COPY ^gBIN 3 BEEP :VAL ▗>= AND [H]K[F]>=ATTR D[M] REM [F] CIRCLE FN /RND IF <POINT NEW [E]^ LET xATTR p<> RUN [ COPY LOAD ASN ▖ CIRCLE RUN PAUSE [K]7<>[C]Tw RETURN (2S▛▝[J]wV3ABS RETURN i▞ AND Xw,[CODE <> THEN [Q]i[F]<>DnQINT o OVER A-@ FORMAT VERIFY >=[R] INK + INK NOT CLOSE #m:5f POKE BRIGHT = PAUSE LN LPRINT BEEP VERIFY > DIM COPY `T OUT PLOT > RANDOMIZE T COPY SAVE GO SUB AND _6▚<= PRINT STR$ STEP ZT],>=5USR ▘L INVERSE CODE L[J]<>[U] REM IF G> COPY [A]>=ASN ;ABS LINE ABS 6VAL$ MOVE INK Lf OUT 2[U] OUT ~INKEY$ MERGE f*[L]w BEEP INK W▟[D]p OPEN #5KW)=ASN 0USR OPEN # FORMAT ▛ POKE JoT;b SAVE [M]2t[H]y[P] COPY NOT A PRINT MERGE } RESTORE STEP NASN CLEAR LLIST ~, IF ▝ MOVE z AND W^ STEP TAB TO m[L] LLIST IF OUT [H]2%I[T]w▞[P]tIN [P]INKEY$ INK A3 ERASE BIN }[B][J] GO SUB SQR DRAW ▗[J] PAUSE L IF [J]AT PAPER vIN M LIST ▖rSTR$ RUN NEXT INK BRIGHT OUT RUN MERGE ! CONTINUE PAPER ~_ RESTORE MOVE h LIST 'SETUPSIN NOT FRLEN STOP Qj*NCY TABLE:PRIN SAVE OCOL/ CAT URSCODE GO TO KO[T]CODE . PLOT [ OUT FN BORDCODE E CLOSE #S LOAD AVE [T] LPRINT <> RANDOMIZE * POKE D NEXT STEP PLATAN [L]^" COPY KEMPXRNDJY&| READ CINT EXP a RUN ,A THEN MLN [Q]>=P LINE ERASE SIN READ LNT OR H@▖X7[A]Phx[M]` IF ▖ PLOT CH DRAW p#▞RND{>[I][A]X PLOT 5[Q] SAVE INK PAPER CONTINUE YJV) DATA OUT '[N] CONTINUE INK CODE FLASH /k_INKEY$-[D] CONTINUE <VAL$ dxi▘[G]4 RESTORE ▞V RUN :f? FOR Zb[D]. AND CLEAR 8TAN RESTORE FOR THEN ©PI><>( THEN REM ATN OUT ? NEW LOAD : BORDER [U] FLASH { NEW c RANDOMIZE BIN BRIGHT /e PAPER d*RND, DEF FN eC RESTORE [E] RESTORE FN SGN CHR$ f SAVE |ACS ( CLEAR RESTORE `E STEP CIRCLE PAPER M CIRCLE [H]5 CLS ![T]PI " INPUT CLOSE #!qY&SGN %wt[I]RND,fCOS ATN -M<TAB STR$ CLOSE # ERASE 2SIN Yy CAT PAPER <> PAUSE CAT IF [J]ABS ?C VERIFY ABS SIN OVER LN gPI![O] INK CPI[S]N5 POKE NOT d7& ERASE ©▚PI>==NOT a NEXT [Q] OPEN #SGN _[N] REM GO TO COS 2 CONTINUE POINT DIM <][O]|<=[C] FOR [N] LOAD GO TO S NEW [B]' RETURN OPEN # RETURN >E2f CLS AT DRAW <>ASM or TO C[Q] CIRCLE +v'/[Q] COPY STEP M!Y GO SUB KSQR OVER yIN wCODE USR OVER INVERSE SQR >CODE { RETURN ABS IN CODE ]= LOAD CODE ▗ FLASH wUSR CODE c BORDER COS CODE <>▞ STEP [F] CIRCLE { OR ABS TAB [O]RG RESTORE SQR Ox[B]/< DRAW SGN ~ OUT LEN CIRCLE RETURN ABS COPY GO TO INVERSE LEN LEN INPUT OPEN #▟▝ABS DIM } NEW [D]1 LET ABS % MOVE PRINT ▖n3@0 LPRINT Y[K]h[D][T]AYg RUN PEEK OVER RUN PEEK ▝TAB OVER TAN OVER U[L]}CODE bCHR$ K OVER x GO SUB ur PLOT H RETURN 2([O]3SGN q DEF FN Ro COPY [L] INK Wg9ETAB f(4`S:KTL LPRINT TO AT 5R@COS PAUSE Y LINE 3KUSR 6 AND TO DkfU=3NOT 7,g69 OUT DATA 0[Q]IN OVER <>=V BEEP STEP INVERSE BRIGHT BIN BEEP NEW dfO] NEW >~l , PRINT ?~ NEW LPRINT wJCODE " CONTINUE LIST [A]POINT ( READ [P] ERASE [O] RETURN |PI PAUSE LN BRIGHT LINE |[Q]g| VERIFY BIN 8RND CLS u CLS t STEP 7 PAPER k BEEP DRAW / OPEN #SGN Gy GO SUB D▚TINT PAPER VAL w CLEAR `[N]&o VERIFY W VERIFY sSTR$ PRINT [C]<_<.Ao<> PRINT u CIRCLE STEP SQR ▜▛K INVERSE &USR o/okPI[L]- PAUSE m:+[S]x& LPRINT ▖ LLIST ![D] TO ~ PRINT LEN CAT VERIFY LET [I] INVERSE 3ATN ▖ OUT ^ABS LET NOT e LPRINT 3i1▛LN [U]ynb DRAW BEEP BIN PNOT [R]BIN [L][O][J] BEEP BEEP AND o LIST _.LN LIST LN 1 DIM PLOT F OR [R][N]B[P][T]SQR DRAW &-o NEW >[J]|)[CODE }@T~NT[B] ^[N][O]NOT O CLOSE #% FLASH [P]y CONTINUE -[S]AT d~ OUT c LINE [N] PAUSE 4 RESTORE STEP RETURN MOVE RETURN <81@ FORMAT #~FN wNOT OVER > COPY O CLOSE #[L] STEP LPRINT OUT CAT 6,:TAB OVER B,2 OPEN #tACS ©8 INPUT rPEEK TAB X0<>YzH INK 4 NEXT 8SQR ©COS '[Q] y TO BIN VAL INPUT @©U( ACS [U]"HA CLS CLEAR [L][Q] FORMAT VERIFY @ CIRCLE >=~V/Y READ TAB [I]%[A]▝H LOAD +7 RETURN hf[K]8ATTR READ tEXP STEP ZldH@pe GO SUB o STEP zK DATA TAN [I]ASN VERIFY tPEEK _[F]7? LIST COS w: THEN _ NEXT BF MERGE OPEN # MOVE >PKTAN ▚ OUT PAPER [LEN ▖PImLN !% COPY OR H>XH MOVE LLIST ` RESTORE ASN FOR /[J] MOVE GO SUB |[C][I] OVER EWe DRAW W FOR GO TO OVER INPUT [G] CLEAR LPRINT [H] OVER COPY m AND CLEAR >D"[D] REM 8>?x64▙/ CIRCLE SAVE .4FUSR y POKE LLIST IF LET SQR PI OVER NOT VERIFY NOT U<=0CODE IN S>= AND {< LINE OUT >7C9 CLS (|/^x;] NEW CHR$ <EXP (s PLOT [S]>= RUN 3[J] CLS GO TO CHR$ OVER CLEAR ' CLEAR ySQR OR AND STEP LOAD BRIGHT DIM ) CLS STR$ xwY[U]POINT USR >= NEXT CHR$ = IF J BEEP NOT =LN FOR jM FOR DATA OR = OR DEF FN [H] REM <=STR$ CLS DRAW NEW <=©K LINE /LCHR$ USR SGN NEXT k INVERSE [A]INT LN XYs PAPER PI>NSGN OUT ATN o AND 1 MERGE BEEP [U]/ GO TO [R]VAL$ COS e_INKEY$> READ TO CLEAR BRIGHT [H]<>2S[K]a LPRINT PRINT O}z▛ MOVE LET <8 NEXT <> MERGE PRINT C3 LET ▞ GO TO 5[L]${ FOR : MERGE g RESTORE |▝ AND oTAN [K] LET AT FOR b DATA ^"{INT Dea%, RANDOMIZE LLIST LET PRINT NEW (G> LIST U INK w LET >r0 RETURN Bt MOVE %NOT ▖▘ SAVE VAL BEEP ABS [+ RUN INT [IjAT do COPY W[M]ASN EHSIN ;RaATTR fB[ POKE { INVERSE WUsCODE zqzz CONTINUE uDp LLIST DEF FN w IF CAT ATTR LIST [A]?R DEF FN w SAVE SABS DEF FN q OVER MERGE 3 RUN q OVER [P] OVER DEF FN PAPER REM OVER PRINT N DEF FN t*u[D]aVAL$ PAUSE NEXT PAUSE J LLIST GO SUB DC FLASH DATA J< STOP FORMAT GATN GO SUB CODE }7[A]IM[H]{EXP [R]=EXP EXP LPRINT GO SUB NEXT !o[R]?n CLOSE #CODE W PRINT OR CHR$ BEEP PEEK © TO BRIGHT PI+ PAUSE ATN LLIST VAL$ LOAD [I]} DRAW LET ▝ INVERSE STR$ CODE / MERGE LET < MOVE g^ THEN , BIN ] MOVE BORDER ▖| LIST ( CLOSE #▙RNDf LINE ERASE [H]INKEY$<?▜AT BEEP STOP >▚2m LIST FN J8O LET >FN `/ATN PAUSE [B]0 DRAW ▝S© GO TO LOAD )XF RETURN CLEAR ASN POKE r PLOT - FLASH ▜ BORDER INVERSE <_> CLOSE #FN IN kPg STOP LOAD NEW PNOT NEXT TAB v SAVE THEN (>) READ 8 VERIFY u3 PAPER Kr LLIST IF READ SIN !aXCODE EXP (O LIST ASN IF DRAW /}r&X AND do LET x INVERSE U RESTORE <>N`POINT SQR ?>= BORDER NEXT AND [H] GO SUB STOP BIN [H] TO >x[H]M[ RETURN CIRCLE ▖RND[R] PLOT 7!+[O][H]s-%! READ STOP RANDOMIZE [C]▜USR MIC_ OVER [G]WSQR CAT AND s ERASE POKE SAVE > LIST B▘USR PTR3.4r CTAN _▘▘hrust-packer v1.0 by Dima Pyankov,G-Altaisk,12.97 tel(38822)44211PT 3.4 SETUP08 COPY <> COPY LLIST MOVE STR$ LET INK LLIST 3 MOVE STR$ 3 LET INVERSE LLIST 1TAN T INVERSE RESTORE PRINT ; OR MERGE ; RESTORE INK PRINT OR MERGE RESTORE 1S LLIST MOVE STR$ LET INK LLIST 3 MOVE STR$ STR$ 3 LET INVERSE LLIST 1TAN T INVERSE RESTORE PRINT ; OR MERGE ; RESTORE INK PRINT OR MERGE RESTORE 1S LLIST MOVE STR$ LET INK LLIST 3 MOVE STR$ 3 LET INVERSE LLIST 1TAN S INVERSE RESTORE PRINT ; OR MERGE ; RESTORE INK PRINT OR MERGE RESTORE 1R LLIST MOVE STR$ PT 3.4 SETUP0 COPY <> COPY RESTORE STEP GO TO [U] LLIST PICHR$ RETURN ▝! OR OR u GO SUB VAL COPY 6 GO SUB VAL LLIST <>:[C]x= LINE POKE LLIST CHR$ ^,V! LPRINT RESTORE STEP GO TO [U] LLIST PICHR$ RETURN ▝! OR OR u GO SUB VAL COPY 6 GO SUB VAL LLIST <>
