1 RANDOMIZE USR 65535: REM COPY !@@CODE w GO SUB VAL !XX> COPY w GO SUB VAL CODE OPEN # RETURN vvvvvvvvvv!XXCODE w GO SUB VAL NEXT !@ CONTINUE GO SUB [ POKE /CODE 2=/2] STEP =NOT @ CONTINUE FUCK YOU!&FUCK OFF! COPY COPY REM © BY OLEG MOSCALENCO! COPY COPY REM REMIXED BY AGAEV E.!!!SCREEN$ IZZY 7" LINE 115616 LINE LOAD ^ LOAD ^!P CONTINUE ~ INPUT SQR w#xLEN PLOT [K] FLASH SINT SQR INT OR USIN TO [I]VAL NOT [L]M[D]CHR$ ZCOS SIN COS TO /COS OR [B]EXP LINE [C]D[C]3[SIN COS SIN STEP ] LIST BIN [A]LN THEN [D]E MOVE ` LET LIST LET ▙ LLIST ▜ OPEN # CLS ▖A FORMAT USR A LPRINT LLIST LPRINT [P][G]CHR$ REM [J]PSTR$ .IN BORDER hx,wPEEK / RANDOMIZE IFN ihi▚KKc INK H[O]j[L][T]JKJ5RNDTAN <h@3 IF kABS [F]T/ASN TAN ASN LINE ZiNOT [H]IN TO [E]BH[J]▝hih▜HJb CIRCLE I[P]iH[R]IHI6INKEY$?kC0 RANDOMIZE hPEEK = PRINT b PAUSE Ok?dTAB < REM noINKEY$NON1[R]8lD7 RETURN oEXP +: READ t DATA H})rSQR * DRAW i[R]IHI6INKEY$h?kC0 RANDOMIZE hPEEK I8▝ihi▚-Kc INK H[O]ATN PLOT ©[H][G][H] CONTINUE x OVER LLIST ASN [N] INPUT 'ACS ` PLOT PI> VERIFY BEEP VERIFY POINT 9[Q] POKE BRIGHT CODE f RUN ![T]k▘ DRAW l[S] PRINT [R]▞ IF 3[S]tUSR q LPRINT LLIST LPRINT [P]SIN [G]CHR$ REM [J]PSTR$ ▘J[S][T][S] INVERSE M REM CLOSE #FN FLASH U%TAN GO SUB z REM $s'|ASN $ PAUSE bSCREEN$ BCB=TAB 4`H; PAUSE cASN STOP FLASH 323L BRIGHT sE9JBIN TAB le▟▟ PAUSE b>= CLS CODE ▜ POKE =AT z4 RESTORE DRAW k CLS Yb6m[U]5 READ Yx[C]yxy[G]=[s<>X▙Hyhih▜IJb CIRCLE I[P];: LIST d POKE Lm9bATTR : GO TO (9 READ w BORDER L~*qLN ) COPY /N DATA y-vIN . SAVE N?non▝(Ld OVER O[J]L▜lml,Nf BRIGHT M[L][H]Ed$ue$ed© THEN ▞ CLOSE #V,ll[l READ DEF FN INVERSE kBIN lQY! LOAD LOAD INVERSE -1RNDqhTnTAB SGN 4`H; PAUSE cASN r DATA "b OUT INKEY$<>IN k****************xxxxxxxxxxxxxxxx9999999999999999}}}}}}}}}}}}}}}}1111111111111111ttttttttttttttttTTTTTTTTTTTTTTTTGGGGGGGGGGGGGGGG OVER REM U RETURN GO SUB ATN INPUT STR$ A OUT PAPER CLOSE #STR$ A OUT NEXT : CLOSE #LEN PAUSE CLOSE #▝ CLOSE # RANDOMIZE COPY BORDER READ STR$ A OUT PAUSE POKE : CLOSE #EXP CLOSE #LEN CLOSE #▝ CLOSE # POKE BORDER PRINT BRIGHT W▜ OUT 06*▖ DATA G> POKE POKE POKE POKE BORDER POINT 2 POKE ?6 COPY CLS OR RUN [T] DEF FN BEEP PRINT STEP BEEP GO TO P STEP RUN [T]6 OVER [J][N] INPUT W[O] RETURN LIST COPY O BORDER IF STR$ 6 STEP W[O]2 COPY [N] OVER COPY IN INPUT RETURN IN RETURN COPY DATA P▖O2IN c OVER o[K][U][T] RETURN IF oP STEP LOAD [S] STEP CHR$ [T] STEP [E][T]2 GO TO CHR$ OVER GO SUB 2o[K]2W[O]6STR$ OUT STEP PqSTR$ INVERSE STEP Oq6 COPY [M] OVER [R][M] LINE OUT <=<> RUN MERGE [Q][M] BRIGHT INVERSE [Q][M]▝ OUT RANDOMIZE OVER CAT INVERSE [Q][M]▝ RETURN CONTINUE INPUT COPY [A] INK COPY VERIFY VERIFY VERIFY NEW 2 OR [M]STR$ LOAD ▝ GO SUB IF ▜4LN BEEP RETURN BRIGHT 2 OR [M] CONTINUE 2 OR [M] DIM LOAD :X RANDOMIZE OUT 4 DIM CLOSE # LOAD > IF *2 OR [M]. REM OUT LET DATA OR ▜[T] LIST RETURN FN 6:STR$ @ INPUT LOAD CIRCLE o CAT CLEAR >6LN X LPRINT >= LPRINT X LPRINT WWFN ▚ SAVE SAVE SAVE W8W SAVE SAVE [Q]>6 RANDOMIZE CAT PEEK LN PEEK INT POINT OUT INT MOVE OUT ACS AT OUT ATTR ATN INT OUT ABS INT AT ATTR OVER OUT POKE COPY RESTORE OVER COPY IN INPUT RETURN IN RETURN COPY DATA <> COPY OP, DEF FN CLOSE #[K]2 POKE ?27U23+[N]2 NEXT [N]▞ BORDER COPY ATN RETURN IF RANDOMIZE SAVE LIST IF PRINT SAVE NEXT $ CLEAR <=+ DRAW SIN COPY ABS ATTR @ RANDOMIZE PEEK ATTR RUN COPY SQR [N]=[M] COPY IF LOAD OUT RUN ▟[G]▖[K]▛ OUT ▖[K][C] OUT [D][P][N][G]▛[K][D]▙[C] OUT [G][I]▟ OUT ▟[A] OUT SQR ACS RNDRNDINKEY$ OVER OUT CLS [O][I][O][K]▖ OUT [D]▜[L][O]▟ OUT ▟[K][L]▛[O]▖[D]▙[K]▛ OUT [B][A]▖[P] OUT ▟[A][I]▟[O][C][C] OUT [G] OUT ▛[A][F] OUT [K]▟[G][G] OUT ERASE OUT SQR ACS RNDRNDINKEY$ OUT <> MOVE LINE OVER OUT OUT OUT INT INT OUT [B][O][G][O][D] OUT [D]▜▖[A]▖[E][G][F] OUT ▟[A][I]▟[O][C][C][G]▛ OUT [A][D][K][I] OUT [C][A][E][O][D][K][B][E][A] OUT ▖ OUT DEF FN AND AND TO OUT [I][A][L] MOVE OUT OUT [K]▟▖[A][B][O][R][O][D]▜[B][A] OUT ▛[O] OUT [G][I]▟[O] OUT [B][K] OUT [O][E][O][D][O]▜ OUT [B][O] OUT [C][B][A][I][G][H] OUT [E][A][C]▜[P]▛[K]▟[O][H] OPEN # OUT OUT [E][A]▛[A]▟▚[H] OUT [B][K] OUT [N]▚[D][A] OUT TAN INT SIN CODE AT ATTR VAL LEN OUT ASN VAL INKEY$AT ATTR ACS SGN TAN [O] OUT [G][D][G] OUT [A][B] OUT [N]▚[D] OUT [B][K] OUT ▟[O]▖[G][D]▜[B][A] OUT ▟[O]▖[K][L][K][B] OUT BEEP [O] OUT ▛[O][E][G][H] OPEN # OUT ▖▚ OPEN # OUT [N][A][D]▜▗[G][B]▛▖[A] VERIFY OPEN # OUT [B][A] OUT [C][B][K] OUT [L][O][D][A]▜ OUT [K]▟[K][L][K][D][O]▛▜ OUT [K][K] OUT ▛[O][E] OPEN # OUT [R]▛[A] OUT [D][P][N][A][F] OUT ▛[K][K]▟▜ OUT [C][A]▞[K]▛ OUT ▖ OUT [B][K][K] OUT [G][I]▟[O]▛▜ OUT BEEP [B][K] OUT [B][O] OUT TAN INT SIN CODE AT ATTR VAL LEN INT VERIFY MOVE OUT [B][O]▞[O]▖ OUT [K][F][R][O] OUT [E][B][A][E] OUT INVERSE DEF FN INVERSE OPEN # OUT ▖▚ OUT [C][A]▞[K]▛[K] OUT ▟[A]▖[K]▟[G]▛▜ OUT ▖[A][F] OUT AT CODE INT SGN SGN INKEY$ OUT [B][O] OUT ▟[O]▖[G][D]▜[B][A]▛▜ OUT [H][K][C]▚ OUT TAN INT SIN CODE AT ATTR VAL LEN [O] OUT BEEP [K][D][G] OUT [A][B] OUT [G][C][K][K]▛▙ VERIFY OPEN # OUT [O] OUT [B][O]▞[O]▖ OUT INVERSE STEP INVERSE OPEN # OUT ▖▚ OUT [C][A]▞[K]▛[K] OUT [G][I]▟[O]▛▜ OUT ▖ OUT SQR ACS RNDRNDINKEY$ OUT <> MOVE LINE OUT [N][K] OUT ▟[A][N][D][K][C] OUT [B][O] OUT AT ACS LEN SGN COS INT PEEK TAB OUT ASN VAL INKEY$AT ATTR ACS SGN TAN [K] OUT [G][D][G] OUT [B][O] OUT [D][K][L][P]▘[G][H] OUT [E][B][A][E][O][H] OR OUT RND OPEN #PI OPEN #AT CODE PEEK SGN INT OPEN #INT LEN ATTR INT TAB MOVE OUT OUT [N]▚[D][G] OUT [G] OUT [K]▘[K] OUT [B][K][E][A]▛[A]▟▚[K] OUT ▟[G][R][G][B]▚ OUT [B][K][O][E][O] OPEN # OUT [B][A] OUT [G] OUT [A][B][G] OUT ▛[O][E]▞[K] OUT ▛▟[O][B][K][B]▚ MOVE OUT CLS [E][A][B]▛[O][E]▛[B]▚[F] OUT ▛[K][D][K][J][A][B] OUT OUT [O]▖▛[A]▟[A][C] OUT ▖▚ OUT [C][A]▞[K]▛[K] OUT ▟[A][R][G]▛[O]▛▜ OUT [B][O] OUT [O]▛[O]▖[E][K] OUT ▖[A] OUT ▖▟[K][C]▙ OUT [O][I]▟[E][G] MOVE OUT OUT OUT [E]▛[O]▛[G] OUT [A] OUT [C]▚[E][K] MOVE OUT OUT ▛[K] OPEN # OUT OUT [E][A][I][A] OUT [K]▛▜ OUT [C]▚[E][O][D]▜[B]▚[F] OUT [A]▟[A][M][K][A]▟ OPEN # OUT [K][F][R][O] OUT [B][O][D][O]▞[L][O][P]▛▙ OUT [C]▚[E][A][F] OPEN # OUT [E][A]▛[A]▟[P] OUT [B][O][G][O][D] OUT [O][B][L]▟[K][F] OUT [E][A][D][K][B][G][E] OUT ▖ OUT DEF FN AND AND TO OUT [I][A][L] MOVE OUT OUT [K][D][G] OUT ▖▚ OUT [B][K] OUT [G][C][K][K]▛[K] OUT [C] MOVE OUT [A]▟[A][M][K][A]▟[O] OPEN # OUT ▛[A] OUT ▟[G][K]▞[O][F]▛[K] OUT [B][O] OUT ▟▟ OUT INVERSE [M][O]▟[G][M]▚[B][A] INVERSE OPEN # OUT [B][O] OUT <>>= OUT [C][K]▛[A] MOVE OUT [L][K]▜ OUT [A][R]▛[G] OUT [L][O]▟[A][C] OUT ▖▚ OUT [C][A]▞[K]▛[K] OUT [E][G]▛▜ OUT [D][O]▛▚ OUT [C] MOVE OUT [A]▟[A][M][K][A]▟[O] OUT ▟[O][D][G][R][B][A][F] OUT [E][A][B][J][G][I]▟[O][M][G][G] OUT BEEP [A][L][E][D][P][R][K][B][G][K] OUT [N][K] OUT [O][F][E][G] OVER VERIFY MOVE OUT IF [K][D][G] OUT ▖▚ OUT [B]▞[L][O][K]▛[K]▜ OUT ▖ OUT ▟[K][C][A][B]▛[K] OUT AT CODE INT SGN ATTR TAB SCREEN$ SIN [O] OPEN # OUT ▛[A] OUT ▖[A][B][G]▛[K] OUT [A] OUT [D][K][L][P]▘[K][C] OUT ▛[K][D][K][J][A][B] OUT ▖ OUT [C][A][E]▖[K] OR OUT OUT OUT BEEP CAT AND LINE VERIFY OUT TO CAT <> ERASE CAT AND ERASE THEN <> OUT BEEP [A]▖[O]▛▜ OUT [O][D][K][E][K]▙ VERIFY MOVE OUT OUT [E][O][R][K]▛▖[A] OUT ▟[O][N][A]▛ OUT [G] OUT [B][G][E][G][K] OUT [M][K][B]▚ OUT [I][O]▟[O][B]▛[G]▟[P]▛▙ MOVE OUT SAVE [G] OUT [A][D][K][L][B]▙▙ OUT [G][B][J][A]▟[C][O][M][G]▙ OUT [L][D]▙ OUT [A][B][A]▟[A]▖ OR OUT RANDOMIZE OUT DEF FN AND AND THEN OUT [I][A][L][O] OUT [N]▚[D][O] OUT ▟[O]▟[O][N][A]▛[O][B][O] OUT [D][O]▛[O] OUT [E][A][C]▜[P]▛[K]▟[O] OUT OUT CIRCLE [D][K][B][G][B][I]▟[O][L] ERASE DEF FN STEP <= CIRCLE OPEN # OUT [E][A]▛[A]▟[O]▙ OUT [A][D][B][A]▛▜[P] OUT [A]▖[C][K]▛[G][C][O] OUT OUT [J][G]▟[C][K][B][B][A][F] OUT DEF FN STEP <= OUT [C][O]▗[G][B][A][F] MOVE OUT [B][O][C] OUT ▛▟[K][N][P]▛▙ OUT [J][G][B][O][B]▚ OPEN # OUT [R]▛[A][N]▚ OUT [L][K][D][O]▛▜ OUT [C][A][B]▛[O]▞[E] MOVE OUT OUT ▛[A] OUT [N][L][K]▛ OUT [A][R][K][B]▜ OUT ▖▚[I][A][L][B][A] OUT [L][D]▙ OUT ▖[O] OPEN # OUT ▛[O][E] OUT [R]▛[A] OUT [B][K] OUT ▛[G]▛[K] OUT ▖[A][F] OUT ▗[O][B] MOVE OUT [E][A][B]▛[O][E]▛[B]▚[F] OUT ▛[K][D][K][J][A][B] OR OUT OUT OUT BEEP CAT AND LINE VERIFY OUT TO CAT <> ERASE CAT AND ERASE THEN <> OUT BEEP [O][D][K][E][K][F] VERIFY MOVE OUT NEXT [B] OUT ▖[A]▛ OUT [G] OUT [A][L][A]▗[D][A] OUT ▖▟[K][C]▙ OUT ▟[G]▖[K]▛▛▖[G][F] OUT [G] OUT EXP SCREEN$ SGN TAN VAL ABS MOVE OUT OUT OUT [B][O][R][O][D][O] OUT [E][A][B][K][R][B][A] OUT ▟[G]▖[K]▛▚ MOVE OUT RUN ATN INT COS COS VAL AT OUT PEEK LEN SQR OUT ABS INT AT ATTR OUT FN ACS AT ATN INT AT OUT EXP VAL TAB OUT LEN INT PIATTR OUT LN SCREEN$ INKEY$AT OR OUT IF SCREEN$ TAN TAB PEEK ACS LEN INT OR OUT OUT TAB AT ATTR [Q]>= OUT BEEP TAB AT ATTR OUT SGN VAL SIN SIN PEEK LEN SQR INT TAB OUT ACS AT OUT ABS INT AT ATTR OUT SGN VAL CODE INKEY$INT TAB OUT AT INKEY$AT ATTR INT SIN OVER VERIFY OPEN # OUT TAN COS PEEK POINT OPEN # OUT SIN PEEK PI OUT ACS FN PEEK SIN VAL ATTR VAL OUT BEEP ▛ATN PEEK LEN TAN AT OUT EXP VAL TAB OUT ATN INT TAB VAL ERASE VAL$ SCREEN$ INT AT ATTR OUT DEF FN OPEN # STEP OUT DEF FN STEP <= OVER VERIFY OPEN # OUT BEEP TAB VERIFY ERASE AT VAL EXP ATTR OPEN # OUT AT ATTR PEEK COS TAN INT TAB OUT BEEP OVER VERIFY OPEN # OUT PEEK LEN SQR TAB INT ACS OUT TAN VAL COS INT AT LEN ACS TAN OUT BEEP ATTR ATN PEEK LEN TAN AT OUT EXP VAL TAB OUT ATTR ATN ACS AT OUT SIN SCREEN$ AT ACS SGN OVER OUT SQR VAL LEN CIRCLE ATTR OUT ABS INT OUT PEEK LEN LN TAB INKEY$ OVER VERIFY OPEN # OUT VAL COS INT LN OUT SIN VAL AT SGN PEEK COS INT LEN SGN VAL OUT BEEP [K][D][G] OUT OUT OUT [N][L][K]▗▜ OUT [G][O]▛▜ OUT ▟[A][I]▟[O][C][C]▚ OPEN # OUT ▛[A] OUT [R][G]▛▚▖[O][F] OUT [L][K][N][G][D][G][C] OUT [A]▖[K]▛[E][G][H] BEEP OVER VERIFY OUT [K][E]▛▟[C][A]▖ OVER OUT [O][G][N][A] OUT [O] OUT ▛ OUT ▟[A][I]▟[O][C][C] OVER OUT [B][K] OUT [A][N][G]▞[O][F]▙ OUT [O] OUT ▛VAL ATTR OUT COS VAL PEEK SQR INT TAB OVER VERIFY OUT PEEK LEN SQR OUT VAL ATTR ATN INT TAB AT MOVE MOVE MOVE OUT CLS SIN VAL AT SGN VAL FN OUT PEEK LEN SQR OUT TAB INT LN ACS VAL LEN AT OR OUT TAN SCREEN$ COS ACS TAN VAL POINT OUT SQR SIN ACS ATTR TAB INKEY$ OPEN # OUT TAN AT PEEK OUT AT VAL EXP ATTR FN PEEK TAB INT OUT BEEP SGN VAL SIN SIN PEEK LEN SQR VAL ERASE DEF FN STEP <= OUT LEN VAL ATTR OUT AT ATN ACS ATTR OVER VERIFY OPEN # OUT EXP PEEK LEN ATTR VAL SIN PEEK AT AT VAL EXP ATTR OPEN # OUT ATN VAL LEN INT INKEY$ OUT AT VAL EXP ATTR FN PEEK TAB INT OUT BEEP ATN VAL LEN INT INKEY$ OUT SGN VAL SIN SIN PEEK LEN SQR INT TAB OUT ▛[A] OUT [O][C][O]▙ OUT [E]▟▛[O]▙ OUT [A][N][A][D][A][R][E][O] OVER VERIFY OPEN # OUT COS PEEK CODE ATTR INT POINT OUT BEEP ATTR ATN PEEK LEN TAN AT OUT EXP VAL TAB OUT SQR ACS AT TAN OUT POINT INT TAB AT ACS VAL LEN OUT VAL EXP OUT CIRCLE AT LEN VAL FN OUT AT ATTR TAB ACS TAN INT CIRCLE OVER VERIFY OPEN # OUT POINT SIN POINT OUT AT VAL EXP ATTR OUT BEEP [E][A][I][L][O] OUT ▛▚ OUT [O][G]▗[K]▗▜ OUT [C][B][K] OUT AT CODE TAB ACS ATTR INT [Q]CODE TAB ACS LEN ATTR USR USR OUT [L][O] OPEN # OUT [G] OUT [B][K] OUT [O][N][L]▜ OPEN # OUT [R]▛[A] OUT ▛▚ OUT [C][B][K] OUT [L][A][D]▞[K][B] OUT [K]▘[K] OUT LINE CAT OUT ▟[N][D][K][F] OVER VERIFY OPEN # OUT SQR SIN ACS ATTR TAB ACS INT POINT OUT SQR SIN ACS ATTR TAB INKEY$ OPEN # OUT AT INK AT OUT AT VAL EXP ATTR FN PEEK TAB INT OUT BEEP [B] OUT [G] OUT [L][G][E][A]▖[A][L] OUT ▖▚ OUT [C][B][K] OUT [L][O][D][G] OVER OUT OUT LINE OUT [L][G][E][A]▖ OUT [B][O][E]▟▚[D][G]▜ OUT CAT OUT [L][A]▟[A]▞[E][G] OVER CLS OUT [A][B][G] OUT ▛[K][K]▟▜ OUT [L][O]▞[K] OUT [B][K] OUT [J][A]▟[C][O]▛[G]▟[P]▛▙ OVER IF VERIFY OPEN # OUT TAB VAL AT INT ERASE AT VAL EXP ATTR OUT BEEP [O][G][N][A] OUT [O] OUT [O]▛[O]▖[E] OUT [E] OUT ABS SCREEN$ SIN CODE INKEY$ OVER OUT [E][O][E] OUT [B][O][R][K]▛ OUT [D][K][B][G][B][O]USR VERIFY OPEN # OUT POINT VAL TAB VAL ABS INKEY$INT POINT OUT SQR SIN ACS ATTR TAB INKEY$ OUT BEEP ATN SIN IF MOVE MOVE MOVE OUT OUT ABS PEEK AT ACS SGN OUT ACS AT OUT ABS INT AT ATTR MOVE MOVE MOVE OUT OUT OUT VAL LEN COS INKEY$ OUT AT ATN ACS ATTR OVER IF VERIFY OPEN # OUT EXP EXP SGN OUT SGN VAL SIN CODE SCREEN$ ATTR INT TAB AT BEEP INKEY$INT PEEK ATN OVER OUT TAB SCREEN$ AT AT ACS PEEK LEN OUT ABS PEEK LN LN PEEK SIN VAL LEN OUT ACS AT OUT ABS INT AT ATTR OUT INKEY$VAL SCREEN$ TAB AT OUT FN VAL TAB TAN OVER OUT OUT ATTR ATN PEEK LEN TAN OUT INKEY$VAL SCREEN$ OUT EXP VAL TAB OUT CODE TAB VAL LN AT OVER OUT PEEK LEN SQR OUT FN ATN PEEK ATTR OUT PEEK ABS VAL SCREEN$ ATTR OUT TAB SCREEN$ AT AT ACS EXP ACS SGN PEEK ATTR ACS VAL LEN OUT VAL EXP OUT CIRCLE INT TAB ACS SGN OUT PEEK LEN SQR OUT ATTR ATN INT OUT EXP COS VAL PEEK ATTR INT TAB AT CIRCLE USR USR OUT ACS OUT ATTR ATN ACS LEN TAN OUT ACS ATTR OUT ABS INT OUT LEN ACS SGN INT OVER OVER OVER VERIFY OPEN # OUT PEEK INK SQR OUT AT VAL EXP ATTR FN PEEK TAB INT OUT BEEP OUT ▛▚ OUT ▞[K] OUT [A][D][O][D] OUT EXP SCREEN$ SGN TAN OUT AT VAL EXP ATTR AT ATTR PEEK TAB OUT [O] OUT AT INT INKEY$SIN [A]SCREEN$ TAB [O]USR CLS OUT [K][D][G] OUT [B][K]▛ OPEN # OUT ▛[A] OUT [R][G]▛[O][F] OUT [L][O][D]▜▗[K] MOVE VERIFY OPEN # OUT AT ATN ACS ERASE AT VAL EXP ATTR OUT BEEP [K]▟[I][K][F] OVER OUT [O][G][N][A] OUT [O] OUT [B][K]▟[O][N][A][R][P] OUT ▖[K]▟[G][P] OUT ▛[A][F] OUT [G][I]▟▗[E][G] OVER OUT [E]▛[O]▛[G] OPEN # OUT ▖ OUT INVERSE [M][O]▟[G][M]▚[B][A] INVERSE OUT [N]▚[D] OUT [C]▞[G][E] OPEN # OUT [E][A]▛[A]▟▚[F] OUT [L][K][D][O][K]▛ OUT ▟[K][L][O][E]▛[A]▟ OUT [E] OUT CIRCLE COS PEEK AT INT TAB OUT AT VAL$ SCREEN$ PEEK SQR CIRCLE MOVE OUT OUT OUT [K][H][A]▖ OUT ▖ OUT ▟[O][N][A]▛[K] OVER OVER OVER VERIFY OPEN # OUT CODE PEEK POINT INT COS OUT LEN ACS TAN ACS ATTR ACS LEN OPEN # OUT COS INT ATTR PEEK INT POINT OUT PEEK COS INT PIINT INKEY$ OUT OUT BEEP [R][G]▛[O][F] OUT [L][O][D]▜▗[K] OVER VERIFY OPEN # OUT ABS VAL ABS TAN VAL POINT OUT INT SCREEN$ LN INT LEN INT OUT BEEP ▛[K][N][K] OUT [N]▚ OUT [B][O][L][A] OUT [N]▚[D][A] OUT [A][D][O]▛▜ OUT AT SIN PEEK COS COS OUT EXP SCREEN$ SGN TAN OPEN # OUT ▛ MOVE [E] MOVE OUT [N][D][O][I][A][L][O]▟▙ OUT ▛▖[A][G][C] OUT [B][K][A][C][K]▟[B]▚[C] OUT ▖[A][B][E][O][C] OUT ▙ OUT [L][O][D] OUT [E][O][C][K][B] OUT [A] OUT [O][D][I][K][N]▟[K] OUT [B][O] OUT THEN OPEN # OUT [O] OUT [B][K] OUT [B][O] OUT LINE MOVE OUT [G] OUT ▖[K] OUT ▛▖[A][G] OUT [L][G][E][G] OUT [A][D][B][A][K] OUT AT ATN ACS ATTR OVER OVER OVER VERIFY OUT PEEK LEN SQR OUT VAL ATTR ATN INT TAB AT MOVE MOVE MOVE OUT OUT OUT AT ATTR MOVE OUT CODE INT ATTR INT TAB ABS SCREEN$ TAB LN OR OUT OUT OUT AT ATTR SCREEN$ SQR ACS VAL OUT ASN MOVE SCREEN$ MOVE PEEK MOVE OUT BEEP OUT [B]▞[B][A] OUT [G][O]▛▜ OUT [B][O] OUT [E][O][E][G][H] OUT [C][O]▗[G][B][O][H] OUT ▖▚ OUT [L][K][D][O][K]▛[K] OUT ▖[A][G] OUT ▟[A][I]▟[O][C][C]▚ OUT BEEP [C] MOVE OUT AT ATTR PEEK TAB OUT SIN SQR VERIFY OVER OVER OVER VERIFY OPEN # OUT ATN PEEK SGN TAN INT TAB OUT AT ATTR ACS LEN LN INT TAB OUT BEEP INKEY$VAL SCREEN$ TAB OUT SQR ACS AT TAN OUT PEEK SQR POINT INT LEN ATTR SCREEN$ TAB INT AT OUT COS VAL VAL TAN OUT LEN ACS SGN INT OVER OUT VAL LEN COS INKEY$ OUT SIN PEEK TAN INT OUT ACS ATTR OUT EXP VAL TAB OUT THEN <= OUT SIN VAL SQR INT OUT ATTR VAL VAL MOVE MOVE MOVE VERIFY OPEN # OUT EXP INT COS ACS PI OUT BEEP SGN PEEK ATTR USR USR USR VERIFY OUT PEEK LEN SQR OUT VAL ATTR ATN INT TAB AT MOVE IF OUT PLOT FN INT COS COS MOVE OUT INT LEN SQR OUT VAL EXP OUT LN TAB INT PEEK ATTR ACS LEN LN AT MOVE OUT IF PEEK LEN SQR OUT LEN VAL FN OUT FN INT OUT BEEP ACS OUT PEEK LEN SQR OUT PEEK COS INT PIINT INKEY$ OUT COS INT ATTR PEEK INT POINT VERIFY OUT FN PEEK LEN ATTR OUT AT PEEK INKEY$AT OUT AT VAL SIN INT OUT EXP SCREEN$ SGN TAN AT OUT BEEP TAN PEEK TAN OUT ▞[O][D]▜ OPEN # OUT [B][A] OUT [N][K] OUT [B][G][H] OUT [A][E][O] OUT [K]▘[K] OUT [B][K][D]▜▙ VERIFY MOVE MOVE MOVE OUT IF AT SCREEN$ CODE INT TAB OPEN # OUT SIN INT LN PEEK OPEN # OUT TAB INT PEEK COS OPEN # OUT SGN VAL LEN ATTR TAB PEEK AT OPEN # OUT TAB INT SQR OPEN # OUT SQR VAL SCREEN$ ABS COS INT OPEN # OUT PEEK INT TAB VAL OPEN # OUT SQR INT AT INT TAB ATTR OPEN # OUT TAB VAL ABS VAL OPEN # OUT SQR ACS RNDRNDINKEY$ CIRCLE AT OUT EXP SCREEN$ SGN TAN OUT ATTR VAL OUT LEN INT PIATTR OUT EXP SCREEN$ SGN TAN INT TAB AT OR OUT CLS ATTR ATN SQR ERASE AT ATN ACS ATTR OUT BEEP PEEK LN PEEK ACS LEN OUT EXP SCREEN$ SGN TAN OUT EXP VAL TAB OUT INVERSE ATTR INT TAB SIN ACS LEN PEEK ATTR VAL TAB INVERSE OUT PEEK LEN SQR OUT EXP VAL TAB OUT INKEY$VAL SCREEN$ TAB AT OUT EXP SCREEN$ SGN TAN ACS LEN LN OUT FN VAL TAB TAN OVER OVER OVER VERIFY OPEN # OUT PEEK COS INT PIINT INKEY$ OUT INT TAB SIN PEEK TAN VAL POINT OUT BEEP INVERSE ▛▖[A][G] INVERSE OUT ▟[A][I]▟[O][C][C]▚ OUT [B][K] OUT ▟[O][N][A]▛[O][P]▛ OUT [B][O] OUT [A][D][A]▖[G][B][K] OUT [E][A][C]▜[P]▛[K]▟[O][H] OVER OVER OVER VERIFY OPEN # OUT AT VAL EXP ATTR AT ATTR PEEK TAB OUT BEEP [A] OUT ▟[A]▜[N][K] OUT PEEK INK SQR OUT AT VAL EXP ATTR FN PEEK TAB INT OUT [O] OUT OUT INVERSE AT INT INKEY$SIN VAL SCREEN$ TAB ERASE DEF FN STEP <= INVERSE OPEN # OUT PEEK OUT VAL ATTR OUT ATN PEEK SGN OUT EXP SCREEN$ SGN TAN OUT [O] OUT CIRCLE SIN AT PI OUT DEF FN DEF FN MOVE TAB CIRCLE MOVE OUT [B] OUT ▛▚ OUT [G] OUT [D][A][H] OVER CLS OUT [C][O][D][A] OUT [D][G] OUT [R]▛[A] OUT [E][O]▞[K]▛ OUT TAN COS PEEK POINT USR USR USR OUT ATTR INT SIN OUT [N][A][D][K][K] OUT [A][B] OUT ▟[A][G][D] OUT ▖[D][A][C][O]▛▜ OUT ATTR ATN SQR ERASE EXP SCREEN$ SGN TAN INT TAB AT OPEN # OUT [O] OUT [B][K] OUT ▛[K][N]▙ MOVE OUT OUT [G][D][G] OUT ▛▚ OUT [E][O]▞[L][A][F] OUT ▞[A][K] OUT [N][C][O]▞[E][O]USR USR USR OUT OUT OUT [E]▛[O]▛[G] OUT ▖[D][A][C] OUT OUT [A][C][A]▘▜[P] OUT SIN PEEK LN ACS SGN OUT ABS SCREEN$ ATTR ATTR VAL LEN OUT [B][K] OUT [R][G]▛[O][K]▛▙ OVER CLS OUT OUT [O] OUT OUT ▛[K][N]▙ OUT [L]▟[I][G][H] OUT [A][A][N][A]▖ OUT [A][E][O] OUT [B][K] OUT [B][O][N][D][P][L][O][D][A]▜ MOVE CLS VERIFY OPEN # OUT PEEK LEN SQR INKEY$ OUT SGN ATN INT TAB LEN ACS TAN VAL POINT OUT BEEP PEEK OUT [R]▛[A] OPEN # OUT [A][L][B][G][C] OUT ABS PEEK AT ACS SGN OUT [N][D][A][E][A][C] OUT [L][K][D][O]▛▜ OUT ▟[A][I]▟[O][C][C]▚ OUT [O][O][L][D][A]USR USR USR OUT [G][D][G] OUT [C][O] OUT [B][K] OUT [H]▖[O]▛[O][K]▛USR USR USR OUT ▛[O][E] OUT ▛▚ OUT [A]▛▟[K][B][G]▟[F]▙ OPEN # OUT [G] OUT OUT ▛[K][N]▙ OUT [A][D][R][G]▛▙ OUT BEEP ▙ OUT [L][C][O][P] VERIFY OVER OVER OVER VERIFY OPEN # OUT RNDSCREEN$ RND ERASE AT VAL EXP ATTR FN PEEK TAB INT OUT BEEP [O] OUT ▖[O][C] OUT EXP SCREEN$ SGN TAN OPEN # OUT ▟[A]▛[A] OUT EXP SCREEN$ SGN TAN MOVE MOVE MOVE VERIFY OPEN # OUT PEEK COS INT TAN AT OUT BEEP [E][O][E][A][K] OUT ▛▚ OUT [I][A]▖[B][A] OVER OVER OVER OUT [B][K] OUT [C][A][I] OUT [E][G][B]▛▜ OUT LINE CAT CAT OUT ▟[N] MOVE OUT [B][O] OUT LINE OUT [L][G][E][A]▖ OVER OVER OVER OUT [O] OUT OUT [C][K][B]▙ OUT ▛[A][I][L][O] OUT [G] OUT ▟[O]▖[L][O] OUT [L][K][B]▜[I][G] OUT [E][A][B][R][G][D][G]▜ OVER OVER OVER OUT EXP SCREEN$ SGN TAN OUT ▛[K][N][K] OUT ▖ OUT ▟[E][G] OPEN # OUT [N][O]▟▚[I][O] OUT [A][I][O][B][O]▙ OVER RUN VERIFY MOVE OUT CLS [K]▟[K][L][O][R] OUT [A][D][K][L][B][K][I][A] OUT EXP SCREEN$ SGN TAN [O] OUT ▙ OUT [K]▟[K][L][O][P] OUT [O][D][K][E][K][P] MOVE OUT PLOT ▟[G]▖[K]▛ OPEN # OUT ▟[K][N]▙▛[O] OVER OVER OVER OUT OUT ▛[A]▛ OUT EXP SCREEN$ SGN TAN OUT ▙ OUT [A]▚[D][O][P] OUT [D][P][L]▙[C] OPEN # OUT [E][A]▛[A]▟▚[K] OUT ▟[O]▟[O][N][O]▛▚▖[O][P]▛ OUT INVERSE [B][A]▖▚[K] INVERSE OUT [E][A][C]▜[P]▛[K]▟▚ OUT [B][O] OUT [A][B][A]▖[K] OUT [A][I][O][B][A][I][A] OUT CODE INT LEN ATTR PEEK LN VAL LEN PEEK OVER CLS OUT OUT ▛[A] OUT [K][R][O][D]▜[B][O]▙ OUT [G]▛[A]▟[G]▙ OUT ▛[O][E][G][H] OUT [E][A][C]▜[P]▛[K]▟[A]▖ OPEN # OUT [E][O][E] OR OUT INVERSE >=>=>= INVERSE OPEN # OUT INVERSE [C][A][E]▖[O] ERASE DEF FN STEP <= INVERSE OPEN # OUT INVERSE [C][A][E]▖[O] ERASE DEF FN STEP <= CLOSE # INVERSE OPEN # OUT INVERSE [O]▛[C] ERASE ▛▟[N][A] OUT STEP INVERSE OUT [G] OUT ▛[A]▛ OUT [G][A][E] OUT [C][A]▞[B][A] OUT ▟[A][L][A][D]▞[O]▛▜ OUT [B][O] OUT [E][G][D][A][N][O][F]▛ OUT [L][O][E] OUT LINE OUT [G][D][G] OUT <> OPEN # OUT [B][A] OUT ▙ OUT [A]▛[O][B][A]▖[D][P]▜ MOVE OUT OUT OUT [A][D]▜▙▜ OUT [D][R][O][K][C] OUT ▙ OUT ▟[O][E][O]▞ OUT [A] OUT DEF FN STEP <= OUT [D][K][B][G][B][I]▟[O][L][K] MOVE OUT OUT OUT ▛ OUT [C][O]▗[G][B] OUT [C]▚ OUT ▟[O]▟[O][N][A]▛[O][D][G] OUT ▖ OUT [B][O][R][O][D][K] OUT DEF FN AND AND THEN OUT [I][A][L]PEEK OUT OUT [C][A][G][C] OUT [L]▟[I][A][C] OUT [C][O][E][A][C] MOVE OUT OUT OUT [D][K][B][G][B][I]▟[O][L] ERASE DEF FN STEP <= OUT [G][C][K][K]▛ OUT [G][L][K][O][D]▜[B]▚[F] OUT [E][A][B]▛▟[A][D][D][K]▟ OUT [L][G][E][A]▖[A][L][O] OUT BEEP [O][B][A]▖[A] OUT ▟[O]▟[O][N][A]▛[O][B][B]▚[F] OUT [B][O][C][G] VERIFY OPEN # OUT [B][A]▟[C][O][D]▜[B]▚[F] OUT [A]▟▛ OUT BRIGHT EXP EXP OUT BEEP [O] OUT [B][K] OUT [E][O][E] OUT ▖ OUT [C][A][E]▖[K] ERASE DEF FN STEP <= CLOSE # MOVE OUT [A]▟▛ OUT [K]▛▜ OPEN # OUT [O] OUT ▛[A][D][E] OUT [B][K]▛ OVER VERIFY OPEN # OUT ▟[O][N][A]▛[O][K]▛ OUT [N][K] OUT [K]▟[K][N][A][K]▖ OPEN # OUT [K]▟[K][E][D][P][R][K][B][G][K] OUT OUT [A][D][B][A]▛▜[P] OUT ▟[O]▖[G][D]▜[B][A] OUT BEEP [N][G][R] OUT CIRCLE CODE INT LEN ATTR PEEK LN VAL LEN ERASE THEN <= CIRCLE VERIFY OUT [G] OUT [C][B][A][I][A][K] OUT [L]▟[I][A][K] MOVE OUT OUT [L][D]▙ OUT ▟[G][C][K]▟[O] OUT ▟[G]▖[K][L] OUT CIRCLE AT ATN VAL SGN TAN OUT SIN INT LN PEEK OUT SQR INT SIN VAL CIRCLE MOVE OUT ▖[A] OUT ▖[K][H] OUT BEEP [C][B][K] OUT [G]▖[K]▛[B]▚[H] VERIFY OUT [C][O]▗[G][B][O][H] OUT [B][K] OUT ▟[O][N][A]▛[O][K]▛ OUT [B][A]▟[C][O][D]▜[B][A] OUT [K]▟▖[O]▙ OUT [R][O]▛▜ OUT BEEP [L][O]▞[K] OUT [B][O] OUT CODE TAB VAL EXP ACS CLOSE # OUT [L]▖[G][B]▛[A] OUT [B][O] OUT DEF FN OUT [G][E][K][D]▜ VERIFY OPEN # OUT [O] OUT [B][O] OUT CIRCLE [D][K][B][G][B][I]▟[O][L][K] CIRCLE OUT ▛[A][G]▛ OUT ▖[K] OUT [A]▛[D][G][R][B][A] MOVE OUT ▖ OUT [A][N]▘[K][C] OUT [L][K][D][A] OUT [O] OUT [C][O][D]▚[C] OUT ERASE OUT [A][B][A]▟▚ MOVE OUT RANDOMIZE [K][D][G] OUT [E][A][I][A] OUT [O][G][B]▛[K]▟[K][A]▖[O][D] OUT CIRCLE [D][K][B][G][B][I]▟[O][L] ERASE DEF FN STEP <= CIRCLE OPEN # OUT ▛[A] OUT ▖[A][B][G]▛[K] OR OUT BEEP CAT AND LINE VERIFY OUT TO CAT <> ERASE CAT AND ERASE THEN <> OUT BEEP [O][D][K][E][K][F] VERIFY MOVE OUT SAVE [B] OUT ▖[K] OPEN # OUT [A]▟[O] OUT [C][B][K] OUT [O][E][O][B][R][G]▖[O]▛▜ MOVE OUT IF [L][A] OUT ▖[G][L][O][B][G]▙ OVER CLS OUT POKE ▛[A] OUT [B][A]▖[O] OUT ▙ OUT BEEP [O][I][O][K]▖ OUT [D]▜[L][O]▟ VERIFY OVER OUT OUT OUT [R]▛[A] OUT ▛[A] OUT [D][K][H][O] OUT [O][I][A]▖[A]▟[G][D]▙ MOVE OUT RUN [K]▘[K] OUT [B][K][C][B][A][I][A] OUT ATN INT COS COS VAL AT OUT ATTR VAL OUT ABS INT AT ATTR OUT SIN SCREEN$ AT ACS SGN SIN PEEK TAN INT TAB AT OUT [A]LEN OUT AT CODE INT SGN ATTR TAB SCREEN$ SIN OR OUT OUT OUT INVERSE SQR TAB INT PEEK SIN OUT ATTR INT PEEK SIN INVERSE OUT LN TAB VAL SCREEN$ CODE OPEN # OUT TAB VAL INKEY$PEEK COS OUT AT VAL EXP ATTR OPEN # OUT SIN SCREEN$ AT ACS SGN OUT AT VAL EXP ATTR OPEN # OUT LN SCREEN$ INKEY$AT OUT EXP TAB VAL SIN OUT ASN MOVE SCREEN$ MOVE PEEK MOVE OUT AT ATTR SCREEN$ SQR ACS VAL OPEN # OUT PEEK LEN SQR TAB INT FN OUT AT INT LEN SQR INT ATTR AT TAN ACS OPEN # OUT VAL COS INT LN OUT TAN TAB PEEK AT LEN VAL ABS PEEK INT POINT OUT PEEK LEN SQR OUT VAL ATTR ATN INT TAB AT MOVE MOVE MOVE OUT IF [B] OUT ▖[K] OPEN # OUT ▙ OUT [O][E][O][B][R][G]▖[O][P] MOVE OUT CLS [L][A] OUT [B][A]▖▚[H] OUT ▖▛▟[K][R] OVER CLS OUT SAVE ABS INKEY$INT OVER OUT PLOT CODE MOVE AT MOVE OUT [R][K]▟▛ OVER OUT [A][B][K]▛ OUT ▖[A][C][B][G][D] OR OUT OUT [C][G][C][A] OUT ▛[K]▘[G][B][A][I][A] OUT [L][A][C][O] OUT ▙ OUT [N][K] OUT ▗▛[A][E] OUT [B][K] OUT [H][A]▞ OVER OUT ▛[A] OUT [K][F] OUT [H] MOVE MOVE OUT ▖ OUT [A][E][A]▗[E][A] OUT [B] OPEN # OUT ▛[A] OUT [K][F] OUT ▞[A] OUT [A][E][O]▞ OVER OUT POKE ABS INKEY$INT OVER OUT PLOT CODE MOVE CODE MOVE AT MOVE OUT OUT SGN VAL CODE INKEY$TAB ACS LN ATN ATTR OUT ABS INKEY$ OUT VAL COS INT LN OUT SIN VAL AT SGN PEEK COS INT LEN SGN VAL OUT VAL LEN OUT DEF FN AND AND TO MOVE OUT TAB INT AT ATTR VAL TAB INT SQR OUT PEEK LEN SQR OUT DEF FN STEP <= OUT SIN VAL SQR INT OUT TAB INT COS INT PEEK AT INT SQR OUT ABS INKEY$ OUT PEEK LN PEEK INT POINT OUT INT MOVE OUT VAL LEN OUT CAT TO MOVE CAT <> MOVE AND THEN OVER OVER OUT OUT PEEK ATTR OUT STEP CAT MOVE LINE <= MOVE USR USR OUT ACS LEN OUT SIN VAL AT SGN VAL FN MOVE OUT GO SUB ABS INKEY$INT OVER OUT GO TO ABS INKEY$INT OVER OUT RESTORE [I][D][O][O] OUT ▟[O][E][A][C] OUT [B][K] OUT ▖▛[O][D][G]USR USR USR OUT GO SUB ABS INKEY$INT OVER OUT DEF FN COPY READ LET 2m CONTINUE BIN BIN INPUT [A] COPY NEW &. RANDOMIZE COPY & OVER COPY IN DIM OUT LLIST DRAW * LET RUN RANDOMIZE RUN &▜ COPY OUT NEXT RESTORE e GO TO OUT RUN RESTORE VAL GO TO RESTORE LN GO TO IF ▚&▖ FLASH LOAD INPUT OUT COPY NEW PAUSE OUT # INPUT COPY RUN NEW . STOP OUT 0 BRIGHT REM OUT 8 OVER COPY PI RETURN COPY DRAW &▜ COPY OUT NEXT RESTORE e GO TO OUT RUN RESTORE VAL GO TO RESTORE LN GO TO IF ▚&▖ BRIGHT POKE ▜N OUT 6e COPY DRAW ▙ LET CLS e COPY PAUSE RESTORE >=▟ FLASH BORDER e COPY PAUSE READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<=e COPY DRAW ?e COPY RANDOMIZE RETURN SAVE LIST DATA >= TO [C][G][Q]0▘▝USR LLIST LIST DRAW COPY READ [B]e COPY CLS READ <>[E]*V-[L]<=e COPY w READ <>[E]*V-[L]<=e COPY RANDOMIZE LET RETURN COPY COPY ©'3Iihx0P LPRINT A▝▜? COPY <=▞e COPY CLS READ <>[E]*V-[L]<=e COPY [O]eUSR DRAW e<= BORDER eUSR DRAW e COPY PLOT READ <>[E]*V-[L]<=e COPY RANDOMIZE <=?©e COPY PRINT PI[R]STR$ ▟ FLASH BORDER e COPY PAUSE READ <>[E]*V-[L]<=e COPY [O]e DRAW e COPY IF STR$ e CLS STR$ COPY COPY e IF e COPY IF e DRAW e COPY PLOT READ <>[E]*V-[L]<= SAVE IF DRAW IF DRAW IF DRAW IF DRAW IF DRAW IF DRAW IF DRAW IF DRAW IF DRAW IF DRAW COPY e COPY PLOT COPY DRAW IF DRAW IF DRAW RETURN READ <>[E]*V-[L]<=e COPY BRIGHT RETURN DRAW DRAW e RETURN DRAW e COPY <=e DRAW e COPY IF e IF COPY COPY e CLS STR$ READ e COPY IF e DRAW e COPY PLOT READ <>[E]*V-[L]<=U© MERGE ATTR ASN COS MERGE ATTR BEEP SCREEN$ VERIFY SCREEN$ VERIFY AT CLOSE #AT CLOSE #AT CIRCLE FN COPY e COPY PLOT COPY USR USR COPY COPY ©© READ <>[E]*V-[L]<=e COPY OUT DRAW LPRINT LPRINT hhcc▖e DRAW e LPRINT IF POKE POKE LIST NEXT NEXT LIST e SAVE IF e DRAW IF e COPY BORDER e DRAW e COPY IF ▝ COPY COPY STR$ e CLS STR$ e COPY IF e DRAW e COPY PLOT READ <>[E]*V-[L]<=U COPY U COPY e LOAD COPY e COPY PLOT COPY e COPY CLS READ <>[E]*V-[L]<=e COPY OUT e SAVE [Q]XX[U]~~ RETURN RETURN COPY e© IF e? IF ^e DRAW RNDRND CLS e COPY REM e DRAW e COPY IF STR$ STR$ COPY COPY e CLS STR$ READ e COPY IF e DRAW e COPY PLOT READ <>[E]*V-[L]<=e? DRAW `_ZU CLS PRINT REM COPY COPY COPY e READ IF COPY COPY e COPY IF READ <>[E]*V-[L]<=e COPY IF OUT e PAUSE USR USR e COPY RANDOMIZE e SAVE CLS RANDOMIZE SAVE SAVE >..!!9<=<=/ OUT OUT ??e COPY DIM e DRAW e COPY BORDER e DRAW e COPY PLOT READ <>[E]*V-[L]<=U COPY }SCREEN$ COPY |[A]USR DRAW COPY ?<=EXP V+USCREEN$ COPY COPY COPY e DRAW COPY COPY ?e COPY DRAW DRAW ▝ READ <>[E]*V-[L]<=e COPY PLOT NEXT NEXT CHR$ CHR$ SIN e3 DRAW SQR e COPY SAVE 8@@@CCIN ©©e COPY OUT e DRAW e COPY IF ▖e DRAW COPY COPY e READ IF e COPY IF e DRAW e COPY PLOT READ <>[E]*V-[L]<=U COPY USCREEN$ U IF e IF eUSR DRAW LPRINT ` LPRINT COPY COPY COPY ▝ COPY COPY COPY DRAW LET ▜> MERGE READ <>[E]*V-[L]<=e COPY RANDOMIZE e RETURN DRAW >>& DEF FN e COPY NEXT DIM PLOT PLOT DIM 66 DIM DIM 6 COPY COPY ? OUT OUT ?? OUT ?? OVER )())) RETURN RETURN e COPY BRIGHT e DRAW e COPY IF STR$ e CLS STR$ COPY COPY ▝e COPY IF e DRAW e COPY PLOT READ <>[E]*V-[L]<= p LIST P[I]wLEN a LPRINT LPRINT `e RANDOMIZE ",2 COPY e COPY PLOT COPY COPY SCREEN$ COPY [Q]U READ <>[E]*V-[L]<=e COPY IF e© DRAW e© PRINT e COPY PAUSE @@ CLEAR CLEAR IF PRINT PRINT IF IF ▗HHVAL @@▘▜e COPY INVERSE e DRAW e COPY IF STR$ STR$ DRAW STR$ COPY COPY e IF e COPY IF e DRAW e COPY PLOT READ <>[E]*V-[L]<=▖H((H COPY COPY COPY e IF COPY COPY COPY SCREEN$ COPY U READ <>[E]*V-[L]<=e COPY IF CLEAR LET LET READ LOAD LOAD CAT CAT DEF FN e STEP DRAW DEF FN DEF FN GO TO LLIST LLIST e COPY POKE e SAVE P[Q][Q]A00e IF ©©e COPY BRIGHT e DRAW e COPY IF STR$ STR$ e COPY CLS READ COPY COPY READ e COPY IF e DRAW e COPY PLOT READ <>[E]*V-[L]<=SGN © LIST e RUN LIST DRAW CODE WSCREEN$ USCREEN$ U COPY COPY COPY STR$ COPY COPY IN COPY COPY U READ <>[E]*V-[L]<=e COPY IF DRAW LOAD LOAD ▜ BORDER BORDER e POKE DRAW et DRAW DATA DATA l[P][P]e COPY IF e LPRINT DRAW CONTINUE CONTINUE LPRINT e SAVE [M]p LIST LIST POKE POKE SAVE COPY COPY e RANDOMIZE e COPY BEEP e DRAW e COPY IF STR$ COPY COPY STR$ DRAW STR$ e COPY IF e DRAW e COPY PLOT READ <>[E]*V-[L]<= COPY 6e RUN RETURN COPY VAL$ /VAL p COPY COPY COPY STR$ STR$ DRAW STR$ COPY COPY COPY COPY COPY U READ <>[E]*V-[L]<=e COPY DRAW bb BRIGHT e DRAW DRAW e| PRINT CLEAR e COPY IF RANDOMIZE RANDOMIZE e CLS 8 LPRINT LPRINT USR e DRAW SAVE e COPY ERASE e DRAW e COPY IF e IF COPY COPY LLIST STR$ e LET DRAW USR e COPY IF e DRAW e COPY PLOT READ <>[E]*V-[L]<=U COPY ?e RUN @4(@e DRAW COPY COPY COPY e READ IF COPY COPY COPY COPY U READ <>[E]*V-[L]<=e COPY DRAW READ READ CIRCLE e SAVE PAUSE CLS e COPY IF BIN BIN + BEEP BEEP // OUT ?? OUT ++e COPY CLOSE #e DRAW e COPY IF ▝ COPY COPY STR$ DRAW STR$ e COPY IF e DRAW e COPY PLOT READ <>[E]*V-[L]<=U COPY U REM =2 COPY e COPY PLOT COPY REM COPY U READ <>[E]*V-[L]<=e COPY DATA IN ©©IN IN } LPRINT LPRINT USR [U][U]XX[U] PAPER PAPER BORDER xx CLEAR CLEAR ~ COPY COPY ©e COPY ERASE e DRAW e COPY IF ▗▖ COPY COPY LET LLIST STR$ [B] LET e COPY IF e DRAW e COPY PLOT READ <>[E]*V-[L]<=_ SAVE pVAL ` LPRINT `[Q]pINT GSCREEN$ USCREEN$ WCODE / LIST LPRINT USR COPY COPY COPY STR$ COPY COPY PRINT SCREEN$ COPY U READ <>[E]*V-[L]<=e COPY OUT RETURN RANDOMIZE RANDOMIZE 6e CLS USR USR FORMAT FORMAT (( VERIFY CONTINUE CONTINUE VERIFY VERIFY DIM PLOT PLOT DIM e COPY INVERSE e DRAW e COPY IF STR$ STR$ COPY COPY DRAW RANDOMIZE NEXT READ READ e COPY IF e DRAW e COPY PLOT READ <>[E]*V-[L]<= RETURN @0 USR LIST p LPRINT USR e IF COPY COPY COPY ▞▞ COPY COPY |ATTR COPY U READ <>[E]*V-[L]<=e COPY LLIST ??e DRAW e CLS e DRAW e? DRAW IN IN e CLS e SAVE ©©e COPY BRIGHT e DRAW e COPY IF STR$ e CLS STR$ COPY COPY ▝ DRAW STR$ e COPY IF e DRAW e COPY PLOT READ <>[E]*V-[L]<=@9e DRAW e PLOT COPY COPY COPY e CLS STR$ READ COPY COPY COPY COPY U READ <>[E]*V-[L]<=e COPY [O]e DRAW e READ BORDER e DRAW e COPY PLOT READ <>[E]*V-[L]<= LPRINT e DRAW e RUN 5j COPY COPY COPY ▝ COPY COPY COPY COPY COPY U READ <>[E]*V-[L]<=e COPY w READ <>[E]*V-[L]<=e RANDOMIZE COPY e COPY RUN COPY SCREEN$ USCREEN$ COPY COPY COPY ▗▖ COPY COPY SCREEN$ MERGE SCREEN$ COPY U READ <>[E]*V-[L]<=e COPY ATN RETURN DRAW e SAVE SAVE DRAW DRAW RETURN e COPY THEN READ <>[E]*V-[L]<=p5?5j PRINT COPY e COPY RUN COPY SCREEN$ USCREEN$ COPY COPY COPY e READ IF COPY COPY SCREEN$ USCREEN$ COPY U READ <>[E]*V-[L]<=e COPY LN ▝` FORMAT e CLS A#▞ BORDER COPY COPY RETURN RETURN e DRAW IF RETURN e COPY CIRCLE READ <>[E]*V-[L]<=U COPY WPEEK LIST COPY e COPY RUN COPY ATTR USCREEN$ COPY COPY COPY e IF STR$ COPY COPY SCREEN$ USCREEN$ COPY U READ <>[E]*V-[L]<=e COPY SQR RETURN DRAW CLEAR SAVE LET PAUSE PAUSE e DATA CLS BIN CHR$ STR$ eUSR IF SAVE COPY e RANDOMIZE (/VAL USR STR$ READ e COPY LPRINT READ <>[E]*V-[L]<=U RETURN LPRINT COPY e COPY RUN COPY OUT gEXP COPY COPY COPY ▝▝▞ COPY COPY SCREEN$ USCREEN$ COPY U READ <>[E]*V-[L]<=e COPY USR SAVE LPRINT USR aUSR STR$ "e DRAW wACS e RUN DRAW STR$ e DRAW ▙▜NOT USR FORMAT SCREEN$ MERGE REM CLEAR e COPY FLASH READ <>[E]*V-[L]<= MERGE ? RUN COPY DRAW e COPY DRAW COPY COPY ▝ COPY COPY ATTR [TAB CLEAR V READ <>[E]*V-[L]<=e COPY DEF FN RETURN DRAW DRAW RETURN e COPY PRINT USR [A]@ e[A] DRAW [Q]USR e DRAW USR LPRINT `[Q]@[A](PSCREEN$ UATTR _e COPY CLS e RETURN RANDOMIZE COPY COPY e RETURN DRAW e COPY REM READ <>[E]*V-[L]<=d[O]}xx SAVE COPY e COPY RUN COPY e DRAW COPY e COPY PLOT COPY SAVE DRAW SAVE RUN >= READ <>[E]*V-[L]<=e COPY INPUT e RETURN DRAW e COPY NEW LPRINT USR e RANDOMIZE DRAW e COPY NEXT ©?e CLS e POKE ?©e COPY DRAW ▜CC▝e RANDOMIZE USR e COPY FOR READ <>[E]*V-[L]<= TO 0 COPY e COPY RUN COPY COPY e COPY PLOT COPY = REM COPY U READ <>[E]*V-[L]<=e COPY PRINT DRAW SAVE LIST LPRINT STR$ ▜USR SAVE DRAW RETURN e COPY INPUT NOT e SAVE e COPY CONTINUE RANDOMIZE LIST [G]▞ LIST LPRINT LPRINT LIST POKE IF CLEAR RETURN e COPY PAUSE ©??e DRAW _IN ©e COPY REM READ <>[E]*V-[L]<= "%"Eb RANDOMIZE e COPY RUN COPY AND PI AND COPY e COPY PLOT COPY <=PI<=PIGCODE READ <>[E]*V-[L]<=e COPY RUN SAVE LPRINT e CLS [L]6 LOAD OVER LN e RUN e COPY GO TO ©??©e COPY READ ©▜<=#_SQR RUN CODE e COPY CLOSE # READ <>[E]*V-[L]<=e COPY IF READ DRAW RETURN e COPY POKE RESTORE >=▟ FLASH BORDER e COPY PAUSE READ <>[E]*V-[L]<=e COPY RUN e CLS OPEN #0 LPRINT e RUN e COPY [D] READ <>[E]*V-[L]<=e COPY IF ©e COPY DRAW RETURN SAVE LIST DATA >= TO [C][G]0▘▝USR LLIST LIST DRAW COPY READ [B]e COPY CLS READ <>[E]*V-[L]<=e COPY PRINT ©0p`@?e COPY [D] READ <>[E]*V-[L]<=e COPY DRAW LET RETURN e COPY IF ©'3Iihx0VAL LPRINT A▝▜? COPY <=▞e COPY CLS READ <>[E]*V-[L]<=e COPY LIST e© SAVE e COPY ▟ READ <>[E]*V-[L]<=e COPY DRAW <=?©e COPY PAUSE PI[R]STR$ ▟ FLASH BORDER e COPY PAUSE READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<= READ <>[E]*V-[L]<=eEXP CLS eINT IF IF eINT RUN SIN eINT PLOT eEXP CLS eLN DRAW EXP INT IF eINT LET eVAL RUN EXP eLN DRAW ABS LN LN ABS eINT LOAD e IF DRAW eINT CLS IF ABS LN LN ABS ABS LN LN ABS eFN BORDER ABS LN LN eABS CLS LN eINT RANDOMIZE IF IF eINT CLS IF eINT DRAW e IF IF INT INT IF eABS DRAW LN e RANDOMIZE OVER eLN IF eINT PRINT eLN LIST RANDOMIZE RANDOMIZE eLN IF eINT PRINT eLN LIST RANDOMIZE RANDOMIZE eLN DRAW eSQR DRAW eEXP PLOT SQR SQR eLN PAUSE RANDOMIZE RANDOMIZE eLN DRAW eSQR LET eLN PAUSE RANDOMIZE RANDOMIZE LN LN eSQR LIST eLN PAUSE RANDOMIZE RANDOMIZE LN LN eSQR LIST eLN PAUSE RANDOMIZE RANDOMIZE eLN DRAW eSQR LET eLN PAUSE RANDOMIZE RANDOMIZE eLN DRAW eSQR PLOT LN eSQR CLS eLN SAVE INT SAVE eLN CLS RANDOMIZE RANDOMIZE eLN DRAW eSQR SAVE eLN DRAW eSQR CLS eLN DRAW ABS SAVE eLN RUN RANDOMIZE RANDOMIZE eLN CLS eSQR DRAW eLN POKE eABS DRAW eLN CLS ABS PEEK eLN DRAW RANDOMIZE RANDOMIZE eLN IF SQR eLN NEXT eABS DRAW eLN CLS ABS ABS eLN DRAW RANDOMIZE RANDOMIZE eLN FOR ABS ABS LN SAVE LN ABS ABS eLN DRAW RANDOMIZE RANDOMIZE LN e[Q] INPUT LN LN ABS ABS LN LN CLEAR eLN IF RANDOMIZE RANDOMIZE LN e[Q] INPUT eLN DRAW ABS LN eABS DRAW eLN CLS RANDOMIZE RANDOMIZE LN e[Q] INPUT eLN IF eABS DRAW eLN CLS RANDOMIZE RANDOMIZE LN e[Q] INPUT eLN SAVE ABS eLN CLS RANDOMIZE RANDOMIZE eLN LLIST e RANDOMIZE OVER BRIGHT POINT BRIGHT BEEP DRAW 2m CONTINUE BIN BIN INPUT DEF FN COPY NEW &. RANDOMIZE COPY & OVER COPY IN RETURN COPY DATA &▜ COPY OUT NEXT RESTORE H GO TO OUT RUN RESTORE VAL GO TO RESTORE LN GO TO IF ▚&▖ BRIGHT POKE ▜N OUT 6H READ OVER RETURN H COPY DRAW ?H COPY REM + COPY COPY READ READ {Y COPY COPY [M]H COPY RANDOMIZE LLIST COPY ? COPY RANDOMIZE OUSR H COPY IF © CLEAR [P]+ READ READ COPY COPY [E] COPY TO FLASH KH COPY DRAW RANDOMIZE CAT H COPY DRAW LLIST COPY SAVE © DRAW H COPY IF _ CLEAR [P] READ READ RUN BORDER COPY GO SUB fO COPY COPY CLEAR COPY COPY ▖[H].H COPY DRAW [O] COPY NEXT [P] COPY CLEAR O OUT COPY READ READ u COPY COPY ▟OH COPY SAVE FORMAT <>H COPY IF CLEAR -COS ?H COPY DRAW @ READ READ H COPY DRAW [M]▛H COPY GO SUB &k©H COPY CLS READ READ COPY LET PIH COPY PLOT DRAW INPUT © SAVE lIN H COPY PLOT LET PI COPY READ H<> OVER PLOT O COPY RETURN H COPY REM IF <= OUT COPY COPY <><> STEP $ COPY ? RETURN )H COPY RANDOMIZE TO RETURN ? COPY SAVE COS H COPY IF SAVE COPY Z<= OUT <><> COPY COPY ; COPY INVERSE f'H COPY DRAW SAVE CAT COPY SAVE © LPRINT 9 SAVE © SAVE H COPY DRAW DRAW IF [P] SAVE COPY _<><> POKE ; OUT COPY IF nCODE COPY COPY SAVE COPY ▛>= IF _CH COPY IF RANDOMIZE G COPY RETURN ! LOAD COPY <><> LOAD COPY COPY PEEK 5H COPY SAVE ,[Q]H COPY RANDOMIZE RETURN FkIN H COPY DRAW SCREEN$ <><>H COPY DRAW CODE LET H COPY GO SUB WeH COPY IF <><> COPY ERASE ▜H COPY PLOT [M]SCREEN$ s IF SCREEN$ ?H COPY PLOT ERASE ▜ COPY <>H[E] OVER GO SUB ' COPY CLEAR H COPY DIM SGN IN COPY COPY [E][E]SIN CLS RETURN © RUN FLASH ?H COPY IF DEF FN RETURN © COPY DRAW [P] BORDER H COPY IF READ COPY L COPY SGN IN [E][E] COPY RETURN W COPY NEXT THEN ATN H COPY DRAW DRAW CAT COPY SAVE _ SAVE LIST © RANDOMIZE LOAD [P]H COPY CLS O COPY L COPY [E][E] LET t COPY CLEAR INK © COPY COPY RANDOMIZE LOAD COPY ▛>=Z IN [T]H COPY IF STEP PEEK COPY CLOSE #o COPY [E][E] OUT COPY COPY OPEN # OUT H COPY SAVE OUT [Q]H COPY RANDOMIZE RETURN INVERSE <H COPY CLS CLOSE #[E][E]H COPY DRAW NEXT /H COPY GO SUB DIM SQR H COPY IF [E][E] COPY LINE OH COPY PLOT INPUT a DATA INPUT ©H COPY PLOT LINE O COPY [E]H* OVER ERASE CLS COPY CLS H COPY REM PAUSE sO COPY COPY ** VERIFY _ DRAW COPY CONTINUE RETURN _H COPY IF LLIST H COPY IF BORDER H COPY IF SAVE COPY v PAUSE sO**{ DRAW o COPY RND OPEN #yH COPY IF SAVE _pH COPY DRAW H COPY CLS PI COPY v COPY ** LPRINT READ NEXT COPY COPY ATTR ©H COPY IF ▛>=T CAT [R]H COPY IF PI LET | OUT IF ▜ COPY **IN COPY COPY , DATA H COPY RUN ?[Q]©H COPY RANDOMIZE RANDOMIZE GO TO INT _H COPY DRAW IF ** COPY RETURN COPY PLOT LOAD H COPY GO SUB GO SUB _ COPY COPY RETURN COPY COPY ** COPY REM [P] COPY COPY ABS STEP v READ ? COPY COPY ! STOP © RANDOMIZE BRIGHT ▞ GO SUB LEN QH COPY DRAW REM [P] COPY *HV OVER ▟O COPY CLS H COPY PLOT SAVE COPY RANDOMIZE [P]H COPY SAVE RANDOMIZE TAB LOAD RUN COPY VV[M]▛ RANDOMIZE COPY NEXT bH COPY CLS RETURN BRIGHT H COPY IF BORDER RANDOMIZE H COPY CLS CLEAR ? COPY RANDOMIZE TAB LOAD VVATN LET OUT COPY CAT f▛ COPY COPY RANDOMIZE COPY COPY 8x H COPY DRAW CAT H COPY CLS OPEN #H COPY DRAW VV OUT CLEAR RETURN COPY LOAD H COPY RANDOMIZE ▛>=T`3 MOVE H COPY IF POKE l NEXT IN CLEAR Q COPY VVH COPY DRAW {YH COPY SAVE USR COPY [T]H COPY SAVE CLEAR o?H COPY DRAW CLEAR VV COPY CLEAR OUT H COPY PRINT COPY COPY [D]H COPY SAVE © COPY COPY CLEAR OUT COPY VV COPY TO COPY COPY f MERGE j INPUT OUT COPY COPY ▖# STOP © IF ATTR INT CLOSE #SQR WH COPY DRAW TO COPY VH- OVER PEEK 5 COPY RUN H COPY PLOT IF / COPY RANDOMIZE H COPY SAVE PAUSE K?& COPY --CODE LET NEXT COPY PRINT CAT [H]H COPY DRAW DRAW CAT [M]H COPY IF PAUSE SAVE H COPY CLS RETURN COPY PAUSE K?-- CAT READ IN COPY INK GO TO _ COPY COPY SAVE COPY COPY LPRINT H COPY DRAW CAT H COPY CLS CONTINUE H COPY DRAW --+IN RETURN PLOT OH COPY SAVE ▛▖hx MOVE H COPY CLS RETURN [P]:H COPY DRAW SCREEN$ ?--H COPY DRAW STEP $H COPY GO SUB [T]yIN H COPY DRAW RETURN -- COPY SAVE OUT H COPY PRINT COPY RETURN (H COPY PRINT SAVE OUT COPY -- COPY RESTORE ? COPY COPY n DEF FN j NEW H COPY DRAW SAVE ▘? PAUSE D RANDOMIZE TAB [K] MERGE ;H COPY DRAW RESTORE ? COPY -H[L] OVER OPEN # OUT COPY GO TO H COPY PLOT ? COPY RANDOMIZE CAT H COPY SAVE CLEAR POKE OVER K©[L][L] NEXT / READ COPY [P] BEEP kH COPY DRAW RANDOMIZE CAT STR$ H COPY IF ▝ DRAW H COPY IF OPEN # LOAD CLEAR POKE OUT [L][L] LOAD <=© COPY PAUSE > LOAD COPY COPY DRAW COPY COPY [A] DRAW CAT H COPY CLS PRINT © OUT COPY [L][L]_© COPY GO SUB 'H COPY SAVE ▛▖h DATA MOVE H COPY CLS CLEAR nIN [P] COPY COPY MERGE [L][L]H COPY DRAW SIN CLS H COPY GO SUB wBIN H COPY IF [L][L] COPY IF CAT H COPY PLOT RETURN COPY DRAW ©H COPY PLOT IF CAT COPY [L][L] COPY REM / COPY COPY f BEEP j INPUT OUT COPY COPY SAVE |? DRAW 8▜ IF ▙INT MERGE SQR WH COPY DRAW REM / COPY [L]H<= OVER , DATA COPY READ H COPY PRINT ? COPY RANDOMIZE OH COPY RUN INKEY$ABS POKE IN <=<= PLOT LOAD <=?INKEY$<H COPY CLS SAVE H COPY SAVE DRAW H COPY IF DIM OUT COPY INKEY$IN <=<= LOAD ▙ RANDOMIZE COPY CLOSE # OPEN #7 COPY COPY DRAW COPY COPY ▞▖[B]H COPY DRAW ▝H COPY CLS IF [P] OUT COPY <=<=> COPY COPY ERASE CLS H COPY SAVE P▜ NEXT H COPY IF NEXT AND _ COPY COPY IF [T]<=<=H COPY DRAW VERIFY _H COPY INPUT RETURN TO SIN IN H COPY CLS <=<= COPY ERASE CODE H COPY PLOT RETURN l COPY CLEAR ©H COPY PLOT ERASE CODE COPY <=<= COPY NEXT _ COPY COPY ABS TO PLOT # COPY COPY DRAW © RETURN <= RANDOMIZE POINT ▞ GO SUB SQR QH COPY DRAW NEXT _ COPY <= READ COPY POKE OH COPY PLOT DRAW © RETURN LOAD H COPY PLOT PAUSE / COPY READ READ CLEAR U MERGE H COPY RUN STOP [P] BORDER [P] BORDER GH COPY RUN SAVE ATTR SCREEN$ IN READ READ MERGE MERGE T MOVE COPY ACS GO TO {[P]k© LPRINT % COPY ATN TN*ACS ©▛*ATTR ATTR READ READ PRINT UUQH COPY DIM SCREEN$ SCREEN$ CODE READ READ UMUAH COPY DIM ▘SCREEN$ SIN SCREEN$ READ READ WUEQ COPY RETURN A9 COPY RANDOMIZE O COPY COPY COPY COPY RETURN A? COPY RETURN c= COPY COPY [S]SCREEN$ REM READ READ PRINT TUA COPY COPY <= COPY DRAW [H] COPY SAVE ▘? COPY STOP # COPY COPY COPY ▘SCREEN$ *CODE READ READ SCREEN$ IN RETURN SCREEN$ SCREEN$ IN RETURN SCREEN$ SCREEN$ IN RETURN SCREEN$ SCREEN$ IN RETURN SCREEN$ SCREEN$ IN RETURN SCREEN$ SCREEN$ IN RETURN SCREEN$ SCREEN$ IN RETURN SCREEN$ SCREEN$ IN READ <> COPY POKE _H COPY PRINT COPY COPY H COPY PRINT IF / COPY <><> SAVE ▘ COPY PEEK NEW SQR [N]<= COPY USR STR$ STR$ COPY GO TO AND BIN Nk LET A<><>SCREEN$ f IF a COPY R BEEP u~ATTR ©[E]@) COPY W MERGE BEEP k[F] COPY ▚_fU<><>SCREEN$ REM SCREEN$ [Q]H COPY DIM UWU<><> IF SCREEN$ [S]AT H COPY DIM 5EU_<><> STOP SCREEN$ SCREEN$ REM COPY CLEAR ACS VERIFY COPY IF INVERSE CODE COPY COPY COPY COPY RETURN ACS IN COPY RETURN [M]SQR COPY COPY WUUG<><>ATTR SCREEN$ POINT [T] COPY DRAW A COPY RETURN THEN COPY BRIGHT |w COPY PLOT ▖ATN COPY ▚IN COPY COPY OR [F]U MERGE <><>@T@@T@@T@@T@@T@@T@@T@@<>[E] COPY IF IN COPY COPY [[F]ATN TAB EXP H COPY RANDOMIZE CLEAR TAB [N] CIRCLE ▞ CAT H COPY DRAW CLEAR _ COPY [E][E] PRINT T MOVE COPY cjASN jINT OUT COPY USR @@ COPY MERGE ]m VERIFY ATTR ASN © LPRINT ▛*CODE [E][E] PRINT 5] COPY T VERIFY PRINT ?#©[Q]I▖P COPY WT CAT jINKEY$ COPY ▖INT AT CODE [E][E] PRINT 5T MOVE H COPY DIM ▛*AT CODE [E][E]UU CLEAR QH COPY DIM IN SCREEN$ SCREEN$ [E][E]uUU1 COPY BRIGHT w COPY IF RUN CODE COPY RETURN l COPY COPY PRINT AW COPY RETURN [E]SQR COPY COPY SCREEN$ SCREEN$ VAL$ [E][E] POKE UT MOVE COPY IF !; COPY COPY Ug COPY "▞ COPY COPY A© COPY BEEP U© COPY COPY ▛*SCREEN$ /[E][E]VAL VAL VAL VAL VAL VAL VAL VAL [E]*H COPY IF uWrSCREEN$ VERIFY RUN RETURN 8 COPY COPY 9 COPY IF SCREEN$ SCREEN$ TAB INT IN H COPY RANDOMIZE ** INPUT SCREEN$ SCREEN$ [T] COPY kg5z[K] CAT COPY CONTINUE H CLS COPY BRIGHT STEP l VERIFY sLEN ? OR UUw**SCREEN$ SCREEN$ VAL$ [R] COPY V BEEP u_SQR COPY [B]T UQ▞ COPY WU BEEP bATN ©uUU**SCREEN$ [K][K][Q]H COPY DIM YYU** REM SCREEN$ AT [Q]H COPY LET INVERSE H COPY SAVE 5UW**FN *SCREEN$ # COPY [E] MERGE [O] COPY Nw? COPY DRAW ▘© COPY LET AG COPY DRAW w COPY COPY BIN UT**SCREEN$ SCREEN$ *b COPY IF ?W COPY COPY SCREEN$ COPY COPY I% COPY COPY SCREEN$ H COPY DRAW SCREEN$ H COPY DRAW FTUU**pUpUpUpUpUpUpUp*V COPY SAVE ? COPY COPY UCOS W4[K] SAVE CAT RETURN INT COPY COPY 4 COPY CLS [K]ABS [J] OUT H COPY DRAW DRAW COPY VV MERGE U MERGE S COPY gkLEN hINT OUT DRAW FORMAT STR$ STR$ ? MERGE /m VERIFY SQR ASN © LINE ATTR SCREEN$ ATTR VV PRINT UQ COPY ACS GO TO FLASH ACS {©▘J(SCREEN$ SCREEN$ RA COPY LEN lWjTAN OUT CONTINUE SCREEN$ CODE VV PRINT ]L MOVE H COPY DIM ▛2INT CODE VVUUVA COPY COPY READ H COPY DRAW H COPY SAVE <>H COPY DRAW STR$ H COPY DRAW ▘jSCREEN$ SCREEN$ VV PRINT EUQ COPY [E]w COPY 4 COPY DRAW l© COPY IF 6/ COPY DRAW " COPY COPY SCREEN$ [S]CODE VV PRINT U1 COPY RANDOMIZE ?o COPY NEXT H COPY DRAW CLOSE #SCREEN$ WH COPY PRINT FN SCREEN$ CODE VVSIN CHR$ FN INT SIN CHR$ FN INT SIN CHR$ FN INT SIN CHR$ FN INT SIN CHR$ FN INT SIN CHR$ FN INT SIN CHR$ FN INT SIN CHR$ V-H COPY IF U MERGE vSCREEN$ RETURN RUN DRAW Q© RETURN [A] COPY IF FN FN TAB INT LOAD H COPY RANDOMIZE -- IF ATTR ( COPY SCREEN$ NEW u▟ OR SAVE $ $ GO SUB ElNgASN STR$ MERGE _--SCREEN$ jFN H COPY SAVE UASN UUTAB SCREEN$ H COPY SAVE QVU--HSCREEN$ DRAW hH COPY DIM HU DRAW -- REM SCREEN$ +[Q] COPY COPY H COPY DRAW ©©H COPY RANDOMIZE <>H COPY DRAW CLEAR COPY COPY CLOSE #UW--SCREEN$ [S]SCREEN$ [T] COPY COPY TAN # COPY SAVE l? COPY RETURN 6? COPY DRAW [A] COPY COPY OR UEU--SCREEN$ jFN COPY DRAW ©[P] COPY LET © COPY REM TCODE COPY COPY [M]H COPY DRAW >© COPY COPY QVU--U[F]UeU[F]UeU[F]UeU[F]UeU[F]UeU[F]UeU[F]UeU[F]-[L] COPY POKE _ COPY COPY [5QTAB LET DRAW © RETURN COPY CLEAR SCREEN$ SCREEN$ INVERSE [P]H COPY DRAW IF / COPY [L][L] MERGE TTQH COPY SAVE LPRINT JPPRH COPY SAVE **ATTR [L][L] PRINT UQPH COPY SAVE IN ^SCREEN$ *SCREEN$ z CLEAR H COPY SAVE SCREEN$ CODE [L][L] PRINT MU1H COPY DIM SCREEN$ SIN CODE [L][L]]U[B] COPY COPY © COPY RETURN STR$ IN H COPY RANDOMIZE ACS H COPY DRAW } COPY COPY ▞FN SCREEN$ INT [L][L] PRINT TUA COPY ▗ COPY |Y COPY SAVE ? COPY DRAW COPY CONTINUE U COPY COPY ▘SCREEN$ *CODE [L][L] PRINT UU5H COPY IF SAVE LN COPY PRINT }_ COPY COPY © COPY SAVE ▖ COPY COPY AT SCREEN$ SCREEN$ CODE [L][L]ATTR *SCREEN$ SCREEN$ ATTR *SCREEN$ SCREEN$ ATTR *SCREEN$ SCREEN$ ATTR *SCREEN$ SCREEN$ ATTR *SCREEN$ SCREEN$ ATTR *SCREEN$ SCREEN$ ATTR *SCREEN$ SCREEN$ ATTR *[L]<=H COPY LLIST <=<= IF INKEY$SCREEN$ POINT H COPY SAVE LPRINT H COPY SAVE [F]Ue_<=<=SCREEN$ jSCREEN$ SCREEN$ H COPY PLOT INVERSE }_ PRINT H COPY PLOT UUVU<=<=HSCREEN$ DRAW ▖H COPY DIM HU DRAW <=<= INPUT SCREEN$ SCREEN$ FN COPY RETURN "? COPY RETURN IN H COPY RANDOMIZE "© COPY COPY "} COPY COPY UUw<=<=SCREEN$ SCREEN$ POINT COPY DEF FN ? COPY POKE (ATTR COPY SAVE ? COPY REM *+ COPY CLOSE #* COPY COPY STR$ [F]UU<=<=SCREEN$ jSCREEN$ POINT H COPY IF RETURN H COPY IF RETURN *? COPY SAVE COPY COPY [F]UVU<=<=WUuUWUuUWUuUWUuUWUuUWUuUWUuUWU<= READ AT SCREEN$ IF SCREEN$ AT SCREEN$ IF SCREEN$ AT SCREEN$ IF SCREEN$ AT SCREEN$ IF SCREEN$ AT SCREEN$ IF SCREEN$ AT SCREEN$ IF SCREEN$ AT SCREEN$ IF SCREEN$ AT SCREEN$ READ READ SIN ATTR +AT SIN ATTR +AT SIN ATTR +AT SIN ATTR +AT SIN ATTR +AT SIN ATTR +AT SIN ATTR +AT SIN ATTR H READ OVER H COPY _<>yU CLOSE #UyU CLOSE #UyU CLOSE #UyU CLOSE #UyU CLOSE #UyU CLOSE #UyU CLOSE #UyU<><>eUVUeUVUeUVUeUVUeUVUeUVUeUVUeUH<> OVER H COPY _[E]SCREEN$ ATTR HSCREEN$ DRAW ATTR HSCREEN$ DRAW ATTR HSCREEN$ DRAW ATTR HSCREEN$ DRAW ATTR HSCREEN$ DRAW ATTR HSCREEN$ DRAW ATTR HSCREEN$ DRAW ATTR [E][E] LINE ATTR *SCREEN$ LINE ATTR *SCREEN$ LINE ATTR *SCREEN$ LINE ATTR *SCREEN$ LINE ATTR *SCREEN$ LINE ATTR *SCREEN$ LINE ATTR *SCREEN$ LINE ATTR H[E] OVER ▚c OUT 9▟l PLOT STEP ATN [ccB CIRCLE RETURN CLS B CONTINUE STOP FLASH TO | COPY COS xf9H COPY ©*UUTHU DRAW THU DRAW THU DRAW THU DRAW THU DRAW THU DRAW THU DRAW **U~U]U~U]U~U]U~U]U~U]U~U]U~U]U~H* OVER ABS TAB OVER VERIFY ATN +vASN SIN Z CLEAR GO SUB k OVER CLS ^ BEEP SGN CLS ^K_SQR KASN SQR ~ DRAW TAB { PAPER INK H COPY ©VINT ATTR FN SCREEN$ INT ATTR FN SCREEN$ INT ATTR FN SCREEN$ INT ATTR FN SCREEN$ INT ATTR FN SCREEN$ INT ATTR FN SCREEN$ INT ATTR FN SCREEN$ INT ATTR VVCODE DRAW ATTR IF CODE DRAW ATTR IF CODE DRAW ATTR IF CODE DRAW ATTR IF CODE DRAW ATTR IF CODE DRAW ATTR IF CODE DRAW ATTR IF CODE DRAW HV OVER ▟[T] OVER VERIFY ASN K SAVE ASN ASN [= READ BORDER 8<= RETURN ▖ AND FN BORDER SQR STAN ~<=5/x PAPER 9H COPY ©-UUQHU DRAW QHU DRAW QHU DRAW QHU DRAW QHU DRAW QHU DRAW QHU DRAW --© CLEAR © COPY © CLEAR © COPY © CLEAR © COPY © CLEAR © COPY © CLEAR © COPY © CLEAR © COPY © CLEAR © COPY © CLEAR H- OVER ABS TAB OVER FORMAT ASN k~ASN ATN [ INVERSE LOAD k CLS FLASH _ OVER PEEK CLS ^ FOR CLS SQR [ASN ABS COPY MERGE TAB {CHR$ OUT H COPY ©[L]SIN SCREEN$ [S]SCREEN$ SIN SCREEN$ [S]SCREEN$ SIN SCREEN$ [S]SCREEN$ SIN SCREEN$ [S]SCREEN$ SIN SCREEN$ [S]SCREEN$ SIN SCREEN$ [S]SCREEN$ SIN SCREEN$ [S]SCREEN$ SIN SCREEN$ [L][L]SCREEN$ CODE RETURN SCREEN$ SCREEN$ CODE RETURN SCREEN$ SCREEN$ CODE RETURN SCREEN$ SCREEN$ CODE RETURN SCREEN$ SCREEN$ CODE RETURN SCREEN$ SCREEN$ CODE RETURN SCREEN$ SCREEN$ CODE RETURN SCREEN$ SCREEN$ CODE H[L] OVER PEEK mNOT 6▟lq DEF FN wf= LOAD hF;B1 DRAW {B FOR <=SGN FLASH STEP LN ~5COS Z INK H COPY ©<=UUEHU DRAW EHU DRAW EHU DRAW EHU DRAW EHU DRAW EHU DRAW EHU DRAW <=<= COPY MERGE U PRINT COPY MERGE U PRINT COPY MERGE U PRINT COPY MERGE U PRINT COPY MERGE U PRINT COPY MERGE U PRINT COPY MERGE U PRINT COPY MERGE H<= OVER H COPY _H RANDOMIZE OUT EXP SQR SQR HABS DRAW HLN RUN SGN SGN LN SGN SGN HLN SAVE HSQR IF EXP EXP SQR SQR ABS ABS HSQR DRAW HLN DRAW HSGN IF LN HSGN IF HLN DRAW ABS HSQR IF EXP EXP HABS CLS HSQR DRAW LN LN HSGN LET LN HABS DRAW HSQR DRAW EXP EXP HABS DRAW HSQR CLS LN LN SGN SGN LN HSGN SAVE LN LN SGN HSQR CLS HABS CLS EXP EXP HABS DRAW SQR SQR HLN SAVE HSGN SAVE HLN DRAW HSQR CLS HABS CLS EXP EXP LN EXP EXP SQR SQR HLN INPUT HSQR CLS LN EXP EXP LN EXP EXP LN EXP EXP LN LN HINT RANDOMIZE HLN SAVE HINT RANDOMIZE HLN DRAW EXP EXP LN EXP EXP HLN IF HINT SAVE HLN RANDOMIZE HINT SAVE HLN IF EXP EXP HLN IF HINT RANDOMIZE HLN RUN HINT SAVE HLN CLS EXP EXP HLN IF HINT RANDOMIZE HLN PLOT HINT RANDOMIZE HLN CLS EXP EXP HLN LLIST EXP EXP HLN LLIST EXP EXP HLN LLIST EXP EXP HLN LLIST EXP EXP HABS LLIST EXP EXP HABS LLIST EXP EXP HABS LLIST HEXP OVER HLN OUT HEXP © COPY LEN IF POKE ? LET ?[I]>? COPY COPY ERASE <AT ?< NEXT ><e?PEEK AT SIN OUT SGN VAL SIN CODE ACS COS PEEK ATTR ACS VAL LEN OUT VAL EXP OUT ABS INKEY$ OUT PEEK MOVE TAN VAL COS INT AT LEN ACS TAN OUT EXP VAL TAB OUT AT ATTR SIN VAL SQR OUT ATTR PEEK TAN INT LEN OUT ABS INKEY$ OUT PEEK LN PEEK INT POINT OUT INT MOVE CIRCLE AND THEN P OVER Q? INPUT P? RETURN SIN COPY ▖O STEP b> STEP F? STEP ,? STEP ?NOT STEP POKE > INPUT 3;ABS TAN RESTORE GO TO STEP GO TO > RESTORE GO TO STEP X>2n> INVERSE M>2n> INVERSE CLEAR =2n> INVERSE LIST = RESTORE GO TO STEP />AT e>P OVER ? INPUT ? RETURN PAUSE COPY ▖OCHR$ STEP DRAW ><[I]> IF RUN OVER COPY CLS PAUSE COPY PAUSE RETURN RETURN COS :A6>6 6 REM 4 CONTINUE 4 DATA 4 IF RUN ERASE COPY COPY POKE COPY LIST DRAW RETURN :L7%7+7555 IF COPY REM COPY CLS LIST COPY LIST RETURN RETURN V:}6z6b6555<> CLEAR NEW RETURN [E] CLS COPY BORDER PAUSE POKE LIST COPY COPY CLEAR RANDOMIZE OVER POKE > LINE OUT CIRCLE <> RANDOMIZE OR Q? OVER 7?I OVER ?I4LN 3f>" OVER Q?2(>" OVER 7?2(>" OVER ?2(>P" OVER Q?2/=STR$ RETURN " OVER 7?2/=STR$ CLEAR " OVER ?2/= OR ? SAVE LN OR 6?O SAVE LN OR P?O LLIST SAVE 2z> OVER PLOT > INPUT @ LET ▝NOT STR$ PAUSE OUT CLEAR CHR$ CLOSE #ABS ▚SGN TCHR$ ▖> STEP PLOT >6* OVER ? DIM COPY NEW ▖.6[R] BRIGHT POINT BRIGHT PLOT 6 OVER *; INPUT RETURN COPY NEW ▗NOT LLIST <= CLEAR STR$ COPY STEP b>▝xyx[N][A] RETURN ; PLOT 2m> INVERSE E?2n> INVERSE +?2n> INVERSE ? OVER Q?49 OVER 7?49 OVER ?496" LINE POKE "[R] NEXT "POINT PAUSE RESTORE GO TO [P]<=▘ OVER >) CAT ATN 9 LOAD <= TO 9 OUT <= CONTINUE 9 OUT <= RANDOMIZE 9IN "▖ PRINT 6 RETURN 72 DATA =" LET "▛ LIST 6 RETURN T52 DATA =" FOR "▛ REM 6x INK COPY [A] PLOT ▝ BRIGHT [J][A] PLOT 6"4 COPY Y"▖ PLOT ?"4 COPY "<> PLOT LIST 6 OVER PEEK = RANDOMIZE COPY VAL PLOT LEN PLOT LIST FOR GO SUB INPUT RESTORE NEW BORDER CONTINUE CONTINUE REM REM PLOT GO TO SAVE INPUT RESTORE GO TO "▖ IF 6 RESTORE GO TO STEP POKE > STEP GO TO >66 STEP PLOT >6POINT <= GO SUB [R]<=CODE BEEP RANDOMIZE "4 COPY i BORDER ATN "4 COPY ! BORDER ABS "4 COPY )"4 COPY a"▖ CLEAR "▝ IF "▖ RANDOMIZE P"▖ RUN "▖ DRAW "▖ CLS "[B] LET "[J] LIST " LOAD "▛ INPUT "4 COPY q"[B] FOR "[J] REM " DIM "▛ CONTINUE "4 COPY [J] BEEP IF RESTORE GO TO STEP SAVE >"▝ PRINT "▖ POKE " NEXT "▟ PAUSE RESTORE NOT ?"4 COPY y6 STEP PRINT >P"4 COPY LEN OUT AT "4 COPY POINT BEEP SIN 2<=<2$<"4 RETURN [R] OUT RANDOMIZE "▝ RANDOMIZE STEP CLEAR >"▝ CLEAR POINT <= IF CONTINUE ` FORMAT SCREEN$ x RANDOMIZE COPY VAL OVER OUT ; PLOT [R] BRIGHT POINT "[B] DRAW "[J] CLS NEW OR PRINT >x[Q]▘2z> READ LIST 2z>"▝ COPY FORMAT CAT "▝ SAVE OUT CLEAR LOAD FN OR PRINT >9 RUN [Q]<z>"[B] LOAD "[J] INPUT ATTR [S]▝ BRIGHT LEN BRIGHT EXP BRIGHT OUT <= INK 4 OUT LET 4▖ OUT GO SUB 4[A] BEEP RESTORE "4 COPY 1 BORDER FOR " GO SUB "▟ GO TO BORDER "4 COPY [R] OUT "[B] GO SUB "[J] GO TO " LOAD "▛ INPUT INKEY$VAL ▗ CONTINUE `FN "[B] DRAW "[J] CLS NEW " DRAW "▛ CLS ▜ PLOT "▖ RETURN ▜ RANDOMIZE CLEAR "4 COPY BEEP DATA "4 COPY Q<= REM ) IF "y RUN Q< LOAD 1"▖ RUN ▜ LIST CLS LIST "y RUN <<P LOAD <= CLEAR STR$ LIST FN "EXP PLOT } LOAD LIST CLS "▖ SAVE BORDER <>"[B] DIM "[J] CONTINUE ATTR [S]▝ BRIGHT EXP BRIGHT OUT <= BORDER 4 OUT NEXT 4▖ BEEP LOAD "[B] BORDER "[J] NEW BORDER RUN " BORDER "▟ NEW BORDER " DIM "▛ CONTINUE VAL ▜"y CLEAR "▖ CLEAR ▚ LOAD SQR N"y RANDOMIZE LPRINT "▖ RANDOMIZE 6# LET SAVE LET STR$ PAUSE © NEXT 3 POKE INVERSE POKE } PRINT PLOT [T] PLOT ) RUN PI RUN SAVE [B] SAVE CLS SAVE ` RANDOMIZE IN RANDOMIZE IF n IF PEEK IF CLS Q CLS [E] CLS OPEN # CLS DRAW H DRAW } DRAW VAL DRAW OUT DRAW CLEAR 7 CLEAR ^ CLEAR ▗ CLEAR FN CLEAR <> CLEAR DIM CLEAR RETURN # RETURN > RETURN W RETURN o RETURN ▚ RETURN [L] RETURN CODE RETURN CHR$ RETURN OPEN # RETURN DATA RETURN POKE RETURN COPY COPY COPY + COPY 7 COPY B COPY M COPY W COPY ` COPY i COPY r COPY z COPY ▝ COPY ▖ COPY COPY [F] COPY [L] COPY [R] COPY INKEY$ COPY ATTR COPY CODE COPY TAN COPY LN COPY SGN COPY USR COPY NOT COPY <= COPY LINE COPY STEP COPY FORMAT COPY ERASE COPY MERGE COPY BEEP COPY INK COPY FLASH COPY INVERSE COPY OUT COPY LLIST COPY READ COPY RANDOMIZE COPY CIRCLE COPY [ DRAW IF LLIST COPY RETURN COPY RETURN CLEAR IF IF CLEAR COPY RETURN COPY RETURN CLEAR IF CLS DRAW CLS DRAW CLS COPY RETURN COPY RETURN CLEAR IF CLS FLASH COPY [J] COPY w COPY > COPY LIST RETURN SGN RETURN RETURN k RETURN / RETURN PLOT CLEAR INVERSE CLEAR BIN CLEAR [N] CLEAR ▝ CLEAR d CLEAR = CLEAR LOAD DRAW EXP DRAW T9 RETURN [O] DEF FN COPY [P] DEF FN [O] DEF FN DEF FN DEF FN [P] DEF FN DEF FN DEF FN [O] DEF FN DEF FN MERGE MERGE [P] MERGE MERGE MERGE [O] MERGE MERGE MERGE [P] MERGE [O] MERGE FORMAT FORMAT [P] FORMAT FORMAT FORMAT [N] FORMAT [O] FORMAT [P] FORMAT FORMAT [O] FORMAT BEEP BEEP [P] BEEP BEEP BEEP [O] BEEP BEEP [P] BEEP [O] BEEP BEEP [G][S]^= COPY [O] MERGE OPEN # ERASE [M] FORMAT [O] ERASE [M] OPEN # ERASE [E] OPEN #[O] BEEP MERGE OPEN #[M] ERASE [O] OPEN #[M] MERGE OPEN #[O] MERGE V? RETURN [O] RANDOMIZE COPY GO SUB U RANDOMIZE V GO SUB RANDOMIZE GO SUB U RANDOMIZE V GO SUB POKE CONTINUE U POKE V CONTINUE POKE CONTINUE U POKE V CONTINUE CLS LOAD U CLS V LOAD CLS LOAD U CLS V LOAD PLOT REM U PLOT V REM PLOT REM U PLOT V REM T9 COPY [O] ERASE [P] ERASE [O] ERASE [P] ERASE ERASE ERASE [O] ERASE ERASE [P] ERASE [O] ERASE ERASE [P] MERGE [O] MERGE [P] MERGE MERGE MERGE [O] MERGE MERGE [P] MERGE [O] MERGE [P] MERGE MERGE [N] OPEN #[P] OPEN #[O] OPEN #[P] OPEN # CLS [O] OPEN #[P] OPEN #[O] OPEN #[P] OPEN #[O] OPEN #[P] OPEN #[N] OPEN # OPEN #[O] OPEN # OPEN #X%[P] BRIGHT BRIGHT BRIGHT [G][S]^= COPY [O] MERGE CLS [M] MERGE [K] OPEN #[O] MERGE [M] VERIFY />[O] LINE LINE [P]<>[N] LINE [O] LINE LINE [P]<>[N] LINE [O] LINE LINE [P]<>[N] LINE [O] LINE LINE [P] LINE ^= MERGE V? COPY [O] CLEAR LET U CLEAR V LET CLEAR LET U CLEAR V LET POKE CONTINUE U POKE V CONTINUE POKE CONTINUE U POKE V CONTINUE PAUSE NEW U PAUSE V NEW PAUSE NEW U PAUSE V NEW PAUSE NEW U PAUSE V NEW PAUSE NEW U PAUSE V NEW ^> DRAW [A]<= COPY LINE BIN [H]CHR$ X%[O] BRIGHT [P] BRIGHT [O] BRIGHT [P] BRIGHT BRIGHT ^= DRAW [O] OPEN # COPY OPEN #[P] OPEN #[N] OPEN #[P] OPEN #[O] OPEN #[L] OPEN #[O] OPEN # OPEN #[P] OPEN #[N] OPEN #[P] OPEN #[O] OPEN #[L] OPEN #[O] OPEN # OPEN #[P] OPEN #[N] OPEN #[P] OPEN #[O] OPEN #[L] OPEN #[O] OPEN # OPEN #[P] OPEN #[N] OPEN #[M] ERASE [N] OPEN #[P] MERGE V? DRAW [O] POKE COPY CONTINUE U POKE V CONTINUE POKE CONTINUE U POKE V CONTINUE PAUSE NEW U PAUSE V NEW PAUSE NEW U PAUSE V NEW POKE CONTINUE U POKE V CONTINUE POKE CONTINUE U POKE V CONTINUE PAUSE NEW U PAUSE V NEW PAUSE NEW U PAUSE V NEW [I][S]^? COPY [O] DEF FN DEF FN DEF FN [M] STEP DEF FN [O] ERASE CLS [M] FORMAT [C] ERASE [I][S]^? COPY [O] ERASE ERASE ERASE [M] FORMAT ERASE [O] INK CLS [M] BEEP [C] INK V? COPY [O] RANDOMIZE GO SUB RANDOMIZE GO SUB RANDOMIZE GO SUB RANDOMIZE GO SUB RANDOMIZE GO SUB RANDOMIZE GO SUB RANDOMIZE GO SUB RANDOMIZE GO SUB CLEAR LET CLEAR LET CLEAR LET CLEAR LET CLEAR LET CLEAR LET CLEAR LET CLEAR LET [I][S]^? COPY [O] FORMAT FORMAT FORMAT [M] DEF FN FORMAT [O] VERIFY VERIFY VERIFY [M] MERGE [G] VERIFY X[O] BRIGHT LPRINT [I][S]^? COPY [O] OPEN # OPEN # OPEN #[M] ERASE OPEN #[O] PAPER PAPER PAPER [M] INK [F] PAPER X[O] OVER [P] LLIST V? COPY [O] CLS LOAD CLS LOAD CLS LOAD CLS LOAD CLS LOAD CLS LOAD CLS LOAD CLS LOAD PAUSE NEW PAUSE NEW PAUSE NEW PAUSE NEW PAUSE NEW PAUSE NEW PAUSE NEW PAUSE NEW T9 COPY [O] DEF FN [P] DEF FN DEF FN [O] DEF FN [P] DEF FN CLS [O] DEF FN [P] DEF FN [N] DEF FN [O] ERASE [P] ERASE [O] ERASE [P] ERASE ERASE [O] ERASE ERASE [P] ERASE IF [O] DEF FN [P] DEF FN [O] DEF FN [P] DEF FN DEF FN [O] DEF FN DEF FN [P] DEF FN [O] DEF FN [P] DEF FN DEF FN [O] ERASE [P] ERASE CLS [O] ERASE ERASE [P] ERASE CLS [O] ERASE [O][S]]> COPY CHR$ [P]CHR$ [N]CHR$ [P]CHR$ [N]CHR$ [P]CHR$ [N]CHR$ [G]STR$ ^=[O] BEEP BEEP [M] MERGE ]>[O]CHR$ [P]CHR$ [N]CHR$ [P]CHR$ [N]CHR$ [P]CHR$ [N]CHR$ [G]STR$ ^=[O] BEEP BEEP MERGE V? COPY [O] RANDOMIZE GO SUB U RANDOMIZE V GO SUB RANDOMIZE GO SUB U RANDOMIZE V GO SUB CLEAR LET U CLEAR V LET CLEAR LET U CLEAR V LET RANDOMIZE GO SUB U RANDOMIZE V GO SUB RANDOMIZE GO SUB U RANDOMIZE V GO SUB CLEAR LET U CLEAR V LET CLEAR LET U CLEAR V LET IN COPY SGN COPY w COPY S COPY / COPY COPY COPY RETURN RANDOMIZE RETURN NEXT RETURN GO SUB RETURN CAT RETURN LEN RETURN ▟ RETURN CLEAR CLEAR IF CLEAR RUN CLEAR POKE CLEAR LET CLEAR INPUT CLEAR FOR CLEAR CONTINUE CLEAR RESTORE CLEAR STOP CLEAR OUT CLEAR BRIGHT CLEAR INK CLEAR VERIFY CLEAR OPEN # CLEAR FORMAT CLEAR STEP CLEAR LINE CLEAR <= CLEAR COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ' COPY COPY ' COPY COPY 7 COPY COPY 7 COPY COPY 7 COPY COPY 7 COPY COPY 7©G COPY G COPY G COPY RETURN G COPY RETURN G COPY RETURN G COPY RETURN G COPY RETURN G COPY RETURN G COPY G COPY G[P]G COPY COPY G COPY COPY COPY COPY COPY COPY COPY RETURN 7© RETURN G COPY COPY G COPY G COPY G COPY COPY G COPY RETURN G[P] COPY G COPY COPY COPY COPY COPY COPY ' COPY COPY 7 COPY COPY G COPY COPY W COPY COPY g COPY COPY w COPY COPY ▜ COPY COPY [H] COPY COPY PI RETURN ATN COPY COPY COPY COPY COPY COPY ' COPY COPY 7 COPY COPY G COPY COPY W COPY COPY 7 COPY COPY ' COPY COPY G© COPY W COPY W COPY COPY W COPY DRAW W[P] COPY W COPY COPY : COPY COPY COPY EXP COPY COPY ATTR LPRINT COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ' COPY COPY 7 COPY COPY ? COPY COPY 7 COPY COPY 7 COPY C RUN COPY LPRINT COPY LPRINT COPY LPRINT COPY LPRINT COPY / LPRINT COPY ? LPRINT COPY ? LPRINT COPY ? LPRINT COPY ? COPY K COPY COPY COPY COPY COPY COPY COPY COPY ' COPY COPY ' COPY COPY 7 COPY COPY W COPY COPY w COPY COPY ▜ COPY COPY [H] COPY COPY PI COPY ATN © BEEP COPY BEEP COPY BEEP COPY w COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY SAVE COPY LPRINT COPY LPRINT COPY LPRINT COPY LPRINT COPY LPRINT COPY LLIST COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY 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 IN COPY ABS COPY ASN COPY TAB COPY RND COPY [N] COPY [F] COPY ▟ COPY ▝ COPY © COPY } COPY { COPY y COPY w COPY u COPY s COPY q COPY o COPY m COPY k COPY i COPY g COPY e COPY c COPY a COPY _ COPY ] COPY [ COPY Y COPY W COPY U COPY S COPY COPY © COPY COPY COPY NEXT [P] COPY COPY NEXT COPY COPY COPY COPY COPY COPY COPY COPY DRAW COPY COPY COPY COPY COPY CLS COPY COPY COPY COPY COPY IF COPY COPY COPY COPY COPY SAVE COPY COPY COPY COPY COPY BORDER COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RUN LPRINT STR$ INPUT LIST STEP [O]/ OVER D BRIGHT 4▝ BEEP DRAW MERGE : INVERSE [H]▝ OVER MERGE PI INPUT CLOSE #PI RETURN NEXT COPY ▖O OVER ASN PI INPUT TAN PI RETURN NEXT COPY ▖O OVER [F]PI INPUT [E]PI RETURN NEXT COPY ▖O OVER uPI INPUT tPI RETURN NEXT COPY ▖O OVER UPI INPUT TPI RETURN NEXT COPY ▖O6 COPY RETURN CLEAR DRAW CLS IF RANDOMIZE SAVE LN LN RANDOMIZE IF CLS DRAW CLEAR RETURN COPY L COPY IF SAVE STR$ LN [R] OVER COPY INPUT RETURN RETURN COPY RETURN <>OSTR$ < STEP OVER CAT INVERSE 6 COPY SGN *:"2 LET ?"<= COPY < SAVE NEXT CLS COPY 666 CLEAR COPY 6©66©6?l>~cf3c6<{n? CLEAR COPY CLEAR COPY CLEAR COPY 6©6? CLEAR COPY CLEAR COPY © CLEAR COPY 0`>go{s><?>c>`©>c©`~c>>`~cc>©>c>cc>>cc?> CLEAR COPY ©© CLEAR COPY >c>gko`>>cc©cc~c~cc~>c``c>|fccf|©`~``©©`~```>c`oc>cc©ccc? CLEAR COPY ?cc>flxlfc` CLEAR COPY ©cw©kcccs{ogc>c CLEAR COPY >~cc~``>ccon;~cc~fc>`>c>? CLEAR COPY c CLEAR COPY >c CLEAR COPY 6ccck©6c66c33©0© CLEAR COPY `0 CLEAR COPY fff> CLEAR COPY COPY NSssSN>cc©cc~`~cc~f CLEAR COPY ©6 CLEAR COPY ©A©`~``©©iK©~f` CLEAR COPY c66ccgo{sccgo{scflxxlfccw©kcccc©ccc>c CLEAR COPY >©c CLEAR COPY 333~cc~``>c``c>~ CLEAR COPY ccc?>Ik>>kI~c~cc~``~cc~caymmy>ck CLEAR COPY ©##V CLEAR COPY ©fff>~NOT FLASH OPEN # FLASH NOT ~ CLEAR CLEAR COPY NOT 0 PAUSE CLEAR IF COPY FLASH |8 CLOSE #M FLASH /CHR$ /TCHR$ /|/=RND=5ICHR$ >9p56© MERGE #© BRIGHT BEEP LEN 3 FLASH /|8 CLOSE #MYXPIXXL8 STOP [q AND PIav><BB~BB|B|BB|<B@@B<xDBBDx~@|@@~~@|@@@<B@NB<BB~BBB> CLEAR COPY >BB<DHpHDB@ CLEAR COPY ~BfZBBBBbRJFB<B CLEAR COPY <|BB|@@<BBRJ<|BB|DB<@<B< RETURN CLEAR COPY B CLEAR COPY B< NEXT !5 PRINT DATA ▙ COPY COPY > COPY PEEK %+> RANDOMIZE PEEK OR +N+~+ RESTORE > PRINT PEEK OR +F+N+~+ RESTORE # GO SUB FN x INPUT COPY CAT CLS <> MERGE LLIST w GO SUB LN LLIST STR$ FOR DDBBBG RANDOMIZE COPY CGGCG RANDOMIZE COPY D RANDOMIZE COPY DDBBDDDG RANDOMIZE COPY C RANDOMIZE COPY GGC RANDOMIZE COPY GGGBD RANDOMIZE COPY B RANDOMIZE COPY DDDGGGC RANDOMIZE COPY GCCCGBBBDDDBBBD RANDOMIZE COPY GGGCGC RANDOMIZE COPY GGCD RANDOMIZE COPY B RANDOMIZE COPY BBBDDG RANDOMIZE COPY C RANDOMIZE COPY GGGD RANDOMIZE COPY B RANDOMIZE COPY GGGDDG RANDOMIZE COPY D RANDOMIZE COPY G RANDOMIZE COPY G RANDOMIZE COPY G RANDOMIZE COPY G RANDOMIZE COPY G RANDOMIZE COPY G RANDOMIZE COPY G RANDOMIZE COPY G RANDOMIZE COPY G RANDOMIZE COPY B RANDOMIZE COPY B RANDOMIZE COPY B RANDOMIZE COPY [C] RANDOMIZE COPY @USR [Q]` LPRINT [A]P FORMAT 0VAL p LIST ▖H>=(FN h CONTINUE [I]X CIRCLE 8LN x SAVE ▗DBIN $[U]d DATA [E]T CLOSE #4TAN t POKE L TO ,AT l GO TO [M]/ BRIGHT <SGN | DRAW ▘BCHR$ "[S]b STOP [C]R ERASE 2SIN r PAUSE J LINE *SCREEN$ j REM [K]Z PAPER :INT z IF ▚F AND &INKEY$f NEW [G]V VERIFY 6ACS v PLOT VAL$ n INPUT [O]^ OVER >PEEK ~ RETURN ▝ASTR$ ![R]a LLIST [B]Q MOVE 1LEN q LET ▞I<>)POINT i DIM [J]Y INK 9EXP y RANDOMIZE E OR %RNDe RESTORE [F]U MERGE 5ASN u PRINT ▟M STEP -TAB m GO SUB [N]] INVERSE =ABS } CLEAR CNOT #[T]c READ [D]S OPEN #3COS s NEXT ▛K THEN +ATTR k FOR [L][ FLASH ;SQR { CLS ▜G<='PIg BORDER [H]W BEEP 7ATN w RUN O CAT /CODE o LOAD [P]_ OUT ?IN © COPY e RANDOMIZE COPY @ABCDEFG @ A B C D E F G@@@A@B@C@D@E@F@G`@`A`B`C`D`E`F`G@ABCDEFG[Q]@[Q]A[Q]B[Q]C[Q]D[Q]E[Q]F[Q]GUSR @USR AUSR BUSR CUSR DUSR EUSR FUSR G LPRINT @ LPRINT A LPRINT B LPRINT C LPRINT D LPRINT E LPRINT F LPRINT GHIJKLMNO H I J K L M N O@H@I@J@K@L@M@N@O`H`I`J`K`L`M`N`OHIJKLMNO[Q]H[Q]I[Q]J[Q]K[Q]L[Q]M[Q]N[Q]OUSR HUSR IUSR JUSR KUSR LUSR MUSR NUSR O LPRINT H LPRINT I LPRINT J LPRINT K LPRINT L LPRINT M LPRINT N LPRINT OPQRSTUVW P Q R S T U V W@P@Q@R@S@T@U@V@W`P`Q`R`S`T`U`V`WPQRSTUVW[Q]P[Q]Q[Q]R[Q]S[Q]T[Q]U[Q]V[Q]WUSR PUSR QUSR RUSR SUSR TUSR UUSR VUSR W LPRINT P LPRINT Q LPRINT R LPRINT S LPRINT T LPRINT U LPRINT V LPRINT WHSQR L RANDOMIZE INKEY$U| LOAD FLASH PAUSE SQR / LIST [F]▖U[T][T]SQR THEN ~| COPY ^o[B] CLEAR ▖RND>=U PRINT Z>= READ [H]OEXP [Q] STOP LET [N]DNOT OPEN # REM BRIGHT OVER 'p BRIGHT CIRCLE [L][A][U]2 INPUT ▝ VERIFY PAUSE ! DEF FN FORMAT [L]AT CLEAR OR © RUN PRINT <>[K] CLEAR CLEAR !m GO SUB VAL ! RETURN RETURN > CLEAR w GO SUB VAL !i} THEN CLS q, POKE !dj@USR s#r#z NEW { AND _8z VERIFY W REM CODE OPEN # RETURN GO SUB ^> RETURN GO SUB G<>P FLASH LEN O CLS v NEXT RUN y NEW LPRINT > COPY (CODE 2^© CLS ! LPRINT X> STEP m STEP mSTR$ NEXT >F STEP m>GF STEP m OR >▖ INVERSE ! LPRINT k INVERSE n INVERSE f INVERSE ^ INVERSE V GO SUB VAL INVERSE + INVERSE +=CHR$ OPEN #lSTR$ x NEW AND @.USR g~2 LPRINT @2 COPY @ DEF FN NOT `©w#r#s# DRAW r#w#<>NOT ▜BIN ▘ DRAW jUSR .FN l CLOSE #T CLOSE #N DEF FN N DEF FN H>=H>=H>=H>=BCHR$ 0▚PAT &INKEY$ | DRAW COPY COPY COPY | COPY RETURN RETURN COPY DRAW COPY © DRAW [D]© SAVE ? SAVE U? SAVE ?USR COPY USR 7 COPY CIRCLE RUN } OVER RUN OVER NEXT LOAD [O] COPY ! DRAW RETURN © COPY COPY RETURN 8 COPY DRAW <=© DRAW E© SAVE FOR ? SAVE LOAD ? COPY COPY COPY | COPY RETURN RETURN COPY DRAW COPY © DRAW [D]©[I]3cU! NEXT [O] RUN COPY OVER w COPY BRIGHT }USR LIST USR SAVE LOAD ? SAVE COPY ? DRAW RETURN © RETURN COPY DRAW <=© DRAW E© SAVE FOR ? SAVE LOAD ? COPY COPY RETURN | COPY DRAW COPY © SAVE COPY ? SAVE COPY ? LIST COPY USR FORMAT COPY USR '[D]>=w BRIGHT RUN U OVER READ COPY ▙` RETURN a[O] NEXT DRAW <=© DRAW E© SAVE FOR ? SAVE LOAD ? DRAW <=© COPY RETURN AND COPY DRAW 9© DRAW RETURN © SAVE COPY ? CIRCLE COPY 7' COPY >=w COPY BRIGHT RUN COPY OVER READ COPY ▙c COPY ![M][D]s RETURN | COPY COPY COPY RETURN 8 COPY DRAW <=© SAVE LOAD ? SAVE LOAD ? DRAW <=© DRAW © DRAW RETURN © SAVE COPY ?USR COPY USR 7 COPY CIRCLE RUN COPY OVER BORDER COPY DEF FN BORDER COPY DEF FN NOT COPY 0▚ COPY 9 DRAW COPY © RETURN | COPY COPY COPY DRAW © SAVE LOAD ? SAVE LOAD ? DRAW <=© DRAW <=© RETURN COPY DRAW RETURN © SAVE COPY ? SAVE COPY ? COPY USR BORDER COPY DEF FN RUN COPY OVER RUN COPY OVER NEXT COPY [O]NOT COPY ▚< COPY y DRAW COPY © RETURN RETURN COPY COPY 8 COPY COPY <= COPY RETURN 8 COPY DRAW <=© SAVE LOAD ? SAVE LOAD ? DRAW <=© DRAW <=© DRAW 8© SAVE COPY ? LIST COPY USR 0 COPY USR <= COPY AND RUN COPY OVER RUN COPY OVER s COPY [M]▖ COPY # DRAW COPY © RETURN | COPY COPY COPY COPY DRAW <=© SAVE LOAD ? SAVE LOAD ? DRAW BEEP ©8 BEEP 9 AND VERIFY AND BORDER 9 DEF FN RUN COPY OVER s COPY [M]▖ COPY # DRAW COPY © RETURN | COPY COPY COPY COPY COPY RETURN | COPY DRAW [D]© SAVE ?8U9<= COPY AND BORDER } DEF FN RUN OVER w LOAD BRIGHT COPY USR SAVE 8? DRAW BEEP © SAVE LOAD ? SAVE LOAD ? DRAW LOAD © RETURN AND COPY COPY 9 COPY COPY COPY RETURN SAVE COPY DRAW DRAW COPY SAVE RETURN COPY SAVE ~ COPY LIST ?© LIST IN © LIST ?© LPRINT [P]? LPRINT o? LPRINT LIST RUN ? LIST RUN © LIST o© SAVE [M] COPY RETURN COPY COPY COPY COPY l COPY DRAW [M] COPY SAVE | COPY SAVE | COPY COPY COPY RETURN SAVE COPY DRAW DRAW COPY SAVE RETURN COPY SAVE ~ COPY LIST ?© LIST IN © LIST ?? LPRINT LIST ? LPRINT LOAD © LPRINT o? LIST RUN ? LIST CLS ? LIST DRAW © SAVE DRAW COPY RETURN COPY RETURN <=© SAVE BORDER ? LIST OUT ? LIST OUT © SAVE BRIGHT COPY COPY COPY RETURN SAVE COPY DRAW DRAW COPY SAVE RETURN COPY SAVE ~ COPY LIST ?©USR IN _.?[Q]o COPY p LOAD COPY x LOAD ©x LPRINT COPY LN COPY G LIST COPY ? CONTINUE DRAW USR USR LPRINT ?| LIST ?x LPRINT USR SAVE USR LLIST DRAW ? COPY COPY RETURN SAVE COPY DRAW DRAW COPY DRAW RETURN COPY SAVE ~ COPY LIST ?© LIST IN © LIST ?? LPRINT LIST ? LPRINT LOAD © LPRINT o? LIST RUN ? LIST CLS ? LIST DRAW © SAVE DRAW COPY RETURN COPY PAUSE <=© LPRINT BORDER ? LPRINT OUT ? LIST OUT © SAVE BRIGHT COPY COPY COPY RETURN SAVE COPY DRAW DRAW COPY SAVE RETURN COPY SAVE ~ COPY LIST ?© LIST IN © LIST ?? LPRINT [P]? LPRINT o? LPRINT LIST RUN ? LIST RUN © LIST o© SAVE [M] COPY RETURN COPY COPY [D] COPY RETURN l COPY DRAW [M] COPY SAVE | COPY SAVE | COPY COPY COPY RETURN SAVE COPY DRAW DRAW COPY SAVE RETURN COPY SAVE ~ COPY LIST ?© LIST IN © LIST ?? LPRINT ©? LPRINT IN ? LPRINT OUT ? LPRINT IN ? LPRINT ©© LIST RETURN COPY SAVE DRAW COPY DRAW COPY STOP <=© LPRINT BORDER ? LPRINT OUT ? LIST OUT © SAVE BRIGHT COPY COPY COPY RETURN SAVE COPY DRAW DRAW COPY SAVE RETURN COPY SAVE ~ COPY LIST ?© FORMAT IN _&?[Q]w COPY VAL RUN COPY LN LOAD ©LN LPRINT COPY LN COPY G LIST COPY ? CONTINUE DRAW USR USR LPRINT ?| LIST ?x LPRINT USR SAVE USR LLIST DRAW ? COPY COPY RETURN SAVE COPY DRAW DRAW COPY SAVE RETURN COPY SAVE ~ COPY LIST ?© LIST IN © LIST ?© LPRINT ©? LPRINT IN ? LPRINT OUT ? LPRINT IN ? LPRINT ©© LIST RETURN COPY SAVE DRAW COPY RETURN COPY RETURN <=© SAVE BORDER ? LIST OUT ? LIST OUT © SAVE BRIGHT COPY COPY COPY RETURN SAVE COPY DRAW DRAW COPY SAVE RETURN COPY SAVE PAUSE COPY LIST READ © LIST FOR © LIST READ © LPRINT CAT ? LPRINT ATN ? LPRINT {? LIST x© LIST {© LIST ATN © SAVE TO COPY RETURN COPY RETURN O COPY DRAW VAL COPY DRAW TO COPY DRAW PLOT COPY DRAW PLOT COPY COPY COPY RETURN SAVE COPY DRAW DRAW COPY SAVE RETURN COPY SAVE PAUSE COPY LIST READ © LIST FOR © LIST READ ? LPRINT LET ? LPRINT INPUT ? LPRINT OUT ? LIST LOAD ? LIST PLOT ? LIST RANDOMIZE © SAVE DRAW COPY SAVE COPY LIST D COPY LPRINT ;© LPRINT OUT © LIST OVER COPY SAVE BRIGHT COPY COPY COPY COPY COPY COPY RETURN SAVE COPY DRAW DRAW COPY SAVE RETURN COPY SAVE PAUSE COPY LIST READ © FORMAT FOR _/ READ [Q]o COPY p LOAD COPY x LOAD RUN LN BORDER SAVE 8 COPY G LPRINT COPY ©USR DRAW COPY <?x LIST USR ▝< LPRINT LPRINT USR LIST USR LLIST SAVE ? COPY COPY RETURN SAVE COPY DRAW DRAW COPY SAVE RETURN COPY SAVE PAUSE COPY LIST READ © LIST FOR © LIST READ © LPRINT LET ? LPRINT INPUT ? LPRINT OUT ? LIST LOAD © LIST PLOT COPY LIST IF COPY SAVE DRAW COPY SAVE COPY LIST E COPY LPRINT : COPY LPRINT IN © LIST OVER COPY SAVE BRIGHT COPY COPY COPY RETURN SAVE COPY DRAW DRAW COPY SAVE RETURN COPY SAVE PAUSE COPY LIST READ © LIST FOR © LIST READ © LPRINT CAT ? LPRINT ATN ? LPRINT {? LIST x© LIST {© LIST ATN © SAVE TO COPY RETURN COPY RETURN COPY DRAW VAL COPY DRAW >= COPY DRAW PLOT COPY DRAW PLOT COPY COPY COPY RETURN SAVE COPY DRAW DRAW COPY SAVE RETURN COPY SAVE PAUSE COPY LIST READ © LIST FOR © LIST READ © LPRINT ©? LPRINT IN ? LPRINT BEEP ? LIST LN © LIST ©© LIST COPY © SAVE DRAW COPY SAVE COPY LIST E COPY LPRINT : COPY LPRINT OUT © LIST OVER COPY SAVE BRIGHT COPY COPY COPY RETURN SAVE COPY DRAW DRAW COPY SAVE RETURN COPY SAVE PAUSE COPY LIST READ © FORMAT FOR _' READ w COPY VAL RUN COPY LN RUN RUN LN BORDER SAVE 8 COPY G LPRINT COPY ©USR DRAW ©<@| LIST LPRINT > LPRINT LPRINT USR LIST USR LLIST SAVE ? COPY COPY RETURN SAVE COPY DRAW DRAW COPY SAVE RETURN COPY SAVE PAUSE COPY LIST READ © LIST FOR © LIST READ © LPRINT ©? LPRINT IN ? LPRINT BEEP ? LIST LN © LIST ©© LIST COPY © SAVE DRAW COPY SAVE COPY LIST D COPY LPRINT ;© LPRINT IN © LIST OVER COPY SAVE BRIGHT COPY LIST © COPY LPRINT COPY USR LIST COPY ? DRAW COPY ? RETURN COPY ? RETURN COPY 0 COPY ©2©USR w©USR {© LPRINT LPRINT LIST >= LPRINT SAVE LPRINT LIST RETURN LPRINT COPY SAVE USR COPY LIST ? COPY LIST © COPY COPY SAVE LIST COPY LPRINT DRAW COPY USR DRAW ▜? RETURN x© AND x©INT 8©|Xx|XrINT 0 AND 8USR GO TO NOT LPRINT GO TO BORDER SAVE LPRINT COPY COPY COPY COPY RETURN COPY COPY DRAW © COPY SAVE ? COPY LIST USR COPY LIST USR RETURN SAVE LIST SAVE LIST >=0 LPRINT TAN CAT USR z COPY USR {©USR {©?LEN ©? COPY >~ COPY >< COPY USR 8 COPY USR ` COPY LPRINT COPY LIST © COPY RETURN COPY DRAW PLOT COPY DRAW PLOT COPY DRAW >= COPY DRAW VAL COPY RETURN COPY SAVE TO COPY LIST ATN © LIST {© LPRINT x© LPRINT {? LPRINT ATN ? LPRINT CAT ? LIST READ © LIST FOR © LIST READ © SAVE PAUSE COPY SAVE RETURN COPY DRAW DRAW COPY RETURN SAVE COPY RETURN COPY RANDOMIZE COPY COPY LIST COPY COPY LPRINT © COPY USR COPY COPY :▜ COPY zx COPY p ERASE COPY 9'©USR BORDER © SAVE CLS ? LIST RUN USR LIST pUSR LPRINT ` LIST SAVE ` LIST COPY LPRINT SAVE COPY USR DRAW COPY USR RETURN ©? COPY © COPY NEXT COPY COPY <= COPY RETURN 8 COPY <IN ?STR$ IN USR READ `"SCREEN$ p MOVE LIST LIST MOVE RUN LIST STOP LOAD LIST NEXT LIST NEXT COPY LPRINT COPY USR DRAW COPY ? RETURN x COPY COPY ▜ COPY COPY STR$ COPY COPY > COPY RETURN COPY © DRAW CAT ? SAVE ? LIST CODE USR LIST USR LIST USR LPRINT LOAD ? LPRINT LOAD ? LIST LOAD ? LIST LOAD © SAVE © DRAW RETURN COPY LPRINT x COPY USR COPY 8? COPY USR USR COPY LPRINT ? COPY SAVE ? COPY COPY LIST © COPY ? RETURN ©USR DRAW COPY LPRINT SAVE COPY LPRINT SAVE COPY LPRINT LIST SAVE ` LIST ` LIST pUSR LIST RUN USR LPRINT RUN ?USR k?▘8[J]©p< COPY :NOT COPY USR COPY COPY LPRINT COPY COPY LIST © COPY SAVE COPY COPY CLEAR COPY COPY COPY ▜ COPY RETURN x COPY DRAW COPY ? COPY USR NEXT COPY LPRINT NEXT LIST STOP LOAD LIST MOVE RUN LIST MOVE LIST LIST "SCREEN$ pNOT `STR$ IN USR <IN ? RETURN 8 COPY COPY <= COPY CLS COPY COPY LET COPY COPY LPRINT USR © COPY © COPY h COPY LPRINT | COPY @[P]©SGN o? SAVE RUN USR LIST RUN USR LIST RUN USR LIST o LPRINT SAVE ▜ LPRINT SAVE NEXT LPRINT DRAW READ LPRINT RETURN READ USR COPY ?USR COPY USR ? COPY LIST © DRAW COPY SAVE | COPY SAVE | COPY DRAW [M] COPY RETURN l COPY RETURN COPY SAVE [M] COPY LIST o© LIST RUN © LIST w? LPRINT LPRINT o? LPRINT [P]? LIST ?© LIST IN © LIST ?© SAVE ~ COPY SAVE RETURN COPY DRAW DRAW COPY RETURN SAVE COPY COPY COPY COPY DRAW COPY COPY SAVE © COPY LIST ? COPY SAVE @ COPY LPRINT DRAW NEXT p SAVE x LIST LIST L LPRINT LIST 6 LPRINT USR {©USR w©2?1 COPY ©? COPY ©USR RETURN COPY USR DRAW COPY LPRINT LIST COPY LIST COPY RETURN © COPY COPY COPY SAVE LPRINT COPY LPRINT GO TO BORDER USR GO TO NOT 0 AND NOT rINT x|X©|X©INT 8© AND x? RETURN xUSR DRAW ▜ LPRINT DRAW COPY SAVE LIST COPY COPY COPY DRAW COPY SAVE LPRINT COPY LIST SAVE COPY LPRINT [M] COPY LPRINT ▙ COPY USR CODE ©USR ©USR AND © LPRINT LN ? LPRINT ABS ? LPRINT ABS © LIST EXP © LIST AND COPY SAVE SAVE COPY DRAW LIST COPY LPRINT COPY LPRINT ` COPY USR COPY LPRINT ? COPY LPRINT LET COPY COPY NOT RANDOMIZE COPY CODE 2e©:Y[F] AND 7?2c©:Z[F] VERIFY 2d©:f©2) GO TO STEP ' GO TO ** GO TO ~O: RESTORE EXP USR #:c©O~EXP (=EXP (=EXP (=EXP (=EXP (~<EXP (<EXP (<>#:d©O~o}EXP (ox RETURN POKE <>> COPY 2e©<> OR x2) GO TO STEP ' GO TO ** GO TO ~O: MERGE ©EXP ( NEW !" VERIFY ©<>STR$ " VERIFY ©<>:|[F] RETURN USR CODE 2|[F]2C> COPY 2s[F] STEP ▝>e2 MERGE © STEP CIRCLE ©! VERIFY ©~PI(0:) GO TO 2. FOR >f2 MERGE © STEP CIRCLE ©! VERIFY ©~PI(:) GO TO 2/ FOR >g2 MERGE © STEP CIRCLE ©! VERIFY ©~PI(:) GO TO 20 FOR STEP 2 FOR : RESTORE PRINT >32 RESTORE STEP RESTORE LET 2 RESTORE v CLEAR :{ DIM PI(NOT `▝ STEP SCREEN$ GO TO STEP 1[G]CODE 2s[F]<>>g2 MERGE © STEP CIRCLE ©! VERIFY ©~PI(+* VERIFY ©: RESTORE w STEP ▝#s#r>f2 MERGE © STEP CIRCLE ©* VERIFY ©>gw>e2 MERGE © STEP CIRCLE ©* VERIFY ©>fw<>>f2 MERGE © STEP CIRCLE ©! VERIFY ©~PI(>f2 MERGE © STEP CIRCLE ©* VERIFY ©>gw>e2 MERGE © STEP CIRCLE ©* VERIFY ©>fw<>>e2 MERGE © STEP CIRCLE ©! VERIFY ©~PI>=>e2 MERGE © STEP CIRCLE ©* VERIFY ©>fw<>:Y[F] AND 7?_:Z[F] VERIFY W<> OR x2f© STEP g©:e©PI STR$ x RETURN >= REM STR$ STEP :f©2) GO TO STEP ' GO TO ** GO TO >ew# STEP ▝s#r<>:G▝2) GO TO STEP ' GO TO ** GO TO : RESTORE w# STEP ▝s#r<>:{ DIM 2) GO TO 2G▝ STEP ' GO TO ** GO TO ~ RETURN e >f2 MERGE © STEP CIRCLE ©* VERIFY ©>ew>g2 MERGE © STEP CIRCLE ©* VERIFY ©>fw RETURN f >g2 MERGE © STEP CIRCLE ©* VERIFY ©>fw>2[F] STEP H▝:G▝2) GO TO STEP ' GO TO ** GO TO #^#V++~G:G▝O>LN >EXP >▖INT >:SQR (><SQR (>2[F] STEP [C] GO SUB <>>LN #EXP >[A]INT >LSQR (>NSQR (CODE w2[F] STEP NEXT GO TO STEP SCREEN$ GO TO STEP 1[G]<>>LN >EXP >xINT >TSQR >2[F]2 RESTORE NOT u>LN >EXP >xINT >PSQR (>RSQR (STR$ NOT [T] LOAD >'LN (>EXP #>[A]INT >JSQR (>LSQR (CODE w2 RESTORE >2 RESTORE >2[F]NOT u>*LN >EXP >[A]INT >(SQR CODE w>2[F]2 RESTORE NOT u>LN CHR$ u>EXP CHR$ u>[A]INT CHR$ u>PSQR CHR$ uCODE w2[F]NOT u2s[F] STEP { STEP PAUSE STEP ▞▟*ATN ▟+"ATN ▟ RETURN COPY LINE E[K] STEP DIM STEP PAUSE CLS ▘> COPY INVERSE w INVERSE 6G INVERSE ~ INVERSE w<> INVERSE ~ THEN ?_!wNOT RETURN COPY RETURN CLEAR DRAW INVERSE RESTORE RESTORE INVERSE LLIST INVERSE ~ INVERSE w INVERSE 6 INVERSE 6 DRAW INVERSE 6/ INVERSE 6 STEP CODE INVERSE w<> INVERSE ~PI H INVERSE n INVERSE f RESTORE ##~ INVERSE PEEK " INVERSE 6[E]+F INVERSE p+~ INVERSE w AND _h STEP @~ NEW RETURN STEP LLIST ### INVERSE 5 ! STOP BIN INVERSE 6 INVERSE u INVERSE t<> STEP NEW RETURN ( INVERSE 4!ATTR _~ INVERSE wNOT <>[F][G][H][G][F][E] INVERSE ~PI .*&Pd STEP 7▚0 INVERSE 5!oIN NOT NOT ▘ STEP INVERSE ~ NEW RETURN > AND INVERSE wNOT !" DRAW ▝>2"▘2 BEEP ▝> COPY 2}▝!FN USR NOT NOT ▘:COS ▝PI LIST INVERSE 4 INVERSE ~ RETURN m INVERSE 6gNOT 2STR$ [D]>h2CHR$ [D]>2BIN [D]>2 OR [D]>G2NOT [D]CODE 2 AND [D] STEP ▞R:COS ▝PI LIST :Y[F] RETURN 6 :Z[F] RETURN © CODE 2▟[F] INVERSE ~2STR$ [D]>h2CHR$ [D]>2BIN [D]>2 OR [D] INVERSE ~ NEW PLOT @2NOT [D]CODE 2 AND [D] STEP ▞ STEP [B]▗ INVERSE 4 INVERSE 4 INVERSE ~ RETURN 0 CODE INVERSE w INVERSE ~ VERIFY PAUSE [L]▗ GO SUB D INVERSE ▚ AND _!dj~#fo INVERSE ~PI VERIFY THEN _ NEXT ~ INPUT COPY w#~ INPUT COPY w#~ INPUT COPY w# CLS <>>G INVERSE w:▘PI>`(( PLOT INVERSE w>a INVERSE w STEP w<> INVERSE ~ RETURN CIRCLE < PLOT INVERSE w NEW AND b INVERSE wvNOT INVERSE ~ RETURN !lCHR$ LINE ▗[B] RETURN !▜CHR$ LINE ▗[B] RETURN (+ RETURN CHR$ CLOSE #[C]:▘PI![T]CHR$ LINE ▗[B] INVERSE 4 INVERSE ~ RETURN ! FLASH STR$ PAPER ▗[B] STEP PAPER [C]> COPY 2COS ▝! DRAW STR$ NOT ▗[B] INVERSE 6 COPY STEP PAPER [C]!DCHR$ NOT ▗[B] INVERSE !}▝ STEP { INVERSE RANDOMIZE ! CONTINUE " DRAW ▝> COPY 2[F] INVERSE !}▝ INVERSE ~ INVERSE w INVERSE ~ INVERSE w INVERSE ~ INVERSE w INVERSE ~ INVERSE w INVERSE ~ RETURN USR INVERSE ~ INVERSE w INVERSE 6G<>:o[F]2@▘>( STEP ASN > 2BIN INVERSE !}▝ OR INVERSE ~ RETURN :o[F] INVERSE PEEK INVERSE RESTORE INVERSE ~!O▘ TO ▚ INVERSE LLIST STR$ INVERSE INVERSE <> INVERSE !1▘x=2[F] OR :o[F] INVERSE PEEK INVERSE ~ INVERSE RESTORE !a▘ TO ▚ INVERSE LLIST STR$ LET COPY INVERSE INVERSE <>▜O^#V FOR DIM INVERSE n INVERSE f INVERSE n INVERSE f INVERSE ~2USR [D] RESTORE STEP [G]▖ LLIST : OR [D]W:BIN [D]_:Y[F] AND O:Z[F] VERIFY G}[B]8 RETURN FORMAT = FORMAT |[A]8 RETURN <>=▘<>!▖[D][F]NOT [D]2[G][F][E][F]<=__:STR$ [D]w#:CHR$ [D]w#q<>GCODE 2[I][F]:w[F]PI>="t[F]!w[F]~[A]0CODE w<>!w[F]~ AND RETURN 8>w<>:~[F]PI>= INVERSE ! STOP BIN :o[F] INVERSE PEEK " OR CODE STEP ▚0 INVERSE THEN RETURN INVERSE RESTORE >2[F] STEP [T][A]CODE 2~[F]!NOT STEP ▗[B] INVERSE LLIST STR$ INVERSE CAT <>> COPY 26▜> STEP [C][B] 0 CLEAR !-▜ OR :o[F] CLEAR PEEK CLEAR n, CLEAR f CLEAR ^ STEP 7▚0CODE 26▜STR$ CLEAR >LN VERIFY :6▜25▜<>R/ d COPY COPY :[G][F]2NOT [D]:[E][F] INVERSE !4▖PI>=G OR INVERSE RESTORE :[G][F]O INVERSE ~< NEW INVERSE w AND / INVERSE ^ INVERSE n STEP x▖ STEP ▗▞ INVERSE LLIST INVERSE n INVERSE f STEP 7▚ BRIGHT ▝▜ INVERSE STR$ <=<> GO SUB Ko[F]xEXP USR :b[F] RETURN >=>2b[F]CODE 2[A][F] INVERSE ~ AND 2][F]! DRAW CHR$ > COPY STEP ▖▚ INVERSE RESTORE STEP CIRCLE [F] INVERSE LLIST <>:[D][F] INVERSE !▖PI>=G OR STEP RESTORE ▜ INVERSE ~< NEW INVERSE w STEP RESTORE ▜>s STEP ▚0>! CONTINUE CHR$ STEP ▖▚ INVERSE STR$ INK <> INVERSE ~ NEW G INVERSE ~ NEW INPUT FO INVERSE ^ INVERSE n>s INVERSE RESTORE STEP x▖ STEP ▗▞ INVERSE LLIST CODE 2 AND [D]NOT ▞X[$[E RANDOMIZE COPY RESTORE MERGE "^!0LN GO SUB S LINE [D]" TO [D] MOVE LLIST <> RESTORE MERGE `!LN GO TO gy2NOT [D]x NEW 2 AND [D]x NEW 2<=[D]|2USR [D]{2STR$ [D]}2CHR$ [D]CODE 2r[F]:USR [D]o&)/[P]^#Vz RETURN COPY 2r[F]<>!/[R]~2BIN [D]#~2 OR [D]#">=[D]<>!▞6NOT BORDER ▖oCODE 2▞: AND [D] RETURN } INPUT Go>VAL$ 2▞}2▞x2▞&z▜▜▜o))X RESTORE >Fw# RANDOMIZE LLIST LET <>:r[F]PIUSR * LINE [D]:BIN [D]G:STR$ [D]_SGN FORMAT ABS CIRCLE >={[F]0]G{[E]8( GO SUB DG{ NEW <G THEN 8{ VERIFY THEN ?_* TO [D]: OR [D]O:CHR$ [D]WSGN FORMAT ▝ABS CIRCLE >=z[F]0U▝Oz▝[E]8( GO SUB D▝Oz NEW ▝ AND O THEN 9 THEN 9 THEN 9 THEN : THEN : THEN ::NOT [D]NOT MOVE ▖:r[F]PIUSR GO SUB [ LINE [D]: OR [D]2 DEF FN [D]:BIN [D]2 CAT [D]G:STR$ [D]INT FORMAT CIRCLE =SQR CIRCLE * TO [D]: OR [D]G:CHR$ [D]SGN FORMAT =ABS CIRCLE :CHR$ [D]2 MOVE [D][F]0!G: DEF FN [D]2 DEF FN [D]}2 MOVE [D] RESTORE *>=[D]:BIN [D] THEN ?Ox< DRAW ">=[D] LLIST : DEF FN [D]G: MOVE [D]=[E]8<G: DEF FN [D][A]2 DEF FN [D]:STR$ [D]2 ERASE [D]CODE 2 BORDER 2<▛:STR$ [D][D]04 GO SUB DG NEW 2<▛: CAT [D][A]2 CAT [D]: ERASE [D]2 ERASE [D]x THEN ?2 BORDER O RESTORE *>=[D]:<=[D]PI( GO SUB BPI GO SUB B">=[D] LLIST G: ERASE [D]G: CAT [D]=[C]8<G: CAT [D][A]2 CAT [D]x< THEN ?G: BORDER 2 BORDER !#:<=[D]PI($*>=[D]:BIN [D] THEN ?=O">=[D]:BIN [D] THEN ▜G: BORDER GO SUB D2 BORDER ! PRINT >NOT 2 OVER " OUT : MOVE [D]o&)dj RESTORE INVERSE LLIST GO SUB [>=[D]: ERASE [D] VERIFY THEN ? PAPER ▛2 MERGE :<▛PI: MERGE CHR$ ▛: AND [D]PI(>VAL$ 2 LLIST : CAT [D] THEN ?2 CAT [D] INVERSE n INVERSE # INVERSE f INVERSE #+: CAT [D]G#w SAVE FOR FOR : DEF FN [D]=2 DEF FN [D] VERIFY <> OR iOSTR$ #NOT LLIST 28▛: BORDER 2I▛!{▛: AND [D]PI:<=[D] LINE #▛!W▛PI LINE *▛!VAL$ ▛NOT *▛PI LINE *▛! OVER ▛"E▛ INVERSE n INVERSE # INVERSE f INVERSE #>2 FORMAT [D]: CAT [D]G STEP OVER ▛ FOR FOR : DEF FN [D]=2 DEF FN [D] BEEP <>: FORMAT [D]PI( RANDOMIZE COPY NOT s▛ RANDOMIZE COPY O NEW VAL$ w#>=y NEW LIST VAL$ w FOR <>: FORMAT [D]PI( RANDOMIZE COPY 2▞NOT [P]▛~ NEW LIST O RANDOMIZE COPY 2▞ NEW ▝w#>=~ NEW O:▞ NEW LIST ▝w OUT <>: FORMAT [D]PI(OSTR$ RANDOMIZE COPY NOT VERIFY ▛ OR iOSTR$ RANDOMIZE COPY O NEW VAL$ w#>=y NEW LIST VAL$ w RESTORE <>: FORMAT [D]PI( OR iOSTR$ RANDOMIZE COPY 2▞NOT O OR iOSTR$ RANDOMIZE COPY 2▞ NEW ▝w#>=~ NEW O:▞ NEW LIST ▝w INK <> INVERSE !BIN j>▖ INVERSE n INVERSE f INVERSE # INVERSE #6# CLS = FOR >GNOT NOT ▖} NEW SAVE &To)) THEN ;X<>/ VERIFY d0 CLS AND dp#/ VERIFY 0 CLS AND :p#w<> STEP n▖~PI( RESTORE STEP SQR ▟ LLIST # POKE NOT /▖ STEP n▖ STEP ▗NOT /▖"ATN ▟>2EXP ▟ STEP [H]▟ RETURN ( RETURN ( RETURN ▟!/▟O~ STEP SQR ▟ BRIGHT STEP [H]▟ RETURN >= RETURN 8( RETURN (T RETURN ( AND AND @2 FLASH [D]IN STEP ▞▟2 BRIGHT [D] STEP ▞▟2 INVERSE [D]LEN *ATN ▟:EXP ▟ RESTORE PRINT STEP [H]▟ RETURN ( RETURN LIST STEP [H]▟ FOR : OVER [D][A]2 BRIGHT [D]: INVERSE [D] AND 2 INVERSE [D] LET LLIST "ATN ▟2EXP ▟NOT >2}[F]CODE 2~[F]2 AND [D]2<=[D]: FLASH [D]2NOT [D] STEP ▞▟2▙2[N]▙ GO SUB K BRIGHT [D]▝ AND 2 OVER [D] STEP ▞▟2^▙▜▜▜2[B]▙ STEP OUT ▟ STEP 8▙ STEP t▙: INVERSE [D] AND 2 INVERSE [D]NOT :ETAOINSHRDLUBCFGJKMPQVWXYZ@?0123456789;&'<>= STEP [H]▟ RANDOMIZE COPY PRINT STEP [H]▟STR$ VAL <>!EXP ▟4 THEN F(*ATN ▟~ NEW #"ATN ▟<>*ATN ▟~ THEN ? THEN ? THEN ? THEN ?<> CIRCLE BIN G: INVERSE [D]o: BRIGHT [D] AND _: FLASH [D]Ox STEP x▖ STEP ▞ STEP ▗▞: BRIGHT [D] AND 2 BRIGHT [D]<>: BRIGHT [D] AND _: INVERSE [D] AND o STEP CLS ▟:[B]▙ AND o: BRIGHT [D] AND _>* STEP 2▙>. STEP 2▙>( STEP 2▙ SAVE >. STEP 2▙>+ RESTORE MERGE RESTORE MERGE PRINT { VERIFY _ STEP @:NOT [D]w LET MOVE LLIST STEP ▛▖ STEP ▗▞ MOVE LLIST <> STEP ▙<>: BRIGHT [D] AND _ MERGE : INVERSE [D]o STEP T▙: INVERSE [D]o MOVE :▙<▜_>, STEP ▙} AND o>) STEP ▙} AND o POKE } AND o>-NOT ▙: BRIGHT [D] AND THEN ?2[J]▙: INVERSE [D] AND _ THEN # THEN INVERSE !dj INVERSE INVERSE fr# DRAW INVERSE # INVERSE # DIM <> NEXT RESTORE o THEN g OR RETURN COPY NEW LPRINT AND 2 LINE ▙} NEW 8 AND G2 DEF FN ▙ THEN GO SUB x THEN _STR$ LLIST CLS <> NEW 8 AND G2 STOP ▙ FLASH INPUT COPY THEN _ LLIST <>:C2|[F]<>[P][F] INVERSE !RND[F]~ STEP SCREEN$ ▙( STEP SCREEN$ ▙(:^©PI( INVERSE ~ STEP SCREEN$ ▙(PI7 THEN # INVERSE # PAPER y2C!? STEP SCREEN$ ▙ PI7 THEN # LET y2D<>STR$ `@ COPY CODE 2 AND [D] STEP MOVE ▖![A]e" CLS ▖"M<>!X" CLS ▖"MSTR$ X!Qf THEN RUN # SAVE ## LOAD <> PRINT OR GO SUB Kz[F]:{[F]LN ( IF NEW ( PAUSE STR$ LET <> STEP E STEP CODE 2[E][F]2[D][F] STEP VAL$ STEP ^[A] STEP FN STEP /NOT A[B]:o[F] RETURN ©>=!9[L]CODE 2][A]2/[A]EXP [K]_02[[A]PI LINE S[A]:/[A] GO SUB Ko[F][B]G^#V# THEN {(' THEN n(~ NEW ©<2][A]#~ NEW G2NOT [D]~ NEW 2<=[D]~ NEW 2 AND [D]# THEN SQR GO SUB SSTR$ [D]:][A]PI(=2][A]~#2USR [D]xPI ) OR RESTORE STEP [G]▖: AND [D] PRINT CODE 2 AND [D] STEP ▞ LET 2 AND [D] STEP ▗▞:USR [D] RETURN [ TO c▚:USR [D] RETURN s TO Y▚ LLIST STR$ :[[A]=2[[A] ▗:/[A]< PAUSE SQR <>© INVERSE ! STOP BIN :o[F] INVERSE PEEK OR INVERSE RESTORE CODE F INVERSE ^ INVERSE n STEP x▖ STEP ▗▞ STEP ▞ INVERSE LLIST STR$ INVERSE CIRCLE <>> COPY 2v[F] INVERSE ! STOP BIN INVERSE THEN PEEK INVERSE SAVE :v[F]<2v[F]! FORMAT BIN STEP /! THEN BIN STEP {! FORMAT BIN STEP iNOT [P]▚>: STEP BRIGHT [A] GO SUB Kx[F]>/ STEP BRIGHT [A]! OPEN #BIN STEP {! CIRCLE BIN NOT i<>! CIRCLE BIN w# DRAW <>!x[F]:w[F]PEEK >=84~▚ THEN ?w▜▜▜ INPUT COPY 2▗BIN >2[F]:x[F]▜ NEW _!9[B]N!4A SAVE OR :x[F]▜ VERIFY 86 COPY , RUN q,6, CLS STR$ LLIST <>USR LPRINT LIST SAVE DRAW RETURN COPY !ATN BIN STEP {:o[F] AND G! PAPER NOT ~ RETURN COPY (LN (#~# RETURN COPY ( LET NEW RETURN POKE ~ RETURN LIST LOAD #NOT P[B]> 2 OVER [D]<2EXP ▟#"ATN ▟ STEP n▖ STEP FLASH NOT /▖>2s[F] STEP { STEP PAUSE NOT E[K]G[D] RETURN CIRCLE LN >= POKE :~[F]PI>=:5▜PI>=>2▛[F] INVERSE RESTORE >2s[F]!1NOT STEP { OR STEP F[D]STR$ x RETURN PRINT !NOT :X▖PI TO {:©[F]!cNOT PI !FNOT STEP { COPY :▛[F]PIx 4:{[F]O:{[F]EXP ( IF :▝[F]< NEW 2▝[F]!▘[F]_~2 FLASH [D] OR STEP F[D] STEP )[D]STR$ O THEN Y 8:X▖PIx(PI( THEN i THEN Q(= RETURN ( THEN a THEN I(<LN (SIN STEP ;[D]z( OVER PRINT >B2 FLASH [D]x RETURN COPY BIN F[D]STR$ [N]x STEP ;[D]2[J][C] RETURN (/ STEP <=[C]:[J][C] STEP ▚[D]:IN [D]PI( INVERSE LLIST :[J][C] RETURN (!:[J][C] RETURN ( INVERSE RESTORE :[J][C] RETURN ( STEP STOP [C] STEP E[K]CODE 2▛[F]2©[F] INVERSE LLIST <>![C] RESTORE > STEP [C][B]USR > STEP [C][B]USR LLIST >2[J][C] STEP PAPER [C]!W▖#~ RETURN IF 6!"CHR$ STEP ▗[B]NOT VAL [B]G INVERSE !}▝ INVERSE DRAW <>> COPY 2IN [D]<> STEP CONTINUE [C] INVERSE 6 COPY <> STEP CONTINUE [C]NOT [D]:[J][C] STEP <=[C]O!W▖#~ RETURN >=EXP SAVE #~+ RETURN (w# PRINT 6<>:o[F] INVERSE w:Y[F] NEW RETURN AND " INVERSE w:Z[F] NEW SAVE VERIFY INVERSE wG>2[F]<> STEP RESTORE ▙PI(O:[F]PIy2[F]>=CODE <>_!X▖W~PI<>x AND X2 INVERSE [D]>2 BRIGHT [D]x STEP ;[D]![Q]NOT LINE {!▘▝G CLEAR ^#fk RETURN CHR$ {>t2 INVERSE [D]NOT {!"X▖!"Z▖<>> COPY 2IN [D] INVERSE RESTORE LLIST }TAN >= INVERSE n INVERSE f}TAN !> COPY 2IN [D]:o[F]PEEK USR #^#V#~#F# RESTORE o` FOR STEP 7▚ LLIST FORMAT CODE 2IN [D] DIM COPY s$[FSTR$ [U]"^0LN [$ COPY COPY LIST LIST F& 2O[F] INVERSE RESTORE RESTORE }2Q[F] LLIST {2V[F] THEN ?j:O[F] NEXT INK OR MERGE RESTORE INK GO SUB sR[F]&o)mN#F!am RANDOMIZE STR$ y2P[F]:Q[F][B]o&)dj}|"T[F] INVERSE *T[F]:V[F]O:P[F] THEN 98H INVERSE n INVERSE # INVERSE f INVERSE # INK STR$ MOVE LLIST INK ~ INK [R]FN INK GVAL$ p#~ INK [T]SCREEN$ INK GVAL$ p#~ INK RNDAT INK GVAL$ pCODE =CHR$ =[E] GO SUB {R[F] INK LLIST MOVE STR$ INK INVERSE LLIST CLS <> INVERSE n INVERSE # INVERSE f INVERSE # INK STR$ MOVE LLIST > COPY 7 THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN 2W[F]CODE THEN 8 THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN THEN 2X[F] INK ~ INK [R]FN INK GVAL$ p#~ INK [T]SCREEN$ INK GVAL$ p#~ INK RNDAT INK GVAL$ p#~ INK *W[F]RNDAT INK GVAL$ p=CHR$ [E] GO SUB {R[F] INK LLIST MOVE STR$ INK INVERSE LLIST CLS <> NEXT GO SUB sR[F]1jSTR$ y20[F] LLIST x^#V# FOR STR$ ~POINT w#~FN w#STR$ ~POINT w#~FN w FOR = LPRINT GO SUB {R[F] CLS <>[I]4 COPY lk[H][H] RANDOMIZE COPY [H] RANDOMIZE COPY 37 RANDOMIZE COPY COPY COPY COPY COPY CHR$ STOP USR LPRINT ▝▘▗▝ RANDOMIZE COPY COPY INVERSE RESTORE : MERGE [F] INVERSE ! MERGE [F]= INVERSE VAL$ INVERSE THEN INVERSE w/ INPUT 0 INVERSE VAL$ INVERSE w INVERSE VAL$ INVERSE LLIST <>Y[T]CODE 2AT [F]2TAB [F]2VAL$ [F]2ATTR [F]2|[F]:w[F]PI>= STEP RESTORE ▙O:b[F]PI :}[F]PI THEN Y(>2ATTR [F]<> THEN Q(>2AT [F] THEN I(>2TAB [F] THEN A(>2VAL$ [F]:CODE [F]PIUSR GO SUB KAT [F]ha"AT [F]<>:Y[F]2[[F]_:Z[F]2/[F]<ob:^[F]2_[F]NOT OUT [D]>82Y[F]:o[F]=NOT ▟[G]>2Y[F]:o[F]< RETURN .CHR$ ▟[G]>2Y[F]>.NOT ▟[G]:Z[F] AND v2Z[F]:o[F] VERIFY NOT ▟[G]:Z[F] VERIFY r2Z[F]:o[F] AND 2p[F]>2s[F]<>:a[F]PI LINE IF [G]NOT a[H]:{[F] NEW USR ![A]e"M STEP ACS [G]!X"M<> STEP [F]:b[F] RETURN LINE a[H]:w[F]PI ,:b[F] RETURN CODE 2AT [F]2TAB [F]:a[F] RETURN CHR$ a[H]>2a[F]CODE 2[A][F]yCODE 2a[F]>2b[F]n:b[F] RETURN 0[M]:5▜PI(:`[F]PI([:b[F]PI(:a[F] NEW THEN ?0:[H][F]PI(:5▜PI(*Y[F]:o[F]"f[F]2h[F] STEP CIRCLE [F]:AT [F] RETURN >:TAB [F] RETURN >CODE G:VAL$ [F]PI(CODE 2[F]CODE 2a[F]> SAVE 2][F]>2b[F]:a[F]_:CODE [F]PI:b[F] ! INK [J]O~ THEN 'O![B][J]~2^[F]{< NEW 2a[F]:o[F]2q[F]:Y[F]G INVERSE !AT [F] INVERSE [G] INVERSE ▚ RETURN LINE L[G] RETURN 9 LINE X[G] RETURN ERASE INT [H]G:o[F] RETURN . LINE L[G]x2Y[F]G:[[F]LN ( PAPER OUT [I]NOT INKEY$[I]:5▜PI :][F]PI> PAUSE REM [H]:b[F] RETURN ( RETURN > IF (:][F]<2][F] THEN ©CHR$ [I]ECODE 2`[F]:o[F]G:q[F]LN USR NOT 1[G] GO SUB DG STEP 2[J] CIRCLE COPY INVERSE :e[F] VERIFY 2e[F] OR STEP D[J]STR$ VERIFY INVERSE + INVERSE +:e[F]=2e[F]:Z[F]= RETURN B PAPER p[G]2Z[F] LPRINT SQR RETURN 8>2][F] AND G STEP 2[J] IF COPY INVERSE :e[F] VERIFY 2e[F]:Z[F] VERIFY 2Z[F] OR STEP D[J]STR$ INVERSE # INVERSE #:e[F]<2e[F]:Z[F]< RETURN ACS ERASE [G]2Z[F] LPRINT NOT POKE [H]:Z[F] RETURN B PAPER p[G] LINE POKE [H]2Z[F]>2`[F]:][F] RETURN 8>2[F]CODE 2][F]NOT SAVE [H] STEP 2[J] GO TO COPY INVERSE :e[F] VERIFY 2e[F] OR INVERSE n INVERSE f:Y[F]2d[F] STEP [J]PISTR$ BIN [J]:e[F] VERIFY 2e[F] SAVE COPY INVERSE BRIGHT NOT LINE [H] STEP 2[J] GO TO COPY INVERSE :e[F] VERIFY 2e[F] OR INVERSE n INVERSE f:Y[F] AND 2d[F] STEP [J]PISTR$ BIN [J]:e[F] VERIFY 2e[F] SAVE COPY INVERSE PAPER NOT LINE [H]:d[F]_:e[F]o STEP @ THEN vUSR :[[F]2Y[F] LET NOT LINE [H]:Z[F]2e[F]o&)dj RESTORE INVERSE LLIST <>:Y[F]<2d[F] OR INVERSE n INVERSE f:d[F] STEP [J]PISTR$ BIN k[J]:d[F]<2d[F] DATA <>:d[F]_:e[F]o STEP @~ THEN wUSR LLIST INPUT @ THEN w<>O THEN 98~ NEW LIST <>~ NEW <> !"#$%& GO SUB [f[F]:h[F] GO SUB SY[F]2p[F]2o[F]!"ATTR [F]"TAB [F]CODE 2][F]2`[F]2b[F]2a[F]2x[F]>2w[F]>2}[F]>2^[F]2[A][F] STEP [C] STEP 1[G]CODE 2s[F]<>LO/T:p[F]2o[F] NEW RETURN RETURN ,> COPY CODE 2CODE [F]*Y[F]"i[F]>2s[F] STEP [C] STEP 1[G]CODE 2s[F]<>*6 RANDOMIZE COPY -[K]-/ COPY B PAUSE i INPUT PIBIN :/X'[L]6!D▖$[?▖ CLEAR CONTINUE INPUT ?j?1)7+ RANDOMIZE COPY K2#67,0 RANDOMIZE COPY 100BDB 000,210,034,176,0 RANDOMIZE COPY 10BDB 000,210,042,176,0 RANDOMIZE COPY 10BDB 000,210,050,176,00[Q]hJINT [Q]▖ FN TAN (RASN CODE FN D OPEN #ACS FN !>FN FFN NFN VFN 0L STEP VAL$ h`*C[S]VAL B ERASE SCREEN$ VAL [R]2VAL :VAL BVAL JVAL RVAL ZVAL 8>=[U]8`(8[Q]HF THEN &@ TO (<>[U](`((,( LINE CIRCLE 0 OR OVER P8 INVERSE XM OUT THEN @ AND [O][S]`G OR INKEY$``*`Bv RUN 9u*[N] SAVE 2[M] RANDOMIZE F[M] IF P[R] CLS X[L]% VERIFY `<= BORDER Vl DATA Z` NEW Re CONTINUE SGN [I]G![S]FN ERASE SCREEN$ FN "OFN WFN "VAL *VAL OVAL WVAL 9[Q]A[Q]>POINT [A]8POINT [B]BIN FN [C][B]LEN VAL [C]<>[Q] 2[Q][D][T][I]D MERGE VAL$ [I]`O[I]<[H] OPEN # CIRCLE [Q]` [Q]POINT BGs OPEN #B *PTAB CLOSE #P &▖[S]INKEY$h[R]44`D`DR▖RhINKEY$X[R] ERASE X 2H[T]4HRNDSGN H`DHLH[U] CIRCLE eRASN F[C]ATN @8SQR ACS x ERASE ACS 6@ASN TAN XL STEP TAN qbW.Eq33[[J▖/[S][EM)F{=( DEF FN OR PI FORMAT [I]BINT FORMAT x @XSQR P0INT @xSQR USR [I] VH>= ERASE H[Q]NHJH FORMAT XF THEN TP TO TO P V8<> ERASE 8`N8Z8 LINE ;[Q]TAB :[C]sZ[A]USR VERIFY [I] LPRINT R[Q]JVAL NFN LINE 8 AND <>H8 LINE LINE p OR USR BSQR BIN p OR ERASE VAL LLIST VFN Z[Q]TpXpHpLpPpTAN 0JASN [U]} LINE ACS INT 1JACS 4FN ATN FN [O] LINE LN $4ASN [Q]rL STEP SIN +a"H1ZB-*3#+(FN DEF FN LN LEN `:[T]VAL$ [I]BSQR VAL$ x LPRINT .X.8.SGN JFs=XTAB "[A]USR INKEY$▖a*.x0x2p6pINT p AND USR INT OR SIN a6.▖*[A]&[I]"[Q] DEF FN H▜ CONTINUE ERASE D BORDER RP DATA ZH CONTINUE VF NEW ACS B LINE ASN AND OJACS SGN ,L STEP STEP )aUE2=V`<C[6LJ DEF FN B[Q] OPEN #USR ▖BSQR PxINT FORMAT X`P8@pSQR USR P`@0INT FN ERASE CHR$ FN [Q]:VAL BVAL 1[P]▛PVAL$ ▟JPOINT [C])[I][D]CODE ▖[D]N[Q]V[A]Q[I][D]Y[P][A]X▜[B][Q][I] [T]AT [C][A]&[O])ATTR ▛&[I]▙,AT [D]TFN [B]TAN PI PAPER ▜ VERIFY ▖!R[A]N[I]J[Q]6FN SGN ▖FTAB ;zsV(USR ERASE 0[Q]N8J8[P]`▙RNDx!x▟h[D]M[B]9[C]SGN XFUSR USR X AND USR BIN X[Q]HXL` TO p OR >=h"Dh@h<hJHNHR@V8Z0RNDRTAN DRACS FN 1 ERASE LN [U]*L STEP INT A[Q]1)33 ERASE SG RESTORE VT BORDER INT 2L STEP DEF FN Y<= CONTINUE INT pL MERGE 2x OPEN #INKEY$x`xSGN ▘[B]ACS ▟[C](▜[D]1[F][B]VAL$ `BSQR VAL$ P`.0CODE TAB %[Q]▟([G]▙[U]VAL [O][A]EXP [R] 3FN [B])[O][D]POINT VAL$ [C][B][S]▖ [S]▜PEEK VAL SGN [G] 0▖▞INKEY$ ERASE VAL$ `5PEEK [I][C]AATTR [A]4▜▛/[A]FN XFTAB 'Js PAPER XG CONTINUE BRIGHT [Q]E[ ERASE `G DATA CLOSE #[Q]E[ TO [Q]`D[Q] LINE [Q]USR DEF FN [I][Q]R[A]V▖[Q][Q]E[ABS [Q]L OPEN # ERASE [Q]`V[Q]SGN FN ▟TAN FN 7[I][A].POINT ▛0[H][A]COS ▚ 'AT [C]/v[D]CODE ▜[C]▛FN [Q]E[LN LEN [A]?VAL ERASE IN FN [R]GVAL GFN OVAL OFN WVAL WFN SIN XFTAB 1Js[S]a<= CONTINUE INKEY$/G BORDER %h DATA *` CONTINUE VERIFY Pf PAPER ▖GUSR ▗INKEY$>=4Vx COPY ( RANDOMIZE COPY [K] DATA .xCHR$ COPY RANDOMIZE COPY SQR DRAW $.8BLV`jt~▖[C][M]INKEY$VAL INT BIN DEF FN CIRCLE STOP GO TO PLOT (2<FPZdnx▘[G][Q]SCREEN$ TAN PEEK >= ERASE BRIGHT NEW LIST IF /v BEEP [[N] OUT ! INPUT 2Tv[I] COPY RANDOMIZE COPY [A] COPY RANDOMIZE COPY AT SAVE COPY RANDOMIZE COPY cTAB OUT 3M]©[B]LEN OPEN # NEXT { REM POKE RETURN COPY RANDOMIZE COPY Nq COPY RANDOMIZE COPY INT DRAW ~[I]SIN COPY COPY RANDOMIZE COPY D`CHR$ INPUT p COPY RANDOMIZE COPY ▘[U]TAN ERASE COPY COPY ERASE COPY RANDOMIZE COPY DATA 6h▘TAN VERIFY COPY RANDOMIZE COPY 9[ COPY COPY } COPY RANDOMIZE COPY [P]STR$ COPY COPY [D]A}c COPY RANDOMIZE COPY READ !7Q COPY RANDOMIZE COPY ACS LET ,jFN CLOSE # RETURN &T<?@ PAUSE RETURN A LOAD PRINT COPY BORDER PRINT PEEK COPY DEF FN ? LLIST PRINT DRAW LLIST DEF FN OUT READ FOR DRAW GO TO INPUT INVERSE BORDER MERGE SAVE REM INPUT MOVE CAT [S] SAVE CONTINUE n OUT Ax CONTINUE oKPEEK LN CONTINUE oWPEEK `SGN CONTINUE oW?[I]/ CONTINUE LOAD / DATA / CONTINUE LOAD .7 GO TO / LLIST OUT ^ LET GO TO COPY FORMAT _ SAVE l COPY INKEY$IN SAVE RETURN @IN LPRINT IN ~LN >© COPY <>▖USR 1SCREEN$ AND y▖ CAT { COPY LOAD ; COPY INPUT PEEK LPRINT STR$ LPRINT RUN USR COPY USR © RANDOMIZE COPY READ [S]uUSR RUN USR "66I INVERSE PEEK USR I@PEEK FN FORMAT <>USR COPY LPRINT MERGE CLOSE # READ BRIGHT wHPEEK U RANDOMIZE COPY c RUN MERGE USR 66$ RANDOMIZE COPY 66$ RANDOMIZE COPY COPY USCREEN$ U COPY RjRjRjRj?UjU@? DRAW VSCREEN$ V DRAW <RjRjRjRjRjRj<[B]fZAT 5Zf▞8|| RETURN RETURN RETURN || INPUT AND AND AND INPUT |88>|| DEF FN [M]8p NEW RETURN ~ TO [I]<`>= CIRCLE ~ DRAW f`|<` BRIGHT PLOT CHR$ NEW |~ NEW | INPUT AND | AND INPUT || DEF FN ▚ OVER vx RANDOMIZE COPY 0 RANDOMIZE COPY RANDOMIZE COPY 0<x RANDOMIZE COPY RANDOMIZE COPY | AND F0088<f AND RETURN AND NEW f CIRCLE GO TO TO DRAW AND NEW BRIGHT 8l AND USR CHR$ INPUT | BRIGHT NEW AND AND AND TO SAVE BRIGHT NEW `|` NEW BRIGHT INPUT r`|` LPRINT USR <fUSR DEF FN BIN GO TO x TO AND AND RETURN AND AND f~[I]000 DRAW > NEW f AND |USR flxx GO TO AND USR LPRINT ``` DRAW CHR$ f RETURN VERIFY VERIFY AND NEW f TO NEW NEW VERIFY DEF FN DEF FN f8l AND AND AND INPUT | BRIGHT NEW AND DEF FN SAVE USR USR 8l AND VERIFY TO GO TO v BRIGHT NEW AND GO TO CIRCLE TO AND <fb<F AND | RETURN INT 80 NEW f AND RANDOMIZE COPY | DEF FN TO AND AND AND l8 TO DEF FN AND VERIFY VERIFY RETURN l INPUT AND l8l AND INPUT TO AND f<0`v GO TO [I]0b OVER SGN USR USR 88 RESTORE ' DIM GA@@ RANDOMIZE COPY ?USR ?USR FLASH EXP BEEP EXP PRINT XPOINT 9SaQBP@ DRAW DRAW COPY [M]COS [P]W[P]O[O]UUSR ?USR ?EXP RETURN RANDOMIZE INVERSE 9 RESTORE q PLOT $ITQ@@@ DRAW DRAW [N] FLASH [N] CLS [L]"[H]QARD 0-PVAL `3 CONTINUE USR FORMAT [Q] FLASH ACS FLASH [C] FLASH [C]l BEEP © RETURN [D]@UUSR COPY COPY SQR p<=x COPY 8 COPY | RANDOMIZE COPY AND THEN o LPRINT 4(+BIN h0 LIST [B] OVER @QCOS +} { BEEP 7 COPY }USR BEEP VAL = LOAD x. RETURN CONTINUE U FORMAT ([Q]>© COPY ▘ INVERSE ▘[M]CHR$ cDkD▖ READ INVERSE FOR ©oSCREEN$ PLOT + MERGE LPRINT s COPY LPRINT y©@(SCREEN$ U RANDOMIZE COPY STR$ wp RUN LIST ©>@©@ COPY VAL "PPLEN ▖USR THEN COPY LPRINT K© BRIGHT CLS INKEY$ BEEP T INPUT h©4SCREEN$ [I]Up BORDER LIST | RETURN [D]}[D][D]USR COPY USR COPY USR }USR #▖ INVERSE COPY vACS RETURN PAPER +UFN ATTR P▘[Q](D@ RANDOMIZE COPY nUSR y LPRINT OUSR I WUSR RANDOMIZE COPY /W RETURN RANDOMIZE COPY RETURN USR V@*VAL$ @UVUSR *VAL$ SAVE COPY BRIGHT <3 RANDOMIZE ▗EUSR LD LPRINT VAL [R][U] LPRINT @[Q] CLOSE #/ LIST @[Q]P2[O]CODE +© LIST 2FN RND+LN 0% PAUSE [F]gUSR %[I]3 COPY RND~O MERGE PI>=% CONTINUE ^ POKE RND~O MERGE INT INT RNDIN IF MOVE %) PAUSE [F]lmQ2[E]RND+y=URSCREEN$ +KRND_ INK TRNDVy=UYBFN VlmDXVAL [R]AT IN IF TO TO LBINT INT TO AND 3 RANDOMIZE SGN ^ POKE @PI>=NOT RANDOMIZE SGN 0p▘▜USR DRAW <@ RANDOMIZE COPY @ RANDOMIZE COPY <( RANDOMIZE COPY LPRINT RANDOMIZE COPY D@ nUSR RANDOMIZE COPY OUSR W RETURN WUSR : RETURN / V RANDOMIZE COPY "*VAL$ 8UV*VAL$ SAVE COPY BRIGHT <3 RANDOMIZE ▗EUSR $LD LPRINT =VAL [R][U] LPRINT @[Q]T/ LIST A@[Q]P2[O]CODE +© LIST 2FN [S]ATTR LN ▘% LET gBIN %[I]3 COPY RND~O MERGE PI>=% CONTINUE ^ POKE RND~O MERGE INT INT RNDIN IF INK % LET lmQ2FN [S]ATTR y=UR[E]RND+KRND_ INK JSCREEN$ Vy=EYD[U]VlmD CIRCLE VAL [R]AT IN IF TO TO LBINT INT TO 3 RANDOMIZE SGN ^ POKE @PI<>$[C]K RANDOMIZE SGN 00▘▜USR DRAW <@ RANDOMIZE COPY @ RANDOMIZE COPY <( RANDOMIZE COPY LPRINT RANDOMIZE COPY RANDOMIZE COPY USR RANDOMIZE COPY y RANDOMIZE COPY W RETURN RANDOMIZE COPY ;] RANDOMIZE COPY PAPER FN RANDOMIZE COPY [S]? SAVE RANDOMIZE COPY INT © SAVE RANDOMIZE COPY IF © SAVE RANDOMIZE COPY :AT RANDOMIZE COPY IF CLEAR OUT RETURN < COPY LOAD COPY LN NUSR $© COPY USR N = DRAW PI LPRINT LIST ! LIST 8P ▗/ LIST COS BRIGHT /{© POKE [G]1 CLEAR <= RUN LN ASN > OUT <= DIM COPY CLS COPY UQUSR ? CLS RETURN @[R]USR RANDOMIZE <p[R]USR BORDER NqP@ CIRCLE FOR FLASH ATN ▖[J]SPEEK @` RUN "@▝ PRINT ▞ IF NOT ▜▖ DRAW PI INPUT © COPY RETURN READ ▙ TO ? COPY DRAW SAVE ABS ([D]G COPY DRAW ? DRAW [C]I RETURN _ LIST ? CLS USR <=USR DRAW ~@ RANDOMIZE COPY @( RANDOMIZE COPY x RANDOMIZE COPY I LPRINT RANDOMIZE COPY 1 RANDOMIZE COPY I LPRINT RANDOMIZE COPY W RETURN RANDOMIZE COPY CLS ] RANDOMIZE COPY zFN RANDOMIZE COPY ▘? SAVE RANDOMIZE COPY IF © SAVE RANDOMIZE COPY IF © SAVE RANDOMIZE COPY :AT IF CLEAR OUT RETURN < COPY LOAD COPY LN NUSR © COPY USR N DRAW ▜ LPRINT PAUSE ▝p8▖/ POKE ▗s MOVE ]{© RUN [Q]=[R]<= NEXT [L] CLS PEEK OUT >=▘. REM COPY RUN RETURN aQ@? CLS COPY /PI@ IF <X[S]USR STOP ▙]SUSR VAL USR DIM THEN ATN OR INKEY$PEEK X`[[A]▛ OVER o}2[A]P▝ LET LET IF THEN PI[A][E] DRAW PI INPUT © COPY RETURN PAUSE >USR <=? COPY DRAW x8[O]H+ COPY USR COPY IF i$[T] RETURN |_ LIST LIST ? CLS USR USR [A] DRAW ( RANDOMIZE COPY y LPRINT D@1 nUSR H9 RETURN LIST `@BFN WUSR SAVE P:@ LIST RANDOMIZE COPY SAVE ET RANDOMIZE COPY )V COPY TO <0▗UUSR COPY [A]x LPRINT CONTINUE R $@ LIST POKE LPRINT ;<=POINT COPY Ps SAVE ({LN [J]>4 RANDOMIZE PEEK 3}ABS @USR LIST <=G BORDER @SIN NEXT @ CONTINUE . FORMAT IN @ INK H[H]▞[J]> RETURN BORDER w BEEP `>USR MOVE }USR ▝ RANDOMIZE IF OVER RUN [J][F]VSTR$ [I][O]X IF .BIN STEP @ REM [Q]GBIN <CHR$ [Q]i6[M]SGN [I]0 LIST 0PEEK GUSR [A] DRAW B( RANDOMIZE COPY LPRINT RANDOMIZE COPY USR D@xnUSR RANDOMIZE COPY RANDOMIZE COPY 98p`@ [A]WUSR [A]:8p RANDOMIZE COPY " RANDOMIZE COPY $ RANDOMIZE COPY <VAL RANDOMIZE COPY TAN RANDOMIZE COPY TAN RANDOMIZE COPY RANDOMIZE COPY ▖ RANDOMIZE COPY RANDOMIZE COPY p RANDOMIZE COPY p RANDOMIZE COPY ,USR USR (USR @#010 LIST RANDOMIZE COPY USR USR RANDOMIZE COPY RANDOMIZE COPY mPEEK CIRCLE RANDOMIZE COPY RANDOMIZE COPY RANDOMIZE COPY / COPY SAVE © RUN GO TO GO SUB INKEY$PEEK BEEP STEP TINT SCREEN$ INT UTVVAL$ SCREEN$ SCREEN$ MERGE T[S] REM j]UTSCREEN$ SCREEN$ jURFN INKEY$ MOVE S/ATTR INKEY$SCREEN$ OR USCREEN$ [K]*Q0▗[K]" ▖▗@*SCREEN$ FN / COPY SAVE ©w GO TO GO SUB INKEY$PEEK BEEP MTINT REM INT UTVVAL$ SCREEN$ SCREEN$ MERGE DSCREEN$ [K]*Q0▗[K]" ▖▗@*SCREEN$ FN / SAVE © GO TO GO SUB PEEK <=D[K]2UVSCREEN$ j CLOSE # CLOSE #ATTR UtSIN FN WV* REM MOVE /▙ LINE UTSCREEN$ .QT" ▖▗@*FN / SAVE © GO TO GO SUB PEEK BEEP DINT [K]U6VAL$ SCREEN$ MOVE DSCREEN$ :ETSCREEN$ "▖▗@*FN © COPY DRAW FOR VAL$ INPUT INVERSE GTSCREEN$ [K]Tut▖UUT© DRAW REM [S]]HSCREEN$ 2U▗UTUSR LPRINT P CONTINUE X:[U]=n[S]uCHR$ k[S]]*▘4 LPRINT LPRINT >LN wV IF ▞ CLOSE #A`4 LPRINT SAVE DRAW VERIFY ▝wQz▘ MERGE SAVE ▗ CLOSE #[Q][E]@`?USR `:VAL ©X REM NEW CLEAR Q PAPER ▝© MOVE ~[R]UR>4▖ USR >USR ©` REM VAL RUN PSCREEN$ FN CLEAR SCREEN$ [U]t*[S]▘BIN 8 LPRINT P? CONTINUE >LN } CLOSE #wd CLEAR [C] REM SCREEN$ INVERSE PLOT QABS REM ▝pT( LIST USR p:▖mT IF MERGE A IF © RETURN <v DIM MOVE POINT B< COPY CLEAR USR REM [Q]ABS FORMAT ? REM FN } RUN DwFN SCREEN$ CLEAR MERGE INPUT PEEK ▝ INVERSE t)ATTR DIM MERGE BRIGHT SQR SCREEN$ [S]Q CLOSE #Bf▘5P▞@[A]H @STR$ >USR LIST ? SAVE CLS AT COPY PAUSE REM POINT CLEAR OPEN # REM POINT ]> IF ASN uUq©SCREEN$ !uqQVAL$ *▘ POKE BIN BSCREEN$ INVERSE >=SCREEN$ [E] FORMAT J!@`© COPY PRINT ` RETURN VAL PRINT XVAL$ AT LET ?[T][R]}VI~ REM YQ!rFN [B]V*FN ▝1*[Q] [A]`a? LIST COPY RETURN CLEAR GO SUB REM PEEK LPRINT CLEAR MERGE P?SCREEN$ FN ▖} RUN ${SCREEN$ REM ▘ MERGE wDQ[Q]VAL$ ▖▝]BF*!M 8 COPY COPY USR COPY COPY COPY SCREEN$ SCREEN$ SCREEN$ UUUSCREEN$ SCREEN$ SCREEN$ UUUSCREEN$ SCREEN$ SCREEN$ UUU INVERSE ]*>] COPY COPY UUSCREEN$ SCREEN$ @ )2 AND )e8SIN (X0,([G]1▛+E2▘)USR [Q]USR [Q]USR [Q]USR [Q]USR [Q]USR FN TO [T]lSTR$ VAL [Q]USR [Q]USR [Q]USR [Q]USR [Q] USR LPRINT ATTR TO [Q]USR [Q]USR [Q]USR [Q]USR [Q] yqy IF PAUSE 2RxRbr21pbZ~ IF PAUSE pyyy:RR2rr IF SAVE LOAD } RUN USR BEEP ~ RANDOMIZE LPRINT [H][O]INT p[D]AT ABS [I]=.[M] DEF FN 8p;9Wi DRAW LN [CHR$ [T]NOT 0LEN COS & RANDOMIZE COPY RANDOMIZE COPY RANDOMIZE COPY RANDOMIZE COPY @ RANDOMIZE COPY @ RANDOMIZE COPY ?USR RANDOMIZE COPY RANDOMIZE COPY RANDOMIZE COPY 0 RANDOMIZE COPY ` RANDOMIZE COPY USR USR VAL @@9 STOP BIN ▖`▙!SGN B CONTINUE IN LET USR USR [S] D IF | CONTINUE [Q]Q RANDOMIZE COPY [S] RANDOMIZE COPY RANDOMIZE COPY [Q] RANDOMIZE COPY @ RANDOMIZE COPY COPY > CLOSE #{ LPRINT CLOSE #[Q]USR u@0SCREEN$ T:[Q] CLEAR RANDOMIZE COPY SCREEN$ RANDOMIZE COPY CLOSE # RANDOMIZE COPY [Q] RANDOMIZE COPY @ RANDOMIZE COPY RANDOMIZE COPY USR @>LN ▜ CLOSE # READ IF [Q]]PFN @ LPRINT @h BEEP [Q]USR 4 CONTINUE P[Q]@@0 LPRINT ^.tFN @ ▘/INKEY$hu PRINT A▘VAL$ INKEY$ht PRINT A▘VAL$ VAL$ FN t PRINT A▘.VAL$ hu PRINT A▘/INKEY$(u PRINT STR$ /VAL$ FN e PRINT A.VAL$ (t PRINT A.INKEY$he PRINT ACODE INKEY$he PRINT A▘CODE INKEY$FN e PRINT A▘/INKEY$ht PRINT A.VAL$ ht PRINT AVAL$ VAL$ FN t PRINT A▘CODE INKEY$(u PRINT A▘CODE VAL$ CONTINUE t PRINT A.VAL$ FN t PRINT A OM[S] REM CONTINUE _MSIN IF CONTINUE _MSIN IF CONTINUE [MSIN IF CONTINUE [USIN IF CONTINUE _USCREEN$ IF CONTINUE OMSCREEN$ REM CONTINUE OMSIN REM CONTINUE OESCREEN$ IF SAVE _USCREEN$ IF SAVE KMSCREEN$ IF CONTINUE _USCREEN$ IF CONTINUE [MSCREEN$ IF CONTINUE OMSCREEN$ REM CONTINUE OMSIN IF CONTINUE _MSIN IF CONTINUE 88TTSCREEN$ SCREEN$ ERASE ERASE ▘▘DD88(^/SCREEN$ SCREEN$ N~SCREEN$ SCREEN$ nSCREEN$ SCREEN$ >fSCREEN$ SCREEN$ 6f[S]SCREEN$ vf▘SCREEN$ VbSCREEN$ ^bSCREEN$ SCREEN$ 6[S]SCREEN$ v^SCREEN$ SCREEN$ ^bSCREEN$ SCREEN$ 6[S]SCREEN$ v^SCREEN$ SCREEN$ >fSCREEN$ SCREEN$ 6f[S]SCREEN$ vf▘SCREEN$ VbSCREEN$ ;wV▛ CLOSE #ATN PRINT SCREEN$ ASN SCREEN$ ASN SCREEN$ VERIFY INPUT OVER INVERSE Z PAPER ZZ THEN V FOR T FOR VmZu{UjUSCREEN$ UINT USCREEN$ jATTR jSCREEN$ j[S]"[S] "USR @[Q][Q]P FORMAT XHXAT AT [U]TAN [U]SCREEN$ SCREEN$ ACS ACS [U]ASN ATN MERGE MERGE COPY ~ COPY RETURN UT LPRINT ` LPRINT `USR ` LPRINT ` LIST RUN RETURN COPY RETURN UT LPRINT ` LPRINT COPY ~ COPY RETURN UTc VERIFY $USR [Q][N]0h`([E]YNOT 3$TAN "[J] CIRCLE 4HZ,▚0[J]t&[Q]STR$ +,>=[J]VAL [B]P&TVAL CIRCLE -rVAL A LINE , OPEN #▗INKEY$2 FLASH M)[Q]ctP0p88~ CLEAR OUT c RETURN RUN OUT THEN CAT u{CODE RND READ R BORDER h[Q]▝ATTR VERIFY *[K]vT GO TO [A]PR TJD4 LINE RUE$[C]LEN Ue[C]Z THEN [F]]TAB uj GO SUB ( @@[A][Q]E[U]%H(([D]TAB *wmTAB VERIFY 88 PLOT PLOT SQR SQR PLOT PLOT SQR SQR PLOT PLOT SQR SQR AND AND 88 PLOT PLOT SQR SQR PLOT PLOT SQR SQR PLOT PLOT SQR SQR AND AND { AND 8 PLOT SQR PLOT {SQR AND AND OUT PAPER OUT © GO SUB CLEAR IN GO SUB _ACS RUN wATTR OUT SCREEN$ VAL$ BEEP uUUSCREEN$ SCREEN$ REM REM uU MERGE U"▘[Q].}`© LET ABS NEXT ~ CAT COPY RUN LOAD CLS MERGE PRINT ATTR n OUT CLS ` PLOT >IN ©©© CLEAR > IF OUT COPY CODE © RUN IN CODE COPY COPY USR prLN CLS x_ CLOSE #CODE VAL$ PRINT CLEAR CLS CLS RUN OUT COPY ATN COPY FOR IN RUN LN DRAW DRAW CONTINUE POKE USR FLASH LPRINT TAB SAVE COPY SAVE COPY SAVE LOAD VERIFY COPY CODE v RUN TAB PEEK RU LPRINT |/ LIST PEEK TFN P[Q]}PFN POKE >+pp LPRINT USR USR USR eVAL LPRINT FOR RETURN p BEEP ? FORMAT OVER THEN 8l LIST L READ 0 POKE READ USR LLIST USR =VAL [A] OVER AND LIST 0]p[A]PEEK 10ABS VAL PzOLEN >VAL `CODE [I] AT ?X`?XUSR < COPY /@:©XUSR |IN /@ LET ©XUSR PAPER COPY M@RND~lUom[R]©INKEY$V RUN uQTAB PLOT TAB OUT ASN CASN >K BEEP ASN 7TAB 7 MERGE %oASN ' DATA #O CLOSE #IN DATA ~$ INVERSE @USR DRAW 7 LIST SAVE 8 GO TO DRAW AND [P]?=LN CLEAR COPY INPUT ASN RANDOMIZE .<=s/COS ^ TO TAB LOAD X LOAD !w>R OVER ABS / COPY [SQR CLS O TO READ [F] LET STR$ COPY RUN K]wTAN FOR IN OR © DIM SIN [L] PAUSE e0W POKE [K]-+ RANDOMIZE SZ[F] REM 7wC CLEAR l RETURN POKE "[F] RETURN IF [M]Rw RUN © REM IN RUN t© RETURN FOR REM O RUN RUN RUN Z STOP BEEP CLS Gw BORDER CLEAR OUT <=ZC/ READ RETURN [STR$ ACS ? RESTORE ACS <>LEN FN 3BIN [S]/▛d FLASH ` CLS @ IF `EXP CLS @ CLEAR @ OVER COPY LPRINT COPY USR o LPRINT COPY USR OUT LPRINT [Q] INVERSE LPRINT RUN [Q]© LPRINT 'USR LIST 7VAL © LPRINT PAPER LIST LIST FLASH VAL { LIST FOR VAL CLS VAL {LN CLS CIRCLE { CIRCLE { CIRCLE { CIRCLE ]/} GO TO mlnTAN MOVE CLOSE #PIZ| NEXT INPUT sose COPY LIST %CHR$ /[S]CHR$ ERASE "?bSIN 7[S]#TAN 7TAN > CLOSE #l[E]_ CIRCLE W CIRCLE [N] FORMAT USR CAT MOVE <=STR$ LLIST READ COPY NOT OUT READ © READ OUT LLIST OUT LEN OUT LEN } LET _ INK _x MERGE [A][O] SAVE VERIFY [E] LIST U6)U[T]COS [T]PI SAVE OPEN #USR RANDOMIZE COPY [I]USR ` NOT pP RANDOMIZE COPY x< DRAW | CONTINUE `SCREEN$ }$=6USR RANDOMIZE COPY 0 TO 5~4 RETURN RETURN RETURN %~" GO TO vCODE ©IN 6USR [A]8 RANDOMIZE COPY USR LPRINT NEXT NEXT LIST I LPRINT % BRIGHT K RETURN G COPY K COPY % LOAD LOAD A VERIFY N SAVE SAVE SAVE p READ NOT RANDOMIZE COPY LPRINT B@ CLEAR z[R]=B▗H[A] USR RANDOMIZE COPY z PAPER STOP p8@# OUT ATN OUT ACS @ ©+[H]@▘@©%@USR `0 SAVE 8lSCREEN$ VERIFY @ LPRINT de[U]c@▖ THEN 8&P`j USR +kQACS "a RETURN 7oJnTAN [Q]A$FC8 STR$ V ERASE &0 AND [P],XSCREEN$ 2XZfZfZf<#N@@▛ LLIST CODE MOVE © RANDOMIZE COPY © COPY COPY USR COPY USR INVERSE LPRINT PEEK LPRINT I ▖ LPRINT *H▖ TO 0 COPY ▚,>>@ ERASE > NEXT OVER NEXT TO a RANDOMIZE COPY RANDOMIZE COPY © COPY ACS COPY CAT INVERSE CAT PEEK LOAD I&▖ LPRINT *`;▖ LPRINT a COPY USR Y COPY USR } READ USR | COPY VAL 8>X CONTINUE USR SAVE 0 RANDOMIZE COPY RANDOMIZE COPY © COPY INVERSE USR PEEK AND I)#▖ GO SUB k*ak▖ LOAD s COPY NEW { COPY LPRINT 1 READ USR ©8PEEK DATA OVER BIN USR FN USR [A]` RANDOMIZE COPY RANDOMIZE COPY k<>▖USR *@▖ GO TO 3 COPY NEW ; READ INPUT 8 READ ▙>t[M]▖]I[S][A]"`STR$ USR RANDOMIZE COPY RANDOMIZE COPY © COPY COPY USR [M]USR ©`▖[Q]*`d;▖ INPUT 3 COPY NEW I INVERSE <>} READ OUT | COPY [P]8>STR$ LPRINT READ FORMAT READ LIST 8 RANDOMIZE COPY FORMAT FORMAT ( PLOT LPRINT TAB FLASH SAVE _ CLEAR SGN ATN PLOT RETURN IN RETURN OUT Ko CLS © RANDOMIZE COPY COPY RANDOMIZE COPY RANDOMIZE COPY I,INT DIM [B]u OPEN #DI,INT DIM RANDOMIZE COPY 08u[K]INKEY$POINT INT PEEK CODE ATTR INT PEEK CODE ATTR w} OUT w08 COPY ? RANDOMIZE COPY >>>> RANDOMIZE COPY ? RANDOMIZE COPY >>>>> RANDOMIZE COPY ? RANDOMIZE COPY >>>> RANDOMIZE COPY SCREEN$ IN COPY COPY @ATTR COPY COPY _ RETURN ATTR SAVE U COPY ▗(T FORMAT FN pPOINT J LLIST ▖ ▘@ LPRINT *J NEW "▖@ LPRINT RANDOMIZE COPY FN VAL ▖ RANDOMIZE COPY LPRINT RANDOMIZE COPY USR [Q]` RANDOMIZE COPY LPRINT RANDOMIZE COPY pFN USR ▖ LPRINT )*3VAL "▖@ LPRINT TU@t MERGE P:SCREEN$ SCREEN$ ▖5TUT> FOR *[Q]u MERGE MERGE TjSCREEN$ [K][Q]t MERGE TTy[Q][J]SCREEN$ wESPzSCREEN$ SCREEN$ uUP REM VAL$ POINT SCREEN$ PRINT uUPSCREEN$ SCREEN$ POINT SCREEN$ uUUP IF SCREEN$ FN SCREEN$ t MERGE SP IF INKEY$INKEY$SCREEN$ t STEP EP DIM SCREEN$ SCREEN$ SCREEN$ sUMP INPUT SCREEN$ SCREEN$ SCREEN$ }UMU LINE INT SCREEN$ [Q]u@UU IF LINE SCREEN$ FN }[F]UU IF +SCREEN$ FN vWUE REM SCREEN$ SCREEN$ ▖u]UFN SCREEN$ SCREEN$ LN sUUQ;SCREEN$ ATTR REM uU]P:SCREEN$ INT SCREEN$ }U MERGE P>jSCREEN$ SCREEN$ }U MERGE P:jSCREEN$ *t MERGE U FORMAT EXP ATTR SCREEN$ SCREEN$ sWUP REM VAL$ POINT SCREEN$ SUUPjSCREEN$ POINT SCREEN$ 9fU IF U REM U REM u REM u REM u CONTINUE S REM uA P SAVE TVAL$ L[K]U[I]U[I]5 CONTINUE USCREEN$ PSCREEN$ jP[S]D[Q]U@UIN REM ATTR IN RUN O RUN COPY STOP INPUT SCREEN$ M=WESCREEN$ jSCREEN$ [K]T MERGE UUFN SCREEN$ SCREEN$ SUU▚SCREEN$ +SCREEN$ UTUUSCREEN$ SCREEN$ ATTR SCREEN$ ETWUSCREEN$ SCREEN$ VAL$ SCREEN$ MU]USCREEN$ SCREEN$ INT SCREEN$ MT CLOSE #S[K]SCREEN$ POINT SCREEN$ 5T MERGE USCREEN$ ▝SCREEN$ [S]PTUPU*SCREEN$ SAVE X POKE ([B] INPUT LOAD ▝V#j; ERASE OVER SAVE ▖6ABS cp}q MOVE SIN RANDOMIZE $[A] MOVE [D]x[R][H] COPY PRINT SAVE ` RANDOMIZE PLOT CLEAR FOR ▝ABS } GO SUB GO SUB LOAD MERGE .PIa GO SUB [T]f BRIGHT OVER GO TO COPY POKE SAVE @ RANDOMIZE NEXT CLEAR FOR PAPER 9 BRIGHT LEm? BRIGHT BEEP CLEAR CLEAR RETURN CAT COPY _RND[B]0Oo OVER ASN | F▝q CLEAR ERASE AND mUSR FORMAT D' OVER ▝ BRIGHT CLEAR VERIFY : VERIFY ERASE TAN 2 BEEP OVER GO TO COPY POKE SAVE 0 RANDOMIZE NEXT CLEAR FOR [T]f BRIGHT GO SUB PAPER ▝[B] CLEAR W INK BRIGHT FORMAT J BRIGHT OUT GO TO COPY PRINT SAVE P RANDOMIZE PLOT CLEAR FOR ([F]VAL PAPER ] OPEN #[K] CLEAR INVERSE =Wp FORMAT =] LPRINT ▝ REM © INVERSE UINKEY$=}q[Q](`;IN OPEN #j=Q`(`$ CLEAR p VERIFY =5 MOVE Um:Mm INPUT CAT COPY OC[B]@_? OVER ABS 4x OVER lr%j CLEAR t VERIFY PAPER =USR $1/ ERASE ▝[B]j MOVE STR$ CLEAR (`;ABS INPUT CAT COPY _RND[B]0oo OVER INT ] INVERSE INVERSE DEF FN INPUT INPUT LPRINT PAPER ▟USR d/ BEEP #[C]USR ERASE VRNDm? OPEN #[T] BRIGHT @ BEEP THEN VAL VERIFY PAPER MINKEY$ OUT INPUT INPUT INPUT CLEAR ▝ABS p OVER RANDOMIZE COPY GO TO COPY COPY PAUSE SAVE 0 RANDOMIZE PLOT CLEAR BRIGHT L▞M[Q]([E] BEEP OPEN #j|SQR 6mUSR [U] PAPER m LOAD COPY _C[B]@?o OVER SIN mW GO SUB RND INVERSE INVERSE BRIGHT OVER OUT INVERSE BIN USR # MERGE ( FORMAT D' OVER GO TO COPY POKE SAVE ` RANDOMIZE NEXT CLEAR FOR 9(USR s ERASE RETURN CAT COPY _[B]0Oo OVER TAN ERASE <>q OVER BIN DEF FN POINT INVERSE l MOVE ▝=[F]o MERGE VERIFY OVER GO TO COPY COPY PAUSE SAVE 8 RANDOMIZE PLOT CLEAR PAPER VAL [U]a GO SUB BRIGHT Lc[R] CLEAR R@ VERIFY =5 MOVE COS j OVER OVER OVER COPY PAUSE SAVE 0 RANDOMIZE PLOT CLEAR d PAPER SQR BIN USR aO PAPER @W@[B]} MOVE INK BRIGHT FORMAT J BRIGHT INPUT RANDOMIZE COPY COPY PAUSE SAVE ` RANDOMIZE PLOT CLEAR INPUT INPUT INPUT 6[Q] ERASE V[Q]0 PAPER = CAT ERASE @ OPEN # MOVE MERGE Ma OVER COPY PAUSE SAVE 0 RANDOMIZE PLOT CLEAR (: INK ,[B] CLEAR MOVE F%lo OUT / PAPER ] INVERSE INVERSE USR ][O] OUT OUT o INVERSE c OPEN #]6[Q]RND INVERSE INVERSE BRIGHT OVER COPY PAUSE SAVE PLOT CLEAR FORMAT BRIGHT FORMAT BRIGHT LOAD COPY LIST PAUSE SAVE 0 RANDOMIZE PLOT CLEAR ( VERIFY =V MOVE L OPEN #▜ CLEAR FORMAT CHR$ Av REM r9- LOAD LIST PAUSE SAVE 0 RANDOMIZE PLOT CLEAR ( VERIFY =V ERASE V;ABS CAT INVERSE -j#[C]© ERASE @ OPEN #@ OVER COPY PAUSE SAVE 0 RANDOMIZE PLOT CLEAR BRIGHT L"ABS USR % ERASE ▝ PAPER @[E] BEEP CLEAR $ OPEN #▝[N] LOAD LIST PAUSE SAVE 0 RANDOMIZE PLOT CLEAR BRIGHT LRNDj▝Mq CLEAR [E] AND [Q]( MOVE Mm{IN INVERSE OPEN # PAPER ▝} LOAD LIST PAUSE SAVE 0 RANDOMIZE PLOT CLEAR R REM pd CIRCLE OR ! CLEAR TAN m0L OPEN #▟ LOAD LIST PAUSE SAVE 0 RANDOMIZE PLOT CLEAR R REM pd PAPER ▝[B][P] FLASH F OPEN #d STEP 8 OVER COPY PAUSE SAVE 0 RANDOMIZE PLOT CLEAR ( PAPER ▝p9 REM / INVERSE f GO SUB t▝ CLEAR VERIFY =V MOVE 6 REM OPEN #M LOAD LIST PLOT SAVE @ RANDOMIZE PAUSE SAVE t BRIGHT LG0ASN ERASE LOAD _▝% LIST CLEAR BRIGHT L[R][B][G]/ INVERSE USR ( ERASE COS VERIFY COPY CLEAR BRIGHT L!SQR `( INVERSE [T]![A]6[Q]POINT MINKEY$ COPY PRINT SAVE @ RANDOMIZE NEXT CLEAR PAPER VAL [U]a OVER PLOT CLEAR CLEAR BRIGHT L$ AND [Q]? PAPER S VERIFY FTAB LOAD LIST POKE SAVE 8 RANDOMIZE PRINT CLEAR BRIGHT L[B][J] BRIGHT V OPEN # PAUSE COPY RUN SAVE PRINT SAVE [I] MOVE ▗GR`$ SAVE [Q]<=I[E] BEEP COPY RUN SAVE ▖ RANDOMIZE PRINT SAVE [I] BRIGHT L[B][J] BRIGHT V OPEN # SAVE [Q]$@ VERIFY STEP @▗INT COPY SAVE ` RUN o▝[G] SAVE `/▝ PLOT SAVE "`_▘V SAVE (` OPEN # COPY COPY ASN 6[Q][U]n[S][E] BEEP COPY 0TAN m0[E] BEEP LIST 0xI [E] BEEP LIST 0 MERGE d"Mq COPY t VERIFY }] STEP B© LIST 0r9%m0jLEN COPY }}I%[B]@r9/ LIST ▝ PAPER [K]▝m1 COPY RND INVERSE INVERSE BRIGHT j5} DEF FN PICHR$ COPY ▗L F]m LIST [K]( ERASE I/ LIST [L](COS MERGE xI LIST [M] OPEN #[D]j LOAD RND INVERSE INVERSE BRIGHT REM p VERIFY =V LIST COPY }] CAT LIST x STEP SCREEN$ ▙>=x NEW RETURN NEXT x AND G GO SUB <>:[F] RETURN COPY >=▜▜_!sBIN > COPY 2[F]F#N#Vy= CLEAR { INPUT _ OPEN # RETURN y▘O LET <>d[G] COPY COPY COPY COPY (d COPY d< COPY COPY COPY NEXT PRINT OR MERGE RESTORE INVERSE RESTORE INK PRINT OR MERGE RESTORE CLEAR RESTORE :{[F]<2{[F]:s[F]PI TO [Q][G] STEP c INPUT CLEAR LLIST LLIST MOVE STR$ LET INK INVERSE LLIST LLIST MOVE STR$ LET CLS <> PLOT SAVE RANDOMIZE COPY SAVE COPY PLOT SAVE COPY 00 PLOT SAVE COPY /// RUN SAVE COPY 68S PRINT COPY D DEF FN UtBRND"[Q]BRND*[Q]BRND2[Q]BRND:[Q]BRNDB[Q]BRNDJ[Q]BRNDR[Q]BRNDZ[Q]G,▖G IF 4G CLS <[A]G%D▛G RANDOMIZE LG CONTINUE 8pG NEW <pG NEW @pG CONTINUE DpG DATA <xG:/G RUN @/C;@CL6DCA8<CS;8CT>4CWD4CIG8CLJ<CLMBGTAB YhG[S]VG[R]VpGsX[GTAB %hG[S]"G[R]"pGs$[BASN !0D STEP *8D DEF FN (LD DEF FN "0BACS TDBLN R8D STEP OHD DEF FN Y4D DEF FN U, RANDOMIZE COPY RANDOMIZE COPY F3R|ED*XDE,XCS.XBI0XAG2XBN4XCE6XDD8XBA<XAN>XBD@XDCDXCOFXBDHXAIJXBNLXCC[LP▜V[Q]▜XFN ▜/FN ▜YVAL ▜]VAL ▜UVAL ▜TFN ▜QVAL ▜MVAL ▜IVAL ▜EVAL ▜AVAL ▜=VAL ▜9VAL ▜5VAL ▜2FN ▜0[Q]▜.[I]▜,[A]▜*▖▜&▖▜"▖[D]+AT [C]%[U]▟+[M]▛'[E]#[A]![Q]!VAL ▜Z[Q]BINT @[A]BINT @pBRND@`B[U]H`B[T]>`B▚9XB▚5PB▚1HB▚-@B▚)8B▚%0BUSR ;HBUSR 7@BUSR 38BUSR /0BUSR +(BUSR ?PF*KFN F+MFN F,L[U]-"|)"t)"l)"d)"/)"T,"L[U]$/FTAB )hBs(ZG▘FHG▘J`G▘P`GyT@B DEF FN S0C[LP!4▘"[Q]▘([Q]▘.[Q]▘4[Q]▘:[Q]▘@[Q]▘F[Q]▘L[Q]▘R[Q]▘X[Q]DaHxG RESTORE <4G NEW @8G BORDER D8G BORDER 88G DATA 8BG DATA @B[A]"▖▛([B]'w[C]"q▟'h▟!a▛$_!RGJ▘"[Q]▘([Q]▘.[Q]▘4[Q]▘4[Q]▘:[Q]▘@[Q]▘F[Q]▘L[Q]▘R[Q]▘X[Q]Gf:hTAN 9[I]G[S](G[S]PG[S]P`G[S](`G[S](@G[S]( G[S]P@G[S]P ET2<EE4<EL6<EE8<EP:<EO<<ER><ET@<EIB<END<EGF<FBHBs<[>=U[A]"[Q][A](POINT ▙([Q]▙([Q][U].[Q]RND0[Q]RND8[Q]RND@[Q]RNDH[Q][T]P[Q]R[Q]▙SVAL$ WINKEY$▙W[R][A][[R][B]X▖[C]T▖G CONTINUE 09G NEW 49G DATA 4@G DATA ;@G NEW 88G NEW <8G CONTINUE @7D OPEN #"[I]D OPEN #*[I]D MERGE 2[A]D OPEN #6[I]D OPEN #>[I]D OPEN #F[I]D OPEN #J[I]FCHR$ Vz>=Z^>=Z6>=Zs,["▖▗"[H]&[H]▘&PI▘ CODE ▜(▖▚([A]▚,▖.[A]*[I]▗,FN ▚.[Q]▘2▖4[Q]0FN ▚4VAL ▗8▖:[Q]:VAL ▘@[Q]▚<[I]▜B[I]<▖B▖<VAL [S]F▖[S]FFN [S]NFN [S]N▖[S]VFN [S]V▖[S]Vh[S]VH[S]V(BTAN ?BASN 9HBLN FPBATN ;0BINT @dBINT @DBINT @$D DEF FN :8D STEP 6/D STEP KXD OPEN #ND OPEN #JD OPEN #6D OPEN #.D OPEN #&D OPEN #GTAB ShBsR[GTAB -hBs,[[S]V▖BRND"0BRND*0BRND20BRND:0BRNDB0BRNDJ0BRNDR0BRNDZ0[S]"H[S]"h[S]"▖[S]"FN G[*[U]G[2[U][T]:[Q]RND<[Q]RNDD[Q]RNDL[Q]RNDT[Q]RND/[Q][S]VH[S]VhBs,SGTAB -`BsPSGTAB Q`B[D]A[A]B[A]I▖B▟E[S]V▖G RUN RtRND"[Q]RND*[Q][U]2[Q]G[4[U]G[<[U]G[D[U]G[L[U]G[T[U]G[/[U]▚2[I]▚6[A]▚:▖C▚@▖C▜F▖▜J▖▜N▖▜R▖▜V▖▜Z▖>=Z`>=Z8>=ZGTAB D`BsCS[S]"h[S]"H[S]"(RND*$RND2$RND:$RNDB$RNDJ$RNDR$G RUN RtCUSR G/G[V[M]G[N[M]G[F[M]G[>[M]G[6[M]G[.[M]G[S]&[M]G[S][M]G[R]&G[R]GRND"1G[U]*1Bs$YETAB %i▚X▚R▚L▚FCUSR [pCUSR WpCUSR SpCUSR OpCUSR KpCUSR GpCUSR /▘"[Q]([Q]▚(VAL ▚.[Q].FN ▚4VAL 4[Q]:FN ▚:[Q]▚@VAL @[Q]▚F[Q]FFN L[Q]▚LVAL ▚R[Q]RFN X[Q]▚XVAL BTAN 8[I]BASN 1/BACS ?/BATN 58BEXP ?0BINT 9|BINT 9/BINT 9<BINT 9D STEP B2D DEF FN 0bD DEF FN 4>G SAVE EhG IF 0|G CLS BHD OPEN #![I]D OPEN #)[I]D OPEN #0[I]D OPEN #B[H]BsJ[D]BsM[D]FfRh▜R[I]▜V[I]D OPEN #Z[I]A LINE UP▚*[I]▚&[A]▚"▖▚CUSR ,▖CUSR (CUSR $xCUSR pG BORDER 2ORND"[Q]RND*[Q]RND2[Q]RND:[Q]RNDB[Q]RNDJ[Q]RNDR[Q]RNDZ[Q]B>=4xB>=8xB>=<xB>=@xB>=DxF LINE HhF<>DhF<>@hF<><hF<>8hF<>4hF LINE 2hF TO 6▖F THEN <▖F TO B▖D OPEN #H[I]D OPEN #P[I]D OPEN #X[I]D OPEN #,[I]D MERGE ([A]D OPEN # [I]GTAB MBsLsBs,sGTAB -G RANDOMIZE LBASN D0BACS 84BATN 8PBSQR >HBSQR >(D DEF FN N4D STEP JHD STEP 48D DEF FN 4TG RESTORE +0G BORDER /4G DATA +<G DATA '<G BORDER '3BsP/RND"[Q]RND*[Q]ERND2[Q]RND:[Q]RNDB[Q]RNDJ[Q]RNDR[Q]RNDZ[Q]D OPEN #V[I]D OPEN #N[I]D OPEN #I[I]D OPEN #B[I]D OPEN #<[I]D OPEN #8[I]D MERGE 4[A]D OPEN #,[I]D OPEN #%[I]D OPEN # [I]▚H0▚D8▚@@▚<H▚8P▚0p▚.p▚6p▚<p▚@x▚DCUSR FpCUSR BhCUSR >`CUSR :`CUSR 6`CUSR 2`CUSR .`CUSR 8@CUSR <8CUSR @0CUSR D(GTAB QhG[S]NG[R]NpBsP[RTRND"[Q][U]*[Q]D OPEN ##[I]D OPEN #[I]G[,[U]G[4[U]G[<[U]▚6CUSR 6pCUSR 8p▘D[Q]▘J[Q]▘P[Q]▘V[Q]▘/[Q]▟V[A][A]Z▖▙V▖[D]Vx▞Vp▟[hD OPEN #D[I]D OPEN #N[I]D MERGE K[A]G CONTINUE 2▖G NEW 6▖G BORDER 9▖G CONTINUE ;▖G DATA 5[A]R[A]D OPEN #Z▟!h▘"[Q]▘([Q]▘.[Q]▘4[Q]▘:[Q]▘@[Q]▘F[Q]▘L[Q]▘R[Q]▘X[Q][D]![A][B]!x[C](▖[A]'p%t'▖&l▙-[I]G CONTINUE 8@G NEW <<G BORDER @<G NEW D<G CONTINUE H@G DATA @DG DATA <DG DATA <HG DATA AHD OPEN #2[I]D OPEN #9[I]D MERGE A[A]D OPEN #E[I]D OPEN #M[I]D OPEN #U[I]D OPEN #Z[I]BsQl▘"[Q]▘([Q]▘.[Q]▘4[Q]▘:[Q]▘@[Q]▘F[Q]▘L[Q]▘R[Q]▘X[Q]▘X▖▘Xp▘XX▘X@▘X(▘40▘4H▘4`▘:`▘@`▘F`f:(CUSR HPCUSR DPCUSR LXLhD OPEN #P[I]D OPEN #H[I]D OPEN #@[I]D OPEN #8[I]D MERGE 5[A]D OPEN #.[I]D OPEN #([I]D OPEN #"[I]GTAB *xBs)kGTAB RxBsQkG CONTINUE 6tG DATA /[A]G CONTINUE .▖G BORDER 2▗G CONTINUE 6▖CUSR DP▚<VAL ▚@FN ▚D[Q]▜H[Q]CUSR <[Q]CUSR @[I]CUSR D[A]CUSR H[A] DATA 4▖ CONTINUE 9 NEW 5 BORDER 4| CONTINUE 0▚@`▜D`▚4H▚.H▚*@▚&8▚"0CUSR ((CUSR ,0CUSR 08CUSR @PGTAB F@BsE3CUSR DPG CONTINUE I<G DATA /[A]G CONTINUE .▖G BORDER 2▗G CONTINUE 6▖G DATA ?XG DATA CXG CONTINUE >PG BORDER BLG BORDER ELG CONTINUE IPBTAB Px▘"[Q]▘([Q]▘.[Q]▘4[Q]▘:[Q]▘@[Q]▘F[Q]▘L[Q]▘R[Q]▘X[Q]▘"▖▘"p▘"X▘"@▘"(▚Xp▘XX▘X@▘X(A▚4hA▚8`A▚<XA▚@PA▚DHA▚H@A▚L8A▚P0CUSR 4XCUSR 8PCUSR <HCUSR @@CUSR D8CUSR H0CUSR L(D OPEN #([I]D OPEN #-[I]D OPEN #4[I]D MERGE ;[A]D OPEN #>[I]D OPEN #C[I]D OPEN #K[I]D OPEN #R[I]D OPEN #X[I]GTAB LxBsKkG (h▘"[Q]▘([Q]▘.[Q]▘4[Q]▘:[Q]▘@[Q]▘F[Q]▘L[Q]▘R[Q]▘X[Q]D OPEN #V[I]D OPEN #P[I]D OPEN #I[I]D OPEN #A[I]D MERGE =[A]D OPEN #5[I]D OPEN #/[I]D OPEN #)[I]D OPEN #"[I]G CONTINUE *@G BORDER -<G BORDER 0<G DATA -HG CONTINUE 4@G CONTINUE FHG BORDER JDG NEW NHG DATA JPG CONTINUE RHG NEW NDCyF|D STEP DhD STEP HxD STEP @xD DEF FN @hD DEF FN JhD DEF FN B/D DEF FN H/D DEF FN EX▚"p▘"X▘"@▘"(>=$x>= xG (▖Gs3d▘"[Q]▘([Q]▘.[Q]▘4[Q]▘:[Q]▘@[Q]▘F[Q]▘L[Q]▘R[Q]▘X[Q]CUSR Z[A]CUSR V[A]CUSR R[A]CUSR N[A]CUSR J[A]CUSR F[A]CUSR B[A]CUSR >[A]D OPEN #6[I]D OPEN #/[I]D OPEN #([I]D OPEN #"[I]G CONTINUE +?G NEW /<G NEW 2<G CONTINUE 5?G DATA .FBATN JKBACS :WBEXP JkBASN :BSQR DBSQR D`BSQR D@BSQR D D STEP OTD DEF FN NpD STEP 5XD DEF FN :<BLN >pD DEF FN ;tBACS J,GTAB -pG[S]*G[R]*xBs,c▜Z▖▚,VAL ▚(FN ▚$[Q]▚[Q]▚"FN ▚&VAL ▚ VAL CUSR .[Q]CUSR *[I]CUSR &[A]CUSR "[A]▘:[Q]▘@[Q]▘F[Q]▘L[Q]▘R[Q]▘X[Q]F[A]G[L[E]T[A]GTAB (PBs'CGTAB VPBsUCA[S]<A[S]<hARND8`ARND@`A[U]H`A[T]6`B>=88B>=<8B>=@8B>=D8F THEN BHF TO :HF<>8(F<><(F<>@(F<>D(F LINE H(F LINE 6(▜Z[I]B[D]BD▘"[Q]▘([Q]▘.[Q]▘4[Q]▘:[Q]▘@[Q]▘F[Q]▘L[Q]▘R[Q]▘X[Q]4[A]4::@FF[A]s:[D]s>[D]sB[D]G CONTINUE :?G BORDER >;G NEW B?G RESTORE F;G DATA >GG DATA BGG CONTINUE J?G NEW B<G NEW D<G%6kFyRD STEP PkD STEP T{D STEP L{D DEF FN NsD DEF FN TsD OPEN #L[I]D OPEN #Q[I]D OPEN #X[I]D OPEN #,[I]D OPEN #"[I]D MERGE )[A]B?pB▖CpB▛GpB[D]B`BsN[E]▘"[Q]▘([Q]▘.[Q]▘4[Q]▘:[Q]▘@[Q]▘F[Q]▘L[Q]▘R[Q]▘X[Q]D OPEN #V[I]D OPEN #O[I]D OPEN #I[I]D OPEN #D[I]D OPEN #<[I]D OPEN #6[I]D OPEN #.[I]D OPEN #'[I]D OPEN #"[I]G CONTINUE '@G BORDER +<G BORDER /<G DATA +HG CONTINUE 3@G CONTINUE ELG BORDER IHG CONTINUE MLG DATA GTFy2Fy2pD STEP 4pD STEP ,pD STEP 0`D DEF FN 4hD DEF FN .hG>=DxG>=HxG>=LxG>=PxF THEN N▖F TO F▖B LINE BhB<>DhB<>HhB<>LhB<>PhB LINE ThBsT[▘"[Q]▘([Q]▘.[Q]▘4[Q]▘:[Q]▘@[Q]▘F[Q]▘L[Q]▘R[Q]▘X[Q]D OPEN #W[I]D OPEN #O[I]D OPEN #G[I]D OPEN #?[I]D OPEN #7[I]D OPEN #/[I]D OPEN #([I]D OPEN #![I]D OPEN #:[I]D OPEN #N[I]G CONTINUE 7@G NEW ;<G BORDER ?<G CONTINUE B@G DATA :DG DATA :HGTAB 6G4▖G▚4[I]GTAB HGF▖G▚F[I]BsGsBs5sGTAB )hG[S]&G[R]&pBs([GTAB UhG[R]RpG[S]RBsT[CUSR 4[Q]▘"[Q](FN ,VAL CUSR ,[Q]CUSR ([I]D MERGE $[A]D OPEN #[I]G CONTINUE /PG BORDER 3LG BORDER 7LG CONTINUE ;PG DATA 3XG CONTINUE F|G NEW JxG NEW NxG CONTINUE R|G DATA J▘0VAL CUSR 0[Q]4VAL CUSR 4[Q]G DATA Q/▚4H▚0@▚,8▚(0▚8P▚@p▚<x▚8▘X[Q]▘R[Q]▘L[Q]▘F[Q]▘@[Q]▘:[Q]▘4[Q]▘.[Q]▘([Q]▘"[Q]▘"▖▘"p▘"X▘"@▘"(CUSR 8pCUSR <hCUSR @`CUSR B`CUSR :@CUSR 68CUSR 20CUSR .(D OPEN #([I]D OPEN #.[I]D OPEN #4[I]D OPEN #:[I]D OPEN #B[I]D MERGE J[A]D OPEN #N[I]D OPEN #V[I]GTAB VBsUsGTAB .Bs-sG CONTINUE N@G BORDER R<G BORDER T<G CONTINUE X@G DATA QHGSXD▘"[Q]▘([Q]▘.[Q]▘4[Q]D[:[U]▘B[Q]▘H[Q]▘N[Q]▘T[Q]▘Z[Q]▚2[I]▜4[A]B▚8[A]B▚>[A]▜D[A]▚D[I]CUSR 4CUSR 8CUSR <CUSR @CUSR D[B]Z▖[D]Zx[C][aG[S]NG[R]NpG)QhG)Q`G)QXG)QPG)QHG,Q@G(OTG(STG*UTG+MTGDOxGIPGZQ▖GZR[A]GYS[I]G[G]YLG[G]L@G[G]JdG[F]T`G CONTINUE (HG BORDER +DG NEW /DG RESTORE 1DG CONTINUE 4HG DATA ,LG DATA ,PD OPEN #*[I]D OPEN #"[I]GL[A]GTHDGHJ8GAN4GNR4GKV8GSXDD DEF FN UtBRND"[Q]BRND*[Q]BRND2[Q]BRND:[Q]BRNDB[Q]BRNDJ[Q]BRNDR[Q]BRNDZ[Q]G,▖G IF 4G CLS <[A]G%D▛G RANDOMIZE LG CONTINUE 8pG NEW <pG NEW @pG CONTINUE DpG DATA <xG:/G RUN @/C;@CL6DCA8<CS;8CT>4CWD4CIG8CLJ<CLMBGTAB YhG[S]VG[R]VpGsX[GTAB %hG[S]"G[R]"pGs$[BASN !0D STEP *8D DEF FN (LD DEF FN "0BACS TDBLN R8D STEP OHD DEF FN Y4D DEF FN U, RANDOMIZE COPY RANDOMIZE COPY F3R|ED*XDE,XCS.XBI0XAG2XBN4XCE6XDD8XBA<XAN>XBD@XDCDXCOFXBDHXAIJXBNLXCGNXBBRXAYTXEO,hFL.hGE0hFG2hBM6hCO8hDS:hEC<hFA>hGL@hFEBhENDhDCFhCOHhE1LhF9NhG9PhF3RhG DATA ,pG:|G RUN @|B▚:[A]B▚@[A]BINT <[I]B▘D[Q]B▘6[Q]B▚6[I]B▚D[I]B▚JVAL B▚PVAL B▚VVAL B▚/VAL B▚0VAL B▚*VAL B▚$VAL B▚VAL B0[Q]B▚*FN BJ[Q]B▚PFN D OPEN #VFN D OPEN #"FN CUSR 6▖CUSR F▖CUSR J[A]CUSR 2[A]BY8hAO:hBU<hCW@hBIBhANDhB@FhG CONTINUE T@G BORDER P<G NEW L>G CONTINUE H@G DATA LHG CONTINUE (<G BORDER ,8G NEW 0:G CONTINUE 4<G DATA ,D RANDOMIZE COPY 2!8<=~2 AND [D]#~2<=[D]#~2NOT [D]#~#^# RESTORE n STEP ▛▖ STEP ▞ STEP ▗▞ LLIST #~ RETURN CHR$ RESTORE <>!?<=~2 AND [D]#~2<=[D]#~2NOT [D]#~#^# RESTORE n STEP ▛▖ STEP ▞ STEP ▗▞:USR [D] RETURN [ TO c▚:USR [D] RETURN s TO Y▚ LLIST #~ RETURN CHR$ A RESTORE <> STEP E STEP CODE 2[E][F]2[D][F] STEP > RESTORE STEP ^[A] STEP /<>CODE !o[F]w#w/2CODE [F]NOT INKEY$ RESTORE 8<=[E] GO SUB VAL <>: RESTORE RETURN ! TO >= STEP [N] RESTORE NOT x RESTORE RETURN !` LINE STEP [N] RESTORE : RESTORE RETURN LINE x RESTORE >2RND<=NOT x RESTORE RETURN ! RETURN LINE STEP [N] RESTORE : RESTORE RETURN LINE x RESTORE >2>=NOT x RESTORE RETURN ! ERASE THEN STEP [N] RESTORE : RESTORE RETURN LINE x RESTORE >2 RANDOMIZE <=NOT x RESTORE RETURN !AT TO STEP [N] RESTORE NOT x RESTORE RETURN STEP STEP [N] RESTORE : RESTORE RETURN LINE x RESTORE >2 GO SUB <=NOT x RESTORE RETURN !TAN DEF FN STEP [N] RESTORE NOT x RESTORE RETURN !▖ CAT STEP [N] RESTORE NOT x RESTORE RETURN ! FORMAT STEP [N] RESTORE NOT x RESTORE RETURN !f MOVE STEP [N] RESTORE NOT x RESTORE RETURN !▙ ERASE STEP [N] RESTORE NOT x RESTORE RETURN ![O] OPEN # STEP [N] RESTORE :x RESTORE >2 GO SUB <=NOT x RESTORE RETURN !Z CLOSE # STEP [N] RESTORE NOT x RESTORE RETURN !4 MERGE STEP [N] RESTORE NOT x RESTORE RETURN ! ! VERIFY STEP [N] RESTORE NOT x RESTORE RETURN " !@ VERIFY STEP [N] RESTORE NOT x RESTORE RETURN # ! REM VERIFY STEP [N] RESTORE NOT x RESTORE RETURN ) !. BEEP STEP [N] RESTORE NOT x RESTORE RETURN * !D CIRCLE STEP [N] RESTORE : RESTORE RETURN LINE x RESTORE >2A>=NOT x RESTORE RETURN + !` INK STEP [N] RESTORE NOT x RESTORE RETURN , !| PAPER STEP [N] RESTORE NOT x RESTORE RETURN - !▚ FLASH STEP [N] RESTORE NOT x RESTORE RETURN . ![S] BRIGHT STEP [N] RESTORE NOT x RESTORE RETURN / !BIN INVERSE STEP [N] RESTORE NOT x RESTORE RETURN 0 !>= OVER STEP [N] RESTORE NOT x RESTORE RETURN & !N OUT STEP [N] RESTORE CODE 2CODE [F]NOT x RESTORE RETURN ' !v LPRINT STEP [N] RESTORE CODE 2CODE [F]: RESTORE RETURN LINE x RESTORE >2>=NOT x RESTORE RETURN 2 ! GO TO LLIST STEP [N] RESTORE NOT x RESTORE RETURN 3 ! READ STEP [N] RESTORE NOT x RESTORE RETURN 4 ! READ STEP [N] RESTORE NOT x RESTORE RETURN 5 ! DRAW READ STEP [N] RESTORE NOT x RESTORE <> RANDOMIZE COPY > COPY 2s[F]NOT <= CONTINUE *[U] BORDER RESTORE STR$ v!INT BORDER RESTORE OR <>:{[F]O:{[F]EXP ( IF :{[F]O:{[F]EXP :C RETURN >= RETURN LINE , DIM RETURN LINE , DIM RETURN ! LINE , DIM RETURN LINE LIST CONTINUE RETURN LINE LIST CONTINUE CODE 2|[F]NOT VAL$ BORDER RESTORE MOVE 6B GO SUB VAL <>!fY STEP PAUSE BORDER !▚Y STEP PAUSE BORDER !INKEY$Y STEP PAUSE BORDER ! AND Y STEP PAUSE BORDER ! NEW Y STEP PAUSE BORDER <>*[S] BORDER >@w#< CLS >Gw#= CLS >@w#< CLS <> STEP CLEAR BORDER :[Q] BORDER v CLEAR RETURN !fY"[S] BORDER STEP CONTINUE ![K] CONTINUE "[U] BORDER <> RETURN !▚Y"[S] BORDER STEP CONTINUE ![O] CONTINUE "[U] BORDER <> RETURN !INKEY$Y"[S] BORDER STEP CONTINUE ![S] CONTINUE "[U] BORDER <> RETURN USR !INKEY$ CONTINUE "[U] BORDER <>*[S] BORDER ~< NEW Gw# SAVE <> STEP CONTINUE <> STEP CONTINUE <> STEP CONTINUE <>:{[F] NEW G! AND Y<=Yw GO SUB VAL / NEW G! NEW Y BORDER Yw GO SUB VAL <>:[R] BORDER RETURN ( RETURN ( RETURN (CODE 2[R] BORDER >2[Q] BORDER STEP ; CONTINUE NOT VAL$ BORDER >2[Q] BORDER STEP ; CONTINUE NOT VAL$ BORDER :|[F] RETURN CHR$ VAL$ BORDER > COPY 2|[F]:[R] BORDER RETURN LINE VAL$ BORDER :[Q] BORDER RETURN LINE VAL$ BORDER :[R] BORDER O:[Q] BORDER EXP >2[Q] BORDER STEP ; CONTINUE NOT VAL$ BORDER <2[Q] BORDER STEP ; CONTINUE NOT VAL$ BORDER :|[F] RETURN CHR$ VAL$ BORDER > COPY 2|[F]:[R] BORDER RETURN LINE VAL$ BORDER :[Q] BORDER RETURN LINE VAL$ BORDER :[Q] BORDER RETURN :[R] BORDER 2[Q] BORDER STEP ; CONTINUE NOT VAL$ BORDER =2[Q] BORDER STEP ; CONTINUE NOT VAL$ BORDER RANDOMIZE COPY >2y DIM =2 BRIGHT [D]>B2 FLASH [D]:z DIM RETURN >X2 INVERSE [D]NOT LEN DIM RETURN >`2 INVERSE [D]NOT LEN DIM RETURN %>h2 INVERSE [D]NOT LEN DIM !f DIM ~ RETURN : BRIGHT [D]<<2 BRIGHT [D] RETURN >= RESTORE STEP SQR ▟ LLIST # NEW RETURN '!1NOT STEP {!NOT STEP {!▚Y▜Y6B GO SUB VAL !cNOT STEP { STEP REM CODE 2[R] BORDER <> RETURN USR !1NOT STEP {!cNOT STEP { STEP REM <>>t2 INVERSE [D]>2 BRIGHT [D]>B2 FLASH [D]![R]NOT STEP {<>NOT [P] REM A DIAMONDA STARTING HANDLEA DAGGERSTICKS OF DYNAMITEA SILK BANDBUNCH OF FLOWERSSOME SKYBOOTSHEAVY ROCKf DIM GO SUB VAL <>>G2$ REM :" REM RETURN !( REM STEP [G] REM =2# REM <> RETURN !2 REM STEP [G] REM =2# REM <> RETURN !D REM STEP [G] REM =2# REM <> RETURN !M REM STEP [G] REM =2# REM >B2$ REM <> RETURN !` REM STEP [G] REM =2# REM >F2$ REM <> RETURN !l REM STEP [G] REM =2# REM <> RETURN !} REM STEP [G] REM =2# REM <> RETURN USR !▛ REM STEP [G] REM >2# REM >B2$ REM <> RANDOMIZE COPY > COPY 2s[F]>21 FOR :. FOR :. FOR RETURN D RETURN > RETURN 8 RETURN 2 RETURN , RETURN & RETURN RETURN CODE 2{ DIM 2[R] BORDER 2z DIM 2# REM STEP | DIM STEP INKEY$ BORDER 2|[F] STEP GO TO <>>2z DIM STEP | DIM CODE 2{ DIM 2[R] BORDER !. FOR ~ RETURN NOT GO TO RETURN NOT GO TO RETURN NOT GO TO RETURN NOT GO TO RETURN NOT GO TO RETURN NOT GO TO RETURN NOT GO TO RETURN LINE GO TO STEP INKEY$ BORDER :[Q] BORDER RETURN CODE 2{ DIM 2# REM STEP GO TO <>!- FOR :[Q] BORDER _~2{ DIM 2" REM STEP % REM STEP GO TO <>!. FOR >w#w#w<>~2" REM RESTORE STEP % REM :[R] BORDER <2z DIM 2[R] BORDER STEP | DIM LLIST #NOT [O] FOR '8[Q]8xF[A]J[A]Jp).[A]F[A]"[A]"* GO TO 2" REM STEP % REM LLIST LET <> PRINT RESTORE :) GO TO RETURN !, GO TO NEW RETURN !/ GO TO INVERSE RETURN !2 GO TO CLOSE # RETURN !5 GO TO THEN RETURN !8 GO TO CHR$ RETURN !; GO TO EXP RETURN !> GO TO VAL RETURN !A GO TO PI!"* GO TO CODE 2) GO TO LLIST LET <>> COPY 2s[F] STEP RESTORE > PRINT 2) GO TO STEP ' GO TO ** GO TO ~O: RESTORE EXP %#~2<<=#~2=<=>2><=!8<=CODE w#w:$ REM 2:<=:# REM 2;<= STEP RESTORE LET < RETURN CHR$ TAN GO TO <>NCODE 28<=29<=>b2 PLOT GO TO =2;<=: PRINT GO TO 2<<=>2><=>G2:<=>x2=<= STEP RESTORE >28<=: PLOT GO TO 2;<= STEP RESTORE vv: PLOT GO TO <2 PLOT GO TO RETURN f REM >a2;<= STEP RESTORE <>CODE 2 RESTORE > COPY 2s[F]>2 RESTORE STEP SCREEN$ GO TO >H PRINT 2 PRINT GO TO STEP RUN GO TO LET == RETURN *v LET CODE 2FN LINE <2 RESTORE STEP SCREEN$ GO TO >x2FN LINE >, PRINT 2 PRINT GO TO STEP RUN GO TO LET << RETURN J PAUSE CODE 28<=>D2:<= STEP RESTORE <>ECODE 28<=29<=>G2:<=>2><= STEP RESTORE vvv STEP COS ▜v>28<= STEP RESTORE <>> DRAW PRINT 2;<= STEP [E] GO SUB LET vv<PI PAUSE = PRINT 2;<= STEP [E] GO SUB LET vv= RETURN CLS LET <>CODE 2s[F]>2 RESTORE STEP SCREEN$ GO TO >;2<<=>2=<= STEP LN GO SUB >2 RESTORE STEP SCREEN$ GO TO >2=<=>S2<<= STEP LN GO SUB >22Y[F]>[H]2Z[F] STEP 1[G]<>!K INPUT , GO TO GO SUB VAL ! RESTORE CODE w/#w#wCODE #w#w#w#w>#w>[P]2Z[F]>2Y[F]>!2w[F]CODE 2b[F]<>8[Q]8xF[A]J[A]Jp).[A]F[A]"[A] STEP GO TO ▙ STEP STR$ LET <> STEP 6l=>!dY PRINT ~< NEW Gw LET #= RETURN NEXT >![U]Y PRINT ~< NEW Gw LET =# RETURN NEXT <>CODE 2|[F]2C>32 RESTORE 2s[F] STEP RESTORE v CLEAR <>> COPY 2s[F]>42 RESTORE STEP RESTORE CODE 2C:CO:C PRINT OR STEP o INPUT vvSTR$ LET EXP ( LET STEP [E] INPUT >22 RESTORE STEP RESTORE :CO:C PRINT OR STEP COS ▜v RANDOMIZE COPY STR$ LET EXP ( LOAD STEP INPUT STEP SCREEN$ GO TO STEP 1[G]CODE 2s[F]:D RETURN CLEAR LINE m INPUT STEP DATA [A] STEP 7▜ STEP COS ▜ STEP HBIN :s[F]PI(Y:Y[F] RETURN 8 : RESTORE =2 RESTORE STEP e LOAD F RETURN : RESTORE <2 RESTORE STEP e LOAD 6:Z[F] RETURN ASN : RESTORE AND 2 RESTORE STEP e LOAD " RETURN C(CODE 2s[F]: RESTORE VERIFY 2 RESTORE STEP e LOAD STEP SCREEN$ GO TO STEP 1[G]CODE 2s[F]<> STEP `©vv:w[F]PICHR$ CLEAR INPUT CODE 2C> COPY 2s[F]! DEF FN CHR$ STEP {*t[F] STEP {:CO:CEXP ( IF v RANDOMIZE COPY NOT m INPUT STEP [E] INPUT >52 RESTORE STEP RESTORE CODE 2CO:C PRINT OR STEP o INPUT vvSTR$ LET EXP ( LET NOT m INPUT [ PRINT COPY CODE 2FN PRINT !POINT PRINT INVERSE !d LET >^#V# RESTORE INVERSE 6 INVERSE p INVERSE p INVERSE s INVERSE r FOR ^#V INVERSE 6 INVERSE p LLIST INVERSE s INVERSE r INVERSE = CLOSE #<2, PAUSE 2FN PRINT <>1? RUN CODE PRINT 0[J] PRINT [K] PRINT I RANDOMIZE COPY !? SAVE ! PLOT [J] PRINT [L] PRINT *@▘ RANDOMIZE ▛ PLOT ▖▗ PRINT ▖ PRINT 1!`$:FN PRINT PI>=>2 PAUSE !, PAUSE 5 F INVERSE !d LET STEP DIM PAUSE INVERSE ! LET STEP DIM PAUSE INVERSE ![S] LET STEP DIM PAUSE !, PAUSE 6 INVERSE !d LET STEP ▛ NEXT "[M] POKE 2[U] POKE INVERSE ! LET STEP ▛ NEXT "[O] POKE 2RND POKE INVERSE ![S] LET STEP ▛ NEXT "[Q] POKE 2INKEY$ POKE >2[S] POKE !INKEY$ POKE > CLEAR COPY GO SUB y CLEAR IN GO SUB ATTR = PAUSE PAUSE <>COS [L][P][U]b[B]{sA0O[Q] INVERSE N INVERSE F INVERSE n INVERSE f~#V_SIN INVERSE n INVERSE f^#V INVERSE q INVERSE pNOT RUN PAUSE INVERSE ~O NEW !▝ POKE VAL$ [R]VAL$ wNOT RUN PAUSE INVERSE ~O NEW 8!▝ POKE VAL$ [R]VAL$ wNOT RUN PAUSE !▝ POKE INVERSE ~/INKEY$wd INVERSE p INVERSE p INVERSE w INVERSE THEN VERIFY INVERSE w2<= LET G INVERSE w INVERSE w INVERSE w8 INVERSE THEN RETURN INVERSE THEN OVER . INVERSE p) INVERSE 6@# INVERSE 6USR INVERSE THEN DEF FN INVERSE p INVERSE THEN VAL$ 1 INVERSE 5 9 INVERSE p INVERSE ^ INVERSE VPI IF 8 NEXT INVERSE w INVERSE ~ INVERSE w INVERSE THEN INPUT INVERSE THEN PLOT INVERSE ~ INVERSE w INVERSE ~ INVERSE w INVERSE ~ INVERSE w INVERSE r INVERSE s<> INVERSE ~ THEN _>=0 INVERSE 4<> INVERSE 5<> RETURN LN 8G AND 8( AND 8* AND 0O!j PRINT N INVERSE u INVERSE u INVERSE t INVERSE t INVERSE THEN NEW [G] AND 2 FOR LET < INVERSE w▞ INVERSE w INVERSE w INVERSE w INVERSE wNOT RUN PAUSE !TAB LET ON DIM INVERSE N THEN i(D INVERSE ~ VERIFY 0% THEN q(& INVERSE ▚0[P] AND INVERSE w INVERSE ~ VERIFY 0 THEN LEN INVERSE ~ INVERSE w INVERSE w INVERSE w/ VERIFY INVERSE ▚8[H] INVERSE w INVERSE 5 THEN POINT INVERSE ~ THEN a(G INVERSE n INVERSE f~ RETURN T8 INVERSE n INVERSE f~# INVERSE u INVERSE t!SCREEN$ POKE ▜_^#V INVERSE n THEN u(Hg INVERSE F THEN THEN } INVERSE ~( THEN A THEN m INVERSE [G]0 INVERSE THEN INPUT [H] INVERSE ▚LN 8 INVERSE THEN VAL$ x INVERSE w FOR THEN 8[A]_z0 AND [Q]8 THEN # THEN AND 0 SAVE FOR y INPUT INVERSE w THEN Q(! INVERSE F THEN y( INVERSE n INVERSE f INVERSE u INVERSE t FOR INVERSE p8 :<= LET INPUT 2 PAUSE >![T] POKE VAL$ INVERSE INKEY$VAL$ w FOR INVERSE ~<>p[S]PEEK 8 COPY LIST USR VAL P LPRINT USR USR VAL USR SAVE CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;852/,*'%#!!$')+-/▜▜▜▜▜▜▜▜▜▜▜▜▜CODE PRINT ! PLOT ▛ PLOT LET PLOT LET PLOT / RUN / RUN LET PLOT LET PLOT / RUN / RUN LET PLOT LET PLOT / RUN / RUN LET PLOT LET PLOT / RUN / RUN l RUN l RUN l RUN l RUN LET PLOT LET PLOT / RUN / RUN LET PLOT LET PLOT / RUN / RUN LET PLOT LET PLOT / RUN / RUN POINT RUN POINT RUN POINT RUN POINT RUN POINT RUN POINT RUN POINT RUN POINT RUN DIM RUN DIM RUN DIM RUN DIM RUN DIM RUN DIM RUN DIM RUN DIM RUN POINT RUN POINT RUN POINT RUN POINT RUN POINT RUN POINT RUN POINT RUN POINT RUN SAVE SAVE 5 SAVE 5 SAVE SAVE SAVE 5 SAVE 5 SAVE SAVE SAVE 5 SAVE 5 SAVE SAVE SAVE 5 SAVE 5 SAVE M SAVE M SAVE M SAVE M SAVE SAVE SAVE 5 SAVE 5 SAVE SAVE SAVE 5 SAVE 5 SAVE SAVE SAVE 5 SAVE 5 SAVE e SAVE e SAVE | SAVE | SAVE e SAVE e SAVE | SAVE | SAVE [D] SAVE GO SUB SAVE [D] SAVE GO SUB SAVE e SAVE e SAVE | SAVE | SAVE SAVE SAVE 5 SAVE 5 SAVE G RANDOMIZE G RANDOMIZE S RANDOMIZE S RANDOMIZE G RANDOMIZE G RANDOMIZE S RANDOMIZE S RANDOMIZE _ RANDOMIZE RANDOMIZE w RANDOMIZE RANDOMIZE _ RANDOMIZE RANDOMIZE [O] RANDOMIZE ACS RANDOMIZE OR RANDOMIZE OR RANDOMIZE G RANDOMIZE G RANDOMIZE S RANDOMIZE S RANDOMIZE _ RANDOMIZE RANDOMIZE w RANDOMIZE RANDOMIZE _ RANDOMIZE RANDOMIZE [O] RANDOMIZE ACS RANDOMIZE LIST RANDOMIZE LIST RANDOMIZE IF IF LIST RANDOMIZE LIST RANDOMIZE IF IF & IF IF & IF IF G RANDOMIZE G RANDOMIZE S RANDOMIZE S RANDOMIZE G RANDOMIZE G RANDOMIZE S RANDOMIZE S RANDOMIZE ABS OUT [B] LLIST OUT LPRINT >=D>=I LLIST OUT !▛▗▟ OUT [B] OUT LPRINT >=P>=I LLIST OUT !▛▗▟ OUT [B]▜ OUT [B] LLIST OUT LPRINT >=B>=I LLIST OUT !▛▗▟ OUT [B]% OUT LPRINT >=N>=I LLIST OUT !▛▗▟ OUT [B]▜ OUT [B] LLIST OUT LPRINT >=?>=F LLIST OUT !▛▗▟ OUT [B]" OUT LPRINT >=F>=? LLIST OUT !▛▗▟ OUT [B]▜ABS ▛▝ OUT LPRINT ▟ OUT OUT ▗▟ OUT OUT LLIST ▟ LPRINT OUT OUT ▗▟ OUT ▜▛▝ LPRINT OUT ▟ OUT OUT ▟ OUT OUT ▟ OUT OUT ! STOP ▗▟▜ OUT LPRINT RANDOMIZE COPY >= ▜ OUT LPRINT ** RANDOMIZE COPY **>=*▜ OUT LPRINT """"">="▜ OUT LPRINT RANDOMIZE COPY ▜ OUT LPRINT RANDOMIZE COPY ▜▖▘ OUT LPRINT OUT 0 OUT OUT OUT OUT OUT STOP OUT LPRINT OUT OUT OUT OUT OUT OUT STOP ▜▖▘ OUT LPRINT OUT OUT OUT OUT OUT OUT STOP OUT LPRINT OUT OUT OUT OUT OUT OUT STOP !▜ OUT [B] LOAD ▗ COPY H<=I▜ OUT [B] LOAD ▗ COPY HNOT B▜▖▘ OUT ! RESTORE LPRINT 11 OUT A STOP 21 LLIST /▜▖▘ OUT ! RESTORE LPRINT 11 OUT A STOP 31 LLIST .▜ OUT [B]▖▘ LOAD ▗01▜▖▘ OUT ! RESTORE LPRINT 88 OUT A STOP 9? LLIST =▜ OUT [B]▖▘ LOAD ▗0:▜▖▘ OUT LPRINT K RANDOMIZE COPY BBDDDBBBAAB RANDOMIZE COPY NNPPPNNNMM▜ OUT !▖▘ LPRINT $%%%$%%%$% RANDOMIZE COPY ▜ OUT !▖▘ LPRINT )***)***)* RANDOMIZE COPY ▜▖▘ OUT ! LPRINT $ OUT !%%% OUT !$ OUT !%%% OUT !$ OUT !%% OUT ! STOP & OUT ! LPRINT $ OUT !%%% OUT !$ OUT !%%% OUT !$ OUT !%% OUT ! STOP (▜▖▘ OUT ! LPRINT ) OUT !*** OUT !) OUT !*** OUT !) OUT !** OUT ! STOP + OUT ! LPRINT ) OUT !*** OUT !) OUT !*** OUT !) OUT !** OUT ! STOP -▜[O]o qHw[O]▗>=[O][M]2%Yc INVERSE %Y[U]Y. INVERSE +[U]Y▘ COPY COPY RANDOMIZE COPY [Q] RETURN [Q]Y[Q] RETURN [Q]Y LPRINT RETURN LPRINT Y RANDOMIZE COPY COPY NEXT OUT SAVE [U]QM COPY qSGN RANDOMIZE RND#PN@RND COPY LIST ▘ SAVE QO} RANDOMIZE qH COPY dAT IF NEXT COS [A]I COPY INT M RANDOMIZE oK COPY RETURN AND RETURN CLEAR OR INKEY$KSGN COPY <>SQR RETURN >=INKEY$K COPY CLS >= RETURN IF <=INKEY$M COPY vFN RETURN uPIINKEY$K COPY PAPER BRIGHT RETURN INK FLASH INKEY$K COPY GO SUB RANDOMIZE RETURN GO TO SAVE INKEY$M COPY LOAD PAPER RETURN INPUT INK INKEY$M. COPY [M]- RETURN [L]INKEY$K COPY J RETURN I▛INKEY$K COPY LET COPY RETURN LIST RETURN INKEY$M 1EXP [K]CODE OPEN # RETURN ![Q]X[R]X_6F GO SUB VAL NOT DRAW RANDOMIZE COPY NEXT ! FORMAT k0[A]~ THEN w#xLEN CHR$ DRAW GO SUB V CLS STEP STOP CLS ![Q]X[R]X6 GO SUB VAL NOT j INPUT GO TO FOR REM DIM CONTINUE BORDER NEW RESTORE DATA READ STOP LLIST LPRINT OUT OVER INVERSE BRIGHT FLASH PAPER INK CIRCLE BEEP VERIFY MERGE CLOSE # OPEN # ERASE MOVE FORMAT CAT DEF FN STEP TO THEN LINE <>>=<= AND OR BIN NOT CHR$ STR$ USR IN PEEK ABS RND PRINT COPY NOT ▜BIN CLEAR DRAW RANDOMIZE COPY DEF FN BORDER P DEF FN CONTINUE P BRIGHT DEF FN DIM P BRIGHT BEEP 8 NEXT DEF FN DATA P DEF FN RESTORE P BRIGHT DEF FN FOR P BRIGHT BEEP LEN 3 FLASH |8 FLASH |8 CLOSE #M[XRNDZXL8USR Wq AND Mfv><BB~BB|B|BB|<B@@B<xDBBDx~@|@@~~@|@@@<B@NB<BB~BBB> RANDOMIZE COPY >BB<DHpHDB@ RANDOMIZE COPY ~BfZBBBBbRJFB<B RANDOMIZE COPY <|BB|@@<BBRJ<|BB|DB<@<B< RETURN RANDOMIZE COPY B RANDOMIZE COPY B<
