| Es parte de la publicación: | Spectrofon #00 |
| Tamaño del archivo: | 36608 |
| md5: | f973b51f8d57232e7b4fab95649b592f |
0TAN LLIST /]AT LLIST Y DIM ZY'VAL w GO TO [O]]SCREEN$ 5619: REM : SAVE "nar" LINE 1 LINE __NARCOPOL 128K =/PWL/= NEXT 1{`!<© STEP PAUSE [ STEP <©!|`m STEP PAUSE [! CAT STEP PAUSE [> STEP RANDOMIZE [!USR 4 STEP PAUSE [> STEP RANDOMIZE [!USR 7 STEP PAUSE [> STEP RANDOMIZE [!USR 8 STEP PAUSE [> STEP RANDOMIZE [!USR 4 STEP PAUSE [> STEP RANDOMIZE [!@@u GO SUB VAL ! CAT @ SAVE GO SUB VAL NOT SPEEK GO SUB [ POKE /NOT = NEXT CLEAR © GO SUB y<> NEXT CLEAR ©>!USR p GO SUB y>q GO SUB y~LN >(>02 LIST CODE RETURN 0 !@@u GO SUB VAL CODE OPEN # RETURN CLEAR ©> GO SUB y!USR USR u GO SUB VAL >?w GO SUB VAL > OPEN # RETURN NEXT !@ GO SUB [ POKE / STEP =: LIST CODE RETURN STEP FORMAT © NEXT GO SUB V CLEAR !:/ CLS CLEAR ©> GO SUB yCODE OPEN # RETURN <>CODE FLASH RETURN NEW RETURN ( RUN NOT NEXT !▗▗6 GO SUB VAL > CLEAR }>w>NOT 2▗!P">▗ GO SUB G GO SUB ^ INVERSE !▘ NEXT !p"▘!"▘ GO SUB ^ CLS v INVERSE !▘! SAVE COPY INVERSE N INVERSE F INVERSE u INVERSE t! INVERSE N INVERSE F INVERSE u INVERSE t INVERSE N INVERSE FxLEN NEXT <> RETURN © GO SUB x NEW BIN NOT NEXT INVERSE N INVERSE FxLEN (xLEN CLS > OPEN # RETURN CLEAR ©> GO SUB y INVERSE N INVERSE FxLEN CLS > OPEN # RETURN CLEAR ©> GO SUB y NEXT INVERSE N INVERSE FxLEN (xLEN CLS > OPEN # RETURN CLEAR ©> GO SUB y INVERSE N INVERSE FxLEN CLS > OPEN # RETURN CLEAR ©> GO SUB y NEXT INVERSE N INVERSE FxLEN (xLEN CLS > OPEN # RETURN CLEAR ©> GO SUB y INVERSE N INVERSE FxLEN CLS > OPEN # RETURN CLEAR ©> GO SUB y NEXT INVERSE N INVERSE FxLEN (xLEN CLS > OPEN # RETURN CLEAR ©> GO SUB y INVERSE N INVERSE FxLEN CLS > OPEN # RETURN CLEAR ©> GO SUB y NEXT GO SUB M COPY 8 LOAD COPY LOAD COPY COPY 0* OVER ? COPY RUN COPY OPEN # COPY N0[T] RETURN [Q]SCREEN$ SCREEN$ COS RETURN LOAD COPY LN h!z LPRINT SCREEN$ SCREEN$ SCREEN$ SCREEN$ READ COPY BORDER COPY REM REM 8LN ▘SCREEN$ CODE COPY IF hCHR$ T*FN * VAL$ FN * " RETURN *VAL$ ? RETURN LN L NEXT COPY ?E COPY COPY LOAD COPY COPY USR xD/_ COPY RUN COPY LN COPY 8A FORMAT USPEEK LOAD COPY PRINT POKE BIN wU OR UUUET_ COPY COPY CLEAR 1 DEF FN WATN CLEAR / COPY COPY pZ PLOT DW[E]`,@/^Q@AHU OVER COPY E COPY COPY IN CONTINUE SCREEN$ IN COPY LOAD COPY COPY LPRINT b▜>=[Q][M]IN COPY RUN COPY OVER COPY @ STOP AT CHR$ `▖SCREEN$ POINT CLEAR CAT COPY RANDOMIZE PAUSE ▝ LPRINT CONTINUE . COPY SAVE ▗ LINE 8 ATN RETURN CODE COPY RETURN CONTINUE 2 LIST /SCREEN$ [Q]FN SCREEN$ [Q]:IN SGN (▘'3SCREEN$ PEEK ▛ RETURN LN L? COPY COPY OVER W© COPY LOAD COPY COPY FORMAT OUT BRIGHT uU_ COPY © DEF FN RETURN ATTR [F]V@P MERGE T READ [P] COPY OUT xCHR$ INVERSE EWw COPY G0UATN INVERSE / COPY CLEAR p@PVp LLIST NAT U}©/USR <=0U©U COPY <ESCREEN$ ATTR IF COPY USR SCREEN$ IN COPY LOAD COPY COPY SAVE COPY DEF FN SGN SQR COPY ©© INPUT RETURN :[S]` COPY INT ©zIN ATTR LEN REM 2. CONTINUE 4/CODE COPY IF 8.INKEY$[S] ' LPRINT +CODE TAB _ SAVE :LxUSR (▘ATN IF RETURN ATTR RETURN LN <>UW COPY OUT COPY LIST 0@P© COPY COPY COPY COPY SAVE x LIST TE] COPY ©© LPRINT BRIGHT 5A[G]`P]U>u_t LIST @ETQB MOVE pG3[F]/ COPY CLEAR @tGPEEK ] OR Tp COPY USR - PRINT @# RESTORE Q CLEAR ATN PRINT COPY _ COPY [M]E*CODE COPY LOAD COPY SAVE ([S]? COPY RUN COPY COPY DRAW USR LET SAVE SCREEN$ RETURN {? COPY REM h▛CHR$ h(* IF 2SQR FN DRAW 8 ▘SCREEN$ VAL$ [Q]▞ PAUSE LPRINT ▖BCODE COPY IF 8w PLOT ? (?▖VAL$ OUT REM LN L" LPRINT VAL COPY ▘ATN FOR COPY IN CLEAR LN LOAD M© COPY LOAD COPY RETURN 4QG? COPY RUN COPY NEW RETURN ▘`a LIST @U RANDOMIZE COPY CAT COPY DRAW ASN eQPI DRAW w COPY USR CONTINUE Q CLEAR 0BUA/PU% COPY T<▝©AT RUN RETURN 8E!t LIST BEEP COPY © IF /!0SCREEN$ LIST LIST / COPY LOAD CLEAR LN ▝©SQR COPY NEXT COPY INT OUT ▝ NEXT FN =? COPY COPY SCREEN$ >=0@ LOAD RETURN RETURN [Q]@(>▘SQR IF [S]`< STOP COPY RUN [Q] STEP 8?CODE IF # COPY SAVE IN SCREEN$ COPY COPY IN ▚ `*COS > COPY LLIST LLIST COPY IN LPRINT LIST COPY SCREEN$ *SCREEN$ SCREEN$ RETURN ▛ CONTINUE ` COPY RETURN ATTR SCREEN$ IN 2[J] FORMAT © COPY BEEP CLEAR g FORMAT BRIGHT DRAW W▗ RUN w COPY RUN COPY INVERSE @©SGN USR U© MERGE COPY TQp LPRINT © PRINT uA@T COPY DRAW m▗USR LET © BORDER MOVE USR > LIST ? LOAD DRAW COPY ? BORDER RETURN RUN BIN RANDOMIZE COPY FORMAT _ CLEAR D COPY COPY COPY NOT USR US>?© LLIST LLIST BORDER IN LIST LIST <= COPY UUUW NEXT RETURN = LET LLIST © COPY MERGE G MERGE 7▛[I]VAL zINKEY$[S]LN BORDER CHR$ REM ATTR COPY COPY COPY REM /[T][Q] DRAW >[R]POINT ( FORMAT SCREEN$ [Q]*?>= COPY SAVE [Q]m [A]>=CODE FN IF COPY RUN [R][K]▖ CLEAR COPY IN RUN RETURN [M][B] RETURN COPY SCREEN$ ▖ LOAD LOAD COPY COPY SCREEN$ >© LLIST LLIST BORDER IN LIST LIST g COPY REM ATTR CODE VAL$ A[Q]CODE 0+ LIST COPY COPY IF IN IN USR BORDER GO TO P NEXT CLEAR xO STEP FORMAT t LET wC COPY ]© MOVE SAVE LPRINT u COPY USR 4Pp@©USR P@P? LIST U COPY COPY P CLEAR © BORDER Q[K] CLEAR COPY IN RUN RETURN p> CLEAR W COPY MERGE [M]U COPY COPY USR ©[A] POKE >© LLIST LLIST BORDER SGN LIST LIST LLIST _ OUT COPY w OUT @w MERGE p COPY COPY PRINT @G COPY LPRINT INPUT FN READ PEEK COPY LPRINT INPUT *[Q]? REM / REM 0TAN |? LET "▘8(FN ` STOP p LINE IN FOR [Q] GO SUB FORMAT COPY RETURN CODE COPY COPY LPRINT IF COPY LOAD [R]~ RETURN © LOAD CLEAR BORDER SGN RUN RETURN LET [S]IN RETURN SCREEN$ ▘ INPUT + COPY COPY [Q]8CODE IF >©STR$ LLIST BORDER SGN LIST LIST <=▘ COPY COPY COPY COPY COPY CONTINUE PIp COPY COPY COPY FN COPY LIST FLASH / RUN CLEAR COPY VERIFY _ RUN @[N] LPRINT COPY ~0 RUN LPRINT pl DRAW © COPY USR STR$ 4(|@1 OR COPY BEEP CLOSE # STEP $ FORMAT COPY COPY © COPY COPY COPY CLEAR © CAT C6@~ COPY x LLIST BORDER SGN LIST LIST ` COPY CLEAR Dw© RETURN 9_ PRINT / RUN COPY COPY COPY PRINT U!STR$ LET COPY COPY COPY T© SAVE z RETURN LOAD RANDOMIZE COPY READ CODE IF PEEK USR COPY SQR COPY CLS INT p COPY COPY LPRINT & :0:[S] REM "l90 CLEAR { LPRINT USR [P] COPY RETURN COPY COPY COPY SAVE RETURN COPY PEEK [T]40>?©STR$ LLIST COPY SGN LIST LIST ? CLS SCREEN$ [S][Q]SQR IN SAVE @0 COPY IF +FN LOAD COPY COPY CLEAR G COPY ATTR BORDER [Q] COPY COPY COPY RETURN SCREEN$ COPY DRAW u RUN } COPY RUN OUT u@ OUT p COPY IN COPY COPY PLOT /©W COPY COPY P4}U}@L MERGE © RUN FORMAT STEP ▗STR$ USR © LIST COPY CLEAR COPY COPY U CLOSE # COPY © OUT F`> OUT ? LLIST LLIST COPY SGN LIST LIST q COPY UUU_ PRINT a© CLEAR @ COPY COPY COPY [S] COPY PRINT CLOSE #wA CAT a COPY COPY COPY COPY BEEP COPY DRAW COPY COPY DRAW _ COPY CONTINUE LIST OVER PAUSE COPY COPY RETURN COPY COPY COPY COPY COPY COPY COPY RETURN SCREEN$ & LPRINT ?© CLEAR LPRINT ? RUN RETURN NEXT OVER DRAW ? COPY COPY COPY COPY COPY COPY RETURN [Q][T]>=@? COPY COPY COPY ?▘ LPRINT 0 COPY COPY COPY COPY COPY COPY COPY COPY SCREEN$ RANDOMIZE IN COPY COPY RETURN n/ COPY COPY COPY COPY COPY COPY IF PEEK DRAW { RUN IN x▖CODE COPY COPY COPY COPY IF SCREEN$ SCREEN$ [Q] NEXT COPY SCREEN$ COPY FORMAT LINE LPRINT SCREEN$ SCREEN$ *SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ FN COPY x= LOAD NOT LLIST COPY SGN RUN COPY COPY RETURN COPY SAVE FORMAT 8[M] COPY COPY RETURN RETURN ©|} COPY [P] BORDER DRAW ©[O]< COPY COPY COPY COPY COPY COPY CLEAR @▜ COPY COPY RETURN COPY ?© CLEAR COPY SGN RUN RETURN NEXT OVER |_ COPY COPY COPY COPY COPY COPY COPY QUBIN A© COPY COPY COPY COPY COPY PRINT t@© COPY COPY COPY COPY COPY COPY COPY W|_ COPY COPY DRAW COPY © RUN x RUN © LOAD COPY COPY COPY COPY COPY COPY PRINT BEEP |M© INVERSE COPY DRAW LOAD }▜y RUN [P]© LOAD RETURN ] COPY COPY COPY COPY PRINT UUG DRAW _ COPY EXP [H] INVERSE |UUUUUU@o?<= RANDOMIZE READ OUT CLEAR COPY BORDER DUUP@y LOAD = BORDER NOT LLIST COPY < RUN / COPY COPY DRAW IF COPY TO " COPY COPY RETURN COPY ?|} COPY IN RUN RETURN COPY OUT < COPY COPY COPY COPY COPY COPY COPY FN BORDER COPY COPY RETURN COPY ©~ CLEAR COPY SGN RUN DRAW COPY OVER |? COPY COPY COPY COPY COPY COPY COPY REM ATTR LPRINT @ COPY COPY COPY COPY COPY COPY SCREEN$ INT ▖ COPY COPY COPY COPY COPY COPY COPY INPUT SCREEN$ DRAW IN COPY COPY RETURN COPY :© RUN x RUN © LOAD COPY COPY COPY COPY COPY COPY RETURN SCREEN$ PEEK N COPY COPY RETURN DRAW COPY :▜ COPY y RUN [P]© LOAD RETURN SCREEN$ CODE COPY COPY COPY IF SCREEN$ SCREEN$ CODE SAVE CODE COPY @SCREEN$ DRAW *SCREEN$ SCREEN$ SCREEN$ FN o© LOAD CLEAR READ OUT CLEAR COPY IN RUN *FN © LOAD CLEAR BORDER NOT LLIST COPY IN RUN DRAW © COPY COPY DRAW @ POKE L LET COPY COPY RETURN COPY ?|} COPY IN RUN RETURN COPY OUT < COPY COPY COPY COPY COPY COPY CLEAR P CAT COPY COPY RETURN COPY ©|} COPY SGN RUN COPY OVER < COPY COPY COPY COPY COPY COPY COPY PRINT U LPRINT !© COPY COPY COPY COPY COPY MERGE @@© COPY COPY COPY COPY COPY COPY PRINT U|[B]_ COPY COPY DRAW COPY ?© RUN | RUN CAT © LOAD COPY COPY COPY COPY COPY COPY CLEAR U^O COPY CLEAR COPY IF COPY ▜ COPY x RUN © LOAD RETURN ] MERGE U COPY RUN uUU LIST EU MERGE U MERGE AEUUP CAT © LOAD CLEAR NEXT OUT CLEAR COPY IN RUN TT© LOAD CLEAR READ NOT LLIST BORDER IN RUN DRAW © COPY COPY RETURN RETURN SCREEN$ L3 COPY COPY RETURN COPY ?|} LPRINT < RUN [O] NEXT OUT SGN COPY COPY COPY COPY COPY COPY COPY SCREEN$ [Q][B] OUT COPY COPY RETURN COPY ©x= COPY SGN RUN ©[O]< COPY COPY COPY COPY COPY COPY COPY RETURN ATTR STOP " COPY COPY COPY COPY COPY COPY SCREEN$ VAL$ FN IN COPY COPY COPY COPY COPY COPY RETURN SCREEN$ DRAW IN COPY COPY DRAW ?© RUN | RUN CAT x COPY COPY COPY COPY COPY COPY VAL$ SCREEN$ RETURN o COPY ATTR COPY POKE ~ RUN © LOAD RETURN ATTR SCREEN$ ATTR IN INT SCREEN$ SCREEN$ SCREEN$ (*SCREEN$ SCREEN$ SCREEN$ [Q] CAT y LOAD = NEXT OUT CLEAR BORDER SGN RUN ?<= RANDOMIZE READ NOT LLIST BORDER [P] BORDER DRAW COPY COPY COPY COPY COPY COPY CLOSE #$ COPY COPY RETURN ?|} DRAW < RUN [O] NEXT OUT DRAW © COPY COPY COPY COPY COPY COPY MERGE @▝[P] OUT COPY COPY RETURN ? COPY COPY COPY COPY COPY COPY COPY CLEAR S LIST !© COPY COPY COPY COPY COPY MERGE @_ COPY COPY COPY COPY COPY COPY RUN U|© COPY COPY COPY ©▜~ RUN LOAD © COPY COPY COPY COPY COPY PRINT uU CLEAR G COPY [N] COPY IF U]UuUP[E]TUUUU@x= CLS NOT LLIST BORDER SGN RUN COPY COPY COPY COPY COPY COPY SCREEN$ dc COPY COPY RETURN ©?|} DRAW ? RUN [O] NEXT OUT DRAW COPY COPY COPY COPY COPY COPY COPY RETURN [Q]▖[P] OUT COPY COPY RETURN ? COPY COPY COPY COPY COPY COPY COPY RETURN SCREEN$ LIST IN COPY COPY COPY COPY COPY REM ▘? COPY COPY COPY COPY COPY COPY RETURN INT DRAW © COPY COPY COPY <©▜~ RUN LOAD ©IN COPY COPY COPY COPY RETURN VAL$ SCREEN$ RETURN c COPY COPY COPY LIST SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ [Q] SCREEN$ SCREEN$ SCREEN$ SCREEN$ FN COPY x= CLS NOT LLIST BORDER SGN RUN COPY COPY COPY COPY COPY COPY CLOSE ## COPY COPY RETURN RETURN ?}} DRAW ? RUN [O] NEXT OUT DRAW © COPY COPY COPY COPY COPY COPY CLEAR AUSR <=[P] COPY COPY RETURN ? COPY COPY COPY COPY COPY COPY COPY CLEAR U LIST © COPY COPY COPY COPY COPY FORMAT E COPY COPY COPY COPY COPY COPY RUN U|© COPY COPY COPY ©▜{ RUN IN ©_ COPY COPY COPY COPY wUUPS COPY [F] COPY CONTINUE UU]UUUU@tDuUUQ@ COPY x= LOAD NOT LLIST BORDER SGN RUN FFFFFFFFFFFF NEXT COPY COPY !RPEEK RESTORE THEN `ATN GO SUB B LLIST (~ RETURN OPEN #( RETURN ACS ( GO SUB FN DIM CLS <>+~+~ RETURN (O>+N RESTORE bkw GO SUB LN LLIST +>=+CHR$ ▖H AND CIRCLE STOP NOT eACS LPRINT :ACS ACS ACS 0ACS (ACS 4USHAFCALLESCRIPOPAFRETMATANTLDDE,ENTLONCALLNEGDEADDIY,DECP(IY+OFENE)JRNZ,MATANSINC(IY+OFMUER)DEC(IY+OFMUER)JRNZ,MATANSCALLMATENEXORAMATANSRET;* OPEN #TERMSETLDL,(IX+OFX)LDH,0ADDHL,HLLDDE,TERMSADDHL,DELDA,(HL)INCHLLDH,(HL)LDL,ALD(TERMACT),HLLDA,12JPESCRI;* OPEN #RESACUMUXORALD(BALAZOS),ARETACUMULLDA,(CARACT)CPSODISPJRNZ,NOACUMLDA,(MUNICI)ORAJRZ,NOACUMLDA,(BALAZOS)INCALD(BALAZOS),ACP10JRC,NOACUMPUSHIXPOPIYCALLMATENECALLRESACUMUNOACUMRET;* OPEN #QUIETO_RLDA,1JRNUEVSECCAE2_RLDA,14JRNUEVSEACS CODE 2e2em STEP LOAD m STEP EXP e STEP fp RETURN 1( RETURN 2 LINE Se RETURN 3 LINE e RETURN 4(" DIM STEP ?e!(q STEP SGN pxLEN CLS NOT /*FN nI/ GO SUB VAL <> STEP Eo STEP [F]pSTR$ CODE 2e!ATN s"rh>%2th!y"uh!@"wh STEP yh!▞q STEP SGN pCODE 2ss INVERSE !▛t STEP Oj INVERSE !u STEP l STEP DATA eNOT eCODE 2ss2e!u"rh>2th!INT "uh!@"wh STEP yh STEP m STEP DATA eNOT e> PRINT INVERSE !u INVERSE PEEK ( INVERSE RUN INVERSE ~2{u LET PRINT STEP j FOR STEP [H]j LET = CIRCLE <> STEP RETURN e STEP /f STEP NEXT f STEP CLS f:ePI LINE BORDER e STEP im STEP yh<> RESTORE MERGE OR PRINT :ePI STEP rg NEXT >2e CLS LET STR$ MOVE LLIST <> RESTORE MERGE OR PRINT :ePI( NEXT CODE 2e STEP [K]g CLS LET STR$ MOVE LLIST <>v<> RESTORE MERGE OR ' STEP ▝f CONTINUE STEP ▝fd STEP vf} RESTORE MERGE OR ' STEP vf CONTINUE STEP vfd STEP vf} RESTORE MERGE OR d STEP ▖f STEP ▖fO STEP fSTR$ MOVE LLIST <>R0 CLS DRAW <> DRAW PRINT y AND 0 RESTORE STEP FLASH l LLIST LET <> RESTORE GO SUB [TAB a:CODE ao STEP SCREEN$ f LLIST <> RESTORE OR MERGE } NEW W} NEW 8_} NEW USR OPEN #SIN W FOR MOVE { NEW THEN ; THEN ; THEN ;@ FOR STR$ LLIST <> RESTORE THEN ; THEN ; THEN ;&} THEN THEN NEW LPRINT oX FOR LLIST <> STEP ATTR n{2 PAUSE f<>: PAUSE f RETURN LINE CODE i PRINT CODE 2VAL$ i LET NEXT : PAUSE f NEW BIN ,g: PAUSE f NEW BIN 8g: PAUSE f NEW BIN Dg: PAUSE f NEW BIN [g CLS <>:CODE a RETURN CIRCLE ==2CODE a<>:CODE a RETURN ACS OPEN # FORMAT <<2CODE a<>*TAB aPI GO SUB R CIRCLE *TAB aPI GO SUB R"TAB a<>*TAB a PLOT PI GO SUB R FORMAT *TAB a"TAB a<>@ GO SUB [TAB a:CODE ao STEP SCREEN$ f FOR "pgSIN a RESTORE [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] LLIST STEP Ln GO SUB <>!SIN a GO SUB [pg MERGE [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] MOVE STEP Rn GO SUB <> GO SUB [TAB a:CODE ao RETURN USR 8[A]O>USR [B]G OR STEP SCREEN$ fSTR$ FOR RESTORE MERGE NEW o&ih~#fo"ATTR a MOVE LLIST GO SUB sATN g GO SUB {ATTR a }/ NEW w# MOVE }/ NEW w# MOVE }/ NEW w# MOVE }/ NEW w# MOVE }/ NEW w#PI GO SUB R$| NEW } AND o8| VERIFY g GO SUB {ATN g<> MERGE VAL MERGE P VERIFY LIST VERIFY ATN s%ACS RESTORE MERGE OR STEP f STEP SQR h*uh GO SUB [wh OR Fwx#STR$ PRINT MOVE STEP Rn FOR b OR Fwx#STR$ xLEN PAUSE STEP PAPER hSTR$ MOVE LLIST <> RESTORE MERGE OR !Xb GO SUB VAL !XX COPY 6 GO SUB VAL STR$ MOVE LLIST <> RESTORE MERGE OR !bX GO SUB VAL STR$ MOVE LLIST <> INVERSE RESTORE RESTORE MERGE OR STEP f PRINT RESTORE STEP i GO SUB [VAL a:LEN ao STEP MERGE f LLIST LET STEP )i STEP RETURN eSTR$ MOVE LLIST INVERSE LLIST <> PRINT GO SUB [VAL a:LEN ao STEP SCREEN$ f LET PRINT STEP Li LET <> MERGE OR STEP {ix PRINT OR MERGE ~#xLEN RUN MOVE FOR FOR STR$ LET = CONTINUE STR$ MOVE <> MERGE OR MERGE STEP ix MOVE PRINT OR MERGE GO SUB VAL MOVE STEP RnSTR$ LET = PAUSE STR$ MOVE <> RESTORE MERGE OR !USR USR COPY ?6 GO SUB VAL STR$ MOVE LLIST <> MERGE STEP iXy= DRAW THEN 8 THEN 8 THEN 8 MOVE <> RETURN 0PI(=o&)) MERGE POKE n^#V#F#N!y MOVE <>:VAL$ iPI >2VAL$ i STEP [P]l0 INVERSE ~ STEP AND i<> PRINT PI(= RETURN 0 INVERSE RESTORE RESTORE MERGE OR o&) FOR i~#fo STEP REM iSTR$ MOVE LLIST INVERSE LLIST LET <> DIM jOjSjWjATN j+j/j3jj OUT kl>2e:ss STEP nj:ss STEP j FOR STEP [H]j<>:j RETURN >2e STEP im<> STEP ▚m:ss STEP nj STEP %l:jPI(:j=2j<> STEP ▚m:ssLN ( STEP nj STEP ▚k STEP =m<> STEP j FOR x2ss STEP [H]j STEP j STEP INKEY$j<> MERGE o&)j~#fo MOVE <>iu/#/6/ RESTORE MERGE OR !iu GO SUB VAL STR$ MOVE LLIST <> RESTORE MERGE OR iu GO SUB VAL STR$ MOVE LLIST <> INVERSE ^*s INVERSE F INVERSE ~PI(PI GO SUB RNOT MOVE jPI GO SUB Z IF <k RESTORE MERGE FOR ! POKE PI GO SUB R FOR MOVE LLIST IF <k INVERSE "ASN j INVERSE RESTORE INVERSE ~ STEP STR$ k INVERSE ~ STEP ]k INVERSE ^ STEP EXP k CLEAR n CLEAR fPI GO SUB R PAUSE k INVERSE LLIST 0 CLEAR u CLEAR t STEP =k INVERSE LLIST INVERSE ~ STEP ]k INVERSE ^ STEP EXP k CLEAR n CLEAR f CLEAR u CLEAR t STEP =k*ASN j"s STEP uk<> RESTORE MERGE OR RESTORE STEP f LLIST INVERSE ~ VERIFY 2VAL a INVERSE ~2LEN a STEP 1f STEP RETURN eSTR$ MOVE LLIST <>PI(= RESTORE MERGE o&)[B]s~#fo RESTORE CLEAR LLIST MOVE LLIST <>> FORMAT 2VAL a>2LEN a*s STEP If<>! INVERSE !iu CLEAR !t OR INVERSE N INVERSE FxLEN ( CLEAR ^xLEN IF CLEAR INVERSE # INVERSE #STR$ OVER "s<> THEN {(<> RESTORE MERGE OR GO SUB [rhPI(=o&MD))) RESTORE INVERSE LLIST STR$ MOVE LLIST <>:ss NEW (> INVERSE ~PI 8 STEP %l STEP kl:jPI :j<2j:ss INVERSE w STEP im INVERSE ~2{u:ss STEP nj:j RETURN INVERSE !Au STEP ▚m<> INVERSE RESTORE CODE 2j CLEAR !u:ss CLEAR PEEK (>2jCODE CLEAR w CLEAR ~2VAL a CLEAR ~ AND 2LEN a> CLEAR RESTORE OR STEP f STEP i STEP RETURN eSTR$ CLEAR LLIST CLEAR <> INVERSE LLIST <>:ss NEW PRINT INVERSE ~2VAL a INVERSE ~ AND 2LEN a STEP f LET AND STEP i STEP RETURN e<> INVERSE ~2VAL a INVERSE ~2LEN a INVERSE ~ STEP GO TO h<> GO SUB [TAB ac:CODE ao:thG INVERSE *rh INVERSE ^ INVERSE # INVERSE V INVERSE # INVERSE ~SGN 0 INVERSE ~SGN 8 INVERSE ~ABS 0 INVERSE ~ABS 87 INVERSE LLIST PI<> RESTORE MERGE OR STEP [H]n RESTORE :VAL a_:LEN ao STEP SCREEN$ f LLIST ~# STEP Rn SAVE :VAL a AND 2VAL aSTR$ MOVE LLIST <> INVERSE !u NEW > INVERSE RESTORE OR STEP plSTR$ INVERSE LLIST INVERSE RESTORE y2j RETURN INVERSE !Au STEP ▚mCODE 2ss<> INVERSE !EXP s OR INVERSE ~ INVERSE RESTORE STEP ]k CLEAR n CLEAR f STEP =k INVERSE LLIST INVERSE STR$ DATA STEP uk<>ACS ? RESTORE MERGE OR STEP f:emPI(sCODE 2em:dmW:cmO*fmL STEP im RESTORE MERGE OR STEP f:emPI S INVERSE ^ INVERSE n STEP MERGE f FOR INVERSE ~ INVERSE [G] THEN ? THEN ? THEN ?<PI(7W INVERSE ~ INVERSE [G] THEN ? THEN ? THEN ?<PI(&2cmOz2dm"fm>2em:hm_B RESTORE ~ATTR w# IF LLIST MERGE MOVE INPUT STEP RETURN eSTR$ MOVE LLIST <> NEXT LLIST MOVE 1FN a MERGE RESTORE STEP rg STEP f> INPUT GO SUB G GO SUB ^!n" COPY INPUT CLS CODE OPEN # OPEN # RETURN <> INPUT PRINT OR MERGE RESTORE INK PRINT OR MERGE RESTORE INVERSE RESTORE CLEAR RESTORE :n:ePI( STEP [K]g STEP rg STEP EXP g CLEAR LLIST INVERSE LLIST LLIST MOVE STR$ LET INK LLIST MOVE STR$ LET CLS <>ACS In FOR STEP Rn FOR <>z NEW USR { AND _ CIRCLE z VERIFY W<>z/ NEW USR { VERIFY _ CIRCLE z AND W<>$| NEW USR } AND o CIRCLE | VERIFY g<>>>8!!X# DRAW ## PRINT <>o&) OPEN #[E]p<>A,(ETPEEK o INVERSE RESTORE INVERSE *FN n:SCREEN$ nW& INVERSE N INVERSE F INVERSE n GO SUB xSCREEN$ RND[F] THEN INVERSE # INVERSE # INVERSE #% BORDER INVERSE LLIST <>> CLEAR FLASH RETURN NEW 7?<>CODE 2n>IN FLASH RETURN NEW PLOT >2n<>USR H TO H[I]"Hd&H0*H DRAW -H>=1H[E]5H`9H,=H SAVE @USR SAVE [H/[I]/ CONTINUE /x^▖^[I]^FN ^ STEP [F]p STEP ~q!Cq STEP SGN p STEP fp RETURN S( RETURN C( RETURN R( RETURN K GO SUB FLASH OUT NEW BORDER CODE =!CODE o7CODE !PEEK o1CODE ! STEP o+ STEP .p STEP [F]p STEP ~q STEP FOR o! BRIGHT o INVERSE ![S]n OR INVERSE ^ INVERSE # STEP upq#p#w#STR$ INPUT ! BRIGHT oCODE 2SCREEN$ n"FN n<> OUT COPY OUT COPY OUT COPY OUT COPY OUT COPY RETURN LOAD RETURN LOAD RETURN LOAD RETURN LOAD RETURN LOAD RETURN RUN RETURN LOAD RETURN LOAD RETURN LOAD RETURN LOAD RETURN LOAD RETURN LOAD RETURN LOAD RETURN LOAD RETURN LOAD INVERSE ![S]n!q STEP p!q STEP p!q STEP p! q STEP p!#q INVERSE RESTORE RESTORE STEP [F]p! RANDOMIZE p STEP SGN p LLIST INVERSE LLIST STEP SGN p INVERSE RESTORE STEP Jp INVERSE LLIST STEP 9p( POKE INVERSE w INVERSE #<>![S]n6 COPY # CLS <>![S]nPEEK >= RETURN >= RETURN >=# PRINT <>CODE 2 COPY SQR ( STEP ▙ NEXT LIST ( GO SUB { RETURN COPY <> STEP Jp( CLS !~<>{ NEW INPUT G> RETURN O CLEAR G{ OPEN # NEW W>[C]WCODE 7CHR$ p<> RESTORE MERGE OR PRINT !@@>` RESTORE 6 GO SUB VAL LLIST PRINT STEP Ln LET RESTORE MOVE = GO TO LET STR$ MOVE LLIST <>[I] RESTORE MERGE OR PRINT :INT p2VAL a:SQR p2LEN a~#PI(# RETURN ~# THEN ' THEN ' THEN '2SQR p~# THEN ' THEN ' THEN '2INT p OPEN # OPEN # RESTORE STEP FLASH l LLIST CIRCLE LET STR$ MOVE LLIST <>PRESSKEY FOR:LEFTRIGHTDOWNUPFIRESTART TAPESTOP TAPER - KEYBOARDS - SINCLAIRC - CURSORK - KEMPSTON>2! CLEAR <>WEIGHT:ACS RETURN ▘ OPEN # RETURN RETURN ▘ OPEN # RETURN RETURN ▘ OPEN # RETURN RETURN ▘ OPEN # RETURN RETURN ▘ OPEN # RETURN RETURN ▘ OPEN # RETURN RETURN ▘ OPEN # RETURN RETURN ▘ OPEN # RETURN RETURN ▘ OPEN # RETURN RETURN ▘ OPEN # RETURN ACS ~ACS 00 @~B OPEN #~( OPEN #~~@@~~>~B OPEN #~~@~~~@~BB~~ OPEN #~B~BB~~BB~ACS ACS RETURN ▘ OPEN # RETURN RETURN ▘ OPEN # RETURN RETURN ▘ OPEN # RETURN RETURN ▘ OPEN # RETURN ~ RETURN ▘ OPEN # RETURN ~BB~BB~DxDB~~@ OPEN #~pHDBB~~@x@@~~@@x@@~@@BB~BB~B OPEN #| OPEN #| OPEN #BB~DHpHDB@ OPEN #~BfZB OPEN #BbRJFB~B OPEN #~~BB~@@~BBJF~~DHxDB~@~~| OPEN #B OPEN #~B OPEN #$B OPEN #ZfBB$$BD OPEN #|~ ~ACS SCREEN$ ACS ACS }s©sss▝s▜s▞s▛s▟siukuquoumusu OPEN #wuyusPXPX PX(0PX8@HPPEEK PX/dPXt|<PX[A][I]PXAT TAN ▖▖ ▖(0▖8@▖HPPEEK ▖/d▖t|<▖[A][I]▖AT TAN ACS [C]SIN SCREEN$ PEEK ACS [A]AT [O]ACS LN CLOSE #[O]ACS LPRINT COPY [O][I]([I]("[I](&2[I](6B[I](FR[I](Vj[I](n▘[I](▚[S][I](INKEY$SGN [I]ACS ACS ACS [A][Q]ACS LIST COPY 0ACS x▖VAL USR ACS [A]ACS SCREEN$ USR ACS STOP COPY x▙ACS STOP COPY [A]INKEY$ACS STOP COPY FN PEEK ACS USR LPRINT ><<USR ▝P CONTINUE CLOSE # REM PRINT IF U COPY COPY COPY COPY COPY COPY RETURN RETURN DRAW DRAW LIST USR USR )4ZABS z DRAW :TAN XTAN H SAVE 8h[Q]P[Q]p LPRINT P LIST LPRINT USR (@x0@@[Q]USR ??© COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN SAVE LIST LPRINT LPRINT LPRINT SAVE DRAW SAVE SAVE LPRINT LPRINT LPRINT USR USR USR USR USR USR USR USR LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LIST LIST p0[Q]@@STR$ USR TO ▜ACS J[T]STR$ STOP RESTORE PAPER PRINT PAPER ASN P P P LIST `@USR ??? COPY COPY COPY ©©???@USR @@ DRAW LIST LIST SAVE RETURN RETURN RETURN DRAW LIST LIST USR (=2g+dACS Pd:t:}:}??~m:-FN PH$FN LN 0``USR LPRINT @ ` @`@8▗@FN tLN T COPY COPY COPY COPY COPY RETURN RETURN COPY COPY COPY COPY COPY COPY COPY DRAW LIST LIST LPRINT +z=S[Q]d BEEP r9Z= LPRINT LPRINT LPRINT LIST COPY COPY RETURN [M] [A]FN TJ$O.L[B]s[U][A]0$[G]c MOVE LN MERGE SCREEN$ USCREEN$ USR > CAT &T,Hp` @@??© COPY COPY COPY COPY COPY COPY COPY COPY ©©???????? COPY COPY COPY COPY COPY SAVE LIST LIST DRAW DRAW RETURN RETURN RETURN RETURN RETURN DRAW SAVE LIST LPRINT LPRINT LIST LIST LPRINT LPRINT LPRINT LPRINT LIST LIST SAVE SAVE RETURN RETURN RETURN COPY COPY COPY COPY COPY COPY COPY @FN >=b</[I]P0 LIST @[Q][A]00`[A]@▞$>=4 IF GO SUB IF GO SUB SQR ]* COPY COPY RETURN COPY COPY COPY RETURN RETURN DRAW SAVE LPRINT USR USR ?../FN / COPY OPEN # OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE # OUT COPY OPEN # SAVE SCREEN$ OPEN # COPY OPEN # DRAW MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #ACS <SCREEN$ OPEN #+ COPY OPEN #SGN MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #ACS <SCREEN$ ACS ACS ACS ACS <T@ACS <] COPY xACS ACS ACS <} COPY xACS RETURN ACS COPY xACS |ACS 8ACS H▖P@ACS 8ACS | COPY x LPRINT ACS ACS RETURN ACS RETURN @@ACS (SCREEN$ ACS ACS ACS OPEN # CLOSE # COPY OPEN # CLOSE # COPY MERGE COPY OPEN # CLOSE # COPY CLOSE #© COPY OPEN #SCREEN$ OPEN #O COPY OPEN # MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #g COPY OPEN #SCREEN$ OPEN #S COPY OPEN # MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #a COPY OPEN #SCREEN$ OPEN #T COPY OPEN # MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #`© COPY OPEN #?SCREEN$ ACS ACS ACS E4ACS /©T ACS bACS COPY . COPY CLEAR LPRINT ACS ACS UACS COPY > COPY CLEAR SAVE ACS RETURN ACS bACS ©. COPY CLEAR DATA ACS |ACS 8TACS COPY 4UACS 8ACS |jACS ©. COPY CLEAR LPRINT ACS ACS RETURN TACS © RETURN ACS bACS ©SCREEN$ ACS ACS ACS TACS © MERGE COPY OPEN # CLOSE # COPY OPEN # CLOSE # COPY MERGE COPY OPEN # CLOSE # COPY CLOSE #jACS ©SCREEN$ OPEN #TACS © MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #jACS ©SCREEN$ OPEN #TACS © MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #jACS ©SCREEN$ OPEN #TACS © MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #jACS ©SCREEN$ ACS ACS ACS TACS ©T? SAVE ACS jACS ©? DRAW SAVE ACS ACS TACS ©IN DATA ACS RETURN ACS jACS ©© PLOT LN CHR$ ACS |ACS 8TACS ©[Q]ACS 8ACS |jACS ©TPACS ACS RETURN TACS © RETURN *[Q]ACS jACS ©SCREEN$ ACS ACS ACS TACS © MERGE COPY OPEN # CLOSE # COPY OPEN # CLOSE # COPY MERGE COPY OPEN # CLOSE # COPY CLOSE #jACS ©SCREEN$ OPEN #TACS © MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #jACS ©SCREEN$ OPEN #TACS © MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #jACS ©SCREEN$ OPEN #TACS © MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #jACS ©SCREEN$ ACS ACS ACS TACS ©T8|ACS jACS ©| RETURN >ACS ACS TACS ©© LPRINT ACS RETURN ACS jACS ©©~EPEEK ACS |ACS 8TACS © ACS 8ACS |jACS ©| RETURN >ACS ACS RETURN TACS © RETURN 8|ACS jACS ©SCREEN$ ACS ACS ACS TACS © MERGE COPY OPEN # CLOSE # COPY OPEN # CLOSE # COPY MERGE COPY OPEN # CLOSE # COPY CLOSE #jACS ©SCREEN$ OPEN #TACS © MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #jACS ©SCREEN$ OPEN #TACS © MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #jACS ©SCREEN$ OPEN #TACS © MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #jACS ©SCREEN$ ACS ACS ACS TACS ©T LPRINT ACS jACS © LIST PACS ACS TACS © LOAD XACS RETURN ACS jACS ©© RUN BORDER RACS |ACS 8TACS © CONTINUE ACS 8ACS |jACS © LIST PACS ACS RETURN TACS © RETURN [Q]ACS jACS ©SCREEN$ ACS ACS ACS TACS © MERGE COPY OPEN # CLOSE # COPY OPEN # CLOSE # COPY MERGE COPY OPEN # CLOSE # COPY CLOSE #jACS ©SCREEN$ OPEN #TACS © MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #jACS ©SCREEN$ OPEN #TACS © MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #jACS ©SCREEN$ OPEN #TACS © MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #jACS ©SCREEN$ ACS ACS ACS TACS © CLOSE #ACS jACS ©SCREEN$ LPRINT ACS ACS TACS © CLOSE #©SCREEN$ @ ACS ACS TACS COPY _ COPY COPY DRAW ACS jACS ©J[A]▙ACS ACS UACS COPY 7tACS RETURN ACS jACS COPY _ LIST INT ACS |ACS 8UACS COPY J[P] RETURN CIRCLE ACS 8ACS |j©U OPEN #w COPY REM COPY COPY © IF ACS ACS RETURN T COPY "SCREEN$ FOR COPY COPY CLEAR COPY COPY ?_ PRINT WtACS i COPY U]_ COPY CONTINUE COPY COPY J[F]S▙ACS ACS S COPY *SCREEN$ ATTR COPY COPY FORMAT COPY COPY RETURN @W DRAW ACS g COPY EW_ COPY COPY [Q] COPY COPY SCREEN$ _ LIST INT ACS ACS O COPY FN SCREEN$ OPEN # COPY COPY FORMAT COPY COPY CLOSE #@ACS _ COPY E© COPY COPY ATTR COPY COPY COPY SCREEN$ ACS ACS ACS © COPY *SCREEN$ SCREEN$ ATTR CODE COPY W COPY COPY COPY MERGE COPY OPEN # MERGE COPY OPEN # CLOSE # COPY MERGE COPY OPEN # CLOSE # COPY CLOSE #O COPY COPY @ CAT © COPY NOT RETURN COPY MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #@ACS SCREEN$ OPEN #@ACS MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #O COPY COPY USR COPY OPEN #USR LIST SCREEN$ OPEN #@ACS LIST MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #@ACS SCREEN$ ACS ACS ACS ACS CLOSE #USR COPY COPY RETURN © COPY COPY POKE IN COPY COPY CLEAR SCREEN$ ACS ACS © LOAD > COPY ~© COPY COPY POKE IN COPY COPY LIST CLOSE #0 RETURN ACS IN COPY COPY LET SCREEN$ COPY RETURN USR ACS ACS L DRAW > DRAW IN COPY COPY POKE ACS | POKE ~ SAVE F© LIST POKE IN COPY COPY LET ACS ACS © RUN ~ SAVE V© LIST POKE SGN pACS RETURN ACS L RUN > LIST RACS SGN }p[Q]ACS |ACS 8| BORDER > SAVE VACS SGN T~@ACS 8ACS |O BORDER SAVE V© LIST POKE SGN Q}[Q]ACS ACS RETURN O LOAD > DRAW N© LIST POKE <T~p@ACS | LOAD RETURN © COPY COPY POKE UACS ACS O LOAD >CODE ~© COPY DRAW 4SGN UU} RETURN ACS © LOAD W COPY RETURN ACS USCREEN$ _ POKE USR ACS ACS ACS COPY RETURN © COPY COPY POKE SGN UU} CLOSE #*FN ACS UTACS SCREEN$ ACS ACS ACS ACS © COPY COPY POKE ACS MERGE COPY OPEN # MERGE COPY OPEN # CLOSE # COPY MERGE COPY OPEN # CLOSE # COPY CLOSE #< CAT COPY COPY © COPY COPY POKE SAVE ACS SCREEN$ OPEN #< CAT COPY COPY | COPY COPY POKE COPY COPY ? DRAW MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #< CAT COPY OPEN #| COPY COPY POKE COPY COPY ? DRAW SCREEN$ OPEN #ACS © COPY COPY POKE ACS MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #< CAT COPY OPEN #© COPY COPY POKE COPY COPY ? DRAW SCREEN$ OPEN # OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #< CAT COPY OPEN #ACS COPY COPY ? DRAW SCREEN$ ACS SCREEN$ OPEN # CLOSE #U OPEN #T CLOSE # MERGE U OPEN #T CLOSE # CLOSE #ACS ?ACS SCREEN$ ACS SCREEN$ OPEN #© COPY OPEN #© COPY OPEN #© COPY OPEN # CLOSE #; VERIFY ▞, CLOSE #U OPEN #T CLOSE # MERGE U OPEN #T CLOSE # CLOSE #© COPY OPEN #© COPY OPEN #© COPY OPEN #SCREEN$ { RETURN [C]NACS ACS AA COPY AA COPY AA CLOSE #x[C]I?O$[C]I?O$[C]ISCREEN$ { COPY OUT INPUT ACS ACS I[C]I?I[C]I?I[C]I OUT INPUT ACS I$[C]A?I$[C]A?I$[C]AJ`x INPUT ACS ACS A$O?A$O?A$O@PnACS © COPY OPEN #?© COPY OPEN #?© COPY OPEN #2pnACS ACS © COPY OPEN #© COPY OPEN #© COPY OPEN #b_ INPUT ACS RETURN ACS © COPY OPEN #?© COPY OPEN #?© COPY OPEN #JT▙ACS |ACS 8 COPY ACS COPY ACS COPY COPY LPRINT ACS 8ACS |k COPY UW?k COPY UW?k COPY UW+ COPY LPRINT ACS ACS RETURN S<=*AT S*AT S*AT 2*AT ACS k▜Up?kUp?kUp* FLASH ACS ACS S*USR ?S1*USR ?S READ *USR 2*AT ACS kW?k READ W?k<=W RETURN *SCREEN$ LPRINT ACS ACS S<=,?S<=,?S READ , CLOSE #*VAL$ ACS k<=T~©kT~©k LET T~SCREEN$ zCODE [Q].ACS ACS S<=, DEF FN ©S, DEF FN ©S, DEF FN CLOSE #z+VAL$ MERGE COPY OPEN # CLOSE # COPY MERGE COPY OPEN # CLOSE # COPY CLOSE #k<=T DEF FN ©kT DEF FN ©kT DEF FN SCREEN$ { COPY LPRINT .SCREEN$ OPEN #S COPY , RETURN ©S COPY , RETURN ©S COPY , RETURN CLOSE #8? GO TO CLOSE #U OPEN #T CLOSE # MERGE U OPEN #T CLOSE # CLOSE # RETURN T© RETURN T© COPY TSCREEN$ ACS SCREEN$ OPEN #ACS ©ACS ©ACS MERGE COPY OPEN # CLOSE #U OPEN #T CLOSE # CLOSE #ACS ? COPY ACS ? COPY ACS RETURN SCREEN$ OPEN #? COPY OPEN # COPY OPEN # 8 RETURN MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #? COPY OPEN #?<= SAVE ~SCREEN$ OPEN #? COPY OPEN # (~ MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #? COPY OPEN # RETURN ] INPUT t~SCREEN$ OPEN #? COPY OPEN # RETURN ] GO SUB d> MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #? COPY OPEN # RETURN ^ REM CLOSE #>SCREEN$ ACS ACS ACS ACS . GO TO CONTINUE CLOSE #ACS © COPY OPEN #? COPY OPEN # RETURN i FORMAT >SCREEN$ oVAL ACS ACS jSCREEN$ OPEN #ACS eP CLOSE # BORDER 8? COPY OPEN #+ATTR FN ~SCREEN$ LIST xACS ACS jSCREEN$ OPEN #ACS M▝TACS up? COPY OPEN # RETURN ^|$>e0ACS ACS jSCREEN$ OPEN #ACS D IF ACS RETURN ACS U OPEN #? COPY OPEN # RETURN [4 RUN xACS |ACS 8© IF COPY COPY ACS [y4ACS RUN xACS 8ACS |@EIN COPY OPEN # RETURN F DRAW ▗ACS ACS ACS RETURN @BACS F DRAW ▗ACS RUN x READ IN COPY OPEN # RETURN V SAVE RUN xACS ACS @VAL X READ ACS Vt[E] RETURN ACS @ FORMAT h[S]? COPY OPEN # RETURN C)SCREEN$ PAUSE xACS ACS G LPRINT 8 READ ACS [ CLOSE #x LIST [S]? COPY OPEN #-CHR$ $SCREEN$ ACS ACS ACS @E READ ACS h MERGE COPY OPEN # MERGE COPY OPEN # CLOSE # COPY MERGE COPY OPEN # CLOSE # COPY CLOSE #© IF LOAD PEEK ? COPY OPEN #[A]SCREEN$ OPEN #U OPEN #? COPY OPEN # MERGE MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #jSCREEN$ OPEN #? COPY OPEN #SCREEN$ USR SCREEN$ OPEN #U OPEN #? COPY OPEN #> MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #jSCREEN$ OPEN #? COPY OPEN # AND >SCREEN$ OPEN #U OPEN #? COPY OPEN #8~ MERGE U OPEN #T CLOSE # MERGE UUT CLOSE # MERGE U OPEN #T CLOSE # CLOSE #jSCREEN$ OPEN #? COPY OPEN #ACS ~ACS ? COPY OPEN #ACS DRAW OPEN #F OPEN #G OPEN # OPEN # OPEN # OPEN # OPEN #E OPEN # OPEN # OPEN # OPEN # OPEN # OPEN #D OPEN # OPEN # OPEN # OPEN # OPEN # OPEN #C OPEN # OPEN # OPEN # OPEN # OPEN # OPEN #G OPEN # OPEN # OPEN # OPEN # OPEN # OPEN #B OPEN # OPEN # OPEN # OPEN #B OPEN # OPEN # OPEN # OPEN #/// OPEN #A OPEN #BG OPEN # OPEN # OPEN # OPEN #G OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN #E OPEN # OPEN # OPEN # OPEN # OPEN # OPEN #E OPEN # OPEN # OPEN # OPEN # OPEN # OPEN #E OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN #D OPEN # OPEN # OPEN # OPEN # OPEN # OPEN #D OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN #ACS ACS SQR INT RUN ACS CHR$ SCREEN$ ACS @@USR ACS LIST USR ACS @? LPRINT ACS © LIST © LIST SCREEN$ [Q] STOP @© RETURN INT LPRINT @} LIST ACS © LIST x LIST . RANDOMIZE @rp* STOP @e0ACS @J[A]ACS @te0ACS LIST ? BORDER UCHR$ ACS @ % TAB USR ACS 2~ABS @ACS ([Q]ACS USR % ACS USR @ACS @USR ACS @USR ACS @@USR ACS LIST USR ACS HUSR ACS DATA ([Q]USR w STOP H[A]-[Q]UkH[A]M[A]ACS H[A]M[A]ACS H[A]M[A]ACS STOP H[A]M[A]ACS DATA H[A]M[A]ACS HH[A]M[A]ACS LIST H[A]M[A]ACS @H[A]M[A]ACS @H[A]M[A]ACS H[A]M[A]]pACS H[A]M COPY UPACS x LIST M[A]ACS } LIST ACS ABS POKE ACS ▝TACS SCREEN$ INVERSE `ACS ACS .▞@ACS VAL$ <>@ACS SCREEN$ <>`,ACS ~ OPEN #▙A>=ACS ~ OPEN #STR$ ACS ~ OPEN #TtA CLOSE #ACS ~~Tj@ULN ~~jT RESTORE <>h~~TjACS TACS @SCREEN$ INT LN DTT@@**[Q]Lj@ OPEN #)VAL @ OPEN #*([C][Q]@ OPEN #ATTR [D]98@ OPEN #ACS @ OPEN #ACS @ OPEN #[U] LINE DATA USR ACS SCREEN$ SCREEN$ [Q]ACS INPUT DEF FN DEF FN [Q]( REM SCREEN$ [Q]8JSCREEN$ REM USR ($ACS DD OPEN #DDDD OPEN #DDDD OPEN #DDDD OPEN #DDDD OPEN #DDDD OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN #KACS ZACS TACS tACS ACS 6 INPUT RND ERASE PACS [U]LFN [F]pACS SIN JFN [F]pACS 6JD[C]PACS ACS RETURN LPRINT ACS ▗1[A]ACS 7 CLS DEF FN RETURN LIST RETURN HI COPY USR H DEF FN y COPY COPY SAVE G REM 1I COPY COPY DRAW H DEF FN ~ IF RETURN 3 COPY HA[B] BORDER COPY IN G DIM COPY A RANDOMIZE IN COPY COPY USR HATTR A? COPY COPY RUN LPRINT HATTR A~ COPY COPY CLS LIST / CONTINUE SCREEN$ A CLEAR LIST RETURN ~ SAVE COPY IF SCREEN$ RETURN SAVE LIST RUN PRINT U©|ACS LOAD REM SCREEN$ IN SGN @ COPY MERGE U_SGN @ OUT SCREEN$ CODE OVER ACS @ OUT TW OVER ^x RETURN FN ATTR RETURN RND? NEW [E]IN PW LOAD ACS PEEK [Q]+ LOAD ACS ABS @ LOAD ACS PEEK [Q]+ LOAD ACS CLEAR @ LOAD ACS RETURN [Q]+ COPY COPY ABS @ LOAD 8@PEEK [Q]+ LOAD O CLS COPY ~ COPY PW LOAD HA RETURN FN ATTR RETURN HA OUT TW OVER O CLS COPY ~ OUT SCREEN$ CODE OVER 80B COPY MERGE U_ DRAW ▜ CAT PEEK COPY REM SCREEN$ IN SGN ACS RUN PRINT U©|ACS CLS IF SCREEN$ RETURN SAVE +STR$ ACS } COPY W CLEAR LIST 4[S]ACS © COPY OPEN # LIST ACS ? COPY OPEN # LPRINT ACS IN COPY COPY USR 3`fUSR NEXT COPY ?+@V DRAW g COPY ACS COPY COPY DRAW ACS COPY COPY SAVE ACS COPY USR ACS RETURN -ACS LACS LACS LACS SQR [C]ACS ▙[U]▘+[C]SCREEN$ lACS LINE [U]CHR$ +[D]*,© COPY DRAW [U]▘+[C]SCREEN$ l@▘ REM D LLIST [C][C][D]@▘ACS ,© COPY DRAW ACS l@▘`,@▘SCREEN$ ▗FN ACS @▘LDAT @l@▘FN $FN L@▘USR l© COPY DRAW ACS OPEN # OPEN #D OPEN # OPEN #D OPEN # OPEN # OPEN # OPEN #D OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN #E OPEN # OPEN #E OPEN #ACS `TACS @TACS 3lACS +JACS ACS ACS ACS ACS ACS ACS [M] COPY SAVE COPY OPEN # LPRINT <cUSR 0▝A0STR$ @@▝A0AUSR 6>=A COPY COPY STR$ A@TAN FN A? RETURN A@A RETURN STR$ COPY SAVE ©▝ SAVE $A@ [L] ▜bh$©@"▖▝ ▞$A@&▖NOT [A]▛$A@ C [P] CLS $A@ ▝ $A@%H[J] ▙ INPUT h$A@'H© [B] SAVE $A@[Q]"$>@ " RETURN $"@"▖" RETURN SAVE $"@INKEY$▖";SQR [B]&"@ "DDQ!"@ "DDQ SAVE !"@RNDH RETURN DDN INPUT !>@'H▘© COPY MOVE !A@ ▘D@Q!A@ ▘D@Q"A@ ▘D@^ CLEAR &A@[S]FN C;[Q]IN RETURN $A@&▖& COPY COPY USR $A@ LPRINT READ © COPY SAVE ACS ACS ACS ACS FN ACS ACS CONTINUE U@ACS BEEP @ FLASH ACS ERASE (ACS T INPUT AT DATA nUwACS TDSCREEN$ SCREEN$ ▖W"ACS TD TO AT LINE LW"ACS TDSCREEN$ (W"ACS wN REM ▗ DEF FN ur'ACS VAL$ ▙ DATA LINE 5dw0ACS DATA ▗JSCREEN$ et$@ACS [U]▗NBIN %d& ACS [U]▗J[U]D$ACS VAL$ INPUT J[U]gGwd'ACS POINT 3[I][E] BRIGHT F INPUT JACS *POINT ]FN DVAL$ ACS :LEN INVERSE CIRCLE CONTINUE DVAL$ ACS SCREEN$ POINT ]PFN DVAL$ ACS ))U BRIGHT INKEY$NJ%ACS D OPEN # OPEN #D OPEN # OPEN #D OPEN # OPEN #D OPEN # OPEN #D OPEN # OPEN #D OPEN # OPEN #$ OPEN #ACS USR ACS ACS O[A]ACS LPRINT COPY COPY © LPRINT f@P@``V© POKE @" COPY IF P[Q]A^ FORMAT OUT VAL BRP FORMAT VAL ▗RP FORMAT VAL ▖VP FORMAT VAL LIST RP FORMAT VAL '>=RP FORMAT VAL !RP FORMAT VAL Y4^ FORMAT FORMAT VAL V CLOSE #" FORMAT VAL LN : COPY CLS USR _VAL VAL$ REM ``DE COPY DRAW © LPRINT ▚CHR$ [P] LINE ACS ▗B[R]@ACS `ACS [Q]ACS VAL ACS FN ACS *[U]ACS J[S] COPY RETURN ACS [R]ACS @ COPY COPY `ACS [Q]@"ACS [Q]"© RANDOMIZE ACS [Q]"P)PUSR "P)5 FORMAT USR "© RANDOMIZE ACS USR "ACS USR ; COPY COPY `ACS OUT FN ACS USR CONTINUE COPY RETURN ACS [Q]ACS 2[C][L]LEN ][M]<> INPUT SCREEN$ ATTR [S]) MOVE IDSCREEN$ SQR [T])YIDSCREEN$ ATTR [S])QIDLEN *[L]LEN ][M] MERGE LINE DATA $ACS POINT [S]COS ▗VAL$ L DATA jF INPUT `:"SCREEN$ [U]SCREEN$ J▙FN D:"ATTR [U]D:"SCREEN$ [U]SCREEN$ JVAL$ [S]DPOINT SQR COS DATA L REM REM LN`%ACS POINT SQR FN AND INKEY$DACS *9FN CONTINUE TO ACS ([U]dAT DACS [A][C])[S]SCREEN$ DACS FN TO [U] INPUT %ACS HD OPEN #$ OPEN #%ACS WUSR ACS STR$ UAACS r0 USR `e@`▝ SAVE WP LIST IU0ACS yINT ATN RUN RETURN IF SCREEN$ INKEY$|ATTR ASN >|;ASN >|ACS >|ACS ? DRAW ACS ? DRAW ACS DRAW SAVE SAVE w RETURN ? DRAW `<w RETURN ? DRAW (w RETURN / POKE w RETURN ? POKE w RETURN / POKE w RETURN ' BORDER VERIFY ACS [I]w COPY LIST LPRINT ACS UU LPRINT bATTR LIST <UU SAVE W OVER [Q](bATTR CLOSE #FN @UU ERASE %$bATTR ERASE $[U]UU ERASE %$ACS ERASE $[U]w COPY ERASE %$0w COPY ERASE $[U] DRAW <w COPY ERASE %$2(w COPY ERASE & DATA 1w COPY ERASE %$xw COPY ERASE $[U]▗ACS ERASE %$▜USR w COPY ERASE $[U]▜USR UU ERASE %$▗bATTR ERASE $[U]xUU ERASE %$1<bATTR ERASE $[U]2(UU RETURN ? DRAW DRAW bATTR USR VAL UUACS ACS ACS ACS w COPY ACS w COPY ACS w COPY ACS <w COPY OR @▝WUSR (w COPY |AT yU@ACS w COPY yACS 8 DATA +ATTR s7G,@99$BDD@)95""FD[POINT )!DN/[G]ATTR ATTR vgwACS DD OPEN #D OPEN #DD OPEN #D OPEN # OPEN #DD OPEN #DDDD OPEN #DD OPEN #DDDD OPEN #D OPEN # OPEN # OPEN #ACS _FN ACS LPRINT U[A]ACS LPRINT ACS | OR G LIST INT ~AT LPRINT E LPRINT ▘ @ACS @ DRAW LPRINT @FN ▘@FN E@@ FORMAT INT @` FORMAT |@p LIST ACS @x FORMAT ACS A LPRINT USR [A]ACS Ax@ACS Ap@ZA`@SCREEN$ {[A]$A@@* FORMAT A@ LLIST ACS A@ ERASE ACS STR$ @ CLOSE # SAVE @@r0< DRAW LPRINT ▞USR ▜8USR %0 LPRINT PU▝ LIST *[A]%ACS ?[O] PRINT P▞ACS [A]rACS 7# COPY ? SAVE SAVE &TACS 5u@ACS %S@ACS @ACS ACS ? RETURN ACS SIN 'ACS EXP ASN ru CLOSE #ACS 2[T]PI%%/ACS ATTR SCREEN$ ATN '%/ACS *[K]ASN %% CLOSE #"ACS RETURN ACS COPY USR ACS COPY LPRINT ACS COPY LIST ACS ? COPY SAVE 2ggcp[I]d? COPY SAVE ERRTA▗? COPY SAVE GbbW`▖▙©8 DRAW ERRU@[A]©| DRAW 5RWgq BRIGHT j LPRINT © RETURN DRAW ACS © RETURN DRAW ACS T© RETURN DRAW ACS (©| DRAW VUWw%0T©8 DRAW Uur"W@? SAVE VUr"W ? COPY SAVE UUR"U|? COPY SAVE vWW'%`| COPY LIST ACS | COPY LPRINT ACS COPY USR ACS RETURN ACS OPEN #DDDDDD OPEN #D OPEN #DD OPEN #DD OPEN # OPEN #DDDD OPEN # OPEN #D OPEN # OPEN # OPEN # OPEN # OPEN # OPEN #7 OPEN # OPEN #%ACS PEEK ACS SCREEN$ 8ACS 8>ACS USR lAACS |ACS l@ACS @ VERIFY PACS @ INPUT pACS @ AND PACS @ACS ACS AACS >ACS @8ACS © LIST /ACS @:ACS @9ACS SQR [A]ACS @ RETURN HACS | ACS lACS ACS USR INPUT ACS ▛ACS *[Q]mACS iACS *[Q]mACS ACS J[A]o LPRINT MERGE LN J[A]lU0J[A]l]FN *[Q]m INVERSE FN USR INPUT ACS l~ACS lI COPY USR INPUT ▖ COPY *[Q]m@ COPY 4J[A]l"P COPY ▖l@ READ LIST COPY ▗l "P COPY ▗l @ COPY ▖l@▖UJ[A]lISCREEN$ * LPRINT m>U6USR INPUT SCREEN$ "|U2ACS SCREEN$ ACS UACS SCREEN$ RETURN COPY LPRINT ACS COPY ACS ACS COPY 0ACS COPY TACS COPY 4>=ACS COPY ACS COPY ACS COPY ACS ACS PACS COPY MOVE PACS LIST COPY SAVE V LPRINT ~AT [H]%[Q]5VACS LINE SCREEN$ ACS VACS VAL$ REM BIN INKEY$ REM RESTORE &W& LIST IF SCREEN$ CONTINUE JUTU COPY PLOT BIN DEF FN DATA J OR vvuSCREEN$ STOP J▜UTU CLOSE # REM AT DATA STOP UWV LIST LN ACS COPY USR ACS DD OPEN #D OPEN # OPEN #D OPEN # OPEN #DD OPEN # OPEN #DD OPEN #D OPEN # OPEN #D OPEN #D OPEN # OPEN #DD OPEN # OPEN # OPEN # OPEN # OPEN #ACS ACS ACS ▘LN SAVE ACS ▘FN ACS H@[H]@[J](`W@ OR /[Q]>AT MERGE 8! /[Q]ACS /PITAN /[Q]BSCREEN$ [I] /[Q]AUSR @ SAVE INPUT BRIGHT /[Q]@ACS ' @ COPY ACS ' @ 0`@ COPY ACS *[Q] COPY DATA ACS SCREEN$ COPY IF ACS CLEAR k REM [Q]D COPY DATA LIST [A]% COPY USR *[Q]@ % @ COPY P *[Q]@ OPEN #% @P *[Q]@ SAVE OPEN #% AP *[Q]Br OPEN #0`D▞PUSR USR E% OPEN #0`EUACS P FN %E%_ RETURN POINT PAUSE ©SGN ▞UP (r OPEN # @P *[Q] SAVE © LIST © LIST _PACS ACS U ACS PACS ACS P1PACS +' COPY DRAW ACS @ACS nACS ▝[J] INK CIRCLE BRIGHT & CT[E][F]a"[Q] INK CIRCLE [I][F] CIRCLE "#[Q]AT[E][F]P$"[Q]C▟T[F] INK BRIGHT wLN &ACS CLOSE # MOVE Y<=VB7W0ACS [N]UUEBT@ACS [N]U▚&E"V ACS [N]UTET CLOSE # INVERSE INK <=Trg'`1ACS DD OPEN #DD OPEN #DD OPEN #DD OPEN #DD OPEN #D OPEN #DD OPEN #DD OPEN #DD OPEN #DD OPEN # OPEN #$ OPEN #%ACS OUT CIRCLE RETURN USR ACS &0ACS !!ACS @@▘ACS @ACS @ACS OPEN #@▘ACS @SIN @▘>=ACS @@▘ACS A ▘ACS /INKEY$Y}4ACS FORMAT ZV▘ CLOSE #ACS BP▘ACS BP▘ACS A ▘ COPY COPY NEXT LOAD PEEK _} POKE RETURN RETURN BORDER A ▘ RETURN RETURN BORDER @@▘ RETURN RETURN BORDER A ▘ RETURN RETURN <= LOAD PEEK _} POKE RETURN RETURN CAT ▝ RETURN RETURN CAT ▘[L]P RETURN RETURN CAT [N]P SCREEN$ SCREEN$ ▛ CLEAR RETURN COPY LIST TTACS SCREEN$ SCREEN$ ▛ACS TTACS SCREEN$ SCREEN$ +ACS TTUACS SCREEN$ FN ATTR ACS ACS RETURN DRAW COPY ` ERASE RETURN DRAW COPY LPRINT PAPER RETURN DRAW COPY ACS RETURN DRAW COPY ACS RETURN SAVE COPY ACS RETURN LIST COPY ACS RETURN PAUSE COPY ACS ACS T@UrVAL$ AT INPUT ▙PSCREEN$ [S]ATTR %[U]SCREEN$ D▖PTDU#0AT DSCREEN$ ATTR !SCREEN$ D▖TDU& REM D INPUT SCREEN$ ATTR ACS TDUACS ACS RETURN [O] COPY eDw38 RETURN [O] COPY UDB*SCREEN$ [Q] RETURN [O] COPY eDb3*VAL RETURN [O] COPY UDB"SCREEN$ [Q] RETURN [O] COPY gwr"[B]" RETURN [O] COPY ACS RETURN PEEK COPY ACS ACS SCREEN$ *ATTR >=F INPUT `TTUFN FN DSCREEN$ *ATTR >= DATA DTTU▖[S]DSCREEN$ *ATTR ▙AT N`TTUACS SCREEN$ *ATTR ACS INK M MERGE [M]ACS [F]P[F]PACS [J]P[F][I]ACS [F]P[F]PACS [F] TO [N]]ACS D OPEN #D OPEN # OPEN #D OPEN #D OPEN # OPEN #D OPEN #D OPEN # OPEN #D OPEN #D OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # OPEN # COPY OPEN #▖01 LET 1 LLIST ▖ LET LLIST ▖ COPY LET q LLIST ▖ COPY LET 1▖▖▖8▖▖ COPY DRAW ▝ OPEN #▖▖ COPY DRAW pSTR$ OPEN # COPY SAVE RETURN LLIST OPEN # LET DRAW ▝ LET OPEN #USR STOP BRIGHT STR$ LET OPEN # COPY OPEN #▙ABS READ COPY OPEN #ACS > RANDOMIZE LIST ACS ^LEN DRAW ACS COPY EbACS REM zPIACS RESTORE 0OACS JACS USR INKEY$ACS `ACS [G]ACS ACS ACS 0ACS VAL LPRINT ACS SQR USR ACS ACS USR ACS fACS RETURN ACS ACS LIST ACS IF ACS pACS @ACS <| LPRINT ACS © NEXT ACS © FLASH NEXT ACS ? FLASH PRINT USR ACS ?[D] LPRINT LPRINT ACS hSTR$ DEF FN ACS ▝<=/[D]▙ACS [A]Y LPRINT ACS ©© BRIGHT RETURN RANDOMIZE ACS 8 RETURN COPY ▝IN SGN `ACS 1 COPY COPY ▝© RETURN PACS ▜ COPY COPY COPY COPY (ACS © COPY COPY ▛ COPY COPY ▗ACS OUT COPY COPY © COPY USR ACS COPY OPEN #? COPY VAL ACS COPY CLEAR ©Y_ COPY BIN ACS COPY USR COPY SCREEN$ ACS RANDOMIZE CAT [ _ OVER ACS ©COS VAL$ ACS s<= RUN +©{[H]ACS BEEP [L] BORDER SPEEK %/ACS FOR FLASH BORDER ; INVERSE ?USR ACS ? DRAW BORDER q STEP STR$ _ LPRINT ACS ? LINE ,/[C]NOT ? LPRINT ACS ©ATTR ▝ NEW A[M]IN LIST ACS COPY Q[J] PLOT RANDOMIZE BRIGHT m_ SAVE ACS COPY [T][N] PLOT OVER SCREEN$ CODE SAVE COPY e BRIGHT RUN D OUT GO SUB _ DRAW COPY NOT OVER RUN ) INVERSE REM / RETURN COPY RESTORE OVER RUN | INVERSE INPUT ? RETURN CLEAR STR$ RETURN CLS T GO SUB CAT W COPY IF CAT NEXT RESTORE OVER - COPY CLEAR P LOAD BORDER T LLIST OVER RETURN CLS STOP COPY COPY SAVE BRIGHT CLEAR <>[A]/ OUT @ CLEAR IF l OPEN # COPY COPY ACS ? DRAW COPY COPY COPY OPEN # RETURN COPY COPY COPY OPEN # DRAW A COPY COPY SCREEN$ ASN UJSCREEN$ TAB U OPEN #SCREEN$ OPEN # COPY COPY SCREEN$ ASN UjSCREEN$ OPEN #FN ▘KV COPY COPY eRSIN RNDYTAT ATTR ++V OPEN # COPY COPY eRSIN RNDeYYeYZ ERASE U* COPY COPY *SCREEN$ ASN UJSCREEN$ TAB U OPEN #SCREEN$ OPEN # COPY COPY *SCREEN$ ASN UjSCREEN$ OPEN #AT SCREEN$ KV COPY COPY OPEN # OPEN # COPY COPY ERASE W RETURN COPY COPY / COPY OPEN # RETURN COPY COPY / COPY OPEN # REM © COPY COPY ACS RETURN J~ COPY COPY [Q]*lob[U]▖ COPY COPY *[Q]SCREEN$ OPEN #ATTR COPY COPY RETURN BV RETURN COPY COPY 4 CHR$ Bt>=Q AND COPY COPY @UEUU© COPY COPY VJ RETURN COPY COPY LPRINT [Q]$FN xUSR L(USR COPY COPY SCREEN$ ▘SCREEN$ SCREEN$ IN COPY COPY JV RETURN COPY COPY LPRINT !UF3[A] COPY COPY ACS UU_ COPY COPY VJ DRAW COPY COPY FN KJ[Q] SIN (, COPY COPY ACS SCREEN$ CODE COPY COPY JV RETURN COPY COPY USR OR /D▜▝EXP QPf COPY COPY ACS U COPY COPY VJ DRAW COPY COPY LPRINT ([U]▗[Q][Q]ACS + COPY COPY ACS SCREEN$ SQR COPY JB REM COPY COPY LIST @X[Q]FA1Q COPY COPY ACS UU LOAD V~ MERGE IF (ACS LPRINT INKEY$▗@,_ LPRINT ACS SCREEN$ ATTR COPY JJSCREEN$ FN RETURN BRIGHT RY!D©USR ACS UUoVVUT RETURN [I]SIN +[A]©ACS SCREEN$ *IN BJSCREEN$ [Q] RETURN [M]PaC@X@©ACS To~VUP~B[E]FN [Q]▛f LLIST ▖ LPRINT ~ACS *IN JJSCREEN$ >▟ LET %@w$|ACS UoVVU~8&VAL @ IF t~T DRAW ACS _JJSCREEN$ ACS LIST tq`POINT RUN ?pACS CODE VVU CLS LN SIN FN USR +[S]-`d*3▘v DRAW H▜SCREEN$ ACS WJJFN RANDOMIZE | PLOT q%[M]qqd`!= CLS DEF FN @L▗USR ATTR VVP LIST T"[U]<>LN h#▛>=@[S]▘(& STOP ▖UJJ[Q]PI▝ READ DcLN YNOT ATN `%@X"$DZ*VV@© CAT #INT ▜▙ LPRINT J ▘& STOP ▖UBB© LET ▗ LPRINT ©iUTqP`_p▗&*~~ CLEAR USR [Q] RUN Z[Q]k6,!FN @INKEY$cFN ▚>=h>UJJ▝ LET CAT (©k1uE POKE uP▞ LIST <><D▛wPSTR$ ▝ OR ▖XACS V LIST LN RETURN xFN 20SIN :c[T]^[P]@"SQR NEW h)▘d▘8 COPY COPY J COPY 9~$QU|TqaSQR EAT q MOVE up CIRCLE t COPY COPY V STOP ▚>= FORMAT |@NHLN cg r▘ AND SAVE . COPY COPY J MERGE 'YEWE FORMAT UA16 INK ▖ CAT [A]q LIST |P[A] COPY COPY V AND AND -x▗FN [T]FN LPRINT POINT @b{[T]INKEY$(▞[Q]*(:FN COPY COPY J BORDER ▗[E]HACS OPEN #dds MOVE CODE BRIGHT p MERGE g COPY COPY V PLOT !:@8[C] INPUT ▗▘nCODE ▛( COPY COPY B RESTORE [R]▟tG0p▝<=USR -d_[J]P COPY COPY ~USR 8[C](BIN USR 8-`[Q][S]k[S]*▘▖ COPY COPY J LPRINT P&Q[B]tpDQLEN AyA8@ COPY COPY V LIST (&D IF xh▝[L]L$ READ 3`8` COPY COPY JY4Tps[J][WtT COPY COPY V?LN (USR 0VAL$ (▘" LPRINT [K]8▛2STR$ ▚8[Q]* COPY COPY J?pe@@+[I]R[J]w READ LIST USR COPY COPY V[I][Q]fHhATTR R$[Q]▖ATTR VAL ? ERASE INKEY$▙[Q] COPY COPY J>=DPA MERGE LN "▜o?▝PUSR ▗ COPY COPY V; FOR ▚#[Q]TAB [Q][Q]▙KuACS ▞_ LPRINT B8USR @]PED%STR$ t@ AND aP|D©USR P~8[I][N][C]AT USR 0^▗ HFb8l*[I]▛©J4 INK ▞D0"$T DATA RETURN ASN :[<=DHUSR ©PV` CLS LET SAVE ▗▛[D]VAL "[Q] OR B[R]<>LN INK @~BJqoDAA BRIGHT @ FORMAT M 0$[B][I][A]▖||V[T]▛[Q]FN [R]8USR HFN ~JJ▞ BEEP OR AND 1▖USR RND! SAVE q@ATV FORMAT FOR ▘` LPRINT ▗USR ▘▝ SAVE B PAUSE ([S]▖JJ SAVE W@LP AD@▖A@ LET OR @SCREEN$ VV SAVE [L]▚FN PI"h; !▛USR &▛`POINT VAL JB SAVE Y▘VHp8@ LPRINT hsC READ ▝v ▝p*V~ SAVE 8[R];Hx$0 LPRINT SAVE A▘▖ AND ▘`VJ DRAW 8u@PE@6 DATA USR o▝@A OUT @JV RETURN ▖b DATA USR 8 PAPER [A]USR FN ▝ LINE FOR ▚lCj THEN VJ COPY USR tSTR$ D@$ NEW 0$Ax,SGN PBV COPY LPRINT =▘▗[S]0q▗[E]A~J COPY FORMAT I@ AQ RESTORE LEN STR$ TAN DRAW @0@JV COPY READ LET RANDOMIZE 0SCREEN$ ▛H(a STOP ▖<>0 STEP LN ""VJ COPY FORMAT /ESTR$ LIST 1/ TO 4@ DRAW @HXJV COPY ▖3▘SCREEN$ h[S]`@AT AT >USR `©[R]H STOP ▗VB©[O]e CLOSE #A[C]E` 'EXP FORMAT 3`^tPPJ~©[O],▚[Q]4© SAVE INKEY$h~; LN VJ© DRAW O▗E`STR$ [A]X> BORDER [O][G]P@` BORDER @▛JV@? IF (USR #0[S]▜ OR LN ▖}O[P]>=[I]INT VJ[Q]? RANDOMIZE /$[M]d#[O]oUSR BN` PBVP? RANDOMIZE [Q]▖ [M]USR [D]LN J $ BORDER ▖▖!~JFN DRAW LLIST ▗NfQ▘▜[A] SAVE [M]X>p_JVP CONTINUE +▚&L[I]PI LIST SQR STR$ [I] STOP x~6" VJFN DRAW MOVE ▛[ LPRINT p[D]@P[O]EXP V@JVT SAVE ,#LATN LIST ` BORDER 8[J]BVBSCREEN$ RANDOMIZE DA> DATA x@ AND ADGVd LPRINT J~T CLS r0 FN (9 CONTINUE =LN db[I]a[R]* STOP NOT " VAL VJSCREEN$ tQPFXxp@D DATA AEX` INK vD LIST JVU~▖LN /F▘ , DATA 6[Q]>=[A] (USR *▖:LN AxVJSCREEN$ >%DQD1F7▟D/ VERIFY a|BV MERGE @:[Q]LN @ATTR p? GO TO H8*[U]([Q]PEEK D X~J REM [Q]<VAL 4▗$P©o▖EBIN YQE[B]UlJV MERGE P▖[H]&BINKEY$.N▞ LPRINT w©▖IN FN @p@ NEXT CIRCLE VJ REM FN t▞QVP©D@I[E]PIPuEUSR w[C]JV CLEAR PFN LPRINT YjX▖,▖BIN #`VB IF FN DH LPRINT OtSTR$ I,`@[D]J~ CLEAR P*fb@![P]/ FOR [T]c@INKEY$CATTR [I]`*([Q]VJ RETURN FN 5D[A]T0?▘[E]P[H][I]t1WHJV COPY P0x RETURN J#BIN PAUSE ▘▖▖▗▘▛FN `*`VJ COPY FN ▘LN ▗>=@ PAPER PAUSE }ebDUQSE FORMAT BV COPY TLN x" [B]uh! ▘/8/+[A]~J COPY FN D POKE {▘▝DPEEK 8H[P]`▝/▖WO[Q]JV COPY P[Q] SAVE [Q]8[I][I]uINKEY$[E]H▘CODE ▛":VJ RETURN FN !4XW@TPA"sQBIPnPJV CLEAR P B*(LN LN @ [S]3▖[Q]*$ DATA 8/VB RETURN [Q]T AND 7P[M]▞D[A][J] STOP @pAxO?J~ CLEAR @DPOINT H▚[Q][Q]>=p[Q].EXP ▖ LIST 08= PLOT VJ RETURN [Q] CLOSE #pFcq POKE ACS EpP[D]s LPRINT JV CLEAR @([F]j # LIST [C]f8 B" STOP ([Q] LINE [T] LN RUN `VJ RETURN / FORMAT [C]@[A]p@7tP5sQ PRINT RESTORE D©@BV CLEAR CLOSE #SQR <>@>` ▖[C]j▚SIN POKE ▖[Q]©ACS ~J IF STR$ OUT ▝/VZBIN THdbD@LEN RETURN ACS JV CLEAR [F]Q[S]f[C]` LPRINT ` LPRINT ▘▚`[C]© DRAW VJ IF D CIRCLE ▝ DRAW SAVE USR AA{R@cD[I] COPY xJV PRINT INT + AND [U](*`"▛▖▖▘D( CLEAR LIST VB IF RANDOMIZE EU@[E]dSTR$ @NOT LPRINT [A] COPY LPRINT J~ PRINT ▖[I]▘ 6 LIST READ >=[S]h([[Q]VJ REM [E][Q]BIN [E]VV! LET y LIST @© LPRINT JV MERGE [A]a$*FN ▘"&SIN ▛ COPY USR [Q]oACS RETURN J REM CA@▝KxTNOT COPY POKE p COPY COPY OPEN # REM V POKE ATTR p@"hSIN *▖I(&▖▝ READ COPY LET LN COPY SCREEN$ OPEN # ERASE J REM S@T POKE $"(TA# COPY CIRCLE UNOT RETURN MERGE [G]TSCREEN$ V CLOSE #v[Q] RANDOMIZE ▖▙9▚ [S]▟▚* COPY SAVE [R] COPY DRAW jSCREEN$ SCREEN$ ERASE JFN qA@ AND *▖M@t? COPY SAVE q COPY DRAW ▘▘V CLOSE #VAL E[T], `@>▞? COPY COPY DRAW LOAD POKE *© COPY COPY DRAW BFN D@[A]5▝[F]▗*XT=? COPY COPY RETURN COPY LPRINT TACS ~pf)([A]SCREEN$ H*[STR$ .J[Q]© COPY OPEN # LOAD COPY iACS JFN ~LK*INT EMF© COPY OUT COPY COPY DRAW ~© COPY OPEN #V CLOSE #> CONTINUE [S]?*0 PAUSE ▘NOT ▘IN CLEAR COPY OPEN # LPRINT VAAJSCREEN$ ~=▝I[Q]`©qP[E]E STEP COPY COPY RUN SAVE JO$[C]IV MOVE RETURN [Q]J[R]▞ DIM [I]I©*;(ATN ▘<= COPY COPY REM ACS VI[C]IJ CONTINUE RETURN LET LET [I]&?RNDG COPY COPY POKE ACS BI$[C]AV ERASE RETURN B~ BORDER LN "PEEK [Q]?*▙▚7 LOAD COPY USR ~A$OJ IF T SAVE `D COPY COPY ACS J© COPY OPEN #V COPY COPY LIST I$[K]8▘ COPY ▜ PRINT ACS CODE COPY SAVE V COPY B COPY COPY LPRINT SAVE >]|@tY CLEAR COPY _/{W COPY LIST ▘JT COPY *SCREEN$ ~ COPY COPY USR RETURN B; COPY COPY &H/ COPY UVj COPY UUJ COPY COPY ©[M]qSTR$ COPY USR RETURN [M]_Hc COPY COPY @SCREEN$ JT COPY *SCREEN$ V COPY COPY ©▚LN FN (▝ COPY [Q]©:yo COPY COPY ACS UVj COPY UWJ COPY COPY [B][E]XH CAT FORMAT ? OUT © COPY RETURN ACS *CODE JT BORDER *AT V COPY COPY SAVE <▙ LPRINT COPY COPY RETURN ACS U COPY Vj<=UpJ COPY COPY RETURN ▝NOT LIST ▖ OUT / COPY COPY RETURN ATTR COPY BT▜*USR V COPY COPY ©▘ [Q] CONTINUE 0, LPRINT COPY COPY DRAW U©~j BORDER WJ COPY COPY BIN ▗X IF PAPER OUT 7 COPY COPY DRAW SCREEN$ IN JT BORDER ,V COPY COPY @BIN 8LN ( GO TO DRAW COPY COPY SAVE Q_Vj BORDER T~B COPY COPY " POKE B[A]VG RETURN OUT 5 COPY COPY SAVE CODE JT BORDER , DEF FN ~ COPY COPY D{ ▚VAL$ [S]~ COPY COPY SAVE WVj BORDER T DEF FN J COPY COPY *[Q][P]?DGW[I]> OUT + COPY COPY LPRINT +JT COPY , RETURN V COPY COPY QP INK AT CODE ▖< COPY USR V* COPY TJ COPY COPY jSCREEN$ ▘ MERGE ESTR$ 1 COPY COPY ACS JACS VUUSGN LPRINT ▝SQR LIST MERGE UW COPY COPY ACS VACS J COPY COPY IF SCREEN$ SCREEN$ SAVE 5p@ CLOSE #8 COPY OPEN # SAVE ACS B© COPY OPEN #V COPY OPEN # MERGE U@>=▝LN j[M] COPY OPEN # SAVE ~AAJ COPY OPEN # REM SCREEN$ [Q]▗▝▜ DEF FN COPY OPEN # SAVE XJO$[C]IV COPY OPEN # PRINT UT▜▝ FLASH ▙ COPY COPY LET COPY LIST ▖VI[C]IB COPY COPY IN IF SCREEN$ SCREEN$ ▝[U]/ COPY COPY GO TO COPY LPRINT H`*JI$[C]A~ COPY COPY W COPY UU.USR 6o© RETURN COPY FORMAT d(VA$OJ COPY COPY ▛ COPY REM SCREEN$ P SAVE wG© RANDOMIZE p©USR *J© COPY OPEN #V COPY COPY COPY PRINT UT:LN © PRINT LPRINT COPY [Q]UV COPY J COPY COPY COPY REM SCREEN$ SCREEN$ 7x4 GO TO GUSR ? PRINT INK ©@▗ LPRINT +JT COPY *SCREEN$ V COPY COPY E COPY PRINT UUPLN ^?USR LIST | COPY [Q](WVj COPY UUJ COPY COPY ATTR COPY REM SCREEN$ SCREEN$ FN REM LPRINT RETURN LIST ~ FORMAT [A]CODE BT COPY *SCREEN$ V COPY COPY MERGE COPY PRINT UUP▝▙[P] LPRINT RETURN DEF FN IN ▞0W~j COPY UWJ COPY COPY RETURN CODE SCREEN$ OPEN #FN D LPRINT O LPRINT RETURN <~E4DCODE JT*AT V COPY COPY CLEAR UWUUT▝ READ CONTINUE ▜ LPRINT COPY b>d▖ LPRINT WVj▝UpB© COPY *"CODE SCREEN$ OPEN #[A] CLS ▖ SAVE COPY ^^YCODE JT RANDOMIZE *USR ©ACS W MERGE UU[Q]J LPRINT o LIST COPY PEEK >NOT WVjSTR$ WW COPY OPEN #CODE IF REM SCREEN$ [B]/USR _ SAVE COPY LEN /CODE JT,KU OPEN #USR W COPY CLEAR UUSR @? LIST COPY CAT <▗k_Vj[P]T~U+* THEN COPY RETURN SCREEN$ RESTORE OUT LPRINT COPY BRIGHT H`IN JT▝, DEF FN KUUVP COPY COPY U READ oUSR © READ >=▞©Vj▝T DEF FN AD( COPY COPY REM LET [E]@^[Q]© LOAD xIN BT COPY , RETURN ? COPY COPY RETURN T COPY COPY PRINT CLS AND <@© GO TO `▖©~* COPY TACS * COPY COPY REM CLS VAL ?STR$ LPRINT -UUSR COPY JACS [G] COPY COPY PRINT @z`8ACS BORDER POINT LPRINT ©VACS COPY OPEN # RETURN ^ COPY COPY IF FN =[I]@~[Q]p/* COPY J© COPY OPEN # MERGE UUTj COPY COPY PRINT P?SGN |ACS LIST !U©VAASCREEN$ OPEN #V COPY COPY IF FN ?[B][A]~ACS d* COPY JO$[C]I MERGE UUTJ COPY COPY CLEAR P[S](▖©ACS xACS U COPY VI[C]ISCREEN$ OPEN #V© COPY COPY FN ▖© LIST + COPY JI$[C]A MERGE UUT~ COPY OPEN #P OVER [M]4©USR ACS @,W COPY VA$OSCREEN$ OPEN #J© COPY COPY SCREEN$ ~[O]J_ LPRINT ACS ,*ATTR COPY B© COPY OPEN # PRINT COPY COPY VIN COPY COPY U<4 COPY COPY P SAVE U@W COPY ~ COPY 1J© COPY COPY SCREEN$ RUN LIST COPY COPY (@SCREEN$ FN SCREEN$ CODE COPY VT COPY *SCREEN$ ▗1VIN COPY COPY MERGE P COPY USR COPY COPY PW FORMAT U_ COPY Jj COPY UUUSR Q<=J© COPY COPY SCREEN$ FN 8 COPY COPY * SAVE CODE FN SCREEN$ IN COPY RT COPY *SCREEN$ ▝`LEN AND V COPY OPEN # CLEAR TACS COPY COPY UVAL W CLOSE #U© COPY jj COPY UW▝[Q] MOVE DJ© COPY COPY IF SCREEN$ ACS COPY COPY */ SAVE SCREEN$ COPY COPY RT*AT USR q AND V COPY OPEN # CLEAR ACS COPY COPY u<W DRAW U} COPY COPY jj▝Up▗1DB COPY OPEN # RETURN SCREEN$ ACS COPY COPY xpCODE IF * COPY OPEN #BT READ *USR 1 AND ©ACS COPY COPY ACS RETURN j<=W COPY PRINT OUT |W COPY OPEN # RETURN COPY COPY COPY OPEN # REM T READ ,SCREEN$ OPEN #KU OPEN #jSCREEN$ OPEN # COPY COPY U OPEN #SCREEN$ SCREEN$ ERASE j LET T~ MERGE UUTU+* LINE RNDeY OPEN #VV COPY COPY LINE SIN OPEN #AT AT [F][F]SCREEN$ T▝, DEF FN SCREEN$ OPEN #KU OPEN #jSCREEN$ OPEN # COPY COPY U OPEN #SCREEN$ SCREEN$ ERASE jT DEF FN MERGE UUTA@ OPEN # COPY COPY @ OPEN #▘T COPY , RETURN SCREEN$ OPEN #? COPY OPEN # RETURN COPY COPY W COPY OPEN # DRAW * COPY T MERGE UUTACS COPY COPY ACS CCC OPEN # OPEN # OPEN # OPEN # OPEN #CC OPEN # OPEN # OPEN #CC OPEN # OPEN #D OPEN #CC OPEN #D OPEN #D OPEN # OPEN #C OPEN #DD OPEN #C OPEN # OPEN # OPEN # OPEN #CC OPEN # OPEN # OPEN #D OPEN # OPEN #CCD OPEN # OPEN # OPEN # OPEN # OPEN #CC OPEN #D OPEN # OPEN # OPEN #CC OPEN # OPEN #D OPEN #D OPEN #CCDD OPEN # OPEN # OPEN # OPEN #CC OPEN #DD OPEN # OPEN #CC OPEN #D OPEN #CCD OPEN # OPEN # OPEN #C OPEN # OPEN #D OPEN # OPEN # OPEN #C OPEN #C OPEN # OPEN # OPEN # OPEN # OPEN #CC OPEN #D OPEN # OPEN # OPEN #CC OPEN # OPEN # OPEN #C OPEN #C OPEN # OPEN #DCC OPEN # OPEN # OPEN # OPEN #C OPEN #C OPEN # OPEN # OPEN # OPEN #C OPEN #C OPEN # OPEN # OPEN # OPEN #C OPEN #C OPEN #C OPEN #ACS COPY COPY COPY ©USR COPY COPY COPY © COPY COPY COPY ©USR COPY COPY COPY © LPRINT COPY © OVER = RETURN COPY © OUT = COPY ©© OUT ABS COPY ©_ OUT CLEAR LOAD © OUT CLEAR LOAD © LIST OUT CLEAR COPY © SAVE OUT CLEAR COPY © DRAW OVER CLEAR RETURN COPY RETURN OVER } LPRINT COPY COPY ^= LPRINT COPY COPY ACS COPY USR COPY COPY COPY USR LIST COPY COPY COPY USR LPRINT COPY COPY COPY USR LIST COPY COPY COPY USR SAVE ACS ©USR RUN ©?USR RUN CAT ©USR USR RUN LOAD ©USR USR RUN COPY {USR USR RUN COPY {USR DRAW RUN COPY ©USR RETURN RUN COPY ©USR COPY wIN ©? COPY 7[P]x© COPY USR x COPY COPY LPRINT ACS COPY LIST COPY COPY COPY LIST DRAW COPY COPY COPY LIST SAVE COPY COPY COPY LIST DRAW COPY COPY COPY LIST RETURN ACS LIST CLEAR READ OUT LPRINT LIST CLEAR NEXT OUT LIST LIST CLEAR CLS OUT LIST LIST CLEAR COPY OVER LIST LIST CLEAR COPY OVER LIST COPY } COPY OUT LIST COPY = COPY OUT LIST COPY USR LOAD OUT LPRINT COPY LPRINT BORDER OVER COPY LIST READ OVER COPY COPY SAVE ACS COPY DRAW ACS © COPY COPY DRAW COPY © COPY COPY DRAW RETURN © COPY COPY DRAW COPY © COPY COPY DRAW COPY ACS DRAW COPY x RUN SAVE DRAW COPY | RUN DRAW DRAW COPY ~ RUN DRAW DRAW ©© RUN SGN DRAW ?© RUN SGN COPY USR © RUN DRAW COPY LPRINT © RUN DRAW COPY LIST { RUN SAVE COPY SAVE y RUN COPY DRAW x RUN ? COPY RETURN ACS ? COPY OPEN # RETURN DRAW SAVE SAVE RETURN RETURN RETURN RETURN SAVE LIST LET RETURN DRAW SAVE ? LIST LIST LIST LIST RETURN DRAW ? RETURN NEXT LIST SAVE ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS /ACS n COPY ACS COPY OPEN # COPY ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS ACS LEN 3 FLASH MLEN 3 FLASH M FLASH MPOm DIM OUT DEF FN TH THEN V5 LINE V/q AND ?[M]v><BB~BB|B|BB|<B@@B<xDBBDx~@|@@~~@|@ OPEN #<B@NB<BB~B OPEN #> OPEN #> OPEN #BB<DHpHDB@ OPEN #~BfZB OPEN #BbRJFB<B OPEN #<|BB|@@<BBRJ<|BB|DB<@<B< RETURN NOT [A]]B OPEN #< STEP YPEEK STEP TO B NEXT STEP [C];; LLIST { RESTORE INK MOVE INK !H RESTORE MERGE RESTORE INK x RETURN RETURN PLOT OGy INK w$ LLIST LLIST VERIFY LLIST MOVE <> LLIST # STR$ !Y INK x RETURN RETURN PLOT OGy INK w#xLEN OVER CLS <> PRINT PRINT Y PLOT PRINT %? PRINT 0pP s PRINT p s PRINT ;*3*+ PRINT WTWQw PRINT :: PRINT RUN LIST [I] LIST COPY PRINT ;*;""uGwr PRINT wUfEE PRINT [T]"#"SQR PRINT w%$%w PRINT SQR SCREEN$ INT [S][T] PRINT RANDOMIZE PLOT NOT READ READ COPY PRINT SQR [S]3[Q]SQR w PLOT "r PRINT wDgAw PRINT SQR *+8ATTR PRINT PRINT SQR POINT LEN POINT POINT PRINT NEXT ;; CLS [L][L] COPY PRINT LN LN ▖LN uUGUu PRINT p@pp PRINT SQR "SIN [S]SQR PRINT INVERSE PLOT U CLOSE # PRINT SQR "2"; PRINT RUN 88 LIST VAL [I] COPY PRINT PLOT PRINT uUGUu PRINT ▘▘ PRINT ]QYQ[N] PRINT ▘▘ PRINT SAVE PLOT USR LPRINT LPRINT COPY PRINT SQR *INT [T][S]~HlHH PRINT wTWQw PRINT FN FN 8[A][A] PRINT INVERSE I▞II PRINT FN FN 8[A][A] PRINT PLOT COPY PRINT SQR SCREEN$ [T]SCREEN$ SQR PLOT PRINT wEeEu PRINT 7 CIRCLE [E] CIRCLE PRINT %9SQR CLS [L][J] COPY PRINT ▖ REM PLOT SCREEN$ INPUT PRINT PLOT PRINT Q_XZ@_@© PRINT PRINT ▚ DEF FN INPUT RETURN AND PLOT NEW PRINT NEXT ;;[L][L] NEXT COPY PRINT LPRINT [Q]USR [Q][Q] PRINT UWUUu PRINT [P][I][K] COPY COPY PRINT @@USR PRINT PLOT DEF FN AND NEW NEW RETURN | PRINT READ s;[L]COS READ COPY PRINT REM SCREEN$ VAL$ DATA [U] PRINT wTfTw PRINT [D][D][P] COPY COPY PRINT PRINT 4 PAUSE L PRINT | RETURN DEF FN DEF FN RETURN PLOT NEW PRINT SAVE LIST SAVE COPY PRINT PRINT pP`PP PRINT ©@ OUT X[X_C{{ COPY COPY PRINT DJJ PLOT [C][R]! MOVE ERASE " PLOT ▘A![I]4r>=! PRINT LIST SAVE BRIGHT DEF FN NEW GO TO SAVE LIST PRINT USR PRINT INPUT SCREEN$ FN REM VAL$ PRINT COPY COPY OUT [E][F][B][P]IN LPRINT PRINT ▘B$( PRINT © PRINT AND CLEAR REM GO TO FORMAT LPRINT f©IN _/@ @[I]p PRINT 0 PRINT LPRINT USR LPRINT PRINT COPY COPY [P][A][P][I][L][K] RETURN PRINT @@ PLOT # PRINT COPY @LEN OUT ATTR 3 COPY RETURN CLEAR IF DATA LPRINT PRINT &4b PRINT LIST SAVE BRIGHT DEF FN NEW GO TO SAVE LIST PRINT . COPY COPY [P]tV VERIFY PRINT p2-SHFA @@ PLOT [Q]@@ PRINT ||0088|| PRINT .USR PLOT @USR PLOT PRINT PLOT PRINT $ DRAW RETURN DEF FN DRAW NEW NEW RETURN DRAW PRINT u PLOT PRINT 0> PLOT ~ PLOT > PRINT RETURN PLOT COPY © RETURN LPRINT PLOT COPY PRINT PLOT COPY < PRINT oo CAT CAT PLOT COPY PLOT PRINT C PRINT h? PLOT ©x©? PLOT © PRINT PLOT |}©©~|x PRINT PLOT © PLOT PRINT ?©©y PLOT xy©©? PRINT , PLOT LOAD STR$ PLOT LLIST STR$ PRINT PLOT } PLOT CLEAR }= PRINT PLOT RUN PLOT ▜ PRINT <= PLOT LOAD PLOT PLOT LOAD <= PRINT , DRAW PLOT CLEAR PLOT LLIST PRINT PLOT COPY LPRINT PLOT DRAW LPRINT PLOT COPY PRINT PLOT COPY COPY RETURN PRINT RANDOMIZE CLEAR CLEAR PLOT = CLEAR CLEAR RANDOMIZE PRINT , PLOT COPY BORDER BORDER PLOT COPY PLOT BORDER PRINT [P]IN IN << PLOT ? PLOT SGN PRINT xx||~~{{yyxx PRINT READ READ NEXT NEXT CLS CLS LOAD LOAD BORDER BORDER READ READ PRINT ,?IN IN PLOT SGN PLOT IN SGN SGN PRINT BORDER PLOT RUN PRINT PLOT RUN PRINT PLOT OUT PLOT NOT PRINT , BORDER PLOT RUN PLOT LIST LPRINT PLOT LIST PRINT DRAW RETURN RETURN PLOT [O] RETURN RETURN DRAW PRINT CAT CAT LOAD LOAD IN IN [P][P] PRINT PLOT CLEAR PLOT LLIST PRINT , PLOT RETURN PLOT LIST PRINT © COPY COPY PLOT NEXT COPY COPY © PRINT PLOT ©x PLOT ©x PLOT © PRINT PLOT COPY PLOT BORDER PLOT COPY BORDER BORDER PRINT D[O] PLOT OUT PLOT OVER [O] PRINT PLOT LOAD PLOT PLOT LOAD PRINT IN IN PLOT SGN <IN IN [P] PRINT D PLOT <SGN PLOT DRAW ||<< PRINT PLOT PLOT RETURN PRINT BORDER PLOT RUN BORDER PRINT t PLOT PLOT DRAW PRINT PLOT SCREEN$ PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT LPRINT `USR READ vv RUN 73 PRINT PLOT RETURN PLOT LIST PRINT © COPY COPY PLOT NEXT COPY COPY © PRINT PLOT ©x PLOT ©x PLOT © PRINT PLOT COPY PLOT BORDER PLOT COPY BORDER BORDER PRINT BORDER v7 BORDER PRINT "[O] PLOT OUT PLOT OVER [O] PRINT PLOT LOAD PLOT PLOT LOAD PRINT IN IN PLOT SGN <IN IN [P] PRINT LET LLIST LET PRINT " PLOT <SGN PLOT DRAW ||<< PRINT PLOT PLOT RETURN PRINT BORDER PLOT RUN BORDER PRINT PLOT PRINT R PLOT PLOT DRAW PRINT PRINT RND PLOT <= PRINT PLOT SAVE GG PRINT PRINT PLOT G PLOT F PLOT PLOT PLOT G PLOT PLOT PLOT GG PLOT PLOT PLOT PLOT E PLOT PLOT G PLOT E PLOT PLOT G PLOT E PLOT PLOT PLOT G PLOT PLOT FFC PLOT PLOT PLOT G PLOT PLOT FF PLOT G PLOT PLOT PLOT PLOT PLOT G PLOT PLOT PLOT PLOT PLOT G PLOT PLOT ! SAVE <>NOT OR OR NOT <= NEXT ~24 AND "w AND # STEP q AND <26 AND GO SUB S, AND STEP q AND GO SUB S. AND MERGE STEP q AND GO SUB S0 AND ! STEP v AND FOR "2 AND != AND "7 AND !> AND ? AND ,p GO SUB VAL LLIST !CODE STEP k AND =2G AND 2Q AND 2[ AND >25 AND #"E AND "O AND "Y AND STEP FLASH <> CLS <>w LET LET PAUSE ^ INPUT E BORDER LET POKE 1 PRINT COPY [A] LET COPY [A] LET COPY [A] LET COPY PEEK >=NOT k AND ^#V# FOR C INPUT FOR <>_▜_ INVERSE INVERSE ~ THEN ©J THEN wCHR$ [H] AND B NEW g INVERSE ^ INVERSE ~ PRINT NEW LIST W LET NEW o INVERSE THEN n>= THEN STOP <>:/ AND O!6 AND PEEK PAPER STR$ AND CODE O<2/ AND i&) GO SUB [, AND N#~2<>y*0 AND STEP k AND # STEP q AND GO SUB S7 AND STEP q AND GO SUB S9 AND STEP q AND GO SUB S; AND <> INVERSE 5 LIST INVERSE ~ COPY INVERSE w<>:5 AND =25 AND CHR$ J>=:4 AND 25 AND INVERSE !@ AND STEP PRINT AND PAUSE +<=*7 AND ~< TO TAN AND *7 AND STEP T<="7 AND INVERSE !J AND STEP PRINT AND PAUSE ><=*9 AND STEP T<="9 AND INVERSE !T AND STEP PRINT AND PAUSE J>=*; AND STEP T<="; AND NOT J>=~ RETURN ` PAPER ▘<= RETURN p PAPER <= RETURN PAPER VAL <= LINE PI<= RETURN ▝ LINE ▟<= RETURN ▘ LINE TAB <= RETURN PAPER TO <= VERIFY [R] INVERSE w INVERSE w COPY #NOT T<= INVERSE w INVERSE 6 INVERSE 6 #<> VERIFY ` RESTORE c*2 AND STEP k AND # INVERSE u INVERSE t LLIST #NOT T<=# INVERSE 6 COPY <>CODE VERIFY p RESTORE !*. AND STEP k AND # INVERSE u INVERSE t INVERSE 6 RETURN LLIST #NOT T<= VERIFY 2j AND #~#2h AND INVERSE 6 RETURN RESTORE CODE !*. AND STEP k AND # INVERSE u INVERSE t LLIST NOT T<= INVERSE ~<>=== INVERSE w PRINT INVERSE ~O< NEW INVERSE w LET USR INVERSE ^ INVERSE V!`~= IF FN <=O< NEW INVERSE w#~< INVERSE w<>yATN USR |2c AND <> INVERSE ~<>= INVERSE ~ RETURN ATN >= RETURN LINE C>= INVERSE 6 RETURN NOT G>=CODE 2j AND THEN NEW <> INVERSE !@ AND STEP LET <=y2 SAVE >= INVERSE *C AND STEP | AND yVAL 2d AND INVERSE !@ AND INVERSE ~< LINE v>= STEP %>= STEP INPUT >="] AND !e AND w STEP ->= INVERSE !J AND STEP LET <= INVERSE ~< LINE ATTR >=y2 SAVE >= INVERSE *M AND STEP | AND :d AND LEN VAL 2d AND STEP %>= INVERSE !J AND STEP INPUT >="_ AND !f AND w STEP ->= INVERSE !T AND STEP LET <= INVERSE ~< LINE DATA >=y2 SAVE >= INVERSE *W AND STEP | AND :d AND THEN THEN VAL LEN 2d AND STEP %>= INVERSE !T AND STEP INPUT >="a AND !g AND w STEP ->=NOT FLASH <>} PRINT MERGE INVERSE n INVERSE f INVERSE ~▚ AND ▜_!<>^#V FOR MOVE LET THEN b( THEN [S]<>PI GO SUB R<> SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;852/,*'%#!!j AND CODE ACS > VERIFY +++yIN GO SUB ATTR = PAUSE FOR <><>mv[H]SONG BY ST COMPILEi[Q][Q][Q][Q][Q][Q][Q][Q][Q][Q][Q][Q][Q][Q][Q][Q][Q][Q][Q][Q]TAN SQR OVER RESTORE LOAD 5?_ COPY VAL aAT d&[S]a()[U]e+a&[S]+)(&[U]%![S]-+)([U]&-e-[S]d+- COPY VAL bVAL a COPY [U]c.&+.-&)-,)(&AT d%[U]a! COPY VAL b COPY VAL ac"+)(FN e)[U]c&!".+&AT e-[S]d+- COPY VAL ba&+.20.0-&)-2-)-,%+!)([R]!VAL d& COPY VAL bddddddddddddddddddddddd▚a NEXT INK /@ INK ![FN INK x RETURN RETURN IF OGy INK w#xLEN OVER GO SUB {@ LLIST "@ LET LLIST MOVE STR$ INK CLEAR LLIST INVERSE LLIST LLIST MOVE STR$ LET PRINT RETURN ?( GO SUB ^ LET GO SUB G REM W@ LET <> LET CLS <> GO SUB { NEXT 1PIa> LIST 2t]![A]]"▛]! LIST STEP /]CODE OPEN # RETURN STEP m/ INVERSE !FN a(v STEP (]!6q STEP SGN p>[2t]!# CONTINUE "▛]NOT FN a<> NEXT CODE CLEAR GO SUB y2g[ THEN BORDER CLEAR © GO SUB y2/[ CLS NOT H% COPY COPY [Q]E OVER PRINT CAT A RANDOMIZE P[E] LET [ RANDOMIZE AA?© COPY RETURN DRAW SAVE LIST LPRINT USR RANDOMIZE H FLASH |8 DEF FN PEEK P BRIGHT /h NEXT ![Q] FLASH PI+▗N$[G]! INK [G]!' COPY RANDOMIZE COPY !# RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE RETURN LOAD RETURN LOAD RETURN LOAD RETURN LOAD RETURN LOAD ▝P PRESS ANY KEY INVERSE !0u STEP (]!1u@ GO SUB VAL <> STEP X]1USR ]> CLEAR © GO SUB y! RUN @ GO SUB VAL STEP @ STEP FOR > CLEAR © GO SUB yCODE 2! STEP STEP 2] CLS NOT INK 1USR ] STEP ASN FOR STEP K FOR DIM POKE STEP ) LOAD X/ STEP ) LOAD STEP INPUT STEP ASN FOR STEP K FOR STEP O] NEXT > CLEAR © GO SUB y STEP h PLOT > GO SUB y STEP 2]NOT INK STEP ASN FOR STEP K FOR BRIGHT POKE STEP ) LOAD X/ STEP ) LOAD STEP INPUT STEP ASN FOR STEP K FOR STEP O] NEXT > CLEAR © GO SUB y STEP FORMAT NEXT > GO SUB y STEP 2]<> INVERSE !3▖CODE 7 STEP V NEXT ERASE <>CODE OPEN # RETURN STEP ASN FOR STEP K FOR FORMAT POKE STEP ) LOAD X/ STEP ) LOAD STEP INPUT <>CODE FLASH RETURN PLOT LPRINT < SAVE <> NEXT ![> COPY w, DRAW $w!9~ RETURN COPY , SAVE >9>[ GO SUB G>0 CLEAR © GO SUB ^>2 COPY COPY >NOT 2 POKE COPY !# CONTINUE " PRINT COPY <> RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE LOAD ? PRINT TO EX'[L]6!:/u) COPY COPY RETURN IN TAB INPUT [D]@[J]YpipeNOT STEP SGN OR STEP ▙{ RETURN LINE LPRINT B CLS v STEP CHR$ OR NOT CAT B STEP SGN OR STEP |`NOT @ [I]JRN
1
46049
