| Es parte de la publicación: | North Star |
| Tamaño del archivo: | 44800 |
| md5: | 63b84b45bc318dcb877aa2e73317b2c5 |
1 CLOSE #USR 0: REM DISK LOADER BY KULIKOV DMITRIY NEXT 1N GO SUB ^!@@ COPY u GO SUB VAL !FN aPOINT a?[M]CODE w GO SUB VAL !SCREEN$ ]BIN @~POINT ~FN w#xLEN NEXT LINE I(<>IN [tG▜D[H] PRINT DIM [S][C] COPY ACS THEN FORMAT IN LN INT S▞ OR NEW TAN DATA ?[U]^ OVER [P]PEEK ▛c▖[Q] BEEP ATN NOT PAPER [F]▛[B][A][O]vSIN Vg AND POINT o{▗BIN o OVER .Uv[B]% MERGE SCREEN$ ▚<=UR2 GO SUB a'3k[D]xJ{w[M]INKEY$,>INT < LIST 2 LINE PRINT ▜BIN PAPER GO SUB PEEK r▝ LPRINT Ed LOAD BORDER LLIST [J]FN FLASH &> LLIST GO SUB X DRAW a BEEP BRIGHT IN ^SCREEN$ VAL MERGE >= FORMAT 2bXnj RESTORE .INKEY$<>INKEY$7 DATA AT PAPER POINT 6 NEW PAPER x FORMAT I NEXT SGN i6 AND FORMAT RUN `AT VAL v DEF FN POINT REM GO SUB ]SGN VAL$ [O]J NEW AND . LOAD ?SQR ASN PI[F]▛ CLEAR LOAD +5GU[m©'5K]o}k5;-_M{ug=/kuGU[-?guK]/=+u{m_M;5'}o+5GU[m©'5K]o}k5;-_M{ug=/kuGU[-?guK]/=+u{m_M;5'}o[N]ATTR ASN <= MERGE FLASH GO SUB COPY ▟[L][F]PIASN THEN INVERSE LOAD CLEAR FOR [F]▜ASN SQR TAB OUT STEP CLS PRINT BORDER [F]▛ABS CODE [N] FOR PRINT <= MERGE FLASH TAB IN ▟[L][F] BORDER PRINT THEN INVERSE CODE ABS ATTR [F]▜ PRINT CLS GO SUB OUT STEP SQR ASN PI[F]▛ CLEAR LOAD [N]ATTR SCREEN$ 869!@@ COPY u GO SUB VAL CODE 2H/!@[M]@ GO SUB VAL !X" CONTINUE CLEAR !@TAN " GO SUB CLEAR !?X" PAUSE CLEAR !©TAN " RUN CLEAR OR * CONTINUE CLEAR GO SUB [ GO SUB CLEAR #" CONTINUE CLEAR GO SUB S GO SUB CLEAR +w MERGE @@ MOVE RESTORE bk@T] LLIST DIM * PAUSE CLEAR GO SUB [ RUN CLEAR +" PAUSE CLEAR GO SUB S RUN CLEAR #w MERGE @ MOVE RESTORE bk@T] LLIST GO TO !@[M]@ GO SUB VAL STR$ [I]<> STEP [C];; LLIST o RESTORE INK MOVE INK !@[M] RESTORE MERGE RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST BRIGHT LLIST MOVE CAT LLIST # <=!@TAN INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K]~[K]©[K]~[K]~©©??[K][K][K] COPY [K][K][K][K]t CONTINUE FORMAT [Q]@[K]@@USR @USR [Q]TFN TLN [K] DRAW 0*[K]USR USR LPRINT LPRINT LIST LIST SAVE SAVE DRAW |~>? SAVE SAVE [K] DRAW [K][K] COPY [K][K][K] COPY [K])[K][Q][K]*+*U+U*USCREEN$ USCREEN$ USCREEN$ U[K][K]@[K]©[K]~[K] RETURN [K]~[K]@[K] LPRINT SAVE DRAW DRAW RETURN RETURN [K]~ RETURN RETURN DRAW DRAW SAVE LPRINT @[K])[K]} REM @+/WCODE WIN _IN ©IN ©[K] COPY WSCREEN$ USCREEN$ USCREEN$ USCREEN$ CLEAR [K] COPY USCREEN$ USCREEN$ [K] COPY [K] COPY [K] SAVE DRAW COPY ©©?[K][K] COPY G[K][K][K] J [K][K] COPY O©[K] COPY $CODE USCREEN$ @SCREEN$ USCREEN$ U[K] COPY ?@SCREEN$ USCREEN$ U[K] COPY ? LPRINT SAVE DRAW DRAW RETURN ~[K]>~ RETURN DRAW DRAW SAVE LPRINT [K][K] RETURN [K]USR KJJz[K]@ CLS D@ @[K] IF USCREEN$ TSCREEN$ USCREEN$ ©[K] COPY RETURN SCREEN$ USCREEN$ U[K] COPY [K] SAVE [K] CLS SAVE RANDOMIZE RANDOMIZE [K] SAVE [K][K][K][P][K] CAT [K] BORDER [K] NEXT [K] RANDOMIZE [K] IF CLS [K] SAVE "#RrCBBCHR$ CHR$ C[K]▝▗▖[A] LPRINT LIST COPY LIST LPRINT [A]▖▗▝[K]▝[K] RANDOMIZE RETURN [K] COPY CLEAR SCREEN$ USCREEN$ USCREEN$ UIN [K] COPY USCREEN$ UATTR [K] COPY LPRINT SAVE DRAW DRAW RETURN ~[K]>~ RETURN DRAW DRAW SAVE LPRINT LIST LIST SAVE SAVE ||>>[K][K][K]USR [K] LPRINT [K] LIST [K] SAVE [K]|[K]>^ FORMAT /PP^ BEEP DGDD<=[K]P[K]! LPRINT SAVE DRAW COPY ©IN CAT RUN CLS CLEAR RETURN [K] COPY IF USCREEN$ T▝*TSCREEN$ ^[K] RETURN DRAW ▝*ATTR ?[K]IN RETURN USR 8[K] COPY [K]G[K][K][K][K] COPY [K] SAVE [K] CLS SAVE RANDOMIZE RANDOMIZE [K] SAVE 9%9$$89RND9RNDRND%[K][K]!USR LPRINT LIST SAVE SAVE DRAW ~PEEK OUT OUT LOAD LOAD RUN RUN CLS CLS [K] CLEAR [K] RETURN COPY COPY RETURN CLEAR IF USCREEN$ XBIN (TFN /[K] DRAW USR [K][K][K] RETURN [K]USR [K] LPRINT SAVE DRAW DRAW RETURN ~[K]>~ RETURN DRAW DRAW SAVE LPRINT LIST LIST SAVE SAVE ||>> LPRINT LPRINT zCcBBz[K][K]@[K][K]USR [K] LPRINT [K] LIST FORMAT [Q] FORMAT [Q]P[Q][K]?© COPY SCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ [K] SAVE [K] SAVE [K] CLS [K] SAVE [K]@[K][K][K][K]@USR USR @[K][K]%[K][K][K][K][K][A][Q]@[Q]@@ SCREEN$ PSCREEN$ TSCREEN$ T[Q]PSCREEN$ [K][K][K] OUT [K][K]" [K][K][K][K]@[K][K][K][K][K][K][K]USCREEN$ [K][K][K]'&&$$[K]3 LOAD wCODE _IN ZABS xIN ©IN ©IN OVER ABS ]ABS _ COPY n RETURN ~ABS ©IN ©?©IN ©SQR /CODE CAT [H]/U[Q]?U#[<W SAVE RETURN [B]h LIST `h[M]m POKE POKE [K] LIST h[M]` LIST LN 8|| DRAW [M][S]B[S]A[R]B[S]B[S]B▘F▚D[M] SAVE LN LIST `[K]SCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ [K] [K]> COPY ? CAT RUN CLS CLEAR RETURN > CIRCLE USR [K]%aBIN ( LET DEF FN > SAVE [K] COPY RUN SCREEN$ USR LINE OR **[K][K]@[K]@USR USR [K][K]USR [K][K] [K][K] PRINT FN @[K]ATTR ©SCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ [K][K]`LN [M] BRIGHT FORMAT CHR$ USR ,d▙ PAUSE LINE SIN ▘ DRAW [K] COPY RETURN CLEAR ATTR TCODE _ COPY ©IN ©CODE WINT ]CODE U @[K]VAL$ © COPY ©SCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ [K] [K][K]▝ BORDER ^9fXIN _IN _?[P]CODE MERGE LINE MERGE FOR RUN © COPY CLS CLEAR RETURN CLEAR RETURN COPY RETURN [K] COPY ©IN COPY COPY ©CODE W[K] COPY ©IN ©CODE U* PRINT ~[K] COPY RETURN CLEAR RETURN CLEAR CLS [K] COPY © COPY COPY LOAD PLOT PLOT POKE DRAW | DRAW [K] RETURN CLS [K] COPY RETURN RETURN DRAW IF SAVE SGN |SGN |PEEK ~PEEK ©IN _/ RETURN RETURN DRAW SGN CODE ©[K] COPY SCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ USCREEN$ [K] [K][K]=INT u*W/_/~~[K] DRAW [K] SAVE LIST LIST FORMAT FN H[I]x[K] SAVE PLOT RETURN RETURN COPY © COPY ©IN _IN OUT CODE OUT LOAD COPY SAVE OUT IN IN [K]©[K] COPY _ATTR MERGE SCREEN$ _IN © RETURN | SAVE LIST CONTINUE CIRCLE LN LIST LIST [K] LPRINT [K]USR [K][K][K][K][K]© COPY [K] COPY SCREEN$ TSCREEN$ TSCREEN$ TSCREEN$ TSCREEN$ TSCREEN$ TSCREEN$ TSCREEN$ [K][K][K] COPY CODE _ COPY © COPY CLEAR PAPER 4`[K]@[K][K]USR USR [K] LPRINT LIST RUN COPY RUN © CLS RUN CLS PRINT IF PRINT IF PRINT IF CLEAR IF CLEAR IF }LN [K]@ @[K] RETURN CLEAR CLS RUN LOAD OUT IN ©[K] COPY [K][K] [K]USR VAL ▙ LET RETURN [K] COPY DRAW SAVE LIST LIST FORMAT LPRINT [K] LIST [A] P[Q]PLN IN __©??[K]$H[K] LIST [K] COPY STR$ RETURN [K] COPY ©SCREEN$ UU*[K][K][K] [K][K] RETURN CLEAR CLS RUN LOAD OUT IN [K]©[K][K] NEXT [K] COPY ?©© COPY 0 CAT PEEK RETURN DRAW DRAW SGN T*USCREEN$ ©?[K] COPY RETURN CLEAR COPY ©[K][K]USR SAVE RETURN BORDER [K] COPY _IN COPY COPY USCREEN$ U[K][K][K]8,![K][K]1USR USR @[K]`[P] LPRINT SCREEN$ PRINT COPY COPY LIST LPRINT STR$ STR$ ▝8m TO [F]USR OUT USR OASTR$ LPRINT LIST COPY CLEAR RETURN MERGE SCREEN$ MERGE SCREEN$ u FOR BRIGHT VAL @[K]@[K]USR SAVE RETURN CLS DRAW [K] COPY RETURN USCREEN$ /WCODE _ATTR U[K]USR RANDOMIZE v=7ATTR BEEP /W*A| DEF FN ▜ CAT ~~<▘A2ejE3@[Q]UB<yqp` 0 00[K]@[K]`p` STOP RSCREEN$ RSCREEN$ ERASE j ERASE REM ERASE REM ERASE j ERASE j PAUSE j PAUSE j PAUSE REM PAUSE REM R REM T[U]TFN H[A]`[K],[K][K]@ LIST RETURN [K] COPY IN ©© COPY COPY RETURN RETURN [K] DRAW [K] SAVE [K] LIST LPRINT LPRINT LPRINT [K]USR LPRINT LPRINT pSGN ^/*UCODE ©[K] COPY ©ABS { RUN wVAL$ lT&DSCREEN$ MVAL$ _[O]/[L]?IN © SAVE LET +W COPY DEF FN ▚▗[K]▘ AND [K]0 CU[T]*ESQR M` VAL Xh< [K][K]USR [K] DRAW [K] COPY CLEAR RETURN [K] COPY LIST CHR$ <N▚ CAT COPY ~<▘UCODE OUT / BEEP FOR RESTORE STOP [B]( PRINT SAVE PLOT IF LIST x880 0[K][K]8 LIST LLIST USR [F]*P▜©AT Q CAT ? DRAW 8 TO COS /©P*[E]USR STOP LIST 8[K]/[K][K][K] [K][F] THEN CODE _ COPY COPY RETURN RETURN BRIGHT [J]?© COPY ©IN _*CIN } RETURN [K] COPY WSCREEN$ T[Q]((****SCREEN$ TSCREEN$ V[K]USCREEN$ CAT ACS READ NOT RUN ©© REM USCREEN$ LINE @[K][K][K][K]#s BORDER k BEEP ATTR [H]ATTR [H]/W/_.^SGN LIST USR LPRINT LIST SAVE SAVE SGN / GO TO DRAW SAVE SAVE LIST LPRINT @USR [K](0`p`p`USR LPRINT USR [Q]USR [Q][K] SCREEN$ UATTR © NEXT `sPEEK ? IF USCREEN$ UFN @ [K]© COPY COPY ?O[T]TSCREEN$ U*[K][K]%[K][K][K][K] [K]USCREEN$ _<8 DRAW <= BORDER ?:USCREEN$ T[Q][K](TPEEK [K] COPY ?OCOS TSCREEN$ U*[K]=[K]0[K]|▝*UATTR WCODE WCODE _IN _IN _IN _IN _IN _IN _CODE [K]@[K][K]SCREEN$ U COPY BORDER READ COPY <= IF USCREEN$ P▝ [K][K]@[K]SCREEN$ USCREEN$ U[P] BORDER RANDOMIZE RETURN [K] COPY ?O[T]TSCREEN$ T*[K][K][K][K]-[K] COPY SCREEN$ _[K] COPY [K]01acC[K]NOT aTVAL$ RANDOMIZE RANDOMIZE COPY [P][O] REM TFN B[K][K]QFN USCREEN$ UATTR _[K] COPY ©[P] BORDER RANDOMIZE RETURN [K] COPY DRAW STOP SCREEN$ UFN @[K]USR [K]8B[K][K]/USR RETURN [K] COPY DRAW CLEAR DRAW COPY [K] LET ▜?©[K] COPY [Q]Uz©IN ?? :?IN `E[K]+WCODE WCODE s DRAW [K] COPY ©[P] BORDER RANDOMIZE RETURN LET USCREEN$ T[Q][K][K][K] [K]#USR LIST DRAW > CAT RUN CLS CLEAR RETURN [K] COPY IN [Q]SGN DRAW COPY [K] LIST [K] COPY RETURN [K] COPY SAVE UCODE [K] COPY SAVE UCODE COPY COPY SAVE TAB COPY SAVE V SAVE [K] BORDER RANDOMIZE RETURN [K] COPY ? CAT NEXT DRAW [K] COPY SAVE OR *USCREEN$ P[K],[K][K]@[K]USR LPRINT LIST x|SGN PEEK OVER OVER LOAD LOAD COPY [A][K][K][B][O]a CLEAR [K]USR LPRINT pLN BRIGHT BRIGHT INPUT INPUT PLOT RUN RUN COPY RETURN SAVE BIN AT [K] GO TO DRAW SAVE USR [Q][K]`USR [K]©[K] COPY ©[P] BORDER RANDOMIZE RETURN [K] COPY ? CAT NEXT DRAW STOP SCREEN$ UFN @[K][K][K]$@[K]@@ [K][K][K]▞QQ[R]USR LPRINT [K]0? CAT NEXT DRAW [K] COPY ©[P] BORDER RANDOMIZE RETURN [K] COPY RETURN LET USCREEN$ T[Q][K]@[K]RUSR RANDOMIZE [K]BE[K]G[K]B[K]GFF[K]G[K]AG[K]B[K]G[K]F[K]G[K]AG[K]B[K]GDDBG[K]E[K]F[K]AGBCB[K]CGE[K]DGB[K]E[K]F[K]AG[K]CGEDDGD[K]BGE[K]F[K]AE[K]CDBDGGDBB[K]E[K]FGGAA[K]E[K]C[K]G[K]D[K]BG[K]EFFGFG[K]E[K]C[K]G[K]BGGEE[K]F[K]E[K]GAGDGG[K]B[K]GF[K]E[K]G[K]DGG[K]B[K]G[K]E[K]GGGDGG[K]B[K]GCC[K][K]GGGDGGE[K]BGG[K]C[K][K]G[K]DGEEGG[K]BGG[K]C[K][K]G[K]G[K]E[K]BG[K]BGGCC[K][K]AGG[K]E[K]BGBCDDGGC[K][K]AG[K]E[K]BGGCDDC[K][K]AGE[K]BG[K]C[K][K]AG[K]BGG[K]C[K][K]AG[K]DDEECCFCFCC[K][K]AEAEDD[K]E[K]C[K]A[K][K]AEEAA[K]E[K]C[K]A[K]A[K]E[K]GC[K]AGG[K]A[K]E[K]GC[K]A COPY COPY ! LOAD ~ RETURN +~ RETURN GO SUB (#~ GO SUB FN +F+~+ DRAW | RETURN _ LLIST } RETURN COS BRIGHT <>>VAL GFF COPY <= DRAW GO TO COPY lSCREEN$ pmVklSCREEN$ gmVklSCREEN$ gg DRAW k`W`VAL$ `Y`7`W`7`X`?g DRAW SCREEN$ lUSR lSCREEN$ ©mV©lSCREEN$ SCREEN$ mV GO TO SCREEN$ COPY <= DRAW EEE©<= COPY USR . LINE AT COPY MERGE l LPRINT LINE TAB m MERGE l LOAD LINE TAB a© TO LOAD l LOAD ` COPY © BORDER CNOT © STEP gUSR , COPY LINE TAB | MERGE lLN LINE TAB X MERGE lAT LINE VAL$ ©<= COPY EEE©<= DRAW USR l LINE AT SCREEN$ MERGE mV LINE AT SCREEN$ MERGE mV LINE AT SCREEN$ ©<= DRAW w]USR COPY @wUSR INVERSE w©<= DRAW USR , LINE AT SCREEN$ MERGE mV LINE AT SCREEN$ MERGE mV LINE AT SCREEN$ ©<= DRAW EBE COPY COPY COPY © COPY RETURN =U<SCREEN$ xT LIST POINT CONTINUE OPEN # CIRCLE BORDER LN COPY (~< <(~ COPY BORDER LN OPEN # CIRCLE POINT CONTINUE T LIST SCREEN$ x=U<© COPY RETURN COPY COPY COPY BBB GO SUB x? COPY TO © CIRCLE IN LN ©p~ CONTINUE } CIRCLE {LN 7x8 pUSR LOAD USR GO SUB CCC© COPY DRAW COPY COPY RETURN USR CAT {v CLOSE #3ACS OPEN #▖F STEP INVERSE v VERIFY ACS NOT k[G] TO POKE f MERGE ov OPEN #▙ PLOT NOT VAL v STEP {▚ VERIFY ▜v<>INT PLOT MERGE v▚CHR$ PI6>=v MERGE *ACS USR COPY COPY RETURN © COPY DRAW FFF GO SUB GO SUB GO SUB @ LPRINT @ GO SUB GO SUB GGGUSR #@@USR OUT USR OUT USR OUT USR USR oUSR USR USR RUN LPRINT RUN LPRINT RUN LPRINT RUN LPRINT RUN LPRINT RUN LPRINT RUN LPRINT GGG7 RUN LIST 7 RUN LIST 7 RUN LIST 7 RUN LIST 7 RUN LIST 7 RUN LIST 7 RUN LIST 7 RUN LIST 7 RUN LIST 7 RUN LIST 7 RUN LIST 7 RUN LIST 7 RUN LIST 7 RUN LIST 7 RUN LIST 7 LIST 7 RUN LIST PRINT x0 SAVE w PRINT SAVE *SQR SAVE e RANDOMIZE SAVE * IF SAVE eYXGG GO SUB ?j BEEP CODE _IN _IN _IN WATTR COPY COPY *CODE RETURN + COPY LIST + CAT SGN +pFFE LPRINT DRAW RETURN COPY COPY COPY USR COPY USR COPY LPRINT COPY LPRINT COPY LIST COPY LIST COPY LIST COPY SAVE COPY SAVE COPY SAVE COPY BRIGHT COPY GO TO COPY GO TO GO TO BORDER DRAW { GO TO DRAW FFE LLIST *USR USR )▘[B])▖USR *CHR$ LLIST pU< LINE MERGE P LINE ATTR MERGE © LINE COPY MERGE LOAD 2 THEN RESTORE d MERGE LPRINT LINE THEN COPY CLOSE # MERGE COPY LINE THEN LOAD CLOSE # MERGE RESTORE LINE THEN LPRINT EEEG||||G|l{ PAPER BORDER FLASH CLS COPY FLASH USR COPY FLASH ` COPY FLASH 0 COPY FLASH © FLASH L FLASH & COPY FLASH S COPY FLASH + COPY FLASH S© FLASH + FLASH SEEE CLOSE # MERGE COPY LINE THEN COPY CLOSE # MERGE LOAD LINE THEN RESTORE CLOSE # MERGE LPRINT LINE THEN COPY CLOSE # MERGE COPY LINE LINE LOAD CLOSE # MERGE RESTORE LINE LINE LPRINT CLOSE # MERGE © LINE LINE COPY CLOSE # MERGE _ LINE LINE ATTR COPY MERGE COPY / COPY > VERIFY g GO TO THEN CIRCLE LIST + LPRINT USR COPY EEB COPY FLASH + COPY FLASH S COPY FLASH +© FLASH S FLASH + COPY FLASH S COPY FLASH + COPY FLASH S© FLASH + FLASH S COPY FLASH + COPY CLS S COPY CLS + COPY CLS S COPY CLS COPY DRAW SAVE | COPY RETURN k COPY 7 COPY COPY COPY USR IN USR COPY USR EEB} RUN OUT 8 READ ▙[C]I$ OR Q REM PEEK ATTR COPY COPY COPY R[E][S]RNDASN mk© PAPER OVER LLIST ABS ABS OVER CLS {IN w RUN IN o LOAD IN ~~ OVER SAVE ABS LLIST RUN FLASH OUT LOAD BEEP ABS LOAD OUT { LOAD PEEK RUN ATN } LOAD x CLS OVER RUN EBB© COPY DRAW COPY COPY RETURN USR OR UF LINE CLOSE #INKEY$ MERGE iV LINE CLOSE #INKEY$ MERGE iV LINE CLOSE #INKEY$ MERGE iV LINE CLOSE #INKEY$ MERGE iV LINE CLOSE #INKEY$ MERGE hV THEN MERGE & MERGE SCREEN$ V LINE CLOSE #INKEY$ MERGE iV LINE SIN INKEY$ OR UFUSR COPY COPY RETURN © COPY DRAW FFFwABS LOAD LOAD { OVER FORMAT RUN ABS CODE o{_PEEK RUN OUT ABS u CLS VAL GO SUB CLS © INVERSE CLS RUN PEEK PLOT LOAD a OVER OVER CLS ABS IN w{IN o RUN IN _o^LN [O] LLIST w INVERSE RETURN LOAD FLASH ABS LOAD BEEP { LOAD VAL$ RUN ATN ] LOAD xSQR OVER RUN BBB COPY GO SUB REM ABS W LPRINT ZpRND BRIGHT :/8/:VAL$ SCREEN$ u INPUT ©wPI* RESTORE W REM +▝ CLOSE #▝ CIRCLE NOT VAL NOT [Q] BORDER @ BORDER ~SCREEN$ ~SCREEN$ COPY COPY COPY SCREEN$ SCREEN$ SCREEN$ EEE COPY ▝ COPY FORMAT ,NOT [N]NOT INK TAB FLASH PAPER [N] FLASH <>TAB FLASH ERASE [N] FLASH <>ABS FLASH PAPER [N] FLASH STR$ TAB NOT CLS [N] OUT CLEAR TAB IN CLEAR ABS IN CLS ABS OUT STR$ ?IN ATN FLASH ERASE ABS FLASH <>[N] FLASH ERASE TAB FLASH <>[N] FLASH ERASE TAB FLASH STR$ NOT POKE COPY ▝ COPY COPY COPY COPY COPY ABS W<Z8 RESTORE BRIGHT BORDER / REM 8 POKE : ERASE SCREEN$ u OUT COPY w ERASE SCREEN$ RESTORE POKE REM REM CLOSE # RESTORE CIRCLE READ VAL qC[Q]pPI@8w<. RETURN SCREEN$ COPY COPY SCREEN$ SCREEN$ EEE COPY COPY USR COPY COPY LIST REM ABS x LPRINT ZpPIqB▙;F: BORDER W//VAL$ SCREEN$ ▛ INPUT © CLS PI*▛W/+WPISTR$ <=CHR$ ▚ RESTORE t<SCREEN$ © SAVE COPY COPY LIST SCREEN$ SCREEN$ EEE5CFN ~ POKE CLEAR REM RETURN [P] PRINT ©_ IF ~[P] MERGE FFN CLOSE #O REM PI CLOSE #@O[Q] OUT `VAL$ L[K]V GO SUB 0D GO SUB USR USR USR USR GO SUB GO SUB GO SUB GGG LIST DRAW CAT 5NOT LINE USR POKE NOT USR SGN cSTR$ OSCHR$ THEN <= NEXT LINE ? CLOSE # CONTINUE LIST CONTINUE CLOSE #? LINE NEXT <= THEN CHR$ SSTR$ <[T]USR POKE NOT NOT <> CAT 5 DRAW * LIST EEE LLIST COPY MERGE LLIST COPY ATTR LLIST COPY MERGE LPRINT COPY ATTR 0©T>VAL @[L][P] OUT < GO SUB BFGO▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>[P]CHR$ ©[P]CHR$ ©© COPY RETURN USR SCREEN$ ATTR [F]UU COPY COPY COPY <[P]CHR$ ©[P]CHR$ ©O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>O▝>[P]CHR$ ©[P]CHR$ ©B<<ffNOT NOT ▝▝USR <USR `<`<0<0Z FLASH 0 FLASH 0NOT `[J]`© COPY RETURN ? COPY DRAW FFF; IN LPRINT wpCOS 01 LIST CLEAR 0gp<=USR |@p} LIST m[Q] CAT [Q]N w LPRINT w[Q]s[Q]S * OUT LIST * FLASH LIST {VAL COS VAL ;0DDD<=+[Q]&p LIST n CONTINUE LOAD Qn-[O]pmv4aSSCREEN$ w* VERIFY PAPER c COPY COPY g COPY COPY G'7#7'#'CCE''#7'#'7''#'7#'77'7#7'#'EEE88/<^Rv[E][M]|INKEY$"? SAVE ▖CODE USR DRAW @IN `ACS LPRINT ACS `COS `DDD READ FATN CODE G OPEN # CAT PI FOR CODE BEEP OPEN #NOT CODE FOR [J] CAT LET INVERSE RUN LLIST NEW q3[M] NEXT SQR SGN CLS COPY RETURN FLASH CLS INPUT COPY RETURN . OUT SGN OUT ABS { DEF FN SGN {CODE 1EC[A]▘u<= POKE RANDOMIZE K SAVE BRIGHT CLOSE #ATTR FOR FN RASN READ FATN CODE @ OPEN # CAT [I] FOR CODE TO OPEN #NOT VAL$ FOR [J] DEF FN LET INVERSE RUN LLIST NEW q [M] NEXT VAL SGN CLS LIST RETURN FLASH LIST INPUT COPY SAVE . OUT LN OUT ABS x DEF FN SGN xCODE 0EC▘uUSR POKE RANDOMIZE @ SAVE BRIGHT CLOSE #ATTR LPRINT FN RUSR FCODE G3 CAT PIkCODE BEEP sNOT CODE {[J] CAT y INVERSE RUN 1 NEW q3 NEXT SQR CLS COPY > FLASH CLS . COPY RETURN . OUT SGN ABS {1C[A]u<= RANDOMIZE K BRIGHT ATTR FOR RASN ; LIST IN LPRINT BRIGHT wpoCOS 0©1 LIST | CLEAR 0 OUT gp TO PIUSR DIM /@m,p;] LIST [Q]N w LPRINT w[Q]s[Q]S * OUT LIST * FLASH LIST {VAL COS VAL ;0DDD LIST ©? INPUT 7[P]7, FLASH IN n NEXT ACS CLS COPY PLOT [D] OPEN # BORDER PEEK < PRINT R▝▗RR[F][E][A] GO SUB DDD COPY GO SUB USR USR S CLS CHR$ ATN CLS OR m CLS THEN FLASH SQR OR IN { THEN RETURN FOR VERIFY CLEAR CLS STEP COPY COS BEEP RUN k THEN INPUT FLASH OR CLEAR CLS CHR$ COPY CLS © LIST [Q]AU PRINT RND COPY PAUSE c COPY PRINT BORDER COPY RUN BORDER COPY RUN LOAD COPY RUN LOAD COPY RUN EE LPRINT COPY RETURN LPRINT LOAD COPY RETURN LOAD COPY RETURN LOAD COPY RETURN LOAD COPY RETURN LPRINT / GO SUB DDD COPY RETURN FN Z%© RETURN 2© RETURN E COPY RETURN M COPY RETURN O LPRINT OO_O_OOO_O_ GO SUB [P][P][P]DDDoOOOoOoOoOOOoOoOOOo GO SUB [P][P][P]DDD LPRINT COPY USR [U]0 LPRINT LOAD RETURN [U] LOAD COPY BIN LOAD COPY [S] LOAD COPY ERASE LPRINT PAUSE PAUSE PAUSE PAUSE PLOT PAUSE PLOT PAUSE PLOT PAUSE PAUSE PLOT RANDOMIZE RANDOMIZE RANDOMIZE DDD GO SUB PLOT PAUSE PLOT PAUSE PLOT PAUSE PAUSE PAUSE PAUSE PAUSE PLOT PAUSE PLOT PAUSE PLOT PAUSE PAUSE PAUSE PLOT RANDOMIZE RANDOMIZE RANDOMIZE DDD GO SUB UUSR CODE LPRINT _RND8IN R_ COPY CLEAR IN © CLS ^IN COPY INT wUTSCREEN$ [K](U GO SUB GGG GO SUB PAT z RETURN pIN j0_ COPY |ABS W LOAD P!K GO SUB GGG▘ SAVE BIN ,BHPEEK [H]<>~CODE CONTINUE RETURN [H] DIM ~CODE REM INPUT [H]<>^>=AT [H] DATA ▛ STOP LN EUSR " THEN DRAW [B]~VAL$ ?▗@BAT [F][Q]▛ PAUSE SGN [H] POKE V▛ POKE PEEK EtV" STOP LLIST _ COPY STOP COPY COPY STR$ COPY COPY STOP CODE COPY COPY COPY PRINT @ COPY COPY IF [Q] COPY COPY COPY @ COPY COPY COPY @ COPY COPY PRINT P LET _ COPY LPRINT COPY COPY LLIST © COPY LIST CODE COPY E COPY IF POINT COPY COPY U COPY COPY POINT COPY PRINT A CLEAR INT [A] RETURN MERGE @@ RETURN MERGE @@ CLS P@@ PRINT SCREEN$ GO SUB COPY COPY COPY COPY IF POINT COPY RETURN [R] COPY PRINT QE(88(88(8USR LPRINT COPY COPY LIST COPY COPY SAVE STOP MOVE LOAD [PEEK BORDER SQR IN LOAD [PEEK STOP MOVE SGN COPY COPY SAVE COPY COPY LIST LPRINT USR BDDH[C]JH[C]JH[C]J@J[C]J@[A]H▘J@@H@H@@@@ GO SUB @ GO SUB GGG,,NV[H]/USR COPY USR f@f@f@[J][J][J]BBEf@f@f@[J][J][J][Q][J]0LN <[J]<}ZPEEK |[J]>}ZPEEK |[J]>}ZPEEK |[J]>}ZPEEK |[J]>xpEGGSCREEN$ VERIFY ATTR [H] INPUT _CODE OVER IN [H]CHR$ _CODE CHR$ IN [F]CHR$ WK▝.E▝CHR$ ?CHR$ ?CHR$ ?CHR$ ? CAT NOT ?o▝PEEK x GO SUB BFG LPRINT COPY RETURN LPRINT LOAD COPY RETURN LOAD COPY RETURN LOAD COPY RETURN LOAD COPY RETURN LPRINT I*HIA@"HHI"@"H@@"@ GO SUB DDD OUT ATTR MERGE BEEP COPY MERGE CAT @@? LIST GO SUB FN ATTR ATTR CLS ATTR COPY FOR FN s8 DRAW USR OUT MERGE MERGE BEEP COPY MERGE DEF FN ? LIST GO SUB EBD© COPY COPY IN COPY COPY USR OUT [P] DRAW OUT © CLS FORMAT ▗. BEEP ABS INPUT FORMAT NEW BRIGHT [M] NEW FORMAT ▗ OUT COPY COPY OUT ©IN OUT COPY © INVERSE ▝▝ FLASH ABS ABS BEEP [N][N]<=▝▝ CAT [N][H] INVERSE [N][J] FLASH RETURN COPY OPEN # DRAW COPY USR [F]UU*SCREEN$ SCREEN$ EEE COPY COPY RETURN COPY COPY CLEAR COPY COPY <> COPY COPY INT ▗AiACS RUN jACS RUN NEXT LINE [E]s COPY OUT IF COPY [P] RANDOMIZE COPY COPY IF ▝▝ INK IN ABS INT [P][N]9▜▝ REM [P][N] INK ▝[N][K] COPY RUN RANDOMIZE COPY BORDER IF UUTSCREEN$ SCREEN$ SCREEN$ EEESTR$ USR READ USR RUN USR PEEK USR [M]USR PEEK USR RUN USR READ USR STR$ USR READ USR RUN USR PEEK USR [M]USR PEEK USR RUN USR READ USR COPY LPRINT w COPY LPRINT COPY LPRINT w COPY LPRINT BB COPY GO SUB READ READ READ www>>>>u COPY BORDER LLIST 3# CLEAR ©CODE CLEAR COPY LOAD COPY LPRINT ©[Q]©[Q] COPY LPRINT CLEAR COPY LOAD CLEAR ©CODE LLIST 3#u COPY BORDER >>>>www READ READ READ COPY GO SUB BBB COPY LOAD wo COPY GO TO COPY INPUT COPY BORDER ©c COPY BORDER COPY INPUT COPY GO TO wo COPY LOAD [M]USR PEEK USR RUN USR READ USR COPY LPRINT w COPY LPRINT COPY LPRINT w COPY LPRINT BB CLS COPY LOAD CLS wo{ COPY GO TO FOR COPY INPUT NOT COPY BORDER ©cNOT COPY BORDER FOR COPY INPUT { COPY GO TO CLS wo CLS COPY LOAD ' GO SUB BB CLS COPY LOAD CLS wo{ COPY GO TO FOR COPY INPUT NOT COPY BORDER ©cNOT COPY BORDER FOR COPY INPUT { COPY GO TO CLS wo CLS COPY LOAD [M]USR PEEK USR RUN USR READ USR COPY LPRINT w COPY LPRINT COPY LPRINT w COPY LPRINT BB CLS COPY LPRINT CLS w`{ COPY LPRINT FOR COPY LPRINT NOT COPY LPRINT ©`NOT COPY LPRINT FOR COPY LPRINT { COPY LPRINT CLS w` CLS COPY LPRINT [M]USR PEEK USR RUN USR READ USR COPY LPRINT w COPY LPRINT COPY LPRINT w COPY LPRINT BB GO SUB e IF ATN COPY RUN [U] DATA POKE PRINT IF ATN } COPY RUN [M]CHR$ o7USR COPY FN 8 COPY CLOSE #9 COPY FN q COPY CLOSE #c COPY REM READ COPY MERGE NOT COPY REM FFD COPY LIST COPY LIST ▜ RETURN RETURN [I][A][A] RUN LIST COPY PLOT D COPY RUN RETURN COPY NEXT RETURN COPY NEXT RETURN COPY NEXT RETURN LOAD q RETURN ASN [S]SCREEN$ WPTSCREEN$ [Q]UP GO SUB DG COPY GO SUB ▚[I][A][J] RUN CLS BEEP COPY GO SUB LOAD m RUN ASN INT INT WUUSCREEN$ SCREEN$ SCREEN$ UUU GO SUB DG COPY COPY PLOT IN COPY REM COPY COPY OVER <SCREEN$ SCREEN$ z TO TO POKE INPUT GO SUB REM INPUT FOR DEF FN INPUT BORDER VAL$ INPUT LOAD N INPUT OVER VAL$ INPUT SGN INPUT INPUT z INPUT INPUT POKE INPUT GO SUB REM INPUT FOR DEF FN INPUT BORDER VAL$ INPUT LOAD N INPUT OVER VAL$ INPUT SGN ffx RUN COPY RETURN CODE COPY IF OUT COPY RETURN BBBDDD INPUT INPUT INPUT INVERSE INVERSE INVERSE SQR SQR SQR www INPUT INPUT INPUT DDD CLS LOAD PEEK ([S]SCREEN$ SCREEN$ SCREEN$ [K]iINKEY$SCREEN$ SCREEN$ SCREEN$ [K]iINKEY$SCREEN$ SCREEN$ SCREEN$ [K]iINKEY$SCREEN$ SCREEN$ SCREEN$ [K]iINKEY$SCREEN$ SCREEN$ SCREEN$ [K]iINKEY$SCREEN$ SCREEN$ SCREEN$ [K]iINKEY$SCREEN$ SCREEN$ SCREEN$ CLS LOAD PEEK CEE LPRINT LOAD LN ;] LOAD ^ LOAD LN ] LOAD SQR LOAD SQR _ LOAD SQR ^ LOAD SQR _ LOAD SQR _ GO SUB SQR _jATTR _RND_JPOINT _[Q]USR g COPY COPY x? COPY COPY COPY COPY COPY EEG LPRINT ([U]/u MERGE FN y DATA *u BEEP CONTINUE y DATA (u MERGE POINT y DATA (} RUN CONTINUE y DATA (} PRINT FN } POKE (} RUN LOAD } RUN LPRINT } RUN COPY } RUN COPY IN OUT COPY 9 LPRINT IF COPY COPY 4? COPY GO SUB EEG GO SUB LIST H0 ▘B@@ COPY COPY USR COPY COPY LPRINT COPY COPY LPRINT COPY COPY RETURN LPRINT COPY SAVE COPY COPY COPY COPY COPY DRAW COPY EEGSTR$ LPRINT INVERSE SQR INPUT INVERSE SQR INPUT INVERSE LN EXP N MERGE SQR n MERGE ▝nATTR nUPI LOAD N LOAD nV`[G]/d VERIFY Oh FORMAT /l<>ol OPEN #`l CIRCLE `````BCz[Q] CLEAR Pz[Q] IF tP( P IF Pt (P P IF tP( P IF Pt (P FFF©[P][Q]? FORMAT © CONTINUE © CLOSE #© CONTINUE COPY CLOSE # COPY SCREEN$ 5 COPY COPY : COPY COPY COPY DRAW © DRAW CODE LPRINT '7#7'#'CDE@?SGN abVAL$ ?>[Q]`_[A]?>▙`a▘?>[Q]abVAL$ @?SGN abVAL$ ?>[Q]`_[A]?>▙`a▘?>[Q]abVAL$ HGUSR mnVAL HG[R]mn[D]HG▙lmHGxmn[D]▘▝HINKEY$PIo[C][D]HVAL$ CODE nHG[R]mn[D]▘HLEN SIN n_T?_P?h>/`T?OP?TF5`T?_P?jG5_P?~G5▟G8"BAB,BBE▞ GO SUB ??K?@@K@KBAKBKBKEKBBKBEKB▞K??K?@@K@ GO SUB TTT'TTT"YYYYTT'8T89FD9F:;DF@:;;;@' GO SUB 8999@7@;F89Dq:;FD:X'XYYYYX<X"=,/X'X//$//%</$=@/%'@ GO SUB ///$///% GO SUB /$'@POINT /%<@=//$//%<=4XX"XCDXXACDXXXXSXXSSX)XSXXAXXEX'EE'▞'"<=0<<==0,<=' GO SUB 3----1 GO SUB 1<>1=25[B]0-4-- GO SUB 3'1311B<11=11&11J111121 GO SUB 1----1 GO SUB 1I'31311*<3111SCREEN$ =1111SCREEN$ 1111SCREEN$ 1122SCREEN$ ▘<22SCREEN$ =ZZ/'Z5@04--351▞0-4-1551E04-415104-255DB04-4- GO SUB <34=1E1APOINT '>1>>1*>>>1SCREEN$ >>>1SCREEN$ >1'>1>1>>>1SCREEN$ >>>1SCREEN$ ▘<>>1*=>11Z//1'1Z/2 GO SUB <Z3=Z2I GO SUB <Z/= "<<=$="'"","Z//"%$$D("("(D""D'""Di""D("("(D"%D"@"Z/@'"@▘"'Z@%@Z/' GO SUB $TA("((TA%TA GO SUB T((((TT4#TMTMT#TBUT"BVNJTWT GO SUB T((((T GO SUB TBULTEVNTELEN BWOTBT GO SUB ( GO SUB GO SUB BT"LTOT GO SUB T$TA("((TA"TAI"@("(((@%@'Q'QZ//R GO SUB QEQ▞'RZ//QRRQ//QQ"R'Q<QR=SQ[A]SQ[A]SR'[A]Q//RR'I "X X'XX,XXXXX'XXXAXXX▞X'XXXXXYYYXXX"XUXX)VXXWXXXXYYYXXXX)UXX)VXALEN X)WXXXXYYYXXLXMULOJVMWOLJ'MBULOJVMWOLJMO6'6466+**6APOINT 6<S6=SS6)PSS6)SS6)bPSS6)SS6)<S6'=6 GO SUB 6YYYY6 GO SUB 6YYYY6 GO SUB 6&6<6=&'6ALEN '6&66YYYY66' GO SUB I COPY LIST © COPY LOAD IN COPY ERASE OUT USR COPY CODE LOAD / LPRINT COPY ^o^` COPY ]( LPRINT MERGE LOAD CLOSE # OUT llSQR [G] FLASH ;[G] CIRCLE n DEF FN FLASH n DEF FN CIRCLE © MERGE FLASH © MERGE CIRCLE © LET IN TO USR _USR @INT 8/:8 p/p hZh COPY LIST © COPY LOAD IN COPY ERASE OUT USR COPY CODE LOAD / LPRINT COPY ^o^` COPY ] GO SUB ] COPY MCODE M[Q] COPY Y RUN Y LIST COPY w LOAD w LPRINT COPY OUT USR SAVE (?_L_L© FLASH COPY © CIRCLE n>= COPY n>=SQR [P]©;[P] OUT IN LPRINT B▗ABS ▝ CLS } DRAW RETURN CLEAR DRAW COPY RETURN RETURN RETURN COPY COPY ] COPY MCODE M[Q] COPY Y RUN Y LIST COPY w LOAD w LPRINT COPY OUT USR COPY )?▝ GO SUB ( RUN MERGE COPY CLOSE # LPRINT GO SUB COPY GO TO OUT U COPY TSQR ?;n CIRCLE [P]n CIRCLE ]@ CLEAR *" SAVE DRAW DRAW CHR$ [N]4[M]xO[x COPY COPY COPY COPY LIST © COPY LOAD IN COPY ERASE OUT USR COPY CODE LOAD / LPRINT COPY ^( DRAW PLOT COPY PLOT IF STR$ ©STR$ PRINT PEEK COPY PEEK FOR w©w PAPER INVERSE IN INVERSE GO SUB © LINE OUT © LINE USR _Z OUT _ZUSR © LINE OUT © LINE USR n CIRCLE n CIRCLE SQR ▜ OUT ;▜USR OUT @X`IN ATN `0b© CAT bm COPY COPY ls COPY COPY pSQR COPY COPY 8o^` COPY ]] COPY MCODE M[Q] COPY Y RUN Y LIST COPY w LOAD w LPRINT DRAW OUT PAPER COPY IN COPY USR PEEK IN PEEK BRIGHT COPY IN COPY CIRCLE INVERSE IN INVERSE LLIST w?w CLEAR > GO SUB / LPRINT IF RETURN RETURN [K]d-d!xZ/x COPY LIST © COPY LOAD IN COPY ERASE OUT USR COPY CODE LOAD / LPRINT COPY ^o^` COPY ]USR NEXT ATTR ?FN LOAD MERGE COPY CLOSE # LPRINT N COPY N OUT V OUT VSQR AT ';AT _>@ IF / IF POKE 2/2 CONTINUE F_F@ CONTINUE ATN IN GO SUB B `ATN _`▜@jw LOAD j LPRINT a RANDOMIZE RUN ` LIST w RETURN pSQR COPY COPY 8] COPY MCODE M[Q] COPY Y RUN Y LIST COPY w LOAD w LPRINT SAVE OUT USR RUN )?n CLOSE #ATN n CLOSE #VAL ©<>ATN ©<>VAL _]ATN _]VAL © TO © TO n BRIGHT COPY n BRIGHT SQR ▜ MOVE {IN PAPER CLEAR OUT USR OVER RETURN OUT USR LOAD ? NEXT OUT COPY USR ▝ GO SUB COPY LIST © COPY LOAD IN COPY ERASE OUT USR COPY CODE LOAD / LPRINT COPY ^o^` COPY ]( LPRINT MERGE LOAD CLOSE # OUT llSQR [G] FLASH ;[G] CIRCLE n DEF FN FLASH n DEF FN CIRCLE © MERGE FLASH © MERGE CIRCLE ©; OUT IN LPRINT @_@@ RANDOMIZE 0_0@ RUN ▖_▖@ INPUT _ COPY LOAD IN COPY ERASE OUT USR COPY CODE LOAD / LPRINT COPY ^o^` COPY ] GO SUB ] COPY MCODE M[Q] COPY Y RUN Y LIST COPY w LOAD w LPRINT SAVE OUT USR RUN )?_L_L© INK COPY © CIRCLE n THEN COPY n>=SQR [N] COPY ;[M] OUT COPY LPRINT @ INVERSE _@ LPRINT DATA _ DATA @ RETURN _@ COPY RUN LOAD LPRINT COPY RUN RUN LIST ] COPY MCODE M[Q] COPY Y RUN Y LIST COPY w LOAD w LPRINT RETURN OUT USR RANDOMIZE Ia▙.SCREEN$ SCREEN$ INT VAL$ ATTR RETURN ATTR SCREEN$ COPY SCREEN$ SCREEN$ PId▙6 RESTORE UU COPY U MERGE © MERGE u]UUt▘jINKEY$▘eV▘jINKEY$▘eV▘OSCREEN$ ▘U PAUSE ▘O POKE ▘/ PAUSE C[M] COPY GO SUB LPRINT © COPY COPY DRAW COPY GO SUB SAVE ▙VU GO SUB Ol▙4 PAUSE SCREEN$ GO SUB jLN ▘eV▘jINKEY$▘eV▘jINKEY$▘' POKE ▘/ DATA ▘O REM ▘W PAUSE B[O]IN COPY GO SUB RUN _ COPY COPY IF LOAD COPY GO SUB CLEAR SAVE [O]:VAL$ SCREEN$ GO SUB [O]k COPY COPY ERASE yU GO SUB u/▘jINKEY$▘eV▘jINKEY$▘eV©▘?p▘{`▘ OVER ▘^U GO SUB =g COPY COPY DATA SGN SCREEN$ GO SUB zVAL$ ▘eV▘jINKEY$▘eV▘jINKEY$▘' POKE ▘/ DATA ▘O IF ▘_ PAUSE B[O]> REM SCREEN$ GO SUB ABS eUW NEW ABS U GO SUB W|▘jPEEK ▘{`▘ OVER ▘}V▘jINKEY$▘eV▘jINKEY$▘eV▘O REM ▘W PAUSE ▘' POKE ▘/ DATA B[O]= MERGE U GO SUB ^jCODE COPY VERIFY zSCREEN$ GO SUB ATTR SGN [O]ev COPY GO SUB RUN _ COPY RETURN FN LOAD COPY GO SUB nINKEY$▘eV▘jINKEY$▘uN▘rVAL$ ©▙;SCREEN$ SCREEN$ INT VAL$ ATTR RETURN ATTR SCREEN$ COPY SCREEN$ SCREEN$ CODE d▙6 PRINT UU COPY U MERGE © MERGE u]UU BRIGHT [O]j PLOT COPY GO SUB LPRINT © PRINT UT COPY GO SUB oV▘jINKEY$▘eV▘:[M]▘9/▘O POKE ▘/ PAUSE ▘' POKE ▘/ DATA B▙7TU}_W COPY W MERGE COPY MERGE UWh▙4 REM SCREEN$ ATTR COPY ATTR REM COPY REM IF PEEK SCREEN$ * GO TO ▘d▘`&▘eV▘jINKEY$"▘O REM ▘W PAUSE ▘OSCREEN$ ▘U PAUSE "▘jINKEY$▘eV▘jINKEY$▘eV▘:[M]▘9/▘uN▘rVAL$ ▘eV▘jINKEY$▘eV▘jINKEY$▘OSCREEN$ ▘U PAUSE ▘9/▘:[M]▘eV▘jINKEY$▘eV▘jINKEY$▘8▘LN ▘jINKEY$▘eV▘jINKEY$▘eV▘jINKEY$▘eV▘' POKE ▘/ DATA ▘rVAL$ ▘uN▘kINKEY$▘e VERIFY ▘kINKEY$▘e VERIFY ▘.t▘.t▘eV▘jINKEY$▘eV▘jINKEY$▘eV▘jINKEY$"▘eV▘jINKEY$▘g VERIFY ▘k NEW ▘g VERIFY ▘k NEW ▘7 GO TO ▘7 GO TO ▘kINKEY$▘e VERIFY ▘kINKEY$▘e VERIFY ▘jINKEY$▘eV▘' POKE ▘/ DATA ▘jINKEY$▘eV▘kINKEY$▘e VERIFY ▘kINKEY$▘e VERIFY ▘7 GO TO ▘7 GO TO ▘g VERIFY ▘k NEW ▘g VERIFY ▘k NEW ▘eV▘jINKEY$▘O IF ▘_ PAUSE ▘eV▘jINKEY$▘eV▘jINKEY$▘eV▘jINKEY$▘.t▘.t▘kINKEY$▘e VERIFY ▘kINKEY$▘e VERIFY ▘rVAL$ ▘uN"▘jINKEY$▘eV▘jINKEY$▘eV▘jINKEY$▘eV▘8▘LN ▘eV▘jINKEY$▘eV▘jINKEY$▘9/▘:[M]▘O REM ▘W PAUSE ▘eV▘jINKEY$▘eV▘jINKEY$▘uN▘rVAL$ ▘:[M]▘9/▘jINKEY$▘eV▘jINKEY$▘eV"▘O POKE ▘/ PAUSE ▘O REM ▘W PAUSE "▘eV▘jINKEY$▘d▘`&▙7TU}_W COPY W MERGE COPY MERGE UWh▙4 REM SCREEN$ ATTR COPY ATTR REM COPY REM IF PEEK SCREEN$ * GO TO A▗ COPY COPY COPY COPY ▘O POKE ▘/ PAUSE ▘:[M]▘9/▘jINKEY$▘eV[O]j PLOT COPY GO SUB LPRINT © PRINT UT COPY GO SUB oV▙;SCREEN$ SCREEN$ INT VAL$ ATTR RETURN ATTR SCREEN$ COPY SCREEN$ SCREEN$ CODE d▙6 PRINT UU COPY U MERGE © MERGE u]UU BRIGHT A▝[N] COPY GO SUB !▘uN▘rVAL$ ▘eV▘jINKEY$[O]ev COPY GO SUB RUN _ COPY RETURN FN LOAD COPY GO SUB nINKEY$[O]= MERGE U GO SUB ^jCODE COPY VERIFY zSCREEN$ GO SUB ATTR SGN A▗ABS ASN {RND▘O REM ▘W PAUSE ▘jINKEY$▘eV▘jINKEY$▘eV▘jPEEK ▘{`▘ OVER ▘}V[O]> REM SCREEN$ GO SUB ABS eUW NEW ABS U GO SUB W|A▗[U] GO SUB [S]5▘' POKE ▘/ DATA ▘eV▘jINKEY$▘eV▘jINKEY$[O]u^U GO SUB =g COPY COPY DATA SGN SCREEN$ GO SUB zVAL$ ▘?p▘{`▘ OVER ▘ BORDER K-=▘jINKEY$▘eV▘jINKEY$▘eV[O]:VAL$ SCREEN$ GO SUB [O]k COPY COPY ERASE yU GO SUB u/[O]IN COPY GO SUB RUN _ COPY COPY IF LOAD COPY GO SUB CLEAR SAVE A▗ABS ACS CLS RND▘' POKE ▘/ DATA ▘eV▘jINKEY$▘eV▘jINKEY$▙VU GO SUB Ol▙4 PAUSE SCREEN$ GO SUB jLN [M] COPY GO SUB LPRINT © COPY COPY DRAW COPY GO SUB SAVE B▝[N] COPY GO SUB ▘OSCREEN$ ▘U PAUSE ▘jINKEY$▘eV▘jINKEY$▘eV▙.SCREEN$ SCREEN$ INT VAL$ ATTR RETURN ATTR SCREEN$ COPY SCREEN$ SCREEN$ PId▙6 RESTORE UU COPY U MERGE © MERGE u]UUta▗ COPY COPY COPY COPY COPY GA GO SUB E GO SUB BBBBE GO SUB GGE GO SUB BBBBE GO SUB ▗GGEE▚EEGGEE▚EEGGBB▚BBGGBB▚BBGGEE▚EEGGEE▚EEGGEE▚EEGGEE▚EEGGEE▚EEGGEE▚EEGGEE▚EEGGBB▚BBGGBB▚BBGGEE▚EEGGEE COPY EEGGE GO SUB BBBBE GO SUB GGE GO SUB BBBBE GO SUB G GO SUB F GO SUB G GO SUB GO SUB F GO SUB [U]FFFFG GO SUB . GO SUB H PLOT SIN COPY SIN INPUT x? OUT RUN USR BRIGHT INPUT LOAD INPUT LPRINT INK [ATN [VAL AND A_A@IN B/?B |▘|▘hh▗ COPY COPY COPY COPY LIST © COPY LOAD IN COPY ERASE OUT USR COPY CODE LOAD / LPRINT COPY ^USR IF ▛?▖ PRINT e COPY d REM LIST © LIST LINE LOAD IN LOAD PAPER INVERSE OUT INVERSE USR OUT USR LPRINT CAT [P] CAT INPUT /▝[Q]▝/ ▝ ▗b_` GO SUB ▝_ RUN _ LIST ABS BEEP = FORMAT EXP OUT RUN 9 OUT LIST FLASH ATN FLASH VAL CLEAR n LOAD n LPRINT CLEAR IF ▛▖ CLEAR .▛ ▖ RETURN OVER CLEAR USR DRAW COPY > RETURN RETURN COPY COPY o^` COPY ]] COPY MCODE M[Q] COPY Y RUN Y LIST COPY w LOAD w LPRINT DRAW OUT PAPER ATN oATN ` LINE IN LOAD IN LPRINT FOR /CODE /[Q] NEXT IN LOAD IN LPRINT IF 7o7` CLEAR b@[A]_@STR$ IN !!B LOAD B LPRINT $G RUN $G LIST ` GO SUB OUT USR RANDOMIZE = PLOT BB▖..pp` GO SUB ;` COPY COPY COPY COPY LIST © COPY LOAD IN COPY ERASE OUT USR COPY CODE LOAD / LPRINT COPY ^USR IF ▛?▖ PRINT e COPY d REM LIST © LIST LINE LOAD IN LOAD PAPER INVERSE OUT INVERSE USR OUT USR LIST CAT [P] CAT AND / ▝▝H▝/H▝ [C]b_ COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ` GO SUB LLIST 8cATN cVAL l COPY ol`{ COPY [P]x{ COPY COPY xSQR COPY COPY 8o^` COPY ]] COPY MCODE M[Q] COPY Y RUN Y LIST COPY w LOAD w LPRINT DRAW OUT PAPER ATN oATN ` LINE IN LOAD IN LPRINT FOR /CODE /[Q] NEXT IN LOAD IN LPRINT IF 7o7` CLEAR b@USR _@▖IN [R]!!!>=[H] LOAD [H] LPRINT NEW ' RUN ' LIST COPY COPY SAVE ? COPY RUN OUT USR COPY DIM o` COPY BEEP RUN LIST COPY CODE 7a GO SUB COPY LIST © COPY LOAD IN COPY ERASE OUT USR COPY CODE LOAD / LPRINT COPY ^o^` COPY ]USR IF ▛▖ PRINT e COPY d REM LIST © LIST REM LOAD IN LOAD PAPER INVERSE OUT INVERSE USR OUT USR VAL CAT [P] CAT N /N ▝▝▖▝/▝ PIb_ COPY COPY COPY COPY LIST © COPY LOAD IN COPY ERASE OUT USR COPY CODE LOAD / LPRINT COPY ^/0 COPY VAL$ ▜. COPY INKEY$ BEEP & FORMAT COPY AT CLS , SAVE COPY SQR RUN ; LIST COPY ▚o`` GO SUB ] COPY MCODE M[Q] COPY Y RUN Y LIST COPY w LOAD w LPRINT COPY OUT USR DRAW H? PAPER ATN oATN ` REM IN LOAD IN LPRINT FOR /CODE /[Q] NEXT IN LOAD IN LPRINT IF 7o7` RANDOMIZE b@▝[M]_@`IN EE▖' LOAD ' LPRINT [R]W RUN !W LIST o^` COPY ]] COPY MCODE M[Q] COPY Y RUN Y LIST COPY w LOAD w LPRINT DRAW OUT RETURN U[P]T CLEAR ▛ COPY ▖ CLS u COPY t PLOT CLS COPY SAVE PLOT STR$ COPY USR GO SUB PEEK ` GO SUB H IF TAN TAN PRINT y RUN y LIST GO SUB {SQR {LN GO SUB v GO SUB v GO TO INK 7 CLEAR 7 DRAW OUT USR LIST CAT [P] CAT INPUT /▝ SAVE ▝/▝ COPY b_ COPY COPY COPY COPY LIST © COPY LOAD IN COPY ERASE OUT USR COPY CODE LOAD / LPRINT COPY ^USR IF ▛?▖ PRINT e COPY d REM LIST © LIST LINE LOAD IN LOAD PAPER INVERSE OUT INVERSE USR COPY PEEK GO SUB w©w CONTINUE INVERSE IN INVERSE GO TO COPY IN COPY STOP PEEK IN PEEK CONTINUE COPY IN ` GO SUB INVERSE PRINT POKE STR$ ▜ CLEAR ▜ DRAW OVER VERIFY GO SUB VERIFY GO TO BRIGHT ATTR SQR ATTR LN LPRINT LET RUN LET LIST SAVE b@ COPY [M]_@ COPY LPRINT IN COPY LET COPY RUN LOAD LPRINT COPY RUN RUN LIST o^` COPY ]] COPY MCODE M[Q] COPY Y RUN Y LIST COPY w LOAD w LPRINT DRAW OUT PAPER ATN oATN ` LINE IN LOAD IN LPRINT FOR /CODE /[Q] NEXT IN LOAD IN LPRINT IF 7o7` CLEAR COPY OVER INVERSE IN INVERSE CIRCLE w©wVAL >©0>©▝IN ©▝p OUT pUSR GO SUB GO SUB GO SUB k GO SUB GO SUB s[L]>2[L]:[L]PICHR$ EXP [N]:[L]= " STEP AT [L]:[L]= g[L]:[L] THEN GCHR$ +[M] STEP AT [L]>2g[L]NOT ^[Q] STEP AT [L]CODE 2g[L]©!`[L]5 6[I]!▝[I] OUT GO SUB VAL ![L]4~ RETURN 6*[L]"[L]![L]5(![L]5USR 6![L][L]P GO SUB VAL <>6![L]6*[L][N] STEP G[N]#"a[L]~2e[L]# RESTORE "[L]![L][L]N GO SUB VAL LLIST 6~ GO SUB [Q]>2[L]CODE 2f[L]<>!:[M]"E[N]&. PLOT >NOT q[M]$ THEN / LINE 3[M]!O[M]"E[N]&▖. PLOT >NOT q[M]$$ THEN d LINE H[M]!e[M]"E[N]&[A].V>NOT q[M]$$ THEN / LINE ^[M] GO SUB {[L]<>CODE RANDOMIZE STR$ MOVE INK STR$ MOVE LLIST THEN THEN THEN THEN THEN THEN INK THEN THEN THEN THEN INK THEN THEN THEN THEN THEN THEN RESTORE MERGE OR INK THEN THEN THEN THEN MERGE OR GO SUB B RANDOMIZE STR$ MOVE INK STR$ MOVE LLIST THEN THEN THEN THEN THEN THEN INK THEN THEN THEN THEN INK THEN THEN THEN THEN THEN THEN RESTORE MERGE OR INK THEN THEN THEN THEN MERGE OR GO SUB B RANDOMIZE STR$ MOVE INK STR$ MOVE LLIST THEN THEN THEN THEN THEN THEN INK THEN THEN THEN THEN INK THEN THEN THEN THEN THEN THEN RESTORE MERGE OR INK THEN THEN THEN THEN MERGE OR ;; MOVE THEN THEN THEN THEN MERGE CODE GO SUB B=CHR$ q[M]NOT ~#PI OR RESTORE MERGE COPY 4 MERGE LLIST MERGE 6 GO SUB [Q] GO SUB [Q] MOVE z NEW TO POINT [N] GO TO FOR READ | NEW PLOT [I]g>Gw#w#w SAVE MOVE LLIST STR$ CHR$ <>![K= DRAW COPY MERGE GO SUB [Q] GO SUB [Q] GO SUB [Q] MOVE z NEW TO POINT [N] LOAD NOT ACS [R]z VERIFY W{ AND _ NEW LPRINT USR z AND W<>:[L]= " STEP REM [N]:[L]= g[L]:[L] THEN GCHR$ c[O] STEP REM [N]>2g[L]NOT [R] STEP REM [N]CODE 2g[L]y!`[L]4~ RETURN 6_[K]!^[K] OUT GO SUB LN ![L]4~ RETURN [L]CODE GO SUB B"[L]![L]4~ RETURN 6!^[L]_[L]P GO SUB LN *[L]CODE GO SUB B GO SUB [Q]![L]5USR 6![L]6*[L] STEP G[N]#"c[L]~2f[L]CODE GO SUB B"[L]2e[L]<>!r[O]"x[P]&.>NOT RND[O]$ THEN / LINE k[O]!▜[O]"x[P]&▖.>NOT RND[O]$ THEN d LINE [O]![M][O]"x[P]&[A].>NOT RND[O]$ THEN / LINE [F][O]NOT l[M]CODE RANDOMIZE STR$ MOVE THEN THEN THEN THEN INK STR$ MOVE LLIST THEN THEN THEN THEN THEN THEN INK THEN THEN THEN THEN INK THEN THEN THEN THEN THEN THEN RESTORE MERGE OR INK MERGE OR RANDOMIZE STR$ MOVE THEN THEN THEN THEN INK STR$ MOVE LLIST THEN THEN THEN THEN THEN THEN INK THEN THEN THEN THEN INK THEN THEN THEN THEN THEN THEN RESTORE MERGE OR INK MERGE OR RANDOMIZE STR$ MOVE THEN THEN THEN THEN INK STR$ MOVE LLIST THEN THEN THEN THEN THEN THEN INK THEN THEN THEN THEN INK THEN THEN THEN THEN THEN THEN RESTORE MERGE OR INK MERGE OR RANDOMIZE MOVE THEN THEN THEN THEN MERGE ,,=CHR$ RND[O]NOT CODE 2[L]2[L]2[L]2[L]2e[L]<2[L]>2`[L]![I]▝[I] OUT 6G GO SUB VAL *[L] RESTORE "c[L]~2f[L] LLIST ▘ OR MERGE STEP G[N] MOVE STR$ ## PAUSE "[L]FCODE GO SUB B"[L]3 GO SUB B<2[L]>2[L][L] GO SUB [Q]+ COPY ~ GO SUB [Q]# GO SUB LET ~ GO SUB [Q]<>*[L]CODE GO SUB R~ NEW RETURN ( RETURN (CODE GO SUB R LIST NOT z[P]~2h[L]"CODE GO SUB R"[L]NOT z[P]~2h[L] POKE *i[L]E[L] FOR w#w#w#x FOR G LOAD M*[L]CODE GO SUB B"[L]"[L]<>!m[Q]"[R]&. COPY >NOT [Q][Q]$ THEN / LINE f[Q]!▘[Q]"[R]&▖. COPY >NOT [Q][Q]$ THEN d LINE {[Q]![H][Q]"[R]&[A]._>NOT [Q][Q]$ THEN / LINE [A][Q]NOT l[M]CODE GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o- GO SUB o-=CHR$ [Q][Q]NOT ![R]"TAN [R]&.>NOT L[R]$ THEN / LINE [R]!.[R]"TAN [R]&▖.>NOT L[R]$ THEN d LINE '[R]!C[R]"TAN [R]&[A].>NOT L[R]$ THEN / LINE <[R]NOT l[M]CODE GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g,=CHR$ L[R]NOT FOR READ FOR z NEW PLOT [I]W:[L]=( RETURN G~ RESTORE FOR FOR LLIST # FOR NOT ▘[N]~ RESTORE FOR FOR LLIST # GO SUB NOT ▘[N] IF GO SUB STEP [PICODE 2[L]:[S]= LINE [D]FN = LINE EXP FN :[S]= LINE [T]= ZNOT VERIFY [T]:[H]ABS = 2[S]L>2[S]! BEEP FN " COPY [R]CODE 2[S]2[S]2[S]<2[S]2[S]2[S]2"SGN >2[S]>2[S]:[L]=(>2[L]2[L]:[L]=2[L] LINE CLS FN >2[L]NOT CLS FN :[S] THEN g(a:Z(:[E]ABS =USR ::," [S]>2#[S]2$[S]>2"[S]<>:[S]2[S]>2[S]*[S],,:[S]= --$| NEW TO ASN INKEY$ RUN "[S]:[S]= LINE [J]PI:[S]= LINE CLS FN :[S]= LINE LN POINT :[S] THEN _( STEP ~[T]! INVERSE FN " COPY [R]>2[S]2[S]>2[S]>2[S]NOT CLS FN THEN W(R:[L]=(u>2[S]>2[S]>2[S] STEP RND STEP 3[U]*[S]$| NEW TO ASN INKEY$ RUN ,,:[S]= --"[S]NOT INKEY$*[S]$| NEW TO ASN INKEY$ RUN "[S]>2[S]<> NEW 9![S]CODE PEEK (w:[L]=( STEP RND>2[S]>2[S] STEP RESTORE INKEY$ LINE ?RND[U]<2[S]2[S]>2[S]>2[S]NOT LN POINT ![S]F=LN (x PRINT :[L]= LET CODE INK >2[S] RESTORE STEP RND LLIST LET w2[L] STEP THEN [U]NOT &RND:[S]=2[S](>2[S]!<=V#^#~ THEN THEN THEN THEN THEN THEN THEN THEN w THEN THEN THEN THEN THEN THEN THEN THEN +w+r###USR ABS <> STEP RND:[L]=( >2[L]2[L] STEP RESTORE INKEY$ COPY [R]>2[S]NOT [J]PI STEP OR INKEY$ >2[S]CODE 2[L]:[S]2[L] STEP TAB ATTR >2[S]![S]4~ RETURN CHR$ yRND6 RETURN LINE ▛RND RETURN CHR$ 3[U]>2 INPUT IF NOT 3[U]> PLOT :[S]=>= GO SUB [[S]!([S] COPY MERGE GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR LLIST $| NEW TO ASN INKEY$ FOR GO SUB ::$[S]=(USR [S] STEP STOP RND::[S]=>=*[S]▖[S]G OR RESTORE COPY FOR GO SUB [Q] FOR | NEW TO ASN INKEY$ PAUSE LLIST STR$ y=( OR STEP [K]POINT CLS STR$ | RETURN CIRCLE CIRCLE <>:[S]= - DEF FN <>, LINE <>:[H]ABS = STEP 9PEEK *[S]:[S] RETURN 2[S](,"[S]-| RETURN 8o RESTORE STEP 9SCREEN$ LLIST ([S] COPY GO SUB [Q] GO SUB [Q] GO SUB [Q]---$| NEW TO ASN INKEY$ INPUT :[S] RETURN 2[S](, STEP [K]POINT "[S]:[S]G!J AND USR CLEAR FOR *[S] INKEY$w,INKEY$w,INKEY$w--ACS w,ACS w,ACS w--$| NEW TO ASN INKEY$ BEEP x2[S]<>!"[S]>2[S]<>| VERIFY g} AND o NEW LPRINT USR | AND g<>!9[L]:[S]PI(!6[L]: RETURN [R]< RETURN 0G~ DRAW NEW RETURN <>!7[L] OR : RETURN [R] RETURN 0=G~( DRAW STR$ NEW USR # CONTINUE <>STR$ IN <> STEP z[P]> 2h[L] STEP CLS [P]! RETURN [R] COPY [R]TAB 6 GO SUB VAL :h[L] NEW 2 RETURN [R]!▙▖=(=..(=! DEF FN (.n"[S]CODE 2[L]2[S]2[S]2&[S]<2[S]>2[S]NOT INKEY$:[S]=(=(=(=(>2[S]<>>2[S]<> STEP LSTR$ 2[S] STEP [Q]STR$ NEW >=:[F]ABS =USR ! TO AT 6 CLS NOT PEEK :[S]PICHR$ 7FN * COPY [R]F#~PI(.:[S] RETURN ( OR RESTORE STEP RESTORE INKEY$ LLIST STR$ CHR$ _FN : RETURN [R]=2 RETURN [R] >LN >(>LN >(=2[S]`#" COPY [R] OR STEP RND:[S]= :[S] RETURN ( STEP OR INKEY$ CODE 2[S] STEP TAB ATTR STR$ *[S]P$| NEW TO ASN INKEY$ RUN "[S]B:INKEY$*[S] GO SUB [ [S]$| NEW TO ASN INKEY$ FOR $| NEW TO ASN INKEY$ FOR INPUT "[S] FOR " [S]NOT INKEY$:[S]=(82[S] RETURN STEP RND STEP TAB ATTR TAB STEP RND STEP TAB ATTR * COPY [R]F##" COPY [R][M]CODE 2[S]:[S]= LINE n[T]>2[S] STEP RNDNOT INKEY$CODE 2[S]<2[S]>▚2[S]>2[S] STEP RND! INPUT ▖"[S]NOT INKEY$![S] THEN ~ THEN PEEK 5( THEN RETURN ![S]4 STEP RNDNOT INKEY$ STEP RND>2[S]>2[S]<>![S]5USR :[S]= TO THEN [U] LLIST NOT GO SUB SGN :[S]= p![S]5 6CODE 2[S]* COPY [R]##" COPY [R] STEP RND:[S]= TO TAB ATTR NOT INKEY$* COPY [R]F#~+++" COPY [R]= ! RETURN [R]4 OR STEP RND:[S]= TO TAB ATTR STR$ P*[S] STEP [K]POINT CLS "[S]B:INKEY$*[S] GO SUB [ [S] STEP [K]POINT FOR STEP [K]POINT FOR PLOT "[S] FOR " [S]NOT INKEY$![S]5 CODE 2[S]<2[S]NOT [J]PI* COPY [R]F##" COPY [R] OR STEP RND:[S]= TO TAB ATTR STR$ NOT CLS PI| NEW (%<>| AND g} NEW LPRINT (} VERIFY o<>| VERIFY g} AND LPRINT o<>:[S] RETURN :[G]ABS =(Z![S]5 :[L]= N2[L]6 STEP RND STEP RESTORE INKEY$ >2[S]! STEP FN " COPY [R]>2[S]NOT [J]PI:[S] RETURN >< RETURN 0>2[S] STEP OR INKEY$(:'[S] RETURN > <2'[S]2 INPUT IF STEP TAB ATTR NOT INKEY$CODE 2[S]2[L]2[S]>2[S]>2[S] STEP RNDNOT INKEY$:2:$[S]= 2$[S]'!"[S]:#[S]= 4>PEEK 5CODE 2#[S]5~ RETURN :%[S]:9:[S]= 2[S].![S]:[S]= 4:[D]ABS =>(>PEEK 5CODE 2[S]5~ RETURN :[S]:!:#[S]= :"[S] RETURN 0 AND 2 INPUT IF * [S]USR [S]G STEP CLEAR SCREEN$ ::[S]= :[S] RETURN 0 AND 2 INPUT IF *[S]▖[S]:[S] OR RESTORE COPY GO SUB [Q]-$| NEW TO ASN INKEY$ POKE LLIST STR$ y=( OR STEP [K]POINT CLS STR$ | RETURN 8 INK - DEF FN ,<>STR$ LLIST > PRINT y CLOSE #=( LINE STOP MERGE OR RESTORE COPY INKEY$wACS w$| NEW TO ASN INKEY$ LOAD LLIST STR$ MOVE y=(" OR STEP [K]POINT CLS STR$ | RETURN 8 ERASE LET =>= PAPER STOP G PRINT "%[S] OR LET "[S]<>:[S]= -ATN LET =>=SCREEN$ CLOSE #G PRINT "[S]SCREEN$ ,PI LET =>=[K] CLOSE #G PRINT "[S][K]:[S]PI u:[L]=(%:e[L] NEW RETURN CHR$ k[L]:e[L] THEN _ LINE k[L]:[S]PI(->2[S]CODE 2[L]2[S]<>:f[L] NEW RETURN CHR$ k[L]>2[S]CODE 2[L]:[S]=USR 2[S]<2[S]<> INVERSE !USR AT INVERSE 6 INVERSE SAVE ! COPY "[L]"i[L] STEP 1[Q]>2[S]>2"SGN 2[S]:[S]==(=(?=(T:e[L] RETURN CHR$ k[L]>2[S]NOT k[L]![S]5CHR$ k[L]>2[S] STEP INKEY$ STEP SCREEN$ EXP STEP RND>2[S]>2[S]CODE 2[S]2e[L]2[L]2[S]:e[L] RETURN CHR$ k[L]>2[S] STEP USR >A2[S]NOT k[L]![S]5CHR$ k[L]CODE 2"SGN 2[S]NOT k[L]▟ GO SUB : GO SUB IF PI IF NEXT STEP POINT IN STEP [Q]CODE STEP SAVE [S] STEP SIN STEP OUT CODE STEP ]TAB STEP IN :[L]PI goW_) GO SUB VAL >2 GO SUB IF CLS STEP )SGN LINE INVERSE !USR AT !TAB "INT AT !INKEY$ATN "SGN AT CODE 2EXP AT INVERSE ~PI INVERSE NEXT yPIUSR goW_ LINE GO SUB VAL <> INVERSE ~=CHR$ zTAB OR INVERSE F INVERSE N STEP ~CODE RESTORE PRINT GO SUB [INT AT FOR s#r INVERSE F#p# MERGE GO SUB [SGN AT s#r# MOVE "INT AT !EXP AT 4*SGN AT FOR GO SUB [Q] GO SUB [Q] GO SUB [Q] LLIST $| NEW TO ASN INKEY$ GO SUB GO SUB SSGN AT INVERSE ~=(=(=(*[S] GO SUB [[S]goT/goT/DL*[S] GO SUB [[S]:[S]G:&[S]O INK LET LLIST INVERSE V INVERSE ^G INVERSE Ny RESTORE MERGE !xPI LINE 7VAL$ RETURN LINE SVAL$ CLEAR RESTORE `VAL$ VAL$ 6NOT #s#r LLIST RNDVAL$ CAT VAL$ 6NOT #s#r LLIST ~#F#N# READ COPY 7 THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN INKEY$wx,INKEY$wy,INKEY$wz,INKEY$w--- READ CODE W~#F#N# READ THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN ACS wx,ACS wy,ACS wz,ACS w| INK SGN (;INT (eLN (fEXP (j INK ---$| NEW TO ASN INKEY$ READ =CHR$ UVAL$ LLIST !wCODE `VAL$ GO SUB VAL !`VAL$ `VAL$ RNDVAL$ NOT zTAB } INK ABS (-ABS (-ABS (-ABS CHR$ LOAD VAL$ NOT 5CODE --- INVERSE ~ RETURN > INVERSE wNOT LOAD VAL$ 2[S]NOT LOAD VAL$ {NOT CODE INK :[S]NOT YCODE INK :%[S]ABS (-ABS (-ABS (-ABS CHR$ LOAD VAL$ NOT oCODE ---> INVERSE wNOT LOAD VAL$ THEN THEN THEN >CODE [A]GPI7PIFN NEW SAVE FN gyFN NEW <=FN oy NEW @<>:EXP AT PI>=!TAB G=O:EXP AT V+^ MERGE +F+V+^+ READ GO SUB [Q] GO SUB [Q] GO SUB [Q] MOVE FOR $| NEW TO ASN INKEY$ FOR FOR LLIST =CHR$ TAN CODE <> INVERSE !USR AT INVERSE ~PI INVERSE NEXT <> OR INVERSE ~=(= LINE LEN =(J= LINE [I]VAL = LINE PRINT ASN = LINE LOAD ACS = LINE ▟ATN = LINE ▟ATN STR$ OPEN # INVERSE ~< RETURN INVERSE ~PI 7 INVERSE 6!IN AT 5 RESTORE INVERSE w2 INPUT IF G! IF OPEN #USR CLEAR INVERSE u INVERSE t STEP ATTR LEN LINE STEP [C]LEN 0% STEP BEEP SQR USR STEP ATTR LEN LN INVERSE p INVERSE p INVERSE ~LN BRIGHT EXP ASN ! LINE OUT INVERSE ~=(! REM LPRINT =(!Z LPRINT =(! LINE OUT =(!Z LPRINT INVERSE u INVERSE t INVERSE 6 INVERSE 6 INVERSE ~= ZCODE INVERSE w>2 INPUT IF INVERSE ~=(=(@=(=(.!IN AT 5 STEP <=SGN PP INVERSE 6!* REM INVERSE t INVERSE u INVERSE 6 INVERSE 6 INVERSE 6 STEP BEEP SQR NOT VAL INVERSE 6!Z REM BRIGHT STEP [K]ABS NEW INVERSE ~ AND INVERSE w RETURN FN 0 STEP ATTR LEN NOT VAL CODE INVERSE w INVERSE ~ RETURN PAPER VAL !IN AT 5NOT VAL STEP [C]LEN 0 STEP BEEP SQR NOT VAL INVERSE ~= STEP QTAN N STEP AND TAN ( STEP LLIST TAN INVERSE 6 INVERSE 6 STEP [T]TAN INVERSE ~= INVERSE w( INVERSE 6 INVERSE ~< RETURN > INVERSE w INVERSE F( AND G INVERSE n INVERSE f INVERSE ^ CLEAR INVERSE u INVERSE t STEP ATTR LEN INVERSE N STEP PEEK LEN NOT VAL INVERSE ~=(CODE <> INVERSE 6 INVERSE 6 INVERSE 6 INVERSE w7<>:[L]=USR :g[L]= :[L]O INVERSE ~ f INVERSE N INVERSE w0 INVERSE 6 INVERSE 6<> AND FORMAT INVERSE 6<> INVERSE N(* INVERSE w FORMAT INVERSE 6 INVERSE 6<> INVERSE w RETURN d CIRCLE INVERSE 6 INVERSE ~= RETURN 8!IN AT 5 LLIST NOT VAL <> INVERSE w FORMAT INVERSE 6<> INVERSE N [A] INVERSE w FORMAT INVERSE 6 INVERSE 6<> INVERSE N([A] INVERSE w RETURN [L] FORMAT INVERSE 6 INVERSE ~= RETURN 8!IN AT 5 LLIST NOT VAL <>[A] INVERSE w AND CIRCLE INVERSE 6 INVERSE 6w FORMAT INVERSE 6<>:[S]PIUSR :e[L]PI :f[L]PI(A PRINT NEW RETURN ( RETURN ( LET 3 LET STEP AND SIN 0-!$TAB O~PI(# RANDOMIZE q LET STEP AND SIN 86 NEW !$TAB PEEK >=# CLS 7<> STEP %ASN :IN AT RETURN FORMAT !PEEK AT 5USR 6!$TAB PI(# SAVE y=(#=(=(<> GO SUB _ RETURN @>8> GO SUB _ RETURN *8 RETURN T>8>>G!$TAB ~PI((# PLOT PRINT STEP TAN LET =(=( =(0=(I=(K=(P<>!z CIRCLE USR CODE STEP [M]COS INVERSE 6 INVERSE 6<>!: NEW CODE STEP [M]COS INVERSE 6 INVERSE 6<>! DATA > STEP [M]COS INVERSE 6 INVERSE 6 INVERSE 6 INVERSE 6<>! REM BORDER STOP STEP XCOS INVERSE 6<> STEP ▜COS INVERSE 6<> INVERSE t INVERSE u INVERSE q INVERSE p:[L]=( GO SUB _ RETURN @8:[L]= =(!([L] STEP "TAN 0D INVERSE 6 INVERSE 6=(!E[L] STEP "TAN 0. INVERSE 6 INVERSE 6 CONTINUE INVERSE ~▘ INVERSE wCODE INVERSE ww INVERSE w INVERSE w INVERSE w< INVERSE w INVERSE w!IN AT 4<> LLIST <> INVERSE ! CLOSE #AT CODE INVERSE PEEK >= INVERSE SAVE <> OR A~( DRAW STR$ NEW # INPUT LLIST BORDER CODE <> LLIST INVERSE qCODE EXP >(A AND DRAW W7<> INVERSE 5 INVERSE ~ 0 INVERSE 6 RETURN INVERSE 6 INVERSE 5 INVERSE ~ RETURN COPY INVERSE 6!IN AT 5 LLIST NOT VAL STEP LLIST TAN (CODE INVERSE w INVERSE w7<> INVERSE ~ RETURN INVERSE ~ [A] INVERSE wIN <> STEP ASN # STEP ASN INVERSE ~= ### INVERSE ~PI( RETURN 0G~ DRAW NEW RETURN <>PI<> STEP ASN INVERSE ~= ###+ INVERSE FCODE 77 IF INKEY$<> STEP ASN INVERSE ~ RETURN 0PI(G( DRAW NEW STR$ USR # LOAD <>IN <> INVERSE ~![L]Z=(@=( INVERSE ~ THEN ? THEN ? THEN ?_<>:[L] INVERSE !USR AT =(:e[L] NEW =USR INVERSE ~PI( INVERSE ~PI>=*a[L] INVERSE 6 CONTINUE :f[L] NEW =USR INVERSE ~PI( INVERSE ~PI>=*c[L] INVERSE 6~ PRINT NEW LPRINT OGy AND DRAW AND INVERSE w INVERSE u INVERSE tCODE INVERSE w INVERSE w6!: OUT INVERSE u INVERSE t> INVERSE w INVERSE w LET NEW RETURN :[C]ABS RETURN > = INVERSE w INVERSE 6<>:[K]AT ![L]AT PI(G### CLS :[K]AT <2[K]AT INVERSE ^s# INVERSE Vr#wCODE <>:[K]AT PI>=![L]AT G^#V#~# RUN x2[K]AT <> STEP [C]LEN 0 STEP BEEP SQR NOT VAL INVERSE ~=(W= LINE [I]ACS = STEP QTAN 8 INVERSE N STEP PEEK LEN ; INVERSE ~=( INVERSE ~< RETURN > INVERSE w< INVERSE ~= INVERSE 6 INVERSE w INVERSE wG INVERSE f INVERSE n[A] CLEAR INVERSE t INVERSE u STEP ATTR LEN NOT VAL ! LLIST ACS INVERSE ~< INVERSE w RETURN INVERSE 4 INVERSE 6!G## DRAW INVERSE ~▚ INVERSE w STEP [T]TAN ▟ INVERSE ~= INVERSE w(▗ INVERSE 6NOT ACS ! LLIST ACS INVERSE ~= STEP LLIST TAN (CODE INVERSE w INVERSE wNOT ACS INVERSE 6 INVERSE 6NOT ACS INVERSE wG## DRAW INVERSE ~[G] INVERSE w#~PI(TAN STEP LLIST TAN (CODE INVERSE w INVERSE wNOT ACS INVERSE 5[Q] STEP [C]LEN 0P STEP BEEP SQR NOT VAL INVERSE ~= . INVERSE 6 INVERSE ~ RETURN [H]8 INVERSE 6 INVERSE 4 INVERSE 4 INVERSE 4 INVERSE ~< RETURN INVERSE w * INVERSE 4 INVERSE 6! INVERSE ~ RETURN 8 THEN STEP [N]TAN ( AND INVERSE 5 INVERSE 5 INVERSE 5 INVERSE 5 INVERSE 5 INVERSE 6 INVERSE THEN f INVERSE ~< RETURN INVERSE THEN NEW > INVERSE ~= INVERSE THEN INKEY$> INVERSE wG INVERSE f INVERSE n[A] CLEAR INVERSE t INVERSE uNOT ACS INVERSE 5CHR$ ZACS INVERSE ~ INVERSE 6 RETURN LINE VAL !IN AT 5NOT VAL NEXT !@T[^ GO SUB VAL INVERSE !T[@[U]> COPY 7 STEP CHR$ 1! CLEAR RETURN q# DRAW q>NOT 2 RETURN RETURN ! LOAD IF " COPY RETURN > CLEAR GO SUB G GO SUB ^ CLS NOT RUN STR$ HI TO ANYBODY THATS READING THIS,OK CODEBUSTERSI'VE MENTIONED YOUR NAME SO THERE. DON,T FORGETTO TELL ME IF YOU FIND THIS MESSAGE. (UPSTAIRS OVER JUST MICRO. - JOBBE GO SUB . GO SUB GO SUB STEP ▜INT STEP [A]SQR 2"SGN :#SGN VERIFY DATA G:%SGN G OR >2&SGN STEP )SGN P STEP BEEP SQR STR$ STEP LET IN FOR STEP USR SQR > COPY 2INKEY$EXP Z OR STEP INT STR$ RANDOMIZE *[L]"PIEXP =2INKEY$EXP OR STEP INT STR$ RANDOMIZE STEP USR SQR STEP [A]SQR *[L][L]NOT z[P] STEP [A]SQR STEP 6INT STEP ▙INT STEP [A]SQR STEP 6INT STEP PRINT INT !POINT EXP >PEEK >w2 INPUT IF Q![T]p OR MERGE RESTORE GO SUB VAL FOR MOVE STR$ $| NEW TO ASN INKEY$ FOR $| NEW TO ASN INKEY$ FOR INK [I]![T][I] GO SUB VAL FOR FOR FOR STR$ BORDER <>>2 GO SUB IF CLS <>:INKEY$EXP < RETURN CODE 2INKEY$EXP !TAN dPI(<G> THEN ' DRAW OB[A] RESTORE MERGE OR COPY RESTORE GO SUB [Q] GO SUB [Q] GO SUB [Q] LLIST PLOT { AND _ COPY RESTORE GO SUB [Q] GO SUB [Q] GO SUB [Q] LLIST PLOT STR$ MOVE LLIST ### FOR $| NEW TO ASN INKEY$ FOR DEF FN !B6B, CLS }6B, CLS <>:INKEY$EXP *PIEXP < RETURN CODE #2INKEY$EXP "PIEXP B[A] OR MERGE RESTORE STEP ;SQR LLIST MOVE STR$ INPUT { AND _ OR MERGE RESTORE STEP ;SQR LLIST MOVE STR$ INPUT <>~PI(YG![ MERGE K CLEAR MOVE RESTORE MERGE :INKEY$EXP PI(<G> THEN ' DRAW O MOVE MERGE COPY MERGE GO SUB [Q] GO SUB [Q] GO SUB [Q] MOVE FOR $| NEW TO ASN INKEY$ FOR GO SUB MOVE LLIST ▝Oz NEW PLOT [I]W~ GO SUB [Q]#<>: GO SUB IF PI IF NEXT <> MERGE COPY FOR CODE w,w,w--$| NEW TO ASN INKEY$ LOAD LLIST | NEW PLOT [I]g>Gw,w,w<> OR &lT/[Q] GO SUB VAL STR$ PAUSE <> GO SUB ! MOVE SQR CODE {▙'w#z▙'w#>▙'w# SAVE : OPEN #SQR NEW LIST G: MERGE SQR LN OR BIN USR STR$ x2 MERGE SQR : OPEN #SQR NEW G: VERIFY SQR LN (x2 VERIFY SQR RETURN STEP USR MOVE SQR !@NOT PRINT CHR$ GO SUB :"SGN =>=!(SGN ~PI( THEN © < RETURN >[C] NEW ©= RETURN THEN COPY >w NEW ©2 INPUT IF !&SGN 5USR 6*#SGN CODE w$w!%SGN 5 6*#SGN -} RETURN DATA 8$"#SGN !(SGN RETURN DIM 0~PI 66:%SGN GCODE 7 DRAW *#SGN w$w<>>2[S]2"SGN 2'SGN <>>2&SGN >2%SGN CODE 2"SGN 2'SGN 2(SGN ! COPY S"#SGN =w$w%- RANDOMIZE <>*#SGN >2%SGN #}PI("#SGN 6 COPY $6 COPY % LIST } RETURN DIM CIRCLE CODE 2(SGN <> STEP lUSR ! GO TO SGN 5 PRINT STEP STR$ LET LINE OVER ASN STEP PI STEP INPUT ABS STEP <=SGN CODE 2sPEEK :'SGN = STEP [S]SGN CODE 2"SGN !EXP AT kINT AT w GO SUB VAL >2PEEK AT STEP ACS USR NOT -TAB *XUSR "[L]! MOVE SQR CODE w# DRAW !$TAB 6#w#w<2rPEEK STEP [S]SGN STEP PEEK STEP PI>22sPEEK STEP IN ! GO TO SGN 6!@ STEP )STR$ sABS STEP /BIN [G] Score: 0 GO SUB GO SUB Lives: 4 GO SUB :[C]ABS < RETURN FORMAT 2[C]ABS G OR [C]ABS !z LLIST OR 0STR$ RUN >STR$ [S]P IF STEP VERIFY ABS :[C]ABS RETURN USR >2[I]ABS >2[J]ABS <> COPY GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR $| NEW TO ASN INKEY$ FOR GO TO <>:[C]ABS PI>=G=2[C]ABS !z LLIST RESTORE ![C]ABS [S]P# RANDOMIZE p LLIST <>![K] STOP BORDER CODE 2[C]ABS ![D]ABS w# DRAW !z LLIST INKEY$P OR MERGE RESTORE STEP VERIFY ABS LLIST MOVE STR$ LET <>![I]ABS 5 6![J]ABS 5( ~G!ACS P$| NEW TO ASN INKEY$ RUN CODE w,w,w:[J]ABS RETURN FORMAT >2 INPUT IF <>![K] STOP CODE 2"SGN ▞[C] GO SUB !sPEEK ~PI>=5>=tPEEK ! TO COPY RESTORE GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] LLIST $| NEW TO ASN INKEY$ RESTORE ! TO [I] COPY GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]} AND o REM TO COPY ! REM STOP MERGE GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] MOVE FOR $| NEW TO ASN INKEY$ FOR DIM :rPEEK G! READ 0 CLEAR MOVE COPY GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR $| NEW TO ASN INKEY$ FOR GO TO ! TO [I]C▝w, DRAW } AND o LIST <>:sPEEK PI>=!tPEEK TO COPY MERGE GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] MOVE FOR $| NEW TO ASN INKEY$ FOR READ TO [I] COPY GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q]{ AND _ REM <>> COPY [A] OR WCODE RETURN B RETURN PLOT STR$ <>! GO TO SGN ~ RETURN FORMAT 4 STEP STR$ STEP LET IN CLS <> STEP [S]SGN STEP OVER ASN !rPEEK 4~ RETURN STEP MERGE STR$ NOT *NOT G!VUSR ## DRAW ^#V!$TAB 6# CLS >d2sPEEK >2"SGN GO SUB S[L] GO SUB Si[L]NOT 1[Q]<>A FOR ▟ GO SUB LIST d PAUSE LOAD POKE e RUN INKEY$}0{STR$ x6v!@T]>= RETURN COPY -} RETURN ▘ NOT USR SQR > PRINT MERGE RESTORE PIG>O(77 THEN RANDOMIZE x PRINT INKEY$w FOR yINKEY$w$| NEW TO ASN INKEY$ FOR $| NEW TO ASN INKEY$ LET BORDER LLIST MOVE LET PEEK ![I]X OR GO SUB VAL FOR STR$ LET ![M]CODE << RETURN ,} RETURN [A]>=> PRINT MERGE RESTORE GCODE O77 THEN RANDOMIZE x PRINT MERGE ]| VERIFY @WINKEY$ READ ]yINKEY$$| NEW TO ASN INKEY$ FOR LLIST $| NEW TO ASN INKEY$ LET INVERSE LLIST MOVE LET SQR ~ AND 0!@ STEP )STR$ PRINT RESTORE , CLS LLIST $| NEW TO ASN INKEY$STR$ GO SUB LLIST LET <> GO SUB "%:CSTR$ PI( FLASH NEW <>!DSTR$ STEP fSTR$ !ISTR$ ~# STEP STR$ ? THEN 0 PLOT {<> NEW RETURN { NEW _ NEW RETURN {USR NEW <>O NEW <G THEN 9 THEN 9 THEN 9>[B]O> RETURN CLEAR FLASH RETURN DRAW <> STEP aSTR$ THEN O THEN W>= STEP aSTR$ PI IF STEP aSTR$ THEN W( RANDOMIZE STEP aSTR$ THEN W RANDOMIZE <> STEP OVER ASN LLIST LLIST LLIST LLIST STEP RND STEP MERGE STR$ STEP CHR$ STEP CHR$ NOT INVERSE STR$ :[S]= TO THEN [U]<> STEP p LINE STEP aCHR$ STEP CHR$ STEP .ABS STEP CHR$ STEP ! DEF FN STEP CHR$ STEP [K]<> DIM >E STEP ?<> STEP ATTR <= STEP x LINE NOT LPRINT STR$ !<=▜ RESTORE USR GO SUB VAL USR AT MOVE RESTORE OR RESTORE GO SUB VAL LLIST STEP ▚BIN STR$ PAUSE !`[A]( REM MOVE !▜ MERGE OR GO SUB VAL STR$ MOVE FOR STEP ▚BIN FOR LIST >=(`[A]& READ !USR AT PLOT !▜@~ THEN © GCODE DRAW #z RETURN [>= INPUT NEW ©G#~# IF INPUT CODE STEP /BIN !@ RESTORE OR STEP RESTORE CHR$ STR$ ![Q]P NEXT ! DATA S STEP RESTORE CHR$ !▜ MOVE PI(" RESTORE #PI(z RETURN [(x RETURN © INPUT THEN SAVE READ p LLIST OUT THEN SAVE LLIST p<> RESTORE #PI INPUT z RETURN [( INPUT x RETURN © LIST LPRINT OR RESTORE 6, CLS LLIST STEP ▚BIN STR$ LET <> RESTORE 6 STEP ▚BIN RANDOMIZE LLIST NEW STEP NOT NEW STEP NOT GO SUB <> RESTORE MERGE OR AND 0STR$ MOVE LLIST ,<>>G STEP /BIN OR !@w NEW OPEN # RETURN # PLOT LLIST STEP ▚BIN GO TO STR$ READ FLASH >G STEP /BIN !NOT OR ^#V#F# FOR STEP /BIN STR$ FOR LET CODE FLASH RETURN / NEW ( SAVE CODE FLASH RETURN / NEW ( SAVE LLIST LLIST LLIST NOT OVER ASN ▗@The NorthStar ProjectBIN @Centre has been reached.$HSoon,machinery whirlsdHinto action,life-support[U]Hsystems breed life and DATA Hyou sigh. GO SUB $PAnother mission complete&@ PRINT . RESTORE 6# CLS LLIST STEP ▚BIN LET LLIST | AND g LET # DRAW NEXT <> RESTORE OR STEP ▙BIN > [A]O> OR 6F# CLS STR$ = PRINT STR$ LLIST RESTORE MERGE OR STR$ MOVE LLIST , LIST <>$| NEW LINE ASN INKEY$<>| NEW PLOT Xg<> VERIFY OR THEN THEN THEN FOR !=O FOR STR$ OR y NEW ( RESTORE ,6 STEP ▚BIN 6 LLIST CODE LN O(PI THEN CLS yVAL$ w PRINT ,VAL$ w- LET STEP ▚BIN INPUT STR$ y NEW = PRINT y NEW O LET PRINT LEN O LET ABS <>▗X GO SUB ! AND >A RESTORE OR PRINT STEP k OR LET STR$ LLIST ,,< GO SUB !&▖ RESTORE OR PRINT STEP k OR LET STR$ LLIST ,,< GO SUB !▚▖ RESTORE OR PRINT STEP k OR LET STR$ LLIST ,,< GO SUB STEP k OR ,,>- STEP k OR RESTORE LLIST ,,SCREEN$ REM STEP n OR ,, LINE REM STEP n OR <> REM RESTORE OR PRINT w,w- STEP ▚BIN NEXT LET STR$ LLIST <> NEXT >F& STEP 1BIN !EXP AT INT AT j6 GO SUB VAL STEP COPY BIN ! PRINT BIN PLOT BIN 6. GO SUB VAL PRINT BIN ![A] STEP /BIN INVERSE !USR AT !z CIRCLE INVERSE u INVERSE t INVERSE 6- INVERSE 6▚> INVERSE w INVERSE w INVERSE w INVERSE w INVERSE w INVERSE w INVERSE 6 INVERSE 6 COPY STEP ]TAB STEP ACS USR STEP ]TAB STEP ▜INT STEP [A]SQR STEP [Q]CODE INVERSE !USR AT INVERSE ~PI / STEP LSTR$ THEN gCHR$ [B] AND NEW (| INVERSE w THEN G( INVERSE ~< RETURN (m INVERSE 4 THEN O( INVERSE ~=(^ INVERSE 5 INVERSE w INVERSE 6& THEN _ INVERSE ~ INVERSE F((E VERIFY x< RETURN (:G AND INVERSE w INVERSE p INVERSE 6 INVERSE 5 INVERSE F INVERSE ~ THEN @( AND THEN H( VERIFY INVERSE w INVERSE ~ THEN P( VERIFY AND INVERSE w STEP OUT CODE NOT GO SUB OR PRINT INVERSE ! CLOSE #AT INVERSE ~PI( LET INVERSE !USR AT NOT AND INVERSE !USR AT INVERSE f INVERSE n INVERSE ! CLOSE #AT INVERSE t INVERSE uCODE INVERSE w INVERSE w< INVERSE w INVERSE w INVERSE w INVERSE 6 INVERSE !USR AT INVERSE ~ RETURN 8 > RETURN (L RETURN >-8 INVERSE ~=( INVERSE w>. AND @![A] POKE BIN O INVERSE ~ RETURN 0[H]G# DRAW INVERSE 4 OR RESTORE MERGE MOVE LLIST STR$ y INVERSE ~ RETURN CHR$ [M] AND INVERSE 5NOT [M] AND INVERSE w LET STEP OUT CODE STEP ]TAB STEP ▜INT STEP [A]SQR STEP [Q]CODE INVERSE ! CLOSE #AT INVERSE ~PI LINE lUSR DATA !INKEY$ATN PIATN [A]6 GO SUB VAL Z DEF FN !@ INVERSE ![Q]ATN OR INVERSE # INVERSE # INVERSE # INVERSE # INVERSE # INVERSE # PAUSE INVERSE s INVERSE r INVERSE u INVERSE t7>= INVERSE q INVERSE p STEP ▚BIN RESTORE FOR RESTORE STEP NOT <= MOVE LLIST STR$ AND <> STEP N<=0 OR STEP NOT <=STR$ RANDOMIZE <> OR STEP N<= OR STEP [<= STEP [T]<=STR$ POKE LPRINT v INVERSE !INKEY$ATN CODE INVERSE PEEK INVERSE # INVERSE # INVERSE # INVERSE # INVERSE # INVERSE # GO TO <> OR INVERSE n INVERSE f INVERSE ^ INVERSE VG INVERSE s INVERSE rPI( PRINT STEP [K]POINT CLS LET INVERSE ^ RETURN STEP ▚BIN CLS INVERSE ^ INVERSE V RESTORE INVERSE n INVERSE f6, CLS LLIST INVERSE u INVERSE t FOR GO SUB VAL STR$ [J]>!%@ STEP <>>!:@ STEP <>v!$@;@> STEP <> FOR STEP <>v FOR - NEXT > STEP <> STEP 3<> FOR > STEP <> STEP 3<>v> STEP <> STEP 3<> FOR STEP <> STEP 3<>v FOR LOAD > STEP <>- FOR > STEP <>,v> STEP <> FOR STEP <> FOR ,v NEXT <> PRINT OR MERGE RESTORE ! PAUSE REM G CLEAR MOVE MERGE COPY GO SUB [Q] FOR STEP ▚BIN FOR PLOT LLIST RESTORE STEP ▙BIN 6B LLIST MOVE STR$ LET <> PRINT OR STEP ▚BIN CLS STR$ LET <>!@Tu GO SUB VAL COPY w GO SUB VAL CLS <> REM REM RESTORE RESTORE OR w STEP ▚BIN SAVE STR$ ! READ 0 CLEAR FOR LLIST , OR RESTORE w, IF LLIST STR$ STEP ▚BIN LOAD LLIST STEP ▙BIN >D OR w# DRAW STR$ PAUSE <>>E STEP ?<> STEP [O]<= STEP [L]>=![T]@ OR RESTORE A RESTORE OR STEP S<>STR$ ! SAVE <>xPEEK ( IF FOR LLIST STEP /BIN ,, STEP PRINT CHR$ LLIST STEP ▚BIN CLS STR$ STEP STEP IF ! IF " ERASE STEP CODE FLASH RETURN / NEW CHR$ p LINE STEP BIN STEP LINE p LINE LOAD JOBBEE....%OBLIVION.. DESIGN....RIDERS ON.THE STORM.PTHE DOORS.PKORIA GAMETHERE HI..P>E STEP ?<> STEP [O]<= STEP [L]>=!o THEN OR A^#V# FOR RESTORE MERGE STEP S<> MOVE LLIST G STEP /BIN FOR STR$ READ OR ^#V#F# FOR STEP /BIN FOR STR$ LET : POKE BIN IN GP LET TO MOVE RANDOMIZE ! POKE " ERASE STEP STEP BIN STEP LINE [K]<>CODE FLASH RETURN / NEW ( PAUSE > RUN FLASH RETURN / NEW > LOAD FLASH RETURN THEN g LLIST <>8 IF : POKE BIN LN ( ERASE * PAUSE BIN ~ NEW <=w# RANDOMIZE LIST STR$ PI!DX@x2 POKE BIN PRINT CLEAR " PAUSE BIN PLOT w# RANDOMIZE LIST LET PRINT BIN TO LET PRINT =(=(,=(=(+ LET STEP 2 TO >2 POKE BIN NOT p LINE >2CSTR$ NOT ACS LINE !INT STEP DSTR$ GO SUB VAL CODE 2CSTR$ NOT ACS LINE !IN STEP GO TO !* TO BORDER ▗@KEMPSTON JOYSTICKBIN @CURSOR JOYSTICKHSINCLAIR JOYSTICKDHKEYBOARD▗HDEFINE KEYS DATA HSTART GAME[R]PProgram & Design: Jon O'BriencP(c) 1988 Gremlin Graphics!edT]CODE NEXT OPEN # RETURN T INPUT ] INPUT LIST GO SUB CLS <> &"%>G STEP ?<> TO !@ STEP /BIN MERGE STEP [L]>= MOVE !▞@ OR RESTORE STEP /BIN LLIST STR$ STEP 3<> STEP 3<> LOAD !* TO [C]@CODE FLASH RETURN / NEW SAVE STEP GO SUB TO # LET v OR STEP TO STR$ SAVE <>Redefine KeysFIRE....UP. GO SUB DOWN....LEFT....RIGHT...PAUSE...QUIT....SMART.../ COPY RETURN RETURN GO SUB x/ NEW (USR g{ VERIFY THEN <0 IF USR W THEN 8 CONTINUE IN <> MERGE OR RESTORE STEP STEP TO CLS ( SAVE z LLIST STR$ OR RESTORE !* TO A(PEEK ( CONTINUE # IF LLIST RESTORE w!B STEP G NEW O THEN ' THEN '▝ THEN 8 THEN 8 THEN 8_ THEN '_STR$ MOVE FOR READ OR RESTORE STEP /BIN STEP TO LLIST STEP 3<> STEP 3<> MOVE FOR STR$ <>B N M SymSpcH J K L EntY U I O P 6 7 8 9 0 5 4 3 2 1 T R E W Q G F D S A V C X Z Cap## GO SUB K ERASE STEP GO SUB C ERASE STEP xLEN >=v<> OR OR A STEP DEF FN STEP CONTINUE STEP STR$ POKE STR$ LIST <> RESTORE MERGE STEP PLOT STEP MOVE LLIST FORMAT Fwx<> FOR ATN +[O]USR RANDOMIZE <>! SAVE <>xPEEK ( IF RESTORE ! SAVE <>=PEEK ( IF MOVE <> STEP DEF FN ! AND SQR FOR MERGE RESTORE STEP PLOT STEP LLIST MOVE FORMAT RESTORE FOR GO SUB VAL STEP ▗ OR MOVE ! PRINT BIN GO SUB VAL NOT CLOSE # STEP LIST CAT [P] CAT AND / GO SUB ~ DRAW GO SUB COPY COPY GO SUB A GO SUB GO SUB @▝ GO SUB GO SUB @A GO SUB ? COPY GO SUB E COPY RUN COPY [P] COPY x= ? RETURN © NEXT COPY USR %PH%? COPY [Q] %PH%[Q] [U]%?[H] RETURN _ COPY x=IN RETURN COPY CLS COPY R% [A]@ COPY DRAW +% [H] RETURN A LIST © DRAW LPRINT COPY CLS COPY TAB [E]STR$ @▘ ` MERGE ` MERGE QA@ LPRINT ▘ FN [Q] GO SUB [Q][H]SCREEN$ ▝P_ GO SUB VAL ▘[Q][P]▛ MERGE @ PRINT _PjVAL h5 OUT PRINT ` FORMAT h5ySCREEN$ VAL PX-SCREEN$ SCREEN$ ▘[Q]VAL X@ABS PRINT LIST MERGE W` FORMAT h@| COPY LPRINT STR$ LIST x< COPY COPY LPRINT LIST x COPY GO SUB RETURN [Q]U GO SUB GO SUB COPY GO SUB USR GO SUB COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY READ COPY COPY <> COPY COPY READ COPY RANDOMIZE ? PAUSE [S]O"@ LIST RESTORE $PI$[Q]<> READ <<=<USR BORDER EXP CAT EXP USR LINE [F] BEEP [F] FORMAT LLIST ABS ABS CLS ERASE [P] ERASE RANDOMIZE CLS ? CLS CLS [C]IN [C] DRAW INK ? INK RANDOMIZE LOAD LOAD IF VERIFY _ VERIFY @ SAVE RUN ? RUN CLEAR RETURN [P] RETURN RETURN CLEAR ? DRAW RETURN INPUT COPY INPUT COPY COPY COPY COPY COPY COPY COPY COPY RETURN w©w RETURN PEEK ?PEEK SAVE *O*@ BORDER 4740 REM [I]k[I]h MERGE UT FLASH ASN TAN IN ] STEP ?] TO PI[M]RND'[M][U]<=CODE STR$ CODE USR DIM [A] DIM [A][S]vCHR$ "vCHR$ AND CLEAR CLEAR OR NEW PI NEW [Q] DIM }[D]}[A] READ ~NOT ~USR BORDER SQR <=SQR USR REM PRINT BEEP PRINT FORMAT LLIST COPY COPY NEXT PLOT [P] PLOT RANDOMIZE COPY ? COPY CLS PLOT [P] PLOT DRAW CLEAR ? CLEAR RANDOMIZE COPY COPY IF RETURN O RETURN @ SAVE COPY COPY CLEAR INPUT [P] INPUT RETURN DRAW ? DRAW RETURN INPUT COPY INPUT COPY STR$ COPY DRAW ? LET >[P]> BORDER ~ LOAD ~ LPRINT LOAD ~w~p CAT jwjp PAPER NEXT ; NEXT 8[O] CLS i CLS hTAN COPY ]4 COPY /INT COPY 5: COPY 4ABS COPY M= COPY LEXP INT -9INT ,<TAB |<TAB |hPOINT hPOINT p$&p$&SSb[E]b[E])=[I]!=[I]~▖~▖KSQR CHR$ CSQR CHR$ PRINT [A] PRINT [A] LLIST COPY COPY DIM PLOT INT PLOT ▘ LLIST COPY COPY CLS RUN _ RUN @ DRAW COPY COPY CLEAR CLS © CLS DRAW ACS COPY ACS CLEAR J COPY J RETURN COPY COPY C COPY @ COPY COPY COPY COPY COPY COPY LET COPY LET OR [P] REM [A]CODE BRIGHT *[D]* MERGE w-w,INT ^:^SCREEN$ ©&*©&TAN COPY 4 COPY SGN COPY 6< COPY 6u COPY [M]u COPY [M]8INT .8INT .x GO SUB x GO SUB hSQR [G]hSQR [G]1 COPY [O]1 COPY [O]QkQk©/©/qlqlSLSLu@Nq@NU NEXT [C]Q NEXT ▘V BEEP vP BEEP % COPY TAN ! COPY ▗n INVERSE :` INVERSE OVz@V^▖ IF @▖_# IF @ CAT SAVE COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY /? RETURN IN AND [F]IN [F] VERIFY ▟?▟▚@[T]@VAL$ ▖ATTR ▖▖/A% AfLEN `7T.0Ti▘[H]Z,Z'TAB r -W ERASE tP7 LINE PLOT 0GACS IF @6[H] LINE IF PI DATA POKE MOVE IF O RESTORE RANDOMIZE @/ DIM PRINT O NEXT PAUSE @CODE COPY POKE CODE COPY IF O COPY IF @_ COPY IF @ COPY SAVE COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY Z COPY B COPY FN COPY COPY [C] RANDOMIZE [P]POINT IF (_ CLEAR @/ OPEN # RANDOMIZE _ OR IF @[P] DIM PRINT CODE READ LET THEN PRINT CODE BEEP LET FOR PRINT CODE READ LET CODE COPY PRINT COPY COPY ww INPUT INPUT COPY COPY NOT =< REM REM USR USR REM REM =<NOT NOT SGN <WWWWSGN <NOT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY STR$ COPY COPY PEEK COPY > COPY ©©© RETURN COPY IN COPY RETURN COPY IN COPY RETURN COPY IN COPY RETURN COPY IN COPY COPY ©©© COPY PEEK COPY > COPY STR$ COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ▝ COPY RETURN ~©~ CLEAR COPY IN COPY CLS COPY OUT COPY USR RUN COPY LOAD COPY LPRINT RUN COPY LOAD COPY LPRINT LOAD COPY RUN COPY LIST LOAD COPY RUN COPY LIST LOAD LOAD RUN LOAD LIST LOAD LOAD RUN LOAD LIST LOAD COPY RUN COPY LIST LOAD COPY RUN COPY LIST RUN COPY LOAD COPY LPRINT RUN COPY LOAD COPY LPRINT CLS COPY OUT COPY USR CLEAR COPY IN COPY RETURN ~©~ COPY ▝ COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ▝ COPY RETURN ~©~ RANDOMIZE COPY [P] COPY RUN COPY LOAD COPY LPRINT LOAD COPY RUN COPY LIST OUT COPY CLS COPY SAVE OUT LOAD CLS LOAD SAVE IN LOAD CLEAR ? LOAD DRAW IN LOAD CLEAR ? LOAD DRAW © LOAD RETURN © LOAD RETURN © LOAD RETURN © LOAD RETURN ©<= RETURN ©<= RETURN © RETURN © RETURN ©<= RETURN ©<= RETURN © LOAD RETURN © LOAD RETURN © LOAD RETURN © LOAD RETURN IN LOAD CLEAR ? LOAD DRAW IN LOAD CLEAR ? LOAD DRAW OUT LOAD CLS LOAD SAVE OUT COPY CLS COPY SAVE LOAD COPY RUN COPY LIST RUN COPY LOAD COPY LPRINT RANDOMIZE COPY [P] COPY RETURN ~©~ COPY ▝ COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ▝ COPY RETURN ~©~ RANDOMIZE COPY [P] COPY RUN LOAD LOAD LOAD LPRINT LOAD LOAD RUN LOAD LIST OUT LOAD CLS LOAD SAVE OUT LOAD CLS LOAD SAVE IN LOAD CLEAR ? LOAD DRAW IN LOAD CLEAR ? LOAD DRAW ©[D] RETURN ©[D] RETURN © RETURN © RETURN © RETURN © RETURN x AND >x AND >© RETURN © RETURN © RETURN © RETURN ©[D] RETURN ©[D] RETURN IN LOAD CLEAR ? LOAD DRAW IN LOAD CLEAR ? LOAD DRAW OUT LOAD CLS LOAD SAVE OUT LOAD CLS LOAD SAVE LOAD LOAD RUN LOAD LIST RUN LOAD LOAD LOAD LPRINT RANDOMIZE COPY [P] COPY RETURN ~©~ COPY ▝ COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LOAD COPY COPY BEEP COPY COPY BEEP COPY COPY [B] COPY RETURN n©n RANDOMIZE LOAD [P] LOAD RUN LOAD LOAD LOAD LPRINT LOAD LOAD RUN LOAD LIST OUT OPEN # CLS OPEN # SAVE OUT CLS SAVE PEEK MERGE }>|ABS VABS <<|<=PEEK |>y RETURN [O]xx~xG~ STOP G STOP x~xy COPY ^x}~PEEK |>SGN FABS <<PEEK [F]}>| OUT CLS SAVE OUT OPEN # CLS OPEN # SAVE LOAD LOAD RUN LOAD LIST RUN LOAD LOAD LOAD LPRINT RANDOMIZE LOAD [P] LOAD RETURN n©n COPY [B] COPY COPY BEEP COPY COPY BEEP COPY COPY LOAD COPY COPY COPY COPY COPY LOAD COPY COPY BEEP COPY COPY BEEP COPY COPY [B] COPY RETURN n©n RANDOMIZE LOAD [P] LOAD RUN [B] LOAD [B] LPRINT INPUT w;8 PAPER BEEP [COS <=TAB 0ASN COPY STEP 0k COPY VERIFY `e COPY NEW ``~`~XX`~`e COPY INKEY$`k COPY VERIFY `SIN COPY TAB 0ASN <= STEP 0 CIRCLE BEEP [ INVERSE ESQR 8 INPUT w LOAD [B] LPRINT RANDOMIZE LOAD [P] LOAD RETURN n©n COPY [B] COPY COPY BEEP COPY COPY BEEP COPY COPY LOAD COPY COPY COPY COPY DRAW p© CLS CODE IN CLS _@ CLEAR + LOAD + LPRINT CLEAR nn CLEAR VV CLEAR o LOAD o LPRINT CLEAR Y LOAD Y LPRINT CLEAR vv NEXT OUT USR GO TO )?( DIM ASN COPY TAN BORDER OVER © OVER LOAD CLOSE #IN CLOSE # LOAD * OUT *USR BRIGHT BRIGHT IN VIN VSTR$ COPY RETURN COPY RETURN INVERSE LPRINT LPRINT [K]T FLASH T CIRCLE D)ATN D)VAL { CAT {USR SAVE ? SAVE CLS RETURN COPY RETURN RANDOMIZE COPY IN COPY POKE ?▝?▚ffY| CLEAR Y DRAW . RETURN CLS . SAVE Y COPY wXpw COPY op`SQR COPY [P]8 COPY COPY COPY DRAW p© CLS CODE IN CLS _@ CLEAR + LOAD + LPRINT CLEAR nn CLEAR VV CLEAR o LOAD o LPRINT CLEAR Y LOAD Y LPRINT CLEAR vv NEXT OUT USR GO TO )?( LLIST ASN COPY TAN CAT OVER © OVER OUT CLOSE #IN CLOSE # BRIGHT BRIGHT IN VIN VSTR$ COPY RETURN COPY RETURN INVERSE LPRINT LPRINT [K]FN FLASH FN CIRCLE DUATN DUVAL x) CAT x)USR ? CLEAR DRAW COPY DRAW CLEAR COPY © COPY PAUSE COPY IN COPY GO SUB IN VERIFY VAL ?VAL CIRCLE PIIN PI<=[P] COPY LOAD LOAD LPRINT COPY LOAD RUN LIST DRAW p© CLS CODE IN CLS _@ CLEAR + LOAD + LPRINT CLEAR nn CLEAR VV CLEAR o LOAD o LPRINT CLEAR Y LOAD Y LPRINT CLEAR vv NEXT OUT USR GO TO )?( DIM ASN COPY TAN BORDER OVER © OVER LOAD CLOSE #IN CLOSE # LOAD * OUT *USR BRIGHT BRIGHT IN VIN VSTR$ COPY RETURN COPY RETURN INVERSE LPRINT LPRINT [K]T FLASH T CIRCLE D)ATN D)VAL y CAT yUSR DRAW ? DRAW CLEAR CLS © CLS CLEAR PRINT IN PRINT [T] REM [J] REM K MOVE fKSTR$ f}> INK } CIRCLE | RETURN SQR |LN { COPY WxPw COPY op`SQR COPY [P]8 COPY COPY COPY DRAW p© CLS CODE IN CLS _@ CLEAR + LOAD + LPRINT CLEAR nn CLEAR VV CLEAR o LOAD o LPRINT CLEAR Y LOAD Y LPRINT CLEAR vv NEXT OUT USR GO TO )( LLIST ASN COPY TAN LOAD OVER © OVER OUT CLOSE #[P] CLOSE # BRIGHT BRIGHT IN VIN VSTR$ COPY RETURN COPY RETURN INVERSE LPRINT LPRINT [K]FN FLASH FN CIRCLE DUATN DUVAL x) CAT x)USR CLEAR DRAW COPY DRAW SAVE CLEAR © CLEAR BORDER y©y OUT {©{IN VAL ??VAL LEN ▘[P]1▘ DEF FN u? COPY REM OUT USR COPY LOAD LOAD LPRINT RETURN CLEAR PRINT OUT LET USR IF FN OUT FN USR RUN CLOSE #IN CLOSE # LIST vIN v LIST jIN j RUN PLOT IN PLOT RUN [K]IN [K] LIST nIN n CLS 0 CAT 0USR DRAW [E]70 COPY TAB [H]-[A] RETURN { BORDER { LPRINT CLEAR + RUN + LIST CLS T RUN T LIST ;8j CLEAR ;j CLEAR 8© COPY © COPY SQR LN FLASH *Y*X GO SUB [E]"[E]" NEXT OVER OVER DRAW STR$ USR COPY © OUT ©USR CLEAR COPY [P] COPY ▝ DRAW / DRAW fSTR$ afSTR$ `IN >[K]?[K] OUT ©tt INPUT COPY [K] INPUT COPY COPY COPY RETURN CLEAR PRINT OUT LET USR IF FN OUT FN USR RUN CLOSE #IN CLOSE # LIST vIN v LIST jIN j RUN PLOT IN PLOT RUN [K]IN [K] LIST nIN n CLS 0 CAT 0USR DRAW [E]70 COPY TAB ▜- RETURN { NEXT { LIST CLEAR + CLS + SAVE ;8j CLEAR ;j CLEAR 8© COPY © COPY SQR LN FLASH YX GO SUB SCREEN$ "SCREEN$ " NEXT [E][E] DRAW STR$ USR COPY ?IN ? RETURN COPY IN COPY CLEAR COPY O COPY @ CLEAR LIST ATN LIST VAL DRAW kh CLEAR RESTORE RESTORE RANDOMIZE LPRINT READ LPRINT RUN RUN COPY LIST LOAD RUN COPY LIST RETURN CLEAR PRINT OUT LET USR IF FN OUT FN USR RUN CLOSE #IN CLOSE # LIST vIN v LIST jIN j RUN PLOT IN PLOT RUN [K]IN [K] LIST nIN n CLS 0 CAT 0USR DRAW [E]70 COPY TAB [H]-[A] RETURN { BORDER { LPRINT CLEAR + RUN + LIST CLS T RUN T LIST ;8j CLEAR ;j CLEAR 8© COPY © COPY SQR LN FLASH *Y*X GO SUB [E]"[E]" NEXT [O][O] DRAW ?[R]? RETURN OUT IN OUT CLEAR CODE IN CODE [J]W OR WUSR f▛ ERASE f ERASE [L]|PEEK PEEK INVERSE ©>> REM COPY OVER PLOT COPY INPUT COPY COPY COPY RETURN CLEAR PRINT OUT LET USR IF FN OUT FN USR RUN CLOSE #IN CLOSE # LIST vIN v LIST jIN j RUN PLOT IN PLOT RUN [K]IN [K] LIST nIN n CLS 0 CAT 0USR SAVE [E]70 COPY TAB ▜- RETURN { RUN { LIST RANDOMIZE + CLS + SAVE ;8j CLEAR ;j CLEAR 8© COPY © COPY SQR LN FLASH YX GO SUB SCREEN$ "SCREEN$ " NEXT [E][E] SAVE STR$ USR COPY ?IN ? RETURN IN IN RETURN [O] BORDER [O] LPRINT RETURN OVER CLS OVER SAVE DRAW CLEAR DRAW RANDOMIZE A▟A DRAW VAL$ s[Q] CLS W COPY P RUN RUN COPY LIST COPY COPY COPY COPY COPY COPY COPY ▝ COPY RETURN ~©~ CLEAR ▝IN ▝ IF _ @ POKE / FOR [A][A] MOVE BEEP [Q][Q][S]"CODE h/h GO SUB s COPY Ts COPY Ts COPY REM s COPY REM GO SUB INK PRINT S PRINT P INK RETURN ATTR RETURN FN USR INK PRINT S PRINT P INK RETURN ATTR RETURN FN GO SUB s CLEAR Ts CLEAR Ts COPY SCREEN$ s COPY SCREEN$ COPY COPY COPY COPY COPY COPY COPY ▝ COPY RETURN ~©~ CLEAR ▝IN ▝ IF _ @ POKE / FOR [A][A] MOVE BEEP [Q][Q][S]"CODE h/h[S]"CODE h/h[S]" BEEP MOVE CONTINUE POKE / IF _@ CLEAR ▝IN ▝ RETURN ~©~ COPY ▝ COPY COPY COPY COPY COPY RETURN ? COPY CLEAR OUT USR SAVE CLS / RUN u GO TO TAN ▗ VERIFY Z/B CLOSE #] OUT AUSR FORMAT ^?@ CONTINUE [O]© RUN }IN SAVE CLS _@ COPY IF _@ COPY LLIST IN COPY CIRCLE ? COPY ASN COPY 4 COPY R COPY R COPY B COPY B COPY RND COPY $ RANDOMIZE CIRCLE ? PLOT LLIST IN GO SUB }_@ DIM |[P] PLOT RETURN ? RANDOMIZE COPY COPY COPY COPY COPY COPY COPY SAVE INPUT © INPUT RUN NOT OUT NOT USR INPUT [B]oATN VAL TAN 8[48XFN 8+(8(||[P] COPY LET COPY LIST O COPY RESTORE O COPY DATA S COPY [F]S COPY [E]a COPY a COPY Q COPY Q COPY i COPY -i COPY ,S LOAD [F]S LOAD [E][T]▛#▖ATN FLASH 7 CIRCLE BIN (G(@ LLIST UU RUN LOAD OUT LOAD USR SAVE RETURN ? RETURN COPY COPY COPY COPY COPY © COPY RETURN IN COPY CLEAR USR OUT COPY RANDOMIZE OUT COPY IF OUT COPY RANDOMIZE OUT COPY IF OUT COPY RANDOMIZE OUT COPY IF OUT COPY RANDOMIZE OUT COPY IF OUT COPY RANDOMIZE OUT COPY IF USR SCREEN$ SCREEN$ SCREEN$ UUU© COPY RETURN IN COPY CLEAR USR OUT COPY RANDOMIZE OUT COPY INK $y PAPER H: OUT COPY OUT CAT IF OUT RANDOMIZE OUT IF OUT CAT RANDOMIZE OUT COPY IF USR SCREEN$ SCREEN$ SCREEN$ UUU© COPY RETURN IN COPY CLEAR USR OUT COPY RANDOMIZE FLASH IN IF INK ? RANDOMIZE CIRCLE : BRIGHT IF POINT OUT z BRIGHT xEXP OUT © IF BRIGHT zY OUT COPY IF USR SCREEN$ SCREEN$ SCREEN$ UUU© COPY RETURN IN COPY CLEAR USR OUT COPY RANDOMIZE OUT ▗z OUT POINT OVER aZ OVER STR$ INK OVER ▝ IF OVER RANDOMIZE OUT IF OUT ▜ RANDOMIZE OUT COPY IF USR SCREEN$ SCREEN$ SCREEN$ UUU© COPY RETURN IN COPY CLEAR USR OUT COPY RANDOMIZE OVER [J]z OUT RANDOMIZE OVER [J]z OUT RANDOMIZE CIRCLE [I][K] FORMAT FORMAT MERGE ZPOINT OUT COPY IF USR SCREEN$ SCREEN$ SCREEN$ UUU© COPY RETURN IN COPY CLEAR USR OUT COPY RANDOMIZE OUT COPY IF OUT COPY y OUT COPY : PAPER D PAPER D PAPER D OUT COPY : OUT COPY y OUT COPY IF USR SCREEN$ SCREEN$ SCREEN$ UUU© COPY RETURN IN COPY CLEAR USR OUT COPY RANDOMIZE BRIGHT <: OVER y OUT IF OUT ▝ RANDOMIZE OUT ▝ IF OUT RANDOMIZE OVER z BRIGHT <9 OUT COPY IF USR SCREEN$ SCREEN$ SCREEN$ UUU THEN OPEN # FLASH FLASH THEN OPEN # FLASH FLASH ▝$$FFbbFFbb44ABS < GO SUB ? COPY COPY COPY COPY `/> OUT `/~STR$ OUT `/ySTR$ BRIGHT LPRINT /p READ LN LPRINT /| READ PEEK LPRINT ^0w8p_ OVER ©?~_ OVER >?~_ OVER >?~O OVER ~`? COPY COPY COPY COPY GO SUB COPY COPY DRAW ?~<8 COPY COPY RETURN COPY COPY DRAW GO SUB COPY COPY DRAW >© LOAD 8©▘ COPY ▘ BORDER COPY COPY DRAW GO SUB COPY COPY DRAW ?©▘CHR$ ▘>▘ COPY DRAW COPY COPY DRAW GO SUB COPY COPY DRAW ▘▘;v NEW COPY ▘ COPY ▘ COPY COPY DRAW GO SUB COPY COPY DRAW ?▘?▘p` RETURN COPY RETURN SAVE COPY COPY DRAW GO SUB COPY COPY DRAW 80p` LPRINT RETURN COPY <= RETURN DRAW COPY COPY DRAW GO SUB COPY COPY DRAW COPY COPY <8pp LPRINT COPY COPY DRAW GO SUB COPY COPY DRAW ~ COPY BORDER LOAD ~ DRAW INPUT DEF FN RETURN DRAW COPY COPY DRAW GO SUB COPY COPY DRAW DRAW RETURN ▙[O] DRAW DRAW 80p COPY COPY DRAW GO SUB COPY COPY DRAW p PAUSE LET IF READ INT READ INT NOT 2<=r▚r INPUT STOP BORDER STOP ?NOT CHR$ COPY COPY DRAW RETURN RANDOMIZE COPY INPUT COPY INPUT RUN LIST DIM LIST CONTINUE INPUT ©VINT PLOT IN : PLOT ASN AND _5 AND @r GO SUB _r GO SUB @e GO SUB CODE e GO SUB [Q]kCODE k[Q]e GO TO /e GO TO k GO TO /k GO TO e/e k GO TO /k GO TO e GO TO _e GO TO @j AND _j AND @e PLOT IN e PLOT j PLOT ©j PLOT efefbVAL RUN bVAL LIST ` NEXT ` LIST © COPY GO SUB © COPY GO TO IN COPY OVER ? COPY OVER USR RETURN RANDOMIZE COPY FOR COPY CONTINUE RUN LIST BORDER LIST LPRINT INPUT OUT VUSR INT PLOT /: PLOT ASN AND W5 AND Pr GO TO Wr GO TO Pe GO TO ke GO TO hkkkhe GO TO +e GO TO (k GO TO k GO TO eek GO TO k GO TO e GO TO e GO TO j AND j AND e PLOT /e PLOT j PLOT OUT j PLOT USR efefbVAL RUN bVAL LIST ` RUN ` LIST © COPY BORDER © COPY LPRINT IN COPY FLASH ? COPY CIRCLE USR RETURN RANDOMIZE COPY LOAD COPY LPRINT RUN LIST LOAD LIST LPRINT INPUT RUN V LIST INT PLOT : PLOT ASN AND %5 AND $r GO TO r GO TO e GO TO e GO TO kke GO TO e GO TO k GO TO k GO TO eek GO TO k GO TO e GO TO e GO TO j AND j AND e PLOT e PLOT j PLOT RUN j PLOT LIST efefbVAL RUN bVAL LIST ` RUN ` LIST © COPY LOAD © COPY LPRINT IN COPY OUT ? COPY USR USR ? COPY COPY DRAW COPY ? COPY CLS ▛ OUT ▛USR PLOT LOAD LPRINT GO TO _ RUN _ LIST FORMAT / CLS / SAVE CIRCLE _ CLS _ SAVE [Q]IN CLEAR IN DRAW [R]_ CLEAR !_ DRAW `IN RETURN `IN RETURN P RETURN P RETURN © COPY RETURN © COPY RETURN GO SUB INK COPY CLS COPY SAVE CIRCLE [P] CLS [P] SAVE INK COPY CLS COPY SAVE USR PLOT © LOAD © LPRINT PLOT LOAD LPRINT PLOT © LOAD © LPRINT LIST CLEAR [P]IN [P] CLEAR IN CLEAR [P]IN [P] COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY DRAW COPY ? COPY CLS ▛ OUT ▛USR PLOT LOAD LPRINT GO TO _ RUN _ LIST FORMAT / CLS / SAVE CIRCLE _ CLS _ SAVE [Q]IN CLEAR IN DRAW [R]_ CLEAR !_ DRAW `IN RETURN `IN RETURN P RETURN P RETURN © COPY RETURN © COPY RETURN GO SUB INK COPY CLS COPY SAVE CIRCLE [P] CLS [P] SAVE INK COPY CLS COPY SAVE USR PLOT / LOAD / LPRINT PLOT © LOAD © LPRINT LIST CLEAR [P]IN [P] COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY DRAW COPY ? COPY CLS ▛ OUT ▛USR PLOT LOAD LPRINT GO TO _ RUN _ LIST FORMAT / CLS / SAVE CIRCLE _ CLS _ SAVE [Q]IN CLEAR IN DRAW [R]_ CLEAR !_ DRAW `IN RETURN `IN RETURN P RETURN P RETURN © COPY RETURN © COPY RETURN GO SUB INK COPY CLS COPY SAVE USR PLOT © LOAD © LPRINT LIST CLEAR [P]IN [P] RANDOMIZE BORDER [P] PLOT FLASH o` FOR 4 BEEP 4 FORMAT LOAD Z RUN Z LIST PLOT OPEN #o OPEN #` PLOT FLASH o FLASH ` PLOT fof` GO SUB [N]ATN 0 GO SUB .ATN .0 GO SUB _7_0 GO SUB W7W0 PAPER ▛[L]▛[I] PAPER [H][L][H][I] PAPER [L][I] FLASH C[C FLASH PEEK FLASH >ATN STR$ GO SUB 0ATN THEN GO SUB 0ATN OPEN # GO SUB 0ATN THEN GO SUB 0ATN NOT GO SUB 0▜ FLASH LET wABS INPUT p< RANDOMIZE BORDER [P] PLOT FLASH o` LOAD < RUN < LIST FOR Z BEEP Z FORMAT PLOT OPEN #o OPEN #` PLOT FLASH o FLASH ` PLOT fof` PLOT [N]o` PLOT VAL$ o.` PLOT _o_` PLOT WoW` PLOT ▛o▛` PLOT [H]o[H]` PLOT o` PLOT CoC` PLOT PEEK o>` PLOT STR$ o` PLOT FLASH o` PLOT FLASH o` PLOT FLASH o` PLOT FLASH o` SAVE NOT PLOT ABS o<` RUN ~ LOAD ~ LPRINT RANDOMIZE BORDER [P] PLOT FLASH o` LOAD < RUN < LIST GO SUB ZATN ZVAL PLOT OPEN #o OPEN #` PLOT FLASH o FLASH ` PLOT fof` PLOT o` CLS . OUT .USR CLS ^ OUT ^USR CLS OUT USR CLS OUT USR CLS OUT USR CLEAR ▞IN ▞ CLEAR ▝IN ▝ CLEAR ABS IN ABS CLEAR ▝IN ▝ CLEAR ▞IN ▞ RETURN FLASH © FLASH RETURN FLASH © FLASH RETURN FLASH © FLASH COPY COPY RETURN FLASH © FLASH RETURN BORDER © BORDER COPY COPY COPY ▚ay BORDER [O]y BORDER [O]A$[C]A$[C]y$[C]y$[C]INKEY$[K]INKEY$[K]y BORDER [O]y BORDER [O]▚a COPY COPY COPY NEW a[J] BORDER [O] BORDER [O]EXP $[C]9$[C] INK $[C]$[C] INK INKEY$[K]INKEY$[K] INK BORDER [O] BORDER [O] NEW a DRAW ! RETURN C COPY O COPY O COPY _ COPY _ RETURN _ CLEAR © RETURN _ CLEAR © IF © CLEAR © IF © PRINT ? REM T DRAW ! RETURN C COPY O COPY O COPY ^ COPY / RETURN XpX| IF ~ CLEAR © IF © PRINT ? REM T DRAW ! RETURN C©O©N?]_[nP{n]]~:©}©z©u? REM T GO SUB SGN SGN GO SUB GO SUB GO SUB COPY COPY 8 SAVE LIST GO SUB LIST SAVE 8== GO SUB "Y GO SUB " GO SUB GO SUB ▞ GO SUB B"I b GO SUB A[B]* GO SUB A GO SUB *I"$"'"","#"##")▞#"'%,)$% GO SUB $%$'"""""" GO SUB ""%,)$"'"% GO SUB )$'%$ GO SUB "+**"ALEN +**"A"+" GO SUB "'"%$$"((("""""'""""""((("%%'$""%&$&%AEXP '$%$-'"""+*"b+%+**+'+$+*"[J]'"'%$"(("'"((%$)"[B]"""""""""""$"'""<"=%< GO SUB =3./1.///1"1.//1,<1=151▞0-4-11'.2)3<2=.3 GO SUB 131>11*<11=)11J11)11JLEN 11'>11*21<1<=1"=250-4-3 GO SUB 1<1=>1>>1*▖>1'1.1<./1'=1 GO SUB 1Y<2= GO SUB <3=2 GO SUB 53"0-4-1 GO SUB 1510-4-1 GO SUB 2)3HPOINT 1(<1=>1(>>1(FN >1(1'1(2<=$<"=""%"$"'"%,31(1<,E1='11(<2='$$"???""@@@"""""BE""B""E""B""E""A""E""B""BE"▞"""???""@@@"%%4' GO SUB 89999789789F7F7,7bF,FF7:;7FFF8F78977E7F77ELEN 7:;F7EF7F7FF7F::;;7F6':6 GO SUB 6"????6@@@@6 GO SUB 6A#6##6)B#6 GO SUB 699996B86BEF6EPOINT B:6 GO SUB 6AE6 GO SUB 6????6"@@@@6 GO SUB 6$"??'"@@"""''""▞"'"'""'"""??"@@%"<=<'=,JJJLMBBHMIOKBKCDK)CDKALEN CDKBKBLKBCDMCDMGOK GO SUB KJJJJK GO SUB KG6K66K)G66K)▞66K)G6K GO SUB KBLKBPNKOKJHJJKLIJJKMKMPKJM)KDMKJBM)PKDMKJOLJJJ@4M@NJJLAJMMA"NJJOAM@NJLJDMMDMMDq'MNJDMMDJMMDMO6FOJJ6A▘<6=.//6./6<6'=.6 GO SUB 6<>>6)=>6>6>>>6SCREEN$ POINT >>6)<>>6)='>>6)>.//>>>>'.>>)>HPOINT GO SUB <)=.'"'$"'"",<8"=7":"9999"8"<897"E=7:"E7'%A73Hi:;1?H'1@23 '1?? 1@@ 2 '31???1@@@@▘2@'QQ,EQQQRCDERQQQE,Q[B]QQRCDERQQQGEQQQRGR"QSQQSSQ)QSSSQSCREEN$ RSSR)QGQQ89QQ,7QIF'99F':;; GO SUB 31???▘1@@@<2=341?<1@'=23 ▞1?? 1@@ 2 <3'=1./1.11)1'<1=)1 GO SUB 1)2▞' CLS COPY COPY NEXT INVERSE ! RETURN !p"0 IF STEP 2 IF INVERSE !a RETURN INVERSE !STR$ RETURN STEP 2 IF INVERSE !SIN u STEP 2 IF STEP [G] IF CLS <> NEXT ![E]"0 IF INVERSE !<= RETURN STEP 2 IF INVERSE !v STEP [G] IF CLS <> GO SUB CODE 2- IF >2/ IF OR INVERSE RESTORE OR INVERSE f INVERSE n INVERSE V GO SUB K0 IF :- IF PI LINE s IF :. IF =2. IF CHR$ s IF >2. IF :/ IF =2/ IF CHR$ s IF 2- IF <2/ IF STEP [U] IF CODE FLASH RETURN / NEW CHR$ [A] IF INVERSE # INVERSE # INVERSE #STR$ ACS INVERSE LLIST STR$ CHR$ ; IF <> LLIST LLIST LLIST LLIST CLS <>>2- IF 2. IF >2/ IF <> OR :/ IF O% CODE OPEN # RETURN A RETURN > OPEN # RETURN [B]G RETURN INVERSE f- CODE OPEN # RETURN A RETURN > OPEN # RETURN [B]G RETURN INVERSE n CODE OPEN # RETURN A RETURN > OPEN # RETURN [B]G RETURN INVERSE VSTR$ xLEN CHR$ [U] IF <> NEXT PRINT : GO SUB IF PI LINE W DRAW OR MERGE RESTORE : INPUT IF PI(![C] DRAW =O THEN ' THEN '▝O^#V#N#F#~ OR = LINE [ DRAW NOT } DRAW [E]&lT/ GO SUB VAL @&.}] COPY } AND o_ GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] OR $ THEN Z LINE . CLS . CLEAR ] COPY } AND o_ GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] OR $ THEN b LINE y CLS . CLEAR ] COPY } AND o_ GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] OR $ THEN Z LINE PEEK CLS ![I]X OR GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] FOR FOR STR$ STR$ LLIST MOVE STR$ CODE 2 GO SUB IF 2 INPUT IF LET CLS GO SUB M OR bkCODE RETURN % INPUT GO SUB yb- PRINT INPUT GO SUB yk INPUT STR$ STOP CODE B CLS OPEN # RETURN ( INPUT NOT ~ DRAW STR$ NOT # CLS OUT 7[D] GO SUB >=>=>=L}?▙ BRIGHT IF dBIN sY▘[B]1[Q][H]CODE P PRINT COPY PRINT FLASH PLOT BEEP TAN STOP AND FN COPY COPY COPY CLS CLS RUN CLS COPY RUN COPY RUN CLS CLS RUN CLS COPY B@ BEEP RETURN CLS RETURN AND L COPY COPY COPY CLS COPY RUN COPY COPY GO SUB COPY COPY COPY CLS CLS COPY COPY RUN COPY COPY COPY COPY CLS COPY FLASH COPY COPY COPY COPY CLS COPY BEEP COPY OUT RUN OUT RUN CLS RETURN COPY [E] FOR AND COPY COPY COPY CLS NEXT RUN NEXT RUN COPY COPY COPY OPEN # PAUSE RUN NEXT COPY GO SUB PLOT PLOT RETURN VERIFY PLOT PLOT PAUSE PLOT F RETURN COPY COPY CLS COPY COPY COPY COPY COPY COPY COPY FLASH CLS COPY COPY COPY COPY COPY COPY RETURN NEXT COPY OPEN # RUN COPY COPY COPY FLASH PLOT RUN PLOT OUT RUN COPY RETURN FLASH VERIFY COPY TAN STOP CHR$ b<=b<=mnlb<=b<=mnlb<=mnlINKEY$[C]nINKEY$[C]ntusINKEY$[C]nINKEY$[C]ntusINKEY$[C]ntus>=[F]u>=[F]u▘▗>=[F]u>=[F]u▘▗>=[F]u▘▗ LLIST PI[E] LLIST PI[E]PQO LLIST PI[E] LLIST PI[E]▘▗ LLIST PI[E]FGE>=<><=>=<><= LPRINT b>=<><=>=<><=m`@>=<><= LPRINT b LLIST STOP LPRINT LLIST STOP LPRINT CLS [E]n LLIST STOP LPRINT LLIST STOP LPRINT zmH LLIST LPRINT STOP CLS [E]n[E][F][D]PIFN INKEY$[C]=[D]PEEK >?[O]>?z`Q©O5PIFN INKEY$[E][F][D]PIFN INKEY$[C]=[D]PEEK >?[O]>?z`QINKEY$mRINKEY$mR>==`aa>=<><=▗>=mn OVER `aNOT HGPEEK PQ BEEP ?>▙RQ[A]HG[Q]mnCODE baVAL$ [E][F]PI NEXT RUN RUN RUN BEEP RUN RUN POKE CLS PLOT RUN [E] STOP CHR$ BBB>>BB<DHpHDB@ GO SUB ~BfZBBBBbRJFB<BBBB<|BB|@@<BBRJ<|BB|DB<@<B< RETURN GO SUB B GO SUB <""%&$&%AEXP '$%$-'"""+*"b+%+**+'+$+* COPY COPY !< DRAW ~ RETURN &( GO SUB FN +F+~+ DRAW | RETURN PAUSE DIM } RETURN a DATA NOT b PAUSE ! AND / PAUSE v> CLS STEP P PRINT NEXT !@@ COPY u GO SUB VAL CODE 2H/2=/ STEP CLS NEXT > RUN FLASH RETURN THEN G(> RUN FLASH RETURN THEN O(> RUN FLASH RETURN THEN W(> RUN FLASH RETURN THEN _( OVER CODE 2H]>2H]> 2H]>02H] CLS STEP $ POKE NEXT !@@ COPY u GO SUB VAL ! CIRCLE PAUSE @ COPY GO SUB VAL NOT @1 LIST U!c PLOT PFTAN GO SUB VAL STEP ▘_1:H] RETURN 8":H] RETURN 8:H] RETURN %8CODE 2[B]TAB CODE 2 LET SGN 2 PAUSE SGN CODE 2[B]TAB NEXT !PF[TAN GO SUB VAL NOT IN ATN & !X MERGE RESTORE OR OR RESTORE ~ NEW 8( VERIFY _~ NEW (=WzCOS w, CONTINUE LLIST STR$ INVERSE ! NSTR$ LLIST MOVE DEF FN <> COPY COPY 8 CLEAR LET DIM & SAVE v{ RETURN > RUN <> MERGE PRINT MERGE >x VERIFY RETURN 8 RUN MOVE z RETURN GO TO LET MOVE BRIGHT { RETURN 0z RETURN 0!X THEN : THEN THEN : THEN THEN : THEN Ww STEP LINE &&~▝`[A] (J POKE INT A/ IF [ COPY / COPY _ COPY / COPY [ COPY / CLS _ PRINT CODE CLS W VERIFY @TAB REM T *AT X0▝USR ~BBB COPY COPY COPY OR DRAW CAT COPY CLEAR OUT COPY CLEAR OUT COPY CLS kFN ? COPY DRAW 3&ED COPY COPY COPY OR DRAW CAT COPY CLEAR OUT COPY CLEAR OUT COPY CLS kFN ? COPY DRAW REM FN COPY H COPY CONTINUE REM FN COPY >= COPY H? COPY DRAW © RETURN INKEY$? COPY DRAW =w GO TO w CONTINUE w CONTINUE EDw CONTINUE w CONTINUE =g GO TO ? COPY DRAW © RETURN INKEY$? COPY DRAW REM FN COPY H COPY CONTINUE REM FN COPY >= COPY H? COPY DRAW © RETURN INKEY$? COPY DRAW =w GO TO w CONTINUE w CONTINUE DD COPY <= COPY INPUT COPY l COPY pl LPRINT kmmgl LOAD kmagl LOAD kmlWl LOAD VAL$ m`Yl COPY 7m©Wl BORDER 7mCXlNOT ?mgSCREEN$ l COPY USR m|©lLN ©mXSCREEN$ lAT INPUT COPY <= COPY EEE`[E]^ZEXP qu NEXT FOR RESTORE BEEP FOR BEEP [P] CAT / BEEP CODE /[P]U+?©IN ABIN h FLASH INVERSE +m FLASH r TO STEP STR$ = STOP u STEP AND CONTINUE FLASH DDF LIST LPRINT ) CIRCLE Zz▙[N] CAT VAL$ PI BEEP @ BEEP FOR [Q] FOR LET ` NEXT RANDOMIZE [Q] FOR POKE P PRINT SAVE FN RANDOMIZE POKE CIRCLE CLOSE #SCREEN$ FN CLEAR RETURN DRAW #▘[Q] FLASH LIST 0SQR FLASH ACS CLOSE #COS 3NLN SGN COS VAL$ G FLASH cDDF&@[F]UR OUT COPY CLS LINE SCREEN$ ATTR ~ COPY BORDER ▝USR LPRINT 88pGGG&5R_ CLS 2ATTR l©7qUSR ` LPRINT 0p`8ppp SAVE GGG&@[F]V OUT COPY LINE CODE w RUN READ ▜8p LPRINT USR GGG&@USR 0 MOVE BIN PEEK FOR ewW COPY CODE ABS BEEP FLASH INPUT o POKE IN [P] IF UoIN "w© INK RETURN TAB LOAD VERIFY RUN AT NOT CIRCLE pF&5 RUN : LOAD 9^USR ABS `xVAL | CIRCLE to LPRINT a RUN DRAW NOT CLS COPY ; COPY <] RUN sABS [H]e CLEAR INKEY$c CLEAR PEEK © CLEAR LOAD `= OPEN # BORDER INVERSE [E] LLIST ] COPY CLS ? CLS / MOVE LIST ^] LOAD 6FFFCODE [Q]?`©`© LPRINT OUT _/ OUT LPRINT RETURN OUT LIST COPY OUT SAVE LLIST 8[Q]~[M]< DATA U COPY CONTINUE >sABS ▙ATN [ NEW ;pCOS PAPER : COPY READ /©VAL$ AT GO TO FOR COPY FORMAT RUN CLS LN COPY VERIFY LIST FFF+&GIN RETURN USR COPY ` OUT VAL LOAD CIRCLE PRINT w CLS GFF*& SAVE ; CIRCLE y CIRCLE RUN VAL RESTORE VAL OUT & NEXT STEP [C];; LLIST 1 RESTORE INK MOVE INK !@ INK x RETURN RETURN [K] OGy INK w#xLEN DATA CLS <>[K]▝©USR DRAW ~ DRAW ~ DRAW ?~ DRAW [K]USR ?~ DRAW ~ DRAW ~ DRAW ~ DRAW ~??~ DRAW [K]~ DRAW ~?[K][K][T]~ LPRINT COPY ~? LPRINT © COPY DRAW ~ LPRINT [K] COPY LPRINT © COPY DRAW COPY LPRINT ~? LPRINT ©USR DRAW ~ DRAW ~ DRAW ?~ DRAW [K]USR ?~ DRAW ~ DRAW ~ DRAW ©<= DRAW ~ LPRINT COPY ~ DRAW [K]~ DRAW COPY ©USR DRAW ~ LPRINT [K][K][S]~ LPRINT COPY ~? LPRINT © COPY DRAW ~ LPRINT [K] COPY LPRINT © COPY DRAW COPY LPRINT ~? LPRINT ~8 DRAW ~ DRAW ©<= LPRINT ?© COPY DRAW [K] COPY LPRINT ?© COPY DRAW ©<= LPRINT USR DRAW COPY LPRINT ~ DRAW SAVE USR DRAW [K] COPY LPRINT SAVE USR DRAW ~ DRAW [K][K][S]©USR DRAW <= LPRINT ©USR DRAW q COPY ~ DRAW [K]USR DRAW q COPY USR DRAW ©USR DRAW ~ DRAW ~ DRAW ~??~ DRAW [K]~ DRAW ~?[K]USR DRAW COPY LPRINT ~ DRAW SAVE USR DRAW [K] COPY LPRINT SAVE USR DRAW ~ DRAW [K][K]i[K]USR 0 DEF FN RETURN AND USR 00 DRAW USR [K]P PAPER AND DRAW AND RETURN USR DEF FN RETURN AND USR [K]Bb@b[C]@@B@@[K]o DEF FN [K] AND 0[K] AND 00USR AND [K]O DEF FN DEF FN TO [K] AND [K] AND [K]R SAVE Rx@Fx<[K]<B<<<@x>~|[K]S|[K] RETURN |0| AND AND RETURN 00USR RETURN 0[K]O|0 AND |[K] AND RETURN | AND AND RETURN [K]| PAPER USR PAPER 0USR USR AND USR [K]BbB@B@D@B[K] OPEN #USR DEF FN USR DEF FN 0 AND AND l AND DEF FN [K]RF<F@FxF[K]<@@<B~< RETURN [K]4[K]SCREEN$ [K]o DRAW 0| AND USR | AND |0 RETURN RETURN |8 RETURN |[K] PAPER AND AND USR AND USR DRAW [K]B@@BB@B[C][K]<~@~< RETURN <<B~ RETURN ▘|~[K][K]UT[K]/B<|B<@<<B~[K]R DEF FN DEF FN DEF FN DEF FN DEF FN AND TO AND TO [K](F@@@~xF[K][K]@B[C]BBf@[C]DB@[K]O(bBBfB@BBf@[K]R|0 AND ||| RETURN SAVE | RETURN AND [K]>= RETURN USR USR USR AND USR RETURN 0[K]<x@x@@FZx(Fx0[K]ORFFZF@@FZx[K]<>B~>B> RETURN ~@>B~<[K]O DRAW [K] AND [K] AND 0[K]0 AND RETURN RETURN | AND RETURN AND 0[K] TO ▝HHL@HHH@STR$ HA[K] LPRINT STR$ ▙ CAT <=▝ LINE @>=USR THEN ASTR$ [K] LLIST NOT FLASH CIRCLE NOT FLASH @ AND CIRCLE CIRCLE USR CIRCLE NOT [K] LLIST INK [I] INK [J]NOT INK USR AND [J] CIRCLE NOT [J] STEP [I]NOT [K] LLIST [I]USR CIRCLE CAT [I]USR ▚ CAT [P] CAT [I] CAT ▜ CAT ▚ CAT ▚[K][K][K]STR$ <=▖O CAT ▜▜<=▖@[A]@▖H>=▜▖@G OUT CAT ▜ FORMAT @[K] [K]F B[K]FB[K]F[K]B[K]F[K]BB[K]F[K]BFB[K]FB[K]Ff[K]C[K]DCC[K]F[K]FC[K]F_C[K]FC[K]FLN [K]C@B&<USR DRAW COPY LPRINT ~ DRAW SAVE USR DRAW [K] COPY LPRINT SAVE USR DRAW ~ DRAW [K][K][S]©USR DRAW <= LPRINT ©USR DRAW q COPY ~ DRAW [K]USR DRAW q COPY USR DRAW ©USR DRAW ~ DRAW ~ DRAW ~??~ DRAW [K]~ DRAW ~?[K]USR DRAW COPY LPRINT ~ DRAW SAVE USR DRAW [K] COPY LPRINT SAVE USR DRAW ~ DRAW [K][K]i[K]USR 0 DEF FN RETURN AND USR 00 DRAW USR [K]P PAPER AND DRAW AND RETURN USR DEF FN RETURN AND USR [K]Bb@b[C]@@B@@[K]o DEF FN [K] AND 0[K] AND 00USR AND [K]O DEF FN DEF FN TO [K] AND [K] AND [K]R SAVE Rx@Fx<[K]
