| Is a part of release: | Cauldron 2 |
| File size: | 40960 |
| md5: | 0c38d38f1c0692cd51d2488fafa457b5 |
1 CLOSE #USR 0: REM DISK LOADER BY KULIKOV DMITRIY NEXT 1N GO SUB ^!@@ COPY u GO SUB VAL !FN aPOINT a?[M]CODE w GO SUB VAL !SCREEN$ ]BIN @~POINT ~FN w#xLEN NEXT LINE I(<>IN [tG▜D[H] PRINT DIM [S][C] COPY ACS THEN FORMAT IN LN INT S▞ OR NEW TAN DATA ?[U]^ OVER [P]PEEK ▛c▖[Q] BEEP ATN NOT PAPER [F]▛[B][A][O]vSIN Vg AND POINT o{▗BIN o OVER .Uv[B]% MERGE SCREEN$ ▚<=UR2 GO SUB a'3k[D]xJ{w[M]INKEY$,>INT STR$ LIST SGN FOR ASN VERIFY CLOSE #[L]AT @[H] INPUT xWZ#|[J]FN FLASH <= OR LEN GO SUB BORDER X LET x FORMAT COS SGN CLS v AND FORMAT MOVE GO TO VAL V▟cN▟,[K]/ TO RETURN [B]*▚ACS P POKE iATN CLOSE #E PAPER FN [J]@▖FN VAL$ ?▝▙▟Y[E]▘ COPY 6 RETURN STOP ▛ CLEAR LOAD +5GU[m©'5K]o}k5;-_M{ug=/kuGU[-?guK]/=+u{m_M;5'}o+5GU[m©'5K]o}k5;-_M{ug=/kuGU[-?guK]/=+u{m_M;5'}o[N]ATTR ASN <= MERGE FLASH GO SUB COPY ▟[L][F]PIASN THEN INVERSE LOAD CLEAR FOR [F]▜ASN SQR TAB OUT STEP CLS PRINT BORDER [F]▛ABS CODE [N] FOR PRINT <= MERGE FLASH TAB IN ▟[L][F] BORDER PRINT THEN INVERSE CODE ABS ATTR [F]▜ PRINT CLS GO SUB OUT STEP SQR ASN PI[F]▛ CLEAR LOAD [N]ATTR SCREEN$ 869!@@ COPY u GO SUB VAL CODE 2H/!@[M]@ GO SUB VAL !X" CONTINUE CLEAR !@TAN " GO SUB CLEAR !?X" PAUSE CLEAR !©TAN " RUN CLEAR OR * CONTINUE CLEAR GO SUB [ GO SUB CLEAR #" CONTINUE CLEAR GO SUB S GO SUB CLEAR +w MERGE @@ MOVE RESTORE bk@T] LLIST DIM * PAUSE CLEAR GO SUB [ RUN CLEAR +" PAUSE CLEAR GO SUB S RUN CLEAR #w MERGE @ MOVE RESTORE bk@T] LLIST GO TO !@[M] GO SUB VAL STR$ [I]<>urrent Valuesuse RAM UntilWrite textX NEXT STEP [C];; LLIST o RESTORE INK MOVE INK !@[M] RESTORE MERGE RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST BRIGHT LLIST MOVE CAT LLIST # <=!@TAN INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K][K][K][K]>=[K] COPY [K] RETURN [K] COPY [K][Q] COPY COPY DRAW NEXT DATA >=[A] CBBIN [K]▗▘BA@[Q] FORMAT CONTINUE CONTINUE [K][O] COPY COPY NEXT CHR$ < DRAW CLEAR [K] RANDOMIZE [K] PAUSE [K] DATA d PAUSE LPRINT [K][O][K] COPY LIST AND a LPRINT dN[B] NOO#'O CAT [K] COPY [K][Q][K] COPY RETURN |1&▖▙C!!▞▞EE%'#[B][D] TO LPRINT CLS [K] COPY [K]O[K][K][K][K][K][K],[K] COPY CAT '[K]©[K] COPY [K]GUSR dINT Y,TSCREEN$ P [K][K]USR USR `p8[I] TO NEW b08SGN [O]Og1#[K] COPY LLIST TO a▝a[K][B][K]!AA[B][B]00p▞&p[K] COPY [K]-[K][K][K] RETURN WBIN REM E69[M]F BORDER g[K]▖|PEEK o MERGE +[K][K] DEF FN BORDER p BORDER [K]"[K] COPY LPRINT TO 2BB[K]"[S]c[Q] ?[K] COPY [K]?1``bABFEA@@@!!?©o NEW DRAW SAVE LIST LPRINT LPRINT USR USR [K]0p`@A/*▜an[F]jASN yPEEK _CODE _/[H] THEN BEEP THEN g7;{ FOR u IF CLEAR ~?<=NOT @[K]USR LPRINT 0[K]USR ©USR COPY `[K]![K] COPY ©|qry|[K]~|yb LIST DRAW [K] COPY [K].p BORDER IF <NOT PLOT LOAD [P]VAL N COPY ©IN ©PEEK ; LOAD /[K][H]USR USR LPRINT LET INPUT COPY READ STR$ CHR$ TAB BEEP ©>▘bO/>~©[K] COPY RETURN RETURN DRAW MERGE ATTR C DRAW COPY COPY ©[P] LOAD NEXT CLEAR } RETURN COPY © COPY [P]▜STR$ [K]USR [K]▞SGN RETURN RETURN © OUT +USCREEN$ [A][K]USR USR ` [K] x DRAW LIST [K]#[K] COPY ▚0I▚▝CHR$ DD[K]E OR EDNOT @@?[K] COPY } REM COPY aBIN SCREEN$ SCREEN$ © COPY ©ATTR U[G]IN RETURN LIST ? COPY U COPY COPY ©{y COPY COPY DRAW LIST ▗CLs©[K] COPY DRAW SAVE p LPRINT USR [K] LPRINT SAVE INPUT BORDER a[K]USR LPRINT LPRINT FOR }~IN OUT OUT LOAD RUN RUN {;= CLEAR [K] RETURN ©^([A]▖USR h(0[K]8[K]8[K]#[K] COPY © TO !▗BC!![K][A][B]""BIN c?[K] COPY RETURN OUT FOR uINT INVERSE n7[L] CLEAR CLEAR /VAL$ PLOT SQR INVERSE INPUT ©IN CAT RUN CLS ©>p DRAW RETURN USR T RETURN RETURN DRAW LIST LPRINT & DRAW SAVE LIST USR [K]USR LPRINT p8<<PEEK OVER LOAD RUN wATN INT PAPER PAPER GO TO CONTINUE LPRINT LIST SAVE SAVE DRAW SGN ^▙[K]=bd@| SAVE USR [K] LPRINT [K][K] COPY ▚0I▚▝B[K]D<=BIN BIN AND OR E[K]D$NOT [K] COPY [K]USR LPRINT DRAW COPY uINT ]CODE MERGE REM PRINT RETURN ©;[N]▙ BORDER PLOT IN _[P]?ATN o_ IF RUN INT RUN ;w;wSQR q DRAW RETURN COPY BEEP RETURN OVER RETURN VERIFY [K] RETURN PLOT ~ PLOT CLS RUN CLS w{u{;5;=©_o_n MERGE CODE MERGE VAL$ MERGE VAL$ GO SUB ERASE POINT V[K]@@[Q]@ @ P P P P P[Q]P LIST SAVE >/[P]??~ DRAW RANDOMIZE RANDOMIZE READ ▜[K]%[K] COPY <=9 LLIST BIN POKE DATA SAVE '8@ [A]<> DATA LET [K] COPY [K]USR LPRINT pLN OUT LOAD uINT ]VAL$ BEEP LOAD uATN g INPUT INVERSE [K][K]:ukw INPUT INVERSE INT PRINT FOR UATTR _PEEK xc?©[K] COPY _CODE _CODE _IN }SCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ TFN TFN Q[S]E*[K] DRAW [K] RETURN PAUSE GO TO DRAW TAN h FORMAT [A] USR [K]([K] COPY LIST BORDER NEW DATA >=[S]DL[K]▞▟BIN CHR$ STR$ `[A]▖c SAVE [K] COPY [K]USR LPRINT xLN /VAL$ BEEP BORDER CLS CLEAR u SAVE t IF POKE INT uSQR r DIM PAPER PRINT NEW ASN :[K] COPY RUN FOR VERIFY VAL$ TAT /AT /POINT sSIN p[Q]@[Q]A'@[Q]@[Q]@ @@@[Q][Q] P[Q]@[Q]@@[K]? CLEAR RETURN COPY FOR MERGE SCREEN$ U*U*U*U*T*T(P @ @@[K]![K] COPY NOT 9STR$ [A]>= DATA PAUSE NEXT [K] RANDOMIZE CLS r$▖Q# LET [K] COPY [K]USR LPRINT LPRINT VAL FORMAT VAL SAVE CIRCLE LN CIRCLE SAVE BRIGHT DRAW BRIGHT GO TO BRIGHT DRAW DRAW USR RETURN [K] COPY SAVE LLIST ©© COPY COPY MERGE SCREEN$ MERGE ▘9nSTR$ * MERGE SCREEN$ MERGE REM }[K]? CAT LET BRIGHT DRAW RETURN COPY uATTR MERGE LINE E STOP e[S]e[S]e[Q]@@@@[K]&[K] COPY PEEK [S]LEN Q[A][A]PPRS[K]R OPEN #[B]QQ OUT USR [K] COPY [K]+USR LIST SAVE DRAW NOT LET SAVE SAVE [K] DRAW RETURN ~[K] RETURN _VAL$ WVAL$ WATTR UATTR WCODE _PEEK CLEAR REM USCREEN$ MERGE IF } RETURN [K]# RETURN USR COPY OR STOP LET SAVE BRIGHT AT T,▖[E][E]>=D▖D▖▖[K]%[K] COPY SAVE CLS PLOT tzINT INT Z* FORMAT CONTINUE POKE vzz▗▜[K]HUSR @[Q]@[Q]P[Q]PFN PFN TFN CLOSE # REM POKE IF u REM UINT }▙> PRINT REM USCREEN$ USCREEN$ USCREEN$ U[S]U"A"@[K]1[K] COPY OUT [K]_^/YZY/^[K]_ OUT [K] COPY [K][@@@[K]8[P][A] #?EXP STR$ LLIST RANDOMIZE RANDOMIZE y9[J]I)I[J]9y RANDOMIZE RANDOMIZE LLIST STR$ [P]VAL [Q][Q]PILN [K][R] COPY [K]?![K]-!?[K] COPY COPY [K][P] SAVE ? [K]'&!'8 COPY COPY [K][P] LPRINT [P][P][P][P]?©[K] COPY CAT O CAT [P][P][K]? COPY [K][K][K][K][K]X[K]F[K][K]F[K]h[K]F[K]h[K]F[K]h[K]F[K]h[K]h[K]F[K][K]F[K]F[K][K]D[K]FG[K]D[K]F[K]G[K]D[K]FD[K]GDD[K]F[K]G[K][K]F[K]G[K]C[K]FGGF[K]C[K]F[K]GFF[K]C[K]FG[K]F[K]C[K]FG[K]F[K]CC[K]F[K]F[K]CC[K]FG[K]FA[K]F[K]C[K]FG[K]F[K]FGGCC[K]FA[K]FGG[K][K]F[K]G[K][K]F[K]GGG[K]FN COPY COPY ![B] CONTINUE ~ RETURN +~ RETURN FLASH (#~ GO SUB FN +F+~+ DRAW | RETURN _ LLIST } RETURN COS BRIGHT <>_v> LOAD a$CODE a RETURN " IF e<>0 THEN PRINT e;" disk error ";a$: STOP RETURN a CONTINUE CLEAR e FLASH nSewitchFC2PfprogAsaver CONTINUE CLEAR THEN R_ FLASH FN aF=52180 FLASH $ FLASH FLASH MLN _aaEXP _LEN 3 BORDER _` AND +D/ FLASH FLASH MLEN 3`ATN -`? DRAW CLEAR +-e3X' GO SUB Rv>NOT TAB a READ a![ COPY Z COPY 6 GO SUB LN >2H/ OPEN # RETURN ! READ a1^#V# MERGE INVERSE LLIST ^#V#zCOS INVERSE DIM RESTORE > COPY 7 STEP V LLIST NOT BIN a< CAT STR$ CLOSE # THEN FLASH FLASH FLASH I FLASH LPRINT 7 CIRCLE 3[I]~ DRAW ll7 CIRCLE 88 LPRINT LPRINT 7 CIRCLE 3[I]~ DRAW llg TO 088 LPRINT LPRINT 7 CIRCLE 3[I]~ DRAW llg TO `088 LPRINT USR LPRINT 7 CIRCLE 3[I]~ DRAW llg TO ``088 LPRINT LPRINT 7 CIRCLE 3[I]~ DRAW llg TO `088 LPRINT LPRINT 7 CIRCLE 3[I]~ DRAW llg TO 088 LPRINT LPRINT 7 CIRCLE 3[I]~ DRAW llg TO `088 LPRINT LPRINT f SAVE > BRIGHT GO TO ?f3f& NEW ? AND LIST LIST [I] DEF FN NEW NEXT ©COS 3 NEXT NEW DEF FN [I] LIST LIST ? AND & NEW 3f?f GO TO > BRIGHT f SAVE LPRINT LPRINT 880`g TO ll~ DRAW 3[I]7 CIRCLE LPRINT FLASH LPRINT 8808c DRAW gdf TO f DRAW 7x;|fUSR LPRINT 9 LPRINT 3 CIRCLE g CIRCLE fxf COPY g CIRCLE 3 CIRCLE 9 LPRINT LPRINT USR f;|7xf DRAW f TO gdc DRAW 0888 LPRINT FLASH `USR LIST 1 AND /o CLS 0 SAVE USR USR VAL 986 CIRCLE 6 CIRCLE 7 CIRCLE VAL `USR FLASH USR LPRINT @USR `[Q]X(LN @USR FLASH @▞▘B(@ FLASH FLASH USR USR `USR FLASH VAL @X @`USR FLASH @A FLASH 0x| DRAW p LOAD LIST CAT LIST LPRINT USR LIST ~ SAVE > LIST LPRINT READ LIST NEXT SAVE wx?8 FLASH 0px DRAW 8 INPUT LIST CAT LIST <= LPRINT LIST |x~ LPRINT USR ▝ LPRINT 0p NEXT SAVE RUN LN FLASH 0| SAVE ~ GO TO 60& FLASH 17PEEK COPY COPY DRAW DRAW RETURN CLS 80 FLASH 8|`| LPRINT oUSR NOT ▝ LIST ▝ LPRINT ▝USR NOT NOT USR READ LPRINT RUN LPRINT > FLASH 0px SAVE 8` LIST LIST <x~` p8 FLASH 0p`0 FLASH 0 FLASH 00 FLASH < PLOT SAVE FLASH p SAVE p8 BRIGHT xl>31a SAVE LIST LIST ``ffccaSTR$ USR USR USR USR USR USR `USR cUSR 6USR <USR @0 LIST COPY < PLOT SAVE 0p SAVE p8 DRAW p<xSGN [I][I]<<l DRAW LIST LIST ```` TO TO AND AND <=▚▝[I]▝ LIST READ RETURN FLASH < PLOT SAVE FLASH p SAVE p8 DRAW p<p<0000 SAVE SAVE LIST 0000`` LPRINT ``````` x COPY < PLOT SAVE 0p SAVE ` SAVE TO LIST BRIGHT LPRINT SGN ▚66f RETURN CIRCLE CIRCLE llff<= TO TO CIRCLE LIST LN L PLOT COPY < PLOT SAVE FLASH p SAVE LPRINT SAVE TO LIST `<10USR `USR SAVE CIRCLE CIRCLE 66ccaSTR$ USR LPRINT USR USR USR USR `c6<0 LPRINT RETURN < PLOT SAVE 0p SAVE ` SAVE TO LIST BRIGHT LPRINT SGN ▚66f RETURN CIRCLE CIRCLE ll AND AND ▜▚[I] LIST <= DRAW FLASH < PLOT SAVE FLASH p SAVE p8 DRAW p<p<0000 SAVE LIST LIST 00008<>88000VAL LIST 0<©USR < PLOT SAVE 0p SAVE p8 DRAW p<xSGN [I][I]<<l DRAW LIST LIST 0000llffgfcccca[I]! LIST x COPY ▝▝ READ GO TO NEXT ?o OUT LPRINT OUT LPRINT RUN LOAD LIST RANDOMIZE PEEK CIRCLE RETURN OUT LIST COPY c LIST COPY `IN VAL RUN NOT `? LLIST LPRINT OUT SAVE USR BORDER DRAW USR RANDOMIZE RETURN COPY COPY ©USR ` READ READ wt NEXT IN o CAT LPRINT RUN LPRINT RUN NEXT DRAW RANDOMIZE INVERSE CIRCLE RETURN LOAD DRAW COPY q SAVE COPY |IN IN x RUN <=[I]? LPRINT OUT SAVE BORDER DRAW RANDOMIZE RETURN COPY COPY ©USR 88 BRIGHT NEXT INVERSE o LOAD LPRINT CLEAR LIST RUN RETURN COPY RANDOMIZE COPY = RETURN CLS COPY COPY | COPY COPY ©IN IN RETURN RUN <= LIST ? LPRINT OUT SAVE BORDER DRAW RANDOMIZE RETURN COPY COPY ©USR USR LIST < SAVE x<| LIST COPY ? DRAW COPY COPY TO ? COPY ? COPY ? COPY TO ? COPY ?? SAVE ©USR ? COPY DRAW COPY RETURN 008p< LIST < LIST < LPRINT COPY DRAW COPY COPY TO ? COPY ? COPY ? COPY TO ? COPY ?? SAVE ©USR ? COPY DRAW COPY RETURN <f<©f RETURN ©ABS RETURN DRAW <? GO TO 7USR USR FLASH ffABS SAVE ?< DRAW <<|>x`` FLASH ff<ABS LIST x8<<000© LPRINT @STR$ ? COPY NEXT TO ` SAVE FLASH LIST USR PAUSE STR$ STR$ © AND x DRAW 0 FLASH © SAVE USR RESTORE LPRINT BIN NEW ?|< FLASH }USR PAUSE USR RUN PAUSE COPY ▙ FLASH © SAVE USR RESTORE LPRINT BIN NEW ?|< FLASH LIST USR PAUSE STR$ STR$ © AND x DRAW 0 p CAT NOT DRAW COPY DRAW READ COPY < AND DRAW COPY INPUT GO TO < CLS LIST [M]< DRAW ><=USR COPY COPY ?USR LIST < DRAW LIST FLASH x CAT NOT COPY LIST DRAW READ LOAD < AND NEXT COPY INPUT GO TO <; LIST [M]USR DRAW ><= CIRCLE COPY COPY ?USR LIST < DRAW LIST FLASH x CAT NOT COPY LIST DRAW READ LOAD < AND NEXT COPY INPUT GO TO x; LIST SGN USR DRAW > CAT VAL DRAW DRAW ~? LPRINT FLASH NOT NEXT ? COPY c< COPY p COPY ?3 CLS CAT 7w> OUT <?<9| LIST LIST READ USR COPY USR COPY DRAW LIST < LPRINT ?USR FLASH NOT NEXT USR COPY <=?c< RUN p COPY CAT 3 CLS CAT 7w> BRIGHT <?9| LIST LIST READ USR COPY USR COPY DRAW LIST < LPRINT ?USR FLASH NOT NEXT USR COPY <=?c< RUN p COPY CAT 3 CLS CAT 7w BRIGHT ?=|8 LIST NEXT USR LPRINT ?STR$ ?~ DRAW SAVE pUSR FLASH 008<x88 FLASH <8<88< FLASH LPRINT VAL NOT NOT 0o PLOT oSQR INVERSE PLOT FORMAT [A]c▜ LPRINT ACS 0USR ▚0▚NOT NOT USR FLASH p FLASH FLASH USR 8USR LPRINT `USR c AND USR ? DRAW NOT SQR INVERSE NOT DEF FN [A]s LPRINT `00`00` LIST 80 LPRINT 0003 TO ? DRAW ?; BRIGHT DRAW `<>[D]NOT ▜ LLIST NOT ▚`a``USR ▚USR a▚aNOT NOT NOT NOT USR p FLASH LPRINT <USR < LPRINT USR [O]`y3c AND TO USR `? DRAW `NOT SQR INVERSE NOT ▙[A]q[I] LPRINT [I]`[I]`USR 10`USR FLASH LPRINT LN pNOT NOT RUN ?; BRIGHT DRAW USR `[A]`USR LPRINT 0`0USR `USR USR , FLASH x3STR$ TO ` LOAD RUN NOT ; BRIGHT NOT ▙[A]q[I] LPRINT [I]0[I]010`USR FLASH ABS COPY `~ LPRINT LIST COPY LIST 0f0f0f8<0000```▝ SAVE 6NOT lfff FLASH ABS VAL COPY x~ DRAW ; BRIGHT 9 COPY [M]0f0BpB<00``▝ SAVE 6NOT lfff FLASH LIST ABS LN COPY x=~SGN ; BRIGHT y COPY [O] LPRINT fp<0`▝ SAVE v BORDER n LIST RANDOMIZE USR CLS LPRINT COPY VAL COPY USR ABS SAVE ?PEEK USR PEEK USR ?SGN x;SGN 8><SGN OVER LOAD RUN VAL NEXT LPRINT LLIST LIST ;USR LOAD SAVE LET USR CLS LPRINT CLS VAL COPY USR COPY SAVE ABS USR ?PEEK SAVE PEEK 8?SGN ; BRIGHT >^?NOT CIRCLE STR$ LIST SAVE 0` FLASH LIST RANDOMIZE USR CLS LPRINT COPY VAL COPY USR ABS SAVE ?PEEK USR PEEK SAVE ?SGN 8; BRIGHT >^?[P] CAT NOT CIRCLE LIST 8 SAVE 8p` COPY IN LET USR CLS LPRINT CLS VAL COPY USR COPY SAVE ABS USR ?PEEK SAVE PEEK x7SGN ? BRIGHT ?^[O] OUT LOAD NOT CIRCLE ▝ LIST ` LIST FLASH [P]USR OUT LPRINT COPY LIST COPY SAVE ABS SAVE } DRAW } SAVE = DRAW = BRIGHT p<|x8 DRAW x= SAVE 8{ SAVE RUN LPRINT LOAD CAT VAL ▜LN BRIGHT RUN OUT USR OUT LPRINT COPY LIST COPY SAVE ABS SAVE } DRAW } SAVE = DRAW LPRINT ; BRIGHT LPRINT z| LIST x DRAW LIST SAVE SAVE p LET SAVE 1 LLIST LIST NOT LPRINT USR USR LPRINT p DRAW [P]USR OUT LPRINT COPY LIST COPY SAVE ABS SAVE } DRAW } SAVE = DRAW LPRINT ; BRIGHT LPRINT z| LIST x DRAW LIST RANDOMIZE SAVE p NEXT SAVE 1 BORDER LPRINT NOT LPRINT LIST x OUT USR OUT LPRINT COPY LIST COPY SAVE ABS SAVE } DRAW } SAVE = GO TO LPRINT ; DRAW LPRINT z DRAW LIST y SAVE LIST CLS LIST p RUN USR 1 BORDER NOT USR ▝ LPRINT p DRAW SAVE FLASH @USR W LIST FLASH LPRINT PRINT <ox` FLASH ;8USR 6USR |```USR 0 TO 0▚ff AND AND ▚ AND l< COPY <ox0?=<USR <USR 6USR ?USR 33cc READ aSTR$ STR$ STR$ STR$ ▝▝<=©USR <ox` FLASH ?USR USR USR ````0 LPRINT COPY <ox03;=alUSR lUSR fUSR ©USR 0066ff READ 332o COPY <ox` FLASH 38USR USR <`USR `0000ll AND AND ▚ AND l<©USR <ox03;=alUSR lUSR fUSR ©USR 0066cc LLIST aSTR$ USR USR USR USR USR USR USR READ USR ? LPRINT <ox` FLASH ?<|< RETURN <ox0?=<USR <USR 6USR ?USR 66ff NEW f AND AND AND AND ▚▗ COPY ▝USR ▝USR <=7 DRAW CAT CLS PLOT CLS SAVE RUN LOAD }[P] CLS © AND COPY COPY CLEAR NOT LOAD ▜ DRAW CLS ? BORDER ©[P] COPY x RETURN COPY <=<= INPUT . CLEAR CAT NEXT PLOT LOAD SAVE ? CAT LOAD SQR [P]? RUN ©▙ COPY > COPY CLEAR CLEAR READ LOAD DRAW CLS ? BORDER ©[P] COPY x RETURN COPY ;SQR CAT RUN PLOT IN SAVE COPY ? LOAD SGN COPY [P] COPY OUT ©©> COPY RETURN COPY © CLEAR CLEAR READ LOAD DRAW CLS ? BORDER ©[P] COPY x RETURN COPY FLASH © COPY COPY RETURN COPY FLASH CLEAR © COPY © PLOT COPY RETURN DRAW 0 LIST #USR COPY DRAW ? DRAW LIST LPRINT FLASH DRAW COPY USR ? COPY DRAW ? COPY COPY USR COPY COPY DRAW RETURN COPY COPY ?IN COPY RETURN COPY RETURN LIST ? RETURN COPY DRAW DRAW DRAW ?!USR LPRINT COPY FLASH © COPY COPY RETURN COPY FLASH RETURN IN COPY © COPY o RETURN ?BIN SAVE DRAW ? COPY LIST ? FLASH ? SAVE COPY SAVE ? COPY DRAW COPY COPY DRAW ? COPY COPY SAVE COPY COPY IN USR COPY CLEAR DRAW © COPY ©© DRAW SAVE ?>=? COPY ▗ DRAW ? COPY USR LIST DRAW 0 BRIGHT LIST LET DRAW ? COPY LET DRAW FLASH p CIRCLE CIRCLE USR p LET USR ?; LET USR USR p CIRCLE CIRCLE p FLASH LPRINT VAL VAL ? LPRINT COPY DRAW ? LPRINT VAL VAL LPRINT FLASH ▚ DRAW LIST ©[I]0 FLASH ▝ CIRCLE 4 COPY ,0 FLASH USR LPRINT aVAL ?X RETURN 0 FLASH ▝ CIRCLE 4 COPY ,0n COPY LPRINT PLOT COPY SAVE N© LPRINT 7© LIST {© DRAW '? LIST FLASH x PRINT ~~ IF RUN ~<4>n©©?8<|v©©>l/6n©~><|v~6<0p VERIFY RETURN LOAD ~|<<< LPRINT LIST LPRINT 0`USR FLASH USR LPRINT LIST SAVE xp0USR p FLASH ` LIST LIST COPY RETURN LIST LIST LIST LIST m>© OVER USR ▝ TO USR BORDER © LPRINT ©IN |© COPY COPY STR$ DRAW [P] NEXT RETURN © COPY 0©VAL COPY 0 COPY RETURN DRAW USR LPRINT 8| RETURN DRAW SQR RETURN [D]©6 RETURN CLS g9 SAVE LOAD LPRINT COPY ▝ LPRINT COPY NOT COPY BORDER ▙©© COPY RETURN DRAW DRAW <~ COPY ABS ▝ FLASH BORDER © LPRINT ©PEEK DRAW ©▝ COPY COPY NOT DRAW [P] COPY RETURN COPY COPY 0©VAL ?VAL ??© RETURN DRAW x FLASH 0 DRAW ?IN vUSR PLOT USR ? COPY LIST © COPY x TO SAVE NEXT SAVE COPY SAVE COPY DRAW COPY COPY COPY DRAW COPY {~~~|~`|0 SAVE LIST FLASH ~ COPY ©USR COPY USR © COPY VAL$ NEXT LPRINT RANDOMIZE LPRINT CLEAR PLOT j FLASH ~ COPY LOAD USR COPY USR COPY LPRINT ~@~` COPY PLOT j FLASH ~ COPY CLS USR COPY USR COPY SAVE CAT LOAD USR COPY PLOT j FLASH ~ COPY CLEAR USR COPY USR © COPY VAL$ NEXT LPRINT RANDOMIZE LPRINT CLEAR PLOT j FLASH FLASH ~ COPY COPY @ COPY USR COPY LPRINT ~@~` COPY PLOT j FLASH FLASH ~ COPY COPY USR COPY USR COPY SAVE CAT LOAD USR COPY PLOT j FLASH FLASH ? COPY DRAW CIRCLE CLS ` COPY CIRCLE CLS p? RETURN BRIGHT ? COPY SAVE ? COPY GO TO ? COPY SAVE ? COPY GO TO COPY LIST COPY SAVE COPY LIST COPY USR ~0000 FLASH USR 0`USR x LIST ` FLASH 00``USR LPRINT << SAVE LPRINT 0>>|nzv<>s{o~~ BORDER FLASH COPY f<>g OUT INVERSE OUT {>USR 0? LPRINT sUSR OUT LPRINT FLASH ` CAT `<= LPRINT aUSR ?USR wpg0 CLEAR SAVE CIRCLE CIRCLE CAT [I]USR `0x LIST USR READ SAVE © RETURN ?7 CLS s[J]USR s[J]USR w LET USR © LPRINT USR 88[O] SAVE ~ COPY USR COPY LIST USR SAVE ?|< LIST <© DRAW LOAD LIST <=<= LIST NOT BORDER LET <= LOAD LET COPY COPY NEXT COPY COPY © NEXT RETURN ©STR$ RETURN ?▝ DRAW ? LET DRAW © COPY LIST READ COPY USR USR RETURN FLASH OUT OUT OUT FLASH pppppppppppppppppppppppppppppppppppppppppppppp FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` OPEN #` STEP ` CAT ` STEP ` OPEN #` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH ` FLASH `wwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwGw;w;w;wGwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwwww CIRCLE Q+ FLASH [M] SAVE 7 SAVE a LIST STR$ LPRINT ▝USR FLASH RETURN ? COPY USR COPY COPY LIST RETURN ? LIST RUN ▙ LIST FOR ABS p GO TO FLASH p PAPER VAL PLOT LIST © LPRINT © LPRINT ©[P] LPRINT ©[P] LPRINT ?oUSR ?oUSR RUN }o RETURN SAVE `<<~~vv<<<~v<88<x~x COPY SAVE COPY SAVE ? COPY DRAW FLASH SAVE RETURN 776USR 7 DRAW p BRIGHT `LN FLASH CLEAR CLEAR CLEAR CLEAR CLEAR CLS RUN < FLASH < COPY USR FLASH USR USR COPY LPRINT COPY LPRINT OUT p SAVE LIST RUN LIST IN SAVE COPY x DRAW SAVE LOAD DRAW ©SGN } SAVE COPY USR PEEK 6 LET PLOT CAT OVER OVER 8 MOVE USR ▙p FLASH LIST < LIST USR VAL < LIST FLASH CAT PLOT SAVE LOAD [P]© COPY COPY CLEAR LOAD DRAW CLS BORDER [P]x COPY ;SQR RUN IN COPY ?SGN COPY COPY OUT ©> RETURN © CLEAR READ ?© COPY RETURN FLASH RETURN |© COPY COPY >© READ DRAW RANDOMIZE <=[P] CLS RUN <=9 DRAW RETURN COPY COPY USR RETURN COPY COPY COPY ~© COPY FLASH ©?IN IN IN [P] CAT USR NOT <= DRAW CLEAR LLIST LOAD CAT READ CLS © COPY FLASH RETURN <~ RETURN RETURN RETURN DRAW CLS o LOAD <=y DRAW RETURN SAVE SAVE DRAW DRAW RANDOMIZE NEXT LLIST |> COPY COPY RETURN DRAW x RUN 79 DRAW RETURN |c COPY COPY COPY RETURN © COPY COPY IN IN ?PEEK IN ?©©©© COPY COPY COPY ©? COPY FLASH RETURN DRAW LOAD CAT OUT OUT [P]g SAVE ©IN OVER BRIGHT LPRINT LIST NEXT BORDER 8| RETURN RETURN COPY COPY ~ LPRINT 9}|< COPY COPY COPY RETURN RETURN USR SAVE 0| RETURN COPY COPY RETURN | COPY ©©NOT USR ? COPY COPY COPY DRAW RANDOMIZE s NEXT DRAW DRAW ? COPY FLASH ? CAT BORDER LIST LIST LPRINT USR USR FLASH ?© COPY FLASH LOAD RUN CLS RANDOMIZE DRAW DRAW CLS RUN NOT BORDER BORDER ▜; CLEAR COPY FLASH p9}0 COPY FLASH | FLASH 3 CLEAR CLEAR p▜ COPY FLASH >[J]©IN IN DEF FN USR ? COPY COPY CLEAR CLEAR DRAW s DEF FN LPRINT COPY COPY COPY ©< COPY FLASH >? COPY COPY COPY NOT LET DRAW DRAW =STR$ LIST DRAW NEXT CAT ?© COPY COPY COPY COPY FLASH NOT NEXT LET LIST FLASH NEXT RUN RUN LET COPY FLASH <=<= RUN NEXT USR CAT ? FLASH = DRAW COPY COPY COPY RUN RUN LIST NEXT CAT ?©© LPRINT DRAW COPY COPY COPY DRAW DRAW y CLEAR p? COPY FLASH ©<= SAVE DRAW DRAW CAT CAT RUN LIST LIST NOT COPY DRAW LIST NOT OUT OUT IN ©?<= LIST NEXT RUN RUN NEXT NEXT STR$ < COPY FLASH ©[P]USR CAT ? DRAW SAVE LIST READ OUT USR RUN LIST DRAW DRAW COPY COPY COPY COPY ?©©© LIST NEXT NEXT LOAD CAT ?<NOT RUN LIST PLOT CAT ?© COPY COPY COPY COPY | FLASH COPY DRAW CLEAR LET TO ?©©? COPY COPY COPY COPY ©~|© OUT CAT TO |0 FLASH NOT RUN LET LPRINT USR USR USR FLASH w RUN gq DRAW RANDOMIZE COPY FLASH ©[P] RETURN COPY COPY COPY DRAW LIST READ <©© LIST SAVE s< COPY COPY COPY ©?USR CAT ??©?<= LIST CAT BORDER RUN NEXT LIST READ RETURN COPY COPY DRAW USR <©©<< COPY COPY ©<<~ COPY COPY COPY ~|© COPY COPY COPY ©©> CAT BORDER READ USR ▙?© COPY RETURN RETURN DRAW LET READ SAVE ©?> BRIGHT LPRINT PLOT BORDER NOT |9s RANDOMIZE pf©[I] LPRINT CLEAR RANDOMIZE LIST ?© COPY COPY COPY COPY ~<>[O][O]IN SAVE RETURN COPY COPY COPY COPY RETURN |s DRAW RETURN COPY COPY COPY < FLASH COPY FLASH CLS RUN COPY FLASH [P] COPY FLASH LPRINT LIST FLASH LPRINT COPY COPY COPY COPY RETURN RETURN RETURN RETURN ?? COPY COPY COPY COPY LIST LIST USR RETURN RETURN RETURN RETURN ©>USR RETURN COPY COPY | RETURN SAVE <=?[P] READ SAVE RANDOMIZE OUT LOAD READ [M]?© COPY COPY © COPY COPY COPY x~ RETURN COPY FLASH RETURN DRAW CLEAR CLEAR CLEAR RANDOMIZE NEXT NOT READ ?IN ▜ RUN NEXT LIST <= OUT RETURN COPY FLASH ©USR <~©©©? OUT LET PLOT RUN READ [O]?©??[P] CAT ▜>| COPY COPY ©? LOAD GO TO LPRINT [M]?©> AND COPY COPY COPY © RETURN COPY COPY x CLEAR CLEAR DRAW SAVE pg9} CLEAR DRAW RETURN RETURN RETURN SAVE RETURN COPY COPY COPY RETURN DRAW SAVE COPY FLASH ©? RUN NEXT CLS CLS RANDOMIZE SAVE NEW RETURN CLEAR {; CAT BORDER USR >©© COPY COPY ~[M]PEEK >< LIST COPY COPY COPY ©©8`>© COPY COPY ©> COPY RETURN RETURN SAVE SAVE p LOAD CAT NOT LIST DRAW COPY COPY COPY ?[P] DEF FN USR CAT ?? DRAW COPY FLASH DRAW USR NEXT BORDER FLASH DRAW RETURN COPY FLASH RUN LOAD OUT [P]?? OUT LOAD NOT BORDER BORDER LLIST BRIGHT IN COPY FLASH READ USR [M]PEEK COPY FLASH > FLASH LIST USR USR TO IN IN |[J] RETURN CLEAR CLEAR s DRAW COPY COPY IN IN ? DEF FN LIST LIST s COPY COPY COPY RETURN SAVE < COPY FLASH |USR USR DRAW COPY COPY COPY NOT ??SGN ? CAT NEXT DRAW RETURN COPY COPY COPY COPY FLASH USR LIST LIST USR USR NOT CAT FLASH USR USR USR USR USR CAT LOAD LOAD COPY FLASH USR READ READ LOAD CAT NEXT DRAW FLASH USR USR LIST USR USR SGN ? COPY COPY COPY LOAD LOAD CAT NEXT DRAW RETURN RETURN ? COPY COPY COPY ??[O]IN FLASH RETURN READ ?? LIST NEXT NEXT LOAD NOT LPRINT COPY ?NOT LIST CLS CLS CLEAR RETURN DRAW SAVE READ CAT LOAD LOAD CAT CAT < COPY FLASH RETURN RANDOMIZE NEXT DRAW ?<= CLS SAVE 0 LOAD ?? COPY COPY COPY COPY DRAW RETURN RETURN RETURN SAVE ` LIST CAT CAT RUN NEXT 0 DRAW <NOT LOAD o NEXT DRAW RETURN COPY COPY COPY COPY > FLASH COPY ?IN 3 DRAW RETURN RETURN DRAW COPY COPY COPY COPY RETURN ~> RETURN SAVE CLS NEXT 3> FLASH 8NOT LOAD FLASH INPUT LOAD NEW ▙?[P] COPY FLASH RETURN RANDOMIZE © COPY COPY COPY ?<= LIST < RETURN RETURN 8 DEF FN < COPY COPY COPY RETURN DRAW NEXT DRAW DRAW RETURN DRAW READ LIST NEXT BORDER LOAD CAT <= LPRINT © COPY COPY ?< RETURN RETURN << COPY COPY RETURN <<~ COPY COPY COPY ~>x RETURN COPY COPY COPY RETURN RETURN | SAVE NEXT BORDER <=q DRAW RETURN COPY ©©? LPRINT <= RETURN DRAW |;o BORDER NOT >[M]USR DEF FN [P]IN [P]` LET DRAW RETURN COPY COPY COPY COPY ~<|yy CLEAR LIST `© COPY COPY COPY COPY ©>USR LPRINT DEF FN ?© COPY COPY COPY < FLASH s= FLASH z?7<[K] CAT PEEK COPY COPY CLEAR >w7>IN © RETURN CLS GO SUB NEXT <= OUT STR$ BORDER OUT © CLEAR CLS RUN CAT FLASH SAVE LIST USR FLASH COPY COPY DRAW LIST LIST LIST USR ???© RETURN DRAW READ OUT IN IN [P]? DRAW INPUT LOAD [P] COPY COPY CLS RETURN BORDER FLASH DRAW oUSR FLASH COPY COPY COPY ?© COPY COPY RETURN COPY FLASH ©© NEXT CLS COPY FLASH CLS COPY FLASH OUT <= COPY COPY RETURN DRAW COPY COPY COPY COPY COPY FLASH COPY FLASH SAVE COPY COPY COPY LIST COPY LIST COPY COPY DRAW LIST LPRINT USR FLASH DEF FN SGN FLASH pp LPRINT USR <=^ DRAW GO TO SAVE <Y NEXT } COPY COPY IN | LPRINT USR USR INPUT GO TO SAVE | CLEAR RETURN © OUT ATN CAT READ CLS BORDER CLS RETURN IN OUT LOAD NEXT FLASH FLASH SAVE LIST USR USR COPY COPY ? DRAW DRAW DRAW SAVE SAVE SAVE LIST USR RETURN ©?<= CLS CLEAR CLEAR SAVE RANDOMIZE DRAW ?w RUN RANDOMIZE COPY COPY OUT © BORDER FLASH ? PLOT FLASH COPY COPY COPY DRAW RETURN COPY COPY © COPY FLASH RETURN RETURN CAT OUT COPY FLASH OUT COPY FLASH CLS READ COPY COPY ©? COPY COPY COPY COPY COPY FLASH COPY FLASH COPY COPY COPY COPY COPY COPY ?? COPY SAVE LPRINT ▜ OUT LOAD LOAD CAT [P]?© COPY COPY >| RANDOMIZE COPY ©©© COPY COPY COPY COPY PLOT o>| RANDOMIZE NEXT BORDER FLASH COPY COPY COPY COPY RETURN RETURN RETURN RETURN FLASH ABS } RANDOMIZE NEXT BORDER CAT [P] DRAW DRAW DRAW DRAW SAVE SAVE SAVE SAVE o RUN RUN BORDER CAT [P]?©> LIST LIST LIST LIST LPRINT LPRINT LPRINT LPRINT =>| RANDOMIZE USR USR USR USR BORDER LOAD COPY FLASH SAVE DRAW DRAW RETURN FLASH ?© COPY FLASH IN OUT COPY FLASH CLS RUN RETURN RETURN RETURN RETURN DRAW DRAW SAVE COPY COPY COPY COPY ©©? COPY FLASH LOAD BORDER COPY COPY ©? COPY COPY COPY COPY RETURN FLASH COPY FLASH RETURN RETURN RETURN DRAW IF RETURN RETURN RETURN FLASH LIST DRAW COPY LLIST SAVE CLS USR LPRINT USR RUN RUN NEXT RANDOMIZE DRAW RETURN COPY COPY USR LPRINT LIST SAVE |>[P] COPY RETURN RETURN RETURN COPY COPY COPY COPY o PLOT SAVE |>[P] CAT BORDER FLASH USR COPY COPY COPY COPY ©©©© FLASH ABS PEEK [P] CAT BORDER NEXT RANDOMIZE USR USR LPRINT LIST ???? PLOT LOAD LOAD BORDER NEXT RANDOMIZE DRAW RETURN LIST `USR LPRINT LIST SAVE |SGN CIRCLE LPRINT LIST SAVE |>[P] COPY FLASH DRAW LET COPY DRAW LET STR$ NEXT COPY LIST COPY COPY COPY DRAW LET <= NEXT OUT ? COPY FLASH DRAW LET NOT COPY DRAW LET STR$ 3 COPY COPY COPY COPY COPY COPY DRAW LIST <= NEXT CAT ?© DRAW LIST COPY FLASH DRAW LIST USR COPY DRAW NEXT NOT ? COPY NEXT <= COPY COPY COPY DRAW LIST <= NEXT TO © COPY LET ?© COPY COPY COPY COPY ©? COPY RETURN COPY FLASH © COPY FLASH BORDER COPY FLASH CLEAR RETURN FLASH DRAW ©??© COPY COPY FLASH ? COPY FLASH ? COPY USR CLS RUN RUN LIST DRAW USR DRAW COPY FLASH LIST LIST LPRINT LIST COPY COPY FLASH LIST COPY LIST COPY COPY CAT CAT VAL ©©USR DRAW COPY COPY COPY COPY DRAW NEXT CAT ? LIST COPY COPY COPY USR DRAW USR DRAW COPY COPY COPY COPY COPY COPY COPY ? CAT NEXT DRAW COPY COPY COPY COPY FLASH ? CAT NEXT COPY ? DRAW COPY COPY COPY COPY FLASH DRAW LIST USR COPY FLASH DRAW LIST USR COPY LIST OUT LOAD LOAD ?? COPY FLASH COPY COPY LIST FLASH COPY COPY COPY LIST NEXT NEXT RETURN RETURN LET ? COPY COPY COPY COPY ? CAT NEXT DRAW COPY COPY LIST COPY LIST ?? COPY COPY COPY COPY COPY COPY COPY DRAW NEXT CAT ? COPY COPY COPY COPY FLASH DRAW NEXT CAT COPY DRAW LIST USR ? COPY COPY COPY COPY FLASH LIST LIST USR DRAW DRAW DRAW DRAW COPY FLASH USR NOT CAT COPY FLASH DRAW LIST COPY FLASH LIST FLASH ? COPY DRAW LIST USR USR FLASH COPY FLASH NOT NEXT COPY FLASH ? COPY FLASH FLASH DRAW COPY ? FLASH COPY COPY COPY COPY < COPY COPY COPY COPY DRAW DRAW DRAW DRAW ?? COPY FLASH COPY FLASH CAT COPY FLASH NOT COPY FLASH CAT COPY FLASH DRAW COPY FLASH DRAW COPY ©©©© COPY COPY FLASH COPY COPY COPY DRAW NEXT CAT ? NEXT CAT ? COPY FLASH DRAW COPY FLASH DRAW DRAW COPY FLASH DRAW COPY ©©©|CO? DRAW NEXT CAT ? COPY COPY COPY COPY ?IN IN OUT OUT LOAD LOAD RUN COPY FLASH DRAW LIST USR DRAW LIST USR FLASH COPY FLASH RUN CLS RANDOMIZE SAVE SAVE LIST USR DRAW LIST FLASH COPY ©©©© COPY COPY FLASH NEXT COPY CAT ?? CAT COPY FLASH COPY FLASH COPY DRAW DRAW DRAW LIST LIST ? COPY FLASH ? COPY FLASH NEXT COPY FLASH NOT COPY FLASH NEXT COPY FLASH ? COPY FLASH ? COPY RETURN RETURN RETURN RETURN COPY USR COPY FLASH COPY COPY COPY ? CAT NEXT DRAW CAT NEXT DRAW COPY FLASH ? COPY FLASH ?? COPY FLASH ? COPY RETURN RETURN RETURN >CHR$ PAUSE DRAW ? CAT NEXT DRAW COPY COPY COPY COPY DRAW CLS CLS RUN RUN LOAD LOAD OUT COPY FLASH ?? FLASH COPY FLASH OUT ??? FLASH COPY RETURN RETURN RETURN RETURN COPY COPY FLASH CAT COPY NEXT DRAW DRAW NEXT COPY FLASH COPY FLASH COPY ??? DRAW COPY FLASH DRAW COPY FLASH LPRINT DRAW COPY FLASH ? COPY FLASH <?<?<?< COPY DRAW COPY DRAW COPY DRAW COPY DRAW COPY |©?| NEXT uUSR 0USR 0 DRAW OW COPY TO COPY USR DRAW NEXT TO 0 FLASH TO USR 0NOT ?<? DRAW COPY /_UUSR USR 0 DRAW UU}UU0NOT 0USR DRAW 000UUUUUDQAOD COPY DRAW COPY NEXT COPY NEXT COPY CAT COPY NEXT < COPY TO NEXT LIST 3? DRAW ? COPY NEXT COPY NEXT < CAT NEXT NEXT USR NOT CAT LIST 3USR NEXT DRAW NEXT DRAW 3 COPY 3 TO NEXT 3 TO NEXT < NEXT DRAW DRAW ? DRAW COPY NEXT USR 3< NEXT TO 3 COPY USR USR LIST TO 30 TO LIST 3USR < NEXT COPY COPY TO COPY COPY COPY < COPY 3 COPY DRAW ? COPY COPY NEXT COPY TO COPY 0 TO 00 DRAW 3 TO <3 DRAW NOT DRAW NOT 3 TO < CAT NEXT 30USR 3 CAT LIST <NOT 03USR < LIST USR ?USR COPY COPY 0USR 0 DRAW LIST FLASH COPY ``` LPRINT FLASH ``` LPRINT FLASH < FLASH 0``USR COPY ~~< FLASH FLASH ©? FLASH RETURN DRAW ` CIRCLE FLASH FLASH 000 FLASH USR p; LLIST 66f AND LIST llfc000000`` BRIGHT ▜? FLASH COPY COPY FLASH DRAW USR ? GO TO LET CLS TO o BRIGHT COS | FLASH 0USR COPY COPY COPY ©©? RETURN COPY COPY RETURN COPY COPY COPY COPY <= PRINT L RUN i BRIGHT 7 CIRCLE LIST USR 0USR TO LIST COPY FLASH COPY FLASH COPY COPY <▝ FLASH FLASH USR USR LPRINT LPRINT LIST LIST CLS zv~<<px808~ COPY CLS RETURN CLS v8v|v|v|v`|©© FLASH COPY COPY ? COPY COPY |v|v|v|vw FLASH COPY ABS FLASH LOAD FLASH |> COPY RETURN COPY RETURN <w FLASH 7ABS FLASH LOAD FLASH `x|~|~|~ FLASH ABS ABS == LOAD FLASH |~|~|~|~©© FLASH COPY COPY FLASH DRAW RETURN |~|~|© COPY FLASH RUN COPY FLASH NEXT CLS COPY FLASH RUN LOAD COPY FLASH COPY FLASH RETURN COPY FLASH COPY COPY ©©? COPY COPY RETURN RETURN DRAW SAVE LPRINT FLASH < COPY COPY FLASH FLASH ?©© COPY COPY COPY COPY FLASH COPY COPY RETURN RETURN CLEAR CLEAR CLEAR VAL x DRAW DRAW RETURN RETURN RETURN CLS CLS CLS CLS COPY FLASH ABS ABS ABS ABS CLEAR CLEAR CLEAR CLEAR RETURN FLASH FLASH ? COPY RETURN RUN CONTINUE GO TO PAPER RETURN COPY COPY ?▙ABS FLASH USR LIST LIST LIST ppVAL PLOT ©©©©??[P][P]oo RUN LIST LPRINT LPRINT LPRINT LPRINT USR USR }o RETURN SAVE ` FLASH USR `0 CIRCLE GO TO PLOT NOT STR$ 7oNOT 8 LIST LIST LPRINT USR NOT 0`f0# FLASH OF$[Q]6{3x LPRINT USR 0vUSR FLASH 1 TO 0_ DRAW USR USR l PAPER aUSR 8 LPRINT USR 0v RETURN USR 0USR FN CONTINUE x/|vv6[Mlft>;16 LPRINT LPRINT ` LPRINT p SAVE CIRCLE 177x CIRCLE USR VAL VAL VAL VAL LIST VAL [Q][Q]VAL 6"" DIM ``` GO SUB M GO TO REM SAVE LIST LPRINT ? LPRINT READ COPY COPY COPY COPY COPY FLASH >.nlpdT VERIFY OVER PAPER SIN 6f.| BRIGHT X SAVE l GO TO SAVE SAVE 0 SAVE p LIST CIRCLE LN CIRCLE CIRCLE SAVE VAL VAL LIST SAVE LN hlDD[H]ATN SIN 7W DRAW <= COPY COPY COPY COPY COPY FLASH ` LIST RETURN COPY FLASH STEP COPY FLASH © COPY FLASH FLASH ` FLASH COPY FLASH ?© COPY USR LIST COPY ▝ R [R]"$▖@[S]@`[A]▖B) ▝[Q]@JPXD0$ @E QB[E](P @@<<<< FLASH FLASH +,%&'( !" FLASH 56/0;<%&1234789:=>?@-.AB)*GH#$KLCDEFIJ FLASH -.AU)*GV#$KLMNOPQRSTWXYZMNOPQRST-.AU[/]^ !_` FLASH fghitsvuyxw|{zSTR$ CHR$ NOT BIN OR AND <=>=<> LINE ©~}▝uyxw▘|{z THEN TO STEP DEF FN NOT CAT FORMAT OR AND <=>=<> LINE FLASH y|©~}▝uxw▘{z THEN TO STEP DEF FN NOT CAT FORMAT OR AND >=<> FLASH <= LINE FLASH ©▝yx|{~}uw▘z FLASH THEN TO DEF FN NOT FORMAT OR >= STEP CAT AND <=<> LINE ©~▝uyxw|{z}▘ FLASH THEN DEF FN FORMAT TO STEP NOT CAT OR AND <=>=<> LINE ©~▝u NEXT POKE PRINT PLOT LIST LET LOAD INPUT }pppp NEXT PAUSE LIST LET LIST LET LOAD INPUT LOAD INPUT FLASH LOAD INPUT FLASH NEXT PAUSE FLASH NEXT PAUSE NEXT PAUSE LIST LET LIST LET LOAD INPUT RUN SAVE RANDOMIZE FLASH IF CLS DRAW IF FLASH IF IF IF IF FLASH NEXT PAUSE NEXT PAUSE LIST LET LIST LET CLEAR RETURN NEXT PAUSE LIST LET LIST LET LOAD INPUT LOAD INPUT COPY COPY COPY COPY LOAD INPUT FLASH COPY COPY COPY COPY FLASH COPY COPY COPY COPY THEN DEF FN pppp TO STEP NOT CAT DATA READ STOP LLIST BRIGHT INVERSE OUT OVER FLASH LPRINT LLIST BRIGHT INVERSE FLASH OUT OVER LPRINT LLIST BRIGHT INVERSE OUT OVER BRIGHT INVERSE FLASH LPRINT LLIST OUT OVER LPRINT LLIST BRIGHT INVERSE OUT OVER LPRINT LLIST OUT OVER LPRINT LLIST GO TO FOR OUT OVER OUT OVER LPRINT LLIST BRIGHT INVERSE OUT OVER BRIGHT INVERSE GO SUB GO SUB GO SUB GO SUB BRIGHT INVERSE FLASH GO SUB GO SUB GO SUB GO SUB FLASH GO SUB GO SUB GO SUB GO SUB BORDER NEW RESTORE FLASH CONTINUE REM DIM CONTINUE FLASH CONTINUE CONTINUE CONTINUE CONTINUE FLASH RESTORE NEW BORDER CONTINUE DIM REM FOR GO TO GO SUB RESTORE NEW BORDER CONTINUE DIM REM FOR INPUT LOAD GO TO LIST LET POKE PRINT SAVE RANDOMIZE DRAW CLEAR PAUSE NEXT LIST PLOT RUN POKE IF CLS SAVE RETURN RETURN COPY FLASH ▚▜▚▖rstu▚▞▖ FLASH rstu▞▞▜▖rstu▛▛▜rstu FLASH ▛rstu FLASH LEN SIN COS TAN vwxy9STR$ NOT vwxy:CHR$ BIN FLASH OR <=<=STR$ <=<=NOT <><> OR AND CHR$ <=<=BIN <=<= AND <><> LINE THEN TO CAT FORMAT MOVE ERASE FLASH STEP THEN DEF FN OPEN # CLOSE # MERGE >= FLASH ASN ACS ATN LN FLASH vwxysba`{dcwePEEK ABS SQR SGN fghi LLIST LLIST STOP LLIST READ DATA rstu LLIST STOP LLIST LLIST READ DATA rstu LLIST LLIST LLIST LLIST FLASH rstu FLASH ©~rsturstuvwxy FLASH tuxy FLASH rsvw FLASH ~rstuYX[Z]/^_`OPTUWV FLASH INK PAPER FLASH BRIGHT INVERSE OVER OUT LPRINT SGN IN TAN SGN ssLN COS TAN ASN ACS FLASH Z[TUVW/XY] FLASH rstuvwxytzxvwxys{w FLASH njlnokmo FLASH s FLASH t FLASH rstuvwxy FLASH <=<>;SQR SGN ABS PEEK MNOPQRSTabceCOS SIN ATN ACS LEN SIN COS TAN e[H][I][J][K][L][M][Q][R][S][T]INKEY$PIFN POINT [N][O][P][U]RNDSCREEN$ ATTR [G][H][I][J][K][L][M][Q][R][S][T]INKEY$PIFN POINT AT TAB VAL$ CODE VAL RND FLASH LEN SIN ASN ACS FLASH COS TAN ATN LN FLASH rrABS COS TAN ASN ACS s{}ws{wrstuSQR SGN ABS PEEK TAN SGN SGN FLASH ppppvwxyZ[/t]^z_x FLASH NEW BORDER GO TO CONTINUE DIM REM FOR GO TO CONTINUE DIM REM FOR GO SUB GO SUB BRIGHT INVERSE PAPER FLASH ;< GO SUB GO SUB LPRINT LLIST OVER OUT 34789:=>?@a FLASH CONTINUE DIM REM FOR GO TO CONTINUE DIM REM FOR GO SUB GO SUB GO SUB GO SUB LEN SIN COS TAN FLASH NEW BORDER GO TO LEN SIN COS TAN GO SUB GO SUB DATA RESTORE STOP READ '( !"XYZ[/]`_^ FLASH ````a FLASH CONTINUE DIM REM FOR bcdbMNOPQRSTe FLASH <=y LINE | STEP © CAT ▝ AND <=yx<> LINE |{ TO STEP ©~NOT CAT ▝u OR AND xw>=<>{z THEN TO ~} DEF FN NOT u FORMAT OR w▘>=z©~▝uyxw LPRINT LLIST {z BORDER NEW s}vuyxw▘|{z[I][H][G][M][L][K][J][T][S][R][Q]POINT FN PIINKEY$ FLASH [P][O][N]RND[U]ATTR SCREEN$ FLASH CONTINUE DIM REM FOR CODE VAL$ TAB AT RNDVAL FLASH NOPQ FLASH NRSTUVW('&%"! FLASH 65<;0/&%4321:987@?>=BA.-HG*)LK$#FEDCJI FLASH UA.-VG*)LK$#PONMTSRQZYXWPONMTSRQUA.-^]/[_! ` FLASH tuxy FLASH FLASH FLASH dbPIINKEY$RND[U] LOAD INPUT GO SUB GO TO NEXT PAUSE LET LIST FLASH rstursturstu FLASH rstu FLASH FLASH rs! vw'&.- FLASH %$##,+*)10/&.-10/&.- FLASH bcdbPONMTSRQ"(%$##,+*)8"( FLASH 810/&.-rstu%$##,+*)1765rstu"(4333rstu82rstu'&.- FLASH a FLASH bcdb FLASH e FLASH e FLASH fghi FLASH afghi FLASH vw|} THEN DEF FN LN ATN ACS SQR INT FLASH LEN SIN SIN ASN ~©▗ FLASH `_de_cc FLASH ^]/bbb FLASH SIN SIN SIN SIN FLASH THEN DEF FN LN LN ATN ACS SQR INT ©~}▝uyxwVAL |{zTAN FLASH LEN SIN SIN SIN ASN ~}uwVAL LEN SIN zTAN ASN THEN TO STEP DEF FN NOT CAT ATN ACS OR AND SQR INT >=<> FLASH fghi FLASH rsvw FLASH tuxy FLASH vutszyxw~}|{▘▝© THEN LINE <= AND OR BIN STR$ USR CODE VAL$ ATTR SCREEN$ POINT FN FLASH MERGE CLOSE # FLASH PAPER CAT DEF FN JKLM FLASH LLIST LPRINT STEP TO BORDER NEW <>>= FOR REM NOT CHR$ TAB AT RESTORE DATA READ STOP DIM CONTINUE FLASH POKE LPRINT STEP TO PRINT NEW <>>= FOR REM NOT CHR$ TAB AT tz|xtzxrstuVWXYZ[/]rstu FLASH ?@AB FLASH tuVAL SIN [T]ATTR [G]ASN [N]COS [I][L][M]TAN POINT [S]LEN VAL$ [S][Q][R]CODE [R]ATTR LEN SIN [T]PI[O]LEN ASN [P][E]FN [L][J]AT TAB INKEY$SCREEN$ [Q][R]PIVAL ATTR [Q]RNDLEN [Q][R]PIVAL COS [F][A][K]TAN [C][B][D] FLASH SCREEN$ POINT [S]RNDLEN [U][R][F]VAL SIN [T][G]ASN [N][H][I][L][M] FLASH AT POINT [S][Q]LEN [U][R]ATTR TAB INKEY$SIN POINT [R]PIVAL LEN [Q]RNDLEN [R][R]PIVAL LEN [F][A][K][O][C][B][D][E] FLASH AT VAL$ [S][Q]CODE [U][R]ATTR SIN LEN [T]PILEN ASN [N][P]FN [L][M][J] FLASH AT SCREEN$ VAL$ [S][Q]VAL CODE [R]ATTR LEN SIN [T]PI[F][F]ASN [P]FN [L][J][H]POINT LEN VAL$ AT [R]CODE [S]ATTR VAL SIN COS [F][G]ASN [N][P][I][L][M][J]SCREEN$ POINT INKEY$LEN VAL$ SCREEN$ PI[R]CODE PI[F]VAL [F][F][G][P][H][I][J][H] FLASH SCREEN$ POINT RNDLEN LEN VAL SIN [G]ASN SCREEN$ [H][I][L][M] FLASH AT ATN ATTR [T]ASN [N][P]ACS [L][M][J] FLASH TAN ACS ▟C FLASH CC▙ FLASH CCCC FLASH CDDD FLASH qqqq FLASH qrrr FLASH LEN SIN qq FLASH qqCOS TAN fghi FLASH ©▝▘MNORSk[I][H]a[M][L][K][J][T][S][R][Q]POINT FN PIINKEY$ FLASH NEXT POKE PRINT PLOT LIST LET LOAD INPUT FLASH VERIFY BEEP BEEP BEEP FLASH CIRCLE vwxy FLASH JKLMNOPQ FLASH rstu FLASH IN TUUSR ▟ FLASH ```` FLASH FLASH SQR CHR$ SGN USR OR BIN USR STR$ CHR$ NOT USR USR OR BIN USR USR USR STR$ CHR$ NOT USR USR FLASH FLASH FLASH FLASH CHR$ FLASH USR USR OR BIN USR USR USR USR USR STR$ NOT USR USR USR USR FLASH USR USR FLASH FLASH FLASH FLASH OR FLASH BIN FLASH ! !%&'(((USR USR USR FLASH qqqq FLASH 2 FLASH 2 FLASH )*+ FLASH ,-.+ FLASH ,-.+2210/#$$$▟F FLASH ASN ACS ATN FLASH ASN ATTR ? FLASH [G]F FLASH [F]?``@A``BC<=DE<>>=PEEK IN T LINE :;<=JI<=<>F554 FLASH ? FLASH F FLASH ? FLASH [G] FLASH ▟ FLASH [E] FLASH [D][A] FLASH [C]F FLASH jl PRINT PRINT FLASH STEP CAT TO ?ik PRINT FLASH $ FLASH ik??d THEN FjlASN ACS ATN PRINT PRINT ACS ATN ASN [O] STEP ~ATN i FORMAT THEN SQR CHR$ SGN USR OR BIN USR STR$ lFFF PRINT FLASH FLASH PRINT AND PRINT PRINT ASN ACS ATN ASN ~ATN %&CHR$ NOT USR USR OR BIN USR q)*'((((, FLASH +-/▗SQR FLASH FLASH SQR FLASH AND AND FLASH $ AND ACS ATN ASN ACS ATN k?ik??$$$ PRINT ASN ACS ATN ??i4BIN USR STR$ CHR$ NOT CHR$ SGN USR OR BIN ▝USR STR$ ▘CHR$ NOT FLASH FLASH AND FLASH FFASN ACS ATN k???FFj !? %&(qqq)* FLASH ,(((((( FLASH + FLASH -.+ FLASH (,0/+ FLASH FLASH ! %&( FLASH PRINT PRINT qqq FLASH (((((( FLASH FLASH FLASH ? FLASH lFFASN ACS ATN ASN ACS ATN ? FLASH F"#$$ FLASH FLASH ASN ACS ATN FLASH ????d?d?$$$$ASN ACS ATN ASN ACS ATN ASN ~LN AND AND EXP ~ATN ASN ACS ATN ASN ACS ATN ??ik????5543 FLASH c??d?dgf"#$$ FLASH ▖ FLASH $▟$$▟$ASN ACS ATN ASN ACS ATN ▚ AND EXP ATTR ATN SAVE ATTR ATN AND ASN ACS ATN ▟?ik??FFF FLASH FLASH FLASH ASN ACS ATN ? FLASH `@A``@A`BCBCDEDE IF CLS T__IKKJ__```@A```BC<>__DE LINE ``T IF CLS _IKJ_JI_FFjlFFFF?i PRINT Fj FLASH st? FLASH yxzFFFFhs▞stuvuv FLASH ▟FjlFF[E][G] FLASH [F][G]?ik??`@A``@A`BCBCDEDET IF CLS _JI_IKJ_` FLASH r FLASH ERASE FLASH ERASE IF CLS T ERASE _IKKKI_ OPEN #G` FLASH n FLASH n FLASH n FLASH o_ FLASH F FLASH FLASH ??ik FLASH RESTORE BRIGHT PAPER CIRCLE BORDER OVER OUT READ NEW INVERSE FLASH INK CONTINUE BEEP LPRINT DATA FLASH ▖ FLASH ▟FjlFFASN ACS ATN PRINT FLASH PRINT k SAVE ATTR ATN l[D][A]k` FLASH raT ERASE _IJ_<=````>=ON_ FLASH G@A``@ArnBCBC ERASE DE67DEP89O__:;<=>_G```@A``nBC FLASH DEPT IF CLS __IKKJ_<=FFjl FLASH PRINT ASN ACS ATN FLASH csw~ef FLASH SQR [C][B]▙l▟ FLASH ▟ FLASH [E] FLASH [G]???``@A````BC FLASH DE FLASH T IF CLS _<=<>_JIFN ` FLASH FLASH TVAL$ <>_JI[Q]` FLASH >=[L][J][H][Q][L][M][N][K][I]`[L][M][N][K][P][R][S][T]__<=stuvhxzF FLASH FLASH FLASH CHR$ SGN USR OR BIN USR STR$ CHR$ NOT FLASH ▟FFFASN ACS ATN k▚l▖ SAVE ATTR ATN PRINT [D][A]`>= LINE ``PIPOINT _ FLASH ```rG``` ERASE nT<> OPEN #oJI_AT TAB VAL$ LINE ````CODE VAL LEN SIN <=````>=[L][J][H][L][M][N][K][I]<= VERIFY [R][S][T]__F FLASH j FLASH PRINT i FLASH sjstu????yxzASN ACS ATN FLASH c FLASH w~ef vh ! %&'(USR USR OR PRINT RANDOMIZE qqqq)*,((((((( FLASH + FLASH -.+ FLASH (10/+ FLASH [C][B][A] FLASH [C] FLASH lF FLASH [B]▙ FLASH ▟? FLASH [E]F FLASH [G]??ik?>= LINE ` FLASH _<=[L][J][H]`>=[L][M][N][K][I]__[Q][R][S][T]__F FLASH FLASH ij FLASH ???i"#$$$ FLASH d?d?$$$$$ASN ACS ATN ASN ~LN AND AND AND ASN ACS ATN ASN ACS ATN ? FLASH 55543 FLASH c?d?ddgf FLASH SQR [F]FFjlF[G] PRINT PRINT [F]k???[G]lFFF[F]?ik??```@A```BC_<=DE`>= IF CLS T__IKKKJ_FFFjASN ACS ATN ? FLASH FFFASN ACS ATN FLASH ASN ~LN AND ASN ACS ATN ?d?d????` FLASH @A` FLASH BC<>INKEY$FN VAL$ DE LINE PIPOINT AT TAB VAL$ <=<>CODE VAL LEN SIN _FFFFh FLASH FLASH i FLASH CHR$ SGN USR OR BIN USR STR$ CHR$ NOT ▟FjlFF[E]ASN ACS ATN kASN ATTR LN l[G]? FLASH ` FLASH FLASH INKEY$FN VAL$ FLASH PIPOINT AT TAB VAL$ __CODE VAL LEN SIN INKEY$FN `@A` FLASH BC FLASH DE<> FLASH LINE VAL$ <>_IK` FLASH WWW_X__X__X` FLASH KJ__IKJ_>= LINE ``YZ` FLASH ERASE n_IKJ_ OPEN #o<=` DRAW ` FLASH >=_ CLEAR _IKJ_[Q]jASN ACS ATN PRINT csw~efstuvhxz FLASH FLASH ! %&USR USR OR PRINT qqq)*,((((((▟F FLASH ASN ACS ATN FLASH +ATTR ATN k-[F] FLASH l? FLASH ```@A`PIPOINT BC<=DE<>>= IF CLS T LINE _IKKKKJ_AT TAB VAL$ LINE ```SCREEN$ POINT AT TAB VAL$ __CODE VAL LEN SIN <=<>` FLASH >= LINE _ FLASH IK` FLASH r FLASH T ERASE __<=<>JI OPEN #``>= LINE ```J_ FLASH Z` FLASH n FLASH o<= AND `>=_ FLASH F FLASH FLASH ASN ACS ATN FLASH ?~ATN FLASH "#$ FLASH ▖ FLASH $▟$$▟F▚ACS ATN [E] SAVE ATTR ATN AND ASN ACS ATN [D][A] PRINT [C][B]▙???` FLASH FLASH [L][J][H]<=<>[L][M][N][K][I]>= LINE [Q][R][S][T]__ CLOSE #_` FLASH FLASH _ CLOSE #_INKEY$FN VAL$ ` DRAW `PIPOINT AT TAB VAL$ _ CLEAR ___CODE VAL LEN ```@A```BCW<>_<=DE<>X_ LINE `>= LINE ``SIN __<=[L][J]` FLASH YZWW ERASE n___X_X OPEN #o```` DRAW ```[H]___ CLEAR ___F FLASH FLASH s??istuFFjkyxz??ilFFFc FLASH ▞gfvh FLASH ' FLASH CIRCLE BORDER OVER OUT READ RESTORE DIM INK CONTINUE BEEP LPRINT DATA NEW REM GO SUB [F]FFF[G] FLASH ASN ACS ATN FLASH PAUSE LET POKE ?d?d?` FLASH FLASH PRINT PRINT PRINT FLASH _ FLASH _`@A` FLASH BC FLASH DE[L][J][H][L][M][N][K][I]__[Q][R][S][T]__```>=[L][M][N][K][L][M][N][K][P]_[Q][R][S][T]__<=` FLASH >=_<=[L][J][H]_[I]` FLASH FLASH PRINT PRINT PRINT FLASH __ FLASH FFj PRINT PRINT PRINT PRINT PRINT PRINT FLASH ASN ACS ATN ?d?d?d? NEXT FLASH FOR BRIGHT PAPER CIRCLE BORDER OVER LOAD INPUT GO TO INVERSE FLASH INK CONTINUE BEEP G@A`rGnBC ERASE nnDE ERASE nnT FLASH oIJ__````@A``BC FLASH DE<>[Q]T LINE `_IKJ____`>=[L][M][N][K][I]r[L][M][N][K][P] ERASE [R][S][T]<= ERASE ```>=a ERASE ____IKJ OPEN #YZ```` ERASE n ERASE n ERASE n ERASE n ERASE n ERASE n ERASE n ERASE n ERASE n ERASE n ERASE n ERASE n ERASE n ERASE n( FLASH ERASE n ERASE n ERASE n ERASE n ERASE n ERASE nS▛ DEF FN ▛ DEF FN R| COPY || LOAD LOAD | FLASH ▛ DEF FN ▛ DEF FN ▛ DEF FN ▛ DEF FN || COPY | COPY | COPY | FLASH ▛ DEF FN ▛ DEF FN ▛ DEF FN ▛ DEF FN | COPY | COPY | COPY || ERASE n ERASE n ERASE n▛ DEF FN ▛ DEF FN ▛| LOAD LOAD ||||{FE` FLASH D FLASH BBBBE` FLASH FLASH FFFF FLASH E FLASH FFF FLASH FLASH E FLASH B FLASH D FLASH B FLASH E FLASH D FLASH EEB6 FLASH C FLASH D FLASH CD FLASH C FLASH D FLASH CD FLASH CDDD FLASH FLASH A FLASH GFBBCDCCBBBB FLASH FLASH BBBBBBE FLASH C FLASH E FLASH FF FLASH B FLASH FLASH DDDFFDFFG FLASH CC6ccc68x~<ff0~>ff<<l~>6`|f<0|ff<~F00<ff<ff<<ff>0>nf~ffw<ff|ff|>fb`bf>8lffflx>fbxbf>>fbx``0>f``nf> INPUT AND AND RETURN AND AND INPUT < FLASH <Llxnlxxxlnx00013© AND AND INPUT RETURN VERIFY AND INPUT nfv~nfv6ccc6©33>00x>ffff|>ff|xln>fb~Ff| COPY FLASH <3ccccw? INPUT AND AND AND AND l8wcck©w6w66wwcf<<~fL2f~bf0fF FLASH ??sSGN CAT COPY TO NEXT CAT DRAW NEXT LIST ? STEP NEXT LIST SGN COPY LPRINT USR VAL TO <?o© COPY ? COPY RETURN ? LLIST SGN IN GO TO ? CAT < AND CAT ; NEXT RETURN ?> COPY ? COPY ? COPY CAT ©?}< RUN LPRINT 0 DRAW 0 DRAW DEF FN = NEXT COPY 3 CAT NEXT ? CAT DRAW COS CAT [A]= COPY 3< DRAW PLOT RETURN COPY DRAW COPY © DRAW ▜= LET CLEAR 7 DRAW NEXT <0c NEXT BRIGHT CAT © DRAW | COPY DRAW COPY DRAW COPY NEXT RETURN DRAW PEEK LIST < LIST RUN FLASH <B[J][R][R][J]B<~ FLASH 00 FLASH "w"00`R FLASH !ABS BIN " CAT NOT !IN AND " OPEN #NOT NEXT STEP CLS NOT STEP ▙> RUN CLS <>` REM PEEK BIN H INPUT USR AND INPUT ^#V RETURN @(r+s<>~ AND _!▖BIN f.<>#^#V++ LLIST ! CAT NOT STEP CIRCLE NOT 2 TO NOT ! OPEN #NOT STEP CIRCLE NOT 2 STEP NOT ! TO NOT STEP RESTORE NOT THEN PAPER PEEK BIN RESTORE ! STEP NOT STEP RESTORE NOT MOVE |= z=(B: BEEP NOT O: DEF FN NOT : DEF FN NOT INVERSE b OPEN # RETURN INVERSE /SCREEN$ -CHR$ _BIN OPEN # RETURN lSCREEN$ REM CHR$ ;BIN <>adam( RETURN - LINE IBIN OPEN # RETURN CLOSE #CHR$ ;BIN <>: BEEP NOT /O OR PRINT RESTORE ! THEN . THEN . THEN . LLIST PAUSE CHR$ sBIN LET STR$ <> COPY LIST READ BEEP THEN USR TAN ATTR [R][H][A]▖yrlf`[VQLHD@=9630-+(&$" @ FLASH FLASH #&"%!$ #"! @ FLASH " FLASH "$4 FLASH $$$$ #@ FLASH $4 FLASH $$$$ &(&(&(&(&(&(&(&(&(&(&(&(&(&(&(&(&(%'$'#&"%!$ #"! @ CLEAR RANDOMIZE RANDOMIZE )) RANDOMIZE RANDOMIZE )))) RANDOMIZE RANDOMIZE ) FLASH )) RANDOMIZE RANDOMIZE )) RANDOMIZE RANDOMIZE )))) RANDOMIZE RANDOMIZE ) FLASH )) RANDOMIZE RANDOMIZE )) RANDOMIZE RANDOMIZE )))) RANDOMIZE RANDOMIZE ) FLASH )) RANDOMIZE RANDOMIZE )) RANDOMIZE RANDOMIZE )))) RANDOMIZE RANDOMIZE ) FLASH )) RANDOMIZE RANDOMIZE )) RANDOMIZE RANDOMIZE )))) RANDOMIZE RANDOMIZE ) FLASH )) RANDOMIZE RANDOMIZE )) RANDOMIZE RANDOMIZE )))) RANDOMIZE RANDOMIZE ) FLASH )) RANDOMIZE RANDOMIZE )) RANDOMIZE RANDOMIZE )))) RANDOMIZE RANDOMIZE ) FLASH )) RANDOMIZE RANDOMIZE )) RANDOMIZE RANDOMIZE )))) RANDOMIZE RANDOMIZE )))) DRAW DRAW )) CLS CLS )) RANDOMIZE RANDOMIZE )))))))))))) DRAW DRAW )))) RANDOMIZE RANDOMIZE )))) CLS CLS )))) DRAW DRAW )))) RANDOMIZE RANDOMIZE )))) CLS CLS )))))))))))) COPY COPY )))) CLS CLS CLS CLS CLS CLS CLS CLS )))) COPY COPY )) CLS CLS )) RETURN RETURN )))))))) RETURN RETURN )))))))) RETURN RETURN )))))))))))) RETURN RETURN )))))))))))))))))) CLS CLS )))))))) CLS CLS ) FLASH ))@SCREEN$ TAN NOT ! MOVE <>" READ >=!- LINE " BORDER >= NEXT STEP <> FLASH CLS <>! LINE ERASE <>z LINE . LINE INPUT ^#V RETURN @(r+s<>~ AND _![M]<>f.<>#^#V++ LLIST ! READ >= STEP GO TO >=2 LPRINT >=! BORDER >= STEP GO TO >=2 LLIST >=! LPRINT >= STEP RANDOMIZE >= THEN PAPER ERASE <> RESTORE ! LLIST >= STEP RANDOMIZE >= MOVE |= z=(B: FOR >=O: STOP >=: STOP >= INVERSE b OPEN # RETURN INVERSE /SCREEN$ -CHR$ s<> OPEN # RETURN lSCREEN$ REM CHR$ O<><>adam( RETURN - LINE ]<> OPEN # RETURN CLOSE #CHR$ O<><>: FOR >=/O OR PRINT RESTORE ! THEN . THEN . THEN . LLIST PAUSE CHR$ ▜<> LET STR$ <> COPY LIST READ BEEP THEN USR TAN ATTR [R][H][A]▖yrlf`[VQLHD@=9630-+(&$" ) FLASH ))) FLASH ))))))))))))))))) FLASH ))))))))))))! FLASH @) FLASH ))) FLASH ))))))))))))))))) FLASH )))))))))))) FLASH @![D] THEN "RND LINE !CODE THEN "POINT LINE NEXT STEP MOVE LINE FLASH CLS <> PLOT RUN SCREEN$ THEN [E] THEN AND THEN VAL THEN INPUT ^#V RETURN @(r+s<>~ AND _!^ THEN f.<>#^#V++ LLIST !RND LINE STEP VAL$ LINE 2[S] LINE !POINT LINE STEP VAL$ LINE 2[T] LINE ![S] LINE STEP SQR LINE THEN PAPER [E] THEN RESTORE ![T] LINE STEP SQR LINE MOVE |= z=(B:TAB LINE O:[U] LINE :[U] LINE INVERSE b OPEN # RETURN INVERSE /SCREEN$ -CHR$ 5 THEN OPEN # RETURN lSCREEN$ REM CHR$ THEN <>adam( RETURN - LINE THEN OPEN # RETURN CLOSE #CHR$ THEN <>:TAB LINE /O OR PRINT RESTORE ! THEN . THEN . THEN . LLIST PAUSE CHR$ I THEN LET STR$ <> COPY LIST READ BEEP THEN USR TAN ATTR [R][H][A]▖yrlf`[VQLHD@=9630-+(&$" COPY RETURN CLEAR DRAW CLS IF RANDOMIZE SAVE RUN PLOT PRINT POKE )@ TO COPY RETURN CLEAR DRAW CLS IF RANDOMIZE SAVE RUN PLOT PRINT )@SCREEN$ LINE ) NEXT ! RETURN > CLEAR w# DRAW w> RETURN GO SUB G: TO * TO 2 CLEAR CLEAR " RETURN CLEAR GO SUB ^> OPEN # RETURN 2 AND ]![Q] LLIST LN LLIST GO SUB VAL NOT TO NOT @ LLIST 1 GO SUB _o"s LOAD CODE 2<=]2>=]CODE 2 DEF FN NOT 2[U] LINE 2 STOP >=> IF 2 BEEP NOT 2TAB LINE 2 FOR >= STEP TAN NOT >2CHR$ ] CLS STEP _ CAT STEP STEP STEP _ CAT :<=]ATN * STEP _ CAT :>=]! CAT RESTORE STEP 3 LPRINT RESTORE STR$ ! THEN RESTORE STEP 3 LPRINT NEXT STEP [ CLOSE # CLS >22<=]:>=]< RETURN 8CODE 2>=]*s LOAD #"s LOAD 'yVAL CLS STEP DEF FN THEN g :<=]ATN (=2<=]VAL$ >2CHR$ ]*s LOAD ~ NEW PRINT STEP b ERASE STEP . MOVE LET !k LOAD STEP @ LPRINT STEP MOVE DEF FN STEP ABS ERASE CODE 2 FLASH ]2 PAPER ]2 BRIGHT ]Z GO SUB C INPUT ]USR GO SUB C LIST ] STEP , CAT : STOP ]ATN CHR$ DATA DEF FN : TO ]ATN CHR$ LN DEF FN STEP DEF FN 2 CLOSE #] PRINT STEP [N] CAT LET : CLOSE #] THEN gBIN ATTR CAT STEP MERGE STEP BORDER INK STEP [Q] FORMAT STEP [D] MOVE STEP PRINT BEEP NOT DEF FN TO ! RESTORE STEP [ CLOSE # RETURN RUN GO SUB x/ THEN G THEN O THEN W THEN _USR GO TO !SIN STEP "~ LLIST <>![Q] LLIST LN LLIST GO SUB VAL ! BEEP STEP "~ LLIST <> RETURN RUN GO SUB x/ NEW RANDOMIZE !` RESTORE STEP [ CLOSE #CODE INVERSE !LN LLIST PRINT OR ! OPEN # RESTORE STEP 3 LPRINT ▘ STEP INVERSE q INVERSE p INVERSE w INVERSE # INVERSE # INVERSE # INVERSE #STR$ LET < INK ! BEEP STEP "~ LLIST <>! LLIST N#F# GO SUB x/ NEW ( GO SUB x/ NEW ( RUN PLOT PRINT GO SUB x/ NEW RUN PLOT LET <> BEEP FORMAT OR MERGE FLASH PRINT NEW ![A] LLIST STEP @ LPRINT _ LET NEW COS _ RETURN CLEAR GO SUB x/ NEW RETURN THEN NEXT { MOVE STR$ <> INVERSE RESTORE MERGE OR INVERSE !LN LLIST INVERSE N INVERSE F GO SUB x/ NEW INVERSE INKEY$({ INVERSE ACS _ INVERSE # INVERSE # INVERSE # INVERSE # LPRINT { NEW RETURN THEN [L] THEN [D]{ NEW RETURN THEN ▛ THEN {STR$ MOVE INVERSE LLIST <>!' DEF FN RESTORE *~ LLIST DIM THEN wCHR$ TO <> NEXT "NOT ]~2 OR ] CLS <>*NOT ]}TAN >= RESTORE : OR ] PRINT STEP v DEF FN LET INVERSE LLIST INVERSE ▚2 OR ] INVERSE PEEK 8 INVERSE PEEK CIRCLE >= INVERSE ~ RETURN COPY ( INVERSE INVERSE "NOT ] INVERSE ~2 OR ]<>!"NOT ]<> RESTORE !N IF STEP 3 LPRINT } THEN = THEN =/ NEW O INVERSE ![I] DEF FN INVERSE : AND ] NEW 8 PLOT CLEAR DEF FN INPUT OPEN # RETURN DO THEN g M INVERSE DIM LLIST <>=2 TO ]CHR$ BORDER TO STEP OR OPEN #: OVER ] STEP MOVE DEF FN STEP ABS ERASE STEP , CAT NOT BORDER TO PRINT !u LOAD STEP 3 LPRINT RESTORE MOVE > STEP C CIRCLE LET <>=2 STOP ]CHR$ PAUSE TO : READ ]= IF m CAT 2 READ ]! OUT RESTORE V# STEP @ LPRINT ^>![R]^ STEP G LPRINT STEP j OUT >92 LIST RESTORE 2 LET RESTORE NEW STEP LPRINT LPRINT STEP OR OPEN #: OVER ] STEP D CAT STEP MOVE DEF FN STEP ABS ERASE STEP , CAT NOT MERGE TO CODE 2 BRIGHT ]2 PAPER ]2 FLASH ]>2^2^>2 PAPER INVERSE LET <> LET !c LOAD g LOAD PEEK (# RANDOMIZE <><>![ COPY Z COPY 6 GO SUB LN <> NEXT STEP LINE >2CHR$ ] CLS STEP _ CAT ! CONTINUE READ STEP [ CLOSE #! NEW RESTORE STEP [ CLOSE # STEP DEF FN THEN g RANDOMIZE STEP DEF FN THEN g( RANDOMIZE NOT TO : CAT ]ATN >==2 CAT ]USR 2 FORMAT ]<>: TO ]ATN USR : BRIGHT ] NEW USR : MOVE ]ATN >=: CLOSE #] NEW >=2m CONTINUE INVERSE !^ INVERSE ~ATN ( LIST > INVERSE ^ INVERSE VC CIRCLE 3 NEW STEP LPRINT LPRINT <>: CLOSE #] THEN g PRINT CHR$ / FORMAT : FLASH ]ATN PAUSE RANDOMIZE CAT NEW ©(=2 FLASH ] NEW ©! LOAD STEP @ LPRINT 2 PAPER ] LET O: FORMAT ]POINT NEW O: OUT ]LEN O INVERSE ~ NEW LEN 2 INVERSE ]CODE INVERSE w2 OUT ]!= IF STEP - DEF FN <>: FLASH ] NEW © RETURN 0< PLOT NOT DRAW CAT NEW ©2 OVER ]!X6#yVAL SAVE STEP VAL CIRCLE > STEP FLASH OUT 6# CLS LLIST $| NEW } AND o8| VERIFY g DATA !X6F#yVAL SAVE CODE Ld!>2 STEP ]>2 LPRINT ]>i2 TO ]<>: STOP ]ATN USR * OVER ]&))= SAVE RESTORE CLEAR LLIST INVERSE !^ INVERSE ~ RETURN (8 RETURN ▖0$ INVERSE ~ RETURN LINE MOVE PAPER MOVE INVERSE ▚ RETURN <> ERASE SAVE FORMAT <> CLEAR ~ RETURN ERASE > FORMAT INVERSE 6▜ STEP ABS ERASE <> CLEAR ~ RETURN ERASE > FORMAT INVERSE 6 STEP ABS ERASE <> CLEAR ~ RETURN ERASE > FORMAT INVERSE 6 STEP ABS ERASE <> CLEAR ~ RETURN ERASE > FORMAT PRINT >>= INVERSE [G] INVERSE w LET STEP ABS ERASE <> OR PRINT NEW O: AND ] NEW SAVE LEN OPEN # RETURN LET STR$ <>>2 READ ] INVERSE ! OUT RESTORE G INVERSE V INVERSE # INVERSE ^ OR MERGE >![R]^ STEP G LPRINT MOVE STEP j OUT INVERSE #STR$ REM !X>Fw# DRAW ! STOP STEP [ CLOSE #! STOP STEP [ CLOSE #! LOAD STEP [ CLOSE # NEW MERGE STEP LLIST MOVE STEP LPRINT LPRINT !8 LOAD STEP [ CLOSE #>5 STEP ? ERASE <>: STEP ]ATN (=2 STEP ]<>: LPRINT ]ATN >= PAUSE SIN MOVE NEW ©2 LPRINT ]CODE 2 LLIST ]2STR$ ]: LLIST ]ATN (=2 LLIST ]<>: LPRINT ] PRINT !S LOAD STEP @ LPRINT ~ RESTORE RESTORE ![R]^ STEP G LPRINT LLIST +~!k_ STEP G LPRINT STEP & ERASE v![R]^ STEP j OUT !k_ STEP j OUT STEP & ERASE LLIST ~ AND RESTORE p![R]^ STEP G LPRINT LLIST +~ AND !k_ STEP G LPRINT STEP & ERASE v![R]^ STEP j OUT !k_ STEP j OUT STEP & ERASE LET =2 LPRINT ]>2 LLIST ]<> MERGE RESTORE PRINT INVERSE RESTORE OR :STR$ ]= NEW 2STR$ ] STEP v DEF FN STR$ INVERSE LLIST LET LLIST MOVE <>![R]^ PRINT MERGE RESTORE STEP G LPRINT OR !k_p AND STEP G LPRINT STEP j OUT STR$ LLIST MOVE LET STEP j OUT <>#!USR ]6#yVAL SAVE ! BORDER RESTORE 60# CLS 4!▗ LIST ~ NEW ©w# RANDOMIZE >92 LIST RESTORE 2 LET RESTORE CODE USR STEP ATTR ERASE CODE STEP MOVE !XX COPY 6 GO SUB VAL > DRAW 2 LET CONTINUE <> PRINT OR STEP FLASH OUT 6# CLS STR$ LET < LOAD <> PRINT RESTORE MERGE OR INVERSE RESTORE CLEAR RESTORE PRINT STEP OR OPEN #!^▛^ GO SUB VAL STEP VAL CIRCLE LET 2 OVER ]! PLOT STEP 3 LPRINT RESTORE INVERSE LLIST ( STEP LINE LPRINT NEW SCREEN$ MERGE RESTORE MERGE OR n&)))) NEW [K]Q MERGE MERGE ~ RESTORE PRINT OR INVERSE RESTORE INVERSE ~ATN ( G~ INVERSE PEEK 8 INVERSE PEEK 8 INVERSE n INVERSE f INVERSE # INVERSE # INVERSE # INVERSE # STOP ! INVERSE LLIST STR$ LET RESTORE ))) OVER ▚ FOR STEP USR CLOSE # MOVE RESTORE o& THEN SGN THEN TAN THEN AT NEW PEEK ~ LLIST !^ STEP CLEAR OUT w LLIST # MOVE [Q] MOVE J [H]STR$ MOVE LLIST #CHR$ PLOT ERASE MOVE ERASE STEP READ CLOSE #!▛^^ GO SUB VAL CODE 2 VERIFY ] INVERSE !^:^ GO SUB [^ GO SUB S^![R]^ STEP G LPRINT STEP STOP OVER >2 STEP MERGE OPEN # CLEAR LLIST INVERSE LLIST STR$ MOVE LLIST LET <>!X▝X6© CLS v GO SUB VAL <>: OVER ]!▗ LIST LN LIST 4 GO SUB [R]( REM LLIST OPEN #<> FOR ^#V > STEP C CIRCLE <>: OVER ]! LET STEP 3 LPRINT " REM ] RESTORE INVERSE LLIST STEP | INVERSE [R]2 THEN ] INVERSE ~ATN >=G INVERSE #> OR PRINT PRINT INVERSE ^ INVERSE # INVERSE V INVERSE # INVERSE ~ THEN ©( NEW ! LOAD STEP @ LPRINT G: THEN ]ATN ( INVERSE # INVERSE F INVERSE #x STEP [J] INVERSE ( LET STEP C CIRCLE LET <STR$ STR$ <> LET RUN OR ~ RETURN $ STR$ <> RETURN STR$ OR # LOAD RETURN 8~ NEW ©2 CIRCLE ]# STOP RETURN 08 RETURN :0 VERIFY 0$ RETURN A8 RETURN [0 VERIFY 7 RESTORE OR ! INK LLIST NEXT LLIST GO SUB [R]( STOP FN CLOSE # PLOT STR$ LLIST gSTR$ RESTORE STEP USR CLOSE #X STEP CLEAR OUT : CIRCLE ]w LLIST #[M] OR MERGE PRINT o&))) FOR x!6 NEW STEP 3 LPRINT RESTORE w$ IF LLIST LET MOVE STR$ <>X![R]^ CLS v GO SUB VAL <> RETURN >=:<>]GCODE STEP H INK : INVERSE ] INVERSE w: TO ]ATN USR INVERSE !^ INVERSE ~ATN IF LET CLOSE # RETURN >= RETURN STEP RESTORE CAT <>: BRIGHT ] THEN G THEN O THEN W NOT T MERGE PRINT INVERSE ~ INPUT INVERSE w: BRIGHT ] NEW DRAW 2 BRIGHT ] LET NOT ( MERGE INVERSE ~ INPUT INVERSE w: BRIGHT ] THEN [H]2 BRIGHT ] INVERSE ~ THEN GCHR$ [ BEEP THEN OCHR$ g MERGE INVERSE ~NOT VERIFY INVERSE ~ INVERSE ▚O STEP FLASH OUT RESTORE : PAPER ]! LOAD STEP @ LPRINT F LLIST MERGE OR RESTORE STEP INT VERIFY LLIST STR$ MOVE CHR$ PAPER MERGE $| NEW } AND o8| VERIFY g LPRINT : PAPER ]< RETURN ERASE ATTR MERGE 2 PAPER ] INVERSE s INVERSE ~ NEW PLOT INVERSE w! LOAD : PAPER ]PEEK 8(x RETURN 0# LOAD : FLASH ] NEW VAL 2 FLASH ]NOT VERIFY : DEF FN ] RETURN LINE CLS BRIGHT : BRIGHT ] THEN <=2 BRIGHT ]CODE STEP H INK : OUT ] THEN ? THEN ?<2<>]!= IF STEP - DEF FN NOT ATTR MERGE INVERSE ~ INVERSE ▚ AND INVERSE ~ INVERSE [G] AND PRINT STEP FLASH OUT " CONTINUE ] LET INVERSE V THEN Z THEN R )<>O INVERSE ~ INVERSE ▚ AND STEP z VERIFY >= STEP INPUT OUT STEP LPRINT USR ! BRIGHT ] THEN VERIFY CODE STEP H INK != IF STEP - DEF FN <>O INVERSE ~ INVERSE [G]= STEP z VERIFY >= STEP INPUT OUT STEP LPRINT USR ! BRIGHT ] THEN VERIFY CODE STEP H INK != IF STEP - DEF FN <> VERIFY 8: RETURN 06_ THEN ; THEN ; NEW * CONTINUE ] FOR ! LOAD STEP @ LPRINT ~ FOR _y RETURN IN 0 RETURN !8~[T]USR $| NEW } AND o8| VERIFY g LLIST CODE <>y RETURN IN 0 RETURN !0CODE <>" CONTINUE ] INVERSE ~ AND STEP 7 BEEP ( LPRINT 2 DEF FN ] PLOT USR CODE 2 OUT ] INVERSE ~ VERIFY 8= INVERSE ~<* CONTINUE ] STEP 7 BEEP ( STEP INPUT OUT STEP LPRINT : OUT ] PLOT 2 OUT ] INVERSE ~ AND * CONTINUE ] STEP 7 BEEP ( STEP INPUT OUT STEP LPRINT : OUT ] PLOT 2 OUT ]: OUT ]ATN >= RETURN USR CODE 2 OUT ]<> VERIFY O RETURN 0* CONTINUE ]_ THEN ; THEN ; FOR NEW ! LOAD STEP @ LPRINT FOR INKEY$yUSR < LPRINT CODE <> INVERSE ~=O STEP FLASH OUT RESTORE : PAPER ]! LOAD STEP @ LPRINT F LLIST MERGE OR RESTORE STEP INT VERIFY LLIST STR$ MOVE CHR$ INVERSE BEEP %| NEW RETURN } VERIFY o8| AND g OVER INVERSE s>2 OUT ] INVERSE ~ NEW PLOT INVERSE w: PAPER ]ATN (=2 PAPER ]OCHR$ PEEK BEEP : BRIGHT ] THEN CAT 2 BRIGHT ]NOT VERIFY ! LOAD : PAPER ]PEEK 0x RETURN (+ LET : FLASH ] NEW VAL 2 FLASH ] OVER : BRIGHT ] THEN CAT 2 BRIGHT ] INVERSE s INVERSE ~ NEW PLOT INVERSE wNOT VERIFY : TO ]ATN USR * REM ]~ATN >=G INVERSE !5^># RESTORE CLEAR LLIST MERGE OR PRINT CLEAR N THEN y INVERSE ~ATN (= INVERSE w V CLEAR F LET PRINT STEP C CIRCLE CLEAR # CLEAR # CLEAR # CLEAR # LET STR$ MOVE INVERSE < TO <>2 VERIFY ] INVERSE RESTORE PRINT MERGE OR STEP LPRINT STR$ MOVE CODE INVERSE w INVERSE ww INVERSE w INVERSE s INVERSE r INVERSE s INVERSE r INVERSE q INVERSE px! BEEP GO TO STEP 3 LPRINT #~ INVERSE w INVERSE w INVERSE ^ INVERSE V![R]^ STEP G LPRINT STEP STOP OVER INVERSE ~!<> DIM STEP ) LPRINT >N THEN ! THEN ![B]= INVERSE w#>IN [G] INVERSE w LET INVERSE LLIST <> INVERSE RESTORE INVERSE !^CODE INVERSE w INVERSE w INVERSE w INVERSE w INVERSE w INVERSE w INVERSE w INVERSE BORDER INVERSE LLIST <> PRINT RESTORE MERGE OR INVERSE RESTORE CLEAR RESTORE STEP LPRINT CODE INVERSE w INVERSE w INVERSE w INVERSE w INVERSE w INVERSE w CLEAR LLIST INVERSE LLIST STR$ MOVE LLIST LET <> PRINT RESTORE MERGE OR INVERSE RESTORE CLEAR RESTORE O: VERIFY ] PRINT y2 VERIFY ] STEP LPRINT CODE INVERSE w INVERSE w INVERSE w INVERSE w INVERSE w INVERSE w INVERSE w INVERSE ~ INVERSE ^ INVERSE V![R]^ STEP G LPRINT STEP STOP OVER LET 2 VERIFY ] CLEAR LLIST INVERSE LLIST STR$ MOVE LLIST LET <> PRINT RESTORE MERGE OR INVERSE RESTORE CLEAR RESTORE OR OR PRINT STEP LPRINT LET INVERSE ^ INVERSE V RETURN ( RETURN (▚>SCREEN$ INT 0SCREEN$ INVERSE s INVERSE rSTR$ INVERSE 6 INVERSE px! BEEP GO TO STEP 3 LPRINT INVERSE 6#~ INVERSE w!<> DIM STEP ) LPRINT >▛N THEN ! THEN ![B] INVERSE w#>IN [G] INVERSE wSTR$ x RETURN >22USR ] CLEAR LLIST INVERSE LLIST STR$ MOVE LLIST LET <> OR INVERSE PEEK (8 THEN INK THEN MOVE :^ INVERSE PEEK (8 THEN <> THEN STR$ ySTR$ <> INVERSE !^CODE PRINT 2 VERIFY ] OR CODE 2 INK ] INVERSE RESTORE STEP 7 DEF FN INVERSE LLIST INVERSE ~ATN (= INVERSE wNOT [F] PAPER INVERSE ~ATN LINE [F] PAPER IF [F] PAPER ! BEEP GO TO STEP 3 LPRINT ~ INVERSE w INVERSE 4@ LPRINT RETURN COPY CHR$ 5 PAPER #~ INVERSE w RETURN INVERSE ~ PLOT INVERSE wNOT PAPER RETURN CLEAR $#~ INVERSE wCODE INVERSE w INVERSE w INVERSE w INVERSE ~ INVERSE ^ INVERSE V![R]^ STEP G LPRINT STEP STOP OVER NOT OVER FLASH INVERSE w!<> DIM STEP ) LPRINT >N THEN ! THEN ![B]= INVERSE w~ INVERSE w#>IN [G] INVERSE w~ INVERSE w>2 INK ] INVERSE ~ATN (= INVERSE wNOT FLASH INVERSE ~ATN LINE [G] FLASH IF FLASH !4 CONTINUE STEP 3 LPRINT INVERSE ^ THEN # THEN THEN # THEN ~ RETURN COPY #~ INVERSE w VERIFY RETURN RETURN INVERSE 6NOT [S] PAPER RETURN CLEAR LINE H PAPER RETURN CLS ] STEP H INK INVERSE 4NOT NEXT INK INVERSE w#~ INVERSE w#~ INVERSE w#~ INVERSE w INVERSE 4: INK ] INVERSE ACS 2 INK ] INVERSE ~ PRINT : VERIFY ]ATN ( RETURN ( INVERSE ^ INVERSE N! SAVE OPEN # LET RETURN DRAW TO STR$ INK THEN GBIN I FLASH THEN OBIN ` FLASH THEN WBIN r FLASH THEN _BIN ▗ FLASH NOT [G] FLASH PRINT INVERSE ~ INVERSE PEEK 8 INVERSE [G]8LN 0x INVERSE w LET <> PRINT INVERSE ~ INVERSE ▚EXP 8(y INVERSE w LET <> PRINT INVERSE ~ INVERSE [G]8INT 0z INVERSE w LET <> PRINT INVERSE ~ INVERSE ▚SQR (8{ INVERSE w LET <>: INK ]ATN LINE FOR FLASH INVERSE ~![R]^ INVERSE ^ INVERSE V STEP G LPRINT PRINT MERGE OR RESTORE INVERSE ~!k_ INVERSE ^ INVERSE V STEP G LPRINT CLS v STEP STOP OVER LLIST STR$ MOVE LET STEP STOP OVER INVERSE w INVERSE s INVERSE r INVERSE RESTORE STEP ▜ OVER BIN PLOT FLASH INVERSE LLIST INVERSE STR$ LET <CHR$ INPUT INK <>yVAL CLS NOT OVER FLASH PRINT : TO ]ATN ( LET <> LET 2 MERGE ] STEP LPRINT : VERIFY ] RETURN ( RETURN (R<>:^ NEW ©>= RETURN >= INVERSE ~ NEW ©>=!SGN INPUT STEP @ LPRINT O THEN yCHR$ CLS BRIGHT THEN qCHR$ SCREEN$ BRIGHT THEN iCHR$ Y BRIGHT THEN aUSR y NEW ! POKE RESTORE STEP 3 LPRINT FOR STEP LLIST : MERGE ] STEP H INK STEP CIRCLE CIRCLE NEW STEP LPRINT LPRINT <>y NEW ! NEXT INPUT STEP 3 LPRINT DIM INVERSE ~ NEW ©>=!SGN INPUT STEP @ LPRINT O THEN yCHR$ [U] BRIGHT THEN qUSR THEN iCHR$ [L] BRIGHT THEN aUSR : MERGE ] STEP H INK STEP CIRCLE CIRCLE y NEW ! POKE RESTORE STEP 3 LPRINT FOR STEP LLIST NOT [U] BRIGHT y NEW USR > STEP COPY CIRCLE <>y THEN ? THEN ? THEN ? NEW STEP <> BRIGHT : MERGE ] STEP COPY CIRCLE ) NEW STEP LLIST !A IF STEP - DEF FN <> PRINT PRINT !^ STEP @ LPRINT LET RESTORE !} LIST STEP @ LPRINT ~ LLIST w LET RESTORE !u LIST V# STEP @ LPRINT ^ LLIST ~! BEEP GO TO STEP 3 LPRINT #~![R]^ STEP G LPRINT STEP j OUT <>> STEP H INK STEP CIRCLE CIRCLE >F2 STOP ]>2 STEP ]>2 LPRINT ]CODE 2 DEF FN ]<>: MERGE ] STEP H INK STEP CIRCLE CIRCLE >! POKE RESTORE STEP 3 LPRINT FOR STEP LLIST NEW STEP LPRINT LPRINT > STEP [J] INVERSE >=>22 CAT ]>2 FORMAT ]<>> STEP [J] INVERSE >=NOT CLS BRIGHT > STEP [J] INVERSE USR : MERGE ] STEP H INK : MERGE ] STEP H INK NOT v INVERSE : MERGE ] STEP H INK NOT v INVERSE STEP | INVERSE LEN w<>: OVER ] PRINT NEW = PAUSE INVERSE LET THEN ? THEN ? THEN ?! PLOT ] STEP @ LPRINT <> OR RESTORE !^ GO SUB [R]( REM [R] INVERSE LLIST STR$ <>: OVER ]!▗ LIST 4 GO SUB LEN USR +~ PLOT w2 MOVE ]: MERGE ] STEP COPY CIRCLE >92 LIST RESTORE 2 LET RESTORE NEW STEP LPRINT LPRINT NEW STEP LLIST <>!} LIST ^PEEK USR # RANDOMIZE CODE <> STEP PAPER INVERSE CHR$ CLS BRIGHT NEW STEP LLIST NEXT STEP >=>=>2CHR$ ] CLS STEP _ CAT ![N] DATA STEP [ CLOSE #! NEW RESTORE STEP [ CLOSE # STEP DEF FN THEN g RANDOMIZE STEP DEF FN THEN g( RANDOMIZE NOT TO >" STEP [J] INVERSE USR > STEP [J] INVERSE >=> STEP <> BRIGHT ) NEW STEP LLIST !A IF STEP - DEF FN <>> STEP <> BRIGHT : MERGE ] STEP COPY CIRCLE CODE 2 LET CONTINUE ) NEW STEP LLIST !A IF STEP - DEF FN <> STEP u OVER USR ! OUT ] THEN OVER <> STEP u OVER USR ! OUT ] THEN VERIFY <>: MERGE ] STEP LPRINT INVERSE ~ATN IF OVER (<>CODE <>: VERIFY ]O CLEAR !5^ CLEAR ~ATN (>yLN (: INVERSE ~ CLEAR [G]0/<0 INVERSE V THEN " THEN "INT CLEAR V THEN " THEN "INT 0 INVERSE ~ CLEAR [G]0/<0 INVERSE PEEK CLEAR PEEK 0 PLOT x<> CLEAR x RETURN LEN CODE <> PRINT : VERIFY ]ATN ( RETURN ( LET STEP ^ OUT <> LET INVERSE RESTORE MERGE PRINT RESTORE CODE 2 NEW ] PLOT 2 BORDER ]{ THEN ? THEN ? VERIFY 0/<2 NEW ]CODE PRINT ▝ VERIFY 8_y[D]2 BORDER ] LET NEW !f NEW Z THEN # THEN INVERSE LLIST GO SUB [ NEW ] MERGE RESTORE OR PRINT A▚#fo ERASE ? OUT $ PAUSE M OUT IF M OUT INVERSE ~VAL$ w# INVERSE # INPUT LET STR$ LLIST MOVE ## INK LET MOVE INVERSE LLIST <> MERGE PRINT { VERIFY _ LET STEP j OUT MOVE <> PRINT RESTORE MERGE OR OR PRINT RESTORE z STEP FLASH OUT { THEN ? THEN ? NEW _ MOVE RESTORE RESTORE OR AVAL$ w# RANDOMIZE STR$ LLIST $| NEW } AND o8| VERIFY g STOP MOVE LET STR$ !9 GO TO STEP @ LPRINT ATN (* FOR | THEN ? THEN ? THEN ? NEW PLOT Xgx THEN 8 THEN 8 THEN 8 NEW ( OR RESTORE AVAL$ w# IF LLIST STR$ LOAD STR$ MOVE LLIST LET <> PRINT THEN ? THEN ? THEN ?!6 NEW STEP 3 LPRINT LET NEW ▗g<>| THEN ? THEN ? THEN ? NEW PLOT XW]<> PRINT | THEN ? THEN ? THEN ? NEW g LET <> RESTORE OR 2 LINE ]! FORMAT LLIST GO SUB LEN STR$ LLIST <> STEP LINE LPRINT ^ RESTORE INVERSE LLIST <> MERGE FOR o&)) MOVE <> PRINT ▜o0$~#fo LET <>o0$~<> PRINT MERGE RESTORE RESTORE +6+6" POKE ]!<> DIM STEP ) LPRINT {N#F#^#V LLIST OR PRINT OR OR Aw# IF 6#STR$ PAUSE MOVE z STEP LINE LPRINT FOR LET STR$ VERIFY THEN ' NEW ($ THEN +0 OR NEXT GO SUB s PAUSE ]PIC GO SUB { POKE ] LLIST THEN THEN RESTORE LLIST RUN = LOAD GO SUB { PAUSE ] CLS STR$ LLIST MOVE LET <> PRINT !x THEN GO SUB j GO SUB R0? NEXT THEN G LET <>! RETURN >= OR THEN ?0 THEN # THEN PRINT STR$ <>! LET RESTORE FOR CODE [O] RETURN 00 AND 7+ PAUSE PRINT 0>02 LIST RESTORE 2 LET RESTORE STEP CLS BRIGHT ! LOAD RESTORE LET <>ATN ("O=_0CODE ! GO SUB RESTORE PAUSE ) LLIST >▙ RETURN :8 VERIFY ?w+ GO TO ! NEW RESTORE STEP [ CLOSE #<> PRINT RESTORE MERGE OR INVERSE RESTORE CLEAR RESTORE *s LOAD #"s LOAD :CHR$ ]ATN (!` LLIST RESTORE !F IF STEP 3 LPRINT DIM :USR ]ATN BIN r LLIST CLEAR LLIST INVERSE LLIST STR$ MOVE LLIST LET CLS GO SUB M=2USR ] NEW AND 2 STEP v DEF FN <> BEEP STEP RETURN LOAD RETURN IN RETURN OUT RETURN RUN RETURN CLS RETURN CLEAR RETURN RETURN RETURN © FLASH RETURN LOAD RETURN LOAD RETURN LOAD RETURN LOAD RETURN LOAD RETURN CLEAR @ COPY USR CIRCLE ▛ SAVE C▙CHR$ CIRCLE &▖0 DATA FOR ▛vABCDE %@-/^~efghijklmnopqrstuvwx%$;<=>?&'()*+,-./0123456789:BIN POINTS$CHR$ MAGIE$ AND FLASH CAULDRON IICHR$ CONCEPTION CHEVRONEE FLASH STEVE BROWNCHR$ FLASH DESIGN DIABOLIQUE FLASH STEVE BROWNCHR$ FLASH CODE CALE RICHARD LEINFELLNERCHR$ FLASH SON SCINTILLANT FLASH RICHARD JOSEPH AND @ PALACE SOFTWARE MCMLXXXVI$ AND OBJETS MAGIQUESIL FAUT REUNIRVOUS NE POURREZSANS EUX REUSSIRCHERCEZ-LES DONCMANIEZ-LES BIENCAR DESORMAISJE NE DIS PLUS RIENCHR$ PRESSEZ LE BOUTONPOUR COMMENCERET PUISSE LA CHANCEVOUS ESCORTER$NOT VOUS AVEZ OBTENUUN SCORE MAIGRELETPRESSEZ DONC LE BOUTONET RECOMMENCEZOSEZ A NOUVEAUAFFRONTER LA SORCIEREET CETTE FOIS PEUT-ETRELA METTREZ VOUS EN BIEREVOTRE SCORE$NOT FLASH FELICITATIONSVOUS AVEZ ACHEVE CAULDRON II FLASH VOTRE SCORE LA SORCIERE EST MORTE FLASH VIVE LA SORCIERE$ AND CAULDRON II1 KEMPSTON2 INTERFACE II3 CLAVIER4 COMMENCER JEU$CHR$ DEFINIR TOUCHES$ AND HAUT FLASH $ AND BAS FLASH $ AND GAUCHE FLASH $ AND DROITE FLASH $ AND ACTION/SAUTER$ AND ANNULER FLASH $ STOP READ q RESTORE RESTORE RESTORE [O] RESTORE TAB RESTORE SGN RESTORE +LWcNOT 3<>3 ERASE [K]$©%$ NEW NEW NEW NEW NEW ! NEW % NEW ) NEW . NEW @ @@@`@@[Q]@USR @ LPRINT @H H@H`HH[Q]HUSR H LPRINT HP P@P`PP[Q]PUSR P LPRINT P[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a@ABCDEFG[Q]@[Q]A[Q]B[Q]C[Q]D[Q]E[Q]F[Q]GUSR @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@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]OUSR 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 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[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 W[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a[T]a` CONTINUE m CONTINUE s CONTINUE y CONTINUE © CONTINUE CONTINUE IN CONTINUE LET CONTINUE RUN CONTINUE DIM DIM - DIM ? DIM I DIM S DIM m DIM © DIM [F] DIM ATTR DIM ASN DIM IN DIM $ RETURN CLEAR DRAW COPY COPY DRAW COPY COPY DRAW COPY COPY CLS 6 CLS COPY COPY DRAW IF COPY @ CLS @ CLS COPY CLS CLS COPY H CLS H CLS COPY ( CLS ( CLS COPY COPY COPY COPY ( CLS )( CLS 2 DRAW IF COPY >= DRAW IF COPY DRAW IF COPY COPY PP COPY ,eFe`eze[E]eVAL$ e>=e STOP e DRAW ef0fJfdf~f[I]fSIN f TO f REM fg&gDgbgg[O]g INVERSE g OVER gh/h[L]h PAPER hi*Xi* VERIFY i*Tj* ERASE j*Pk* DEF FN k*Ll* LINE lHm▜m AND mn2n_n▚nTAB n CLOSE #n SAVE no@odo▖oAT o GO TO o,plpAT p GO TO p,qlqAT qr[A]rsts NEW sXt[H]t VERIFY tuTu[D]u ERASE uvPvv DEF FN vw'w*Aw*IN w*=x*SQR x*9y*ATN y*5z*COS z1{p{CODE { INPUT {"|V||PEEK | RESTORE |}3}Z}▝}FN } CAT } PLOT }~,~8~D~P~/~h~t~z~SCREEN$ ~ RETURN ~=©|© IF © IF ©9xATN PLOT 5▝t▝COS ▝ GO TO ▝%▘^▘_▘b▘f▘l▘r▘y▘▜▘[J]▘ FLASH ▘00J0SCREEN$ 0:▗ LINE ▗ MOVE ▗O▙ STEP ▚K▚▚[P]▚ OVER ▚' FLASH AAA FLASH E FLASH EC FLASH FLASH A FLASH EEEECC FLASH DDDC FLASH DD FLASH AA FLASH E GO SUB N GO SUB Z GO SUB f GO SUB i GO SUB u GO SUB | GO SUB © GO SUB GO SUB [B] GO SUB [G] GO SUB [O] GO SUB PI GO SUB AT GO SUB LEN GO SUB LN GO SUB SGN GO SUB NOT GO SUB PAPER GO SUB LLIST GO SUB REM GO SUB NEXT GO SUB PLOT GO SUB CLEAR GO SUB INPUT INPUT INPUT INPUT INPUT ( INPUT 2 INPUT N INPUT S INPUT V INPUT Y INPUT / INPUT _ INPUT b INPUT e INPUT j INPUT ▝ INPUT ▗ INPUT ▜ INPUT [B] INPUT [G] INPUT [N] INPUT [S] INPUT PI INPUT SCREEN$ INPUT TAB INPUT TAN INPUT INT INPUT COPY COPY COPY CLEAR ,-.- COPY [F] RETURN PQRSTUVW COPY JKLM COPY gh COPY 01234 COPY =>?@AB COPY [D] COPY _` COPY CDED COPY ]^ RETURN FGHI COPY ' FLASH () FLASH ( COPY cdef COPY xyz{|} COPY ijklmn COPY N RETURN ©▝ COPY [/ RETURN [H] COPY ~ RETURN [E] COPY [C] COPY [G] COPY ▙[A] RETURN !"#$%& COPY COPY ▛▞▖▜▚▗▘ FLASH CLEAR [I] COPY [ RETURN / RETURN ▟ RETURN [A] RETURN ] RETURN ^ RETURN ab COPY X FLASH YZ FLASH Y COPY [G] RETURN [B] RETURN COPY *+ COPY ,-., COPY ;< COPY op COPY [J] RETURN [K] RETURN qrsr COPY tuv COPY O RETURN FLASH ! H*)h&(@`!%p")$#*' INVERSE G INVERSE ` INVERSE k INVERSE P INVERSE ATTR INVERSE FOR INVERSE ' OVER E OVER a OVER k OVER #%'USR 0BIN efghi AND jklBIN m AND BIN n AND $BIN rqpo AND vutBIN s AND BIN w AND BIN x$5767676767676765|}~©ppss8aO%Fnk▛FH[A]LL`@,L`@,l@l**|@,@H[Q]|,HL|@|@L(HH|@l▖▖L@L`| @@[I]|[I][I][I][I]<*t@P@,@`t@P@T|@H/L`L`HP(|@<&*,([I]L`,@|@▖//@0D|@/ @(L`L[A]2/``0`▖l@▖<[A]t(l▖/((|((((x<▖|@▖▖▖▖▖▖▖▖▖Yf"#'*,./12345:;>?BCDFJLMPQTVY[/]`bdfhikmoqvx&[M]<[Q],[Q]D[Q]L[I]D[A],[Q][Q]<[Q]/@x▖ld@<@,[Q]|[Q][Q]L@Lxvrz▖J[A]L[Q]@[Q]$h<[Q]l[Q]HH,[Q]/@/[Q]L[I],dX@[Q]d`p`xH@`$`@tHL[Q]L[Q]l`F(/@l[Q][Q]|▖! PAUSE & PAUSE / PAUSE PAUSE 8 PAUSE PAUSE A PAUSE F PAUSE O PAUSE PAUSE T PAUSE PAUSE PAUSE a PAUSE PAUSE f PAUSE k PAUSE & PAUSE p PAUSE y PAUSE ~ PAUSE ▜ PAUSE PAUSE PAUSE [F] PAUSE [K] PAUSE [T] PAUSE FN PAUSE LEN PAUSE INT PAUSE PAUSE IN PAUSE PAUSE PAUSE BIN PAUSE MOVE PAUSE OVER PAUSE FOR PAUSE SAVE PAUSE NEXT NEXT NEXT & NEXT 3 NEXT @ NEXT L NEXT PAUSE Y NEXT f NEXT s NEXT | NEXT ▞ NEXT [C] NEXT [L] NEXT [T] NEXT VAL NEXT ABS NEXT DEF FN NEXT FLASH NEXT PAUSE BORDER NEXT GO TO NEXT RANDOMIZE NEXT RETURN NEXT PAUSE POKE POKE POKE ! POKE * POKE 3 POKE ? POKE PAUSE PAUSE H POKE U POKE ] POKE f POKE s POKE | POKE PAUSE POKE [F] POKE [S] POKE CODE POKE LN POKE STR$ POKE POKE AND POKE OPEN # POKE LPRINT POKE DIM POKE PAUSE POKE CLS POKE PAUSE PRINT PRINT PRINT & PRINT 3 PRINT @ PRINT PAUSE I PRINT Q PRINT ^ PRINT g PRINT l PRINT u PRINT } PRINT ▚ PRINT ▙ PRINT [L] PRINT [U] PRINT TAB PRINT INT PRINT NOT PRINT TO PRINT INK PRINT OVER PRINT READ PRINT GO TO PRINT PAUSE PAUSE PAUSE PRINT PRINT IF PRINT PLOT PLOT H[Q]PPT[A],[A]/hD[Q]5|[Q]/5[Q],@0([A],N-@@/`/@<T5(,0/p5<|[Q] [Q].b05<@5p(@/[Q][Q]5[Q]l<`<[T]ATTR D`5l[Q]N▛n▛▙,[Q]<]h[I]v[Q].▛x3r▘thx2<`/X5`LATTR l[Q]@0/@0@▙.|(▝<@0x[T]<@H<`5lp@@0/@0`▙.0▙./x,[T]@d@[Q]j4|@/x3r▘x2L`lH▙ B1xp@0/@0H▖▙L@0xAT h[I]v[Q]`5l[Q]5,@0xZFN /C`>`54x*"▘LXC|FN /`<P SCREEN$ 48XF`l8/[Q],klH<FN ▖▝l`,[Q]<`5N▛n▛@/,[Q]<]h[I]>▛v[Q]x[A]Xc<@▙.<@0(x<[T]`▖`RND/@0`,0[T]llV,`l@bAT @0lx,Np[Q]5,@hXv`,`[Q],ATTR Ll<@0@▙.x[T]l`/▖[Q]5<@5`,▙p`X3r`▘X2L@x[Q]`t(<@0,[Q]5,▖▝`SCREEN$ 4@F@@Dx"$/N▛n▛LP@0l`AT @[I]5<[T]l`▛>▛^▛/x/@0L@0P[T][T]p▘14[E]4[E]T[E]t[E]$[E]D[E]d[E]pRND<[A] RUN RUN RUN RUN RUN RUN RUN RUN RUN 2 RUN $ SAVE ` RUN 2 RUN z RUN RUN ` RUN z RUN RUN 2 RUN ` RUN RUN RUN RUN RUN ` RUN ` RUN RUN RUN RUN ` RUN ` RUN RUN RUN RUN RUN ` RUN ` RUN ` RUN ` RUN ▛ RUN [I] RUN [I] RUN ` RUN G RUN G RUN POINT RUN POINT RUN 2 RUN G RUN G RUN G RUN ` RUN q RUN [I] RUN [I] RUN G RUN G RUN G RUN POINT RUN RUN 2 RUN G RUN G RUN G RUN POINT RUN RUN [I] RUN G RUN G RUN POINT RUN POINT RUN RUN RUN 2 RUN 2 RUN G RUN ` RUN ` RUN ` RUN ▛ RUN RUN 2 RUN G RUN ` RUN ` RUN G RUN POINT RUN RUN 2 RUN G RUN G RUN LLIST RUN LLIST RUN POINT RUN RUN RUN 2 RUN G RUN G RUN G RUN G RUN ` RUN [I] RUN [I] RUN FORMAT RUN FORMAT RUN LLIST RUN LLIST RUN POINT RUN POINT RUN q RUN NOT RUN G RUN G RUN G RUN G RUN INT RUN q RUN G RUN G RUN G RUN G RUN G RUN G RUN SAVE IF RUN IF RUN IF RUN s▘STR$ FORMAT ` BRIGHT COPY iVAL$ IN SQR pp BRIGHT COPY i`iLEN IN as▘STR$ FORMAT `8zSTR$ COPY r[Q]9; FOR ▚▛[I]ZeLEN IN a BRIGHT COPY is▘STR$ FORMAT `ATN 'CD DATA LEN IN as▘ RUN [Q]CODE COPY USR COPY LINE [F]VAL 5LEN IN a BRIGHT COPY i[F]VAL QLEN IN a BRIGHT COPY i`i PAPER GO SUB W[F]VAL 5LEN IN a INPUT COPY iLEN IN aqrACS `iqrACS LEN IN ar[Q]8zJQ DIM V_ OPEN #r[Q]STR$ COPY JQ DIM T] BORDER 8z9; FOR r[Q]JS CLS T` CLS CD DATA ▟ NEXT r[Q]JS CLS T`CD DATA ▟ NEXT 8zSTR$ COPY r[Q]9; FOR ▚▛[I]/e PRINT PRINT PRINT PRINT PRINT PRINT PRINT INPUT INPUT PRINT PRINT INPUT PRINT INPUT PRINT INPUT { PRINT { INPUT INPUT PRINT INPUT "#$% & PRINT ' PRINT INPUT "( INPUT !#)"$*#%+$&,%'-& PRINT . INPUT ) INPUT !(*/")+0#*,1$+-2%,.3&- PRINT PRINT ' INPUT 06)/17*028+139,2 PRINT :-un INPUT INPUT INPUT 6 INPUT INPUT 57</68=079>18:?29;@3: PRINT A PRINT INPUT =B6<>C7=?D8>@E9?AF:@ PRINT G; INPUT CI<BDJ=CEK>DFL?EGM@FHNAG PRINT O PRINT INPUT JPBIKQCJLRDKMSELNTFMOUGN PRINT VH INPUT QWIPRXJQSYKRTZLSU[MTV/NU PRINT ]O INPUT X_PWY`QXZaRY[bSZ/cT[]dU/ PRINT eV INPUT _f INPUT ^`gW_ahX`biYacjZbdk[cel/d PRINT m] INPUT gn^fho_gip`hjqaikrbjlsckmtdl PRINT ue4o INPUT fnp INPUT goqvhprwiqsxjrtyksu INPUT lt4 INPUT m INPUT w|pvx INPUT qwy INPUT rx INPUT ©s INPUT INPUT |v PRINT PRINT INPUT } INPUT v|~ INPUT INPUT }© INPUT INPUT ~ INPUT INPUT y COPY 2 PLOT 2 COPY STR$ NOT [H] LINE MERGE >=B4S1▙. LET +z)&' POKE $ LLIST " GO TO TCODE !SCREEN$ G RANDOMIZE ABS [D]zpv▞SCREEN$ qINKEY$Q[Q] RANDOMIZE /<=:U[U] DRAW _ LINE =LN ; OR U GO TO t INVERSE P LINE L CLOSE #d IF [G]7 OVER ▞ACS 9CHR$ S REM ▚) FORMAT }. READ [N]wPIG GO SUB [I]G DRAW TAN p1 POKE B4S1▙. LET +z)&' POKE $ LLIST " GO TO TCODE !SCREEN$ G RANDOMIZE ABS [D]zpv▞SCREEN$ qINKEY$Q[Q] RANDOMIZE /<=:U[U] DRAW _ LINE =LN ; OR U GO TO t INVERSE P LINE L CLOSE #d IF [G]7 OVER ▞ACS 9CHR$ S REM ▚) FORMAT }. READ [N]wPIG GO SUB [I]G DRAW TAN p1 POKE z FLASH NEXT CODE COPY COPY NOT THEN *]/"_/CNOT PAUSE COPY FLASH *]/~ STEP } FORMAT STEP t RUN COPY COPY COPY NOT [3 COPY FLASH OR *a/ RESTORE NOT [O] PRINT RESTORE *x/#"x/|ASN CLEAR 4@ OR MERGE STEP IN MOVE STR$ LLIST LET CLS <> LLIST n CLEAR u GO SUB {=/NOT OR COPY FLASH PRINT RESTORE *VAL /|ASN DIM LLIST LET GO SUB E*]/#"]/~<> RETURN ! FORMAT RETURN >= RETURN CIRCLE RETURN ? CIRCLE # RETURN 8#7"]/<>IN RNBIN INKEY[U]P<>F DEF FN POIN CLOSE #SCREEN[U]ATT ERASE A CLOSE #TACHR$ VAL[U]COD OR VA TO LE DEF FN SI DEF FN CO OPEN #TA DEF FN AS DEF FN AC OPEN #AT DEF FN L DEF FN EX FORMAT IN CLOSE #SQ ERASE SG DEF FN AB OPEN #PEE THEN I DEF FN US ERASE STR[U]CHR[U]NO CLOSE #BI DEF FN O ERASE ANBIN <ABS >ABS <PEEK LIN OR THE DEF FN T CAT STE FORMAT DEF F DEF FN CA CLOSE #FORMA CLOSE #MOV OR ERAS OR OPEN [T]CLOSE [T]MERG OR VERIF INK BEE FORMAT CIRCL OR IN THEN PAPE ERASE FLAS>=BRIGH CLOSE #INVERS OR OVE ERASE OU CLOSE #LPRIN CLOSE #LLIS CLOSE #STO FORMAT REABIN DATSTR$ RESTOR OR NE BEEP BORDE ERASE CONTINU OR DI STEP RE STEP FO ERASE GO T CAT GO SUCHR$ INPU CLOSE #LOABIN LIS CLOSE #LE CLOSE #PAUS OR NEX FLASH FLASH FLASH CLS 6 CLS COPY COPY DRAW IF COPY @ CLS @ CLS COPY CLS CLS COPY H CLS H CLS COPY ( CLS ( CLS COPY COPY COPY COPY ( CLS )( CLS 2 COPY COPY !n CLS ~ RETURN ( GO SUB FN +F+~+ DRAW | RETURN PAUSE DIM } RETURN a DATA NOT b PAUSE ! AND / PAUSE v> CLS STEP P PRINT NEXT !@@ COPY u GO SUB VAL CODE 2H/ OPEN # RETURN 2H/ STEP IF NEXT > RUN FLASH RETURN THEN G(> RUN FLASH RETURN THEN O( INPUT > COPY 2H]CODE 2H] CLS STEP $ POKE NEXT ! PLOT PFTAN GO SUB VAL !CHR$ PAUSE @ COPY GO SUB VAL 1JV!@ RESTORE NOT ▘_:H] RETURN LIST 8CODE 2RND THEN 2 INPUT DEF FN !PF/TAN GO SUB VAL 1NOT CLOSE # THEN C !X MERGE RESTORE OR OR RESTORE ~ NEW 8( VERIFY _~ NEW (=WzCOS w, CONTINUE LLIST STR$ INVERSE ! NSTR$ LLIST MOVE DEF FN <> COPY COPY 8 CLEAR LET DIM SAVE v{ RETURN > RUN <> MERGE PRINT MERGE >x VERIFY RETURN 8 RUN MOVE z RETURN GO TO LET MOVE BRIGHT { RETURN 0z RETURN 0!X THEN : THEN THEN : THEN THEN : THEN Ww STEP LINE } COPY ##<@ COPY GO TO [U]aR COPY ▜ COPY 8 NEW _ GO TO _&]+];]_:]` COPY ▘_ NEW ```-[C]/e LINE ACS O$X COPY ![!@H LPRINT P!8▞[H]`uPIa COPY COPY POKE FN K POKE BIN S▝BIN POKE BIN P CONTINUE CLEAR saver C[A]e CONTINUE CLEAR BIN /rl COPY TAN _[R]a COPY SGN SCREEN$ ~!▛aC?P? COPY POKE FN K POKE BIN S▝BIN R POKE BIN P@ CLEAR 24999: PRINT "CAULDRON 2 CASSETTE MAKER": PRINT : PRINT "R LEINFELLER": PRINT : PRINT ' LET a$="loader": LET a=25000: GO SUB 5002 PRINT "1 english": PRINT "2 german": PRINT "3 spanish": PRINT "4 french"( INPUT n2 LET s$="ewitch": LET f$="C2"< IF n=1 THEN LET p$="eprog"F- IF n=2 THEN LET s$="gwitch": LET p$="gprog": LET f$="H2"P IF n=3 THEN LET p$="sprog"Z IF n=4 THEN LET p$="fprog"d SAVE f$CODE 25000,70n PRINT "stop tape"xk LET a$=s$: LET a=16384: GO SUB 500: LET a$="graphics": LET a=25900: GO SUB 500: LET a$=p$: LET a=52180: GO SUB 500▘& LET a$="saver": LET a=65000: GO SUB 500▜# IF INKEY$="" THEN BEEP .5 COPY ,1: GO TO 1355000[G] PRINT "copy complete" NEXT STOP POKE LET e=USR 15363: REM :4 NEXT STEP [C];; LLIST 1 RESTORE INK MOVE INK !@ INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K][K]▝~~~~~?~?~? RETURN ?~? LIST ? LIST ? RETURN ? RETURN [K]?[K][K]RND COPY LIST COPY LIST COPY COPY LIST COPY LIST LIST ~~~~~ COPY LIST ?~ COPY LIST ? COPY RETURN ? COPY ?~ COPY LIST ?~[K]? COPY LIST [K][K][T] COPY LIST COPY LIST COPY COPY LIST COPY LIST LIST ?? COPY RETURN ?~??~? COPY LIST ?~?▙[K] COPY LIST [K][K]CHR$ p LPRINT ~?~? RETURN ?~? LIST ? LIST ? RETURN ? RETURN [K]?[K] THEN (bBBfB@BBf@[K]2| PAPER USR PAPER 0USR USR AND USR [K]o[K]SCREEN$ [K]/RFFZF@@FZx[K]2USR DEF FN USR DEF FN 0 AND AND l AND DEF FN [K]O<~@~< RETURN <<B~ RETURN ▘|~[K][K]UT[K]/ PAPER AND DRAW AND RETURN USR DEF FN RETURN AND USR [K]2 DRAW 0| AND USR | AND |0 RETURN RETURN |8 RETURN |[K]O[K]@B[C]BBf@[C]DB@[K]O DEF FN DEF FN TO [K] AND [K] AND [K][C]<x@x@@FZx(Fx0[K]O|0 AND |[K] AND RETURN | AND AND RETURN [K][C][K]USR 0 DEF FN RETURN AND USR 00 DRAW USR [K]p<>B~>B> RETURN ~@>B~<[K]o DEF FN [K] AND 0[K] AND 00USR AND [K]oBb@b[C]@@B@@[K]o|[K] RETURN |0| AND AND RETURN 00USR RETURN 0[K]/B<|B<@<<B~[K]2R SAVE Rx@Fx<[K][K]'! !▖!!![I]"I![K]@[K] THEN LET USR LLIST LIST !H LIST [Q]STR$ !STR$ h A [Q]xB> RETURN |<B RETURN ~@[K]< <<<<[K]NOT `` LIST chUSR ccc`NOT LIST `USR Df[C][K]B[C]@@[K]B BBBF[K]NOT 0c;0COS 38c;8USR 3;c39VAL 3`NOT 0`USR FZ[K]Fx@[K] F(N[K]NOT LLIST LET NEXT READ CLS LET LET NEXT LIST USR NEXT RANDOMIZE NEXT LIST LPRINT READ LIST NOT LIST USR AND AND 0 DRAW AND AND 0USR USR [K]| x>x>= VERIFY [K] RESTORE TO AND 0 TO DEF FN l0 AND AND [K]USR DEF FN DEF FN DRAW INPUT [K] RESTORE SAVE AND |0 AND |80 RETURN RETURN 0[K] DRAW ||||[K][T] LPRINT SAVE LET RANDOMIZE LIST LIST SAVE LET PAUSE RANDOMIZE LET LLIST CLS RANDOMIZE LIST IF [K]0[K]@[K][K]F@[K]A[K]F[K]A F[K]EBB[K]EB[K]A[K]F[K]FSTR$ [K]D [K]BA[K]D[K]B▛ PAPER USR PAPER 0USR USR AND USR [K]o[K]SCREEN$ [K]/RFFZF@@FZx[K]2USR DEF FN USR DEF FN 0 AND AND l AND DEF FN [K]O<~@~< RETURN <<B~ RETURN ▘|~[K][K]UT[K]/ PAPER AND DRAW AND RETURN USR DEF FN RETURN AND USR [K]2 DRAW 0| AND USR | AND |0 RETURN RETURN |8 RETURN |[K]O[K]@B[C]BBf@[C]DB@[K]O DEF FN DEF FN TO [K] AND [K] AND [K][C]<x@x@@FZx(Fx0[K]O|0 AND |[K] AND RETURN | AND AND
