| Is a part of release: | Cauldron 2 |
| File size: | 44032 |
| md5: | 122f559b8efbe6e404a2a3cca38e4202 |
0 CLOSE #USR 0: REM 1PIa!@T] COPY u GO SUB VAL CODE OPEN # RETURN 2k/!@[M] GO SUB [ POKE / STEP = STEP @[M]CODE Gv CLEAR CODE !@[M] GO SUB [ POKE / STEP =!@T] COPY u GO SUB VAL STEP @[M]CODE !FN a[N] GO SUB [ POKE / STEP = STEP 8^!@T] COPY u GO SUB VAL COPY 6 GO SUB VAL INVERSE !^H STEP STOP ]>2/:/ RETURN ( RANDOMIZE > OUT FLASH RETURN THEN g CODE 2 INPUT DEF FN >2k/NOT CLOSE # THEN INVERSE ~oPI>=&))) GO SUB K6/ MERGE ~ACS STEP ^ STEP ^# NEXT MOVE INVERSE # PAPER z NEW USR { AND _ CIRCLE z VERIFY W<> INFINITE LIVES ? SAVE STEP E^v{ RETURN > PLOT <> MERGE PRINT MERGE >x STEP a^ VERIFY RETURN 8 PLOT MOVE z RETURN FOR LET MOVE <>{ RETURN 0z RETURN 0!X THEN : THEN THEN : THEN THEN : THEN Ww<><> aPNOT SCREEN$ i" LINE 0GEN2"CODE 23884+257fuck2"boot" 18 INK DATA INVERSE V CIRCLE BORDER NEW DRAW 00 DRAW DRAW TO LIST DRAW GO TO xSGN T LIST SAVE DRAW OVER RETURN ©= OR rEXP OVER ?©_ FLASH ©©ATN [P]©w OUT IN oIN o COPY ?©? LPRINT SAVE RETURN COPY COPY ?▝USR LIST LIST LPRINT LPRINT LPRINT USR USR USR USR USR LIST NEXT INK RESTORE CLEAR RESTORE SQR INK !▖[M] DRAW {[M]ATN STEP {[M] INK INK zCOS REM NOT SQR STEP {[M]< INK `i_ GO SUB R~ NEW CODE THEN #▘[H]▝5 PAPER [Q]` RANDOMIZE n(BIN n MERGE NEW PINOT STEP LINE 1CHR$ } BORDER !▜C PLOT q FOR va``C IF THEN STEP FSTR$ +5 DATA SQR )J[G] DIM SAVE cVAL E▝ PLOT [Q] MOVE d/j MOVE nEXP /!2SQR V BRIGHT ACS c FLASH % REM |s0 LIST G AND x!I PLOT ASN xSIN @ [P] LIST [E]a(FN AND CODE @ IF ^POINT NEXT q CONTINUE LOAD OPEN # NEXT ^ LOAD LINE = BORDER NP?▟ RESTORE TAB RESTORE # DIM OVER o VERIFY STOP ^o▗ IF V▞ LOAD p POKE j▘SQR PAPER GO TO f;!S LINE "▜!C[F]LN PAUSE GSTR$ @>jIN READ <[I] PAUSE ~F MERGE DATA USR ▟1[Q]▜©JHM FORMAT *E▘ LET p CLOSE #y©NOT c BRIGHT Ka CLEAR j4=S[D][A] COPY FRND; CLS RNDINKEY$[L], DIM RESTORE '9[R] BORDER NOT DEF FN 1 SAVE RANDOMIZE NOT OR 0>! INK CONTINUE SAVE OR LN AND 1yLN LOAD LET SAVE fUSR f[S]1L CONTINUE ▜# CAT LIST AND IN 3VAL <g GO SUB ▜m▚ CAT 4 PAUSE BORDER USR SAVE 0GSTR$ AND ALN LPRINT LPRINT LABS l0LN FN 0[D] AND s LET LEN USR NOT 2cAT DEF FN LPRINT 0FN a LIST NEXT h~▝ LLIST STOP >gSTR$ ▚/.?▝ OVER @ CAT RANDOMIZE JR[C]~DQ DRAW SCREEN$ [C][A] COPY USR [B] SAVE SQR CODE TAN ▝ RETURN r INPUT A :y INVERSE : FLASH [F]▝,EXP [Q]▘CBIN IN LPRINT OUT ▞ GO SUB STR$ m@@ !PTAN b(Rlk RUN CLS INPUT 0^EXP IF INKEY$[Q]4^b NEW B* CLS COPY CHR$ RETURN "~AT 2?~H[G]`a▜61 CAT 9[B]BB|▞4 LLIST 4 COPY FORMAT IBIN DEF FN PY DEF FN P DEF FN P[M] RESTORE DEF FN P] DEF FN P< DEF FN BRND CIRCLE READ NEXT REM =[R]INT [A] STOP 7PEEK AND DRAW RETURN '[M] NEW < MOVE INPUT LOAD [A][M][Q]NOT [M][R]<> LINE y LINE [M][R]9 LINE RANDOMIZE >=y[M] LET TAN NEXT [A] NEXT INK RESTORE CLEAR RESTORE SQR INK !▖[M] OPEN #{[M]ATN STEP {[M] INK INK zCOS REM NOT SQR STEP {[M]< INK `i_ GO SUB R~ NEW CODE THEN #▘[H]▝5 PAPER [Q]` RANDOMIZE n(BIN n MERGE NEW PINOT STEP LINE 1CHR$ } BORDER !▜C PLOT q FOR va``C IF THEN STEP FSTR$ +5 DATA SQR )J[G] DIM SAVE cVAL E▝ PLOT [Q] MOVE d/j MOVE nEXP /!2SQR V BRIGHT ACS c FLASH % REM |s0 LIST G AND x!I PLOT ASN xSIN @ [P] LLIST [U]:} LET x7 LOAD LIST CLEAR RANDOMIZE 9▜ NEW OVER BORDER RETURN s▚ BORDER NEW [M] BORDER yIN OUT N STOP T NEW ~A STEP DRAW <ENf PRINT LPRINT >J RANDOMIZE THEN s/N LIST BIN [Q]{Kr▗ LLIST DIM LINE [Q]API RETURN CM SAVE OUT ▗ LOAD (Nr RETURN q▘~r© BORDER 9 DEF FN 3▖} LIST Ow BORDER R3? LINE [M][Q] SAVE [M][R]1 DRAW [R]9 LINE [M][R]9 LINE LINE [M][Q] LET LINE [M][R]9 LINE ▞ LINE [M][R]9 LINE [M][R] RANDOMIZE LINE LINE [M][R]9 LINE DRAW [R]; LINE [M][R]9 LINE [M][R]9 LINE [M][R]9 LINE ▞ LINE i LINE I LINE [M][Q] LIST [M][R]EXP LINE [M][R]0 DRAW [Q] CLS SGN [R]y LINE LINE [M][R]1SGN [Q] PAUSE [M][Q] LPRINT ; LINE [M][R]u<[R]y LINE LINE |[Q] LPRINT LINE SGN [R] LIST DRAW [Q] IF SGN [Q] PAUSE LINE LINE [P] LINE LINE [M][Q] PRINT DRAW [Q] RUN [M][R]y LINE [M][Q] NEXT [M][E]@r▚g(<g(8g(0g(Nr▘rrrr▗ BORDER (0g( PI( r'(Nr▗CHR$ r▜ LINE r▘r THEN rrr▘S PAUSE ▘r▘[T](-2▘VrBrJr▘ LINE r▘NOT (9'(87(0g(8g(/((g(8'(0r[C]r▘Rr▘~r▘x▜(L($ATN (5 PAUSE ▘(N PAUSE B PAUSE ▘Frzr}(^ PAUSE *rCODE (0 PAUSE ▗ LOAD (MIN (Nr[O]r OVER r IF (Ne[A]>LN .! LIST ATTR LLIST SAVE H~ RUN [M] REM 8/c DRAW k▖[Q]' BRIGHT [G]1 LET [O] TO ▝ DRAW aLN LEN BRIGHT GO TO 5 NEXT GO SUB PEEK d#8Hd|$COS "9sED PLOT /▖<= LPRINT ' IF BF0JD#C#[C]+[Q] RETURN STOP DRAW XH@Ar CONTINUE HdD[S]z/▛D LOAD PAUSE LET USR ▙ LET ▗Dy@ STOP LLIST VAL bINT [D] SAVE ▗2CHR$ x>0[A][I](▗N[U]OBIN NG LLIST i PAUSE ▗~"▖oBc [Q]*~[U]B$Q[B][B] RESTORE NEXT ▛E qxr REM A▙ SAVE y[E]USR BIN >=BIN [D] DATA [U],[C]^A POKE H[M]Z▖[R]"p▟PI$ READ READ LG FLASH @LN [J]rBIN [R]▞ BORDER [C]" CIRCLE G'Axr'1`DD@0DB RANDOMIZE DATA G▖STR$ D LLIST USR ▖i[N][P]!4▖x AND LIST aLEN ▙B`y[A]N[D]c>=▝ECHR$ !g[Q]BIN PLOT b BIN [A]`qSTR$ ▞ DRAW COPY ! INK INPUT SAVE [I]~ DRAW fEXP o IF ) DRAW ▙ DATA [A]} PLOT 8 1 FLASH STOP SAVE VAL CLEAR Xv PAUSE [P] LPRINT USR RNDINKEY$[Q] PLOT O▖:k@.IN USR [F]$LN STR$ H OUT <= VERIFY CLS CLOSE # FOR >=PIW LPRINT <CHR$ INT SCREEN$ /BIN n RESTORE pUTAN LPRINT F RESTORE BRIGHT / IF MATTR BEEP 7 MOVE CLEAR IF MERGE o RUN SABS a GO TO LN PRINT :VAL LOAD eZEXP DRAW INT p|ATTR ©O POKE x9v; PAUSE LPRINT b[P]yATN STAB r LLIST ▝` DRAW w#[N] RETURN CAT INPUT sCODE L@@z CLEAR GO TO ATN CHR$ ▘NCOS LIST g}VAL O LIST BRIGHT PEEK INPUT ~LN *©q> INVERSE :[B][H] DIM l OPEN #O▝LN -NOT PIF| RETURN [L]<=OCODE [A]Goq| REM POKE | CONTINUE 7MkINKEY$USR EXP ` BRIGHT INPUT u/| PRINT BRIGHT SQR IF 7NOIUSR w BEEP KpB?~ OVER TAB POINT RND OUT LOAD INPUT INT LOAD FORMAT / DEF FN USR [I]ASN Z BEEP STR$ w LINE ▜ SAVE DIM SAVE xIN OUT CLOSE #_ INVERSE CLOSE #< [F] MOVE COPY RD<= CLEAR AND {x5 DRAW RETURN NEXT PAUSE LPRINT INKEY$ DRAW oaI OVER FLASH TO TAB s LET CODE 3Y LET DATA BRIGHT CONTINUE B▛ CLS 8USR PAUSE ABS CHR$ NOT CLOSE #▚~{y INPUT xVAL D<= PLOT U INPUT VAL CLS LPRINT BIN s~=▛ GO SUB c SAVE =[U]~ OUT k PRINT wx= CAT RNDG CLEAR ▞ PAUSE `yTAT [Q]@/ LET LOAD {▛ SAVE 0IN >~T[Q][P] CIRCLE 8|s FORMAT RETURN LPRINT PRINT d0? CIRCLE ^ GO TO >@@s<>|▘= OVER M LINE LPRINT COPY DEF FN 0J LPRINT ©s CONTINUE VAL$ OUT AND RETURN CHR$ SGN NEXT ARTAB /~INT j DIM [L]▘%@[F]h LIST SCREEN$ oz[Q]OCHR$ EXP ▞ INVERSE rRND INVERSE ^PFN w READ [N]/FN EXP POKE IN FORMAT = RETURN a`5J7.PEEK SAVE LN LN LINE + INVERSE IF PLEN <= PLOT STR$ PAPER E INVERSE ^HB[F]J(- OVER <T5R[R]JSGN BRIGHT aR MERGE (H>=5?WUSR [R] IF TUtZ[P]]m LPRINT R*@'[H] PRINT ] LPRINT BSTR$ SIN RANDOMIZE RETURN ~{[A] PLOT [Q]<r_?CODE DEF FN SAVE @ REM ▝ OPEN # RUN CLS }n@Pa CONTINUE DIM PEEK [P]] CLOSE #` BORDER [R] INVERSE GO SUB [S] REM T3RND CIRCLE /{J[Q];- GO TO SAVE ATTR [C]/ PLOT CONTINUE @P$INT LN ([Q][P]@ LPRINT FORMAT BEEP ▝4ucp FOR LPRINT @[Q]ATTR SAVE . CLEAR ((USR :;A CLEAR SAVE VAL RETURN PRINT LIST PLOT ▞^*INT INT u LPRINT SGN USR }U CONTINUE T:IN [B] OR CLS ▞T THEN CONTINUE INT ? RUN ▞T▖~ LPRINT ABS CHR$ /R▜NOT NEXT |P ATN U/▜ STOP TAN ▝Bo OR bPOINT [T]x©>= IF RETURN *[AFSCREEN$ =TUSR ( POKE COPY ([A]ACS :@ FORMAT xtu@nASN Z EBUSR >▛VBXSTR$ LN LOAD OR S)"LEN USR ^ RETURN *[B]R▗X LPRINT 8[J] J`▗[P] RANDOMIZE [E]▖fX@ CLS >=T[S]D MOVE [N]S)PUSR 82 OUT ▘RND 08CHR$ FORMAT SCREEN$ eLN READ AE AND ▝R▝U DATA @Dg READ @FN @SIN x RANDOMIZE H[A]▘x{3 BRIGHT lFvUSR CONTINUE z[E]<9[Q]qUSR RETURN DRAW RETURN SGN LOAD ▛▖"sVAL )POINT .©>=0^[A]pD▝@RFN "FAT SCREEN$ [F]k* VERIFY UAT ATTR YT TO l▘▝.[M]g LLIST © NEXT 0▖i`+ DRAW >= PAUSE TO s[A]VAL [I][A] DEF FN SQR FORMAT PAT 4LN [P] PRINT (vACS ASN iBIN ▜h, GO TO A[M]1PEEK <=T CONTINUE TO I INPUT FORMAT [B]EXP PAUSE zSx READ CLS ~ PAPER [P][R] IF PINT REM $8/] DEF FN XCHR$ Z DEF FN ERASE LLIST L,G[N]fA[I]x IF PAUSE ▗2POINT u LET 3@W[N]` FORMAT LBP OR STR$ [Q]+P0=%^J]K[A], LLIST Hd[K]RNDrtT[B][I]BIN `[F]ACS pz[E]x[E] RETURN 'J/ CLOSE #[Q]VLEN [A]&[A]▖X MERGE p(/ GO TO W, FORMAT : FORMAT F5(@e SAVE ▚e^ LINE fT ERASE OR # DEF FN &E FORMAT WPOINT R ERASE 2[N]dD OVER s CONTINUE OVER &BTAN ,5COS @S INK [E]W[N]AT D*L[F][E]:▛[Q]"?NTAN ▙Fc!erPOINT FORMAT @I▘[C]&5FA8DW8 VERIFY ▝/a[A] CONTINUE Q1[F]vNOT 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 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 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 `USR LIST 1 AND /o CLS 0 SAVE USR USR VAL 986 CIRCLE 6 CIRCLE 7 CIRCLE VAL `USR USR LPRINT @USR `[Q]X(LN @USR @▞▘B(@USR USR `USR VAL @X @`USR @A 0x| DRAW p LOAD LIST CAT LIST LPRINT USR LIST ~ SAVE > LIST LPRINT READ LIST NEXT SAVE wx?80px DRAW 8 INPUT LIST CAT LIST <= LPRINT LIST |x~ LPRINT USR ▝ LPRINT 0p NEXT SAVE RUN LN 0| SAVE ~ GO TO 6017PEEK COPY COPY DRAW DRAW RETURN CLS 808|`| LPRINT oUSR NOT ▝ LIST ▝ LPRINT ▝USR NOT NOT USR READ LPRINT RUN LPRINT >0px SAVE 8` LIST LIST <x~` p80p`00 00< PLOT SAVE 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 < PLOT SAVE 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 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 < PLOT SAVE 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 ffABS SAVE ?< DRAW <<|>x``ff<ABS LIST x8<<000© LPRINT @STR$ ? COPY NEXT TO ` SAVE LIST USR PAUSE STR$ STR$ © AND x DRAW 0 © SAVE USR RESTORE LPRINT BIN NEW ?|<}USR PAUSE USR RUN PAUSE COPY ▙© SAVE USR RESTORE LPRINT BIN NEW ?|< 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 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 x CAT NOT COPY LIST DRAW READ LOAD < AND NEXT COPY INPUT GO TO x; LIST SGN USR DRAW > CAT VAL DRAW DRAW ~? LPRINT NOT NEXT ? COPY c< COPY p COPY ?3 CLS CAT 7w> OUT <?<9| LIST LIST READ USR COPY USR COPY DRAW LIST < LPRINT ?USR 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 NOT NEXT USR COPY <=?c< RUN p COPY CAT 3 CLS CAT 7w BRIGHT ?=|8 LIST NEXT USR LPRINT ?STR$ ?~ DRAW SAVE pUSR 008<x88<8<88< LPRINT VAL NOT NOT 0o PLOT oSQR INVERSE PLOT FORMAT [A]c▜ LPRINT ACS 0USR ▚0▚NOT NOT USR pUSR 8USR LPRINT `USR c AND USR ? DRAW NOT SQR INVERSE NOT DEF FN [A]s LPRINT `00`00` LIST LIST 80 LPRINT 0003 TO ? DRAW ?; BRIGHT DRAW `<>[D]NOT ▜ LLIST NOT ▚`a``USR ▚USR a▚aNOT NOT NOT NOT USR p LPRINT <USR < LPRINT USR [O]`y3c AND TO USR `? DRAW `NOT SQR INVERSE NOT ▙[A]q[I] LPRINT [I]`[I]`USR 10`USR LPRINT LN pNOT NOT RUN ?; BRIGHT DRAW USR `[A]`USR LPRINT 0`0USR `USR USR x3STR$ TO ` LOAD RUN NOT ; BRIGHT NOT ▙[A]q[I] LPRINT [I]0[I]010`USR ABS COPY `~ LPRINT LIST COPY LIST 0f0f0f8<0000```▝ SAVE 6NOT lfffABS VAL COPY x~ DRAW ; BRIGHT 9 COPY [M]0f0BpB<00``▝ SAVE 6NOT lfff 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` 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 [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 @USR W LIST LPRINT PRINT <ox`;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`?USR USR USR ````0 LPRINT COPY <ox03;=alUSR lUSR fUSR ©USR 0066ff READ 332o COPY <ox`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`?<|< 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 © COPY COPY RETURN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CLEAR © COPY © PLOT COPY RETURN DRAW 0 LIST #USR COPY DRAW ? DRAW LIST LPRINT 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 © COPY COPY RETURN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN IN COPY © COPY o RETURN ?BIN SAVE DRAW ? COPY LIST ?? 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 p CIRCLE CIRCLE USR p LET USR ?; LET USR USR p CIRCLE CIRCLE p LPRINT VAL VAL ? LPRINT COPY DRAW ? LPRINT VAL VAL LPRINT ▚ DRAW LIST ©[I]0▝ CIRCLE 4 COPY ,0USR LPRINT aVAL ?X RETURN 0▝ CIRCLE 4 COPY ,0n COPY LPRINT PLOT COPY SAVE N© LPRINT 7© LIST {© DRAW '? LIST x PRINT ~~ IF RUN ~<4>n©©?8<|v©©>l/6n©~><|v~6<0p VERIFY RETURN LOAD ~|<<< LPRINT LIST LPRINT 0`USR USR LPRINT LIST SAVE xp0USR p` 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 x0 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 ~ COPY ©USR COPY USR © COPY VAL$ NEXT LPRINT RANDOMIZE LPRINT CLEAR PLOT j~ COPY LOAD USR COPY USR COPY LPRINT ~@~` COPY PLOT j~ COPY CLS USR COPY USR COPY SAVE CAT LOAD USR COPY PLOT j~ COPY CLEAR USR COPY USR © COPY VAL$ NEXT LPRINT RANDOMIZE LPRINT CLEAR PLOT j~ COPY COPY @ COPY USR COPY LPRINT ~@~` COPY PLOT j~ COPY COPY USR COPY USR COPY SAVE CAT LOAD USR COPY PLOT j? 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 ~0000USR 0`USR x LIST `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 OUT OUT OUT 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+[M] SAVE 7 SAVE a LIST STR$ LPRINT ▝USR 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 SAVE RETURN 776USR 7 DRAW p BRIGHT `LN CLEAR CLEAR CLEAR CLEAR CLEAR CLS RUN << COPY USR 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 LIST < LIST USR VAL < LIST 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 RETURN |© COPY COPY >© READ DRAW RANDOMIZE <=[P] CLS RUN <=9 DRAW RETURN COPY COPY USR RETURN COPY COPY COPY ~© COPY COPY COPY COPY COPY ©?IN IN IN [P] CAT USR NOT <= DRAW CLEAR LLIST LOAD CAT READ CLS © COPY COPY COPY COPY COPY COPY 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 COPY COPY COPY COPY COPY 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 COPY COPY COPY COPY COPY ? CAT BORDER LIST LIST LPRINT USR USR ?© COPY COPY COPY COPY COPY COPY LOAD RUN CLS RANDOMIZE DRAW DRAW CLS RUN NOT BORDER BORDER ▜; CLEAR COPY COPY COPY COPY COPY COPY COPY COPY p9}0 COPY COPY COPY COPY COPY COPY COPY |3 CLEAR CLEAR p▜ COPY COPY COPY COPY COPY COPY >[J]©IN IN DEF FN USR ? COPY COPY CLEAR CLEAR DRAW s DEF FN LPRINT COPY COPY COPY ©< COPY >? COPY COPY COPY NOT LET DRAW DRAW =STR$ LIST DRAW NEXT CAT ?© COPY COPY COPY COPY NOT NEXT LET LIST NEXT RUN RUN LET COPY COPY COPY COPY COPY COPY COPY COPY <=<= RUN NEXT USR CAT ?= DRAW COPY COPY COPY RUN RUN LIST NEXT CAT ?©© LPRINT DRAW COPY COPY COPY DRAW DRAW y CLEAR p? COPY COPY COPY COPY COPY ©<= SAVE DRAW DRAW CAT CAT RUN LIST LIST NOT COPY DRAW LIST NOT OUT OUT IN ©?<= LIST NEXT RUN RUN NEXT NEXT STR$ < COPY COPY COPY COPY COPY COPY COPY ©[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 | COPY DRAW CLEAR LET TO ?©©? COPY COPY COPY COPY ©~|© OUT CAT TO |0NOT RUN LET LPRINT USR USR USR w RUN gq DRAW RANDOMIZE COPY COPY COPY COPY COPY COPY ©[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 < COPY COPY COPY COPY COPY COPY COPY CLS RUN COPY COPY COPY COPY COPY [P] COPY COPY COPY COPY COPY COPY LPRINT LIST LIST LIST LIST LIST 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 COPY COPY COPY COPY RETURN DRAW CLEAR CLEAR CLEAR RANDOMIZE NEXT NOT READ ?IN ▜ RUN NEXT LIST <= OUT RETURN COPY COPY COPY COPY COPY COPY ©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 COPY COPY COPY COPY COPY ©? 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 COPY COPY COPY COPY COPY DRAW USR NEXT BORDER DRAW RETURN COPY COPY COPY COPY COPY COPY RUN LOAD OUT [P]?? OUT LOAD NOT BORDER BORDER LLIST BRIGHT IN COPY COPY COPY COPY COPY COPY COPY COPY READ USR [M]PEEK COPY COPY COPY COPY COPY COPY COPY > LIST USR USR TO IN IN COPY COPY COPY |[J] RETURN CLEAR CLEAR s DRAW COPY COPY IN IN ? DEF FN LIST LIST s COPY COPY COPY RETURN SAVE < COPY |USR USR DRAW COPY COPY COPY NOT ??SGN ? CAT NEXT DRAW RETURN COPY COPY COPY COPY USR LIST LIST USR USR NOT CAT USR USR USR USR USR CAT LOAD LOAD COPY COPY COPY COPY COPY COPY COPY COPY USR READ READ LOAD CAT NEXT DRAW USR USR LIST USR USR SGN ? COPY COPY COPY LOAD LOAD CAT NEXT DRAW RETURN RETURN ? COPY COPY COPY ??[O]IN COPY COPY COPY RETURN READ ?? LIST NEXT NEXT LOAD NOT LPRINT COPY ?NOT LIST CLS CLS CLEAR RETURN DRAW SAVE READ CAT LOAD LOAD CAT CAT < COPY COPY COPY COPY COPY COPY COPY 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 > COPY ?IN 3 DRAW RETURN RETURN DRAW COPY COPY COPY COPY RETURN ~> RETURN SAVE CLS NEXT 3>8NOT LOAD INPUT LOAD NEW ▙?[P] COPY COPY COPY COPY COPY COPY 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 <s=z?7<[K] CAT PEEK COPY COPY CLEAR >w7>IN © RETURN CLS GO SUB NEXT <= OUT STR$ BORDER OUT © CLEAR CLS RUN CAT SAVE LIST USR COPY COPY DRAW LIST LIST LIST USR ???© RETURN DRAW READ OUT IN IN [P]? DRAW INPUT LOAD [P] COPY COPY CLS RETURN BORDER DRAW oUSR COPY COPY COPY ?© COPY COPY RETURN COPY COPY COPY COPY COPY COPY ©© NEXT CLS COPY COPY COPY COPY COPY COPY CLS COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY OUT <= COPY COPY RETURN DRAW COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY SAVE COPY COPY COPY LIST COPY LIST COPY COPY DRAW LIST LPRINT USR DEF FN SGN 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 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 ? PLOT COPY COPY COPY DRAW RETURN COPY COPY © COPY COPY COPY COPY COPY COPY RETURN RETURN CAT OUT COPY COPY COPY COPY COPY COPY OUT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CLS READ COPY COPY ©? COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY 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 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 COPY COPY COPY COPY COPY SAVE DRAW DRAW RETURN RETURN RETURN RETURN RETURN ?© COPY COPY COPY COPY COPY COPY IN OUT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CLS RUN RETURN RETURN RETURN RETURN DRAW DRAW SAVE COPY COPY COPY COPY ©©? COPY COPY COPY COPY COPY LOAD BORDER COPY COPY ©? COPY COPY COPY COPY RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN COPY COPY COPY COPY COPY COPY COPY COPY RETURN RETURN RETURN DRAW IF RETURN RETURN RETURN 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 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 COPY COPY COPY COPY DRAW LET COPY DRAW LET STR$ NEXT COPY LIST COPY COPY COPY DRAW LET <= NEXT OUT ? COPY COPY COPY COPY COPY COPY COPY COPY DRAW LET NOT COPY DRAW LET STR$ 3 COPY COPY COPY COPY COPY COPY DRAW LIST <= NEXT CAT ?© DRAW LIST COPY COPY COPY COPY COPY 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 COPY COPY COPY COPY COPY © COPY COPY COPY COPY COPY COPY COPY BORDER COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CLEAR RETURN RETURN RETURN RETURN RETURN RETURN DRAW ©??© COPY COPY COPY COPY COPY COPY COPY COPY ? COPY COPY COPY COPY COPY ? COPY USR CLS RUN RUN LIST DRAW USR DRAW COPY COPY COPY COPY COPY COPY LIST LIST LPRINT LIST COPY COPY 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 COPY COPY COPY COPY ? CAT NEXT COPY ? DRAW COPY COPY COPY COPY COPY COPY COPY COPY DRAW LIST USR COPY COPY COPY COPY COPY DRAW LIST USR COPY LIST OUT LOAD LOAD ?? COPY COPY COPY COPY COPY COPY COPY COPY LIST 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 COPY COPY COPY COPY DRAW NEXT CAT COPY DRAW LIST USR ? COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LIST LIST USR DRAW DRAW DRAW DRAW COPY COPY COPY COPY COPY USR NOT CAT COPY COPY COPY COPY COPY DRAW LIST COPY COPY COPY COPY COPY LIST LIST LIST LIST LIST ? COPY DRAW LIST USR USR COPY COPY COPY COPY COPY NOT NEXT COPY COPY COPY COPY COPY ? COPY COPY COPY COPY COPY DRAW COPY ? COPY COPY COPY COPY < COPY COPY COPY COPY DRAW DRAW DRAW DRAW ?? COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CAT COPY COPY COPY COPY COPY COPY NOT COPY COPY COPY COPY COPY COPY CAT COPY COPY COPY COPY COPY COPY DRAW COPY COPY COPY COPY COPY DRAW COPY ©©©© COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY DRAW NEXT CAT ? NEXT CAT ? COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY DRAW COPY COPY COPY COPY COPY COPY DRAW DRAW COPY COPY COPY COPY COPY DRAW COPY ©©©|CO? DRAW NEXT CAT ? COPY COPY COPY COPY ?IN IN OUT OUT LOAD LOAD RUN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY DRAW LIST USR DRAW LIST USR COPY COPY COPY COPY COPY COPY COPY COPY RUN CLS RANDOMIZE SAVE SAVE LIST USR DRAW LIST COPY ©©©© COPY COPY COPY COPY COPY COPY COPY NEXT COPY CAT ?? CAT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY DRAW DRAW DRAW LIST LIST ? COPY COPY COPY COPY COPY ? COPY COPY COPY COPY COPY COPY COPY NEXT COPY COPY COPY COPY COPY COPY NOT COPY COPY COPY COPY COPY COPY NEXT COPY COPY COPY COPY COPY COPY ? COPY COPY COPY COPY COPY ? COPY RETURN RETURN RETURN RETURN COPY USR COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ? CAT NEXT DRAW CAT NEXT DRAW COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ? COPY COPY COPY COPY COPY COPY ?? COPY COPY COPY COPY COPY ? COPY RETURN RETURN RETURN >CHR$ PAUSE DRAW ? CAT NEXT DRAW COPY COPY COPY COPY DRAW CLS CLS RUN RUN LOAD LOAD OUT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ?? COPY COPY COPY COPY COPY COPY COPY COPY OUT ??? COPY RETURN RETURN RETURN RETURN COPY COPY COPY COPY COPY COPY COPY CAT COPY NEXT DRAW DRAW NEXT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ??? DRAW COPY COPY COPY COPY COPY DRAW COPY COPY COPY COPY COPY COPY COPY COPY LPRINT DRAW COPY COPY COPY COPY COPY COPY ? COPY COPY COPY COPY COPY COPY <?<?<?< COPY DRAW COPY DRAW COPY DRAW COPY DRAW COPY |©?| NEXT uUSR 0USR 0 DRAW OW COPY TO COPY USR DRAW NEXT TO 0 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 COPY ``` LPRINT ``` LPRINT <<<<<<<<0``USR COPY ~~<©? RETURN DRAW ` CIRCLE CIRCLE CIRCLE CIRCLE CIRCLE 000USR p; LLIST 66f AND LIST llfc000000`` BRIGHT ▜? COPY COPY DRAW USR ? GO TO LET CLS TO o BRIGHT COS |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 COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY <<<<<<<<<<<<<< COPY ▝ FLASH FLASH USR USR LPRINT LPRINT LIST LIST CLS zv~<<px808~ COPY CLS RETURN CLS v8v|v|v|v`|©© COPY COPY ? COPY COPY |v|v|v|vwwwwwwww COPY ABS ABS ABS ABS ABS ABS ABS LOAD LOAD LOAD LOAD LOAD LOAD LOAD LOAD |> COPY RETURN COPY RETURN <wwwww7ABS ABS ABS ABS ABS ABS ABS ABS LOAD LOAD LOAD LOAD LOAD LOAD LOAD LOAD `x|~|~|~ABS ABS == LOAD LOAD LOAD LOAD LOAD LOAD LOAD |~|~|~|~©© COPY COPY DRAW RETURN |~|~|© COPY COPY COPY COPY COPY COPY RUN COPY COPY COPY COPY COPY COPY NEXT CLS COPY COPY COPY COPY COPY RUN LOAD COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN COPY COPY COPY COPY COPY COPY COPY COPY ©©? COPY COPY RETURN RETURN DRAW SAVE LPRINT < COPY COPY COPY COPY COPY COPY COPY COPY COPY ?©© COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN RETURN CLEAR CLEAR CLEAR VAL x DRAW DRAW RETURN RETURN RETURN CLS CLS CLS CLS COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ABS ABS ABS ABS CLEAR CLEAR CLEAR CLEAR RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN ? 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 `USR `0 CIRCLE GO TO PLOT NOT STR$ 7oNOT 8 LIST LIST LPRINT USR NOT 0`f0OF$[Q]6{3x LPRINT USR 0vUSR 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 COPY COPY COPY COPY COPY >.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 COPY COPY COPY COPY COPY ` LIST RETURN COPY STEP COPY © COPY ```````` COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ?© COPY USR LIST COPY ▝ R [R]"$▖@[S]@`[A]▖B) ▝[Q]@JPXD0$ @E QB[E](P @@<<<<+,%&'( !"56/0;<%&1234789:=>?@-.AB)*GH#$KLCDEFIJ-.AU)*GV#$KLMNOPQRSTWXYZMNOPQRST-.AU[/]^ !_`fghitsvuyxw|{zSTR$ CHR$ NOT BIN OR AND <=>=<> LINE ©~}▝uyxw▘|{z THEN TO STEP DEF FN NOT CAT FORMAT OR AND <=>=<> LINE y|©~}▝uxw▘{z THEN TO STEP DEF FN NOT CAT FORMAT OR AND >=<><= LINE ©▝yx|{~}uw▘z THEN TO DEF FN NOT FORMAT OR >= STEP CAT AND <=<> LINE ©~▝uyxw|{z}▘ 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 LOAD INPUT NEXT PAUSE NEXT PAUSE NEXT PAUSE LIST LET LIST LET LOAD INPUT RUN SAVE RANDOMIZE IF CLS DRAW IF IF IF IF IF 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 COPY COPY COPY COPY COPY COPY COPY COPY THEN DEF FN pppp TO STEP NOT CAT DATA READ STOP LLIST BRIGHT INVERSE OUT OVER LPRINT LLIST BRIGHT INVERSE OUT OVER LPRINT LLIST BRIGHT INVERSE OUT OVER BRIGHT INVERSE 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 GO SUB GO SUB GO SUB GO SUB GO SUB GO SUB GO SUB GO SUB BORDER NEW RESTORE CONTINUE REM DIM CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE 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 ▚▜▚▖rstu▚▞▖rstu▞▞▜▖rstu▛▛▜rstu▛rstuLEN SIN COS TAN vwxy9STR$ NOT vwxy:CHR$ BIN OR <=<=STR$ <=<=NOT <><> OR AND CHR$ <=<=BIN <=<= AND <><> LINE THEN TO CAT FORMAT MOVE ERASE STEP THEN DEF FN OPEN # CLOSE # MERGE >=ASN ACS ATN LN vwxysba`{dcwePEEK ABS SQR SGN fghi LLIST LLIST STOP LLIST READ DATA rstu LLIST STOP LLIST LLIST READ DATA rstu LLIST LLIST LLIST LLIST rstu©~rsturstuvwxytuxyrsvw~rstuYX[Z]/^_`OPTUWV INK PAPER FLASH BRIGHT INVERSE OVER OUT LPRINT SGN IN TAN SGN ssLN COS TAN ASN ACS Z[TUVW/XY]rstuvwxytzxvwxys{wnjlnokmostrstuvwxy<=<>;SQR SGN ABS PEEK MNOPQRST[F]abceCOS 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 RNDLEN SIN ASN ACS COS TAN ATN LN rrABS COS TAN ASN ACS s{}ws{wrstuSQR SGN ABS PEEK TAN SGN SGN ppppvwxyZ[/t]^z_x NEW BORDER 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 CONTINUE DIM REM FOR GO TO CONTINUE DIM REM FOR GO SUB GO SUB GO SUB GO SUB LEN SIN COS TAN NEW BORDER GO TO LEN SIN COS TAN GO SUB GO SUB DATA RESTORE STOP READ '( !"XYZ[/]`_^````a CONTINUE DIM REM FOR bcdbMNOPQRSTe<=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[F][I][H][G][M][L][K][J][T][S][R][Q]POINT FN PIINKEY$[P][O][N]RND[U]ATTR SCREEN$ CONTINUE DIM REM FOR CODE VAL$ TAB AT RNDVAL NOPQNRSTUVW('&%"! 65<;0/&%4321:987@?>=BA.-HG*)LK$#FEDCJIUA.-VG*)LK$#PONMTSRQZYXWPONMTSRQUA.-^]/[_! `tuxydbPIINKEY$RND[U] LOAD INPUT GO SUB GO TO NEXT PAUSE LET LIST rstursturstursturs! vw'&.-%$##,+*)10/&.-10/&.-bcdbPONMTSRQ"(%$##,+*)8"(810/&.-rstu%$##,+*)1765rstu"(4333rstu82rstu! '&.-abcdbeefghiafghivw|} THEN DEF FN LN ATN ACS SQR INT LEN SIN SIN ASN ~©▗`_de_cc^]/bbbSIN SIN SIN SIN THEN DEF FN LN LN ATN ACS SQR INT ©~}▝uyxwVAL |{zTAN LEN SIN SIN SIN ASN ~}uwVAL LEN SIN zTAN ASN THEN TO STEP DEF FN NOT CAT ATN ACS OR AND SQR INT >=<>fghirsvwtuxyvutszyxw~}|{▘▝© THEN LINE <= AND OR BIN STR$ USR CODE VAL$ ATTR SCREEN$ POINT FN MERGE CLOSE # FLASH PAPER CAT DEF FN JKLM LLIST LPRINT STEP TO BORDER NEW <>>= FOR REM NOT CHR$ TAB AT RESTORE DATA READ STOP DIM CONTINUE POKE LPRINT STEP TO PRINT NEW <>>= FOR REM NOT CHR$ TAB AT tz|xtzxrstuVWXYZ[/]rstu?@ABtuVAL 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]SCREEN$ POINT [S]RNDLEN [U][R][F]VAL SIN [T][G]ASN [N][H][I][L][M]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]AT VAL$ [S][Q]CODE [U][R]ATTR SIN LEN [T]PILEN ASN [N][P]FN [L][M][J]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]SCREEN$ POINT RNDLEN LEN VAL SIN [G]ASN SCREEN$ [H][I][L][M]AT ATN ATTR [T]ASN [N][P]ACS [L][M][J]TAN ACS ▟CCC▙CCCCCDDDqqqqqrrrLEN SIN qqqqCOS TAN fghi©▝▘MNORSk[I][H]a[M][L][K][J][T][S][R][Q]POINT FN PIINKEY$ NEXT POKE PRINT PLOT LIST LET LOAD INPUT VERIFY BEEP BEEP BEEP CIRCLE vwxyJKLMNOPQrstuIN TUUSR ▟````SQR CHR$ SGN USR OR BIN USR STR$ CHR$ NOT USR USR OR BIN USR USR USR STR$ CHR$ NOT USR USR CHR$ USR USR OR BIN USR USR USR USR USR STR$ NOT USR USR USR USR USR USR OR BIN ! !%&'(((USR USR USR qqqq222222)*+,-.+,-.+2210/#$$$▟FASN ACS ATN ASN ATTR ?[G]F[F]?``@A``BC<=DE<>>=PEEK IN T LINE :;<=JI<=<>F554?F?[G]▟[E][D][A][C]FFFFFFjl PRINT PRINT STEP CAT TO ?ik PRINT 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 PRINT AND PRINT PRINT ASN ACS ATN ASN ~ATN %&CHR$ NOT USR USR OR BIN USR q)*'((((,+-/▗SQR SQR AND AND $ 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 AND FFASN ACS ATN k???FFj !? %&(qqq)*,((((((+-.+(,0/+ ! %&( PRINT PRINT qqq((((((????????lFFASN ACS ATN ASN ACS ATN ????????F"#$$ASN ACS ATN ????d?d?$$$$ASN ACS ATN ASN ACS ATN ASN ~LN AND AND EXP ~ATN ASN ACS ATN ASN ACS ATN ??ik????5543c??d?dgf"#$$▖$▟$$▟$ASN ACS ATN ASN ACS ATN ▚ AND EXP ATTR ATN SAVE ATTR ATN AND ASN ACS ATN ▟?ik??FFFFFFFASN ACS ATN ????????`@A``@A`BCBCDEDE IF CLS T__IKKJ__```@A```BC<>__DE LINE ``T IF CLS _IKJ_JI_FFjlFFFF?i PRINT Fjst?????yxzFFFFhs▞stuvuv▟FjlFF[E][G][F][G]?ik??`@A``@A`BCBCDEDET IF CLS _JI_IKJ_```````r ERASE ERASE IF CLS T ERASE _IKKKI_ OPEN #G```````nnno_______FFFFFFF??ik RESTORE BRIGHT PAPER CIRCLE BORDER OVER OUT READ NEW INVERSE FLASH INK CONTINUE BEEP LPRINT DATA ▖▟FjlFFASN ACS ATN PRINT PRINT k SAVE ATTR ATN l[D][A]k```````raT ERASE _IJ_<=````>=ON________G@A``@ArnBCBC ERASE DE67DEP89O__:;<=>_G```@A``nBCDEPT IF CLS __IKKJ_<=FFjl PRINT ASN ACS ATN csw~efSQR [C][B]▙l▟▟[E][G]???``@A````BCDET IF CLS _<=<>_JIFN ````````TVAL$ <>_JI[Q]```````>=[L][J][H][Q][L][M][N][K][I]`[L][M][N][K][P][R][S][T]__<=stuvhxzFCHR$ SGN USR OR BIN USR STR$ CHR$ NOT ▟FFFASN ACS ATN k▚l▖ SAVE ATTR ATN PRINT [D][A]`>= LINE ``PIPOINT ________```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]__FFFFFj PRINT isjstu????yxzASN ACS ATN cw~ef vh ! %&'(USR USR OR PRINT RANDOMIZE qqqq)*,(((((((+-.+(10/+[C][B][A][C]lFFFFF[B]▙▟??????[E]FFFFFF[G]??ik?>= LINE `````_<=[L][J][H]`>=[L][M][N][K][I]__[Q][R][S][T]__FFFFFFij???i"#$$$d?d?$$$$$ASN ACS ATN ASN ~LN AND AND AND ASN ACS ATN ASN ACS ATN ????????55543c?d?ddgfSQR [F]FFjlF[G] PRINT PRINT [F]k???[G]lFFF[F]?ik??```@A```BC_<=DE`>= IF CLS T__IKKKJ_FFFjASN ACS ATN ????????FFFASN ACS ATN ASN ~LN AND ASN ACS ATN ?d?d????`````@A`BC<>INKEY$FN VAL$ DE LINE PIPOINT AT TAB VAL$ <=<>CODE VAL LEN SIN _FFFFhiCHR$ SGN USR OR BIN USR STR$ CHR$ NOT ▟FjlFF[E]ASN ACS ATN kASN ATTR LN l[G]??????````````INKEY$FN VAL$ PIPOINT AT TAB VAL$ __CODE VAL LEN SIN INKEY$FN `@A`````BCDE<> LINE VAL$ <>_IK````````WWW_X__X__X````````KJ__IKJ_>= LINE ``YZ` ERASE n_IKJ_ OPEN #o<=` DRAW `````>=_ CLEAR _IKJ_[Q]jASN ACS ATN PRINT csw~efstuvhxz ! %&USR USR OR PRINT qqq)*,((((((▟FFFFFFASN ACS ATN +ATTR ATN k-[F]l????????```@A`PIPOINT BC<=DE<>>= IF CLS T LINE _IKKKKJ_AT TAB VAL$ LINE ```SCREEN$ POINT AT TAB VAL$ __CODE VAL LEN SIN <=<>``````>= LINE ______IK```````rT ERASE __<=<>JI OPEN #``>= LINE ```J_______Z```````no<= AND `>=________FASN ACS ATN ?~ATN "#$▖$▟$$▟F▚ACS ATN [E] SAVE ATTR ATN AND ASN ACS ATN [D][A] PRINT [C][B]▙???````````[L][J][H]<=<>[L][M][N][K][I]>= LINE [Q][R][S][T]__ CLOSE #_````````_ CLOSE #_INKEY$FN VAL$ ` DRAW `PIPOINT AT TAB VAL$ _ CLEAR ___CODE VAL LEN ```@A```BCW<>_<=DE<>X_ LINE `>= LINE ``SIN __<=[L][J]``````YZWW ERASE n___X_X OPEN #o```` DRAW ```[H]___ CLEAR ___FFFFFFFFs??istuFFjkyxz??ilFFFc▞gfvh CIRCLE BORDER OVER OUT READ RESTORE DIM INK CONTINUE BEEP LPRINT DATA NEW REM GO SUB [F]FFF[G]ASN ACS ATN PAUSE LET POKE ?d?d?```````` PRINT PRINT PRINT ______`@A`````BCDE[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]__<=```````>=_<=[L][J][H]_[I]``````` PRINT PRINT PRINT ______FFj PRINT PRINT PRINT PRINT PRINT PRINT ASN ACS ATN ?d?d?d? NEXT FOR BRIGHT PAPER CIRCLE BORDER OVER LOAD INPUT GO TO INVERSE FLASH INK CONTINUE BEEP G@A`rGnBC ERASE nnDE ERASE nnToIJ__````@A``BCDE<>[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 ERASE n ERASE n ERASE n ERASE n ERASE n ERASE nS▛ DEF FN ▛ DEF FN R| COPY || LOAD LOAD |▛ DEF FN ▛ DEF FN ▛ DEF FN ▛ DEF FN || COPY | COPY | COPY |▛ DEF FN ▛ DEF FN ▛ DEF FN ▛ DEF FN | COPY | COPY | COPY || ERASE n ERASE n ERASE n▛ DEF FN ▛ DEF FN ▛| LOAD LOAD ||||{FEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEDDDDDBBBBEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEFFFFEEEEEEEEEEEEFFFFFFFEEEEEEEEEEEEBBBBBBBBBBBBBBBBDDDDDDDDDDDDDDDBBBBBBBBBBBBBBBBEEEEEEEEEEEEDDDDDDEEBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBCCCCCDDDDDDCDDDDDDDDDDDDDDDCCCCCCDDDDDDCDDDDDDDDDDDDDDDCDDDAAAAAAGFFFBBCDCCBBBBBBBBBBEEEEEECCCCCCCCCCEEEEEEEEFFBBBBBBBBBBDDDFFDFFGGGGGGGGGGGGCC6ccc68x~<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 <<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??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 <B[J][R][R][J]B<~00"w"00`!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-+(&$" #&"%!$ #"! "$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$ ################################################################$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$ &(&(&(&(&(&(&(&(&(&(&(&(&(&(&(&(&(%'$'#&"%!$ #"! @ CLEAR RANDOMIZE RANDOMIZE )) RANDOMIZE RANDOMIZE )))) RANDOMIZE RANDOMIZE )))))))) RANDOMIZE RANDOMIZE )) RANDOMIZE RANDOMIZE )))) RANDOMIZE RANDOMIZE )))))))) RANDOMIZE RANDOMIZE )) RANDOMIZE RANDOMIZE )))) RANDOMIZE RANDOMIZE )))))))) RANDOMIZE RANDOMIZE )) RANDOMIZE RANDOMIZE )))) RANDOMIZE RANDOMIZE )))))))) RANDOMIZE RANDOMIZE )) RANDOMIZE RANDOMIZE )))) RANDOMIZE RANDOMIZE )))))))) RANDOMIZE RANDOMIZE )) RANDOMIZE RANDOMIZE )))) RANDOMIZE RANDOMIZE )))))))) RANDOMIZE RANDOMIZE )) RANDOMIZE RANDOMIZE )))) RANDOMIZE RANDOMIZE )))))))) 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 ))))))))@SCREEN$ TAN NOT ! MOVE <>" READ >=!- LINE " BORDER >= NEXT STEP <> 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-+(&$" )))))))))))))))))))))))))))))))))))))))))!!!!!!!!!!!!!!!!!!@)))))))))))))))))))))))))))))))))))))))))@![D] THEN "RND LINE !CODE THEN "POINT LINE NEXT STEP MOVE LINE 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 © 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 CAULDRON IICHR$ CONCEPTION CHEVRONEE STEVE BROWNCHR$ DESIGN DIABOLIQUE STEVE BROWNCHR$ CODE CALE RICHARD LEINFELLNERCHR$ SON SCINTILLANT 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 FELICITATIONSVOUS AVEZ ACHEVE CAULDRON II VOTRE SCORE LA SORCIERE EST MORTE VIVE LA SORCIERE$ AND CAULDRON II1 KEMPSTON2 INTERFACE II3 CLAVIER4 COMMENCER JEU$CHR$ DEFINIR TOUCHES$ AND HAUT $ AND BAS $ AND GAUCHE $ AND DROITE $ AND ACTION/SAUTER$ AND ANNULER $ 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 ▚AAAEEEEEEEEECCCCCCCCAAAAAAAEEEECCDDDCCCCCCCDDDAAE 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 ''''''''''())))))))( COPY cdef COPY xyz{|} COPY ijklmn COPY N RETURN ©▝ COPY [/ RETURN [H] COPY ~ RETURN [E] COPY [C] COPY [G] COPY ▙[A] RETURN !"#$%& COPY COPY ▛▞▖▜▚▗▘ CLEAR [I] COPY [ RETURN / RETURN ▟ RETURN [A] RETURN ] RETURN ^ RETURN ab COPY XXXXXXXXXXYZZZZZZZZY COPY [G] RETURN [B] RETURN COPY *+ COPY ,-., COPY ;< COPY op COPY [J] RETURN [K] RETURN qrsr COPY tuv COPY O RETURN ! 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 NEXT CODE COPY COPY NOT THEN *]/"_/CNOT PAUSE COPY COPY COPY COPY COPY *]/~ STEP } FORMAT STEP t RUN COPY COPY COPY NOT [3 COPY COPY COPY COPY COPY 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 COPY COPY COPY COPY COPY COPY 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 CLOSE #POK OR PRIN CLOSE #PLO CLOSE #RU DEF FN SAV OR RANDOMIZ OR I AND CL OPEN #DRA BEEP CLEA ERASE RETUR DEF FN COP INK BHY65TGVNJU74RFCMKI83EPOINT
