1 RANDOMIZE USR 0 * PROTECTION BY KSA SOFTWARE * NEXT 1@CODE OPEN # RETURN !@@ COPY u GO SUB VAL ![A]][R]~TAB w# IF [R][F] ERASE SIN >=▜[D] CIRCLE [I]INT [L]q-W_ CLEAR MERGE INT [C]y SAVE j IF n POKE RUN ~ LET J NEXT GO SUB LOAD @ DIM ▗ REM F STEP rn@v IF
46239 CLEAR RANDOMIZE ▘7SIN PLOT CODE [D]a NEXT © LET } POKE CLOSE #▞ NEW BRIGHT % DRAW -▘NCHR$ LUSR J AND / INK USR OVER CLEAR E CAT C STEP A OPEN #_; ERASE FLASH ATTR BORDER ' SAVE SAVE * CLS ▘QVVSCREEN$ SCREEN$ CODE GO SUB FOR SAVE DIM J BORDER "|/w[R]1 CLS 2;KC LINE LET TAB /~4}50x&▟)+STR$ [F] BORDER OPEN # OR [J] INK PLOT [L].< FORMAT COPY DIM [F]TAB % PLOT MOVE , LIST OPEN #▜ GO TO j RANDOMIZE [R]COS PAPER STR$ <>+[M]4[N] FORMAT LET ACS INKEY$; RUN 5 RANDOMIZE LINE THEN 0 STEP L RUN FORMAT ESTR$ AND AND BIN &▛?$ OUT [C]q/ INPUT (-<=N LPRINT K FLASH - OVER INVERSE " OUT POKE a:bl▚ GO TO [ RUN ^USR 2/qa INPUT +▚k[C]ASN ^Msr}|©~yx{zedgfa`cbmlonihkjUTWVQPSR]/_^YX[ZEDGFA@CBMLONIHKJASN TAN ATN ACS LEN VAL COS SIN ABS SGN IN PEEK EXP LN SQR INT RND[U]PIINKEY$[R][Q][T][S]TAB AT CODE VAL$ POINT FN ATTR SCREEN$ NEXT CODE !a RESTORE ! NEXT RESTORE NOT /=SCREEN$ * RETURN m" RETURN m CLEAR qSTR$ 6G# CLS STEP 68 CLS RETURN > NEXT STEP R;;STR$ ![H] FOR !fs#r!{s#r!▞s#r!PEEK @ MERGE INK >ATN H LLIST INK ~ THEN © : NEW O~ NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW LPRINT TAN oa~ STEP INKEY$t LLIST # OVER LLIST STR$ NEW ©(# THEN w G~ STEP INKEY$t# RANDOMIZE VAL$ NEW ? AND G~ STEP INKEY$t CLS #[Q] INK !X' INK CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <>>=▜0 BRIGHT LOAD FOR LOAD FOR / OPEN #▙<^IN [P]CODE [F]B<tFN [G]CODE ]:▖>//V(`▖aSIN ukW.E80p▖*WIN LOAD USCREEN$ <NOT COPY < FLASH FLASH ▜▝ FLASH BORDER ? COPY [H]▚NOT NOT BORDER BORDER $ BORDER ([Q]▖▚ THEN BEEP VAL$ ]INT READ (VAL [A]+ MERGE SQR INPUT K5 LOAD USR LPRINT LPRINT LIST pUSR LN ▛SGN | DRAW DRAW 8x SAVE LIST LIST LPRINT USR VERIFY LIST LIST ( LPRINT ▖,]INT u FOR Q▙ LIST ▛} LOAD _A▜; RUN BEEP RUN BEEP : OPEN #USR FOR BEEP VAL$ USR [C]TAB { RETURN POKE SVAL$ D*USR FN b INVERSE ▘pUSR ▟ FORMAT INT _ACS FOR ABS X COPY CIRCLE [R]IN /)▖~NOT [J][B]▞[J]NOT ~i~▘ CLS FOR USR c▘ READ NOT XUSR ▛P CIRCLE h[ DIM LEN ZVAL$ 8USR [J]▘NOT ~x@ PAPER ▜s[L]LEN a3PUSR POKE ▚6C RESTORE TAN PI COPY ?▗STR$ yx▜p[J] NEXT [L]qq8▟W MERGE PAUSE LIST COPY [J][D]▚▚[D][J] COPY xUSR Z▜ LIST [J] SAVE [L][J]`USR n▚?IN INT 5[A] [B]▝▞H@▜6c`aw>"[J]▜ NEXT [J]▛ NEXT LET pUSR ▚ COPY COPY SCREEN$ U:PEEK P@▘cc0@▘[L][L]STR$ ▝ NEXT xUSR 0@<>r▘f|a@pUSR 0 SAVE yMFBBFMy SAVE @0>0sn)@▚[I] LIST [I]pxUSR USR {@zNOT xCz9S▝▝@▝y! RETURN OVER CIRCLE FLASH CIRCLE INK FLASH PAPER INK FLASH CIRCLE OVER RETURN CAT ▜3©kkcs3# INK ▜ SAVE aSTR$ USR STR$ k LET y!@▗ COPY RUN 6USR ACS ▗66 RUN x▗3c©8@▝ LIST yQIN CLEAR [L]6l CIRCLE VAL g=▝IN @▗1#c1USR ▗[L] CLS z@)USR ▝qUSR Q▗_`?q▙▘©]USR ▘$[J]▜3[L][L][;;[L]z@2▝USR <=@©qUSR ▘0 LPRINT z@"@▗ BORDER ABS [J]▝Bq%▗vlfc+USR NOT {"+=HY▘q[K]▝ READ {)IN ▝{@%[J] RANDOMIZE cCHR$ USR ▝ PAUSE {▙ PLOT RETURN VAL$ ^ COPY ▝[P]▗[M][P]▝{% INK ▜ INK COS bUSR ▞{ PAUSE {USR !▜ LIST P[Q] COPY ▝ BORDER STR$ $▝< MERGE ▚ FLASH COS aUSR ▖xb@@▙*0j[Q]` NEXT [C][O][J][J]▘A@^@▜0[I] LIST `USR }@@@!PEEK SIN INK }@▚ CLEAR INVERSE SCREEN$ SCREEN$ ~USR OPEN #u@▚ IF PLOT zE~USR >USR ~?1FN X GO TO Z~USR VUSR xUSR w_~USR FUSR @USR /INT t REM PDwFN ~USR ©USR ▜<.kASN INT /O TO O CIRCLE xx*<[S] IF MSCREEN$ ©s▖d[P]}[S]$[C]f▝ LINE BEEP [R]T[Q]P-,"[H][A]J OR }a▙%:e▞[J][I][U]bRH▖ DATA [Q]! LINE ▗FN zU[O]ERNDHP[S]dFN FN PR[U]H CLOSE #8[B]V8 MERGE ) ERASE 8 READ ERASE Yfd$[B]ABp▝▗0 REM [Q]`USR TAB $+5XfALN ~ LPRINT PAUSE N0K[E]&IG▖[B]▘BIN STR$ [Q]`VAL P0XVAL H</ */ LINE ;BIN 0▖` DRAW ▟D GO SUB @ LPRINT [Q][A]@P@@q*▝k LINE USR [Q][Q] FLASH ▝p DIM 8SIN FN X DATA TUSR ▝▗0h▝' SAVE * PAPER ▝USR ▝ REM _ SAVE INPUT ▖ DEF FN ▘ INPUT CIRCLE ▘ AND ▗ INPUT HJJ@ REM JNJJ FORMAT ▗VAL$ FN VAL$ [S]`8FN X▝ LPRINT STR$ [Q]M▗USR LPRINT GPEEK INPUT FN AT FN VAL$ USR ▝ INPUT USR H`▗SCREEN$ REM SCREEN$ [U]xUSR ▘ INPUT ▝SCREEN$ PLOT ▝ CONTINUE USR FN >= INPUT AT SCREEN$ REM USR ▝ CONTINUE 8▝▝ GO TO USR J▝ GO TO y▘USR =▝ REM ▝ DATA P INPUT FN FN H8USR SCREEN$ ▝AT ▝q@▜ INPUT SCREEN$ GO TO x▘ TO x▗VAL$ [U] DATA [U]LN DEF FN SCREEN$ VAL$ SCREEN$ LINE USR @▘9▖| RETURN COPY [D] INPUT FN SCREEN$ SCREEN$ FN STR$ [A]▝▙[A]▗VAL$ CONTINUE VAL$ [S] OVER ▝ INPUT STR$ DyUSR ▗ INPUT SCREEN$ DEF FN ▗VAL$ [U][U] DATA `)▝SCREEN$ (USR ▘ REM SCREEN$ LINE z▘SCREEN$ )pp STEP ▗ AND ( LPRINT ▘b@X OPEN #[Q][Q]@cCb[Q][Q]I SAVE OUT ZUSR `@STR$ LPRINT ( ` ▝' SAVE }v NEW SAVE STOP ▗|] BRIGHT BRIGHT #? LPRINT FN LEN "USR ▝>▗xACS u FORMAT USR TAB @$ CLOSE #AT f▘[Q]~[I] Or ERASE )d[C] STOP ▞A#<:HT@ POKE FN USR CONTINUE FORMAT <=[O]E&J% CIRCLE +▞jATTR [E]K<=K[K]f&$▞▘BB▗@[Q]@@~>=![G]R[T]PEEK CIRCLE ▚q>=[U]/INKEY$[B][J]%FJ'~© MERGE ▜& RANDOMIZE PEEK E$q LPRINT ▝0EXP a~▝ DRAW O TO O CIRCLE xx*<© DRAW © DRAW © DRAW [G]<^IN [P]CODE [F]B< MERGE ▗<<=AN CIRCLE [I]? COPY OUT © COPY COPY LOAD COPY COPY 8].Wku[C]a VERIFY ▝© @NOT [M]? LOAD COPY RUN COPY COPY IN RUN FOR q COPY FLASH ASN OUT PRINT VAL$ U LINE READ uINT ]VAL$ BEEP I▚ MERGE ▗< THEN @TAB [K]~ OUT COPY RUN IN COPY © COPY INPUT } RETURN OUT CLEAR COPY LOAD © FLASH n BEEP INT MERGE *▙ BEEP FOR B▘$ MERGE ▖▘~]w CLEAR 0x[A] LOAD }7 RETURN RUN COPY INVERSE ~ FOR PEEK USIN USCREEN$ 8~▝ FOR USR ▛▙/ CLEAR CAT INKEY$NOT COPY EXP LOAD 0x▜ OUT CLS RETURN COPY RUN FOR LLIST DRAW ABS INPUT MERGE B0USR USR [E]@USR USR `` LPRINT @ LPRINT USR LIST `0 LIST LIST x SAVE hx▝ CLS 5SQR COPY PLOT CLEAR SCREEN$ MERGE SCREEN$ U[S]ATTR uSCREEN$ xUSR >=▘xx x▖U*DD▗(USR FORMAT ▗ COPY OUT [U]Hx▝ RUN (z▞SCREEN$ TU ▖@y&R▘>TAB ▝©xxx▞A[Q]▗ yNOT )8h LIST (x▝I▘xUSR NOT j(U[S]U%v▝K DRAW z@ CLEAR j(▜VSCREEN$ B(t7z@&b(▚U[S]P" CLOSE #yVAL VAL n FLASH +▞c NEXT RUN w STEP )VAL FLASH RETURN FOR PEEK WI8g▝ DEF FN #[A]U COPY COPY } LOAD COPY RETURN <=E FOR LOAD *LN (@▜YP▝@p+[O] OVER BRIGHT USR XyxUSR {USR yy OR {USR yy<=▝<{CHR$ {00▗(▘ g|NOT +0▖ COPY oIN UATTR USCREEN$ EH▘* GO SUB 7ATN |&▗▜ LPRINT | LOAD COPY OUT RETURN COPY z>=H▖(▖ {<=▘ CIRCLE ., LIST ,▖ 1 FORMAT }@>=▘ SAVE 4{P FORMAT 5@USR [E], LIST P▖A-@▞8@[Q]P FORMAT [Q]P[Q][Q]▜P[Q]FN PFN POKE ,xx▖~ MOVE ▖SGN P[R]SIN SAVE INPUT IN h▖~ CLOSE #&USR LIST ~{▝ CLEAR 5n MERGE .STR$ ▗ LPRINT LN DRAW RUN ~~USR LINE ▗▝~T>=▞USR LPRINT LPRINT VAL SAVE CONTINUE DRAW COPY H▖▙ VERIFY REM tINT /$© DRAW © DRAW © DRAW ▘k▝/USR ▝BUSR G▘BGNOT D OR CBIN D NOT B AND C▝ 0 STR$ G LINE E@; CIRCLE Ex;X- OVER B▘GGCHR$ STEP G ▘BBBIN STEP Fx <>▘FF PCHR$ GGF<>C@ <>p ▝h@ @ X@H ▝x@[G][Q]USR ▝Gh LPRINT !USR a"x x "ax@T( CAT ( [O] MERGE EXP ` INK FLASH x h BRIGHT BVAL$ FN VAL$ [S] INPUT COPY COPY SCREEN$ U LPRINT [Q][Q][Q][Q] LPRINT USR LPRINT INPUT FN AT FN VAL$ INPUT HHH INPUT REM SCREEN$ REM SCREEN$ [U] COPY COPY SCREEN$ U INPUT SCREEN$ REM SCREEN$ SCREEN$ CONTINUE FN FN FN INPUT INPUT AT SCREEN$ REM CONTINUE HHH INPUT GO TO JJJ GO TO COPY COPY SCREEN$ UUSR [Q][Q][Q]USR REM JJJ DATA INPUT SCREEN$ INPUT FN FN GO TO SCREEN$ SCREEN$ SCREEN$ AT COPY COPY SCREEN$ U STEP g LPRINT NEXT GO SUB ssUSR !USR ▟[d MERGE GO SUB VAL !f LPRINT COPY NEW RESTORE <> GO SUB LN !<=USR ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1<>IN NOT [Q] NEW NOT USR NOT LIST NEW AND NOT USR / NEW ( PAUSE CLS <> THEN COPY NOT USR NOT &USR PRINT STEP hUSR LET STEP [O]USR <> STEP wNOT STEP -USR <>!MUSR CLEAR COPY GO SUB YIN GO SUB ATTR PAUSE 2USR ▝<> THEN RESTORE PRINT !@USR o0$s LET LLIST <> RESTORE P[O]~ LLIST <>! OVER CHR$ OUT CHR$ [I]6 GO SUB VAL >SGN 2eNOT CODE 2sNOT 2tNOT 2uVAL dNOT 2fNOT 2vNOT ! LLIST NOT " OVER CHR$ " LPRINT CHR$ " STOP CHR$ " DATA CHR$ <> RESTORE MERGE OR ATN LINE sSTR$ RETURN CLS ERASE ySTR$ ATN PAUSE 9STR$ REM CHR$ !%STR$ DPP▞ NEW ©_! BRIGHT <= ©▖^#V# GO SUB S REM CHR$ 0▝ RETURN ▜ GO SUB SNOT !wBIN `!~BIN c!BIN f|![N]USR m:fNOT NEW CLEAR ▜P[I]▗vNOT >[N]STR$ MOVE LLIST RESTORE ▝0 CONTINUE ▝ [D]O:vNOT ATN CHR$ !STR$ :dNOT EXP LINE KSTR$ ERASE !STR$ y<=&NOT P[R]![Q]`▜ GO SUB S2NOT !CODE AND OPEN #▚NOT !STR$ STEP ▗USR [E] LINE FCHR$ RETURN DRAW LINE [I]CHR$ RETURN CLEAR LINE [D]STR$ RETURN RETURN LINE DRAW STR$ >: ▞▘ PLOT ▝: gNOT :#hNOT :eNOT 2iNOT >IN 8▖ STEP /USR 2jNOT >▗kNOT >▗lNOT >▗mNOT > ▝n_bNOT >2cNOT !pBIN " CONTINUE CHR$ N`[J]▖!v DEF FN "NNOT NOT i▘ NEW RETURN i▘gNOT ▘:h:iNOT [M]:jNOT _CODE STEP NUSR :kNOT _i▝l▝▝m▝▝n▝$@SIN ▝SIN INKEY$▘oNOT ▞ATN CHR$ _CHR$ >IN NOT dCHR$ LN ▘ PLOT PASN ▝p@ASN ▝q@ASN rNOT !FN AND " NEW CHR$ :p[M]▗[O] DEF FN "FA!▙M▜:oNOT LINE LN CHR$ GL▘ FLASH [Q] NEW $VAL RND▝p@RND▝qPRND▝r@RNDE▗tNOT RETURN SAVE r[O] COPY COPY <> FORMAT _>bfNOT THEN GCHR$ BIN THEN OCHR$ BIN PAUSE ▚= IF LN NOT CHR$ ASN PLOT ▝=▗ RETURN LIST CHR$ COS sCODE NOT ASN NOT "(▜CODE G* OVER CHR$ STEP INK G* LPRINT ▗G* STOP 0* DATA CHR$ COPY ▝x RETURN ▖ DIM :cNOT RETURN CHR$ LIST #e▝▞#[R][M]BIN s#rNOT BIN <>* CONTINUE CHR$ DIM CODE * NEW CHR$ NOT CAT NOT :bNOT [J]<ZNOT ▗bNOT AND RESTORE !jBIN NOT ?BIN RESTORE !d0▝^0-# LIST [R]INKEY$#ACS BEEP ▝ LLIST CIRCLE :[K] RETURN CLEAR CLS RUN LOAD OUT PLOT GO SUB FLASH COPY COPY COPY $ INVERSE !{▚▞BIN INVERSE ! REM CHR$ ▝ RETURN 0▝[M] RETURN CHR$ [M]BIN > LINE [M]BIN INVERSE THEN INPUT INVERSE 5 LINE INVERSE [J]F LINE AND BIN INVERSE ~ INVERSE PEEK ERASE ACS BIN INVERSE PEEK FORMAT INVERSE ^ SAVE INVERSE s&▘nUSR CHR$ 3▚~USR STEP INT AND FORMAT <▝ RETURN INK PI INVERSE n INVERSE f~#O RETURN FORMAT ERASE <= OR INVERSE u INVERSE t RETURN USR ERASE AT OR NEW <G INVERSE ^CODE CLEAR INVERSE w0{▘ OR "EXP ▘ OR {▝VAL$ u▘f OR u[G] INVERSE w iy NEW LIST USR ![E] OR Tc▞ INVERSE F THEN : THEN IF VAL$ ▞v LINE O OR STEP BIN LEN [A] INVERSE ▚ PAUSE / OR CODE INVERSE w_ STEP BIN NOT ; DEF FN ▜VCHR$ ▙ OR ! REM DATA 0D#▚▜~ INVERSE w#▝ GO TO RNDPEEK > INVERSE wNOT p OR LN 8 FORMAT x4 DATA CLOSE # CLOSE # DATA ( DRAW ▘NOT VAL NEW LIST RETURN FORMAT LINE AND RETURN LPRINT LINE " AND y NEW RETURN LINE [D] AND RETURN ~= LINE RUN OR PAUSE GO TO OR ~=# INVERSE w~#foNOT READ BIN USR #< INVERSE w~STR$ ▟ NEW = INVERSE w~# NEW INVERSE w"F INVERSE w0[L] RETURN PAPER U AND LINE _ AND RETURN LINE n AND RETURN LINE u AND RETURN LINE g AND RETURN LINE |f LINE AND NEW G INVERSE ~ NEW SAVE VAL INVERSE w^▜ GO SUB D AND INVERSE wh▘> VERIFY p▝CODE 0 VERIFY ▝ PLOT ~@RND▜ INVERSE u INVERSE t FOR [D]n INVERSE f[M]SIN <G>© CLEAR G:uNOT [Q]!▙NOT LLIST NOT INVERSE !:NOT NOT COS AND INVERSE !&NOT READ ▜5~VAL ▟f~ RETURN COPY LINE [Q]<= INPUT ▗ RETURN LINE +<=▖ LINE K<= RETURN CHR$ POKE ▗_> MOVE ! OR ▛_ INVERSE THEN f LINE <=>NOT ▘<=#' ERASE <=o PAUSE <=CODE EXP I▘W^[S]▚ INVERSE tNOT ▘▖= LINE B<= PAUSE 7<=!K▝!K▘ TO AND K[E] TO AND THEN ACHR$ a<= THEN ICHR$ [<= STEP &BIN NOT o<= STEP ;▗l<= STEP 4 ▚-BIN y NEW B▝~FN ▛[O]<= RETURN ( PAPER TO AND ^#>v▝YIN TO AND ATN <>7<>>>=k>=[N]>=AT >=STR$ >= OVER >= RUN >=<>8<>i<>▖<> TO <> LIST <>A LINE x LINE TAB LINE PAPER LINE RANDOMIZE LINE J THEN e THEN THEN % TO ▖ TO FOR TO DEF FN - STEP INVERSE STEP SIN STEP |IN >=VAL$ DEF FN CAT ATTR CAT | FORMAT PAPER FORMAT MOVE GO SUB MOVE [U] ERASE P OPEN #k CLOSE # THEN CLOSE #~ MERGE ) VERIFY LOAD VERIFY CIRCLE MERGE CIRCLE [N] INK e PAPER k FLASH + BRIGHT STEP FLASH INK BRIGHT INVERSE o INVERSE SIN INVERSE SAVE INVERSE P OVER CODE OVER BIN OVER CIRCLE OVER RESTORE OVER [P] OUT 1 OUT b OUT ▜ OUT EXP OUT NEXT OUT LPRINT 5 LPRINT LPRINT [T] LPRINT PEEK LPRINT CIRCLE LPRINT x LLIST STOP 3 STOP 3▞ STOP " FORMAT GO TO USR F FORMAT ▙▖ FORMAT FUSR P FORMAT LIST FORMAT LPRINT USR FORMAT [S]USR USR VAL VAL [Q][Q][A][A][A]f[A]UUSR DUSR 3 LPRINT " LPRINT COPY *[Q]p"*TAB COPY "`p[A][Q] VAL USR FORMAT - LPRINT < LIST QUSR l FORMAT %USR 2VAL bUSR I COPY !USR USR LPRINT [E] COPY ![A]USR LPRINT LIST LPRINT [Q] [F]Pp[Q] FORMAT !@ LPRINT 05[I] COPY "[B][Q]STR$ LPRINT MOVE P MOVE STOP MOVE LIST STOP P ERASE [Q]NOT COS [U]K FORMAT " VERIFY ! (▖ MOVE ERASE ! LIST FORMAT ! LIST LIST LPRINT J[F] FORMAT FORMAT USR !VAL p`P 2▝p2▗ LIST 05[A] LIST LPRINT USR USR VAL ▚USR [Q][A] 5▛[Q]PUSR ` FORMAT LPRINT [Q]USR FORMAT [U]"VAL P[Q]`[A][Q] RETURN i<> COPY *▝ LIST *[A],# LPRINT LPRINT 0[T][Q] LPRINT ` LPRINT P LPRINT @ LPRINT 0 FORMAT FORMAT FORMAT P FORMAT @USR 0USR USR USR VAL VAL @VAL 0[Q] [Q];USR USR ▜ LPRINT LPRINT /▘ LPRINT FLASH ▝ OR ▘ LPRINT 5▝![E] PAUSE PAUSE [Q] NEXT NEXT p READ USR DATA 0 DATA 0 DATA P DATA ` PAUSE `0[S] NEXT USR " POKE POKE 0 POKE P POKE `" STOP STOP [Q] READ READ p OPEN #USR CLOSE # OPEN # CLOSE #P CLOSE #` STOP `0▝ READ (▗ CLOSE # CLOSE #0▗ COPY !!▘!INKEY$▗![Q]▞[A]00▝&▝ LIST USR [K][C] LPRINT I LIST b LIST 2 FORMAT % LPRINT l FORMAT Q LPRINT < FORMAT -USR ▝I SAVE USR l LIST `[Q] [A]p`5▗ GO TO FORMAT F LPRINT k▖ LPRINT ▙ LPRINT F FORMAT P LPRINT LIST USR LPRINT [H] FORMAT LPRINT USR FORMAT VAL USR [Q]VAL [A][Q][Q]f[Q]U FORMAT D FORMAT 3 LIST " LIST ^▚ LIST P LIST 5?;USR PUSR ▗VAL PVAL 5 FORMAT f FORMAT .▚ FORMAT " FORMAT C FORMAT ;▟+ FORMAT #" LIST ▖ LIST w LIST f LIST U0▖ LIST D LIST ? FORMAT 0 FORMAT (~LEN g FORMAT W FORMAT G FORMAT 7USR ▖USR wUSR fUSR UVAL wVAL fVAL UVAL D[Q]o[Q]_[Q]O[Q]? COPY "q LPRINT [S],LEN LPRINT ERASE , LLIST LPRINT STOP , MOVE LPRINT CHR$ ▚[S],[B] LPRINT r, DIM ▗ LPRINT ( LPRINT p LINE [B]@ FORMAT USR "VAL (VAL pVAL `VAL @" INVERSE ▞ p ` P VAL$ [K]LEN 3LEN VAL OPEN #VAL [T]VAL s LLIST + LPRINT CLS LPRINT FLASH LPRINT SQR LPRINT [L] LLIST 3 LLIST LPRINT OPEN #}▛s LLIST " LPRINT PAUSE LPRINT CHR$ LPRINT [C] LPRINT bp[U] MOVE FORMAT BEEP FORMAT PI FORMAT w FORMAT G MOVE ( FORMAT SAVE FORMAT CIRCLE FORMAT LN FORMAT [I]STR$ 3STR$ USR OPEN #USR [T]USR sSTR$ USR BEEP USR PILEN ▜GLEN VAL BEEP VAL PIASN ▛G[R][Q] BEEP [Q]PI[Q]w[Q]Gp(pp[B] BEEP [A]PI[A]w[A]GG OR ▝r▘DVAL 0▝USR 0p`▚▘ FORMAT ▘ LIST D0` LPRINT D LPRINT LPRINT 0$ZSCREEN$ ▚[A]U[Q]3VAL 0[B][Q]UVAL 3USR VAL UUSR 3 FORMAT USR U FORMAT 3 LPRINT 0 FORMAT U LPRINT 3 LIST LPRINT U LIST [T]0 ▝ LPRINT ▝USR 6▝USR [L]N0▝VAL Z[Q] COPY # LIST LIST LPRINT * LPRINT CLS ▙# FORMAT FORMAT FORMAT % FORMAT $[K]P`[Q][Q]VAL VAL [A][A] AND CHR$ ▛'USR "CHR$ Y ERASE ABS READ =P[O] POKE DIM ` PRINT 4P*▝ STOP ▝ DATA p▗ DIM READ DEF FN MERGE p▗ACS OPEN #[O]BIN `8CHR$ DIM NOT DEF FN ASN `8SIN ACS [T][O][E]`T[S] DIM [T] DEF FN [F]@Tc NEW ▝ CONTINUE ▝ REM ▝s GO TO c GO TO ▘! INPUT DEF FN 3 LIST FORMAT ▝[H]▗ LPRINT w LPRINT [H]'P▝>=▝[H]1▟.USR )USR $USR USR USR USR Y▜- LIST ' LIST ! LIST + LIST 4▛ATN LPRINT BEEP LPRINT RUN LLIST LLIST 7 LLIST Wg▟- LPRINT ' LPRINT ! LPRINT LPRINT LPRINT LPRINT y[H] FORMAT ATN ▜ RUN MOVE MOVE 7 MOVE W▝▜-USR 'USR !USR N▝ bATN USR BEEP ▛[K]-VAL 'VAL ![Q][Q][Q][Q] COPY MOVE CLEAR ▖ LLIST tDt CLEAR # LPRINT 9▞ LIST H LPRINT V LIST H LIST V LPRINT FORMAT H FORMAT VUSR VVAL V[Q]VVUSR [I] LIST ©[Q]© LPRINT ©"- RETURN RETURN [O] DEF FN BORDER BEEP DRAW Q LLIST GO SUB 4 STOP LLIST [E] DRAW LLIST STR$ "[C][A]TSTR$ P IF @P DRAW ▝ CLEAR 0P[A] RETURN SGN DEF FN DRAW @ LLIST GO SUB D STOP B[R][C] NOT Br[R][C]SIN LPRINT DRAW 0 GO SUB K STOP LEN USR @r[E]CHR$ READ [A] STOP REM VAL$ DEF FN DIM BEEP GO SUB J READ READ [T] STOP READ . LPRINT ▗ RETURN CAT ▜[Q] DATA [R][Q]USR [Q] READ USR [R] RETURN ) CAT CLEAR Q READ CLS q STOP [S] LLIST ▘! ▘[C]Q▘A@p▝[A])▝NOT p*p*p*[G]Q READ [B][A] CLS q LLIST Bq GO SUB [ STOP CLEAR R READ DRAW + STOP B0[I]CHR$ DATA [A] READ REM CAT DIM BEEP CLS Q STOP [A][A]USR p CONTINUE DIM STOP uUSR ▝ H READ [Q] CONTINUE DIM STOP !r CONTINUE USR 0▚ RETURN ATTR CAT DIM *▝[B]'▖ CLS A LLIST " ▘& STOP USR ▝ CONTINUE p STOP 0 + MERGE CAT DIM DRAW 0STR$ GO SUB D READ DIM DRAW @" STOP [A]@pp▗ READ DIM @ n▖ DIM [A][A] STOP [A][E] CONTINUE !S DIM DRAW * READ QQ GO SUB ^ READ DIM qqspp▝pT[B] DIM @r REM ATTR CAT DIM BORDER CIRCLE CLEAR q READ ![B] STOP !y▗ READ pSIN DIM ▟ RETURN | FORMAT CLEAR q DATA !!P[A][C] CLEAR C DATA NOT ▞ RETURN [G] FORMAT IF LLIST "[M] NEXT COS / RETURN VAL FORMAT DRAW A GO SUB | READ R, RETURN ABS FORMAT CIRCLE DRAW A LLIST STR$ USR " OR RETURN THEN FORMAT REM [G] FORMAT DIM CIRCLE SAVE LLIST RANDOMIZE IF ! CLS & IF ▘ CLS 1 DATA d▝ PAPER d▗ GO SUB d READ <=NOT CLS C SAVE NOT s[E] VERIFY IF STOP P[A] MERGE SAVE P CLOSE # RUN [A] CIRCLE CLEAR A READ ▘▚ DATA [R][R] READ P▘ READ [Q] ▝P ▝ DATA ▜R RETURN MOVE DRAW 0SCREEN$ [A] RETURN N MOVE GO SUB r READ RETURN V MOVE 0▝]0▘e MOVE +▞ READ DATA USR ▘[B]INKEY$▗n MOVE REM IF INKEY$▗ IF READ ,▟ RETURN MOVE DIM DRAW STOP GO SUB OPEN # STOP DIM RANDOMIZE GO SUB /FN |[I]▙ MOVE DIM RANDOMIZE STOP [C] LLIST & STOP LEN LLIST @ STOP AT RETURN RND MOVE DIM NEXT COPY O▘USR ▝AT ▘INT MOVE ATN ▗ DIM STOP VAL VAL (▝SIN ▝! REM ▜ MOVE REM ▙ MOVE BORDER DIM MERGE 'NOT ANOT 1NOT !NOT STOP ! RETURN GO SUB MOVE % GO SUB w STOP CLS DRAW @[C] DRAW PSC DIM MERGE CLS " LLIST A GO SUB RESTORE STOP DIM LLIST BUSR A DIM ! GO SUB BRIGHT STOP DIM STOP "USR [I]A RETURN ERASE DIM DRAW & STOP Uu RANDOMIZE [B] IF [B] CLS [D] GO TO Ss[D]EU RANDOMIZE q IF q CLS s GO TO CSs&%E RANDOMIZE Q IF Q CLS S GO TO #CS9% RANDOMIZE C IF C CLS C DRAW ▞% DATA LEN READ RETURN = ERASE >▗s IF s>▜ DRAW uSTR$ REM ERASE ACS [G]& DATA [A][A][B] LLIST DATA [B][B] STOP LEN READ [B] DATA [B] STOP [R] DATA [B]STR$ STOP ▘[B] READ AND ▖[U] ERASE GO SUB ▞ READ LLIST ▘ STOP LEN ▝[R]▝[B] ▚>= ERASE DIM GO SUB [I] STOP V▘ CLS & READ # PRINT ▗ READ GO SUB ABS STOP ▘ GO SUB >=▗ STOP RETURN RUN CAT ▜% READ GO SUB ▙ READ ▚! GO SUB [G] READ DATA GO SUB [O] READ ▘ GO SUB PI READ CONTINUE @ DIM [A]USR [B] DIM DATA pUSR [A] REM NEW ERASE MERGE CONTINUE RETURN R OPEN #0[A][ OPEN # DIM MERGE IF $ STOP !! CONTINUE 1 DIM !! READ [B]QSTR$ STOP ▘ READ [R] NOT READ [R]$▚ SAVE STOP U CONTINUE 1USR STR$ 08?▖ RANDOMIZE LLIST A STOP q LLIST C LLIST C@[A]A CONTINUE DIM !Q[B]Q[B] LLIST # STOP # STOP ▝!t PAUSE ▝#s▝E S▞Q RANDOMIZE S CONTINUE 1 GO TO Sq▝[B]▝▙▝% n▝A▞▘CQ ▝q(▘ READ [T]POINT ▘ STOP ! RANDOMIZE D GO TO #A<▝Q▝[D] OR CLS 'ASN 0PI[A] RANDOMIZE CONTINUE 311 CONTINUE 001 RETURN INK OPEN #e▝pXX000 REM <=EXP BORDER VERIFY DRAW [A] CLEAR [A] LLIST !!q!q! CLEAR QPr RETURN p CLOSE # DRAW B STOP uPI[A][Q] LLIST STOP RND[D]RNDy CLS !"[C] LLIST ) RETURN ▝ CLOSE # DRAW 1 LLIST r" SAVE "r" DRAW 1qFN [M] CLOSE # DRAW 2 STOP r[C][R][C][S][S] LLIST !"1/ SAVE STR$ !▛[R][B]▝ REM k CLOSE # DIM VERIFY CLEAR * DATA STR$ qSTR$ QSTR$ 1▜ CLOSE # VERIFY DRAW B GO SUB TAB READ 00USR ▞ STOP # DATA [A][Q] STOP READ q/2[F]NOT Q[B] RETURN BORDER CLOSE # DRAW ( READ qpp RETURN 5 MERGE A@@ RETURN MERGE 1U# MERGE DATA q READ * MERGE DATA Q READ 3 MERGE DATA A READ "▗< MERGE DATA 1[▘ DATA !=▗SGN READ Rq▘r[B]▘[C][R]VAL ▘ DRAW & RETURN g MERGE [L]! IF STOP COS ▝ READ COS ▝ THEN COS @▖q CONTINUE RETURN ~ MERGE DIM PILEN TO ▝ OR % ERASE Pp[D]pP@3 REM 1 9▚STR$ IF !USR "[A]0▘ LLIST $TAB B▝I▗ CLS 1 LLIST USR BQ RETURN OPEN # MERGE CLS 2 STOP 2 READ 0( DIM STOP RP▝rP▝[C]P▝[P]&▖ DIM DRAW 2 READ DATA " REM [P]|e STOP CLEAR g DRAW eVAL$ ▞pUSR CLEAR g▝ DRAW eVAL STOP CONTINUE p [J]dVAL DIM CLS $ LLIST MOVE RANDOMIZE !1Qq▝LEN BEEP DRAW $ LPRINT GO SUB DIM READ ▚ CLEAR E STOP rLEN USR [L]▗# RANDOMIZE ![L]▚"STR$ DRAW E"Q▝q$6[B]p CLS pUSR DRAW ! LLIST p[A]VAL IF GO SUB DATA CLS ▝ DRAW TAN USR DRAW $ 0PqPpUSR pUSR pqLEN RETURN [M] VERIFY CLEAR D LLIST 0 0 12! RETURN PEEK VERIFY 21R"QrRq[S]▘[R] LPRINT DRAW d[N]JVAL$ ▞▝VAL REM W VERIFY DIM BEEP DRAW d_ OR ▞d DATA pp CLEAR gpVAL CONTINUE pP DIM BEEP CLEAR -▗ DATA pq▝ $P GO SUB 2 DATA ▗ DIM CLEAR e DATA 369LEN READ !p▗ CLEAR e READ ▝0P▝-▝[Q]G▘ READ [R]0▘[Q][Q]▗▝ READ ▝▝0$▝"ns▝q0▘pp"}▘Z BEEP V0 OPEN #PEEK [R]CHR$ ▝ PAUSE [C]"[H]P7<@UZ@s[Q][Q] CLEAR EXP DEF FN !▘ BEEP ▘e DATA LIST ▝ RESTORE USR p▝VAL DATA 1=0▘ DIM BEEP [I][E]} MOVE RUN q[B]LEN LLIST !AQ BEEP IF $ LLIST © GO SUB j DATA CLS E STOP "qUSR RUN wSTR$ CLS Er LLIST !▝!$;{▗ CLS LLIST f▝ 9 LPRINT USR BEEP RUN GO SUB [U] DATA BEEP SAVE ▝ RANDOMIZE ▝ OR J STOP pVAL VAL LLIST %CODE ▞h CIRCLE BEEP IF C LLIST STOP VAL RUN ▜p LLIST STOP qLEN q▝▝▝LEN STOP q▘R▝[S]r[R]▘ LLIST ""!© CAT REM ) CIRCLE BORDER X4 DATA CAT RETURN BRIGHT CIRCLE DRAW 4 STOP ▗ RESTORE CIRCLE CLEAR 4[C] GO SUB CIRCLE DIM DRAW $ STOP CSTR$ <>STR$ STR$ Esc![N]ESTR$ STR$ EeueqSTR$ LEN STR$ RND[F] LLIST STR$ STOP GO SUB OR READ CA LLIST [E]A CONTINUE A DIM DRAW #A CLEAR # LLIST A RANDOMIZE !@@ CLEAR # STOP SAVE SAVE RANDOMIZE IF CLS ▗ STR$ !▘3`#B DRAW !▜q SAVE p RANDOMIZE p2 BRIGHT ▝ DRAW ▝ x# LLIST STR$ 1@N[I]STR$ a▝[B] RANDOMIZE ![A][A] CLEAR #e CLEAR # READ ▝ STOP GO SUB LIST STOP REM NEXT CIRCLE ERASE ▘4 READ AND [S] INK ABS ▚SCREEN$ INK DIM CLEAR POINT ▗ RETURN VAL INK LEN ▗ CONTINUE @@ DIM LN 0 RETURN STR$ ▝$2▖ CLOSE # INK C CONTINUE BB DIM EXP ▝@ASN ▝s▝q AND ▝pCHR$ ▝ READ p0▟@A DIM qSTR$ q CLEAR 5 READ STOP FOR ▚ RETURN PAPER PAPER DATA [B] READ [A][A][A][A] RETURN $0 PAPER DATA a READ ``▚`` RETURN ; PAPER " OR ' RETURN I4 DIM ▗ REM VAL INK VERIFY STOP g PAPER BEXP [L]▝ DIM [F]STR$ READ © DATA INT ▝STR$ [B][C] READ cSTR$ sSTR$ STOP READ u STOP READ COS DIM DRAW 1 READ c-sSTR$ DIM &COS ▚ DIM STR$ aSTR$ qSTR$ &/1NOT CSTR$ 1▘ASTR$ ASN DRAW $sVaNOT [B]NOT ▝g3 DIM CLS 4PI▚ GO SUB SAVE STOP DIM [D][B] DRAW $s sq LLIST 0▝%▚ CLEAR $ LLIST RANDOMIZE INKEY$▝a CLEAR $A CONTINUE GO SUB COPY STOP ?▘"▝1 INK PAPER /`$uqc !▘" STOP aa LLIST K▘ STOP e Q▗` IF `▘? CLEAR q RESTORE ▝ DRAW q LLIST LLIST DEF FN ▘v PAPER [G]▜ DRAW Q STOP COS ERASE DRAW &USR COS ▘ LLIST USR ▗ RETURN k FLASH LLIST RETURN FLASH ERASE IF # STOP GO SUB READ CLS #▝ DRAW ▝ CLEAR ERASE STOP GO SUB ▜ RETURN FN FLASH GO SUB # READ 0 PRINT ▘ FLASH REM F!▗s ERASE CLS %USR s RETURN STEP UPs RETURN OUT FLASH ERASE RANDOMIZE " LLIST GO SUB 8 READ IF "▝ CLS ▝ DRAW ▝ CLOSE #[J] CAT USR STOP C CAT BUSR c CAT bUSR s CAT rUSR RETURN IF FLASH READ CAT ▘ [D] CAT [C] BRIGHT REM O▚ CLEAR P READ CNOT 3 DRAW ▘/ BRIGHT DRAW ▞C3 RETURN : BRIGHT ERASE CLEAR a##% READ RANDOMIZE XUSR ▝ IF ▝ CLS ▖ CLEAR %STR$ READ G RANDOMIZE XUSR C▝ IF ▝ CLS ▜ CLEAR %ESTR$ g RANDOMIZE XUSR c▘ IF h▝ CLS ▜ CLEAR %eSTR$ w RANDOMIZE XINT ▝ IF [C] CLS Yss CLEAR %uSTR$ RETURN N BRIGHT CLEAR @ DATA GO SUB TO READ p▘s CLS '▗ CLEAR #uSTR$ [H] RANDOMIZE XUSR [D]▝ IF ▝ CLS CLEAR #[F]3▛[T] BRIGHT REM + BRIGHT DIM BEEP GO TO p0 CAT BRIGHT BRIGHT pP BEEP ▘ DATA BRIGHT ▚ GO TO BRIGHT PRND▝ POKE 0▘ DRAW @ INVERSE ( INVERSE REM INK BRIGHT DIM GO SUB LN DATA GO SUB MOVE DATA [H] MOVE PLOT 1 RUN 1 SAVE 2 RANDOMIZE 1 IF 1 CLS 2 BEEP DRAW 5▜Q RUN Q SAVE RZ INK ▝R▝U.▝q# LET ▝r[▝r.▝u0K REM INVERSE DIM MOVE ▘USR BEEP 0[K]▘v INVERSE 0[K]▝~z[K]▘▚ INVERSE 0[K]▝▙0▘[G]@ ▝[O] [K][O] MOVE u REM o INVERSE DIM ERASE CLEAR ( READ USR S> CONTINUE USR ERND STOP p[Q] RETURN >= INVERSE STOP [A] LLIST RETURN DEF FN INVERSE STOP [Q] LLIST RETURN VERIFY INVERSE LLIST 0 RETURN OVER INVERSE CLEAR & STOP saS[B]▗ READ COS -▝NOT 0F▛# RETURN SAVE INVERSE DIM VERIFY DATA s[B][T] CONTINUE ▘[R][B]▝!X▗[D][R] READ P▝1▝#P▚Q1!!30qQ1PX▝ DATA X▘ OVER [O]▖ DATA s RETURN P OVER qSTR$ ERASE ▘% READ / BRIGHT /▘ STOP ![D][R] STOP /0/▝ CLEAR o▝ STOP ^ p^ ^▝ DATA PATN ▝ RESTORE ATN ▛/ OVER NEW BORDER DIM CIRCLE CLS LLIST @0▘ LOAD ▗ STOP TAN COPY NEW pp(▞# READ @ RETURN CIRCLE OVER D COPY z[B]% STOP GO SUB LPRINT READ LLIST STOP RNDw OR q[R] LLIST RUN PEEK ▛@ RANDOMIZE @ IF @ CLS @ DRAW 1 OUT ▖1 DRAW 1 CLEAR 1 COPY [M]▘$ READ 4▙ STOP uu OR qq DRAW $u CLEAR $y[A] DRAW 5 DATA !1qaqaQa DATA q[R] READ ^> OUT DATA q ERASE USR [R]▝ VERIFY ! VERIFY RND[J] COPY [O]j▘NOT LEN W LLIST !c READ a LLIST !u? CLOSE #▚q STOP [T]NOT COS FOR @%▝USR /▝a GO SUB DIM ▜# CONTINUE GO SUB ? READ DIM STOP ▝% BORDER ▜STR$ !STR$ ! STOP ▝#02% DATA USR USR VAL Z▝LEN POKE ▝COS EpOATTR ▜cacNOT DRAW $ DATA @lA LLIST 3STR$ 1STR$ QSTR$ 1!U▝!POINT ATTR ▝©P▝S▙!STR$ STOP [R][R]STR$ [R]STR$ LLIST STR$ STOP [R]5 IF ▝> VAL$ ▘ CLEAR 3 STOP CLEAR 3 DIM READ ▗ RETURN A LPRINT ▗ CLEAR 3 FLASH DRAW 3 READ [R] DIM ▝[R] RETURN ` ▞5 DATA ▝▝STR$ ]#▝ RETURN LEN [A] CLEAR $ STOP s LLIST STOP ▝QLEN LLIST ! STOP s▝ GO TO ▝VAL INVERSE ▘P8 OUT ▝ VERIFY h▝ DRAW [A]s! READ LEN STOP QLEN s3QQqpVAL LLIST ACS X▜ RETURN NOT LPRINT READ STOP INK ▚ THEN LPRINT DATA s READ PEEK LLIST SAVE # CLS STOP [B] SAVE #[A][A]▟ SAVE # CLS 1 SAVE #00▝!0p''▝ CLOSE #8 POKE VERIFY STOP [D]`/2 C CIRCLE ▗ DIM [C]@@;▘! RANDOMIZE I▗ STOP [A] RANDOMIZE [O STOP [D] IF r▝ LLIST @▜ IF [A]VAL REM CIRCLE LPRINT [Q]P[I]▛A SAVE #@@ CLS [C]VAL SAVE #SIN `ATN INPUT 0p'▘@@[P] PAUSE [B] VERIFY C/▝ LLIST ▘#[B]VAL [B]COS READ Aa▝ LLIST B RANDOMIZE 0 NEXT ▘LEN RANDOMIZE L[C]@ RANDOMIZE /▝AASN `P▗VAL [A]C IF s@ REM x LLIST G▚# DATA [B] CONTINUE DIM [M]7▗ DIM RP▝Cc▗ REM STOP COPY 8INKEY$USR STOP ASN !@Pp[C]"[B]p INPUT B[R][C]R! INPUT LPRINT LLIST % AND READ [Q]USR [Q]USR STOP R INPUT CLEAR R RUN USR ! OR DATA [R][R] DRAW + READ [Q] STOP " INPUT NOT ▜ INPUT STOP [B]▝[B]▝[B]▝STR$ t▘ STOP ! IF INPUT DRAW ' READ AND !▝ ▗ DATA [R][Q][Q] OR [R]▜ CLEAR %[R][R] INPUT [I])!A INPUT ^▝A^[I]▘P[A]▘ INPUT O▘A INPUT o1A INPUT ▝ATN [K]P▖ DIM >=▘ INPUT 6NOT INPUT DRAW " DEF FN ▜ CLS #3C3 IF #@ DEF FN ▛scs CLS #[D] IF #▝P1_▝ INPUT TAN OPEN #▘ CLEAR t NEW ▘" FOR STR$ TAB ▝ INPUT CLS ▘ INPUT LINE ▚P[A]NOT !pSIN [K]▘[C] INPUT POKE ▝[Q]USR [A][E] INPUT LLIST STOP LEN VAL [R][B][A]▝q INPUT DATA [A][A][B] AND PRINT INK ,w▝ INPUT P INPUT ▝ INPUT CHR$ [B]▝ INPUT EXP x STOP s READ TAN ▝ INPUT CLS A STOP INPUT OR C OR INPUT ▜ RANDOMIZE X▝ IF ▝ CLS CLEAR #STR$ INPUT TSCREEN$ ▜ INPUT CLEAR F LLIST qQ-)▗ DRAW D STOP USR O▝!M6-[E]▚▘ LLIST STR$ 3 STOP v▝1^ STR$ S FOR ▗!Q INPUT LLIST 0p }▛ p INPUT PAPER V▘PP+ MERGE 3▗2 DATA DATA ▝[E][H][R]RVAL COS RESTORE ! INPUT DRAW F▗{ TO CLS D LLIST p▚▗ RETURN j DATA [H]2STR$ ▝1 CLEAR ▜R[Q]STR$ LLIST # STOP Q▜p▚p▚▝ INPUT [H]▖ READ RUN SAVE CLS [I]▝[B] DATA LEN RUN LEN SAVE SIN RANDOMIZE LEN IF LEN CLS SIN LEN ASN INPUT RESTORE RESTORE 0 RESTORE C RESTORE Y RESTORE t RESTORE tP[P] RESTORE ▜ RESTORE ▜ RESTORE [K] RESTORE TAB RESTORE USR RESTORE OPEN # RESTORE OPEN # RESTORE NEW RESTORE RANDOMIZE RESTORE NEW NEW ! FORMAT COPY !<=▝VAL [A] COPY # PAPER !▜[Q][A]p#IN USR "CHR$ !p!` COPY "STR$ COS STR$ [H]LEN DATA SIN [I][S]LN [S] ERASE "[D]" LPRINT ▗=t[I] COPY "[A]66p6`6P6@606 6//p/`/P/@/0/ /&[A][Q]-[A]--p-`-P-@-0-*[A]**p*`*P*@*0*&([A]((p(`(P(@(0(9$[A]$$p$`$P$@$0$L"[A]""p"`"P"@"0"_ [A] p ` P @F COPY " COPY OUT ▝[Q] BRIGHT f▗``Pppp$▛`> CAT =2▝ NEW NOT USR CLOSE #▞ PRINT &}0 NEW & LET AND NOT p) ERASE ▜>▘ STEP USR >>=T@▝p3| CLEAR COPY > GO SUB y> COPY IN GO SUB yCODE <><>[R] RETURN ` LPRINT CLEAR 3 DATA [R] DRAW 3 READ [Q][Q] CLEAR 5 DATA ▝▝STR$ [R][R]STR$ DRAW 3 READ FOR COPY NEW BORDER DIM VERIFY CLEAR $ STOP s LLIST STOP ▝QLEN LLIST ! STOP s▝ LLIST STOP VAL LLIST 0 P8 COPY NEW DIM VERIFY DRAW " STOP 0Ps! READ LEN STOP QLEN s3QQqpVAL LLIST COPY NEW DIM VERIFY CLEAR 5 READ STOP RETURN NOT LPRINT READ STOP RETURN THEN LPRINT DATA s READ COPY DIM VERIFY CLS LLIST SAVE # CLS STOP [B] SAVE #[A][A] CLS LLIST SAVE # CLS 1 SAVE #00 CLS 1! SAVE # STEP r DIM NEXT GO SUB s FOR i![G]i▟[d MERGE GO SUB VAL !q DIM COPY COPY x©<> GO SUB LN !▖`~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1NOT COPY ^IN @USR [Q]` LPRINT [A]P FORMAT 0VAL p LIST ▖H>=(FN h CONTINUE [I]X CIRCLE 8LN x SAVE ▗DBIN $[U]d DATA [E]T CLOSE #4TAN t POKE L TO ,AT l GO TO [M]/ BRIGHT <SGN |IN DRAW ▘BCHR$ "[S]b STOP [C]R ERASE 2SIN r PAUSE J LINE *SCREEN$ j REM [K]Z PAPER :INT z IF ▚F AND &INKEY$f NEW [G]V VERIFY 6ACS v PLOT VAL$ n INPUT [O]^ OVER >PEEK IN ~ RETURN ▝ASTR$ ![R]a LLIST [B]Q MOVE 1LEN q LET ▞I<>)POINT i DIM [J]Y INK 9EXP y RANDOMIZE E OR %RNDe RESTORE [F]U MERGE 5ASN u PRINT ▟M STEP -TAB m GO SUB [N]] INVERSE =IN ABS } CLEAR CNOT #[T]c READ [D]S OPEN #3COS s NEXT ▛K THEN +ATTR k FOR [L][ FLASH ;SQR { CLS ▜G<='PIg BORDER [H]W BEEP 7ATN w RUN O CAT /CODE o LOAD [P]_ OUT LN ?IN © COPY STEP ATN r NEXT 1 RETURN _ CLS :VAL /PI( STEP NEXT q STEP LPRINT NEW STEP SAVE q CLS STEP INKEY$CODE >2 NEXT LOAD CODE 2 LOAD LOAD 2 CLEAR LOAD STEP OUT CODE >2 FORMAT LOAD >▙2 ERASE LOAD [B] MERGE LOAD STEP r LIST !p STEP BIN b: LIST PI(p@▘USR @VAL$ > COPY 2 LIST STEP ^q CLS ! LIST FOR GO SUB VAL STEP / BORDER STEP AND c STEP ASN VAL STEP ▖ DIM STEP $ POKE CODE 2 DRAW LOAD > STEP BORDER s >[Q]▝o▗ STEP ▟r ▝▗>▝ STEP N[K] STEP v LOAD CLS THEN x( CLS : RETURN LOAD 2 COPY LOAD : INVERSE LOAD PI :{▝l LOAD : RANDOMIZE LOAD INPUT 2 RANDOMIZE LOAD [A] STEP [U]u STEP DIM STEP [D] REM STEP DRAW c>e TO /b: PRINT 2[C]:LEN G: ERASE LOAD VERIFY LN >N STEP ^ REM ?▚ IF STEP ir: PLOT :[C]=2 PLOT LOAD : LIST LOAD G: LOAD LOAD LN BIN f POKE >@[Q]▘($r▜G: COPY LOAD LN ( PLOT D LINE FN a=2 PRINT LOAD CHR$ FN a3▛> TO B PLOT STEP [H][M] STEP [G] LOAD qB▝ LIST B▖NOT a: DRAW LOAD PI>=!F"▝ CLS U▗G: LIST NEXT ▗:0>CHR$ ▜x AND G> STOP 0 VERIFY G:(▘(▞( AND x RETURN SCREEN$ 0STR$ 2 LIST LOAD ▛▖▗NOT jbCODE S▗m LIST CLS <>NOT IN STEP [w~# RETURN 01PI LINE Iw RETURN LINE Sc RETURN LINE `c RETURN LINE hc RETURN LINE pc RETURN LINE }c RETURN LINE ▟c RETURN LINE [H]c RETURN LINE [S]c RETURN LINE TAB cG:EXP c[N]G:ATN c_:LN c RESTORE o:ASN c THEN O( RESTORE MERGE STEP e LOAD :ACS cw MOVE LLIST G(▝o& AND _▙Ox STEP ew STEP RETURN w STEP [F]z LLIST C INPUT <D▖2ATN cNOT <=b~▚#~2LN c# ▝ACS @▝ASN ^#V# RESTORE FOR STEP <=b LLIST *▝#IN ▘ PRINT RESTORE 4##~:▜ FOR LLIST LET = LOAD FOR D[C]▘▚#0O[J]▝LN 0Z▝EXP U▜C,VAL USR PI!USR c6# CLS *G~ RETURN 8 VERIFY w+ LET <>w<> OR MERGE RESTORE INVERSE RESTORE ' STEP ERASE c▚ INVERSE LLIST LLIST MOVE STR$ <>89 INVERSE !INT =[E],~ INVERSE PEEK BIN d# INVERSE # PAUSE NOT Iw 4▛~ INVERSE w AND 0! PRINT ▘[F]z0=[C] INVERSE RESTORE :^d INVERSE !^d= INVERSE VAL$ INVERSE THEN )▗/ INPUT 0IN INVERSE w INVERSE VAL$ INVERSE LLIST <>Y[T]0: IF LOAD VERIFY 8 RANDOMIZE AND :2▗dx2d!|dNOT BIN bF,00GINT LOAD PEYERA:KONTRABANDISTA LOAD INT LIST USR :▙STEKLQNNYJ:ME INPUT STR$ :▝ LIST [E]NA:MOGILXNOM:KAMNE::2▝ LOAD ERASE :p TO :▘ LOAD ~▘WYN[D]YLI:WHOD:W:POTAJNU GO SUB P[B] LIST :KUHN GO SUB @:A:SEJ INPUT ASlK:RAZ▚▟ LOAD PRIYLO:WREMQ7DZAKUSITX@ X[A]OPQTX:TY<:DIZZI? PNEUVElTY:0 H▖: INPUT TO=TO:P▗NES?@[I]▝; 7▝@+▛HO INPUT EYX:UPLYS▖S:OSTROWA#▝Q▜U:ODOLV}[A]:TEBE:SWO GO SUB :LODKU0<=9STR$ >▘:Z LINE ▗KROM LLIST ▜PLATU>;!4▝ LIST s▜NE=E=E<&▗BERI POKE ▘BE▖▗PERE[D]▘NX [T]▝O DATA PW▗WSQK,▚DRQNX@pI▖Q:DUMA GO SUB <0▙▝N PRINT ▘N: NEW ▘:IATN ▚TOR<>> LPRINT TOGDA@ RUN OR $ INPUT EGO=NIBUDX<`PEEK # !MOVET[U]▗NRAWkSQ@ USR 0IN ▗RANO[O]▞DUEYSQ<:UQ:N1▜BENZINA[K]=▝O[I]>=I:BP▝<BDAM@SCREEN$ ▚EMNOGO"}▘ES1POINT ▘DA|bp[J]▝X STEP ▝;A5Q DIM ?:AH@=▘YL STEP ▚O:KL GO SUB INPUT r▜VIGANIQq▞▖ GO SUB ▘E INPUT ▞▗Q:OT© PRINT !SQR INKEY$▝<2TAN ▝ LIST ▝▛POLU INPUT U:WZAMD*@▘PAMd▘>;ABS ▚ LIST ;WO=O/ INVERSE -NADSIBO>36WOT"▘A<m▜ RESTORE ▞SCREEN$ SIL![B]3?▘OT![A]▝EEXP [O]IRSCV"$::; BORDER @Y▝@ASN AWDQ▘▘ZN PAUSE #8CODE "▞▘DA[R]x▚NU=U=U▘LAD▝ LPRINT [A]20[A] RESTORE ▝Q2USR ▚OBEYAL0 PAPER ▚ LOAD :;ZDO LET ATN [D]MUVIK@:WERNULSQ ZA 1 FLASH ▘OM3a3@▘DNI▗AKAQ<ROY▝P BEEP DA@CHR$ >A`C[L]C CONTINUE LN ▝L#k▝WSQR ▟C0ATN ▗IDI>6 PLOT CLEAR ▘QTo▝SrBOJ7▗BOLT INPUT $8 LPRINT MOIM:USR YEMXKUPATELEM< ERASE ▝T[R]b$ CONTINUE ▝ INPUT _"[G]▝Y BEEP J:EDINSTWE$ RUN `8▝X FOR A▝K!▝T5▝UBN▚SOBIRA SAVE ▚:IDTI? VERIFY 5B RESTORE ▝A RUN [B]▘KA▞OKSERSKIH LOAD INPUT ATOKAL COPY ▗ GO SUB YIJ$ READ s[I] FLASH ~SIN ▝TBID VERIFY ▝=ILN Q GO TO 4▝L4x<=$ BRIGHT CHR$ SGN ▚V:MAGA▝?PEEK A▘ON FOR ▗BRAT814▝<S GO SUB ▝TJ▝S[D] CLS EVDU NAMI>0V LINE :P'!VAL$ >=:5H INPUT ▗RIDC[M]▜ZOLOTYHP STEP U▜AN INPUT IWO@$dACS "IN ▝Y1INT LINE %/▘6▗ LOAD : LIST B AND IZWINPOS INK RI<:W#AT ▝W"L▝I1.ATN ▝G[N]ICA▗▗LYEBe▘:MSIN ▝?2V CIRCLE ! THEN DEL▘WS▞▝B+ CAT BOD4 LIST F MOVE ▝S▙▘TLSQR 8▘PU5 OPEN #▘:U▚▝M-CTAN ▚GLAWNO STOP IF ▘IT0YCOS s▝D<=j BORDER TRURND6▝Zs+7[▞AKWALANGA% GO SUB `INT Gyp[F]P[F]ghpC VERIFY Qp▚:FIRMY LINE :q OVER ▜:==::D:> PAUSE POKE ▗:F:T0g VERIFY 6 CIRCLE MUZYKY▝S[U]▗OWLEZ[G]xpT▝KB▝A[pTp LINE INT GO SUB vKORPORACIQH@(z▚DOMAYN9p BRIGHT .▝EH[M]pTAN TAN +WET CLOSE #▝UPEEK WAS(# LPRINT ▝O[R]▝NATN 8IN ▘ZO INK WZR|ASQR [G]▜RYGAJTE[M]' ERASE ▝<N▝AD▝A$ATN ▝OVAL$ ▘ET& OR ▝I NEW ▗EGEN[H]8▝VSTR$ ▘OK PAPER FORMAT ▝GI<PO!▝N4kZDESX ~'LEN ▘REs9^X▝OBWIY)CHIVING▘:D INK XQH BRIGHT dBIN w▘NAC8INT E:UBEQj▘DL PAUSE ▘UR PAUSE ▘OW SAVE )6▝M&NOT OR OKOJN STEP VIZNXIN )EXP ▗::IY TO 4[J]▝YIN ▗<:GD*$TOLXKLN ▝Va3J▝NI▝IJ*#d[O]7USR NIMUSR y2▝P▞NOT 6[P]eZ▝▝W▗ETQTp▝W=▟@@ G&▝:T▘IM[U]b THEN ▘ZDATN [Q]▘IQCHR$ @: STEP ▝6[N]WOE`zUSR 3 PLOT ▘U< MERGE ▝W@JsUB$[I]▗ GO SUB LVA ▗▚:IGRE::4:Z;A!)}"a8N:▘IZ GO SUB ▘Y@ POKE [F]G: CIRCLE ▝0G▝Mb+u▗0u▝0$▘0KC[C]DI33IF8jl RESTORE @ LIST ACS REM ▜I:OFORM[C]▝O TO ▞F LOAD H LOAD C<= RANDOMIZE XQM" OR ▘ER+EXP ▜F LIST P LOAD Be5▘FI BRIGHT [ BEEP !▝X@B INK ▝I▝AABS ▝S80Bc▝` ▗LDpB▗▗h LIST G# MOVE ▝EVAL$ [D]▘IT0▗,[O]▘pP BEEP ▖SCREEN$ CNAV!<>▝KI▚IYU:EN▗VAL I9R">=▚DVOJSTVAL ▛>! FORMAT q"l RUN "RNDq/,[D] :x/ NEW STEP [J]q GO SUB [▗q!r CLS <>_ NEXT ▘{ LINE K▞ NEXT q{ STEP USR NOT SAVE q0( RESTORE STEP ▚q STEP FORMAT q CLS vYUSR : GO TO NOT /▖PI GO TO STEP PEEK qNOT [J] W LINE } RUN u MERGE STEP USR MOVE 7▗ LIST ACS ▗ LIST //▗( [I]USR GO SUB S▗q LLIST NOT PEEK q PRINT > PRINT > CLEAR © GO SUB y LET <><=▝>=0^w[P]< OR STEP 9d NEW _! STEP RrSTR$ INPUT <>:hrWCODE 2hr▗@▜ PLOT <>@*[P] THEN {( POKE <>CODE PRINT BK INPUT OPEN # RETURN THEN x( CLS + THEN |( LIST LET OPEN # RETURN <> PRINT (> THEN ▘USR >=▜ INVERSE LLIST LET 2 PRINT LOAD <>▘ THEN ? ▝ RESTORE @ PLOT ▝0# PLOT ▖ NEW :▝ NEW PI PRINT OUT 1▗<> STEP B PLOT ERASE ▜><>2ATN r> LPRINT LIST [C] RANDOMIZE INVERSE !@> COPY 7 STEP CHR$ COPY [P]▝`0T▗USR $@[S] SAVE q<> LPRINT SAVE SAVE LIST RETURN DRAW DRAW COPY COPY COPY ©USR ?USR COPY ? LIST LIST ?▚ DRAW SAVE COPY ▘USR ?▞? LIST LPRINT ?USR DRAW 8▜ COPY RETURN SAVE 8[G]| COPY LPRINT ?©© LIST USR ? SAVE LPRINT LPRINT 6▝@]Y▝?▟ LPRINT LIST LIST LIST [O] RANDOMIZE ©|<USR ▝ RETURN DRAW © LPRINT COPY RETURN DRAW ? COPY ▜ COPY COPY COPY ▗USR COPY LIST ▖▘ COPY ▚ DRAW © RETURN "▖ COPY COPY COPY USR ▝%TAB THEN ; LPRINT MERGE [O] LPRINT LOAD AND 9USR 1 RETURN o THEN g OR RETURN COPY NEW LPRINT AND 2t}USR NEW 8 AND G2t THEN [Q] GO SUB x THEN GSTR$ <>P[Q]t FLASH INPUT COPY THEN G<> CLS v NEXT <>@ABCDEFG @ n C D E F G GO SUB IN A@B@C@D@E@F@G`@`A`B`C`D`E`F`G@ABCDEFG[Q]@[Q]A[Q]B[Q]C[Q]D[Q]E[Q]F[Q]GUSR @IN USR AUSR BUSR CUSR DUSR EUSR FUSR G LPRINT @ LPRINT A LPRINT B LPRINT C LPRINT D LPRINT E LPRINT F LPRINT GHIJKLMNO H I J K L M N O@IN H@I@J@K@L@M@N@O`H`I`J`K`L`M`N`OHIJKLMNO[Q]H[Q]I[Q]J[Q]K[Q]L[Q]M[Q]N[Q]OIN USR HUSR IUSR JUSR KUSR LUSR MUSR NUSR O LPRINT H LPRINT I LPRINT J LPRINT K LPRINT L LPRINT M LPRINT N LPRINT OPQRSTUVW P Q R S T U V IN W@P@Q@R@S@T@U@V@W`P`Q`R`S`T`U`V`WPQRSTUVW[Q]P[Q]Q[Q]R[Q]S[Q]T[Q]U[Q]V[S][Q]WUSR PUSR QUSR RUSR SUSR TUSR UUSR VUSR W LPRINT P LPRINT Q LPRINT R LPRINT S LPRINT T LPRINT U LPRINT V LPRINT WUSR IN :[R]uPI>==2[R]u>2 PLOT LOAD INVERSE ! PLOT u> INVERSE ^ INVERSE V INVERSE n INVERSE f INVERSE # INVERSE # GO SUB VAL = CONTINUE ! GO TO STEP BIN b*Gw RESTORE !&'"Gw:LN c▝O@▛▝2LN c*[S]u STEP <=b LLIST ▟<>F@FAFBFCFDFEUSR F[R]Gf@fAfBfCfDfEfFfG▚@▚A▚B▚C▚D▚E▚F▚GSTR$ COPY % RESTORE 3p▛ LOAD PI LINE F DIM CODE STEP [T] DIM ERASE SIN 21w>2 POKE LOAD INVERSE n INVERSE f"Fv INVERSE n INVERSE f INVERSE ~ THEN %"-v21v";v2?v<<2w INVERSE RESTORE !*vATN [A]:<v AND 2Hv2<v OR !8@▚<2Hw=2 TO ▘Hv<=▘:-ATN c*Fv DEF FN ▝STR$ ▘ MOVE 9▗~PI(l4▚INT CLS : LIST [C] RUN INVERSE !!t:.vO THEN ! THEN INVERSE Oh[B]OJ▘ THEN ? DIM ▚ INVERSE n INVERSE fF▛6# CLS FOR @>▛( RUN INVERSE LLIST CODE 2 LOAD 2EXP c DEF FN PI2 LIST <>NOT F DIM STEP VAL$ INPUT NOT { DIM PEEK KVAL CK[L]"^0LN RESTORE MERGE "^!0LN GO SUB SEwx MOVE LLIST <>[N] `!LN GO TO 2;w{2<w}2=wy2>wx NEW 2Awx▚2BwCODE 2 PAUSE &) POKE |^#Vz RETURN COPY COS <>! POKE ~~2?w#~2@w#"Cw<>! NEXT w6NOT ERASE woCODE 2 NEXT w:Aw RETURN } INPUT Go>VAL$ ATTR }2 PAUSE wx2 LIST w&j THEN % THEN % THEN %))X RESTORE >Cw# RANDOMIZE LLIST DRAW RND PAUSE LOAD PIUSR *Ew:?wG:<w_SGN FORMAT ABS CIRCLE >={[F]0]G{[E]8( GO SUB D NEW <G THEN 8{ VERIFY 2^▛:@wO:=wWSGN FORMAT ▝1▝z1U▝Oz▝@1 NEW ▝ AND O THEN 9 THEN 9▗: THEN : THEN ewNOT SGN wVAL K TO GGCHR$ STEP G@▘ DRAW STR$ AND THEN G@5▘ LPRINT p MOVE GUSR 9GCHR$ CAT G0▘f1p THEN G07▘ NEXT 0@pAp?W▝xp THEN G@6▘ CIRCLE ▝p▝p© GUSR RANDOMIZE USR CAT G0▘ COPY USR p P AND 0 DEF FN 05▘ SAVE p@p p@▘ COPY LPRINT 0Lp@p@s▘ COPY COPY 0l CAT P MERGE 7@ INK G LIST OUT >=Q DATA >=▘ OUT USR p,>=G`▝"[H] STEP ACS | GO SUB [[L]@w2px[R]2qx[U]▜INT FORMAT CIRCLE =SQR CIRCLE 2▗▝G▗TAN =ABS CIRCLE ▟▛2sx[F]0!G:px2▝} RESTORE *C FLASH THEN ?Ox< DRAW D▝ LLIST G:sx=[E]8<.▝[A]`<w2txCODE 2 DRAW {2+|▚[D]04 GO SUB DG[R]▗qx:tWtxxSCREEN$ ▘ DRAW {K/:BwPI( GO SUB BPI GO SUB B[▝G%▝G0=[C]8/0:▞x< THEN ?G: DRAW {^▞!H|"4|!# :*!yPINKEY$▝=[S]▝ BORDER COS ▝▜2{4|> STEP 2 NEXT {" POKE {LN $)▖!t RESTORE INVERSE LLIST GO SUB [ OUT ▘tx[E] PAPER |2 REM {:+|PI: REM {CHR$ ASN S▘qx FLASH # INVERSE f+ TO G#w SAVE FOR CAT ▘ FOR .▝=` VERIFY <> OR `OSTR$ #<>2'|VAL$ 2:|p==>2rxA STEP H| CLS p>>[A] MERGE <>:rxPI ~ NEW LIST O NEW LIST OVER ▝▝h▚rx<>~ NEW ▝@▘CODE 1▝010{07▝LEN p7 7@ =▝ =▚!OO CLS PI(! RETURN >VAL$ (0[K]>ACS 2 PLOT {2[|2q|2[C]|2VAL$ |"Q|"▘| GO SUB SgIN [O]|<>[[R] BORDER ACS DATA COPY COPY COPY O TO COPY IF [G] POKE ▗ COPY N[I]INT PAPER c<>>POINT THEN # COPY GO SUB COPY AsLEN HPOINT 6 COPY COPY COPY T▗TAN DATA FOR LEN [H]e3 READ &/8>▝J>IN / INVERSE NEW LOAD SAVE enw▞[C][L][U]TAB ACS IN >= MOVE PAPER READ GO TO PRINT RETURN "+4=▜Fj COPY j COPY IN Vv[G],F`z POKE [B] FORMAT PAPER BL(Wq[G]LN CHR$ INK DIM f[I]SIN BIN DEF FN LPRINT IN STOP $Vx PAPER ,[Q] STOP ▙ AND COPY *HjSCREEN$ TO INPUT [E]`|[O]USR [I]INT BRIGHT RETURN SQR BEEP COPY AT ▛RND9@GNU/cRNDAT COS INT STR$ >= CAT VERIFY INVERSE DATA FOR PAUSE AND IN #*18?FMT-V FORMAT 2[E] DATA H1[L] OR COPY COPY Y OPEN #YATTR P COPY INVERSE [P]A[T] MERGE /c▚LN PAPER DATA +]{0▖ CLS COPY j~NOT USR [J]NOT ~<dDdfB▗ NEXT CAT ▝ COPY ▝ PAUSE [A] COPY [J][J]STR$ y RETURN ▘[P]▝ RANDOMIZE RETURN 6CHR$ [O]0▚▝ RANDOMIZE 3&$< H▝NOT HQSTR$ yCQBIN 0c▘▝[J]Q▘ COPY ▝6?Q▖[J][J]USR }©STR$ ~▘ABS H[P]▗[P]u▜ RETURN mm INPUT 8Z[J][P][A][A] LIST ~ BORDER Q ?▗[J][J][B]▞ H▘[B][P]@▗[J][D]▚[D]Z?a INK <=TAN ▘ BORDER ABS k@-0▚ RETURN #--#u $u▝STR$ [J][J][O]c▝[P]@ CAT ▝ BORDER USR $ CAT NEXT AND ▚ COPY )ATTR ▘ATTR )0-0ABS ▝ LIST CLS AND ▚ LOAD 933)▞ LOAD )9)) COPY IN (1NU: ([B]@d48[U][S][M]QH&▞PLEN [C]▗RND*il'H▖RSIN 4 DATA j[F]XINKEY$ LPRINT Z▜W[I]▘▙E[G] STOP ▙.yTFN >=*PX/0 CONTINUE */Y VERIFY ,SCREEN$ *AT X(NOT :W}U*SCREEN$ SCREEN$ t▝(.▝T2▝,6▝:▝>▝0K▝ CIRCLE O▝TAN S▝VW▝SCREEN$ COS TX,8(TP0(AT 3/Y CLOSE #U((FN *W BEEP @*SCREEN$ * FORMAT ▝[Q]q@INT W@9▝0V▝IN @▖"H$H @p@[Q]0@&3@)4 CIRCLE 34 DATA BIN ▖tACS [C] MERGE N▖ INVERSE QLY!jSCREEN$ 9 REM DF PLOT IN LINE ▝?[C] MERGE LIST c{ MERGE p SAVE =T8USR .o[N] PLOT DATA LINE CHR$ [U]mBIN ;"2L`LN TO 86d*Z2vb= LPRINT bUSR IN OVER OVER PEEK COS LET CLEAR COS USR LPRINT @[Q]?[E]p @L9<q|e<; 3N)F LINE .▝▞[K] VERIFY euATN OUT k▖zUSR ▝ OR ▝ LINE EXP [A])VAL @jh▞[Q]▗;[H]DLVAL $e LPRINT pASN ▖JCHR$ z▘-ZACS z▞[H] CLOSE #PIUSR R LPRINT }`U4[F]P=IX LIST T =H OR [G]SCREEN$ RND* CLOSE #]▟FN ASN @FN SCREEN$ @[Q]RND _▗*j▘*b▗(▟6 ▖"▝H&▝[S]▝d▝FN [G] Rp[U];-▚$BIN +[U] CLOSE #5▖8X`[A][B]fdJVA[P] OR 8LN }} MERGE [S])`$a VERIFY ▘▙+ LPRINT ▝ NEXT PLOT Q▘USR NEXT CLS IN N1[B]R:pH MOVE /$JRND[E] LPRINT Vc[G]DLN )[C]IDI▞` LINE D[O]F$$qE (▜$~▝▝1COS `` LPRINT @ LPRINT USR LIST `0 LIST LIST x/ SAVE USR @USR @USR USR [B]▝▝[M]USR LPRINT ,|R>*/ p▖ SAVE [F]▝*RND▝#[D]<D▖ [Q] LIST S▜0pLN USR ~▝XMSGN LINE FN ]/▘}.▝/`[I]"B{▚USR ▟[K] CLEAR COPY © COPY OUT CLS CAT RUN COPY LOAD CLS COPY INKEY$ COPY INPUT } RETURN LOAD NOT COPY }7 RUN SQR EXP RUN OUT RETURN FOR COPY LOAD FOR CLEAR RUN LLIST RUN COPY qoIN FLASH COPY LOAD INVERSE COPY FLASH RETURN FLASH ©~ LOAD RETURN FOR ASN FLASH FOR ABS FOR PEEK OUT nPEEK INPUT PEEK W PRINT BEEP U MERGE WATTR VAL$ INT SIN PEEK ATTR uU MERGE UUuSCREEN$ LINE *SCREEN$ SIN SCREEN$ YUVUUT[S]SCREEN$ [S]*PU[I]DUBP ▝%("D▖@@ INVERSE ▛▗▗ FORMAT ]▝[C] FORMAT TAB _yTAB {ACS RETURN FOR PSX IF *VAL$ CLEAR PLOT 0D INVERSE zj*SCREEN$ FN [Q]@EX`SCREEN$ GO TO RANDOMIZE Z▖▖L▖LL▗L▗D▖[I][S]▖[B]▞▞[B][J]R[J]R[J]MRZMTZydR INK d|[A]VAL$ (PI PAPER SCREEN$ INT REM CODE INPUT FOR IN sSQR GO SUB SAT o<=LN NEXT NEXT TAB BORDER ? GO TO INT [ FLASH _©TAN [G] VERIFY LINE ATN TAB ACS LOAD MERGE PAPER RUN o RUN s IF BRIGHT CAT VAL$ PLOT FLASH = GO TO }= IF SQR [L]~gW GO SUB ATN IN RND7[D][M]STR$ SCREEN$ STR$ UPABS ;wV▛ CLOSE #ATN PRINT SCREEN$ ASN SCREEN$ ASN SCREEN$ VERIFY INPUT OVER INVERSE Z PAPER ZZ THEN V FOR T FOR VmZu{UjUSCREEN$ UINT USCREEN$ jATTR jSCREEN$ j[S]"[S] "^/SCREEN$ SCREEN$ N~SCREEN$ SCREEN$ nSCREEN$ SCREEN$ >fSCREEN$ SCREEN$ 6f[S]SCREEN$ vf▘SCREEN$ VbSCREEN$ ^b[E]^SCREEN$ SCREEN$ V/ REM V^ STOP SCREEN$ COPY ~ COPY RETURN U[I]▖ LPRINT `▝USR @0IN USR @[Q][Q]P FORMAT XHXAT AT [U]TAN [U]SCREEN$ SCREEN$ ACS ACS [U]ASN ATN MERGE MERGE nVAL (tC PRINT XP▘BIDQN$IRPrJF4E*[B]/iRiBXG COPY READ TAN 4▚88P@p MOVE ▗ RUN RETURN p[P]P[P]pASN MERGE MOVE [J] CIRCLE AT POKE j4* CLOSE #FN @@s OUT RETURN L[N] REM ▘▘ RANDOMIZE PEEK S[E]o DRAW MERGE VSCREEN$ SCREEN$ TAN JACS PAPER [G] PAPER COPY PLOT ▜T COPY OVER ▘ COPY 0▞o GO TO A▗8:▝▗UU> DRAW U 0▚ACS X[G] PAPER 4 LINE 05[Q]▝ COPY w0<[Q]ZTAN GO SUB n[G] ERASE ▛[S]▗BEDEXP :S[E]▝▘*FN CLS SGN FN *INKEY$ CIRCLE TAN ERASE ACS fIN SCREEN$ SCREEN$ RUN OVER jAT @VAL 5j DATA QL INVERSE IF Z IF XFN SAVE FN xFN XFN U IF INT TAB _ IF ;{S)pm@ REM STEP COPY SAVE %f; REM ▗;M0p COPY DRAW 0 ▞ GO SUB LINE GO SUB >▗l@2▙"▖▘WUs▘ CHR$ U▚ T"[F][O] SAVE [T] LINE POKE [M]:0SIN ejINKEY$mVnACS 7 GO TO 38/ LET SI▚ MERGE SAVE MERGE SAVE ▝[Q]UU@*UPFN ▘ LOAD ▛ COPY UT(▖UPUP'FN ▜PEEK UU LPRINT ▗p[S]VAL$ COPY ▛ DRAW LIST U_▛UTD▗=$ COPY OUT COPY *USR USR "▘bb▚#&""!"▖"' COPY PAUSE b "2BIN "▜b IF " COPY LOAD RETURN 0▝2'▝#7<="▚VAL [Q] ▘-▘[Q] RESTORE ▘Pp@▝▞[F]B> RUN COPY COPY CLS OUT CLS ▚ COPY {[E]7?©m© CLS w CLEAR OPEN #~ OUT COPY RUN ?IN LOAD COPY Hi[G]? COPY OUT © COPY COPY ? LOAD wP▝`▗IN RUN RETURN LOAD ▜ LOAD COPY IN CLEAR COPY LOAD CLEAR [C] PLOT CLEAR SCREEN$ MERGE SCREEN$ U[S]A[Q] [C]▚*FN UT REM VAL$ OR ▞ RETURN V CLOSE #VAL$ REM W CLOSE #FN *[G]▗ MERGE V REM VAL$ VAL ▟5/AT 5 CLOSE #FN 7 POKE FN @AT 5/ ERASE NEW z[E]BIN $0$ BIN TAN h POKE ▖© RETURN @P▚_ IF © RETURN ▝M▝:?[C] GO TO DATA >=[A] @< INK STOP t/▝4{▘USR ▛[G]@ LPRINT pp SAVE CONTINUE POKE FN CLOSE #FN Pb[L]2SGN Q|RSGN Qz"INT z[U] SAVE pVAL p%[E]1 COPY c VERIFY CODE COPY COPY 85U2ATTR 5U? COPY [B] SAVE LOAD NOT LOAD FLASH LPRINT FLASH RETURN VAL$ NOT H[T]n GO TO H[U][Q] %>= LIST @P3(, FORMAT +hPL[U]gL[[I]USR LN TSCREEN$ IF T(USR [E]. RETURN 4[O]|ATTR [F]USR [Q][F]0XDFN A/"TAN %j VERIFY VAL `VUSR SCREEN$ [Q]© LIST REM LN [F]X@*2<▚[A][A]LN [J](~ COPY NEXT COS OUT CODE BEEP ~▘USR DIM OPEN # LIST LIST d PRINT A▘VAL$ VAL$ CONTINUE ▚CODE INKEY$FN e ▘h▚▘/INKEY$hu ▝t (▘FN ▗.VAL$ h[F]/INKEY$(KuSCREEN$ IF CONTINUE _ESCREEN$ REM CONTINUE OM[S]_MSIN ▘[0▝U ▝U*% PRINT VAL$ [U] PRINT CODE [U]ASN CODE FN %▝▝TAB $ PRINT VAL$ FN % PRINT CODE FN MERGE PRINT A[E]▗▛BfP$Ip2[O]D▗[E]IN B RESTORE MOVE 1@!/[M]~F H ▖Fx[A]▝@▞ ERASE VP▖[I]!TRND*[S]▖*[E][A]JSCREEN$ SCREEN$ O▝E$▝ SAVE [Q]IN ZU LET PPI`8B▗STR$ [A][D]USR @ePFN ▜[E]4▗|▛ D▖P[Q]@!$"RNDSCREEN$ ▙▗*RNDQ MERGE ASN CODE N▝%▝[R]V▝%VAL )▘!USR !STR$ [C]j%8 POKE TAN DUSR LIe [C]▘@QA %UUJ88T>=[G][G]▘▘DD88 COPY COPY ▛@ CLOSE #▝0 CIRCLE ▝8@p"[L] )2 AND )e8SIN (X0,([G]1▛+E2▘) DATA ▝ LPRINT ▗USR {▝VAL TO @=▘ASN ▚PI▝ACS ▝K▝9v▗ STOP ▝COS [M]`▙!SGN B CONTINUE IN LET USR USR [S] D IF ▝|▝ CONTINUE LN ▝QKX<=+{▝4▝ ▖▖@?USR ▝e▝`PEEK ▝ LINE ,3▝x▟0 LPRINT ^.t+[K] ▘T8"[C]@h BEEP [Q]USR FN ▗4[S]+ LINE H08▝ INVERSE f REM .< READ ▝ SAVE [A]@>LN ▜ CLOSE # READ IF [Q]]P5▝ NEXT ▘▝>LN ▘ CLOSE #ABS ▝ ERASE ACS [F]{ LPRINT CLOSE #[Q]USR u@0▝V▝: CLEAR ▝ CLEAR )Q RESTORE 910W▗t▝u▝@US@j▝ MERGE INKEY$▝VAL$ [H]uPSCREEN$ &[Q]<>E@[Q]J U@SCREEN$ [S][Q] THEN ▝-▚U[F]@VAL$ ▛Q MERGE @SCREEN$ VU OPEN # IN SCREEN$ [Q]U/INT x[Q]d CLOSE # READ P[A]▝R INPUT |[C])E@SQR }SQR @ 00 INPUT p[J]p8 LIST `H(( STR$ ( 9SCREEN$ Es▚SCREEN$ USR [K]USR AND LIST 5ATTR XiE,SATTR [E] FOR EVAL$ OVER INT PLOT c<= ▖[J] J@*▛@) II>▝R'▘$.f DATA SCREEN$ CODE P▞ LPRINT [Q] LPRINT [Q][Q]▝▘STR$ [Q]▗ LIST USR ▗[Q][Q]@@#USR #? *▝ LPRINT 8▘USR ▘[Q][Q]3▗ `AFS #0[@M/▘"▝`0▝ LPRINT OUT ▗@[Q][Q][STR$ @~` USR [D] LPRINT @ LPRINT w▝USR [D]▝P[K] [R]▚ LPRINT @ LPRINT OO/▝SCREEN$ CLOSE #[K]_USR COPY LN CLS p[O] BEEP t IF SCREEN$ p OR PPEEK a~PEEK AT W)▚SCREEN$ xFN T▝▜F"kF[K] COPY x* IF POKE U VERIFY REM * IF SCREEN$ READ U OR PIN *a~8pFepF`F[J] RETURN SAVE RANDOMIZE INPUT MERGE CLOSE #zPOINT BIN * OR RIN U LLIST }*F▝T▝(pF^ DATA @0[R]@`@[I]CHR$ ©~ AND RETURN PRINT INKEY$ RETURN LINE OVER LPRINT TAB FRSCREEN$ [O]U<TAN IN @`h>=([N]/N]]=[O]SIN oj DEF FN bmRn STOP INPUT BIN CIRCLE FN s.>=©l FORMAT /VAL X09`{IN Py`h`LACS STEP VAL$ Ee▖>FN NPfH+PSCREEN$ X▛▝STR$ ▖STR$ [U] STOP ▖B[U]JAT ?v▗;z CLOSE #;<▞ CIRCLE 6 DRAW GO TO wABS g LOAD {[N]CODE IN } PLOT USR BEEP ~ RANDOMIZE LPRINT [H][O]INT p[D]AT ABS [I]</[M] DEF FN 8p?9Wa DRAW LN [CHR$ READ NOT 0LEN COS "p THEN #68<>▖cL CIRCLE [D]STR$ n LIST ▚ OPEN # NEW STR$ OPEN # BORDER ▜ NEXT LET ▝<=[O][R]INT yNOT PI3NOT Oc[T]VAL$ READ MERGE _<=x IF / RETURN COPY ▙VAL$ LLIST PRINT ▘ RUN IN @ @[B]VAL a[A] BRIGHT [A]`![I] CIRCLE x LLIST ; SAVE DEF FN POKE ▖ BORDER AT N PLOT AND n-< LIST VAL$ K LPRINT ▙ FLASH PLOT CLS 4[J] CLEAR khATN h WPUSR COPY OUT RETURN % OUT COPY PLOT IN COPY CLS s COPY CLEAR COPY ~[P]NOT ▟ RETURN ? LOAD LOAD COPY COPY o CAT m COPY PLOT COPY USR ▘ OR LOAD J LOAD [G] MERGE GRNDoO) OPEN #SCREEN$ 8[S] ERASE STOP r[S]P`p``@ [P]LN [R] REM m MERGE SGN STEP o PAPER [G])&8 STEP &nB/B6B'B&@&<=" GO TO FORMAT AND S[T] PAPER ( DIM =Jy]2[K]TAN =TAN vhh GO SUB hj0r0▖:02: NOT ▝ AND <>HKsv0©t*▖jD8H LET [F][Q] @@@▘S▝3[T]▛IN i>=4 INVERSE X;9SIN 5[E][G]nRNDFi REM n LIST TO AND 8F[M] GO SUB [Q]I NEW ,`>=e<=MSIN [J] CLOSE # READ @Z,▖:LEN `PFUSR ▖x"AT A|SCREEN$ /[Q]RNDUSR X`+ REM LIST BORDER Ux * STOP SCREEN$ FN YU|`R DRAW VAL$ ATUVl▖/ MERGE UUPU©▚ SAVE BRIGHT ©*VAL$ A©USR JCHR$ ▖W LIST ▘[S]VAL h PLOT CODE xp POKE DRAW LINE VERIFY [S]SCREEN$ c LIST [P] INPUT }U RETURN POINT 9 BEEP A}POINT [R] GO TO OPEN # ERASE "▘[S]ZhP CIRCLE ▝8 RUN [U]zr DIM LET !▝5 DIM + ERASE [S]g RUN D REM ▗ LINE ;u OR 0xl PAUSE OR [R]RfTAB LPRINT CIRCLE TAN N2:5ca^ DIM TAN INKEY$ CLOSE #H▖d[A] USR zV DIM MERGE FN LEN STR$ Qb[E]VAL : CONTINUE w[G]m STOP FOR { OVER POINT xUb▚,pRND▝|!FN ZUSR PI`TAN [A]5Z@: CLOSE #LN mZ>Z-jq*Qjle<+ATR BRIGHT AND [O]~VAL mPSQR [I] DEF FN Dz$mB4[F][R]A▘[E]xINKEY$SIN =z FORMAT GO SUB pB SAVE < GO TO RETURN CLOSE # REM d[E]SIN USR SCREEN$ b[C] LPRINT LN 4>ABS ERASE {5lt[K]SIN 9[U][ ERASE ;CHR$ PRINT ▞RND OR QE[L][C]: DATA l INPUT LOAD RESTORE J @[Q]USR FORMAT [K]POINT Y▘▘J[G] LPRINT } SAVE INPUT AT _FN T $92 OR RETURN ▚ RANDOMIZE LPRINT |p2▚|FN SAVE 2>=p23[D]▝PEEK ▗} SAVE COPY DRAW 0d▘ COPY COPY d▝p2< INPUT ▝USR STR$ USR FN TO [T]l LLIST VAL 0P TO ▝yI▜&Mx,▘ OVER ▘PW[I]0▚L[J] GO TO <SGN TO [I]<x POKE FN >=SGN ,4x. POKE 5 GO TO CIRCLE VAL ` CIRCLE =SGN {^ PLOT o GO TO 7X0 LPRINT DATA .:,X STEP Y CAT ^=XY CAT , OVER .> DRAW xBIN T▝H▙<p LPRINT USR ?s▘©ABS @0`@0 ` RUN ▜@ @}▝;[E]▖D*▖.FN WT+ CONTINUE FORMAT +[Q]@-▖ LLIST A+AP( LPRINT @/[Q] FORMAT LN ▝ FORMAT 0 w{[G] ▖DUSR [Q]VAL @P IF <lZ<= LN p POKE STR$ ▝X<>*▘0 .▙ FORMAT IF /l:(/ LLIST ▝=<=▝8 FOR ▘ POKE p.[H] LPRINT USR USR 88 RESTORE ' DIM GA@@INT [E]?USR ?USR FLASH EXP BEEP EXP PRINT XPOINT 9SaQBP[H] DRAW DRAW COPY [M]COS [P]W[P]O[O]U 43[E]?EXP RETURN RANDOMIZE INVERSE 9 RESTORE q PLOT $ITQ@@@h5▙[N] FLASH [N] CLS [L]"[H]QARDh▗ABS Tm* MERGE STEP ?▘▝>=I▝ REM ▝▘ DRAW > OR ▘© COPY ▝** INK ▝ ▝ POKE ▘G B RESTORE v▘ POKE ASN ▝C`▘LEN ▚ ? COPY CHR$ COPY REM ATTR UUa[G]eASN COPY OUT CLEAR T[F]|SCREEN$ POINT USIN ( CAT ▗T▗U"VAL ▗SIN OUT 9▚ LPRINT SCREEN$ FN SCREEN$ LOAD ▝NOT U@"▟[E][U](( ( LPRINT <>[C] LIST &[C]XPP$ LIST LOAD . RUN {yUSR 8 LPRINT p@▝?▝ RANDOMIZE B▘ CLEAR ')▘▝>D@[D]| AND F0088u7PI▛USR [Q] USR LPRINT ATTR TO j▝ LPRINT s[N]#POINT ▝[T]RND▘ 5 *▟[E]8EXP @2 THEN [M] INVERSE RESTORE RESTORE }2 STEP [M] LLIST {2 ERASE [M] THEN ? MERGE [M]: THEN [M] NEXT INK OR MERGE RESTORE INK GO SUB s DEF FN [M]&o)9[N]N#F!▜[N] RANDOMIZE STR$ y2 TO $SCREEN$ STEP [M][B]o&)!t}|" FORMAT [M] INVERSE * FORMAT [M]: ERASE [M]O: TO [M] THEN 98G INVERSE n INVERSE # INVERSE f[I] INK STR$ MOVE LLIST INK ~ INK [R]FN INK GVAL$ p#~ INK [T]SCREEN$ `▘RNDAT [F]CODE =CHR$ SGN [L] GO SUB { DEF FN [M] INK LLIST MOVE STR$ INK INVERSE LLIST <>pGPG> COPY 7 THEN THEN THEN @p OPEN #[M]CODE THEN 8 THEN THEN THEN @p CLOSE #[M]p▞p▞p▞0[P]* OPEN #[M]P[H][E]▘[M]p[E] LLIST <> NEXT 1 MERGE [M]x^#V# FOR ~POINT w#~FN w#P FOR = LPRINT CAT ▖<> PAUSE _u LPRINT ▗u)&: DRAW GO SUB ▘[D][H]cU NEXT [O] RUN COPY OVER w COPY BRIGHT }USR INVERSE LOAD BORDER ▝ COPY ?▝<=C▝E[C]▝ FOR COPY canbe used tfIN ▘ DRAW jUSR .FN l CLOSE #T CLOSE #N DEF FN N DEF FN H>=H>=H>=H>=BCHR$ 0▚&INKEY$ | DRAW COPY MOVE COPY | COPY ASN ▖ RETURN COPY DRAW COPY ©▞[D]© SAVE ?▝U r▞ COPY USR 7 COPY CIRCLE } OVER ▝▛ NEXT LOAD [O] COPY !&▘ RETURN ©T+▝ RETURN aT▘<=T▘ET FOR T LOAD ?ppp▝[I]▜3cU!ACE▟ BRIGHT }USR LIST USR 0PVAL ▘ COPY ?@©pzpz0z▘0 IF RND IF 0 POKE 0>0DV▗ COPY USR FORMAT INPUT ▖USR '[D]>=t BRIGHT [A]U OVER READ COPY ▙` RETURN a[O] OUT ▝ NEXT p STOP p STOP STOP 0 IF 0n▝ AND !b▝9b!&0SIN ▝ CIRCLE 8▘7h▝ COPY h BRIGHT 0 CONTINUE 0h▗ COPY ![M][C]▝s@VAL 1ACS ▘q^!AT 1 v▝!p▘phqPEEK !PEEK J▝ BORDER FORMAT ▝ DEF FN 0▜NOT COPY 0▚BIN ▝9Bpn COPY DRAW 6php OVER 1 OVER App VERIFY A▙▝2▘USR @h1PEEK 1BIN ▝ NEXT J▘[O]t ▚<t▝yBz2▚[C]▝8[I]▝<=p CONTINUE p CONTINUE p CONTINUE BX INPUT ]QBIN 1PEEK ▝0AT ▘USR C▝ AND pzSIN ▝sPEEK ▘[M]▖AT ▝#p CONTINUE aV▘VAV▗ BEEP ©8▚9 AND VERIFY ▝ BORDER BEEP P VERIFY pVq>aAT ▘rp#dc^▝8^9 DIM P▝}!&Rw LOAD " DATA COPY USR 4▝8Pq CONTINUE ! CONTINUE ▝ LOAD REM ▝V2b ERASE [T]▝▘ SAVE TO DRAW COPY AND CIRCLE x▖~ COPY LIST ?©▝IN ▚ LPRINT [P]?▝o READ DRAW } RUN *o[M] T$,D2▝l INPUT ▝▘ SAVE >0ppppP z▝ LIST LINE 0▚@ CLS #▖▝ DRAW >=3 ERASE INPUT INPUT BORDER #INKEY$▝ OUT 0 [U]▝ BRIGHT INKEY$Rqqq▝USR _.?[Q]o ERASE ▝pPEEK COPY xBIN ▝©▝ LPRINT ▖▝LN LN ▝GPI COPY ? CONTINUE DRAW USR USR LPRINT ?| LIST ?x LPRINT USR SAVE USR LLIST DRAW ?qzqz▝ DRAW qzqzp IF p IF p IF p IF p IF D TO ▝ PAUSE IF ▘ LPRINT IF ACS p IF IF q IF q IF q IF q IF qzq IF q IF q IF q IF q IF ▝[D]% ERASE ! IF ▝q IF q IF rzrzrzrzA IF ©zIN ! LINE ©[U]▝"ACS 1H*w▝ STOP qqq IF q IF r IF r IF B IF ▝ FORMAT 1 IF ▝&! IF F▘VAL R▘LN ! IF ▝LN q IF q IF q IF q IF q IF q IF stststst#tp IF p IF p IF p IF r POKE r POKE r POKE q IF s POKE s POKE POKE PAUSE POKE READ # LINE ▝ FOR # FORMAT POKE ▝ CAT # POKE ▝ATN # IF ▝{& LIST ▝x# INPUT ▝{# POKE ▝ATN # POKE ▝ TO ! INPUT ' AND ▝O' AND ▘VAL $T&▝ PLOT 0ttttppp$n▝ LET $t▝ INPUT B LINE h▝ LOAD ▝ PLOT '|▝ RANDOMIZE $tSGN (F LIST D COPY SCREEN$ ▝;$VAL INPUT PLOT ▝ OVER "B IF BIN t IF t IF q1 ERASE ▝ FOR IF / READ s IF C IF ▝ RUN ▝ BORDER NEXT ▝83 IF [C]▘USR ▚[A]<?x LIST USR ▝< LPRINT IF LLIST SAVE ututqqqqq LINE !VAL ▝ IF R IF ▝ SAVE %t LIST E1▝:!SGN qu POKE u POKE rrrrrrr" POKE RETURN ) AND ▝2▝>=rrvtvtrr"s IF IF ▝ BEEP )p▝LN &n IF ar"u POKE v POKE sq IF ! IF ▝' IF ▝ s IF IF ▝ RUN q IF q IF 1 IF ▝©! IF ▚@| LIST IF ▝>q IF q IF wnwnszszp IF t POKE p IF ▘ LIST D POKE p IF A IF r IF q IF R IF LIST b▖ COPY USR LIST AT ▝? POKE ▘? TO 0▘0 ERASE ▗2 IF w▝ CONTINUE INPUT ▘ IF IN [G]4@ LIST >= LPRINT SAVE LPRINT LIST RETURN LPRINT 8▘USR >▝?#▘©BIN [E]h▘ LPRINT /USR DRAW ▜ n>© AND INT 8 RANDOMIZE |Xx ▝r▝ ▚ AND 80 GO TO NOT <▝ GO TO k▘f COPY ^▝ RETURN ,▝ DRAW TAN TAN ▝? ERASE pUSR ▖USR RETURN [Q]▙ LIST SAVE LIST >=0 LPRINT TAN CAT LINE ▝z IF LN 0 VERIFY IF ▝LEN ▝LN ▝> POKE ▗><▘R▗USR `J▝^!<▝FSCREEN$ t ERASE r DATA LIST 8 PLOT 5825>eJVunUn5▚9▚9[C]9[O]▝ RETURN )SCREEN$ RANDOMIZE -▘▝ LIST [C] DATA :▝USR :▜[M]▗zx ERASE ▖9'PEEK BORDER -H INKEY$▝pUSR LINE `▝ SAVE ▝ COPY FORMAT [A]▘USR ERASE ▝Bn TO ▝[M]}▝[G]`▗▞IN ?STR$ IN USR LPRINT ▜`"SCREEN$ ▝ MOVE ▝ LIST ▜ RUN LIST STOP LOAD NEXT b▝ /4q▘SCREEN$ ▘ COPY ACS PAPER ▝STR$ .Z▘>.Z>Tv`▝CODE LN ▝PEEK PEEK ▝ OVER ▝ OVER .▝▘USR STOP ▝ POKE ▝[U]▘ LPRINT .24▝? PLOT 11 LPRINT a&12>1J▘ LPRINT ▛USR k?▘8[J]©z>▘:z![U]!SCREEN$ V>▝ CLEAR /D▝1▝!|1,A81D!P1/1h~t111[I]= CLS /FN ▝ LET 2▝[M] ▘h>=▘ LPRINT DEF FN ▖@[P]©SGN ERASE INT 2&2,o REM ▘▜" NEXT LPRINT PAUSE READ LPRINT RETURN ▝ READ LIST ▘? PLOT ▝USR <3" DRAW 3{ NEW I RETURN :c "<.L:w/RL^,j|▘/▘<[K]s /PEEK < LINE FORMAT ▝ DRAW ,x▘ SAVE GO TO [A]! GO TO @ COPY FN INPUT NEXT p BRIGHT x LIST ACS ▝L! BRIGHT ▘6$ OVER d$ PLOT ▗?1%^>▘ LIST J▝ RETURN %V FORMAT [M]4FN 4TAN 4USR TO ▘NOT 4 CIRCLE D DATA 4 LIST T DRAW 55 5,585D DRAW 0/▘j▘ LIST VAL$ ERASE f[A]▝▙$ ERASE ▝CODE %FN TAN AND -FN ▝LN -FN ▝ABS 0-[M]▝EXP -[S] RETURN ▗ LIST LIST N▝%USR LPRINT GO TO ▘USR GO TO ▘ LPRINT AND 28▝ LET RANDOMIZE IN INVERSE !▝t>▖ INVERSE n INVERSE f INVERSE # INVERSE #6# CLS = FOR >GNOT VAL$ wCODE OPEN # RETURN <>CODE 2Aw STEP SGN w!ASN w" CONTINUE w"r LOAD <>!▘X0IN STR$ X!vx> GO SUB VAL ##= POKE <> STEP STOP POKE STEP SCREEN$ CODE STEP CODE > COPY 2LEN CODE 2p BORDER !SGN INVERSE "LEN 6 COPY CLS !LEN : LOAD LOAD OVAL$ THEN ! THEN ^#V MERGE INVERSE LLIST COS INVERSE #N#FySQR xINT (` OR MERGE INVERSE RESTORE INVERSE ~2;w INVERSE ~ NEW ©2<2=2> NEW 2B ▝USR PRINT :;w RETURN d TO OR VAL STEP ▝wEXP ▗ STEP RETURN w LET ▛[F]z INVERSE LLIST INVERSE MOVE STR$ STR$ ▙zLN [U]{EXP [Q] STEP Z DIM STEP STR$ CODE ▖[B] NEW LIST THEN ? AND F2SCREEN$ VAL AND 2TAB VAL !IN LOAD ▝[O]▟ THEN FUSR THEN AND CONTINUE c▘!!>2IN LOAD <> PRINT MERGE RESTORE INVERSE RESTORE *LEN RESTORE LINE [S]▗##w_[R]▘#w POKE ##s#w LLIST BORDER RETURN X( RETURN Y >(>wUSR #▙ INVERSE LLIST LLIST MOVE LET <> BRIGHT INVERSE [I]TAN TAN ▗LN LN Pp`▗LLPppp$.[C]/ TO [U][M]llPpp$[T],>=||TAN CLOSE # POKE |X8VAL LIST LIST P[H], SAVE t▗ CLOSE # DATA [I]TAN TAN Pppp$▙SGN LIST L CLOSE #!##Pppp$p.#<$TAN % ' DRAW ' DRAW Pppp$p.p8pBpLpVp`pjptp~p▖p[C]p[M]`INKEY$IN 994[A]dV[I]d"[I]*[I]J[I]|.[A]R▖*▖)hShQ[[E]%[iIN 6©[I]F©▗6RND▗HRND▚J[N]▚4[N]&[Q]N[Q]▗2CODE ▗LCODE ▚NPI▚0PI~([I]~V[I]▙RFN "FN SCREEN$ ,TAB RTAB ▚©$[Q]©X[Q]▚ FN /FN ▚RJ$J!8&3*IN P3:(l:Vl120sE0s40v.0wO0 CLS @P DRAW DP SAVE GX SAVE =T IF Cb RANDOMIZE >k CLS 9` CLS 4h▚ CLS 0p DRAW ,▟7w CLEAR &h CLS "` PLOT "0SIN 'z SAVE /▝ RUN 6▖ RUN +[H] PRINT *0 SAVE &5 IF #D DRAW !0 IF IF J` IF R0 CLS U5 PRINT XDIN U CLS Q` DRAW Nd DRAW Ik IF Wm CLS /]sX[Q]J"0$8▚&@*H▗(V[G]*O▚.P▚~.0▚©6H▚▗▞$P▚&D▚}0(▙0X.W▚2`▚:PASN h}>`▚sXFN B4p▚wT[Q]CHR$ yVFN CHR$ ▗"I▚1i▚▗,^▚▗.g▚▗0p▚6x▚9<▖▗[A]>LN @[Q]▚D`INT JVAL ▚vH[A] NEXT TVAL 21D CLEAR @p▘ RANDOMIZE @i~G▖▚~J[I]▚©L[Q]▚|PFN ▚|VVAL [G]▗2|▚▗4▚▗7▙▚▗:[F]▖[K][G]▗<RND▚▗>SGN CVAL$ ▚?USR ▚;[B]▚.[ LPRINT VAL {▚ CLS "^ DRAW +r IF 5[M] PRINT -▛▘ PLOT 8POINT ▘ RUN 1FN ▘ RANDOMIZE &x▘ RUN @d@(GVxsL[F]HpwNh▘yPhwRpvBhs*IN 3[A]y=[A]x2xw>h▘!0▜v2[A]▘y(xCHR$ s$CHR$ s>pBsBxBs;xBx9pCHR$ y7xCHR$ y6Bw4CHR$ x4▖CHR$ ▚w#CHR$ w,▞9▖Bs@Bv:▞A▖CHR$ tFBsJ@J▖CHR$ sPRCHR$ tR8[F]XBxV▖BxZ[A]CHR$ vA[A]CHR$ wV[A]BsMF[A]B(▘ POKE [I]INKEY$ NEXT MCODE NEXT <VAL yW[I] LINE w[[I]JsG[I]JxQ[I]J NEXT 4VAL ▝)$ CODE u.h▝`▝X▗PJuD▝D▝D▝H▝@▝8▝0,[U]HJv/AJv)A LINE u.9 LINE s>4JxH4Jy:4 LINE xT[Q] LINE wVFN LINE sZ[J]X[Q]B NEXT #FN wL[Q] LINE yLFN LINE wNFN BxA[A]▝<8[Q]JyB▝>4[F]BFN Js:FN Br,1By6FN CHR$ s.[Q]Js2TAN ▟&[A]Js$▖Jv$[A]CHR$ y, SAVE ▘,[A]▙[I]CHR$ y*[Q]CHR$ x0FN Bw,FN LINE AT ▖$[J]D@YD,▟DAT <ATTR 4[K],VAL $COS ATTR O[I]DK[I]D IF RVAL (AT [M] NEXT /INKEY$ POKE &FN 8Ds*Jv4Jx$ LINE y0▖Jx.[A]▘&▖[I][T]Bs"[Q]Bs%[I]Bv,[I]Bw([Q]Bw"▖CHR$ x [A]CHR$ x[I]CHR$ q>[A]w6<▗,xxT▚u3p ERASE u)▝h▜` ERASE 100▘30 BIN [R],iD CLS Xw PRINT Sn IF T| SAVE X` RANDOMIZE /f NEXT 6VAL NEXT F CLOSE #[C]OCODE ▙ CLS XVAL CLS 2FN NEXT (VAL$ BIN [E] NEXT >VAL &▖T-▗ CLOSE #T[J] TO BIN PEEK CLS <( CLS :7 PLOT 8F SAVE <G IF AB PRINT B- RANDOMIZE J5 CLS X/ DRAW S- IF Q: PRINT GG RUN GU IF 5P CLS 1X CLEAR ,X IF (x▗$h IF h DRAW +p IF 6e SAVE >[E][Q]3q IF Z[A] DRAW V FLASH H[S]E CLEAR P▝▘ PLOT P[L]▘ PRINT NPOINT PRINT HVAL IF :▝CS[H] DRAW [[U] CLEAR UATTR ▖/ CLS VM PLOT Rl▝T[G]MH CLS BV DRAW Bc CLEAR :q DRAW :Z IF @o GO TO ▖~ CLS .x SAVE " CONTINUE [L]5FN ▙ PRINT /FN ▙ RUN * SAVE +FN ▙ SAVE 'VAL$ d.(GD?▛(QD PRINT "[A] IF /FN ▗[K] CLS )4FN PRINT 7[Q] PLOT =POINT POKE 0RNDEPOINT CLEAR K[Q] CLS P[K] IF V[I] CLS Z[A] DRAW ZRND CLS STAB CLS ATTR d*[I]Gd2▝:▝B▚J[I]G CLS ZRLN [F]@ IF VW CLS OL CLS JB DRAW KN IF GJ[U][M]: SAVE D0 RUN N5 RANDOMIZE S< IF [2 IF &- CLS #7 CLEAR x▝/(▙)12A[R]D DRAW ![A],▜s,[Q]s6@[Q]▟sJ[K]T[Q] PRINT BATTR x8FN CLEAR [P CLS R DRAW #K CLEAR 'D[Q]W SAVE -H IF 0> RANDOMIZE "1 IF $; SAVE */ CLS 35 RUN .? SAVE 8SGN ▙;7 CLS ?- DRAW C8 CLS F=[Q]: IF O@h[A]H DRAW WX CLS QG CLS Y2 DRAW T▗- RUN H[F]&[Q] CLEAR *FN v>FN IF >VAL PRINT 8VAL PLOT 4<[J]0FN SAVE "[Q] SAVE $TAB CLS PFN DRAW VFN CLEAR YFN IF HX[J]LPOINT -L▖-P▖/L▖q4▖r4[I]r@E[I]q@▝E[B]AqAp{2`B{L`Bs LIST ▞$FN s*VAL s4[S]EVAL vOVAL rJFN qJ[I]rG[A]qG PRINT TFN PLOT V[I] SAVE Z[Q]/▞CODE CLS Y[B] CLEAR Z:VAL ▗; DRAW RVAL MJ IF M4 IF JHp▞/ SAVE FL RANDOMIZE F> DRAW ▖4 CLEAR @J IF Ap▝=SGN ▘8SFN ▝L▗A RANDOMIZE 9▘3D CIRCLE ▝N [E]C IF -P IF 34 CLS (F DRAW %S CLEAR p[F]() DRAW $9 SAVE #G{NpJ{2pJqE[I]IN EFN ▟1[Q]!V▖ PRINT $VAL PLOT FN INPUT H0▘ GO SUB :0▘ LOAD FP▘ INPUT DP[C] CLS ZP IF XH PRINT T8▘ PLOT N(▘ LOAD N8▘ GO SUB TD▞ LIST WP IF R/ INPUT POKE [P] PRINT 4( PRINT /0 PLOT -: SAVE )D CLS &P INPUT 47 LIST ,J INPUT /@AT ^ CLS !g8[I] LOAD !t PRINT &FN RUN , DATA .VAL DRAW 3▗▘6FN ▝[A]$[M] PLOT [I]▘ CLS JTAN ▝F(▝<SGN ▝@[E]4p GO SUB .[P]:2jLDJL9zL.aDDABIN <[R]DZ▝BIN CLOSE #[S] LOAD J0 INPUT 00 LIST -0 PRINT "H PLOT &8 SAVE )( LIST )6 LIST 'H INPUT " SAVE [C]$[I] CLS -[C] DRAW 8[N] SAVE A[E] RANDOMIZE K[H],▝▞0[A][B] NEXT "[A] POKE *▛ NEXT 0[D] NEXT 8[B]@[A] NEXT H PAUSE O▜ NEXT U PRINT P CONTINUE [J]V8 SAVE Z@ INPUT P@ GO SUB VH LIST ZHDjL INPUT FFN ▝BAT [D]4h3bLAaLZT4▖Dp▘ SAVE "l[C]%8 CLS (- DRAW .8 PLOT 22 PRINT 67LN [A]7 PRINT @= RUN F@ IF HB CLS KUSR QM CLEAR T0▘TV CLOSE #BIN IN Za POKE Y[O] LOAD (< INPUT /A LIST 4C GO SUB 7F LIST => LOAD EH GO SUB @K GO SUB KS LIST QU LOAD Uo LIST Zl LIST %@ INPUT K IF "[N]▟ CLS %[Q] PRINT +[Q] POKE ![G] CLS DRAW 6VAL [E] DRAW @VAL CLS DOFN PRINT JVAL INPUT D▖ LOAD p▘3h▙C▘L6[R]L&[B] TO J[R]%p▚RxF▝:SCREEN$ .p CLEAR (b CLS )X PRINT )I PRINT $? CLEAR $'▘▗8▚|:p[G] PRINT *z PLOT $R IF $]FN ▝k DATA LN ▘#l[R][D] IF 7[A] RANDOMIZE 6▞ SAVE 0▖ SAVE >[A] CLS F[K] PRINT W[D] RUN 4[U] RANDOMIZE A[T]▝[E]▖[Q] RANDOMIZE ZAT IF 9VAL ▙ESIN RhCHR$ IhBIX[M]HB5`B5PB/hCHR$ ]HCHR$ ?hBSHCHR$ ? SIN ?HB1D TO 23 TO GCTF7 TO [5 TO R@ CLOSE #Q4L;@T<-L6` ERASE GXRXiLiBIN :JPJ:6SJ:T▟@QJdV▖GdN▖G" LIST >=▝8 TO ▝B TO BD▗▝FH▝L,▟RVAL ~N[A]▚P[I]▚|XTAN ▝QSGN PIF▚|.x▚LhCHR$ ▘D▚J[ CLOSE #KPL5pJ5`J1I CLOSE #2: TO BIN RDp LINE DR LINE ATTR CDTC6L▗,▟▙.▚@▟▚A[D]▚▗?[G]▚▗@[L]▚▗BINKEY$▚▗DTAB ▚▗=[F] FORMAT AT TAB ▚ SAVE #[D] IF 9[J] CLS +[J] DRAW 4[U] DRAW %VAL ▘ CLEAR =SCREEN$ ▘ RANDOMIZE 0TAN ▘ RUN V[Q]S@G:8SL:4VAL$ NnJ+hJ+XJ(AL!hJ"H LINE !< CLOSE #!. TO 8qD)RT:,ZJ:$J,VAL |,VAL ▚#[J]DQ▘dF▝>▝6▝. ▝&$[B]▖G/@G4;O8@Od"8▝*<▝2@▝:D▝BH▝JL▝RP▝ZTp p p p p@p@@ CLS Z[I]R▖ CLEAR O CLS J[Q] CONTINUE ▖[T] CLEAR FPOINT IF B FORMAT 8▛ CLS Q[M] CLEAR VSCREEN$ DRAW PLEN LPRINT [H]V▘L▗[E][M][U]AT ▙ LET [<D LET /JL(FO0▟+@OEFO IF GLEN CLEAR B(▘C[A]▝COS '|▙ DRAW -[R] CLS /[K] DRAW 2[A] IF #@/[A] CLS )▝%x▝[I]RND"▖ CLS -▖"▘D DRAW ([N][C] CLEAR 2 CONTINUE )~B BORDER +VB DIM )SB LET 0HD LET &[J]+@D LET "RL LET 4QL LET 5?L LET 13L LET 3)L LET -LEN !<L LET (2L LET $0L CLS >[I]F[I]R[I]H[C]LW[C]L CONTINUE N▙B BORDER PfCHR$ REM N`B LET JPD LET PT▝VYCL LET GL;L LET U[G]Q1L LET V-L LET N,L LET I.L CLS MINKEY$ IF UVAL FORMAT IN AT "[I]([Q]▘.FN 8VAL CVAL LET C SAVE $POINT (INKEY$▘.VAL$ ▘"[C]D,[K]D CONTINUE 9INKEY$B PRINT *[A]▘ BORDER ;~B[D]@J[E]▟2▝ LINE DIM 9nJ LET DpD LET 26`D LET @[G]1[L LET ;VL LET F]L LET DML LET ?HL LET A: CIRCLE ▖GL LET 7KL LET <[Q]▘79AT 3L SAVE 2[Q][C]6[Q]G)J[I]FLVAL ▘TVAL R[Q]B!H▟OV[Q]BZ[Q]BBSCREEN$ DJ▝RYSCREEN$ D LET [,/`L[I].TAN ▝7LN ▝BSGN ▝MUSR [N]UVAL CONTINUE *INKEY$B BORDER ,~CHR$ DIM *nCHR$ [C]'▜ LINE [B]1©J"[Q]J&▝*1[Q] LINE 5[J]9[Q] LINE />FN /FFN -@[A]J-H[A]J,D[A]J)>▞L[A]J.>xN.B▝F▟JxN+MxF+=x AND LET 4 LIST ▘$xUSR ▗hD LET 0 POKE ▘*X DRAW /L LET 2N LPRINT DATA ▘-ISGN ▗eL LET % CIRCLE ▘!PBIN ▝ABIN ▝= CIRCLE [A]▞.4L LET )1L" CLOSE #▛4SCREEN$ D<[Q]FN[Q]F BRIGHT [I]XSCREEN$ D$V[I]B&VB%VhB$VPB'VHB CONTINUE ▘ *▝2▝: GO TO ▘ J▝R▞ZVAL /$FN /,▝4▝<▝DLFN T8▟SCREEN$ D▟,[I]▟0[I]▚▟HVAL ▚-$[A]B-(▝4▝@▝L▝P▘$x▝4▝@▝L▝PSGN ▘-0▝D▝H▝,(▝0,▝D0[A]HxB+$` AND +R`F(&B( CONTINUE ▘(2▝B,▙(NB FOR 6x-&`F-*▝.▝2▝6▝:▝>▝B▝F ▝J$▞N`F*8XB CONTINUE XBIN ▘Zp▗~B REM X LPRINT ▝Td▝XH▝QLT@L LET S▟X0L LET [;L REM `B BORDER ,▜B CONTINUE INKEY$B/4▚ CONTINUE INKEY$B LET ▝"▚$VD LET 'E|▝/PT"'LqTqT▘ Pl▝VT▝*T▝2qL/TFN )*[A]B):▝D▝ZDFN ▘-6LT▝RX CIRCLE ▘-J4 TO ▝-,N[A]▜▖B(T▖B,x▝)L)ZB.,xF.2▝6FhF.J▝N▝RVhF+:t▝Z▞Dh AND +*x AND </[I]D-0P▜.B..xF SAVE ▙:8G5>W=>OA▞;>W/VFN " TO ▜ *[Q] LET [A]LN ▞[A]Lu2VAL Bu2FN ▗[Q]Bu<▝<▝F▝F▙FVAL B FOR >[I] FOR 2[I]d4[Q] CONTINUE ▝H▝P▖X[Q]G▙2G- LPRINT ▘-:USR ▝6TAN ▝:FN ▝>AT ▚4h AND LET ,▖TAN ▗▖Ld"8▝*<▝2@<[Q]Gu:tt▝DDVAL B<▜R[Q] FOR 8p▝Dt▝Px▘T[I]!▗▘ N SAVE ▝F DRAW ▝>▝6 GO TO ▘ &VAL -X[I]B-X▖x▝J▝<▝<▝.[B].▖B PRINT "[Q] PLOT "[A]▘ FOR "▘ FOR R▝F▙:▘x8▘y. SAVE 4}USR s PLOT N[Q]D▟N= SAVE .e RANDOMIZE 0/ IF .[U][J]*D SAVE (8 RANDOMIZE '0 CLEAR >i CLEAR JI IF LV CLS E Bc IF :u INPUT "▖ POKE [M][B]"o CLEAR "1 PRINT $J PRINT )o SAVE AT *d RANDOMIZE 'h DRAW %Zp[J]` DRAW Kb CLEAR PC CLEAR Wg SAVE [` CLS O/ CLS UXxm RUN Ik SAVE Sh PRINT MSw RUN Uw RANDOMIZE KsUSR ▗@ DRAW V▘U>>=▝QAT GO TO [S]Z. RUN Y=DHD0@BIN L8D2`BIN @XD@[Q]L/[Q]▘sLq@q@q@@▝*@▝*@▝8H▝8H▝FPF▖B0 FOR .h[O] FOR @ PRINT Gp▘ PLOT Cp▘ SAVE ?p IF ;p CLS 6` PRINT 0X DRAW ,8▚(h SAVE %`/▗SCREEN$ L RANDOMIZE 1 LPRINT ▝6SGN [K] CLEAR < DRAW "/ IF :HNSCREEN$ L<`BIN J[J]L=[U]CODE [Q]LQ[L]L PLOT 3i LINE SAVE .o LINE IF 2t LINE CLS "p LINE DRAW !g LINE RANDOMIZE 7t LINE IF (t LINE RUN ,w LINE RUN :w LINE ▖V[Q]Drrr[F]VAL J[Q]D▞8[Q]D,[Q]DX[A]BX▝p`B▙VR▝@0B▜ CONTINUE ▜LpB▙Jb▝P▝@0B▚ CIRCLE ATN >v▝p▝`PB[C]2dB[B]*ZCHR$ ▜.8▝.8▘.p▝`8▝.8.0B[E]$CHR$ LET 2* DRAW ▝6AT ▝$▝4#D LET % sL LET &[M]▘%$ LPRINT $L▚:@l▖0B▛Z`▛V▟Rh▛Np▛LH▛H▝D▝@▝J▟Fx▛B▛>▖▛:6[A]▛2▝.▝<0[N]:HATN N^JXPBATN RVBATN FfBATN BnB▙6▘B▙2H:CHR$ ▙D@:CHR$ [C]R▞CHR$ [D]@Y CONTINUE ▝x0▝P[Q]DPD'/▝2`▝Pd▝$h[I]▖B[F]L"[H] TO s▗s▗c▗ VAL ▞Rt6[Q]D▖B[Q]D▚T[A]B▚T8▗`CHR$ ▚TD▘TP LIST T0BATN .fCHR$ [D]& SAVE ▞PDD`BDP[I]▝D CONTINUE ▝V GO TO ▝R LIST ▝N LIST ▝J LIST ▝F POKE ▞B▖▜8[A]B(.SCREEN$ D▜8|▝8TAN ▝8TAN 80B GO TO POKE ▝ DRAW ▘T▝T▝ GO TO ▝`a4<|▘▛.L▝*h▝&p▝"|▝Zp▝Vt▝Tx▘PP▝X▝D▝@▝<▝8▞4X▟4HB▟<▝@▝L[A]P@B▟Z8BATN &VCHR$ ATN *^CHR$ ▙ATN 2nCHR$ ATN 6vCHR$ ▙<zB▙@[K]ZjB▙RjBATN NnBATN JvB[C]>3CHR$ LET =(D LET (x[M]<▚Th FORMAT T▘8x eCHR$ [C]Z▛B[D]&=B DATA ▘L POKE ▛ZSCREEN$ D+[K] TO ,▘Z▖u▝G▝? DRAW ▘ / ▝(1[E]▘▖Q1▖▙*j▗▝hq▗▗▘▖"$▝F,▟0[Q]D▟68CHR$ ▟FPCHR$ ▜H CLOSE #▝H CLOSE #▝H▝H▝H▝2@6zCHR$ ▚2▝2▝2>=▝2LN ▝2t<▘$`▝$`▝$>=▝$▝x CLOSE #▝R CLOSE #AT ▝RVAL ▖N[A] LPRINT ▛BFN DATA LIST ▝J POKE ▝F SAVE ▝Bl▝>tUSR ▘▛6 SAVE ▝2 DRAW ▝>$▛:FN ▟*8CHR$ 0<PB1LN SAVE AT ▘▛*▝&[N]"x[C]ByCHR$ [D]L>B[B].XCHR$ LET *PBIN LET @pBIN LET P0BIN ▛.@▝*D▝&H"H▙Zz LINE ATN N~▗▝z▝▚▝▙▝[G]▖nCHR$ ▟BHCHR$ ▟>@CHR$ ▟:▞PPB▟.8CHR$ $ 8CHR$ ▙ 8$ CONTINUE ▖▜H[A]B▛J[I]!▞/SCREEN$ DXINKEY$D3/V[M]▝H[I]▝AI[E][M][U][E]▞P[Q]D▜R[I]B▜▘▜R4▝R4▝Rl▝Rl▞R0BFSCREEN$ D▖:AT ▝<AT ▝<AT ▘<p(TAN ▝ SAVE ▘<AT ▗<0B▞ TO ▝▚x▝▚x▝▚x▝▚x▝▚x▙,:@▝V▝R▝N ▝J($0L▝>P[D]:p▙V▘CHR$ ▙Z▘CHR$ ATN Nv LINE ATN Jn LINE ▜ LINE ▙Bb LINE ▛6p▝2t▝.$[N]4b LINE ▙8b LINE [C]6▖ LINE [C]L> LINE ▚.8B[D]DJJ[B]VdJ LET X CIRCLE ▜F8D LET J0D1▗[B]"▖[D](PCHR$ LET $@DHSCREEN$ D▛,LN ▝0SGN ▝4USR ▝8BIN [I]USR ▙ATN *fJATN &nJATN "vJ& BRIGHT [F]4:J▙8:J$[L] TO X[R]BIN R▞L[O]BIN F[J]BIN A▟<[M]D7[J]D1[L]D+▜%[P]BIN INKEY$BIN xxh/*[A]VAL [A]u0[I]hZ[U]/▝, FORMAT t.xl▗`F.0▝4▝8<`F+@▞*` AND -<xB/:`▝&d"[A]▙(D▝$H▞ ▘BXHOP▞TDWW=W PRINT XX(/@LEN TO ▘4VAL ▝.BIN ▝((▝P[B]R~CHR$ REM PnCHR$ [A]WuJ[A]K| LINE LET H$▝/0▝L$▝X(▝R/▗`L LET H ▝M▝K GO TO ▝PD▝R[U]U5L LET W(▝ZL"[M]!l▝ [Q]▘ 0s GO TO ▘[I]▚$HW LET Zb▝x[A]NL PRINT YFN ▘ CLEAR T[Q] CLS KVAL CLEAR & BRIGHT ▖/VAL ▘L[Q]▘▖*[I].▖▙0FN ▞4|B▙8}B▙<(▝@,▝D▝HLzR▛0t▞4▛8▛▛D▝H[G]L▖{/hJ)NrJ{MhR0[Q]▘0[A]`[E][A]▘O,[A][C] CLS FN ▘d,FN Gd4▝<▝D▞LFN G"[I]BIN LET ! ▟>L LET aL:@▖G:=▝<▝> DRAW <▝ LPRINT ▝ CONTINUE PRINT 6p▖<[I] DRAW 9[J] TO ▘ D▝LTVAL P▝L▝L▝L CONTINUE ▘L CLEAR SAVE ▚ CLS P[R] CONTINUE ( DRAW ▟*~B DIM (nB[E]!▘CHR$ [D]/t[M]▝.TAN ▝$TAN ▝)VAL ▝541XL LET 6@AT ▘-LBIN /▝(`▘-7x▟ NLG[J]B&FNQOVRLO▘ CLS $H▞"FN ▝"▝&$▙>gO CLEAR "[Q] PRINT "[A]XFN |▘.FN ▝VAL$ CLOSE #▘5ATTR ([L]-[A]L LET *▚L LET 0▝+ TO ▝/ FORMAT ▘-g0▝FN [M]▝[I][Q]▝▖'SGN -4XB( ▘,<▘@X[E]▝X CIRCLE l▘L▖ LPRINT BRIGHT T▝L▝H LIST ▝8 POKE ▝(▝[I]▖B LET 43D▛JO4Y▘▛Vd SAVE 7▗[A][E]▝H[I]▝D[M]▝@[Q]▝<[U]▝8FN ▗4pz BRIGHT ▝0 DRAW ▘▛Z88▝X<▘R@ FORMAT ▝8X▝0 FORMAT H.4@d▝<▝@▛D@F+2@ AND +H@F[I][C]P[H]B LET RDH`CHR$ N` ERASE RhCHR$ VpCHR$ LN ▛TP ▘▚T8▘8FN CONTINUE ▝[Q]0▝[I]4[U]L▛P[Q]▖[I]BATN XNB▛"t▘8,x ▘▚T4l TO w8(,▛L[I]xX▝D/▝@ POKE t▝0[A]▝,[I]▝([U]▝$▝ ▗▝▛|▝▛ CLOSE #▘▛6<▝:@▝<[Q]"8▖▖X[M]H CONTINUE ▚▙Z[S]CHR$ ▛T LIST ▝X POKE ▘/X BRIGHT 8 SAVE ▙$JCHR$ ATN (NCHR$ ATN ,H[F]0^CHR$ ATN 4fCHR$ ATN L▚CHR$ ATN P▙CHR$ ATN &[O]BATN *VAL ▝▙ TO ▝8T/ATN /F LPRINT ▝▝▖▝8HB[D]LN` DATA >SCREEN$ CHR$ [F].9CHR$ [B]<]B[C]l▘[C]Zp▞N@D LET ,0D LET >▗|▖ LET <[Q]D▛P[A]/q$ SAVE yTAN 1(▘$[Q]SGN ▝H(7X4d▝Hd▘H*4[Q]▝L[Q]JXx▘(H|▘x▙0Jx@H@▘▛VD-@x[U]D DATA !hp[Q]▚$HB▛.[M]▝2[Q]▝6[U]▝:<AT D▝FTAN ▝N|SGN ▖x!>= ,▝80▝44▝0 CLOSE # LPRINT ▝* DATA ▗&XFN ▙ JP▝L▝P▝Z8JJ▙<▝@▚PBZAT )▘HB@▝@▝@▝@▜.@`+D[J].`▚▙ [S]B[D]8[Q]B[E]>;CHR$ [C]NlCHR$ LET <[I]D LET M LIST ▝>[C]*xD[C]Z[P]B[C],8B[B]LSCREEN$ B LET /[A] LPRINT BRIGHT ▘▜R (0[U]▝L8▝V<[J]GD LET [T LET QpT LET IxT LET ZvT LET UjT LET M▙KcT LET YbT LET R[T LET WS▘OE ▚R1T[A]&[R][Q]`x@xl`▝@ GO TO ▝< LIST ">=[Q]▝*& SAVE >=1$!,x▝0 BRIGHT BIN [U]l▘▛<[I]0"xCHR$ &CHR$ *▖CHR$ CLOSE #▚DpCHR$ ▙"`▝&d*JBATN 4>BATN 86H>=▝H CIRCLE ▝8 BRIGHT [M]H LIST ▘▛<@▚@8[A]DItoCHR$ [C]6[E]CHR$ LET 4▖D LET &0▝H▗[A]D[D]4/B LET !D▚yL LET gLSGN ▗ LET 2[D/d,▘▛T>=[Q]▛/FN CONTINUE SAVE ▝0 LIST [M]FN p▘▛R GO TO [Q]▘▛JVAL B0▛P`▝Ld▝H@ TO CLOSE # BRIGHT DATA 4|▛F84p▝X CONTINUE ▘XhATN VFCHR$ ATN R>/▝6/▞.CHR$ ATN F&CHR$ ATN T[O]ThB(<h CIRCLE ▝B▝F[I]▜,HhB.8Px▝@▝D▝HLPF+P6P AND 4<PpCHR$ 5 LIST >,u LPRINT [I]0B[A]2[J]CHR$ [C]@[D]B[B]HRNDCHR$ [D]P[A]B[C]R`CHR$ LET 0(▘.[F] CONTINUE ▗▗L LET B4▝Dx▚R▖D[B]65puL▘$▝"[E]▝& SAVE [M]R▝6FN ▝8AT ▘<[Q]|l▝B FORMAT `JhZt▝ZLN [I].USR >=▘FhXFN ▝:LN ▝2▛* LIST ▗[Q]([E]▝[U]<[C]CHR$ ▙4▝0▝,▝(▘$[C] DRAW ▝*/▝.▝2▝>X▘:r`SGN ▝▗[I]~NE CLOSE #▝DHD(0=l~DD▘▛DTAN d[H][A]LDB[C]</B[D]2?CHR$ [C]&~B[B]PFN CHR$ LET L[M]TAN @D▝(>=▘ LET NP[F]T*D-NPB(ZPB-VPB.N8F.R▝V▞Z8F+L8 AND $SGN E@ TO ▘▛4dUSR ▘▛8h▘▛@|x▝H LPRINT ▝L DATA ▝P CONTINUE ▝T GO TO D/▝@VAL ▝8LN ▝0BIN ▝$[U]▝$▝ CLOSE # POKE GO TO AT SGN ▙zM[I]B0O[A]B▟ CHR$ ATN 8 DRAW ▝<▝@▝D▝LFN ▝r▝HLe CLOSE #▝(w<▘TX CIRCLE TAN ▝TTAN ▝T GO TO ▘▚2[A] SAVE $▘$`N▛[D],©CHR$ [B]DPOINT CHR$ [C]L`▖CCHR$ [D]N8CHR$ LET @D▝L▗▘NT1L▞@[Q]D-"PB,&<▝*@X▘@X▘-:T CONTINUE (6PB+>8.:X▝6/▝2`▝.d▝*h▝&l"8F▚2 BRIGHT ▜$(B LET V[A]DT CLOSE #PX▘▚.0▘▛.(; CIRCLE * DRAW LPRINT ▝2 DATA ▝6 CONTINUE ▝: TO LIST ▝B2BIN ▚▛6[A]ATN "LN ▘&f▗▘^B[E]▘,> CONTINUE ▝F GO TO ▝B LIST [M]▝th▝t BRIGHT [M][U]▝>▝B▝F DRAW ▝J48 AND }SGN @d POKE ▝,u SAVE <(B[F]DtB[E]$GCHR$ [D](INKEY$ SAVE SGN ▝48▘$[L]x0[I]"@D: VERIFY @[Q]R0:P0VAL0WATX:NA:::0STR0W:S0K▘IZUSR : CHR$ :▜D:I:3:3 ▝ NI4EG0:NETp:WIDE0KAMERA@*INKEY$VURNAL:;RAB0TNICA;:TOBIK:3UBN0J:PASTY0T▗PUST▚SUNDUK i▘MI▟0LNATTR ▟Q:PE4X:B0LXZ9▗30L0/▗KLO4[D]▙STEKLQNNYJ:ME40FN 3D0 CLOSE #▝E T0P0R0ABS 0K0NNQRAM@FN ▗NI3K+▘SLgALXKU▜:DREWESSCREEN$ !▝Y DRAW ▘DEh▝E[B]RIL* RANDOMIZE 0LZEBT▚BIBLIQ!&P▘TIf▚Q:ZAZK▛:W3RYWN0E: GO TO R0JSTW0:PR0SQR ▝TRQ~▝AeMAS5▝SHUBK+z▗GRIBF▚:MUH0M INVERSE ▗STARR!?▚E:WEDRT▚::RE3I19D0~d▘0D@ CAT ▝M>▝R! DEF FN ▗KANI CLEAR A:BEN3@*X▚:3AVIG MOVE SAVE ▘4E4▜E4ESKIJREP[U]▘EZ'!▙▘YHV▚L0PAT LET ▖AKWALANG_ ERASE 0GR0M[R]▚BULYVN: COPY LINE COPY V[I]eV[I]SGN Gd<="[I]e"p▜ COPY (de(dppp p p0p@p@pP`p[B]PPi(XBe2[Q] FLASH H[R][Q]FATTR [F]@<=: [J].`GEXP ▘X▜[T]D▖F.X52[G]q>VAL @d>=STR$ FLASH ▝5 LPRINT [K]:@[Q]Gd>=USR PAUSE 5@ha2`▖FdJ ▗PhaNp▝4 ▝Pp ▝Lp▜S( IF 6[I]`▝CHR$ ` ▝:p▝SP BRIGHT 8z@pPIVAL ▝[U] SAVE [G]GPI1D@ OVER L0F▘ LPRINT DEF FN "0 LPRINT ▟>[H]C?▝ DEF FN $1[A]4nB▝▙@▜ LPRINT &XC$L ▝0VAL ▜ OVER :PE▘ @▝L▖[G]NjB LINE ▘LL FORMAT ▟[G]0bUSR `` LET j LPRINT ▛<`VAL ▝@p :?~A !!S`▝POINT CIRCLE B LOAD ▝/!▜bDJN<=VAL ▜><B© VAL ▝N USR [C]D,P USR .F@ OVER PPCx LLIST LPRINT ▝R FORMAT ![A]D 0 LPRINT ▝j▘/Xa▝j▝Mp▝f[A]z:X LPRINT BB0[N]::FN TAN )3T▖iT▖B▖d@ LPRINT ▖P`USR ZhSTR$ THEN ▝RND FORMAT ▟ RUN ,[I]USR B>▝. COPY 0 STOP ,- LPRINT ▝h@▜t:xB RANDOMIZE ▝h▝PI▝F3▘hj`▜X[I]D▝j▝PI@ ▘jd[Q]▚B LPRINT B, [Q]:B@G0[Q]▘3▗ 0▝HPP▘▗VAL USR pTAB CODE ▝PI@p▘f FORMAT ▟LP[A]VAL$ ▘f▝PI@[A]▘f▚▝Mp▝<!:MPPp▘:RND@▘ZP@▝RND▝PI@ FORMAT ▘RNDe ▝`P▝e▝PI@ LIST ▘eUP[H]8[I]?UiUSR @[C]p▝B▞ OUT :x GxxA▝2▘INKEY$P FORMAT ▝INKEY$[A]▘RND<VAL ▗JK▝bP▜ CLEAR 2[I]BIN [I]![A]INKEY$8[P][A]▚[Q]STR$ CC :RPEEK USR GTAN >= COPY DDq[Q]▚EKI COPY `0▘[P][P]00@▜RNDR FORMAT USR BINKEY$ ERASE 00Pp@▘H![Q]▝<aP▘jK4`B=▗K[U]0[I]6p▝ DIM ▝[U]p▝[P]No▝k @▝▖R▘kg`▝`F▝gPI*[Q]R ▘gV0▝F`0▝V▜[M]:hF0T "[Q]▗^e0c`▗f0VAL ` ▗[O]e0c`0▘Zfp LPRINT FORMAT fp LIST ▖Fg0/`▚"FF@P#``p▗ DEF FN g00`▘5hp`0▘FN h @`[Q]-i0 LET P▘[R]:oj0▝[S]Enk@▝[N] ▗ml0 ▝[T]0▖Fgh COPY LPRINT ▘[O]*p▝#i▘PIIP▝&c0▘IbVAL ▘[L](@▘! CAT ▝Xp▞ READ J[F][Q]KX▝USR ▝Y▝▘( ▗"F2▘``00F[P]@G▖[Q] SAVE aap▝b Pp ▘cc@`▚ LPRINT GdUSR @P▝Dp ▝F@ ▝V INVERSE 9▖D▝Ye$`▝LN [Q]P▘ NEW j00 FOR O[A]B00▝ COPY VAL ▞LN NFN 0FN PAUSE @K▝0[Q]FN 6h@tCODE FORMAT RUN OPIPIPISTR$ Buu !4[I] LPRINT ▝y▝00▝PID▝0▝ INVERSE `▝@`▟bD[Q]iD[Q]B▝m0 OR ▚3$i$ LIST ▗ LPRINT o@[Q]▝i▘[K]2 LPRINT ▝'<>iiL[I] ▗ MERGE m8NOT $P▝NbUSR ▘fhP ▗In4 READ Y<▖iB[o4`▚c0[I]i0▖IN n4▘&hU▝M▝PIE0▘M▜@▝Dd FORMAT ▘▜d%P▝8UP▘d5`▝Hd LIST ▘5T#Pd[Q]▘Tcp▘*XUp▝c▝PIE[A]▚cN*[Q]i▚B DIM kPA6i6 LIST ▗mNOT ▗R@[Q] ▗nlX@@▖ [U]m ▝Y LPRINT ▝Bc LPRINT ▘YW LPRINT ▘<[Q]U LPRINT ▝W▝PIF▝W▘ SAVE Rp▘% ▝PIF ▘U4USR ▘<[A]QUSR ▝4▝PIF@▘4/$0a ▝/[A]▘PIBd@▝K@PI4@Vp▝2 FORMAT ▘PI8e LIST ▝!`vp▘M▚!`e FORMAT [M]▚> COPY 2&v2'v2(v2)v! FLASH NOT BIN bCODE 2q BORDER PRINT USR [H] AND G2 BORDER :p BORDER THEN G( LET < RETURN REM PRINT LET 2 DIM ▝"▘ LLIST <>#<=2INKEY$ #▗<=2p BORDER ▜2ATN 4▝▜TAB STEP r BORDER INVERSE ~ STEP ew:?w THEN ?2X CONTINUE :@w2D CONTINUE *Cw"U CONTINUE : DIM INVERSE w VERIFY _ THEN ;!0 GO SUB SO@[S]&PI(= IF FOR INVERSE RESTORE INVERSE !ATN r INVERSE :X CONTINUE THEN 'W:D CONTINUE g INVERSE RESTORE STR$ INVERSE LLIST ▘~: INVERSE n INVERSE ~ OR INVERSE LLIST STEP LOAD INVERSE RESTORE LLIST ▘^3[G]!t THEN # THEN INVERSE FOR INVERSE f INVERSE RESTORE OR LET STR$ INVERSE l[C] OR INVERSE ~OVAL$ q# INVERSE #STR$ LET INVERSE [D]V▞# INVERSE # FORMAT INVERSE LLIST <>pEXP ?2 SAVE EXP ▘ FOR CONTINUE pTAB TAB ▗ POKE CONTINUE INVERSE ~pSCREEN$ pSCREEN$ ▘: SAVE SCREEN$ 00POINT ▝g`SCREEN$ PI▝ApPIpPIpPI▘f RND▞VAL$ w# RANDOMIZE [C]▗STR$ DATA PAUSE ~bIN INVERSE x RETURN [K]<>CODE 2 DIM G INVERSE !AT INVERSE OR : LOAD LOAD INVERSE PEEK LET 2 DIM PRINT INVERSE ~ RETURN LINE REM RETURN LINE Iv RETURN LINE [G] GO TO STR$ STEP DIM PAPER : LOAD RETURN COPY USR ▙PI>=> RETURN 2 LOAD <> INVERSE !L BORDER P:▝05▘i REM 0▘! GO TO :▙5wSTR$ LIST COPY INVERSE x RETURN [K] INK .h0[▝o&▝[A]0V GO TO <>PI(- INVERSE RESTORE STEP ▗ REM @▗▝ CLOSE #▘ INVERSE V[G]▝INKEY$▜F INVERSE n INVERSE f[D] STEP ▙ NEXT W▝PI[[G]: FORMAT LOAD AND _: ERASE LOAD VERIFY W> LET FLASH INVERSE ~ NEW CAT O[D]0 VERIFY THEN © ▝ INVERSE wNOT F DIM y NEW 0 [C][J] GO TO :[R]uPICHR$ F DIM OR CODE STEP [T] DIM STR$ ERASE F DIM THEN ▘(&▝xSQR ©▖[H][M] STEP x CONTINUE STEP m LIST ▜4r> COPY INVERSE w{▖ RETURN PI( STEP [T] REM CODE LOAD P[J] CONTINUE c: IF LOAD <2 IF LOAD STEP ad NEW !&vPEEK >=#▛PEEK <> STEP SGN BORDER NOT { DIM INVERSE ~ ;▟ INVERSE w INVERSE ~ INVERSE wNOT [M] DIM bo&STR$ )▗ FOR INVERSE <>G▘ RETURN USR [C]▝USR B▖)v STEP Br:&v▝f ▖~▗[P] TO BIN FOR GO SUB ▝!M LOAD [▝POINT ▚w RETURN V G▗ >p OPEN #▘ BRIGHT B CONTINUE ▘ STR$ ▜:q BORDER PICHR$ GO TO FOR OPEN # SAVE FOR *'v"&v:)[U]<=▗2 LIST <> GO TO @ STOP INVERSE RESTORE ;▘▗ REM [E] INVERSE LLIST 0 OPEN #: CLS LOAD G: SAVE LOAD LN <> AND WG STEP COS FOR ▚<2 CLS LOAD INT [M] INVERSE ~PI(F RETURN (O&▘ AND /#▘ INVERSE RESTORE ▝`NOT ▘▗ REM m{▝ SAVE ▘ SAVE LOAD !@p▖p0<>V >u*▘UnA/SIN CHR$ ><>21w INVERSE RESTORE xU▘[v LET LEN G! LOAD ▜LN CIRCLE LLIST INVERSE 6 COPY !PI▜d OR 5▖tSTR$ PAUSE NOT DRAW REM 1ATN ▝ LLIST c▛>2[R]u!` FLASH "[S]u RETURN [B] RETURN COPY >= INVERSE ~<!K FLASH = DRAW [E]<> INVERSE THEN ~ TO K GO TO INVERSE THEN F ^CHR$ >▗V LINE CAT THEN ~ STEP VAL$ INPUT BRIGHT THEN ▚▝▙6▝f3▝VAL$ 7INKEY$(D INPUT J▝N▘ AND ▘▚r▘wc[O]<> STEP K GO TO ▟NOT READ DIM STEP M GO SUB INVERSE ~ NEW X▚N INVERSE ~VAL LINE Fu▛▝{▝f0▝^[B]▘NOT BEEP FN [C]$n TO IF INPUT ;( INVERSE ~ INPUT INVERSE wC▘ NEW DRAW NEW <G@P▚<LN x CODE ▝ STOP ▘(7 t▜(0 RETURN >z▚n( GO SUB D▜v INVERSE FATN INVERSE F▟ INVERSE PEEK PAPER g INPUT INVERSE PEEK ERASE g INPUT [K]▘~: PRINT LOAD PIUSR : LIST 0▗ LOAD LOAD LN USR ▖n> IF STEP irU▗PI([▝"BIN H+ INPUT STEP STEP GO SUB ATN [D] IF LOAD RETURN (: CLEAR LOAD PI LIST CLEAR LOAD O▘qm▗ OUT r{▙> STEP ▟r>2 PRINT LOAD <=PI>=$0CASN RETURN z $▜ INVERSE PEEK H%FN OUT (>M STEP ^ REM 8>@(1>i2 LIST LOAD 2 LOAD LOAD &▗v2 GO TO LOAD [P]S▘ NEXT LOAD DIM ▝ OVER [Q]D PAUSE ▗V TO VAL$ INPUT X5▝3 RETURN 2[O][J]DTAB ▘ STEP USR COS ▝ ▝ NEW ▝ READ ▝G THEN RETURN LN ( LIST ERASE INPUT INVERSE w+▘V(1_▝""=▘v .W▝BIN t!V[J] THEN ^USR NOT RETURN wNOT [F]z[T] INPUT !ATTR INPUT GO SUB S INPUT INPUT " PRINT INPUT rf(i▘~FPOINT ▝OF( THEN SAVE ! NEW ▗ INVERSE ▚&>▘ew AT ▝[T]>=L▝ATTR CAT ![T] INPUT ATTR INPUT NOT TAN INPUT % RESTORE PRINT MERGE STEP e LOAD MOVE LET B THEN 8O~POINT THEN ATN NEW [Q]#yN THEN ' THEN ' THEN ! THEN !PIw# RESTORE LLIST G} AND o| VERIFY gx0 STEP <>p5 THEN 8~ INVERSE VAL$ w INVERSE ## PLOT p$IN x0 OVER <>} NEW SAVE &To)) THEN ;X<> NEXT > RETURN GO SUB G GO SUB ^>NOT 2 CLEAR CLEAR ![L] LOAD " RETURN CLEAR ! RETURN RETURN 6 CLEAR GO SUB VAL <> NEXT GO SUB V CLS <> NEXT PRINT OR MERGE RESTORE ▚ INVERSE RESTORE CLEAR RESTORE : RETURN R▟ RETURN LOAD : NEXT LOAD PI TO NEW LIST STEP r CLEAR ▖▙ LLIST MOVE STR$ LET CLS <> CAT NOT ▖▙▙OI OPEN #p▗[B] COPY G?/USR LPRINT ▗▝CODE 2 LIST 2 LIST 2 LIST 2 DEF FN ▝ POKE OPEN #▝ INVERSE [L]: PLOT [R]▞ BORDER s ▜3▝ ▘:`▗ LIST :(▝USR VAL$ ▝ZCHR$ ▝USR [P]2 MOVE LOAD [Q][I]2 OPEN # LOAD <ob: MERGE LOAD 2 VERIFY LOAD STEP ^[L] CLS <>>82 FORMAT LOAD m▞= STEP OPEN # LIST NOT PAUSE >0▝<0 CLOSE #▗ AND v2 ERASE !▘ AND "▘ DRAW LET BORDER ▝r0▝ VERIFY @ PAPER " LINE [C]<>: BRIGHT LOAD PI LINE ] LET NOT [S] LET : CAT LOAD =2 CAT LOAD LEN ▘ RUN POKE V▝JFN ▘(SU>▜ LIST ABS ▘ CLOSE # LOAD REM ▙ RETURN LINE [S] LET CODE 2 BRIGHT LOAD >2 INVERSE LOAD D@ RETURN CHR$ G LET [▘[S] LET ▝ BRIGHT PI +▝p+▚ ERASE BRIGHT LIST : BEEP ▝ :PI(▙ THEN G TO %rd▟: LIST RETURN >:0▛CODE G: LIST PI( u▝ SAVE ▚>{ AND ▝_z[E] THEN 'O! DATA NEXT ~2 MERGE LOAD {< NEW [O][J]2 LET LOAD NEXT FN ▜ LIST INVERSE [G] INVERSE ▚[N]▜ LIST RETURN 9 LINE [O] LIST MG: MOVE LOAD LN ( PAPER PAPER PAUSE NOT [R] PAUSE : CLOSE #[M] CLOSE # LOAD THEN ©CHR$ PAUSE DCODE 2 BEEP l[A]G: LET LOAD LN NOT m LIST GO SUB DG STEP - NEXT CIRCLE [F]▘: STOP =▙2 STOP LOAD OR STEP ? NEXT STR$ BEEP INVERSE + INVERSE +▝=W▚= RETURN B PAPER TAB LIST ▜▖ LPRINT SGN RETURN 8 RUN ▗ CLOSE # LOAD AND >▝ IF @>▝0,▘ VERIFY CODE 0F▝ CLEAR Y▝<0F< RETURN ACS ERASE USR 0F1<= V▝ LINE IN ▝ ERASE IN BEEP LOAD CODE ▖[D]▝ GO TO @[D]▝[D]▝ NEW *oH LLIST LOAD STEP } NEXT PISTR$ BIN NEXT SIN ▝SIN ▘ SAVE T BRIGHT NOT INPUT LET p9p9P9▘ AND p;p; ;▝ PAPER ;▘: LLIST [Q] STOP LOAD o THEN vUSR A[F]▝ LET TAN ATTR !t RESTORE 9l▝<▚P[G]P[D]▘f NEXT F DATA <> RESTORE pR LOAD ~ THEN w LLIST USR LLIST INPUT @ THEN w<> CAT ▞ THEN 98~ NEW LIST <>[A]<> GO SUB S READ LOAD " BORDER LOAD OR 2;w STEP ▝w CAT ▝O FLASH ▜G GO SUB C RESTORE LOAD STR$ xp0▚ DIM LOAD INVERSE ! READ LOAD [G]8 INVERSE PEEK FORMAT = INVERSE ▚ FORMAT ^▗[G]8▝<>▘<> PAUSE WVAL$ !"#$%& ERASE ▛>[F]▘>©[J]▝M7t. REM MOVE 2 RUN LOAD 6O+3[K]2 PLOT LOAD FN ▝ MERGE 3[A]r▗ STEP OUT CODE CODE g2 POKE LOAD s▘/S▝▝P@▘p,P4▘▞ INVERSE !~ POKE TO ▗ INVERSE # PAUSE Y3▘LN CIRCLE 0TAB PIBIN t PRINT STR$ `#▝ GO SUB 7 OR IZ▞LN CIRCLE STEP 9d RETURN >= FORMAT @M.▘(`O▘ LIST <>G NEW AND FORMAT x THEN ? THEN ?{▘w2 NEW G▙▘</[A]▞ INVERSE wNOT [L] PRINT STEP [L]C▘ INVERSE [G]▚GwLN ERASE PLOT STR$ ▚ STEP PLOT CHR$ PLOT 0*▝▘▜▜ PAUSE ▗, PLOT FOR N2 MERGE PRINT INVERSE nf*▗!t©▞: MERGE PRINT THEN ?8## INVERSE fSIN ▚ OUT ▗STR$ REM j▘2 LET p@STR$ ▝ NEW ▝<>YB VERIFY ^#VmX▗>= INVERSE ^rTAN "CODE ` FORMAT @USR 0 RETURN SAVE LINKEY$X RANDOMIZE CODE 2l RANDOMIZE NEXT INK "▖ RUN INK GO SUB s RUN STEP W RANDOMIZE ~2 REM RUN 2 IF RUN 2ATTR SAVE # RANDOMIZE LLIST " SAVE SAVE LLIST "[N]6 RANDOMIZE GO SUB { RUN >2 RUN 2Z RUN 2T SAVE 2p SAVE 2d SAVE 2 RUN 2Q RUN ▖ CLEAR q# DRAW qw▗ CLEAR !` RUN [D] STEP RUN SAVE STEP RANDOMIZE STEP 5 RANDOMIZE STEP TAN PLOT NOT } RUN [H]v BRIGHT BIN SAVE xPI /!© CLS ~ATN IF RND RUN STEP g RANDOMIZE 2 CLS PLOT WC[C] NEW 2 RUN CODE 2 OR SAVE <2 CLEAR PLOT : RUN PLOT d▚#"BIN PLOT = CLEAR INPUT ▚> OPEN # RETURN > OPEN # RETURN yPI .!6 DRAW O▝▟ OJ RUN _%?2UN▝ OVER N▗L RUN :QN▝QN▗ RUN CHR$ SGN PLOT ;>PO▝SGN PLOT PRINT RESTORE MERGE INK TO ' SAVE OR STEP FORMAT qSTR$ INK MOVE LLIST LET 7 CLS <>CODE FLASH RETURN / NEW >= NEXT !8 DRAW [Q]1 IF _!X' INK CLS <># RESTORE NEW © STEP INT SAVE NOT SAVE NOT CAT RUN NOT ABS RUN NOT RUN RUN NOT SAVE LLIST `▟NOT AND RUN NOT BORDER RUN NOT ▞ LLIST ~2 DATA SAVE #NOT RUN ▝ TO AND PLOT LLIST [Q]▚Q RUN NOT 9 RUN LLIST IF $[C] RUN NOT FOR PLOT LLIST OR CODE ▚ CLEAR 2 LOAD PLOT #STR$ (P▘= RUN A`▘NOT ▖ RUN SAVE NOT NOT PLOT LLIST ~# ERASE O0 RUN ~#"* SAVE 0[S]▟z SAVE <>NOT j SAVE NOT PI SAVE NOT N ▛[ SAVE NOT © SAVE ~ NEW PLOT I- PLOT <>!/~ATN >=0# POKE @©▗- NEXT <> CAT SCREEN$ ** SAVE V▖og:s PLOT :▝}[P]▝ PLOT [I]▗gTAB NEW <>(@STR$ ▘( SAVE ▚[A]NOT ' SAVE o▜ LLIST o0$ DIM >< GO TO RESTORE RETURN 8 RUN 5(! CLEAR PLOT 4><ATN ▘ RETURN ▗ OVER SAVE !U L RUN 4 CLEAR ▘ CLS DIM ▝#[L]▜ GO SUB SBIN PLOT zCOS USR ASN ▝# CLS ▖ GO SUB S SAVE SAVE STOP !l0▚ RANDOMIZE GO SUB S RUN @▝#0 ▜ RANDOMIZE LPRINT !LN CLEAR > MOVE S* SAVE ` @"[K]6 RANDOMIZE OVER >g▜o▗!LEN RANDOMIZE o FORMAT $<> RESTORE !u RANDOMIZE AND CODE SGN ~ LLIST <> INPUT LLIST CLOSE #>=ABS SIN FN [P][G]▙▚~wpjd^YTOKGC?;852/,*'%#![A] CLOSE # RANDOMIZE IF RANDOMIZE ACS CLEAR POKE IF f CLS 9 CLEAR = CLEAR ACS CLEAR j CLEAR n▗VAL$ CLEAR SIN ! IF 2 IF C0▗ IF IF RANDOMIZE p ▞T IF ▜ IF ▜ IF [P]0▛▘`▗P▞P▞▘ppp▚3[P]$($!#@6▘ ▘/▗PP▝F SAVE ▖z CLS [F] CLS z CLS VAL$ P▝zP ▝<= Pp p p pHpX`d▝[F] H LPRINT CLS LPRINT CLS DRAW ▚ DRAW ▘ OVER DRAW Ap▘m▗p▘ PLOT p▘0,a1p(▗PQp!▘:▖!▚!#$#pr▘[F]▟▘SCREEN$ ▗SCREEN$ 7▘[L]p4p404 STOP ▝>= PAPER ▝CODE P▝^$P2q▜3▗▘ INPUT ▝e'▗y▝ FLASH ▘p(▝,#& X0CHR$ N$ b▝0 INK l▝X▝0X MOVE ▝ VAL$ l▝v▘!$!▘ RUN [A CLEAR YA<=▝0@O▝ THEN [S]▝Jr1▝[A]5▘▗ CLEAR j▜▗ DRAW ▝ CLS ▝ IF 6>▚"!"▗ DRAW ▝ CLS ▝ IF [D]▗INT u▝ CIRCLE y▝ LOAD 0Hh0▘H FORMAT ][F] ▝▗ CLEAR ▗▗ LINE DRAW IN ▖[O][M]k`s[O]b▖©:ATTR U▖VAL 8:8:▖t9ACS ▖0▖VAL [E]S[A]▖TAN U+U{T{W{V{QUUSR U▞ LLIST kA[O]b[O]bh▖ OPEN #Ug▙[G]tiATTR FTU[G][G]f COPY COPY COPY COPY COPY _ CLEAR [C]RJ<|BB|DB<@<B▝ RETURN CHR$ ▘CHR$ B<<> LINE ! GO TO RETURN
