| Is a part of release: | Denizen |
| File size: | 65280 |
| md5: | 01a27bbbdf77ce28b7dec883dd2c39bb |
0SCREEN$ FUCK 2 vELosiPEDIK NEXT GO SUB s▛`!` CONTINUE CLEAR w MERGE GO SUB VAL ` INK ![M]▖3VAL (<> GO SUB LN 1-▖STR$ LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE INK ) LLIST A0 SAVE INK (g; LET o GO SUB VAL TAN ; LET PI CLOSE # INK !Z RETURN X' INK 1 NEXT <> [C]| COPY D COPY DRAW OVER [B] SAVE SCREEN$ [S] LIST INPUT RETURN DIM ▖"1 BORDER p[I]# CLEAR LIST SCREEN$ h MOVE SQR U LPRINT ▖^ LET >= NEW GO SUB PRINT CLS COPY D#>= DEF FN LN BRIGHT BORDER LINE ▟[U] BORDER [K]~ INPUT [E]▗(USR IN OR REM RND[H] LIST TO USR } MOVE [C] LIST [C]▙ ERASE . SAVE RETURN p SAVE ▞!▟ LIST x[J]G COPY g LPRINT DIM i COPY USR LIST VAL$ INKEY$ CIRCLE BEEP $ ERASE 8 CLEAR [L]▖ ERASE I DIM ▙8▝© PAUSE [S]Qq TO ?xYBZINKEY$ SAVE [S][F]`▗ BORDER CONTINUE qF MOVE /[G] CIRCLE DIM < LIST P#h SAVE USR f>= CONTINUE =Aj CIRCLE (<>LN CONTINUE P▗w CONTINUE FORMAT ▛^[A][A]#▙VAL LIST LPRINT QM CIRCLE fLEN DIM LLIST ▖FN [A] LOAD CIRCLE RANDOMIZE INKEY$w LIST . RANDOMIZE ` LIST DO NEXT M DIM INKEY$8! CIRCLE ^[K]USR `#-b LIST i DRAW 8 CIRCLE COPY <= POKE m COPY COPY !"$ COPY COPY &')*,./134689;=?T LOAD @BDF COPY E LET 1 COPY POINT CBA COPY COPY @?>=<;:987654 COPY COPY 210/-,*)(&%#! COPY COPY COPY COS s RETURN 0 LINE hcATN LNOT NOT u RETURN xCODE v▜▜ SAVE w1b ?<l▝( RANDOMIZE BIN NEW OUT A87▖UNOT LPRINT STOP bATN :g RETURN CHR$ $n~=2/ LIST BEEP POKE ( STEP IN cEXP LLIST [R] PAUSE 1NOT l RUN <= NEW <PEEK INVERSE COPY ? CLOSE #@nCODE OPEN # RETURN '( LET AND PEEK COPY [M]8<><= OR LN ( NEXT GO SUB sCHR$ e COPY COPY CODE OPEN # RETURN ![+wACS ( CLS > STEP s} COPY COPY ![N]RND FLASH [H] GO SUB VAL !U[A]ATN k BORDER REM H PRINT > RESTORE U SAVE [P]▜ GO SUB CODE H OR COS [I] CLS RESTORE STEP STR$ LIST REM ▜ CLOSE #/ AND POINT TO [J]STR$ @ STEP STOP 6 INVERSE #! CLEAR [I]BIN CLEAR POKE 9 CLEAR RANDOMIZE )SGN ▛ RUN "srs4PEEK TAB PLOT LET MOVE STEP d} CIRCLE PEEK y CIRCLE INK NOT X NEXT ? CLOSE # MERGE h PRINT INK OVER CODE FORMAT ▛ OVER <>!o-XNs BRIGHT RANDOMIZE RUN OR INPUT ^#V COPY 7" CLOSE #c MERGE LLIST CLS vSGN [K] TO xLEN X STEP kZ READ _~ DATA > RESTORE USR INVERSE OPEN #K▗e PRINT [C]1i[B] PAUSE FLASH w RETURN O[T] IF GO TO [T] COPY = PAUSE CIRCLE RESTORE MOVE 6?▞[P] COPY $v> OPEN # RETURN NEW N DIM 0uPIv NEXT NEXT SGN STR$ [K] OUT DATA INPUT T]u CIRCLE { PAUSE DRAW i LPRINT @HIN =+ DRAW CONTINUE H,g STEP fLEN wIN P@ OR MERGE >[K][M] INVERSE > PAUSE ! LPRINT XO BEEP rr!CHR$ ▚[S]/9 LLIST / POKE ?6/▘ THEN D CLS CLS I INPUT ATN REM j[A] AND [ GO SUB G^YINT 1 INPUT 2 FOR d LET fSCREEN$ ( CLS RUN Vk^) CONTINUE ▜4eASN f CONTINUE CLOSE #<[M]"^▜P}#~ CONTINUE o"eATN W PAUSE ▙[O] PLOT GO SUB bklZN OPEN #0 OPEN #?be COPY ▝LN © GO SUB S▜" DRAW ▚=NOT STEP CLS ▗ IF ?[G] LOAD FLASH RETURN 0<IN VERIFY RANDOMIZE ▖ OR RUN [J] COPY SAVE v THEN G PRINT TO FORMAT e LET SAVE O6ASN SAVE BRIGHT SAVE W SAVE CONTINUE STR$ [Q] SAVE _ POKE GO SUB OPEN #>© OVER CLOSE # OR eSTR$ PEEK RUN VAL$ PEEK NOT REM d+ PLOT ▜=▜v~{_ DRAW v1<>EINKEY$ATTR [P]<VAL $>i_ MOVE eL INPUT 6P" POKE INVERSE POKE V[J] BRIGHT POKE POKE DIM POKE v?EXP POKE POKE PRINT POKE [G]P! NEW ©[I]f ; PLOT OR MERGE DRAW [P] GO SUB [Q] RETURN MOVE STR$ PRINT <>CODE 2USR fIN XSTR$ ~ATN >= RESTORE LIST STEP & LLIST # PRINT oyr) COPY _: DEF FN RESTORE RETURN [P] PAPER @8 MERGE : MERGE < RETURN H▗ PAPER M NEXT PLOT i[K]_< GO SUB THEN ; FOR ©CODE ▜ RESTORE AT o[F]g~ CLS COPY _#V LLIST FOR [R]ACS wx] GO TO F PRINT <> MOVE LN ; LOAD LIST F[T] LET PAUSE ▟ NEXT POKE PRINT h4 PLOT RUN [T] MOVE SAVE RANDOMIZE /u4 DRAW CLEAR RETURN ▟i COPY FLASH STOP [B]*VAL$ RETURN REM 7CODE LET ▞ LPRINT AT USR FN CONTINUE LEN [K] PAUSE N COPY 7 PAUSE 1.INF CLEAR TE! DRAW ABS RGY.b<= COPY OF USR 2 CLEAR USR LIST LOAD ORCHSTR$ IF OR $USR 3▗ READ USR BULS.USR 4.F SAVE [M]REBIN DO-PAS<= NEW ASN G-USR 0.[A] STOP STARIN ▛ OR G OPEN #IN MEAg$USR 1 COPY <SYC[A]STR$ E>-W}0HE ON/[I]<ENTR CLOSE #N INK #ADcN0X[ AND G PAPER Y COPY Ep MERGE NAL@B3!pX COPY 'mSTR$ ▖CqY DUSRRH RUN SQR U GO TO -Xc$ COPY ?I_S+/(+HTLEN LIN LFZ LOAD $ COPY [J]'D OR I CLOSE #xG▚PLA LET dq▚198c CIRCLE (?I COPY V'6I RETURN D:STR$ KD PLOT CIRCLE ITZ;IN OMINy6<?UP! TO +[L]PEEK C LOAD VAL LINE TO,[G]::/-SQR 0 COPY BEEP OPEN # OUT /L[F]STNSTR$ ▟▙NG RETURN COPY READ ▘PI. COPY MOVE ELASN INVERSE SQU ERASE NOT DEF FN CONTINUE GFX TO ©USR ▗Y C BEEP NOT HIPTU<=NMMI'EXP STAB BIN YRUPJ[C][E]EXP ABS BSTR$ ` LLIST >y/~IMP[C]▖XINT VAL a[J]VI GO TO %PEEK [F] SAVE USR M<=rUSR UPw AND ACS G#<=EI▜)<=T STEP 2V[I]S}: OPEN #PEEK 8STR$ VAL DEF FN ABS INK yv[R]SK)▞{ COPY PRINT D NEXT GO TO -MAN/GUSR BIN T▜5©USR BIN [N]S! CAT ©>=CRA LET ZYSOFTV FOR ,R0 COPY INPUT RETURN =PY▘0▘[P]=ODELI+[J]LN PRqTAN y, LINE LINE KOVRw CLEAR H PAPER [J]dSIN G RETURN NOT :3- COPY LN [T]'=wGAC;. COPY DIM TAB _`H PAUSE PH{[C]OMFkHIN MOVE COPY OR Ea▘PTIN R NEW # LET INT RTU LOAD SIN SAVE S,<> LET COPY CYBNKC.I RANDOMIZE ▛ DRAW LOAD ;VAL$ LA1 LLIST VERIFY /W{▜ REM COPY F DIM nIPI©N MERGE Y[M] OPEN # PAUSE IN 3 FOR <=_PEEK Z@a▜; INPUT ▙CHR$ LOBTLN POKE ?▜ABS e{IPEEK ~d COPY XL-DE COPY o.Gz=FN PROSM COPY *IN GO TO PRINT T VERIFY + COPY AT 3TAB ▚ BRIGHT COPY 5 DIM C ERASE THEN STR$ [J]TlIN FLASH LN NOT COPY o INPUT BIN X-hACODE NEXT COPY 5ABS ?B%Z LOAD BORDER LN Ys MERGE AX%E INPUT IN [I]V© NEXT IN DNO RETURN G_ INPUT REM AYH MERGE READ INPUT ZOMB CIRCLE [L] FOR C LOAD &&<= COPY JUR'C DRAW COPY > LOAD l VERIFY PSAF▗I8[H]SIN Z0 INPUT Sw RETURN VAL$ TO SCREEN$ [E]OgIN L FOR T▝Y FORMAT [B] DEF FN l/[G]U4 DIM w"AO MOVE AT 9AY'N RETURN O TO 1[G]^ COPY AND DRAW L;qOTH THEN :N$ATN ▙)U<=PEC BRIGHT RANDOMIZE O LINE 0 FLASH 4 COPY #+COS = DIM [G]ENdu▟SQR AF LOAD [K] NEW OR ▖ FOR ERASE <0> CLEAR OR FLASH 3Y INK [J]U:H CLS LD LPRINT ▟ DRAW 1)NOT [C] LIST AND CAPNOT F! LLIST <>▘PEEK CAT AND 2US#3ATTR [D STOP FACS BIN FLASH LA RUN CAT STOP 1sUSR 2USR D[G]N BRIGHT T GO TO INKEY$=EXP >=YTHvS%ATN Mw$A/LN SKATN JIN LN 3 OPEN #&qBK LIST ATN ~ GO TO (k2F): FLASH 67 CLOSE #iINT CIRCLE LO^m^C CIRCLE z LET ABICHR$ D LINE GO TO A<> FLASH DRAW M$4 OVER t= FOR VAL$ OVER /56 CAT f:gFGEASN SO2 BRIGHT OJ LET 3<>* IF <[D].=PEEK [D] CLEAR IN CLOSE # OVER 9D[H] INVERSE CODE SIN CLEAR Y▚COS OPEN # LIST NA( THEN D PRINT CAT STEP aR/ RESTORE m3PEEK K RUN [I] RUN INPUT uABS NEW J▚ CIRCLE /h RUN NEW e/U[B]{ INPUT ▜ASN m3 DIM a6$▖ LINE USR } STEP ▙ FLASH FN SQR 7USR QOSWP RESTORE MOVE OR DATA DIINT S/i OVER hVAL$ INVERSE RETURN / READ LET LN >=BmET-][D] BRIGHT BIN WI[B] BEEP LPRINT ADSQR NEXT FOR INKEY$ ERASE [Q]A`IL@PCHR$ LSIN [C]PIVAL LOAD [C] CONTINUE sPEEK ▝SGN OVER [G]v DRAW MURp THEN b RUN NOT ATN SGN AND SIN TAB GCODE DEF FN TAN HBz CIRCLE IN # COPY # REM READ (C) BEEP INK 8FN DRAW DIM COPY BORDER © FORMAT LIST xATTR D AND READ NOT PEEK ▙ COPY POKE IF LLIST UVAL +^NOT V PRINT VAL$ SCREEN$ B[C] DRAW LOAD USR Y+>NOT SAVE FORMAT SAVE ( COPY POKE NOT CLS USR |TAB STEP T0Q: MOVE =: MOVE LN 10.3[I]W GO SUB ]fLN SIN xWM]6k RETURN ~ NEW ▘' COPY OUT SAVE uH.Q:601 CLOSE #69 CLEAR ,▚SGN |IA SAVE 0▖ SAVE PAPER ▞9NYS IF VTAB ]KTCq▜7-1[G]SQR ( OR )▚IZz COPY COPY OUT COPY COPY *IN iH RETURN COPY k▞m LINE orLt▟v DEF FN x{USR ?z NEW USR COPY COPY AND _ CIRCLE z VERIFY W<> OR CLEAR ©2/▙ COPY [ GO SUB ySTR$ <> CLS STEP R;![H] FOR LIST f CLS s#r[H]K CAT RANDOMIZE ▞▛▞ RANDOMIZE PEEK RANDOMIZE RETURN @ MERGE INK >ATN H LLIST NEW / INK ~ THEN © :CODE O▘ COPY STOP 7 AND G#{[G]? DRAW RESTORE oz[J]g| NEW X TO RETURN (O} LLIST LEN BORDER 8) LET RETURN ?g PRINT LPRINT TAN oa~ STEP INKEY$t LLIST # OVER COPY 'STR$ NEW ©(# THEN w ~TAN G FOR GO TO RANDOMIZE VAL$ NEW ?©▟INT PAUSE CLS #[Q] INK STOP BIN !X' CLS <> LPRINT ©w($ SAVE BIN AND COPY AND 0 LPRINT =© PAUSE #▛ CAT ?:> RETURN (h CLOSE # PAUSE ▚ OVER INPUT PLOT NEW RETURN LET ▗H DRAW RANDOMIZE SCREEN$ USR COPY ▜U READ #hl[M] RANDOMIZE USR fNOT c/ RUN h READ $(@ PRINT x[U]I FOR DRAW DRAW USR AND LLIST DRAW )@o▞▟`nNOT [K] STOP y NEW $▘ NEW NEW zSTR$ c DRAW *NOT <=▘sSTR$ {[K]k▚ LPRINT z[B] DATA DATA {s[T] RESTORE ▝SBIN COPY Kq(▝[▚SGN LIST 0+USR S| CIRCLE <>SIN DRAW ▝Tf▞▘ RANDOMIZE c DRAW USCREEN$ ▜ COPY ? CLS RETURN TH{USR c RUN P© LLIST *&▗@FN T6? FORMAT <B CIRCLE H|s FORMAT [E] GO TO 8[A]▝A[Q] CAT MOVE CONTINUE [J]IN E▗Q TE INK [D]▛▜▖ BORDER NOT IUSR IN 0VAL OUT 8USR ©7D▘ DRAW 0 CLOSE #▚[Q]PFN RNDo@(R|R}A6&[D]B LIST RETURN ABS A~ INPUT INPUT D INPUT ? OVER REM ▞[Q] LIST SAVE DRAW CAT THEN LN |x RETURN AT 2PEEK CLEAR PLOT INPUT OVER © DRAW [H][N]c[H] RETURN x(▘ CLS COPY BRIGHT ▖ RETURN GO TO [I]▘ RETURN AVAL$ ▝A REM "(5b| ERASE ▙J~& LIST P[Q] STOP *&N RETURN REM SCREEN$ @D{ CLEAR ▖L▝ [T] SAVE 8t CLOSE #FN /8USR H*/▙<>0 STEP 7 NEW BEEP PAUSE ▘TFN DINT RANDOMIZE ▝ COPY [A]▖SCREEN$ U[Q]@FN [P] AND A CAT COPY @FN U*8D NEXT TO u@PEEK RANDOMIZE FLASH [O]FN T1[O] ERASE ▘v7 PAUSE GO TO SAVE ▖ DRAW < IF ACS ▗JvLR STEP MERGE ACS ▝W NEXT 6| DEF FN ▚ STEP (L▙ GO SUB CAT LOAD @ LIST [Q]#o POKE p DEF FN I CLEAR RUN ACS CONTINUE INVERSE CONTINUE CLS LOAD © IF VAL$ cPEEK TAB * RETURN 7 COPY READ DRAW ▗?[R]▝U MOVE 9 FORMAT COPY RANDOMIZE ▘▘ ERASE 8▟#x▗TAN [U]G ^8[P]]!X RETURN DRAW SAVE v RESTORE LIST STOP USR [P][H]# CONTINUE c INPUT USR ▖▜ LET CODE xVAL STR$ ▙]U DEF FN MOVE E REM GO SUB DIM 47 LPRINT MASN CHR$ <> LPRINT >=USR ©! FORMAT ABS #' CAT ? COPY ~K▟ CONTINUE >=▞▖> LET ▚ DRAW OR [J]▜ COPY ▛ RETURN U{ NEXT LIST I▘*?▜ LOAD RANDOMIZE COPY 178▘ LPRINT USR PAUSE ▖I LET RETURN [H] DRAW ]1 DRAW 6 RETURN K▝PI PAUSE [F]:*"#©d VERIFY ?f POKE CONTINUE P OR SCREEN$ CAT O COPY COPY p▖ LLIST CHR$ 7 NEXT NOT @▝G LET USR H▞ FOR BORDER LIST @?CHR$ USR $=▜ THEN ;)POINT [R]f_ DRAW } OUT USR LINE CAT <= OR COPY LIST !( POKE ▗STR$ QUSR NEXT RETURN STR$ LLIST BEEP NEXT SQR [S]COS ": RANDOMIZE ( ERASE @▚SCREEN$ RANDOMIZE DRAW MERGE BIN MERGE W[A]▗▟ AND RETURN DATA LET LET jNOT ▟©▝ LIST STR$ ▜8[Q] NEXT [M]▖INT ERASE x@[H]![H][F] RUN L READ U*_/5 AND SCREEN$ _/[Q]USR LIST >=0g FOR j+ LINE INPUT STOP 8 RANDOMIZE 9@4 LLIST n▝STR$ ▘FN J CAT DATA }xUSR BORDER OR ▝<> IF ▞O< CLS SCREEN$ DIM ATTR $ LPRINT @Ly CONTINUE NOT BORDER ©?@50▗▖ COPY ▜ GO SUB FORMAT 1@PI LIST IF LPRINT [J]EXP AND AND SAVE POKE 8 STOP RANDOMIZE CAT ▚ MERGE OR <Ca▝ AND 9 RANDOMIZE 1 LOAD ▟J©~IN | READ RETURN ▝x[P]O~ COPY RETURN RETURN ▟ SAVE ▗0^*IN ? RUN FORMAT USR ▞ DRAW RANDOMIZE ▛ BORDER PI VERIFY gW RETURN COPY AND S`gV0[A] BEEP PI COPY 3FB[S] PLOT @ BIN MERGE :[O]RO>SbU[N]BIN COPY STR$ LPRINT LIST x<▙[B]& IF 7NOT 3TAB IN ?▜ LET COPY NH@▜O BORDER RUN VAL wpSTR$ LET RUN LPRINT LLIST [P] NEXT LEN ▛ POKE vq RETURN RUN LIST LPRINT ?^@n CAT ▗P[Q] LET PEEK ▝[S]:USR RESTORE IN [P]?©5z<x=y RETURN COPY SQR OPEN #8▖I GO SUB h RANDOMIZE <=ljoSTR$ `▗[O]▟[G]▘C.I▜SCREEN$ #qLN FLASH ( FLASH _&▗ STOP © CLEAR }= DEF FN ▝@NCBIN ©▛ IF CLEAR RETURN /PEEK >[M]©- RETURN ASN P>PEEK THEN [Q] DRAW SAVE B READ [P]▝JS[C] DRAW CLS POKE COPY RESTORE BIN [F]$U[U]% LIST RND!VAL$ USR $ COPY STOP CHR$ ▝ SAVE PLOT ▜USR J LPRINT ] DRAW RUN "R▖POINT ©# NEXT GO TO ATN wSTR$ RUN ▜o@c[M]▟W NEW BORDER G1SGN " SAVE STR$ IF ©x▞S LLIST D LOAD ET▘c BEEP D AND DIM ▙8zUSR xBIN CAT 'CODE ▘p` GO SUB < COPY E REM LIST LEN rpwtLq CLS LIST $~ REM ▘VAL LEN 5INKEY$LN BIN pX OR |JUSR %[R]▜ DRAW wMJIx OR ? LET H▝▖ TO FOR FORMAT ▗EXP 1 COPY ▜NOT [P]▝_STR$ ACS - COPY COS ▘SCREEN$ PAPER OVER ▛P RANDOMIZE !ATTR NOT {USR COPY SAVE [A]W LOAD l CLEAR ?© CAT VAL [O]<>▖ LIST |> BEEP ?~STR$ ~▚ COPY T> DRAW 8▗ RANDOMIZE LET LLIST STR$ ▘<= NEXT BIN CHR$ !▝}-sOCODE COPY [E]CODE Wp8$f MOVE OPEN #▝▜O LINE RETURN DRAW IF _ DATA LET RESTORE STR$ ▝[F]} SAVE TAB RETURN 0▜ CLEAR >=[SQR BRIGHT z<>8▝?[P]OQW CAT PI SAVE LIST GO TO LET LET CHR$ BEEP zNOT LET s▘ CLOSE #LEN ▚ RUN 4▗ LINE K COPY <=STR$ D@▗ CLEAR CLS RUN CODE LPRINT CHR$ ▝ NEXT ▜USR AND %&[E]F)* VERIFY DRAW AT PRINT !▗U{[Q]F[J]w<`_* COPY DRAW COPY o2▖IPOINT ▗CAH< COPY COPY EXP SCREEN$ @USR NOT ▝ COPY 1`M TO @ OVER LEN (1CODE IF Hh ~ LLIST x~USR [F] COPY EXP STR$ WX DRAW BIN * PH RANDOMIZE 1!3e VERIFY OUT 0Bf DRAW F# RETURN `@| STOP ABS [Q]HUSR @ STOP 1!) LET ' LPRINT POINT #yX STOP ! ERASE ^ BORDER ©1y OR Y▗ FLASH [F]E LET BIN <=8 RETURN 8▘NOT BE< LET DIM D.+i POKE STOP HSGN ;A(;@▜[T]>0O LET jE▝Fn▘ NEXT CAT E DEF FN COPY [J]B[B]USR V([Q] TAN FLASH SAVE NEXT PRINT OR MERGE RESTORE INVERSE INK CLEAR _ SAVE >!/[ THEN ^( PLOT NEXT [[K] GO SUB y STEP SGN REM COPY ©.: GO TO PAUSE LLIST MOVE STR$ LET INK VAL$ INVERSE SAVE CLS <>! COPY q BORDER ~-" DRAW ▚o&ASN ) COPY INPUT BIN CONTINUE CLS v NEXT CAT @ COPY IF :| PRINT Px PRINT ▗is RANDOMIZE DRAW CLS RETURN IF COPY PRINT CLEAR RETURN SCREEN$ [Q]IUSR LLIST LOAD iEXP LOAD RANDOMIZE LPRINT OPEN #2 COPY RETURN USR PRINT TINKEY$vUSR LIST USR <= NEW qASN BORDER LPRINT j RETURN FN STR$ G FOR POKE CLEAR DEF FN USR SAVE STEP ? NEW AND CODE ▟▙▖ IF E NEXT Z LPRINT ?USR U RETURN DRAW [Q]H> NEW ▚O IF PRINT INPUT STOP k IF INPUT ▝ LPRINT POKE tJUSR DRAW NEW LPRINT LPRINT [kINT LPRINT W MERGE LLIST O[Q] LPRINT © IF SAVE CLEAR UPhz RETURN ▘9 LPRINT `z LET VERIFY LPRINT o CONTINUE USR :8©USR SCREEN$ DRAW ABS L0 NEW CLS V LPRINT ] RANDOMIZE 2 RANDOMIZE LPRINT COPY REM CLEAR CHR$ {© PAPER j▗I LPRINT REM u LPRINT ©[Q] LPRINT POKE POKE dNOT IF } RETURN LIST s MOVE LPRINT 0[R][J] DRAW U DRAW ©STR$ LET LOAD LPRINT k'USR IF [Q]< LPRINT c[P] COPY LIST ©▘@h POKE ▖")USR FORMAT . CLEAR LPRINT RETURN ` LPRINT 0USR PAUSE Bu@P LPRINT [O]c/ DRAW CONTINUE COPY RETURN T[I]▜ PRINT USR /~n{4 NEXT 9LQ RESTORE LPRINT FORMAT POKE ASN USR CLEAR LPRINT ©B DRAW LPRINT CLS `U)JR MERGE [E][E]RND LPRINT J/ POKE K NEW STR$ IF K AND BIN DATA 6R< RUN k/s DRAW LPRINT _ CONTINUE FORMAT LPRINT © POKE LPRINT 2[N] LPRINT PEEK Q LPRINT ABS 1@ POKE JC DATA % SAVE FOR LPRINT c@j DIM ©5kL VERIFY LPRINT ▝ LPRINT >=[E] LPRINT USR c`i5C LPRINT |▛ SAVE A OVER DATA LPRINT CLOSE # REM LPRINT CONTINUE '4 LPRINT x LPRINT Ui STEP PAPER LS[Q] REM FN USR [Q]F( LPRINT P LPRINT &4 RUN x COPY LPRINT A/-H`U POKE PAUSE WzBIN 9 READ LPRINT `}2 LPRINT DRAW ? LPRINT a)@[A]SGN [S] LPRINT ▗ RETURN [J]b LPRINT U LPRINT NOT ASN [J]F` INVERSE © LPRINT @USR -D)[Q] LPRINT DATA RESTORE KUSR SCREEN$ [N] LPRINT y[S][T]USR A9`h LET USR DATA USR LAT [K]▝▝}USR ATTR CHR$ LPRINT p</[K] LPRINT LPRINT REM ={ GO SUB RESTORE hUSR READ E OUT LPRINT NEXT [K]@▘ LPRINT [C]@ LPRINT T LPRINT LPRINT CLEAR 0 RANDOMIZE PLOT LPRINT |{ OVER LET uPI[L]F NEW IF <[P] READ ©SIN TAN 2 LPRINT FN ▚ NEXT STR$ LPRINT PRINT LIST 7NEXP CLOSE #`USR 0[P]LF INK A_,[U] PRINT RETURN 4SCREEN$ READ ATTR LPRINT ©[A]GAT 8<>?EXP LIST x5CHR$ A[Q]SCREEN$ <> PRINT <>RU INK _( CLEAR MERGE AT COPY Zc BORDER PLOT x[B]AT RUN Ak[B]W LPRINT NOT mx COPY pINT STOP LPRINT fIN CHR$ READ RUN tNOT {@_LN ▖[T] REM PI DIM LPRINT ©AT INT ▛▞p9 POKE RETURN PLOT g[O]~ LET [I]P9X READ NEXT OUT SIN F GO TO s[Q]S LPRINT STEP [J]COS INK LPRINT EQD[G] OR F AND y[R]USR / DRAW PAPER I POKE LPRINT l READ STEP -ASN LPRINT DATA LPRINT : GO TO TO OUSR LPRINT ▝ LIST > PLOT f SAVE BRIGHT LPRINT LPRINT }^|DPEEK ABS COPY LET ` SAVE < RANDOMIZE TO PLOT LPRINT ▚ TO LIST ABS SAVE ▙E READ [B]DC COPY FOR SGN w_ LIST BEEP ERASE }USR IN SAVE `@ CLEAR ^[K] PLOT ATTR USR PEEK LPRINT ` TO LPRINT NEXT PAPER ` NEW IF V COPY CLEAR i BEEP LPRINT o LPRINT GO TO ▖ COPY OPEN # MERGE @ LPRINT COPY <X LPRINT E OR VAL LPRINT ` LPRINT 0 FOR LPRINT g+ COPY x`0 LIST TO STR$ X TO LPRINT a[Q] COPY COPY 5 COPY 7. LPRINT > COPY , COPY - SAVE ['© CLOSE # COPY 7%#r DATA !,5 NEW CIRCLE O READ CLS IF ~BIN LPRINT .%ABS 45 COPY PAPER LPRINT CHR$ GPEEK INT LPRINT %; NEW VAL > LIST LPRINT CLEAR [R]<= SAVE LPRINT r$ STOP { GO SUB SGN MOVE DATA PLOT ? COPY LPRINT READ [C] SAVE COPY f COPY ? RETURN LOAD 0 PAUSE COPY LPRINT READ COPY <= COPY ! DRAW POKE NOT m GO SUB NEXT RESTORE LET STOP ~2[P] INPUT q GO SUB #~ READ ~ "f LOAD /. LIST LET 9v LPRINT [P] PRINT [K] PRINT [M] LET RESTORE N#fi DEF FN b INPUT q CLEAR NEW FOR ,.e GO TO BORDER AND _ LLIST B^#Va RETURN FOR O CLS n LLIST [A] INPUT } COPY COPY CODE H!USR POKE w# DRAW `l9 SAVE RANDOMIZE A1 READ PAUSE MOVE PRINT RANDOMIZE /2 FLASH FOR LEN LN Z GO TO BRIGHT ©f NEW PRINT @[B] FLASH GO SUB !TAB POKE ,▗" DRAW a DRAW TO VAL$ PLEN ERASE CLEAR U GO SUB STEP b FOR ▟LS▞ BORDER SAVE LET >8` PAUSE "k STOP GO SUB CLS NOT ^^ FLASH s FOR RUN ▜0[Q] RESTORE RANDOMIZE #▙ DIM [S]▝CODE G LET 1 CAT RANDOMIZE LLIST ▚"PI GO SUB DRAW USR LIST '1 LET <>{▜_~~0Y< THEN o[U]( COPY NEW THEN Z RETURN COPY PRINT 2 AND POKE LET ~ NEW #ng INVERSE IN v▙SGN INVERSE }▚▜O CAT NEXT ! CLEAR PAUSE ~o THEN : GO SUB R PRINT ▟<>><(wOPOINT STR$ CLEAR FLASH y<PEEK BIN DRAW # ~2 LPRINT FOR STR$ zx_ FOR LIST ▝ INVERSE .&[N]< STEP FOR BEEP y POKE POKE BEEP SAVE IF H GO TO (& RESTORE > COPY >={PI PAUSE ' GO TO GO SUB DO]B0 LLIST H|AT 2 GO TO CODE [O]go": LLIST RESTORE 'Q POKE INVERSE |2<= POKE zASN 3q~ PLOT PAPER >= POKE ▝©cz▝_ GO TO ©<>▝` LIST MERGE ATTR ▝CHR$ ▝<=IN IF ▝INKEY$- MERGE ▝▗▝[E]SGN Z▝▛▝[N]=▝ POKE ▝!▝ACS wEXP IF ~<>~ COPY b{~ LLIST RETURN BEEP ~ STOP oABS ~BIN ~I GO SUB SAVE AND ~( GO SUB ~[A]©©▜D©hI LLIST ~ IF ~?SGN NEXT ~▛ BEEP } LINE POKE ! STEP LPRINT COPY IN COPY NOT Rk LPRINT G=BVAL R(/"CHR$ PAPER ASN RANDOMIZE FOR !ABS POKE 5 PAUSE RANDOMIZE 6[ OVER RETURN PI TO b FOR STEP 2 LOAD i[B]EXP BIN NOT STOP EXP ~PEEK STOP STEP V LIST SCREEN$ = BORDER {2/ INPUT BORDER IN o BORDER <> GO SUB BORDER ] LET [U][F] BORDER USR jX GO SUB y LINE d LPRINT FOR ABS ym[D]wJOp"INKEY$ READ FOR OUT 2 GO SUB EXP 4 INPUT U GO TO CLS DIM +P DIM GO SUB [S] REM INPUT POKE Z LIST NEW INK 2 INPUT jEXP OVER / OVER OPEN #CPOINT RESTORE PRINT OPEN #^^[R]©*▟_Ws[L]Z OUT ▗- OUT b OUT [L]PVAL$ VCHR$ BEEP DIM ▚^ DIM ERASE [L] FORMAT gVAL$ RESTORE [L]e LIST 2wATTR RESTORE NEXT [N] CIRCLE VAL$ -W CLS CHR$ OPEN #[D]Bm PRINT STEP POKE PRINT THEN [H] BEEP > OPEN #[K]/:*=([K][E]yQ GO TO FLASH 672iX<>,:O SAVE .y REM ( PAPER BORDER BRIGHT BEEP i DATA <>▜ COPY !ABS NEXT INPUT )# DRAW LET NOT 2 LOAD © CAT &o")PI' ERASE x PAUSE COPY B$ VERIFY K- GO TO GO TO LOAD VERIFY GO TO o[N][E] GO TO g READ RUN 2 RUN AT IN ABS POKE SAVE /▜ GO SUB LIST AND 8+"[B]`[U]Dg DRAW 1[E]H@ DATA 1 NEXT SAVE ▙<(v CLEAR [K] CLEAR VAL [M]v LINE x[G] POKE [A] CAT (%3▜x[T] NEXT b" RESTORE GO SUB wj RANDOMIZE LIST PAPER UK FOR 7>[M] NEW LDo▘ POKE PISQR PAUSE 1PE( RETURN PAPER + LIST RUN >>=D GO TO [J] INPUT _ LIST r[K] CLS STOP ▚[G]][P]ABS ▛▗: DRAW = LINE BRIGHT LOAD y2ECHR$ OUT j@[T]wPEEK M BRIGHT P BORDER ▗[H]< BRIGHT REM ( INK BORDER FLASH OVER DATA BRIGHT [R] BRIGHT a LET ASN V LIST FOR y CAT BRIGHT ▙[L]} LIST # LIST m▞ DEF FN RUN BRIGHT {/ GO TO 7 GO TO OUT FOR BRIGHT ~^Z BRIGHT /IN COS OR BRIGHT PEEK POKE RND)<= OR BRIGHT x[A] DIM COPY BRIGHT J RESTORE /4w LIST qMATTR PAPER g FOR 8/7 BRIGHT D} READ POKE BRIGHT ©zWE/[O] BRIGHT GO TO OR CLS BRIGHT STOP [D] BORDER BRIGHT ABS :CODE GO SUB RUN CLS (p OVER 6NOT LET N[R]/: RUN = LINE READ m PLOT y!TAN LN $[ LLIST <>i CAT PLOT GO SUB CAT [M]- LET ▜D GO SUB * GO TO o&LN x GO TO A GO TO CLOSE # RUN PLOT [U] READ [J][ GO TO RANDOMIZE IN POKE PEEK W CAT RANDOMIZE &KPOINT RANDOMIZE J DRAW ,y OUT RANDOMIZE g<(/SQR [I] CLEAR [S] CLEAR COS STEP RETURN ^z CLOSE #($ DRAW } LET [E]TAB LIST BORDER rK OPEN # GO TO > COPY g<>>= CLEAR OR Z% CLOSE # NEXT LPRINT INK LOAD RANDOMIZE SAVE VERIFY RUN U©LEN DIM CHR$ SAVE VERIFY ! LINE POKE ] DRAW NOT PAUSE B GO SUB yCATTR =[F]Z RANDOMIZE LET PLOT CAT 9<>CHR$ h PAUSE >NOT }SGN 9[A]*<> POKE PLOT i DIM e LOAD a* TO PLOT POKE CODE RANDOMIZE } NEW 6g THEN <TAN O0 RANDOMIZE PRINT <> REM y>[L]j DEF FN OR DEF FN am▙ CIRCLE <=*NOT RESTORE o LOAD > INPUT CHR$ <CODE ATTR >!STR$ L PAUSE ABS MOVE 8PEEK IN ▟IN RUN GO SUB / INPUT GO TO ▚7 PAUSE W INPUT 4U BEEP Z7PEEK LET CIRCLE (▖ LIST `7 LPRINT X`L| READ AND VAL @[T]q GO TO [E]D[T]q SAVE VAL p READ F, CLEAR PEEK ▟F▗X▟ PLOT LINE 4[S]|X MOVE h8 MOVE LN SAVE OUT CHR$ F[T]AT [A]▟{eQ▟1▖,7 DRAW 4 LOAD LLIST VERIFY MOVE h>=ABS SCREEN$ SIN r[P]F[T][G]▙▟~wh4pk[T] MOVE d^▟FYT4OKG MOVE hB?1SCREEN$ ;ASN 5F[T]2/▟,*'j4%#h TO E[T] MOVE ▟F▟Qj▟Zoe STOP LIST O COPY POKE PEEK PAPER INK SCREEN$ : LET TO CAT Q LET <=C NEXT LLIST q LIST PAUSE ;ZM8N LIST LET PAUSE 4 INK CIRCLE LIST Q OPEN # LET PAUSE IF OUT LET STOP LIST LIST LET i PAUSE LIST # LLIST LET G BRIGHT LIST LLIST THEN # LET LIST 9M MOVE BIN LET [P]F LIST MOVE >- LET LIST LET % ERASE LET COPY COPY COPY New SoundTrack STR$ Plyer©▚B PLOT HANTOMF[P]ILY'19▟ AND 6 LET DRAW POKE OUT RETURN COPY IF ( MOVE 8-SF[T]©[P] MERGE / POKE RETURN EXP [I] RETURN PAUSE F READ RETURN INPUT COPY LET PRINT COPY LEN RANDOMIZE CIRCLE [H]HEI GONACHf▚IP▝XpYBIN E[RU[H]/ RESTORE .- BORDER RETURN RETURN BRIGHT x) COPY DIM PRINT PAUSE w PLOT { AND h▝ SAVE MERGE 8% REM IF D RUN ▞j<= IF SAVE IF an[T]9 RANDOMIZE c4 INK POKE READ AND m IF CODE C CLS [J] IF TO DRAW H▞ IF X[N] IF OUT P[L]% CLEAR IF gF[T]POINT LOAD F READ 8 RETURN z[K] COPY ]p! LLIST ©`INKEY$STR$ NEW bBIN LEN VAL$ ▗@[R]POINT SAVE POKE VAL$ ▚ POKE LPRINT AT READ GO TO GO TO ! POKE VAL POKE SAVE Z8 GO TO POKE CHR$ © GO TO POKE CIRCLE LN Z POKE LN SCREEN$ AT LET POKE ,pCOS POKE _[M]( LPRINT "p/B!sjFN STOP M CLS DRAW LLIST C PLOT STEP W BORDER ▘VAL$ VAL 5cqCOS SAVE M[H] DATA LLIST LIST z8RND CONTINUE ; TO LEN ATTR INKEY$# IF [G][D]! DIM !L[C]VAL$ ▞▗hD# REM GO SUB LOAD M PRINT OUT RESTORE AT RESTORE POINT ▝^"SIN e$▗ LPRINT BRIGHT nFN a}INKEY$ OPEN #4RNDINKEY$ SAVE CL GO TO INPUT /▞FN TAN OPEN # SAVE INPUT ?D STOP [T]BIN TAN CODE SAVE INPUT *[B]8SCREEN$ 0-ACS SAVE INPUT + LET 'VAL$ HLEN POKE ▞ LPRINT .H[T]''2▗[B]LEN 1 LLIST PRINT COS !K5 DRAW INVERSE D LIST RND NEW INVERSE AT RANDOMIZE E STOP SGN ASN SGN ▛1 CLS IF !A MOVE MOVE - RANDOMIZE ACS GO SUB 4▘ LLIST LLIST NEXT CLEAR LN CAT K POKE STOP VAL ABS NEW h? CAT BORDER ▟ INPUT EXP a STOP CLEAR [N][S]RNDPOINT VAL$ LEN RANDOMIZE FLASH DATA RANDOMIZE ") BORDER [C] DATA :VAL$ < PAPER ~`(LEN AT POINT RND[S][Q][N]J2 LLIST AT INK LPRINT % LIST LET [N] IF COPY b CAT w=[K]_[H][K] STOP ]PEEK [K]©^ THEN PAUSE j[O]<> LIST LN OPEN #[T]Zh MOVE [H] FOR POKE ERASE TAN LLIST POKE CAT NEXT > FLASH LINE IN DEF FN UNOT 8 INPUT TO COPY INT COPY ? INPUT COPY 0INT INPUT [A] DRAW INT INPUT &D STOP AT lTAN LN SAVE CONTINUE SAVE GO SUB = POKE {g*[B] PLOT [N] AND SQR DRAW ASN LN INT DIM y[O][K] LIST SCREEN$ LIST ACS LIST NEXT m LIST SCREEN$ L RETURN LPRINT [L] LIST PIC FORMAT LIST COS LIST LIST READ ,PI LIST 1 BEEP [E] POKE LN POKE [J] RUN READ [H] FORMAT mINKEY$[m,[O]u&m.,W▝*t▚ OUT ▝ u INK x< GO SUB /c>SGN SGN BIN BORDER x NEXT CLS GxSQR LET xPEEK px RUN OVER _x[O]G LET POKE [S][H] LET xPEEK : CLS h CLS 4p CLOSE #CODE /PEEK PTAN RUN LINE : LLIST ▛F LLIST LINE /s DIM ATN INPUT .B LOAD [A][M] LLIST [O][E] SAVE SAVE SAVE ▛[H]( LET [U] SAVE SAVE SAVE [C][O]RND@ SAVE ' SAVE SAVE ▟[J]4 SAVE LPRINT AT g COPY LIST VAL X LOAD LOAD LOAD [E]NOT 1/ POKE LN w~ POKE RRCODE SAVE LPRINT p" OVER NOT IF AND D$INKEY$ [T]'Up# RESTORE LIST :[M] [L]t PAUSE 3 NEXT POKE CLEAR NEW CLEAR CIRCLE CLEAR 3▛>=FN CLEAR ▞ RUN mY) COPY q CAT LIST @ LPRINT _ DRAW FORMAT USR $STR$ ,@4LEN RETURN <[R]USR V[C]BINT [J] CLEAR p CLEAR ` CLEAR P.▚EXP RETURN LIST RND FORMAT SAVE CLEAR VAL AND >= CLEAR [Q] CLEAR & LLIST IF CODE IF CLEAR [T]▞ IF POKE CLEAR BEEP RUN [S] CLOSE # CLEAR CLEAR CONTINUE h IF CLOSE # IF CLEAR IF LET [C] POKE USR LPRINT [G]" LPRINT RUN [S]4▞ IF LPRINT IF CLEAR JE IF POKE TAB LIST [A] INVERSE NEW IF AND M[E] NEW POKE IF POKE LLIST NOT 2SGN [E]USR kiBIN DRAW IN [B]0>< RETURN © IF 2 FLASH 0CODE IF ![I] OVER ~ATN DRAW k RANDOMIZE #" FLASH o&)[O] SAVE COPY [I] PAPER [A] FLASH GO SUB [Q][J] COPY RETURN INVERSE !<= GO TO :R}v LET INVERSE THEN &-LEN ?> CLEAR o$ INVERSE #ASN <>N7%` COPY DRAW SAVE (Ph' SAVE RETURN MOVE RUN LOAD AT RANDOMIZE CIRCLE FN j▗ RUN [Q] OVER LET OUT @[S]%>=USR COPY >= CLS rD COPY INPUT LIST LET CODE @ LPRINT POKE POKE RND VERIFY ▟ POKE CONTINUE COPY 2w LIST 0 FORMAT p CIRCLE COPY C" SAVE 0ASN COPY PAPER F INPUT pUSR SAVE SAVE 0USR h DEF FN STOP x2 SAVE SAVE USR INPUT MOVE LIST STOP 4 LINE FORMAT SAVE USR ▖CHR$ QUSR RETURN SAVE CIRCLE 8 STOP [O]▜ ERASE SAVE [H]X4CHR$ LIST %Z FLASH INK ▗ PAUSE -BIN p[Q]^1 LPRINT x SAVE D MOVE [S] RETURN [Q] SAVE x(O` LIST OPEN #8h SAVE iGH SAVE CIRCLE >=CODE ▘INKEY$<>>=▖FA LPRINT S# INPUT p LINE RESTORE ▖ CONTINUE EXP LN P INK [Q] SAVE SAVE oSGN CODE SAVE FORMAT hFN LIST LPRINT USR INKEY$q0FN x[K]X<> ERASE FN P0>=; SAVE ` REM | READ VAL CIRCLE NEXT STOP FORMAT CONTINUE ^Hx LLIST COPY ▟7 LIST LIST CONTINUE [J] THEN xLN USR VAL CONTINUE CLEAR COPY LLIST BORDER 8 BORDER y[Q]R▛▖p FORMAT LIST 1y^ BORDER 3 DEF FN 0 DRAW TAN Ep LIST COPY 5 STOP CONTINUE LN O/ SAVE SAVE REM OR x▖ CAT RUN CIRCLE SAVE SGN FORMAT = OUT DIM [O] CIRCLE CLEAR [P]w LPRINT LIST IF yz p LOAD READ (▖X PAPER SAVE TO LIST POKE w©>= POKE GO SUB SGN /TR LOAD CONTINUE COPY FN Z LIST ( LOAD K AND [Q]TAN [U][Q] 8[O] COPY PRES@Q<: LIST ACE>FOR▙@STLODING LIST SGN ' LOAD $} CIRCLE ANYTH CONTINUE , OUT ▘# PAPER EN%0<>r GO TO US POKE [B] OUT D VERIFY BIN INK MOVE BASN STR$ SQR SC/OL. COPY 5▟ COPY CIRCLE [F]HE VERIFY H CLEAR [O]G RANDOMIZE T CIRCLE X 4Lh[B]U TO PID[F]NOT SAVE COS { DIM INK .9N©CI BRIGHT }▟p<=TOW PLOT ! IF NEXT TAN VIRTUAL▗ SAVE ~TLEN INT j<>q([PEEK C>=d|P▜ OPEN #H THEN [C]▞mMY5XRR FORMAT ? LIST REM P&g RUN Y CAT 'V RANDOMIZE -KQGA COPY r.)BIN ▞[Q]1VAL USR LINE D'Y BORDER ~NOT POKE SAVE ▖iSCREEN$ TAN DATA uE'M>=[C] BEEP GO TO OF THEN x' BEEP MOVE [C]jMO9▖SIN |PLPOINT %[S]w[E]L[M][D]TS LPRINT T' OVER QUCODE RANDOMIZE CLS PEEK %DPIr OPEN #ASN [U]KCYBASN P[G]$U PAUSE OVER CLS OVER IINKEY$E<>O NEW IF [E]<[Q]▞'ADOa LPRINT ▚[I]G[C] PLOT FLASH [I]4&RNDxGZ PAUSE LINE LN E[E][U]ATN LET LIST LIST KL<>{[J]!INKEY$FL< LINE YH NEXT [J] FLASH POKE INVERSE FU STOP TAN *W.▟qCK|I[H]TAN DRAW ▜J[S]PEEK PEEK A//=BIN 7m+AP▗TAB CLEAR FORMAT POKE NEXT SGN 13 BEEP SGN POKE INK LEN PAUSE CLOSE #;4 FORMAT OFTSIN /[M] DATA DATA 52y%k DIM F BORDER wPEEK >=[U][B] TO ASN G/ INPUT DEF FN VAL NOT sAMR.Zo[D]& RANDOMIZE <=C[A] PRINT p MOVE ^SCHR$ FUI-Wu"R4 LINE s#(KVAZ[G]8 PAPER ©[H] SAVE BIN y[F]~z▝5ABS FLASH IN |[L]AC3POIN OVER THEN AND }M.OBIN CtSIN SPY$1CODE DJ[H] VERIFY [F] PAPER [h-[P];-|#PISCREEN$ [E]ZSGN [[H]▛B MERGE 2r DEF FN %MEG[M]OD DIM 9 LPRINT ZXPASN $$ NEXT ▗' MOVE |KO FORMAT Rr OPEN # POKE LN c NEW z*SVLQLN mA<= BEEP uPLTSCREEN$ [L] INVERSE STOP GxNSGN OPEN #TAN VAL I DRAW OUT P PAUSE f[A]NOT GDU OVER Zy_ COPY CONTINUE HPEEK g RESTORE GSGN OVER !^PIINKEY$[P]KVAL$ ASN B GO TO LLIST NOT u FORMAT FOR C@[A]TAYGE] OPEN #SCREEN$ (MJ STEP +▟ GO SUB REM ?4NPIW[ BORDER ©G OPEN # FOR jBVAL qyVAL AT ^IN INK SAVE LIST MOVE "ZHXvIN COPY NEW COPY COPY DA AND SCREEN$ :10.[M]▛398▞C)▛ NEXT RUN p[H]ASN R REM ATTR BEEP [K]DwRACS >=^RNDvHLN RANDOMIZE {/3N LINE E" CAT #.Q(KOV3 STOP SGN RESTORE CLEAR INVERSE SGN Y[H]ACS { COPY [J]ro(P-NOT LS| THEN INT D-CIN [SGN [F] BORDER MERGE W▗SIN ,T RUN ; DRAW SCREEN$ INVERSE aP DIM RND INVERSE [B[F]$ POKE PRINT 7( TO Z[U] NEXT FOR 1^ BEEP [O] RESTORE Gt OVER 7▞▝L DEF FN B[H] LOAD BEEP <>▞g PRINT BU LPRINT %[R[Q] CLS DATA n PAPER RND RESTORE @WASN [E]-PIIABS ▝AABS MERGE INPUT -PI$INT ©' CLEAR ]JATTR ODAFUK OUT t FOR COPY '[S]%=P)9R[T]y RESTORE L INPUT YA9 BRIGHT <= FLASH [E]+SQR IN .E3[K]{!Y IF m TO mT COPY OHINT MERGE iG[L]n DRAW LLIST u GO SUB ▞TI=oEXP ATN [B][N] INPUT TAN [H]▞ CLS ?jRND BORDER ERASE ID!zTS STOP SGN PAUSE -{▖7>=[A] LINE ▘a OR PLN TAN INPUT yNOT 8HRUM v3.5 by Dmitry PyankovTel.(38822)-4421-1.Bye!!! Gorno-Altaisk, 09.01.97▝ STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP NEXT GO SUB s?`! OPEN #_@w MERGE GO SUB VAL TAN _ INK ! OUT VAL$ RETURN COPY [G]N<> GO SUB LN 1iLEN STR$ LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE INK ) LLIST A0 SAVE INK (g; LET o GO SUB VAL TAN ; LET PI CLOSE # INK !r@X' INK 1 NEXT <> OR OR NOT AND _©` OR [J][I] CLEAR [M] CLEAR a SAVE ▛CODE 2 INVERSE RND> RUN INPUT a CLS LOAD PAPER a CLS LIST v[I] PLOT LET CLS PAUSE ZTAB PLOT NEXT STOP POKE s[I] PLOT PRINT CLS PLOT CLS MERGE VATTR BIN RANDOMIZE GO TO IF INKEY$ PLOT CLS CLS DRAW VATTR PLOT CLEAR BIN RETURN iTAB PLOT COPY VAL INKEY$ PLOT M& CLS DEF FN CLS BIN ▜POINT PLOT CLS OUT CLOSE #& CLS DEF FN PLOT ▜[J] CLS INT CLS CLS aj PLOT CLS CLEAR [I] PAPER PLOT CLS ©mr CLS INT BIN ?><> RETURN ( SAVE . GO SUB xRND>= THEN O BRIGHT m( PRINT zATN [P] SAVE GO SUB <>v CLEAR =o& COPY )COS `~ INVERSE w#<=; RANDOMIZE <>©4 BRIGHT hIN MOVE hq[T] OUT F[T] AND ▟ LOAD ▟7 RUN h4h BRIGHT CLS [T] MOVE 4f CLEAR POINT AND h▜h4IN MOVE STEP ©`z LPRINT COPY PI( RANDOMIZE <>G:INKEY$LN LINE <a/ OVER RANDOMIZE ▛ RANDOMIZE RANDOMIZE CAT OR RANDOMIZE RANDOMIZE ! OUT RND PAPER THEN [O]<> IF OVER STOP COPY LLIST #. COPY COPY /01(-,+*)!LEN DRAW "$ BRIGHT [E] COPY I COPY +:A;5 DRAW C STEP s COPY LET CLEAR /ASN ) LET * LET 42 COPY ▖PI10 LET =<A>o SAVE COPY LET Ap LIST COPY LET ? PAPER LIST @[A] NEW COPY "#$ LET %BIN !RND BRIGHT COPY &BIN N" DRAW LET COPY INKEY$ CLEAR SIN LN [E])▜, NEW MOVE zCHR$ LET } DIM >= LET DATA LET cABS LET PIATTR x CAT COS LET OVER NEXT LET FN AT CODE TAN LET OPEN #> LET POINT TAB VAL ASN EXP AT = AND LET SCREEN$ VAL$ ACS ▜ LLIST [M] COPY <= DIM DRAW :[S] DRAW GO SUB DRAW SAVE LET ^n CIRCLE ▜E OPEN #CODE R LET 7PEEK DIM LET [A]7 LET ATTR [B]ATTR STEP PLOT GO TO GO SUB LET [C] RANDOMIZE NEW LET INPUT LOAD STOP LIST CLEAR R IF RETURN DRAW CLEAR ▛]~Oi LET ' CLS PEEK DRAW ▝▘ CIRCLE DIM <> INK ▞ COPY PLOT INT IN SGN POINT =4G DRAW D COPY IF SQR USR ABS IF DIM ^/| COPY LET [E]M POKE INPUT [E] DRAW DATA T THEN LET ▚ LET © DRAW LET BORDER d DRAW LLIST [E] COPY LET PI[D] COPY ABS [O][Q]▝ RUN # OPEN # PRINT OR [K] DRAW LET [H]C DRAW :▗ READ GO TO GO SUB DRAW ▖NOT INPUT LOAD -~▖o1[L] ▙▗VAL$ [P]u COPY & RESTORE }▗[D]~ CLEAR G DRAW CLEAR D CAT GO TO / CLEAR EhNOT RETURN COPY CPEEK RND▝ INK ▖ GO SUB ATTR ▝[O][J]^ LIST [T][U][Q]▜ AND p LET CLOSE #[K] LOAD ATTR |[K]AT RANDOMIZE ▞x DRAW LET ▛ BRIGHT i[A] CAT TAN hNOT RUN [K][C] CLS TAN TAN 1[E] LET NEXT TAN TAN [D] LET POKE LN TAN BIN PAPER RANDOMIZE COPY ▗E DATA >=yBIN TAN i<>[Q]BIN LOAD TAN LET AND PIBIN [H]q@ DRAW RANDOMIZE LET [E] LET NOT SGN BEEP .]/|NOT K/.SQR BIN GO SUB ▟NOT . REM DIM BIN COPY PRINT POKE BIN COPY LET ~@ INVERSE ▜ COPY BEEP yQ NEXT ^ BORDER Q RUN z8▛ REM STEP NOT (<=] COPY CODE M[N]( COPY ▟[E]w BRIGHT PEEK ~/( STOP RETURN q[Q] DEF FN v[D]iEXP [C]▗ PLOT <= LET [C]z| PLOT [B]rz BORDER [B] LET BRIGHT BORDER w COPY ▟©OZ CAT ©[B] CIRCLE qINKEY$▘[K]ATN IF LET RESTORE RETURN PAUSE LLIST TAB REM [I]xxVAL$ LET INK PEEK [K]BIN PAPER CLS jPOINT @ OR ]n PAPER m▛ LPRINT ATN IN CLS [R]©yPOINT ▗}Y%<= BEEP CIRCLE [A] LLIST CLEAR BEEP w|CHR$ NOT ▜[P][L] LET /[O][L]r<O LET [L]; LET STOP RND CLEAR LEN ATN COPY NOT OPEN # RUN NEXT ▟ COPY CAT OVER OPEN #o LET 4▙[K] CLS LET NOT READ [K][F]<NBIN [K] COPY ?[F]x?HCODE RUN MERGE ; OVER POINT OPEN #CODE RANDOMIZE LET NOT SGN GO TO LET ]SGN [R]COS BORDER MERGE ▛ LIST BORDER STOP PRINT FOR , CLS ▙ ERASE ERASE READ CAT [M]_PEEK #(POINT DRAW LET POINT [G] LET , LET OPEN #r LET ,9O STOP [H]j, LET [K]▚BIN RND_SGN LET BIN .+ CONTINUE LET STOP MERGE UBIN o CLEAR LET () NEXT 0 TO /VAL THEN <VAL NEXT NEW COPY OPEN #NOT INPUT %iSTR$ OPEN #91v IF INKEY$ PRINT OVER DATA o BORDER [K]u COPY oIN SAVE COPY ▙AT RETURN $ SAVE FORMAT _/]^PEEK K LET 8b`B{INT # MOVE DATA INPUT 8ca LET CHR$ KLN LET D INPUT 8dz LET JzABS ASN NEW SAVE LET VAL$ OUT d[Q] LOAD [K]-~ PLOT LET ▛<= PLOT CLS s THEN CLS PLOT DATA DRAW NOT <>? STOP @ LET # DEF FN @<> READ DRAW @ CLEAR LN COPY FOR SSGN READ POINT RETURN & CLEAR LET STOP BRIGHT EINT POKE LET 7PEEK [H] LET D^o RANDOMIZE 7^LN Q LLIST u7▛[H] RANDOMIZE jATN COPY / PRINT LET "[M] OUT &qc[K] LET ▝▘rINT LET LET LET F CLOSE #ABS [M]PI LET X INVERSE PAUSE RUN OPEN # LET =▙ LET SAVE NEXT ▟ LET PEEK INVERSE OPEN # INVERSE NOT x FLASH ABS >= CAT RETURN MERGE COPY PRINT IF $▛ LET FLASH ▜6/▝'LEN DRAW R FOR DIM PEEK K FLASH >= LET ACS CAT RANDOMIZE >= NEXT ERASE LET RANDOMIZE FLASH ▙[~ STOP OPEN #[▖/ MOVE { PRINT CLS [S]▛▖CHR$ w BRIGHT GVAL$ LN d[ BRIGHT SAVE @ LET [T] INPUT [ LET 8VAL$ sSQR ERASE BIN REM NEXT MBIN [P] FLASH tD BEEP SQR REM DATA /PEEK DIM CLS zC READ STEP @ NEXT SIN ! PAPER FN LET SQR AT DATA !<VAL$ 4 THEN !:ABS INVERSE @; PAPER nzSGN o@ TO TAN ]▞@uG@ CLEAR [g DRAW COPY n[K]{ NEXT +oM$ OPEN #INKEY$w.- LET 79RNDBIN CLEAR 1LN M CONTINUE ;6 STEP /▘ CLEAR COS SGN q VERIFY u RUN sSTR$ POINT ©SGN [K]q▗ LET 9 LET INPUT = BORDER OR LET o DIM PI OPEN # POKE ATTR ▝ OPEN # DRAW MERGE RETURN i OPEN #[U] AND INKEY$POINT m[O] LET COS [H] RANDOMIZE r BORDER ▜ STOP ACS YW[F][I][P] STOP ATN yS▚7 NEW S▟▜ COPY S[P] LOAD a COPY [K]w{ LET ABS }ABS POKE ntABS REM INVERSE [O]ABS INK <= REM [G]{[G]w RETURN U8 CLEAR u LLIST LET <=POINT LET rABS % LET LPRINT FN READ LET VAL & LET W7 GO TO & CAT POKE W4 GO TO [D]o PLOT W PLOT INT POKE FOR lWpSGN INPUT | LPRINT VAL RUN z|EXP VAL mxx[A]<=p] LET m LET LIST SGN SAVE NEXT 7[C] LET IN LIST @ RANDOMIZE x MOVE LET STOP ~ OPEN # STOP RANDOMIZE LET [P][O] RUN [H]m[P] RANDOMIZE 1[P] RUN 9 PLOT <= STOP ▛ INVERSE [H]o[A]+ DEF FN [B]E STOP BORDER COPY LET [H] STOP LET LLIST [P] LET LET my LET SAVE COPY CLEAR CLOSE #[J] <>▛][C] DEF FN ▘^D BRIGHT RETURN kA LET H+ NEW RETURN ▝[D] POKE DATA Q OVER y▛ RUN SGN RESTORE m LLIST y OR DATA LET 4ASN [F]▟▚v LET Q OVER THEN IN 6/ INPUT THEN ! REM IN LET GO SUB ~ ERASE THEN CLEAR uSTR$ IF F DIM 2o RUN NEXT =0▖ NEW DIM ;©▖ ERASE : COPY OPEN # POKE READ POINT LET W NEXT SAVE SIN <= LET <=© RANDOMIZE OPEN #/s@ LET t COPY VERIFY LET PAUSE | COPY ▙d LET Z? COPY STOP y%? COPY VERIFY y▙OW[N]qlu CLS D}/l CLS [U]▜4 CLS ▚©[E] COPY <=[P][D] COPY LLIST ▜[B] COPY LET PI[D] COPY o[M]RNDSGN Do@Z GO SUB q@<=]fV PAUSE vxz MERGE ▟ NEXT PAUSE ▝7 CLEAR ▟ THEN BEEP READ ©eATN 2 RESTORE Se[T] CLOSE #PEEK LOAD DATA m OUT GO TO DIM [ GO TO pASN YG PLOT RANDOMIZE tCOS GO SUB Y&IN PRINT ASN SAVE *6ASN EXP INVERSE ' BRIGHT AND }▙[K] RANDOMIZE RESTORE w BRIGHT Oyw FOR ▚Em INVERSE qm NEXT SGN PEEK BIN m^ GO TO OR PLOT ym LLIST Sa RETURN b STEP RANDOMIZE @[E][C] BORDER POINT LET VERIFY [K][K] GO SUB ASN PRINT G LET PRINT © TO ©[H] DIM ~ FORMAT ASN DATA qtq PAPER DIM LET OVER NEW q LIST . BEEP |▝[D][O] OPEN #.X LET INVERSE mPIX▘SQR ^ DATA [L]TAB eX6 STEP (| LOAD INVERSE PAUSE TAB FORMAT LET SAVE NEXT TAB LET = PAPER ▖ DEF FN PAPER P GO TO [G] COPY STOP CLS CODE CLS GO TO ▛ NEXT 4▛ COPY DEF FN READ PEEK [L]@ OUT OVER [L]▜ GO TO CLEAR .INT NLN ▛CHR$ @IN CONTINUE N OPEN #< CAT CLS NOT STR$ U REM J|SGN >=|KN LET TO THEN [B]LO LET LET ABS CONTINUE DIM REM FOR STEP CLS GO TO GO SUB ▛ RETURN ▜6= CLEAR ▜ READ FOR LEN ▜ READ COPY |COS DRAW * PAUSE 24 THEN o/ACS `"SQR = LET ` FORMAT n[Q] GO SUB [A]PI MOVE I DATA BEEP BRIGHT G OUT REM SQR y}i OPEN #[A]* PAUSE . LET FOR [J]- REM < LET F}<> RANDOMIZE o LET COPY =*[Q]- STOP }CODE GTAB STOP {xt[D] INPUT BORDER RUN LET PI OUT GD^[M] LET RETURN SACS FORMAT x#]^ OVER 4▙g[B]D BRIGHT ^ PAPER BRIGHT [ VERIFY [Q]C LET PRINT NEW FLASH FORMAT x OVER W FLASH LET ▝N LLIST LET READ SAVE yxx LET COPY _d LET x LOAD POINT CODE ACS LET STOP n RUN POKE STOP FN USR TAB NEXT NFN READ sUSR CODE RUN ?_FN USR SAVE CLEAR USR RANDOMIZE a DIM [I]<=[K]SGN ©SGN v▛ GO TO [H] LET 1vy STOP ▛y[M]▝ LET LLIST w▛ LET MOVE RESTORE ▛ LET ^ RESTORE J POKE ]▛ PLOT [Q] LOAD [P]7| RUN | RETURN ATN IN 4ABS LET LET ▛ PLOT ATTR DATA LN q LET qx[R] LET GSGN @m[K]o INVERSE ,[H] INVERSE LPRINT TO NEW MERGE ]$1 LLIST L LET 6 VERIFY GD BEEP LPRINT m REM D]~ DRAW ACS ?eVAL ▛ DRAW .ASN VERIFY GO TO GO SUB BEEP ?h[R]F FLASH INPUT LOAD 'USR PEEK POKE PAUSE ATTR 7U,CODE 5 LET COPY POINT DRAW xBIN COPY READ LN RUN NOT W REM j[P] LOAD ;▚z▖ACS ▘M LET INT RUN zO[T]M LET U4LN [B]yM LET OPEN #[S]LN H LET ; INPUT POINT REM q>= INVERSE RESTORE CODE ▗4om DATA FN COPY [R]>= LET ^COS STOP z FOR CIRCLE ▖▗ STEP EXP [K] STOP XE CLOSE # STOP DIM [J]INKEY$y LET DRAW [H]▙SQR RUN PAPER _ATN }]FMPEEK _ OVER PI. DATA INPUT _SCREEN$ ATN STEP KwIN 92VAL$ k LET ;8 DEF FN nn[A]LEN OVER BIN HKnM OPEN #[B]# RUN };n▘ DRAW READ m]4 CAT PEEK ATTR * INPUT ]{[R] MOVE COPY BIN [H]PIsJ~sVAL$ OR INVERSE LN USR THEN IN F PLOT [L]n< DRAW >=g COPY QSQR S[O] COPY ▖TAN PINT [B]f2 DRAW BEEP [V INPUT [H]1& STOP DATA [Z|D-C LET LIST CONTINUE OVER BIN LOAD TAN t STEP NEXT BIN 9>X DRAW ([N]BIN i MOVE TAN SAVE BIN *PEEK Fd PAUSE [F]&o?"o DRAW LET ▟ BRIGHT ACS LET [H]©jv_ BRIGHT LIST [S] LET wATN RUN F*/▝[D]< OVER @ NEXT SQR Q@PI7V^ RUN OPEN #[F] RANDOMIZE vnBIN y BRIGHT V MERGE BORDER ▟^- COPY BIN ▝▜u STEP Nz INPUT ATTR [P]IN i>=2 COPY 10▜O= COPY SGN MERGE [K]A< COPY [P] CLEAR ?A| LOAD @"#$,P=%[T] NEXT K&o CLOSE #, LET ABS SIN . GO TO GO SUB 9[Q] LIST F LET M OVER ~ INPUT LOAD u% FLASH LET 7©PEEK [I]/[H]a DEF FN y9[K]▚ LLIST GO SUB [K] LET INPUT PRINT RANDOMIZE q|PI BEEP DATA LET x[H]-<=/BIN oINKEY$ BRIGHT xCHR$ SIN SCREEN$ IBIN [E]INKEY$ CLEAR SIN <>!BIN CHR$ OPEN #[D] OPEN # DRAW FOR ,7 REM FN LET ▜CODE VAL DRAW LET 4▖% RETURN COPY OVER COPY A> LLIST RANDOMIZE LIST COPY [I] LOAD PAUSE LLIST LOAD COPY @ COPY 4ABS ASN !ASN CLS INPUT 3 STOP SGN [J]POINT PAUSE ERASE LET RUN OR READ LET LET [ LET !▙NOT (< LET }▞ READ ▘ CLS [U] LET ▙ IF p~ DRAW |ABS ASN ▘}/W LET NEW ©2[O] LOAD RUN LET 0 DIM [O] INPUT [O] RUN IF STR$ READ [H]ATN LET BIN 0 {ABS RUN INVERSE 7[E]<={ RUN ! OVER ▗ FORMAT / RETURN NEXT %a REM a COPY TeINT BSGN COS IF 9ASN RESTORE +ATTR ASN jATN ATTR [U]ABS = FOR }[D]$ RUN E CLS _VAL$ $k=e▜▙NOT ©ABS MERGE ACS ,▟▜.E PLOT [P]▜SQR ;+ LOAD EXP 9NOT QTAB SIN TAN ▞ CLS o BEEP ▜C()ASN COPY Y LOAD >=VAL$ LOAD > LOAD =TAN CAT DATA EXP LLIST J]!▟ COPY LOAD .[D] CONTINUE ;5 FLASH 5H LET 5 NEW q[D] LET K GO TO COPY © CLEAR ;F[B] IF COPY FORMAT LOAD @P RETURN LIST USR RANDOMIZE PI`_ DRAW JVU MOVE LN BRIGHT * DATA @POINT E DIM O BRIGHT ;DJ[E] DRAW ▖▞▗Uv LIST _ COPY BRIGHT CLEAR uo▝ DATA [E]▝ RANDOMIZE ▖USCREEN$ DRAW O[E]6H COPY CLEAR : BORDER BRIGHT IF IN DRAW [Q]H DRAW SCREEN$ RND COPY "▙ LOAD ERASE DEF FN DEF FN CLOSE #RND BRIGHT COPY DBy@© FOR L[O] COPY DIM DRAW UISQR CLEAR K STOP SQR <><=D PRINT BIN / BRIGHT PR▚D▖#USR N~LN @P▗QD DRAW GO TO W COPY Db DRAW BEEP / RETURN (( MOVE hU DEF FN EXP SCREEN$ [P]LEN [Q] DRAW /[B]. COPY SAVE [C] STOP G{%" BRIGHT [K]HRND DRAW [Q]CODE CLOSE #: DRAW z COPY LPRINT vSCREEN$ DK?d[S] BRIGHT [M] BORDER OR BFN COPY RETURN LT STEP [J]SCREEN$ RND- COPY DRAW ▗T DRAW G OVER LINE & SAVE BRIGHT *STR$ }uINKEY$[B]UPOINT DRAW LET !USR $ COPY NEXT INKEY$ DRAW BORDER > OUT [I]T$FN 7 MERGE COPY $$ POKE <> PAUSE DRAW SAVE TAN [M] POKE GO TO OR COPY DRAW BRIGHT [SGN >=[P] TO DATA ~[U]©@ COPY H INK hTI_ABS DRAW GPEEK ;x DRAW LN [E]*[U]4M▖ LIST COPY /^@U RUN mSCREEN$ ~#[O]8 BRIGHT SCREEN$ EXP [I] INVERSE DATA ©"VAL SAVE RNDPSCREEN$ [F][U]▝BIN [S] NEXT 8 LLIST ▘%B* BRIGHT #@XRBIN CLEAR t[M] PRINT © DRAW UT THEN TO PLOT CLEAR IN SAVE SCREEN$ OPEN #[M][P](_>=PTH DRAW U FOR DRAW USR DRAW LIST ▖O@VAL$ BIN [E]JUSR PEEK CLOSE #[E] IF [P]▖SCREEN$ PAUSE BORDER USR $@O%TAB MOVE SAVE "~an RETURN BRIGHT E5rF8 DRAW E$IN OPEN #jD© RETURN /G DRAW LIST E COPY QNOT BRIGHT DRAW @D"`p▞x|:H$[B]/Eb READ RETURN DATA FORMAT EXP x@P[Q]$FN '* COPY VQ DRAW DRAW SCREEN$ LN 1ATN BRIGHT DRAW D"TH$FN P"[B][Q]@[C]P CONTINUE DATA BRIGHT COPY ^DSCREEN$ ▗ AND (/▟@H9 DEF FN USR ▖ LPRINT SAVE SQR DsEXP LE CONTINUE COPY PAPER INPUT LET I GO SUB COPY UT IF SCREEN$ ©-1 COPY REM DRAW FG INPUT D[E]"> BRIGHT [S]TASCREEN$ LLIST 4SGN DRAW BRIGHT LOAD ©[E] BRIGHT [Q]RP▞UFN T.▖$ FLASH AND BEEP BRIGHT RETURN COPY ~$SCREEN$ U▝HCHR$ DRAW [M]xR|U SAVE pT LPRINT [D]H@ BRIGHT EKPAINT PEEK [F] IF LN p FLASH RESTORE ^▞ DRAW LINE ©{[E][P] RUN IF THEN 5+p CAT L CAT 1▟58 DRAW r SAVE pAASN ~LN > CONTINUE [F]T?= OUT h1/ DRAW ABS LN OR <=[A] VERIFY $y RUN P DATA RETURN [I]e OVER [A]▝<BIN U BEEP POINT V[B] COPY QK[A]pA% RETURN SCREEN$ DATA V FORMAT *0. TO >= DRAW <K[F]o[I] STOP © INPUT Bx:t CONTINUE SAVE STR$ 8([E] BORDER PRINT _▘T*w[K]▚ DRAW (~[J]L RETURN RETURN U LIST {y,VAL$ ^ RUN MOVE ATTR RETURN _ REM LOAD [J],[I]R!T PLOT FOR [U] THEN SGN pWCODE LQ>^▗Q▗AQ DRAW 0▖4[O] PAUSE [A] BEEP xQ[E]Bh/ NEXT R LPRINT U CLOSE #▝▟?[C]@W LPRINT p OVER RETURN SAVE P|^SCREEN$ @x TO SQR [M]Q NEXT DRAW 7:ASCREEN$ [S]< FLASH VAL$ 0 LIST H DRAW l[T] MOVE |FN ATN FP[Q] LOAD AND PRINT BRIGHT ▞Dh.1/ CLOSE # POKE W"P*[B]+[E]~LN H-J BRIGHT K:T8V CONTINUE BEEP ▗ GO TO CONTINUE BRIGHT [B]+FN FN T.$ SAVE R OVER BRIGHT [B]H:|D"xpJ▞`@SGN D[U] DIM GO TO CLOSE #V>=RVAL$ CLOSE #| RETURN © DRAW CLEAR DRAW [U] RANDOMIZE % TO USR CIRCLE ©CHR$ N PAPER @ RETURN D~H'> BRIGHT OUT PR FLASH >=[E]TSCREEN$ IF RETURN VGt`| VERIFY @ ACS UBSCREEN$ D&.r COPY VERIFY a DRAW STOP $▞BIN AND FLASH INPUT > T?>= CAT |[U]5[E] DRAW ▘y%E:g FLASH GO TO ?[H] LPRINT 9|:%7 STOP "$AT THEN P DATA ' BRIGHT COPY ? RETURN LLIST PnT COPY *< OUT , DIM V BRIGHT ©LN BRIGHT ▞k BRIGHT [A] CLEAR 0( PAUSE U?SCREEN$ [Q]T. DEF FN BRIGHT [N] OUT p*TAB PFN H$^@"[B]JT-D>=($[E] POKE ( FORMAT N [F]HD*CCOS ▗ BRIGHT DRAW CLOSE #INT IF LIST ERASE DRAW [J]` THEN <▚R[Q]BIN FN >=TAN H$ AND OPEN # COPY + RETURN W© DRAW NEW ATN AND ^ PAPER < DRAW x[I]| MERGE b8 DRAW _ THEN DRAW / DRAW CLOSE # DIM INKEY$ DRAW LIST ~hPOINT RETURN [S]|o4 SAVE pPEEK LPRINT AND OR @ POKE L▟ IF COPY POKE [F]EV[H][B] FLASH PLOT ▜u LPRINT >=*[O]+ DRAW D|U8SCREEN$ SIN CHR$ DRAW INVERSE H CLOSE # CLOSE #[Q][B]P[L]▙ DRAW CHR$ ATN Z DRAW INVERSE COPY L OPEN #NSCREEN$ INKEY$ DRAW BRIGHT FLASH b0;3ATTR D9ATN [F]EXP DATA >BIN DRAW BRIGHT [E] LET SAVE ▗FN [E]bVAL [A]L>=[P][T]D:VAL TAN LIST LFN |NOT DRAW t0/ BRIGHT x DRAW | OPEN #t^VAL INKEY$AT CODE [I] DRAW BRIGHT ATTR SAVE 0D DRAW BRIGHT aCOS | CLOSE # DRAW IF LET BRIGHT 0,[G] DRAW LN [M] COPY ^? BRIGHT 2O PAPER BRIGHT @V[R] THEN RESTORE DRAW P DRAW POINT LET [P] DRAW TW CLEAR UAFN m.SQR SAVE DRAW ^ GO TO POKE DRAW DRAW CAT *P POKE :o▟ BRIGHT LIST _BIN ▝; LIST SAVE K▖LN SAVE DRAW FN VAL$ T CLOSE #/?M?L DRAW .LN NEW [U]SCREEN$ ATTR DRAW $NWD POKE iCODE DRAW LIST READ BF▝_$INKEY$ LIST DRAW IN C LIST $© DRAW LIST ▟H▝@ BRIGHT V▜?_CODE BEEP H$ FOR PRINT /[B] IF DRAW INVERSE SAVE [E] DEF FN ?`SQR SAVE n LIST CAT DATA BRIGHT SAVE FLASH l CLEAR RETURN TVAL [I] REM IF PRINT qc FOR W COPY CODE DRAW CODE L▘ FLASH GFN o LET "[B]@ READ UIN DPY DRAW GO TO SCREEN$ [K][B]@E(IN m[S]SQR ABS *POINT 3 LIST N5 DRAW 1") DRAW ▟ NEXT VAL BORDER NEXT LPRINT BRIGHT RUN LOAD ABS DIM UMINKEY$SCREEN$ DRAW E1 DRAW BRIGHT LOAD MN DRAW [Q]VAL [L]▖ INPUT STOP LET BRIGHT COPY >=© POKE [K]V IF ▞ DRAW RETURN SAVE ▖BIN FOR BEEP ▖|C_~IN SCREEN$ U MOVE ▙MFN FLASH READ COPY >*| SAVE <>DFN 6 REM SCREEN$ CLS REM } DEF FN LIST BBIN NEXT [J] BRIGHT * IF xT SAVE CONTINUE r_ BRIGHT IF FN MERGE OVER $ RETURN CLOSE # PRINT a BRIGHT [R]AT DRAW INKEY$ OR [E]/ POKE ▗t POKE RANDOMIZE VAL$ RUN rINT THEN xT? OUT tASN INPUT VL▛k REM LIN _W©z*L[L]<= BRIGHT [O]©▗PI}<FN ▟ SAVE DRAW _ABS CODE BEEP D7 PRINT IF DRAW U,] CLEAR [D]©, BRIGHT PLOT T[Q]/ SAVE SCREEN$ LPRINT ▘,FN DRAW BRIGHT ©ATN 6©ywAT _SQR ERASE [M] DRAW LIST nvxW LIST kW DRAW TjPIT SAVE U DRAW PAPER V LIST ?? BRIGHT VAL CODE IF *TAB @BIN SAVE Ry GO SUB ,-P DRAW .z LIST POKE DRAW ?< CIRCLE POKE CONTINUE BRIGHT ▘ GO TO [H]X[S]@INKEY$% DRAW ▘>= DRAW TAB SCREEN$ BRIGHT UlABS CONTINUE DATA CLS UY DEF FN yV DRAW FN LINE OPEN # STEP [H]H LOAD DRAW USR CLS RUN o NEW YUSCREEN$ SIN DRAW FN DRAW Q~ DRAW BRIGHT OVER INPUT JSCREEN$ VERIFY f LIST f DRAW AND DRAW " DRAW A RETURN BRIGHT DRAW 1 AND | COPY DRAW CLEAR F[T]TpEXP DRAW DRAW INT CONTINUE GO TO U( BRIGHT OVER DRAW [C]VAL$ W$ STEP FN LPRINT VYW:COS [K]▗ATTR #x^` COPY < RETURN SGN t IF DRAW PRINT [T] MOVE FOR [H]▟FOIN J? DRAW IF DRAW *FN PLOT DATA X RETURN LET [P] PAPER DRAW [H] SAVE PLOT ( STOP y BEEP l/ INVERSE FN LN © GO TO GO TO VAL IN W NEXT READ CONTINUE INT ▖BIN LPRINT !EXP COPY BIN [R] AND DRAW /_ DRAW 5j SAVE CODE BEEP -fb^ZINKEY$7[C]x LINE }VAL INK l( LINE CLS SGN =v@ CLOSE # BRIGHT *▗TAB @ RANDOMIZE ▜ DRAW PI BORDER ,Ra DRAW <IN RANDOMIZE [U]▘-@$ REM IF EjFRND DRAW GO SUB COPY STEP s[H]n IF DRAW CHR$ REM BRIGHT TO DRAW x INVERSE tB*[E] SAVE TAN INT RG DRAW ©TT▟[E] DRAW M OVER INVERSE T" LET PLOT ? COPY [Q]/ MERGE {TAB U*SCREEN$ DRAW SGN P DRAW DEF FN ?L ERASE 4$P@ LET FN OUT ># OVER HjCODE [G]U CAT DRAW READ LIST ▞ BORDER | RETURN [Q] CLEAR VAL dLN ▞ DRAW [I]▖/STR$ LIST EXP FLASH . LOAD ^[G] ERASE [E]TAN F PAPER U BRIGHT #K[U]FN ( LIST FN FLASH COPY ▗[O]SGN INVERSE RETURN CLEAR [Q]H$[A]FN )[B][E]SCREEN$ POKE ! MERGE jH REM ERASE IF L5 CLEAR >©t[E]ZATN l[P][I]▛© IF RANDOMIZE IN }_G RANDOMIZE =CODE WATTR INKEY$(( IF BRIGHT PEEK INT HLNOT SIN [O]PEEK 4[E]SGN JB[Q]BIN [D][F]F~ OR USR _USR ▟ OUT ]U CIRCLE , INK SCREEN$ [C]@ DRAW H$[Q]?[D][S] DRAW F COPY DSCREEN$ PEEK COPY TSGN v6`U<VAL SAVE SCREEN$ INT ) DRAW POKE :4 OUT 4 INVERSE $ RETURN SAVE * LIST lL COPY RANDOMIZE PAUSE SCREEN$ CHR$ SAVE NEXT CONTINUE B LIST LIST [I]U FORMAT [G]UFN @▖[D] BRIGHT DRAW x FLASH STOP SCREEN$ [A]"ASGN POINT [S]▗[B]HUL"Y[E]DNOT TAN RETURN DRAW [C]>=TOSQR H BRIGHT [ LET LIST INVERSE $A[Q] POKE K[S] DRAW D ERASE BRIGHT SAVE ▞FN CODE ?[B] SAVE COPY BRIGHT SCREEN$ X^ LINE fUSR /w@T~^^ABS OR [U]]tSGN LINE NOT BEEP ▞BIN STEP CLEAR TB LET 40(}[D]D DRAW UP CLOSE # INVERSE ▝[F].^ CONTINUE SCREEN$ <IN Z INPUT DIM RUN CLEAR WCODE N DRAW ▝SGN CONTINUE EPI©U GO TO n DRAW DRAW COS [G] TO LIST © COPY d GO SUB TTAB V LINE DRAW PLOT ILN xJSCREEN$ DRAW ▟>=WNCODE SAVE qapE]>J_u STOP /Uq*[M] PAPER *SCREEN$ uNOT +~i^ RETURN ▗ATN H GO SUB iTAB UI DRAW PLOT CAT ATTR REM INVERSE |} OPEN # DRAW LPRINT >1POINT >(tUz CLEAR <%Z▞Tz(B▞rWCODE DRAW SAVE fP DATA LN G[I] POKE DRAW BRIGHT c]H[I] GO SUB ASN *Sj DRAW PLOT (fb DRAW ATTR _r SAVE A#LN STOP xINT R| IF >=z POKE SCREEN$ CONTINUE h[K][H]ACS /K/ LET LASN - PAPER [G][C]SCREEN$ DRAW PLOT AT 3 REM DATA H CLOSE # SAVE SGN [H]: DRAW OVER jLN [E]@NH<:SGN SAVE [B]H$r DRAW RETURN [B]HB[I])z BRIGHT D RETURN 80* ERASE OPEN #[I]P:[M] DRAW & DRAW TSGN 3 DRAW >=|t BEEP VAL$ RETURN DATA IF WD0[O]TAN *R SAVE o[E]POINT *T[G]PUSR SGN SAVE DRAW PRINT DATA CLOSE # FORMAT K$ LIST 3T>=[M][I] DRAW . SAVE LPRINT [E]?7tAD RETURN DRAW PLOT CLEAR POKE RETURN CLS RUN ▗ LOAD OVER ,SGN [O]xH$ PAUSE NEW [B] DEF FN ▞ OR <> RETURN #SCREEN$ ABS SGN © OR RESTORE DRAW > DRAW COPY BEEP RANDOMIZE INKEY$< LPRINT STOP PAUSE RETURN k4 PAUSE CONTINUE [Q] DATA DRAW SCREEN$ ] CIRCLE FN ▞IN PAUSE ▞ CONTINUE ▘"aPEEK BIN P POKE DRAW LIST 7▖FN BEEP RqZ▗ SAVE l POKE r[H]2▖ CONTINUE ▞D DATA © @PCHR$ kR[E]AIN VERIFY BIN r DRAW RETURN [F]COS ▖z IF *[Q]1FN DRAW BRIGHT q SAVE ▚▗ CONTINUE CONTINUE >= DRAW * THEN %U SAVE ©R▝ LIST ERASE DRAW [C]ASN <INT COPY CODE [E]SGN ^PEEK .IN ▜▙ATTR DEF FN MOVE [B][I] NEW REM yx<D"▙D STOP F IF [S]X INPUT ▖AT ▝ RETURN LIST Y▚ DRAW ▛VAL *[P]+b RETURN ? DRAW X▛~ SAVE LIST G5VAL$ LIST _[G]LN ▚ DRAW DATA ~ GO SUB SAVE STEP PAPER N READ [D]z RETURN ASN BORDER BRIGHT ▘>^ DRAW [I]k[C] DRAW .SCREEN$ DRAW INT ▖[D]▘ SAVE RETURN ▚0g(E RETURN SGN .NOT DRAW BRIGHT )U DRAW _H$ZTAN [E]X BRIGHT D SAVE VAL$ BIN DRAW BRIGHT OFN 0T CIRCLE DRAW TAB XMIN )[E] DRAW CAT PAPER [I]PU VERIFY h SAVE ( DRAW ~j COPY 4©[K]"[B] TO NEW lU PAUSE DRAW * FOR DATA Po NEXT 0 FLASH &LATN DRAW VAL LIST @<>H<=[S]0© SAVE FORMAT I▞© INVERSE N OUT O[Q]%NOT DATA POKE LEN RESTORE HBIN [U] READ [P]%N+ INVERSE 'K/ FORMAT PAUSE F@<= OUT H? TO i^ FORMAT OVER LLIST RND BRIGHT [K]SGN READ >SGN [L] REM h CLEAR COPY PACS POKE <▗ DRAW LACS COPY LET O$USR v DATA PLOT D" RUN CLOSE #▖LN CAT '#D"![Q]t RETURN BRIGHT v STOP $ PAUSE [G] IF CLOSE #f RETURN LEN % TO >=BIN OUT k▗ BRIGHT RETURN ▘~[E]▖ DRAW [C]▞ DRAW SCREEN$ INT ▘(D[H] CLEAR 7SGN u CLEAR 4LEN |x DRAW POINT # BRIGHT 3Th DRAW POKE QG&TAN ( DRAW xQ%` SAVE LIST DRAW Q} OVER P7 RETURN DRAW 5jS(Q IF DRAW -O GO TO vRFN 5P NEW ~ LIST P~AT RETURN Yh4COS g[T] MOVE CAT [P][J]W? REM [O] VERIFY 0 REM OR / DRAW _ DRAW / PLOT REM DRAW * CAT L LIST 5> DRAW BRIGHT PAUSE 5U+▞ COPY DRAW GO TO o|VAL$ BRIGHT ▜}SIN RNDjQL DRAW f RANDOMIZE LCODE U"[I]LN TAB Te RETURN a DRAW (;LN U~CODE x INVERSE COPY CONTINUE LIST xwpNx IF BRIGHT ?oVAL$ > LIST .V[E][Q]▞*UVAL ujD[O] SAVE [E] DRAW Fw<B'[F] TO COPY | PLOT ~ SAVE >p$[E] DRAW IN $[I][E][A] COPY _ BRIGHT CLS IF | PLOT ACS NJ RESTORE .R^ COPY USR CONTINUE >H LIST ,`USR T BORDER CLS PEEK f|vFN LN POKE ©INKEY$ OUT IF VAL X0>[E]A"▞&D[D]n PAUSE IRNDW1 DRAW D RETURN CLS PLOT V6t SAVE .CODE POKE LPRINT [C][E]USR SAVE POKE t GO TO CONTINUE [S]_ SAVE CIRCLE TO >=USR [M]▛ BRIGHT ESGN RACS 6 OPEN #b DRAW SGN M READ FORMAT SGN OPEN #4 COPY BRIGHT SAVE OTAN [Q]/ MOVE FORMAT BIN USR b[M] BRIGHT ATTR Z DRAW LINE NOT SGN PLOT ZP BRIGHT SCREEN$ ET LET [P] LIST TAN READ LET >=LN ]NAT ▟ DRAW POKE TAT OPEN # PAPER LPRINT RETURN LN "© DIM 0NmPEEK [I]+[K]USR [G] FORMAT K>BIN [T]}Fn VERIFY v DRAW STEP ATN [C]D< COPY NEXT $ COPY READ CONTINUE u4LN DRAW CIRCLE *SCREEN$ [H]m>=[C]iUSR LN [I]gBIN TAB BRIGHT [R]ASN C▞[S]! SAVE POKE [B]"POINT POKE ▝m(* DRAW SAVE BEEP SIN (PI COPY JJ▞~@ DRAW H[E] DRAW POKE ▖ LIST Bt; SAVE DRAW SCREEN$ ATTR FN [P] FLASH PEEK INPUT ~ LPRINT DRAW I LIST DATA SCREEN$ /% DRAW @$^LN RETURN [Q]| INPUT 0(USR DRAW $▝ LIST NSIN E= DRAW READ =LN u▝ SAVE J LLIST pwRc`v DRAW w CLEAR 7 LPRINT r[Q]%@PW DRAW tRND0 LET /OUSR BRIGHT ▟d[S]L@ DRAW LIST [M]x RANDOMIZE HE@ DRAW [I] AND BRIGHT INVERSE P SAVE NEXT p▝ CIRCLE A[I]SIN STR$ DRAW ▞ LET CHR$ LIST FN P[F] NEW TAN CIRCLE LN BRIGHT v?P[I]p73[R]1O?"*[C][I]▝ R CONTINUE PAUSE LET BRIGHT RUN Tw~ PRINT ^d[F]▜ BEEP DRAW "~U*T!RND COPY x FLASH BRIGHT U OVER CLEAR BRIGHT FORMAT DRAW ▝ PRINT RESTORE BIN [I] VERIFY POKE EXP [O] DRAW ▖POINT T_SGN BIN UJ[E] OUT 3 BRIGHT HP DRAW ~ NEXT [O] BRIGHT SAVE GO TO n FORMAT AT *@T DRAW i4 DRAW [Q]SCREEN$ RNDd OPEN #[G] REM [C] GO TO CONTINUE DATA <=[Q]z COPY IF RND OPEN # GO TO INPUT NEXT IF O BRIGHT LN LIST [O] STOP nCHR$ [K]▘SGN X2~ BRIGHT E DRAW © BRIGHT STOP NCHR$ F[K]Z▘B@~ RANDOMIZE O▗ IF BIN READ INPUT CAT q CONTINUE BRIGHT LUR OUT ©▗ IF _ DRAW W INPUT FLASH LINE UTAB %▙ DRAW SAVE LIST USR EXP LLIST Lkc@*UVLN MERGE ▚ RUN JRVAL$ BEEP REM SGN CODE y0 LPRINT POKE LPRINT _[B] SAVE IF FORMAT SCREEN$ R PAPER CLOSE #Pv`50LN *▘[Q]USR DRAW @ REM , IF GO TO LEN { DRAW FN REM SCREEN$ STOP CAT B BRIGHT T DRAW UIIN USR DRAW P BEEP CLS CIRCLE MERGE @[ INVERSE LEN SAVE ©VIN _F[T]CODE BEEP ▟ FOR PRINT IF FLASH THEN $ DIM 7 CONTINUE COPY OUT RESTORE 0[H]PIACS LEN 0 CIRCLE BRIGHT CLEAR RETURN T< REM IF DRAW PRINT FOR #[B]WCODE <=_& BRIGHT ©$6 OUT LIST CAT COPY ?0~STR$ CLEAR zA POKE u COPY CONTINUE h FORMAT ojP DRAW W INVERSE x<P RETURN PLOT BORDER ATTR [B]© DATA PEEK ^ COPY H. RETURN OPEN # VERIFY RETURN u VERIFY BRIGHT $STR$ FORMAT >=BIN USR I[C]SGN LN TAN VAL AT UGFN [U]t▘PI BRIGHT FORMAT >=bPBIN USR LN %I INVERSE VAL AT FN [U]Z RESTORE t[H]r BRIGHT 6 STOP DRAW CHR$ ATTR LOAD SGN AND AT DRAW - POKE DRAW wPEEK SGN POINT ▜ DRAW COPY READ I DRAW FCODE [Q][H]n ▞P BRIGHT [Q]$[A]FN [E]rJSCREEN$ POKE MERGE COPY U[N]N% PRINT H CLEAR ACS ▞2 COPY Bq STEP L COPY *(T STOP FN 7U[Q]SCREEN$ PRINT [A]FN DRAW .▖F BRIGHT THEN AT COPY COPY .|! COPY >~< DRAW 87 COPY % SAVE ATTR Y+6Q4SQR "[B]qSCREEN$ cb$ NEXT WG<=ZH CAT | DRAW LLIST COPY GO TO Ul~( CLOSE #` PAPER $ GO SUB OVER ,$ THEN [F]PM CAT ( DATA BIN _ RUN 6 NEXT 4▞ CLS }SQR SAVE $[+SCREEN$ VAL$ PAPER :0[U]?<INKEY$/INKEY$USR E OUT `H DRAW LOAD $l COPY , OVER INVERSE DATA [P] PAPER h CLOSE # `SCREEN$ [U]VAL$ /><|% CLOSE #0[E]©<= SAVE kgky▚s SAVE <.INKEY$ COPY ? LIST c`©* VERIFY SAVE BORDER l© LLIST VAL$ Y`~ LIST READ ;PEEK SAVE ©NOT E CIRCLE RETURN CONTINUE IF q-? AND VAL$ x▗ DRAW H▜ SAVE SAVE [J]h RETURN SAVE |[G]h COPY ▖ PAUSE COPY ▚VAL LIST DRAW / SAVE FORMAT EXP LPRINT [M]▗x SAVE KABS STOP >= COPY LET R CIRCLE COPY CONTINUE ERASE ▖ LIST CONTINUE BRIGHT 9EXP >=▗ TO TAN BRIGHT CIRCLE BIN [U][E]e-[A] COPY CIRCLE DRAW ▘VAL$ OVER [U]VAL LIST [E]h;[K] CIRCLE [Q]xq[E]x COPY [I]< STOP FORMAT ▖P AND { LIST TAN Hq FORMAT SAVE 0([K] FORMAT DIM ©+ CLOSE #USR @I>= COPY USR GO SUB >= RANDOMIZE `BIN [ SAVE PPEEK LET COPY p[I]FN >=rSGN REM [Q]P LIST p.' STOP SAVE RETURN SAVE 0P▙TAN [A] DRAW [A]▝Kx SAVE ▖EKPI[Q]XBIN RETURN SAVE |[U] SAVE [H]©:/[ NEW SAVE © RETURN LEN CLEAR © NEXT GO SUB y2 POKE CLS <>!SIN VERIFY IN COPY JSCREEN$ MERGE GO SUB VAL <>TAN SQR LEN qJ LET [P] COPY ZPEEK ACS RUN LOAD [T] IF IN Ob DEF FN ]6 STOP LINE CLOSE # COPY DATA RUN READ d INPUT GO TO POKE OUT ld CLS [G]©7 LET POKE / LOAD CONTINUE [B]ATN FN CAT CHR$ JR*N© COPY z THEN COPY VAL$ ( REM 0 FLASH CAT t[U] COPY INVERSE <>"<>#g RETURN + REM A GO SUB PLOT ED- PRINT CLS POKE COPY <=lFYa> STOP © STOP COPY NOT r PLOT COPY STOP ;t THEN 0L STOP COPY " STOP RETURN OPEN #PIBIN 0 IF f STOP tL CONTINUE x CLEAR © LLIST CLS POKE ▜ COPY FOR G AND © STOP LLIST <= STOP COPY ▚ DIM BRIGHT STOP © COPY COPY STOP MOVE CONTINUE COPY P5EXP LPRINT U COPY 8SQR RESTORE DATA * RETURN TAB N TO SAVE INK [S]ATTR LIST `[O]R▗ DIM >=*SCREEN$ COPY SIN ▙ COPY FORMAT DATA CLEAR u IF IN COPY l BEEP SAVE ]W BEEP CODE ^DBIN PIq▝BIN SAVE BORDER ATTR BIN BIN FORMAT - LLIST E▝ DATA POKE 4" SAVE BIN BORDER ;BIN DATA 4 GO SUB @[E]BIN SAVE | PRINT BIN SCREEN$ ▗ COPY BIN SCREEN$ © VERIFY OPEN # SAVE BIN @5 OR 3BIN -BIN RUN IF M< SAVE BIN PL`s STOP BIN .▖D SAVE <- DATA SAVE READ MBIN QLpBIN T MOVE DATA J[E] RUN ▖/~ SAVE BIN x[D]BIN FN BIN 2 LLIST iUSR SAVE BIN LET z CLOSE #|BIN 6IPBIN COPY .@"[O] SAVE BIN W LOAD 8:BIN [Q]BIN INT = DRAW TAN @ SAVE &^BIN BIN @BIN ▗TAB q COPY LOAD _M< SAVE BIN BEEP BIN NEW READ BIN FORMAT UEHBIN xZBIN SAVE OUT BIN BIN Jy[I]:Jh4J DEF FN STOP 8[P] OVER /_P CLEAR CLOSE #RNDYTAN UJ SAVE BIN [E] LLIST n▘BIN LLIST [J] <><▗(BIN B GO TO COS g SAVE DATA CLS [G][U]BIN y GO TO SAVE Gy ]▗$0BIN [Q] GO TO =IN SAVE LIST xBIN [Q]$/GBIN CODE © FOR PAUSE LET DEF FN BIN SCREEN$ 8BIN P[P]IN DATA CLOSE #[Q] GO TO SAVE x= <= SAVE BIN FN @BIN COPY RUN % DIM GO TO SAVE FORMAT ▛/BL[C] COPY [Q] BIN GO TO {_ SAVE COPY COPY x DRAW BIN * COPY H@|<> UI GO TO SAVE /BIN OVER BIN V COPY USR ▖▜/ LPRINT tBIN [P] RUN /9[Q]BIN H#[C]BIN STOP [L]? LOAD SGN XBIN LIST SAVE ,9 GO TO SAVE RESTORE UBIN SAVE FORMAT BIN RUN y▗ RESTORE CODE [I] BEEP BIN DRAW <= LOAD K GO TO SAVE ? BIN [M] BORDER % LPRINT uDCy N IF s"[S][H]$ GO TO SAVE l[O] [O] INPUT BIN REM 7@ RETURN INVERSE SAVE NEW BIN (▖ READ _ SAVE RETURN Y PLOT l STOP [H]BIN :INT X VERIFY BIN ZLrBIN CODE A CIRCLE STOP SCREEN$ [P]▖ DEF FN VAL NOT @BIN FLASH &[Q]▟C▛BIN BRIGHT ^ GO TO /BIN X OR z MERGE BIN LINE ,USR BIN SAVE INVERSE 4BIN N PAUSE VAL INK BIN X[Q]RND STOP j/BIN Z COPY %^ BORDER BIN GO SUB ©[H] COPY "y RETURN /[K]Bh RANDOMIZE POKE [A] RETURN IN ASN UT RETURN RND READ READ [A] RETURN NOT INKEY$BIN X TO [I]BIN CODE LET VAL BIN CLOSE #5BIN RETURN LET VAL BIN RETURN 5VAL BIN LPRINT ▛:BIN ▖66BIN SCREEN$ ?BIN U NEXT y( COPY #f[S]UINT VNOT ?[K] IF ▖ VERIFY RETURN [Q] INPUT CAT COPY IF OUT U RETURN FN l OUT LIST <=© PLOT IF CIRCLE LINE RETURN O FLASH CAT BORDER VERIFY POKE LIST IF RETURN iSRND BRIGHT 0 VERIFY RETURN IF MOVE COS RETURN T OVER ~STR$ CIRCLE RETURN IF [M][O]RND OVER CLEAR RETURN {~? IF L OVER SAVE LOAD zAPEEK IF I RANDOMIZE RETURN COPY BIN POKE READ IN ^ IF ASN LIST BIN ` DRAW 7u^[U]| IF RETURN TBIN CONTINUE LET OUT FORMAT . IF [J] SAVE BIN OVER h READ IN [E]. IF ABS LIST ▖ AND DRAW 7 FORMAT INPUT ~ IF BIN GZ> INPUT ~ DRAW IF wFN SCREEN$ DRAW PI FORMAT l| IF COPY COPY ABS [S]W INVERSE u VERIFY BORDER IF CIRCLE [I] ▖*1CODE ▖/BIN F]STR$ DATA ▚I+T COPY COPY a COPY COPY COPY COPY COPY COPY #▚ COPY COPY COPY COPY PLOT P LPRINT DRAW RETURN USR IF NEXT q& IF LIST IF OUT IF LPRINT tqU,(4J[P]>/USR G(4$[R][B]SCREEN$ [D] BRIGHT IF [Q] LPRINT BRIGHT IF PIzINT IF STOP LIST PH VERIFY Tj[R][M]X SAVE NEW "!LN DRAW CLS T[E][K][F]}@ IF |[S] REM ZA▘8sEXP IF vSTR$ IF SAVE r IF > IF ▝BIN v LIST [B][R]LN SCREEN$ [E]▙v[E] BRIGHT L[N]R CONTINUE DRAW &▙*TAB [Q]v$~|[U]p FORMAT STOP JBIN VERIFY SAVE p[S]h BRIGHT pPEEK AT ?"SIN INKEY$ READ NOT [E]▘NOT NOT vj ERASE NOT ^R$ IF BIN IF IF LN m FORMAT .DINKEY$LN yjp[I] CLOSE #[H] CLOSE #[D][H] RETURN CLOSE #|USR USR q IF d PAUSE TAB DEF FN Dj STOP , POKE REM PRINT p/ LIST SCREEN$ LINE [S][B] CAT . SIN ] PAUSE [C]j[P]| FOR z_n> OUT t CAT NEXT bwV3 DRAW STOP p[F] FORMAT CLS FLASH DATA LPRINT . XnpRLN FORMAT 84:[S]P|h TO F$ STOP ~UQh LET (f( IF BRIGHT ] IF ^ BRIGHT IF FORMAT STOP p.USR * VERIFY [Q]B[R]9@@▜▜<=)SIN [I]*?gPEEK [K] PAUSE ^- LPRINT PvBIN [E] [D].&vj AND >=;p[E]2FR CONTINUE DRAW T▙TAN ASN dv|j` IF 0 ERASE INPUT p STOP E VERIFY BIN F POKE LINE 9@PEEK pM▛SIN AT INKEY$ POKE NEXT PAUSE [E] MOVE DEF FN $USR ▖ IF (4".USR G▖"INKEY$E[E]pj LPRINT RESTORE CLOSE # RETURN ZVAL$ 4|h STOP INVERSE IF P PAPER dD OUT DEF FN `CODE $ NEW p BRIGHT gACS POKE S LINE OVER MUSR FORMAT ERASE +[C]SIN ▚ RANDOMIZE INKEY$y[H] IF IF zo OVER ny[O]bV3 STOP RETURN DRAW [ANCODE INK [I] SAVE OR [Q]VAL$ E LPRINT LE[K] INVERSE ABS .H[C]▙"<>0G< POKE FRNDB SAVE LET ▝j4=[B]F IF PEEK y VERIFY R[T][O]}IN SGN VAL$ 4x IF CONTINUE AND ?<~ BRIGHT ]j]0▝[A] INPUT 5$ INPUT @V▟ LPRINT +SQR TAN AT X[L]VAL TAN STR$ z FLASH FN ,FN -ZEXP d[A]]n IF IF P PAPER 6 j BRIGHT IF j OVER p POKE F LIST p@tRND[Q] REM $ BRIGHT LN B▙ABS DRAW ▛[G]v IF vp[C]Dj THEN POKE GO TO IF VAL$ CLOSE #R~ BRIGHT J" FORMAT "▝▘BJPEEK ~▘SIN hPIINKEY$ FLASH USR X BEEP [U]INKEY$XZ RANDOMIZE ATN } RETURN ▜ RETURN PLOT PRINT PAPER CONTINUE SGN ( FLASH BRIGHT ERASE ©ABS THEN [Q] BORDER vPCODE v<b▙B[R] GO TO 6xSIN jPEEK 7vpSGN RND LPRINT =SQR PEEK BRIGHT IF (PEEK PAUSE CIRCLE v▖SGN VAL v▖)ABS [I]~▖v;^LEN D IF 7?2S CONTINUE [Q] PAUSE FORMAT 4 POKE SGN INT CIRCLE DATA CAT NEXT PAPER RUN SGN DEF FN CAT THEN CHR$ ACS RUN <SCREEN$ NEXT DEF FN [O][C]< CAT ▚ OUT NEXT z NEXT <nb NEXT STOP vJ< CAT > OUT NEXT 2 CAT ;& RUN <SGN DEF FN REM DEF FN FOR OVER <SGN ERASE RETURN CAT NEXT PAPER NEXT = DEF FN CHR$ NEXT SGN ACS | CAT SCREEN$ [O] DEF FN NEXT [C] CAT NEXT ▚ NEXT <zn> OUT b| NEXT VJ< LOAD > CAT NEXT 2 NEXT =& NEXT SGN CODE NEXT REM CLS : OVER FOR TAB ERASE AND < CAT PAPER CAT NEXT DEF FN NEXT <CHR$ ACS ; OUT SCREEN$ | CAT [O][C]< LOAD ▚ CAT NEXT z NEXT <nbTAB NEXT 6 CAT NEXT J CAT ;>2 NEXT <&< CAT : PLOT :CODE REM OVER CODE CLS ERASE VERIFY 8INKEY$j POKE ACS V LPRINT TAB NEXT INKEY$`[U]B DEF FN T [J]YACS IF FORMAT vR[M] OR IF [A]N IF p//a_ [I]</`=/INT H LPRINT [K]8[A]EXP >▙EXP H`fj" STOP Q<- VERIFY z DATA P REM LINE x#PEEK [R]AT ~SIN CODE kAT INKEY$ FORMAT {CHR$ n GO TO LPRINT BIN [H] LIST RETURN FOR p IF CLS 6 IF FORMAT >[-"<vl INVERSE [U]$nCy@7 POKE ▙WK VERIFY IF (p@[C]pATTR p@9▝pp AND VAL$ [A] CIRCLE LN O ERASE JUSR p CONTINUE POKE /o▟ VERIFY ~O LINE PEEK NSIN INKEY$[K]# PRINT V[K]"8 LLIST LLIST ▘v LLIST STOP RETURN ASN IF VAL$ wVAL @% FORMAT DEF FN VAL$ W IF B FLASH FN LINE 5 ERASE F STOP HPI POKE cp▙M [I]p TO @[B]p[B] VERIFY GO SUB BORDER EXP POKE LPRINT :kp OUT LIST VERIFY CHR$ 4 LINE ( LINE USR [L]NPEEK SIN USR ▗{< LPRINT ▗ABS zCHR$ wABS n GO TO _[T]b RETURN IN INPUT OVER N SAVE /[R]iV>= LPRINT C OPEN #&[A]VAL m [G]#PIUSR IF r:▖ PRINT ▚SIN INKEY$] NEXT CHR$ LPRINT [Q] POKE AND #[N][I]D[E] PAUSE /[I]V STOP ^H VERIFY TAN LINE v ERASE rPEEK BIN TAB SIN [Q]/E▜AT OVER n MERGE RNDj.v BEEP LN SIN BEEP i LLIST nb INVERSE BIN PAPER @D>[R]STR$ v8$PEEK ▗INKEY$ASN IF kRINKEY$W+p▗p OR [N]p[Q]pD[I]^ OUT ATN RANDOMIZE CONTINUE /[I]: PAUSE ▖xPOINT VERIFY LEN ~ LINE PEEK EXP xSIN INKEY$BIN [K] LLIST q DRAW ▙▘ PAUSE LLIST v RETURN TAB THEN NEXT L3PIF STOP [U] IF REM LMH CONTINUE BIN Z REM b LINE `<5p AND TAN FN F LINE ▖>=▙|]6▟▞p RANDOMIZE PIp[N] VERIFY [R]/[I] CLS D NEW STOP FORMAT AND OVER [C]p LINE STEP [ NEW bACS LPRINT [K]PEEK NEW LIST INKEY$H▝k IF b7o[H]R CLEAR xJ<B IF IF SGN /P OPEN #s#f[P]) BORDER ckjUSR nATTR F[R] MERGE [A] TO n[F] LET U@[G](CODE [C]▘▝INT 4ABS USR VAL$ [0<USR ATTR /"VAL ATTR PRINT $`VAL$ THEN :x8NOT PAUSE ^D ERASE SGN p*r9 POKE INPUT ▝ INPUT CIRCLE wSGN FORMAT RETURN LET CAT [N].?4A▞ OUT FORMAT IN VAL$ [J] | DEF FN [E]/ DEF FN f$RND5]▖<pJNOT CONTINUE |[F]vTAB P6^l MERGE TAB ▖▝`INKEY$^VppASN B0*tABS LIST OR FLASH pNOT ▛▜p INPUT RUN ^ABS j LLIST BEEP n BRIGHT [G]<>FSCREEN$ !d~CODE DRAW ^DUSR [Q] NEXT ATN PAPER $!pM}/[M]Pt POKE p AND ▟ VERIFY p$ REM XJ[U]k CIRCLE ABS ,▖~ZPI@ POKE < [I]4INT USR IF BORDER IF DRAW INT { THEN P DRAW OR pNOT COS SGN INPUT <=|▟NOT POKE CONTINUE LOAD NEXT PAPER NEXT < DEF FN CHR$ < CAT ACS 8=:. INPUT CAT OPEN # NEXT <zn< OUT bSGN NEXT VJ CAT NEXT > RUN <2< CAT &< LOAD SGN PLOT REM SGN DEF FN OVER DEF FN FOR ERASE NEXT SGN AND PAPER < LOAD DEF FN NOT NEXT CHR$ ▘ CAT pz NEXT <n< CAT bV CAT NEXT J LOAD |> NEXT <2&< OUT CAT NEXT INPUT z REM FOR SGN OVER ERASE PEEK DEF FN AND < NEXT PAPER CHR$ CAT NEXT SCREEN$ OUT LIST p NEXT <▚z< CAT n OUT NEXT b NEXT >VJ LOAD |> NEXT <2&? CAT OUT < NEXT INT REM :CODE OVER ERASE ATN NEXT AND [E][M]* MERGE CLOSE #▟UB[Q]D LLIST REM TAB PT▟W BEEP ▟ DRAW oCODE DATA [K] POKE A[Mj GO SUB OVER POKE THEN &/PEEK POKE DRAW ATTR LACS RESTORE POKE LIST w CLOSE #h MERGE [T]1EXP BRIGHT ?ACS ABS Q BRIGHT BIN VVAL$ RANDOMIZE %?|RND MERGE SGN CONTINUE / CIRCLE CLOSE #3 STOP [[Q]ZASN ATTR >.[P]$ LPRINT POKE ~ [Q][D]@y READ PAUSE ~TAN OPEN # STOP READ 5 VERIFY ▞~ OPEN #9 VERIFY p/ FORMAT RESTORE OUT ▟[R] CONTINUE FN BEEP TRrSQR |} INPUT p+R FOR ▘nTZ INPUT FN ▚▚4 DRAW BIN INPUT INT INT LINE CIRCLE OVER [S]_BIN VAL [M] ERASE LN ▖[U][R]PEEK | MERGE |CHR$ ATTR 6]r RESTORE ]v[E] OUT ▙y MOVE ,<1[U]SQR [U]4WV▙ATTR C▟4=^(J LOAD p:[K] OVER U5Rp SAVE VAL$ SCREEN$ ERASE ` CLOSE #▘pSCREEN$ [U]RpBIN }bBaBIN WLN [R]0dIN CLOSE #[N] POKE CONTINUE INKEY$ LLIST POINT FOR " OUT CLOSE #p LOAD IF POINT BEEP lVAL$ 00p<= BEEP dp[H]▛ RETURN BORDER IF CHR$ LOAD z CLOSE #USR J) CLOSE #▞ FORMAT J RESTORE CONTINUE CHR$ BRIGHT #.`PANOT CHR$ lUBIN _%p POKE 6UABS c READ FN 'G( NEW ▗tLN FN BIN )fa POKE QSIN [U] INK INKEY$| MERGE ]CODE INKEY$ GO TO POINT VAL j[K]B[K]yw GO TO T RETURN OVER .SCREEN$ b CIRCLE + BEEP VERIFY ▖CODE VERIFY # BRIGHT % IF A: IF PEEK LINE m IF SGN VERIFY PSGN COPY RESTORE USR FN DEF FN Jf# BEEP ~INKEY$[WAT f CIRCLE : DATA INVERSE `T CONTINUE |k STOP 4 SAVE >@+#jdSCREEN$ p LPRINT [R]VAL TAB FORMAT BRIGHT SAVE p VERIFY ▖([L]AT IF >= READ RETURN 2ACS THSTR$ IF /[S]<g[H] IF `>=FN ▖P[S]|CHR$ PRINT ,`0[[U]▚~RND+▚8▚[S]5 LIST cL CONTINUE PAUSE STOP POKE [E]]R2"<=n PAUSE PAPER 5 ERASE <S FORMAT R# IF RUN ▘ IF LIST WR BORDER IF PRINT [D]TAB PAUSE LPRINT n OUT nx}V CLOSE #Ge CONTINUE GO TO LPRINT ZC0 IF VERIFY ~/3▘UUSR SCREEN$ ( Ua IF 4FN JJ IF n PAPER U0 OVER ▝h OPEN #66 AND CIRCLE TO ABS [S][S]SGN LINE VAL$ jPEEK IF > PAPER FN $% BEEP SGN ▝▖EmPf[B]z CLOSE #b IF n/@FPEEK MERGE PLOT )NOT PAUSE P4 BRIGHT IF [E][E] IF b IF POKE TH[A] IF F`]^> LIST FN N▝:▖<TAN GO SUB $x PAUSE JVAL$ COPY >[K][U]0Y CONTINUE ABS REM B BRIGHT ▖ OPEN #[S] IF |(L[Q]<JU,USR x/ IF INVERSE SGp ERASE 5 BRIGHT ^SCREEN$ Bp:[PEEK V CONTINUE TAN ! BRIGHT IF d NEXT LOAD OVER STOP AND ATTR 2$u[O]RND[B] DRAW LPRINT z DRAW [O] BORDER AND ASN P[G]PEEK DRAW LET $ RETURN REM RETURN [Q] LIST LINE ▞_ RETURN SAVE RETURN READ EXP PAPER DRAW JEXP PAPER 'fjINT DRAW IF SQR [M][I]SGN DRAW SCREEN$ :ABS LINE AND c DRAW ZPEEK REM CAT zIN DRAW USR [K]*81STR$ DRAW INT JCHR$ PAPER ▟<= DRAW jNOT IF 6[O]BIN DRAW OR SCREEN$ : AND CHR$ © DRAW dP RETURN eCHR$ F{ REM ▚ CLS COPY f GO SUB _© POKE VAL @dSCREEN$ [R][D]z OUT A,[O]SGN 2<>= CLS !P>= TO RETURN REM 5HJv CONTINUE GO SUB VERIFY NEW DRAW PLOT FOR ▟ CLS Z COPY INVERSE [K]SCREEN$ OPEN #7 OPEN #(ASN Z CLS INT PLOT EASN 0 PLOT X CLS k CLOSE #p BORDER CIRCLE ASN |P GO TO PLOT MERGE j CLS LET VATTR CLS BIN CLS jASN LET ~ PLOT PI MERGE PLOT BORDER QINT EATTR VATTR ~[C].TAB LET LET V[T] BORDER BIN ATTR MERGE BIN BORDER ▟ INVERSE tRND MERGE BORDER ePI<= CONTINUE INKEY$/-BIN STOP GO TO j= INVERSE h5 INPUT PLOT VAL$ 6 PLOT Q NEXT CLOSE #<>i PAPER o PLOT V THEN Q88TAB BIN CLS 3CHR$ STOP G STOP 4[M] GO TO $? PAPER STOP i= READ INVERSE N THEN IN ~yZVAL CLS [O] NEW u<>ASN PLOT BORDER LOAD jyi5LEN INVERSE LET eATTR ABS +[D]ATTR PRINT [D][R] LOAD SGN [S]j5© STOP CLS ▙ OPEN #IN [R]▙ NEXT [S]8 NEW ]eLEN ASN [M] CLS 8 THEN i CLS LASN A DEF FN LET PIqeASN FLASH [M] NEXT DRAW SGN [D]SGN NEXT H CAT 8 LOAD DRAW BIN OPEN # LIST LET CLS
1 GO TO USR PRODIGYVAL rodi
26617
27325 OPEN #5 LOAD GO TO READ j PLOT [[N]V LET BORDER SAVE PRINT USR q= NEW INVERSE CONTINUE FOR [N] OPEN #9Z▟LINKEY$ LOAD TAN . LET ▛_> LET 9NATTR GO TO ▟ INVERSE i PLOT jASN DATA STOP READ LET j; CAT * PRINT DEF FN CONTINUE ▙.PI BORDER oATN ;`w INVERSE AND ;TAB CLS ;VAL$ BORDER ASN STR$ p LET THEN i LET READ |SQR L RESTORE INT $w INVERSE DLN [K] INK BORDER VW READ [H]PIuvBIN BEEP G& BRIGHT yAT ]q|[M][C]SQR IN LET ] STEP LEN GO TO LLIST BORDER [I][M]w OVER LINE w[M]k DEF FN qE[P]<= OPEN #<=ye▝ BORDER COS BRIGHT qQo OVER q[F] GO TO LLIST q*y GO TO WATTR GO TO RANDOMIZE ubr BEEP DATA J5 LOAD a INVERSE w REM <IN LET ▗▙ NEXT LPRINT READ 8[R]8BqW STOP r REM RANDOMIZE * READ Y[O] STEP SQR /aw9 GO TO VAL vZX CLS <= INVERSE B[K] BORDER PAUSE MERGE r<= DEF FN ~ FLASH IF ATN [M]▘ CAT / OPEN #CODE ;[S] THEN 8 INVERSE RUN $ NEXT yw FOR MERGE rCOS PLOT OATTR LET LOAD <*8? OVER LOAD ACS READ V[G] RESTORE [C] BORDER BEEP COPY ! OVER y INK ]wz[J]zATN pSQR ERASE CLS xINT OPEN # COPY DIM ; LOAD [S]uwZ MERGE [N] AND [R] PLOT ▚ BORDER u▟q[M] PLOT DEF FN y<=▖a.<= GO TO `ACS NEXT [N]n FLASH DRAW P;▙V INVERSE ; DEF FN LINE L[T] PAPER IN ASCREEN$ MOVE BC[T] MOVE CONTINUE EF[T]qG @A▟FBC4DEF AND lG@ COPY A▟BCDh4EF[T] CIRCLE G`▟FAB4CDE BRIGHT hFG@ MOVE hABF[T]CD▟EFG▟[Q]@ABh4CD[T] MOVE EF[T]qGUSR @A▟FBC4DEF4nG LPRINT @A MOVE hBCF[T]DES▟FGFATTR LIpKFSCREEN$ L NF READ O HI▟JKLh4MNh BRIGHT O@HI[T] MOVE JK▟FLM▟NO`H4IJK MOVE hLMq[T]NOHF[T]IJ▟KLMn4NO[Q]Hh4IJ[T] MOVE KL▟FMN▟ AND OUSR HI4JKL MOVE hMN MOVE LN O LPRINT HIF[T]JK▟LMNN5O[S]QTTAB INKEY$S▟ AND UVW▟ PQRh4ST[T] MOVE UV[T]qW@PQ▟FRS4TUV4nW`PQ MOVE hRSF[T]TU AND ▟VWP▟QRSh4TULN MOVE VW[Q]P[T] MOVE QR▟FST7UVWUSR 4PQR MOVE hSTF[T]UVF READ W LPRINT PQ▟RSTh4UVABS BEEP WvUSR K[P]@ RETURN RETURN BIN RETURN ? MOVE hc▟ BEEP T RETURN PU PLOT INKEY$ DRAW kLN F OVER p STEP ABS FLASH <= SAVE Q PAPER ATTR G▟ COPY USR 0 STEP <=PI PAPER CODE DRAW [T] BEEP f> OVER PI RETURN [U]8CODE ERASE IN ATTR COPY [I]OPI RETURN RETURN E CLEAR 0[N]% DRAW COPY ATTR RNDD[P]@:4▟IN 0▝ MOVE STOP PRND[P] COPY B[J]`4 CAT THEN ▝ COPY [S] NEW [J]`ASN DEF FN COPY ▝NOT NEXT COPY NEW IN D:ASN 0[G] CLOSE #▝pPL[P]F[L]K IF cUSR PLINKEY$EF@: READ MERGE COPY SAVE u SAVE COPY pIN CLEAR LOAD INPUT {x7E PLOT PLOT | AND " PLOT USR KEXP ~ PLOT LPRINT PLOT © OPEN #[J] PLOT LIST RND©IN VAL$ RND SAVE PLOT NOT PLOT DRAW LPRINT m PLOT READ PLOT ERASE PLOT © REM { NEXT x} LLIST LOAD COPY yi CLS DEF FN PLOT k3x PLOT RANDOMIZE PLOT PLOT {LEN ▝ LET PLOT CLS AT PLOT INPUT PLOT ▜STR$ LPRINT k RANDOMIZE PLOT READ PLOT OPEN #|▝ PLOT [P] PLOT BORDER ASN | DEF FN PLOT COPY PLOT [G]pPEEK PLOT ` PLOT LLIST [P]` PLOT . PLOT ex$ PLOT GO SUB X DIM ^ COPY NOT SCREEN$ P GO SUB P@g INPUT zyLEN LN [H]5USR +[C] READ DATA ! CLEAR BORDER USR ! BORDER _>= PLOT " BORDER :IINKEY$ INVERSE 3 DRAW !MSCREEN$ RETURN LINE [L] RUN STR$ 4f RUN RUN < OPEN # SAVE CHR$ NOT [F]b STEP COS PAPER I CLEAR USR LET BRIGHT IF 2 INK POKE TO INVERSE nqqfN[P]©F| PLOT USR g OR PRINT STEP [K]g GO SUB RND~ PRINT STR$ ; COPY #xLEN CHR$ NOT SCREEN$ CODE POKE INVERSE #[O] RESTORE RETURN <>x▟a NEW COPY COPY } COPY INPUT DIM SAVE c[I]TAN SAVE BUSR NOT ▛LN INK VERIFY o| LET &)]T LINE THEN [M] COPY DRAW OINKEY$ GO SUB VAL : SAVE 2U STOP OR CLEAR V<>:Q0xPI>= NEXT ORbG INPUT o COPY ▜ GO SUB g> OPEN # RETURN }=CHR$ INPUT [I]] INK T| SAVE PLOT RESTORE GO SUB :P LLIST [A] THEN OVER RANDOMIZE DRAW MERGE oT INPUT S0 PRINT REM y<= CAT VAL CLS <>[G]0 DEF FN STOP NOT SCREEN$ PAPER RETURN CLEAR FLASH TO ,& CLEAR ; CLEAR c STOP TO CLEAR PI CLEAR STR$ CLEAR BRIGHT DEF FN TO > CLEAR SIN CLEAR <= CLEAR INVERSE TO ,4 CLEAR ▝ CLEAR STEP TO STOP CLEAR Q OUT L CLEAR W. DEF FN CLEAR CLEAR ▙ LPRINT BEEP LLIST STOP , GO SUB CLEAR STOP STOP TO ? CLEAR CLEAR READ TO TO * CLEAR r CLEAR CLEAR ATN L DEF FN CLEAR PAPER CLEAR ! DATA BIN CLEAR U DEF FN TO CLEAR p CLEAR ACS CLEAR INVERSE CLEAR b BORDER OR ,[U] CLEAR CODE COPY COPY NEXT GO SUB s IF PAPER >1Z ERASE !JSCREEN$ MOVE ~VAL GO SUB [Q]: RETURN ATN PAPER 1[C]_~- OPEN # COPY FLASH RETURN [Q] CLEAR @INKEY$"1Z MERGE # COPY COPY ;k IF GO SUB 1[A] CIRCLE RESTORE h OR OUT [B]J ERASE ~_#ATN [P]W POKE i FOR LLIST <> AND } COPY [U] RETURN COPY GO SUB KBIN RND STEP & FLASH ~# IF :s PAUSE <2 DRAW <>ATN COPY LPRINT GO SUB R0 IF 'CODE STEP /▜NOT FLASH RESTORE ; NEW LOAD LLIST CONTINUE NEXT d_ RETURN NEXT TAN LPRINT NEXT POINT NEXT K[K] PRINT > CLS <>[F]} LLIST C BRIGHT : STEP RNDTAB rT]o[D]PIUSCREEN$ © LET { DEF FN RND: TO OY RETURN RETURN MOVE {INKEY$SIN w# OPEN #g IF FOR DIM 1▙":CODE q FORMAT CHR$ RESTORE MOVE CAT ▛og READ ~ THEN K[P]PIw DATA <IN READ OUT BORDER w<>! OVER VERIFY LIST RND6: INVERSE INKEY$POINT AT { ERASE G[P]H MOVE STEP RETURN PAPER TO EXP 4[N] NEXT CLOSE # NEXT OPEN # NEXT EXP 4[K] NEXT VERIFY NEXT MERGE NEXT EXP 4[Q] NEXT CIRCLE NEXT BEEP NEXT RND![T] NEXT NEXT INK <> NEXT INKEY$ NEXT |. NEXT FLASH NEXT POINT BRIGHT <> THEN AND TO TO CLEAR DEF FN CLEAR OVER CLEAR VERIFY CLEAR NEW DATA OR CLEAR INPUT FLASH 2[A] DRAW BIN R OUT THEN G TO STR$ BRIGHT BIN ©q2{Z<>> READ 3B CLEAR D CLEAR !X GO TO lINKEY$< REM ?©PI=CHR$ CAT ▜!ACS P GO SUB BRIGHT COPY [ REM RND STEP ( INVERSE ! VERIFY Py IF SAVE <>w# DRAW $- PRINT SAVE STOP POKE RETURN COPY >=d LINE [G] INVERSE ▜b NEW 0TAB CLS [H]ACS CLS >=;[U] MERGE NOT DEF FN INPUT LOAD INPUT [U] FOR GO SUB ▝ INVERSE }$$ COPY POINT BORDER PI OR LIST A BORDER 5INKEY$ THEN gr}IN INVERSE MOVE CIRCLE MERGE CLS COPY RND CLEAR yo MOVE <> INK CLS OR IF P CLS INVERSE USR 2 STEP INT _ OPEN #R RUN !<= NEW INPUT 5C RUN RUN INKEY$ NEW >SIN INK /[U] BORDER <>W# OUT ▛▛ FLASH b BORDER ▗CODE OVER FOR E INVERSE [S] LPRINT CODE READ @> OUT `pL?▛ASN OPEN #ATN _z RETURN NOT LLIST LINE OVER s[I][M] CLS INT CLS aNOT LLIST q OUT COPY ▜ NOT DIM INVERSE d8)t RETURN # DRAW NEXT NEXT H+x PRINT P,TAN 3 NEXT X- NEXT LINE DATA NEXT h( OPEN #E▖ LIST STR$ [D] NEXT dx OVER # STEP LIST q NEW ! GO SUB 10EXP FOR COPY NOT PI LINE B[E]bdHFN bT INPUT ▖0© COPY :PI OUT READ COPY PAUSE STOP OR [E] STOP STOP ! GO SUB VERIFY OR MOVE THEN [P] LIST BEEP Z RETURN BEEP LEN BEEP RANDOMIZE BEEP /CODE VAL GO TO uIN {NOT LIST SGN qRND NEXT INT OUT [T] RANDOMIZE ^SUSR !INKEY$>= COPY O<> LOAD G! FOR X STEP Q OUT <> NEW LLIST w# DRAW PI>= CLEAR NOT OR LLIST COPY DIM CODE CLS STR$ INK IN OR LOAD <>o BEEP CODE S LPRINT CIRCLE ATTR ^▙^INKEY$3COS CLEAR CLEAR CLEAR 3 CLEAR CLEAR ! TO SQR [O] STEP USR oNOT 9P^CHR$ [N]COS + GO SUB [N] MERGE x NEXT xw STEP RETURN 9iJTAN DIM < ERASE RETURN INVERSE LLIST I INVERSE a: OUT STEP ABS _▛LEN IF VAL$ [S]E IF ATTR IF FN D MOVE IF RND IF CLEAR Za8un DEF FN CHR$ LPRINT @ DIM PAUSE AND PAUSE H▞ POKE PAUSE PEEK PAUSE DzP PAUSE ACS "ABS PAUSE X PAUSE VAL$ [A]^ PAUSE ` PAUSE INKEY$ COPY PAUSE <>d VAL$ EXP RUN 8 PAUSE u IF PEEK SAVE HSQR OVER <>$X INK OPEN # RANDOMIZE `q LPRINT COPY { OUT ~ RETURN RETURN { RETURN >=NOT [B] LPRINT ABS _ GO TO MERGE mABS ; MOVE LPRINT RND LPRINT DATA RUN INPUT Ba~2 CLOSE # MERGE ~CODE CLEAR LEN <> COPY d▖/ TO [J] COPY [O]VAL$ IF ] LLIST [B]o LOAD [I]xq LIST FOR COPY <= LOAD STR$ " RANDOMIZE &^-SQR C IF 7CODE STOP ! COPY [N]STR$ AT IN ▘ COPY CODE IOSCREEN$ FOR GO TO DRAW %BIN SGN / FOR FLASH [T]< CLS [L] BEEP FOR #rH▝ BORDER [C] OPEN # REM VERIFY LEN BORDER ] GO SUB ABS GO SUB COPY 5- COPY LINE OPEN #" REM RND STEP VAL$ COPY INVERSE <>G! LIST LPRINT V DRAW TT]▖w;N"JINKEY$AT FOR GO SUB INPUT <>:&[N]LN _<> THEN FOR :' PAUSE z NEXT d GO SUB S[J] CAT CODE $INKEY$2 TO IF %[M] IF STEP AND STR$ FLASH MOVE CLEAR READ OUT AT CAT ▜:1INKEY$_3 LIST ▙ GO SUB [3j DRAW CIRCLE w DRAW <> NEXT INK "INKEY$ STOP XO INVERSE *CHR$ RND LET COPY * RESTORE MERGE STEP ATTR STOP MOVE LLIST #6 RETURN POKE CHR$ BIN FOR INK !X'- DEF FN CLS <> PAPER ~#<<=b[A]6N RESTORE INK MOVE INVERSE +©a INK LET SAVE <= CLOSE # RETURN LN VERIFY VERIFY PAPER RANDOMIZE # DRAW LOAD PS& READ MERGE INKEY$ BEEP / SAVE A RETURN BIN <>VAL$ THEN G LINE l READ Z` SAVE ? DEF FN © RETURN jFN e▟>[U] COPY 2 RETURN NOT GO TO [J] RUN @<>x7CHR$ Z<> RUN REM [Q]O[S]G STEP ▙ CLEAR r READ RESTORE INVERSE LLIST >ACS <>< INVERSE INKEY$'* LPRINT RNDVAL$ "[C]u RANDOMIZE : STOP FN DRAW 7CODE MERGE GO SUB TO |EXP NEXT NEW EXP INVERSE INVERSE >c2 READ CLS COPY OUT % RETURN [I] LINE DATA 0INKEY$PI=Z;2 SAVE <>CODE CLS >>! IF STOP INPUT DRAW <> STEP CLS READ DEF FN COPY CLEAR v7INKEY$e AND CODE [R][R]/ SAVE INKEY$%Y^j CLS GO SUB ;EXP [H][T]Z DATA &▛ INPUT m[U]CHR$ LINE s:B>STR$ RUN 0 LIST [R]NOT RESTORE o RESTORE 7 DATA &>r MOVE CODE SCREEN$ CODE LLIST PRINT o<> LET ABS ATN :-[N]!2 INK NOT _wGCHR$ MOVE DATA ▜O BEEP ATTR TAB mACS <> IF PLOT [H][H] IF RETURN ▛ MERGE >=w BORDER yTAB w[N]4p REM X OUT z[D]<?/O[G] CLS OUT M FLASH iINKEY$ FLASH XP BRIGHT ~# DATA LOAD RANDOMIZE mB[R][I]INT . RESTORE > CAT PIPEEK COPY OUT STEP [Q] RESTORE 4f NEW TO IF RETURN CLEAR aff RUN z CLEAR [E] CLEAR VAL$ CLEAR <>g CLEAR GO TO CLEAR BORDER 8tSGN [gPI>=▟jVAL THEN LPRINT THEN IN (SGN [M]NOT RANDOMIZE [D]qzNOT CLOSE #+ INVERSE [H][O] REM ▛Q NEW NEXT ;k[E]COS STR$ COS DEF FN RETURN NOT 2[R] LLIST BEEP / CLEAR NEXT ?sLN LINE ABS LINE l RETURN h LINE OR j`▖Z/ MOVE THEN OPEN #[O] OPEN #Askf OUT LIST OVER PEEK 6!5> SAVE BORDER ©ABS | READ NEW OR # NEW [Q] TO _IN LOAD NEW [R]WO▚ THEN c NEW THEN RESTORE [N] RESTORE >=RND[H] DEF FN USR TAN LLIST u IF FOR y INVERSE ` POKE j>=E OR W COPY BRIGHT ~8PEEK INPUT SGN RETURN BORDER ASN INVERSE LN BORDER REM COPY IN DRAW RUN CHR$ ,| AND ~ CIRCLE TAN OUT ©- RUN SGN VERIFY NEXT !J MERGE "|© STOP BORDER GO SUB s[Q]1j ERASE LLIST x NEW >ASN o PAUSE [L] PAUSE VERIFY MOVE TO 8,r RUN CLS LLIST CAT 1SCREEN$ ERASE OPEN #YM▘OR ERASE /[G] INVERSE SAVE VERIFY 4F rNOT CONTINUE OR YB CLEAR FLASH REM [J] OR h GO TO ▗ CLEAR THEN OR OR CLEAR FLASH GO SUB CIRCLE LET [M] OR PAUSE PLOT CLEAR 8 NEXT [N]YR CLEAR PI CLEAR U POKE NEXT NEW *< CONTINUE SAVE SCREEN$ {SCREEN$ IN MOVE PAUSE - GO SUB -TAB %[ATN D PAPER SGN STEP 6[N]k IF : OVER [L]CHR$ m CONTINUE ar|EXP CLS WNOT LLIST DIM _ PAPER ▚QFN [N] DIM ▟ LOAD LLIST g% COPY INPUT STEP t PAPER 7 DRAW w[>&INKEY$SGN NOT LINE [P] DIM STEP GO SUB INVERSE vBIN PRINT STEP PAPER yPOINT STEP ▖PIUSR CLS ! CLS ?o[ CLS CLS DATA - PAPER W2AT DRAW rj RANDOMIZE RETURN TO [N] DIM 2 RUN TAN CODE PRINT ASN LINE ZlASN PASN COPY ©ASN INT CLS ;ATTR ASN =ASN OVER FN INPUT TAN OR RETURN [S] LINE [B] REM STEP l INPUT TAN ZWATTR EXP [ CLS / PAUSE LIST TAN FLASH AND 2 CLS READ OR COS COS PI[L] LINE GTAN ?TAN STOP _TAB EXP READ CLS DATA BIN REM TAN VERIFY TAN CODE COPY l:.mCHR$ TAN DIM > COPY h+2 PLOT BRIGHT ▟R CLS SAVE < RANDOMIZE ^SGN x STEP POINT 0©b"CHR$ ITAN RNDCODE ( PAPER RESTORE 3<= DRAW INVERSE * PRINT ? RANDOMIZE Hw@ IF LET TA IF STEP CIRCLE LET wqh GO TO PAUSE ABS AND ▛[R]PICHR$ REM G:[S] SAVE o,[S]=[S]>LEN [R] DATA DRAW ATN EK/ATN [ATN RUN NOT ATTR ATN @ATN ZQACS hVAL $ CIRCLE ACS DRAW ACS Q▘ASN a[M]ASN dNOT CHR$ ACS ACS FOR DEF FN %7 FOR EXP RNDl CLS THEN ATN LOAD VAL$ z BRIGHT PEEK 6EXP BRIGHT = FOR [P] LOAD RESTORE oUSR LOAD LINE FOR CLOSE #^|▛ GO TO RUN ]QLN BRIGHT GO TO $ LLIST LOAD FLASH FLASH z<=INT CLOSE # BRIGHT y FLASH >=w RESTORE FORMAT ` OUT ! BRIGHT RETURN ~PICHR$ CODE GO TO STOP IN & RUN 7 OVER <>[O]W DEF FN 7 POKE ATN RANDOMIZE LOAD c INPUT <>CODE COS b+ACS =ACS K ERASE ATN > BORDER 7 RETURN i/7STR$ BNOT #k STOP IF OVER VERIFY LCODE READ MOVE IF _ASN ASN Z COPY POKE z BEEP ATN AND ATN ^ OPEN #ATN ASN y>[Q][T] TO NEW =ATTR STR$ "*<>c+▚ COPY LPRINT ~~ RETURN E LINE [U] GO TO @ CLOSE #AT BRIGHT POINT RANDOMIZE DRAW #xLEN REM {NOT [L] GO TO z1 CLS SAVE RETURN USR RUN EXP Q[P] LINE IN GO TO W BEEP P FOR ACS V<Vl FLASH 3 THEN ?CHR$ NEXT 6 RETURN GSQR MERGE ' STEP _ PAPER INPUT l[U] VERIFY ▗ STEP GO SUB FLASH [M] SAVE > GO SUB [Q] DATA LINE ▞ PAPER STOP ▜9 CLS AT FOR 0 CLS LPRINT [C]GAT mPI#[T]<> STEP {COS INPUT RANDOMIZE SAVE CLOSE #+ LIST RANDOMIZE MERGE IINKEY$ RETURN >=BIN TO [B] GO SUB STOP DIM OR CLS <> AND wPEEK U PRINT 3PI LINE INK GO SUB LET [K][G] NEXT RESTORE MERGE ^TAN OUT ▟ OUT CLS DRAW ] SAVE CODE m LOAD AND mATTR CLEAR =;o CLEAR [D] OVER LLIST <> LET [Q]▗>x STEP STEP TO ; INPUT Z▟ CLS THEN jASN CLS LINE CLS <> CLS >=ATTR MERGE CLS <= CLS AND NEW P CLS FORMAT PRINT CLS MOVE NOT RANDOMIZE CLS ERASE V[L] LET CLS OPEN # CLS CLOSE #ZTAB CLS MERGE CLS VERIFY qPI CLS BEEP CLS #AT RL▗ NEXT O STEP [H][T] FORMAT DRAW ! OPEN #NOT LOAD [A] MERGE s OUT DATA CIRCLE TO VAL$ j INK CLS IN [I] PAPER PRINT CLEAR READ VERIFY ERASE z READ + LLIST ATN p LLIST CLS NOT CAT BEEP LET }= CONTINUE LLIST REM BORDER <> AND &> DRAW FLASH DRAW CODE g3?S AND v[A]! COPY K<>v"INKEY$[P]D PAPER : READ [G] LOAD /UEXP IN @INT <>▙[L] FLASH V LIST O<>v OUT VAL$ < CLS <>"8[D][S][S]ASN J THEN [S]6INKEY$x▛ OUT LOAD [F]T TO AND CHR$ PRINT [M] RESTORE DEF FN OUT 2< DIM BIN LIST r▚TLN BEEP ▞[P]ACS q IF NEXT GO SUB s FLASH LOAD 3{ STEP *INT MOVE FN [SIN CAT INT OR [U]D LIST RETURN aNNOT 9ASN FORMAT STOP h LPRINT BRIGHT Y AND RNDC;<> BORDER +LN LPRINT REM DIM OVER PRINT FOR READ ATTR ATN ERASE AND FORMAT PEEK RESTORE RESTORE INPUT SGN z" READ #- READ I READ TAB [G]▞s▞~qK▞RND FOR jUSR DEF FN [?[N] PRINT RETURN NOT STOP POKE CAT ABS OPEN # PRINT [R][E],:LN VERIFY :[L]INT [G]mPI>= GO SUB PRINT MOVE VERIFY STEP © NEXT SQR RUN AT W>= STEP LIST ABS <>[T] RUN VAL$ LET +^ RUN ^ RUN CHR$ : CAT [N]PI? DRAW [U][R] DEF FN |POINT oq LET PI COPY 4K[ LET PRINT CLS LPRINT NEW P CLS BRIGHT D CLS INVERSE ; MERGE CLS OVER CLS <><w7U▙[G]l/[N]TAB LIST IN INK >[K] READ NEW f:<NOT POKE NEXT [F]BIN r[I][R] CLS ▘s▝@▘xe-$PEEK CLOSE # DRAW LLIST NEXT SGN NEXT <=TAN ▗STR$ GO SUB v GO SUB 5 OUT w POKE AND RND RETURN NEXT < NEXT SIN x' GO TO ABS R LLIST RETURN B IF !C IF RD IF ER! IF F IF !G IF READ RH IF IN lSGN >=SGN $SGN SGN SGN ▝▗SGN @BSGN [R]SGN [A]PSGN E(SGN ) LLIST 5iOKIN kGSIN STEP { PAUSE NEXT NOT CLEAR USR `[D] CLEAR >[M] PAUSE AND NOT < IF [R] OUT LEN fCOS PAUSE <CHR$ ▜ CLS DIM >=. BRIGHT - STEP aUSR MERGE PAUSE CAT S RANDOMIZE AND CONTINUE |{m IF |<>NOT [S] THEN BEEP FOR OUT IN TO ©}[R] CLS PLOT z[L]I[P] NEXT 0ABS m CLS >= LLIST (<> OVER , DRAW STEP 5 PAPER GO SUB NEXT B(V FORMAT THEN h OVER LIST DRAW RUN POKE xPEEK LIST , LIST INVERSE !IN @7Zw#[H]_[K]R LET NEW INT NEW ^ GO SUB _ NEW [D]CHR$ REM BORDER PLOT LIST RUN YM CIRCLE OPEN # OVER #y LOAD / RETURN LINE ZX LOAD CLOSE #W LINE PAPER NEXT RUN v[S]U LINE AND ©[L]Uy POKE hABS LINE LPRINT CIRCLE CONTINUE 6ATTR ▞ OUT NEXT OVER <>d@p READ [G]0| DRAW dP' GO TO CONTINUE ~[H]6 BORDER >= COPY d BRIGHT PAPER ATTR [P] OUT RESTORE * RESTORE +dPSIN 8 LOAD ▟& BEEP DATA [C]o*J RETURN ,#" DRAW } RETURN ( LINE i POKE NOT INPUT LET VAL$ [K]▙ INPUT STEP PI COPY NEXT VAL 8[H]YCODE 2I CONTINUE e PAPER VAL PEEK TAN _>ATN 3 CLOSE #[M] DRAW CLOSE # LPRINT Z GO SUB RUN ` DRAW DIM [A] INPUT NEW PRINT /:TAB PAPER CODE RESTORE hQ LET BORDER ACS | INPUT / TO IF STEP POKE LINE STOP PAUSE v PLOT PAPER CLEAR STOP L BEEP OUT POKE INPUT CLEAR BRIGHT RANDOMIZE LOAD = IF LPRINT $ LPRINT [1zINT }R{sPEEK AT G PAUSE [J]9 LLIST n IF CLEAR SAVE [J] CIRCLE ABS TO NEW CLEAR = RUN :LINKEY$ STEP STOP BORDER BORDER CODE AT RETURN ACS LINE [R] PRINT ▚©o PAPER E OR STEP [K] LOAD PAPER STR$ RANDOMIZE NEXT BRIGHT BORDER # NEXT CIRCLE READ VERIFY .[P] READ NEXT IF DEF FN L VERIFY RESTORE [K]J[E][L] CLEAR SAVE NEXT / RUN *$INKEY$"[@ASN INK BORDER RUN ]vUBIN STEP / PAPER BEEP PAUSE FN NEW @ TO { SAVE BIN IN j RANDOMIZE SAVE AND [P]* BEEP " PAPER STEP [O] PAPER BEEP (* BEEP RUN /BIN ASN y CLS SAVE ▜ DATA SAVE [F][J] STEP CONTINUE [O]▞ FLASH COPY [J] LOAD OVER >= LOAD PAPER RETURN © GO SUB x THEN el_ NEXT [T] FOR SAVE FLASH INVERSE !b OUT ASN TO RETURN LLIST TO j▜N PLOT READ CLS RESTORE FN MERGE CLS INVERSE CLS OVER jsP CLS OUT CLS NOT NOT S CLS CHR$ s[I]V CLS STR$ Y CLS a9 TO E CLS FLASH K▜ CLS PAPER Ho INVERSE < TO |=SIN <>>BIN CLEAR OR CLEAR CIRCLE [J] OR CLEAR INK = CLS BRIGHT ▛[J] CLEAR USR CLEAR IN CLEAR PEEK CODE [I] STEP FOR l RUN BORDER <8~CHR$ [T]$ DATA POKE STEP CLEAR pW CLEAR PAUSE o_&T) POKE VAL$ POINT PLOT ~%-%# CLS " CLS %uZ CLS . CLS ▖*GI RETURN OVER CHR$ RND<>@NOT q?)w CLEAR FN : DATA RNDPIUSR [D] NEW pv@<= PLOT <> NEXT IN 2 INK @>w# DRAW POKE GO SUB CAT r INK LET @ GO SUB VAL <>FN INPUT ow>=H^,©% RUN m OVER < DEF FN PLOT [P]F STEP RETURN INPUT [S]1"M ERASE yINKEY$f BEEP u OUT USR STEP P INK ASN INVERSE VERIFY © DRAW CAT STEP RUN 2 SAVE <>d▖#< LLIST ▗ RUN !yCHR$ LINE INK USR CAT >=*IN RESTORE ▘F|Nwc RUN VAL |2y MOVE ATTR wL[M]SGN SAVE ▟>=▗ CLEAR COPY NEXT ABS RNDSGN m OVER " OUT DRAW [R]kw1STR$ TO [dINT __ GO TO [J]NOT / PLOT LPRINT LIST OVER CLS LPRINT d8[G]STR$ qx[S]#© PAUSE ^dXW[M]NVAL$ 4▙ DATA [H] READ #< MOVE RESTORE f SAVE NEW EXP H PLOT X;cECODE MERGE FOR ;j_ CIRCLE THEN [Z[P] SAVE RESTORE [H] RESTORE PLOT [P]F BEEP RUN SINKEY$ CIRCLE COPY MOVE G~ NEW @VAL w# DIM RUN RUN FOR j IF BORDER CONTINUE <=<><>GyO CLEAR IF . LLIST RUN CLS Oy> RANDOMIZE RUN !JSCREEN$ FLASH INVERSE CODE wp SAVE / INVERSE V8x TO !IINKEY$4NOT SAVE LPRINT INT RANDOMIZE [Q][H]VAL P|▛ AND )2ABS [F] STOP VAL$ LOAD COPY CLS COPY OR 2NOT SIN POKE NEXT INK "' OR RANDOMIZE INVERSE !/ CLEAR COPY COPY ^SCREEN$ RESTORE MERGE STEP , RANDOMIZE MOVE LLIST # DIM b GO TO INK &INT STOP CLS <>CODE k FLASH ~D LOAD GO TO CLEAR CLEAR RESTORE INK MOVE OR 0KoeSTR$ PRINT <>SIN u PRINT VERIFY SIN 5XSIN LEN |zSIN SIN PEEK qPISIN COPY LIST RESTORE <>d0, RETURN ERASE d@[K]'< LOAD KdP;▚ RANDOMIZE _ RANDOMIZE : GO TO RND< RETURN TO PAPER RANDOMIZE 2/U RUN # LLIST INPUT STR$ RETURN USR ▚[T] STEP IF IF RESTORE RESTORE RUN INPUT IN AND POKE vSCREEN$ IF XVAL$ [I]]▛[I][K] LINE PIY[P]$ CLS <> FOR [D]l▙1 IF ▙▛NOT RND[J]O8 "PI CLS / LINE NEW TO i IF LET SIN NEXT INT y IF CLOSE #a CLOSE # INK OVER MERGE @pNOT CODE LIST LIST 7 DRAW TAN Wa<>= FORMAT v RETURN [T]`+0W LOAD b' CIRCLE FORMAT PILEN =:Wl LINE SQR DEF FN @m2 RUN <>hp/ DRAW J ERASE ~_#Wi RETURN COPY NEXT <>:XINKEY$O STEP OR IF ~2YNOT INVERSE TAN Z<~ INPUT > PRINT C* RESTORE RUN MOVE STR$ CAT GO SUB [Q] RETURN LLIST STR$ LET = ▝ OVER ▜ STOP d8 MOVE w# MOVE RANDOMIZE 3ABS COPY OR v>2 READ STEP DIM STEP BEEP TO SAVE STR$ BEEP FOR <>o OUT NEXT i CLS ATTR E/RNDz INPUT VERIFY RNDP[G] SAVE NOT LPRINT d` RETURN E PLOT OUT cCHR$ COPY d@ RUN NOT OUT LIST THEN 2LINKEY$ PLOT RESTORE o THEN [H]O[P] PAUSE / THEN IF j[P] PAUSE [D] GO TO S CAT FOR [U]TAN COPY OUT PRINT RETURN AT TO MERGE DRAW LET INVERSE ^CHR$ FLASH POKE [T]' LOAD RANDOMIZE STEP ERASE SAVE NOT NEXT SGN TAN hEXP
22473>==I OPEN # CLEAR AND RANDOMIZE VERIFY RUN [F] BEEP DRAW OR x^TAB OPEN #VSIN T DRAW RsTAB GO SUB VAL STR$ GO SUB ▚[S] SAVE TO GO SUB MOVE DRAW INT CLEAR y LINE <= OVER M DRAW YW! DEF FN [O]AT [D] LINE PRINT [Q] RETURN ERASE BORDER ] RANDOMIZE 1[{$ COPY H CLS V COPY ATTR [I]RND; CONTINUE { STEP > PAPER PAUSE 7[D] PAUSE STOP PAUSE A PAUSE FN ▚ATTR PAUSE READ PAUSE DATA A LLIST PAUSE < PAUSE UjM IF c PAUSE *▟CODE COS [A]?5 IF +3 OUT IF GO TO CLEAR 0 RUN THEN FORMAT READ INK GO SUB FLASH SIN OUT DRAW ACS BIN R[I]'T RETURN >=G PAPER NOT OR LIST %TAN NUSR <NOT ▝[N]VAL$ DEF FN ATTR CODE STEP ;<= DRAW w DRAW VAL y] LIST ySQR w▜y~ LINE 0< AND < COPY qo RANDOMIZE CLEAR CONTINUE PAUSE RANDOMIZE v. PAUSE DATA ]SQR FOR PAUSE BEEP VAL$ DATA ASN k RANDOMIZE DATA 8- COPY VERIFY RANDOMIZE O READ PAUSE DATA I MOVE PAUSE RANDOMIZE , RETURN E RETURN LLIST BABS Z$RND8LN 4g RETURN [A] INPUT B▝ SAVE [A] LIST GO SUB "~ FORMAT (%H[J] RETURN b NEXT ▝f<D( NEW 7$H[U] INK X LPRINT 7U?_-E$[D] CAT , RUN DRAW OR BIN EASN RUN THEN AND T IF DRAW E_ DIM RETURN _ RETURN /E OR TO FLASH RUN LOAD OUT IN SQR E CLOSE # PRINT ▚ DIM RETURN [U] RESTORE q<+ DRAW ECOS [T] OPEN #~SQR IN OUT LOAD E BORDER FM RETURN RESTORE / COPY Ke EATN [L]▟ READ / NEW YETAN DIM SAVE REM V8 COPY Ej5g[K]I OPEN # CIRCLE FLASH Z RUN BORDER NOT ACS L[I]VAL RUN 0}EXP ( CLEAR FQ GO TO EXP %SGN LEN !"@A^B BRIGHT BIN BIN "$USR [A][M]@ LET [B] BRIGHT RESTORE $▘CODE [U]▘ RANDOMIZE ▟▗D@ TO LET ▞ REM D$&HFN ERASE OR LIST COPY RETURN IF ▜ PRINT <=© BORDER LET © IF GO SUB x DATA PLOT ` PAUSE HRUM v3.5 by Dmitry PyankovTel.(38822)-4421-1.Bye!!! Gorno-Altaisk, 09.01.97▝ STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP NEXT GO SUB s▛USR !USR @w MERGE GO SUB VAL USR INK ! RUN LIST COPY COPY b0<> GO SUB LN 1[O] CAT STR$ LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE INK ) LLIST A0 SAVE INK (g; LET o GO SUB VAL TAN ; LET PI CLOSE # INK !r@X' INK 1 NEXT <>N@ GO SUB DIM ▚OPN CLEAR QRST[K]q CLEAR *LN STOP =LN COPY EXP CLEAR ' LPRINT DIM SAVE CLS COPY y$ SAVE ,-+./0}j1 CLEAR ! INPUT ▚PO8 FOR BIN ▞ STOP TAB USR [C] COPY PRINT VERIFY TAN OVER PRINT LOAD Dt CLS NOT ASN [G][U]BIN ▛▞BIN OR RETURN [U]<= COPY INVERSE LIST ,[F]<=[P]> PAUSE .<x COPY BORDER 'LN LET READ LOAD POINT fFN Oq LPRINT 4 MERGE q LIST <= ERASE JhFN POKE <>( CLS INPUT DIM ▖i7 COPY )I BEEP IF nGPOINT FN 8 DIM COPY REM RANDOMIZE ▞. INPUT LIST SAVE # THEN TO cJ LET EK[T] AND .8 POKE @PI COPY ![D] COPY CLOSE #T[E] MERGE ASN OPEN # CLEAR " INPUT l, COPY CLEAR ▛$ GO TO 9S[D] MERGE !AT vVAL$ PAUSE %/RND DIM . CLEAR POINT [H] CONTINUE DRAW INKEY$/ NEW fAT VAL$ -[A]) GO SUB DRAW p'.,ni[H] REM ) OPEN #©[D]/ FORMAT X/▖[G][F] CLEAR [H]VAL$ w NEW _?[F] COPY ▗GHMOI CLEAR JKLM CLEAR ▚/PEEK ▟ CLEAR <=}<=#$ STOP MOVE VAL EXP RETURN COPY CLS #▞ DATA LN RETURN [U][Q] PRINT SAVE SGN ^▛+ LINE CLS ^ CLEAR ▛▟ CONTINUE DIM ▙234 CLEAR 5678 CLEAR zz[U]9:; CLEAR <=>? NEXT ? CLEAR ▖[T] OR [B]J CLEAR ]SGN ▜▖[B]Qt LLIST ▞[T]%[R] COPY [H] IF [E]?TAN [R][S][B][D][T]EXP NEXT PRINT [E]) CAT RUN [U] BRIGHT RND PAPER BIN PI[A][E]▜EXP INKEY$PIFN ▗INKEY$▗[B][C][E]IN Q AND 5 MERGE DEF FN [E]<>© STOP ▚$ DATA LET NEW READ STEP <= BORDER n< PAUSE BRIGHT a SAVE COPY [T]Gq NEW ▚▟<=[A]ATTR [L] DRAW OUT [J]n.i72 BRIGHT /LN @ OPEN #S CLOSE #▖c POKE MOVE CLS CLOSE # FORMAT MOVE Q} PAUSE CLEAR <=[I][H] CLEAR STOP ERASE nR LINE % CLEAR PLOT COPY REM % PAPER CLEAR LN IBIN TO CLEAR STOP P RUN CLS OPEN #oNOT '(POINT D NEW ▘!kF LPRINT G[D]▝ READ OPEN # PLOT <=[G] CLOSE # SAVE >=[C]/r~ DRAW INK DPI'FN ;)NOT / PAUSE 4{ DEF FN MX OVER bP[D] CIRCLE LET ▚ LET COPY b=LN ▘ PAUSE ;wX AND ATN :]x[M]<=! [R] LET STR$ [S]"[T]▜ CLEAR ACHR$ $ >[U] CLEAR RND%INKEY$&[E]IN CBIN BNOT ('[I]# CAT o)SCREEN$ [E]BIN OR ▘? STEP I[H]qLN EXP &CODE '[E]PEEK [F]''▜ IF [G]SQR VAL$ IN COPY BRIGHT [J][K]LN IF #$EXP [L]USR COS [G][M][N] BEEP IF OPEN #>= FOR LN [O][P][Q]P IF 6' RUN ; IF [F]VAL PLOT [I] SAVE EXP u PRINT PI>=[N]PEEK STOP BRIGHT y^]?~ IF ~ CIRCLE INK © AND +[R] LET RESTORE !LN LN nc[P][P] POKE [U] BRIGHT THEN spI CLEAR STOP [D]:jz▛▙ RUN 7u BEEP ▞ INPUT REM < STOP LLIST INK [F] BEEP uy*vABS v MOVE PAUSE O NEW [C]"CHR$ . COPY <0 SAVE 9= MOVE CLEAR A:FNOT STEP > RETURN ▗r[K][F] OR TAB ▗[N][D]F NEXT TO CLS COPY CAT OR NOT ASN PAUSE RND POKE AT RETURN NOT CLS REM AND %▗SGN OR DRAW TO CLOSE #A CLOSE # CLS MERGE BRIGHT COPY DEF FN -BIN OVER DATA GO SUB RESTORE 9 CLS ERASE THEN ABS OPEN # POKE CLEAR OR CODE CLS ▝YcSTR$ a ERASE iqy▝▞ CLEAR xSQR CLS +USR BEEP ^ IF rz▘ CLEAR [D][G] STOP SIN [C][K][S][E]IVAL [P]ATN %[P][M]K▖BIN [P]ASN [R][P] LIST RETURN ▗[P] GO SUB & RESTORE +EXP COS LIST INPUT [K]5=CjASN [F][E][H]{[H] BORDER LET Y/,(▛ FOR [H]:CCHR$ GO SUB ▛BJRZbjw CLEAR r{SIN ▖+> CLEAR [F] STEP DEF FN % DRAW COPY .o PAUSE NEXT <>=EXP SGN LPRINT =[B][L]STR$ ^/[J][R]POINT LEN EXP X CLEAR <> OPEN # STOP NOT MOVE INK M IF LLIST DIM LET RANDOMIZE CLEAR CONTINUE FORMAT CHR$ CLEAR D▖ PAPER s▛<|UUSR hp>kt▟7[I][Q]FN [U] MERGE L OR COPY P GO SUB STOP ▖[A] LET STEP PAUSE LOAD OPEN #▝ CLEAR VERIFY -USR PX`[P]VAL$ LET EXP BIN =E8@ LET kH LET LET DRAW LU<=▛I CLS @P STOP LOAD p[P]aq PAUSE SQR BEEP [F]^x PAUSE CLOSE #wO STOP MERGE NEW CF@a LPRINT LET SCREEN$ LOAD p;RND([I] LOAD READ &M LINE Zjz LOAD ZFUSR 7v[E] DRAW READ oCODE FLASH / LIST [O]{0 LOAD w7p< NEXT 4[C]6 LIST CLEAR [M][P]POINT p▞( DIM CLEAR Ii~POINT CLEAR pVAL LINE <> REM ~(*Jje[O] CLEAR Dc|[H] OR COPY INK DRAW CLEAR " DATA [R]G PAUSE RUN DRAW [O] RETURN 1qRNDe CLEAR OR NEW %[I][P] CLEAR LET LEN AND ▚Ff CLEAR INKEY$~: BORDER CLEAR USR g'G/} CLEAR ▜PI<= BORDER CLEAR [Q]F CLS INVERSE ▖[H] MOVE STOP POINT 'G IF RANDOMIZE "b[A]VAL BEEP PLOT 4L OPEN #Tw RANDOMIZE " CONTINUE n LINE zi[P] FORMAT G COPY CVAL$ . RANDOMIZE OR E CONTINUE AT [P] RESTORE INPUT ▘ LINE THEN _ CLS [S]▛ TO ! INPUT OUT ACHR$ STEP ▟M STOP x[M]bPOINT OUT .N5 RETURN ▙ DEF FN O<=d▗<>@<=s OUT _ NEXT !INT LPRINT F GO TO RESTORE TAN CILEN COPY AgP<>kd CLEAR DRAW A▛8<= BRIGHT D▗1xe© FOR INKEY$ THEN *[C]K TO N_ STEP L DRAW ?l?IN [A] BRIGHT LPRINT TO Z[O] DRAW STOP w CLS OVER CAT O FORMAT y STOP TAB TAB 'FN bABS POKE COPY * THEN INPUT LN ABS [O]sIN ?|▘▗ COPY © CLEAR ▚▖[C]*2H8D DIM Q DEF FN ERASE [C] OPEN #R CLEAR SNOT / NEXT g VERIFY CODE NEXT ! LPRINT ACS K GO TO CLEAR DEF FN mk RANDOMIZE LEN LINE LINE LPRINT FOR INK >= BRIGHT [G]F GO SUB PRINT DRAW THEN <=SCREEN$ BRIGHT ERASE r LPRINT DRAW [ INK ▛ OPEN # FORMAT vi THEN CLOSE #ABS PLOT COPY @AB CLEAR CDEF[I]PI CLEAR INPUT LET y LIST RESTORE ▜ LET 4 LINE {<> COPY [F] READ OPEN # SAVE PRINT STR$ ▟ GO TO i CLEAR ▙[J][R]SGN dV GO TO FORMAT 4▙ NEXT <=C[O] LLIST CHR$ STOP NEW COPY CONTINUE C COPY IF STR$ CLEAR ASN ? CLEAR o FORMAT !% CLEAR )-1mi5 CLEAR GJCODE CLEAR EIMQ CLEAR J▙' THEN CLEAR ▚▙ STOP h FORMAT RUN PLOT D{ IF [D]r[G] GO SUB PAUSE ▜v PLOT LOAD [K][O][S] RUN E# PLOT FORMAT RETURN ▖[S] RUN CAT OUT <> RANDOMIZE ▘ IF USR SGN AT OR FLASH BORDER ▛[U]SCREEN$ DATA LPRINT LPT CAT NOT PAPER ▛&>Bi DATA @ BEEP GO SUB DH TO TO BF? BEEP IF lASN %z3[S]*5SGN v GO TO MERGE BIN /b]|kCHR$ momIR STEP ` LET TO r[K][T]SIN RND©~& RESTORE 9 IF [L] COPY 1x NEXT > CLEAR sMOQ NEW READ <= PAUSE 7 INPUT .K/VAL$ " DEF FN TO STOP [H][I]SQR CLEAR ▙d LET u IF [I] LPRINT ▞dhn CLEAR >=S STEP >= ( FOR SGN & LPRINT CONTINUE PRINT COPY g GO TO LET USR 8Db|▛ DRAW COPY CLOSE # PRINT 4Qq▖ DIM [T]<>LN NEXT K%9SGN t1ABS ERASE % SAVE POKE [U] RETURN CLEAR OO COPY PRINT LPRINT AT VAL TAN CLEAR LN SGN USR BRIGHT qBIN CLEAR LOAD RUN 3[L][P][T][U] NEXT >POINT SCREEN$ SIN SQR AT RUN m OVER }SIN PEEK OUT ACS IN TAB RUN CLS }#SQR IN NOT OR y OUT }? THEN CAT OPEN # MERGE CLS NEW }E READ [ PAPER OVER COPY ▖[F][E]B COPY ▖9PEEK ▜[R] CLS <= GO SUB LET PRINT CLS ce RETURN [N]j<= COPY [E][I][O] OVER PEEK RETURN @EPI{[C]TAB LPRINT 4 REM y9^ PAUSE yATN (PI CLS :F NEW LPRINT ~" LPRINT ABS LET RETURN ©^COS OUT ▖CHR$ >@b NEW RESTORE GO SUB ABS <>R$n|V COPY N DRAW BORDER ▛[A]z COPY VAL$ VAL$ PEEK R IF VZCHR$ NOT CLS RANDOMIZE ▛▖z[D]sTAB ^b RETURN fj^Y LET ▚VAL$ OUT PRINT LN orv_USR ([P]▛ STOP z<=[P]~▘ NEXT NOT ERASE VAL$ .? OVER + COPY o1 ERASE RETURN SIN OPEN #▜7(1 RESTORE [WU OUT ERASE CLS g$BIN LET n RUN Wv STOP DIM IF d[H] THEN [L][E]ACS LLIST uD IF LET $ABS 9 CLOSE # PRINT RESTORE t IF n RESTORE GO TO READ DIM + OVER m RESTORE TAN $CINKEY$ MERGE PRINT ATN OUT INT OPEN #[T] BEEP PRINT ATN iBIN RANDOMIZE OPEN #[R][L]▖[J][D] FOR 76 STOP H RESTORE PLOT IF i DIM STEP AT ▖/ DIM CONTINUE [B]TAN READ HPOINT GO SUB ▛INKEY$POINT [S]i8INT cr[H] CLOSE #POINT [G]?LNOT IF COS NEXT 3WB6 FLASH PAUSE POINT INVERSE READ REM & LIST 'nkGy[S]'▛▖PI CONTINUE PLOT 4N THEN COPY GO SUB SCREEN$ [N] READ " READ PLOT h MERGE ▖l FOR AT FLASH #[E]t)7tkluVJ LIST DEF FN SAVE DIM [S][L]▖u NEW !Q LET SAVE OPEN # GO TO OPEN #SGN T[N]tL OPEN #nxAT BIN OUT OVER F NEW [S] BORDER i[P][D]wt; RESTORE , ERASE GO SUB NEXT . LLIST STOP TAB ABS CODE [D] CLOSE # CLEAR [S]bQ NEW I MERGE INPUT VAL$ NOT C8 PAPER ,▖TAB DQ DEF FN LLIST ,[K]▟;TAB ▘NOT OPEN # CLS LET sCHR$ ZVAL COPY LET =[C]A RETURN READ OPEN #8yVAL NEXT aUSR AT LET [G]2[P]© RESTORE REM *T MERGE )SCREEN$ LET / CIRCLE Rp DRAW ▛ DEF FN . PAUSE GO TO SGN B RETURN % BEEP LET CLS PRINT LIST 8©p NEXT LET Csr READ g PRINT e CLEAR d RESTORE a▞+= LET BEEP VERIFY VERIFY COPY ` INK LET 7s/ BEEP OR SCREEN$ AT BORDER $CODE LET BORDER LET 1a STOP ` GO SUB NEXT VAL SIN TAN ACS LN STOP r[M][O][Q]qz CLEAR [S][U]INKEY$FN CLEAR RNDsqc MOVE CLEAR Q CONTINUE COPY IEXP K IF RESTORE COPY ATN RND NEW { BEEP GO SUB NEW G RANDOMIZE PAUSE CLS xx NEW DATA xz LPRINT <>[Q]q LLIST GO SUB COPY Bo▖SGN EXP ▜PI8!FN COPY L PAPER `4m▙ CAT SN COPY LIST ` DIM FN rEXP SAVE XZ/^`baSQR ? STOP IN r STEP CAT MOVE ERASE ~m CLEAR [S]r MERGE Y] VERIFY BORDER PLOT 2 LOAD ` INPUT MERGE [_ LET }OV<>_ INVERSE OUT DRAW BORDER 0|x COPY y COPY [R]BIN ©CF▙ STOP STR$ UYINKEY$ FLASH ^ DATA 6/ RETURN BORDER RETURN STR$ aeimpB NEW READ TAB AT [M]ATN Z COPY ▘ REM PAUSE CLS [I] PRINT ©VAL SQR k CLEAR #+0P INVERSE RESTORE SAVE COPY NOT eSQR ;CKU PRINT OR STEP ©CHR$ eATTR ksm MERGE PLOT ASN !IUwZL STEP DIM T PRINT ▝1= LPRINT RESTORE DSIN CLEAR REM ▝% MERGE PISIN CODE F[E]STR$ OPEN # STOP SIN IN CODE BORDER ▗/aY COPY ATTR EXP SAVE CIRCLE READ &L STEP [K]C AND [L][M] CLEAR <[N]G?[P][O] CLEAR |ACS [T]S COPY *[U][ CIRCLE INK SI IF COPY DRAW m* INPUT c[S]& LOAD Rnm CIRCLE X CLS LET MERGE ([ RETURN v CIRCLE [E] RESTORE COS LIST MERGE ▗NOT CAT B READ COS [J][K] FORMAT iD OR CLOSE #CHR$ NOT ▜ FLASH C▛▛ CONTINUE !s▗ CONTINUE [B]▖▝ POKE XTAN ▖#IVAL$ #][T] OR IF i▟J_ THEN DRAW FLASH [S]LEN LIST t FLASH 3 THEN / PLOT &LEN [H] LOAD M_ CONTINUE 3 MERGE eACOS +iSIN [P]▖H/ CLEAR ▖ CIRCLE ▘[O]x*▟SGN ▜ GO TO CIRCLE x[A]l▞H LET 1[O] RUN OUT ▖▞LEN READ =PEEK ▛ PAUSE OPEN #o▖<=>=ASN LIST &▛ CLEAR H<> LET COPY POKE ▖ CLOSE # CAT [A] COPY ACS COPY 5 BRIGHT .CODE /VAL 0ACS <=38[T]7ATN 1f LIST SIN 2COS Z6 THEN NEXT ABS RUN [COS TAN 4ASN DATA <=[P]pLN STOP % READ ▜V VERIFY BEEP ▟ NEW FLASH k IF ?6.<xLN LIST BEEP aAT BORDER 3=CHR$ NOT <=VAL$ SAVE RETURN v OPEN #[S] LINE zBt▘ LET tK LET VERIFY f# INVERSE t STOP FN hPEEK ABS BEEP STOP IF Hm STEP MOVE (TAB AT PAUSE FORMAT FASN LIST BRIGHT w CONTINUE f▟ ERASE OVER ! RESTORE -ASN V STEP pw CLOSE #SGN OR BVAL$ CLS RND[L] LET OVER INT VAL$ @ASN GO TO 7 GO SUB REM TAN UwB[U] FOR F LET PRINT hlqD IF OPEN # PAUSE u; STOP @` LLIST INVERSE Q PRINT {SQR DRAW <S>= BEEP z LLIST a[E] INVERSE <SGN LEN SAVE CLEAR =U[E] MERGE ▞ GO SUB CONTINUE INPUT VERIFY X7▖,H<>vy8AT INKEY$;[C]gIN tO IF g CAT c STOP GVAL$ PAUSE ! TO PI[R] GO TO OUT a THEN ▚!P▟bSQR CAT <=SCREEN$ OR AND READ C DRAW JVAL$ nDBIN USR [U]ASN LN |-[ COPY /n PAPER BORDER F[I] RANDOMIZE ▜ RUN %?^ STOP AND DIM RANDOMIZE U[F] GO SUB % NEW / OPEN # NEXT f▗<=AT V[G] BEEP [K] NEW ERASE COPY LIST '.CHlW[H] CIRCLE g RETURN COS [O]B▜TAB CIRCLE [I] INK Y BEEP FN U TO A AND © RETURN GO SUB Y PAPER ZAT ,<SGN TAB -VAL$ SCREEN$ SCREEN$ /y RUN RETURN COS ]^_`a RETURN OVER NEW BORDER CONTINUE DIM PEEK RUN REM DRAW CLEAR FOR CLS * POKE + GO TO RETURN COPY GO SUB uj NEXT ▗m_+ INPUT LOAD LIST LET ATTR N LET ▚+© DRAW PAUSE NEXT POKE PRINT N^[Q]JR[I]ZU IF GO SUB CLEAR LOAD GO SUB NOT STOP LPRINT VAL$ SQR Q COPY COPY h▖RNDATTR OR <=$/ FLASH < BRIGHT 6,LEN { DATA OVER C[E]POINT ~[D]$ PRINT : MOVE POKE [F]#*INT PI PRINT )[F] OUT PAPER POINT > FORMAT D/[tbZ~ ERASE ▗rTAB CONTINUE ZTAB ▟& NEW -ACS [T] BEEP +▞e CLS CLOSE # OPEN #h[T] POKE CLEAR OPEN #▖ COPY RANDOMIZE BORDER LEN OVER COPY k CLEAR l PAPER "*2 CLEAR CAT RESTORE CLEAR =>= STOP CONTINUE jSQR Q STOP mG SAVE LET o SAVE [N][C] GO TO g[U] INPUT CLS LLIST PI▖ INPUT VERIFY INVERSE STOP CLEAR T<A▜FN STOP ▙; CLEAR LP LET [L] LET <= (>= PAUSE y9 OPEN # LIST >=[R] CLOSE # STOP CODE USR ACS PAPER BRIGHT DEF FN = STEP k^w_USR LET U][T]ABS PAUSE %PJh<= LET STOP hQ LET = CIRCLE h CLEAR NEXT IF ]<=L*;[O]S`[G]PEEK +[R]SQR CIRCLE VAL$ CAT PRINT SIN -|WS3Sn COPY CLOSE #yEXP VAL LLIST r OVER BRIGHT PAPER READ 3iqNOT TAN <=▞ NEW PAPER COPY ' GO TO ,85 CIRCLE p LLIST NEW ATTR COPY LOAD ▙v GO SUB TAB ACS [H]l COPY v</xLN lVAL LET [H]LN UVWCACS l DATA [H] LINE DRAW XYZ[/ RANDOMIZE STOP [H][I]EXP IF td LET ASN mn PRINT RETURN bcdefA$ PRINT CLEAR - CLEAR ghijPEEK INK [D]L' CLEAR #$VAL Q▝ RANDOMIZE ) THEN STR$ LLIST &'LN LIST zPOINT SAVE PRINT REM [H] LLIST ~ CIRCLE INK © COPY y▙ RANDOMIZE ▝ !BIN . RANDOMIZE RANDOMIZE DATA `SGN REM 0 PAPER RANDOMIZE BIN nr REM RANDOMIZE DATA `SGN REM $USR RANDOMIZE ▞ SAVE [D]j[D]]z[K]J* LET [E]PEEK [F][G] COPY © LET ~USR CHR$ &Oom/1©35pINT CLS [P]SGN PEEK LET H CIRCLE BEEP q7▝9s[O] AND LET B LET =?A<> POKE LET LET 0 CIRCLE OVER PAPER COPY COPY BRIGHT BIN AND >= LINE TO BRIGHT LET COPY DEF FN FORMAT ERASE MERGE `.X CLEAR CLEAR EXP BEEP CLEAR _247<= RESTORE bSGN [P]' IF p,.1[O]IN [H]/}+- LET 8:= COPY FLASH [H]N|<= RANDOMIZE [J]ATTR COPY COPY [A][B][R]INT jz▛?M[L]USR EXP v LPRINT COPY COPY |▝ STEP OR NEXT NEW fPI GO SUB FLASH [L]@&?e LLIST . BRIGHT ACS /%©F▛ABS jn BRIGHT LPRINT SCREEN$ AT ©VAL$ P* READ STEP <=▛[G] THEN o▟[F]ATTR SCREEN$ *?2j LPRINT ACS LEN <Q VERIFY COPY LINE PLOT . INK RETURN THEN ▘5VSIN SIN s'SIN SCREEN$ ATTR 1n+6ACS A STOP ATN FLASH VERIFY vy OR L OR DRAW 5)ATN VAL$ POINT MERGE INPUT i+ MOVE dRPOINT RESTORE TAB INVERSE [ FORMAT [J]w-XPOINT #pNOT Ix MOVE RANDOMIZE PAUSE v[B] INPUT uh IF [B]`[H]PI5ATN LLIST Bb[H]PIX COPY ?xLN VAL ▚9:;<= INVERSE >? CAT ATN ATN _ COPY VAL LLIST a` FORMAT | RUN LEN pATN SGN STOP r6SGN STOP PEEK <= LET "$wSIN CLEAR ] [L]▙ ERASE dfh CLEAR k# CLEAR USR READ rtv AND CLEAR Yc=3 COPY OaNOT ▜ VERIFY COPY vqNOT [H]8xATTR U LET j4 LET I; BEEP "[S] READ <=[O]J READ RUN W INPUT . INK CIRCLE [J] RUN n@VAL$ STEP T~Dn< STOP [L] GO SUB POKE LET DIM } BRIGHT COS yEXP LN BEEP [L] CLS 051 STOP READ RANDOMIZE CONTINUE "[L] DRAW BORDER LN [E]t▗ CLEAR INKEY$KLZ[G][I][K]o][Q]EXP ▚ PRINT VAL$ COPY *YSCREEN$ 2 STEP INKEY$l0 MOVE COPY yJ NEXT sa THEN OPEN #< ERASE BRIGHT DEF FN NEW REM DRAW e POKE AT REM 4wgp STEP Gc&`[[▛1SQR ~ DRAW [J]SGN THEN [K][A] RESTORE [L] ERASE SIN >={ LIST STOP C[I]C NEXT DIM ▜#8[I]ATTR OVER © LET Xcsr2K▛9 STEP FORMAT LPRINT RANDOMIZE RANDOMIZE k[P] RANDOMIZE CAT ▝b DEF FN [B] RANDOMIZE [K] DRAW <=*1@[C]ATTR ▛[P] RANDOMIZE LET M LINE Q BORDER [P] COPY ATN <= GO SUB ▟[H] SAVE +[P][Q]VAL [C][A] RANDOMIZE STOP x[D]@PqATN FVAL$ pB| LIST SIN CHR$ ERASE LN RANDOMIZE [R]SQR F PRINT f▚R2@ LET REM vINKEY$G COPY .▖<=(Hh▚ASN FN >= CLEAR DIM IiASN ▞POINT CLEAR <> INPUT POKE ? REM LINE *JjPI PRINT CLEAR W78[H] RANDOMIZE [R] CLEAR LET OPEN #. REM ©D DRAW CLS e▙ RESTORE RNDN DATA & CLEAR FoSGN FORMAT INKEY$ AND BORDER <= CLEAR USR Sl OPEN #-LEN CLEAR [H]ATTR THEN CONTINUE MOVE PAUSE ©ll▞OlSIN 6 LET ATN 2o BRIGHT T COPY / NEXT ?F▙[K][O][T] STEP ATTR M FLASH skm<>- TO s]FN x CLOSE #l NEXT CODE © BEEP AND COPY 7.< COPY COPY [M]:l LLIST OPEN #g[I][P]01>d TO FORMAT SAVE PLOT <>[J][R][D]S[O]s CLEAR CLEAR f[G]SQR H* NEW OPEN #SCREEN$ LINE RUN ^AT BEEP w▛[J]?+Kk[H] LIST DIM pq LET s GO TO STOP LET TAB ACS STEP GO SUB O[J]AT s CIRCLE d▟ GO SUB PLOT 0 STEP LET TO -PISTR$ ^ SAVE %CHR$ ?J?GNOT 2 NEXT PEEK "[D] FOR mE[R] MOVE ▖ REM MERGE [M] DEF FN [M][H] PLOT zPEEK q▞)[M]VAL$ POINT VERIFY (vCODE NOT ▗q LINE B[M]▙.lVSIN ATN ACS P[E]8[[B]o[H]H▖ DRAW ▖.MBIN ▖ DRAW ▖ COPY y[M]<=sATN [R] AND ![S]"[T]▗' CLEAR LET #[U]$A| CLEAR RND%INKEY$&z|CBIN 'FN NOT x CLEAR (POINT )SCREEN$ ▟ REM BIN OR [M] CIRCLE PAPER [F][E]SQR LET q▘G▖ PLOT LOAD NEXT ▝ CIRCLE PEEK [F][G][M] PAPER SQR G>=RND<INT C>=INKEY$TAN ASN STR$ x NEXT PAPER FLASH PRINT ▚n▚▙ CIRCLE PAUSE R BRIGHT DEF FN NOT ▜[O]+LN LET CLEAR ? LPRINT PAUSE c6z[I]h MOVE CIRCLE Y IF m STEP IF ci4h DIM ngaABS RESTORE SGN FLASH OVER +F BEEP OR SGN [M]/EXP A[J][P]T LLIST >=▛ OPEN # POKE < DATA PX[O]n OR [L]EXP BORDER FOR p LIST u COPY EXP z▗H INVERSE ; COPY BORDER >=▞A REM [[E]ACS LPRINT MERGE ▖ DIM ATN t CLOSE #VAL$ PRINT ©SCREEN$ 4 THEN !▖ BRIGHT a[S][T]AT ,VAL x COPY VAL $<>mABS J=C[U] OM/,P^G CLEAR `csarUS`A PRINT &ln;SGN BORDER NEW CLEAR JLO[F] BEEP DIM ▘▗ CONTINUE CLEAR DRAW [P] FLASH sp&"*▖▙[A][C] REM CIRCLE ^[D]!u PAUSE [G]© GO TO PAPER INT [R]#REi CLEAR RND[T]▞ BORDER STR$ VERIFY )TAB EXP E▛[R].CODE 9 CLEAR TAB ZLEN TAN INPUT >==VAL$ UATTR TAN PAUSE 4SCREEN$ VAL$ j CLEAR F STEP % LINE B( IF z CLOSE #POINT RESTORE @FN ▝ CAT ▗: PLOT ▝) OPEN #~ FOR }P▖ COPY ; COPY COPY [S] NEXT [B]ATTR AQ▛CINKEY$▝N▟COS CLEAR COPY [K]<7{ PAUSE RANDOMIZE POINT PRINT W>=CHR$ $QRND BRIGHT |LEN [A]+▟ CHR$ VAL RUN SQR #0jFt BRIGHT *Fc[K]oR>= NEXT COS [F]H▖$ OUT REM CIRCLE VACS <=}" COPY COPY # CLOSE #G▝[T]USR O>.IN LET CONTINUE [J][F]q[Q][N]Q NEW { CLEAR ▝[R]@P OR D MOVE 8J▟5( RETURN v INVERSE jR&▞S CLEAR PAUSE P@` DRAW FORMAT [Q][C]I$ POKE FN N IF ZfX Pp INK *▟oLlg>▝ PAUSE ~ READ <[U]$[C]J`H LPRINT COPY NEXT F▘h:t REM RETURN COPY FORMAT ©@ CLEAR # POKE 'SCREEN$ O FORMAT /z▘ PRINT ▖zxH▞BG DATA JL OR ,[Q]USR q AND #D+▝▙(▗! LET =/IN t STEP PEEK FN READ ▚SGN FORMAT THEN FN INPUT COPY ▞ DRAW BRIGHT ▞" IF ▜ CLOSE #LN B FOR SAVE _ SAVE LEN (B[S] CLOSE # DATA @ REM >/R[E]4ATN BRIGHT O VERIFY COPY CLS I[E] FOR 'AT FORMAT LOAD [J] GO TO RETURN P CLOSE # RESTORE INVERSE $B RESTORE >@sX LIST H COPY $@+'#Y(#INKEY$@@ DEF FN PRINT # MOVE COPY DRAW COPY - CONTINUE U' IF CLEAR ! COPY @<= FORMAT A CIRCLE SAVE [Q]t(:▘ LINE ▟ DIM ▝#>=Q[E]([S][E][I] TO @INKEY$RUSR Q LPRINT TAN dSGN ([B]B@ IF B#`P~ FORMAT h INVERSE INVERSE MOVE ;BIN COPY SAVE ▗▘POINT Vr▝RND▟ PLOT ![I] OUT T▞IN BRIGHT hPr[Q]Q COPY COPY ▝BIN +[E]▞ INVERSE CAT USR G[T] CONTINUE IS PAUSE PAUSE [U]SGN " COPY 4▟[M]<>8<>X▟POINT 1ICPj▖ DRAW BIN :@"DH▖ CLOSE #1 RETURN R-]FN [U]©uQ LINE =P PLOT POKE >▗x COPY w ERASE I' LLIST ATTR DATA CLOSE # COPY COPY IF RANDOMIZE |ABS [O] INK STEP AND @PISE- COPY [R]FN USR MERGE [Q]y>=;[S]INKEY$* POKE v0 THEN CONTINUE [F]NOT STEP COPY ([D][D] GO SUB (▘z OPEN # COPY FOR 1INT VERIFY ]▘$$+ PLOT ? CIRCLE [J] AND DEF FN USR RETURN NEXT q$DrSQR ▝9 LPRINT ZVAL 1X RETURN ',[Q]P&:9ATN [M] COPY ' INVERSE DIM PRINT PAUSE SIN }X~$ BORDER [B] INVERSE NV RETURN PxCODE PAUSE T POKE "ATTR PLOT -[N] RETURN [P]USR SAVE W CLOSE # BRIGHT @ LPRINT [K]v▞VAL [A]"u PLOT 8▝ CLS @ TO LET At LPRINT USR ` TAN COPY COPY BRIGHT B+USR ▝ DIM *|[A]PEEK ([J] STOP COPY BRIGHT ▞LB▙[R]*▗UUSR zpPLN [R] INVERSE [E]▜?@| LPRINT p,sTDSCREEN$ COPY B LPRINT Z% BRIGHT &ZG[E]sVa IF READ g>=[Q]▖0P hACS )?LP[O] LET [K] LLIST RND COPY COPY ^/ RETURN COPY !©[C]CODE [Q]Z LIST LIST kzLN E LPRINT SGN K▟y[K][O]FN AT [M] BRIGHT O CONTINUE |PI@C][E][N] COPY RETURN <> ERASE k LPRINT LIST [Q]Z GO SUB ACS ©.[G]x BRIGHT CODE ▖ LIST ▘VAL NEXT COPY HTPO FOR INKEY$ @x CAT P"[R] REM +PEEK Ov[E] pUSR BEEP VAL ] LINE K▗ PLOT PAUSE OVER LINE COPY ▞[E] PAPER '▜8 DRAW $P,($C[Q] LEN COPY COPY CONTINUE ▖▞$ GO SUB INT RANDOMIZE 5 DATA _▗ DRAW COPY IN DRAW USR CODE /LN -p[P] COPY COPY [T]([R]1B▖[C]"I) FORMAT [P] SAVE SQR USR GO SUB %[A]FN SCREEN$ COS PLOT IF {y&e[R]^ LPRINT c PLOT PEEK I$EVAL oe`!P^B FORMAT TO LIST FLASH ▟ CLOSE #[H]. COPY OUT 7▝S[S]VAL$ AT LPRINT COPY COPY uJb. DATA |>= LET OR [C]%NVAL$ RANDOMIZE <Ex[B] LPRINT ▖s&| REM :▚ LPRINT :x@SCREEN$ sVpUSR %v INVERSE ,;8o_Q(FN READ [I]5`=$I[C][B]v DRAW [H][G]D[F] PRINT COPY [K][F]C LET REM CODE [F][P] COPY COPY O OVER GO TO < LPRINT Y STEP LEN FORMAT r▝eCHR$ MOVE o COPY ATTR [O]▛LN q LPRINT © CONTINUE CODE DRAW STR$ ) FORMAT W[I]@LN B[U]O LET COS LIST PLOT SGN LPRINT (o+ LIST W[Q]9 LOAD LN LIST #"%?[B]d[E]AT COPY OR <>it[G]2 GO SUB & CLOSE #AT LIST BEEP [EXP A READ #bACS RUN [R]a[C]IN FOR OR f[T]}TpVAL$ kATN INPUT XVAL$ [F]▛ASN CLOSE #▗[P]>=<>=[E][I]![B] SAVE T0#FN C"[S]?PI% TO ▛▙ INVERSE PAPER OPEN #~-q DRAW RETURN DRAW © LLIST ([E][D];[U] BRIGHT i! LIST !010qQ RETURN ?[I]EXP PI3INKEY$q ERASE ▞$[C]Bpb[D]▘BIN [M]©▖[A]DP{ CIRCLE LET # GO TO +FCODE ]C THEN 8[N]$[B]▗LEN >=USR AND BIN &STR$ 7[I]R? DRAW VAL 2Z1)bACS j INPUT FLASH W DATA ; NEW 4LN MERGE COPY /[Q])STR$ q[R]kR CAT COPY COPY OPEN # LOAD RUN INVERSE ATTR <T} PAUSE ▝ LIST CONTINUE D NEW h LPRINT ▟ COPY COPY STR$ 7Ek&▝P[S]CODE FORMAT /SCREEN$ [Q]T BORDER COPY )M[O]▘r SAVE C DIM ([H][F] COPY COPY ▙:Q FORMAT @GRND^9 RANDOMIZE COPY ASN BEEP AND ▝▟▙TAN > POKE CLS OPEN # RANDOMIZE COPY COPY TIUSR NOT ▚[K]8▙a CLOSE # OUT *T< LIST CONTINUE ▘ LPRINT RND<= MOVE ▝ABS `BCODE v/R<A COPY COPY .!/[A]POINT CHR$ R RESTORE ▝bASN COPY LPRINT LEN qX SAVE ,SGN ^ RETURN / BRIGHT COPY COPY USR XBIN bT/_ATTR RETURN COPY POINT FORMAT P*[T][F]>= STOP ! LET SAVE COPY BEEP BRIGHT rYSIN AT P:[R]+ TO OUT . LOAD IN NEXT W SAVE FN <D| RETURN COPY IN K▝BIN ▖▞pSCREEN$ @[VAL$ TAB d[N]<? FLASH i GO TO STR$ CLEAR COPY #USR ▘uHFN U"mmhuATN ?[O]▞ BRIGHT &▙[S]M MERGE IF *P ▝VDASN EXP k! DATA DEF FN G RETURN BRIGHT (P FOR SQR 0<@TRND7$X#r ERASE P RESTORE x-▙ RETURN o[A]EqrLN pPOINT @2Js FOR INT DATA ▖TAN THEN ▛©SQR OPEN # COPY LOAD LINE COPY GrFN [F] CLOSE #%q FOR LINE LPRINT VAL$ K[K]B9; COPY y8VAL$ RANDOMIZE [K]@ LPRINT * BEEP BIN LOAD LN DRAW YU~ BRIGHT COPY xD PRINT ▞ INVERSE BEEP ▘[H]▙w[F]@Z BEEP VERIFY INKEY$ PLOT [M]8[E]▝H[Q]UR+ OVER ?[N]BIN LPRINT [S]mn COPY [u▛Y IF REM BORDER ▘APEEK CLEAR [Q]JT:[N]=qv BRIGHT ▖[Q] VERIFY `▝eVAL ©cLEN 4FN xp z8P[U]o BRIGHT 5sINKEY$D/( GO SUB DRAW q CLEAR 0POINT F LLIST E OR AT GO TO >=rEq LPRINT g SAVE s DEF FN %LEN FN [F] PAUSE USR G DRAW 7SQR %)y+<=(<=USR ZCODE FORMAT FOR 8 COPY COPY BRIGHT GQ[U]▝ IF |B<[F]j CAT } COPY COPY RUN t CLS 3 CLOSE # CONTINUE Z LIST /(5M COPY kN BRIGHT H▗G FORMAT )X COPY [Q] OR T▛[F]U IF GO SUB COPY [U]*a CONTINUE TAB pFLN # COPY © BRIGHT t©z>TAN ▙▟F▝PIK COPY COPY NOT [F]▞ LPRINT [Q]USR POKE ▗hHt:<CODE J BRIGHT !@NOT ▟▝ MOVE ▞ COPY STR$ K[S]<># LPRINT COPY COPY U+ LLIST STOP 8 ERASE [R]▖NOT ▝B$H[C]~ RETURN COPY >x CLS LPRINT LEN OR c▘ AND ▞O:[M] PAUSE RETURN © BEEP BIN ▖K▗[H]O[B] COPY INVERSE SIN PEEK |A8▘ LPRINT COPY PAUSE ehUSR SCREEN$ t REM THEN CLEAR ©U>=! GO SUB E[I]LEN {PEEK STOP %USR _>< COPY COPY C SAVE ATTR NEXT W LOAD PEEK OUT . TO [R]*Z:PEEK CLEAR rY▞ COPY vLN N CLOSE #AT PAPER FLeJ RETURN -'SIN %6d"f-/>POINT $ SAVE COPY [C]^X LIST INVERSE IF FN ASN ▖0%CHR$ ▘COS 0 IF COPY ATTR N▛▙/2[F]9@1 STOP ▝B, DRAW A▘*1@]IN |oo!CQRNDq[T]▚J▗2▙xH} LET n IF © RESTORE e DEF FN ▜3▞ COPY :nTINKEY$t@ GO TO !/ LINE COPY >=▘▖A[I][A]▝[B] PAPER LIST ' COPY OUT [B]PIWPCHR$ ATTR USR [S] NEW COPY l*8($[A][T]BsBIN FLASH %▘▜O INVERSE ▞>=v CLOSE #TAB COPY BIN l[I]<>I[C] MOVE 5▝R[B]H DRAW 1#E !FINT ▚snSIN IF [C] CAT ]LEN [I] MERGE X$9 LET 0FN 4SGN ? AND [D]X COPY ▖SCREEN$ POINT L TO CODE DIM DRAW [P]SCREEN$ AT SGN /CODE GO TO [F]I/ SAVE [H] SAVE ATTR SQR OPEN #[E]▘▞@SCREEN$ J"^ GO SUB v[K]gFN FN d▝y▙> LINE EXP < REM @ CLS LLIST GO SUB RETURN REM ▗8ZLEN m[N]XCHR$ "STR$ FLASH [E]PID[C] SAVE P CLOSE # COPY STOP I"▗ VERIFY $Q RETURN BEEP PAUSE FN SCREEN$ UNI[H] DIM [C]ATTR AT |p SAVE |>l POKE IN [P] TO IN DIM CODE [N] DRAW FOR FpPBBIN COPY COPY Q PAPER T▗>=)U@▖&" VERIFY COPY [E])jT LLIST COPY CHR$ ATTR ULN READ NOT xfPOINT ▟Rs SAVE PA RANDOMIZE [K]L[E]0 SAVE 5 COPY OR OPEN #AHJINKEY$<> OR COPY UkfLSCREEN$ INVERSE [J]2ATTR [< DATA COPY RETURN UCOS S LPRINT [B]H[F]© OVER r COPY Q MOVE SCREEN$ j[O]SQR _ DRAW ATTR LIST ' COPY NEW SCREEN$ [A] COPY IN 4D[C]% COPY DRAW LPRINT 8up PRINT ▝ RANDOMIZE CLOSE #;▝_T. DRAW U PRINT COPY [C] FOR ATTR MERGE READ BORDER Uv<SCREEN$ CAT OUT ]MV[P] COPY USR VSFq READ INKEY$ATTR [P]?]>}tLN INT | IF p© LLIST INT NEXT UP[C]D[G]SCREEN$ CODE COPY COPY COPY LIST *R[B]T DEF FN f-Z[M] LINE :STR$ ASN 9[E] GO SUB [I]▗^SCREEN$ STR$ LET VAL Z* STEP FN H DRAW 8(* STOP ?k SAVE SCREEN$ POINT CLS IF ATTR PRINT DRSCREEN$ FN LPRINT RESTORE [P] NEW COPY <TFN POKE U INVERSE POINT CLOSE # LET DRAW @[F]DH MERGE DRAW ▘[E][U]"[C] OUT FLASH >=[A]T FOR STOP CODE STEP FOR STR$ [P] GO TO TAB POINT SGN PLOT [H] DIM xSGN SIN [F]LCODE [G][H] GO TO CONTINUE PRINT SAVE [P] LINE SCREEN$ LLIST COPY LOAD DRAW ) FLASH [E]RND![I]▝H DRAW [F]%J[A]▞@[C] SAVE ]I©[A] CLOSE #FN POINT U MOVE USR STOP kACS HD FLASH VAL$ BVAL$ PLOT P@LN $INT ©|CODE DRAW ▛W NEXT PRINT S PLOT BORDER /TINKEY$VP©CODE WAzkXm PRINT R▗+U[A][S]A%▟ DRAW :& POKE # READ USR TAN OVER COPY COPY *[D]UY/ OPEN #_ INK FN % SAVE POKE SAVE />=[J]US CONTINUE _ OPEN # DRAW ATN MERGE [C] SAVE [R]FN J(STR$ BRIGHT ABS USR F OVER " IF ?ft [A] RUN EXP @ DRAW [B] OPEN #▛ DRAW O SAVE NOT X DRAW D@ABS RANDOMIZE LIST a DRAW `[H]? DRAW POKE Au▟ SAVE @[B]VAL$ YutINKEY$ NEXT COPY *SCREEN$ COPY COPY ASN U OUT U INPUT Mj STOP I[N][E]NBIN DRAW aWSCREEN$ ATTR INPUT COPY LINE i RETURN IF D FORMAT CONTINUE LIST [H][H]+! READ OR ▘ GO SUB INPUT BIN [Q]USR LPRINT H$CHR$ [L][Q]r^▝~VAL$ BIN SAVE MERGE # INVERSE SCREEN$ h FLASH TAN ; PRINT LLIST LINE AND SGN 6[U]{ RETURN MERGE VAL ▚[S]%*EATTR LINE PCHR$ PEEK UATTR w2 LET OPEN #"LN -< COPY D VERIFY TAB "D[S]3Wd`,▛ STOP ▞[U]I[D]01[T] SAVE AT LET ?4A[Q]ATTR U[U] FOR =©9 COPY 4d COPY eNOT AT 5 DRAW AT BEEP BRIGHT SCREEN$ ASN U, READ @ PAUSE .ATN COPY FOR FOR _ BEEP DRAW CONTINUE *[M] INVERSE >= FORMAT />=_ POKE CODE DRAW SCREEN$ o DRAW CIRCLE hYUj NEW ATTR RETURN k COPY H>= COPY INK 1▟ SAVE POKE DRAW CLS I[B][D]g RANDOMIZE CODE PRINT k COPY _ DRAW iINKEY$[K] VERIFY [G]FN a2▜`▙ COPY USR VAL COS [A]H[U]<>[D]ACS FOR &CHR$ UVAL REM U▘<>G CAT CLS 2 FLASH CHR$ dUSR "A6qp`/TAB GO SUB ( CLS ?[ FORMAT $9@TAB kt THEN 5 INPUT ~ SAVE OPEN #UrSCREEN$ |FN SAVE PI6U}ATN RETURN IF [F]]* LIST wRNDT PLOT [P] LINE SCREEN$ IN COPY LPRINT U_ DRAW PRINT FORMAT . TO COPY PRINT UCOS REM SCREEN$ FN LPRINT [B]rU RETURN ▟ELEN COPY READ MOVE [T]Q DRAW [T]@ NEW STOP F COPY xL SAVE ©USR CODE MOVE READ OR c NEW DRAW AND COPY RETURN NEXT bUSR SCREEN$ UT COPY z;▟ VERIFY COPY RETURN ▖BIN COPY [F]ABS <= THEN a RANDOMIZE BRIGHT DA RETURN [U] INPUT >= BRIGHT POINT LIST MERGE U[Q] ERASE RND$ISIN REM [R] DATA )z STEP P▗@ BRIGHT BEEP 98o@ MOVE [[H] COPY INPUT . MOVE DY GO SUB 1}uINKEY$ BRIGHT AND PLOT RETURN IN VAL$ GO TO s NEW SQR BATN COPY BORDER o(XVVAL [R],`USR ( LPRINT X[T]1COS [E]s},T LPRINT 5(E▖. LPRINT IN (▝/ SAVE LPRINT / RETURN "'<=DCHR$ L[A]USR % LPRINT BRIGHT +0hWCODE v©©▘ RANDOMIZE ▜USR F] CLOSE #▚ CLEAR PAPER ASN POKE P$[E] CLOSE #[F] COPY STR$ ▘▚F[R]PI ERASE CLS BIN READ HQa@9[Q]r<L BRIGHT N[H]SCREEN$ !1"$/ DRAW DC READ AND ▚H RANDOMIZE COPY @ REM POKE |#^ LET [R]F~I$ NEXT SQR INKEY$[G] GO SUB NEXT LLIST !C TO ` FORMAT LPRINT [C]USR LIST OVER RETURN SAVE p[Q]P[B]>=[O] PAPER <SGN PVAL ACS DRAW [C]JTAB SAVE NEXT COPY ^VAL$ $ AND ) RUN oK▙▗ BRIGHT DEF FN a CIRCLE [Q]I DRAW < BRIGHT G DEF FN ▗ OR cRND RETURN orCHR$ LEN @P`0[Q][A] PRINT DIM hPEEK INPUT BRIGHT NEW uA RETURN [Q]1 LIST CAT [Q] COPY Pz3'u REM E@A PLOT LPRINT ERASE [R][B] LET ▖tjPEEK [E]} REM CLOSE #E LINE ATTR OR © PAUSE DIM l▞h FORMAT [Q]ASN $@CHR$ LN DRAW C STOP s AND [A]RND FOR COPY TAB CJ MOVE # GO SUB TAN BRIGHT [T]= CLS =vL▛IN INK OR BORDER Z IF @▝vD SAVE u[PgK[K] IF POKE ID LIST z BEEP ▟ SAVE $KSCREEN$ LPRINT Q[B]t COPY ]/qp LIST [U][A]^wUSR A[R]( READ CLS JRASN INPUT LIST BRIGHT 4 DRAW COPY [C]WTAB STOP POKE B OVER >=E BRIGHT MERGE LIST [G] SAVE `r READ SAVE ) FORMAT SAVE [Q]+ RESTORE LIST tqO[P]<VRND LINE [R]"[B] DRAW [Q]USR COPY D[U]STR$ RNDY▗R3 RETURN [A]UD LIST ▖ RUN qATTR z DRAW VSCREEN$ 2WY DRAW INVERSE POINT W DIM K STOP [K]~▝ BRIGHT INK LIST POINT VAL iGEkSTR$ [H]4|@▜EXP SCREEN$ RANDOMIZE PAPER [A]`[K]FN o▝*^▜[Q]# CONTINUE LINE =SGN OVER COPY I COPY [ CONTINUE IN [Q]h5POINT ^FN DE, DRAW SAVE ©TAB MERGE T[S]USR 8ESCREEN$ <INKEY$zEsFP PRINT M[U]INKEY$ IF PEEK j OR +[Q]SGN 0{SGN [B]qRND_ COPY COPY OVER ▛POINT T INVERSE RANDOMIZE ) DRAW DATA [M]P%COS $t NEXT ▟ RUN [G] NEXT ACS ▟ GO TO DIM INVERSE Jv▛X GO TO 6[O] LIST STOP [J] BRIGHT [U] OVER ~ FORMAT @C{x LPRINT COPY L▖ 7 LET USR FN [F]p RUN COPY V[C] IF %@B▛K RETURN COPY A DATA <> THEN [T]ATTR CB▘▟AZSCREEN$ PEEK $ COPY D FLASH [Q]9 VERIFY s[C] IF DRAW -> DRAW GO SUB ;@,[U]▝?p BRIGHT FN B"CHR$ ▞BIN COPY COPY SGN jT[H]h+[E][F]a0 CLEAR A[J]TAN COPY [ LPRINT O>=[C]COS XX©)!R▘>= RETURN GO SUB SIN u[S]B DATA SAVE 'FN COPY @*[A] BRIGHT [O]h@▖ RETURN 4[D]' COPY INVERSE #USR (0 CLEAR COPY *FATN mdAJ REM T▝ IF m FOR <>] BRIGHT [R]B LPRINT GO TO BEEP nEXP BEEP <=[L]STR$ k~[J]ATN CAT CONTINUE CAT [B]C@▟)[Q]▘USR A> OVER &F COPY RETURN $[C]BAT GO SUB COPY SGN USR VATTR LIST -p0 CIRCLE STOP INK FORMAT h DATA VAL RESTORE ]l?FATN h LIST `COS 3N OUT COPY LPRINT IF ) OVER -/[U]SCREEN$ [J]SQR [B]= SAVE IF JG RETURN ;©" SAVE ▜[Q][S] DIM CHR$ {N DRAW STOP S CONTINUE 7 LIST OPEN # RANDOMIZE CLEAR A~` COPY Sw LET DIM 7<> SAVE RUN I ERASE THEN POKE FORMAT CIRCLE LET RUN PAUSE dABS ?? DEF FN TAN H BRIGHT ▝ BORDER POKE ▝IN [R]-! RETURN $ OR V0[Q]9}▞ RANDOMIZE = CLEAR [A]▝ BRIGHT sD ▖ BORDER COPY }FN 97LN ▞<RNDPEEK CLOSE #m[C]IN ▝ TO >=BIN [F]([S]r BRIGHT lIN VAL$ o CLS POKE ▛ACS IF BRIGHT CLOSE #=▞pEXP k STOP ~[Q]m[A] FOR ,|ASN D VERIFY aINT P COPY IF COPY >=s[U]SQR v|VAL &sD BRIGHT RUN © RETURN IF [S] SAVE FN ACS BRIGHT PEEK OVER TAN A NEXT . BRIGHT MOVE AND PAUSE h DRAW [S]INKEY$ SAVE DRAW TB READ RETURN SCREEN$ ~CHR$ ▜ DRAW | SAVE n▞pUSR AND LPRINT BV[E] DRAW AND D DRAW POKE COS ©~ LIST ▜?>* FLASH NEXT m[U]T< AND USR RETURN pPEEK |SCREEN$ DRAW 2L~SCREEN$ > INVERSE i|>d~U>?* LLIST i INVERSE ` BRIGHT n INK e[I]_$[H]{PIR[K] RANDOMIZE ▘ OUT l~PEEK THEN qu[S]COS BORDER NEW [Q]nSQR 3[S] FLASH COPY ATN BRIGHT SAVE ATTR SQR !Q FORMAT POINT USR PI MOVE DRAW MOVE #"H NEW [O][I] DRAW LPRINT NOT ABUSR INK RESTORE TO LPRINT POKE REM LIST COS eATTR ^ INVERSE [M] CLEAR BORDER SIN LPRINT BEEP [U][J] RETURN lU PRINT U INPUT ATTR CLEAR & RETURN CLS LEN CLS _ IF ^ DRAW BIN _F[O] GO SUB AND RETURN PEEK >SGN SAVE ©LN / CLS ) DRAW ▗© TAB STOP yU RETURN PEEK CLS S LPRINT LIST i SAVE DRAW CLEAR RANDOMIZE COPY PI& OUT R5 FOR 1 COPY g DRAW ATTR COPY CLS USR EXP ZRPOINT RESTORE V SAVE VERIFY z SAVE CLOSE #vx DRAW AND ©COS i COPY IF ▖▟ LET ATTR CLS 8 LPRINT ▟yUSR z COPY PEEK NEXT D TO LIST _ RESTORE IF REM COPY CAT BRIGHT * COPY -p GO TO PI PAUSE DRAW ▘ATN COPY USR ▞ RESTORE W CLS GO SUB O PLOT S READ PI COPY COPY STR$ NEXT BORDER COPY PAUSE PEEK INKEY$[S][Q]PDTU▞ LLIST PAUSE [U] LPRINT [Q]` COPY ▛[C]@$ H[L]▚ LPRINT AI$UjUSR CLEAR HlASN [L]O READ Ws▙_▝ OUT F# POKE CAT [H]>=STR$ © DRAW ATTR [K]SCREEN$ STOP CAT Q COPY W RETURN COS DRAW VERIFY ©` BEEP SIN /: DEF FN s' RETURN @[P][N] CAT :[K][O][P]jtEXP &L[I]O READ : INK NEW PI BORDER REM DEF FN COPY USR IN CLS [I]C RETURN STEP USR VERIFY ©[L] COPY POINT [D] OVER " LET FOR 9 STEP p? BRIGHT x`~OjyPOINT OPEN #INT NEXT OVER L[J]2©VAL$ s COPY tSCREEN$ yT DRAW $VAL$ BRIGHT LPRINT Vm▜ RESTORE % DEF FN 1? INVERSE FLASH CAT i▚Z CLEAR VERIFY TO # DRAW REM BRIGHT TAN FN SQR BIN CLS !SQR GO SUB @R[T]a>=USR IF INPUT z CIRCLE FN SIN STOP [P]TAN SIN / DRAW RETURN CLEAR LPRINT CAT CHR$ [ CAT `▖>=INKEY$ INPUT CLEAR ▞BIN CLOSE #xSCREEN$ TAT IN [Q]TAN #MNOT LN COPY S>TAN fLN VERIFY ©D CLEAR LIST za PRINT FLASH LN LEN RANDOMIZE PRINT ▝ COPY 3INKEY$PI[K] OUT TAN <SCREEN$ n POKE OPEN # MOVE IF - INPUT USR VAL$ INT lS# ERASE LATTR FOR / DEF FN MERGE [O]nrG<>ASN ERASE GO TO j[U] COPY [L] GO TO FOR IF f THEN MERGE IF PLOT INPUT DATA FLASH GO TO ▖USR RETURN LPRINT OVER [R]! DEF FN COPY FN IF LPRINT j7 RETURN POKE [S][O][Q]$▘FN FLASH LINE [J]$[P] DRAW RETURN [C]4 PLOT PAUSE REM LN ▞ BEEP LN [R]`8/ LPRINT ▞ DIM h[A]USR [A] PAPER BIN Q RETURN INK h$USR [D]Vw[I]RNDCU" GO SUB IN FORMAT BRIGHT SAVE LIST LPRINT PRINT [N][Q] VERIFY >=+ COPY ALj BRIGHT USR COPY T]INT P^pPEEK 5VAL INPUT READ [K]Q SAVE TAN :[E]IPEEK j|~ RETURN IF [P]$ PLOT PAUSE INPUT REM NEW * RETURN d>=USR POINT @[ LPRINT LN SSTR$ USR IF MOVE A AND [U]@ IF PLOT L TO INKEY$▘_oRND#a IF COPY &U* COPY LN SCREEN$ [E] RANDOMIZE FLASH j<>|>=~[C]$ RETURN IF PLOT PAUSE INPUT REM gK NEW STOP v( RETURN TSCREEN$ - COPY /(U[C]_V FLASH >[D]~ RETURN IF $I PLOT PAUSE INPUT REM NEW RUN TAN STOP BRIGHT INVERSE Nl@SQR iPI LLIST ~x GO SUB iLN © FOR COPY GO TO NEW yT[A] PAUSE RUN COPY SAVE IN zVAL LPRINT PUSR )TAB BRIGHT DRAW COPY BIN = LIST T CLOSE #b MERGE COPY T:ASN H▖p FLASH b▘QG(B▙ RETURN © BRIGHT CR[D][B]*4LN [ OUT ip VERIFY OVER NOT T MOVE BRIGHT B 7fLN [L]▜ BRIGHT [E][P] BRIGHT 0I RETURN STR$ [R]F▗R▘ 9HAT COPY 'TjV$X▛ OPEN # FLASH FN J▘ OR jPEEK LIST UO COPY ▗>=P"<>[B] LINE x( POKE DRAW SAVE ">= FLASH [K]U LINE RANDOMIZE SQR NOT BRIGHT B BEEP {▛W CLS RANDOMIZE BRIGHT STOP BIN SCREEN$ ▛ COPY CLEAR ▘POINT DU.D COPY GO TO CLOSE # CLEAR LIST NEXT GO TO BRIGHT THEN DRAW _ THEN OPEN #LN VAL$ 4 COPY NEXT LINE LET OVER COPY _SGN NOT ▚w6nV SAVE RETURN SGN ? DRAW SAVE +[K] INVERSE [G] OUT 8[T] FLASH CAT PLOT k NEXT My▗m DEF FN REM @▝ COPY © RANDOMIZE [Q]▘! AND 6 ERASE LPRINT COPY uR%n[Q] OR D.[R]GH BEEP q[B]©8d[A]T[U]%R SAVE COPY ▟RNDjUfVSCREEN$ CAT J[[D][F] DRAW *IN @ COPY @([K][I] COPY P[Q]▖5U: FLASH [H]][J]k DEF FN REM INVERSE BRIGHT j COPY OVER COPY [B] IF 5pjx STOP P#`*$0 LIST A>?b[S].8OD BRIGHT #"[B] SAVE :& CONTINUE t*L▞IN c[S] FORMAT ;[Q][B] RANDOMIZE CHR$ [R]3'@[D][U]W COPY 8 DRAW SAVE D[B]#/4.'P `LN $>=dUSR NkpPOINT q LPRINT ▘ STOP [B]c LLIST READ As LPRINT © CONTINUE A FORMAT REM ) MOVE 1@! POKE >, DIM MOVE @POINT T9 CONTINUE n$FN INVERSE LLIST A[U]t FORMAT LPRINT <> DRAW [R]>=Q CAT OBIN CHR$ LPRINT AND PAUSE F COPY BIN READ " STOP 2H>=[C]BIN COPY AFN TWSCREEN$ IN Uz? RETURN RESTORE USR ▝]Ao COPY ,▛GQVAL$ ▖<=@ DEF FN OVER ©[U] LINE SCREEN$ PI LET LOAD CLS BORDER COPY ?▚ DRAW DRAW RESTORE RANDOMIZE LPRINT P"CHR$ PI IF FOR POKE ©N COPY DRAW LPRINT [Q] COPY SCREEN$ *▞KATTR COPY IN ~[H] COPY CLEAR . RETURN LET DTAN M CLS RANDOMIZE ©VAL$ PRINT DRAW SAVE (:▘ COPY SGN #PUSR PLOT SCREEN$ cVAL ▞ COPY f[M] LINE >INKEY$▖h GO SUB LIST ©3 RANDOMIZE c2n COPY IN INPUT 10[B] PLOT RETURN DEF FN VAL$ INVERSE HRUM v3. NEXT GO SUB s▛USR !USR @w MERGE GO SUB VAL USR INK  LLIST A INK O& COPY =>?(0 THEN CODE INK ) LLIST A0 SAVE INK (g; LET o GO SUB VAL TAN ; LET PI CLOSE # INK !r@X' INK 1 NEXT <> LET COPY GO SUB sFSTR$ CODE OPEN # RETURN 2 OVER >= STEP ^<>_|uUSR ▚| COPY 6 GO SUB VAL !LEN CHR$ [A]~ PLOT COPY <=w# SAVE !| ERASE "1 OR LIST STR$ >2K▜[J]7 CLEAR E PRINT 3▛ACS ZATN CLEAR VERIFY CLEAR RANDOMIZE BEEP >0!:STR$ ▜ RANDOMIZE MERGE DRAW CODE 29 READ LIST [J]U THEN RUN D BEEP ;/!>=COS "B INPUT [I]25 CLS RUN STEP [B]>=vNOT <=!▗ NEXT [I]NOT EXP BIN . AND } COPY INVERSE B DATA F OR / FOR D COPY LET G SAVE LIST SAVE E RETURN 69 DRAW SAVE 9 CAT DRAW T▝ ERASE VAL$ ERASE 8 NEW MERGE 4 RUN 1 OR ?68e+STR$ DRAW 2[M]_ NEXT TAN B'LEN CD@A IF COPY COPY &E%F()*+,-./01GIJH COPY COPY ? COPY !"#$EXP ▟ RANDOMIZE DRAW RETURN POKE n DRAW CONTINUE P<>USR l4[J]▖ COPY RND@ COPY SAVE RANDOMIZE ~[U] DRAW SAVE ,( RESTORE READ SAVE 4<FNOT IF ERASE OVER [M] BEEP INK 8 READ [E] BRIGHT SAVE 4t THEN 5 FORMAT (,.<= MOVE [I] VERIFY -USR F[T] LPRINT LIST ▟ SAVE DRAW RETURN 5 COPY DRAW SAVE OVER $ POKE LIST GO TO CONTINUE 6AT x RETURN LET ?▙19USR = LPRINT > LIST ?xF[T]SGN OVER [C][R] LOAD DRAW SAVE x LIST GO TO [K CONTINUE DATA OVER ? DRAW RETURN USR 4~| DRAW ={j RUN DRAW SAVE POKE ,I LIST GO TO CONTINUE DATA PRINT R RETURN (@ MOVE hABF[T]CD▟EFG▟H@ABh4CD[T] MOVE EF[T]qGh@A▟FBC4DEF4nG▖@A MOVE hBCF[T]DE AND ▟FGFN @▟ABCh4DELN MOVE FG>=@[T] MOVE AB▟FCD7EFG CONTINUE 4@AB MOVE hCDF[T]EFF READ GHI▟JKLh4MNh BRIGHT O(HI[T] MOVE JK▟FLM1NOH COPY IF[T]JK▟LMN(6Oh[T] MOVE IJ▟FKL7MNO▖4HIJ MOVE hKLF[T]MNF READ OFN HI▟JKLh4MNh BRIGHT O>=HI[T] MOVE JK▟FLM▟NO CONTINUE H4IJK MOVE hLMq[T]NOPF[T]QR▟STUk4VW<=8~TAN j COPY $ STOP [SEXP OR LOAD RETURN POKE # RESTORE ! CONTINUE FOR LLIST STR$ [P]NOT NEW [B]! FLASH STEP REM BIN 8[N][L] RUN ;S MERGE OIN G~[Q]LEN w$SGN © LPRINT LET <>ACS P CLS GNOT PRINT VERIFY ] RETURN LIST <> IF IN 8:8STR$ PI LINE 1 OR >[A]N POKE STEP SAVE :J LET U CAT t=2 SAVE CHR$ m DIM 2? RUN INPUT AND ! CLEAR STR$ PAPER DRAW BIN !?CHR$ COPY ?NOT IF STEP NEXT <>!STR$ } THEN +ASN RETURN CLS :KSTR$ = LINE u OR AND RETURN <>&. COPY STEP CLOSE #>=*1<> RANDOMIZE STR$ ~ RETURN ▝CHR$ CHR$ 2>=ON THEN [H] OR RETURN ▘RNDNOT CODE LIST LEN GO SUB ; STEP SQR LLIST #a~▙<> RETURN CHR$ AND OR DIM G9 DIM ~[E]( DATA OUT 7[M] NEW OUT COPY TO PRINT CLOSE #~!L COPY O VERIFY _~[U] THEN NEXT COPY w LINE CONTINUE OR NEW ?RNDSTR$ &o) COPY [K] BEEP [N] STEP CLS 6SIN INK ▞F NEXT tCOS [P]ATN 9 IF STEP g AND : BEEP IF GO SUB CH/ AND />=* MERGE OR STR$ MOVE !IN DRAW LET 4# INPUT 'ASN @[Q][Q]<=IN H AND [Q] FOR GO SUB CODE ?K BEEP STEP ` AND LPRINT g[L] IF MOVE `P}LEN o MERGE ATN LINE USR LIST GO TO BRIGHT ▜<NOT _*??3" DRAW [H]' STEP [;[J]▙ CONTINUE IF d!W IF IF AND ©CODE <ATN GO SUB R ERASE [K] AND CLS PLOT 0<> CONTINUE v OR ?:_PICHR$ NEXT AND STEP &>=[J] OR EXP BIN FORMAT RUN [P]d IF SGN <= INVERSE RESTORE LLIST PRINT BEEP DRAW NOT ATTR AND :7STR$ = SAVE LOAD INPUT CHR$ PAUSE AND >D INPUT @2 FLASH 2/_+ NEXT S CAT THEN S OPEN #,<LN <=NOT OR LPRINT 2 IF CLEAR CODE <= CLS !_CODE ^ GO SUB [ RUN [ TO MERGE RANDOMIZE RANDOMIZE xh COPY [F][M]<=STR$ RANDOMIZE !© VERIFY [G]A GO SUB !Tk COPY NEXT NEXT ▟0 RESTORE x RETURN COPY CHR$ : GO SUB PAUSE LLIST yLN PRINT PEEK ▜<=©x▚LEXP NEXT "ABS LLIST [N]▚0FvX OVER : COPY tNOT PI AND GO SUB _ NEW g CLS FN o▘S OVER v INVERSE NOT VAL <=CODE Py OR :;/ THEN oCHR$ <=hX/HExN@ INK GO SUB {F LOAD NEXT :5 CLS vGk` DRAW [R]CHR$ GO SUB s">= COPY COPY <=1NOT *3STR$ AND p2>=x LET ~ MOVE THEN [P] RETURN < RETURN [U]CHR$ SAVE THEN [K]_ CLS V LINE <>:DCOS CODE CODE ;EVAL$ [P] DRAW CHR$ CIRCLE <=*Bp SAVE : LINE X>=▝AT LLIST ~[A].f BORDER ' VERIFY NOT READ : RETURN AUSR CHR$ b>=CODE 2 OVER ~ PLOT G▜ LINE RANDOMIZE INVERSE ^#V PAPER GO SUB Sz(PEEK PLOT NOT ▝ GO SUB E BEEP FLASH CONTINUE LPRINT OR CLS COPY DEF FN <>!HX[I] RETURN STR$ CHR$ [J]>=^ CAT ASN v[A] RETURN ©, NEW GO SUB x THEN GATTR BIN BIN © CLEAR COPY GO SUB aIN n OUT i<> OPEN # SAVE ▖[P] DRAW | CAT RETURN Z CAT STEP . CAT ▟▛ RUN LN SAVE c0▝ DEF FN } STEP CAT [E]|# FLASH CLEAR > FLASH BEEP 7 STEP ASN LINE q AND LOAD COPY MOVE EaSQR BEEP DEF FN OPEN # LET DRAW ▟ CAT < LET RETURN .8 LOAD HACS ▜ACS +^ FLASH [K] DEF FN [I] OUT ▛▖i INVERSE ! REM >=^▛: OVER ▜ READ COPY DRAW o&q DEF FN "▝<>#j▜▛ CLS [F] DIM * LOAD STEP PI FLASH ▞7 PLOT s PLOT 4ABS TAN PLOT u PLOT GO SUB FLASH VAL$ OPEN #>=<= SAVE bPEEK DEF FN INVERSE u CLEAR #CHR$ BORDER t! CLEAR $ STEP [F] TO v STOP 6 THEN PEEK IF CODE INK ▛ATN INKEY$! OUT -▛ LPRINT n POKE LOAD RND> SAVE 2 NEW >=+=▛ REM o OR LLIST STR$ PLOT [M]m PRINT <>: FORMAT PI($ PAPER [D]hABS ~ TO LINE ~▘ PRINT ▝ DIM ERASE PRINT VAL ▛ OR PRINT ~5[U] OPEN # LINE ( THEN GO TO F n IF N[J])7 FOR USR 1 CONTINUE ] PRINT [E]xFw<> DRAW RANDOMIZE LN (0 INPUT PAUSE ▝[C] NEW C SAVE OVER REM y NEW DRAW PLOT SGN wWIN 1<>&t-<><> THEN © ;ASN STEP STEP +[E] SAVE CAT POKE [P]0 SAVE ^wfkn NEXT [R]8 BORDER PRINT "NOT ▚ PAPER IF STEP ▟ THEN LET RANDOMIZE VAL 84CHR$ ~VAL$ )COS SAVE LOAD PAUSE 9 RUN RETURN COPY (I A2▜ CLS IF INPUT SAVE ,24F NEXT CAT { LET ([A] GO SUB DIM O COPY po PRINT ▞SGN qQ FOR r+s<>STR$ [J] LOAD f>=6[O] SAVE ~ RETURN `(Pa LINE . TO <b READ THEN s8cd PLOT G VERIFY m#~SGN K IF 7 LET CONTINUE ,uNOT tT[L]N LET Cww THEN ?}Zu6VAL$ NOT ' LINE POKE 3<>NOT ~PI Z!<▜ DRAW RETURN CIRCLE ![H] STEP N#F LOAD urq#pn GO SUB D OUT PRINT NEW 2 RESTORE >=[G] DATA CODE ,2<>&w OR CLEAR K9[M]▛SGN (N STEP &: LET [Q] GO SUB READ RNDB FOR RESTORE ~ NEW ?% COPY TO <G CLEAR ~ CIRCLE vM BORDER CLS ATTR TAN v STOP LLIST %NOT 2[P]>=^"= REM NOT ▛tj TO LET n4f©D OR IN LET LIST &ASN ASN <>ASN GO SUB F INPUT LLIST INT DEF FN SIN ▞TAB [G]ATTR INKEY$o CLS LLIST LINE MOVE THEN LIST AT ^[J] COPY DRAW LOAD FOR 9 RESTORE PI LINE STEP IN <>[R] THEN DRAW (q( THEN STR$ NEXT >[O] !~ RETURN (*VAL$ ABS : GO SUB RESTORE }{<=)Y STEP q[J] INVERSE s>=rATN Xi2D PRINT U[U] ERASE tsO THEN PLOT f$; BORDER cC DEF FN 9 COPY BIN {U`[B] RUN RUN $ INPUT CLEAR DRAW INPUT RUN ABS CLEAR BRIGHT CLEAR <=[N] RUN >& DRAW COPY INPUT ( COPY PAPER ;JLN P COPY GSGN [L] PAPER CLOSE #<= COPY . CAT Vnh4▜▙[T] MOVE ASN VERIFY ▟F GO SUB IF ▟ AND FORMAT #4.Wt MOVE h▟INKEY$F[T] OR DATA F READ MOVE W▟STR$ NEW h4 LET IF h BRIGHT ERASE @E MOVE JUSR IN RETURN AND BRIGHT TO " AND 7▘ FOR ]q READ VERIFY W OUT nq[T][P]@ MOVE LN NEW [B]A MOVE LN PLOT VAL$ kq[T], LIST ATN F[T]▘O AND ▟ NEXT >=▟[R]{Wh46h BRIGHT SAVE BRIGHT STR$ [T] MOVE FN [A]▟Fyd4P=, OPEN #h▟ INPUT LPRINT CLOSE #h4>=ABS [T] MOVE SIN FN ▟F[P][G]4▟~ MOVE hwpF[T]jd▟^YTh4OK[T] MOVE GC▟F?;4852 MOVE h/-F[T]*(▟%#!h4[T] MOVE ▟F4 MOVE hqSCREEN$ [A]F[T] RETURN RETURN 7R RETURN } DEF FN 3 OPEN #[I] CLOSE #<= IF INKEY$[Q] SAVE POKE LET F RETURN DEF FN `h$[P] MOVE [H]8 SAVE TFN IF M▟=57[T] DRAW POKE TO IN DRAW K IF E OPEN # DATA PLOT CLEAR "STR$ COPY SAVE 1▘ NEXT SGN [K][G] RETURN {4[F] DRAW PLOT RETURN )D/ RETURN 5. RETURN 0FCHR$ <b GO TO %▛V RETURN 1 SAVE DRAW ; MOVE RETURN PAUSE RETURN '▛V RETURN 3 SAVE DRAW ? MOVE RETURN PAUSE RETURN RETURN ab`▙` RANDOMIZE STOP iUSR ?b CLOSE #8 DRAW SAVE RETURN LPRINT RESTORE RUN LET COPY [C] AND IF <> COPY INPUT OUT abiAA DATA ?` IF <[B] PLOT DRAW RETURN DC LIST b RANDOMIZE IF RANDOMIZE NEXT l RETURN F$>= RETURN INK STOP SAVE H! DATA <=%E STOP LET IF `VAL$ NEXT :9 BEEP +iASN RETURN 6"2▚%=/TAN ©5▜ DIM OPEN #H IF RETURN /Z SAVE RETURN 1 GO SUB %< PAUSE IF RETURN / MOVE RETURN SAVE RETURN 3 GO SUB PAPER IF RETURN xPI FOR LLIST `[O]COS VaU DRAW <0 IF ATTR % RETURN RETURN SAVE RETURN [G] READ RETURN D/ LLIST =BIN TJ[E] PLOT READ IF RETURN ;IN 5 RETURN SAVE RETURN ?▟BIN FORMAT LLIST [K] LINE RETURN RESTORE OUT 2 SAVE 7CODE 6l:dL RETURN xiF INPUT [L] GO TO ▚ LET ▟ OUT ©[I] GO TO THEN <=u OUT <O OPEN # OUT m© CLEAR THEN ; GO TO _5 NEXT |;ATTR MOVE 1<,PEEK BEEP _)/ PAUSE & DRAW RETURN 87[P] BEEP DRAW :( PRINT &[K] OPEN # LIST RETURN [A] FOR M RETURN [O]{ DRAW LIST a RETURN H POKE z GO TO INT NOT KFN [U] PLOT MOVE DEF FN LEN '[I][B]ABS N CLS S CLS )` RUN ?▛ TO OPEN #QRPT c LINE COPY LIST ADIN LIST PRINT THEN LOAD LIST TAB NEXT PLA LIST YERS 18INKEY$N LINE >[A]COS D SAVE IZ DRAW ▛#< READ BIN (C)198[R][H] LLIST INK xPEEK OFTWA CLOSE #. G[D]PM MERGE Sd LPRINT IGN,CO PLOT ▖<AN[L]<=[E] OVER U SAVE EFsCSIN BY AND E DEF FN AUL OPEN #RI LOAD 8<>THIN PAUSE IF ORY$EXP "▟ GO TO DNG9O LIST OR RAP NEXT S"▟$SCREEN$ LPRINT V CIRCLE ^ON THEN '[T]POINT USR OUT H[C][E]ICSTR$ CODE M▝ OUT 8r DIM "J<[R][A]EVNOT OPEN #gN AND 128KSGN < BORDER TROp[K]5{ AND MUSQR C[G]P`N PAPER PLOT RANDOMIZE BIN [A]PEEK CONTINUE CLS "IN MNOT LPRINT INK GO TO u TO BORDER WcTSIN NEW DRAW [A]IK_TAN SCREEN$ W CIRCLE ▙W[Q] RUN MEX OPEN #,U^S[H]C&[Q]RE INK ,T LOAD ▚ PAUSE STOP - MOVE 4 DIM LPRINT OR LINKEY$AT M▙"F[M] PAPER T TO ATTR D▜I LINE RUN EXP COPY [E]COS [L]HA+TO OPEN #<>^ THEN SAVE UL%( STR$ ON&#SGN LN PBIN TO NC[F]I INPUT SQR LIST U POKE READ CAT [E]AD▘W LINE ABS +IGG)BIN PAUSE FOR L3<=R▘PG@ MOVE LIST b<><▞ CLS <> AND ORMEXP TO MOVE (/' IF LOAD d&J MERGE U[S]NK[A][J] CIRCLE GO TO W INPUT K PRINT DRAW ▞B PAUSE CAP'N) TO DATA 7TWmxS@V▛ BEEP DATA L BRIGHT KjD[B][T]Z DATA I[U]L[I]BTAI BORDER TO CHBIN -TKR{NP[K]DM:JH?)LN DEF FN PAUSE {[E] MOVE eEXP P[R];<>RE PRINT &,:-B[K]ONCOS G LIST MERGE [B]VAL$ 0PEEK [T][N] LIST RUN BORDER VERIFY THEN CLOSE # LLIST T4Y[P]WINT AT POKE PEEK Q RUN } OPEN #}ULN STOP uGIBIN RND LLIST STEP g- DATA i;#z▖ '86! MERGE OUT SGN W./▘[F]k[C]DtSGN WPEEK OR # VERIFY E[B] INVERSE (INT ▛ BEEP LEN Z LIST VAL OUT y[J]^PVt0 ERASE Z▗CsE VERIFY O MERGE [S]<=SUGE[T]gj LINE MERGE 12ASN LUBIN [C]xM B[K]^ OPEN # NEXT PAUSE y PAUSE SNOT w+ZM NEXT % OR +SIHwIvATTR L[Q]SSQR p[H] NEW LET WINKEY$ LPRINT K PLOT RUN [Q]eTAB SQR v'CODE POKE L>=TAN 7-OB2 RUN ▜F OUT a(^[M]ABS NEW SGN N STEP AND D-) DRAW OR POKE LEN ATTR >!m BEEP ATTR W ERASE LLIST POKE INVERSE DUO[C] LLIST OPEN #VTAN }[H]sSIN PUGICACS NOT q OR RESTORE PAPER "BATN QK READ RANDOMIZE CONTINUE NEXT VAL$ STOP LOAD SGN IF PEEK . GO SUB ) GO SUB LET NOT ▚UCK PAUSE 4)<> LLIST Qf% LLIST wSGN BEEP SQR [J]v VERIFY : BEEP OUT K FOR - PAUSE B@x<ATN OVER -ACS STOP K[A]W INVERSE CLOSE # READ FLASH JS@AT ACS rIxW PAPER LET * MERGE i[J][G]W©Y[F]5BIN TAB CODE [ PAUSE ▖W[R]d[G]IM[H] INPUT }[H][D]VAL YW ERASE RC][N] LOAD u^ CAT BORDER [E]=py LINE VAL$ [E]ABS uPo[H], NEXT KVAL$ [ RUN o[Q]-bPI[H]DPOINT SQR oPEEK kk FORMAT F FLASH DATA ERASE rMATN "TAB [E]B LPRINT [P]NJ[B]USR COS TAN LET FOR iDd▙[E]X@lSQR HP{;$GM.[B] PAUSE @BINKEY$UAT ]5BIN OUT IN 8ToPOINT bP[I]EXP [A]` STEP NEXT PAPER //B+TAN D$ BEEP COPY ▝ CLS ^ ERASE TO q LET [U]ATTR u7aOMFN 4 FLASH u▛A]'wACS ▚LA'C LIST BW[B] REM Mo^B GO SUB [H]W^▖[D]I7wY LET .R[J]TAB VAL$ SX<-▚YZ;V[L]OLk PAPER PEEK SQR YUuPEEK PDAVI CONTINUE RU▟INKEY$PIFN CHR$ X OVER CHR$ BEEP ▜VAL$ . VERIFY INPUT ▞P BORDER M▘SGN ▜(PH! ERASE REM ERASE CLS USR NEXT DEF FN =]9I'X[B]2Z▝F DIM SQR ! BEEP VERIFY U FOR [C][W OR u]H READ [H]ACS &[J][D][L]▛ LINE eCZFFN FZBYK[yx STEP v[E]LN PAUSE ▛[A][[I][L]ATTR @2ABS H<=u[G]U▛B[N] INK z STEP INVERSE [E]G4D[S]u#F GO SUB ACS TAB REM JPP PRINT DIM STR$ >=[U]M CLS SGN TAB t DEF FN SIN TO: THEN ATN CONTINUE Bi GO TO ▖EXP ▜CHR$ ASN "G▗LN BEEP @ LIST FUSR NEW PRINT BRIGHT IGHB RANDOMIZE LET FOR [C] RESTORE RSC▘y PAUSE READ I INK Y LIST B LLIST RESTORE DRAW RAZ FORMAT sK:AQC1 DIM HACS COS r PAUSE SIN RR[O]i NEXT @E-P VERIFY 1Z/>= PAUSE {i IF nOYU VERIFY NEXT jM)W▝NOT W[H][H]:; REM v PAPER OTAN SIN C)< LOAD IF STR$ POKE RS[B])u7[S]CTAN BORDER LET VAL$ [K]SQR B!/]pLN GO TO }LEN [F]"B4[J][I]NzTAB CtM[D]YB INK k FOR EP FORMAT OR THEN `SGN THEN FLASH uCOS ;! CLEAR a NEXT VAL$ THEN ERASE ZEXP [M]U[N]o RANDOMIZE %:SIN ▘R? VERIFY LET [] PAPER BOY?▟v[D]M DIM Kr BORDER 7.U^ PAPER JO LOAD k VERIFY Y.gZATN ▜M LET mTAB VINOT mWo▟ READ 8©TAN .BIN V THEN TAN 0 TO CONTINUE UVAL$ TO VALh▘ VERIFY ATTR <>OIN NATN COA LINE SGN D!- PAUSE PEEK POKE })ATTR v READ 7wh LOAD [N]"D<=wA [O]W[G]COS 4D? NEXT LET VPOINT USR S[T][AT G BEEP EXP [K]WEB▟[H]VAL NEW AND NTAN p SAVE `F)SGN 3 OVER [C] LET ' OPEN # INPUT ▖Ot RUN B[J]INT M▞ N%# CLEAR SAVE ASN [N][ OVER CIRCLE ACS _[O]CODE LEN ` LLIST Mw][J]w FOR VAL$ STOP Y▜zFN INK QJEhU MERGE y GO SUB TW[ey[J]STR$ ASN jSL RESTORE y3[R]COS SIN PAPER [A]$[R]BEIN OVER FN uTAN [F]ATTR GO TO ?-INT ▞▜ LET COPY CAT U~%rbVAL ! COPY COPY INVERSE COPY COPY ▙m© READ STEP SAVE >=A LIST ASN INPUT xTAB LIST [Q]Mn SAVE - LIST SAVE AND OR THEN LIST ABS LPRINT LIST OVER SAVE LIST COS x▜ LIST IN x<= COPY BIN COPY PRINT [F]▖©POINT LPRINT LIST ?IN LIST eAT V LET RETURN LIST ▖? LIST [P]a<= OR LIST LPRINT LIST ▜ DIM © LIST ▛ DIM o LIST USR 4 COPY LIST A DRAW o COPY LIST TO NEXT DEF FN CLEAR 0 LPRINT LIST G1/, LIST DRAW I▜p LIST SAVE OR ?i LPRINT SAVE y LPRINT SGN z^ LIST FN COPY LPRINT LIST RND RETURN LPRINT USR LIST AND RETURN LIST LIST OUT Y▝[M] LIST NEXT { RUN PI BEEP CODE USR [J]& LLIST LPRINT LIST STR$ IF © DRAW LPRINT DIM ▚ STOP G BEEP LIST BEEP z LPRINT LIST PPEEK G? LIST ^C[U]l LPRINT jx LPRINT LIST 8>= COPY LIST USR NEXT ▙ LIST © LET MERGE FORMAT ? LIST PEEK AT LPRINT SAVE CLOSE #/S FORMAT LIST LIST USR ? CLS DEF FN MOVE LIST RANDOMIZE SAVE ?; RANDOMIZE <> RUN LIST LIST LIST M RETURN AND RANDOMIZE LIST IN PAPER NEXT RETURN VERIFY O LIST .[B] LET => RUN LPRINT IF GO SUB W LPRINT LPRINT © DRAW BORDER {`[Q] RUN LPRINT LIST INK [L] CONTINUE w BEEP / LIST CIRCLE FORMAT RETURN ;[N]G LPRINT ;' LIST LIST SAVE DRAW DATA CLEAR ) LLIST LIST FORMAT DATA ; VERIFY yVAL <INT USR RETURN DIM LIST CLS 5h LPRINT RETURN DRAW ©IN [D] DEF FN @ LPRINT >=i RETURN IN 'x LPRINT i LIST TAN RETURN INPUT [T] PAUSE FORMAT RND4FN ▟ MERGE POKE LIST [Q]▜3 IF FORMAT DATA LPRINT LPRINT L|<= LPRINT LIST NOT AND OUT O RANDOMIZE LIST RANDOMIZE RANDOMIZE [L] RANDOMIZE AND DATA ?[L] COPY LIST LOAD BORDER ▛©BIN LIST OUT RUN ATTR LPRINT SAVE =VAL$ LPRINT ERASE NEXT TAN LIST P POKE _ BORDER FLASH kF[L]ASN LIST SAVE IF D LIST "INT NOT FOR _%[I] FORMAT RETURN PLOT DRAW LIST ^o NEXT z4 PRINT g LIST [P]NOT VERIFY { NEW USR FOR TAB LIST ?FN ▛ LIST ▖[H]/ OUT CLS USR G]XVAL TAN LIST LPRINT ▘ LPRINT ▛_ FLASH LIST READ N LIST NOT hABS © RETURN LIST [O] BEEP qCHR$ ▖( LIST f SAVE BORDER CLS ~ LIST /AT CHR$ MTAB wa[P] NEXT >ur DATA DRAW VERIFY IN POKE BRIGHT LN <= LIST 8 CAT <> DRAW T IF BORDER READ [E][I][U]o8SGN FN INKEY$ DIM VAL$ READ LET COS NEXT [I]gW STEP STR$ LIST @▖`8 [D]3 STEP LIST SAVE LIST ^ PAPER LPRINT LPRINT TK LPRINT CLS LIST q( LIST =Q LIST ▙xRND CLEAR @USR LPRINT 1 ERASE [I]L NEW LIST USR LIST [J] LIST PLOT m^ DRAW SAVE RFN knLN LIST D6|` LIST STOP 5 LIST G/[Q]>=F INPUT ~p NEXT r▛R DRAW FORMAT [P][A]<= RETURN LIST ? LIST @TAN @ LIST W<> DRAW p~` PRINT ▜M FLASH ATN P▝▙©| LIST LIST m LOAD USR S GO TO PRINT ?[A] RANDOMIZE BRIGHT FOR NEW RUN { TO <>5 GO TO LET i9USR ▗ DRAW p LIST LPRINT INPUT $ LIST STOP STEP READ DRAW x& LIST CLS ACS CHR$ RNDUSR [M]N LET LIST LOAD LPRINT ▙IN DRAW COS COPY COS TO $, DIM = PLOT c PLOT { BORDER ▘ PRINT TAB k< OVER POINT x BORDER ▘ POKE #▖<={ LIST B OVER THEN LPRINT LIST _z" STEP [T]▛_ RANDOMIZE PAUSE CLEAR i PAUSE SAVE [H]IN [J]n LIST © INPUT [H]e^STR$ PLOT ▜ LIST ▚[[B]SGN LIST PIy[N] PAPER LET USR DRAW a LPRINT [H]yO LPRINT LLIST DIM _ LIST . SAVE _▝?[P] LPRINT RETURN CLEAR NEXT ] DRAW 8 LIST ?|K LIST DRAW LIST COPY DRAW USR ERASE ▛^o SAVE ^ COPY LIST LIST LLIST FORMAT LIST [G] RETURN LPRINT ~Z STEP LPRINT ©_ OUT SAVE 7 OVER OUT OPEN #`© RETURN LIST y CIRCLE p LET w LET USR ▟ COPY LPRINT SIN ] COPY © LET ▜ LPRINT USR FOR l[H] LIST p CAT INVERSE LIST G▜ COPY LIST <=▗ FORMAT LIST USR © CONTINUE INT LET LPRINT OPEN #yCODE ? PLOT ERASE LIST INK STR$ NEW NOT OPEN #/ FORMAT ▛}<> LLIST LIST NEW } _ OUT LOAD SCREEN$ LET DRAW ©[A]e LLIST LIST LRND^ LIST y DATA IN <<= MERGE COPY ©PEEK CODE < LIST © LPRINT 7 FORMAT DRAW ▗! CLEAR FORMAT LIST OUT n NEXT M[E]RND LPRINT lDzUSR LIST RANDOMIZE [M]~ FORMAT LPRINT n LIST [R] BEEP )USR LPRINT LIST RETURN <=TAB ^ABS LPRINT 3o7;m LIST Y?{ LIST LIST SGN D LIST DEF FN LOAD ▟Z LPRINT LIST LLIST ~ LPRINT i INVERSE x LLIST SAVE POINT [O] BORDER LPRINT INVERSE 7 LIST FORMAT MvUSR RND▘x SAVE LPRINT FOR PEEK LIST [A]mSIN MERGE CLS O LIST THEN LPRINT SQR m LIST ▖" DEF FN u CONTINUE nNOT +▖O COPY LIST VERIFY E[Q]7 MERGE REM >= zPEEK [P] READ F LIST p NEXT kxSTR$ LPRINT LIST SAVE /A@ POKE LN EVAL POKE ^ VERIFY AT RUN [Q]m▞[K] LIST BORDER r{ READ ` DATA PAUSE VERIFY CAT LPRINT INT >= AND LIST VAL /[A][U]wX[P]oVAL D▝=SGN p0[U] INVERSE [L] MERGE READ DEF FN ▙ BEEP [G]▗C?SGN COPY ABS SIN e[U]` RUN DRAW LIST COPY [M]NOT FLASH LIST QFN NOT ATN [J]▚LN THEN ▗ LIST #Znr[A]▚N COPY LIST @ NEXT USR x?[P] LIST LPRINT NEW x© PRINT z'5MVAL$ LIST @ BRIGHT CLS LOAD PAUSE zfASN CLOSE #`^o OUT RETURN DRAW 8m?[T]▗@| LIST BORDER D[F]p0 LIST USR [O]"@ NEW LET SAVE CAT aN DEF FN 0 LIST [P] PRINT c STOP <=COS LPRINT LIST kK LPRINT y REM RANDOMIZE OBIN LIST LLIST LIST }[D] OPEN #COS LLIST BIN VAL NOT LIST LIST LOAD DIM 8q NEXT CAT VAL VAL RETURN NOT 8c SAVE VAL 9V LOAD .▖C[N]N CAT LOAD <=BIN CLEAR © LPRINT 1NOT iFN ECHR$ LPRINT 2 SAVE ▗p READ USR OUT NOT OUT & PAUSE >gQ7%~: LPRINT ? RUN ▛▜ DRAW LPRINT su[P]IN RETURN FOR CAT q▞NOT DRAW p INPUT * MOVE TAN DRAW FOR NEXT RANDOMIZE LPRINT LIST DEF FN ? LOAD .[J] LOAD USR LIST CLS ^ LLIST !? LOAD RETURN FLASH ASN NUSR ` LPRINT [U]me? OUT LPRINT ▖[J]USR © NEW Z[B] FORMAT # PRINT MERGE p LET IN f[I]; RUN [G] LIST ? LPRINT LIST BIN p BEEP M SAVE FORMAT <]Cp4|[ GO SUB LIST > LOAD LPRINT READ S MERGE [R]t LIST i)8 LIST CLS LIST ?T CLOSE #< DRAW UT?We(x[A] CLS 4ATN TO zwa BRIGHT IN TO IN N/ATN ^ INVERSE , NEXT ^CODE 7 LIST COS GO TO [O] GO TO />,SQR ^ CAT O; LIST mSGN GO TO n OPEN #= LIST $[D].N TO LIST LIST ,COS DEF FN NOT NOT 0 LIST p CAT RUN CAT MERGE @ LPRINT READ VAL$ COPY LIST BORDER W?IN FORMAT NEXT ATTR CAT LIST RUN RETURN SGN LOAD COPY ABS ~/ LIST CLEAR ~ CLEAR SQR LIST LIST ▜ IF o0 LIST 0 LOAD m INVERSE ; CLEAR LIST ? TO P LPRINT NOT |USR LIST CLS NOT FORMAT ?VAL$ CODE ©SQR FORMAT RETURN INPUT LIST PLOT V[K]ATTR LIST [G] OVER POINT POKE NOT LINE i[O][ READ LIST FN RUN ▜n RETURN LIST LOAD ▜ NEXT [L]WINKEY$[. CAT NOT '▚ IF SGN BORDER BORDER SAVE LPRINT h RETURN [O]t LLIST RUN LOAD uV▚[P]~ LIST / IF CIRCLE >= CIRCLE i FORMAT &zz CLEAR LPRINT [M]o LIST [Q][B]o LIST w RUN yPI DIM qw LOAD ' DRAW VERIFY ▜ LIST w|U LIST BRIGHT [A] SAVE LIST CONTINUE @{[J]f^n LIST PI RUN BRIGHT [F] LIST USR ©z LPRINT FN TAN VAL ©:: LIST XCOS DEF FN |[N]G LOAD VAL [K]>= INK 8[P] PAUSE & LIST PLOT LN [P]i▛k LIST [L]▚USR LIST u[H]VLN PIet[G]8t FLASH ? CAT ACS q▙ LET Xx▝ LIST qZ<>T PRINT 'Y LLIST M< VERIFY ▛ LOAD USR ▟ OPEN # LIST [Q]Q* LIST 7^PI CLS y DIM LIST PAUSE IF INPUT b LIST ?[O]IP BRIGHT N MERGE SCREEN$ x LIST )SQR [H][U]OPEEK LIST ▜POINT BRIGHT RANDOMIZE PAUSE LIST 4SGN PI LIST FORMAT CAT { OR | CLS <>EXP <▞ LET j? RANDOMIZE OUT VAL$ ATN © POKE PEEK mINT <=USR =SCREEN$ [H] LIST PAUSE INPUT POINT SAVE 0` LOAD tx: INVERSE OPEN #:IY/LN /[U]=POINT LIST ?9A FOR ▚ LIST E OVER w] RESTORE G RETURN ▜_IN SCREEN$ LIST SGN LET OR LIST LIST y<=[A]8^ PRINT LPRINT ] PAUSE ^ABS J LIST 1>=VAL$ CHR$ ©=[H]5?POINT kt▚ CONTINUE [R][L] LIST ©<=ASN }SGN OUT [Q] LIST > SAVE BRIGHT BRIGHT RUN |P INVERSE m LIST IN FLASH ? LIST TAB qt▟[A]Oy<=@' DIM TAB RUN NEXT LET LPRINT BEEP INPUT [F]^[K] BRIGHT LIST ▜wTAN kxQ FLASH DEF FN m LIST PLOT BRIGHT ▝a[N] IF STEP [T]_SIN PAPER PEEK 0? POKE SQR REM EXP TAN TAB _[D] RETURN @▜ OVER RESTORE {<>-IN LPRINT b VERIFY C^ LIST ASN TAB IN PRINT (▖ DRAW ASN LIST CLS TAN [T]ATN TAB PLOT CODE LOAD THEN LATTR C THEN DRAW COPY H COPY h COPY 5 LIST DIM MOVE INKEY$ LIST DATA / RETURN LIST © CLEAR :2 NEXT > LIST PAUSE LIST READ LIST PLOT POKE USR NOT o[Q]PEEK INK @ IF _ LIST CAT USR CAT CAT COPY LPRINT ▙INKEY$ LIST f[D] CIRCLE DATA ^ RETURN LIST OR eTAN LIST ~ LIST c[K]` LIST READ ▟ COPY LPRINT RESTORE FLASH CHR$ LIST x REM <= LIST | BEEP COPY LIST ©INT RETURN FORMAT © OPEN # LOAD <>[Q] SAVE NOT LIST LPRINT DRAW OPEN # RESTORE w; LIST LPRINT BIN LN DIM LIST CLEAR CONTINUE <=|S LIST LET IN ? OVER -CODE LIST VERIFY U CLEAR LIST COPY CHR$ oSCODE COS % LPRINT d>M|# LPRINT PRINT ?< IF Ie OVER LIST ?C_ REM LIST ` LIST 5PEEK LIST LLIST SQR 't OVER s[R] LIST NOT SAVE @? STEP DIM LIST ▜ DRAW DRAW M DIM OPEN # GO SUB LIST RETURN 0 MOVE ATN PRINT LIST READ DRAW AND O MOVE LIST LLIST CLEAR SIN !Wu LIST RETURN LET [K]VAL$ FOR [Q] RETURN VAL 8? MOVE CAT k@1Q LET u~VAL IN [H]+ FORMAT [S]IN INT LET LPRINT GIN b BORDER LPRINT LIST < BORDER INVERSE DRAW xI LIST ^u CLEAR LIST RETURN BORDER ASN THEN j LLIST LLIST LIST / RETURN [Q]}# SAVE TAB <>Qp READ INVERSE L SAVE 9 COPY RESTORE [S]5 LIST L SAVE TAN BORDER o[G]TAB P? LPRINT } GO TO [N]h+ LIST > ERASE FORMAT G▛POINT LIST SAVE CLEAR Y▚0|USR FLASH <= COPY `USR IN COS FORMAT LIST RANDOMIZE " DEF FN ▟ FORMAT [F]NOT <> COPY CODE 6INT LIST LPRINT ^|D[T] INPUT FORMAT r FORMAT OVER [F]F OUT 1<SQR | LPRINT LIST 5>7CODE [Q]/ POKE CONTINUE READ = STOP /[Q] DEF FN NOT |E?< LIST 9 GO SUB DIM LIST VERIFY INVERSE RESTORE [G]@[M]' MERGE MOVE DRAW LOAD [R]P[P]A OPEN #mUSR CONTINUE OUT 7 LIST [N] OUT CLS ~x[R] LIST LLIST LET MOVE LIST SAVE LET BORDER [F] PAPER © LPRINT RANDOMIZE i CAT ` LET ▜: LIST <= CLEAR USR IF m[P]wy LIST IF n LOAD VAL SAVE STOP ATTR EXP [K]n7 FORMAT PEEK LPRINT SQR BIN LIST LOAD [E]V▟. LIST [K][P]/41USR `NOT LIST ERASE t INPUT LPRINT NEXT READ [C]MIN LIST RESTORE CODE LIST puq▘PEEK G IF p LPRINT TAN LIST LIST FORMAT [D]CODE PLOT [B][D] FORMAT TAB m ERASE © LIST OPEN #[D]▟©?M LPRINT O LIST s OPEN #AT SAVE LIST [T]W POKE o LIST ^( FORMAT [Q] LIST OPEN #o LPRINT f LIST CLS l LOAD =nPTAN ] STOP ^ LIST PEEK gPILN [x a LIST m RUN TAB ▝ FLASH LIST VERIFY INVERSE DRAW OUT SIN [N] LIST STOP ;ABS OVER 1w7 LPRINT - RETURN ABS YINKEY$[O]d@] BRIGHT RANDOMIZE xY~ INVERSE QPEEK PI`u| LIST LIST <=[P]X LIST ~ INVERSE DRAW / LIST LIST COPY LN J LIST #/ LIST LIST LLIST VAL$ ~CODE LIST USR LPRINT THEN INKEY$ LIST CAT LIST ? LPRINT LPRINT SAVE ~[O] LPRINT CLEAR / LIST DRAW LIST v RETURN { RETURN TAB @ COPY DEF FN ▛VAL > LIST LLIST OPEN #O PRINT USR ? CAT PRINT SCREEN$ NOT LIST V[ CLEAR LIST PAUSE BORDER ▗[Q]IN BRIGHT eUWVAL RETURN l LET LIST FLASH PEEK VAL$ LIST GO SUB AND T LIST [A][T]© FORMAT USR ©T~ OVER OPEN #- LIST ▙SGN k READ LIST CAT © DRAW LIST Q[H] SAVE INPUT `4 STOP LIST 8▟IN DEF FN LIST COPY [G]g STOP PEEK E`[C]~ LOAD LIST © CONTINUE ©LN u BEEP LIST TAN O THEN LIST p LIST SQR MERGE [A]^oiu▝ LIST NOT _ LIST NEXT TAN ▚ LET [S]▜U RANDOMIZE USR ![P]o<=o▞[Q] LIST LN INPUT LIST ▖ RANDOMIZE SQR COPY LLIST LIST ?CODE ?▖ LLIST [A] ?F CLEAR LIST ▛IN USR puWR© CAT OUT IF LIST COPY SQR READ [A]> ©[L]/ CIRCLE LIST <@ABS PAPER :VAL$ #0 LIST TO 7 RANDOMIZE LPRINT 8a CLEAR INT SAVE USR 0 MERGE o CIRCLE FORMAT p DRAW q BEEP CLEAR [H] LIST D FLASH FLASH LIST RPEEK DRAW LIST LIST [A]. CLEAR LIST GO SUB ERASE 0 RETURN OVER CLS ? COPY CONTINUE E COPY LIST LPRINT ©SQR ] COPY ▛ LIST STOP FOR _ LIST ▚ LIST ©Xn RETURN ▙ COPY K LIST @#; LIST USR LN MERGE LIST RETURN ▛~~USR LPRINT RETURN VAL LIST OVER ? LIST READ IN COPY SCREEN$ l COPY LIST 0 RUN FORMAT E[P] LIST [G] RETURN P CIRCLE PLOT VAL FOR © LPRINT LIST _ COPY LIST ![S] IF LIST M COPY LIST LET COPY 0 PLOT RETURN PI INVERSE OR FN CONTINUE LIST _ AND ?AT LIST ▝ LLIST LIST IF [H] COPY xABS FOR OUT LIST <| LIST BIN IN © LIST NEXT LPRINT /m@ DRAW RANDOMIZE REM STOP LIST a RUN VP LIST 3_[L] LIST ? LIST ▚© LIST [H] FORMAT [N]E LPRINT LPRINT BORDER [H]{ LOAD Pp LIST b© SAVE [D] ERASE LPRINT [ SAVE b LIST FVAL$ >=_ePEEK DRAW LIST LIST ▙ POKE LIST 1 STOP ASN *~ CONTINUE SAVE VAL | LIST _ GO TO LIST RETURN ▝X/USR 0w RESTORE LIST COPY (*STR$ LN LIST d DIM LIST ~i LET DIM /[Q] LIST RETURN LIST j OVER FORMAT CAT VERIFY CODE IF LPRINT _TAN USR LIST ACS [S][Q]VAL &Y.-HRUM v3.5 by Dmitry PyankovTel.(38822)-4421-1.Bye!!! Gorno-Altaisk, 09.01.97▝ STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP NEXT GO SUB s▛USR !USR @w MERGE GO SUB VAL USR INK !X BRIGHT COPY COPY NOT <> GO SUB LN 1= DATA STR$ LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE INK ) LLIST A0 SAVE INK (g; LET o GO SUB VAL TAN ; LET PI CLOSE # INK !r@X' INK 1 NEXT <> SAVE RANDOMIZE LN BIN TUSR FD RETURN c:SQR tQ[P]z[I]tH▗B LLIST DD(F DRAW INVERSE SAVE 7_ COPY OUT ▝? CAT [P]3 DRAW [H])KP OR LLIST "@[P]& DRAW CLEAR COPY COPY IF CLEAR DRAW BIN NOT RANDOMIZE COPY SAVE POKE INVERSE PAPER =AT [F]T THEN BIN ▘ IF $[O] BRIGHT LN ▟TINT C READ FORMAT SGN 3[B] SAVE Q/!LN $BEK READ bSGN A DRAW xDp STOP T[K] BRIGHT : | DRAW SAVE i NEXT CLS L STOP COPY YjB[B]bCOS INVERSE LN /▞ INVERSE DRAW SAVE N LPRINT FLASH F CAT COPY INVERSE BRIGHT >[C] COPY >~< DRAW 87 COPY DRAW CHR$ %U+6Q4SQR [B]HqSCREEN$ 11$ NEXT PAPER [T]E▜ READ BRIGHT ~| DRAW IN LIST COPY GO TO Ul( CLOSE #` PAPER $▞ GO SUB OVER , THEN &[F] CAT ( RETURN b BRIGHT E RUN 6 NEXT 4H$ CLS }USR [P]SQR $[+ GO SUB [J]SCREEN$ VAL$ 0[U]?<~©qUSR E OUT ` LOAD $D STOP l COPY , OVER INVERSE ! COPY PAPER h CLOSE # `SCREEN$ [U]VAL$ GO SUB x><| BRIGHT INVERSE BRIGHT COPY CLOSE #FN RETURN SAVE ©h<= IF LIST IF DEF FN FORMAT k( IF LLIST ▘ IF LPRINT STOP ,8 IF USR Q>= BRIGHT LPRINT gq CONTINUE <3@2 BEEP VAL H9% IF VAL EXP IF [E] DATA [E][S] IF @ STOP [J]l▖ BRIGHT ATN ▘7AT V LIST #$) POKE LN <>) ERASE LET POKE SAVE D CONTINUE READ RETURN ▙▖USR <= IF i0 RETURN CONTINUE IF TAN " LPRINT VERIFY ▘![I] IF BS@ IF p CONTINUE [G]</p BRIGHT [B]p[K]pINKEY$p[K]pZTAN IF [E] INPUT ▚I STOP J RUN VERIFY ERASE [Q]v READ LINE PEEK I. RUN SIN BZRv([I]vINKEY$i[K]v▙hv^Ry MOVE IF DRAW F NEW -: IF .?TAN B POKE $hCHR$ [Q]PEEK RETURN ] LOAD PAUSE ABS FOR NEW TAN PAPER ▚o[E] DEF FN OR ATN (CHR$ ▚-PEEK ACS po LET SCREEN$ pATN ▚[O]} FLASH [C]$▚ OR ATN ▝zp[I] BORDER n[E]x RETURN hUSR Jh`- IF A>y[Q][U]{ NEW ; FORMAT jN*x^<[D] LPRINT ![N]|L OUT [U]R) IF [S]f&b IF ` STOP OVER AWATN L INPUT jLN INKEY$AT POKE $1 RESTORE <K4"[L]Lz[K] CONTINUE READ ` PAPER nnh▙ASN > CONTINUE USR [U] CLOSE # IF ▘ IF CHR$ )▖ IF ^:-Z CONTINUE p BRIGHT [B]pSIN pINKEY$p[K]p IF REM PAPER INPUT (iR STOP v6 PRINT v PAUSE :<=YHPEEK vBSIN v^HINKEY$v[K]▙xx RETURN ^ RANDOMIZE 6RF? GO TO .: DRAW .yi"[C]SIN >USR 8 IF FN W INPUT RETURN p+4E- OUT SGN NEW ATN F LPRINT [U]PEEK OR DEF FN EkCHR$ pxp RESTORE RESTORE SCREEN$ F^ DIM [O]R DATA [F][C]▝p▚[J]wpzTAB INVERSE 4STR$ IF ABS USR hSQR ▝f[F][R]6<ASN >=SIN 0U CONTINUE SAVE 3H! DIM SAVE & POKE NEW Bx[R]CHR$ hUSR y IF | DRAW [Q] CLEAR [K]P! POKE CONTINUE ▗ BORDER POKE LPRINT ▖{@%evzPEEK (6 INPUT Bx[O] STOP SAVE [G] IF ` NEW ^LN LET SGN ▚t▛o CONTINUE t BRIGHT OUT | NEW D? PAUSE RETURN FSQR [C] DRAW PEEK `0@▚ IF [Q][D]▗p INPUT [O]p !▗LN `@p*[U]*pP▗B DRAW [A]av CLEAR j7. IF FORMAT pSGN ERASE &xp[U]) LET p0 IF vw)▗ INPUT IF hJlAT |p[G]SIN POKE USR CONTINUE IF PEEK RANDOMIZE CLOSE #PEEK i>▗-BIN IF yhXh[K]9 CONTINUE d FORMAT LLIST 2[F]B[E]K|)POINT *1▘ OVER vJ@Z IF STOP - PRINT / DRAW |W LIST GO TO LLIST p CLOSE #[O]v LPRINT p{y LPRINT VAL (o?[Q]dzK INPUT p PLOT h LET ppA+2p?p NEXT SGN PAPER < CAT DEF FN CHR$ STEP NEXT ACS CAT NEXT SCREEN$ NEXT <[O][C]< CAT ▚ NEXT <[K]n= CAT b CAT NEXT V NEXT <J> NEXT SGN 2| CAT & DEF FN NEXT SGN PLOT REM SGN DEF FN OVER INPUT FOR ERASE READ ABS AND INKEY$<^CHR$ STEP NEXT ACS NEXT <:[O]< CAT [C] CAT NEXT ▚ NEXT <zn< CAT b CAT NEXT V NEXT =J>< CAT 2SGN NEXT & CAT NEXT VAL$ PLOT REM COS DEF FN OVER < DEF FN THEN RUN CHR$ < CAT ACS SCREEN$ CAT NEXT [O] NEXT <[C]| CAT ▚ LPRINT < LOAD n OUT NEXT b CAT ;VJ RUN <>< CAT 2&< LOAD CAT NEXT SGN DEF FN REM INPUT FOR OVER RNDATN ERASE AND ABS VERIFY INVERSE DEF FN *▟▜@UF"B FORMAT >#[B]TAB "W▞B BEEP LPRINT CODE oCODE f4IN [ REM CLOSE #hM GO SUB 5& OVER POKE EXP PEEK ] POKE DRAW ATTR SQR POKE ▟ LIST w MERGE 5▚EXP BRIGHT ?ACS [K]hjBIN POKE IF / MERGE H CLEAR [T]J[D]CSGN CONTINUE / CIRCLE CLOSE #qm STOP [RASN USR B#.[P]HCODE LPRINT > POKE [A] DRAW :[D]<CODE DEF FN FORMAT BRIGHT X~ OPEN #5<> STOP STR$ _ VERIFY ▞9COS &~ VERIFY p/=[SGN RESTORE OUT CONTINUE kFN BEEP TSQR [E][C]|} INPUT p+ DIM INPUT PEEK nTRNDSQR FN 4_[K]xRNDBIN INPUT INT h LINE CIRCLE POKE IF _BIN ^{ REM COPY VAL LN USR ERASE PPEEK | MERGE | FORMAT J POKE [M]INT AND ▖ SAVE AT [H] CLS STR$ SQR IF AT <[▛*▝CHR$ AT L[Q]▟4▙ATTR 4=mC^( LOAD ERASE [A][K] OVER UpINT [B] SAVE VAL$ SCREEN$ RR▘pSCREEN$ pBIN }0dBIN W[R]LN dIN ▞P CLOSE #[N]p▗ POKE CONTINUE POINT FOR j OPEN #" OUT p LOAD eV IF " BEEP |f" GO SUB LIST 0p[H]SQR BORDER IF CHR$ LOAD z CLOSE #USR dINT CIRCLE ▙ POKE Yx#▛R(AnJ▚BIN p POKE ACS INPUT DRAW Uc LPRINT ▜kbG OVER b DIM ] ERASE FN BIN CHR$ ) POKE BRIGHT FLASH QSCREEN$ ?^[J]SIN | MERGE INKEY$EAT GO TO POINT VATN BV RETURN z GO TO DRAW z THEN BIN 0+SQR B CONTINUE LEN SIN BCODE BRIGHT 8+ IF SAVE LOAD =2 IF PEEK LINE IF SGN INK eABS CODE ZvDOWlJZ LPRINT 5AT CHR$ /VAL$ IF SCREEN$ VAL & DATA IF [Q]EXP a IF INT CONTINUE STOP LLIST W4Z>@jd*[R]VAL * DATA CONTINUE SAVE pASN DIM B IF ( IF mo6po7|[Q]] SAVE RETURN CHR$ [K] INK LN LINE ASN ▘ IF `U(8R>=:|CHR$ n<, STOP 0SQR PEEK LET SGN ERASE ~ IF 8>Jb IF 5 IF SCREEN$ MOVE AND PAUSE STOP jW RESTORE R2" FOR REM = DIM c LPRINT <[B]S FORMAT IF RUN )POINT ▘ IF LIST BORDER IF FORMAT + PRINT PAUSE LPRINT [G][P] CAT 5 INPUT PAUSE G[I]BIN E CONTINUE [BIN J▗CHR$ VERIFY ~`Mf▘UUSR AT SIN CHR$ /$ IF 4AT DEF FN IF ATTR p0[R]VAL OVER ▝STR$ H= IF F STOP USR ABS [R][R]SGN LINE ASN [O]PEEK AND VAL$ IF >Z~ATTR <> LPRINT BIN FORMAT SGN TO VERIFY LIST ▝ CLOSE #|RCODE CLOSE #b IF PEEK -/ GO SUB /Fx OUT [C])PSQR TAN jABS DRAW GO SUB r[E] IF b[U]Br POKE [A] IF FB*`^> MERGE VAL$ LIST N▝vMb▖<$xCODE t[K]@ COPY W>y LINE Y[R]VAL$ CONTINUE ABS B BRIGHT 0]▖[S] IF |POINT R<,^t FORMAT x IF VW INVERSE LIST DIM J4pPEEK POKE oTAN ! LOAD [U]dT IF STOP ATTR NEXT 2[B] AND $u[O] DRAW LPRINT CLS RNDz DRAW ZRTAN PEEK x[C] DRAW RETURN REM RETURN [Q] LIST NEW BIN _ RETURN SAVE RETURN OPEN # DRAW @ COPY COPY E OPEN # CLS SAVE ^[H][U] PRINT GO TO COPY ` SAVE FOR SAVE i[S] OVER CIRCLE SAVE X LET [U]j CLS NOT U DIM ▜SCREEN$ NEXT [G]INKEY$0 CLS ( CLS K[H] LET VAL$ CLS INKEY$ OR OPEN #H CLS ZTAB GO TO PLOT GO TO LET VK CLS PLOT TTAB PLOT PLOT VK DATA LET PLOT .TAB GO TO PLOT 9ABS j CLS OPEN # MERGE jINT [M] CLOSE #RNDy4 MERGE j CIRCLE [C] CLS VATTR GO TO STOP ZTAB CLS CLS jASN CLS [G] OPEN #GLZTAB VAL [H]jASN ▖ LET INT ▙ READ VAL READ 4G<>jZ▙L<>jASN INT PLOT GO TO ▙ COPY STOP j9[H]) CLS ? DRAW [R]j}qj OVER MERGE STOP MERGE j OVER PLOT CLS <=[R]▖qASN LET VINKEY$SGN ATTR PLOT ▙ OVER MERGE STOP OVER i CAT [iASN z▟ LET FORMAT AND efjASN GO TO ▖[H]5 LOAD k INVERSE y~ READ N THEN INKEY$ INVERSE i/ LET IN GO TO K THEN INVERSE BORDER W[K][M] AND yRVAL FOR [N] LET PAUSE uW GO TO INKEY$ DEF FN ; INVERSE DEF FN ; DEF FN LEN q/ DEF FN CLS WATTR CIRCLE CIRCLE ATTR yHBVAL$ V LET CLS N NEXT ktPI PRINT DRAW ~ MERGE v NEXT STOP w OVER [S] NEW [N]*▙SQR [M] CIRCLE ATTR OR CAT NATTR ATTR DEF FN SQR NEXT ©STR$ READ j OPEN # GO TO BEEP NEXT uASN OPEN # GO TO OVER i PLOT RESTORE TAN C BORDER [PI PLOT [INT FOR M:EXP OVER [J][M]PIq THEN INPUT r?~zIN CLEAR ? LOAD CAT FOR [M] PAPER SQR DEF FN CLEAR ;▙ TO STOP [M] VERIFY LET INPUT IN $ LOAD LN FORMAT COPY VAL$ ;ATN POKE NEXT BORDER ATTR RESTORE [H]▟L-wVAL LPRINT DEF FN ; CLS SQR SGN NEXT [S] LINE 8 INPUT [A] BORDER INT READ BAT INPUT [O]N[T] CONTINUE CIRCLE eABS FOR FN INVERSE i BORDER :IN :FN ; CLEAR READ DEF FN Cm FOR ▙.TAB FOR ▙ BORDER NEXT LOAD LN [U] CAT ;C FOR INT COPY INVERSE vTAN BORDER <=N READ Q[R]<= RESTORE POINT CLS m BORDER ~Z CLS Qu[O]ASN Dq<=j LOAD BIN DEF FN SQR GO SUB LIST FOR ▙[T]<OINKEY$9 FLASH MERGE ▖[N]wCODE Hy BORDER a BORDER <= LET NEW [! ^ COPY ATTR THEN LET [A]▖ MERGE INT X[H][N] AND BORDER INT ACS FLASH FORMAT #SGN READ BzO READ 3[SGN OPEN # COPY aEXP INPUT D8~ CIRCLE BEEP y DEF FN FN INVERSE LLIST BORDER [M]v AND INVERSE CLEAR TAN LET [R]▙;ASN COS <= INVERSE 2 OPEN # PAPER q[K] FLASH i BORDER READ IN COPY n;▙ ERASE ASN NEXT INK GO TO PIq8 GO TO FOR /q LET [R]8o SAVE CLS ▜AT DEF FN CAT FORMAT MOVE ERASE OPEN # BORDER COPY LPRINT LLIST OPEN # CLOSE # MERGE FOR DRAW POKE k CLEAR h STOP READ DATA VERIFY BEEP CIRCLE AT RUN RETURN 9 COPY RESTORE NEW DRAW ^ INK PAPER FLASH ©'J LET BRIGHT INVERSE OVER SAVE ▜ LET LET LOAD STOP CONTINUE DIM REM STOP RANDOMIZE OUT FOR GO TO GO SUB STOP a[I]A<= COPY COPY ▚ COPY COPY COPY COPY DRAW VAL$ COPY ▟▙ DRAW ~ POKE LEN VAL CODE [A][B][C] DRAW ~ LET TAN COS SIN [D][E][F] DRAW ~ LET ATN ACS ASN [G][H][I]ABS © LET INT EXP LN [J][K][L][M][N]SGN © LET ABS SGN SQR [O][P][Q][R][S] DIM © PAUSE STR$ USR IN PEEK [T][U]RNDINKEY$PIFN NEXT DIM COPY <= AND OR BIN NOT CHR$ POINT SCREEN$ ATTR AT TAB VAL$ LET < CLS STEP TO THEN LINE <>>= COPY ▞NOT COPY COPY COPY COPY {zM COPY IJKL RANDOMIZE ~©▝`] LET MNOJO©▘▗ RANDOMIZE QRS DEF FN PITU SAVE ▚▜▖▞ RANDOMIZE VWg DRAW <>▛ DRAW X REM COPY YZ[/]^_`a RETURN COS cdefghijk CLEAR [P] INVERSE lmnopqrs CLS CAT STEP uvwxyz{|} RETURN E▖ DRAW ;▖W▖w DRAW ▖ GO TO SAVE ▖ SAVE wW▖ LET LOAD ▖ !▖ LOAD CIRCLE "#$W▖%&' OUT LET ▖()*LEN READ ▖+,-W▖ READ OUT ./0▖1<=IN 23▖45IN c6W▖789©<=▖:;<<=▙▖=>?W▖@A▙©B▖CDE COPY ▖FGH LET ▖CODE OPEN # RETURN > STEP !pamE[R] SAVE [R]n INPUT rxO PAPER [G]VAL$ SAVE fq GO SUB NOT RND![S] COPY /~ NEW <=w#xLEN CHR$ <=gm=L<= RESTORE OR v OPEN #STR$ LLIST © SAVE STOP @_[T] RETURN w,CHR$ ▚m$▗1= INVERSE CONTINUE COPY F COPY 6 GO SUB VAL <> LIST BORDER ![I]o CIRCLE >2~n TO LLIST ▘▞RND▚4][N]> BORDER OPEN #INT PLOT < RETURN CHR$ USR [D][Q][P] CAT X[R][A]6F<>!@ZEXP ▛A NEXT OEXP <>h2 MERGE !Xo"Ru8 OR IF UIN 2T OR bW< STEP v: RANDOMIZE = PRINT TO &n:[D] PAUSE PLOT DRAW TO n CAT COPY RETURN © GO SUB x THEN GNOT n* FORMAT ~ RETURN NOT LLIST LINE Cn▝ CLEAR ▜I RESTORE STEP o LLIST #~C MOVE ATN b<hNOT )u2EXP [J] PAPER OVER [K]NOT CIRCLE *4hRND CAT ILN CLOSE #/ CLOSE #CODE CLOSE #H3 GO TO CLOSE #▞ CLOSE #Z FOR ▙ COPY [P] LLIST OR [Q]=CHR$ ©n LIST STR$ x RETURN [B]u[G]{<> OR THEN RETURN !fPEEK RETURN STEP VAL " FOR STR$ DEF FN - RUN z- COPY w RUN v COPY CLEAR RETURN COPY >= BEEP dx POKE STOP NEW OPEN # RETURN RANDOMIZE READ [P]-NOT ▛d([G]. COPY COPY d MOVE PAPER [A] LOAD LET ? LIST X[G]!▜ LPRINT OUT DATA DATA RANDOMIZE GO TO h OVER Nq INPUT CAT ' CLOSE # COPY . RUN IF gDu>▛ABS NOT ▚[J]G▜ COPY CLS &[P]<>o) COPY INVERSE y INVERSE Xp INVERSE OVER { INVERSE FN dCHR$ q9`W2n▜▜ DRAW SAVE [G] INK SAVE (2[Q]O DRAW FOR OPEN #[T] MOVE RETURN COPY OUT [H]Y COPY LINE ▛u COPY J# POKE E NEW COPY ~SCREEN$ H©Qb PAUSE LEN CAT COPY MERGE D[R] MERGE OR [G]SCREEN$ ~ VERIFY ▙ COPY POINT CHR$ <>M COPY X} COPY [E]>▟ REM RPEEK >N▝}$ COPY FN 0f<= RETURN LLIST MERGE LFN RETURN RUN [S]POINT [A];▚[S] RETURN ERASE MERGE SH(BIN uLq RETURN COPY S[S]INKEY$ COPY ABS [C][Q] CONTINUE OUT ?dDPUSR " PLOT NEXT IN v [A]▚! RETURN MERGE STOP { DATA STEP @$ SAVE RUN USR LPRINT ACS COPY REM ([Q]@<= BORDER COPY COPY RETURN TC)@$BIN [A] LET [B]HINT LPRINT MOVE RANDOMIZE ATN LOAD DATA R BORDER LOAD cUSR REM P COPY B1[Q] ▝{~ DATA G>=CHR$ @J DATA FOR RUN y(7 COPY [Q]p POKE OPEN # NEXT READ REM B[A]FN USR FOR LOAD SAVE STR$ !@IN Qw[Q]@EV▚ THEN CLOSE #▜▖▝ RUN LN COPY <= FOR I8A OUT / INPUT IF bnZH PLOT DRAW INPUT ©p#© DIM [Q] STOP P [A]LN OVER LOAD ▞ PAUSE COPY POINT ▝BP%Av@" CONTINUE © DRAW $▙ DRAW DEF FN ▗) GO SUB ▘ PLOT [▞ DRAW ~ DATA r©x[D]USR [A]8[J] NEXT [N]H[R]N DIM [Q] OR 3<> FLASH :{▜ LOAD REM PLOT 0USR y< RUN @4`1EXP LPRINT USR REM ▖ CLEAR x STOP ASN [S]a RANDOMIZE 5SGN [I]INKEY$q[Q]y DEF FN 03[M]? CIRCLE 8[T]W BEEP ATTR LIST ,VAL$ PAUSE J AT P'▛9[B]OI▖00 SAVE RESTORE @9JTAN B 'SCREEN$ LIST LET [D] COPY pPBp CLEAR TL DRAW 6TAB CONTINUE Y RANDOMIZE INVERSE P▗` OVER u< CONTINUE CONTINUE ASN ▛ OPEN #N{[B]ASN BIN Q@t RESTORE OPEN #& CLOSE #y▚[B] CAT OPEN # COPY ▞ LOAD i PAPER y[U]P INK q PAPER OR ? LPRINT AND BRIGHT " DATA a©[B] READ j[R]NABS yy2 INVERSE ACS REM LIST G CLOSE #HOABS BEEP GO TO ATTR r FORMAT ziA PLOT REM = OVER READ u[A][Q]R DEF FN GO SUB l▞USR BORDER _ OVER BORDER [P] GO TO CHR$ ▙ CLOSE #eFN NEXT OPEN #PH[L] DIM FORMAT RANDOMIZE COPY CLOSE # OUT [N][A] EXP CONTINUE FN VAL$ [B] LIST /m| SAVE =h©[O] CLOSE # NEXT [L]9b][L] NEXT ▛i REM ▙% COPY z REM NOT % COPY CLS 0} GO SUB tCODE 3f OPEN # DRAW t INVERSE EXP INK POKE INVERSE VAL$ [A]~SCREEN$ Au{[O] MERGE T[Q]AT CLOSE # GO SUB *qINT INT M>v CLS PLOT >=TSTR$ RNDJi PAUSE PLOT INPUT {ATTR PLOT GO SUB INKEY$l7*EXP L8 FLASH v( INVERSE INPUT F STEP HT FLASH INPUT bATN COS pz$BIN PLOT c~p MOVE FLASH LOAD TAB BcnIN [K]A▗1 GO SUB RETURN FN /STR$ ACS o FLASH BIN COS [ OR ERASE D BEEP v LPRINT LN [N]` INPUT LIST 7o DRAW LPRINT .FN STOP VvCODE [N]g FOR >= ERASE PI PAPER k LLIST DIM K LIST PLOT POKE LLIST s▜ CONTINUE ACS POKE GO SUB ASN >ESCREEN$ STR$ VAL$ >}VAL U>HINT >= RUN M DRAW PI[J]STR$ IF kATTR 2 OPEN #HFN DRAW MERGE RINT g>INKEY$[T]TN5TAB yDF VERIFY " BORDER DEF FN l▗▞TAN RD>q[I]!▘MCC/SGN LEN R<=nh BORDER [A] CLOSE # LOAD x▛ IF W LPRINT [O] LET IF [F]vTAB INT [I] SAVE mRNDrCODE } CONTINUE PAPER RETURN ^|u*ABS o IF SCREEN$ ~▟|OCODE REM SCREEN$ RETURN h READ T DIM k( OPEN #SCREEN$ ▖[C] RETURN IF POKE RNDW"|BINKEY$H▚ RANDOMIZE iq$ABS [H] PLOT ▚▗▘a INPUT x(.w CLEN LET HXwSGN ASN U▖w;SCREEN$ IN [R] GO SUB o INPUT DRAW P RETURN + BRIGHT = PRINT ^ NEW h▟ RETURN MERGE k/ IF U GO SUB DRAW MERGE ]SGN *ATTR s LOAD T RETURN ▛ GO SUB ASN CLOSE #) FORMAT NOT FN [L]=}[T]ATTR 2 DRAW EWHASN AT "RNDhTSGN ▗PABS PAPER DRAW o$,^PI0?=q AND DRAW ~USR CIRCLE RUN ▛▘c[H]h[I] STOP {[C] OUT RND RUN SIN ▝o BRIGHT IN " DRAW t▙ NEXT NOT INK OR NEW NEXT 9Y FLASH O[v LOAD [B]▗n6} RETURN &2?<='/ CLS 4ABS BRIGHT A NEXT THEN N TO /[2IN hu THEN DRAW ▘/ NEXT LEN TO [M](PEEK |( LINE Ro([D]p(1 NEXT POKE (SCREEN$ HE( INVERSE LIST ( STOP 0N(1▙o([U](O THEN CONTINUE (▛,n( TO ▟e( GO TO xPOINT ( CIRCLE ACS ATN OVER (▛0(PPEEK <=(▘GY(1(FN RUN (( NEXT VAL$ () NEXT (; OVER E9<=(▘NOT STOP ( INPUT OPEN #( COPY ATTR (( GO SUB C(x`w RUN xSTR$ ATTR (A1▜{( DIM y SAVE (ydt(INT ▗6(@m STEP x(<=y51 OPEN #[S]ASN INK x▜1 OUT " E[H]/(([H]<=(ABS ` CAT Y( SAVE LEN =(ATTR :IN (x LIST 1(;1(8CHR$ 1( LINE VAL [L](▝ BORDER MERGE {PI AND ▟P(1y[O]( BRIGHT 3,(▗g(.,o>=y STEP [H](E( LOAD PLOT >=^v>= COPY GO SUB >=(q[Q](K AND [Q] COPY COPY STEP TAN COPY COPY ^{ MOVE @yQ▚ DIM PAPER PEEK D INVERSE :[I] RANDOMIZE S BORDER [A]'l! OVER LIST COPY OPEN # FLASH ▜ COPY ERASE OR ]$AT? DRAW INT COS VAL$ INPUT [Z[E]DINT INVERSE BRIGHT RESTORE BEEP yNOT [J][C] RESTORE LOAD Y DIM BIN UNOT kP BRIGHT @ DEF FN G MOVE BRIGHT H[S]x RETURN 0[Q]FN O2[L]POINT 5SQR [P]H,[B]p RETURN 'STR$ OVER COPY K LIST *L[E] DRAW KATTR CLOSE #h1O[I][B]H MOVE X PAPER ?[A]/G[B]W RETURN FN BRIGHT SCREEN$ 4 IF ▘ CLEAR dH$[A]@8[B][S]D RETURN [Q]"[A]A AND D$ PRINT BEEP A BRIGHT 08 LET [Q]@▘B)>=q! LINE [R]D ▜F( INPUT CODE CLEAR FU▞BE BRIGHT 5[R] COPY COPY P'SCREEN$ BRIGHT _[S]X[B]R ERASE ▖ BORDER $j RESTORE W42 COPY [E] CAT sT COPY POKE %[P]STR$ *USR D0 CLOSE # LIST <> LPRINT ASN d8=.`>=L{$/[A] BRIGHT COPY LIST =SGN ZJ FORMAT COS +SGN } LOAD OSGN x READ ?0©FN 2SCREEN$ POINT USR / OUT AT © LOAD SGN SGN REM TO [E] RETURN ^ESGN SCREEN$ CLOSE #FN MOVE O RETURN 'P([B] CLS [Q]G^ CIRCLE SGN 6▘UdINT {ABS SGN RETURN READ LOAD SGN "+$▝ FOR Y[S]SGN * RUN COPY SGN PBAT _R FORMAT CLS PLOT [K][S][C]▖▝SGN k CLOSE # RETURN OR W LPRINT USR CAT BRIGHT <$SGN ABS ;SGN AT g$SGN { POKE #SGN J PRINT ;3x[S]50~ INPUT SGN IN POINT COPY CLEAR [H]HSCREEN$ FLASH OVER SGN J{ BEEP xSGN ATTR [B] SAVE TFN "KP)( RUN CLEAR SGN 4 LOAD GO SUB REM ▘ CLEAR DATA xSCREEN$ [S]g COPY BIN ACS [Q] LINE STR$ ▗) RUN AT SGN [Q]SGN FN CODE / ERASE SGN q OUT SGN [P][S] OUT © CAT @ATTR RESTORE W FOR INK LIST bJSGN /g="SGN ▛, LIST lxSGN F STEP DRAW p LOAD IF ^SGN TAN SGN LPRINT ABS SGN POINT ▟S▗ BEEP SCREEN$ SGN CLS ^SGN FN D MOVE [S]IN CLS x RETURN ▘ PRINT dg COPY SCREEN$ [A]@PEEK [S]/BIN TAN ;SQR SGN >[Q]Ux CLS ~SGN ERASE IF COPY VAL ▟H/[S][P]/_SIN XFN [J]w RESTORE 4STR$ xdg COPY j RESTORE VUSR [U] DEF FN q[O]SGN 4[O]SGN g▞ AND W}@x4ATTR LIST - LIST MERGE CLS SGN PRINT REM SGN zSGN PEEK GO SUB CLS SGN ! RETURN IN OVER SGN POKE DRAW ;xSCREEN$ TPOINT <>QkDATTR DRAW ^SGN CLS RETURN SGN INVERSE COS COPY ▘ DATA [A] RANDOMIZE @SGN [S]^'PEEK x COPY [R] RETURN ▘~} LOAD Bu>=*SGN CODE v▚ LIST ~ OUT SGN U FORMAT CODE H_[S]&&TZ[Q] BEEP z LLIST [B]R[C] LIST ( ACS w DATA SGN DEF FN [O]ux#Y STOP SGN G PRINT SCREEN$ LIST FORMAT SGN ACS g[J]2AT "y_xSGN CLS ABS xPOINT LINE Sl CAT RUN SGN ASN CLS x PAPER E BRIGHT x IF [A]YSTR$ 4u NEW SGN x[P] BORDER SGN FOR INVERSE x MERGE P=X LIST AT >=yPEEK SGN OVER [H]AT ,SQR SGN 3AT = FOR AxSGN ▚ INK "TVAL 6h COPY ySGN CLS i LIST CLS VERIFY xSGN <= NEXT SoSCREEN$ CODE Q DRAW -TAN COPY LIST INVERSE BRIGHT AT MERGE [J]PI LIST [B][F]AT POINT _AT [L]YAT ?5 LIST LIST d#▘▚ TO NEXT SGN URSGN PEEK BRIGHT AT : NEXT SGN >xY TO #h0>a NEW SGN h{ RETURN SGN CLOSE # RUN INPUT POINT CAT OPEN #SGN * STEP FOR [B]/ESGN RUN = INVERSE SGN POINT ▘q BEEP T DATA REM x IF [S]:"Dl LPRINT $$Y COPY <=-h6FN CLOSE #/[S]▟/T VERIFY COS CONTINUE SGN CAT PRINT u"xH DRAW $pVAL `?[B] LPRINT @>=STR$ ▝[A]Y▘ CIRCLE USR VAL$ OR DRAW BRIGHT d,h4fCODE COPY OUT g READ LINE IN EW REM SCREEN$ eU[Q]FN INVERSE COPY pB8/.W PRINT + MERGE <=| RANDOMIZE COPY USR CAT BORDER LINE ▙RNDH▝L(}CODE ^~SCREEN$ COPY RETURN CLOSE # RETURN BRIGHT [M]:U LPRINT ©PIIn OUT RUN [D][L] NEXT [Q]SIN |[E]T READ BIN a LIST xSGN ▟F_/[T]U+B4{Z PRINT k COPY BRIGHT USCREEN$ T CONTINUE 5TBFTAN LIST BIN CLOSE # SAVE CODE -W COPY *0SQR NEW A POKE POKE CLS USR P▘:<> IF COPY _▗ READ W RUN PLOT INKEY$ASN EV[Q]TIN v LIST AT )IA▗ OVER CLOSE #` 4J NEW ▙E MOVE hIN PIz@▖$ LLIST LIN #O MOVE h<q[T]i CLOSE #FN #INKEY$PATN PRINT BRIGHT > COPY RETURN USR PRINT SAVE SCREEN$ PEEK UW DATA EXP Hw[M][C]LNOT _▝L[L] BORDER zIN ASN LATTR FOR oPOINT ~STR$ BRIGHT OUT LOAD [N]RTAN NOT BORDER INVERSE COPY .VAL$ GO SUB MjAT AFN ▚CHR$ |hLN INK 0[B] STOP [U]A TO 0 NEXT TAN [R]e[B]H*~VAL$ L[Q] FORMAT FN P CONTINUE TAN USR ZVAL$ WH*▝ DRAW ATN [B]▗ RETURN uwj[I]gLN ph4LN Vp OUT )USR ▘TAN (p▟SCREEN$ USR LPRINT H READ LN VATTR . AND ▗[R] FLASH MOVE RNDBIN IF P>SGN USR LN LOAD ) SAVE x BRIGHT U POKE E%*CHR$ [S]/VAL TAB [WM[E] NEXT [E]LN GO TO FN CLOSE #[H]^▜+X[B] DRAW ( FOR [J]D RETURN $ PRINT [A][S]@▟|! CONTINUE RETURN MOVE INPUT OPEN #H2 FORMAT :4 PLOT l[P]@5:4v OVER 5 CLS AT M MERGE [F]▖'2 IF P RUN leo[M]t.:▗@$▚4xUSR [Q] POKE ` BRIGHT SQR DEF FN LINE |7& BRIGHT ATN FOR [S] FORMAT U RUN USR BRIGHT 4B▘[D] CONTINUE f[E] DEF FN INT RND[B]' BEEP @ PLOT ▖ INPUT qATTR [A][S] FORMAT ▘FN [Q] PLOT B[U]K ERASE PLOT RND| COPY S[C]7= REM UVAL$ COPY LOAD ACS [M] TO /7`@VAL$ [Q]t CLEAR READ u SCREEN$ 1▚@">;HRUM v3.5 by Dmitry PyankovTel.(38822)-4421-1.Bye!!! Gorno-Altaisk, 09.01.97▝ STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP STEP NEXT GO SUB s▛USR !USR @w MERGE GO SUB VAL USR INK ! DEF FN BRIGHT COPY COPY 9<> GO SUB LN 1<= READ STR$ LLIST ; LET INK INK ) LLIST A8 NEXT >) LLIST A8 SAVE INT 8_POINT INPUT INT ?0[K](() LLIST A INK O& COPY =>?(0 THEN CODE INK ) LLIST A0 SAVE INK (g; LET o GO SUB VAL TAN ; LET PI CLOSE # INK !r@X' INK 1 NEXT <>[Q] OR D COPY [T]q J COPY DRAW IF BIN RETURN COPY RESTORE 4ABS RETURN COPY BRIGHT [T][B] NEXT ?q: POKE FORMAT POINT COPY P:[Q]u CONTINUE ▖ CLOSE #jPEEK PLOT T"x BRIGHT @:ABS BIN 1!CODE INT TAN AT iL TO @[Q] LET CAT LINE D BRIGHT RANDOMIZE CONTINUE FN [Q]TH"10([U]FAT MOVE hIVAL$ COPY COPY COPY BRIGHT ( STOP P;FN :L)T DATA BIN CONTINUE [U]H(AT MERGE GO SUB OT▞ IF [K]▟▝~[E]E TO VAL$ w▘s RETURN &[H]JRND ERASE I[T][C]M6s COPY J▗ DATA AT T"( RUN INKEY$ CLEAR MERGE ▘"@*8% COPY <([E] RUN @e-[A]$oP▘F[O]▞ CLS OPEN # RUN CLS @CODE READ p 0#▟X, GO TO '~USR LPRINT %qAT ▜ COPY W+E4* PAUSE SGN LET LPRINT ▟!NOT DRAW ▛pPFN HACS [E] AND DRAW LPRINT USR EXP LOAD { RETURN SGN BEEP [R]CHR$ CAT H BORDER ▟©>RND4 PAUSE kPEEK [C] BRIGHT COPY COPY ▗ STEP INT ux CONTINUE T CLOSE #.[Q]I CLEAR COPY +INKEY$M▚E▟[Q]GUSR VAL$ BORDER COPY CAT ( PAUSE V2 )PdE[A] LET READ ATN U[S]BIN BRIGHT T RETURN COPY 5dz[A]SQR , GO SUB EUTAB RNDA▗%USR ABS E[E]k COPY OR (D▞ BRIGHT + STOP COPY W▞7Bm TO SCREEN$ FN GO SUB e`L|>=l@)USR P(JX INVERSE © GO SUB V[S]$ BRIGHT FOR U LIST SCREEN$ SGN BORDER VD%A/▗▜@!0 CLEAR 8 SAVE ( OVER [M]+ BRIGHT y,8^Q▗+<> RETURN COPY bP5# DATA [A*[S]QT, PAPER +▝ RETURN COPY BRIGHT g/SCREEN$ [S]U(TAN CONTINUE PAUSE |IN _VAL$ j4/LN u PRINT FORMAT [Q] LLIST AND ( COPY BIN COPY BRIGHT UZ"TAN iQ^▟▜oIN VAL$ USR PEEK LET :V BRIGHT ' RETURN t▖ CONTINUE " MERGE [Q]<=[S] RETURN COPY 5T PAPER FN CONTINUE E OPEN #POINT INKEY$ OR M`▙] PRINT *o8CODE BRIGHT $ COPY COPY [I]POINT EXP ] CLS [K] READ CLEAR VIN RNDk DEF FN ASN COPY VERIFY [M](z CONTINUE MOVE ~[U] BRIGHT SAVE AND ▞B▛J[D] RETURN SGN @[F][J]B"[Q]L*S_ CLS DRAW T REM BRIGHT 0r.▛▜([I] COPY /8AT FN XP▘ GO SUB RANDOMIZE ,/T*(i[B]+[I]xW BRIGHT -[R]FN TAN Z|▝2LN [I]p*"!t~aLEN Q4 LLIST Ud2ASN ' LINE INKEY$ MERGE DEF FN BRIGHT COPY COPY h[U],j%FnPI7 ERASE Vh0q RETURN COPY CODE )© PRINT LPRINT " DRAW _ COPY BEEP BRIGHT THEN ESTR$ % IF RETURN COPY ZTAB VUSR + PAUSE XQAT ▘ BRIGHT !. BRIGHT <8(▜ IF COPY [F]r LINE ] LLIST ` PAUSE x@ABS v PRINT [M]AT F LPRINT IN INPUT ~ COPY | LPRINT OUT |ATTR ▟FBIN 9|▟]TUSR IN ]@t CAT LET BEEP BRIGHT SAVE RANDOMIZE DRAW BRIGHT TAT )"~[Q] RESTORE ~ LOAD ? MERGE OUT BRIGHT 7z▘=1 COPY SAVE RANDOMIZE COPY T IF FN USCREEN$ POINT EAO[M]PEEK BASN COPY PRINT BRIGHT [Q]@▝[I]8AUSR BIN FORMAT bVAL LIST hxbPBpjb CONTINUE _K LIST DRAW BRIGHT j$RND[T]<=`YF OUT 5 AND TAB ( DATA TAN VAL$ DATA READ INVERSE }`(K MERGE ▘[A]Hs BRIGHT [J] COPY q COPY LIST SQR IF Y[(ATTR A DRAW ASN R BRIGHT REM SCREEN$ UP[U] [E]TAB INVERSE 8 IF RETURN COPY TAB = COPY IF © MERGE SCREEN$ TO Mb NEW L FORMAT !© STOP n CLOSE #@>}LN REM PRINT RSTR$ Ku[L] COPY tq© BRIGHT oSQR [J]m AND INVERSE <=aFCODE 0 BRIGHT &{▟b LLIST BORDER LPRINT v POKE SCREEN$ COPY p CIRCLE ]BIN ©,TAB U MOVE INPUT LIST NEXT G DIM CLEAR COPY RUN BORDER +©pASN PRINT ZSCREEN$ RNDP CIRCLE CLS ? BRIGHT COPY FOR U IF SCREEN$ D MERGE @[J]z6lAPUSR h4 LIST xATTR MOVE SGN Vi| OR %,^ZN DRAW ▟ LLIST BIN =. RESTORE "'p CLOSE #[Q]` FORMAT NdSGN @z)% MERGE U DRAW LN ][E][H]+ DRAW CLS e DRAW BRIGHT IN COPY ; LIST [S] DRAW COPY SAVE [B] COPY LIST w LET [K] BRIGHT NEXT T PAUSE [R]q"J LET h DRAW ▛[H]F DRAW IF NEXT 0▙ DRAW [E][M]b[B] DRAW p_[E] STOP LLIST [I] POKE [W[B] RANDOMIZE PAUSE [M] RANDOMIZE LN PAUSE [Q] NEXT R[G]H OPEN #FN [Q][C] LIST Q LIST ▚TAB ASN DRAW BRIGHT ^V^[I] CIRCLE DRAW [H] RANDOMIZE VERIFY [P] CAT THEN PAUSE BIN bSGN P(▞@*p▞ !Z[I] COPY ERASE = LPRINT t R0c DRAW VAL W▟ BRIGHT 2 NEXT VAL$ CIRCLE READ U SAVE AND DRAW TAN ; RESTORE h DRAW RNDLN POKE OUT INT [E]©Xq[Q] CODE Q LIST DRAW BRIGHT LPRINT BpH DRAW ^0CODE !3 CLS J COPY LIST U_SCREEN$ FOR W LLIST LIST L BEEP AND _USR <=ATTR `Fd8q READ / LPRINT VAL$ V LIST [S]yEXP PAUSE DRAW ▜DAT [O]pW▚[O]CHR$ _P[C] DRAW | OPEN # BRIGHT TO sc COPY 1 MERGE [B][O]KLEN = COPY RETURN [C] LOAD =2©PEEK NEW IN >= BRIGHT X LIST PVAL POINT MOVE IF V STOP V0l<jUSR LIST + SAVE A ERASE INK x[M]4VAL %VAL OPEN #h FORMAT >= DATA *E RETURN <>RAT STEP J@H DRAW H DRAW Z▞T PRINT SGN TAN LPRINT [K]/[L] DRAW CLS HBIN POKE &!)[B]FE DRAW [J]B DRAW ▚ RANDOMIZE k DRAW BRIGHT ATTR SAVE W FORMAT [Q]|CODE [P][F])1J k[M]HM#0DJ DRAW EPEEK wP8ATTR ([B]xINKEY$^=PEEK ▖I,▘FN LN r ERASE ( COPY BEEP BRIGHT >=l.CODE SQR PI CLS BORDER COPY LET CHR$ FN RESTORE U STOP [Q]p INVERSE P}[K] INVERSE AT @>=BIN hRACS FN CONTINUE >[F] FLASH ▙. AND q2▖` POKE ▚ DRAW [K]▟`[G]X▖9DLCHR$ [A]SGN [G] OUT [S]5LN %4[I]H"kCHR$ ATTR LEN REM <z LIST z STEP SCREEN$ lq[E]Lo@_VAL / BEEP COPY >= POKE CLS |BFN U LLIST M CIRCLE h GO TO @[M]/n'W COPY COPY | LLIST REM DRAW =_▘ATTR SAVE RETURN !AT OUT /RLEN ▟FtUSR `ATN [I]fe RETURN U[ LOAD DRAW 5 FORMAT kB4YTAN INT ASN COPY LOAD P©/ LIST U DRAW *PEEK ^[A] AND m.5 OUT SGN ▟▘▝BIN SQR aB[B]TAB @F(▟[Q]` COPY EXP POINT LN ` NEXT XVAL$ DRAW [USR [F]p(V+▞STR$ LPRINT yAT Z][ &|[E][E] OR CAT [M] COPY SQR ▝/USR - POKE R OVER %WvIN * POKE CHR$ p FOR FN FLASH h POKE SCREEN$ [U]ABS BRIGHT | LIST 4 BRIGHT DEF FN LINE READ ▟9[H]"CHR$ PLOT . FLASH J9 BORDER LN K▖|- DRAW ]IN U LLIST SCREEN$ k`pPTAB } DRAW P}4G BRIGHT @[A]VAL " FORMAT DRAW DRAW F INPUT CONTINUE CLEAR ^LN RETURN DRAW COPY PAUSE SAVE LIST INPUT s GO SUB TO oJCODE DRAW ^[E]/ STOP RETURN !PI7O LIST [F] GO TO ▞L[I] LIST RESTORE [I]ABS [U] POKE PAPER RUN PAPER <>([Q]▞$[M] DRAW [I]~*▜U[E]CODE `i^[Q] DRAW 4PEEK DATA ▖ CLS LN SAVE " PAUSE b=AT IF T STOP D▘@▗ COPY EZSGN K` LPRINT .J RESTORE ERASE AND DRAW BRIGHT ,[E]V[( CAT ! STOP 5IN SAVE [P] SAVE ▟ SAVE DRAW LIST ATN ] BRIGHT FN AND CONTINUE [E]X▙ NEW [Q]TAB CHR$ GO TO COPY o[U]B FORMAT `▞▗ TO R RETURN c COPY IF SCREEN$ BEEP U REM AND LET [E]F▛[Q] DRAW FN DRAW INPUT ▜[O]▚!GBPIM# BRIGHT [B]VAL DRAW LIST [O]` BRIGHT OPEN #?[C]SQR INVERSE 8BIN INK >= LIST BEEP ERASE <= LINE L▟COS SCREEN$ RUN ▖U RETURN } RUN ACODE CLEAR y[E]USR ▟ STOP RETURN [C] AND P[A]#[G] RETURN OUT { LOAD [P] OVER [M]b COPY D▘ READ d▞▗b[S][B] DRAW [R]_[T] DRAW a DRAW BRIGHT MERGE REM &TAG ERASE [E]BIN 7R VERIFY SIN ERASE ▞BIN FORMAT [R] DRAW [S]G$@ COPY w DATA [M]X[E]4 CAT FORMAT PFN ERASE [Q]Aj PLOT (K[A] TO INK INT H INK [I][N]=jE2[ COPY a8 ERASE ▗i DRAW pC[N]D OUT CLOSE #[Q]E RANDOMIZE TLN [U],[Q]l LINE D BRIGHT [K] DRAW W0[T]^Rn*U STOP LEN [S]2 x PLOT IF POKE / CONTINUE OUT P> INVERSE PRINT BSCREEN$ @POINT BRIGHT GO SUB :[P] SAVE BRIGHT MERGE CONTINUE 0[A]▖u COPY A@#W▜SGN ?A[G]? IF ©FN 5▗J FORMAT COS COPY LTN PAPER SCREEN$ ? RUN AT LLIST LINE B VERIFY ▗F COPY cN( POKE ?SCREEN$ }Tz[Q]t[T]nACS LPRINT FOR )4~ READ [Q]1 A▝[C]!ZV!ASN AND SCREEN$ ([▟ NEXT k[E]FN CAT Pt© SAVE PAPER POINT ▛ IF FN [O]5 PAPER INVERSE DRAW bSGN 5px9 LIST RETURN $TAN {J REM [U]T@COS CLEAR CLOSE # NEXT n/%UNOT oBIN BRIGHT ;<>] RANDOMIZE BEEP |H&UVAL$ [K] DIM BRIGHT ERASE SIN MOVE >= DRAW ABS LET HSTR$ CLEAR ▜SCREEN$ UU DRAW ©▟IN DRAW [E]j NEXT 8 INK ERASE NOT DRAW BRIGHT u CLOSE # NEW COPY TO A REM SAVE IN S*VAL ha" POKE OPEN # DRAW LN Z SAVE BRIGHT SAVE 0 IF DCODE `/ RETURN BRIGHT SIN 0<> SAVE BRIGHT AND ;>=PEEK A< RETURN V/ PRINT PAUSE X©* LPRINT PLOT LPRINT +[I]H PRINT I DRAW 'A<AT DRAW VERIFY ]RNDP COPY 7pjUSR LN FOR LIST [L]ATN MERGE RETURN H~| DRAW p▜ INK [E] DRAW |# BRIGHT A? !0#[B]H+q"©!*K$U[U] THEN [E] DRAW aDVAL RETURN FORMAT ▙ RETURN PRINT COS LET [P]([U]|[G][E]exAT DRAW LINE [J][E]YV DIM : RETURN [G]q GO TO RETURN BORDER ©[E]&i CLEAR [E]0a▞ MERGE cR DRAW ~ VERIFY [E]SQR SCREEN$ RETURN PAPER 0AT (BIN OUT NOT LN CONTINUE u RETURN UVF0"[B]>@[B] SAVE OVER ( COPY ATN x^8 STEP RETURN BRIGHT Fc{8?[G]TAB :AT SAVE ▟▞ DRAW POKE DRAW 2 READ J% BEEP DATA LET ATN F LINE LPRINT MOVE ([Q]FN [M]%& DRAW POKE LIST FN TD" POKE d[U] LIST LN b[E]VAL$ g LET RETURN DRAW CODE VAL RETURN [E]VAL ^NOT DRAW BRIGHT [Q]F` LINE TAN NOT DRAW ▗LN LN ▝E08 COPY [E]F INK [I]}[T]© LINE RETURN [N];[E]CHR$ FN uPSIN fVAL$ FORMAT < GO SUB DRAW DATA LPRINT MOVE @SCREEN$ CODE BqSQR y BRIGHT # DIM AT RETURN LIST ▟F TO ▗<=©▘▘v DATA LIST AT O NEXT VAL J[Q] DRAW /dAT [O]IN GO TO FLASH ABS CIRCLE
