| Es parte de la publicación: | Avalon |
| Tamaño del archivo: | 60160 |
| md5: | d9bb78b33846ed8d91722301772cf2bc |
1 REM DISKED BY ARTEM
2 REM STEP z] GO SUB [ POKE // STEP =!USR GO SUB [ POKE / STEP =NOT 0u! LET <>"CHR$ /!0u<>
5 CLEAR 24999
10 PAPER 0: BORDER 0: INK 0: CLS
11 RANDOMIZE USR 23901
20 RANDOMIZE USR 0
0 STEP x1[A]e>t GO SUB G GO SUB ^! CLEAR ©> GO SUB y STEP USR !>2w!}"w>2w CLEAR © GO SUB y!VAL [K]@ GO SUB VAL !HHu GO SUB VAL 6 GO SUB VAL 6 COPY GO SUB VAL !VAL [S]X GO SUB VAL LPRINT KYH STEP STEP vY@ STEP STEP v LET ! LPRINT X LLIST X6 GO SUB VAL ! LPRINT Y LLIST Y6 GO SUB VAL !@USR GO SUB VAL !,6,6,6> ▝o INPUT CLS !▟H" RETURN v LLIST OR RESTORE STEP Mv LLIST x RETURN PRINT > o| DEF FN g RESTORE * RETURN v> o" RETURN v LLIST STR$ FLASH >IN FLASH RETURN NEW SAVE INK !HT]6 RESTORE GO SUB VAL LLIST v$STR$ INPUT &H> o READ INK ([N][Q]<>vvvv RESTORE STEP NEW v LLIST [E] RESTORE o& THEN % THEN THEN % THEN THEN % THEN OR CODE (▝ CLEAR STEP ▝vSTR$ LLIST # THEN i( CIRCLE <> PRINT NEW LET THEN ? THEN ? THEN ? FOR * RETURN voACS w$ RANDOMIZE <>G LET NEW SAVE THEN ? THEN ? THEN ? RESTORE INVERSE LLIST * RETURN vo THEN : THEN IF zACS w,{ACS w-$ INVERSE #STR$ RESTORE <>!{~# IF <>!@u@ COPY GO SUB VAL <> RESTORE OR * RETURN vM> i6,ABS IF $ PLOT STR$ LLIST <>P LPRINT P PRINT RESTORE MERGE OR INVERSE RESTORE >© FLASH RETURN NEW > CLEAR © GO SUB y STEP USR STEP INK vNOT [Q]x:w INPUT CLEAR © GO SUB y STEP INPUT 2w CLEAR © GO SUB y THEN _ >= GO SUB VAL NOT x!K THEN GO SUB VAL GO SUB [w*w>▟SGN &}:wATN (% MERGE CODE MOVE STEP INVERSE w{ RETURN ▙( GO SUB Sw2n BEEP GO SUB SwCODE 2w% MERGE >_CODE MOVE STEP DIM w8 GO SUB Sw>2ww INVERSE h MERGE GO SUB [Q] GO SUB [Q] GO SUB [Q] GO SUB [Q] MOVE STEP INVERSE w INVERSE E GO SUB "wNOT "x<>> CIRCLE INT USR FORMAT { AND _<>z RETURN CAT USR BEEP { VERIFY _<>>XINT USR P{ AND _<>z RETURN OUSR W{ VERIFY _<>:wATN STEP *x STEP ?x<> STEP ?x STEP *x INVERSE LLIST STR$ MOVE LLIST LET CLS <>!y GO SUB [w:w STEP Tx GO SUB Sw2w<>!z GO SUB [w:w STEP Tx GO SUB Sw2w<>ATN ( RETURN LPRINT MERGE > CODE STEP x MERGE >0 MOVE Q> MERGE PRINT INVERSE h MERGE GO SUB VAL MOVE STEP PRINT w INVERSE E LIST LET MOVE <>> CLEAR © GO SUB y>K2USR > GO SUB y:USR RETURN KUSR NEXT >? GO SUB G GO SUB V CLS 1 COPY COPY CLEAR ©>0 GO SUB y!CHR$ x PLOT @ GO SUB VAL NOT PLOT !@ GO SUB [ POKE / STEP =!POINT a[D] GO SUB [ POKE / STEP =![Q] NEXT [ GO SUB VAL !▟/6NOT K NEXT ▜▜▟▟▟▟▟▟▟▟▟▟▟▟▟▝▟▟▟▟▟▟▟▟▟▜▜▜▟▟▜▟▜▜▟▜▟▟▟▟▟▟▟▝▟▟▟▜▟▟▟▜vNOT [F]FN NOT n LPRINT ? LPRINT © LPRINT ©▝ COPY [N]USR DRAW 'USR CLEAR COPY USR COPY LIST ? COPY 7 COPY ? RETURN 2© RETURN COPY RETURN OUT RETURN RETURN ▜ COPY USR COPY LIST ▜ COPY LIST ▜ COPY LIST ▜ COPY LIST G COPY LIST G COPY SAVE g COPY SAVE 6' COPY SAVE l7 COPY SAVE | COPY DRAW SAVE COPY RANDOMIZE LIST COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST LPRINT ? LIST ? SAVE ? LPRINT COPY AND LPRINT COPY ▞ LPRINT COPY COPY LPRINT COPY DRAW COPY USR = COPY USR _ COPY USR / COPY USR OUT COPY USR LOAD COPY USR NOT COPY USR STR$ COPY SAVE COPY RETURN ▝ COPY RETURN STR$ COPY RETURN STR$ COPY RETURN A COPY RETURN q COPY RETURN 9 COPY COPY COPY COPY 8 COPY RETURN p COPY COPY LPRINT LOAD COPY USR COPY COPY { RETURN LIST LPRINT SAVE DRAW SAVE USR COPY LET LPRINT COPY STOP LIST COPY LOAD LIST ' COPY COPY - COPY SAVE ©? SAVE O COPY LIST gIN LIST BORDER COPY LIST LET COPY SAVE LPRINT COPY SAVE LPRINT ? COPY USR COPY STR$ USR ? COPY STR$ USR ? COPY NOT LPRINT © COPY CHR$ `© COPY ▘p? COPY AND x© COPY BIN <© COPY <© COPY TO COPY COPY CIRCLE © COPY LPRINT COPY COPY USR CLS COPY } RETURN LIST LIST DRAW RETURN DRAW @© DRAW LPRINT © SAVE VAL ? CLS LIST 3 COPY COPY USR #o RETURN g CAT COPY c COPY RETURN q BORDER RETURN SAVE COPY RETURN DRAW © RETURN SAVE RETURN LIST COPY LPRINT LIST COPY LIST LIST COPY LIST LIST COPY LIST LIST COPY PAUSE x COPY STOP | COPY PAUSE ~ COPY PLOT > COPY DATA ? COPY GO TO IN COPY SAVE [P] COPY FORMAT IN COPY LPRINT INVERSE COPY USR COPY COPY ~ RETURN p LIST RETURN RETURN RETURN RETURN ` RETURN p COPY LIST 0 LOAD COPY LIST 0 CAT COPY q RANDOMIZE COPY USR x COPY COPY |< COPY USR RETURN ? COPY USR COPY COPY USR RETURN COPY USR DRAW COPY SAVE DRAW © DRAW DRAW COPY DRAW DRAW COPY DRAW DRAW COPY SAVE ~ COPY SAVE © COPY SAVE © COPY SAVE ?NOT COPY SAVE ?<= COPY SAVE BORDER COPY LIST BORDER COPY LIST LOAD COPY LPRINT LOAD ©USR COPY ©©~p LIST RETURN COPY © COPY LPRINT COPY VAL COPY SAVE <7 COPY SAVE 8;© LPRINT |~? LIST t COPY LPRINT w[P] LIST COPY <= COPY LIST COPY LLIST COPY LIST COPY USR © LIST COPY DRAW COPY RETURN COPY RETURN COPY RETURN COPY ? RETURN ©? DRAW © LPRINT ? DRAW © LIST © DRAW ? LIST © DRAW ? LIST COPY SAVE RANDOMIZE COPY SAVE RANDOMIZE COPY LIST CLS COPY LPRINT CLS OUT USR COPY COPY © RETURN 0 LIST p RETURN ? COPY LPRINT COPY FORMAT © SAVE >© SAVE >© SAVE © CAT SAVE }▜ COPY SAVE } LLIST NEXT SAVE © SAVE COPY DRAW COPY DRAW ? DRAW COPY LIST DRAW COPY LPRINT RETURN COPY LPRINT COPY COPY LPRINT COPY COPY LPRINT COPY © LPRINT RETURN © LIST RETURN © DRAW RETURN © RETURN DRAW ? RETURN DRAW ? RETURN DRAW COPY ? SAVE RETURN © LIST RETURN COPY LPRINT RETURN COPY USR COPY LOAD © RETURN 0 LIST x~USR USR ©USR ? LPRINT SAVE ?▝IN DRAW ?▝ THEN DRAW ~STR$ RANDOMIZE DRAW ©` COPY DRAW © DRAW > DRAW © RETURN RETURN COPY COPY ▜ RETURN COPY RETURN RETURN COPY DRAW COPY COPY SAVE © COPY SAVE COPY COPY DRAW COPY © DRAW COPY © RETURN RETURN © COPY RETURN © COPY RETURN ? COPY DRAW ? COPY ▜ DRAW COPY CAT SAVE COPY LIST COPY IN LPRINT COPY ;USR COPY COPY © RETURN LIST x>USR USR USR LPRINT LPRINT LPRINT LIST LPRINT SAVE ? FORMAT ; DRAW ? LPRINT ; DRAW © SAVE ~|© TO RETURN © LOAD ▜PEEK COPY COPY NOT RETURN COPY COPY LIST COPY COPY COPY USR © COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ?© COPY >© COPY LPRINT ~© COPY LIST RETURN ? COPY LIST DRAW ? COPY LET DRAW COPY NEXT SAVE COPY READ LIST COPY LOAD LPRINT COPY OUT USR COPY COPY © RETURN LIST |> LPRINT LPRINT USR SAVE LPRINT SAVE LIST DRAW SAVE ? DRAW DRAW ? POKE DRAW © RUN OVER © RANDOMIZE RETURN © CLEAR LLIST INPUT COPY COPY SAVE RETURN COPY COPY RETURN ? COPY COPY SAVE COPY COPY LIST COPY COPY LIST COPY COPY LIST COPY COPY LPRINT COPY COPY LPRINT © COPY DRAW © COPY RETURN >? COPY DRAW <? COPY DRAW | COPY RETURN SAVE COPY RANDOMIZE LIST COPY COPY LPRINT COPY RUN USR COPY COPY © RETURN LIST ~ SAVE SAVE USR RETURN LPRINT RETURN LIST COPY x? RETURN ▝|? RETURN ▝SGN © RETURN NOT INPUT © COPY RETURN © COPY SGN > COPY COPY COPY COPY COPY COPY CAT COPY COPY COPY COPY COPY RETURN COPY COPY DRAW COPY COPY DRAW COPY COPY DRAW © COPY DRAW © COPY RETURN © COPY COPY ? COPY COPY ▙? COPY COPY COPY COPY COPY COPY SAVE COPY RETURN p COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST © DRAW USR COPY LPRINT COPY p COPY USR 8? COPY LPRINT |? COPY LPRINT l? COPY SAVE ~© COPY GO TO >© COPY COPY ▙ COPY COPY COPY CAT COPY COPY COPY RUN COPY COPY COPY READ COPY COPY COPY STR$ COPY COPY COPY ▝ COPY COPY COPY ▝ COPY COPY COPY ▝© COPY COPY ? COPY COPY ▘? COPY COPY STOP COPY COPY NEW COPY COPY DATA COPY COPY TO COPY COPY SAVE COPY COPY VAL COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST >▙© COPY @ COPY LPRINT ` COPY LIST 0 COPY SAVE COPY POKE < COPY POKE COPY RUN ? COPY RANDOMIZE ▙o COPY CLEAR NEW COPY COPY COPY NEXT COPY COPY COPY COPY COPY COPY COPY RANDOMIZE COPY COPY COPY LIST COPY COPY COPY LPRINT COPY COPY COPY LPRINT © COPY COPY LPRINT ? COPY COPY LLIST COPY COPY PAUSE COPY COPY PAUSE COPY COPY RETURN COPY COPY POKE COPY COPY DRAW COPY COPY SAVE COPY COPY FORMAT COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST N??USR © SAVE COPY DRAW COPY RETURN COPY COPY COPY COPY COPY COPY TO [ COPY COPY f{ COPY COPY IF COPY COPY COPY COPY LOAD COPY COPY COPY COPY COPY COPY DRAW RUN COPY COPY DRAW COPY COPY COPY SAVE COPY COPY COPY SAVE CODE COPY COPY SAVE COPY COPY SAVE COPY COPY SAVE COPY COPY DRAW COPY COPY DRAW COPY COPY SAVE COPY COPY SAVE COPY COPY SAVE COPY COPY LIST COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST USR LPRINT LIST IN RETURN COPY COPY COPY COPY COPY COPY TO COPY COPY BIN " COPY COPY ACS F COPY COPY PAPER v COPY COPY RETURN © COPY COPY RETURN FOR COPY COPY COPY OUT COPY COPY RETURN PRINT COPY COPY RETURN RETURN COPY COPY RETURN RUN COPY COPY RETURN FLASH COPY COPY RETURN C COPY COPY DRAW A COPY COPY DRAW A COPY COPY RETURN @ COPY COPY DRAW COPY COPY DRAW COPY COPY SAVE COPY COPY SAVE COPY COPY LIST COPY COPY LPRINT COPY COPY COPY COPY © RETURN LIST LPRINT LIST SAVE o COPY © COPY COPY COPY USR COPY COPY DATA COPY COPY POKE COPY COPY RETURN ![P] COPY DRAW t[P] COPY RETURN © COPY COPY RETURN IF COPY COPY COPY RUN COPY COPY COPY RETURN IN COPY COPY COPY OUT COPY COPY COPY COPY COPY COPY NEW COPY COPY RETURN ` COPY COPY RETURN `© COPY RETURN `© COPY RETURN `? COPY RETURN ? COPY DRAW 0 COPY DRAW ? COPY SAVE ? COPY LIST COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST LIST DRAW RETURN COPY COPY USR ? COPY LPRINT COPY COPY SAVE ? COPY SAVE 7 COPY DRAW xs COPY RETURN |COS COPY RETURN COPY COPY COPY COPY RETURN OUT COPY COPY PRINT © COPY COPY COPY [H] COPY COPY COPY CLS COPY COPY COPY IN COPY COPY RANDOMIZE [P] COPY COPY LIST COPY COPY p COPY RETURN p COPY RETURN p COPY RETURN 0 COPY DRAW 8 COPY DRAW COPY SAVE COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST SAVE RETURN COPY COPY USR IN LPRINT COPY LIST COPY SAVE COPY DRAW $ COPY RETURN N© RETURN OUT COPY COPY RETURN COPY [L] COPY COPY CLEAR / COPY COPY COPY PAUSE COPY COPY COPY COPY © COPY COPY RUN COPY COPY RETURN 3 COPY COPY DRAW COPY RETURN | COPY RETURN x COPY RETURN x COPY RETURN < COPY DRAW < COPY DRAW COPY SAVE 3 COPY LIST COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LPRINT |©?IN LPRINT LOAD LIST COPY SAVE 0 COPY DRAW 0 COPY DRAW ! COPY DRAW c▝ OUT RETURN cBIN OUT RETURN g COPY COPY RETURN LOAD NEXT © COPY LOAD % COPY COPY COPY RETURN _ COPY COPY COPY LOAD COPY COPY RETURN COPY COPY COPY ▚© COPY COPY © RETURN ©? RETURN ~? RETURN ~? RETURN >? DRAW ?? DRAW COPY SAVE COPY LIST COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN USR LPRINT > LOAD LPRINT © LIST © SAVE COPY DRAW ? DRAW 7 RETURN 8 LIST 3 RETURN 8 SAVE [L] RETURN RANDOMIZE COPY COPY COPY { RETURN o COPY { DATA IN COPY COPY COPY THEN COPY COPY COPY COPY COPY COPY COPY OUT COPY COPY LIST CAT COPY COPY LPRINT COPY © LPRINT RETURN ©USR RETURN ? RETURN ? DRAW ?USR DRAW LPRINT SAVE READ LIST COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LPRINT LPRINT USR ; LPRINT LIST SAVE ? DRAW DRAW RETURN L~^? COPY COPY >© CAT COPY >|[H] COPY © COPY RANDOMIZE COPY © COPY COPY ©© COPY CLS COPY © RETURN COPY © DRAW COPY © SAVE RETURN © LIST RETURN ? LIST RETURN ? LIST DRAW ? LIST DRAW SAVE SAVE SAVE G LIST COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LPRINT LPRINT USR LPRINT LIST SAVE DRAW DRAW RETURN g▝PEEK '▜ DATA OVER ' CAT COPY COPY OUT RANDOMIZE © OUT [D] COPY ? COPY COPY _? COPY COPY COPY ? COPY COPY COPY ? COPY NOT ©© COPY ©© COPY ~/ RETURN ~/ DRAW ~? DRAW | RETURN | RETURN SAVE COPY LIST COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST LPRINT `USR LPRINT LIST SAVE DRAW [Q]|@ >0 LPRINT LIST n LIST DRAW PEEK RANDOMIZE COPY COPY NEXT COPY © NEXT PAUSE IN COPY COPY OUT COPY COPY COPY COPY COPY OUT COPY SAVE OUT ? COPY LIST ? COPY LPRINT COPY USR COPY COPY COPY < COPY USR x COPY BIN LIST COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST LPRINT p LPRINT USR LPRINT LPRINT px VAL |(<<>.>? COPY RETURN © OUT RETURN ~[P] COPY COPY RUN COPY COPY COPY COPY COPY COPY ▜ COPY COPY O COPY RETURN O COPY DRAW N COPY SAVE / COPY LIST 5 COPY LIST IN LIST 8 COPY LET p COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST pUSR 0@x LPRINT LPRINT 080▚ INPUT ▜<= RETURN ? CAT RUN CAT OUT _ COPY COPY USR © COPY COPY USR COPY COPY COPY STR$ COPY COPY CAT NOT COPY COPY ▘C COPY COPY cIN RETURN a? DRAW 3IN DRAW 1© DRAW LOAD DRAW COPY DRAW LIST COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST USR pUSR PEEK ` SAVE 0 LPRINT 8 USR `USR D@USR LPRINT NEW @@ LIST PLOT USR 0 SAVE RETURN RANDOMIZE COPY RANDOMIZE RUN USR COPY COPY LPRINT COPY COPY LPRINT COPY COPY LPRINT ? COPY NEXT LPRINT IN COPY PAUSE ` COPY COPY STOP pg COPY CHR$ pg COPY 8 LOAD COPY <O COPY o COPY COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST USR x LPRINT LOAD ` RETURN DRAW < LPRINT 0(``8<:@>>USR >USR COPY ©USR ©© LPRINT © COPY LIST COPY COPY LIST COPY COPY LIST COPY COPY LIST COPY SAVE x COPY SAVE | COPY LIST | COPY LPRINT < COPY LPRINT > COPY USR COPY USR [P] COPY [Q] COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST USR | LIST ▝{ LPRINT IN COPY ?,8pp`▙ LPRINT <= CAT LPRINT OUT LPRINT LOAD SAVE / COPY DRAW ? COPY DRAW © COPY DRAW COPY RETURN DRAW COPY RETURN ~ COPY DRAW ©[P] SAVE ©? SAVE ?? LIST ?▚© LIST <=_ LPRINT BORDER COPY LIST COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST USR ~ DRAW USR LPRINT BRIGHT SAVE COPY USR ?USR <|BIN x LPRINT NEW x PLOT SAVE RUN LIST COPY LIST COPY RETURN COPY COPY COPY COPY COPY COPY COPY COPY _ RETURN ©© RETURN ©USR w DRAW ©USR g DRAW ?USR LOAD SAVE ? LPRINT OUT SAVE LIST OUT LIST RANDOMIZE COPY LPRINT COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST USR © RETURN LIST 8 BORDER >▞ BRIGHT COPY x? LIST USR ?`?2~2~: RETURN ? RETURN COPY DRAW © COPY USR ©© LPRINT COPY © LPRINT COPY © LPRINT COPY © LIST COPY © LIST RETURN © SAVE RETURN ? SAVE DRAW ? SAVE DRAW ? DRAW 3 SAVE RETURN ? SAVE RETURN © LIST COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST USR © COPY DRAW RANDOMIZE CAT CHR$ w COPY RETURN ? RETURN `? LPRINT ©USR ©©© CAT ©?©© LIST ?? DRAW ?© DRAW ©? DRAW COPY © DRAW COPY ? DRAW RETURN ? RETURN PEEK ? RETURN > RETURN | COPY DRAW COPY SAVE COPY [P] LIST COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST USR ©USR COPY USR RETURN RETURN s LIST [N] COPY COPY ? COPY 8? SAVE o SAVE © LIST AND o LIST &© LIST 6 COPY LIST ? LIST RETURN COPY COPY COPY COPY © COPY ~ COPY USR n_ COPY USR OVER / COPY STR$ DRAW / COPY LLIST SGN COPY NEXT SAVE COPY BORDER LIST COPY COPY LPRINT COPY COPY USR COPY COPY © RETURN LIST ()[B]`SIN [R][U]l`PEEK TAN CODE `TAN EXP ``SIN RNDSQR POINT AT `COS EXP PISIN [R]TAN LN `ATN ``!6!,/.[R]n▖CODE TAN LEN `SGN TAN CODE `POINT `CODE PEEK RNDVAL$ LN `COS TAN [R]m``SIN [R]LEN `POINT PISIN [R]l`VAL$ CODE `LEN `COS PEEK POINT TAN [R][Q]`RNDRND`CODE [U]VAL$ CODE SCREEN$ ``POINT INT ``COS [R]TAB EXP FN ``POINT VAL$ TAN RNDSIN RNDCOS VAL$ EXP FN l`ATTR CODE TAN CODE SIN EXP RND``ATTR CODE PI[U][R]m[S]EXP `VAL$ POINT `[S]EXP AT POINT `VAL$ [R]`30%#425-RND``[H]`SGN TAN CODE SCREEN$ ``SIN RND[R]AT POINT INT [R][T]POINT POINT `TAN EXP ``COS TAB CODE ACS RNDSQR LN ``INT [R]VAL POINT COS [R]TAN LN `TAN RNDATTR ASN ABS RNDRND`COS CODE COS TAN CODE LEN VAL$ POINT RND`POINT PIm``SIN CODE ATN CODE SCREEN$ ``COS POINT TAN ASN [R][T]POINT POINT ``VAL$ [R]`[U]POINT COS ATTR n``▗AT LEN ``SGN TAN CODE PICODE ``VAL$ ASN ACS VAL$ CODE ``ATN ``SIN RNDACS POINT TAB RND``VAL [R]ASN INT EXP ``0`VAL$ [R]ACS [R]TAN LN 3n`[A]ASN COS TAN LN `TAN RND[S]LEN `VAL$ RND``COS TAB ASN ABS [R]RNDTAN ``VAL$ [R][U]VAL POINT COS LN ```34!244!0%4(%.02%33%.4%2l`ATN COS RND``SIN [R]ATN VAL$ CODE ``INT [R]VAL POINT COS LN `VAL SIN CODE POINT INT CODE SCREEN$ [U]RNDTAN `VAL$ [R]`[U]POINT COS ATTR n``````▙[R]``[U]POINT COS ATTR ``INT [R]VAL POINT SQR ASN TAN COS LEN `r`INKEY$[R]SCREEN$ AT [R]``COS ``POINT TAB RNDVAL$ [R]TAB POINT `AV`POINT `AVn[A]SIN RND[U]EXP [U]ASN m``ABS POINT RND``INKEY$[R]SCREEN$ AT EXP ``COS ``TAN [R]ATTR POINT TAB POINT ``POINT TAB RNDVAL$ [R]TAB POINT ``COS TAN POINT SIN [R][Q]TAN COS LEN n`[O]TAN CODE [S]EXP ``VAL CODE COS AT RND`INT [R]VAL POINT COS POINT ``VAL$ [R]`[U]POINT COS ATTR `ATN RNDSIN VAL$ ASN TAN LN COS LEN `ATN `POINT PISIN ASN lVAL$ ASN ACS VAL$ CODE ``VAL$ [R]ACS [R]TAN LN `ATTR AT [R]ATN POINT SQR ASN `/`POINT `VAL CODE [U]RNDSIN ACS [R]TAN LN ``RNDRND`VAL$ RNDCOS ATTR CODE AT LN ATTR CODE ``COS RNDATTR ASN VAL$ [U]l`VAL CODE ATTR [R]``VAL$ RND``COS TAB CODE AT ATTR VAL$ RNDTAN `TAB ASN INT EXP ATTR [R]n``````````````````▛COS TAN [R]TAN POINT l`ATN ``POINT PISIN RND``CODE COS TAN [R]VAL$ CODE ATN AT RNDVAL$ [R]``SGN VAL$ RNDSIN PIPOINT LEN lPOINT `PEEK TAN CODE `[S]EXP `TAN EXP `VAL$ POINT ``[U]RNDAT [R]AT l``CODE VAL$ [R]`VAL$ RND`COS [U]ATN POINT VAL$ RNDTAN COS LEN `COS `TAB RNDCOS TAN [R]n```````[H]CODE TAN `POINT `ATN COS RNDl`[S]CODE AT LN SQR RND`VAL$ POINT ATTR [R]ATTR POINT FN `VAL SIN POINT m``[S][R]TAB [S][R]COS CODE ATN ``VAL$ RNDTAN n`COS TAN [R]RNDTAN COS LEN `TAN CODE AT LN ATTR CODE ``VAL RNDSIN RND[U][R]TAN LN ``VAL SIN POINT ATN RNDTAN ``-!34%2(/-%#/-054%23'2/50```h[A][C]▞[H][E]aaai``POINT `VAL SIN CODE COS TAN POINT TAN COS LEN nnnnn`````````````````````````````[A]▛▝a``````````````-!$%"9`▘[R]INT [R]SIN ATTR POINT VAL$ `▝SIN TAN RNDTAB ``````````%-!),BAAA UIC(WWWNNOVBAAA666©66©6?<??sv7g<?f?00???0>go{s><?>c>`©>c<l©©`~c>>`~cc>©>c>cc>>cc?>0??>c>o©©`>>cc©cc~c~cc~>c``c>|fccf|©`~``©©`~```>c`oc>cc©ccc??cc>flxlfc`````©cw©ccccs{ogc>cccc>~cc~``>cc{o>~cc~fc>`>c> COPY ccccc>cccc6cccc©6c66cNOT f<©0©`0xx<~ COPY 3|00©<>f>00>33>000>ff><f|`>>ff><``|fff8<60<88<6~~~~|ffff<fff<|ff|``>ff>0000<`<|<fff<ff<<f~~~<f<<ffff><~0~8x<>c INVERSE LET LET INVERSE c>666©66©6?<??sv7g<?f?00???0>go{s><?>c>`©>c<l©©`~c>>`~cc>©>c>cc>>cc?>0??>cn{{{{n>cc©cc~`~cc~fffff©6666©c©`~``© COPY FLASH FLASH COPY ~`````c66ccgo{sccgo{scflxlfc3333ccw©ccccc©ccc>cccc>©ccccc?cc?3c~cc~``>c``c> COPY ccc?> FLASH ~<~ FLASH FLASH ~c~cc~``~cc~cc{oo{>c FLASH FLASH FLASH FLASH FLASH COPY >cc> FLASH FLASH FLASH FLASH FLASH COPY ccc? LPRINT `~cc~n{{{n<>f?0>336666?666©c<f|`><~~~<~````f<<ffn~vffn~vf6<8<6666ff~~~fff~ff<fff<~ffff>ff>v|ff|``<f`f<~fff><~~<~~|f|f|``|f|cc{o{<ff<~~~~~<ff<~~~~©ff>p0>3> COPY COPY COPY COPY COPY DRAW ? COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LIST COPY COPY COPY COPY DRAW :SCREEN$ IF CAT : TO l FOR IF INT SCREEN$ IF DEF FN COS 7: RETURN INT SCREEN$ INT SCREEN$ INT ATTR NOT DEF FN SCREEN$ INT SCREEN$ DEF FN 6zSCREEN$ REM DEF FN j CAT COPY 3CODE : INPUT INT INPUT COS 6j INPUT INT COPY IF COPY IF RETURN COS STR$ ATTR ? IF COS 6© COPY COPY COPY COPY COPY NEXT COPY BORDER SAVE COPY CAT COPY NOT RETURN © COPY COPY COPY COPY COPY COPY COPY COPY READ ? COPY COPY COPY COPY COPY COPY COS SCREEN$ CODE SCREEN$ CODE SCREEN$ ATTR SCREEN$ SCREEN$ SCREEN$ ATTR SCREEN$ CODE AT FOR CODE ATTR ? LIST COPY COPY COPY COPY RETURN COS COPY ATTR SCREEN$ CODE CODE COPY CODE RETURN j AND SCREEN$ CODE CODE FOR CODE FOR 0LEN COPY COPY DRAW NEXT COPY COPY COPY DRAW ©<= COPY COPY COPY COPY COPY COPY 0? COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LPRINT COPY COPY COPY COPY COPY DRAW o COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LIST COPY COPY COPY COPY DRAW 5Uu DEF FN 5 TO l PRINT PRINT u CLEAR u STEP s65}u© PRINT © PRINT u READ CAT MERGE uU<=6uUuUSR uUSR <=/5}u}s6u MERGE u`5USR 5}sSTR$ BEEP ? CLEAR s6© COPY COPY COPY COPY COPY NEXT COPY BORDER SAVE COPY CAT COPY NOT RETURN © COPY COPY COPY COPY COPY COPY COPY CAT COPY COPY COPY <=COS U_UWW COPY UW PRINT WUW/ BEEP WW0COS COPY MERGE U_VW COPY u<=U_W BEEP _ BEEP 0LN COPY COPY DRAW NEXT COPY COPY COPY DRAW ©<= DRAW COPY COPY COPY COPY COPY 0USR l8USR : IF INT DEF FN : TO l IF IF IF RETURN INT INPUT COS 6:PEEK INT COPY IF COPY IF IF NEXT CAT FOR IF COPY <=6j IF REM USR jUSR AND AT : RETURN INT RETURN COS 6j REM INT COPY INT COPY INT IF NEXT CAT ATTR : IF COS 6>USR COS CODE COPY CODE ATTR CODE COPY CODE ATTR IF COPY CODE ATTR VAL$ FOR ATTR ATTR 0COS CODE SCREEN$ CODE COPY CODE CLS CODE FOR j AND VAL$ CODE ATTR FOR CODE FOR 0LN LIST 0l<USR 35 CLEAR u DEF FN u TO luu PRINT STEP u GO SUB s6w]u COPY PRINT COPY PRINT PRINT sSTR$ BEEP PRINT © READ 6u CLEAR u COPY PRINT COPY NEXT BORDER /5}u]s6u PRINT u© PRINT COPY PRINT u NEXT CAT BEEP PRINT }s6:USR COS W COPY _ BEEP _ COPY _ BEEP u COPY W BEEP ^ BEEP uw0COS W MERGE _ COPY W COPY W BEEP u<=_WU BEEP W BEEP 0[M] LIST 0 COPY COPY CAT ? TO l COPY COPY COPY COPY CAT NEXT ? CAT COPY COPY COPY COPY COPY COPY CAT COPY COPY COPY TO 7: IF IF DEF FN z TO l:ATTR IF INPUT INT INPUT COS 6{SCREEN$ INT SCREEN$ IF SCREEN$ IF RETURN COS STR$ FOR :SCREEN$ READ 6j PAPER REM COPY REM COPY NEXT NEW SGN :SCREEN$ INT SCREEN$ COS 6j IF INT ATTR IF ATTR IF SCREEN$ READ DEF FN ATTR IF SCREEN$ COS 7 COPY COPY COPY COPY COPY COPY LIST COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY DRAW COPY DRAW COPY ? POKE COPY COPY COPY COPY RETURN COS SCREEN$ CODE CODE FOR SCREEN$ CODE CODE RETURN z<=CODE FOR VAL$ FOR INT SQR 0COS SCREEN$ SCREEN$ AT SCREEN$ IN SCREEN$ ATTR j AND CODE CODE SCREEN$ ATTR CODE ATTR 0 OUT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LIST COPY COPY CAT ? TO l COPY COPY COPY COPY CAT NEXT ? CAT COPY COPY COPY COPY COPY COPY COPY TO 75 CLEAR u DEF FN u TO n=W PRINT GO SUB ums6wUuU PRINT U PRINT CLEAR s RANDOMIZE BEEP =Us6u INVERSE uUUUsgX=U}Us6u CLEAR uUuUuUNOT STEP U}Us7 COPY COPY COPY COPY COPY COPY LET COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY DRAW COPY DRAW COPY ? POKE COPY COPY COPY COPY CLEAR COS MERGE WW BEEP U__ RETURN u<=W BEEP V BEEP UW0COS MERGE W/UW MERGE W PRINT <=_ BEEP MERGE WW BEEP 0 CAT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LIST >SCREEN$ IF CAT : TO l FOR [O]PEEK SCREEN$ IF DEF FN COS 3: RETURN INT SCREEN$ INT SCREEN$ INT ATTR DEF FN SCREEN$ PEEK SCREEN$ TO 6: IF REM DEF FN j TO oATTR IF INPUT INT INPUT COS 6jVAL$ INT SCREEN$ IF SCREEN$ IF INPUT COS RANDOMIZE ATTR SCREEN$ NEXT 6j PAPER SCREEN$ SCREEN$ SCREEN$ SCREEN$ COS fLN >SCREEN$ RETURN SCREEN$ NEXT 6j IF INT SCREEN$ INT SCREEN$ INT ATTR <= DEF FN SCREEN$ INT SCREEN$ NEXT 01 REM CODE SCREEN$ CODE SCREEN$ ATTR REM VAL$ SCREEN$ ATTR SCREEN$ CODE AT FOR CODE FOR 0LEN REM CODE SCREEN$ ATTR SCREEN$ CODE VAL$ j<=SCREEN$ ATTR VAL$ FOR SCREEN$ ATTR 0COS SCREEN$ VAL$ AT NEXT SCREEN$ ATTR SCREEN$ CODE REM AND CODE ATTR SCREEN$ CODE CODE ATTR 0 LPRINT =Uu CAT 5 TO l BEEP CLEAR }U PRINT STEP s75 CLEAR uUuUuW<= STEP U}U DEF FN 6Uu DEF FN u TO gW5 LOAD u}s6u]uU PRINT U PRINT BORDER sSTR$ BEEP ? CLEAR s6u INVERSE UUUUsgXU CLEAR U READ 6u INVERSE uUuUuW STEP U}U READ ? COPY COPY COPY COPY COPY COPY COS MERGE _UWUW MERGE ]UWU_/ BEEP _ BEEP ? SAVE COPY COPY COPY COPY COPY LEN COPY WUW_ COPY ^u<=U_W BEEP ] BEEP 0LEN MERGE _/ NEXT UW MERGE ^u<=_ BEEP MERGE _W BEEP 0© COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LIST USR STR$ DATA NOT SUSR NOT !STR$ NOT [K]USR ASM COMPILATION OF RETURN Mgnoweniq, mgnoweniq... CLEAR by 'Dream Team' 94CODE !VAL$ USR CODE USR bw GO SUB VAL 2NOT STR$ 2IN USR 2 LPRINT USR 2STR$ <2 STR$ RANDOMIZE OR BK2(STR$ 2 STEP STR$ STEP ATN STR$ " CIRCLE STR$ STEP ATN STR$ "?CHR$ STEP ATN STR$ "LCHR$ 2<>STR$ GO SUB SUSR STR$ CODE !STR$ STR$ w GO SUB VAL =2STR$ NOT |STR$ ! STR$ 5 '6:VAL$ USR ! CAT USR ACS ! LIST USR ACS THEN G TO IN STR$ INVERSE !VAL$ USR STEP CHR$ INVERSE ! CAT USR STEP CHR$ INVERSE ! LIST USR STEP CHR$ CODE INVERSE !VAL$ USR STEP EXP NOT > INVERSE ! CAT USR STEP EXP NOT > INVERSE ! LIST USR STEP EXP NOT : LET USR G: FORMAT USR VAL G:CODE USR VAL STEP ATTR STR$ !STR$ IN COPY =+G< NEW ACS x =+B GO SUB yC GO SUB [T]<B GO SUB yC GO SUB ATTR = PAUSE STR$ 2STR$ <> RESTORE MERGE !STR$ w MOVE LLIST <> FOR ^#V# FOR <>!{< RETURN 8>2NOT STR$ ~▜▚▜bo STEP LN STR$ "STR$ USR STEP ATN STR$ " STOP USR STEP ATN STR$ "STR$ !VAL$ USR THEN AND ! CAT USR THEN AND ! LIST USR THEN AND CODE 2EXP USR 2 PAPER USR 2 CLS USR <> INVERSE 5 LIST INVERSE THEN ACS INVERSE THEN PEEK INVERSE 6 INVERSE ^ INVERSE V RETURN ` PAPER 0NOT !CHR$ RESTORE VERIFY LIST 0H AND 83 AND 8 AND 8 AND @ INVERSE w<> STEP XCHR$ INVERSE u INVERSE t<> STEP XCHR$ INVERSE u INVERSE t<>▜&o~#fo<> INVERSE THEN INKEY$ INVERSE wUSR INVERSE THEN NEW INVERSE 6<>!©CHR$ ONH DIM &57RND?[T][R][P] INVERSE w<> STEP [M]CHR$ INVERSE THEN PLOT <> INVERSE THEN RETURN <>2 STR$ 2(STR$ <> GO SUB D MERGE INVERSE w_[P]W> COPY g LIST INVERSE THEN PLOT INVERSE N INVERSE F INVERSE w MERGE RETURN V8 INVERSE ~ STEP A OR MERGE INVERSE ~ STEP A OR FOR MOVE ATN GO SUB R RESTORE 0 FOR CODE go GO SUB R FOR INVERSE ~ GO SUB DOCODE ▝8[B]ATN THEN THEN POKE STR$ THEN x CODE go GO SUB R FOR GO SUB Do[P]g INVERSE u INVERSE t INVERSE ~ INVERSE s INVERSE r INVERSE w MOVE <>2STR$ <> RETURN V8 RETURN ^8m( INVERSE THEN [G]e INVERSE THEN OVER _ INVERSE w INVERSE w INVERSE ~ INVERSE w INVERSE ~= PAUSE `NOT CODE INVERSE w INVERSE w INVERSE THEN v "CODE INVERSE ww INVERSE n INVERSE f INVERSE u INVERSE t INVERSE THEN VERIFY INVERSE THEN [O] INVERSE THEN ▙ INVERSE THEN ~ INVERSE n INVERSE f INVERSE u INVERSE t INVERSE THEN f(2STR$ INVERSE ~ INVERSE w INVERSE s INVERSE r<USR INVERSE THEN ▚<>2STR$ CODE INVERSE THEN N q INVERSE THEN V(k STEP ?BIN STEP DRAW BIN INVERSE THEN ^ INVERSE ~2STR$ INVERSE ~ RETURN V8[P]/ NEW U STEP A OR INVERSE n INVERSE f INVERSE ^ INVERSE V:STR$ ▜_} STEP ATTR STR$ | NEW STEP ATTR STR$ INVERSE ~ATN ( IF BIN INVERSE 5 INVERSE n INVERSE f INVERSE ^ INVERSE V INVERSE u INVERSE t INVERSE ~/ NEW 0 INVERSE ~ PLOT W:STR$ AND _zNOT ATTR STR$ INVERSE n INVERSE fT]~#N#F# RETURN 8& THEN © THEN o( INVERSE THEN DEF FN INVERSE s INVERSE r REM INVERSE THEN ^ CONTINUE INVERSE n INVERSE f INVERSE u INVERSE tYO{[P]W INVERSE n INVERSE f INVERSE u INVERSE tx NEW INVERSE wx NEW RETURN INVERSE THEN INPUT ( INVERSE THEN VAL$ 8 VERIFY INVERSE ▚ LET DEF FN RETURN DEF FN COPY INVERSE w NEW INVERSE ▚ RETURN 8>W INVERSE F▘ CLEAR NEW LIST INVERSE w INVERSE THEN n(L INVERSE THEN ^(Fy▜▜▜ THEN / THEN / THEN /!STR$ ▚w<> INVERSE n INVERSE fT]~#F# RETURN 8 THEN © THEN w( INVERSE n INVERSE f INVERSE s INVERSE r GO TO INVERSE u INVERSE tOx INVERSE ▚ INVERSE wy NEW GO SUB DLEN INVERSE ▚ NEW INVERSE w<>▜_!M OR ^#V<> BRIGHT TO "▘ GO TO / VERIFY X LPRINT n[P]@ NEW [B]A PLOT VAL$ k, LIST ATN ▘O NEXT >=[R]{W6 SAVE BRIGHT STR$ FN [A]ydP=, DRAW INPUT LPRINT CLOSE #>=ABS SIN FN [P][G]▟~wpjd^YTPKGC?<852/-*(&$" FOR HTv▘VAL$ INT DEF FN LIST -n▘[Q]CHR$ THEN OUT B[J]VAL$ SQR >= FORMAT INVERSE REM PAUSE ]n[K] FLASH CONTINUE FOR IF [R]STR$ LOAD e&()a-(- COPY PI<= LOAD aINKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND `aPI<=INKEY$ AND COPY [S]CHR$ LOAD ea!c! COPY [R]STR$ LOAD u&a! COPY PI<= LOAD aINKEY$ AND INPUT PI<=INKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND ` LOAD a COPY [S]CHR$ INPUT e GO TO FOR REM COPY [R]STR$ LOAD c&a&c(a)c+a+c)a+ COPY PI<= LOAD aINKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND `aPI<=INKEY$ AND COPY [S]CHR$ LOAD caecaca COPY [R]STR$ LOAD e-[U]BIN FOR b-`-a-c-`--a-([R]STR$ LOAD !c&a&c&a&c+a+c+a$ COPY PI<= LOAD aINKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND `aPI<=INKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND `aPI<=INKEY$ AND COPY [S]CHR$ LOAD ecaeca COPY [R]STR$ LOAD b0`0a00[U]BIN FOR ''b& GO TO `ac[R]STR$ LOAD a- COPY PI<= LOAD aINKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND `aPI<=INKEY$ AND COPY [S]CHR$ LOAD e COPY [R]STR$ LOAD c.a.c-a.c2a2c0a. COPY PI<= LOAD aINKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND `aPI<=INKEY$ AND COPY [S]CHR$ LOAD e COPY [R]STR$ LOAD b-[U]BIN REM `) GO TO --a-(-e& FOR c![R]STR$ LOAD a&c0a.c.a&c-a+c+a"c)a(([U]BIN REM % COPY PI<= LOAD aINKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND `aPI<=INKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND `aPI<=INKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND ` COPY [S]CHR$ LOAD ecaec COPY [U]BIN REM ac%[R]STR$ LOAD a! COPY INKEY$ AND LOAD aPI<=INKEY$ AND COPY a][S]CHR$ LOAD e COPY [U]BIN REM ac%[R]STR$ LOAD a- COPY INKEY$ AND LOAD aPI<=INKEY$ AND COPY a][S]CHR$ LOAD e COPY [R]STR$ LOAD c4a2c-a)c4a2c-a)c4[U]BIN FOR a.b.`.a.e.c-[R]STR$ LOAD a2 COPY PI<= LOAD aINKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND `aPI<=INKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND `aPI<=INKEY$ AND COPY [S]CHR$ LOAD ecae COPY [R]STR$ LOAD c5a2c2a2c2a2c0a.c2a0b0[U]BIN FOR `'a'c&a&c*[R]STR$ LOAD a- COPY PI<= LOAD aINKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND `aPI<=INKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND PI<=INKEY$ AND `aPI<=INKEY$ AND COPY [S]CHR$ LOAD e COPY e_ COPY PI<= GO SUB aINKEY$ AND ` INPUT LOAD a COPY e_ COPY @Cp'*{~▗▜▟[A][D][G][J][M][P][S]RNDFN ATTR VAL$ LEN TAN ATN INT ABS USR NOT AND <> TO LPRINT SAVE ▖FN >=>=LN FN [I]▖▖ RETURN ▖ RETURN RETURN ▖ RETURN ▖▖` IF z COPY ▖ CLEAR x▖▖▖▖ CLEAR ▖ CLEAR ▖ CLEAR ▖▖▖▖▖▖ CLEAR ▖ CLEAR ▖ CLEAR ▖▖▖▖▖▖ CLEAR ▖ CLEAR ▖ CLEAR ▖▖▖▖▖▖ CLEAR ▖ CLEAR ▖ CLEAR ▖@▖▖▖ CLEAR ▖ CLEAR x CLEAR xhhXXH CLEAR H CLEAR 8 CLEAR 8(( CLEAR CLEAR SAVE CLEAR SAVE LPRINT SAVE LN COPY LN COPY LN LN LN COPY LN COPY LN COPY LN COPY FN FN [I][I][I][I][I] COPY [I] COPY [I] COPY [I] COPY ▖[I]▖x▖[I][I] COPY [I]` COPY [M] LPRINT SAVE BIN LPRINT OR LOAD BRIGHT LOAD POKE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE @BDJLTVXZ/^`bdfhjlnprtvxz|~▘▗▚▖ LPRINT LPRINT RETURN LPRINT LPRINT POKE POKE LPRINT LPRINT LPRINT NEW CLEAR LPRINT CLEAR LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT WU[Q]UUUSR VUx-p MERGE Upux-/U/WASN UZ5}U LPRINT }_VVUXW MERGE U@ MERGE k^uU MERGE [Q] PRINT INVERSE U MERGE UUSR }wUEU RUN UeVUmU LPRINT MERGE @ MERGE MERGE Z5P5a MERGE UTuU/UYU`mj LIST CODE 6SCREEN$ FN z FORMAT SCREEN$ USR INT LIST :AT :TAN VAL$ SGN SCREEN$ jSCREEN$ VAL$ zASN SCREEN$ LPRINT REM REM SCREEN$ ATTR REM VAL :INT SCREEN$ ▚SCREEN$ USR SCREEN$ AND VAL$ jSCREEN$ REM LPRINT jPEEK ATTR SCREEN$ ATTR @ZCODE SCREEN$ RESTORE SCREEN$ [N] LET SCREEN$ VERIFY INT jINT SCREEN$ [Q]SCREEN$ USR REM zACS *VAL :[R]*SCREEN$ AT *SCREEN$ FN zPOINT REM USR VERIFY USR UPUASN VAL U-UhUq MERGE @;]X-T5/USR MERGE ]VU_ MERGE `ASN UZUASN P-UVU MERGE ▟ZuUU LPRINT MERGE cUUVUSR uX MERGE gU©QU}Vu}U` OUT _w DRAW 7 LPRINT a BEEP RUN CLOSE #7©X/ CIRCLE ]@ATTR USR Z LIST SCREEN$ zSCREEN$ LN zEXP kUSR .INKEY$AT *PEEK *FN POINT ATTR ATTR @ REM NEW SCREEN$ jATTR SCREEN$ [Q] PAPER SCREEN$ VAL$ ATTR REM VAL 6SCREEN$ ATTR ▚SCREEN$ USR j REM VAL$ ZSCREEN$ SCREEN$ [Q]SCREEN$ STR$ SCREEN$ ▘SCREEN$ ATTR jVAL j[S]SCREEN$ SCREEN$ INK SCREEN$ SCREEN$ SCREEN$ zSIN SCREEN$ LPRINT feFN USR mn DRAW CLOSE #VAL ;pnUSR U@upZ MERGE PW]UXui MERGE @=uT5ZmX]UUUSR ASN STEP VuU MERGE `ASN UZUU LPRINT -UVU@ MERGE OUT ZuUU`UA BEEP UVUPu READ UUh MERGE UVUmU[Q]<? SAVE ? CLS DRAW COPY LPRINT USR ?SCREEN$ LPRINT Z FORMAT VAL$ jLN ATTR REM SCREEN$ AT ZEXP SCREEN$ USR *SCREEN$ SGN VAL$ ZFN SCREEN$ CODE ATTR @ FOR [C]SCREEN$ IF ATTR j LPRINT IF SCREEN$ VAL$ ATTR REM [Q]>SCREEN$ ATTR ▚ATTR USR kBVAL$ ZSCREEN$ SCREEN$ LPRINT SCREEN$ STR$ j▝SCREEN$ ATTR jVAL Z[S]SCREEN$ SCREEN$ AT REM SCREEN$ SCREEN$ zPEEK SCREEN$ LPRINT DRAW USR DRAW ? LIST COPY USR COPY UVAL up/ MERGE lWASN UTuYU LPRINT }]V^UxWU▜UUSR MERGE [VASN U MERGE [Q] MERGE UWUU`5UU OR UUSR MERGE CAT ZuuU[Q]UA MERGE ▝ MERGE WUPuc MERGE UTASN UvU[U LPRINT ?PEEK ©` COPY oPEEK RETURN USR ; LPRINT SCREEN$ SCREEN$ FORMAT ZVAL :TAN SCREEN$ TAN SCREEN$ REM SCREEN$ ACS *POINT REM [Q]ZINT SCREEN$ SCREEN$ zFN VAL$ SCREEN$ ▚SCREEN$ USR j AND SCREEN$ PAPER ATTR j LPRINT SCREEN$ IN CODE SCREEN$ ATTR USR *CODE FOR AND ATTR @ATTR VAL$ zINT SCREEN$ LPRINT SCREEN$ USR FOR SCREEN$ VAL$ jVAL : LLIST SCREEN$ SCREEN$ AT PAPER SCREEN$ AT jPOINT SCREEN$ [Q]©USR COPY USR RETURN LIST ? COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY [P] COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY NEXT COPY OUT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ▙ GO SUB d RETURN COPY RETURN COPY COPY SAVE INK DRAW DRAW oCODE RANDOMIZE COPY OVER COPY COPY LPRINT ? CLEAR ( SAVE x SAVE c▜ COPY COPY COPY COPY [P]IN DRAW COPY DRAW © COPY COPY COPY COPY © COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY [P] COPY ? OUT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY CLS SAVE LIST / RETURN CLEAR COPY COPY COPY ^ DRAW NOT DRAW COPY LLIST [P] NEXT COPY > COPY STOP LPRINT ; COPY p COPY COPY COPY RETURN IN IN p© SAVE SAVE COPY DRAW COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LIST [P]©? OUT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LET SAVE RUN COPY INPUT CLS COPY OUT CLEAR DRAW COPY pO DRAW RETURN COPY RETURN NEW IN PEEK COPY AND `uUSR INVERSE |© LOAD LIST *ACS IN ▝ LIST x> COPY ~ COPY COPY COPY COPY COPY RUN COPY COPY LLIST COPY > COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ? LET Y COPY COPY OVER COPY COPY COPY RETURN SAVE COPY RETURN DRAW RETURN COPY PLOT COPY DEF FN `jUSR INVERSE 0 COPY ? COPY COPY COPY COPY COPY COPY READ BORDER BORDER RETURN x>? CLS SAVE ? COPY COPY COPY NOT COPY COPY COPY COPY CLEAR COPY © LET FOR LOAD COPY PEEK CLS COPY COPY LIST COPY OUT IN DRAW RETURN COPY COPY [P] COPY ACS COPY AND uUSR [O]![H]IN COPY COPY LIST 7 LIST NOT CAT [O]4?▜ LIST SAVE COPY ▝ RETURN COPY STR$ LIST ? LIST ? COPY RANDOMIZE [ NEXT COPY INPUT LET COPY COPY LPRINT COPY COPY COPY DRAW RETURN RANDOMIZE COPY PAUSE INVERSE RETURN PLOT COPY STOP ;▝ LIST 6i?` COPY USR THEN |s`0 COPY DRAW NEXT COPY COPY DEF FN BORDER COPY OVER ©<= COPY IN DRAW ? RETURN CLEAR COPY CLS ATN PRINT n COPY COPY COPY COPY COPY RETURN ? COPY FORMAT DRAW BIN USR q LPRINT $m[P]< LPRINT p SAVE 0© BORDER RETURN COPY COPY DRAW COPY RETURN ▙ PLOT ?[M] DRAW CLS [P]IN DRAW © RETURN >o RETURN COPY RETURN INPUT COPY COPY COPY COPY COPY COPY SAVE ?g RETURN FOR INPUT SAVE COPY PAUSE HI DATA COPY COPY COPY COPY COPY COPY 8 REM [C][S]I FORMAT ? LOAD COPY COPY COPY DRAW HH LLIST I$[G]USR ,INT I$[B]& LPRINT CAT [B]9 LIST COPY COPY COPY COPY RETURN PEEK y BORDER BORDER VERIFY DEF FN SAVE © CLOSE #[A][C]z COPY COPY COPY COPY COPY COPY LN POKE BORDER rSQR [C] CIRCLE OUT DRAW © COPY RETURN [A][C]I▞l CIRCLE [C]I"I LPRINT USR p COPY ▜USR COPY COPY COPY COPY LPRINT IN } RUN STOP COPY DEF FN LPRINT `© LIST )!$[N]? COPY COPY COPY COPY COPY SAVE >=$ CONTINUE / COPY 8 COPY 6[C] DEF FN DIM AT ]$[C]D[F]USR LPRINT © BORDER RETURN ~©|▙ LPRINT COPY ▗?pRBI- COPY COPY COPY COPY COPY SAVE ERASE BIl COPY |/g[J]<>t[G] DATA RND$/.I$▞+ LPRINT COPY DRAW <= COPY ~©;▙USR COPY RANDOMIZE ?p< COPY COPY COPY COPY COPY SAVE [U]▗ DATA D[C], RETURN [C][A]RND*&[G]<>=BIN LOAD X[C]Iw LIST ©USR 9[P][P][P] STEP RETURN USR ? COPY RETURN @px LOAD :SQR [D]` COPY COPY COPY COPY LOAD SAVE <>[C]▞$AT DRAW > NEXT = TO %ACS PAUSE %$▞$LN DATA [C]$ DEF FN DRAW ?1[O]USR COPY [C]?VAL p PAUSE [C]C"C[Q]? COPY COPY COPY COPY USR [C] LLIST I4 DRAW >[E]%*%[G] DATA RND$ DIM IVAL RANDOMIZE $ISGN RETURN ?)[J] INK d DATA j CLEAR $' CIRCLE p POKE [C]32EVAL > COPY COPY COPY COPY COPY $$[B]$[C]VUSR [H]RND)t▙qp>H[G]x COPY ©88888888888899998888888888888@ COPY B@@ COPY ▗@ COPY COPY B@@ COPY B$ COPY COPY @ COPY A COPY COPY J COPY @ COPY A COPY @@ COPY COPY A COPY @ COPY @ COPY COPY D" COPY A COPY COPY @ COPY D@ !" COPY ! COPY "# COPY B$# COPY DE%&' RETURN ( COPY R+*, COPY @@,)- COPY @[Q]-+. COPY @0234 COPY @35 COPY 567 COPY A789: COPY 9 COPY 8 COPY 6 COPY 2 COPY @@=< COPY ;< COPY @A@BA COPY >? COPY ?A COPY @@=> COPY IHD COPY ACDEF COPY (FJ COPY AJLM COPY DKL COPY @EG COPY AGHI COPY @i COPY D[Q]OPiX COPY D@XY_ COPY @QP COPY QRSTQ COPY J[U]UR COPY U COPY [R]VS COPY V COPY _` COPY @@`a COPY ab COPY Ddcb COPY c COPY d COPY @YZ COPY @Z[ COPY @@TW COPY !^/ COPY D[/] COPY @] COPY @^ COPY @HWe COPY BAefg COPY g COPY hf COPY h COPY / COPY !p COPY A$pqrs COPY B@ts COPY [R]tu COPY @@uv COPY vw COPY Awx COPY A▝xy COPY $y COPY @@jk COPY $klm COPY mn COPY Jno COPY ▖@z COPY Bz{ COPY @D~}{ COPY @|} COPY ©~ COPY @© COPY B▗▝ COPY ▝▘ COPY B[T] COPY @▖▞ COPY ▜▚▖ COPY B▚ COPY @ COPY B▗@▜▗ COPY ▗ COPY B▛ COPY @▟ COPY ▝▛INKEY$ COPY @INKEY$▙ COPY @[M] COPY A[F][E][M] COPY [F][G][H] COPY @@[H][I] COPY A[J][I][K] COPY [K] COPY BD[N][L][G] COPY [L] COPY [C][D] COPY [A] COPY @D[A][B] COPY B[B][C] COPY [Q][P][O] COPY ▗RND COPY RND[U] COPY @[U][S] COPY [S][R] COPY @@[R][Q] COPY @[P][T] COPY VAL$ CODE COPY TAB VAL$ COPY TAB AT COPY ▗AT POINT COPY P@SCREEN$ POINT FN COPY @ATTR SCREEN$ COPY USR COPY AUSR IN COPY !PEEK SGN COPY DABS PEEK IN COPY (@CHR$ COPY @CHR$ STR$ COPY DSIN COS LEN VAL COPY BLEN ASN COPY @ASN ATN ACS COPY ACS LN COPY @LN COPY BATN EXP COPY @EXP COPY COS TAN COPY TAN COPY B[U]INT SIN COPY INT SQR COPY B SQR COPY ANOT BIN COPY BIN OR COPY AND OR COPY D<> AND >= COPY B▝ LINE <> COPY @ THEN LINE COPY D>=<= COPY <= COPY THEN CAT DEF FN COPY B CAT COPY A STEP DEF FN FORMAT COPY J! TO STEP COPY TO COPY @ FORMAT MOVE COPY MOVE OPEN # COPY @ MERGE OPEN # ERASE COPY CLOSE # MERGE COPY @ CLOSE # COPY BRIGHT FLASH CIRCLE COPY A CIRCLE PAPER BEEP COPY @A BEEP INK VERIFY COPY INK INVERSE COPY @@ INVERSE PAPER COPY @ OUT OVER COPY DDA LLIST NEW RESTORE DATA READ STOP LPRINT COPY NEW COPY RESTORE COPY DATA COPY READ COPY STOP COPY CONTINUE COPY AA CONTINUE FOR REM DIM BORDER COPY B BORDER COPY FOR LIST COPY @ LIST LOAD COPY ▝ REM INPUT COPY @ DIM GO TO COPY @@ GO TO GO SUB COPY LET COPY @@ LET PAUSE COPY PAUSE NEXT COPY A NEXT RUN POKE COPY @ POKE PRINT COPY @@ PRINT PLOT COPY A RUN SAVE COPY D@ IF RANDOMIZE SAVE COPY CLS IF COPY @ CLS COPY A DRAW RANDOMIZE CLEAR COPY @ CLEAR PI COPY @PI COPY DRAW COPY [R]/1 COPY "▖1N COPY ([Q]N COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN GO SUB COPY OVER O COPY LLIST PLOT COPY LPRINT INPUT COPY ERASE LOAD COPY NOT FLASH COPY BRIGHT OUT COPY M VERIFY COPY SGN STR$ COPY CODE VAL COPY ABS ATTR COPY FN 4 COPY :; COPY BC COPY .K COPY *0 COPY )l COPY [O] COPY [J]▙ COPY ▟ COPY [N][D] COPY ▞[E] COPY o▘ COPY r| COPY (j COPY 'q COPY % COPY & COPY COPY COPY $ COPY COPY SZ COPY DRAW DRAW CLEAR COPY CLS RETURN CLEAR RETURN IF CLS RANDOMIZE SAVE LIST LOAD ! !! INPUT ERASE R" LOAD ERASE OPEN #")"#" FOR #$$($%%'%&% GO TO + GO TO *+*/-/-.*,,., GO SUB 1 GO SUB 01151256060623(4 INPUT 34(3 BORDER OPEN # CLOSE #8 LLIST 8::;;<;>;H<=>?HM89 9FFGGJIJJKIL9@@AABBCCDCEMNNPNOPQ78/ SAVE /],] LIST ]^,^__ PLOT STT RANDOMIZE T RUN TUUVVWWXXYYZZ[`aabc RUN bcbddeeffgg PLOT m IF mnkljkjmiji PRINT o LET oqopp NEXT r PAUSE } NEXT |}}~{~{ POKE t PRINT tuuyuvvww PAUSE wxyzsty POKE © LET ©©▗▗▘h▝▘▝qr CAT FORMAT h FOR ▞▛▛ REM ▖▞▜▖▚▜▚ DIM [C] DIM [C][D][C][L][C][J][K][J][D][E][E][F][E][H][F][G][H][I][L][M][M][N]▙ CONTINUE REM ▙▟▟[B] CONTINUE [A][B][O] RESTORE [O][P][P][Q][Q][R][U]RND[R][U][R][S][S][T][T]INKEY$SCREEN$ POINT FN POINT INKEY$FN INKEY$PIFN ATTR ATTR AT TAB DATA AT TAB VAL$ CODE TAB VAL$ SIN BORDER LEN SIN VAL LEN SIN COS LEN TAN VAL RESTORE VAL NEW COS TAN LLIST ASN TASN NEW ACS READ STOP ACS `ACS SQR `ACS INT `ACS EXP ACS LN ACS ATN ABS PEEK SGN ABS ABS CHR$ ABS STR$ ABS IN CHR$ NOT NOT LPRINT STR$ READ USR DATA IN USR BIN OR OR AND AND <=<=>=>=<><> STOP <= LINE LINE THEN THEN DEF FN THEN TO TO STEP DEF FN MOVE DEF FN CAT LPRINT 0 @D@ @ @@ `@@0 ( @ UUUUUU=''=+=/=+"=/&=@FLRX 4 PRINT RND'[F]+[F]RND'RND+ OR /[F]' PRINT 88bf:``,2"" GO TO |&@@F<4LDDN><F^@F<~f .0 ``6ND<~``,2""nll8`d(80"&`` f| VERIFY DIM II[Zlr""&,$BBf<lr"<``6ND<lv 8d0b<00x f|6fDDN6f&" FLASH [I*>b44b6fD8~f6| COPY 2 COPY 1)--+▗-+USR -▘-+-+---+-3-+ COPY /-+-33- COPY 3-+▚3+▜-+▖-+-+ CLS COPY 0 COPY - COPY OR [D]E3E-E3E-E-E-08[C] CLEAR EXP 5E?-@E'-*5E$-7E1 5▜▖ 5?|@-:<▜▖:&<|@[E] OR <▚2 E?-(:<▜▖(:<|USR [B]#:E?-2@ OR RETURN [F]S*8E7-U*@[G]U*@|USR @▚U8@▜▖U86@|@[E][# E6-^8EO-_$:▜▖_$:|USR ,[B]` 8 CLEAR [H]a"8[G]a"8| RETURN [I]|c4@EG-d@E6-f$ OR [K]g 0E5-h E-n:F RETURN }@3o @ RETURN [I]p8E-t*8EO-xD RETURN [H]y#2E-|@tt|@|@-~4 OR ▛8y8|@3▘E- @EF-!8@EG-"(8EG-& [L]USR [B]'8EG-'CEF-("@ CLEAR [M]+@}▖+@|@-+@|@-, 8 OR ▛-B▞-B|USR ▚.@▜▖.@F|@[E]1: OR 02: 4[A]>=([B]5,▟5,0|STR$ 4[O]▚ E3▖5D▜▖▖5D|@-▞ 3H▜▖▞ 3H|▖▞ 3H|USR D▚▛9k▛9|USR H▚▙▟}-"8E-[A]0E-[F]8k[F]8|USR -[G]|@0[L]48R@-[N]0E-[O]<INKEY$PI[O]<|▘ RETURN }|[O]4|USR L[B][P] <LINKEY$PI[P] <L|▖ CLEAR [M][S] RETURN ©@-[R]▟ RETURN }|[U]▟ RETURN }|RND$E-INKEY$$ OR [N]FN FN SCREEN$ |USR .SCREEN$ 4 RETURN [I]|VAL $ E-COS 4▜▖COS 4|USR TPPOINT @[B]COS 4|@-ASN $4▜▖ASN $4|@PSCREEN$ USR T[B]ATN "8X▜/▜▖ATN "8X|/|USR `[B]LN :vLN :|USR X▚EXP # OR /▚INT E-SQR E-SGN : RETURN [M]ABS @8d▜▖ABS @8d|@-PEEK $: CLEAR [M]USR ▟▘ RETURN }|CHR$ OR dATTR BIN 8kBIN 8|USR h[B] TO 8E- FORMAT <hINKEY$PI FORMAT <|@/818l▜▖818l|USR pAT 9 OR RETURN [N] RETURN [S]STR$ [S]7:TAB 78p|>= [B]?: RETURN VAL$ ?: AND tVAL LN @$ OR [A]xCOS LN @ RETURN ©|D E-E@ RETURN }|E: FORMAT |USR [E]|LEN LN E:yH: RETURN vH:| RETURN [I]|H8 RETURN vH8|USR l▚K$4 OR TAN L<INKEY$PIL<|▘ RETURN [I]|L<|USR ▖▗SIN LN M08 CLEAR VAL$ PE-Q :tASN xASN |[A]ASN ▗[E]ASN ▖ACS CLOSE #T:ATN ▞ATN COPY COPY COPY COPY LINE :P FOR O NEW LINE ▘ ERASE y NEW LINE THEN :LEN REM RETURN SAVE ( RETURN CONTINUE (> SAVE >>G: MERGE REM W: CLOSE # STEP 9>2VAL ▛> 2CODE ▛!@▗ STEP NEXT ▝>2CODE ▛>▚!@@ STEP NEXT ▝>2CODE ▛>2VAL ▛ IF ▚!P STEP NEXT ▝>2CODE ▛>INT ▖!^@ STEP NEXT ▝>!P"TAB ▛2AT ▛[K]▞>2CODE ▛>2VAL ▛*TAB ▛ STEP NEXT ▝:AT ▛=(2AT ▛*TAB ▛#"TAB ▛ FLASH ! BEEP W6#6 COPY ! RUN P[K]▛>2CODE ▛>2VAL ▛ STEP NEXT ▝>2CODE ▛>2VAL ▛ PAPER ▞!P STEP NEXT ▝!X60#60#60# PRINT !BX# CLS #### PAUSE !X6 #6 !=X6 !X6 #6 # RUN ![O]X6(!PEEK X6(! OVER X6(!X6# CLS !)X CLS !X68#68!/X68#68#! X 6 CLS !Y60![R]Y6 !X6 #6 #6(#6 #6 !%X6 #6 !X68#68!X6!9X6!X6!;X6![Q]Y6!USR Y6#6! LPRINT Y6#6!Z6#6#6#6#6# POKE !!Z6! STOP Z68#68#68#68!Z68# CLS !Z68!IN Y68! OUT Y68! RETURN Y68#68!Z68#68#68!Z68#68#68!=Z68#68#68!]Z68#68![L]Z6(!INT Z6(#6 ! PAPER Z6 !?Z 6(6(6(6 6 >2CODE ▛>2VAL ▛!_▘"BIN |!b@ STEP '▘>2CODE ▛>2VAL ▛!©▘"BIN |!}@ STEP '▘>2CODE ▛>2VAL ▛!▜▘"BIN |!]@ STEP '▘>2CODE ▛>2VAL ▛!g▘"BIN |! STOP H STEP '▘>2CODE ▛>2VAL ▛!w▘"BIN |! CLEAR H STEP '▘>2CODE ▛>2VAL ▛!▘"BIN |!C@ STEP '▘>2CODE ▛>2VAL ▛!o▘"BIN |! READ H STEP '▘>2CODE ▛>2VAL ▛![H]▘"BIN |!B@ STEP '▘!BX# CLS #### PAUSE "BIN |!cX# CLS ###### LIST *BIN |# CLS #### PAUSE *BIN |## CLS ###### LIST >2CODE ▛>2VAL ▛[P]▘! READ @ STEP NEXT ▝>2CODE ▛>2VAL ▛w!<>@ STEP NEXT ▝>2CODE ▛>2VAL ▛©! FORMAT @ STEP NEXT ▝>2CODE ▛>2VAL ▛▜! CLOSE #@ STEP NEXT ▝>2CODE ▛>2VAL ▛PI!ASN @ STEP NEXT ▝!ASN X6! CLOSE #X6>2CODE ▛>2VAL ▛ATN !H STEP NEXT ▝!Y6#6#6#6!▟@>2VAL ▛2CODE ▛ BEEP STEP NEXT ▝!y@>2VAL ▛>2CODE ▛ OUT STEP NEXT ▝!@>2VAL ▛2CODE ▛ SAVE STEP NEXT ▝! LINE X6! LINE @>2VAL ▛2CODE ▛▗ STEP NEXT ▝!POINT X6!POINT @>2VAL ▛2CODE ▛▗ STEP NEXT ▝! LOAD X6! CAT X6>2VAL ▛>2CODE ▛!▗"BIN |! CAT @ STEP '▘:SCREEN$ ▛_:ATTR ▛W<>>2SCREEN$ ▛ STEP [▝> STEP j▝!!@CHR$ ▛ GO SUB SUSR ▛ STEP y▝!C@ STEP y▝![R]@ STEP y▝! LLIST @ STEP y▝!!H STEP y▝!aH STEP y▝![T]H STEP y▝▘ GO SUB SUSR ▛! LLIST H>2AT ▛"SQR ▛ STEP y▝*SQR ▛######"SQR ▛:AT ▛=2AT ▛ CONTINUE RETURN RUN GO SUB x PLOT LPRINT RETURN COPY (!SIN ▛PEEK (## RANDOMIZE :SCREEN$ ▛ RETURN ( STOP <#~2SCREEN$ ▛> OPEN # RETURN RETURN f▗ NEW AND `G> OPEN # RETURN RETURN NEW :SCREEN$ ▛![R]X@ 6 CAT PRINT RETURN IN GO SUB x PLOT RETURN RETURN COPY ([J] STEP [▝ RETURN IN GO SUB x PLOT RETURN RETURN COPY PRINT > STEP j▝[K]!@ STEP y▝COS !NOT @ STEP y▝ RETURN IN GO SUB xO PLOT RETURN RETURN RETURN >(y PLOT RUN RETURN COPY ( FOR STEP [▝ STEP !>=H STEP y▝>2ATTR ▛ RETURN ( STEP [▝<>!@6#{SIN SAVE <>!XOq#{SIN RANDOMIZE <> GO SUB [USR ▛ GO SUB SUSR ▛2ABS ▛"PEEK ▛ GO SUB [USR ▛ GO SUB SUSR ▛*6/_ CLEAR FOR *PEEK ▛Lw$ IF ,a"PEEK ▛:ABS ▛=2ABS ▛ FORMAT <>O NEW 8G!BX>2VAL ▛>2CODE ▛~▝ NEW _~ NEW 8COS w#:CODE ▛= FOR OPEN # RETURN ####:VAL ▛= CIRCLE <><>L:CODE ▛2LEN ▛aw$ IF ,:LEN ▛=2LEN ▛ GO SUB :CODE ▛G>![A]-o0y AND O:VAL ▛=2VAL ▛ DEF FN <>L:CODE ▛2LEN ▛a GO SUB [BIN |w$ IF ,:LEN ▛=2LEN ▛ DIM :CODE ▛G>![A]-o0y AND O:VAL ▛=2VAL ▛ LINE <>USR LIST LIST USR LIST USR LIST USR LPRINT FORMAT CONTINUE PAUSE PRINT CLEAR COPY Uu COPY GW COPY COPY ©[P]/# COPY INT SCREEN$ * COPY COPY POKE LIST FORMAT >= LPRINT © COPY COPY COPY COPY USR SAVE RETURN ?© COPY © COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY USR LIST DRAW COPY COPY COPY COPY @ LPRINT LIST DRAW COPY © COPY COPY SAVE COPY COPY COPY COPY BEEP OUT COPY LPRINT SAVE COPY USR USR USR USR USR USR USR USR ? COPY COPY COPY © COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LPRINT PLOT COPY COPY COPY COPY USR LPRINT COPY COPY LIST COPY COPY g COPY COPY DRAW RETURN COPY COPY COPY COPY COPY BORDER BORDER BORDER BORDER BORDER BORDER USR USR USR USR USR USR USR USR LLIST COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ` LPRINT LPRINT LIST LIST LIST SAVE RETURN USR USR DATA POKE DRAW BRIGHT TO GO TO USR USR SAVE DRAW COPY COPY COPY COPY ▝ COPY COPY COPY ? COPY COPY COPY COPY 8xxxx800USR 0U RETURN SAVE NEXT LPRINT BORDER BORDER BORDER CLS [P]▜COS A=ABS EXP COPY COPY COPY COPY COPY SAVE BIN " COPY COPY COPY COPY COPY ?O'/ OUT OUT / COPY COPY COPY COPY DRAW CLS IF DATA <=} COPY DRAW NEXT COPY COPY COPY COPY COPY ? OUT LOAD COPY SAVE NEXT BORDER CAT OUT OUT OUT COPY ©SQR ▜IN IN IN COPY COPY COPY COPY COPY DRAW LET NEW [O] COPY LIST ▜8Cg COPY COPY [L] COPY COPY `▜ COPY COPY COPY COPY COPY ©? LPRINT >=▗>>#A▝||8 COPY COPY COPY COPY COPY RETURN RETURN LET COPY USR COPY [M]#@ COPY RETURN USR 0<> COPY COPY SAVE <=1 INPUT COPY COPY COPY ©[P] BORDER ; COPY ©?[P] CAT LPRINT COPY COPY COPY [P]skk LIST COPY RUN NEXT NEXT CAT ? COPY COPY RETURN RANDOMIZE RANDOMIZE RANDOMIZE SAVE DRAW LIST CLEAR READ READ RANDOMIZE DRAW CAT COPY COPY NEXT LOAD LOAD COPY COPY COPY LIST DATA GO SUB STOP 1 COPY GO TO LLIST ATN LOAD DATA c▘ LOAD INVERSE !) POKE PAUSE COPY IF IF COPY RETURN DRAW LINE MERGE DRAW AT ATTR RANDOMIZE ,% ERASE SO?© COPY COPY k OR CONTINUE SAVE CLEAR RETURN COPY RETURN RANDOMIZE ▙ TO [J]/ COPY DEF FN ^?© COPY COPY COPY COPY COPY ©?[H] BORDER COPY COPY COPY LOAD LOAD LOAD LOAD LIST COPY COPY COPY OUT OUT IN IN © COPY COPY COPY RETURN DRAW RANDOMIZE PAUSE GO TO OPEN #[P] COPY !CHR$ ' OUT [I]▘ DATA LET CLS `@ COPY COPY COPY h8'CODE OUT OUT ▝© SAVE COPY COPY COPY COPY ▝[B] THEN CONTINUE LPRINT RESTORE GO SUB RUN ▟ OPEN #oo OUT LIST COPY COPY COPY COPY ▝b>= DATA LET CLS COPY 5 DRAW COPY COPY COPY @' OUT @ CONTINUE LET CLS ©IN _'TAB RETURN LPRINT BRIGHT BRIGHT DEF FN NEW COPY COPY COPY ©©©©><=NOT [O]<~noIN © NEXT BORDER RUN {? COPY LIST USR IN [P]<= CLS RETURN RETURN RETURN COPY COPY COPY ATN SGN FORMAT USR COPY COPY RETURN > THEN %D+E+ PLOT POKE NEW DATA NEW CLOSE # AND BRIGHT #'//???? NEW CHR$ STEP FORMAT BORDER CONTINUE LET IF ???IN ©? OUT DRAW COPY COPY SAVE DRAW SAVE RETURN IF w▜NOT CLS q9ASN LEN RETURN RANDOMIZE DRAW SAVE DRAW SAVE DRAW IF LEN SGN SIN VAL LN ASN 1; COPY RANDOMIZE CLEAR DIM GO TO CONTINUE TO >=SQR 37/???? GO TO ▖ GO TO ▖ GO TO DATA ▗????????SIN CHR$ [J] LLIST BIN CONTINUE LIST RUN ????IN ©? SAVE SAVE CLEAR RETURN RETURN COPY RANDOMIZE DRAW LOAD FOR ▝SGN SAVE DRAW SAVE DRAW SAVE DRAW SAVE DRAW ` > -#/ SAVE DRAW SAVE GO TO >= TO CONTINUE [E]????==91▜[D][U]<> ERASE PAUSE IF COPY a▜W_©©[P] COPY CLS CLS CLS CLS PRINT PRINT PRINT [P] PAUSE PAUSE LET LLIST LPRINT LPRINT LPRINT LPRINT COPY COPY ©?IN _/ LPRINT LPRINT LPRINT LPRINT LPRINT LLIST NEW FORMAT +K▛ LPRINT LPRINT LPRINT LIST LIST LET PAUSE RETURN +E▗ COPY COPY COPY COPY COPY © COPY COPY COPY COPY CLS CLEAR DRAW RETURN COPY COPY COPY COPY COPY COPY ©? COPY COPY COPY COPY COPY RETURN CLEAR CLEAR COPY COPY COPY COPY COPY USR LPRINT LET RANDOMIZE LIST SAVE LIST SAVE LIST SAVE ▝▙ LIST COPY <=gS▞ IF LIST LIST DRAW ' LET ? CAT gFINKEY$ MERGE GO TO CLEAR CLEAR CLEAR CLEAR CLEAR RETURN RETURN RETURN LPRINT LPRINT `j MERGE COPY © LIST SAVE LIST SAVE LIST SAVE LIST SAVE HSGN © COPY RETURN RETURN RETURN NEW CLEAR RANDOMIZE READ LOAD COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LIST SAVE LIST SAVE LIST SAVE LIST SAVE RETURN RETURN DRAW DRAW DRAW SAVE SAVE IF COPY COPY [P]?IN ? COPY COPY COPY COPY COPY COPY COPY COPY LIST LIST SAVE LPRINT USR USR USR USR LIST SAVE LIST SAVE LIST SAVE LIST SAVE NOT IN IN ©qsASN BORDER <=<=<= BORDER BORDER BORDER IN IN IN IN ? OUT OUT COPY COPY COPY COPY COPY COPY COPY COPY LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LIST SAVE LIST SAVE LIST SAVE LIST SAVE ABS ABS NOT COPY COPY RETURN COPY COPY NEXT READ BORDER CAT ?©©© COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LPRINT SAVE DRAW BORDER LPRINT LPRINT LPRINT LPRINT LIST LIST LIST LIST LIST LIST LIST LIST LOAD CAT O DEF FN TO TO COPY COPY OUT OUT INK INK COPY NEXT NEXT COPY COPY 3COS COS COPY COPY COPY COPY RETURN == LPRINT LPRINT LPRINT LPRINT ` LPRINT LPRINT LPRINT LIST LIST LIST LIST SAVE COPY COPY COPY ? COPY COPY COPY TO TO TO COPY COPY DRAW CLEAR DRAW INK > COPY COPY COPY COS 33IN IN ? RETURN =[N] STEP CLEAR DRAW RETURN COPY COPY LPRINT LPRINT LPRINT USR MERGE SCREEN$ COPY COPY LOAD BORDER ▜ READ READ RESTORE CC+C RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE RANDOMIZE SAVE SAVE CONTINUE +C-1STR$ ▝▝>=▗▗▘p▜▝▘x LET $ ERASE )▗STR$ bTAN [B]SIN TAN VAL DATA LLIST [D] CLOSE #H▟ NEW STOP READ LIST LIST LET NEW SAVE SAVE DRAW DRAW RETURN COPY RETURN COPY 0(aS▜O COPY RETURN RETURN RETURN RETURN DRAW SAVE LET ??© COPY COPY COPY NEXT BORDER BORDER CAT DEF FN INVERSE FLASH MOVE COPY COPY COPY COPY ?[P] CAT CAT FLASH FLASH FLASH OUT OUT BORDER LIST COPY LOAD LOAD LOAD CAT [P]?© COPY COPY COPY DRAW SAVE LET READ READ <= COPY COPY © COPY COPY COPY COPY COPY <=<=<=NOT NOT LET SAVE RETURN COPY CLS CLS CLS NEXT NEXT BORDER g COPY COPY RUN MERGE RUN RUN BEEP RESTORE <><> THEN OPEN #[D]PIG PLOT RETURN DRAW SAVE LIST LET STOP USR %E▞▞[D]##G COPY COPY COPY COPY COPY SCREEN$ U COPY COPY USCREEN$ COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY © COPY COPY COPY COPY DRAW RETURN IF IF COPY COPY COPY COPY COPY COPY COPY COPY RETURN RETURN RETURN DRAW ▖[A]"G/O?ATTR W COPY COPY ©[P]<= NEXT RANDOMIZE DRAW PEEK CAT PRINT LPRINT LIST LIST LIST NEXT > CAT oCODE PI#! 8 DRAW SAVE SAVE LIST LPRINT LPRINT USR USR D"$▞'© COPY COPY COPY COPY COPY COPY COPY © LOAD RUN NEXT LET SAVE DRAW RETURN COPY ▘USR READ POKE SAVE p NOT @▝▝▚? COPY CAT >~ DRAW DRAW DRAW RETURN IN ??©©©??? COPY COPY COPY COPY COPY COPY COPY COPY CAT COPY COPY COPY COPY COPY COPY LIST DRAW RETURN RETURN COPY COPY ?@ RETURN RETURN RETURN RETURN RETURN ~???==} CLEAR RANDOMIZE RANDOMIZE LET © COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN RETURN DRAW SAVE LIST LET NOT COPY RETURN DRAW DRAW SAVE LIST LPRINT USR <| DRAW ?©IN ???>> LLIST NOT ▜? COPY RETURN DRAW SAVE LIST LIST LPRINT LPRINT ??©© COPY NOT USR LPRINT DRAW COPY COPY COPY COPY RETURN RETURN USR RETURN COPY >>▙ CAT 7 READ ??©©©©?IN ' COPY LPRINT LPRINT LIST LIST SAVE DRAW RETURN COPY COPY COPY COPY COPY ©? COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RESTORE >= BRIGHT PEEK RETURN DRAW CLEAR COPY OUT LOAD w?c INVERSE OVER CIRCLE 0>rSIN PAUSE PAUSE RUN CLS CLEAR RETURN PRESS 1-4 TO CHANGE OPTIONENTER TO START PROGRAM1 KEMPSTON JOYSTICK (PORT 31)2 AGF JOYSTICK (CURSOR KEYS)3 SINCLAIR JOYSTICK4 KEYBOARD SET UP AS FOLLOWSUP DOWN LEFT RIGHT FIREASDFGZXCVBNMS/SHJKLPRESS ENTER FOR NEW GAMEPRESS LOAD FOR SAVED GAMELOAD SAVED GAME GAME LIST ATTR SCREEN$ !P STEP 3[S]!X60#60#60# PRINT !BXNOT VAL$ STEP P[J]>=[J]:[K]POINT [K][L]}[L] PRINT [L]d[M] MOVE [M]8[N][F][N]<>[N] CONTINUE [N][O]D[O][G][O] DIM [O][P][P]0[P]D[P]e[P]▗[P]TAB [P] POKE [P]6[Q]N[Q]c[Q]▝[Q][L][Q] BRIGHT [Q] LIST [Q][R]([R]A[R]e[R]©[R]PI[R] STEP [R] PAPER [R] LOAD [R] DRAW [R][S][S]![S]B[S]a[S][S]FN [S] LINE [S] GO TO [S]3[T]z[T]CHR$ [T][U]Q[U][N][U] INK [U]RNDNRND[C]RND INK RND!INKEY$VINKEY$[E]INKEY$ CAT INKEY$HPI AND PIHFN ZFN mFN FN [P]FN SQR FN BEEP FN INVERSE FN $POINT ZPOINT ▜POINT VAL$ POINT MOVE POINT NEW POINT GO TO POINT #SCREEN$ [SCREEN$ [A]SCREEN$ LN SCREEN$ ATTR /ATTR kATTR [D]ATTR LLIST ATTR AT AAT qAT [F]AT >=AT IF AT >TAB bTAB ▖TAB [M]TAB [S]TAB READ TAB -VAL$ ]VAL$ VAL$ SGN VAL$ BORDER VAL$ POKE VAL$ INKEY$CODE LIST CODE COPY CODE VAL AVAL [VAL qVAL VAL [U]VAL PEEK VAL BIN VAL LINE VAL CONTINUE VAL RANDOMIZE VAL LEN .LEN TLEN hLEN |LEN [H]LEN SQR LEN LPRINT LEN SIN SIN ESIN ^SIN rSIN ▜SIN [P]SIN LN SIN NEW SIN ,COS /COS fCOS oCOS [H]COS [T]COS THEN COS PAUSE COS TAN @TAN dTAN TAN VAL TAN CHR$ TAN PAUSE TAN :ASN fASN ASN COPY CLEAR BORDER 4|l( AND AND SCREEN$ INPUT [C] RETURN BORDER 0(h PLOT RUN >ww RUN READ LPRINT l3} RETURN COPY IN 7Z[ RETURN RUN >=▖p IF NEXT sw BRIGHT CIRCLE OPEN # CAT RUN RANDOMIZE n3[I] RUN INT POKE POKE tDHW BEEP VAL$ AT XP@ PLOT RUN RETURN BORDER (888tpxP`t`P DRAW J|t`[M] INVERSE INVERSE GO SUB NEXT CLS SQR [j LET ▟{ DRAW RETURN COPY COPY COPY OVER OUT OUT CAT BORDER (8x SAVE CONTINUE FORMAT FORMAT FORMAT [A][A]P CLOSE # VERIFY VERIFY [E]P FORMAT P[A] FORMAT LPRINT p[A] FORMAT POKE RANDOMIZE DRAW NEW (@@ LPRINT LPRINT LPRINT LIST LIST CIRCLE CONTINUE LIST POKE GO TO DRAW LPRINT VERIFY OVER CIRCLE CLOSE # DEF FN NOT OUT IN 0© COPY CLS PLOT VERIFY VERIFY VERIFY TAN $ NEW (88PP FORMAT FORMAT FORMAT FORMAT FORMAT PP[A][A][A][A] FORMAT FORMAT LPRINT LPRINT LPRINT LPRINT LPRINT LIST POKE SAVE DRAW NEW (bATN wr IF IF : PAPER OVER PEEK RETURN PEEK LIST PLOT POKE POKE NEW [L]ABS >~~nnvw{xsO© COPY COPY COPY RETURN zu<>[J] RANDOMIZE `p DRAW CONTINUE LPRINT LIST LIST ppP FORMAT FORMAT FORMAT @ NEXT NEW @ LPRINT LLIST @@ CLS NEW x DRAW SGN >>6*+;7©w©c LIST PLOT SAVE PLOT [P][P] LINE FORMAT OUT USR OUT IN IN P]^_gx© COPY OUT OUT OUT PLOT LPRINT LPRINT LIST LIST CONTINUE TO , INPUT .a LOAD LOAD ~ RETURN IF LN FN FN NEXT NEW @ LPRINT LPRINT @@@@@@@@@@`` CLS NEW =?=?_ LET PLOT 8< RANDOMIZE PLOT 7 RUN RUN LOAD LOAD OUT RUN RANDOMIZE RETURN COPY COPY wSQR TO PLOT USR USR USR LPRINT `[Q][Q]@XLN |tp||SGN USR p LIST LIST LIST LPRINT LPRINT NEXT NEW ' CLS NEW (.7©©X{ CLS cin[P] COPY RETURN CLEAR CLS RUN o CLS DRAW COPY COPY ATN ATN ATN COS [D] RUN @USR GO TO LPRINT GO TO GO TO GO TO CONTINUE LPRINT `` LPRINT LPRINT LPRINT `@ NEXT DRAW CLS NEW (&RND}]▟z{wwo[L]SQR EXP RND}~PEEK PEEK YIN OUT LOAD ATN X NEW ( pp0LN LN 8FN FN FN FN FN FN FN PP@XX///XX0(# INK (©▝▝▝▝▝▝▝9)▝▝▝▝▝▝© INK ( DRAW ▝ TO COPY FLASH COPY TO ▝▝▝▝▝ TO COPY FLASH COPY TO ▝▝▝▝ RETURN INK COPY LLIST DRAW PRINT DRAW COPY INVERSE +USR 0#!!!!!!!!!STR$ 1 INK +USR VAL ▖USR LIST CIRCLE SAVE VERIFY ▖▖▖▖▖USR LIST CIRCLE SAVE VERIFY ▖▖>=8 INK /USR [Q][A]X▗ AND STR$ RESTORE LLIST MOVE ▝▝[R]▝RND▝RND[R]▝▝TAB ▞RND▝STR$ STR$ RESTORE LLIST MERGE ▝▝▝▝▝▝[R][R]E! LIST CLEAR RETURN SAVE CLEAR RETURN CLEAR LOAD DRAW !!!! OUT ! LIST LIST STR$ 1 SAVE POKE CHR$ 2BIN 4 RANDOMIZE >=8! MOVE 0`VAL ▜▗▗▗▗▗▗▗d[M]▚▝`[I]▚▗▗▗▗▗▗▗▗d[M]▚▝ LET MOVE n[B][B][B][B][B]n RANDOMIZE MOVE INPUT INPUT MOVE INPUT INPUT MOVE / INPUT INPUT ! PRINT AND LPRINT [I][G][B][B][B]Q1 CLEAR <>` MOVE 1 STEP 3` MOVE 1 SAVE CLS COPY COPY © COPY AAAA COPY IF CLS COPY ▝▝▝▝ COPY RETURN COPY ▝▝▝ COPY SAVE CLS COPY COPY CLS RETURN ▘▘▘▘ RETURN LIST CLS COPY ▝▝▝▝ COPY RANDOMIZE COPY ▝▝▝▝ COPY LIST RETURN SAVE SAVE RANDOMIZE @[Q][Q]INKEY$INKEY$&) RETURN [A]HATN DRAW @`RR▟! LIST LIST [A]r SAVE POKE CONTINUE SAVE Hw IF USR (! CLEAR LLIST DATA RETURN SSCC LET CLOSE #[G]1; INK u LET CLOSE ##© LLIST RANDOMIZE OPEN #?| OPEN #B RETURN < CLOSE #,Ar DRAW ! PRINT >=[A]~ CAT ▝ CLEAR TO [Q]v DEF FN /USR LPRINT IF CODE ZXP RETURN KEXP VAL [Q][Q] SAVE CLEAR ;;;l▘ COPY (SGN RND<= RUN COPY ©^RRRRR COPY @ CLS RUN ATN [H][C][C][C] CLEAR SAVE ▟[F][F][G] ERASE ````` @@`` STOP RNDATTR [H]! PLOT BEEP [Q]/f $x RETURN DATA !USR LPRINT USR [Q]USR @dL<,j AND <= LLIST FORMAT `0",56sa840VAL LIST LIST ▘ CLEAR RANDOMIZE 8|T|% RETURN ~>808 CLEAR RANDOMIZE 8|T|/ RETURN xxx88p▘ SAVE RANDOMIZE d▗t IF 0,#,0USR ▖ SAVE DRAW ;<=; DRAW LPRINT BRIGHT READ BRIGHT LPRINT SAVE IF =?OO? IF LIST pxx|| DRAW DRAW DRAW SAVE SAVE USR RANDOMIZE ?N:r DATA USR SAVE RANDOMIZE 'N][N]ABS PEEK LN PEEK [O]^F# RANDOMIZE LPRINT DATA rINT EXP ABS }}yzbBIN LPRINT SAVE RANDOMIZE E/?_8 CLS CLEAR = RETURN >M RANDOMIZE H CLOSE # DRAW CLEAR RETURN CONTINUE LOAD OVER [I]PEEK LN SGN OUT >= DRAW CLEAR <~ BORDER NOT NOT BORDER ~< DRAW SAVE >kk©"> DRAW CLEAR 4r LET N, DRAW CLEAR [I][I]~~0 DRAW CLEAR NY|>[K]r DRAW CLEAR >ABS ABS | SAVE RANDOMIZE ?|gO[P][M]8<> RANDOMIZE USR LIST | TO GO TO PLOT v NEW TO DRAW SAVE LPRINT SAVE CLS ?<89=< RANDOMIZE 0[I] TO GO TO ll TO SAVE LIST LPRINT SAVE RANDOMIZE 9rvw730 RANDOMIZE [M]SGN <x SAVE LIST USR LIST LPRINT SAVE SAVE a#738> RANDOMIZE [G][M]< POKE DRAW SAVE LIST SAVE SAVE {'238? SAVE USR LPRINT 0[M] NEW v RETURN SAVE LIST SAVE IF =rffc3 IF SGN ~ DEF FN DEF FN dh(TAN t| SAVE USR SAVE LIST VVTCG LIST STOP P+//yyy LET LIST LIST LIST LIST FORMAT `pppppPPPhh[A](@[A] SAVE LIST LIST LPRINT p #(:7wvrrbb[Q]VAL VAL VAL VAL VAL VAL LN FN FN LN [A]@[A] SAVE LIST , LIST LPRINT <zxrrrrRbrx SAVE SAVE CONTINUE CONTINUE CONTINUE >=▖ POKE AT [E] READ RANDOMIZE GO SUB !ORND BORDER RNDINKEY$INKEY$ DATA DATA RND FOR DEF FN W< GO SUB ! LPRINT LPRINT LIST LET LET <=CODE o READ ln>SGN BRIGHT LPRINT | DRAW AT DRAW PUSR 0pppxx RANDOMIZE INPUT HO% BORDER RESTORE INKEY$[U]RND DATA RESTORE ATTR REM G[<<| DRAW GO SUB ![A][Q] LPRINT `` LPRINT LPRINT DATA DEF FN VAL G OUT _▙&d AND INPUT LPRINT AT DRAW P>=xpppp LIST RANDOMIZE GO SUB #N BORDER RND BORDER RNDPI[U] BORDER RESTORE PI NEW jN< GO SUB ! [R] LLIST READ o OUT OUT BORDER STOP >=[M]^PEEK PEEK PI GO TO LPRINT xT DRAW AT RETURN @SGN GO TO <<<8 READ SAVE LIST ` CIRCLE DATA INPUT PLOT IF z: CLEAR CLS SAVE OVER SGN p LPRINT USR [Q]p0| SAVE LIST 0XX( LIST p=C#`PLN BRIGHT TO SGN `[M]|~ CIRCLE VAL ` LPRINT LPRINT P8 SAVE LIST <` RUN USR VAL P TO GO TO POKE DATA REM j[H]V OUT CONTINUE LPRINT VAL VAL [A] FORMAT USR `USR READ SAVE GO SUB LPRINT USR INKEY$[G] GO SUB USR USR LPRINT [Q][Q]` SAVE BRIGHT BRIGHT ,TAN GO TO l[M] GO TO GO TO GO TO DRAW ` SAVE GO SUB BORDER USR [Q][A]o` GO SUB USR USR LPRINT [Q][Q]p SAVE | INPUT INPUT INPUT OVER > RETURN PLOT PLOT PLOT RETURN SAVE CONTINUE CIRCLE [M]USR AND ▙ SAVE GO SUB BORDER USR [R][B]) GO SUB USR USR LPRINT [Q][Q]x DRAW L POKE GO TO BRIGHT LN x SAVE GO TO GO TO GO TO DRAW VAL [Q][Q][Q][Q][I][I]0 READ SAVE PAUSE x DRAW [O][O]|x LIST $ READ byIME▚▘▗ IF LPRINT VAL VAL FN PP` LPRINT VAL CIRCLE GO TO vACS ACS TAN CLOSE #THXp LPRINT USR USR ` SAVE PAUSE <~'' OVER /r08//.IC▚▟-+++3 IF LN /nw5UU[J] IF NEW l CIRCLE LN `USR p SAVE PAUSE x DRAW NNSGN LN DATA #USR 8,OL▞▛ IF LPRINT LN VERIFY [[+ VERIFY 6BIN q FORMAT [Q]``@`p[I] GO TO < DATA RANDOMIZE ' GO TO RANDOMIZE USR SAVE COPY |? POKE CLS LPRINT ©? CAT LET RETURN RETURN CLEAR {'? DRAW PAUSE ▝[N] COPY wcU"> COPY COPY COPY ATN <>wkPEEK SIN IN COPY kKS[H]INKEY$d22[K] IF CLS RUN [P]_IN _o PLOT RETURN SAVE SAVE p`@@[Q][Q][Q][Q][Q] IF COPY NEXT LIST RANDOMIZE p GO TO GO TO NEXT x[M] POKE PRINT LPRINT xSGN BRIGHT INPUT READ INVERSE ~ RETURN CLEAR ; DRAW LET "[M] COPY wc6"DPEEK ©PEEK ACS Iw▞PEEK ABS pp@D▗▞<> STEP m} LET " o OUT IN © COPY [P] LLIST ©~ SAVE LIST LPRINT VAL x CONTINUE FORMAT LN FN HP FORMAT FORMAT PP NEXT 8P[Q]` LPRINT LPRINT LPRINT LIST USR GO SUB RUN PRINT GO SUB '@ 00())u POKE PLOT NEW PLOT RUN CLS {{}}zv▙~? CLEAR PAUSE "9 COPY INPUT AND INPUT E} COPY }m[C] INPUT [C] GO SUB e COPY CLEAR ABS ABS MERGE MERGE MERGE [F]%TAB ▙&& GO SUB '8,l DRAW AND SQR SGN SGN LN LN LN LN xLN >= DRAW LIST LPRINT LPRINT USR USR @@@@@▜ CLEAR PRINT P$P CLEAR POKE (( CLEAR LIST (($$P$Q CLEAR LIST (B"(((** CLEAR LOAD ( dj* ]*P*$[K]X CLEAR LOAD [S]JPI)@:0H]J05@)[F]H" CIRCLE ▜ SAVE INPUT >89< BRIGHT ws INPUT |0USR 8 LPRINT 0 LPRINT 0USR 0USR [I]p TO NEXT [M]p[M]8 SAVE PRINT c/g9 OVER qvy PLOT USR USR CLS BORDER y DEF FN 0 DEF FN 0 STOP < RUN SAVE CLS .]3 CLS @ DATA [M]TAN LN CONTINUE p PAPER BORDER [K] NEW SGN SAVE RETURN 03/.7~ NEXT RETURN `0lpLN `[I] SAVE OVER SAVE COPY /^ LOAD COPY [A]` FORMAT CONTINUE [A]pSGN INPUT = SAVE BIN &3 INK 0 CONTINUE `0USR ▘ LIST LIST @0 LIST @8 LIST LIST 0 LIST GO TO IF LLIST COPY LOAD p POKE IF LPRINT DRAW SAVE BORDER DRAW IF <= RANDOMIZE JRND[F][F] COPY [F] COPY RANDOMIZE n/9 CLS SAVE SAVE © PRINT SCREEN$ ASN [P]USR IN FLASH LEN MOVE LEN MOVE LEN MOVE SAVE SAVE RETURN COPY WATTR U RANDOMIZE COPY _CODE _CODE _CODE _ GO TO SAVE @ COPY COPY COPY ///.,8 POKE SAVE COPY COPY COPY COPY COPY COPY DRAW SAVE COPY LOAD PIN @ COPY COPY COPY SAVE COPY COPY COPY COPY COPY COPY SAVE @ LPRINT SAVE COPY COPY COPY POKE POKE POKE t4 SAVE SAVE >d▖[B] STOP COPY CONTINUE h_YYYYY SAVE SAVE LPRINT <F▞/ COPY [O][G] VERIFY VVVV VERIFY LIST RANDOMIZE ?x NEXT ATN STR$ 1 SAVE IF USR LET DRAW DRAW POKE DATA ▗` RANDOMIZE >=~© CLEAR DRAW CLS ©8 SAVE , LPRINT c▜ LOAD SAVE LIST SAVE SAVE ?© COPY COPY SCREEN$ MERGE SCREEN$ MERGE SCREEN$ MERGE SCREEN$ MERGE COPY SAVE COPY CLEAR RANDOMIZE LET LLIST STR$ STR$ STR$ ASTR$ BBIN H FORMAT `USR LIST SAVE => COPY COPY COPY COPY COPY SAVE SAVE COPY USCREEN$ USCREEN$ COPY COPY COPY COPY COPY SAVE COPY USCREEN$ USCREEN$ COPY COPY COPY COPY COPY SAVE LPRINT pLN |PEEK RETURN RETURN RETURN RETURN RETURN PRINT RETURN 'J3, TO >= CLEAR CLS >©[P]USR <= STOP SAVE BRIGHT [Q]@ LIST [I]< NEW POKE CLS gg RESTORE PRINT PRINT PRINT PRINT ▟▖ DRAW CLS 544TAN TAN CLOSE # DRAW ▖[I][I][M][M]SGN DRAW DATA NEW NOT SAVE RANDOMIZE ©© OUT CODE BEEP SCREEN$ [F]B0 RANDOMIZE COPY COPY COPY RETURN MERGE SCREEN$ UFN DRAW DRAW IN © MERGE jT POKE ? BEEP DRAW RETURN COPY ▛▜K'k BORDER GO TO NEW GO SUB RANDOMIZE RETURN ▙^L BRIGHT TO BRIGHT TO SAVE USR POKE IF ??&&=} COPY COPY [J][J] DRAW RANDOMIZE TO Lc CLS CLEAR PLOT ACS 6 RETURN DEF FN DRAW USR USR USR LIST x DRAW DRAW [M][E][E] PRINT RANDOMIZE FJ REM INPUT LEN ▜ CLEAR SAVE USR LPRINT VAL VAL VAL VAL VAL VAL VAL FN FN AT AT [G]0xxx SAVE SGN SCREEN$ ATTR SAVE CLS JJJJJJ[ COPY IF [C][C][C][C][C][C][C][D] COPY COPY CLS JJJJJJ[ COPY IF [C][C][C][C][C][C][C][D] COPY COPY PAUSE IF © COPY COPY COPY COPY © COPY COPY ?© RANDOMIZE USR LPRINT DRAW DRAW COPY RETURN LET RETURN LIST LOAD IF ©▝ RUN SAVE LPRINT COPY COPY COPY SAVE LPRINT SAVE NEW p IF LPRINT DRAW COPY SCREEN$ CLEAR COPY USCREEN$ U COPY PSCREEN$ P▘ LET PRINT $*(!N[B] @ RANDOMIZE RUN @@ ? COPY © RETURN RANDOMIZE CLS ? RUN " POKE SAVE COPY SAVE ;SGN LPRINT `USR RUN `[I]▜@|0>= LET RUN |"A▝[O] RANDOMIZE PLOT @© COPY COPY CLEAR PAUSE COPY IN PLOT $ RESTORE IF DRAW SAVE s DRAW LPRINT RUN @[Q]▖@ ▖▚`▗ PAUSE SAVE ` SAVE ~#> IF DRAW H BORDER PRINT LOAD LOAD 7 IF [H];}PEEK LN ` SAVE 0 SAVE LIST LPRINT LIST =|` SAVE CLEAR CLEAR SQR FOR INVERSE A CLEAR USR _ INPUT FOR INVERSE STR$ COPY LIST SGN OVER SAVE CLEAR =j FORMAT USR USR LPRINT USR USR USR @@@` CLEAR USR P CONTINUE GO TO OVER + GO SUB COPY =` PRINT RETURN DRAW { LOAD _ CLEAR CLEAR D8ATTR }}SQR } AND RETURN ~ABS LOAD POKE LPRINT COPY LPRINT x<~ FLASH <> MERGE MERGE ©>▝ COPY CLS GO SUB VERIFY CLEAR OUT DRAW [M] CAT COPY DRAW COPY COPY © DRAW ▗ LIST USR ~ COPY DRAW COPY '>=0 LLIST RETURN SAVE LPRINT (? RANDOMIZE LPRINT LPRINT 0USR DRAW ©8 DRAW RETURN '!@0 LPRINT COPY ©H@? DRAW SAVE LPRINT P© COPY DRAW COPY ▞ LPRINT SAVE `©h RETURN LLIST x▝B< DRAW "FF$ DRAW COPY A[K]<Y▘ COPY DRAW COPY i NEXT E COPY DRAW COPY RND STEP [F]! COPY IF RETURN ` COPY LIST ` COPY SAVE FN FN SAVE CLS ©SCREEN$ [H]POINT RANDOMIZE ▞ LIST ▞ COPY COPY CLS COPY CODE WCODE COPY COPY RETURN SAVE SAVE SAVE & @ COPY COPY COPY SAVE COPY RETURN SAVE PLOT COPY 7o OVER STEP RETURN CLEAR PAUSE DATA CONTINUE CIRCLE LN x SAVE USR SAVE COPY 4n INVERSE COPY 1@ LPRINT LOAD SAVE COPY COPY CLEAR COPY COPY SAVE IF >© COPY RUN RETURN g BORDER COPY COPY RANDOMIZE SAVE DRAW INPUT RETURN RETURN RETURN RETURN COPY RETURN RETURN DRAW DRAW SAVE DRAW /__IN IN IN DRAW SAVE GO TO PLOT IF IF CLEAR CLEAR CLEAR COPY COPY NEXT DRAW k[M]ATTR H*"" SAVE RETURN p▖▖p COPY COPY SAVE CLEAR COPY D((D COPY DRAW @ COPY "" COPY @ CLS DRAW n©??©n RETURN USR USR USR USR SAVE IF q CLS CLS CLS CLS CLS CLS CLS q IF USR LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT & LOAD / AND SAVE CLEAR STR$ COPY © COPY CAT ▝ CLEAR LIST SGN POKE DRAW LIST DRAW RANDOMIZE $<<~ COPY IN ATTR ATTR ATTR FOR COPY COPY COPY ~ SAVE DRAW >_ PRINT OUT LOAD ! CLS :.PEEK [E]"▘ SAVE SAVE ''?'`p0 RANDOMIZE USR LIST ▖ LPRINT LIST [A]8 SAVE SAVE 15C'©OG`P` RANDOMIZE DATA ▖ LIST SAVE BIN ▚ SAVE SAVE XIN PEEK PEEK PEEK INT R" SAVE 2 RANDOMIZE }}}]JD@@@@@@USR SAVE RETURN ` COPY COPY COPY COPY ` CLEAR COPY SAVE SAVE :p@ LPRINT STR$ STOP MERGE REM PRINT ©©? SAVE LPRINT SAVE |PEEK ^IN _IN _IN COPY RETURN RETURN DRAW SAVE LPRINT SAVE 8USR SAVE n::``USR USR STOP RANDOMIZE CLEAR ?© COPY RETURN STOP PAUSE DRAW RANDOMIZE CLEAR COPY ©0 RETURN LLIST PLOT SAVE STOP SAVE 8USR SAVE n::``USR USR SAVE SAVE USR 8 RETURN USR USR ``::n LIST IF ??@© COPY COPY SAVE IF COPY COPY COPY COPY COPY COPY IF COPY COPY COPY COPY COPY COPY IF SAVE DRAW DRAW RETURN COPY COPY LIST POKE 80po OUT COPY SAVE POKE COPY COPY COPY COPY COPY COPY POKE COPY COPY COPY COPY COPY COPY POKE LIST LIST SAVE SAVE RUN LLIST [S][S] LPRINT [R][Q] RUN LPRINT ▘b!!!!ABBBBAA▝ SAVE RETURN p▖▖p COPY COPY SAVE SAVE ?©©©ammaa©? SAVE SAVE DRAW RUN COPY COPY ATN RUN ATN ATN COS COS COPY RETURN DRAW SAVE DRAW CLEAR 8| INPUT INPUT INPUT |8 SAVE SAVE ▜ DRAW CLEAR COPY © COPY LIST ||8 SAVE LIST [A][A] LET ?IN LIST DRAW DRAW DRAW xpp8▘ SAVE SAVE !``01={ COPY LOAD SAVE ▘▘ AND TO TO GO TO GO TO GO TO INPUT INPUT INPUT INPUT GO TO SAVE SAVE SAVE 8p LPRINT DATA dlm COPY SAVE B▗▗▙▙ DEF FN NEW tt0VAL TAN RETURN SAVE RANDOMIZE ;x DRAW RETURN COPY COPY COPY ~> RANDOMIZE USR LPRINT LIST SAVE DRAW RETURN ~>>~| SAVE LIST LPRINT USR SAVE RANDOMIZE w FOR INVERSE PLOT FOR }> RANDOMIZE BRIGHT VAL$ v OVER VAL$ | SAVE LIST LPRINT USR SAVE RANDOMIZE PAUSE DRAW RETURN RETURN ~< RANDOMIZE USR LPRINT px DRAW [O][O]~ RETURN RETURN DRAW xVAL LPRINT USR SAVE RANDOMIZE <| DRAW USR LPRINT LIST |> RANDOMIZE USR LPRINT LIST SAVE | RETURN p LPRINT USR SAVE CLEAR `USR USR COPY COPY USR USR ` COPY COPY PLOT IF !F[I][Q] CAT [Q][I]F! RETURN IF RETURN Q# OUT #Q RETURN CLS USR >=([I](>= USR SAVE DIM * DIM SCREEN$ SAVE COPY ©U REM INVERSE PAPER VAL BRIGHT COS OPEN #LN PAPER VAL$ OUT VAL$ OUT ©© COPY SAVE TSCREEN$ V+77▜ OUT COPY COPY COPY RETURN SAVE SAVE RANDOMIZE © COPY COPY COPY COPY ©? RANDOMIZE DRAW RETURN RETURN RETURN RETURN DRAW SAVE LIST LPRINT USR SAVE CLEAR COPY |88| COPY DRAW USR COPY >> COPY USR COPY >2* FORMAT !QLEN ~ NEW 2) FORMAT #"- FORMAT RETURN © GO SUB x PLOT LPRINT O*=/ RANDOMIZE LLIST !HIN RESTORE RESTORE NEXT STEP |!IN s#rzATN (.! INVERSE /6a#6v#61#6 CLS 6C<>/ STEP =2 OUT /CODE 2 RANDOMIZE / STEP =*=/ RANDOMIZE LLIST !c<= RESTORE :IN RETURN ! FOR RETURN ! FOR RETURN !3 FOR !:IN RETURN (:ATN REM 2VAL REM NOT L INK !rq"[ FOR !|l"NOT FOR ! BRIGHT l"STR$ FOR ! DRAW m"e FOR !SGN o"g FOR !ABS o"c FOR >2i FOR !NOT [H]"j FOR * INPUT PAPER 6 COPY #"p FOR p6 COPY #"INT FOR 6 CLS 6 COPY #"l FOR 6 COPY "_ FOR "a FOR *INT FOR "SGN FOR "PEEK FOR >2P FOR STEP CHR$ LPRINT *Q FOR "CHR$ REM >| STEP CHR$ LPRINT *Q FOR " NEXT REM >{ STEP CHR$ LPRINT *Q FOR "BIN REM >i STEP CHR$ LPRINT *Q FOR "[G] GO TO STEP RANDOMIZE OVER >P2 ERASE REM >x2 OPEN # REM >2 CAT REM *CHR$ REM STEP [I] FLASH >$ STEP RND RESTORE "[R] REM !HP"[U] REM STEP FORMAT STOP >2 CAT REM *CHR$ REM STEP [I] FLASH : ERASE REM NEW >2 CAT REM STEP NEW >2V FOR 2<= REM STEP BEEP LLIST :<= REM = POKE : CAT REM = READ : ERASE REM < RETURN [I]8[T]: LLIST REM RETURN 8 STEP r REM . SAVE >&P6$ CLS ,= NEXT STEP BORDER DATA > STEP ACS RESTORE > COPY 2TAN FOR 2ASN FOR >2 LPRINT REM >2[M] GO TO 2[R] GO TO 2 LLIST REM 2 GO TO REM 2 MERGE FOR 2 DIM REM 2 STOP REM >J2STR$ REM >G2PI REM >@2t FOR >2TAN REM 2ATN REM *e FOR " READ REM !" PLOT REM " SAVE REM >2 PAUSE REM 2LEN FOR 2VAL REM 2[B] FOR 2[D] FOR 2[C] FOR 2[I] GO TO 2TAB FOR 2 FOR 2 FOR 2SCREEN$ REM 2ATTR REM 2AT REM *l FOR 6 COPY "TAB REM *_ FOR " LOAD REM 6 COPY *a FOR "] FOR >2P FOR * INPUT PAPER "PEEK REM * RUN PAPER :ATN REM OyLN (~# RETURN COPY IF NEXT "z FOR RETURN LPRINT ERASE ASN OR RETURN S>8>2w FOR !"L FOR "G FOR "I FOR >@2K FOR > 2C FOR >2N FOR STEP VAL LPRINT >2N FOR >P2y FOR >2x FOR *z FOR ~#"z FOR 2| FOR >2} FOR >2C FOR >02J FOR >2H FOR >2P FOR ▝ STEP CHR$ LPRINT STEP VAL LPRINT :} FOR = NEW RETURN *z FOR ~#"z FOR 2~ FOR :} FOR RETURN 0>O:| FOR [B] RETURN 0>>2© FOR :~ FOR THEN THEN 2~ FOR y NEW O NEW (?:y FOR 2J FOR :x FOR 2H FOR :© FOR 2F FOR >2C FOR STEP VAL LPRINT >2C FOR RETURN :w FOR ▝ STEP CHR$ LPRINT STEP VAL LPRINT ]y NEW (&>2C FOR :x FOR 2H FOR NEW <2P FOR } NEW 2J FOR ▝ STEP CHR$ LPRINT STEP VAL LPRINT >2C FOR >2P FOR :x FOR 2H FOR :y FOR 2J FOR :© FOR RETURN (>2P FOR :w FOR ▝ STEP CHR$ LPRINT STEP VAL LPRINT :} FOR <2} FOR O:| FOR [B]8( RETURN 0:y FOR AND 2y FOR :} FOR RETURN 0:y FOR VERIFY 2y FOR :x FOR AND 2x FOR NOT LPRINT STR$ >2C FOR >02J FOR >2N FOR :| FOR == NEW SAVE 2H FOR >2P FOR ▝ STEP CHR$ LPRINT STEP VAL LPRINT *PEEK REM 6 COPY * INPUT PAPER C FOR "PEEK REM ~# IF :C FOR RETURN COPY LINE *BIN RETURN ( DATA *z FOR ~#"z FOR O:F FOR 2© FOR y2F FOR :TAN REM EXP ,:H FOR 2u FOR :J FOR VERIFY 2v FOR :© FOR RETURN ( RETURN (> RETURN 2ATTR REM >2ATTR REM > RETURN 2AT REM * PRINT PAPER y THEN THEN NEW DRAW _"D FOR ##~ PLOT NEW CLEAR 2N FOR O.:© FOR RETURN ( RETURN ($. PLOT & PRINT y NEW ((&" RETURN . PLOT &y NEW ( PRINT & CLEAR & POKE y NEW &:H FOR 2H FOR :J FOR 2J FOR z2 FOR {2▝ FOR |2P FOR > STEP CHR$ LPRINT :O FOR NEW LIST O:▝ FOR LEN 2O FOR : FOR 2P FOR STEP VAL LPRINT NOT -NOT >2ATN FOR * NEXT PAPER >2▗ FOR :ATN REM G:▗ FOR RETURN COPY ("z FOR STEP ATN OVER *D FOR 6:ATN FOR =2ATN FOR (*z FOR BEEP >2ACS FOR * LIST PAPER :ATN REM =_~2ATN FOR NEW USR ( NEW 2 LET REM > STEP j LLIST STEP VAL LPRINT : LET REM = LOAD :ATN FOR NEW 0( NEW 2 LET REM > STEP j LLIST STEP VAL LPRINT : LET REM = LOAD :ATN FOR NEW ( NEW 2 LET REM > STEP j LLIST STEP VAL LPRINT : LET REM = LOAD :ATN FOR NEW (2 LET REM > STEP j LLIST STEP VAL LPRINT : LET REM = LOAD :TAN FOR AND @82TAN FOR :ASN FOR AND 82ASN FOR *PEEK REM 6 COPY "r FOR >2ATN FOR :ATN REM o RETURN R>8>2w FOR &))) FOR *p FOR :| FOR O NEW ©Gy GO SUB D AND 2H FOR NEW AND jO:w FOR ▝"PEEK REM GO SUB Sz FOR THEN NEW RETURN _*j FOR ^#V*PEEK REM 6#6#:H FOR w# AND 2H FOR 6#6h#s#r# GO SUB [z FOR SQR 6 COPY :u FOR O:USR REM [B]G:v FOR O:t FOR [B]O* INPUT PAPER ~ RETURN COPY (~w##~▝w FOR *p FOR ~ RETURN COPY LINE ; AND ##~w##~▝w### FOR >2[N] GO TO ~▜2} FOR #F:TAN REM LN #~2TAN REM * PRINT PAPER THEN THEN NEW DRAW _"ASN REM ##: PRINT REM w#6>2C FOR >2G FOR 2I FOR 2L FOR 2M FOR > COPY 2K FOR >2H FOR >2J FOR >2P FOR >| STEP CHR$ LPRINT >2N FOR :ATN REM VERIFY LPRINT !4 G CLEAR GO SUB SD FOR 2F FOR STEP VAL LPRINT 6 COPY "r FOR >2~ FOR STEP [ STOP :ATN REM O NEW RETURN ( RETURN (y NEW RETURN 0 AND Gy NEW ( AND NEW VAL Gy NEW RETURN 0 AND VAL PLOT @2POINT REM STEP STOP :ATN REM RETURN MERGE 08![U] AND O~EXP 8## SAVE +~2<> REM *[ FOR STEP RND RESTORE " REM REM >2<> FOR STEP RESTORE CLOSE # MOVE ASN [N]gR6:IN RETURN CHR$ c<=:ATN REM RETURN LPRINT 8>2AT REM * FOR . FOR :IN RETURN (N#F# GO SUB xACS RETURN COPY (>>#>PEEK BORDER GO SUB xG~[Q]>(>#~ RETURN REM :1 FOR O:0 FOR [B]O:ATTR REM ▝2 CLEAR REM :/ FOR O:. FOR [B]O:AT REM ▝2 RETURN REM :2 FOR RETURN : AND REM (! RETURN (>22 FOR >2 AND REM >0 RETURN PRINT >2 AND REM RETURN OUT GO SUB x PLOT RETURN RETURN COPY (m>2IN > STEP ACS RESTORE RETURN CLEAR GO SUB x PLOT CLEAR RETURN COPY (M STEP RANDOMIZE OVER >% STEP RND RESTORE "[R] REM !▜P"[U] REM STEP FORMAT STOP RETURN IN GO SUB x PLOT RETURN RETURN COPY ( PRINT STEP RANDOMIZE OVER STEP [![Q] REM >22 OUT / RESTORE *a FOR GO SUB [ PRINT PAPER 7? GO SUB R# FOR LLIST STEP = RETURN OUT GO SUB x PLOT CLEAR RETURN COPY ([D] NEXT STEP A NEW !"Y FOR > OPEN # RETURN 2FN REM * INPUT PAPER "SGN REM "PEEK REM ~ RETURN COPY LINE 1 OPEN # RETURN LIST C FOR GO SUB VAL "SGN REM :N FOR NEW CLS 2N FOR *Q FOR " STEP REM *G FOR )[P])2 CLOSE # REM |2 OPEN # REM :O FOR NEW (*Q FOR "Q FOR :N FOR PLOT 2N FOR :O FOR NEW USR ( STEP 6 READ :L FOR O: FOR ▝o[P]g)))) FOR *G FOR "G FOR )[P])2 TO REM |2 THEN REM G: OPEN # REM LN (:N FOR PLOT 2N FOR :M FOR W: FOR ▘o[P]g)))):J FOR 2 ERASE REM )) FOR *I FOR |"I FOR SGN (:N FOR PLOT 2N FOR :C FOR RETURN LINE } ERASE RETURN LINE BRIGHT >= RETURN LINE ▖ STEP RETURN LINE THEN RETURN LINE [L] FORMAT RETURN LINE a MOVE RETURN LINE p MOVE RETURN LINE [L] FORMAT RETURN LINE y MOVE RETURN LINE n ERASE NOT } ERASE :N FOR O NEW LINE } ERASE y NEW LIST RETURN LINE IF >= RETURN LINE ▙ LINE RETURN @ LINE TAN LINE NOT RANDOMIZE LINE :SCREEN$ REM NEW CHR$ [L]<>:F FOR O:TAN REM EXP ( STEP FLASH NEW ©O:ASN FOR =2ASN FOR EXP ERASE [L]<>:ATN FOR RETURN CHR$ [L]<>:ACS FOR RETURN 0o*D FOR N:ATN REM EXP #N> OUT EXP 8^* LIST PAPER ~O RETURN (Q:N FOR W NEW LIST RETURN Gz NEW z AND @2N FOR y NEW USR (y VERIFY @w> y NEW 0(y VERIFY w>y NEW (y VERIFY w>y VERIFY w>2ATN FOR :H FOR 2LN FOR :J FOR 2EXP FOR :N FOR NEW D FOR ###N*Q FOR ^#V FOR #~G#f2CODE REM : OPEN # REM W: ERASE REM ▗ AND _:N FOR NEW (x RETURN SAVE ({ VERIFY _ STEP MERGE OUT RETURN :N FOR NEW PLOT NOT NEXT LINE :N FOR O NEW LINE } ERASE y NEW LINE PLOT LINE :CODE REM RETURN SAVE ( RETURN CONTINUE (> SAVE >>G: OPEN # REM W: ERASE REM VERIFY _ RETURN { VERIFY _: OPEN # REM W RETURN LINE PLOT LINE :CODE REM RETURN SAVE ( RETURN CONTINUE : FOR ( RETURN LINE PLOT LINE RETURN ERASE PLOT LINE : FOR RETURN LINE PLOT LINE RETURN ERASE PLOT LINE RETURN LINE PLOT LINE RETURN PAPER PLOT LINE :F FOR 2TAN REM :J FOR =2t FOR *D FOR "ASN REM ###6> COPY 2VAL REM :N FOR NEW PLOT 2 PRINT REM e*Q FOR ^#V FOR #F: OPEN # REM W: ERASE REM VERIFY _ RETURN K:N FOR NEW PLOT @?:P FOR G[P]▜<_[P]W{G NEW (g:O FOR NEW SGN 8x2P FOR *Q FOR "Q FOR y PLOT >2V FOR :P FOR INPUT LPRINT 2P FOR y NEW INPUT 2N FOR NOT } ERASE :N FOR AND NEXT *D FOR STEP © OVER :[A] FOR RETURN |(:▛ FOR NEW 2FN REM :N FOR O NEW y NEW 9NOT FN THEN : GO TO REM RETURN STEP >= PAPER : FOR ▜▜2L FOR : FOR ▜▜2M FOR STEP 9 LPRINT :LEN FOR RETURN (MNOT ' TO :N FOR PLOT NEW LOAD 2N FOR >2LEN FOR STEP >= PAPER STEP 9 LPRINT :M FOR AND 2M FOR RETURN 0; THEN /O:J FOR W>`! PLOT REM #▚[C] RETURN `0EXP 0%:N FOR NEW RUN 2N FOR >2M FOR 2L FOR NOT ' TO RETURN CHR$ ' TO >2LEN FOR NOT ' TO :▟ FOR NEW O RETURN LINE ' TO :N FOR NEW CLEAR 2N FOR :SCREEN$ REM NEW LINE TO RETURN 8Hy NEW ( STEP FLASH G NEW VERIFY W:L FOR ▘2L FOR x NEW VERIFY W:M FOR ▘2M FOR y NEW (:H FOR O:USR REM [B][P] INPUT 2L FOR :J FOR O:STR$ REM [B][P] INPUT 2M FOR :▟ FOR NEW :J FOR _ STEP 9 LPRINT >2M FOR 2L FOR : FOR RETURN ( RETURN ▞ LINE ▖ PAPER STEP VAL STOP :▙ FOR O RETURN LINE r TO STEP STEP OUT RETURN CHR$ r TO : FOR O:▞ FOR <EXP 8(>*D FOR ####w STEP BRIGHT PAPER :▟ FOR NEW SAVE O:N FOR NEW PLOT LEN 2N FOR :N FOR O NEW (:LEN FOR RETURN CHR$ STEP y NEW @ LINE STEP RETURN LINE ! STEP :N FOR PLOT 2N FOR STEP RETURN RESTORE : FOR RETURN (9 RETURN LPRINT 05O:N FOR NEW (>2LEN FOR y*e FOR _ FOR ))))6:SCREEN$ REM NEW AND G###~ RETURN COPY (w>2[Q] GO TO =*SGN FOR ~ RETURN CHR$ STEP :N FOR O NEW (y NEW LOAD 2N FOR >2LEN FOR FOR !C FOR GO SUB VAL FOR ~ RETURN COPY *INT FOR "SGN FOR : FOR RETURN LPRINT 8 VERIFY LIST STEP TO READ >2C FOR d:TAB FOR RETURN (>O:VAL$ FOR RETURN U STEP STEP OUT RETURN (/:F FOR 2VAL$ FOR >2C FOR :▛ FOR 2CODE FOR :N FOR O PLOT NEW GO SUB 2N FOR *D FOR ###wy NEW (&>2LEN FOR :LEN FOR RETURN RETURN (>2LEN FOR :N FOR NEW PRINT PLOT 2N FOR NOT } ERASE :[M] GO TO RETURN :SCREEN$ REM NEW :F FOR RETURN 8 RETURN 0>2V FOR *D FOR RND FOR GO SUB VAL :RND FOR 2FN REM :N FOR O NEW LPRINT CHR$ [J] CAT y NEW (:POINT FOR O STEP STEP OUT RETURN CHR$ | FORMAT :SCREEN$ FOR STEP VAL STOP :F FOR RETURN LINE CAT PAPER q DEF FN RETURN (H RETURN LINE > CAT RETURN LINE . DEF FN :N FOR NEW LINE CAT :P FOR NEW RETURN : DIM REM RETURN (:[M] GO TO RETURN NOT X CAT :SCREEN$ REM NEW LINE CAT RETURN (1 RETURN CHR$ K FORMAT >2L FOR 2M FOR NOT K FORMAT : GO TO REM RETURN ERASE CAT : DIM REM RETURN LINE CAT :SCREEN$ REM NEW RETURN ":F FOR RETURN LINE X CAT STEP FLASH O NEW VERIFY ▜▜2L FOR y NEW VERIFY 2M FOR NOT K FORMAT NEW CHR$ K FORMAT NOT CAT :VAL$ FOR W RETURN ([:F FOR O:CODE FOR NEW EXP 8(:FN FOR 2VAL$ FOR z2FN FOR *D FOR ###w:N FOR NEW PLOT E2N FOR >2P FOR >[ STEP CHR$ LPRINT NOT } ERASE J* NEXT PAPER >2▗ FOR STEP L OVER :ATN REM O AND *▘ FOR w#6>2VAL$ FOR NOT X CAT :N FOR NEW >2C FOR >[A]2TAN FOR 2ASN FOR NOT ERASE CAT : GO TO REM RETURN 0f:SCREEN$ REM NEW STEP FLASH O:TAB FOR EXP 8PNOT K FORMAT : DIM REM RETURN :SCREEN$ REM NEW CHR$ O DEF FN NOT K FORMAT :J FOR O:STR$ REM [B][P] INPUT 2M FOR :H FOR O:USR REM [B][P] INPUT 2L FOR NOT K FORMAT :N FOR NEW ( AND : GO TO REM RETURN ERASE O DEF FN :SCREEN$ REM NEW LINE CAT NOT K FORMAT :PI FOR RETURN LINE K FORMAT O:[B] FOR RETURN CHR$ K FORMAT <2[B] FOR y2[D] FOR >2[K] FOR *G FOR "[E] FOR *I FOR "[G] FOR :STR$ REM 2[J] FOR :USR REM 2[I] FOR >2L FOR 2M FOR NOT K FORMAT :P FOR NEW RETURN CHR$ } ERASE :N FOR O NEW PLOT 2N FOR y NEW y NEW @ 6>2P FOR :ATTR FOR STEP CHR$ LPRINT NOT } ERASE >2C FOR > LPRINT 2TAN FOR >2TAB FOR :ACS FOR =2ACS FOR :VAL$ FOR RETURN LINE } ERASE 2F FOR >2VAL$ FOR )>2C FOR *D FOR #4:ACS FOR =2ACS FOR :F FOR RETURN ERASE } ERASE >2TAB FOR :FN FOR RETURN 2F FOR LINE } ERASE >2 CAT REM STEP CLEAR READ >2C FOR :F FOR O* NEXT PAPER >2▗ FOR STEP L OVER *▘ FOR "D FOR :▖ FOR PLOT M2N FOR STEP BRIGHT PAPER NOT } ERASE :[M] GO TO RETURN >:J FOR AND _ STEP 9 LPRINT RETURN LINE } ERASE :F FOR RETURN : DIM REM RETURN LINE | FORMAT :AT FOR STEP TO READ :N FOR NEW PLOT %2N FOR >2P FOR >b STEP CHR$ LPRINT >2L FOR 2M FOR NOT } ERASE :N FOR NEW LINE A MOVE *D FOR [N] FOR GO SUB VAL :[P] FOR 2FN REM :[Q] FOR RETURN ( STEP VAL STOP : DIM REM O:[R] FOR RETURN (EXP (:[T] FOR RETURN (EXP (:[U] FOR RETURN (9EXP 6EXP 3 RETURN (*:USR REM O:H FOR [B][P] INPUT O:L FOR ▝2L FOR :STR$ REM O:J FOR [B][P] INPUT O:M FOR ▝2M FOR :C FOR RETURN ( RETURN (:[S] FOR STEP TO READ STEP >= PAPER STEP 9 LPRINT :N FOR VERIFY 82N FOR NOT } ERASE :C FOR RETURN (![C] FOR ![B] FOR 5>2C FOR :N FOR PLOT 2N FOR NOT } ERASE :J FOR 2 IF REM :H FOR 2 CLS REM NOT } ERASE :H FOR 2 DRAW REM NOT } ERASE >2J FOR :SCREEN$ REM NEW 0:} FOR =2} FOR > COPY 2VAL REM *D FOR #"D FOR ~ NEW ? VERIFY O:L FOR ▝ RETURN 0 RETURN 0 RETURN LPRINT 82L FOR :H FOR 2[O] GO TO O VERIFY RETURN 8>[B] THEN /2L FOR GO SUB D2 FOR NOT } ERASE :N FOR NEW (B:F FOR RETURN ([ RETURN (l>2V FOR RETURN (> STEP TO READ :F FOR RETURN CHR$ } ERASE :M FOR AND PLOT 2M FOR :H FOR O>[B]▜▜O:L FOR ▝2L FOR NOT } ERASE >2C FOR :F FOR RETURN 0:~ FOR =2~ FOR NOT } ERASE :[N] GO TO =2[N] GO TO NOT } ERASE :J FOR VERIFY P RETURN ERASE } ERASE :H FOR RETURN 0> :J FOR VERIFY P RETURN ERASE } ERASE :H FOR RETURN 8> LPRINT 2 FOR > STEP TO READ NOT } ERASE *I FOR " PLOT REM *G FOR " SAVE REM NOT % OPEN #:N FOR O NEW RETURN #>2 CAT REM * STEP REM STEP [I] FLASH :FN REM RETURN ( STEP CLEAR READ : MERGE REM O:N FOR NEW RETURN LEN 2N FOR O:C FOR RETURN (ty NEW (o:J FOR 2 ERASE REM * THEN REM " OPEN # REM :K FOR 2 VERIFY REM >2 CAT REM y NEW (* NEXT REM >:FN REM RETURN (4 RETURN 8:SCREEN$ REM NEW AND NEW PLOT @O:POINT REM G NEW PLOT @EXP * NEXT REM x NEW SAVE LEN 2FN REM : CLOSE # REM RETURN STEP CLEAR READ *Q FOR STEP [I] FLASH : MERGE REM O:N FOR NEW RETURN LEN 2N FOR STEP VAL LPRINT STEP BEEP LLIST *SGN REM NOT REM <=*PEEK REM 6 COPY "r FOR :[Q] GO TO RETURN ((=2[Q] GO TO >0w# DRAW PLOT OPEN # RETURN A RETURN PLOT STEP STOP :SCREEN$ REM <2SCREEN$ REM NEW (>2ATTR REM 2AT REM >2 CLOSE # REM *CHR$ REM " STEP REM :USR REM NEW DRAW 2 OPEN # REM :[R] GO TO W:STR$ REM 2 ERASE REM [C]W: FOR RETURN 8 GO SUB DO: FOR RETURN 8 GO SUB DEXP 0y NEW O>[B]2[R] GO TO ▘2STR$ REM : CLEAR REM RETURN ( RETURN 8*: RETURN REM RETURN ( RETURN 8> 0>@,>`(: RETURN REM RETURN (8 RETURN 0>>: RETURN REM RETURN ( RETURN 8> LPRINT >USR >[Q]G: FOR Ox[B](> > LPRINT ▝2 FOR : FOR NEW [P] GO TO SQR ( GO TO *j FOR "CHR$ REM :STR$ REM W: ERASE REM INT (y RETURN (>2 CAT REM * STEP REM STEP [I] FLASH :STR$ REM 2 ERASE REM >2 CAT REM : DIM REM RETURN (*CHR$ REM STEP [I] FLASH : ERASE REM AND 2 ERASE REM RETURN (> STEP TO READ RETURN (> RETURN STEP TO READ :ATN REM RETURN Q OUT RETURN (>R2VAL REM *BIN REM >_2 ERASE REM STEP [I] FLASH : DIM REM RETURN ( RETURN ( RETURN ( RETURN COPY ,>2 DIM REM 2 CAT REM :STR$ REM 2 ERASE REM *[G] GO TO :SCREEN$ REM NEW ▜_"Q FOR STEP [I] FLASH >2 CAT REM *Q FOR STEP [I] FLASH :ATN REM RETURN LPRINT ERASE ERASE VERIFY *p FOR "PEEK REM ~# RETURN COPY LINE CLOSE # MERGE G~#2G FOR ~#2H FOR ~#2I FOR ~#2J FOR 2 ERASE REM ^#V# GO SUB S STEP REM *G FOR T])[P]))2 CLOSE # REM |O2 OPEN # REM : FOR o[P]g))))"G FOR )[P]))2 TO REM |2 THEN REM EXP (*I FOR FOR : FOR . THEN / THEN THEN / THEN g"I FOR |INT (x RETURN 8>2 CAT REM STEP [R] INVERSE : THEN REM 2 OPEN # REM :J FOR 2 ERASE REM : TO REM 2 CLOSE # REM RETURN 2 MERGE REM >2 CAT REM STEP [R] INVERSE *PEEK REM : MERGE REM w#:G FOR w#:H FOR w#:I FOR w#:J FOR w###NOT MERGE *l FOR T]~# RETURN COPY (=(~# IF LOAD ###~# CONTINUE FOR "TAB REM *r FOR "PEEK REM :ATN FOR RETURN (5 STEP j LLIST :LN FOR 2H FOR O:EXP FOR VERIFY y: CLS REM EXP 8: DRAW REM EXP 0 DRAW z2L FOR {2M FOR NOT <= VERIFY :SCREEN$ REM O NEW RETURN : DIM REM RETURN (: MERGE FOR STEP TO READ :<> REM G RETURN LINE CAT VERIFY RETURN (F:SCREEN$ REM NEW ?CHR$ CAT VERIFY :TAN FOR =2TAN FOR O STEP FLASH EXP 8[:TAB FOR RETURN Tx STEP j LLIST ! PLOT REM #~ AND 2J FOR NEW VERIFY 2L FOR *D FOR #~ RETURN 6####~2TAB FOR NOT VAL VERIFY : PAUSE REM RETURN $> STEP j LLIST >2N FOR >2P FOR 2 PAUSE REM >[ STEP CHR$ LPRINT >2[M] GO TO STEP VAL LPRINT 6 COPY "r FOR NOT [E] BEEP >2M FOR 2L FOR :SCREEN$ REM O NEW CHR$ BEEP :~ FOR < RETURN ERASE [E] BEEP 2~ FOR y NEW (>>F FOR 2P FOR >2L FOR :[O] GO TO 2H FOR >'a:SCREEN$ REM < NEW p STEP FLASH O:ATN REM VERIFY 0EXP 0d:[N] GO TO < RETURN 0/2[N] GO TO >2P FOR y NEW VERIFY G:[O] GO TO 2H FOR Gy NEW (>2F FOR :[O] GO TO [A]▜2L FOR >}>2F FOR y NEW © VERIFY ?2L FOR >$2M FOR >©O> RETURN 2K FOR >2J FOR y STEP CHR$ LPRINT STEP VAL LPRINT 6 COPY "r FOR >2 CLOSE # REM >2[K] FOR :[D] FOR RETURN ( STEP FLASH >2[D] FOR :[I] GO TO RETURN (?:[C] FOR RETURN 3<2[C] FOR >2[E] FOR 2[G] FOR :USR REM 2[F] FOR :STR$ REM 2[H] FOR : COPY REM 2[J] FOR : FOR NEW ?2[I] FOR >2[K] FOR :[I] GO TO STEP FLASH >2[I] GO TO : GO TO REM RETURN LINE INK RETURN (4 RETURN LINE DEF FN CIRCLE RETURN LINE MERGE CIRCLE RETURN LINE STOP CIRCLE RETURN LINE DIM CIRCLE RETURN LINE LIST CIRCLE :<= FOR RETURN CHR$ INK : LINE FOR RETURN LINE INK O NEW RETURN LINE SIN CIRCLE NOT INK :LEN FOR RETURN CHR$ TO CIRCLE : FOR W: COPY REM _ RETURN (f*SGN FOR ~ RETURN ~ RETURN COPY *INT FOR LIST fC FOR GO SUB VAL LIST COPY 6:N FOR PLOT U NEW PRINT 2N FOR : FOR . THEN THEN NEW ?g"G FOR : COPY REM 2J FOR >2M FOR 2L FOR 2I FOR STEP BRIGHT PAPER STEP VAL LPRINT 6 COPY "r FOR >2LEN FOR *TAB REM 6#: LINE FOR w#: FOR w#: COPY REM w#"TAB REM 6 COPY 3>2TAN FOR ,:ATN REM < RETURN LPRINT 0$2VAL REM > COPY 2[M] GO TO >=2VAL REM :ATN REM O:[L] GO TO 2VAL REM EXP 0y2[L] GO TO :[M] GO TO RETURN (=2[M] GO TO *SGN FOR ~ RETURN (,C FOR GO SUB VAL *SGN FOR 6:N FOR PLOT M NEW GO SUB 2N FOR >`2J FOR >2H FOR STEP BRIGHT PAPER STEP VAL LPRINT 6 COPY "r FOR : LPRINT REM RETURN >2VAL REM :VAL REM RETURN LINE ACS AND >2ATN FOR * INPUT PAPER ~ RETURN COPY LINE PAPER RETURN LIST C FOR GO SUB VAL "PEEK REM :C FOR RETURN ( RETURN ( RETURN (K CLOSE #*D FOR ##:N FOR w*PEEK REM AND *D FOR :ATN REM w#"D FOR * SAVE REM FOR *G FOR 7? GO SUB R|*D FOR w#"D FOR * PLOT REM FOR *I FOR 7? GO SUB R|*D FOR w#:N FOR NEW LOAD w*PEEK REM ▛:N FOR NEW LPRINT :F FOR RETURN 8 RETURN @ RETURN RETURN RETURN :ATN FOR 2ATN FOR *PEEK REM NOT ` INK :ATN REM RETURN LPRINT 0=O* LIST PAPER :ATN FOR w:VAL REM RETURN COPY *ASN REM :ATN REM PEEK #~O>02t FOR >2u FOR >2v FOR y2ATN REM : LPRINT REM RETURN CHR$ STR$ STEP l DATA STEP [ STOP >B2POINT REM 2PI REM STEP STOP >2P FOR >X STEP CHR$ LPRINT >p2 OPEN # REM >@2 ERASE REM >2 CAT REM >2 CLOSE # REM *Q FOR " STEP REM STEP [I] FLASH NOT [T]USR > COPY 2V FOR 2<= REM 2POINT REM STEP STOP STEP BEEP LLIST :<= REM = INPUT STEP r REM STEP RANDOMIZE OVER ># STEP RND RESTORE "[R] REM !▜P"[U] REM STEP FORMAT STOP > STEP ACS RESTORE STEP RANDOMIZE OVER STEP BORDER DATA > STEP ACS RESTORE RANDOMIZE :J FOR _! PLOT REM #>`▚[D]8 NEW ©_<>*D FOR STEP © OVER >2P FOR :[A] FOR STEP CHR$ LPRINT <>|k COPY os[A]gPOINT a" FLASH * FLASH #| NEW g~▗" FLASH * FLASH <>O*STR$ FOR =_ CLEAR "[L] FOR #~2[O] FOR + FOR *r FOR :[K] FOR w#s#r#q#[E] FOR w# IF 6@#:[F] FOR O:[I] FOR [B]▜w#:[H] FOR O:[J] FOR [B] THEN /w#>2P FOR GO SUB [[L] FOR "r FOR STEP CHR$ LPRINT *r FOR :[O] FOR w#:O FOR w#>w# GO SUB [Q FOR s#r#6 COPY "r FOR <>^#V FOR >2 MERGE REM ~2 FORMAT REM #N# FOR * OPEN # REM y[P]G FOR z RETURN CHR$ w BRIGHT { RETURN CONTINUE ERASE w BRIGHT AND _ NEW G: ERASE REM ▚#N# RETURN p PAPER REM FLASH W▝ ERASE z BRIGHT LINE z BRIGHT 2 MOVE REM z GO SUB Do>gWy2 MOVE REM z NEW O>2 MERGE REM { NEW _z NEW LPRINT _z NEW AND @▝W: MOVE REM O{ NEW RETURN LINE MERGE BRIGHT RETURN LINE ▞ BRIGHT ~# RETURN (- RESTORE g.x RETURN ( THEN THEN IF G FOR : CAT REM RETURN (z/INKEY$w#{/INKEY$wzACS w#{ACS w+ FOR LLIST z< NEW ({ AND _0z AND Wz RETURN P0 VAL$ #N#Y: FORMAT REM =2 FORMAT REM CHR$ INKEY$ FLASH <>~# RETURN (# RESTORE g.x RETURN ( THEN THEN IF G FOR : CAT REM RETURN (z/INKEY$wzACS w FOR LLIST z< NEW ({ AND _0z AND Wz RETURN P ERASE z BRIGHT ATN NOT ~ BRIGHT ~# RETURN (& RESTORE g.x RETURN ( THEN THEN IF G FOR : CAT REM RETURN ({#/INKEY$w{#ACS w+ FOR LLIST z< NEW ({ AND _0z AND Wz RETURN P ERASE z BRIGHT TAN NOT ~ BRIGHT *Q FOR ~#foN###F# GO SUB S OVER REM ~#z NEW < RETURN 8z NEW SAVE W{ AND _0z AND W STOP GO SUB [ OVER REM ERASE <>:<> FOR O GO SUB [ REM REM EXP (y<2<> FOR GO SUB S[R] REM 2[T] REM !▖P"[U] REM STEP LPRINT STOP : LPRINT REM NEW O>[B]!<=ZLN 8 RETURN (6662# LIST <>>2 MERGE REM * STEP REM ~#2 FORMAT REM N# FOR * OPEN # REM y[P]G FOR z RETURN CHR$ E OVER { NEW = RETURN ERASE E OVER <<_N: ERASE REM ▝ RETURN p0m AND W NEW O#>2 MERGE REM z NEW LPRINT _z NEW AND @▝WF# FOR : CAT REM RETURN (| NEW 6< NEW ($| NEW SAVE g} AND 8!o> BORDER w|< NEW ($| NEW SAVE g} AND 8o CONTINUE CLEAR FOR : FORMAT REM =CHR$ ATTR INVERSE #F# FOR GO SUB <>:▗ FOR <2▗ FOR ~ RETURN COPY 2▗ FOR Yy RETURN ~LN (:▗ FOR EXP (~# RETURN ( MOVE = SAVE "▘ FOR FOR GO SUB VAL :▞ FOR O RETURN (= RETURN (G CLEAR ▟ FOR ~# IF : FOR [B](G CLEAR <>>2C FOR :▗ FOR 2F FOR *▘ FOR "D FOR :▚ FOR 2H FOR :▜ FOR 2J FOR >@2K FOR GO SUB SL FOR GO SUB SM FOR :▖ FOR 2N FOR >2P FOR :[A] FOR STEP CHR$ LPRINT STEP VAL LPRINT <>!GP6$ CLS | VERIFY g, LET } AND ! BORDER P6$ CLS %%%%, LET ! BEEP W6#6 COPY <>: STOP REM 2 RESTORE REM GO SUB [ READ REM >2<= REM !JP" OVER REM CLEAR GO SUB S[R] REM "[U] REM >2[T] REM STEP LPRINT STOP *[R] REM :i FOR O: RESTORE REM EXP >*e FOR <2 RESTORE REM ~ RETURN ( LPRINT OPEN # RETURN :INKEY$ REM RETURN ( NEW LPRINT G STEP FLASH CLS :<= REM RETURN (<2<= REM RETURN : RESTORE REM 2 NEW REM " BORDER REM FOR * OVER REM > OPEN # RETURN <> RETURN ( GO SUB DG▝gFN NEW (&<>: OPEN # REM W: ERASE REM _: CLOSE # REM RETURN Zy RETURN ( RETURN (>x[C] RETURN 0[D] RETURN 0><y RETURN (5 CLEAR *l FOR RETURN 0A COPY (#~#EXP ( NEW LN ~# AND [C] RETURN 0~ AND [D] RETURN 0>## BEEP ><>:H FOR W*L FOR : IF REM O{[B]O RETURN 08 RETURN 88 GO SUB Dg0 GO SUB Dgy NEW ©O: CLS REM [B][C] RETURN 0} RETURN 8 GO SUB Do| RETURN 8* THEN / THEN / GO SUB Do&: DRAW REM ▝[C] RETURN LPRINT 8} RETURN 0 GO SUB Do| RETURN 8 THEN / THEN /o&"L FOR <>C FOR *PEEK REM w# IF "PEEK REM <>G*j FOR = THEN NEW RETURN _"SIN REM :P FOR = NEW _"Q FOR *SIN REM ^#V+2O FOR O NEW RETURN (ty NEW 2LEN REM ####= RANDOMIZE "SIN REM * LOAD REM ~# RETURN COPY (LN (X PRINT 6 COPY +p FOR GO SUB [] FOR DM*SIN REM +r+s"SIN REM `i~#2<= REM ~ AND GO SUB D#~#~#2 MOVE REM ~# THEN CLS y: MOVE REM = FOR :<= REM = ERASE :LEN REM =2LEN REM ATN GO SUB S] FOR <>2F FOR O>2C FOR :ACS FOR RETURN (/<2ACS FOR *NOT FOR y= NEW SAVE _"D FOR >2C FOR >2G FOR 2I FOR 2M FOR 2L FOR >@2K FOR STEP FLASH NEW VERIFY _:| FOR NEW DRAW 2H FOR STEP FLASH NEW AND @2J FOR >2N FOR >2P FOR ~ STEP CHR$ LPRINT <>"W FOR :V FOR G RETURN (!=2V FOR x NEW *Y FOR ~ #"Y FOR ~ #"Y FOR CLEAR [P] NEW OPEN # RETURN *W FOR <>:POINT REM w# DRAW #### NEXT STEP STOP <>:STR$ REM VERIFY NEW SAVE &o)):USR REM THEN /_ X:POINT REM w# DRAW :POINT REM O:PI REM LEN # DRAW PLOT <>>B@6, CLS $ POKE { AND _0z AND W:<= REM =2<= REM OVER <>: CLOSE # REM RETURN : ERASE REM O:STR$ REM AND [B] RETURN 0: OPEN # REM O>[B] RETURN 00>2V FOR ><>O: CLOSE # REM RETURN *TAB REM 6#q#: OPEN # REM w#: ERASE REM w#6 COPY "TAB REM <> GO SUB [[R] REM 2[T] REM "[U] REM GO SUB S[R] REM GO SUB [[R] REM GO SUB S[R] REM RETURN :[U] REM NEW LPRINT AND (2[U] REM 2!$m_ CLEAR FOR *[U] REM Lw| NEW < RETURN | NEW SAVE g} AND o$ CONTINUE } VERIFY oa"[U] REM :[T] REM =2[T] REM ATTR <>:SCREEN$ REM NEW LINE THEN READ :C FOR RETURN LPRINT :[M] GO TO RETURN x:O FOR G NEW @(9:P FOR W NEW O:L FOR RETURN (+ RETURN 0y RETURN ("x NEW ▜_z PLOT y RETURN (x NEW ▜ GO SUB D_z NEW RUN COPY 2P FOR (x NEW (2x NEW G:P FOR O NEW gLN 8y NEW SAVE O|▜ GO SUB D_ COPY y<2P FOR *Q FOR "Q FOR :N FOR PLOT 2N FOR <><> RETURN 0: LPRINT REM [B]0> GO SUB DO: LPRINT REM ▝0> COPY 2 LPRINT REM GO SUB D PLOT W RETURN OPEN # RETURN INPUT PLOT <>: ERASE REM AND NEW SAVE ▜o[P]g): OPEN # REM AND NEW o>X▗g:C FOR RETURN ( RETURN VERIFY FOR NEW FOR 2<= REM O[P]G} NEW VERIFY RETURN 0!} RETURN @|0 RETURN X( VERIFY X RETURN 0: CAT REM RETURN (:FN REM w:POINT REM w:<= REM =2<= REM AND <>:STR$ REM 2 ERASE REM *CHR$ REM " STEP REM :USR REM NEW DRAW 2 OPEN # REM >2 CLOSE # REM : ERASE REM GO SUB D THEN /O@> INPUT OPEN # RETURN A RETURN PLOT >2 CAT REM * STEP REM STEP [I] FLASH : FOR AND 2 FOR NEW j FOR " STEP REM :PI REM = NEW 2PI REM : ERASE REM VERIFY 2 ERASE REM STEP STOP >2 CAT REM * STEP REM STEP [I] FLASH : MERGE REM RETURN [R]<> STEP RANDOMIZE OVER >" STEP RND RESTORE "[R] REM !hP"[U] REM STEP FORMAT STOP *e FOR :i FOR G RUN *NOT FOR #(>[A]▜▜▝O LET ~ THEN /▝O SAVE ~ RETURN (> ▝O:<> REM ▜▝O:>= REM <82>= REM NEW ?Gy[A]0>O NEW AND 2<= REM y NEW AND STEP RND RESTORE "[R] REM !FN P"[U] REM STEP FORMAT STOP :<= REM STEP RND RESTORE "[R] REM !>=P"[U] REM STEP FORMAT STOP <>.▖P6$ CLS , NEXT .PI GO TO <>*[ FOR INT (F# CLEAR PRINT <> RETURN ! LIST FOR !r GO TO ~ RETURN COPY (6G#~O#"T FOR `y AND o>% PLOT `- PLOT i AND NEW OPEN # RETURN THEN /2S FOR zCOS :S FOR LLIST *T FOR OR <>> INPUT CLS NEXT <> COPY !@X~W NEW RETURN > RETURN >_z NEW 8 RETURN >0 RETURN 0 >COS w# NEW MERGE <>>2P FOR >2ATN FOR : LLIST REM RETURN LINE w NEW RETURN LINE ~ BORDER RETURN LINE R CONTINUE RETURN 0 LINE ) DIM RETURN 8 LINE REM STEP RANDOMIZE OVER STEP 3 OUT >2 GO TO REM >2 LLIST REM > STEP CHR$ LPRINT [C]P STEP $ INVERSE :2 FOR RETURN (NOT IF NEW : RETURN REM RETURN >2INKEY$ REM <>O:INKEY$ REM RETURN (=2INKEY$ REM y RETURN (': STOP REM * READ REM LIST COPY RETURN *g FOR :i FOR <=O~ RETURN y GO TO 2 STOP REM " READ REM STEP 3 OUT <>: STOP REM O* READ REM :i FOR EXP *e FOR ~ RETURN GO TO y2 STOP REM " READ REM STEP 3 OUT <>>22 FOR STEP RANDOMIZE OVER * BORDER REM OR FOR GO SUB VAL ! STEP FOR "[R] REM !HP"[U] REM >2[T] REM STEP LPRINT STOP > STEP CHR$ LPRINT !PP:>= FOR RETURN 8>2<= REM ,"[U] REM FOR STEP $ INVERSE *[U] REM ,:<= REM = FOR : THEN FOR STEP CHR$ LPRINT WP STEP $ INVERSE : NEW REM *c FOR INT (F# CLEAR PRINT " REM REM >2<> FOR >▗ STEP CHR$ LPRINT <=P STEP $ INVERSE >2 LLIST REM : NEW REM O: DIM REM RETURN (EXP LINE GO SUB BORDER :2 FOR RETURN (CHR$ r REM STEP / INVERSE NOT [Q] REM >22 FOR :<= FOR RETURN (:>= FOR RETURN COPY (=2>= FOR RETURN 2 OR FOR +! STEP FOR "[R] REM ! RANDOMIZE P"[U] REM >2[T] REM STEP LPRINT STOP : NEW REM O: DIM REM EXP (y2 DIM REM : AND FOR 2 MERGE FOR NOT r REM !WZ6VAL #6VAL !wZ6VAL #6VAL :<= FOR RETURN LINE REM : NEW REM 2 GO TO REM :<= FOR RETURN > 2 LLIST REM 9 RETURN : AND FOR STEP TO READ NOT r REM >2P FOR 2[J] GO TO : TO FOR STEP CHR$ LPRINT *Q FOR "[E] GO TO :O FOR 2[K] GO TO >(2 COPY REM >p2 FOR >02 LLIST REM NOT ) DIM STEP / INVERSE : FOR O: CLEAR REM RETURN ( RETURN 0 SAVE y▘ RETURN 8 RETURN LPRINT 0> LPRINT RETURN 8> y RETURN ( THEN / THEN / GO SUB D RETURN FOR : FOR O: RETURN REM RETURN ( RETURN 0 SAVE y▘ RETURN 8 RETURN LPRINT 0> LPRINT RETURN 8> y RETURN ( THEN / THEN / GO SUB D RETURN FOR :ATN REM RETURN LPRINT 0:2 FOR RETURN (>2 FOR 2 FOR NOT r REM :ATN REM RETURN LPRINT 0.Z2J FOR >2H FOR : FOR GO SUB D2L FOR : FOR GO SUB D2M FOR STEP 9 LPRINT :M FOR GO SUB D2 FOR :L FOR GO SUB D2 FOR <>> 2 FOR <>:[J] GO TO 2P FOR :[K] GO TO 2O FOR *[E] GO TO "Q FOR STEP 6 READ :P FOR 2[J] GO TO STEP / INVERSE : FOR 2 OPEN # REM : COPY REM 2 ERASE REM >2C FOR : FOR O: CLEAR REM STEP SGN OUT |2 FOR : FOR ▗O VERIFY RETURN CIRCLE 8>2 FOR : FOR RETURN 8y2 FOR : FOR O: RETURN REM STEP SGN OUT |2 FOR : COPY REM O▗ RETURN LPRINT 0 RETURN 0>2 FOR >2 COPY REM RETURN x8>2 FOR >2 CLOSE # REM 2 CAT REM *[E] GO TO STEP [I] FLASH : FOR 2 OPEN # REM : COPY REM 2 ERASE REM >2 CAT REM *Q FOR "[E] GO TO STEP [I] FLASH : MERGE REM RETURN LINE REM :2 FOR RETURN LINE [Q] REM : LINE FOR RETURN (O NEW (y NEW ©2[I] GO TO :<= FOR RETURN : AND FOR STEP TO READ <>>2 CAT REM 2 GO TO REM *[E] GO TO STEP [I] FLASH U>82 LLIST REM STEP / INVERSE : RETURN REM RETURN F:2 FOR RETURN LINE [Q] REM . RANDOMIZE >&P6$ CLS ,= NEXT : DIM REM RETURN ( RETURN ( RETURN > > COPY 2 DIM REM >2 MERGE FOR :>= FOR RETURN COPY (=2>= FOR RETURN 2 OR FOR !WZ60#60!wZ60#60!<=Z60# CLS ! OR FOR GO SUB [ BORDER REM GO SUB VAL >2 LLIST REM STEP RANDOMIZE OVER <><@J RETURN CLEAR LPRINT RETURN RETURN LPRINT RETURN © BORDER RETURN © SAVE RETURN IN LPRINT RETURN LOAD RUN RETURN LOAD LOAD RETURN RUN LOAD RETURN LOAD CLS RETURN LOAD RETURN RETURN LOAD CLEAR RETURN LOAD CLS RETURN LOAD LOAD RETURN LOAD RUN RETURN LOAD RETURN IN OUT PEEK PEEK ©©PP©©PEEK PEEK ©©PP©©PEEK PEEK PEEK [Q]_PSCREEN$ PEEK [Q]SCREEN$ PEEK [Q]SCREEN$ ©k©k©©©k©k©©xxPEEK [Q]PEEK [Q]SCREEN$ SCREEN$ [Q]©[Q]©xxPEEK PEEK ©©PP©©PEEK PEEK ©©PP©©__kkxx©kx[Q]©[Q]©PEEK [Q]PEEK [Q]PEEK [Q]//<<@@PP__©©[Q][Q]PEEK _PEEK ___PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK COPY COPY LIST PEEK VERIFY VERIFY PEEK [Q]TAN TAN PEEK [Q]TAN xxTAN TAN ©©[Q][Q]TAN TAN [Q][Q] VERIFY TAN PEEK PEEK VERIFY VERIFY COPY COPY MYtXA!d▜▜'E[D]YT4[E][I]g('5U7$4V3XRVYcE8[C]vf8SYy59@[C]i[F]r[D]4E0W4Y"1` ▝65XA`X▗E[J]&3X▘f(a▗▜[E] s[B]Ea[F]I !t▜sQR1![G]rbRgQYvfYH▝[G]t▝IrB▝f84DV`27▞"6[F]C%$gvp[E]u[H]$A2C45S[B]iA7rR[D][I]C7G6YR▜t#v0[I]4Fa[F]SS8[E]r[G]V@ae'd[A]▞[C]375▘UY[E]FArTQs0P9AG▚3aD)Guw&g2g[J]8[F]2[A]▜[J]'gic0[I]$)C[B]xI▗aCdgATe#w▖5P▘v6`!yED[C]C@0g&X[G]C8h[D]CQUhIXww9fcSYB[B]1Qd)Y2[A]W#g 8▗)XQ▚v▚Eqdx▘[I][D]@QP[G]uXf▖[E]@Y4EVCGWwr( `x5▚h!wc"f0WCa[E]gE[H]▜I8dHX▖DiT)eP$wq9dH#)[D]A'[C][I]▘▜Dx▝i P[F][I][B]A1▚(i9[G]#v(0[F]QX[I](SBTaWf8[J]d5[A][D]Ie[I] c`R&II%aqCv[H]G ▗36 H▚$iaq[F][I]DFFXD!4uD▚60[C]"[I]iPq[D]`W9cp[G][J]sGYs[E][D]d▝[D]UYH1fFr[C]▜hQah $▚B&yD@&U[E]y▜pdRIG%TUXHy[F]▚B4▗wi▝g▘Wx45v!wIEXAp5[B]a([D]45EP▖▞[A]c [C]HvVY[D][I]c"[F]uIP2guc[E]1g7!fqHDi4[E]`8[B][J]0[C]es[F]X2%3[E][J]qTPp[A][C]#!E9afrU#e6▜EtD51c!▞x!▖▚[D]2▜rH&`X4[H] v[J]▖@C%yhrR▜[C]u"!x[B]Syr)W9[F]QwD5"$e)hF03XWS▝4Ee▜V▝5i4S0"F[D][A]h▝V#bCE1[A]SGiE▚Iwcd▞Q`ih[D]i5SW)bE)a33▘V!Yu [F]Pb7▚'`0(▝0[D]@[G]dSVtuS[D]x▜B6bY[D]d[J][C]s▗e[C]6@[B]I9qDE!pbD"(6dwD#WY$u▚5[I][J][G]S[G]UR#▘▖[A]fd[F]V 7[J][F]2[C]E(W2E![B]G( i▝4629A▗3t$eSUHcV▜av%u[H]2fTtD5Aru"ch1tT▚▖(V[A]i2g[A]Uf▗U'v6f'&XhsD5aeeavWh745Q5▞DRwGigXV[J][E]FyH [I]Vr4Q`!WxC9S[H]@ 1vy6p[E]▚euApx▖AE[H]E6E▘7yF4dFeG`F3▚66$SdI%g2Ht[F][I]▚ixR▖)!hEYUri!HXT▖!ixf"Y[J]g&P'gR22043QEbDV▖Xrf[C]1[E]Hf▞EB!GH((▗G3#1[J]E'":` PAUSE o&))))):a PAUSE ▜OLN GO TO #V+^<>1234vASN SVAL RESTORE OR INVERSE RESTORE INVERSE ! PAUSE PI INVERSE THEN ~(! PAUSE VAL$ INVERSE w INVERSE ## NEXT INVERSE ! PAUSE 7 INVERSE THEN INVERSE THEN INVERSE THEN INVERSE THEN TO INVERSE ~ INVERSE LLIST STR$ LLIST <>> <>><> READ ~# RETURN COPY ( BEEP RUN READ <> STEP PAUSE NEW 2a PAUSE STEP PAUSE VERIFY *0 DRAW AND *2` PAUSE <>*x/" PAUSE ^V GO SUB S PAUSE <> STEP t PAUSE STEP k> STEP STEP INK STEP h PAUSE Type in number at COPY :a PAUSE AND A BEEP >, BEEP :` PAUSE RETURN 8"1 RETURN 82 RETURN 83 RETURN (84(z BEEP :` PAUSE [D] AND 0 BEEP STEP IF LET GO SUB S SAVE LET h PAUSE COPY ! STEP h PAUSE COPY CLEAR THEN n( IF CLEAR THEN VAL$ :/ RETURN ( THEN O VERIFY 08 REM RETURN 0 NEW _y BEEP )))) FORMAT GO SUB [ SAVE LET CODE GO SUB R<> STEP ▞ PAUSE OR STEP [G] PAUSE = STEP h PAUSE That is wrong - one more try COPY !+|ASN CLS zCOS PRINT STEP [J] PAUSE CHR$ STR$ INT NOT IN STEP 3IN >22 OUT / STEP 3IN STEP 3IN <>
