| Является частью релиза: | Eye Ache 2 |
| Размер файла: | 65280 |
| md5: | 443c5c8e0927e40a89498d7b97a7092c |
1 PRINT USR 0: REM ! LET <>"CHR$ /1b CLEAR THEN INKEY$CODE OPEN # RETURN ! COPY Zw+ THEN t IF !@[M] STEP = STEP @[M]!bF' RESTORE NOT =SCREEN$ 6<> BORDER OUT !▛ RESTORE >SCREEN$ 2[ CLS NOT 1="_!/= RESTORE ! GO SUB VAL "_*_NOT _ STEP RESTORE STEP [H]*Y/#^#VzCOS FOR (CODE 2] RESTORE STEP 2 LLIST "B/CODE 2D/ BORDER VAL *S/+"W/ GO SUB {=/:]ATN !v( BORDER VAL RESTORE !CHR$ / RESTORE <> STEP LET STEP J)> COPY 2]CODE 2 RUN />SCREEN$ 2]!"]!9"]++ RANDOMIZE STEP *SIN / GO SUB []/ GO SUB R FOR 0ATN GO SUB R"]/ STEP <= LINE OPEN # RETURN REM # PRINT STEP <=( NEXT RETURN :CHR$ OPEN ## STEP H0*]NOT ~ RETURN >= RETURN >=ATN <> STEP C!" SAVE / STEP RESTORE STEP c!]6SCREEN$ !]~ATN 6 STEP STEP GO SUB {]*] GO SUB K] DIM STEP 2 CLEAR THEN ~USR CHR$ / GO SUB {=/ MERGE <> STEP RETURN >= STEP * PRINT *=/"]*]++"=/=s#r<>*]"=/<>!" RUN /9"]++ RANDOMIZE STEP !]~ RETURN SCREEN$ >2] LINE THEN 6SCREEN$ STEP [H] STEP ▖!` OUT STEP n:ACS / RETURN POKE (! OUT :[ RETURN SCREEN$ S STEP LET *Y/> RETURN 26"#6b#6o#6o#6t#6"#"[/6#6#"a/"c/"e/ CLEAR THEN OVER ?~# IF <> OR INPUT OPEN # COPY PRINT > STEP COPY = LET STR$ LET <>*]++ RANDOMIZE STEP LET STEP :] PLOT STEP EXP :] STEP EXP CODE 2] STEP 5! STEP 20 STEP [P]! THEN "]CODE 2]*Y/ RESTORE ] STEP VAL LLIST "]~G NEW x( RETURN RETURN ( PRINT STEP >== LET ! NEXT /+EXP PAPER OPEN #z#PEEK NEXT RETURN RETURN BIN J)>2]CODE 2]2 VERIFY /2]!;/ THEN PEEK !0 THEN !^#V FOR RESTORE Y MERGE DIM !;/ THEN RETURN LLIST DIM * TR-DOS Ver 5.04s*© 1986 Technology Research Ltd.(U.K.)BETA 128 STEP CLEAR STEP = STEP = GO SUB K^ STEP POINT ! ERASE ) OUT NOT OPEN # PRINT : LET <> LET 2]:]ATN TO '<>!(*>NOT J!f'CODE NOT JCODE 2 TO / GO SUB [ TO / STEP J)!%]NOT = STEP J) GO SUB STEP CLEAR :^ RETURN (! STOP ) OUT ATTR STEP > THEN ▚ THEN ▙:^ THEN G THEN AND THEN _USR THEN DEF FN <>*]#~ RETURN <> STEP + GO SUB C FLASH /(+ RETURN # "]/ STEP STEP RETURN ( RETURN ,CHR$ STEP * STEP ABS STEP OUT STEP u STEP ASN FOR STEP ▝ STEP u: PLOT /2 RANDOMIZE / STEP : FLASH / RETURN PRINT TO [H] LET RETURN ERASE STEP ▗> COPY 2 SAVE /! RUN ) OUT !^ OUT STEP =:^!^[G] RESTORE STEP [T]!+* OUT LLIST N STEP [U]!* OUT STEP CONTINUE !%] STEP PLOT STEP =: PLOT / AND A BEEP STEP PLOT OR >: BEEP RESTORE STEP 8) LLIST RESTORE N OR y RETURN 8 RETURN d0> BEEP CLS STR$ STEP POINT LLIST STR$ FORMAT USR RESTORE OR : RANDOMIZE /! PLOT /PEEK BIN THEN =STR$ LLIST NOT AND /<> RESTORE OR FLASH [R]8STR$ LLIST <>! TO /4 STEP GO TO STR$ LLIST !%]<> NEW OUT OVER A PAPER RETURN ERASE <> STEP ASN yLN LINE <> STEP STEP STEP u STEP . STEP VAL : PLOT /2 SAVE /CHR$ INK OR STEP ] STEP VAL PRINT : SAVE /! PLOT /PEEK CHR$ STEP LET LINE PSTR$ STEP k STEP CNOT LLIST :]ATN <>:]ATN LINE INK NOT LLIST OR STEP [H]: PLOT / AND A STEP ▘=>: STEP ▘=! INVERSE / STEP 8)! ( STEP ' STEP R RETURN Y PRINT STEP [H] LET STR$ USR OR STEP [H]STR$ STEP ▝CODE <>: RESTORE / RETURN #(CODE <>>2] STEP COS >2]<>: INVERSE / RETURN *CHR$ INK STEP ASN FOR STEP ▝~ RETURN *CHR$ : PLOT /2 RANDOMIZE /: RANDOMIZE / STEP THEN = STEP > COPY 2]: SAVE / STEP THEN = STEP :]<2]O STEP ]: INVERSE / RETURN LINE LLIST RETURN ( LPRINT ! NEW / GO SUB / GO SUB VAL : RANDOMIZE / STEP THEN = STEP COS STEP TAN STEP ▝ USR STEP < STEP CLN STEP CLEAR :^ RETURN LINE E! GO SUB / NEW / GO SUB VAL GO SUB [ REM /ATN *^ GO SUB R PAPER E"^*^" FOR / RESTORE STEP / LLIST " FOR /* POKE /"^!^4N OR GO SUB S POKE / STEP CSTR$ STEP k<>*]#~ NEW OUT RETURN S LINE ` RETURN B LINE , STEP STEP STEP u STEP o STEP . STEP VAL : PLOT /2 SAVE /CHR$ THEN STEP ]! NEW / GO SUB / GO SUB VAL STEP VAL PRINT OR : PLOT /2 RANDOMIZE /: SAVE / STEP THEN = STEP : RANDOMIZE / STEP THEN = STEP STR$ LET STEP TAN STEP ▝CHR$ LLIST STEP < STEP C: RESTORE / RETURN #CHR$ LLIST >2]! NEW /4: SAVE / STEP THEN = STEP TAN CHR$ LLIST STEP ]! NEW / GO SUB / GO SUB VAL : RANDOMIZE / STEP THEN = STEP BIN : LET /ATN >= RESTORE !#][G] LLIST 09: LET /GCODE 2 LET / OR : SAVE / STEP THEN =STR$ OR * CAT / RESTORE GO SUB [ PAUSE / STEP =* POKE /" PAUSE /: RANDOMIZE / STEP THEN = LLIST STR$ GO SUB [ FOR / STEP M* POKE /" FOR /INT 2 LET / RESTORE !#]F LLIST CODE NOT CODE 2] STEP OUT STEP u STEP .CODE 2] STEP /) STEP [Q]CHR$ wNOT LLIST : INVERSE /2]USR !]4 OR STEP CLEAR :^STR$ EXP =2^CODE PRINT (!^4 OR STEP CSTR$ STEP ] LET LINE ERASE >2 INVERSE / PRINT STEP @:]2 INVERSE / LET ( STEP COS EXP STEP CLEAR * FOR /"^ GO SUB [ REM /*^"^NOT C NEW DRAW NOT [K]= COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY NEXT !t[Q]% GO SUB s[H][M] COPY IN GO SUB LN FOR #RND~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1!X[Q] GO SUB VAL CLS 8[T]>![Q] RESTORE ~O[S](~[T](y VERIFY Oq#|LN GO TO vvv INK LLIST X GO SUB VAL INK = MERGE &[Q]w]T COPY GO SUB VAL STEP *[N] INK ![Q] RESTORE ABS G[S]SQR INK 8SQR INK 8x NEW USR ACS ▝w#| RETURN [T]8 BRIGHT vvvv LLIST X GO SUB VAL INK NOT !X' INK <>!RND@J~# IF Q{ AND _0 LIST z AND W RETURN X8 CONTINUE { NEW LPRINT <> COPY COPY COPY CLS >=ppp COPY COPY TO ▘©BIN COPY NOT RETURN ▘SCREEN$ T THEN RETURN P@%▘© COPY COPY <>▝ DRAW P[K]NOT ?▘*R[E]PP NEW ▝ DRAW COPY COPY <>▗>= OUT ▘J[F] OR PP rD COPY COPY CLEAR OR COPY ▝ RUN NOT READ ▘[R]B THEN READ P▝ RUN P( COPY COPY <>▗STR$ LET RANDOMIZE RANDOMIZE >= CLEAR ▘TPOINT THEN CLEAR p%▗ RANDOMIZE RANDOMIZE LET STR$ COPY COPY <>QsVAL LINE RETURN c FORMAT q▚t&%$$t COPY COPY sUSR sUSR CVAL OR ?sUSR cUSR ▚_DDBIN DD COPY COPY %@[P][P]>= OUT sVAL s FORMAT c OUT [P][P]@▚}AqAA} COPY COPY sUSR ▘ COPY COPY BIN LPRINT ▘[Q]@p0sUSR ▚ READ BORDER COPY COPY &BIN DRAW <> OR LIST <>p(▚▙QP FORMAT QN COPY COPY < TO ▘ THEN p@)@STR$ ▝ COPY COPY vY1▞▘TFN [B]p0[U]v▝ MOVE USR [B]▘BIN COPY COPY SGN ▝ SAVE h FLASH CHR$ ©*U©▘ RETURN DRAW ( PAUSE 0Y%▞ SAVE |@p@@| COPY COPY H DATA ▝?>=IN ▘[F]*EC`P @▚ COPY < TO <=▘B THEN <=P▝ LOAD x@▚[S]2*&"[S] COPY COPY "@ SAVE RANDOMIZE RANDOMIZE >= CLS ▘POINT R@▘ RANDOMIZE RANDOMIZE CHR$ SAVE ▘FN P>= CLS LET LET LPRINT CLS "#""# COPY COPY +$[ COPY sUSR [ GO SUB ;H5ap▜ LOAD ▖ CONTINUE COPY COPY sUSR cUSR s CLOSE #sUSR sUSR #USR ▚>▖▖▖▖ COPY COPY sUSR ▘IN IN BIN ▝nL@▝P >D▚s▞▞ RANDOMIZE ▞▛ COPY COPY | AND COPY ▘SCREEN$ U THEN COPY psUSR sUSR COPY RETURN SSGN G▖▘ THEN pg▛ PAPER ATTR q COPY IF w)▘FN Tw[E] w▗ CONTINUE sUSR COPY CLS ~© RETURN /NOT <>~@▝PEEK CHR$ ▖ COPY COPY RETURN W|LATN ▘* THEN ?`W[U] COPY COPY <>_USR ▝ CAT 7▞B<=<= CAT p LINE <= COPY COPY <>▗ LPRINT LET LET >= CLS ▘RPOINT ▟▜ NEXT NEXT READ NOT LLIST LET LIST ▝▘PFN >= CLS [E] COPY COPY <>wcUSR w| LLIST w[E] COPY COPY >={@w{T©U*{@K@ COPY COPY THEN >=rX@<> COPY COPY COPY COPY COPY COPY COPY COPY / RETURN CLEAR B CLEAR F COPY AB COPY C COPY C COPY C COPY C INPUT C GO SUB C FLASH /(+ RETURN # "]/ STEP STEP RETURN ( RETURN ,CHR$ STEP * STEP ABS STEP OUT STEP u STEP ASN FOR STEP ▝ STEP u: PLOT /2 RANDOMIZE / STEP : FLASH / RETURN PRINT TO [H] LET RETURN ERASE STEP ▗> COPY 2 SAVE /! RUN ) OUT !^ OUT STEP =:^!^[G] RESTORE STEP [T]!+* OUT LLIST N STEP [U]!* OUT STEP CONTINUE !%] STEP PLOT STEP =: PLOT / AND A BEEP STEP PLOT OR >: BEEP RESTORE STEP 8) LLIST RESTORE N OR y RETURN 8 RETURN d0> BEEP CLS STR$ STEP POINT LLIST STR$ FORMAT USR RESTORE OR : RANDOMIZE /! PLOT /PEEK BIN LEN f MOVE USR USR USR USR USR (USR 0USR 8USR @USR HUSR PUSR XUSR `USR hUSR pUSR xUSR USR ▖USR [A]USR [I]USR [Q]USR FN USR VAL USR LN USR USR USR >=USR FORMAT USR CIRCLE USR LPRINT USR CONTINUE USR LIST USR SAVE USR STR$ STR$ STR$ STR$ STR$ (STR$ 0STR$ 8STR$ @STR$ HSTR$ PSTR$ XSTR$ `STR$ hSTR$ pSTR$ xSTR$ STR$ ▖STR$ [A]STR$ [I]STR$ [Q]STR$ FN STR$ VAL STR$ LN STR$ USR STR$ >=STR$ FORMAT STR$ CIRCLE STR$ LPRINT STR$ CONTINUE STR$ LIST STR$ SAVE STR$ CHR$ CHR$ CHR$ CHR$ CHR$ (CHR$ 0CHR$ 8CHR$ @CHR$ HCHR$ PCHR$ XCHR$ `CHR$ hCHR$ pCHR$ xCHR$ CHR$ ▖CHR$ [A]CHR$ [I]CHR$ [Q]CHR$ FN CHR$ VAL CHR$ LN CHR$ USR CHR$ >=CHR$ FORMAT CHR$ CIRCLE CHR$ LPRINT CHR$ CONTINUE CHR$ LIST CHR$ SAVE CHR$ NOT NOT NOT NOT NOT (NOT 0NOT 8NOT @NOT HNOT PNOT XNOT `NOT hNOT pNOT xNOT NOT ▖NOT [A]NOT [I]NOT [Q]NOT FN NOT VAL NOT LN NOT USR NOT >=NOT FORMAT NOT CIRCLE NOT LPRINT NOT CONTINUE NOT LIST NOT SAVE NOT BIN BIN BIN BIN BIN (BIN 0BIN 8BIN @BIN HBIN VAL NOT PBIN XBIN `BIN hBIN pBIN xBIN BIN ▖BIN [A]BIN [I]BIN [Q]BIN FN BIN VAL BIN LN BIN USR BIN >=BIN FORMAT BIN CIRCLE BIN LPRINT BIN CONTINUE BIN LIST BIN SAVE BIN OR OR OR OR OR ( OR 0 OR 8 OR @ OR H OR P OR X OR ` OR h OR p OR x OR OR ▖ OR [A] OR [I] OR [Q] OR FN OR VAL OR LN OR USR OR >= OR FORMAT OR CIRCLE OR LPRINT OR CONTINUE OR LIST OR SAVE OR AND AND AND AND AND ( AND 0 AND 8 AND @ AND H AND P AND X AND ` AND h AND p AND x AND AND ▖ AND [A] AND [I] AND [Q] AND FN AND VAL AND LN AND USR AND ( AND >= AND FORMAT AND CIRCLE AND LPRINT AND CONTINUE AND LIST AND SAVE AND <=<=<=<= <=(<=0<=8<=@<=H<=P<=X<=`<=h<=p<=x<=<=▖<=[A]<=[I]<=[Q]<=FN <=VAL <=LN <=USR <=>=<= FORMAT <= CIRCLE <= LPRINT <= CONTINUE <= LIST <= SAVE <=>=>=>=>= >=(>=0>=8>=@>=H>=P>=X>=`>=h>=p>=x>=>=▖>=[A]>=[I]>=[Q]>=FN >=VAL >=LN >=USR >=>=>= FORMAT >= CIRCLE >= LPRINT >= CONTINUE >= LIST >= SAVE >=<><><><> <>(<>0<>8<>[Q]>=@<>H<>P<>X<>`<>h<>p<>x<><>▖<>[A]<>[I]<>[Q]<>FN <>VAL <>LN <>USR <>>=<> FORMAT <> CIRCLE <> LPRINT <> CONTINUE <> LIST <> SAVE <> LINE LINE LINE LINE LINE ( LINE 0 LINE 8 LINE @ LINE H LINE P LINE X LINE ` LINE h LINE p LINE x LINE LINE ▖ LINE [A] LINE [I] LINE [Q] LINE FN LINE VAL LINE LN LINE USR LINE >= LINE FORMAT LINE CIRCLE LINE LPRINT LINE CONTINUE LINE LIST LINE SAVE LINE THEN THEN THEN THEN THEN ( THEN 0 THEN 8 THEN @ THEN H THEN P THEN X THEN ` THEN h THEN p THEN x THEN THEN ▖ THEN [A] THEN [I] THEN [Q] THEN FN THEN VAL THEN LN THEN USR THEN >= THEN FORMAT THEN CIRCLE THEN LPRINT THEN CONTINUE THEN LIST THEN SAVE THEN TO TO TO TO TO ( TO 0 TO 8 TO @ TO H TO P TO X TO ` TO h TO p TO x TO TO ▖ TO [A] TO [I] TO [Q] TO FN TO VAL TO LN TO USR TO >= TO FORMAT TO CIRCLE TO LPRINT TO CONTINUE TO LIST TO SAVE TO STEP STEP STEP STEP STEP ( STEP 0 STEP 8 STEP @ STEP H STEP P STEP CIRCLE LINE LPRINT LINE CONTINUE LINE LIST LINE SAVE LINE THEN THEN THEN THEN THEN X STEP ` STEP h STEP p STEP x STEP STEP ▖ STEP [A] STEP [I] STEP [Q] STEP FN STEP VAL STEP LN STEP USR STEP >= STEP FORMAT STEP CIRCLE STEP LPRINT STEP CONTINUE STEP LIST STEP SAVE STEP DEF FN DEF FN DEF FN DEF FN DEF FN ( DEF FN 0 DEF FN 8 DEF FN @ DEF FN H DEF FN P DEF FN X DEF FN ` DEF FN h DEF FN p DEF FN x DEF FN DEF FN ▖ DEF FN [A] DEF FN [I] DEF FN [Q] DEF FN FN DEF FN VAL DEF FN LN DEF FN USR DEF FN >= DEF FN FORMAT DEF FN CIRCLE DEF FN LPRINT DEF FN CONTINUE DEF FN LIST DEF FN SAVE DEF FN CAT CAT CAT CAT CAT ( CAT 0 CAT 8 CAT @ CAT H CAT P CAT X CAT ` CAT h CAT p CAT x CAT CAT ▖ CAT [A] CAT [I] CAT [Q] CAT FN CAT VAL CAT LN CAT USR CAT >= CAT FORMAT CAT CIRCLE CAT LPRINT CAT CONTINUE CAT LIST CAT SAVE CAT FORMAT FORMAT FORMAT FORMAT FORMAT ( FORMAT 0 FORMAT 8 FORMAT @ FORMAT H FORMAT P FORMAT X FORMAT ` FORMAT h FORMAT p FORMAT x FORMAT FORMAT ▖ FORMAT [A] FORMAT [I] FORMAT [Q] FORMAT FN FORMAT VAL FORMAT LN FORMAT USR FORMAT >= FORMAT FORMAT FORMAT CIRCLE FORMAT LPRINT FORMAT CONTINUE FORMAT LIST FORMAT SAVE FORMAT MOVE MOVE MOVE MOVE MOVE ( MOVE 0 MOVE 8 MOVE @ MOVE H MOVE P MOVE X MOVE ` MOVE h MOVE p MOVE x MOVE MOVE ▖ MOVE [A] MOVE [I] MOVE [Q] MOVE FN MOVE VAL MOVE LN MOVE USR MOVE >= MOVE FORMAT MOVE CIRCLE MOVE LPRINT MOVE CONTINUE MOVE LIST MOVE SAVE MOVE ERASE ▖ CAT [A] CAT [I] CAT [Q] CAT FN CAT VAL CAT LN CAT USR CAT >= CAT FORMAT CAT ERASE ERASE ERASE ERASE ( ERASE 0 ERASE 8 ERASE @ ERASE H ERASE P ERASE X ERASE ` ERASE h ERASE p ERASE x ERASE ERASE ▖ ERASE [A] ERASE [I] ERASE [Q] ERASE FN ERASE VAL ERASE LN ERASE USR ERASE >= ERASE FORMAT ERASE CIRCLE ERASE LPRINT ERASE CONTINUE ERASE LIST ERASE SAVE ERASE OPEN # OPEN # OPEN # OPEN # OPEN #( OPEN #0 OPEN #8 OPEN #@ OPEN #H OPEN #P OPEN #X OPEN #` OPEN #h OPEN #p OPEN #x OPEN # OPEN #▖ OPEN #[A] OPEN #[I] OPEN #[Q] OPEN #FN OPEN #VAL OPEN #LN OPEN #USR OPEN #>= OPEN # FORMAT OPEN # CIRCLE OPEN # LPRINT OPEN # CONTINUE OPEN # LIST OPEN # SAVE OPEN # CLOSE # CLOSE # CLOSE # CLOSE # CLOSE #( CLOSE #0 CLOSE #8 CLOSE #@ CLOSE #H CLOSE #P CLOSE #X CLOSE #` CLOSE #h CLOSE #p CLOSE #x CLOSE # CLOSE #▖ CLOSE #[A] CLOSE #[I] CLOSE #[Q] CLOSE #FN CLOSE #VAL CLOSE #LN CLOSE #USR CLOSE #>= CLOSE # FORMAT CLOSE # CIRCLE CLOSE # LPRINT CLOSE # CONTINUE CLOSE # LIST CLOSE # SAVE CLOSE # MERGE MERGE MERGE MERGE MERGE ( MERGE 0 MERGE 8 MERGE @ MERGE H MERGE P MERGE X MERGE ` MERGE h MERGE p MERGE x MERGE MERGE ▖ MERGE [A] MERGE [I] MERGE [Q] MERGE FN MERGE VAL MERGE LN MERGE USR MERGE >= MERGE FORMAT MERGE CIRCLE MERGE LPRINT MERGE CONTINUE MERGE LIST MERGE SAVE MERGE VERIFY VERIFY VERIFY VERIFY VERIFY ( VERIFY 0 VERIFY 8 VERIFY @ VERIFY H VERIFY P VERIFY X VERIFY ` VERIFY h VERIFY p VERIFY x VERIFY VERIFY ▖ VERIFY [A] VERIFY [I] VERIFY [Q] VERIFY FN VERIFY VAL VERIFY LN VERIFY USR VERIFY >= VERIFY FORMAT VERIFY CIRCLE VERIFY LPRINT VERIFY CONTINUE VERIFY LIST VERIFY SAVE VERIFY BEEP BEEP BEEP BEEP BEEP ( BEEP 0 BEEP 8 BEEP @ BEEP H BEEP P BEEP X BEEP ` BEEP h BEEP p BEEP x BEEP BEEP ▖ BEEP [A] BEEP [I] BEEP [Q] BEEP FN BEEP VAL BEEP LN BEEP USR BEEP >= BEEP FORMAT BEEP CIRCLE BEEP LPRINT BEEP CONTINUE BEEP LIST BEEP SAVE BEEP CIRCLE CIRCLE CIRCLE CIRCLE CIRCLE ( CIRCLE 0 CIRCLE 8 CIRCLE @ CIRCLE H CIRCLE P CIRCLE X CIRCLE ` CIRCLE h CIRCLE p CIRCLE x CIRCLE CIRCLE ▖ CIRCLE [A] CIRCLE [I] CIRCLE [Q] CIRCLE FN CIRCLE VAL CIRCLE LN CIRCLE USR CIRCLE >= CIRCLE FORMAT CIRCLE CIRCLE CIRCLE LPRINT CIRCLE CONTINUE CIRCLE LIST CIRCLE SAVE CIRCLE INK INK INK INK INK ( INK 0 INK 8 INK @ INK H INK P INK X INK ` INK h INK p INK x INK INK ▖ INK [A] INK [I] INK [Q] INK FN INK VAL INK LN INK USR INK >= INK FORMAT INK CIRCLE INK LPRINT INK CONTINUE INK LIST INK SAVE INK ` INK h INK p INK x INK INK CONTINUE CIRCLE LIST CIRCLE SAVE CIRCLE INK INK INK INK INK ( INK 0 INK [I] CIRCLE [Q] CIRCLE FN CIRCLE VAL CIRCLE LN CIRCLE USR CIRCLE >= CIRCLE FORMAT CIRCLE CIRCLE CIRCLE LPRINT CIRCLE PAPER PAPER PAPER ` CIRCLE h CIRCLE p CIRCLE x CIRCLE CIRCLE ▖ CIRCLE [A] CIRCLE [I] CIRCLE [Q] CIRCLE FN CIRCLE VAL CIRCLE LN CIRCLE USR CIRCLE >= CIRCLE FORMAT CIRCLE CIRCLE CIRCLE LPRINT CIRCLE CONTINUE CIRCLE LIST CIRCLE SAVE CIRCLE INK INK INK INK INK ( INK 0 INK 8 INK @ INK H INK P INK X INK ` INK h INK p INK x INK INK ▖ INK [A] INK [I] INK [Q] INK FN INK VAL INK LN INK USR INK >= INK FORMAT INK CIRCLE INK LPRINT INK CONTINUE INK LIST INK SAVE INK ` INK h INK p INK x INK INK CONTINUE CIRCLE LIST CIRCLE SAVE CIRCLE INK INK INK INK INK ( INK 0 INK PAPER PAPER ( PAPER 0 PAPER 8 PAPER USR CIRCLE >= CIRCLE FORMAT CIRCLE CIRCLE CIRCLE LPRINT CIRCLE @ PAPER H PAPER P PAPER X PAPER ` PAPER h PAPER p PAPER x PAPER PAPER ▖ PAPER [A] PAPER [I] PAPER [Q] PAPER FN PAPER VAL PAPER LN PAPER USR PAPER >= PAPER FORMAT PAPER CIRCLE PAPER LPRINT PAPER CONTINUE PAPER LIST PAPER SAVE PAPER FLASH FLASH FLASH FLASH FLASH ( FLASH 0 FLASH 8 FLASH @ FLASH H FLASH P FLASH X FLASH ` FLASH h FLASH p FLASH x FLASH FLASH ▖ FLASH [A] FLASH [I] FLASH [Q] FLASH FN FLASH VAL FLASH LN FLASH USR FLASH >= FLASH FORMAT FLASH CIRCLE FLASH LPRINT FLASH CONTINUE FLASH LIST FLASH SAVE FLASH BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT ( BRIGHT 0 BRIGHT 8 BRIGHT @ BRIGHT h PAPER p PAPER x PAPER PAPER ▖ PAPER H BRIGHT P BRIGHT X BRIGHT ` BRIGHT h BRIGHT LN PAPER USR PAPER >= PAPER FORMAT PAPER CIRCLE PAPER p BRIGHT x BRIGHT BRIGHT ▖ BRIGHT [A] BRIGHT FLASH FLASH FLASH FLASH ( FLASH @ PAPER H PAPER P PAPER X PAPER ` PAPER [I] BRIGHT [Q] BRIGHT FN BRIGHT VAL BRIGHT LN BRIGHT LPRINT PAPER CONTINUE PAPER LIST PAPER SAVE PAPER FLASH FLASH FLASH FLASH FLASH ( FLASH USR BRIGHT >= BRIGHT FORMAT BRIGHT CIRCLE BRIGHT LPRINT BRIGHT SAVE FLASH BRIGHT BRIGHT BRIGHT BRIGHT CONTINUE BRIGHT LIST BRIGHT SAVE BRIGHT INVERSE INVERSE INVERSE INVERSE INVERSE ( INVERSE 0 INVERSE 8 INVERSE @ INVERSE H INVERSE P INVERSE X INVERSE SAVE FLASH BRIGHT BRIGHT BRIGHT BRIGHT ` INVERSE h INVERSE p INVERSE x INVERSE INVERSE FLASH FLASH FLASH FLASH ( FLASH ▖ INVERSE [A] INVERSE [I] INVERSE [Q] INVERSE FN INVERSE [I] BRIGHT [Q] BRIGHT FN BRIGHT VAL BRIGHT LN BRIGHT VAL INVERSE LN INVERSE USR INVERSE >= INVERSE FORMAT INVERSE CIRCLE INVERSE LPRINT INVERSE CONTINUE INVERSE LIST INVERSE SAVE INVERSE OVER OVER OVER OVER OVER ( OVER 0 OVER 8 OVER @ OVER H OVER P OVER X OVER ` OVER h OVER p OVER x OVER OVER ▖ OVER [A] OVER [I] OVER [Q] OVER FN OVER VAL OVER LN OVER USR OVER >= OVER FORMAT OVER CIRCLE OVER LPRINT OVER CONTINUE OVER LIST OVER SAVE OVER OUT OUT OUT OUT OUT ( OUT 0 OUT 8 OUT @ OUT H OUT P OUT X OUT ` OUT h OUT p OUT x OUT OUT ▖ OUT [A] OUT [I] OUT [Q] OUT FN OUT VAL OUT CIRCLE INVERSE LPRINT INVERSE CONTINUE INVERSE LIST INVERSE SAVE INVERSE LN OUT USR OUT >= OUT FORMAT OUT CIRCLE OUT ( OVER 0 OVER 8 OVER @ OVER H OVER [I]<>[Q]<> LPRINT OUT CONTINUE OUT LIST OUT x OVER OVER ▖ OVER [A] OVER [I] OVER VAL INVERSE LN INVERSE USR INVERSE >= INVERSE FORMAT INVERSE SAVE OUT LPRINT LPRINT LPRINT LPRINT P OVER X OVER ` OVER h OVER p OVER x OVER OVER ▖ OVER [A] OVER [I] OVER LPRINT ( LPRINT 0 LPRINT 8 LPRINT @ LPRINT H LPRINT P LPRINT X LPRINT ` LPRINT h LPRINT p LPRINT x LPRINT LPRINT ▖ LPRINT [A] LPRINT [I] LPRINT [Q] LPRINT FN LPRINT VAL LPRINT LN LPRINT USR LPRINT >= LPRINT FORMAT LPRINT CIRCLE LPRINT LPRINT LPRINT H LPRINT P LPRINT X LPRINT ` LPRINT h LPRINT CONTINUE LPRINT LIST LPRINT SAVE LPRINT LLIST LLIST LLIST LLIST LLIST ( LLIST 0 LLIST 8 LLIST @ LLIST H LLIST P LLIST X LLIST ` LLIST h LLIST p LLIST x LLIST LLIST ▖ LLIST [A] LLIST [I] LLIST [Q] LLIST FN LLIST VAL LLIST LN LLIST USR LLIST >= LLIST FORMAT LLIST CIRCLE LLIST LPRINT LLIST CONTINUE LLIST LIST LLIST SAVE LLIST STOP STOP STOP STOP STOP ( STOP 0 STOP 8 STOP @ STOP H STOP P STOP X STOP ` STOP h STOP p STOP x STOP STOP ▖ STOP [A] STOP [I] STOP [Q] STOP FN STOP VAL STOP LN STOP USR STOP >= STOP FORMAT STOP CIRCLE STOP LPRINT STOP CONTINUE STOP LIST STOP SAVE STOP READ READ READ READ READ ( READ 0 READ 8 READ @ READ H READ P READ X READ ` READ h READ p READ x READ READ ▖ READ VAL LLIST LN LLIST USR LLIST >= LLIST FORMAT LLIST [A] READ [I] READ [Q] READ FN READ VAL READ STOP STOP STOP STOP STOP LN READ USR READ >= READ FORMAT READ CIRCLE READ P STOP X STOP ` STOP h STOP p STOP ▖ LLIST [A] LLIST [I] LLIST [Q] LLIST FN LLIST LPRINT READ CONTINUE READ LIST READ SAVE READ DATA ( STOP 0 STOP 8 STOP @ STOP H STOP P STOP X STOP ` STOP h STOP p STOP DATA DATA DATA DATA ( DATA @ READ H READ P READ X READ ` READ 0 DATA 8 DATA @ DATA H DATA P DATA X DATA ` DATA h DATA p DATA x DATA DATA ▖ DATA [A] DATA [I] DATA [Q] DATA @ READ H READ P READ X READ ` READ FN DATA VAL DATA LN DATA USR DATA >= DATA P STOP X STOP ` STOP h STOP p STOP FORMAT DATA CIRCLE DATA LPRINT DATA CONTINUE DATA LIST DATA SAVE DATA RESTORE RESTORE RESTORE RESTORE RESTORE ( RESTORE 0 RESTORE 8 RESTORE @ RESTORE H RESTORE P RESTORE X RESTORE ` RESTORE h RESTORE p RESTORE x RESTORE RESTORE ▖ RESTORE [A] RESTORE [I] RESTORE [Q] RESTORE FN RESTORE VAL RESTORE LN RESTORE USR RESTORE >= RESTORE FORMAT RESTORE CIRCLE RESTORE LPRINT RESTORE CONTINUE RESTORE LIST RESTORE SAVE RESTORE NEW NEW NEW NEW NEW ( NEW 0 NEW 8 NEW @ NEW H NEW P NEW X NEW ` NEW h NEW p NEW x NEW NEW ▖ NEW [A] NEW [I] NEW [Q] NEW FN NEW VAL NEW LN NEW USR NEW >= NEW FORMAT NEW CIRCLE NEW LPRINT NEW CONTINUE NEW LIST NEW SAVE NEW BORDER BORDER BORDER BORDER BORDER ( BORDER 0 BORDER 8 BORDER @ BORDER H BORDER P BORDER X BORDER ` BORDER h BORDER p BORDER [I] RESTORE [Q] RESTORE FN RESTORE VAL RESTORE LN RESTORE x BORDER BORDER ▖ BORDER [A] BORDER [I] BORDER [Q] BORDER FN BORDER VAL BORDER LN BORDER USR BORDER RESTORE ( RESTORE 0 RESTORE 8 RESTORE @ RESTORE >= BORDER FORMAT BORDER CIRCLE BORDER LPRINT BORDER CONTINUE BORDER USR RESTORE >= RESTORE FORMAT RESTORE CIRCLE RESTORE LPRINT RESTORE [Q] BORDER FN BORDER VAL BORDER LN BORDER USR BORDER LIST BORDER SAVE BORDER CONTINUE CONTINUE CONTINUE CIRCLE NEW LPRINT NEW CONTINUE NEW LIST NEW SAVE NEW CONTINUE CONTINUE ( CONTINUE 0 CONTINUE 8 CONTINUE @ CONTINUE H CONTINUE P CONTINUE X CONTINUE ` CONTINUE h CONTINUE p CONTINUE x CONTINUE CONTINUE ▖ CONTINUE CIRCLE NEW LPRINT NEW CONTINUE NEW LIST NEW SAVE NEW USR RESTORE >= RESTORE FORMAT RESTORE CIRCLE RESTORE LPRINT RESTORE [Q] BORDER FN BORDER VAL BORDER LN BORDER USR BORDER [A] CONTINUE [I] CONTINUE [Q] CONTINUE FN CONTINUE VAL CONTINUE >= BORDER FORMAT BORDER CIRCLE BORDER LPRINT BORDER CONTINUE BORDER @ PAPER H PAPER P PAPER X PAPER ` PAPER h PAPER p PAPER x PAPER PAPER ▖ PAPER [A] PAPER [I] PAPER [Q] PAPER FN PAPER VAL PAPER LN PAPER USR PAPER >= PAPER FORMAT PAPER CIRCLE PAPER LPRINT PAPER CONTINUE PAPER LIST PAPER SAVE PAPER FLASH FLASH FLASH FLASH FLASH ( FLASH 0 FLASH 8 FLASH @ FLASH H FLASH P FLASH X FLASH ` FLASH h FLASH p FLASH x FLASH FLASH ▖ FLASH [A] FLASH [I] FLASH [Q] FLASH FN FLASH VAL FLASH LN FLASH USR FLASH >= FLASH FORMAT FLASH CIRCLE FLASH LPRINT FLASH CONTINUE FLASH LIST FLASH SAVE FLASH BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT ( BRIGHT 0 BRIGHT 8 BRIGHT @ BRIGHT h PAPER p PAPER x PAPER PAPER ▖ PAPER H BRIGHT P BRIGHT X BRIGHT ` BRIGHT h BRIGHT LN PAPER USR PAPER >= PAPER FORMAT PAPER CIRCLE PAPER p BRIGHT x BRIGHT BRIGHT ▖ BRIGHT [A] BRIGHT FLASH FLASH FLASH FLASH ( FLASH @ PAPER H PAPER P PAPER X PAPER ` PAPER [I] BRIGHT [Q] BRIGHT FN BRIGHT VAL BRIGHT LN BRIGHT LPRINT PAPER CONTINUE PAPER LIST PAPER SAVE PAPER FLASH FLASH FLASH FLASH FLASH ( FLASH USR BRIGHT >= BRIGHT FORMAT BRIGHT CIRCLE BRIGHT LPRINT BRIGHT SAVE FLASH BRIGHT BRIGHT BRIGHT BRIGHT CONTINUE BRIGHT LIST BRIGHT SAVE BRIGHT INVERSE INVERSE INVERSE INVERSE INVERSE ( INVERSE 0 INVERSE 8 INVERSE @ INVERSE H INVERSE P INVERSE X INVERSE SAVE FLASH BRIGHT BRIGHT BRIGHT BRIGHT ` INVERSE h INVERSE p INVERSE x INVERSE INVERSE FLASH FLASH FLASH FLASH ( FLASH ▖ INVERSE [A] INVERSE [I] INVERSE [Q] INVERSE FN INVERSE [I] BRIGHT [Q] BRIGHT FN BRIGHT VAL BRIGHT LN BRIGHT VAL INVERSE LN INVERSE USR INVERSE >= INVERSE FORMAT INVERSE CIRCLE INVERSE LPRINT INVERSE CONTINUE INVERSE LIST INVERSE SAVE INVERSE OVER OVER OVER OVER OVER ( OVER 0 OVER 8 OVER @ OVER H OVER P OVER X OVER ` OVER h OVER p OVER x OVER OVER ▖ OVER [A] OVER [I] OVER [Q] OVER FN OVER VAL OVER LN OVER USR OVER >= OVER FORMAT OVER CIRCLE OVER LPRINT OVER CONTINUE OVER LIST OVER SAVE OVER OUT OUT OUT OUT OUT ( OUT 0 OUT 8 OUT @ OUT H OUT P OUT X OUT ` OUT h OUT p OUT x OUT OUT ▖ OUT [A] OUT [I] OUT [Q] OUT FN OUT VAL OUT CIRCLE INVERSE LPRINT INVERSE CONTINUE INVERSE LIST INVERSE SAVE INVERSE LN OUT USR OUT >= OUT FORMAT OUT CIRCLE OUT ( OVER 0 OVER 8 OVER @ OVER H OVER [I]<>[Q]<> LPRINT OUT CONTINUE OUT LIST OUT x OVER OVER ▖ OVER [A] OVER [I] OVER VAL INVERSE LN INVERSE USR INVERSE >= INVERSE FORMAT INVERSE SAVE OUT LPRINT LPRINT LPRINT LPRINT P OVER X OVER ` OVER h OVER p OVER x OVER OVER ▖ OVER [A] OVER [I] OVER LPRINT ( LPRINT 0 LPRINT 8 LPRINT @ LPRINT H LPRINT P LPRINT X LPRINT ` LPRINT h LPRINT p LPRINT x LPRINT LPRINT ▖ LPRINT [A] LPRINT [I] LPRINT [Q] LPRINT FN LPRINT VAL LPRINT LN LPRINT USR LPRINT >= LPRINT FORMAT LPRINT CIRCLE LPRINT LPRINT LPRINT H LPRINT P LPRINT X LPRINT ` LPRINT h LPRINT CONTINUE LPRINT LIST LPRINT SAVE LPRINT LLIST LLIST LLIST LLIST LLIST ( LLIST 0 LLIST 8 LLIST @ LLIST H LLIST P LLIST X LLIST ` LLIST h LLIST p LLIST x LLIST LLIST ▖ LLIST [A] LLIST [I] LLIST [Q] LLIST FN LLIST LN CONTINUE USR CONTINUE >= CONTINUE FORMAT CONTINUE CIRCLE CONTINUE CIRCLE LLIST LPRINT LLIST CONTINUE LLIST LIST LLIST SAVE LLIST STOP STOP STOP STOP STOP ( STOP 0 STOP 8 STOP @ STOP H STOP LPRINT CONTINUE CONTINUE CONTINUE LIST CONTINUE SAVE CONTINUE DIM DIM DIM DIM DIM ( DIM 0 DIM 8 DIM @ DIM H DIM P DIM X DIM ` DIM h DIM p DIM x DIM LIST STOP SAVE STOP READ READ READ DATA ▖ DATA [A] DATA [I] DATA [Q] DATA DIM ▖ DIM [A] DIM [I] DIM [Q] DIM FN DIM VAL DIM LN DIM USR DIM >= DIM LN CONTINUE USR CONTINUE >= CONTINUE FORMAT CONTINUE CIRCLE CONTINUE FORMAT CHR$ CIRCLE CHR$ FORMAT DIM CIRCLE DIM LPRINT DIM STOP STOP STOP STOP STOP CONTINUE DIM LIST DIM SAVE DIM REM REM LPRINT CONTINUE CONTINUE CONTINUE LIST CONTINUE SAVE CONTINUE DIM ▖ LLIST [A] LLIST [I] LLIST [Q] LLIST FN LLIST LPRINT READ CONTINUE READ LIST READ SAVE READ DATA ( STOP 0 STOP 8 STOP @ STOP H STOP LPRINT CONTINUE CONTINUE CONTINUE LIST CONTINUE SAVE CONTINUE DIM DATA DATA DATA DATA ( DATA DIM ▖ DIM [A] DIM [I] DIM [Q] DIM 0 DATA 8 DATA @ DATA H DATA P DATA X DATA ` DATA h DATA p DATA x DATA DATA ▖ DATA [A] DATA [I] DATA [Q] DATA DIM ▖ DIM [A] DIM [I] DIM [Q] DIM FN DATA VAL DATA LN DATA USR DATA >= DATA LPRINT CONTINUE CONTINUE CONTINUE LIST CONTINUE SAVE CONTINUE DIM FORMAT DATA CIRCLE DATA LPRINT DATA CONTINUE DATA LIST DATA SAVE DATA RESTORE RESTORE RESTORE RESTORE REM REM REM ( REM 0 REM 8 REM @ REM H REM P REM X REM ` REM h REM p REM x REM REM ▖ REM [A] REM [I] REM [Q] REM FN REM VAL REM LN REM USR REM >= REM FORMAT REM CIRCLE REM LPRINT REM CONTINUE REM LIST REM SAVE REM FOR FOR FOR FOR FOR ( FOR 0 FOR 8 FOR @ FOR H FOR P FOR X FOR ` FOR h FOR p FOR x FOR FOR ▖ FOR [A] FOR [I] FOR [Q] FOR FN FOR VAL FOR LN FOR USR FOR >= FOR FORMAT FOR CIRCLE FOR LPRINT FOR CONTINUE FOR LIST FOR SAVE FOR GO TO GO TO GO TO GO TO GO TO ( GO TO 0 GO TO 8 GO TO @ GO TO H GO TO P GO TO X GO TO ` GO TO h GO TO p GO TO x GO TO GO TO ▖ GO TO [A] GO TO [I] GO TO [Q] GO TO FN GO TO VAL GO TO LN GO TO USR GO TO >= GO TO FORMAT GO TO CIRCLE GO TO LPRINT GO TO CONTINUE GO TO LIST GO TO SAVE GO TO GO SUB GO SUB GO SUB GO SUB GO SUB ( GO SUB 0 GO SUB 8 GO SUB @ GO SUB H GO SUB P GO SUB X GO SUB ` GO SUB h GO SUB p GO SUB x GO SUB GO SUB ▖ GO SUB [A] GO SUB [I] GO SUB [Q] GO SUB FN GO SUB VAL GO SUB LN GO SUB USR GO SUB >= GO SUB FORMAT GO SUB CIRCLE GO SUB LPRINT GO SUB CONTINUE GO SUB LIST GO SUB SAVE GO SUB INPUT INPUT INPUT INPUT INPUT ( INPUT 0 INPUT 8 INPUT @ INPUT H INPUT P INPUT X INPUT ` INPUT h INPUT p INPUT x INPUT INPUT ▖ INPUT [A] INPUT LLIST NEXT PAUSE *>= LPRINT RUN Y LIST 8FN LPRINT RANDOMIZE LET 8 MOVE @ NEW LET 8>= FORMAT @ NEW LET 8FN FORMAT ` STEP LET * MOVE `TAB LLIST *>=USR `▟ LLIST *FN USR `m LLIST *STR$ `M LLIST * LLIST @ PLOT MOVE (>= LPRINT @ PLOT MOVE 8FN LPRINT @ NEW MOVE 8 MOVE @ NEW MOVE 8>= FORMAT @ VERIFY MOVE 8FN FORMAT NEXT MOVE ( MOVE NEXT MOVE 8>=USR READ MOVE 8FN USR READ MOVE 8STR$ OPEN #STR$ 8 LLIST TO LET STR$ (>= LPRINT PAUSE STR$ (FN LPRINT D PAUSE STR$ ( MOVE 0 BORDER STR$ *>= FORMAT @ NEW STR$ *FN FORMAT ` STEP MOVE `TAB STR$ *>=USR `▟STR$ *FN USR `mSTR$ *STR$ `MSTR$ *>=USR NEXT STR$ (FN USR NEXT STR$ 8LEN READ STR$ 8>=VAL READ STR$ 8FN VAL OPEN # LLIST ` STEP STR$ *>= LPRINT `TAB STR$ *FN LPRINT `▟STR$ * MOVE `mSTR$ *>= FORMAT `MSTR$ *FN FORMAT NEXT STR$ * MOVE RUN STR$ 8>=USR RANDOMIZE USR @ NEW STR$ 8STR$ @ NEW STR$ 8 LLIST NEXT STR$ (>= LPRINT NEXT STR$ 8FN LPRINT READ STR$ 8 MOVE READ FORMAT OPEN #STR$ 8FN FORMAT @ PLOT STR$ ( MOVE @ PLOT STR$ 8>=USR @ NEW STR$ 8FN USR @ NEW STR$ 8STR$ @ VERIFY STR$ 8 LLIST ` STEP STR$ *>= LPRINT `TAB STR$ *FN LPRINT `▟STR$ * MOVE `mSTR$ *>= FORMAT `MSTR$ * LLIST TO LET [A] LET (>= LPRINT PAUSE B LIST (FN LPRINT D PAUSE >= LIST ( MOVE 0 BORDER >= LIST *>= FORMAT @ NEW >= LIST *FN FORMAT VAL AND >= LIST * MOVE VAL INKEY$>= LPRINT *>=USR VAL ▚>= LPRINT *FN USR VAL f>= LPRINT *STR$ VAL F>= LPRINT * LLIST @ PLOT >= FORMAT (>= LPRINT @ PLOT >= FORMAT 8FN LPRINT @ NEW AND FORMAT 8 MOVE @ NEW BIN FORMAT 8>= FORMAT @ VERIFY AND FORMAT 8FN FORMAT NEXT >= FORMAT ( MOVE NEXT >= FORMAT 8>=USR READ >= FORMAT 8FN USR READ >= FORMAT 8STR$ OPEN #>=USR 8, LLIST W POKE SAVE LET * DRAW LPRINT CIRCLE RUN T LIST 8>= LPRINT INK RANDOMIZE DRAW LIST 8, MOVE ` DIM DRAW LIST 8 DRAW FORMAT ` DIM DRAW LIST 8>= FORMAT ` STEP DRAW LIST *, MOVE `TAB DRAW LPRINT * DRAW USR `▟ DRAW LPRINT *>=USR `m DRAW LPRINT *,STR$ `M DRAW LPRINT *, LLIST ` RANDOMIZE DRAW FORMAT ( DRAW LPRINT ` RANDOMIZE DRAW FORMAT 8>= LPRINT ` DIM IF FORMAT 8, MOVE ` DIM SAVE FORMAT 8 DRAW FORMAT ` INK IF FORMAT 8>= FORMAT VAL POKE DRAW FORMAT (, MOVE VAL POKE DRAW FORMAT 8 DRAW USR VAL DATA DRAW FORMAT 8>=USR VAL DATA DRAW FORMAT 8,STR$ VAL CLOSE # DRAW USR 8, LLIST [E] PAUSE IF USR ( DRAW LPRINT FORMAT PAUSE SAVE USR (>= LPRINT NEXT IF USR (, MOVE P REM DRAW USR * DRAW FORMAT ` DIM RETURN USR *>= FORMAT ` STEP STR$ *, MOVE `TAB RETURN USR * DRAW USR `▟ DRAW USR *>=USR `m DRAW USR *,STR$ `M IF USR * DRAW USR VAL POKE SAVE USR (>=USR VAL POKE IF USR 8,LEN VAL DATA DRAW USR 8 DRAW VAL VAL DATA RETURN USR 8>=VAL VAL CLOSE #STR$ 8, LLIST ` STEP RETURN USR * DRAW LPRINT `TAB DRAW USR *>= LPRINT `▟ DRAW USR *, MOVE `m IF USR * DRAW FORMAT `M SAVE USR *>= FORMAT W POKE IF USR *, MOVE CIRCLE RUN DRAW USR 8 DRAW USR INK RANDOMIZE RETURN USR 8>=USR ` DIM STR$ 8,STR$ ` DIM RETURN USR 8, LLIST VAL POKE DRAW USR ( DRAW LPRINT VAL POKE DRAW USR 8>= LPRINT VAL DATA IF USR 8, MOVE VAL DATA SAVE USR 8 DRAW FORMAT VAL CLOSE # IF USR 8>= FORMAT ` RANDOMIZE DRAW USR (, MOVE ` RANDOMIZE RETURN USR 8 DRAW USR ` DIM STR$ 8>=USR ` DIM RETURN USR 8,STR$ ` INK DRAW USR 8, LLIST ` STEP DRAW USR * DRAW LPRINT `TAB IF USR *>= LPRINT `▟ SAVE USR * DRAW FORMAT `M DRAW USR *, LLIST h LET [S] PAUSE ( DRAW LPRINT [U] LET p LIST (>= LPRINT LPRINT LET Q LET (, MOVE [Q] RESTORE Q LET * DRAW FORMAT VAL DATA Q LET *>= FORMAT ` STEP Q LET *, MOVE `TAB Q LLIST * DRAW USR `▟Q LLIST *>=USR `mQ LLIST *,STR$ `MQ LLIST *, LLIST ` RANDOMIZE Q LLIST ( DRAW LPRINT ` RANDOMIZE N LLIST 8>= LPRINT ` DIM K LLIST 8, MOVE ` DIM H LLIST 8 DRAW FORMAT ` INK E LLIST 8>= FORMAT VAL POKE B LLIST (, MOVE VAL POKE ? MOVE 8 DRAW USR VAL DATA < MOVE 8>=USR VAL DATA 9 MOVE 8,STR$ VAL CLOSE #6 MOVE 8Q LLIST [R] POKE STOP * LLIST " SAVE Y LPRINT 8 LLIST LPRINT # IF LLIST 8Q MOVE ▖ REM LLIST 8 MOVE ▖ REM LLIST 8 LLIST FORMAT ` STEP LET *Q MOVE `TAB LLIST *STR$ `▟ LLIST * LLIST USR `m LLIST *QSTR$ `M LLIST *Q LLIST ▖ IF MOVE ( LLIST ▖ IF MOVE 8 LLIST LPRINT ▖ REM MOVE 8Q MOVE ▖ REM MOVE 8 MOVE ▖ PAPER MOVE 8 LLIST FORMAT D PRINT MOVE (Q MOVE D PRINT MOVE 8STR$ D RESTORE MOVE 8 LLIST USR D RESTORE MOVE 8QSTR$ D MERGE STR$ 8Q LLIST OVER PAUSE STR$ ( LLIST NEXT STR$ ( LLIST LPRINT V NEXT STR$ (Q MOVE x FOR STR$ * MOVE ▖ REM STR$ * LLIST FORMAT ` STEP MOVE `TAB STR$ *STR$ `▟STR$ * LLIST USR `mSTR$ *QSTR$ `MSTR$ *STR$ D PRINT STR$ ( LLIST USR D PRINT STR$ 8QLEN D RESTORE STR$ 8LEN D RESTORE STR$ 8 LLIST VAL D MERGE LLIST ` STEP STR$ * LLIST `TAB STR$ * LLIST LPRINT `▟STR$ *Q MOVE `mSTR$ * MOVE `MSTR$ * LLIST FORMAT [R] POKE STR$ *Q MOVE " SAVE STR$ 8STR$ # IF STR$ 8 LLIST USR ▖ REM STR$ ▖ REM STR$ 8Q LLIST D PRINT STR$ ( LLIST D PRINT STR$ 8 LLIST LPRINT D RESTORE STR$ 8Q MOVE D RESTORE STR$ 8 MOVE D MERGE STR$ 8 LLIST FORMAT ▖ IF STR$ (Q MOVE ▖ IF STR$ 8STR$ ▖ REM USR ▖ REM STR$ 8QSTR$ ▖ PAPER STR$ 8Q LLIST ` STEP STR$ * LLIST `TAB STR$ * LLIST LPRINT `▟STR$ * MOVE `MSTR$ *Q LLIST ▟ LET NEXT ( LLIST <> LET LIST ( LLIST LPRINT PAUSE [A] LET (Q MOVE 4 NEW [A] LET * MOVE D RESTORE [A] LET * LLIST FORMAT ` STEP [A] LET *Q MOVE `TAB [A] LLIST *STR$ `▟[A] LLIST * LLIST USR `m[A] LLIST *QSTR$ `M[A] LLIST *Q LLIST ▖ IF [A] MOVE ( LLIST ▖ IF [A] MOVE 8 LLIST LPRINT ▖ REM ▙ MOVE 8Q MOVE ▖ REM MOVE 8 MOVE ▖ PAPER ▙ MOVE 8 LLIST FORMAT D PRINT [A] MOVE (Q MOVE D PRINT [A] MOVE 8STR$ D RESTORE [A] MOVE 8 LLIST USR D RESTORE [A] MOVE 8QSTR$ D MERGE [A]STR$ 8 LLIST POKE LINE PAUSE * LLIST LPRINT [G] RUN w LIST 8SIN LPRINT [H] RANDOMIZE e LET 8 MOVE X CONTINUE e LET 8 LLIST FORMAT X CONTINUE e LET 8SIN FORMAT ` STEP e LET * MOVE `TAB e LLIST * LLIST USR `▟e LLIST *SIN USR `me LLIST *STR$ `Me LLIST * LLIST X SAVE e MOVE ( LLIST LPRINT X SAVE e MOVE 8SIN LPRINT X CONTINUE c MOVE 8 MOVE X CONTINUE a MOVE 8 LLIST FORMAT X CIRCLE c MOVE 8SIN FORMAT , POKE e MOVE ( MOVE , POKE e MOVE 8 LLIST USR , DATA e MOVE 8SIN USR , DATA e MOVE 8STR$ , CLOSE #eSTR$ 8 LLIST R PAUSE cSTR$ ( LLIST LPRINT ▙ PAUSE aSTR$ (SIN LPRINT LINE PAUSE cSTR$ ( MOVE H DIM eSTR$ * LLIST FORMAT X CONTINUE gSTR$ *SIN FORMAT ` STEP iSTR$ * MOVE `TAB gSTR$ * LLIST USR `▟eSTR$ *SIN USR `meSTR$ *STR$ `McSTR$ * LLIST USR , POKE aSTR$ (SIN USR , POKE cSTR$ 8LEN , DATA eSTR$ 8 LLIST VAL , DATA gSTR$ 8SIN VAL , CLOSE #iSTR$ 8 LLIST ` STEP gSTR$ * LLIST LPRINT `TAB eSTR$ *SIN LPRINT `▟eSTR$ * MOVE `mcSTR$ * LLIST FORMAT `MaSTR$ *SIN FORMAT POKE cSTR$ * MOVE [G] RUN eSTR$ 8 LLIST USR [H] RANDOMIZE gSTR$ 8SIN USR X CONTINUE iSTR$ 8STR$ X CONTINUE gSTR$ 8 LLIST , POKE eSTR$ ( LLIST LPRINT , POKE eSTR$ 8SIN LPRINT , DATA cSTR$ 8 MOVE , DATA aSTR$ 8 LLIST FORMAT , CLOSE #cSTR$ 8SIN FORMAT X SAVE eSTR$ ( MOVE X SAVE gSTR$ 8 LLIST USR X CONTINUE iSTR$ 8SIN USR X CONTINUE gSTR$ 8STR$ X CIRCLE eSTR$ 8 LLIST ` STEP eSTR$ * LLIST LPRINT `TAB cSTR$ *SIN LPRINT `▟aSTR$ * LLIST FORMAT `MeSTR$ * LLIST F LET PAUSE ( LLIST LPRINT ▘ LET Y LIST (SIN LPRINT PEEK LET LET ( MOVE RESTORE LET * LLIST FORMAT , DATA LET *SIN FORMAT GO TO OR LET * MOVE GO TO RND LLIST * LLIST USR GO TO LLIST *SIN USR GO TO e LLIST *STR$ GO TO E LLIST * LLIST POKE MOVE * LLIST LPRINT [G] RUN MOVE 8SIN LPRINT [H] RANDOMIZE MOVE 8 MOVE X CONTINUE MOVE 8 LLIST FORMAT X CONTINUE MOVE 8SIN FORMAT , POKE MOVE ( MOVE , POKE MOVE 8 LLIST USR , DATA MOVE 8SIN USR , DATA MOVE 8STR$ , CLOSE #STR$ 8Q LLIST [R] POKE CHR$ LET * LLIST " SAVE K LIST 8 LLIST LPRINT # IF LLIST LIST 8Q MOVE ▖ REM LLIST LIST 8 MOVE ▖ REM LLIST LIST 8 LLIST FORMAT ` STEP LLIST LIST *Q MOVE `TAB LLIST LPRINT *STR$ `▟ LLIST LPRINT * LLIST USR `m LLIST LPRINT *QSTR$ `M LLIST LPRINT *Q LLIST ▖ IF LLIST FORMAT ( LLIST ▖ IF LLIST FORMAT 8 LLIST LPRINT ▖ REM OUT FORMAT 8Q MOVE ▖ REM INVERSE FORMAT 8 MOVE ▖ PAPER OUT FORMAT 8 LLIST FORMAT D PRINT LLIST FORMAT (Q MOVE D PRINT LLIST FORMAT 8STR$ D RESTORE LLIST FORMAT 8 LLIST USR D RESTORE LLIST FORMAT 8QSTR$ D MERGE LLIST USR 8Q LLIST OVER PAUSE OUT USR ( LLIST NEXT INPUT USR ( LLIST LPRINT V NEXT STR$ (Q MOVE x FOR STR$ * MOVE ▖ REM 'STR$ * LLIST FORMAT ` STEP :STR$ *Q MOVE `TAB ISTR$ *STR$ `▟XSTR$ * LLIST USR `miSTR$ *QSTR$ `MxSTR$ *Q LLIST D PRINT [S] PAUSE ( LLIST D PRINT p LIST 8 LLIST LPRINT D RESTORE Q LET 8Q MOVE D RESTORE Q LET 8 MOVE D MERGE Q LET 8Q LLIST ` STEP Q LET * LLIST `TAB Q LLIST * LLIST LPRINT `▟Q LLIST *Q MOVE `mQ LLIST * MOVE `MQ LLIST * LLIST FORMAT [R] POKE CHR$ LET *Q MOVE " SAVE K LIST 8STR$ # IF LLIST LIST 8 LLIST USR ▖ REM LLIST LIST 8QSTR$ ▖ REM LLIST LIST 8Q LLIST D PRINT LLIST LIST ( LLIST D PRINT LLIST LPRINT 8 LLIST LPRINT D RESTORE LLIST LPRINT 8Q MOVE D RESTORE LLIST LPRINT 8 MOVE D MERGE LLIST LPRINT 8 LLIST FORMAT ▖ IF LLIST FORMAT (Q MOVE ▖ IF FOR FORMAT 8STR$ ▖ REM NEXT FORMAT 8 LLIST USR ▖ REM CLS FORMAT 8QSTR$ ▖ PAPER MOVE 8Q LLIST ` STEP MOVE * LLIST `TAB MOVE * LLIST LPRINT `▟' MOVE *Q MOVE `m1 MOVE * MOVE `M;STR$ *Q LLIST ▟ LET [S] PAUSE ( LLIST <> LET p LIST ( LLIST LPRINT PAUSE Q LET (Q MOVE 4 NEW Q LET * MOVE D RESTORE Q LET * LLIST FORMAT ` STEP Q LET *Q MOVE `TAB Q LLIST *STR$ `▟Q LLIST * LLIST USR `mQ LLIST *QSTR$ `MQ LLIST *Q LLIST ▖ IF CHR$ LET ( LLIST ▖ IF K LIST 8 LLIST LPRINT ▖ REM LLIST LIST 8Q MOVE ▖ REM LLIST LIST 8 MOVE ▖ PAPER LLIST LIST 8 LLIST FORMAT D PRINT LLIST LIST (Q MOVE D PRINT LLIST LPRINT 8STR$ D RESTORE LLIST LPRINT 8 LLIST USR D RESTORE LLIST LPRINT 8QSTR$ D MERGE LLIST LPRINT 8Q LLIST [R] POKE LLIST FORMAT * LLIST " SAVE RESTORE FORMAT 8 LLIST LPRINT # IF BORDER FORMAT 8Q MOVE ▖ REM DIM FORMAT 8 MOVE ▖ REM LOAD FORMAT 8 LLIST FORMAT ` STEP PRINT FORMAT *Q MOVE `TAB RANDOMIZE FORMAT *STR$ `▟ CLEAR FORMAT * LLIST USR `m MOVE *QSTR$ `MSTR$ *Q LLIST ▖ IF [S] PAUSE ( LLIST ▖ IF p LIST 8 LLIST LPRINT ▖ REM Q LET 8Q MOVE ▖ REM Q LET 8 MOVE ▖ PAPER Q LET 8 LLIST FORMAT D PRINT Q LET (Q MOVE D PRINT Q LLIST 8STR$ D RESTORE Q LLIST 8 LLIST USR D RESTORE Q LLIST 8QSTR$ D MERGE Q LLIST 8Q LLIST OVER PAUSE Q MOVE ( LLIST NEXT U MOVE ( LLIST LPRINT V NEXT W MOVE (Q MOVE x FOR Y MOVE * MOVE ▖ REM _ MOVE * LLIST FORMAT ` STEP e MOVE *Q MOVE `TAB i MOVE *STR$ `▟m MOVE * LLIST USR `mq MOVE *QSTR$ `MuSTR$ * LLIST FORMAT [R] POKE Q LET *Q MOVE " SAVE 8 LIST 8STR$ # IF FN LIST 8 LLIST USR ▖ REM FN LIST 8QSTR$ ▖ REM FN LIST 8Q LLIST D PRINT FN LIST ( LLIST D PRINT FN LPRINT 8 LLIST LPRINT D RESTORE FN LPRINT 8Q MOVE D RESTORE FN LPRINT 8 MOVE D MERGE FN LPRINT 8 LLIST FORMAT ▖ IF FN FORMAT (Q MOVE ▖ IF AT FORMAT 8STR$ ▖ REM VAL$ FORMAT 8 LLIST USR ▖ REM VAL FORMAT 8QSTR$ ▖ PAPER ACS FORMAT 8Q LLIST ` STEP SGN FORMAT * LLIST `TAB USR FORMAT * LLIST LPRINT `▟BIN FORMAT *Q MOVE `m>= FORMAT * MOVE `M TO USR *Q LLIST ▟ LET e LET ( LLIST <> LET ; LIST ( LLIST LPRINT PAUSE SIN LIST (Q MOVE 4 NEW SIN LIST * MOVE D RESTORE SIN LIST * LLIST FORMAT ` STEP SIN LIST *Q MOVE `TAB SIN LPRINT *STR$ `▟SIN LPRINT * LLIST USR `mSIN LPRINT *QSTR$ `MSIN LPRINT *Q LLIST ▖ IF SIN FORMAT ( LLIST ▖ IF ACS FORMAT 8 LLIST LPRINT ▖ REM LN FORMAT 8Q MOVE ▖ REM INT FORMAT 8 MOVE ▖ PAPER USR FORMAT 8 LLIST FORMAT D PRINT AND FORMAT (Q MOVE D PRINT LINE FORMAT 8STR$ D RESTORE DEF FN FORMAT 8 LLIST USR D RESTORE ERASE FORMAT 8QSTR$ D MERGE VERIFY USR 8 LLIST POKE e LET * VERIFY LPRINT [G] RUN ; LIST 8SIN LPRINT [H] RANDOMIZE SIN LIST 8 MOVE X CONTINUE SIN LIST 8 VERIFY FORMAT X CONTINUE SIN LIST 8SIN FORMAT ` STEP SIN LIST * MOVE `TAB SIN LPRINT * VERIFY USR `▟SIN LPRINT *SIN USR `mSIN LPRINT *STR$ `MSIN LPRINT * LLIST X SAVE SIN FORMAT ( VERIFY LPRINT X SAVE SIN FORMAT 8SIN LPRINT X CONTINUE VAL FORMAT 8 MOVE X CONTINUE VAL$ FORMAT 8 VERIFY FORMAT X CIRCLE VAL FORMAT 8SIN FORMAT , POKE SIN FORMAT ( MOVE , POKE SIN FORMAT 8 VERIFY USR , DATA SIN FORMAT 8SIN USR , DATA SIN FORMAT 8STR$ , CLOSE #SIN USR 8 LLIST R PAUSE VAL USR ( VERIFY LPRINT ▙ PAUSE ATN USR (SIN LPRINT LINE PAUSE CHR$ USR ( MOVE H DIM STEP USR * VERIFY FORMAT X CONTINUE CIRCLE USR *SIN FORMAT ` STEP READ USR * MOVE `TAB REM USR * VERIFY USR `▟ LET USR *SIN USR `m IF USR *STR$ `MSTR$ * LLIST , POKE AT LET ( VERIFY LPRINT , POKE G LIST 8SIN LPRINT , DATA VERIFY LIST 8 MOVE , DATA VERIFY LIST 8 VERIFY FORMAT , CLOSE # VERIFY LIST 8 LLIST ` STEP VERIFY LIST * VERIFY LPRINT `TAB VERIFY LPRINT *SIN LPRINT `▟ VERIFY LPRINT * MOVE `m VERIFY LPRINT * VERIFY FORMAT `M VERIFY LPRINT *SIN FORMAT POKE e LET * MOVE [G] RUN ; LIST 8 VERIFY USR [H] RANDOMIZE SIN LIST 8SIN USR X CONTINUE SIN LIST 8STR$ X CONTINUE SIN LIST 8 LLIST , POKE SIN LIST ( VERIFY LPRINT , POKE SIN LPRINT 8SIN LPRINT , DATA SIN LPRINT 8 MOVE , DATA SIN LPRINT 8 VERIFY FORMAT , CLOSE #SIN LPRINT 8SIN FORMAT X SAVE SIN FORMAT ( MOVE X SAVE ACS FORMAT 8 VERIFY USR X CONTINUE LN FORMAT 8SIN USR X CONTINUE INT FORMAT 8STR$ X CIRCLE USR FORMAT 8 LLIST ` STEP AND FORMAT * VERIFY LPRINT `TAB LINE FORMAT *SIN LPRINT `▟ DEF FN FORMAT * MOVE `m ERASE FORMAT * VERIFY FORMAT `M VERIFY USR * LLIST F LET AT LET ( VERIFY LPRINT ▘ LET G LIST (SIN LPRINT PEEK LET VERIFY LIST ( MOVE RESTORE VERIFY LIST * VERIFY FORMAT , DATA VERIFY LIST *SIN FORMAT ` STEP VERIFY LIST * MOVE `TAB VERIFY LPRINT * VERIFY USR `▟ VERIFY LPRINT *SIN USR `m VERIFY LPRINT *STR$ `M VERIFY LPRINT * LLIST X SAVE e LET ( VERIFY LPRINT X SAVE ; LIST 8SIN LPRINT X CONTINUE SIN LIST 8 MOVE X CONTINUE SIN LIST 8 VERIFY FORMAT X CIRCLE SIN LIST 8SIN FORMAT , POKE SIN LIST ( MOVE , POKE SIN LPRINT 8 VERIFY USR , DATA SIN LPRINT 8SIN USR , DATA SIN LPRINT 8STR$ , CLOSE #SIN LPRINT 8 LLIST POKE SIN FORMAT * VERIFY LPRINT [G] RUN ACS FORMAT 8SIN LPRINT [H] RANDOMIZE LN FORMAT 8 MOVE X CONTINUE INT FORMAT 8 VERIFY FORMAT X CONTINUE USR FORMAT 8SIN FORMAT ` STEP AND FORMAT * MOVE `TAB LINE FORMAT * VERIFY USR `▟ DEF FN FORMAT *SIN USR `m ERASE FORMAT *STR$ `M VERIFY USR * LLIST X SAVE AT LET ( VERIFY LPRINT X SAVE G LIST 8SIN LPRINT X CONTINUE VERIFY LIST 8 MOVE X CONTINUE VERIFY LIST 8 VERIFY FORMAT X CIRCLE VERIFY LIST 8SIN FORMAT , POKE VERIFY LIST ( MOVE , POKE VERIFY LPRINT 8 VERIFY USR , DATA VERIFY LPRINT 8SIN USR , DATA VERIFY LPRINT 8STR$ , CLOSE # VERIFY LPRINT 8 LLIST R PAUSE VERIFY FORMAT ( VERIFY LPRINT ▙ PAUSE PAPER FORMAT (SIN LPRINT LINE PAUSE BRIGHT FORMAT ( MOVE H DIM OVER FORMAT * VERIFY FORMAT X CONTINUE DATA FORMAT *SIN FORMAT ` STEP REM FORMAT * MOVE `TAB INPUT FORMAT * VERIFY USR `▟ PAUSE FORMAT *SIN USR `m PLOT FORMAT *STR$ `M IF USR *SIN FORMAT POKE LET * MOVE [G] RUN , LIST 8 VERIFY USR [H] RANDOMIZE LIST 8SIN USR X CONTINUE LIST 8STR$ X CONTINUE LIST 8 LLIST , POKE LIST ( VERIFY LPRINT , POKE LPRINT 8SIN LPRINT , DATA LPRINT 8 MOVE , DATA LPRINT 8 VERIFY FORMAT , CLOSE # LPRINT 8SIN FORMAT X SAVE FORMAT ( MOVE X SAVE FORMAT 8 VERIFY USR X CONTINUE FORMAT 8SIN USR X CONTINUE ▝ FORMAT 8STR$ X CIRCLE FORMAT 8 LLIST ` STEP FORMAT * VERIFY LPRINT `TAB FORMAT *SIN LPRINT `▟ FORMAT * MOVE `m FORMAT * VERIFY FORMAT `MUSR * LLIST F LET , LET ( VERIFY LPRINT ▘ LET 2 LIST (SIN LPRINT PEEK LET [G] LIST ( MOVE RESTORE [G] LIST * VERIFY FORMAT , DATA [G] LIST *SIN FORMAT GO TO OR [G] LIST * MOVE GO TO RND[G] LPRINT * VERIFY USR GO TO [G] LPRINT *SIN USR GO TO e[G] LPRINT *STR$ GO TO E[G] LPRINT * LLIST X SAVE [G] FORMAT ( VERIFY LPRINT X SAVE [G] FORMAT 8SIN LPRINT X CONTINUE [E] FORMAT 8 MOVE X CONTINUE [C] FORMAT 8 VERIFY FORMAT X CIRCLE [E] FORMAT 8SIN FORMAT , POKE [G] FORMAT ( MOVE , POKE [G] FORMAT 8 VERIFY USR , DATA [G] FORMAT 8SIN USR , DATA [G] FORMAT 8STR$ , CLOSE #[G]USR 8 DRAW LPRINT RUN NEXT Q LET *>= LPRINT x RUN 8 LIST 8FN LPRINT y RANDOMIZE FN LIST 8 DRAW FORMAT LPRINT BORDER FN LIST 8>= FORMAT LPRINT BORDER FN LIST 8FN FORMAT XNOT FN LIST * DRAW FORMAT X[T]FN LPRINT *>=USR XFN LPRINT *FN USR XcFN LPRINT * DRAW USR XCFN LPRINT * DRAW LPRINT LPRINT RUN FN FORMAT (>= LPRINT LPRINT RUN FN FORMAT 8FN LPRINT LPRINT BORDER INKEY$ FORMAT 8 DRAW FORMAT LPRINT BORDER [U] FORMAT 8>= FORMAT LPRINT BEEP INKEY$ FORMAT 8FN FORMAT CLEAR NEXT FN FORMAT ( DRAW FORMAT CLEAR NEXT ATN FORMAT 8>=USR CLEAR READ AND FORMAT 8FN USR CLEAR READ MERGE FORMAT 8 DRAW USR CLEAR OPEN # DATA USR 8 DRAW LPRINT 4 PAUSE LET USR (>= LPRINT p PAUSE RETURN USR (FN LPRINT AT PAUSE STR$ ( DRAW FORMAT FORMAT CONTINUE STR$ *>= FORMAT LPRINT BORDER 1STR$ *FN FORMAT XNOT BSTR$ * DRAW FORMAT X[T]OSTR$ *>=USR X/STR$ *FN USR XckSTR$ * DRAW USR XCxSTR$ * DRAW LPRINT CLEAR NEXT q(>= LPRINT CLEAR NEXT ▜q8FN LPRINT CLEAR READ ▞q8 DRAW FORMAT CLEAR READ ▛q8>= FORMAT CLEAR OPEN #▟q8 DRAW LPRINT XNOT ▛q*>= LPRINT X[T]▞q*FN LPRINT X▞q* DRAW FORMAT Xc▜q*>= FORMAT XCq*FN FORMAT RUN NEXT ▜q* DRAW FORMAT x RUN ▞q8>=USR y RANDOMIZE ▛q8FN USR LPRINT BORDER ▟q8 DRAW USR LPRINT BORDER ▛q8 DRAW LPRINT CLEAR NEXT ▞q(>= LPRINT CLEAR NEXT ▞q8FN LPRINT CLEAR READ ▜q8 DRAW FORMAT CLEAR READ q8>= FORMAT CLEAR OPEN #▜q8FN FORMAT LPRINT RUN e LET ( DRAW FORMAT LPRINT RUN ; LIST 8>=USR LPRINT BORDER SIN LIST 8FN USR LPRINT BORDER SIN LIST 8 DRAW USR LPRINT BEEP SIN LIST 8 DRAW LPRINT XNOT SIN LIST *>= LPRINT X[T]SIN LPRINT *FN LPRINT XSIN LPRINT * DRAW FORMAT XcSIN LPRINT *>= FORMAT XCSIN LPRINT * DRAW LPRINT 8 LET [A] LET (>= LPRINT t LET B LIST (FN LPRINT VAL LET >= LIST ( DRAW FORMAT GO SUB DATA >= LIST *>= FORMAT CLEAR READ >= LIST *FN FORMAT XNOT >= LIST * DRAW FORMAT X[T]>= LPRINT *>=USR X>= LPRINT *FN USR Xc>= LPRINT * DRAW USR XC>= LPRINT * DRAW LPRINT LPRINT RUN >= FORMAT (>= LPRINT LPRINT RUN >= FORMAT 8FN LPRINT LPRINT BORDER AND FORMAT 8 DRAW FORMAT LPRINT BORDER BIN FORMAT 8>= FORMAT LPRINT BEEP AND FORMAT 8FN FORMAT CLEAR NEXT >= FORMAT ( DRAW FORMAT CLEAR NEXT >= FORMAT 8>=USR CLEAR READ >= FORMAT 8FN USR CLEAR READ >= FORMAT 8 DRAW USR CLEAR OPEN #>=USR 8 LOAD LPRINT OVER NEXT , LET *>= LPRINT _ RUN 2 LIST 8[P] LPRINT ` RANDOMIZE [G] LIST 8 LOAD FORMAT | BORDER [G] LIST 8>= FORMAT | BORDER [G] LIST 8[P] FORMAT XNOT [G] LIST * LOAD FORMAT X[T][G] LPRINT *>=USR X[G] LPRINT *[P]USR Xc[G] LPRINT * LOAD USR XC[G] LPRINT * LOAD LPRINT | RUN [G] FORMAT (>= LPRINT | RUN [G] FORMAT 8[P] LPRINT | BORDER [E] FORMAT 8 LOAD FORMAT | BORDER [C] FORMAT 8>= FORMAT | BEEP [E] FORMAT 8[P] FORMAT PEEK NEXT [G] FORMAT ( LOAD FORMAT PEEK NEXT [G] FORMAT 8>=USR PEEK READ [G] FORMAT 8[P]USR PEEK READ [G] FORMAT 8 LOAD USR PEEK OPEN #[G]USR 8 LOAD LPRINT PAUSE [E]USR (>= LPRINT W PAUSE [C]USR ([P] LPRINT [D] PAUSE [E]USR ( LOAD FORMAT l CONTINUE [G]USR *>= FORMAT | BORDER [I]USR *[P] FORMAT XNOT [K]USR * LOAD FORMAT X[T][I]USR *>=USR X[G]USR *[P]USR Xc[G]USR * LOAD USR XC[E]USR * LOAD LPRINT PEEK NEXT [C]USR (>= LPRINT PEEK NEXT [E]USR 8[P] LPRINT PEEK READ [G]USR 8 LOAD FORMAT PEEK READ [I]USR 8>= FORMAT PEEK OPEN #[K]USR 8 LOAD LPRINT XNOT [I]USR *>= LPRINT X[T][G]USR *[P] LPRINT X[G]USR * LOAD FORMAT Xc[E]USR *>= FORMAT XC[C]USR *[P] FORMAT OVER NEXT [E]USR * LOAD FORMAT _ RUN [I]USR 8>=USR ` RANDOMIZE [M]USR 8[P]USR | BORDER [Q]USR 8 LOAD USR | BORDER [Q]USR 8 LOAD LPRINT PEEK NEXT [Q]USR (>= LPRINT PEEK NEXT [S]USR 8[P] LPRINT PEEK READ [S]USR 8 LOAD FORMAT PEEK READ [S]USR 8>= FORMAT PEEK OPEN #INKEY$USR 8[P] FORMAT | RUN SCREEN$ USR ( LOAD FORMAT | RUN VAL$ USR 8>=USR | BORDER SIN USR 8[P]USR | BORDER SIN USR 8 LOAD USR | BEEP SIN USR 8 LOAD LPRINT XNOT TAN USR *>= LPRINT X[T]TAN USR *[P] LPRINT XTAN USR * LOAD FORMAT XcLN USR *>= FORMAT XCSGN USR * LOAD LPRINT PAUSE >= LIST (>= LPRINT W PAUSE >= LIST ([P] LPRINT [D] PAUSE >= LIST ( LOAD FORMAT l CONTINUE >= LIST *>= FORMAT | BORDER >= LIST *[P] FORMAT XNOT >=USR * LOAD FORMAT X[T]>=USR *>=USR X>=USR *[P]USR Xc>=USR * LOAD USR XC>=USR * LOAD LPRINT | RUN >= LPRINT (>= LPRINT | RUN MERGE LPRINT 8[P] LPRINT | BORDER STOP LPRINT 8 LOAD FORMAT | BORDER LOAD LPRINT 8>= FORMAT | BEEP DRAW LPRINT 8[P] FORMAT PEEK NEXT >=[A]( LOAD FORMAT PEEK NEXT >=[A]8>=USR PEEK READ >=[A]8[P]USR PEEK READ >=[A]8 LOAD USR PEEK OPEN #>=[A]8 LLIST LPRINT RANDOMIZE SIN LPRINT *SIN LPRINT ▖ DRAW SIN LPRINT 8[G] LPRINT ▞ RETURN SIN LPRINT 8 LLIST FORMAT BORDER SIN LPRINT 8SIN FORMAT BORDER SIN LPRINT 8[G] FORMAT XNOT SIN [A]* LLIST FORMAT X[T]SIN p*SIN USR XSIN `*[G]USR XcSIN @* LLIST USR XCSIN 0* LLIST LPRINT RUN LLIST LPRINT (SIN LPRINT RUN LLIST LPRINT 8[G] LPRINT BORDER LLIST LPRINT 8 LLIST FORMAT BORDER LLIST LPRINT 8SIN FORMAT BEEP LLIST LPRINT 8[G] FORMAT ▗ NEXT LLIST [A]( LLIST FORMAT ▗ NEXT LLIST p8SIN USR ▗ READ LLIST `8[G]USR ▗ READ LLIST @8 LLIST USR ▗ OPEN # LLIST 08 LLIST LPRINT RETURN LET [G] LPRINT (SIN LPRINT : PAUSE [G] LPRINT ([G] LPRINT v PAUSE [G] LPRINT ( LLIST FORMAT SAVE BORDER [G] LPRINT *SIN FORMAT BORDER [G] LPRINT *[G] FORMAT XNOT [G][A]* LLIST FORMAT X[T][G]p*SIN USR X[G]`*[G]USR Xc[G]@* LLIST USR XC[G]0* LLIST LPRINT ▗ NEXT LLIST LPRINT (SIN LPRINT ▗ NEXT LLIST LPRINT 8[G] LPRINT ▗ READ LLIST LPRINT 8 LLIST FORMAT ▗ READ LLIST LPRINT 8SIN FORMAT ▗ OPEN # LLIST LPRINT 8 LLIST LPRINT XNOT LLIST [A]*SIN LPRINT X[T] LLIST p*[G] LPRINT X LLIST `* LLIST FORMAT Xc LLIST @*SIN FORMAT XC LLIST 0*[G] FORMAT STR$ NEXT SIN LPRINT * LLIST FORMAT B RUN SIN LPRINT 8SIN USR C RANDOMIZE SIN LPRINT 8[G]USR BORDER SIN LPRINT 8 LLIST USR BORDER SIN LPRINT 8 LLIST LPRINT ▗ NEXT SIN [A](SIN LPRINT ▗ NEXT SIN p8[G] LPRINT ▗ READ SIN `8 LLIST FORMAT ▗ READ SIN @8SIN FORMAT ▗ OPEN #SIN 08[G] FORMAT RUN LLIST LPRINT ( LLIST FORMAT RUN LLIST LPRINT 8SIN USR BORDER LLIST LPRINT 8[G]USR BORDER LLIST LPRINT 8 LLIST USR BEEP LLIST LPRINT 8 LLIST LPRINT STR$ NEXT SIN LPRINT *SIN LPRINT B RUN SIN LPRINT 8[G] LPRINT C RANDOMIZE SIN LPRINT 8 LLIST LPRINT RETURN LET LLIST LPRINT (SIN LPRINT : PAUSE LLIST LPRINT ([G] LPRINT v PAUSE LLIST LPRINT ( LLIST FORMAT SAVE BORDER LLIST LPRINT *SIN FORMAT BORDER LLIST LPRINT * DRAW LPRINT RUN NEXT FN LPRINT *>= LPRINT x RUN FN LPRINT 8FN LPRINT y RANDOMIZE FN LPRINT 8 DRAW FORMAT LPRINT BORDER FN LPRINT 8>= FORMAT LPRINT BORDER FN LPRINT 8FN FORMAT ` STEP FN [A]* DRAW FORMAT `TAB FN p*>=USR `▟FN `*FN USR `mFN @* DRAW USR `MFN 0* DRAW LPRINT LPRINT RUN DRAW LPRINT (>= LPRINT LPRINT RUN DRAW LPRINT 8FN LPRINT LPRINT BORDER DRAW LPRINT 8 DRAW FORMAT LPRINT BORDER DRAW LPRINT 8>= FORMAT LPRINT BEEP DRAW LPRINT 8FN FORMAT CLEAR NEXT DRAW [A]( DRAW FORMAT CLEAR NEXT DRAW p8>=USR CLEAR READ DRAW `8FN USR CLEAR READ DRAW @8 DRAW USR CLEAR OPEN # DRAW 08 DRAW LPRINT 4 PAUSE DRAW LPRINT (>= LPRINT p PAUSE DRAW LPRINT (FN LPRINT AT PAUSE DRAW LPRINT ( DRAW FORMAT FORMAT CONTINUE DRAW LPRINT *>= FORMAT LPRINT BORDER DRAW LPRINT *FN FORMAT ` STEP DRAW [A]* DRAW FORMAT `TAB DRAW p*>=USR `▟ DRAW `*FN USR `m DRAW @* DRAW USR `M DRAW 0* DRAW LPRINT CLEAR NEXT FN FORMAT (>= LPRINT CLEAR NEXT FN FORMAT 8FN LPRINT CLEAR READ FN FORMAT 8 DRAW FORMAT CLEAR READ FN FORMAT 8>= FORMAT CLEAR OPEN #FN FORMAT 8 DRAW LPRINT ` STEP FN [A]*>= LPRINT `TAB FN p*FN LPRINT `▟FN `* DRAW FORMAT `mFN @*>= FORMAT `MFN 0*FN FORMAT RUN NEXT DRAW FORMAT * DRAW FORMAT x RUN DRAW FORMAT 8>=USR y RANDOMIZE DRAW FORMAT 8FN USR LPRINT BORDER DRAW FORMAT 8 DRAW USR LPRINT BORDER DRAW FORMAT 8 DRAW LPRINT CLEAR NEXT DRAW [A](>= LPRINT CLEAR NEXT DRAW p8FN LPRINT CLEAR READ DRAW `8 DRAW FORMAT CLEAR READ DRAW @8>= FORMAT CLEAR OPEN # DRAW 08FN FORMAT LPRINT RUN DRAW FORMAT ( DRAW FORMAT LPRINT RUN DRAW FORMAT 8>=USR LPRINT BORDER DRAW FORMAT 8FN USR LPRINT BORDER DRAW FORMAT 8 DRAW USR LPRINT BEEP DRAW FORMAT 8 DRAW LPRINT ` STEP DRAW [A]*>= LPRINT `TAB DRAW p*FN LPRINT `▟ DRAW `* DRAW FORMAT `m DRAW @*>= FORMAT `M DRAW 0* DRAW LPRINT 8 LET FN USR (>= LPRINT t LET FN USR (FN LPRINT VAL LET FN USR ( DRAW FORMAT GO SUB DATA FN USR *>= FORMAT CLEAR READ FN USR * DRAW LPRINT LPRINT RUN DRAW USR (>= LPRINT LPRINT RUN DRAW USR 8FN LPRINT LPRINT BORDER DRAW USR 8 DRAW FORMAT LPRINT BORDER DRAW USR 8>= FORMAT LPRINT BEEP DRAW USR 8 DRAW LPRINT RUN NEXT DRAW USR *>= LPRINT x RUN DRAW USR 8FN LPRINT y RANDOMIZE DRAW USR 8 DRAW FORMAT LPRINT BORDER DRAW USR 8>= FORMAT LPRINT BORDER DRAW USR 8FN FORMAT CLEAR NEXT FN [A]( DRAW FORMAT CLEAR NEXT FN p8>=USR CLEAR READ FN `8FN USR CLEAR READ FN @8 DRAW USR CLEAR OPEN #FN 08 DRAW LPRINT CLEAR NEXT DRAW LPRINT (>= LPRINT CLEAR NEXT DRAW LPRINT 8FN LPRINT CLEAR READ DRAW LPRINT 8 DRAW FORMAT CLEAR READ DRAW LPRINT 8>= FORMAT CLEAR OPEN # DRAW LPRINT 8FN FORMAT RUN NEXT FN LPRINT * DRAW FORMAT x RUN FN LPRINT 8>=USR y RANDOMIZE FN LPRINT 8FN USR LPRINT BORDER FN LPRINT 8 DRAW USR LPRINT BORDER FN LPRINT 8 DRAW LPRINT CLEAR NEXT FN [A](>= LPRINT CLEAR NEXT FN p8FN LPRINT CLEAR READ FN `8 DRAW FORMAT CLEAR READ FN @8>= FORMAT CLEAR OPEN #FN 08FN FORMAT LPRINT RUN DRAW LPRINT ( DRAW FORMAT LPRINT RUN DRAW LPRINT 8>=USR LPRINT BORDER DRAW LPRINT 8FN USR LPRINT BORDER DRAW LPRINT 8 DRAW USR LPRINT BEEP DRAW LPRINT 8 DRAW LPRINT 8 LET DRAW LPRINT (>= LPRINT t LET DRAW LPRINT (FN LPRINT VAL LET DRAW LPRINT ( DRAW FORMAT GO SUB DATA DRAW LPRINT *>= FORMAT CLEAR READ DRAW LPRINT * DRAW LPRINT LPRINT RUN FN LPRINT (>= LPRINT LPRINT RUN FN LPRINT 8FN LPRINT LPRINT BORDER FN LPRINT 8 DRAW FORMAT LPRINT BORDER FN LPRINT 8>= FORMAT LPRINT BEEP FN LPRINT 8 LLIST POKE SIN LPRINT * LLIST LPRINT [G] RUN SIN LPRINT 8SIN LPRINT [H] RANDOMIZE SIN LPRINT 8 MOVE X CONTINUE SIN LPRINT 8 LLIST FORMAT X CONTINUE SIN LPRINT 8SIN FORMAT ` STEP SIN [A]* MOVE `TAB SIN p* LLIST USR `▟SIN `*SIN USR `mSIN @*STR$ `MSIN 0* LLIST X SAVE LLIST ( LLIST LPRINT X SAVE LLIST 8SIN LPRINT X CONTINUE LLIST 8 MOVE X CONTINUE LLIST 8 LLIST FORMAT X CIRCLE LLIST 8SIN FORMAT , POKE [B]( MOVE , POKE q8 LLIST USR , DATA a8SIN USR , DATA A8STR$ , CLOSE #18 LLIST R PAUSE LLIST ( LLIST LPRINT ▙ PAUSE LLIST (SIN LPRINT LINE PAUSE LLIST ( MOVE H DIM LLIST * LLIST FORMAT X CONTINUE LLIST *SIN FORMAT ` STEP [B]* MOVE `TAB q* LLIST USR `▟a*SIN USR `mA*STR$ `M1* LLIST , POKE SIN FORMAT ( LLIST LPRINT , POKE SIN FORMAT 8SIN LPRINT , DATA SIN FORMAT 8 MOVE , DATA SIN FORMAT 8 LLIST FORMAT , CLOSE #SIN FORMAT 8 LLIST ` STEP SIN [A]* LLIST LPRINT `TAB SIN p*SIN LPRINT `▟SIN `* MOVE `mSIN @* LLIST FORMAT `MSIN 0*SIN FORMAT POKE MOVE * MOVE [G] RUN MOVE 8 LLIST USR [H] RANDOMIZE MOVE 8SIN USR X CONTINUE MOVE 8STR$ X CONTINUE MOVE 8 LLIST , POKE [B]( LLIST LPRINT , POKE q8SIN LPRINT , DATA a8 MOVE , DATA A8 LLIST FORMAT , CLOSE #18SIN FORMAT X SAVE MOVE ( MOVE X SAVE MOVE 8 LLIST USR X CONTINUE MOVE 8SIN USR X CONTINUE MOVE 8STR$ X CIRCLE MOVE 8 LLIST ` STEP [B]* LLIST LPRINT `TAB q*SIN LPRINT `▟a* MOVE `mA* LLIST FORMAT `M1* LLIST F LET SIN FORMAT ( LLIST LPRINT ▘ LET SIN FORMAT (SIN LPRINT PEEK LET SIN FORMAT ( MOVE RESTORE SIN FORMAT * LLIST FORMAT , DATA SIN FORMAT * LLIST X SAVE MOVE ( LLIST LPRINT X SAVE MOVE 8SIN LPRINT X CONTINUE MOVE 8 MOVE X CONTINUE MOVE 8 LLIST FORMAT X CIRCLE MOVE 8SIN LPRINT [H] RANDOMIZE MOVE 8 MOVE X CONTINUE MOVE 8 LLIST FORMAT X CONTINUE MOVE 8SIN FORMAT , POKE SIN [A]( MOVE , POKE SIN p8 LLIST USR , DATA SIN `8SIN USR , DATA SIN @8STR$ , CLOSE #SIN 08 LLIST , POKE LLIST ( LLIST LPRINT , POKE LLIST 8SIN LPRINT , DATA LLIST 8 MOVE , DATA LLIST 8 LLIST FORMAT , CLOSE # LLIST 8 LLIST VAL AND [B]* LLIST LPRINT VAL INKEY$q*SIN LPRINT VAL ▚a* MOVE VAL fA* LLIST FORMAT VAL F1*SIN FORMAT POKE SIN LPRINT * MOVE [G] RUN SIN LPRINT 8 LLIST USR [H] RANDOMIZE SIN LPRINT 8SIN USR X CONTINUE SIN LPRINT 8STR$ X CONTINUE SIN LPRINT 8 LLIST , POKE SIN [A]( LLIST LPRINT , POKE SIN p8SIN LPRINT , DATA SIN `8 MOVE , DATA SIN @8 LLIST FORMAT , CLOSE #SIN 08SIN FORMAT X SAVE LLIST ( MOVE X SAVE LLIST 8 LLIST USR X CONTINUE LLIST 8SIN USR X CONTINUE LLIST 8STR$ X CIRCLE LLIST 8 LLIST F LET LLIST ( LLIST LPRINT ▘ LET LLIST (SIN LPRINT PEEK LET LLIST ( MOVE RESTORE LLIST * LLIST FORMAT , DATA LLIST *SIN FORMAT VAL AND [B]* MOVE VAL INKEY$q* LLIST USR VAL ▚a*SIN USR VAL fA*STR$ VAL F1* LLIST X SAVE , LLIST ( LLIST LPRINT X SAVE , LLIST 8SIN LPRINT X CONTINUE , LLIST 8 MOVE X CONTINUE , LLIST 8 LLIST FORMAT X CIRCLE , LLIST 8SIN FORMAT , POKE ,[B]( MOVE , POKE ,q8 LLIST USR , DATA ,a8SIN USR , DATA ,A8STR$ , CLOSE #,18, LLIST W POKE FN LPRINT * DRAW LPRINT CIRCLE RUN FN LPRINT 8>= LPRINT INK RANDOMIZE FN LPRINT 8, MOVE ` DIM FN LPRINT 8 DRAW FORMAT ` DIM FN LPRINT 8>= FORMAT XNOT FN [A]*, MOVE X[T]FN p* DRAW USR XFN `*>=USR XcFN @*,STR$ XCFN 0*, LLIST ` RANDOMIZE DRAW LPRINT ( DRAW LPRINT ` RANDOMIZE DRAW LPRINT 8>= LPRINT ` DIM DRAW LPRINT 8, MOVE ` DIM DRAW LPRINT 8 DRAW FORMAT ` INK DRAW LPRINT 8>= FORMAT VAL POKE DRAW [A](, MOVE VAL POKE DRAW p8 DRAW USR VAL DATA DRAW `8>=USR VAL DATA DRAW @8,STR$ VAL CLOSE # DRAW 08, LLIST [E] PAUSE DRAW LPRINT ( DRAW LPRINT FORMAT PAUSE DRAW LPRINT (>= LPRINT NEXT DRAW LPRINT (, MOVE P REM DRAW LPRINT * DRAW FORMAT ` DIM DRAW LPRINT *>= FORMAT XNOT DRAW [A]*, MOVE X[T] DRAW p* DRAW USR X DRAW `*>=USR Xc DRAW @*,STR$ XC DRAW 0*, LLIST VAL POKE FN FORMAT ( DRAW LPRINT VAL POKE FN FORMAT 8>= LPRINT VAL DATA FN FORMAT 8, MOVE VAL DATA FN FORMAT 8 DRAW FORMAT VAL CLOSE #FN FORMAT 8, LLIST XNOT FN [A]* DRAW LPRINT X[T]FN p*>= LPRINT XFN `*, MOVE XcFN @* DRAW FORMAT XCFN 0*>= FORMAT W POKE DRAW FORMAT *, MOVE CIRCLE RUN DRAW FORMAT 8 DRAW USR INK RANDOMIZE DRAW FORMAT 8>=USR ` DIM DRAW FORMAT 8,STR$ ` DIM DRAW FORMAT 8, LLIST VAL POKE DRAW [A]( DRAW LPRINT VAL POKE DRAW p8>= LPRINT VAL DATA DRAW `8, MOVE VAL DATA DRAW @8 DRAW FORMAT VAL CLOSE # DRAW 08>= FORMAT ` RANDOMIZE DRAW FORMAT (, MOVE ` RANDOMIZE DRAW FORMAT 8 DRAW USR ` DIM DRAW FORMAT 8>=USR ` DIM DRAW FORMAT 8,STR$ ` INK DRAW FORMAT 8, LLIST XNOT DRAW [A]* DRAW LPRINT X[T] DRAW p*>= LPRINT X DRAW `*, MOVE Xc DRAW @* DRAW FORMAT XC DRAW 0*, LLIST h LET FN USR ( DRAW LPRINT [U] LET FN USR (>= LPRINT LPRINT LET FN USR (, MOVE [Q] RESTORE FN USR * DRAW FORMAT VAL DATA FN USR *, LLIST ` RANDOMIZE DRAW USR ( DRAW LPRINT ` RANDOMIZE DRAW USR 8>= LPRINT ` DIM DRAW USR 8, MOVE ` DIM DRAW USR 8 DRAW FORMAT ` INK DRAW USR 8, LLIST W POKE DRAW USR * DRAW LPRINT CIRCLE RUN DRAW USR 8>= LPRINT INK RANDOMIZE DRAW USR 8, MOVE ` DIM DRAW USR 8 DRAW FORMAT ` DIM DRAW USR 8>= FORMAT VAL POKE FN [A](, MOVE VAL POKE FN p8 DRAW USR VAL DATA FN `8>=USR VAL DATA FN @8,STR$ VAL CLOSE #FN 08, LLIST VAL POKE DRAW LPRINT ( DRAW LPRINT VAL POKE DRAW LPRINT 8>= LPRINT VAL DATA DRAW LPRINT 8, MOVE VAL DATA DRAW LPRINT 8 DRAW FORMAT VAL CLOSE # DRAW LPRINT 8>= FORMAT W POKE FN LPRINT *, MOVE CIRCLE RUN FN LPRINT 8 DRAW USR INK RANDOMIZE FN LPRINT 8>=USR ` DIM FN LPRINT 8,STR$ ` DIM FN LPRINT 8, LLIST VAL POKE FN [A]( DRAW LPRINT VAL POKE FN p8>= LPRINT VAL DATA FN `8, MOVE VAL DATA FN @8 DRAW FORMAT VAL CLOSE #FN 08>= FORMAT ` RANDOMIZE DRAW LPRINT (, MOVE ` RANDOMIZE DRAW LPRINT 8 DRAW USR ` DIM DRAW LPRINT 8>=USR ` DIM DRAW LPRINT 8,STR$ ` INK DRAW LPRINT 8, LLIST h LET DRAW LPRINT ( DRAW LPRINT [U] LET DRAW LPRINT (>= LPRINT LPRINT LET DRAW LPRINT (, MOVE [Q] RESTORE DRAW LPRINT * DRAW FORMAT VAL DATA DRAW LPRINT *, LLIST ` RANDOMIZE [G] LPRINT ( DRAW LPRINT ` RANDOMIZE [G] LPRINT 8>= LPRINT ` DIM [G] LPRINT 8, MOVE ` DIM [G] LPRINT 8 DRAW FORMAT ` INK [G] LPRINT 8>= FORMAT VAL POKE [G][A](, MOVE VAL POKE [G]p8 DRAW USR VAL DATA [G]`8>=USR VAL DATA [G]@8,STR$ VAL CLOSE #[G]08>= LPRINT NEXT FN LPRINT *FN LPRINT RUN FN LPRINT 8 LPRINT RANDOMIZE FN LPRINT 8>= FORMAT @ NEW FN LPRINT 8FN FORMAT @ NEW FN LPRINT 8 FORMAT XNOT FN [A]*>= FORMAT X[T]FN p*FN USR XFN `*USR XcFN @*>=USR XCFN 0*>= LPRINT @ PLOT LLIST (FN LPRINT @ PLOT LLIST 8 LPRINT @ NEW LLIST 8>= FORMAT @ NEW LLIST 8FN FORMAT @ VERIFY LLIST 8 FORMAT NEXT [B](>= FORMAT NEXT q8FN USR READ a8USR READ A8>=USR OPEN #18>= LPRINT TO LET LLIST (FN LPRINT PAUSE LLIST ( LPRINT D PAUSE LLIST (>= FORMAT 0 BORDER LLIST *FN FORMAT @ NEW LLIST * FORMAT XNOT [B]*>= FORMAT X[T]q*FN USR Xa*USR XcA*>=USR XC1*>= LPRINT NEXT FN FORMAT (FN LPRINT NEXT FN FORMAT 8 LPRINT READ FN FORMAT 8>= FORMAT READ FN FORMAT 8FN FORMAT OPEN #FN FORMAT 8>= LPRINT XNOT FN [A]*FN LPRINT X[T]FN p* LPRINT XFN `*>= FORMAT XcFN @*FN FORMAT XCFN 0* FORMAT NEXT MOVE *>= FORMAT RUN MOVE 8FN USR RANDOMIZE MOVE 8USR @ NEW MOVE 8>=USR @ NEW MOVE 8>= LPRINT NEXT [B](FN LPRINT NEXT q8 LPRINT READ a8>= FORMAT READ A8FN FORMAT OPEN #18 FORMAT @ PLOT MOVE (>= FORMAT @ PLOT MOVE 8FN USR @ NEW MOVE 8USR @ NEW MOVE 8>=USR @ VERIFY MOVE 8>= LPRINT @ AND [B]*FN LPRINT @INKEY$q* LPRINT @▚a*>= FORMAT @fA*FN FORMAT @F1*>= LPRINT TO LET FN USR (FN LPRINT PAUSE FN USR ( LPRINT D PAUSE FN USR (>= FORMAT 0 BORDER FN USR *FN FORMAT @ NEW FN USR * FORMAT @ AND FN [A]*>= FORMAT @INKEY$FN p*FN USR @▚FN `*USR @fFN @*>=USR @FFN 0*>= LPRINT @ PLOT STR$ (FN LPRINT @ PLOT STR$ 8 LPRINT @ NEW STR$ 8>= FORMAT @ NEW STR$ 8FN FORMAT @ VERIFY STR$ 8>= LPRINT NEXT STR$ *FN LPRINT RUN STR$ 8 LPRINT RANDOMIZE STR$ 8>= FORMAT @ NEW STR$ 8FN FORMAT @ NEW STR$ 8 FORMAT @ AND [B]*>= FORMAT @INKEY$q*FN USR @▚a*USR @fA*>=USR @F1* FORMAT NEXT FN [A](>= FORMAT NEXT FN p8FN USR READ FN `8USR READ FN @8>=USR OPEN #FN 08>= LPRINT NEXT LLIST (FN LPRINT NEXT LLIST 8 LPRINT READ LLIST 8>= FORMAT READ LLIST 8FN FORMAT OPEN # LLIST 8 FORMAT NEXT FN LPRINT *>= FORMAT RUN FN LPRINT 8FN USR RANDOMIZE FN LPRINT 8USR @ NEW FN LPRINT 8>=USR @ NEW FN LPRINT 8>= LPRINT NEXT FN [A](FN LPRINT NEXT FN p8 LPRINT READ FN `8>= FORMAT READ FN @8FN FORMAT OPEN #FN 08 FORMAT @ PLOT LLIST (>= FORMAT @ PLOT LLIST 8FN USR @ NEW LLIST 8USR @ NEW LLIST 8>=USR @ VERIFY LLIST 8>= LPRINT @ PLOT FN LPRINT (FN LPRINT @ PLOT FN LPRINT 8 LPRINT @ NEW FN LPRINT 8>= FORMAT @ NEW FN LPRINT 8FN FORMAT @ VERIFY FN LPRINT 8>= FORMAT VAL AND FN [A]*, MOVE VAL INKEY$FN p* DRAW USR VAL ▚FN `*>=USR VAL fFN @*,STR$ VAL FFN 0*>= FORMAT VAL AND DRAW [A]*, MOVE VAL INKEY$ DRAW p* DRAW USR VAL ▚ DRAW `*>=USR VAL f DRAW @*,STR$ VAL F DRAW 0*, LLIST VAL POKE FN LPRINT ( DRAW LPRINT VAL POKE FN LPRINT 8>= LPRINT VAL DATA FN LPRINT 8, MOVE VAL DATA FN LPRINT 8 DRAW FORMAT VAL CLOSE #FN LPRINT 8, LLIST VAL AND FN [A]* DRAW LPRINT VAL INKEY$FN p*>= LPRINT VAL ▚FN `*, MOVE VAL fFN @* DRAW FORMAT VAL FFN 0*>= FORMAT W POKE DRAW LPRINT *, MOVE CIRCLE RUN DRAW LPRINT 8 DRAW USR INK RANDOMIZE DRAW LPRINT 8>=USR ` DIM DRAW LPRINT 8,STR$ ` DIM DRAW LPRINT 8, LLIST VAL AND DRAW [A]* DRAW LPRINT VAL INKEY$ DRAW p*>= LPRINT VAL ▚ DRAW `*, MOVE VAL f DRAW @* DRAW FORMAT VAL F DRAW 0*, LLIST h LET FN FORMAT ( DRAW LPRINT [U] LET FN FORMAT (>= LPRINT LPRINT LET FN FORMAT (, MOVE [Q] RESTORE FN FORMAT * DRAW FORMAT VAL DATA FN FORMAT *>= LPRINT ` DIM DRAW FORMAT 8, MOVE ` DIM DRAW FORMAT 8 DRAW FORMAT ` INK DRAW FORMAT 8, LLIST W POKE DRAW FORMAT * DRAW LPRINT CIRCLE RUN DRAW FORMAT 8>= LPRINT INK RANDOMIZE DRAW FORMAT 8, MOVE ` DIM DRAW FORMAT 8 DRAW FORMAT ` DIM DRAW FORMAT 8>= LIST NEXT FN LPRINT *FN LIST RUN FN LPRINT 8 LIST RANDOMIZE FN LPRINT 8>= LPRINT @ NEW FN LPRINT 8FN LPRINT @ NEW FN LPRINT 8 LPRINT @ VERIFY FN [A]8>= LPRINT @ VERIFY FN p8FN FORMAT @ AND FN `8 FORMAT @ AND FN @8>= FORMAT @ AND FN 08>= LPRINT @ PLOT MOVE (FN LPRINT @ PLOT MOVE 8 LPRINT @ NEW MOVE 8>= FORMAT @ NEW MOVE 8FN FORMAT @ VERIFY MOVE 8 FORMAT @ AND [B]8>= FORMAT @ACS q8FN USR @ACS a8USR @INKEY$A8>=USR @INKEY$18>= LPRINT TO LET MOVE (FN LPRINT PAUSE MOVE ( LPRINT D PAUSE MOVE (>= FORMAT 0 BORDER MOVE *FN FORMAT @ NEW MOVE * FORMAT @ VERIFY [B]*>= FORMAT @ VERIFY q8FN USR @ AND a8USR @ AND A8>=USR @ AND 18>= FORMAT X SAVE FN USR (FN FORMAT X SAVE FN USR 8 FORMAT X CONTINUE FN USR 8>=USR X CONTINUE FN USR 8FN USR X CIRCLE FN USR 8>= FORMAT RUN FN [A](FN FORMAT RUN FN p8 FORMAT BORDER FN `8>=USR BORDER FN @8FN USR BEEP FN 08USR ^STR$ (>=USR ^STR$ (FN VAL ^STR$ (VAL ^STR$ (>=VAL ^STR$ (>= FORMAT @ PLOT [B](FN FORMAT @ PLOT q8 FORMAT @ NEW a8>=USR @ NEW A8FN USR @ VERIFY 18VAL @ PLOT LEN (>=VAL @ PLOT LEN 8FN [Q]@ NEW LEN 8[Q]@ NEW LEN 8>=[Q]@ VERIFY LEN 8>=USR @ AND [B]8FN USR @ACS q8USR @ACS a8>=VAL @INKEY$A8FN VAL @INKEY$18>=USR ▟ LET FN VAL (FN USR <> LET FN VAL (USR PAUSE FN VAL (>=VAL 4 NEW FN VAL *FN VAL D RESTORE FN VAL *VAL D MERGE FN [A]*>=VAL D MERGE FN p8FN [Q]D OR FN `8[Q]D OR FN @8>=[Q]D OR FN 08>=VAL D OR [R]8FN VAL D OR [R]8VAL D OR [R]8>=[Q]D OR [R]8FN [Q]D OR [R]8[Q]D OR [B]8>=[Q]D OR q8FN [Q]D OR a8[Q]D OR A8>=[Q]D OR 18>=VAL NEXT [R]*FN VAL RUN [R]8VAL RANDOMIZE [R]8>=[Q]@ NEW [R]8FN [Q]@ NEW [R]8[Q]@ VERIFY [B]8>=[Q]@ VERIFY q8FN [Q]@ AND a8[Q]@ AND A8>=[Q]@ AND 18>=[Q] NEXT FN [A]*FN [Q] RUN FN [A]8[Q] RANDOMIZE FN [A]8>=[A]@ NEW FN [A]8FN [A]@ NEW FN [A]8[A]@ VERIFY FN [A]8>=[A]@ VERIFY FN p8FN [A]@ AND FN `8[A]@ AND FN @8>=[A]@ AND FN 08>=[Q] TO LET [B](FN [Q] PAUSE [B]([Q]D PAUSE [B](>=[A]0 BORDER [B]*FN [A]@ NEW [B]*[A]@ VERIFY [B]*>=[A]@ VERIFY q8FN [A]@ AND a8[A]@ AND A8>=[A]@ AND 18>=[A]X SAVE ▝(FN [A]X SAVE ▝8[A]X CONTINUE ▝8>=X CONTINUE ▝8FN X CIRCLE ▝8>=[A] RUN [B](FN [A] RUN q8[A] BORDER a8>= BORDER A8FN BEEP 18dFN (>=dFN (FN dFN ([A]FN (>=[A]FN (>=[A]@ PLOT FN [A](FN [A]@ PLOT FN p8[A]@ NEW FN `8>=@ NEW FN @8FN @ VERIFY FN 08p@ PLOT q(>=p@ PLOT q8FN p@ NEW q8p@ NEW q8>=p@ VERIFY q8>=@ AND [B]8FN @ACS q8@ACS a8>=p@INKEY$A8FN p@INKEY$18>=▟ LET q(FN <> LET q( PAUSE q(>=p4 NEW q*FN pD RESTORE q*b>= CLOSE #USR USR USR USR USR (USR 0USR 8USR (USR 0USR @USR (USR HUSR PUSR XUSR `USR hUSR pUSR xUSR USR ▖USR [A]USR [I]USR [Q]USR FN USR `USR hUSR pUSR xUSR USR ▖USR VAL USR LN USR USR USR >=USR FORMAT USR CIRCLE USR LPRINT USR CONTINUE USR LIST USR SAVE USR VAL USR LN USR USR USR >=USR STR$ STR$ STR$ STR$ STR$ (STR$ 0STR$ 8STR$ @STR$ HSTR$ PSTR$ XSTR$ `STR$ hSTR$ pSTR$ xSTR$ STR$ ▖STR$ [A]STR$ [I]STR$ [Q]STR$ FN STR$ VAL STR$ LN STR$ USR STR$ >=STR$ FORMAT STR$ CIRCLE STR$ LPRINT STR$ CONTINUE STR$ LIST STR$ SAVE STR$ CHR$ CHR$ CHR$ SAVE USR VAL USR LN USR USR USR >=USR CHR$ CHR$ (CHR$ 0CHR$ 8CHR$ @CHR$ HCHR$ PCHR$ XCHR$ `CHR$ hCHR$ pCHR$ xCHR$ [A]STR$ CHR$ ▖USR VAL USR LN USR USR USR >=USR ▖CHR$ [A]CHR$ [I]CHR$ [Q]CHR$ FN CHR$ ▖USR VAL USR LN USR USR USR >=USR LIST STR$ SAVE STR$ CHR$ CHR$ CHR$ SAVE USR VAL USR LN USR USR USR >=USR VAL CHR$ LN CHR$ USR CHR$ >=CHR$ FORMAT CHR$ CIRCLE CHR$ LPRINT CHR$ CONTINUE CHR$ LIST CHR$ SAVE CHR$ NOT NOT NOT NOT NOT (NOT 0NOT 8NOT [Q]CHR$ @NOT (NOT 0NOT 8NOT [Q]CHR$ @NOT >=STR$ HNOT PNOT XNOT `NOT hNOT pNOT xNOT NOT ▖NOT [A]NOT [I]NOT [Q]NOT FN NOT VAL NOT LN NOT USR NOT >=NOT FORMAT NOT CIRCLE NOT LPRINT NOT CONTINUE NOT LIST NOT SAVE NOT BIN BIN BIN BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN hBIN pBIN xBIN BIN ▖BIN [A]BIN [I]BIN [Q]BIN FN BIN VAL BIN LN BIN USR BIN >=BIN FORMAT BIN 8BIN @BIN HBIN PBIN CIRCLE BIN LPRINT BIN CONTINUE BIN LIST BIN SAVE BIN OR OR OR OR OR ( OR 0 OR 8 OR @ OR H OR P OR X OR ` OR h OR p OR x OR OR ▖ OR [A] OR [I] OR [Q] OR FN OR VAL OR LN OR USR OR >= OR FORMAT OR CIRCLE OR LPRINT OR CONTINUE OR LIST OR SAVE OR AND AND AND AND AND ( AND 0 AND 8 AND @ AND H AND P AND X AND ` AND BIN BIN BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN hBIN pBIN xBIN BIN h AND p AND x AND AND FN BIN VAL BIN LN BIN USR BIN >=BIN FORMAT BIN 8BIN @BIN HBIN PBIN ▖ AND [A] AND [I] AND [Q] AND FN AND VAL AND LN AND USR AND >= AND FORMAT AND CIRCLE AND LPRINT AND CONTINUE AND LIST AND SAVE AND P OR X OR ` OR h OR p OR <=<=<=<= <=[Q] OR FN OR VAL OR LN OR USR OR >= OR FORMAT OR CIRCLE OR LPRINT OR CONTINUE OR LIST OR (<=0<=8<=@<=H<=P<=X<=`<=h<=@ AND p<=x<=<=▖<=[A]<=[I]<=[Q]<=FN <=VAL <=LN <=USR <=>=<= FORMAT <= CIRCLE <= LPRINT <= CONTINUE <= LIST <= SAVE <=>=>=>=>= >=(>=0>=8>=@>=H>=P>=X>=`>=h>=p>=x>=>=▖>=[A]>=[I]>=[Q]>=FN >=VAL >=LN >=USR >=>=>= FORMAT >= CIRCLE >= LPRINT >= CONTINUE >= LIST >= SAVE >=<><><><> <>(<>0<>8<>@<>H<>P<>X<>`<>h<>p<>x<><>▖<>[A]<>X>=`>=h>=p>=x>=[I]<>[Q]<>FN <>VAL <>LN <>USR <>>=<>>=<> FORMAT <> FORMAT <> CIRCLE <> LPRINT <> CONTINUE <> LIST <> SAVE <>LN <=USR <=>=<= FORMAT <= CIRCLE <= LPRINT <= CONTINUE <= LIST <= SAVE <=>=>=>=>= >=(>=0>=8>=@>=H>=P>=X>=`>=h>=p>=x>=>=▖>=[A]>=[I]>=[Q]>=FN >=VAL >=LN >=USR >=>=>= LINE LINE LINE LINE LINE ( LINE 0 LINE 8 LINE @ LINE H LINE P LINE X LINE ` LINE h LINE p LINE x LINE LINE ▖ LINE [A] LINE [I] LINE p<>x<><>▖<>[A]<>X>=`>=h>=p>=x>=[Q] LINE FN LINE VAL LINE LN LINE USR LINE >= LINE FORMAT LINE CIRCLE LINE LPRINT LINE CONTINUE LINE LIST LINE SAVE LINE SAVE LINE THEN THEN THEN THEN THEN THEN THEN THEN ( THEN 0 THEN 8 THEN @ THEN H THEN P THEN P THEN X THEN ` THEN h THEN p THEN x THEN THEN ▖ THEN [A] THEN [I] THEN [Q] THEN FN THEN VAL THEN LN THEN USR THEN >= THEN FORMAT THEN CIRCLE THEN LPRINT THEN CONTINUE THEN CONTINUE THEN LIST THEN SAVE THEN TO TO TO TO TO ( TO 0 TO 8 TO @ TO H TO P TO X TO ` TO h TO p TO x TO TO ▖ TO [A] TO [I] TO [Q] TO FN TO VAL TO LN TO LN TO USR TO >= TO FORMAT TO FN THEN CIRCLE TO LPRINT TO CONTINUE TO LIST TO SAVE TO STEP STEP STEP STEP STEP ( STEP 0 STEP 8 STEP 8 STEP @ STEP H STEP P STEP X STEP ` STEP h STEP p STEP x STEP STEP ▖ STEP [A] STEP [I] STEP [Q] STEP FN STEP VAL STEP LN STEP USR STEP >= STEP FORMAT STEP CIRCLE STEP LPRINT STEP CONTINUE STEP LIST STEP SAVE STEP DEF FN DEF FN DEF FN DEF FN DEF FN ( DEF FN 0 DEF FN 8 DEF FN @ DEF FN H DEF FN P DEF FN X DEF FN ` DEF FN h DEF FN p DEF FN x DEF FN DEF FN ▖ DEF FN [A] DEF FN [I] DEF FN [Q] DEF FN FN DEF FN VAL DEF FN LN DEF FN USR DEF FN >= DEF FN FORMAT DEF FN CIRCLE DEF FN LPRINT DEF FN CONTINUE DEF FN LIST DEF FN SAVE DEF FN CAT CAT CAT CAT CAT ( CAT 0 CAT 8 CAT @ CAT H CAT P CAT X CAT ` CAT h CAT USR STEP p CAT x CAT @ CAT CAT P CAT ▖ CAT [A] CAT [I] CAT [I] CAT [Q] CAT FN CAT VAL CAT LN CAT USR CAT >= CAT FORMAT CAT CIRCLE CAT LPRINT CAT CONTINUE CAT LIST CAT SAVE CAT FORMAT FORMAT FORMAT FORMAT FORMAT ( FORMAT 0 FORMAT 8 FORMAT @ FORMAT H FORMAT P FORMAT X FORMAT ` FORMAT h FORMAT p FORMAT x FORMAT FORMAT ▖ FORMAT [A] FORMAT [I] FORMAT [Q] FORMAT FN FORMAT VAL FORMAT LN FORMAT USR FORMAT >= FORMAT FORMAT FORMAT CIRCLE FORMAT LPRINT FORMAT CONTINUE FORMAT LIST FORMAT SAVE FORMAT MOVE MOVE MOVE MOVE MOVE ( MOVE 0 MOVE 8 MOVE @ MOVE H MOVE P MOVE X MOVE ` MOVE h MOVE p MOVE x MOVE MOVE ▖ MOVE [A] MOVE [I] MOVE [Q] MOVE FN MOVE VAL MOVE LN MOVE USR MOVE >= MOVE FORMAT FORMAT MOVE CIRCLE MOVE [Q] MOVE LPRINT MOVE VAL MOVE CONTINUE MOVE LIST MOVE SAVE MOVE SAVE MOVE ERASE ERASE ERASE ERASE ERASE ( ERASE 0 ERASE 8 ERASE @ ERASE H ERASE P ERASE X ERASE ` ERASE h ERASE p ERASE x ERASE ERASE ▖ ERASE [A] ERASE [I] ERASE [Q] ERASE FN ERASE VAL ERASE LN ERASE USR ERASE >= ERASE FORMAT ERASE CIRCLE ERASE LPRINT ERASE CONTINUE ERASE LIST ERASE SAVE ERASE OPEN # OPEN # OPEN # OPEN # OPEN #( OPEN #0 OPEN #8 OPEN #@ OPEN #H OPEN #P OPEN #X OPEN #` OPEN #h OPEN #p OPEN #x OPEN # OPEN #▖ OPEN #[A] OPEN #[I] OPEN #[Q] OPEN #FN OPEN #VAL OPEN #LN OPEN #USR OPEN #>= OPEN # FORMAT OPEN # CIRCLE OPEN # LPRINT OPEN # CONTINUE OPEN # LIST OPEN # SAVE OPEN # CLOSE # CLOSE # CLOSE # CLOSE # CLOSE #( CLOSE # ERASE 0 CLOSE #8 CLOSE # CLOSE #@ CLOSE # CLOSE #H CLOSE #P CLOSE #X CLOSE #X CLOSE #` CLOSE #` CLOSE #h CLOSE #p CLOSE #p CLOSE #x CLOSE #x CLOSE # CLOSE #▖ CLOSE #[A] CLOSE #[I] CLOSE #[Q] CLOSE #FN CLOSE #VAL CLOSE #VAL CLOSE #LN CLOSE #USR CLOSE #>= CLOSE # FORMAT CLOSE # CIRCLE CLOSE # LPRINT CLOSE # CONTINUE CLOSE # LIST CLOSE # SAVE CLOSE # MERGE MERGE MERGE MERGE MERGE ( MERGE 0 MERGE 8 MERGE @ MERGE H MERGE H MERGE P MERGE X MERGE ` MERGE h MERGE p MERGE x MERGE MERGE ▖ MERGE [A] MERGE [I] MERGE [Q] MERGE FN MERGE VAL MERGE LN MERGE USR MERGE >= MERGE FORMAT MERGE CIRCLE MERGE LPRINT MERGE CONTINUE MERGE LIST MERGE SAVE MERGE VERIFY VERIFY VERIFY VERIFY VERIFY ( VERIFY 0 VERIFY 8 VERIFY @ VERIFY H VERIFY P VERIFY X VERIFY ` VERIFY h VERIFY p VERIFY x VERIFY VERIFY ▖ VERIFY [A] VERIFY [I] VERIFY [Q] VERIFY FN VERIFY VAL VERIFY LN VERIFY USR VERIFY >= VERIFY FORMAT VERIFY CIRCLE VERIFY LPRINT VERIFY CONTINUE VERIFY LIST VERIFY SAVE VERIFY BEEP BEEP BEEP BEEP BEEP ( BEEP 0 BEEP 8 BEEP @ BEEP H BEEP P BEEP X BEEP ` BEEP h BEEP p BEEP x BEEP BEEP ▖ BEEP [A] BEEP [I] BEEP [Q] BEEP FN BEEP VAL BEEP LN BEEP USR BEEP >= BEEP FORMAT BEEP CIRCLE BEEP LPRINT BEEP CONTINUE BEEP LIST BEEP SAVE BEEP CIRCLE CIRCLE CIRCLE CIRCLE CIRCLE ( CIRCLE 0 CIRCLE 8 CIRCLE @ CIRCLE H CIRCLE P CIRCLE X CIRCLE ` CIRCLE h CIRCLE p CIRCLE x CIRCLE CIRCLE ▖ CIRCLE [A] CIRCLE [I] CIRCLE [Q] CIRCLE FN CIRCLE VAL CIRCLE LN CIRCLE USR CIRCLE >= CIRCLE FORMAT CIRCLE CIRCLE CIRCLE LPRINT CIRCLE CONTINUE CIRCLE CONTINUE CIRCLE LIST CIRCLE SAVE CIRCLE SAVE CIRCLE INK INK INK INK INK INK INK INK ( INK ( INK 0 INK 0 INK 8 INK @ INK @ INK H INK H INK P INK X INK X INK ` INK ` INK h INK p INK x INK INK ▖ INK [A] INK [I] INK [Q] INK FN INK VAL INK LN INK USR INK USR INK >= INK >= INK FORMAT INK CIRCLE INK CIRCLE INK LPRINT INK LPRINT INK CONTINUE INK LIST INK LIST INK SAVE INK SAVE INK PAPER PAPER PAPER PAPER PAPER PAPER PAPER PAPER ( PAPER ( PAPER 0 PAPER 8 PAPER 8 PAPER @ PAPER @ PAPER H PAPER P PAPER P PAPER X PAPER X PAPER ` PAPER h PAPER h PAPER p PAPER p PAPER x PAPER PAPER PAPER ▖ PAPER ▖ PAPER [A] PAPER [I] PAPER [I] PAPER [Q] PAPER [Q] PAPER FN PAPER VAL PAPER VAL PAPER LN PAPER LN PAPER INK ( INK ( INK 0 INK 0 INK 8 INK @ INK @ INK H INK H INK P INK X INK X INK ` INK ` INK h INK p INK x INK INK ▖ INK [A] INK [I] INK [Q] INK FN INK VAL INK USR PAPER >= PAPER >= PAPER FORMAT PAPER FORMAT PAPER FORMAT INK CIRCLE INK CIRCLE INK LPRINT INK LPRINT INK CONTINUE INK LIST INK LIST INK SAVE INK SAVE INK PAPER PAPER PAPER PAPER PAPER PAPER PAPER PAPER ( PAPER ( PAPER 0 PAPER 8 PAPER 8 PAPER @ PAPER @ PAPER H PAPER P PAPER P PAPER X PAPER X PAPER ` PAPER h PAPER h PAPER p PAPER p PAPER x PAPER PAPER PAPER ▖ PAPER ▖ PAPER [A] PAPER [I] PAPER [I] PAPER [Q] PAPER [Q] PAPER FN PAPER VAL PAPER VAL PAPER LN PAPER LN PAPER INK ( INK ( INK 0 INK 0 INK 8 INK @ INK @ INK H INK H INK P INK X INK X INK ` INK ` INK h INK p INK x INK INK ▖ INK [A] INK [I] INK [Q] INK FN INK VAL INK LN INK USR INK USR INK >= INK >= INK FORMAT INK CIRCLE INK CIRCLE INK LPRINT INK LPRINT INK CONTINUE INK LIST INK LIST INK SAVE INK SAVE INK PAPER PAPER PAPER PAPER PAPER PAPER PAPER PAPER ( PAPER ( PAPER 0 PAPER 8 PAPER 8 PAPER @ PAPER @ PAPER H PAPER P PAPER P PAPER X PAPER X PAPER ` PAPER h PAPER h PAPER p PAPER p PAPER x PAPER PAPER PAPER ▖ PAPER ▖ PAPER [A] PAPER [I] PAPER [I] PAPER [Q] PAPER [Q] PAPER FN PAPER VAL PAPER VAL PAPER LN PAPER LN PAPER INK ( INK ( INK 0 INK 0 INK 8 INK @ INK @ INK H INK H INK P INK X INK X INK ` INK ` INK h INK p INK x INK INK ▖ INK [A] INK [I] INK [Q] INK FN INK VAL INK LN INK USR INK USR INK >= INK >= INK FORMAT INK CIRCLE INK CIRCLE INK LPRINT INK LPRINT INK CONTINUE INK LIST INK LIST INK SAVE INK SAVE INK PAPER PAPER PAPER PAPER PAPER PAPER PAPER PAPER ( PAPER ( PAPER 0 PAPER 8 PAPER 8 PAPER @ PAPER @ PAPER H PAPER P PAPER P PAPER X PAPER X PAPER ` PAPER h PAPER h PAPER p PAPER p PAPER x PAPER PAPER PAPER ▖ PAPER ▖ PAPER [A] PAPER [I] PAPER [I] PAPER [Q] PAPER [Q] PAPER CIRCLE PAPER LPRINT PAPER CONTINUE PAPER LIST PAPER SAVE PAPER FLASH FLASH FLASH FLASH FLASH ( FLASH 0 FLASH 8 FLASH @ FLASH H FLASH P FLASH X FLASH ` FLASH h FLASH h FLASH p FLASH x FLASH FLASH ▖ FLASH [A] FLASH [I] FLASH [Q] FLASH FN FLASH VAL FLASH LN FLASH USR FLASH >= FLASH FORMAT FLASH CIRCLE FLASH LPRINT FLASH CONTINUE FLASH LIST FLASH SAVE FLASH BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT ( BRIGHT 0 BRIGHT 8 BRIGHT @ BRIGHT H BRIGHT P BRIGHT X BRIGHT ` BRIGHT h BRIGHT p BRIGHT x BRIGHT BRIGHT ▖ BRIGHT [A] BRIGHT [I] BRIGHT [Q] BRIGHT [Q] BRIGHT p FLASH x FLASH FLASH ▖ FLASH [A] FLASH [I] FLASH [Q] FLASH FN FLASH VAL FLASH LN FLASH FN BRIGHT VAL BRIGHT LN BRIGHT USR BRIGHT >= BRIGHT FORMAT BRIGHT CIRCLE BRIGHT LPRINT BRIGHT CONTINUE BRIGHT CONTINUE BRIGHT LIST BRIGHT SAVE BRIGHT INVERSE INVERSE INVERSE INVERSE INVERSE ( INVERSE 0 INVERSE 8 INVERSE @ INVERSE 0 FLASH 8 FLASH @ FLASH H FLASH H INVERSE X FLASH ` FLASH h FLASH h FLASH P INVERSE x FLASH FLASH ▖ FLASH [A] FLASH [I] FLASH [Q] FLASH FN FLASH VAL FLASH LN FLASH X INVERSE ` INVERSE h INVERSE p INVERSE x INVERSE INVERSE ▖ INVERSE [A] INVERSE [I] INVERSE [I] INVERSE BRIGHT BRIGHT BRIGHT ( BRIGHT 0 BRIGHT [Q] INVERSE @ BRIGHT H BRIGHT P BRIGHT X BRIGHT FN INVERSE h BRIGHT p BRIGHT x BRIGHT BRIGHT VAL INVERSE [A] BRIGHT [I] BRIGHT [Q] BRIGHT [Q] BRIGHT P INVERSE x FLASH FLASH ▖ FLASH [A] FLASH [I] FLASH [Q] FLASH FN FLASH VAL FLASH LN FLASH LN INVERSE VAL BRIGHT LN BRIGHT USR BRIGHT >= BRIGHT USR INVERSE CIRCLE BRIGHT LPRINT BRIGHT CONTINUE BRIGHT CONTINUE BRIGHT >= INVERSE SAVE BRIGHT INVERSE INVERSE INVERSE FORMAT INVERSE INVERSE ( INVERSE 0 INVERSE 8 INVERSE ( FLASH 0 FLASH 8 FLASH @ FLASH H FLASH P FLASH X FLASH ` FLASH h FLASH h FLASH p FLASH x FLASH FLASH ▖ FLASH [A] FLASH [I] FLASH [Q] FLASH FN FLASH VAL FLASH LN FLASH USR FLASH ` INVERSE h INVERSE p INVERSE x INVERSE CIRCLE INVERSE ▖ INVERSE [A] INVERSE [I] INVERSE [I] INVERSE BRIGHT BRIGHT BRIGHT ( BRIGHT 0 BRIGHT 8 BRIGHT @ BRIGHT H BRIGHT P BRIGHT X BRIGHT ` BRIGHT h BRIGHT p BRIGHT x BRIGHT BRIGHT ▖ BRIGHT [A] BRIGHT [I] BRIGHT [Q] BRIGHT [Q] BRIGHT p FLASH x FLASH FLASH ▖ FLASH [A] FLASH [I] FLASH [Q] FLASH FN FLASH VAL FLASH LN FLASH FN BRIGHT VAL BRIGHT LN BRIGHT USR BRIGHT >= BRIGHT FORMAT BRIGHT CIRCLE BRIGHT LPRINT BRIGHT CONTINUE BRIGHT CONTINUE BRIGHT LIST BRIGHT SAVE BRIGHT INVERSE INVERSE INVERSE INVERSE INVERSE ( INVERSE 0 INVERSE 8 INVERSE @ INVERSE 0 FLASH 8 FLASH @ FLASH H FLASH H INVERSE X FLASH ` FLASH h FLASH h FLASH P INVERSE x FLASH FLASH ▖ FLASH [A] FLASH [I] FLASH [Q] FLASH FN FLASH VAL FLASH LN FLASH X INVERSE ` INVERSE h INVERSE p INVERSE x INVERSE INVERSE ▖ INVERSE [A] INVERSE [I] INVERSE [I] INVERSE BRIGHT BRIGHT BRIGHT ( BRIGHT 0 BRIGHT [Q] INVERSE @ BRIGHT H BRIGHT P BRIGHT X BRIGHT FN INVERSE h BRIGHT p BRIGHT x BRIGHT BRIGHT VAL INVERSE [A] BRIGHT [I] BRIGHT [Q] BRIGHT [Q] BRIGHT P INVERSE x FLASH FLASH ▖ FLASH [A] FLASH [I] FLASH [Q] FLASH FN FLASH VAL FLASH LN FLASH LN INVERSE VAL BRIGHT LN BRIGHT USR BRIGHT >= BRIGHT USR INVERSE CIRCLE BRIGHT LPRINT BRIGHT CONTINUE BRIGHT CONTINUE BRIGHT LPRINT INVERSE CONTINUE INVERSE LIST INVERSE SAVE INVERSE OVER OVER OVER OVER OVER ( OVER 0 OVER 8 OVER @ OVER H OVER P OVER X OVER ` OVER h OVER p OVER p OVER x OVER OVER ▖ OVER [A] OVER [I] OVER [Q] OVER FN OVER VAL OVER LN OVER USR OVER >= OVER FORMAT OVER CIRCLE OVER LPRINT OVER CONTINUE OVER LIST OVER SAVE OVER OUT OUT OUT OUT OUT ( OUT 0 OUT 8 OUT @ OUT H OUT P OUT X OUT ` OUT h OUT p OUT x OUT OUT ▖ OUT [A] OUT [I] OUT [Q] OUT FN OUT FN OUT x OVER OVER ▖ OVER [A] OVER [I] OVER [Q] OVER FN OVER VAL OVER LN OVER USR OVER VAL OUT LN OUT USR OUT >= OUT FORMAT OUT CIRCLE OUT LPRINT OUT CONTINUE OUT LIST OUT LIST OUT SAVE OUT CONTINUE INVERSE LIST INVERSE SAVE INVERSE OVER LPRINT LPRINT LPRINT LPRINT LPRINT ( LPRINT 8 OVER @ OVER H OVER P OVER 0 LPRINT ` OVER h OVER p OVER p OVER 8 LPRINT OVER ▖ OVER [A] OVER [I] OVER [Q] OVER FN OVER VAL OVER LN OVER USR OVER @ LPRINT H LPRINT P LPRINT X LPRINT ` LPRINT h LPRINT p LPRINT x LPRINT LPRINT LPRINT OUT OUT ( OUT 0 OUT 8 OUT ▖ LPRINT H OUT P OUT X OUT ` OUT [A] LPRINT p OUT x OUT OUT ▖ OUT [I] LPRINT [I] OUT [Q] OUT FN OUT FN OUT 8 LPRINT OVER ▖ OVER [A] OVER [I] OVER [Q] OVER FN OVER VAL OVER LN OVER USR OVER [Q] LPRINT LN OUT USR OUT >= OUT FORMAT OUT FN LPRINT LPRINT OUT CONTINUE OUT LIST OUT LIST OUT LPRINT INVERSE CONTINUE INVERSE LIST INVERSE SAVE INVERSE OVER VAL LPRINT LPRINT LPRINT LPRINT LPRINT 0 OVER 8 OVER @ OVER H OVER P OVER X OVER ` OVER h OVER p OVER p OVER x OVER OVER ▖ OVER [A] OVER [I] OVER [Q] OVER FN OVER VAL OVER LN OVER USR OVER >= OVER H LPRINT P LPRINT X LPRINT ` LPRINT LN LPRINT p LPRINT x LPRINT LPRINT LPRINT OUT OUT ( OUT 0 OUT 8 OUT @ OUT H OUT P OUT X OUT ` OUT h OUT p OUT x OUT OUT ▖ OUT [A] OUT [I] OUT [Q] OUT FN OUT FN OUT x OVER OVER ▖ OVER [A] OVER [I] OVER [Q] OVER FN OVER VAL OVER LN OVER USR OVER VAL OUT LN OUT USR OUT >= OUT FORMAT OUT CIRCLE OUT LPRINT OUT CONTINUE OUT LIST OUT LIST OUT SAVE OUT CONTINUE INVERSE LIST INVERSE SAVE INVERSE OVER LPRINT LPRINT LPRINT LPRINT LPRINT ( LPRINT 8 OVER @ OVER H OVER P OVER 0 LPRINT ` OVER h OVER p OVER p OVER 8 LPRINT OVER ▖ OVER [A] OVER [I] OVER [Q] OVER FN OVER VAL OVER LN OVER USR OVER USR LPRINT >= LPRINT FORMAT LPRINT CIRCLE LPRINT LPRINT LPRINT CONTINUE LPRINT LIST LPRINT SAVE LPRINT LLIST LLIST LLIST LLIST LLIST ( LLIST 0 LLIST 8 LLIST @ LLIST H LLIST P LLIST X LLIST ` LLIST h LLIST p LLIST x LLIST LLIST ▖ LLIST [A] LLIST [I] LLIST [Q] LLIST FN LLIST VAL LLIST LN LLIST USR LLIST >= LLIST FORMAT LLIST CIRCLE LLIST LPRINT LLIST CONTINUE LLIST LIST LLIST SAVE LLIST STOP STOP STOP STOP STOP ( STOP 0 STOP 8 STOP @ STOP H STOP P STOP X STOP ` STOP h STOP p STOP x STOP STOP ▖ STOP [A] STOP [I] STOP [Q] STOP FN STOP VAL STOP VAL STOP LN STOP USR STOP >= STOP FORMAT STOP CIRCLE STOP LPRINT STOP CONTINUE STOP LIST STOP SAVE STOP READ READ READ READ READ ( READ 0 READ 8 READ @ READ H READ P READ X READ ` READ h READ p READ x READ READ ▖ READ [A] READ [I] READ [Q] READ FN READ VAL READ LN READ USR READ >= READ FORMAT READ CIRCLE READ LPRINT READ CONTINUE READ LIST READ SAVE READ DATA DATA DATA DATA DATA ( DATA 0 DATA 8 DATA @ DATA H DATA P DATA X DATA ` DATA h DATA p DATA x DATA DATA ▖ DATA [A] DATA [I] DATA [Q] DATA FN DATA VAL DATA LN DATA USR DATA P STOP X STOP ` STOP h STOP p STOP >= DATA FORMAT DATA CIRCLE DATA LPRINT DATA CONTINUE DATA [Q] STOP FN STOP VAL STOP VAL STOP LN STOP USR STOP >= STOP FORMAT STOP CIRCLE STOP LPRINT STOP CONTINUE STOP LIST STOP SAVE STOP READ READ READ READ READ ( READ 0 READ 8 READ 8 READ LIST DATA SAVE DATA RESTORE [Q] DATA FN DATA VAL DATA LN DATA USR DATA RESTORE RESTORE RESTORE RESTORE ( RESTORE 0 RESTORE 8 RESTORE @ RESTORE H RESTORE P RESTORE X RESTORE ` RESTORE h RESTORE h RESTORE p RESTORE x RESTORE RESTORE ▖ RESTORE [A] RESTORE [I] RESTORE [Q] RESTORE FN RESTORE VAL RESTORE LN RESTORE USR RESTORE >= RESTORE FORMAT RESTORE CIRCLE RESTORE LPRINT RESTORE CONTINUE RESTORE LIST RESTORE SAVE RESTORE NEW NEW NEW NEW NEW NEW ( NEW 0 NEW P STOP X STOP ` STOP h STOP p STOP >= DATA FORMAT DATA CIRCLE DATA LPRINT DATA CONTINUE DATA 8 NEW @ NEW H NEW H NEW P NEW X NEW ` NEW h NEW p NEW x NEW NEW ▖ NEW [A] NEW [I] NEW [Q] NEW FN NEW VAL NEW LN NEW USR NEW >= NEW FORMAT NEW FORMAT NEW CIRCLE NEW LPRINT NEW CONTINUE NEW LIST NEW SAVE NEW BORDER BORDER BORDER ▖ READ BORDER BORDER ( BORDER 0 BORDER 8 BORDER LN READ @ BORDER H BORDER P BORDER CIRCLE READ X BORDER ` BORDER ` BORDER h BORDER p BORDER DATA x BORDER BORDER ▖ BORDER ( DATA [A] BORDER [I] BORDER [Q] BORDER FN BORDER P DATA VAL BORDER LN BORDER USR BORDER >= BORDER x DATA FORMAT BORDER CIRCLE BORDER LPRINT BORDER CONTINUE BORDER LIST NEW SAVE NEW BORDER BORDER BORDER LIST BORDER SAVE BORDER CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE ( CONTINUE 0 CONTINUE 8 CONTINUE 8 NEW @ NEW H NEW H NEW P NEW X NEW ` NEW h NEW p NEW x NEW NEW ▖ NEW [A] NEW [I] NEW [Q] NEW FN NEW VAL NEW LN NEW USR NEW >= NEW FORMAT NEW FORMAT NEW CIRCLE NEW LPRINT NEW CONTINUE NEW @ CONTINUE H CONTINUE P CONTINUE X CONTINUE ` CONTINUE h CONTINUE SAVE BORDER CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE ( CONTINUE 0 CONTINUE 8 CONTINUE p CONTINUE p CONTINUE x CONTINUE x CONTINUE CONTINUE @ CONTINUE H CONTINUE P CONTINUE X CONTINUE ` CONTINUE ▖ CONTINUE [A] CONTINUE [I] CONTINUE [Q] CONTINUE FN CONTINUE ▖ CONTINUE [A] CONTINUE [I] CONTINUE [Q] CONTINUE FN CONTINUE ▖ CONTINUE [A] CONTINUE [I] CONTINUE [Q] CONTINUE FN CONTINUE ▖ CONTINUE [A] CONTINUE [I] CONTINUE [Q] CONTINUE FN CONTINUE VAL CONTINUE X STOP ` STOP h STOP p STOP x STOP STOP ▖ STOP [A] STOP [I] STOP [Q] STOP FN STOP VAL STOP VAL STOP LN STOP USR STOP >= STOP FORMAT STOP CIRCLE STOP LPRINT STOP CONTINUE STOP LIST STOP SAVE STOP READ READ READ READ READ ( READ 0 READ 8 READ @ READ H READ P READ X READ ` READ h READ p READ x READ READ ▖ READ [A] READ [I] READ [Q] READ FN READ VAL READ LN READ USR READ >= READ FORMAT READ CIRCLE READ LPRINT READ CONTINUE READ LIST READ SAVE READ DATA DATA DATA DATA DATA ( DATA 0 DATA 8 DATA @ DATA H DATA P DATA X DATA ` DATA h DATA p DATA x DATA DATA ▖ DATA [A] DATA [I] DATA [Q] DATA FN DATA VAL DATA LN DATA USR DATA P STOP X STOP ` STOP h STOP p STOP >= DATA FORMAT DATA CIRCLE DATA LPRINT DATA CONTINUE DATA [Q] STOP FN STOP VAL STOP VAL STOP LN STOP USR STOP >= STOP FORMAT STOP CIRCLE STOP LPRINT STOP CONTINUE STOP LIST STOP SAVE STOP READ READ READ READ READ ( READ 0 READ 8 READ 8 READ LIST DATA SAVE DATA RESTORE [Q] DATA FN DATA VAL DATA LN DATA USR DATA RESTORE RESTORE RESTORE RESTORE ( RESTORE 0 RESTORE 8 RESTORE @ RESTORE H RESTORE P RESTORE X RESTORE ` RESTORE h RESTORE h RESTORE p RESTORE x RESTORE RESTORE ▖ RESTORE [A] RESTORE [I] RESTORE [Q] RESTORE FN RESTORE VAL RESTORE LN RESTORE USR RESTORE >= RESTORE FORMAT RESTORE CIRCLE RESTORE LPRINT RESTORE CONTINUE RESTORE LIST RESTORE SAVE RESTORE NEW NEW NEW NEW NEW NEW ( NEW 0 NEW P STOP X STOP ` STOP h STOP p STOP >= DATA FORMAT DATA CIRCLE DATA LPRINT DATA CONTINUE DATA 8 NEW @ NEW H NEW H NEW P NEW X NEW ` NEW h NEW p NEW x NEW NEW ▖ NEW [A] NEW [I] NEW [Q] NEW FN NEW VAL NEW LN NEW USR NEW >= NEW FORMAT NEW FORMAT NEW CIRCLE NEW LPRINT NEW CONTINUE NEW LIST NEW SAVE NEW BORDER BORDER BORDER ▖ READ BORDER BORDER ( BORDER 0 BORDER 8 BORDER LN READ @ BORDER H BORDER P BORDER CIRCLE READ X BORDER ` BORDER ` BORDER h BORDER p BORDER DATA x BORDER BORDER ▖ BORDER ( DATA [A] BORDER [I] BORDER [Q] BORDER FN BORDER P DATA VAL BORDER LN BORDER USR BORDER >= BORDER x DATA FORMAT BORDER CIRCLE BORDER LPRINT BORDER CONTINUE BORDER LIST NEW SAVE NEW BORDER BORDER BORDER LIST BORDER SAVE BORDER CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE ( CONTINUE 0 CONTINUE 8 CONTINUE 8 NEW @ NEW H NEW H NEW P NEW X NEW ` NEW h NEW p NEW x NEW NEW ▖ NEW [A] NEW [I] NEW [Q] NEW FN NEW VAL NEW LN NEW USR NEW >= NEW FORMAT NEW FORMAT NEW CIRCLE NEW LPRINT NEW CONTINUE NEW @ CONTINUE H CONTINUE P CONTINUE X CONTINUE ` CONTINUE h CONTINUE SAVE BORDER CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE ( CONTINUE 0 CONTINUE 8 CONTINUE p CONTINUE p CONTINUE x CONTINUE x CONTINUE CONTINUE @ CONTINUE H CONTINUE P CONTINUE X CONTINUE ` CONTINUE ▖ CONTINUE [A] CONTINUE [I] CONTINUE [Q] CONTINUE FN CONTINUE ▖ CONTINUE [A] CONTINUE [I] CONTINUE [Q] CONTINUE FN CONTINUE ▖ CONTINUE [A] CONTINUE [I] CONTINUE [Q] CONTINUE FN CONTINUE ▖ CONTINUE [A] CONTINUE [I] CONTINUE [Q] CONTINUE FN CONTINUE LN CONTINUE USR CONTINUE >= CONTINUE FORMAT CONTINUE CIRCLE CONTINUE LPRINT CONTINUE CONTINUE CONTINUE LIST CONTINUE SAVE CONTINUE DIM DIM DIM DIM DIM DIM DIM ( DIM 0 DIM 8 DIM 8 DIM @ DIM H DIM P DIM X DIM ` DIM h DIM p DIM x DIM DIM ▖ DIM [A] DIM [I] DIM [Q] DIM FN DIM VAL DIM LN DIM USR DIM >= DIM FORMAT DIM CIRCLE DIM LPRINT DIM CONTINUE DIM LIST DIM SAVE DIM REM REM REM REM REM ( REM 0 REM 8 REM @ REM H REM P REM X REM ` REM h REM p REM x REM REM ▖ REM [A] REM [I] REM [Q] REM FN REM VAL REM LN REM USR REM >= REM FORMAT REM CIRCLE REM LPRINT REM CONTINUE REM LIST REM SAVE REM FOR FOR FOR FOR FOR FOR ( FOR pD MERGE [B]*>=pD MERGE q8FN pD OR a8pD OR A8>=pD OR 18>=pD OR [G]p8FN pD OR [G]p8pD OR [G]p8pD OR [G][A]8FN `D OR [G]`8`D OR [G]@8>=`D OR [G]08 OUT NEXT NEXT AT [R]Xc OUT BEEP RANDOMIZE AT ! OUT EXP @ NEW X# OUT ▛@ NEW AT AT MOVE @ VERIFY AT [R]AT MOVE @ VERIFY XcAT STR$ @ AND AT !AT STR$ @ AND X#AT LEN @ AND AT AT ▝@ VERIFY XcAT 1@ AND AT !AT !@ AND X#AT @ AND AT OUT LET TO LET AT [R]c= STOP D PAUSE AT !l ERASE 0 BORDER X#[L]SIN @ NEW AT AT MOVE @ VERIFY AT [R]AT NEXT X SAVE AT [R]AT RESTORE X SAVE XcAT BEEP X CONTINUE AT !AT EXP X CONTINUE X#AT ▛X CIRCLE AT AT NEXT RUN AT [R]AT RESTORE RUN XcAT BEEP BORDER AT !AT EXP BORDER X#AT ▛ BEEP AT AT MOVE /AT [R]AT ▝/XcAT 1/AT !AT !ABS X#AT ABS AT AT NEXT @ PLOT AT [R]AT RESTORE @ PLOT XcAT BEEP @ NEW AT !AT EXP @ NEW X#AT ▛@ VERIFY AT { MOVE @ PLOT AT [R]{▝@ PLOT Xc{1@ NEW AT !{!@ NEW X#{@ VERIFY AT AT MOVE @ AND AT [R]AT MOVE @ACS XcAT STR$ @ACS AT !AT STR$ @INKEY$X#AT LEN @INKEY$AT AT LET TO LET AT [R] FLASH LET PAUSE Xc STOP D PAUSE AT !9 ERASE 0 BORDER X#hSIN @ NEW AT AT MOVE D PRINT AT [R]AT ▝D PRINT XcAT 1D RESTORE AT !AT !D RESTORE X#AT D MERGE AT AT MOVE D OR AT [R]AT MOVE DASN XcAT STR$ DASN AT !AT STR$ DRNDX#AT LEN DRNDAT AT NEXT NEXT AT [R]XcAT BEEP RANDOMIZE AT !AT ▛@ NEW AT AT MOVE NEXT AT [R]AT ▝ RUN XcAT 1 RANDOMIZE AT !AT !@ NEW X#AT @ NEW AT AT MOVE X SAVE AT [R]AT ▝X SAVE XcAT 1X CONTINUE AT !AT !X CONTINUE X#AT X CIRCLE AT AT MOVE RUN AT [R]AT MOVE RUN XcAT STR$ BORDER AT !AT STR$ BORDER X#AT LEN BEEP AT AT NEXT /AT [R]AT RESTORE /XcAT BEEP /AT !AT EXP ABS X#AT ▛ABS AT AT MOVE @ PLOT AT [R]AT ▝@ PLOT XcAT 1@ NEW AT !AT @ VERIFY AT AT ▝@ACS XcAT 1@ACS AT !AT !@INKEY$X#AT @INKEY$AT AT LET ▟ LET AT MOVE FLASH LET <> LET X STOP PAUSE AT 19 ERASE 4 NEW X#hSIN D RESTORE AT AT MOVE D MERGE AT LEN FLASH MOVE D MERGE XsCHR$ D OR AT 19SIN D OR X#h[S]D OR AT AT [R]D OR AT [B] FLASH [R]D OR XS[C]D OR AT !9[C]D OR X#hrD OR AT AT LET D OR AT q FLASH LET D OR XC STOP D OR AT !9 ERASE D OR X#hSIN D OR AT LIST NEXT OUT NEXT *>= LIST RUN OUT RESTORE 8>= LIST RANDOMIZE OUT BEEP 8>= LPRINT @ NEW OUT EXP 8>= LPRINT @ NEW OUT ▛82 LIST @ VERIFY { MOVE [A] LET @ VERIFY {▝[A] LET @ AND {1[A] LLIST @ AND {![A] LLIST @ AND {! LIST NEXT OUT NEXT * LET RUN OUT RESTORE 8 LET RANDOMIZE OUT BEEP 8 LLIST @ NEW OUT EXP 8 LLIST @ NEW OUT ▛8 LIST @ VERIFY { MOVE >= LIST @ VERIFY { MOVE >= LIST @ AND {STR$ >= LPRINT @ AND {STR$ >= LPRINT @ AND {LEN LIST TO LET OUT LET LLIST LIST PAUSE LIST D PAUSE = STOP LLIST LPRINT 0 BORDER l ERASE LLIST LPRINT @ NEW [L]SIN 2 LIST @ VERIFY { MOVE OUT NEXT ( LET X SAVE OUT RESTORE 8 LET X CONTINUE OUT BEEP 8 LLIST X CONTINUE OUT EXP 8 LLIST X CIRCLE OUT ▛8 LIST RUN { NEXT ( LLIST LIST RUN { RESTORE 8 LLIST LIST BORDER { BEEP 8 LLIST LPRINT BORDER {EXP 8 LLIST LPRINT BEEP {▛8 LIST <= OUT MOVE DRAW LIST ATN OUT ▝ DRAW LIST ATN OUT 1 DRAW LPRINT PI OUT ! DRAW LPRINT PI OUT 2 LIST @ PLOT AT NEXT ([A] LET @ PLOT AT RESTORE 8[A] LET @ NEW AT BEEP 8[A] LLIST @ NEW AT EXP 8[A] LLIST @ VERIFY AT ▛8* LIST @ PLOT OUT NEXT (Q LET @ PLOT OUT RESTORE 8Q LET @ NEW OUT BEEP 8Q LLIST @ NEW OUT EXP 8Q LLIST @ VERIFY OUT ▛8 LIST @ AND AT MOVE DRAW LIST @ACS AT MOVE DRAW LIST @ACS AT STR$ DRAW LPRINT @INKEY$AT STR$ DRAW LPRINT @INKEY$AT LEN ! LIST ▟ LET OUT LET LET <> LET LET PAUSE = STOP LLIST 4 NEW l ERASE LLIST D RESTORE [L]SIN 2 LIST D MERGE AT MOVE AT ▝[A] LET D OR AT 1[A] LLIST D OR AT ![A] LLIST D OR AT * LIST D OR { MOVE Q LET D OR {▝Q LET D OR {1Q LLIST D OR {!Q LLIST D OR { LIST D OR { MOVE LLIST LIST D OR { MOVE LLIST LIST D OR {STR$ LLIST LPRINT D OR {STR$ LLIST LPRINT D OR {LEN >= LIST @ VERIFY {▝>= LIST @ AND {1>= LPRINT @ AND {!>= LPRINT @ AND {* LIST X SAVE OUT NEXT (Q LET X SAVE OUT RESTORE 8Q LET X CONTINUE OUT BEEP 8Q LLIST X CONTINUE OUT EXP 8Q LLIST X CIRCLE OUT ▛8 LIST RUN OUT NEXT ( LLIST LIST RUN OUT RESTORE 8 LLIST LIST BORDER OUT BEEP 8 LLIST LPRINT BORDER OUT EXP 8 LLIST LPRINT BEEP OUT ▛8 LIST d{ MOVE DRAW LIST d{▝ DRAW LIST d{1 DRAW LPRINT [A]{! DRAW LPRINT [A]{* LIST @ PLOT AT NEXT (Q LET @ PLOT AT RESTORE 8Q LET @ NEW AT BEEP 8Q LLIST @ NEW AT EXP 8Q LLIST @ VERIFY AT ▛8[A] LET R MERGE AT ▝[A] LET ` OR AT 1[A] LLIST n OR AT ![A] LLIST | OR AT * LIST OR { MOVE Q LET | OR {▝Q LET n OR {1Q LLIST ` OR {!Q LLIST R OR { LLIST LIST R OR {▝ LLIST LIST ` OR {1 LLIST LPRINT n OR {! LLIST LPRINT | OR { LIST [H]▝ OUT NEXT 8>= LIST BRIGHT OUT RESTORE 8>= LIST REM OUT BEEP 8>= LPRINT SAVE OUT EXP 8>= LPRINT ▛ OUT ▛82 LIST [Q] OUT M8[A] LET >=[Q] OUT /8[A] LET >=[Q]v8[A] LLIST >=[A][J]8[A] LLIST >=[A]ATN 8! LIST 2[Q] OUT NEXT 8 LET [A][R] OUT RESTORE 8 LET [A][R] OUT BEEP 8 LLIST [A][B] OUT EXP 8 LLIST [A][B] OUT ▛8 LIST ![Q] OUT M8>= LIST [R] OUT /8>= LIST [R]v8>= LPRINT [B][J]8>= LPRINT [B]ATN 8% LIST [Q]AT LET , LET >=[Q] FLASH LET , LET >=[Q] STOP , LLIST >=[A]9 ERASE , LLIST >=[A]hSIN LIST %[Q][H][C] LLIST LIST ,[R] AND r LLIST LIST ,[R] PRINT B LLIST LPRINT ,[B]$# LLIST LPRINT ,[B]SK LIST [Q] OUT NEXT 8X PAUSE LLIST [Q] OUT RESTORE 8X PAUSE LLIST [Q] OUT BEEP 8X STOP LLIST [A] OUT EXP 8X STOP LLIST [A] OUT ▛88 LIST K[Q] OUT NEXT 8CHR$ LET X[S] OUT RESTORE 8CHR$ LET X[S] OUT BEEP 8CHR$ LLIST X[C] OUT EXP 8CHR$ LLIST X[C] OUT ▛8 LIST 8[Q] OUT M8 DRAW LIST CHR$ [R] OUT /8 DRAW LIST CHR$ [R]v8 DRAW LPRINT CHR$ [B][J]8 DRAW LPRINT CHR$ [B]ATN 8/ LIST [Q] OUT NEXT 8{ LET DRAW [Q] OUT RESTORE 8{ LET DRAW [Q] OUT BEEP 8{ LLIST DRAW [A] OUT EXP 8{ LLIST DRAW [A] OUT ▛8? LIST /[Q] OUT NEXT 8 SAVE LET {[R] OUT RESTORE 8 SAVE LET {[R] OUT BEEP 8 SAVE LLIST {[B] OUT EXP 8 SAVE LLIST {[B] OUT ▛8 LIST ?[Q] OUT M8ABS LIST SAVE [R] OUT /8ABS LIST SAVE [R]v8ABS LPRINT SAVE [B][J]8ABS LPRINT SAVE [B]ATN 8% LIST [Q]AT LET , LET ABS [Q] FLASH LET , LET ABS [Q] STOP , LLIST ABS [A]9 ERASE , LLIST ABS [A]hSIN LIST [Q]▘>= LIST LLIST [Q]LEN >= LIST LLIST [Q] LPRINT >= LPRINT LLIST [A]>= LPRINT LLIST [A]AT LIST [Q]AT LLIST LIST >=[Q]AT LLIST LPRINT >=[A]AT LIST [Q] OUT NEXT 8>= LIST LLIST [Q] OUT RESTORE 8>= LIST LLIST [Q] OUT BEEP 8>= LPRINT LLIST [A] OUT EXP 8>= LPRINT LLIST [A] OUT ▛8 LIST 8[Q]AT LET DRAW LIST CHR$ [R] FLASH LET DRAW LIST CHR$ [R] STOP DRAW LPRINT CHR$ [B]9 ERASE DRAW LPRINT CHR$ [B]hSIN / LIST [Q]AT LET { LET DRAW [Q] FLASH LET { LET DRAW [Q] STOP { LLIST DRAW [A]9 ERASE { LLIST DRAW [A]hSIN ? LIST /[Q][H][C] SAVE LET {[R] AND r SAVE LET {[R] PRINT B SAVE LLIST {[B]$# SAVE LLIST {[B]S LIST ?[Q]AT LET ABS LIST SAVE [R] FLASH LET ABS LIST SAVE [R] STOP ABS LPRINT SAVE [B]9 ERASE ABS LPRINT SAVE [B]hSIN LIST 8[Q]AT LET >= LIST CHR$ [R] FLASH LET >= LIST CHR$ [R] STOP >= LPRINT CHR$ [B]9 ERASE >= LPRINT CHR$ [B]hSIN LIST 2[Q][H][C] LLIST LIST [A][R] AND r LLIST LIST [A][R] PRINT B LLIST LPRINT [A][B]$# LLIST LPRINT [A][B]S LLIST LIST LLIST 0 LLIST LLIST LIST LLIST 0 LLIST LLIST LPRINT LLIST 0[Q]2 LIST LLIST 8 LLIST [Q][A] LET MOVE 8 LLIST [A][A] LLIST MOVE 8[Q]! LIST STR$ 8>=[Q] LET STR$ 8>=[Q] LET STR$ 8>=[A] LLIST STR$ 8>=[A] LLIST STR$ 8![Q] LIST STR$ 8[R]>= LIST STR$ 8[B]>= LPRINT STR$ 8[B]>= LPRINT LEN 8[Q]% LIST LEN 8>=[Q], LET LEN 8>=[Q], LET LEN 8>=[A], LLIST LEN 8>=[A], LLIST LEN 8%[Q] LIST [R] LLIST LIST LEN 8,[R] LLIST LIST LEN 8,[B] LLIST LPRINT LEN 8,[B] LLIST LPRINT LEN 8[Q]K LIST LEN 8 LLIST [Q]X PAUSE LEN 8 LLIST [Q]X PAUSE LEN 8 LLIST [A]X STOP LEN 8 LLIST [A]X STOP [Q]8 LIST LEN 8X[S]CHR$ LET LEN 8X[C]CHR$ LLIST LEN 8X[C]CHR$ LLIST LEN 88[Q] LIST LEN 8CHR$ [R] DRAW LIST LEN 8CHR$ [R] DRAW LIST LEN 8CHR$ [B] DRAW LPRINT [B] DRAW LPRINT LEN 8[Q]/ LIST LEN 8 DRAW [Q]{ LET LEN 8 DRAW [Q]{ LET LEN 8 DRAW [A]{ LLIST LEN 8 DRAW [A]{ LLIST LEN 8/[Q]? LIST LEN 8{[R] SAVE LET LEN 8{[R] SAVE LET [B] SAVE LLIST LEN 8{[B] SAVE LLIST LEN 8?[Q] LIST LEN 8 SAVE [R]ABS LIST LEN 8 SAVE [R]ABS LIST LEN 8 SAVE [B]ABS LPRINT LEN 8 SAVE [B]ABS LPRINT LEN 8/[Q]% LIST LEN 8{[R], LET [R], LET LEN 8{[B], LLIST LEN 8%[Q] LIST LEN 8,[R] LLIST LIST LEN 8,[R] LLIST LIST LEN 8,[B] LLIST LPRINT LEN 8[Q] LIST [Q]>= LIST LEN 8 LLIST [Q]>= LIST LEN 8 LLIST [A]>= LPRINT LEN 8 LLIST [A]>= LPRINT LEN 8[Q] LIST LEN 8>=[Q] LLIST LIST LEN 8>=[Q] LLIST LIST LEN 8>=[A] LLIST LPRINT LEN 8>=[A] LLIST LPRINT LET LIST LEN 8[A] LET >= LIST LEN 8[A] LET >= LPRINT LEN 8[A] LET >= LPRINT LEN 8[A] LET 2 LIST LEN 8[A] LLIST [A] LET LEN 8[A] LLIST [A] LET LEN 8[A] LLIST [A] LLIST LLIST [A] LLIST LEN 8[A] MOVE ! LIST LEN 8[A] MOVE LET LEN 8▙ MOVE LET LEN 8 MOVE LLIST LEN 8▙ MOVE LLIST LEN 8[A] MOVE LIST LEN 8[A] MOVE >= LIST LEN 8[A] MOVE >= LIST MOVE >= LPRINT LEN 8[A]STR$ >= LPRINT LEN 8▙STR$ % LIST LEN 8STR$ , LET LEN 8▙STR$ , LET LEN 8[A]STR$ , LLIST LEN 8[C]STR$ , LLIST LEN 8[E]STR$ LIST LEN 8[C]STR$ LLIST LIST STR$ LLIST LIST LEN 8[A]STR$ LLIST LPRINT LEN 8▙STR$ LLIST LPRINT LEN 8STR$ K LIST LEN 8▙STR$ X PAUSE LEN 8[A]STR$ X PAUSE LEN 8[C]STR$ X STOP LEN 8[E]STR$ X STOP LEN 8[C]STR$ 8 LIST STR$ CHR$ LET LEN 8[A]STR$ CHR$ LET LEN 8▙STR$ CHR$ LLIST LEN 8STR$ CHR$ LLIST LEN 8▙STR$ LIST LEN 8[A]STR$ DRAW LIST LEN 8[C]STR$ DRAW LIST LEN 8[E]STR$ DRAW LPRINT LEN 8[C]STR$ DRAW LPRINT STR$ / LIST LEN 8[A]STR$ { LET LEN 8▙STR$ { LET LEN 8STR$ { LLIST LEN 8▙STR$ { LLIST LEN 8[A]STR$ ? LIST LEN 8[C]STR$ SAVE LET LEN 8[E]STR$ SAVE LET LEN 8[C]STR$ SAVE LLIST STR$ SAVE LLIST LEN 8[A]STR$ LIST LEN 8▙STR$ ABS LIST LEN 8STR$ ABS LIST LEN 8▙STR$ ABS LPRINT LEN 8[A]STR$ ABS LPRINT LEN 8[C]STR$ % LIST LEN 8[E]STR$ , LET LEN 8[C]STR$ , LET STR$ , LLIST LEN 8[A]STR$ , LLIST LEN 8▙STR$ LIST LEN 8STR$ LLIST LIST LEN 8▙STR$ LLIST LIST LEN 8[A]STR$ LLIST LPRINT LEN 8[C]STR$ LLIST LPRINT LEN 8[E]STR$ LIST LEN 8[C]STR$ >= LIST STR$ >= LIST LEN 8▙STR$ >= LPRINT LEN 8STR$ LIST LEN 8[A]STR$ LLIST LIST LEN 8[E]STR$ LLIST LPRINT LEN 8[C]STR$ LIST { LLIST 8[A]STR$ >= LIST { LLIST 8▙STR$ >= LPRINT { LLIST 8STR$ >= LPRINT { LLIST 8▙STR$ 2 LIST { LLIST 8[A]STR$ [A] LET { MOVE 8[C]STR$ [A] LET { MOVE 8[E]STR$ [A] LLIST { MOVE 8[C]STR$ [A] LLIST { MOVE 8[A]STR$ ! LIST {STR$ 8[A]STR$ LET {STR$ 8▙STR$ LET ySTR$ 8STR$ LLIST wSTR$ 8▙STR$ LLIST ySTR$ 8[A]STR$ LIST {STR$ 8[C]STR$ >= LIST {STR$ 8[E]STR$ >= LIST {STR$ 8[C]STR$ >= LPRINT {STR$ 8[A]STR$ >= LPRINT {LEN 8[A]STR$ % LIST yLEN 8▙STR$ , LET wLEN 8STR$ , LET yLEN 8▙STR$ , LLIST {LEN 8[A]STR$ , LLIST }LEN 8[C]STR$ LIST ©LEN 8[E]STR$ LLIST LIST }LEN 8[C]STR$ LLIST LIST {LEN 8[A]STR$ LLIST LPRINT {LEN 8[A]STR$ LLIST LPRINT yLEN 8▙STR$ K LIST wLEN 8STR$ X PAUSE yLEN 8▙STR$ X PAUSE {LEN 8[A]STR$ X STOP }LEN 8[C]STR$ X STOP ©LEN 8[E]STR$ 8 LIST }LEN 8[C]STR$ CHR$ LET {LEN 8[A]STR$ CHR$ LET {LEN 8[A]STR$ CHR$ LLIST yLEN 8▙STR$ CHR$ LLIST wLEN 8STR$ LIST yLEN 8▙STR$ DRAW LIST {LEN 8[A]STR$ DRAW LIST }LEN 8[C]STR$ DRAW LPRINT ©LEN 8[E]STR$ DRAW LPRINT }LEN 8[C]STR$ / LIST {LEN 8[A]STR$ { LET {LEN 8[A]STR$ { LET yLEN 8▙STR$ { LLIST wLEN 8STR$ { LLIST yLEN 8▙STR$ ? LIST {LEN 8[A]STR$ SAVE LET }LEN 8[C]STR$ SAVE LET ©LEN 8[E]STR$ SAVE LLIST }LEN 8[C]STR$ SAVE LLIST {LEN 8[A]STR$ LIST {LEN 8[A]STR$ ABS LIST yLEN 8▙STR$ ABS LIST wLEN 8STR$ ABS LPRINT yLEN 8▙STR$ ABS LPRINT {LEN 8[A]STR$ % LIST }LEN 8[C]STR$ , LET ©LEN 8[E]STR$ , LET }LEN 8[C]STR$ , LLIST {LEN 8[A]STR$ , LLIST {LEN 8[A]STR$ LIST yLEN 8▙STR$ LLIST LIST wLEN 8STR$ LLIST LIST yLEN 8▙STR$ LLIST LPRINT {LEN 8[A]STR$ LLIST LPRINT }LEN 8[C]STR$ LIST ©LEN 8[E]STR$ >= LIST }LEN 8[C]STR$ >= LIST {LEN 8[A]STR$ >= LPRINT yLEN 8▙STR$ LIST wLEN 8▙STR$ LLIST LIST {LEN 8[C]STR$ LLIST LPRINT ©LEN 8 PAUSE LIST }LEN 8 PAUSE >= LIST {LEN 8 PAUSE >= LPRINT yLEN 8 PAUSE >= LPRINT wLEN 8 PAUSE 2 LIST yLEN 8 STOP [A] LET {LEN 8 STOP [A] LET }LEN 8 STOP [A] LLIST ©LEN 8 STOP [A] LLIST }LEN 8 ERASE ! LIST {LEN 8 ERASE LET {LEN 8 ERASE LET yLEN 8 ERASE LLIST wLEN 8 ERASE LLIST yLEN 8 ERASE LIST {LEN 8 ERASE >= LIST }LEN 8 ERASE >= LIST ©LEN 8 ERASE >= LPRINT }LEN 8CHR$ >= LPRINT {LEN 8CHR$ % LIST {LEN 8CHR$ , LET yLEN 8CHR$ , LET wLEN 8CHR$ , LLIST yLEN 8CHR$ , LLIST {LEN 8CHR$ LIST }LEN 8CHR$ LLIST LIST ©LEN 8CHR$ LLIST LIST }LEN 8CHR$ LLIST LPRINT {LEN 8CHR$ LLIST LPRINT {LEN 8CHR$ K LIST yLEN 8CHR$ X PAUSE wLEN 8CHR$ X PAUSE yLEN 8CHR$ X STOP {LEN 8CHR$ X STOP }LEN 8CHR$ 8 LIST ©LEN 8CHR$ CHR$ LET }LEN 8CHR$ CHR$ LET {LEN 8CHR$ CHR$ LLIST {LEN 8CHR$ CHR$ LLIST yLEN 8CHR$ LIST wLEN 8CHR$ DRAW LIST yLEN 8CHR$ DRAW LIST {LEN 8CHR$ DRAW LPRINT }LEN 8CHR$ DRAW LPRINT ©LEN 8CHR$ / LIST }LEN 8CHR$ { LET {LEN 8CHR$ { LET {LEN 8CHR$ { LLIST yLEN 8CHR$ { LLIST wLEN 8CHR$ ? LIST yLEN 8CHR$ SAVE LET {LEN 8CHR$ SAVE LET }LEN 8CHR$ SAVE LLIST ©LEN 8CHR$ SAVE LLIST }LEN 8CHR$ LIST {LEN 8CHR$ ABS LIST {LEN 8CHR$ ABS LIST yLEN 8CHR$ ABS LPRINT wLEN 8CHR$ ABS LPRINT yLEN 8CHR$ % LIST {LEN 8CHR$ , LET }LEN 8CHR$ , LET ©LEN 8CHR$ , LLIST }LEN 8CHR$ , LLIST {LEN 8CHR$ LIST {LEN 8CHR$ LLIST LIST yLEN 8CHR$ LLIST LIST wLEN 8CHR$ LLIST LPRINT yLEN 8CHR$ LLIST LPRINT {LEN 8CHR$ LIST }LEN 8CHR$ >= LIST ©LEN 8CHR$ >= LIST }LEN 8CHR$ >= LPRINT {LEN 8CHR$ LIST yLEN 8CHR$ LLIST LIST yLEN 8CHR$ LLIST LPRINT }LEN 8 [T] LIST [A] LLIST 8 [T]>= LIST [A] LLIST 8 [T]>= LPRINT [A] LLIST 8 [D]2 LIST [A] LLIST 8 [A] LET [A] MOVE 8 [A] LLIST [A] MOVE 8 s! LIST [A]STR$ 8 s LET [A]STR$ 8s LET ▙STR$ 8s LLIST STR$ 8s LLIST ▙STR$ 8 c LIST [A]STR$ 8 c>= LIST [A]STR$ 8 c>= LPRINT [A]STR$ 8 c>= LPRINT [A]LEN 8S% LIST ▙LEN 8S, LET LEN 8S, LET ▙LEN 8 S, LLIST [A]LEN 8"S, LLIST [C]LEN 8$C LIST [E]LEN 8"C LLIST LIST [C]LEN 8 C LLIST LIST [A]LEN 8 C LLIST LPRINT [A]LEN 8C LLIST LPRINT ▙LEN 83K LIST LEN 83X PAUSE ▙LEN 8 3X PAUSE [A]LEN 8"3X STOP [C]LEN 8$3X STOP [E]LEN 8"#8 LIST [C]LEN 8 #CHR$ LET [A]LEN 8#CHR$ LLIST ▙LEN 8#CHR$ LLIST LEN 8# LIST ▙LEN 8 # DRAW LIST [A]LEN 8"# DRAW LIST [C]LEN 8$# DRAW LPRINT [E]LEN 8"# DRAW LPRINT [C]LEN 8 #/ LIST [A]LEN 8 #{ LET [A]LEN 8#{ LET ▙LEN 8#{ LLIST LEN 8#{ LLIST ▙LEN 8 #? LIST [A]LEN 8"# SAVE LET [C]LEN 8$# SAVE LET [E]LEN 8"# SAVE LLIST [C]LEN 8 # SAVE LLIST [A]LEN 8 # LIST [A]LEN 8#ABS LIST ▙LEN 8#ABS LIST LEN 8#ABS LPRINT ▙LEN 8 #ABS LPRINT [A]LEN 8 GO TO LET % LIST AT STOP , PAUSE , LET , READ l STOP , LET AT READ AT ERASE , LLIST , CLOSE #<> ERASE , LLIST AT STR$ GO TO LET LIST AT ERASE , PAUSE LLIST LIST , OPEN #l STOP LLIST LIST AT OPEN #AT ERASE LLIST LPRINT ,BIN <> ERASE LLIST LPRINT AT LEN NOT LIST AT [R]$NOT >= LIST AT [B]?COS >= LIST AT ▝q[T]>= LPRINT AT ▝FN >= LPRINT AT ▝ GO TO LET LIST AT SIN , PAUSE LLIST LIST ,COS l STOP LLIST LIST AT COS AT ERASE LLIST LPRINT ,[U]<> ERASE LLIST LPRINT AT [R] GO TO LLIST LIST AT [S], STOP >= LIST ,[T]l ERASE >= LIST AT [T]AT CHR$ >= LPRINT ,[U]<>CHR$ >= LPRINT AT [B][T]2 LIST AT q$[T][A] LET AT q?[T][A] LET AT aq[D][A] LLIST AT aFN s[A] LLIST AT a GO TO STR$ ! LIST AT ▘,CHR$ LET ,lSIN LET AT AT [S] LLIST ,▗<>[S] LLIST AT q[D] LIST AT r$[D]>= LIST ,s?>= LIST AT sqs>= LPRINT ,tFN c>= LPRINT AT a GO TO [R]% LIST AT r,[S], LET ,sl[C], LET AT sAT [C], LLIST ,d<>[C], LLIST AT a GO TO [B] LIST AT b,[C] LLIST LIST ,cl▘ LLIST LIST AT cAT ▘ LLIST LPRINT ,T<>▘ LLIST LPRINT AT Q GO TO ▝K LIST AT R,▘X PAUSE ,SlrX PAUSE AT SAT rX STOP ,D<>rX STOP AT Ac8 LIST AT B$cCHR$ LET ,C?SCHR$ LET AT CqSCHR$ LLIST ,4FN CCHR$ LLIST AT 1 GO TO a LIST AT 2,b DRAW LIST ,3lb DRAW LIST AT 3AT R DRAW LPRINT ,4<>R DRAW LPRINT AT !C/ LIST AT "$C{ LET ,#?C{ LET AT #q3{ LLIST ,$FN 3{ LLIST AT ! GO TO A? LIST AT ",B SAVE LET ,#lB SAVE LET AT #AT 2 SAVE LLIST ,$<>2 SAVE LLIST AT !3 LIST AT !$3ABS LIST AT !?3ABS LIST AT !q3ABS LPRINT AT !FN #ABS LPRINT AT !<=#% LIST AT ! BEEP #, LET AT $, LET AT $, LLIST AT 9, LLIST AT Y LIST AT z LLIST LIST AT 0[S] LLIST LIST AT 8ASN LLIST LPRINT AT 8 LLIST LPRINT AT 87 LIST AT 8H>= LIST AT 8AT >= LIST AT 8AT >= LPRINT AT 8AT LIST AT 8AT LLIST LIST AT 8AT LLIST LPRINT AT 8 LIST AT ▝ INK >= LIST AT >= LPRINT AT 2 LIST [Q]9[A] LET >=[Q]9[A] LLIST >=[A]9! LIST 2[Q]9 LET [A][R]9 LLIST [A][B]9 LIST ![Q]9>= LIST [R]9>= LPRINT [B]9% LIST [Q]▝x, LET >=[Q]8 INPUT , LET >=[Q]8 PAPER , LLIST >=[A]8 AND , LLIST >=[A]8SIN LIST %[Q]8[O] LLIST LIST ,[R]8 LLIST LIST ,[R]8v LLIST LPRINT ,[B]8b LLIST LPRINT ,[B]8K LIST [Q]▝ RANDOMIZE X PAUSE LLIST [Q]9X STOP LLIST [A]98 LIST K[Q]9CHR$ LET X[S]9CHR$ LLIST X[C]9 LIST 8[Q]9 DRAW LIST CHR$ [R]9 DRAW LPRINT CHR$ [B]9/ LIST [Q]9{ LET DRAW [Q]9{ LLIST DRAW [A]9? LIST /[Q]▝ RANDOMIZE SAVE LET {[R]9 SAVE LLIST {[B]9 LIST ?[Q]9ABS LIST SAVE [R]9ABS LPRINT SAVE [B]9% LIST [Q]9, LET ABS [Q]9, LLIST ABS [A]9 LIST %[Q]▝ RANDOMIZE LLIST LIST ,[R]9 LLIST LPRINT ,[B]9 LIST [Q]▝ SAVE >= LIST LLIST [Q]8>= LPRINT LLIST [A]8 LIST [Q]▝ SAVE LLIST LIST >=[Q]8 LLIST LPRINT >=[A]8 LIST [Q]▝y>= LIST LLIST [Q]9>= LPRINT LLIST [A]9K LIST [Q]▝ RANDOMIZE X PAUSE p[Q]9X STOP p[A]9, LIST OUT NEXT SAVE ,>= LIST OUT RESTORE 8,>= LIST OUT BEEP 8,>= LPRINT OUT EXP 8,>= LPRINT OUT ▛8,2 LIST AT MOVE /,[A] LET AT ▝,[A] LET AT 1,[A] LLIST AT !,[A] LLIST AT ,! LIST OUT MOVE /, LET OUT MOVE , LET OUT STR$ , LLIST OUT STR$ , LLIST OUT LEN , LIST OUT LEN /,>= LIST OUT [R],>= LIST OUT ▝,>= LPRINT OUT ,% LIST OUT LET X,, LET , LET = STOP ,, LLIST l ERASE ,, LLIST [L]SIN , LIST LINE [C], LLIST LIST RANDOMIZE r, LLIST LIST (C, LLIST LPRINT W#, LLIST LPRINT ▚,K LIST OUT MOVE /,X PAUSE OUT ▝,X PAUSE OUT 1,X STOP OUT !,X STOP OUT ,8 LIST { MOVE /,CHR$ LET { MOVE ,CHR$ LET {STR$ ,CHR$ LLIST {STR$ ,CHR$ LLIST {LEN , LIST OUT NEXT 8, DRAW LIST OUT RESTORE 8, DRAW LIST OUT BEEP 8, DRAW LPRINT OUT EXP 8, DRAW LPRINT OUT ▛8,/ LIST OUT Mx,{ LET OUT /8,{ LET v8,{ LLIST [J]8,{ LLIST ATN 8,? LIST OUT MOVE /, SAVE LET OUT MOVE , SAVE LET OUT STR$ , SAVE LLIST OUT STR$ , SAVE LLIST OUT LEN , LIST OUT LEN /,ABS LIST OUT [R],ABS LIST OUT ▝,ABS LPRINT OUT , LIST OUT MOVE /,>= LIST OUT MOVE ,>= LIST OUT STR$ ,>= LPRINT OUT STR$ ,>= LPRINT OUT LEN , LIST OUT LEN /, LLIST LIST OUT [R], LLIST LIST OUT ▝, LLIST LPRINT OUT , LIST OUT NEXT x,>= LIST OUT RESTORE 8,>= LIST OUT BEEP 8,>= LPRINT OUT EXP 8,>= LPRINT OUT ▛8,2 LIST OUT Mx,[A] LET OUT /8,[A] LET v8,[A] LLIST [J]8,[A] LLIST ATN 8,! LIST OUT MOVE /, LIST OUT LEN /,% LIST OUT LET X,K LIST OUT MOVE /,X PAUSE OUT MOVE ,X PAUSE OUT STR$ ,X STOP OUT STR$ ,X STOP OUT LEN ,8 LIST OUT LEN /,CHR$ LET OUT [R],CHR$ LET OUT ▝,CHR$ LLIST OUT ,/ LIST OUT Mx,? LIST OUT MOVE /, LIST OUT LEN /, LIST OUT MOVE /, LIST OUT LEN /, LIST OUT NEXT x,2 LIST OUT Mx,8 LIST OUT LEN / OUT NEXT LIST ,x OUT RESTORE >= LIST ,8 OUT BEEP >= LIST ,8 OUT EXP >= LPRINT ,8 OUT ▛>= LPRINT ,8AT MOVE 2 LIST ,qAT ▝[A] LET ,1AT 1[A] LET ,1AT ![A] LLIST ,1AT [A] LLIST ,1 OUT MOVE ! LIST ,q OUT MOVE LET ,1 OUT STR$ LET ,1 OUT STR$ LLIST ,1 OUT LEN LLIST ,1 OUT LEN LIST ,q OUT [R]>= LIST ,1 OUT ▝>= LIST ,1 OUT >= LPRINT ,1 OUT LET % LIST ,p0= STOP , LET ,0l ERASE , LLIST ,0[L]SIN , LLIST ,0 LINE [C] LIST ,0 RANDOMIZE r LLIST LIST ,0(C LLIST LIST ,0W# LLIST LPRINT ,0▚ LLIST LPRINT ,0 OUT MOVE K LIST ,q OUT ▝X PAUSE ,1 OUT 1X PAUSE ,1 OUT !X STOP ,1 OUT X STOP ,1{ MOVE 8 LIST ,q{ MOVE CHR$ LET ,1{STR$ CHR$ LET ,1{STR$ CHR$ LLIST ,1{LEN CHR$ LLIST ,1 OUT NEXT LIST ,8 OUT RESTORE DRAW LIST ,8 OUT BEEP DRAW LIST ,8 OUT EXP DRAW LPRINT ,8 OUT ▛ DRAW LPRINT ,8 OUT M/ LIST ,x OUT /{ LET ,8v{ LET ,8[J]{ LLIST ,8ATN { LLIST ,8 OUT MOVE ? LIST ,q OUT MOVE SAVE LET ,1 OUT STR$ SAVE LET ,1 OUT STR$ SAVE LLIST ,1 OUT LEN SAVE LLIST ,1 OUT LEN LIST ,q OUT [R]ABS LIST ,1 OUT ▝ABS LIST ,1 OUT ABS LPRINT ,1 OUT MOVE LIST ,q OUT MOVE >= LIST ,1 OUT STR$ >= LIST ,1 OUT STR$ >= LPRINT ,1 OUT LEN >= LPRINT ,1 OUT LEN LIST ,q OUT [R] LLIST LIST ,1 OUT ▝ LLIST LIST ,1 OUT LLIST LPRINT ,1 OUT NEXT LIST ,x OUT M2 LIST ,x OUT /[A] LET ,8v[A] LET ,8[J][A] LLIST ,8ATN [A] LLIST ,8 OUT MOVE ! LIST ,q OUT LEN LIST ,q OUT LET % LIST ,p OUT MOVE K LIST ,q OUT MOVE X PAUSE ,1 OUT STR$ X PAUSE ,1 OUT STR$ X STOP ,1 OUT LEN X STOP ,1 OUT LEN 8 LIST ,q OUT [R]CHR$ LET ,1 OUT ▝CHR$ LET ,1 OUT CHR$ LLIST ,1 OUT M/ LIST ,x OUT MOVE ? LIST ,q OUT LEN LIST ,q OUT MOVE LIST ,q OUT LEN LIST ,q OUT M2 LIST ,x OUT LEN 8 LIST ,qQ MOVE K LIST ,qQ MOVE X PAUSE ,1QSTR$ X PAUSE ,1QSTR$ X STOP ,1QLEN X STOP ,1Q LET OUT LET ,(E LET (9 LET = STOP ,(- LLIST l ERASE ,(! LLIST [L]SIN ,( LLIST OUT LET >= LIST ( LLIST ( CLEAR FORMAT = STOP >= LIST ( LET FORMAT l ERASE >= LPRINT ( RESTORE FORMAT [L]SIN >= LPRINT ( INK FORMAT OUT LET >= LPRINT ( STEP FORMAT (>=USR = STOP >= FORMAT (>=USR l ERASE >= FORMAT (>=USR [L]SIN >= FORMAT (>=USR OUT LET >= FORMAT (>=USR (>=USR = STOP >=USR (>=USR l ERASE >=USR (>=VAL [L]SIN >=USR (>=VAL OUT LET >=USR (>=VAL (>=VAL = STOP >=USR (>=VAL l ERASE >=USR (>=VAL [L]SIN >=VAL (>=VAL OUT STR$ >=VAL (>=VAL (>=[Q]=SIN LEN (>=[Q]l[S]"LEN (>=[Q][L][C]@LEN (>=[Q] OUT MOVE ^LEN (>=[Q](>=[Q]=CHR$ [K][R](>=[Q]lSIN LN [R](>=[Q][L][S] VERIFY [R](>=[Q] OUT LLIST POKE [R](>=[A](>=[A]= ERASE 0[S](>=[A]lCHR$ N[S](>=[A][L][S]l[S](>=[A] OUT LET [S](>=[A](>=[A]= STOP AND [C](>=[A]l ERASE DATA [C](>=[A][L]SIN [D](@ NEW OUT NEXT RANDOMIZE @ NEW OUT RESTORE 9@ NEW OUT BEEP 9@ VERIFY OUT EXP 9@ VERIFY OUT ▛9@ VERIFY AT MOVE @ VERIFY AT ▝@ AND AT 1@ AND AT !@ AND AT eAT [B] OUT MOVE CAT eAT [B] OUT MOVE eAT ▝ OUT STR$ eAT q OUT LEN eAT [B] OUT LEN eAT Q OUT [R]eAT ! OUT ▝eAT ! OUT eAT OUT @ NEW OUT LET INK @ NEW @ NEW = STOP @ VERIFY l ERASE @ VERIFY [L]SIN @ VERIFY LINE [C]@ VERIFY RANDOMIZE r@ AND (C@ AND W#@ AND ▚ [T] OUT MOVE [T] OUT ▝ [T] OUT 1 [D] OUT ! [D] OUT CHR$ AT [B]{ MOVE DEF FN STR$ AT [B]{ MOVE {STR$ {STR$ {LEN OUT NEXT SAVE @ NEW OUT RESTORE 8▙@ NEW OUT BEEP 8▟@ VERIFY OUT EXP 8▙@ VERIFY OUT ▛8@ VERIFY OUT M8[A]@ VERIFY OUT /8[B]@ AND v8▙@ AND [J]8[D]@ AND ATN 8{AT [B] OUT MOVE DEF FN zAT [B] OUT MOVE OUT STR$ OUT STR$ OUT LEN OUT LEN OUT [R] OUT ▝ OUT OUT OUT LET CIRCLE @ NEW @ NEW = STOP ▟@ VERIFY l ERASE ▙@ VERIFY [L]SIN {@ VERIFY LINE [C] CIRCLE z@ VERIFY RANDOMIZE ry@ AND (Cx@ AND W#y@ AND ▚[A] [T] OUT MOVE BRIGHT [T] OUT MOVE ▙ [T] OUT STR$ ▟ [D] OUT STR$ ▙ [D] OUT LEN CHR$ AT [B] OUT LEN CAT CHR$ AT Q OUT [R]CHR$ AT ! OUT ▝CHR$ AT ! OUT CHR$ AT OUT @ VERIFY OUT M9@ VERIFY OUT /9@ AND v9@ AND [J]9@ AND ATN 9 [T] OUT STR$ [D] OUT STR$ [D] OUT LEN CHR$ @ NEW OUT NEXT 9CHR$ @ NEW OUT RESTORE 9CHR$ @ NEW OUT BEEP 9CHR$ @ VERIFY OUT EXP 9CHR$ @ VERIFY OUT ▛9CHR$ @ VERIFY OUT M9CHR$ @ VERIFY OUT /9CHR$ @ AND v9CHR$ @ AND [J]9CHR$ @ AND ATN 9[A]AT [B] OUT MOVE CAT [A]AT [B] OUT MOVE [A]AT ▝ OUT STR$ [A]AT q OUT LEN [A]AT [B] OUT LEN [A]AT Q OUT [R][A]AT ! OUT ▝[A]AT ! OUT [A]AT OUT AT @ NEW OUT LET INK AT @ NEW @ NEW = STOP AT @ VERIFY l ERASE AT @ VERIFY [L]SIN [A]@ VERIFY LINE [C] INK [A]@ VERIFY RANDOMIZE r[A]@ AND (C[A]@ AND W#[A]@ AND ▚CHR$ AT [B] OUT MOVE CAT CHR$ AT [B] OUT MOVE CHR$ AT ▝ OUT STR$ CHR$ AT q OUT LEN SAVE AT [B] OUT LEN CAT SAVE AT Q OUT [R] SAVE AT ! OUT ▝ SAVE AT ! OUT SAVE AT OUT eAT [B] OUT MOVE DEF FN eAT [B] OUT MOVE OUT STR$ OUT LEN OUT LEN OUT [R] OUT ▝ OUT OUT OUT LET CIRCLE @ NEW @ NEW = STOP @ VERIFY l ERASE @ VERIFY [L]SIN @ VERIFY LINE [C]@ VERIFY RANDOMIZE r@ AND (C@ AND W#@ AND ▚ [T] OUT MOVE [T] OUT STR$ [D] OUT STR$ [D] OUT LEN CHR$ AT [B] OUT LEN DEF FN CHR$ AT Q OUT [R] OUT ▝ OUT OUT OUT RESTORE 8[A]@ NEW OUT BEEP 8[A]@ VERIFY OUT EXP 8[A]@ VERIFY OUT ▛8[A]@ VERIFY OUT M8[A]@ AND v8[A]@ AND [J]8[A]@ AND ATN 8{AT [B] OUT MOVE OUT STR$ OUT LEN OUT LEN OUT ▝ OUT OUT @ NEW = STOP [A]@ VERIFY l ERASE [A]@ VERIFY [L]SIN {@ VERIFY RANDOMIZE r{@ AND (C{@ AND W#{@ AND ▚[A] [T] OUT MOVE [A] [T] OUT STR$ [A] [D] OUT STR$ [A] [D] OUT LEN @ NEW OUT NEXT SAVE @ NEW OUT RESTORE 8@ NEW OUT BEEP 8@ VERIFY OUT EXP 8@ VERIFY OUT ▛8@ VERIFY OUT M8@ VERIFY OUT /8@ AND v8@ AND [J]8@ AND ATN 8AT [B] OUT LEN OUT [R] OUT ▝ OUT OUT OUT NEXT 8AT [B] OUT MOVE OUT STR$ OUT LEN OUT LET FLASH LLIST ERASE = STOP 9CHR$ l ERASE h[S][L]SIN @ NEW OUT NEXT y OUT NEXT LINE BY OUT RESTORE RANDOMIZE 2 OUT BEEP (# OUT EXP W# OUT ▛▚ OUT MASN OUT / DATA v[J]BATN OUT e OUT MOVE d FORMAT FOR e OUT MOVE d FORMAT +e OUT STR$ dUSR +e OUT LEN dUSR +e OUT [R]dUSR +e OUT ▝dUSR +e OUT dUSR + OUT LET dUSR DIM )= STOP dUSR )l ERASE dUSR )[L]SIN dUSR ) LINE [C]dUSR ) RANDOMIZE rdUSR )(CdUSR )W#dUSR )▚dUSR ) OUT MOVE d+ OUT ▝d+ OUT 1d+ OUT !d+ OUT d+CHR$ { MOVE d REM STR$ { MOVE d*USR {STR$ d*IN {STR$ d*USR {LEN d*[A] OUT NEXT d` SAVE OUT RESTORE d`8▙ OUT BEEP d`8▟ OUT EXP d`8▙ OUT ▛d`8 OUT Md`8[A] OUT /d`8[B]vd`8▙[J]d`8[D]ATN d`8{ OUT MOVE >= FORMAT REM z OUT MOVE >= FORMAT *y OUT STR$ >=USR *x OUT STR$ >=USR *y OUT LEN >=USR *z OUT LEN >=USR *{ OUT [R]>=USR *| OUT ▝>=USR *y OUT >=USR *~ OUT >=USR *[A] OUT LET >=USR CONTINUE (▙= STOP >=USR (▟l ERASE >=USR (▙[L]SIN >=USR ({ LINE [C]>=USR CONTINUE z RANDOMIZE r>=USR (y(C>=USR (xW#>=USR (y▚>=USR ([A] OUT MOVE >= REM OUT MOVE >=*▙ OUT STR$ >=*▟ OUT STR$ >=*▙ OUT LEN >=*CHR$ OUT LEN >= FOR CHR$ OUT [R]>=+CHR$ OUT ▝>=+CHR$ OUT >=+ OUT NEXT >=` RANDOMIZE OUT RESTORE >=`9 OUT BEEP >=`9VVAL CLOSE #USR USR USR USR USR (USR 0USR 8USR @USR HUSR HUSR PUSR PUSR XUSR `USR hUSR hUSR pUSR xUSR USR ▖USR [A]USR [I]USR [Q]USR FN USR VAL USR LN USR USR USR USR USR >=USR >=USR FORMAT USR CIRCLE USR LPRINT USR CONTINUE USR LIST USR LIST USR SAVE USR STR$ STR$ STR$ STR$ STR$ (STR$ 0STR$ 8STR$ @STR$ HSTR$ PSTR$ XSTR$ XSTR$ `STR$ `STR$ hSTR$ pSTR$ xSTR$ xSTR$ STR$ ▖STR$ [A]STR$ [I]STR$ [Q]STR$ FN STR$ VAL STR$ LN STR$ USR STR$ >=STR$ FORMAT STR$ CIRCLE STR$ LPRINT STR$ CONTINUE STR$ LIST STR$ SAVE STR$ CHR$ CHR$ CHR$ CHR$ CHR$ CHR$ (CHR$ 0CHR$ 8CHR$ @CHR$ HCHR$ PCHR$ XCHR$ `CHR$ hCHR$ pCHR$ xCHR$ xCHR$ CHR$ CHR$ ▖CHR$ [A]CHR$ [I]CHR$ [I]CHR$ [Q]CHR$ FN CHR$ VAL CHR$ LN CHR$ USR CHR$ >=CHR$ FORMAT CHR$ CIRCLE CHR$ LPRINT CHR$ CONTINUE CHR$ LIST CHR$ SAVE CHR$ NOT NOT NOT NOT NOT (NOT (NOT 0NOT 8NOT @NOT HNOT PNOT XNOT `NOT hNOT pNOT xNOT NOT ▖NOT [A]NOT [I]NOT [I]NOT [Q]NOT [Q]NOT FN NOT VAL NOT LN NOT LN NOT USR NOT >=NOT FORMAT NOT CIRCLE NOT LPRINT NOT CONTINUE NOT LIST NOT SAVE NOT BIN BIN BIN BIN BIN BIN (BIN 0BIN 8BIN @BIN HBIN HBIN PBIN XBIN `BIN hBIN pBIN xBIN BIN ▖BIN [A]BIN [I]BIN hCHR$ pCHR$ xCHR$ xCHR$ CHR$ CHR$ ▖CHR$ [A]CHR$ [I]CHR$ [I]CHR$ [Q]CHR$ FN CHR$ VAL CHR$ LN CHR$ USR CHR$ >=CHR$ FORMAT CHR$ CIRCLE CHR$ LPRINT CHR$ CONTINUE CHR$ LIST CHR$ LIST CHR$ [Q]BIN [Q]BIN FN BIN FN BIN VAL BIN SAVE CHR$ NOT NOT LN BIN USR BIN >=BIN FORMAT BIN CIRCLE BIN LPRINT BIN CONTINUE BIN LIST BIN SAVE BIN OR OR OR OR OR OR OR OR ( OR 0 OR 0 OR 8 OR @ OR H OR P OR X OR 8 OR @ OR H OR P OR X OR ` OR h OR p OR x OR OR ` OR h OR p OR x OR OR ▖ OR [A] OR [I] OR USR USR [Q] OR FN OR VAL OR LN OR USR OR 8USR @USR HUSR HUSR PUSR PUSR XUSR `USR hUSR hUSR pUSR xUSR USR ▖USR [A]USR [I]USR [Q]USR FN USR VAL USR LN USR USR USR >= OR FORMAT OR CIRCLE OR LPRINT OR CONTINUE OR LIST OR SAVE OR SAVE OR AND 8NOT AND AND AND AND ( AND 0 AND 8 AND @ AND H AND ▖NOT P AND X AND ` AND h AND p AND x AND AND ▖ AND [A] AND USR NOT [I] AND [Q] AND FN AND VAL AND LN AND USR AND >= AND FORMAT AND CIRCLE AND LPRINT AND CONTINUE AND LIST AND SAVE AND <=<=<=<= <=(<=0<=[A] OR [I] OR USR USR 8<=@<=H<=P<=X<=8USR @USR HUSR HUSR PUSR PUSR XUSR `USR hUSR hUSR pUSR xUSR USR ▖USR [A]USR [I]USR [Q]USR FN USR VAL USR LN USR USR USR >= OR FORMAT OR CIRCLE OR LPRINT OR `<=h<=p<=p<=x<=<=▖<=[A]<=[I]<=[Q]<=FN <=VAL <=LN <=USR <=>=<= FORMAT <= CIRCLE <= LPRINT <= LPRINT <= CONTINUE <= CONTINUE <= LIST <= SAVE <=>=>=>=>= >=(>=0>=8>=@>=H>=P>=X>=`>=@BIN h>=p>=HBIN x>=>=▖>=[A]>=[I]>=0<=[A] OR [I] OR USR USR [Q]>=FN >=VAL >=LN >=USR >=8USR @USR HUSR HUSR PUSR PUSR XUSR `USR hUSR hUSR pUSR xUSR USR ▖USR [A]USR [I]USR [Q]USR FN USR VAL USR LN USR USR USR >= OR FORMAT OR CIRCLE OR LPRINT OR `<=h<=p<=p<=x<=8NOT @NOT HNOT PNOT XNOT >=>= FORMAT >= CIRCLE >= LPRINT >= CONTINUE >= LIST >= SAVE >=<><><><><> <>(<>0<>8<>@<>H<>P<>X<>`<>h<>p<>x<><>▖<>[A]<>[I]<>[Q]<>FN <>VAL <>LN <>USR <>>=<> FORMAT <> CIRCLE <> LPRINT <> CONTINUE <> LIST <> SAVE <> LINE LINE LINE LINE LINE ( LINE 0 LINE 8 LINE @ LINE H LINE P LINE X LINE ` LINE h LINE p LINE x LINE LINE ▖ LINE [A] LINE [I] LINE [Q] LINE FN LINE VAL LINE LN LINE USR LINE >= LINE FORMAT LINE CIRCLE LINE LPRINT LINE CONTINUE LINE LIST LINE SAVE LINE THEN THEN THEN THEN THEN ( THEN 0 THEN 8 THEN @ THEN H THEN P THEN X THEN ` THEN h THEN p THEN x THEN THEN ▖ THEN [A] THEN [I] THEN x THEN THEN ▖ THEN [A] THEN [I] THEN x THEN THEN ▖ THEN [A] THEN [I] THEN x THEN THEN ▖ THEN [Q] THEN FN THEN VAL THEN LN THEN USR THEN [Q] THEN FN THEN VAL THEN LN THEN USR THEN >= THEN FORMAT THEN FORMAT THEN CIRCLE THEN CIRCLE THEN LPRINT THEN CONTINUE THEN LIST THEN SAVE THEN TO TO TO TO TO ( TO 0 TO 8 TO @ TO H TO P TO X TO ` TO h TO p TO x TO TO ▖ TO [A] TO [I] TO [Q] TO FN TO VAL TO LN TO USR TO >= TO FORMAT TO CIRCLE TO LPRINT TO CONTINUE TO LIST TO SAVE TO STEP STEP STEP STEP STEP STEP ( STEP 0 STEP 8 STEP @ STEP H STEP P STEP X STEP P STEP H STEP ` STEP h STEP ` STEP H STEP p STEP P STEP X STEP P STEP H STEP x STEP 0 STEP 8 STEP STEP STEP ▖ STEP X STEP P STEP H STEP ` STEP h STEP ` STEP H STEP H STEP P STEP [A] STEP P STEP H STEP ` STEP h STEP x STEP STEP STEP [I] STEP [Q] STEP ▖ STEP H STEP ` STEP h STEP ` STEP FN STEP STEP [I] STEP [Q] STEP [I] STEP @ STEP ` STEP h STEP ` STEP H STEP H STEP P STEP X STEP P STEP H STEP VAL STEP h STEP ` STEP H STEP H STEP P STEP X STEP P STEP H STEP ` STEP LN STEP ` STEP H STEP H STEP P STEP USR STEP [I] STEP STEP 8 STEP 0 STEP >= STEP H STEP H STEP P STEP X STEP P STEP H STEP ` STEP h STEP ` STEP p STEP H STEP P STEP X STEP P STEP FN STEP 8 STEP 0 STEP 8 STEP STEP @ STEP P STEP X STEP P STEP H STEP ` STEP h STEP ` STEP H STEP H STEP FORMAT STEP CIRCLE STEP LPRINT STEP CONTINUE STEP LIST STEP SAVE STEP DEF FN DEF FN DEF FN DEF FN DEF FN DEF FN ( DEF FN 0 DEF FN 8 DEF FN @ DEF FN H DEF FN H DEF FN P DEF FN X DEF FN ` DEF FN h DEF FN p DEF FN x DEF FN p DEF FN DEF FN DEF FN ▖ DEF FN [A] DEF FN ▖ DEF FN [I] DEF FN 0 DEF FN 8 DEF FN 0 DEF FN ( DEF FN [Q] DEF FN FN DEF FN VAL DEF FN FN DEF FN [Q] DEF FN LN DEF FN 8 DEF FN 0 DEF FN ( DEF FN ( DEF FN USR DEF FN X DEF FN P DEF FN H DEF FN >= DEF FN FORMAT DEF FN p DEF FN h DEF FN h DEF FN CIRCLE DEF FN LPRINT DEF FN CONTINUE DEF FN LIST DEF FN SAVE DEF FN CAT CAT CAT CAT CAT CAT ( CAT 0 CAT 8 CAT @ CAT 8 CAT H CAT h DEF FN CIRCLE DEF FN P CAT CIRCLE DEF FN DEF FN X CAT ` CAT X CAT DEF FN h CAT LPRINT STEP CIRCLE STEP LPRINT STEP CONTINUE STEP p CAT x CAT DEF FN DEF FN DEF FN CAT ▖ CAT DEF FN ( DEF FN 0 DEF FN [A] CAT >= DEF FN H DEF FN H DEF FN P DEF FN [I] CAT CIRCLE DEF FN h DEF FN p DEF FN x DEF FN X CAT DEF FN DEF FN ▖ DEF FN [A] DEF FN [Q] CAT ( DEF FN 0 DEF FN 8 DEF FN 0 DEF FN [Q] DEF FN [Q] DEF FN FN DEF FN VAL DEF FN FN DEF FN [I] DEF FN 0 DEF FN 8 DEF FN 0 DEF FN ( DEF FN FN CAT P DEF FN X DEF FN P DEF FN H DEF FN VAL CAT x DEF FN p DEF FN h DEF FN h DEF FN CONTINUE DEF FN LPRINT DEF FN CONTINUE DEF FN LIST DEF FN SAVE DEF FN LN CAT USR CAT >= CAT FORMAT CAT CIRCLE CAT LPRINT CAT CONTINUE CAT LIST CAT SAVE CAT FORMAT FORMAT FORMAT FORMAT FORMAT ( FORMAT 0 FORMAT 8 FORMAT @ FORMAT H FORMAT P FORMAT X FORMAT ` FORMAT ` FORMAT ` FORMAT ` FORMAT h FORMAT p FORMAT p FORMAT p FORMAT p FORMAT x FORMAT FORMAT ▖ FORMAT [A] FORMAT ▖ FORMAT [I] FORMAT [Q] FORMAT [Q] FORMAT [Q] FORMAT FN FORMAT VAL FORMAT LN FORMAT USR FORMAT >= FORMAT FORMAT FORMAT CIRCLE FORMAT LPRINT FORMAT CONTINUE FORMAT CONTINUE FORMAT LIST FORMAT SAVE FORMAT MOVE MOVE MOVE MOVE MOVE ( MOVE ( MOVE 0 MOVE 8 MOVE @ MOVE MOVE MOVE MOVE MOVE H MOVE P MOVE X MOVE ` MOVE X MOVE h MOVE p MOVE x MOVE p MOVE MOVE ▖ MOVE [A] MOVE [I] MOVE [A] MOVE ▖ MOVE [Q] MOVE FN MOVE VAL MOVE LN MOVE LN MOVE USR MOVE >= MOVE FORMAT MOVE CIRCLE MOVE LPRINT MOVE CONTINUE MOVE p MOVE MOVE MOVE LIST MOVE SAVE MOVE LIST FORMAT CONTINUE FORMAT LPRINT FORMAT CIRCLE FORMAT ERASE ERASE ERASE ERASE ERASE ERASE ( ERASE 0 ERASE 8 ERASE 0 ERASE @ ERASE MOVE MOVE H ERASE MOVE H MOVE P ERASE X ERASE P ERASE P MOVE h MOVE LIST MOVE ` ERASE LIST MOVE MOVE LPRINT FORMAT CIRCLE FORMAT LPRINT FORMAT CONTINUE FORMAT CONTINUE FORMAT @ MOVE H ERASE MOVE MOVE MOVE h ERASE MOVE ( MOVE ( MOVE 0 MOVE SAVE FORMAT MOVE MOVE MOVE MOVE p ERASE P MOVE P MOVE X MOVE ` MOVE x ERASE MOVE p MOVE x MOVE p MOVE ▖ MOVE ▖ MOVE [A] MOVE [I] MOVE [A] MOVE ERASE ▖ ERASE [A] ERASE ▖ ERASE [I] ERASE [Q] ERASE FN ERASE VAL ERASE FN ERASE LN ERASE USR ERASE x MOVE p MOVE MOVE MOVE >= ERASE FORMAT ERASE >= ERASE CIRCLE ERASE LPRINT ERASE CONTINUE ERASE LIST ERASE LIST ERASE LIST ERASE LIST ERASE SAVE ERASE OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN #( OPEN #0 OPEN #0 OPEN #0 OPEN #8 OPEN #@ OPEN #H OPEN #P OPEN #X OPEN #` OPEN #h OPEN #p OPEN #x OPEN #x OPEN # OPEN #▖ OPEN #[A] OPEN #[I] OPEN #[Q] OPEN #FN OPEN #VAL OPEN #LN OPEN #LN OPEN #USR OPEN #>= OPEN # FORMAT OPEN #[I] OPEN #[Q] OPEN #FN OPEN #[Q] OPEN # CIRCLE OPEN # LPRINT OPEN # CONTINUE OPEN # LIST OPEN # CONTINUE OPEN # SAVE OPEN # CLOSE # CLOSE # CLOSE # CLOSE # CLOSE # CLOSE #( CLOSE # CLOSE # CLOSE #0 CLOSE #8 CLOSE #@ CLOSE #H CLOSE #H CLOSE #P CLOSE #X CLOSE #` CLOSE #h CLOSE #p CLOSE #x CLOSE # CLOSE # CLOSE # CLOSE # CLOSE #▖ CLOSE # OPEN #x OPEN #p OPEN #h OPEN #[A] CLOSE #[I] CLOSE #[I] CLOSE #[Q] CLOSE #FN CLOSE #VAL CLOSE #LN CLOSE #USR CLOSE #>= CLOSE #USR CLOSE # FORMAT CLOSE #[I] OPEN #[A] OPEN # CIRCLE CLOSE #[A] OPEN # CIRCLE OPEN # LPRINT CLOSE # CONTINUE CLOSE # LPRINT CLOSE # LPRINT OPEN # SAVE OPEN # CLOSE # LIST CLOSE # CLOSE # CLOSE #p OPEN #h OPEN #p OPEN #x OPEN #x OPEN # FORMAT OPEN # CIRCLE CLOSE #[A] OPEN #[I] OPEN #[Q] OPEN # SAVE CLOSE #VAL OPEN #LN OPEN #LN OPEN #USR OPEN # MERGE [A] OPEN #[I] OPEN #[Q] OPEN #FN OPEN # MERGE LPRINT OPEN # LPRINT OPEN # CONTINUE OPEN # LIST OPEN # MERGE CLOSE # CLOSE # CLOSE # CLOSE # CLOSE # CLOSE # CLOSE #( CLOSE # CLOSE # MERGE MERGE ( MERGE 0 MERGE 8 MERGE @ MERGE H MERGE P MERGE X MERGE ` MERGE h MERGE p MERGE x MERGE MERGE ▖ MERGE [A] MERGE [I] MERGE [Q] MERGE FN MERGE VAL MERGE LN MERGE USR MERGE USR MERGE USR MERGE USR MERGE >= MERGE FORMAT MERGE FORMAT MERGE FORMAT MERGE FORMAT MERGE CIRCLE MERGE LPRINT MERGE CONTINUE MERGE LIST MERGE CONTINUE MERGE SAVE MERGE VERIFY VERIFY VERIFY VERIFY VERIFY VERIFY VERIFY ( VERIFY 0 VERIFY 8 VERIFY @ VERIFY H VERIFY H VERIFY P VERIFY X VERIFY ` VERIFY h VERIFY p VERIFY x VERIFY VERIFY ▖ VERIFY ▖ VERIFY [A] VERIFY [I] VERIFY [Q] VERIFY h VERIFY p VERIFY x VERIFY p VERIFY FN VERIFY VAL VERIFY LN VERIFY USR VERIFY LN VERIFY >= VERIFY FORMAT VERIFY CIRCLE VERIFY FORMAT VERIFY LPRINT VERIFY CONTINUE VERIFY LIST VERIFY SAVE VERIFY LIST VERIFY CONTINUE VERIFY BEEP BEEP BEEP BEEP BEEP BEEP ( BEEP 0 BEEP 8 BEEP @ BEEP H BEEP FORMAT VERIFY LPRINT VERIFY LPRINT VERIFY P BEEP X BEEP P VERIFY H VERIFY @ VERIFY 8 VERIFY ` BEEP h BEEP h BEEP p BEEP x BEEP BEEP ▖ BEEP [A] BEEP [I] BEEP [A] BEEP [Q] BEEP h VERIFY ` VERIFY FN BEEP ` VERIFY FN VERIFY VAL BEEP LN BEEP VAL BEEP VAL VERIFY >= VERIFY P BEEP USR BEEP P BEEP LPRINT VERIFY @ VERIFY 8 VERIFY @ VERIFY H VERIFY H VERIFY >= BEEP FN BEEP ` VERIFY h VERIFY p VERIFY FORMAT BEEP VERIFY ▖ VERIFY ▖ VERIFY [A] VERIFY X VERIFY ` VERIFY h VERIFY p VERIFY x VERIFY CIRCLE BEEP VAL VERIFY VAL VERIFY LN VERIFY USR VERIFY LPRINT BEEP LPRINT VERIFY FORMAT VERIFY CIRCLE VERIFY FORMAT VERIFY CONTINUE VERIFY CONTINUE VERIFY LIST VERIFY SAVE VERIFY LIST VERIFY CONTINUE BEEP LIST BEEP SAVE BEEP LIST BEEP CIRCLE CIRCLE CIRCLE CIRCLE CIRCLE CIRCLE ( CIRCLE CIRCLE VERIFY FORMAT VERIFY LPRINT VERIFY LPRINT VERIFY CONTINUE MERGE LIST MERGE CONTINUE MERGE LPRINT MERGE 0 CIRCLE 8 CIRCLE @ CIRCLE @ CIRCLE @ CIRCLE @ CIRCLE H CIRCLE P CIRCLE P CIRCLE P CIRCLE P CIRCLE X CIRCLE ` CIRCLE h CIRCLE p CIRCLE h CIRCLE x CIRCLE CIRCLE CIRCLE CIRCLE ▖ CIRCLE [A] CIRCLE [I] CIRCLE [Q] CIRCLE FN CIRCLE VAL CIRCLE LN CIRCLE USR CIRCLE >= CIRCLE >= CIRCLE FORMAT CIRCLE CIRCLE CIRCLE LPRINT CIRCLE CONTINUE CIRCLE LIST CIRCLE SAVE CIRCLE INK INK INK INK INK INK CONTINUE CIRCLE LIST CIRCLE SAVE CIRCLE LIST CIRCLE ( INK 0 INK 8 INK @ INK 8 INK H INK P INK X INK P INK ` INK h INK p INK x INK p INK h INK INK ▖ INK [A] INK [I] INK [I] INK [Q] INK FN INK VAL INK LN INK USR INK >= INK VAL CIRCLE FN CIRCLE FN CIRCLE [Q] CIRCLE FORMAT INK CIRCLE INK LPRINT INK CONTINUE INK LIST INK X FORMAT ` FORMAT ` FORMAT ` FORMAT ` FORMAT SAVE INK PAPER PAPER PAPER PAPER x FORMAT FORMAT ▖ FORMAT [A] FORMAT ▖ FORMAT [I] FORMAT [Q] FORMAT [Q] FORMAT [Q] FORMAT FN FORMAT PAPER PAPER PAPER PAPER ( PAPER CIRCLE FORMAT LPRINT FORMAT CONTINUE FORMAT CONTINUE FORMAT LIST FORMAT SAVE FORMAT MOVE MOVE MOVE MOVE 0 PAPER 8 PAPER 8 PAPER @ PAPER H PAPER @ MOVE MOVE MOVE MOVE MOVE H MOVE P MOVE X MOVE ` MOVE X MOVE P PAPER X PAPER ` PAPER X PAPER h PAPER ▖ MOVE [A] MOVE [I] MOVE [A] MOVE ▖ MOVE [Q] MOVE FN MOVE VAL MOVE LN MOVE LN MOVE p PAPER x PAPER PAPER ▖ PAPER [A] PAPER [I] PAPER ( PAPER PAPER PAPER PAPER FORMAT ERASE >= ERASE CIRCLE ERASE LPRINT ERASE [Q] PAPER FN PAPER VAL PAPER VAL PAPER VAL PAPER VAL PAPER LN PAPER USR PAPER USR PAPER USR PAPER USR PAPER >= PAPER FORMAT PAPER CIRCLE PAPER LPRINT PAPER CIRCLE PAPER CONTINUE PAPER LIST PAPER LIST PAPER LIST PAPER SAVE PAPER FLASH FLASH FLASH FLASH FLASH ( FLASH 0 FLASH 8 FLASH 8 FLASH @ FLASH H FLASH P FLASH X FLASH ` FLASH h FLASH p FLASH x FLASH x FLASH FLASH ▖ FLASH [A] FLASH X FLASH ` FLASH h FLASH ` FLASH [I] FLASH [Q] FLASH FN FLASH VAL FLASH FN FLASH LN FLASH USR FLASH >= FLASH USR FLASH FORMAT FLASH CIRCLE FLASH LPRINT FLASH CONTINUE FLASH LPRINT FLASH CIRCLE FLASH LIST FLASH SAVE FLASH BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT BRIGHT ( BRIGHT 0 BRIGHT 8 BRIGHT USR FLASH FORMAT FLASH FORMAT FLASH @ BRIGHT H BRIGHT @ FLASH 8 FLASH 0 FLASH ( FLASH P BRIGHT X BRIGHT X BRIGHT ` BRIGHT h BRIGHT p BRIGHT x BRIGHT BRIGHT ▖ BRIGHT BRIGHT [A] BRIGHT X FLASH P FLASH [I] BRIGHT P FLASH [I] FLASH [Q] BRIGHT FN BRIGHT [Q] BRIGHT [Q] FLASH LN FLASH @ BRIGHT VAL BRIGHT @ BRIGHT FORMAT FLASH 0 FLASH ( FLASH 0 FLASH 8 FLASH 8 FLASH [A] FLASH [I] BRIGHT P FLASH X FLASH ` FLASH LN BRIGHT p FLASH x FLASH x FLASH FLASH H FLASH P FLASH X FLASH ` FLASH h FLASH USR BRIGHT [Q] FLASH [Q] FLASH FN FLASH VAL FLASH >= BRIGHT FORMAT FLASH USR FLASH >= FLASH USR FLASH CIRCLE FLASH CIRCLE FLASH LPRINT FLASH CONTINUE FLASH LPRINT FLASH FORMAT BRIGHT BRIGHT SAVE FLASH BRIGHT BRIGHT CIRCLE BRIGHT LPRINT BRIGHT CONTINUE BRIGHT LPRINT BRIGHT LIST BRIGHT SAVE BRIGHT INVERSE FLASH FLASH FLASH INVERSE INVERSE INVERSE INVERSE INVERSE ( INVERSE 0 INVERSE 0 INVERSE 0 INVERSE 0 INVERSE 8 INVERSE @ INVERSE @ INVERSE @ INVERSE @ INVERSE H INVERSE P INVERSE X INVERSE ` INVERSE X INVERSE h INVERSE p INVERSE p INVERSE p INVERSE x INVERSE INVERSE ▖ INVERSE [A] INVERSE [I] INVERSE [Q] INVERSE FN INVERSE VAL INVERSE LN INVERSE LN INVERSE USR INVERSE >= INVERSE FORMAT INVERSE CIRCLE INVERSE LPRINT INVERSE CONTINUE INVERSE LIST INVERSE SAVE INVERSE SAVE INVERSE OVER OVER OVER CIRCLE INVERSE LPRINT INVERSE CONTINUE INVERSE LPRINT INVERSE OVER OVER ( OVER 0 OVER ( OVER 8 OVER @ OVER H OVER @ OVER P OVER X OVER ` OVER h OVER ` OVER X OVER p OVER x OVER OVER ▖ OVER ▖ OVER [A] OVER [I] OVER [Q] OVER FN OVER VAL OVER LN OVER [Q] INVERSE [I] INVERSE [I] INVERSE [A] INVERSE USR OVER >= OVER FORMAT OVER CIRCLE OVER LPRINT OVER CONTINUE OVER LIST OVER LIST OVER LIST OVER LIST OVER SAVE OVER OUT OUT OUT OUT OUT OUT OUT OUT OUT ( OUT 0 OUT 0 OUT 0 OUT 8 OUT @ OUT H OUT P OUT X OUT ` OUT h OUT p OUT x OUT x OUT OUT ▖ OUT [A] OUT [I] OUT [Q] OUT FN OUT VAL OUT LN OUT LN OUT USR OUT >= OUT FORMAT OUT [I] OUT [Q] OUT FN OUT [Q] OUT CIRCLE OUT LPRINT OUT CONTINUE OUT LIST OUT CONTINUE OUT SAVE OUT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT ( LPRINT LPRINT LPRINT 0 LPRINT 8 LPRINT @ LPRINT H LPRINT H LPRINT P LPRINT X LPRINT ` LPRINT h LPRINT p LPRINT x LPRINT ` OUT X OUT X OUT P OUT LPRINT ▖ LPRINT [A] LPRINT [I] LPRINT [Q] LPRINT FN LPRINT VAL LPRINT VAL LPRINT VAL LPRINT VAL LPRINT LN LPRINT USR LPRINT USR LPRINT USR LPRINT USR LPRINT >= LPRINT FORMAT LPRINT CIRCLE LPRINT LPRINT LPRINT CIRCLE LPRINT CONTINUE LPRINT LIST LPRINT LIST LPRINT LIST LPRINT SAVE LPRINT LLIST LLIST LLIST LLIST LLIST 8 CLOSE #@ CLOSE #H CLOSE #H CLOSE #( LLIST 0 LLIST CLOSE # CLOSE #8 LLIST @ LLIST CLOSE # CLOSE # CLOSE # CLOSE # LIST CLOSE #H LLIST CLOSE #8 LLIST @ LLIST 8 LLIST P LLIST X LLIST ` LLIST h LLIST ` LLIST p LLIST x LLIST LLIST x LLIST ▖ LLIST [A] LLIST [I] LLIST [Q] LLIST [I] LLIST [A] LLIST FN LLIST VAL LLIST LN LLIST USR LLIST USR LLIST >= LLIST FORMAT LLIST CIRCLE LLIST LPRINT LLIST CONTINUE LLIST LIST LLIST x LLIST ▖ LLIST ▖ LLIST SAVE LLIST STOP ( LLIST H CLOSE #@ CLOSE #8 CLOSE # STOP [I] OPEN #[I] OPEN #[A] OPEN # CIRCLE CLOSE # STOP LPRINT OPEN # LPRINT CLOSE # CONTINUE CLOSE # LPRINT CLOSE # SAVE OPEN # CLOSE # CLOSE # LIST CLOSE # CLOSE # STOP p CLOSE # STOP p CLOSE #h CLOSE #( STOP ( LLIST STOP ( LLIST H CLOSE #8 LLIST @ LLIST 8 LLIST CLOSE # CLOSE #0 STOP LIST CLOSE # CLOSE # CLOSE # CLOSE #h OPEN #p OPEN #x OPEN #x OPEN # OPEN #8 STOP CLOSE # CLOSE # CLOSE # CLOSE #@ STOP h CLOSE #h CLOSE #` CLOSE #X CLOSE #H STOP H CLOSE #@ CLOSE #8 CLOSE #@ CLOSE #▖ LLIST ▖ LLIST SAVE LLIST P STOP SAVE LLIST X STOP ` STOP h STOP ` STOP [A] LLIST p STOP x STOP STOP x STOP ▖ STOP [A] STOP 8 CLOSE #@ CLOSE #H CLOSE #H CLOSE # CLOSE #( CLOSE # CLOSE # CLOSE #8 LLIST [I] STOP p OPEN #x OPEN #x OPEN # OPEN #[Q] STOP FN STOP VAL STOP LN STOP USR STOP >= STOP CLOSE # CLOSE # CLOSE #( CLOSE # FORMAT STOP X LLIST CIRCLE STOP LPRINT STOP CIRCLE STOP p LLIST ▖ LLIST SAVE LLIST P STOP SAVE LLIST H CLOSE #@ CLOSE #8 CLOSE #@ CLOSE #H CLOSE # CONTINUE STOP CLOSE #( CLOSE # CLOSE # CLOSE # CLOSE # CLOSE # CLOSE # CLOSE # CLOSE # LIST STOP SAVE STOP READ READ READ READ READ ( READ ( READ 0 READ 8 READ @ READ H READ P READ X READ ` READ h READ h READ p READ x READ READ ▖ READ [A] READ [I] READ [A] READ [Q] READ FN READ VAL READ LN READ VAL READ USR READ P READ X READ P READ H READ >= READ FORMAT READ CIRCLE READ FORMAT READ >= READ LPRINT READ CONTINUE READ LIST READ SAVE READ SAVE READ DATA DATA DATA DATA DATA ( DATA 0 DATA 8 DATA 8 DATA @ DATA H DATA P DATA X DATA ` DATA h DATA p DATA x DATA x DATA DATA ▖ DATA [A] DATA [I] DATA [Q] DATA FN DATA [Q] DATA VAL DATA LN DATA USR DATA >= DATA USR DATA FORMAT DATA CIRCLE DATA LPRINT DATA CIRCLE DATA CONTINUE DATA LIST DATA SAVE DATA RESTORE SAVE DATA RESTORE RESTORE RESTORE RESTORE ( RESTORE ( RESTORE 0 RESTORE 8 RESTORE @ RESTORE H RESTORE P RESTORE X RESTORE ` RESTORE h RESTORE h RESTORE p RESTORE x RESTORE RESTORE ▖ RESTORE [A] RESTORE [I] RESTORE [Q] RESTORE FN RESTORE FN RESTORE VAL RESTORE LN RESTORE USR RESTORE >= RESTORE FORMAT RESTORE CIRCLE RESTORE FORMAT RESTORE LPRINT RESTORE CONTINUE RESTORE LIST RESTORE SAVE RESTORE LIST RESTORE NEW NEW NEW NEW NEW ( NEW 0 NEW 8 NEW @ NEW H NEW P NEW X NEW ` NEW ` NEW h NEW p NEW 8 NEW x NEW NEW ▖ NEW NEW NEW NEW NEW NEW ` NEW [A] NEW [I] NEW [Q] NEW FN NEW VAL NEW X NEW ` NEW ` NEW h NEW X NEW [I] NEW LN NEW USR NEW >= NEW FORMAT NEW NEW NEW NEW NEW ( NEW 0 NEW 8 NEW @ NEW H NEW P NEW X NEW ` NEW ` NEW h NEW X NEW [I] NEW LN NEW USR NEW >= NEW FORMAT NEW NEW NEW NEW NEW ( NEW 0 NEW 8 NEW @ NEW H NEW P NEW X NEW ` NEW ` NEW h NEW X NEW [I] NEW LN NEW USR NEW >= NEW FORMAT NEW NEW NEW NEW NEW ( NEW 0 NEW 8 NEW @ NEW H NEW P NEW X NEW ` NEW ` NEW h NEW p NEW 8 NEW x NEW NEW ▖ NEW NEW NEW NEW NEW NEW ` NEW [A] NEW [I] NEW [Q] NEW FN NEW VAL NEW X NEW ` NEW ` NEW h NEW CIRCLE NEW LPRINT NEW CONTINUE NEW LIST NEW SAVE NEW NEW NEW NEW NEW NEW p NEW 8 NEW x NEW NEW ▖ NEW NEW NEW NEW NEW NEW ` NEW [A] NEW [I] NEW [Q] NEW FN NEW BORDER BORDER BORDER BORDER BORDER p NEW 8 NEW x NEW NEW ▖ NEW NEW NEW NEW NEW NEW p NEW 8 NEW x NEW NEW ▖ NEW BORDER ( BORDER 0 BORDER 8 BORDER @ BORDER H BORDER P BORDER X BORDER ` BORDER h BORDER p BORDER x BORDER BORDER ▖ BORDER [A] BORDER [I] BORDER [Q] BORDER FN BORDER VAL BORDER LN BORDER BORDER ( BORDER 0 BORDER 8 BORDER @ BORDER USR BORDER >= BORDER FORMAT BORDER CIRCLE BORDER LPRINT BORDER CONTINUE BORDER x BORDER BORDER ▖ BORDER [A] BORDER LIST BORDER SAVE BORDER CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE ( CONTINUE 0 CONTINUE 8 CONTINUE @ CONTINUE H CONTINUE P CONTINUE X CONTINUE ` CONTINUE h CONTINUE p CONTINUE x CONTINUE CONTINUE ▖ CONTINUE [A] CONTINUE [I] CONTINUE [Q] CONTINUE FN CONTINUE VAL CONTINUE LN CONTINUE USR CONTINUE >= CONTINUE FORMAT CONTINUE CIRCLE CONTINUE LPRINT CONTINUE CONTINUE CONTINUE LIST CONTINUE SAVE CONTINUE DIM h CONTINUE DIM DIM DIM DIM DIM DIM ( DIM 0 DIM 8 DIM @ DIM ( BORDER 0 BORDER 8 BORDER @ BORDER H BORDER P BORDER X BORDER ` BORDER h BORDER p BORDER H DIM P DIM X DIM ` DIM h DIM p DIM x DIM DIM ▖ DIM BORDER ( BORDER 0 BORDER 8 BORDER @ BORDER USR BORDER >= BORDER FORMAT BORDER CIRCLE BORDER LPRINT BORDER CONTINUE BORDER x BORDER BORDER ▖ BORDER [A] BORDER [A] DIM [I] DIM [Q] DIM FN DIM VAL DIM LN DIM CONTINUE ( CONTINUE 0 CONTINUE 8 CONTINUE USR DIM >= DIM FORMAT DIM CIRCLE DIM LPRINT DIM CONTINUE DIM LIST DIM SAVE DIM REM REM REM REM REM ( REM 0 REM 8 REM @ REM H REM H REM P REM X REM ` REM h REM p REM x REM LN DIM CONTINUE ( CONTINUE 0 CONTINUE 8 CONTINUE USR DIM P CONTINUE REM ▖ REM [A] REM BORDER ( BORDER 0 BORDER 8 BORDER @ BORDER H BORDER P BORDER X BORDER ` BORDER h BORDER p BORDER x BORDER BORDER ▖ BORDER [A] BORDER [I] BORDER [Q] BORDER FN BORDER VAL BORDER LN BORDER BORDER ( BORDER 0 BORDER 8 BORDER @ BORDER USR BORDER >= BORDER FORMAT BORDER CIRCLE BORDER LPRINT BORDER CONTINUE BORDER H DIM P DIM X DIM ` DIM H DIM [I] REM [Q] REM FN REM VAL REM CONTINUE CONTINUE ( CONTINUE 0 CONTINUE 8 CONTINUE @ CONTINUE H CONTINUE P CONTINUE X CONTINUE ` CONTINUE h CONTINUE p CONTINUE x CONTINUE CONTINUE ▖ CONTINUE [A] CONTINUE [I] CONTINUE [Q] CONTINUE FN CONTINUE VAL CONTINUE LN CONTINUE USR CONTINUE >= CONTINUE FORMAT CONTINUE CIRCLE CONTINUE LPRINT CONTINUE CONTINUE CONTINUE LIST CONTINUE SAVE CONTINUE DIM h CONTINUE DIM DIM DIM DIM DIM DIM ( DIM 0 DIM 8 DIM @ DIM ( BORDER 0 BORDER 8 BORDER @ BORDER H BORDER P BORDER X BORDER ` BORDER h BORDER p BORDER x BORDER BORDER ▖ BORDER [A] BORDER [I] BORDER [Q] BORDER FN BORDER VAL BORDER LN BORDER BORDER ( BORDER 0 BORDER 8 BORDER @ BORDER USR BORDER >= BORDER FORMAT BORDER CIRCLE BORDER LPRINT BORDER CONTINUE BORDER x BORDER BORDER ▖ BORDER [A] BORDER [A] DIM [I] DIM [Q] DIM FN DIM VAL DIM LN DIM CONTINUE ( CONTINUE 0 CONTINUE 8 CONTINUE USR DIM P CONTINUE REM ▖ REM [A] REM LN DIM LN REM USR REM >= REM FORMAT REM CIRCLE REM LPRINT REM CONTINUE REM LIST REM SAVE REM 8 REM @ REM FOR FOR FOR FOR LIST CONTINUE FOR ( FOR 0 FOR LN DIM CONTINUE ( CONTINUE 0 CONTINUE 8 CONTINUE USR DIM P CONTINUE REM ▖ REM [A] REM 8 FOR 8 FOR 8 FOR 8 FOR @ FOR @ FOR @ FOR @ FOR H FOR OUT EXP >=`9 OUT ▛>=`9 OUT M>=`9 OUT />=`9v>=`9[J]>=`9ATN >=`9e OUT MOVE d FORMAT FOR e OUT MOVE d FORMAT +e OUT STR$ dUSR +e OUT LEN dUSR +e OUT [R]dUSR +e OUT ▝dUSR +e OUT dUSR + OUT LET dUSR DIM )= STOP dUSR )l ERASE dUSR )[L]SIN dUSR ) LINE [C]dUSR ) RANDOMIZE rdUSR )(CdUSR )W#dUSR )▚dUSR ) OUT MOVE d+ OUT STR$ d+ OUT LEN d+CHR$ OUT LEN d FOR CHR$ OUT [R]d+CHR$ OUT ▝d+CHR$ OUT d+CHR$ OUT NEXT dP9CHR$ OUT RESTORE dP9CHR$ OUT BEEP dP9CHR$ OUT EXP dP9CHR$ OUT ▛dP9CHR$ OUT MdP9CHR$ OUT /dP9CHR$ vdP9CHR$ [J]dP9CHR$ ATN dP9[A] OUT MOVE >= FORMAT FOR [A] OUT MOVE >= FORMAT +[A] OUT STR$ >=USR +[A] OUT LEN >=USR +[A] OUT [R]>=USR +[A] OUT ▝>=USR +[A] OUT >=USR +AT OUT LET >=USR DIM AT )AT = STOP >=USR )AT l ERASE >=USR )AT [L]SIN >=USR )[A] LINE [C]>=USR DIM [A] RANDOMIZE r>=USR )[A](C>=USR )[A]W#>=USR )[A]▚>=USR )CHR$ OUT MOVE >= FOR CHR$ OUT ▝>=+CHR$ OUT 1>=+CHR$ OUT !>=+CHR$ OUT >=+ SAVE AT MOVE >= FOR SAVE AT MOVE >=+ SAVE AT STR$ >=+ SAVE AT LEN >=+ OUT NEXT >=P RANDOMIZE OUT RESTORE >=P9 OUT BEEP >=P9 OUT EXP >=P9 OUT ▛>=P9 OUT M>=P9 OUT />=P9v>=P9[J]>=P9ATN >=P9e OUT MOVE d FORMAT REM e OUT MOVE d FORMAT *e OUT STR$ dUSR *e OUT LEN dUSR *e OUT [R]dUSR *e OUT ▝dUSR *e OUT dUSR * OUT LET dUSR CONTINUE (= STOP dUSR (l ERASE dUSR ([L]SIN dUSR ( LINE [C]dUSR ( RANDOMIZE rdUSR ((CdUSR (W#dUSR (▚dUSR ( OUT MOVE d* OUT ▝d* OUT 1d* OUT !d* OUT d*CHR$ { MOVE d REM CHR$ { MOVE d*CHR$ {STR$ d*CHR$ {LEN d*[A] OUT NEXT d` SAVE [A] OUT RESTORE d`8[A] OUT BEEP d`8[A] OUT EXP d`8[A] OUT ▛d`8[A] OUT Md`8[A] OUT /d`8[A]vd`8[A][J]d`8[A]ATN d`8{ OUT MOVE >= FORMAT REM { OUT MOVE >= FORMAT *{ OUT STR$ >=USR *{ OUT LEN >=USR *{ OUT [R]>=USR *{ OUT ▝>=USR *{ OUT >=USR *[A] OUT LET >=USR CONTINUE [A]([A]= STOP >=USR ([A]l ERASE >=USR ([A][L]SIN >=USR ({ LINE [C]>=USR CONTINUE { RANDOMIZE r>=USR ({(C>=USR ({W#>=USR ({▚>=USR ([A] OUT MOVE >= REM [A] OUT MOVE >=*[A] OUT STR$ >=*[A] OUT LEN >=*CHR$ OUT LEN >= REM CHR$ OUT [R]>=*CHR$ OUT ▝>=*CHR$ OUT >=* OUT NEXT >=` SAVE OUT RESTORE >=`8 OUT BEEP >=`8 OUT EXP >=`8 OUT ▛>=`8 OUT M>=`8 OUT />=`8v>=`8[J]>=`8ATN >=`8 OUT STR$ d* OUT LEN d* OUT [R]d* OUT NEXT dP8 OUT RESTORE dP8 OUT BEEP dP8 OUT EXP dP8 OUT ▛dP8 OUT MdP8 OUT /dP8vdP8[J]dP8ATN dP8 OUT MOVE >= FORMAT * OUT STR$ >=USR * OUT LEN >=USR * OUT [R]>=USR * OUT ▝>=USR * OUT >=USR * OUT LET >=USR ((= STOP >=USR (l ERASE >=USR ([L]SIN >=USR ( OUT LET >=((= STOP >=(l ERASE >=([L]SIN >=( OUT NEXT >=`y OUT RESTORE >=`9 OUT BEEP >=`9AT MOVE >=`+AT ▝>=`+AT 1>=`+AT !>=`+AT >=`+ OUT ▝d+ OUT 1d+ OUT !d+ OUT d+CHR$ { MOVE d FOR CHR$ { MOVE d+CHR$ {STR$ d+CHR$ {LEN d+ OUT RESTORE d`8▙ OUT BEEP d`8▟ OUT EXP d`8▙ OUT ▛d`8PEEK OPEN #d`*[A]PEEK d`*[B]PEEK 3d`*▙PEEK #d`*[D]PEEK d`*z OUT MOVE >= FORMAT *y OUT STR$ >=USR *x OUT STR$ >=USR *y OUT LEN >=USR *zPEEK OPEN #>=USR *{PEEK >=USR *|PEEK 3>=USR *yPEEK #>=USR *~PEEK >=USR *(▙= STOP >=USR (▟l ERASE >=USR (▙[L]SIN >=USR ({X OPEN #>=USR REM zX>=USR *yX3>=USR *xX#>=USR *yX>=USR *[A]PEEK OPEN #>= REM PEEK >=*▙PEEK 3>=*▟PEEK #>=*▙PEEK >=*CHR$ PEEK OPEN #>= REM STR$ PEEK >=*USR PEEK 3>=*IN PEEK #>=*USR PEEK >=* OUT NEXT >=` RANDOMIZE PEEK OPEN #>=`+PEEK >=`+PEEK 3>=`+PEEK #>=`+PEEK >=`+CHR$ PLOT ERASE d FOR CHR$ PLOT ERASE d+CHR$ PLOT CHR$ d+CHR$ PLOT SIN d+AT OUT NEXT dP SAVE AT OUT RESTORE dP8AT OUT BEEP dP8AT OUT EXP dP8AT OUT ▛dP8AT PEEK OPEN #dP*AT PEEK dP*AT PEEK 3dP*AT PEEK #dP*VAL$ PEEK dP*[A] OUT MOVE >= FORMAT REM [A] OUT MOVE >= FORMAT *[A] OUT STR$ >=USR *[A] OUT LEN >=USR *[A] OUT [R]>=USR *[A] OUT ▝>=USR *[A] OUT >=USR *[C] OUT >=USR *AT OUT LET >=USR CONTINUE AT (AT = STOP >=USR (AT l ERASE >=USR (AT [L]SIN >=USR ([A] PLOT ERASE >=USR REM [A] PLOT ▘>=USR *[A] PLOT 2>=USR *[A] PLOT ">=USR *[A] PLOT >=USR *CHR$ OUT MOVE >= REM CHR$ OUT 1>=*CHR$ OUT !>=* SAVE PLOT ERASE >= REM SAVE PLOT ▘>=* SAVE PLOT 2>=* SAVE PLOT ">=* SAVE PLOT >=* PLOT ERASE >=`+ PLOT ▘>=`+ PLOT 2>=`+ PLOT ">=`+ PLOT >=`+[A] PLOT ERASE d`*[A] PLOT ▘d`*[A] PLOT 2d`*[A] PLOT "d`*[A] PLOT d`*{ OUT MOVE [A] MOVE REM { OUT MOVE [A] MOVE *{ OUT STR$ [A]STR$ *{ OUT LEN [A]STR$ *{ PLOT ERASE [A]STR$ *{ PLOT ▘[A]STR$ *{ PLOT 2[A]STR$ *{ PLOT "[A]STR$ *{ PLOT [A]STR$ *[A] OUT LET [A]STR$ CONTINUE [A]([A]= STOP [A]STR$ ([A]l ERASE [A]STR$ ([A][L]SIN [A]STR$ ({ LINE [C][A]STR$ CONTINUE { RANDOMIZE r[A]STR$ ({(C[A]STR$ ({W#[A]STR$ ({▚[A]STR$ ([A] OUT MOVE [A]▝ REM [A] OUT ▝[A]▝*[A] OUT 1[A]▝*[A] OUT ![A]▝*[A] OUT [A]▝*CHR$ PLOT ERASE [A]▝ REM CHR$ PLOT ▘[A]▝*CHR$ PLOT 2[A]▝*CHR$ PLOT "[A]▝*CHR$ PLOT [A]▝* OUT LET [A]Q DIM )= STOP [A]Q)l ERASE [A]Q)[L]SIN [A]Q) LINE [C][A]Q) RANDOMIZE r[A]Q)(C[A]Q)W#[A]Q)▚[A]Q) OUT LET >= FORMAT i)= STOP >=USR )l ERASE >=USR )[L]SIN >=USR ) LINE [C]>=USR ) RANDOMIZE r>=USR )(C>=USR )W#>=USR )▚>=USR )ASN >=USR ) DATA >=USR )>=USR )B>=USR ) OUT >=USR )XNOT OUT LET >=USR ▜NOT ACS COS = STOP >=USR RESTORE [T]l ERASE >=USR [E][L]SIN >=USR XNOT LINE [C]>= ▜NOT RANDOMIZE r>= ACS COS (C>= RESTORE [T]W#>= [E]▚>= XNOT OUT LET >= ▜NOT ACS COS = STOP >= RESTORE [T]l ERASE >= [E][L]SIN >= XNOT LINE [C]>=P ▜NOT RANDOMIZE r>=P ACS COS (C>=P RESTORE [T]W#>=P [E]▚>=P XNOT OUT LET >=P ▜NOT ACS COS = STOP >=P RESTORE [T]l ERASE >=P [E][L]SIN >=P XNOT OUT LET [A] MOVE ▜NOT ACS COS = STOP [A]STR$ RESTORE [T]l ERASE [A]STR$ [E][L]SIN [A]STR$ XNOT OUT LET [A]STR$ ▜NOT XNOT OUT LET [A]▝ ▜NOT ACS COS = STOP [A]▝ RESTORE [T]l ERASE [A]▝ [E][L]SIN [A]▝ LPRINT ( NEXT , SAVE LPRINT ( NEXT ,8 LPRINT ( READ ,8 LPRINT FN READ , CIRCLE TO FN READ ,LN FN OPEN #,[U]FN OPEN #,[A]FN OPEN #,|LN OPEN #, SAVE hFN OPEN #,8TFN NOT ,8@FN NOT ,8,FN NOT ,8FN NOT , CIRCLE FN NOT , INPUT PI NOT , CIRCLE PI NOT , AND PI COS ,TAN ATN COS , SAVE [Q]ATN COS ,8ATN COS ,8xATN COS ,8dPI COS ,8N<= COS ,88<= COS ,8&<= [T],8<= [T],8<= [T],8 LIST AND [T],x PAPER AND [T],8BIN AND [T],8VAL AND [T],8[K] AND [T],8▗ AND [T],8r AND [D],8` AND [D],8N AND [D],8D AND [D],8B AND [D],x@ AND [D],8> AND [D],8< AND [D],8> AND [D], CIRCLE @ AND [D],B AND [D],D AND ,B AND ,@ AND , SAVE @ AND ,8> AND ,8< AND ,8B AND ,8D AND ,8@ AND ,xB AND , CIRCLE @ AND ,> AND , SAVE < AND ,x> AND ,< AND ,@ AND , CIRCLE B AND ,xD AND ,x< AND , CIRCLE B AND , SAVE > AND >= LPRINT ,x< AND >= LPRINT ,8> AND >= LPRINT ,8@ AND >= LPRINT ,8B AND >= LPRINT ,8D AND FN LPRINT , CIRCLE B AND FN LPRINT ,@ AND FN LPRINT ,> AND FN LPRINT ,< AND LPRINT , SAVE > AND LPRINT ,8@ AND LPRINT ,8B AND LPRINT ,8D AND LPRINT ,8B AND d LPRINT , CIRCLE @ AND d LPRINT ,> AND d LPRINT ,< AND d LPRINT ,> AND T LPRINT , SAVE @ AND T LPRINT ,8B AND T LPRINT ,8D AND T LPRINT ,8@ AND d LPRINT ,8> AND d LPRINT ,8< AND d LPRINT ,8@ AND LPRINT ,x@ AND FN LPRINT ,8> AND FN LPRINT ,8< AND FN LPRINT ,8B AND LPRINT ,x> AND d LPRINT , CIRCLE B AND d LPRINT ,D AND T LPRINT , SAVE > AND T LPRINT ,8< AND B LPRINT ,8> AND B LPRINT ,8@ AND B LPRINT ,8B AND B LPRINT ,8D AND B LPRINT ,8B AND 2 LPRINT ,x@ AND 2 LPRINT ,8> AND 2 LPRINT ,8< AND 2 LPRINT ,8> AND B LPRINT , CIRCLE @ AND B LPRINT ,B AND B LPRINT ,D AND B LPRINT ,@ AND T LPRINT , SAVE < AND T LPRINT ,8B AND d LPRINT ,8D AND d LPRINT ,8@ AND >= LPRINT ,xB AND FN LPRINT , CIRCLE D AND FN LPRINT ,> AND LPRINT , SAVE < AND LPRINT ,8D AND d LPRINT , CIRCLE < AND T LPRINT , SAVE > AND LPRINT ,x@ AND d LPRINT , CIRCLE B AND T LPRINT , SAVE @ VERIFY 2 LPRINT ,x4 VERIFY 2 LPRINT ,8( VERIFY 2 LPRINT ,8 VERIFY 2 LPRINT ,8 VERIFY 2 LPRINT ,8 NEW B LPRINT , CIRCLE SAVE MERGE B LPRINT , GO TO MERGE B LPRINT , LPRINT MERGE B LPRINT , CLOSE # MERGE B LPRINT ,>= MERGE T LPRINT , SAVE SGN MERGE T LPRINT ,8VAL$ MERGE T LPRINT ,8[Q] MERGE T LPRINT ,8[G] MERGE T LPRINT ,8ASN d LPRINT ,8ASN d LPRINT ,8tASN d LPRINT ,8hASN d LPRINT ,8/RNDd LPRINT ,8XFN LLIST LINE SAVE XFN LLIST LINE 8XLN LLIST LPRINT LINE CIRCLE XFN LLIST LPRINT LINE XFN SIN LPRINT LINE SAVE XFN SIN LPRINT LINE 8VFN SIN LPRINT LINE 8TFN SIN LPRINT LINE 8XLN LPRINT LINE CIRCLE XLN LPRINT LINE XFN LPRINT LINE VLN p LPRINT LINE SAVE TLN p LPRINT LINE 8VLN p LPRINT LINE 8XLN p LPRINT LINE 8ZLN p LPRINT LINE 8/>= LPRINT LINE 8Z>= LPRINT LINE 8X>= LPRINT LINE 8V>= LPRINT LINE 8T>=SIN LPRINT LINE xV>=SIN LPRINT LINE 8X>=SIN LPRINT LINE 8Z>=SIN LPRINT LINE 8/>=SIN LPRINT LINE 8Z>= LLIST LPRINT LINE 8X>= LLIST LPRINT LINE 8V>= LLIST LPRINT LINE 8T>= LLIST LPRINT LINE 8V>=SIN LPRINT LINE xX>= LPRINT LINE CIRCLE X>= LPRINT LINE V>= LPRINT LINE T>= LPRINT LINE X>=p LPRINT LINE SAVE Z>=p LPRINT LINE 8/>=p LPRINT LINE 8X>=p LPRINT LINE 8X>=Y LPRINT LINE 8V>=Y LPRINT LINE 8T>=Y LPRINT LINE 8Z>=B LPRINT LINE x/>=B LPRINT LINE 8Z>=B LPRINT LINE 8X>=B LPRINT LINE 8V>=Y LPRINT LINE CIRCLE T>=Y LPRINT LINE V>=Y LPRINT LINE X>=Y LPRINT LINE Z>=Y LPRINT LINE />=p LPRINT LINE SAVE V>=p LPRINT LINE 8T>= LPRINT LINE 8Z>= LLIST LINE xX>= LLIST LINE 8V>= LLIST LINE 8T>= LLIST LINE 8V>= LLIST LPRINT LINE CIRCLE X>= LLIST LPRINT LINE Z>= LLIST LPRINT LINE />= LLIST LPRINT LINE X>=SIN LPRINT LINE SAVE T>=SIN LPRINT LINE 8Z>= LPRINT LINE />= LPRINT LINE T>=p LPRINT LINE 8/>= LLIST LPRINT LINE 8Z>= LPRINT LINE CIRCLE V>=p LPRINT LINE SAVE XFN B LPRINT LINE xZFN B LPRINT LINE 8/FN B LPRINT LINE 8XFN B LPRINT LINE 8XLN Y LPRINT LINE CIRCLE VLN Y LPRINT LINE TLN Y LPRINT LINE XLN Y LPRINT LINE Z>=p LPRINT LINE SAVE VFN LPRINT LINE 8TFN LPRINT LINE 8XFN LPRINT LINE 8ZFN LPRINT LINE 8`POINT , LLIST SAVE `POINT , LLIST 8`EXP DRAW LPRINT CIRCLE `POINT DRAW LPRINT `POINT >= LPRINT SAVE `POINT >= LPRINT 8^POINT >= LPRINT 8/POINT >= LPRINT 8`EXP [G] LPRINT CIRCLE `EXP [G] LPRINT `POINT [G] LPRINT ^EXP ~ LPRINT SAVE /EXP ~ LPRINT 8^EXP ~ LPRINT 8`EXP ~ LPRINT 8bEXP ~ LPRINT 8d<>[G] LPRINT 8b<>[G] LPRINT 8`<>[G] LPRINT 8^<>[G] LPRINT 8/<>>= LPRINT x^<>>= LPRINT 8`<>>= LPRINT 8b<>>= LPRINT 8d<>>= LPRINT 8b<> DRAW LPRINT 8`<> DRAW LPRINT 8^<> DRAW LPRINT 8/<> DRAW LPRINT 8^<>>= LPRINT x`<>[G] LPRINT CIRCLE `<>[G] LPRINT ^<>[G] LPRINT /<>[G] LPRINT `<>~ LPRINT SAVE b<>~ LPRINT 8d<>~ LPRINT 8`<>~ LPRINT 8`<>d LPRINT 8^<>d LPRINT 8/<>d LPRINT 8b<>K LPRINT xd<>K LPRINT 8b<>K LPRINT 8`<>K LPRINT 8^<>d LPRINT CIRCLE /<>d LPRINT ^<>d LPRINT `<>d LPRINT b<>d LPRINT d<>~ LPRINT SAVE ^<>~ LPRINT 8/<>[G] LPRINT 8b<>, LLIST x`<>, LLIST 8^<>, LLIST 8/<>, LLIST 8^<> DRAW LPRINT CIRCLE `<> DRAW LPRINT b<> DRAW LPRINT d<> DRAW LPRINT `<>>= LPRINT SAVE /<>>= LPRINT 8b<>[G] LPRINT d<>[G] LPRINT /<>~ LPRINT 8d<> DRAW LPRINT 8/<>>= LPRINT xb<>[G] LPRINT CIRCLE ^<>~ LPRINT SAVE ` INK K LPRINT xl INK K LPRINT 8x INK K LPRINT 8▗ INK K LPRINT 8[A] INK K LPRINT 8[M] DIM d LPRINT CIRCLE FN INK d LPRINT TAN INK d LPRINT USR INK d LPRINT TO INK d LPRINT CIRCLE INK ~ LPRINT SAVE DATA INK ~ LPRINT 8 INPUT INK ~ LPRINT 8 SAVE INK ~ LPRINT 8 PAPER ~ LPRINT 8INT [G] LPRINT 8 INT [G] LPRINT 8,INT [G] LPRINT 88INT [G] LPRINT 8DSCREEN$ [G] LPRINT 8VAL$ LLIST LPRINT VAL SAVE VAL$ LLIST LPRINT VAL 8PEEK ABS LPRINT VAL CIRCLE VAL$ ABS LPRINT VAL VAL$ [G] LPRINT VAL SAVE VAL$ [G] LPRINT VAL 88VAL$ [G] LPRINT VAL 8PEEK p LPRINT VAL CIRCLE PEEK p LPRINT VAL VAL$ p LPRINT VAL SAVE PEEK ^ LPRINT VAL 88PEEK ^ LPRINT VAL 8PEEK ^ LPRINT VAL 8 DEF FN p LPRINT VAL 8 DEF FN p LPRINT VAL 8 DEF FN p LPRINT VAL 88 DEF FN [G] LPRINT VAL x8 DEF FN [G] LPRINT VAL 8 DEF FN [G] LPRINT VAL 8 DEF FN [G] LPRINT VAL 8 DEF FN ABS LPRINT VAL 8 DEF FN ABS LPRINT VAL 88 DEF FN ABS LPRINT VAL 8x DEF FN p LPRINT VAL CIRCLE DEF FN p LPRINT VAL DEF FN p LPRINT VAL DEF FN ^ LPRINT VAL SAVE DEF FN ^ LPRINT VAL 8 DEF FN ^ LPRINT VAL 8 DEF FN ^ LPRINT VAL 8 DEF FN K LPRINT VAL 88 DEF FN K LPRINT VAL 8 DEF FN 8 LPRINT VAL x DEF FN 8 LPRINT VAL 8 DEF FN 8 LPRINT VAL 8 DEF FN 8 LPRINT VAL 8 CIRCLE DEF FN K LPRINT VAL DEF FN K LPRINT VAL DEF FN K LPRINT VAL DEF FN ^ LPRINT VAL SAVE 8 DEF FN p LPRINT VAL 8 DEF FN LLIST LPRINT VAL x DEF FN LLIST LPRINT VAL 88 DEF FN LLIST LPRINT VAL 8 CIRCLE DEF FN ABS LPRINT VAL DEF FN ABS LPRINT VAL DEF FN ABS LPRINT VAL DEF FN [G] LPRINT VAL SAVE DEF FN [G] LPRINT VAL 8 DEF FN p LPRINT VAL DEF FN p LPRINT VAL DEF FN ^ LPRINT VAL 8x DEF FN ABS LPRINT VAL 8 DEF FN p LPRINT VAL CIRCLE SAVE VAL$ 8 LPRINT VAL xVAL$ 8 LPRINT VAL 8VAL$ 8 LPRINT VAL 8VAL$ 8 LPRINT VAL 8PEEK K LPRINT VAL CIRCLE PEEK K LPRINT VAL PEEK K LPRINT VAL DEF FN ^ LPRINT VAL SAVE VAL$ [G] LPRINT VAL 8`TAB VERIFY LPRINT p SAVE `TAB VERIFY LPRINT p8`ABS SIN LPRINT p CIRCLE `TAB SIN LPRINT p`TAB ▙ LPRINT p SAVE `TAB ▙ LPRINT p8^TAB ▙ LPRINT p8/TAB ▙ LPRINT p8`ABS k LPRINT p CIRCLE `ABS k LPRINT p`TAB k LPRINT p^ABS Y LPRINT p SAVE /ABS Y LPRINT p8^ABS Y LPRINT p8`ABS Y LPRINT p8bABS Y LPRINT p8d STEP k LPRINT p8b STEP k LPRINT p8` STEP k LPRINT p8^ STEP k LPRINT p8/ STEP ▙ LPRINT px^ STEP ▙ LPRINT p8` STEP ▙ LPRINT p8b STEP ▙ LPRINT p8d STEP ▙ LPRINT p8b STEP SIN LPRINT p8` STEP SIN LPRINT p8^ STEP SIN LPRINT p8/ STEP SIN LPRINT p8^ STEP ▙ LPRINT px` STEP k LPRINT p CIRCLE ` STEP k LPRINT p^ STEP k LPRINT p/ STEP k LPRINT p` STEP Y LPRINT p SAVE b STEP Y LPRINT p8d STEP Y LPRINT p8` STEP Y LPRINT p8` STEP G LPRINT p8^ STEP G LPRINT p8/ STEP G LPRINT p8b STEP 5 LPRINT pxd STEP 5 LPRINT p8b STEP 5 LPRINT p8` STEP 5 LPRINT p8^TAB G LPRINT p CIRCLE /TAB G LPRINT p^TAB G LPRINT p`TAB G LPRINT pbTAB G LPRINT pdABS Y LPRINT p SAVE /TAB k LPRINT p8^TAB k LPRINT p8`TAB k LPRINT p8bTAB k LPRINT p8dTAB k LPRINT p8XLN VERIFY LPRINT LINE CIRCLE XFN VERIFY LPRINT LINE VLN k LPRINT LINE SAVE TLN k LPRINT LINE 8VLN k LPRINT LINE 8XLN k LPRINT LINE 8ZLN k LPRINT LINE 8Z>= VERIFY LPRINT LINE 8X>= VERIFY LPRINT LINE 8V>= VERIFY LPRINT LINE 8T>= VERIFY LPRINT LINE 8X>=k LPRINT LINE SAVE Z>=k LPRINT LINE 8/>=k LPRINT LINE 8X>=k LPRINT LINE 8VFN Y LPRINT LINE CIRCLE TFN Y LPRINT LINE VFN Y LPRINT LINE XFN Y LPRINT LINE ZFN Y LPRINT LINE /LN k LPRINT LINE SAVE /FN LPRINT LINE 8AT >= LPRINT , SAVE AT >= LPRINT ,8SGN FN LPRINT , CIRCLE AT FN LPRINT ,AT LPRINT , SAVE AT LPRINT ,8~AT LPRINT ,8|AT LPRINT ,8SGN d LPRINT , CIRCLE SGN d LPRINT ,AT d LPRINT ,~SGN T LPRINT , SAVE |SGN T LPRINT ,8~SGN T LPRINT ,8SGN T LPRINT ,8▘SGN T LPRINT ,8▗ TO d LPRINT ,8▘ TO d LPRINT ,8 TO d LPRINT ,8~ TO d LPRINT ,8| TO LPRINT ,x~ TO LPRINT ,8 TO LPRINT ,8▘ TO LPRINT ,8▗ TO LPRINT ,8▘ TO FN LPRINT ,8 TO FN LPRINT ,8~ TO FN LPRINT ,8| TO FN LPRINT ,8~ TO LPRINT ,x TO d LPRINT , CIRCLE TO d LPRINT ,~ TO d LPRINT ,| TO d LPRINT , TO T LPRINT , SAVE ▘ TO T LPRINT ,8▗ TO T LPRINT ,8 TO T LPRINT ,8 TO B LPRINT ,8~ TO B LPRINT ,8| TO B LPRINT ,8▘ TO 2 LPRINT ,x▗ TO 2 LPRINT ,8▘ TO 2 LPRINT ,8 TO 2 LPRINT ,8~ TO B LPRINT , CIRCLE | TO B LPRINT ,~ TO B LPRINT , TO B LPRINT ,▘ TO B LPRINT ,▗ TO T LPRINT , SAVE ~ TO T LPRINT ,8| TO d LPRINT ,8▘ TO >= LPRINT ,x TO >= LPRINT ,8~ TO >= LPRINT ,8| TO >= LPRINT ,8~ TO FN LPRINT , CIRCLE TO FN LPRINT ,▘ TO FN LPRINT ,▗ TO FN LPRINT , TO LPRINT , SAVE | TO LPRINT ,8▘ TO d LPRINT ,▗ TO d LPRINT ,| TO T LPRINT ,8▗ TO FN LPRINT ,8▘ TO d LPRINT , CIRCLE ~ TO T LPRINT , SAVE TO 2 LPRINT ,xAT B LPRINT , CIRCLE ~AT B LPRINT ,|AT B LPRINT ,AT B LPRINT ,▘SGN T LPRINT , SAVE ▗SGN T LPRINT ,8~AT d LPRINT ,8|AT d LPRINT ,8AT d LPRINT ,8▘AT d LPRINT ,8 CIRCLE ATTR ABS LPRINT CLEAR SAVE CIRCLE ATTR ABS LPRINT CLEAR 8 CIRCLE SQR [P] LPRINT CLEAR CIRCLE CIRCLE ATTR [P] LPRINT CLEAR CIRCLE ATTR ~ LPRINT CLEAR SAVE CIRCLE ATTR ~ LPRINT CLEAR 8 VERIFY ATTR ~ LPRINT CLEAR 8 CLOSE #ATTR ~ LPRINT CLEAR 8 CIRCLE SQR ^ LPRINT CLEAR CIRCLE CIRCLE SQR ^ LPRINT CLEAR CIRCLE ATTR ^ LPRINT CLEAR VERIFY SQR O LPRINT CLEAR SAVE CLOSE #SQR O LPRINT CLEAR 8 VERIFY SQR O LPRINT CLEAR 8 CIRCLE SQR O LPRINT CLEAR 8 PAPER SQR O LPRINT CLEAR 8 BRIGHT THEN ^ LPRINT CLEAR 8 PAPER THEN ^ LPRINT CLEAR 8 CIRCLE THEN ^ LPRINT CLEAR 8 VERIFY THEN ^ LPRINT CLEAR 8 CLOSE # THEN ~ LPRINT CLEAR x VERIFY THEN ~ LPRINT CLEAR 8 CIRCLE THEN ~ LPRINT CLEAR 8 PAPER THEN ~ LPRINT CLEAR 8 BRIGHT THEN ~ LPRINT CLEAR 8 PAPER THEN [P] LPRINT CLEAR 8 CIRCLE THEN [P] LPRINT CLEAR 8 VERIFY THEN [P] LPRINT CLEAR 8 CLOSE # THEN [P] LPRINT CLEAR 8 VERIFY THEN ~ LPRINT CLEAR x CIRCLE THEN ^ LPRINT CLEAR CIRCLE CIRCLE THEN ^ LPRINT CLEAR VERIFY THEN ^ LPRINT CLEAR CLOSE # THEN ^ LPRINT CLEAR CIRCLE THEN O LPRINT CLEAR SAVE PAPER THEN O LPRINT CLEAR 8 BRIGHT THEN O LPRINT CLEAR 8 CIRCLE THEN O LPRINT CLEAR 8 CIRCLE THEN ? LPRINT CLEAR 8 VERIFY THEN ? LPRINT CLEAR 8 CLOSE # THEN ? LPRINT CLEAR 8 PAPER THEN / LPRINT CLEAR x BRIGHT THEN / LPRINT CLEAR 8 PAPER THEN / LPRINT CLEAR 8 CIRCLE THEN / LPRINT CLEAR 8 VERIFY ATTR ? LPRINT CLEAR CIRCLE CLOSE #ATTR ? LPRINT CLEAR VERIFY ATTR ? LPRINT CLEAR CIRCLE ATTR ? LPRINT CLEAR PAPER ATTR ? LPRINT CLEAR BRIGHT SQR O LPRINT CLEAR SAVE CLOSE #ATTR ^ LPRINT CLEAR 8 VERIFY ATTR ^ LPRINT CLEAR 8 CIRCLE ATTR ^ LPRINT CLEAR 8 PAPER ATTR ^ LPRINT CLEAR 8 BRIGHT ATTR ^ LPRINT CLEAR 8 LIST POINT [P] LPRINT X SAVE LIST POINT [P] LPRINT X8 LIST EXP LPRINT X CIRCLE LIST POINT LPRINT X LIST POINT k LPRINT X SAVE LIST POINT k LPRINT X8 INPUT POINT k LPRINT X8 GO TO POINT k LPRINT X8 LIST EXP O LPRINT X CIRCLE LIST EXP O LPRINT X LIST POINT O LPRINT X INPUT EXP B LPRINT X SAVE GO TO EXP B LPRINT X8 INPUT EXP B LPRINT X8 LIST EXP B LPRINT X8 PAUSE EXP B LPRINT X8 POKE <>O LPRINT X8 PAUSE <>O LPRINT X8 LIST <>O LPRINT X8 INPUT <>O LPRINT X8 GO TO <>k LPRINT Xx INPUT <>k LPRINT X8 LIST <>k LPRINT X8 PAUSE <>k LPRINT X8 POKE <>k LPRINT X8 PAUSE <> LPRINT X8 LIST <> LPRINT X8 INPUT <> LPRINT X8 GO TO <> LPRINT X8 INPUT <>k LPRINT Xx LIST <>O LPRINT X CIRCLE LIST <>O LPRINT X INPUT <>O LPRINT X GO TO <>O LPRINT X LIST <>B LPRINT X SAVE PAUSE <>B LPRINT X8 POKE <>B LPRINT X8 LIST <>B LPRINT X8 LIST <>5 LPRINT X8 INPUT <>5 LPRINT X8 GO TO <>5 LPRINT X8 PAUSE <>' LPRINT Xx POKE <>' LPRINT X8 PAUSE <>' LPRINT X8 LIST <>' LPRINT X8 INPUT POINT 5 LPRINT X CIRCLE GO TO POINT 5 LPRINT X INPUT POINT 5 LPRINT X LIST POINT 5 LPRINT X PAUSE POINT 5 LPRINT X POKE EXP B LPRINT X SAVE GO TO POINT O LPRINT X8 INPUT POINT O LPRINT X8 LIST POINT O LPRINT X8 PAUSE POINT O LPRINT X8 POKE POINT O LPRINT X8`POINT [G] LPRINT SAVE `POINT [G] LPRINT 8`EXP ~ LPRINT CIRCLE `POINT ~ LPRINT `POINT d LPRINT SAVE `POINT d LPRINT 8^POINT d LPRINT 8/POINT d LPRINT 8`EXP K LPRINT CIRCLE `EXP K LPRINT `POINT K LPRINT ^EXP ? LPRINT SAVE /EXP ? LPRINT 8^EXP ? LPRINT 8`EXP ? LPRINT 8bEXP ? LPRINT 8^<>K LPRINT 8/<>d LPRINT xb<>d LPRINT 8d<>d LPRINT 8^<>d LPRINT x`<>K LPRINT CIRCLE `<>K LPRINT ^<>K LPRINT /<>K LPRINT `<>? LPRINT SAVE b<>? LPRINT 8d<>? LPRINT 8`<>? LPRINT 8`<>2 LPRINT 8^<>2 LPRINT 8/<>2 LPRINT 8b<>% LPRINT xd<>% LPRINT 8b<>% LPRINT 8`<>% LPRINT 8^<>2 LPRINT CIRCLE /<>2 LPRINT ^<>2 LPRINT `<>2 LPRINT b<>2 LPRINT d<>? LPRINT SAVE ^<>? LPRINT 8/<>K LPRINT 8b<>>= LPRINT x^<>[G] LPRINT CIRCLE `<>d LPRINT CIRCLE d<>d LPRINT `<>K LPRINT SAVE ^<>~ LPRINT x/<>~ LPRINT xb<>d LPRINT CIRCLE ^<>K LPRINT SAVE /<>? LPRINT 8`<>2 LPRINT xb<>2 LPRINT 8d<>2 LPRINT 8`<>? LPRINT CIRCLE ^<>? LPRINT /<>? LPRINT `<>? LPRINT b<>K LPRINT SAVE d<>[G] LPRINT x/<>~ LPRINT CIRCLE ^<>~ LPRINT `<>~ LPRINT b<>~ LPRINT d<>~ LPRINT b<>d LPRINT SAVE ^<>K LPRINT CIRCLE b<>K LPRINT d<>K LPRINT `<>d LPRINT x^<>d FORMAT x/<>d FORMAT 8^<>d FORMAT 8`<>d FORMAT 8b<>d FORMAT 8d<>K FORMAT CIRCLE b<>K FORMAT `<>K FORMAT ^<>K FORMAT /<>? FORMAT SAVE ^<>? FORMAT 8`<>? FORMAT 8b<>? FORMAT 8d<>? FORMAT 8b<>2 FORMAT 8`<>2 FORMAT 8^<>2 FORMAT 8/<>2 FORMAT 8^<>% FORMAT x`<>% FORMAT 8b<>% FORMAT 8d<>% FORMAT 8`<>2 FORMAT CIRCLE `<>2 FORMAT ^<>2 FORMAT /<>2 FORMAT `<>? FORMAT SAVE `<>K FORMAT 8^<>K FORMAT 8/<>K FORMAT 8b<>[G]USR xd<>[G]USR 8b<>[G]USR 8`<>[G]USR 8^<>~USR CIRCLE /<>~USR ^<>~USR `<>~USR b<>~USR d<>dUSR SAVE b<>dUSR 8`<>dUSR 8^<>dUSR 8/<>KUSR CIRCLE ^<>KUSR `<>KUSR b<>KUSR d<>KUSR b<>?VAL SAVE `<>?VAL 8^<>?VAL 8/<>?VAL 8^<>KVAL 8`<>KVAL 8b<>KVAL 8d<>KVAL 8`EXP dVAL x`EXP dVAL 8^EXP dVAL 8/EXP dVAL 8`POINT ~VAL CIRCLE bPOINT ~VAL dPOINT ~VAL `POINT ~VAL `POINT d[Q] SAVE ^POINT d[Q] 8/POINT d[Q] 8`POINT d[Q] 8b[J]K[Q] CIRCLE d[J]K[Q] b[J]K[Q] `[J]K[Q] ^▞?[A] SAVE /▞?[A] 8^▞?[A] 8`▞?[A] 8b▞?[A] 8dy2[A] 8by2[A] 8`y2[A] 8^y2[A] 8/i% x^i% 8`i% 8bi% 8di% 8bi2 CIRCLE `i2 ^i2 /i2 ^Y?p SAVE `Y?p 8bY?p 8dY?p 8`IKp CIRCLE `IKp ^IKp /IKp OUT NEXT K CONTINUE OUT RESTORE K ( OUT BEEP K ( OUT EXP K ( OUT ▛K (AT STR$ K STR$ AT [R]K AT ▝K AT aK AT AK AT MOVE K LLIST AT MOVE K !AT STR$ K !AT LEN K !AT MOVE K STR$ AT 1K AT !K AT K AT [R]K !AT ▝K !AT aK !AT AK !AT MOVE K aAT 1K !AT !K !AT K ! OUT NEXT K h OUT MOVE K STR$ OUT ▝K OUT 1K OUT !K OUT K OUT MOVE K a OUT MOVE K ! OUT STR$ K ! OUT LEN K ! OUT NEXT VAL POKE SAVE OUT RESTORE VAL POKE 8 OUT BEEP VAL POKE 8 OUT EXP VAL POKE 8 OUT ▛VAL POKE 8AT STR$ VAL POKE MOVE AT [R]VAL DATA AT ▝VAL DATA AT aVAL DATA AT AVAL DATA AT MOVE VAL CLOSE # LET AT MOVE LOAD CLOSE # 1AT STR$ , MERGE 1AT STR$ i MERGE 1AT LEN SCREEN$ MERGE 1AT MOVE FOR MERGE MOVE AT ▝* VERIFY AT 1i VERIFY AT !FN VERIFY AT BORDER AND AT STR$ VAL POKE 1AT [R]VAL DATA 1AT ▝VAL DATA 1AT aVAL DATA 1AT AVAL DATA 1AT MOVE VAL CLOSE # qAT MOVE FOR MERGE 1AT ▝* VERIFY 1AT 1i VERIFY 1AT !FN VERIFY 1AT BORDER AND 1 OUT NEXT D PRINT x OUT RESTORE D PRINT 8 OUT BEEP D PRINT 8 OUT EXP D PRINT 8 OUT ▛D PRINT 8AT STR$ D PRINT MOVE AT [R]D RESTORE AT ▝D RESTORE AT aD RESTORE AT AD RESTORE AT MOVE D PRINT LET AT MOVE PRINT 1AT STR$ LPRINT POKE 1AT STR$ VAL$ POKE 1AT LEN | POKE 1AT MOVE J POKE 1AT ▝ DATA 1AT 1 CLEAR READ 1AT ! CLEAR READ 1AT CLEAR READ 1 OUT NEXT CLEAR OPEN # x OUT RESTORE CLEAR OPEN # 8 OUT BEEP CLS OPEN # 8 OUT EXP RANDOMIZE OPEN # 8 OUT ▛ CLS OPEN # 8AT STR$ CLEAR OPEN # MOVE AT [R] CLEAR OPEN # AT ▝ CLEAR OPEN # AT a CLEAR OPEN # AT A CLEAR NOT AT MOVE D PRINT 1AT STR$ D PRINT 1AT LEN D PRINT 1AT ▝D RESTORE 1AT 1D RESTORE 1AT !D RESTORE 1AT D RESTORE 1 OUT NEXT VAL POKE xAT MOVE VAL CLOSE # 1AT STR$ VAL$ CLOSE # 1AT STR$ AT CLOSE # 1AT LEN VAL$ CLOSE # 1AT MOVE VAL CLOSE # MOVE AT ▝VAL CLOSE # AT 1VAL CLOSE # AT !VAL CLOSE # AT VAL BIN OUT MOVE FOR MERGE MOVE OUT ▝* VERIFY OUT 1i VERIFY OUT !FN VERIFY OUT BORDER AND OUT NEXT D PRINT SAVE AT MOVE D PRINT MOVE AT ▝ PRINT AT 1 LPRINT POKE AT !VAL$ POKE AT | POKE OUT NEXT J POKE SAVE OUT RESTORE DATA 8 OUT BEEP CLEAR READ 8 OUT EXP CLEAR READ 8 OUT ▛ CLEAR READ 8AT STR$ CLEAR OPEN # 1AT [R] CLEAR OPEN # 1AT ▝ CLS OPEN # 1AT a RANDOMIZE OPEN # 1AT A CLS OPEN # 1 OUT MOVE CLEAR OPEN # q OUT MOVE CLEAR OPEN # 1 OUT STR$ CLEAR OPEN # 1 OUT LEN CLEAR NOT 1AT MOVE CLS NOT MOVE AT ▝ RANDOMIZE NOT AT 1 CLS NOT AT ! CLEAR NOT AT COPY NOT AT 1D RESTORE AT !D RESTORE AT D RESTORE AT ▝VAL CLOSE # 1AT 1VAL CLOSE # 1AT !VAL CLOSE # 1AT VAL BIN 1 OUT RESTORE PRINT 8 OUT BEEP LPRINT POKE 8 OUT EXP VAL$ POKE 8 OUT ▛| POKE 8AT STR$ J POKE 1AT [R] DATA 1AT ▝ CLEAR READ 1AT a CLEAR READ 1AT A CLEAR READ 1 OUT STR$ CLS OPEN # 1 OUT STR$ RANDOMIZE OPEN # 1 OUT LEN CLS OPEN # 1AT MOVE CLEAR OPEN # MOVE AT 1 CLEAR OPEN # AT ! CLEAR OPEN # AT CLEAR NOT AT [G] LIST AT [P] LIST AT FN LIST /SGN DEF FN USR USR USR USR USR USR USR USR USR USR USR USR USR USR USR USR USR USR USR (USR (USR (USR (USR 0USR 0USR 0USR 0USR 8USR 8USR 8USR 8USR @USR @USR @USR @USR HUSR HUSR HUSR HUSR PUSR PUSR PUSR PUSR XUSR XUSR XUSR XUSR `USR `USR `USR `USR hUSR hUSR hUSR hUSR pUSR pUSR pUSR pUSR xUSR xUSR xUSR xUSR USR USR USR USR ▖USR ▖USR ▖USR ▖USR [A]USR [A]USR [A]USR [A]USR [I]USR [I]USR [I]USR [I]USR [Q]USR [Q]USR [Q]USR [Q]USR FN USR FN USR FN USR FN USR VAL USR VAL USR VAL USR VAL USR LN USR LN USR LN USR LN USR USR USR USR USR USR USR USR USR >=USR >=USR >=USR >=USR FORMAT USR FORMAT USR FORMAT USR FORMAT USR CIRCLE USR CIRCLE USR CIRCLE USR CIRCLE USR LPRINT USR LPRINT USR LPRINT USR LPRINT USR CONTINUE USR CONTINUE USR CONTINUE USR CONTINUE USR LIST USR LIST USR LIST USR LIST USR CONTINUE USR CONTINUE USR CONTINUE USR CONTINUE USR LPRINT USR LPRINT USR LPRINT USR LPRINT USR CIRCLE USR CIRCLE USR CIRCLE USR CIRCLE USR FORMAT USR FORMAT USR FORMAT USR FORMAT USR >=USR >=USR >=USR >=USR USR USR USR USR USR USR USR USR LN USR LN USR LN USR LN USR VAL USR VAL USR VAL USR VAL USR FN USR FN USR FN USR FN USR [Q]USR [Q]USR [Q]USR [Q]USR [I]USR [I]USR [I]USR [I]USR [A]USR [A]USR [A]USR [A]USR ▖USR ▖USR ▖USR ▖USR USR USR USR USR xUSR xUSR xUSR xUSR pUSR pUSR pUSR pUSR hUSR hUSR hUSR hUSR `USR `USR `USR `USR XUSR XUSR XUSR XUSR PUSR PUSR PUSR PUSR HUSR HUSR HUSR HUSR @USR @USR @USR @USR SAVE USR STR$ STR$ STR$ STR$ STR$ (STR$ 0STR$ 8STR$ @STR$ HSTR$ HSTR$ HSTR$ HSTR$ HSTR$ PSTR$ XSTR$ `STR$ hSTR$ pSTR$ xSTR$ STR$ ▖STR$ [A]STR$ [I]STR$ [Q]STR$ [Q]STR$ [Q]STR$ [Q]STR$ [Q]STR$ FN STR$ VAL STR$ LN STR$ USR STR$ >=STR$ FORMAT STR$ CIRCLE STR$ LPRINT STR$ CONTINUE STR$ LIST STR$ SAVE STR$ SAVE STR$ SAVE STR$ SAVE STR$ SAVE STR$ CHR$ CHR$ CHR$ CHR$ CHR$ (CHR$ 0CHR$ 8CHR$ @CHR$ HCHR$ PCHR$ XCHR$ `CHR$ `CHR$ hCHR$ XCHR$ pCHR$ xCHR$ CHR$ ▖CHR$ [A]CHR$ [I]CHR$ [Q]CHR$ FN CHR$ VAL CHR$ LN CHR$ USR CHR$ >=CHR$ FORMAT CHR$ CIRCLE CHR$ LPRINT CHR$ CONTINUE CHR$ (CHR$ (CHR$ LIST CHR$ CONTINUE CHR$ 8CHR$ SAVE CHR$ NOT NOT NOT CHR$ CHR$ CHR$ CHR$ (CHR$ 0CHR$ 8CHR$ @CHR$ HCHR$ CONTINUE CHR$ CONTINUE CHR$ (CHR$ (CHR$ LIST CHR$ CONTINUE CHR$ 8CHR$ SAVE CHR$ NOT NOT NOT NOT (NOT 0NOT 8NOT @NOT HNOT PNOT XNOT `NOT hNOT pNOT xNOT xNOT NOT pNOT ▖NOT [A]NOT [I]NOT [Q]NOT CHR$ CHR$ CHR$ CHR$ CHR$ (CHR$ 0CHR$ 8CHR$ @CHR$ HCHR$ PCHR$ XCHR$ `CHR$ `CHR$ hCHR$ XCHR$ pCHR$ xCHR$ CHR$ ▖CHR$ [A]CHR$ [I]CHR$ [Q]CHR$ FN CHR$ VAL CHR$ LN CHR$ USR CHR$ >=CHR$ FORMAT CHR$ CIRCLE CHR$ LPRINT CHR$ CONTINUE CHR$ (CHR$ (CHR$ LIST CHR$ FN NOT VAL NOT LN NOT USR NOT >=NOT NOT CHR$ CHR$ CHR$ CHR$ (CHR$ 0CHR$ 8CHR$ @CHR$ HCHR$ FN NOT FN NOT FORMAT NOT FORMAT NOT CIRCLE NOT CONTINUE CHR$ 8CHR$ SAVE CHR$ NOT NOT LPRINT NOT CHR$ CHR$ CHR$ CHR$ (CHR$ 0CHR$ 8CHR$ @CHR$ HCHR$ FN NOT FN NOT FORMAT NOT FORMAT NOT CIRCLE NOT CONTINUE CHR$ 8CHR$ SAVE CHR$ NOT NOT NOT CHR$ CHR$ CHR$ CHR$ (CHR$ 0CHR$ 8CHR$ @CHR$ HCHR$ PCHR$ XCHR$ `CHR$ `CHR$ hCHR$ XCHR$ pCHR$ xCHR$ CHR$ ▖CHR$ [A]CHR$ [I]CHR$ [Q]CHR$ FN CHR$ VAL CHR$ LN CHR$ USR CHR$ >=CHR$ FORMAT CHR$ CIRCLE CHR$ LPRINT CHR$ CONTINUE CHR$ (CHR$ (CHR$ LIST CHR$ CONTINUE CHR$ 8CHR$ SAVE CHR$ NOT NOT NOT CHR$ CHR$ CHR$ CHR$ (CHR$ 0CHR$ 8CHR$ @CHR$ HCHR$ CONTINUE CHR$ CONTINUE CHR$ (CHR$ (CHR$ LIST CHR$ CONTINUE CHR$ 8CHR$ SAVE CHR$ NOT NOT NOT NOT (NOT 0NOT 8NOT @NOT HNOT PNOT XNOT `NOT hNOT pNOT xNOT xNOT NOT pNOT ▖NOT [A]NOT [I]NOT [Q]NOT CHR$ CHR$ CHR$ CHR$ CHR$ (CHR$ 0CHR$ 8CHR$ @CHR$ HCHR$ PCHR$ XCHR$ `CHR$ `CHR$ hCHR$ XCHR$ pCHR$ xCHR$ CHR$ ▖CHR$ [A]CHR$ [I]CHR$ [Q]CHR$ FN CHR$ VAL CHR$ LN CHR$ USR CHR$ >=CHR$ FORMAT CHR$ CIRCLE CHR$ LPRINT CHR$ CONTINUE CHR$ (CHR$ (CHR$ LIST CHR$ FN NOT VAL NOT LN NOT USR NOT >=NOT CONTINUE NOT LIST NOT SAVE NOT BIN BIN BIN LIST NOT SAVE NOT BIN BIN BIN LIST NOT SAVE NOT BIN BIN BIN LIST NOT SAVE NOT BIN BIN BIN LIST NOT SAVE NOT BIN BIN BIN LIST NOT SAVE NOT BIN BIN BIN LIST NOT SAVE NOT BIN BIN BIN LIST NOT SAVE NOT BIN BIN BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN hBIN pBIN xBIN xBIN BIN pBIN ▖BIN [A]BIN [I]BIN [Q]BIN FN BIN VAL BIN LN BIN USR BIN >=BIN FORMAT BIN CIRCLE BIN LPRINT BIN CONTINUE BIN LIST BIN SAVE BIN OR @BIN @BIN OR OR OR OR ( OR 0 OR BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN OR 8 OR @ OR H OR P OR OR PBIN X OR ` OR h OR p OR x OR OR ▖ OR [A] OR [I] OR [Q] OR FN OR VAL OR LN OR USR OR >= OR FORMAT OR CIRCLE OR LPRINT OR CONTINUE OR LIST OR SAVE OR AND AND AND BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN hBIN pBIN xBIN xBIN BIN pBIN ▖BIN [A]BIN [I]BIN [Q]BIN FN BIN VAL BIN LN BIN USR BIN >=BIN FORMAT BIN CIRCLE BIN LPRINT BIN CONTINUE BIN LIST BIN SAVE BIN OR @BIN @BIN OR AND AND ( AND 0 AND 8 AND BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN AND AND @ AND @ AND H AND OR PBIN X OR ` OR h OR P AND X AND ` AND h AND p AND @BIN HBIN PBIN XBIN `BIN AND AND @ AND @ AND H AND OR PBIN X OR ` OR h OR BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN hBIN pBIN xBIN xBIN BIN pBIN ▖BIN [A]BIN [I]BIN [Q]BIN FN BIN VAL BIN LN BIN USR BIN >=BIN FORMAT BIN CIRCLE BIN LPRINT BIN CONTINUE BIN LIST BIN SAVE BIN OR @BIN @BIN OR OR OR OR ( OR 0 OR BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN x AND AND ▖ AND [A] AND [I] AND OR PBIN X OR ` OR h OR p OR x OR OR ▖ OR [A] OR [I] OR [Q] OR FN OR VAL OR LN OR USR OR >= OR FORMAT OR CIRCLE OR LPRINT OR CONTINUE OR LIST OR SAVE OR AND AND AND BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN hBIN pBIN xBIN xBIN BIN pBIN ▖BIN [A]BIN [I]BIN [Q]BIN FN BIN VAL BIN LN BIN USR BIN >=BIN FORMAT BIN CIRCLE BIN LPRINT BIN CONTINUE BIN LIST BIN SAVE BIN OR @BIN @BIN OR [Q] AND FN AND VAL AND LN AND USR AND >= AND FORMAT AND CIRCLE AND LPRINT AND CONTINUE AND LIST AND FORMAT AND CIRCLE AND LPRINT AND CONTINUE AND LIST AND FORMAT AND CIRCLE AND LPRINT AND CONTINUE AND LIST AND FORMAT AND CIRCLE AND LPRINT AND CONTINUE AND LIST AND FORMAT AND CIRCLE AND LPRINT AND CONTINUE AND LIST AND FORMAT AND CIRCLE AND LPRINT AND CONTINUE AND LIST AND FORMAT AND CIRCLE AND LPRINT AND CONTINUE AND LIST AND FORMAT AND CIRCLE AND LPRINT AND CONTINUE AND BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN hBIN pBIN xBIN xBIN BIN pBIN ▖BIN [A]BIN [I]BIN [Q]BIN FN BIN VAL BIN LN BIN USR BIN >=BIN FORMAT BIN CIRCLE BIN LPRINT BIN CONTINUE BIN LIST BIN SAVE BIN OR @BIN @BIN OR OR OR OR ( OR 0 OR BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN OR 8 OR @ OR H OR P OR OR PBIN X OR ` OR h OR p OR x OR OR ▖ OR [A] OR [I] OR [Q] OR FN OR VAL OR LN OR USR OR >= OR FORMAT OR CIRCLE OR LPRINT OR CONTINUE OR LIST OR SAVE OR AND AND AND BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN hBIN pBIN xBIN xBIN BIN pBIN ▖BIN [A]BIN [I]BIN [Q]BIN FN BIN VAL BIN LN BIN USR BIN >=BIN FORMAT BIN CIRCLE BIN LPRINT BIN CONTINUE BIN LIST BIN SAVE BIN OR @BIN @BIN OR AND AND ( AND 0 AND 8 AND BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN AND AND @ AND @ AND H AND OR PBIN X OR ` OR h OR P AND X AND ` AND h AND p AND @BIN HBIN PBIN XBIN `BIN AND AND @ AND @ AND H AND OR PBIN X OR ` OR h OR BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN hBIN pBIN xBIN xBIN BIN pBIN ▖BIN [A]BIN [I]BIN [Q]BIN FN BIN VAL BIN LN BIN USR BIN >=BIN FORMAT BIN CIRCLE BIN LPRINT BIN CONTINUE BIN LIST BIN SAVE BIN OR @BIN @BIN OR OR OR OR ( OR 0 OR BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN x AND AND ▖ AND [A] AND [I] AND OR PBIN X OR ` OR h OR p OR x OR OR ▖ OR [A] OR [I] OR [Q] OR FN OR VAL OR LN OR USR OR >= OR FORMAT OR CIRCLE OR LPRINT OR CONTINUE OR LIST OR SAVE OR AND AND AND BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN hBIN pBIN xBIN xBIN BIN pBIN ▖BIN [A]BIN [I]BIN [Q]BIN FN BIN VAL BIN LN BIN USR BIN >=BIN FORMAT BIN CIRCLE BIN LPRINT BIN CONTINUE BIN LIST BIN SAVE BIN OR @BIN @BIN OR [Q] AND FN AND VAL AND LN AND USR AND BIN BIN (BIN 0BIN 8BIN SAVE AND <=FN AND <=<=<= <=(<=0<=8<=[Q] AND FN AND VAL AND LN AND USR AND @<=H<=P<=X<=`<= SAVE AND <=FN AND <=<=h<=p<=x<=<=▖<=[Q] AND FN AND VAL AND LN AND USR AND BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN hBIN pBIN xBIN xBIN BIN pBIN ▖BIN [A]BIN [I]BIN [Q]BIN FN BIN VAL BIN LN BIN USR BIN >=BIN FORMAT BIN CIRCLE BIN LPRINT BIN CONTINUE BIN LIST BIN SAVE BIN OR @BIN @BIN OR OR OR OR ( OR 0 OR BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN OR 8 OR @ OR H OR P OR OR PBIN X OR ` OR h OR p OR x OR OR ▖ OR [A] OR [I] OR [Q] OR FN OR VAL OR LN OR USR OR >= OR FORMAT OR CIRCLE OR LPRINT OR CONTINUE OR LIST OR SAVE OR AND AND AND BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN hBIN pBIN xBIN xBIN BIN pBIN ▖BIN [A]BIN [I]BIN [Q]BIN FN BIN VAL BIN LN BIN USR BIN >=BIN FORMAT BIN CIRCLE BIN LPRINT BIN CONTINUE BIN LIST BIN SAVE BIN OR @BIN @BIN OR AND AND ( AND 0 AND 8 AND BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN AND AND @ AND @ AND H AND OR PBIN X OR ` OR h OR P AND X AND ` AND h AND p AND @BIN HBIN PBIN XBIN `BIN AND AND @ AND @ AND H AND OR PBIN X OR ` OR h OR BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN hBIN pBIN xBIN xBIN BIN pBIN ▖BIN [A]BIN [I]BIN [Q]BIN FN BIN VAL BIN LN BIN USR BIN >=BIN FORMAT BIN CIRCLE BIN LPRINT BIN CONTINUE BIN LIST BIN SAVE BIN OR @BIN @BIN OR OR OR OR ( OR 0 OR BIN BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN x AND AND ▖ AND [A] AND [I] AND OR PBIN X OR ` OR h OR p OR x OR OR ▖ OR [A] OR [I] OR [Q] OR FN OR VAL OR LN OR USR OR >= OR FORMAT OR CIRCLE OR LPRINT OR CONTINUE OR LIST OR SAVE OR AND AND AND BIN (BIN 0BIN 8BIN @BIN HBIN PBIN XBIN `BIN hBIN pBIN xBIN xBIN BIN pBIN ▖BIN [A]BIN [I]BIN [Q]BIN FN BIN VAL BIN LN BIN USR BIN >=BIN FORMAT BIN CIRCLE BIN LPRINT BIN CONTINUE BIN LIST BIN SAVE BIN OR @BIN @BIN OR [Q] AND FN AND VAL AND LN AND USR AND BIN BIN (BIN 0BIN 8BIN SAVE AND <=FN AND <=<=<= <=(<=0<=8<=[Q] AND FN AND VAL AND LN AND USR AND @<=H<=P<=X<=`<= SAVE AND <=FN AND <=<=h<=p<=x<=<=▖<=[Q] AND FN AND VAL AND LN AND USR AND [A]<=[I]<=[Q]<=FN <=VAL <=LN <=USR <=>=<= FORMAT <= CIRCLE <= LPRINT <= CONTINUE <=LN <=LN <= LIST <= SAVE <=>=>=>=>= >=(>=0>=8>=@>=H>=P>=X>= FORMAT <= CIRCLE <=`>=h>=p>=x>=USR <=>=▖>=[A]>=[I]>=[Q]>=FN >=VAL >=LN >=USR >=>=>= FORMAT >= CIRCLE >=X>= LPRINT >= CONTINUE >= LIST >= SAVE >=<><><>x>=<> <>>=(<>0<>8<>@<>H<>P<> FORMAT >=X<>`<>h<> <>p<>x<><>▖<>[A]<>p<>[I]<>[Q]<>FN <>VAL <>LN <>USR <>>=<> FORMAT <> CIRCLE <> LPRINT <> CONTINUE <> FORMAT <= LIST <> <> SAVE <> FORMAT >= LINE LINE >=<=USR <= LINE LINE LINE (<>( LINE 0 LINE 8 LINE @ LINE H LINE P LINE X>=X LINE ` LINE CONTINUE >=P>= CIRCLE >=>=<=P LINE <>h LINE p LINE x LINE LINE ▖ LINE [A] LINE [I] LINE [Q] LINE FN LINE VAL LINE LN LINE USR LINE >= LINE FORMAT LINE CIRCLE LINE LPRINT LINE LPRINT LINE CONTINUE LINE CONTINUE LINE CONTINUE LINE LIST LINE SAVE LINE THEN THEN THEN THEN THEN ( THEN 0 THEN 8 THEN @ THEN H THEN P THEN X THEN ` THEN h THEN h THEN p THEN p THEN p THEN x THEN THEN ` THEN ` THEN ▖ THEN [A] THEN [I] THEN [Q] THEN FN THEN VAL THEN LN THEN USR THEN THEN >= THEN ` THEN LN THEN LN THEN LN THEN LN THEN USR THEN FORMAT THEN CIRCLE THEN LPRINT THEN CONTINUE THEN LIST THEN SAVE THEN TO TO TO TO TO ( TO 0 TO 8 TO @ TO H TO P TO X TO ` TO h TO p TO x TO TO ▖ TO [A] TO [I] TO [Q] TO FN TO VAL TO LN TO USR TO >= TO FORMAT TO CIRCLE TO ` THEN LPRINT TO CONTINUE TO LIST TO SAVE TO STEP STEP STEP STEP STEP ( STEP 0 STEP 8 STEP @ STEP H STEP P STEP X STEP >= TO ` STEP CIRCLE TO ` THEN h STEP p STEP x STEP STEP ▖ STEP [A] STEP [I] STEP [Q] STEP FN STEP VAL STEP LN STEP USR STEP >= STEP FORMAT STEP CIRCLE STEP LPRINT STEP CONTINUE STEP ` STEP CIRCLE TO ` THEN >= THEN >= THEN ` THEN ` THEN ` THEN >= THEN ` THEN ` THEN ▖ THEN ▖ THEN LIST STEP SAVE STEP DEF FN DEF FN DEF FN ` THEN ` THEN ` THEN ` THEN ` THEN ` THEN ` THEN ` THEN ` THEN ` THEN DEF FN DEF FN ( DEF FN 0 DEF FN 8 DEF FN @ DEF FN H DEF FN P DEF FN X DEF FN ` DEF FN h DEF FN p DEF FN x DEF FN DEF FN ▖ DEF FN [A] DEF FN [I] DEF FN [Q] DEF FN FN DEF FN ▖ DEF FN VAL DEF FN LN DEF FN USR DEF FN >= DEF FN FORMAT DEF FN CIRCLE DEF FN LPRINT DEF FN CONTINUE DEF FN LIST DEF FN SAVE DEF FN CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT CAT AT FN LIST AT SIN LIST AT ABS LIST AT >= LIST AT VERIFY LIST AT LLIST LIST AT LOAD LIST AT DRAW LIST AT LET AT LET AT , LET AT > LET AT Q LET AT e LET AT { LET AT [A] LET AT AT LET AT CHR$ LET AT OUT LET AT SAVE LET AT PAUSE AT 8 PAUSE AT X PAUSE AT | PAUSE AT [S] PAUSE AT LINE PAUSE AT PLOT PAUSE AT NEXT AT X NEXT AT ▗ NEXT AT PEEK NEXT OUT NEXT DRAW LIST OUT RESTORE DRAW LIST OUT BEEP DRAW LIST OUT EXP DRAW LIST OUT ▛ DRAW LIST OUT M LOAD LIST OUT / LOAD LIST v LOAD LIST [J] LOAD LIST ATN LOAD LIST OUT LLIST LIST OUT NEXT VERIFY LIST OUT RESTORE VERIFY LIST OUT BEEP VERIFY LIST OUT EXP VERIFY LIST OUT ▛ VERIFY LIST OUT M>= LIST OUT />= LIST v>= LIST [J]>= LIST ATN >= LIST OUT ABS LIST OUT NEXT SIN LIST OUT RESTORE SIN LIST OUT BEEP SIN LIST OUT EXP SIN LIST OUT ▛SIN LIST OUT MFN LIST OUT /FN LIST vFN LIST [J]FN LIST ATN FN LIST OUT [P] LIST OUT NEXT PAPER OUT RESTORE OUT BEEP OUT EXP OUT ▛ AT STR$ AT [R] AT ▝ AT a AT A AT MOVE PLOT OPEN #AT MOVE PLOT AT STR$ PLOT AT LEN PLOT AT ▝ PLOT AT 1 PLOT AT ! PLOT AT PLOT OUT NEXT [S] PAPER OUT RESTORE [S] OUT BEEP [S] OUT EXP [S] OUT ▛[S] AT STR$ [S] AT [R][S] AT ▝[S] AT a[S] AT A[S] AT MOVE OPEN #AT MOVE AT LEN AT 1 AT ! AT OUT NEXT Z OUT NEXT [S] CIRCLE OUT RESTORE ▙ OUT BEEP z OUT EXP f OUT ▛R AT STR$ > AT [R]* AT ▝ AT a AT A LIST AT MOVE | MOVE AT MOVE | AT STR$ | AT LEN | AT ▝| AT 1| AT !| AT ~ OUT MOVE OUT ▝ OUT 1 OUT ! OUT OUT STR$ OUT LEN OUT NEXT OUT LET e[R]R[R]= STOP NOT [B]l ERASE PAUSE [B][L]SIN !r OUT LET e[R] OUT NEXT AT NEXT z OUT RESTORE AT RESTORE : OUT BEEP AT BEEP : OUT EXP AT EXP : OUT ▛ AT ▛:AT STR$ AT STR$ AT [R] AT [R]AT ▝ AT ▝AT a AT aAT A AT AAT MOVE PLOT AT MOVE BEEP AT MOVE PLOT AT MOVE AT STR$ PLOT AT STR$ AT LEN PLOT AT LEN AT ▝ PLOT AT ▝AT 1 PLOT AT 1AT ! PLOT AT !AT PLOT AT OUT NEXT [S]AT LET PAPER OUT RESTORE [S] FLASH LET OUT BEEP [S] STOP OUT EXP [S]9 ERASE OUT ▛[S]hSIN AT STR$ [S]AT STR$ AT [R][S]AT [R]AT ▝[S]AT ▝AT a[S]AT aAT A[S]AT AAT MOVE AT MOVE BEEP AT MOVE AT MOVE AT LEN AT LEN AT LET AT MOVE FLASH LET AT ▝ STOP AT 19 ERASE AT !hSIN AT FLASH LET AT MOVE STOP AT STR$ 9 ERASE AT STR$ hSIN AT LEN AT 1 AT 1AT ! AT !AT AT OUT NEXT [S]AT LET CIRCLE OUT RESTORE ▙ FLASH LET OUT BEEP z STOP OUT EXP f9 ERASE OUT ▛RhSIN AT STR$ >AT STR$ AT [R]*AT [R]AT ▝AT ▝AT aAT aAT A LIST AT AAT LET |AT MOVE CLOSE # FLASH LET |AT MOVE STOP |AT STR$ 9 ERASE |AT STR$ hSIN |AT LEN AT LET |AT MOVE FLASH LET |AT ▝ STOP |AT 19 ERASE |AT !hSIN ~AT OUT NEXT AT NEXT IF OUT MOVE OUT MOVE OUT ▝ OUT ▝ OUT 1 OUT 1 OUT ! OUT ! OUT OUT OUT STR$ OUT STR$ OUT LEN OUT LEN OUT LET AT NEXT 2 RESTORE 2= STOP AT BEEP 2l ERASE AT EXP 2[L]SIN AT ▛2AT MOVE AT LET AT MOVE FLASH LET AT STR$ STOP AT STR$ 9 ERASE AT LEN hSIN OUT MOVE AT MOVE OUT ▝ AT ▝ OUT 1 AT 1 OUT ! AT ! OUT AT { LET e LET RSCREEN$ LET [E] LET INK LLIST NOT LLIST ERASE PAUSE MOVE 7SIN !SIN { LET e LET OUT STR$ AT STR$ OUT [R] AT [R] OUT a AT a OUT A AT A OUT MOVE AT LET OUT MOVE FLASH LET OUT STR$ STOP OUT STR$ 9 ERASE OUT LEN hSIN OUT LET AT LET LET = STOP STOP l ERASE 9 ERASE [L]SIN hSIN OUT LET AT MOVE MOVE = STOP AT STR$ l ERASE AT STR$ [L]SIN AT LEN OUT NEXT AT NEXT x OUT RESTORE AT RESTORE 8 OUT BEEP AT BEEP 8 OUT EXP AT EXP 8 OUT ▛ AT ▛8AT STR$ AT STR$ AT [R] AT [R]AT ▝ AT ▝AT a AT aAT A"AT AAT MOVE $AT MOVE AT MOVE "AT MOVE AT LEN AT LEN AT MOVE AT MOVE AT ▝AT ▝AT 1 AT 1AT ! AT !AT "AT OUT READ $AT LLIST OUT MERGE " FLASH LLIST OUT <= ERASE OUT POINT 9CHR$ OUT {h[S]AT LEN AT LEN AT [B]AT [B]AT q AT qAT STR$ $AT STR$ AT STR$ "AT STR$ AT LEN $AT LEN AT LEN "AT LEN AT LLIST AT STR$ FLASH LLIST AT q ERASE AT 19CHR$ AT !h[S] AT OUT OPEN # AT OPEN #8 OUT OR "AT OR 8 OUT ATN $AT ATN 8 OUT POINT "AT POINT 8 OUT {$AT {8AT [R]"AT [R]AT [B] AT [B]AT QAT QAT 1AT 1AT MOVE AT LEN FLASH MOVE AT LEN CHR$ AT [R]9SIN "AT [R]h[S]$AT [R]AT q$AT qAT 1"AT 1AT AT OUT NOT AT STR$ OUT ASN FLASH STR$ OUT PISIN OUT [J] 9[S] OUT k h[C]AT ▝$AT ▝AT a"AT aAT Q$AT QAT STR$ AT [R] FLASH STR$ AT [R]SIN AT [R]9[S]AT [R]h[C]AT [B] FLASH STR$ AT aSIN "AT !9[S]$AT !h[C]"AT OUT COS $AT COS 8 OUT RND"AT RND8 OUT PI AT PI8 OUT ▞ AT ▞8 OUT kAT k8AT [B]AT [B]AT qAT qAT A AT AAT [R]$AT [R]AT [B]$AT [B]AT [B]"AT [B]AT aAT aAT !AT !AT !AT ! OUT [T] AT [R] OUT [F]" FLASH [R] OUT [H]$[C] OUT y"9[C] OUT [$hrAT ▝"AT ▝AT Q AT QAT AAT A OUT [B]" OUT [B] OUT Q$ OUT Q OUT !" OUT ! OUT ! OUT ! OUT OUT OUT [D]AT [D]8 OUT AT 8 OUT ▜AT ▜8 OUT y AT y8 OUT [ AT [8AT q"AT qAT a$AT aAT Q"AT QAT A$AT AAT !"AT ! OUT ▝" OUT ▝ OUT q" OUT qAT ▝AT [B]AT ▝AT Q FLASH [B]AT QAT !▘AT !AT !9▘AT !AT hrAT OUT ▝[H]RAT u =r PRINT "AT w lr$#AT i [L]bSAT K AT a▘AT aAT QLEN AT QAT A LPRINT AT AAT 1AT 1AT !AT AT ! OUT qAT OUT q OUT aAT OUT aAT qAT AT qAT AAT AT AAT AT AT OUT sAT AT s( OUT uAT AT u( OUT gAT AT g( OUT YAT AT Y( OUT KAT AT K(AT aAT AT aAT QAT AT QAT 1AT AT 1AT aAT qAT aAT A FLASH qAT AAT !rAT !AT !9bAT !AT hRAT OUT c[H]BAT a OUT e AND 2 FLASH a OUT W PRINT "b OUT I$#9R OUT ;ShBAT QAT aAT QAT A FLASH aAT AAT 1bAT 1AT !9RAT !AT !hBAT !AT Q[H]BAT QAT Q AND 2AT QAT Q PRINT "AT QAT Q$#AT QAT ASAT AAT aAT aAT Q FLASH a FLASH aAT 1bbAT !9R9RAT !hBhBAT OUT S[H]2AT S( OUT U AND "AT U( OUT G PRINT "AT G( OUT I$#AT I( OUT ;SAT ;(AT A▘AT AAT 1LEN AT 1AT 1 LPRINT AT 1AT !AT !AT AAT AT QAT AAT FLASH QAT AAT RAT AAT 9BAT AAT hBAT AAT QAT AAT 1 FLASH QAT 1AT !RAT !AT !9BAT !AT hBAT OUT C[H]"AT A OUT E AND " FLASH A OUT 7 PRINT "B OUT 9$#92 OUT +Sh2AT 1▘AT 1AT ! LPRINT AT !AT AAT AT 1 FLASH AAT AT 1BAT AT 192AT AT 1h2AT AT 1AT AAT AAT 1 FLASH A FLASH AAT !BBAT !9292AT !h2h2AT OUT 3[H]"AT 3( OUT 5 AND "AT 5( OUT 7 PRINT "AT 7( OUT )$AT )( OUT +SAT +(AT !▘AT !AT !LEN AT ! OUT #AT AT ! OUT %AT FLASH ! OUT 'AT " OUT )AT 9" OUT +AT h" OUT !AT !AT ! OUT ! FLASH !AT ! OUT "AT OUT 9"AT OUT h"AT {![H]"e!SCREEN$ ! AND [E]! INK ! PRINT NOT !"$ PAUSE !7"S!"{!▘e!SCREEN$ !LEN [E]! INK ! LPRINT NOT !" PAUSE !7"AT !"{!AT e!SCREEN$ !AT [E]! INK !AT NOT !"AT PAUSE !{!AT !e!SCREEN$ ! FLASH ![E]! INK !"NOT !"9" PAUSE !7"h"!"7hP"7h©7hVAL$ 7h INVERSE 7h7h;7hj7h[J]7h>=7hed2d2d2d2d2d2d2d2d>=dCdTKGKGKTdCdTKPKT^dCdTKGKGKTdCdCdTKGKGKTdCdTKPKT^dCdTKGKGKTdCdCdTKGKGKTdCdTKPKT^dCdTKGKGKTdCdCdTKGKGKTdCdTPKPKT^dCdTKGKGKTd>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=>=▚▚▚▚▚▚▚▚▚[G][G][G][G][G][G][G][G][G] LLIST LLIST LLIST LLIST LLIST LLIST LLIST LLIST LLIST MERGE MERGE MERGE MERGE MERGE ▚▚▚▚▚>=>=>=>=>=>=>=>=>=IN IN IN IN IN [Q][Q][Q][Q][Q][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G][G]▙~[G]~w[G]▙~[G]▙~[G]~w[G]▙~[G]▙~[G]~w[G]▙~[G]▙~[G]~w[G]▙~[G]▙~[G]~w[G]▙~[G]▙~[G]~w[G]▙~[G]▙~[G]~w[G]▙~[G]▙~[G]~w[G]▙~[G] !"#$%&'()*+,-./0123456789:;<=>?@STR$ CHR$ NOT BIN OR AND <=>=<> LINE THEN TO STEP DEF FN CAT FORMAT MOVE ERASE OPEN # CLOSE # MERGE VERIFY BEEP CIRCLE INK PAPER FLASH BRIGHT INVERSE OVER OUT LPRINT LLIST STOP READ DATA RESTORE NEW BORDER CONTINUE DIM REM FOR GO TO GO SUB INPUT LOAD LIST LET PAUSE NEXT POKE PRINT PLOT RUN SAVE RANDOMIZE IF CLS DRAW CLEAR RETURN COPY [Q] LPRINT LLIST LLIST STOP STOP READ READ DATA DATA RESTORE RESTORE NEW NEW BORDER BORDER CONTINUE CONTINUE DIM DIM REM REM FOR FOR GO TO GO TO GO SUB GO SUB INPUT INPUT LOAD LOAD LIST LIST LET LET PAUSE PAUSE NEXT NEXT POKE POKE PRINT PRINT PLOT PLOT RUN RUN SAVE SAVE RANDOMIZE RANDOMIZE IF IF CLS CLS DRAW DRAW CLEAR CLEAR RETURN RETURN COPY COPY USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USR FOR V FOR ATTR FOR GO TO V GO TO ATTR GO TO GO SUB V GO SUB ATTR GO SUB INPUT V INPUT ATTR INPUT LOAD V LOAD ATTR LOAD LIST V LIST ATTR LIST LET V LET ATTR LET PAUSE V PAUSE ATTR PAUSE NEXT V NEXT ATTR NEXT POKE V POKE ATTR POKE PRINT V PRINT ATTR PRINT PLOT V PLOT ATTR PLOT RUN V RUN ATTR RUN SAVE V SAVE ATTR SAVE RANDOMIZE V RANDOMIZE ATTR RANDOMIZE IF V IF ATTR IF CLS V CLS ATTR CLS DRAW V DRAW ATTR DRAW CLEAR V CLEAR ATTR CLEAR RETURN V RETURN ATTR RETURN COPY V COPY ATTR COPY @USR @USR @USR @USR @USR @USR @USR @USR @USR @USR @USR @USR @USR @USR USR USR FORMAT @ LIST LIST USR LIST LET @ LET LET USR LET PAUSE @ PAUSE PAUSE USR PAUSE NEXT @ NEXT NEXT USR NEXT POKE @ POKE POKE USR POKE PRINT @ PRINT PRINT USR PRINT PLOT @ PLOT PLOT USR PLOT RUN @ RUN RUN USR RUN SAVE @ SAVE SAVE USR SAVE RANDOMIZE @ RANDOMIZE RANDOMIZE USR RANDOMIZE IF @ IF IF USR IF CLS @ CLS CLS USR CLS DRAW @ DRAW DRAW USR DRAW CLEAR @ CLEAR CLEAR USR CLEAR RETURN @ RETURN RETURN USR RETURN COPY @ COPY COPY USR COPY 3f[J] TO 3f[J] TO 3f[J] TO 3f[J] TO 3f[J] TO 3f[J] TO 3f[J] TO 3f[J] TO 3f[J] TO 3f[J] TO 3f[J] TO 3f[J] TO 3f[J][K] INK g NEXT [K] NEXT STEP NEXT POKE 4 POKE g POKE [K] POKE STEP POKE PRINT 4 PRINT g PRINT [K] PRINT STEP PRINT PLOT 4 PLOT g PLOT [K] PLOT STEP PLOT RUN 4 RUN g RUN [K] RUN STEP RUN SAVE 4 SAVE g SAVE [K] SAVE STEP SAVE RANDOMIZE 4 RANDOMIZE g RANDOMIZE [K] RANDOMIZE STEP RANDOMIZE IF 4 IF g IF [K] IF STEP IF CLS 4 CLS g CLS [K] CLS STEP CLS DRAW 4 DRAW g DRAW [K] DRAW STEP DRAW CLEAR 4 CLEAR g CLEAR [K] CLEAR STEP CLEAR RETURN 4 RETURN g RETURN [K] RETURN STEP RETURN COPY 4 COPY g COPY [K] COPY STEP COPY *USCREEN$ MERGE *USCREEN$ MERGE *USCREEN$ MERGE *USCREEN$ MERGE *USCREEN$ MERGE *USCREEN$ MERGE *USCREEN$ MERGE *USCREEN$ MERGE *USCREEN$ MERGE *USCREEN$ MERGE *U LPRINT PRINT ATTR PRINT VERIFY PRINT PLOT + PLOT V PLOT PLOT ATTR PLOT VERIFY PLOT RUN + RUN V RUN RUN ATTR RUN VERIFY RUN SAVE + SAVE V SAVE SAVE ATTR SAVE VERIFY SAVE RANDOMIZE + RANDOMIZE V RANDOMIZE RANDOMIZE ATTR RANDOMIZE VERIFY RANDOMIZE IF + IF V IF IF ATTR IF VERIFY IF CLS + CLS V CLS CLS ATTR CLS VERIFY CLS DRAW + DRAW V DRAW DRAW ATTR DRAW VERIFY DRAW CLEAR + CLEAR V CLEAR CLEAR ATTR CLEAR VERIFY CLEAR RETURN + RETURN V RETURN RETURN ATTR RETURN VERIFY RETURN COPY + COPY V COPY COPY ATTR COPY VERIFY COPY $Im[C]ACS FLASH $Im[C]ACS FLASH $Im[C]ACS FLASH $Im[C]ACS FLASH $Im[C]ACS FLASH $Im[C]ACS FLASH $Im[C]ACS FLASH $Im[C]ACS FLASH $Im[C]ACS FLASH [D] DATA RUN % RUN J RUN n RUN [D] RUN ATN RUN BRIGHT RUN SAVE % SAVE J SAVE n SAVE [D] SAVE ATN SAVE BRIGHT SAVE RANDOMIZE % RANDOMIZE J RANDOMIZE n RANDOMIZE [D] RANDOMIZE ATN RANDOMIZE BRIGHT RANDOMIZE IF % IF J IF n IF [D] IF ATN IF BRIGHT IF CLS % CLS J CLS n CLS [D] CLS ATN CLS BRIGHT CLS DRAW % DRAW J DRAW n DRAW [D] DRAW ATN DRAW BRIGHT DRAW CLEAR % CLEAR J CLEAR n CLEAR [D] CLEAR ATN CLEAR BRIGHT CLEAR RETURN % RETURN J RETURN n RETURN [D] RETURN ATN RETURN BRIGHT RETURN COPY % COPY J COPY n COPY [D] COPY ATN COPY BRIGHT COPY @`[Q]USR LPRINT @`[Q]USR LPRINT @`[Q]USR LPRINT @`[Q]USR LPRINT @`[Q]USR LPRINT @`[Q]USR LPRINT @`[Q]USR LPRINT @`[Q]USR LPRINT CONTINUE SAVE @ SAVE ` SAVE SAVE [Q] SAVE USR SAVE LPRINT SAVE RANDOMIZE RANDOMIZE @ RANDOMIZE ` RANDOMIZE RANDOMIZE [Q] RANDOMIZE USR RANDOMIZE LPRINT RANDOMIZE IF IF @ IF ` IF IF [Q] IF USR IF LPRINT IF CLS CLS @ CLS ` CLS CLS [Q] CLS USR CLS LPRINT CLS DRAW DRAW @ DRAW ` DRAW DRAW [Q] DRAW USR DRAW LPRINT DRAW CLEAR CLEAR @ CLEAR ` CLEAR CLEAR [Q] CLEAR USR CLEAR LPRINT CLEAR RETURN RETURN @ RETURN ` RETURN RETURN [Q] RETURN USR RETURN LPRINT RETURN COPY COPY @ COPY ` COPY COPY [Q] COPY USR COPY LPRINT COPY 8Uq▙SCREEN$ <= READ 8Uq▙SCREEN$ <= READ 8Uq▙SCREEN$ <= READ 8Uq▙SCREEN$ <= READ 8Uq▙SCREEN$ <= READ 8Uq▙SCREEN$ <= READ 8Uq▙SCREEN$ <= READ ATTR REM RANDOMIZE RANDOMIZE 9 RANDOMIZE V RANDOMIZE r RANDOMIZE RANDOMIZE ATTR RANDOMIZE >= RANDOMIZE DATA RANDOMIZE IF IF 9 IF V IF r IF IF ATTR IF >= IF DATA IF CLS CLS 9 CLS V CLS r CLS CLS ATTR CLS >= CLS DATA CLS DRAW DRAW 9 DRAW V DRAW r DRAW DRAW ATTR DRAW >= DRAW DATA DRAW CLEAR CLEAR 9 CLEAR V CLEAR r CLEAR CLEAR ATTR CLEAR >= CLEAR DATA CLEAR RETURN RETURN 9 RETURN V RETURN r RETURN RETURN ATTR RETURN >= RETURN DATA RETURN COPY COPY 9 COPY V COPY r COPY COPY ATTR COPY >= COPY DATA COPY 3Lf[J]COS TO NEW 3Lf[J]COS TO NEW 3Lf[J]COS TO NEW 3Lf[J]COS TO NEW 3Lf[J]COS TO NEW 3Lf[J]COS TO NEW 3L STEP GO TO TAN RANDOMIZE STEP RANDOMIZE BORDER RANDOMIZE IF IF 4 IF M IF g IF IF [K] IF TAN IF STEP IF BORDER IF CLS CLS 4 CLS M CLS g CLS CLS [K] CLS TAN CLS STEP CLS BORDER CLS DRAW DRAW 4 DRAW M DRAW g DRAW DRAW [K] DRAW TAN DRAW STEP DRAW BORDER DRAW CLEAR CLEAR 4 CLEAR M CLEAR g CLEAR CLEAR [K] CLEAR TAN CLEAR STEP CLEAR BORDER CLEAR RETURN RETURN 4 RETURN M RETURN g RETURN RETURN [K] RETURN TAN RETURN STEP RETURN BORDER RETURN COPY COPY 4 COPY M COPY g COPY COPY [K] COPY TAN COPY STEP COPY BORDER COPY .E]t▛[S]INT MOVE CONTINUE .E]t▛[S]INT MOVE CONTINUE .E]t▛[S]INT MOVE CONTINUE .E]t▛[S]INT MOVE CONTINUE .E]t▛[S]INT MOVE CONTINUE .E]t▛[S]INT INPUT F IF ^ IF u IF IF [T] IF SQR IF ERASE IF DIM IF CLS CLS / CLS F CLS ^ CLS u CLS CLS [T] CLS SQR CLS ERASE CLS DIM CLS DRAW DRAW / DRAW F DRAW ^ DRAW u DRAW DRAW [T] DRAW SQR DRAW ERASE DRAW DIM DRAW CLEAR CLEAR / CLEAR F CLEAR ^ CLEAR u CLEAR CLEAR [T] CLEAR SQR CLEAR ERASE CLEAR DIM CLEAR RETURN RETURN / RETURN F RETURN ^ RETURN u RETURN RETURN [T] RETURN SQR RETURN ERASE RETURN DIM RETURN COPY COPY / COPY F COPY ^ COPY u COPY COPY [T] COPY SQR COPY ERASE COPY DIM COPY *@Uj[F]SCREEN$ USR MERGE REM *@Uj[F]SCREEN$ USR MERGE REM *@Uj[F]SCREEN$ USR MERGE REM *@Uj[F]SCREEN$ USR MERGE REM *@Uj[F]SCREEN$ USR MERGE REM *@ LIST USR IF VERIFY IF FOR IF CLS CLS + CLS @ CLS V CLS k CLS CLS [G] CLS ATTR CLS USR CLS VERIFY CLS FOR CLS DRAW DRAW + DRAW @ DRAW V DRAW k DRAW DRAW [G] DRAW ATTR DRAW USR DRAW VERIFY DRAW FOR DRAW CLEAR CLEAR + CLEAR @ CLEAR V CLEAR k CLEAR CLEAR [G] CLEAR ATTR CLEAR USR CLEAR VERIFY CLEAR FOR CLEAR RETURN RETURN + RETURN @ RETURN V RETURN k RETURN RETURN [G] RETURN ATTR RETURN USR RETURN VERIFY RETURN FOR RETURN COPY COPY + COPY @ COPY V COPY k COPY COPY [G] COPY ATTR COPY USR COPY VERIFY COPY FOR COPY ';Nbv▞[N]LEN BIN CIRCLE GO TO ';Nbv▞[N]LEN BIN CIRCLE GO TO ';Nbv▞[N]LEN BIN CIRCLE GO TO ';Nbv▞[N]LEN BIN CIRCLE GO TO ';Nbv▞[N]LEN BIN CIRCLE < LET ( CLS < CLS O CLS c CLS w CLS CLS [O] CLS SIN CLS OR CLS INK CLS GO SUB CLS DRAW DRAW ( DRAW < DRAW O DRAW c DRAW w DRAW DRAW [O] DRAW SIN DRAW OR DRAW INK DRAW GO SUB DRAW CLEAR CLEAR ( CLEAR < CLEAR O CLEAR c CLEAR w CLEAR CLEAR [O] CLEAR SIN CLEAR OR CLEAR INK CLEAR GO SUB CLEAR RETURN RETURN ( RETURN < RETURN O RETURN c RETURN w RETURN RETURN [O] RETURN SIN RETURN OR RETURN INK RETURN GO SUB RETURN COPY COPY ( COPY < COPY O COPY c COPY w COPY COPY [O] COPY SIN COPY OR COPY INK COPY GO SUB COPY $6I[m[C][U]ACS <> FLASH GO SUB $6I[m[C][U]ACS <> FLASH GO SUB $6I[m[C][U]ACS <> FLASH GO SUB $6I[m[C][U]ACS <> FLASH GO SUB $6I[mJ PAUSE CLS [D] CLS RND CLS ATN CLS LINE CLS BRIGHT CLS INPUT CLS DRAW DRAW % DRAW 7 DRAW J DRAW / DRAW n DRAW DRAW [D] DRAW RND DRAW ATN DRAW LINE DRAW BRIGHT DRAW INPUT DRAW CLEAR CLEAR % CLEAR 7 CLEAR J CLEAR / CLEAR n CLEAR CLEAR [D] CLEAR RND CLEAR ATN CLEAR LINE CLEAR BRIGHT CLEAR INPUT CLEAR RETURN RETURN % RETURN 7 RETURN J RETURN / RETURN n RETURN RETURN [D] RETURN RND RETURN ATN RETURN LINE RETURN BRIGHT RETURN INPUT RETURN COPY COPY % COPY 7 COPY J COPY / COPY n COPY COPY [D] COPY RND COPY ATN COPY LINE COPY BRIGHT COPY INPUT COPY
