0 RANDOMIZE USR 0: REM DISKED BY VASILYEV MAXIM COPY COPY COPY COPY OVER ▗[S] INPUT [P] RANDOMIZE RETURN O<[C] OVER COPY COPY STR$ Q▖ CLOSE # BORDER PRINT CIRCLE w<= READ ACS INKEY$W RANDOMIZE ▙ RANDOMIZE PAPER L OR - INPUT PRINT [S]CODE ]?[O] BRIGHT '[N][A]▖@OH<>- LOAD PAUSE PAPER NSCREEN$ [S]<=I MERGE @TAB RESTORE }PEEK ITAB LINE DEF FN ▗O, INK RANDOMIZE OVER #>=[Q] LET )Ot CAT nT*1.A BORDER /Ip^+ie GO SUB AT 9ATTR READ [D]LzO RANDOMIZE z PAPER gIPc[S]o4 BRIGHT =SIN BRIGHT ERASE |;5 THEN TO © 1995 MAXSOFT t. 392618 VASILYEV MAXIM'S LOADER VERSION 1.1 NEXT !k^~/w# OVER ▗[S] RANDOMIZE BORDER ▝ FORMAT ▖ BRIGHT LOAD DEF FN COPY <▗[S]SCREEN$ 5619: REM : SAVE "HI-FI 1"[D]_SQR NEW kDKPEEK [S]AT GO SUB 3fVSGN qMG[G]]K© PAPER [M] DRAW COPY FLASH [N][COS mATN MOVE FLASH RETURN GPEEK [L] LINE DEF FN 5VAL$ 3[K] PAPER CLEAR NEXT LOAD d COPY INT [M]U[M] OUT CLS ABS {COS [E]EINKEY$]▚{ PAUSE SIN [F] CLS [H]▜0 PRINT 2m PLOT FORMAT )K LPRINT H DIM ▛INT [K]lABS INPUT PRINT U VERIFY USR G RUN REM GO SUB *L SAVE 0[O] FLASH ▟▙▞ DRAW NEW [G][N]▟EXP P^U.st}b[E]QINKEY$ DIM jL/MUSR X$ PRINT OUT [A][U]F FOR KY~j5 STOP * FLASH p CIRCLE y[H]/uoNb[J]▝[K]( FOR &SIN ASN RETURN ''@Y LLIST ^▙3RNDbC}E REM rS COPY b[G] CAT _)!uRTCODE RUN [J] INVERSE kle#$-270IF[/U COPY NEXT NOT CONTINUE COPY COPY #n COPY COPY COPY COPY GO SUB [ GO SUB s NEW 1 COPY LOAD !XT]6 COPY GO SUB VAL !@@ COPY u GO SUB VAL ! LIST LIST COPY u GO SUB VAL STEP [N]▝ STEP *▘!XT]6E COPY GO SUB VAL ( OR STEP [G]▘STR$ RANDOMIZE INVERSE ! INVERSE ~<(E STEP [N]▝! STEP EXP ▝!, STEP EXP ▝!X STEP EXP ▝!▗ STEP EXP ▝ INVERSE RESTORE STEP LOAD ▝ STEP *▘ INVERSE LLIST STEP [G]▘ INVERSE #NOT 4▝!XT]6 COPY GO SUB VAL !@@ COPY u GO SUB VAL GO SUB { NEW <>!▗ PRINT >F GO SUB VAL RESTORE ! GO SUB <> INVERSE RESTORE INVERSE INVERSE ~ POKE RESTORE NEW ▜o& AND ^#V!▗ MOVE INVERSE LLIST > GO SUB [Q] GO SUB [Q] RESTORE ! FOR LLIST = INPUT <> CLEAR RESTORE !/ GO SUB VAL !x/ GO SUB VAL CLEAR !:/ CLEAR ~ CLEAR 6 CLS v NEXT CLEAR w/! GO SUB VAL x/ LLIST <>"Q▘ INVERSE ! LIST STEP A▘"Q▘@ GO SUB s[D]▘ INVERSE RANDOMIZE LET MOVE LLIST INK STR$ MOVE LLIST 1I RESTORE MERGE OR INK RESTORE MERGE PRINT GO SUB so▘1 PAUSE COPY INVERSE 9 INVERSE RANDOMIZE LET MOVE LLIST INK LET STR$ MOVE LLIST 1 LET O RESTORE MERGE OR PRINT INK RESTORE MERGE PRINT !9|EXP 8 SAVE "Q▘1. INVERSE 9 INVERSE RANDOMIZE ATN 1 CLS LOAD <>'xLEN CLS <>p CLOSE # LPRINT ▝ LPRINT BIN USR READ AND OPEN # RESTORE POINT REM ~ PRINT # RETURN LIST 1{ INPUT 0/ LOAD USR G LPRINT COPY COPY DRAW COPY LIST ? SAVE ? LIST ? POKE ? DRAW ? LPRINT ©USR ?>= CONTINUE SAVE LIST ? LPRINT ? LPRINT ???▙ DEF FN RETURN LOAD ▜▝NOT ▝▝STR$ STR$ LLIST STR$ ▝ COPY COPY DRAW © SAVE SAVE SAVE SAVE DRAW SAVE ? LIST ? LPRINT LPRINT LPRINT ? LPRINT ? LPRINT LPRINT SAVE SAVE SAVE SAVE LIST LIST LIST <= LPRINT ▜ LLIST LLIST USR STR$ LPRINT USR LLIST COPY COPY RETURN COPY SAVE © SAVE SAVE ? LIST DRAW ? SAVE ? LIST ? LPRINT USR USR USR TO >= SAVE SAVE LIST LIST LPRINT ▜ LLIST <=NOT ▜<=▜▜▝▝▝ COPY COPY DRAW © SAVE SAVE SAVE SAVE DRAW LIST © LPRINT ©USR ?USR ? LPRINT ? LPRINT © LPRINT ?USR ? LPRINT LIST © LIST ? LIST ? LPRINT ? LPRINT USR ▘▚ AND NEW LOAD ▜▝NOT ▝▝STR$ NOT NOT NOT ▜STR$ COPY COPY DRAW © SAVE SAVE SAVE SAVE RETURN SAVE ? LIST LPRINT LIST RETURN ~?/ LIST LIST LIST © COPY ~ DRAW COPY RETURN POKE ,ZAT LIST SGN © FOR | DRAW COPY DRAW GO TO t>5VP5T=U,XUT POKE ,hVAL h`)d TO READ GO TO t:1 OR 1 AND ' COPY ,XATAN ,k IF @k REM nCODE t GO TO READ |t:6VAL 67$,XUTSGN ,l FORMAT lvt GO TO FOR AT ||:4FN 4,,XU BRIGHT SGN <>l CIRCLE lv| GO TO FOR AT l|>t CONTINUE tl| SAVE INVERSE DRAW TAN 4>l8|~| DRAW COPY DRAW l|>|(|~| SAVE COPY tTAN t>|8|vl DRAW OUT DRAW ll:|,~nt SAVE RETURN tTAN t4x4_vAT h POKE OUT ▘AT ,l:|,_ DRAW o DRAW t SAVE INPUT TVAL t4x4K RETURN u/h POKE MERGE FFN d2t,%_`d>= REM BIN T[Q]$(4ATN ' DRAW BIN AFd2t, REM fSGN dH LPRINT BIN [Q]$(# PLOT 5$ BIN @Fd:t1 PAUSE fdH DATA BIN T[Q]$( ~$ BIN JF[Q]l:t3 PAUSE ~ndH MOVE lT[U]4(# PAUSE b4"BIN J, DATA l>|7 PLOT jnnX OPEN #, CLOSE #AT 48::46 POKE KTAB GO TO l>|5~znn| MOVE TAB TAT v:|;l8=<6 DRAW ICODE lk NEXT vuTzw~n/ MERGE CODE TAT u COPY [ FOR l7 CLS <6 LOAD RETURN iCODE lj▜5FTh.v~_ RETURN INVERSE LOAD TAT 5VZ GO TO 4,> REM SCREEN$ } CAT l<:PEEK -T DRAW [K]AT f~UB INVERSE CAT TAT DRAW SAVE DRAW SAVE |~ COPY RETURN } DEF FN |< LIST LIST DRAW LIST ~~ PRINT IF INVERSE DEF FN |AT } INPUT | DRAW INVERSE INPUT |AT | INPUT | DRAW DRAW RETURN |AT | RETURN | DRAW DRAW RETURN |SGN | RETURN | DRAW COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY SAVE DRAW RETURN |SGN ^SCREEN$ TAB UUUUUUUT DRAW DRAW | DRAW COPY U^SCREEN$ INT ATTR ATTR RETURN SCREEN$ COPY GO TO DRAW DRAW |SGN ▝,d DRAW BRIGHT | DRAW SCREEN$ [B]*INKEY$POINT U$ GO TO |/ GO TO MERGE QUgYVATTR 4 BRIGHT /l COPY RETURN ?IN LET COPY READ LET INT ©} GO TO ll/ LOAD COPY =© LPRINT IN [T] LET RETURN j COPY =T CLOSE #/l RUN R> OUT ` OUT a LLIST IF ©} GO TO jlX REM ATTR !j LPRINT SCREEN$ [R] LLIST VATTR DRAW VERIFY Tl FORMAT [F]DU STR$ SCREEN$ EtJhP COPY COPY D@$$CHR$ DD LPRINT <@@$© RETURN $Bh@ PRINT _< &@$ RETURN <|SCREEN$ ATTR <SCREEN$ ▙*INKEY$© RETURN $ RETURN X RETURN [F]▙5g9SCREEN$ U4IN BORDER 9 RETURN COPY l▝[F]RND DIM RATTR CLOSE # COPY LIST LIST 8<= COPY COPY L}UUjSCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ FN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY LIST LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT USR |||~~~xxx>>>ttt~~~(((▖~~~▖ttt~~~" (((* [Q]tu{tUSR ((* COPY " RETURN RETURN / RETURN ttt RETURN / RETURN IN RETURN POKE POKE POKE (((1 FN DRAW DRAW DRAW GO TO GO TO GO TO ||| pTTT POKE POKE POKE 888[J] IF RETURN GO TO GO TO GO TO |5|5|5 COPY COPY COPY COPY COPY COPY !TAN TAN TAN |;|;|;UUUUUU|||vuvuvu RETURN SCREEN$ RETURN SCREEN$ RETURN SCREEN$ TTTSGN SGN SGN [ FOR [ FOR [ FOR AT AT AT |||5F5F5FUUU BRIGHT BRIGHT BRIGHT NEXT STEP R;;STR$ ![H] FOR !fs#r!{s#r!▞s#r!PEEK @ MERGE INK >ATN H LLIST INK ~ THEN © : NEW O~ NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O} NEW LEN O))| NEW g} NEW LPRINT TAN oa~ STEP INKEY$t LLIST # OVER LLIST STR$ NEW ©(# THEN w G~ STEP INKEY$t# RANDOMIZE VAL$ NEW ? AND G~ STEP INKEY$t CLS #[Q] INK !X' INK CLS <> INK w($ SAVE COPY AND 0 LPRINT =# INK <>▚ COPY SCREEN$ [F]SCREEN$ [F](hx ▜SCREEN$ [F]FN [Q][Q]▖ COPY SCREEN$ USCREEN$ U ▚TSCREEN$ TFN TFN `[C]TFN PFN P[Q]@[Q]@?IN ??©© RETURN LIST STR$ ▝@@TSCREEN$ @STR$ CHR$ *@▝STR$ USR USR ▘STR$ ?▝©NOT COPY >▘*U(▘FN ▝ LLIST /, + AND COPY RETURN RETURN DRAW SAVE >▝SCREEN$ (@▘Ph*▖ CLEAR IF RANDOMIZE IF SAVE PAUSE POKE LIST USR CONTINUE ▘ FORMAT USR DIM [H]▘x SAVE USR LIST ▗ RESTORE REM 0 POKE ▝T(}▜ COPY LIST USR FN [A]( CONTINUE ▚ SGN USR NEXT ▚ SAVE )0@▞ PAUSE PRINT PAUSE POKE READ READ STR$ STR$ INPUT FOR .COS DRAW DRAW SAVE t▜ CONTINUE LPRINT >= CLOSE #FN [E](9j▞E[K]25je REM MERGE [Q]NPEEK ~ RETURN ` INPUT OUT [P][P]xNOT ▝l8ACS PAUSE ▚FN Q[R]Q[T]C)USR ▝[Q][M]▘;▗[P][P]IN )0 RETURN CLEAR DRAW RANDOMIZE PAUSE POKE LPRINT [E](Pa ERASE ▞U COPY SCREEN$ T COPY <IN [I]`▗ SAVE SAVE POKE POKE 2▜ FORMAT [A][Q]@A▝EXP MOVE ▝`@▖ PRINT 24rdh DATA @▚T[R] COPY ©© BRIGHT ▘3 BORDER ▗>>|}x▝ LET 1 DIM ▝PINT p▖?0 j@©▝ IF ▘▝USR USR LPRINT ▘USR USR ~j▗Q[R]O LET SAVE LLIST ▘x<VAL ▖ PRINT SCREEN$ REM eUSR RESTORE SAVE =▘©?NOT ?>~ DRAW RANDOMIZE LET LLIST NOT TO : OVER ▚FN UFN Q[S]@0▜©INKEY$F▚M*@▜!A[T]<=<= CAT u?©~ RETURN CLEAR CLS RUN LOAD 1 INPUT PAUSE D0 RANDOMIZE *▘~n▞ PAUSE POKE CONTINUE LPRINT USR STR$ NOT <=AI PRINT REM MERGE [Q]@SIN D▖A▖i▝C POKE LN - z▝Cl8SGN ▖QFN QE[S]E8[A]▜QPOINT S[T]CINKEY$FUSR ▘▘y GO TO NOT SAVE RANDOMIZE RANDOMIZE NEXT NEXT RUN RUN LIST LIST LPRINT LLIST X[ CLOSE #3@@CODE O[O]ASN ▜ BORDER <=NOT #P[Q]Q<▞SCREEN$ E("1 CLOSE #(▘POINT Q@*[F]FN [A][Q] IF ▘ CAT OUT LET ▜ SAVE SAVE LET READ ▜ PLOT DZ▝>▘▖D9▚@USR LINE COPY ▖~ CLEAR IF SAVE LIST LLIST READ <! SAVE LIST CHR$ ▗H~ PAUSE ▘Q▘j9▚[K]5 PAUSE USR ▘PPIASN ▗ COPY COPY RUN BORDER USR ▜ BORDER COPY COPY CODE ▝A AND ▘@j DRAW r DRAW ▗[K]USR ▜ REM RESTORE REM DATA LINE CLOSE #>=J*U* ERASE ▝j▖Tz DRAW ;▘!USR ▝$ PLOT "▖[R]AC▜? DRAW RANDOMIZE PAUSE OR i▚9@ LINE [E]FN T(@▝EXP ▖?~~ DRAW DRAW IF LIST PAUSE <▝ LINE ▖z SAVE C@▚©`` LINE USR COPY @BIN ▜ RETURN RETURN STR$ STR$ ▜CHR$ ::{<#USR [B] RESTORE SCREEN$ >= CLOSE # COPY *U [P]© COPY LPRINT FORMAT DATA ▚ COPY COPY DRAW {VAL {USR 0`jeUSR @ DATA SAVE SAVE DRAW |<<==y CLS NEXT BORDER STR$ {SIN sUSR ▜ CLEAR [M] RANDOMIZE Q[U]STR$ ~ RETURN RETURN INPUT LOAD BORDER BORDER NOT NOT A{ PAUSE qUSR G[U]LMUSR [A]D><<yq LET READ READ NOT NOT x|2l▝d!USR ©©p LIST LPRINT LPRINT COPY RETURN USR STR$ STR$ USR DRAW C PLOT ||0▖*[E]FN [B]POINT Q#S@STR$ <=t▖STR$ LLIST NEXT COPY © RANDOMIZE z0|CHR$ COPY USR USR SCREEN$ ~[H] COPY POINT LLIST PRINT STR$ )▞ MERGE <> MERGE <> MERGE POINT U)UPOINT UPOINT (h ▗ RESTORE ,▟▝SCREEN$ [F]SCREEN$ [F]SCREEN$ [F]SCREEN$ [F][F]<>▝[A] ▝[E]▝$▝[E]$[B][A]▗7 RETURN ▗UU OR <= THEN ▗▝EEA SAVE ▝UD? RETURN @@▛DPV▗TUZ▚ Uh▝▟▚("UUx@U[A]ASN ▚AEEx[F]▝"[L]▞▖pUSR ATTR PPTT[Q]TUUVAL$ WUQU[S]Q[T]S[S]: OUT PAUSE ©IN ]VAL$ u.▝POINT ▘[Q]PALEN C▝U]][K] INVERSE UFN MERGE REM COPY INPUT BRIGHT PEEK OUT CONTINUE POKE U LOAD ©SCREEN$ CLEAR IF _ CONTINUE COPY BEEP CLS CLEAR FOR PRINT ATTR w COPY w REM ] LINE MERGE OR BIN !@▘TFN LPRINT INKEY$▖q GO TO PRINT DIM Q @(P LPRINT FORMAT FORMAT LPRINT USR ▖t IF PRINT CONTINUE [U]@ LPRINT [E]▝▗[T]GF LIST A[B]P[Q]A`?8>???STR$ [J]x</^Wo©©~8*39rfDLHHP.HUSR VAL$ n RETURN CHR$ FORMAT LIST ▗ COPY © LINE [G] LIST SAVE [I]IN BEEP CIRCLE , JU>=[B] Z▝TSIN =▘0 LPRINT LIST p DRAW ~a RESTORE ▝G|?+PEEK *▗SCREEN$ TY SAVE { NOT ▚USR LPRINT DRAW DRAW RETURN a▞ SAVE USR ▖T▞T(e LINE MERGE REM *▝.[S]@USR ▚USR [M]@<X)P((5!$(P(P @ P BIN ▝J[N] OVER LLIST .<~ RETURN ~.▝bqpaCOS [R]STR$ LLIST LPRINT LPRINT `[Q]USR a▘!! CLOSE #zUSR ▚@#/[A]`PI▝@H[P]>[N]n5[K]EG▚<=PI<=<=E'[H]NOT LLIST PAUSE a NEXT s[T]SS{3@▝▖ NEW COPY BEEP SCREEN$ WFN D[Q]N[K][Q]PFN CLOSE # CONTINUE CLOSE # CONTINUE POKE IF | IF u REM PRINT CONTINUE LPRINT ▗MJ@▝T6▝v DRAW REM SGN ^SCREEN$ FN DEF FN [L]▝[Q] LINE ▝ RETURN pCUSR ▝"vSTR$ N[P] OVER INVERSE '5M CAT ▘@Q RETURN ERASE (USR CLOSE #@U Vh▖▘▝P@0@ SAVE BINKEY$▝@D▝ COPY s MOVE ▗SCREEN$ MERGE REM dpT~▝@▝ COPY SCREEN$ xt80[T]/USR ▝A[Q]▝U▖[F]EABBLL▚▗INKEY$ CLEAR R@XP @@L▜?WUSR ©_~|xp%$▛?©FN UFN C[Q]@ 3>=[C]/© COPY BEEP REM BEEP PEEK INVERSE LPRINT RESTORE USR OR F▝▝? PRINT INT Q/@s"▖ RETURN DRAW CONTINUE @[Q]P@v▘DH▘_USR SAVE LET LPRINT USR LPRINT ▝>=▚▝ DUSR ▛)17yUINT © CLS CLEAR CONTINUE POKE N[B]▞+U RETURN PRINT SCREEN$ | SAVE ▘USR MOVE DEF FN AW+▚▘[F]*AUSR n RANDOMIZE [G]`@VAL$ IF ▙"UFN P LPRINT QP FORMAT ▝P[C]QE* MERGE REM CLEAR RETURN ] REM 525>@<=▖F▚▚▚▘F>=F▚FINKEY$V▗[K]1YUSR ▝As POKE "▘*&[D] LINE 0▝";USR ▗HUUSR ▝Tt▝▟▝TUSR ▝P ▘▝U[O]▜[T]FINKEY$GAUSR ▖T STOP ▝▝EINT ▝▚TP H▝▝"▘ NOT ▝ COPY {@▝▘R> CLOSE #[O]▝Ad▘ LIST PAUSE ▗UUUSR ▚!AACHR$ ▝BIN QQ STR$ ▝▗▝ GO TO ▝[B]▝USR ▗[F][F] LIST ▗USR ▚[F]▝▖▘▘[E]E[Q]`▘ CIRCLE 2▝▗ DATA ▝ LINE RNDPEEK Q RETURN ▝ DRAW ▝ COPY [Q]T( CONTINUE SCREEN$ T QAQU(T FLASH U*"[A] DEF FN LINE ▝ DEF FN ▝D STOP U<F[A]DD"A"**E[Q] NEW ▜T[Q]T▘[[Q]c|Tt RETURN _/WWU[A]QQ[Q] COPY ATTR © COPY ©? MERGE *U COPY COPY FOR INK >[D][Q]TU+*GjU/}*]SCREEN$ W[J]ECHR$ E"E[E]d[M]FN U▘ COPY p SAVE DRAW DRAW POKE LN DRAW FN U▙ COPY LOAD RETURN RETURN UPEEK CLEAR ▙ OUT IN BRIGHT IN MERGE PEEK CLEAR COPY COPY IN POINT COPY } CLS COPY COPY BEEP SQR ?uIN _[K]_u[S]O IF ][S] BEEP sWINKEY$U COPY TFN PVAL PLN CLOSE #*TA[R]SR[S]B[S]D[U]D▗▗L▜▖FN HFN >=FN ▝H▟▖>=▖H FORMAT [A] FORMAT [A]P[A]T[I] MERGE [I][F][K] COPY $O__USR IN ▘[R]/n▘ SAVE DRAW ASN ▜©?CATN CIRCLE ▛08>[N]y/INKEY$ INPUT ▘ COPY AFN ▝USR (34 DIM nI COPY ▖©©▚▞ LPRINT pO&gdCHR$ LLIST LIST SAVE 1|▚?USR [B]▝ DRAW [C]▝©INKEY$SQR CLEAR COPY ©STR$ ▘ COPY @0f{2H[A]^PUSR LIST SAVE I▖ RETURN LET REM PRINT ATTR ©IN RUN COPY l[B]▝ DATA STR$ LPRINT a LIST LIST LET LIST LET LIST p0 CLS [A]`STR$ STOP LLIST STOP LLIST STOP LET STOP PRINT STOP u"5PEEK SIN ▚P MERGE ASN ▘ATTR MERGE W▚OFN ▗X▝IN Z[Q] RETURN CLEAR IF CLEAR SAVE CLEAR SAVE } SAVE PRINT SAVE PRINT CONTINUE CLOSE #USR CLOSE #USR CLOSE #USR T LIST P @PINT }$▘}PEEK [K][F] COPY [D]>©©u INPUT W CLS PRINT IF PRINT IF POKE CONTINUE POKE FN P[Q]r4▞ INK ▝ VERIFY ▖D[Q]|SQR CLEAR CLS }INT GO TO [D] COPY [F] MERGE REM INVERSE FOR UCEXP CODE WIN W/1LEN VERIFY ▜TEXP ^CODE _IN }[I]T*[H]USR DATA DRAW RETURN INPUT PLOT COPY LET COPY RUN BEEP o COPY IN O/8SIN [B]*[K]▘ COPY BEEP STR$ EdJ OVER ▝[A]pxh CIRCLE x CIRCLE LN ]VAL$ VPEEK ~ INPUT _IN ©VAL$ COPY COPY _P<:5INT VTAB GO TO ▘U NEW CLOSE #X>=▖USR @ [Q]xF▝ PAPER ▗▝INKEY$ @.0 PAUSE IF [R] VERIFY 8@w FLASH z▝ LET ▝ COPY ▖ COPY wPEEK oSIN CIRCLE COPY LINE ERASE ▘STR$ ▘USR ▗.▟U&TU{▘ PLOT ATTR ▘P@[F]IN ~ DRAW |x@`A[Q]A[Q]T FOR SPIIN ©?©?▘©© LIST 0~INT ▚G_?_,t▝[A]|@ DRAW SAVE USR g▚A_CODE ? CIRCLE ▚ DRAW SAVE LIST LPRINT STR$ [Q]:▗7 LIST ▘ COPY COPY '/▝[G]▘EXP @8 LPRINT LPRINT BIN LN ?_ATTR COPY COPY } PAUSE ▚ RETURN CLEAR SAVE RESTORE LPRINT OR HR^[C] COPY ?IN CLEAR COPY CLEAR RETURN INVERSE SAVE CLEAR LIST MERGE LPRINT MERGE LPRINT ▛8 SAVE SAVE LIST LIST FORMAT LPRINT LPRINT ` LPRINT LPRINT 'SGN ▝T&[A]▘▜ COPY RANDOMIZE CONTINUE FORMAT [Q] DATA ▝ SAVE [A]36}}mEm▞e??> POKE X▝ COPY / LIST 1▙/F GO SUB x5l OVER PEEK PEEK ~~ OR LPRINT OUT LEN VAL VAL ATN LEN LEN OUT LPRINT SCREEN$ ©IN _CODE G FLASH <> PRINT v(USR TO CONTINUE ▟? NEW BORDER © LPRINT [P]© COPY INPUT BIN STR$ MERGE GO SUB y COPY COPY LLIST ^COS 33USR COS ▘[O]!V▘ RETURN DRAW ▜ COPY [P]fU[F] RESTORE ?d▗ COPY [J]▚ LIST ©3s COPY : DRAW NEXT PLOT PLOT NEXT SAVE LET W COPY COPY ▝TAB USR [XY OUT USR COPY COPY kkATTR +N▞ COPY COPY BORDER INPUT bzc COPY SAVE STR$ ▘ COPY INPUT c[G] LPRINT LN IN y[I] RESTORE INVERSE ^ OUT ooh LINE COPY COPY IN [J]USR INK * PAPER ▞ CLEAR LINE RND[G]COS _▙| LIST CONTINUE ▘ COPY (<;'[F] LPRINT [A][I] DRAW t[S]ACS OUT OUT GO SUB CONTINUE GO SUB RUN RUN vTAN ACS ATN ATN TAN TAN NOT ▞ CAT THEN [S] OVER ,/8 LIST `0)USR ▝Q BEEP STR$ ▝STR$ STR$ AUSR STR$ OPEN #▝ COPY COPY F COPY F COPY F COPY F MERGE F OVER ▘EE0H#STR$ E* ` BIN E0x?x x_▝x@ MOVE E MERGE x[P]0?▝E1 OPEN #E9? OPEN #EA` ERASE Ex x`[Q]921>riIN y; OVER NEXT CODE OPEN # RETURN !@6#| RETURN [ SAVE > STEP ![R]~ RETURN NEXT (E BEEP # RUN INDIANA JONES & THE LAST CRUSADEINFINITE LIVES (Y/N)? NEXT !H~ACS w#| RETURN P PLOT >© FLASH RETURN NEW (> OUT FLASH RETURN NEW LIST CODE 2MPEEK NEXT NOT PEEK MAXSOFT'1995NOT R LPRINT RETURN y2P LPRINT > MERGE Y CLEAR COPY GO SUB yIN GO SUB Y MOVE <> RESTORE OR MERGE PRINT INVERSE RESTORE CLEAR RESTORE : LPRINT RETURN COPY STEP REM LLIST . RETURN RETURN STEP ▞ STOP % RETURN CLEAR 9 LPRINT 9 LPRINT 9 LPRINT 9 LPRINT STEP [N] LPRINT CLEAR LLIST INVERSE LLIST LET MOVE STR$ LLIST <>: LPRINT 2Q LPRINT O> COPY 2 LPRINT y CLEAR !> PAUSE RETURN LINE REM LPRINT CLEAR !6 PAUSE RETURN LINE REM LPRINT CLEAR !. PAUSE RETURN LINE REM LPRINT RETURN > CLEAR 2 LPRINT NOT 1 LLIST > RETURN 2 LPRINT y RETURN FORMAT TO FOR &i))) RESTORE CLEAR LLIST NOT d GO TO STEP 1 LLIST INVERSE ! LPRINT CLEAR n CLEAR f" LPRINT " LPRINT STEP p LLIST INVERSE # CLEAR n CLEAR f" STEP p LLIST INVERSE # CLEAR n CLEAR f" LPRINT " LPRINT STEP p LLIST > CLEAR N STEP 9 LPRINT >CODE 2 LPRINT OR x RETURN xSTR$ x RETURN FOR 9 LPRINT ! LPRINT LPRINT &6 GO SUB VAL INVERSE ! LPRINT > INVERSE w INVERSE w INVERSE w<>* LPRINT INVERSE ~_~ RETURN COPY LINE SQR LLIST RETURN [F] LINE STEP LLIST RETURN [E] #~ INVERSE w# INVERSE ~ AND INVERSE w INVERSE wNOT p LLIST RETURN [N] + INVERSE 5( INVERSE ~ INVERSE wNOT p LLIST #~ RETURN COPY ( INVERSE 4NOT p LLIST STEP 1 LLIST >2 LPRINT :Q LPRINT RETURN USR 2 LPRINT <>#~ INVERSE w#~ INVERSE w#~ INVERSE w#~ INVERSE w INVERSE ~ AND INVERSE w<>CODE 2 LPRINT * LPRINT " LPRINT INVERSE ! LPRINT STEP # STOP >2 LPRINT * INVERSE # STEP # STOP >2 LPRINT * LPRINT " LPRINT INVERSE # STEP # STOP : LPRINT PIUSR NOT ▞ STOP INVERSE 5USR INVERSE n INVERSE f INVERSE ^>INKEY$($ INVERSE 4>[E]PEEK INVERSE 6 INVERSE 5CHR$ ' STOP STEP p LLIST : LPRINT PIUSR NOT ' STOP ~ INVERSE w$NOT ' STOP INVERSE ~ AND INVERSE w INVERSE 6 INVERSE ~▚ VERIFY THEN '_#~ THEN ?O▝▝ INVERSE w![L] GO TO ~ INVERSE w#~ INVERSE w!<> INVERSE ! LPRINT CODE 2 LPRINT STEP FN STOP INVERSE #>2 LPRINT STEP FN STOP INVERSE #>2 LPRINT NOT FN STOP INVERSE ~O INVERSE n$ THEN ABS `))j FOR ~2( READ ++^#V FOR ~ RETURN COPY INVERSE 6NOT FN STOP O: LPRINT AND Gy VERIFY 0CODE Ox STEP 9 LPRINT :( READ = INVERSE PEEK ( INVERSE 4<ON INVERSE ~! RETURN (" INVERSE n INVERSE f! THEN y(PI GO SUB BM: LPRINT THEN ' STEP 9 LPRINT L: LPRINT THEN '<NOT 9 LPRINT : READ ▝O>NOT 9 LPRINT COPY RETURN RETURN RETURN RETURN COPY COPY COPY COPY COPY COPY RETURN >=>=>=>=>=>=>= PLOT PLOT PLOT PLOT PLOT [M]FN READ FN ddddddd[M]ddddddddd[M] RETURN RETURN RETURN RETURN >=>=>=[M]>=>=>= IF CLS DRAW COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY DRAW COPY COPY COPY COPY COPY RETURN RETURN RETURN RETURN IF CLS DRAW PLOT PLOT PLOT PLOT PLOT PLOT PLOT PLOT CLS CLS CLS CLS CLS CLS CLS CLS CLS CLS CLS PLOT PLOT PLOT PLOT PLOT PLOT PPPPPPPPPPPPF<2( COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY 0d[M]d[M]d[M]d[M]d[M]d[M]<<22<<FFPPPPF<2(0d[M]d[M]d[M]d[M]d[M]d[M]) READ 9 READ Y READ k READ REM DIM OVER NEW BORDER SCREEN$ DIM CONTINUE p NEW 7: CONTINUE ( TO BORDER @^ BORDER 7▛ READ [L] READ COS READ NOT READ NEXT READ CLS READ DATA DATA DATA K DATA K RESTORE n LIST RESTORE @77▛77▞>▖>▟/▙; W; [A]W>[B]W=[C]W; [D]W; [G]W7[H]W7[I]W:P LPRINT CLEAR INKEY$ CLEAR ACS O> STEP 9 LPRINT CLEAR ^ INVERSE ! LPRINT INVERSE CLEAR ~ INVERSE w$ INVERSE r CLEAR ~ INVERSE w CLEAR ~ INVERSE w!> CLEAR NNOT 9 LPRINT ) BORDER <[L]s FOR k PAUSE VAL$ N POKE [O]MEXP u5 RANDOMIZE USR W' IF CAT PI▝]; DRAW LPRINT OR AT [E]}hS@. RETURN LIST STOP VERIFY LINE PEEK TAN SCREEN$ [Q][H]▜©xqke_ZUPLGC@<9520-*(&$" 0@)@5@020 0@5@42+42+42+42()0@)@5@020 0@5@42+42+42+42(+)@4@)@$@)@4@+'@+3@+)+@0@[E][F][ GO SUB ▝ [E] [E][F] NEW GO SUB [F][K] INPUT COPY ▘457<(2454535251505/5.5-5,5+5579A(9;<>@457<(>@A077@>7@>7@>7@>457<(2454535251505/5.5-5,5+5579A(9;<>@457<(>@A077@>7@>7@>7@>47[E]502547@ 475025320 47502547@ >@A:9:A:9:A?>?8<<A:9:A:9:A?>?8<<A:9:A:9:A?>?878?878??AC@H<<<<< [E][F]: LOAD [F] LIST COPY D<8<D<8<D<8?@,[E][F] DEF FN LIST COPY "$&')+,.0235 [E][F] LIST LIST COPY [E][F]$: LET COPY ▗"$&'+)+@044444[E][F]▗ LET COPY [E][F]VAL$ LET COPY ▚:<>?A:9:A:9:A?>?878?878??AC@H<<<<<[E][F] DATA LET COPY FN LET OVER LET ( PAUSE 8 REM LIST 4 LET ~ LET 8 LLIST GO SUB / LOAD NOT LIST 8CODE FLASH RETURN / NEW RUN !XT]6 COPY GO SUB VAL !@@ COPY u GO SUB VAL ! LET P OR MERGE GO SUB VAL MOVE STR$ NEXT READ MOVE FOR STR$ RESTORE Z GO SUB VAL ! LOAD OR THEN THEN THEN THEN THEN THEN THEN THEN w,STR$ LLIST & INPUT y THEN THEN + THEN THEN + THEN THEN + THEN THEN +isy▜▜▜▜os INVERSE & LOAD GO SUB INPUT CODE o~= PRINT <> COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY ZASN jSCREEN$ L[F]RVMmPI[ACS MERGE POINT THEN 6AT DIM RNDm[B]+ PAPER PRINT FOR [F]J MOVE Lb)5 COPY BEEP ~dmSCREEN$ [PEEK INT ERASE THEN [P]v[F] RUN FLASH ^jASN *TAN TAN MERGE LN RUN COPY COPY INKEY$© DRAW ▝DATTR CODE V MOVE _ PRINT PRINT U((|[D] BRIGHT SAVE SAVE s DRAW RANDOMIZE Q CLEAR MERGE IN LPRINT NOT COPY [A]} RUN INVERSE GO TO IF }[R] COPY NEXT RETURN =s CLEAR DRAW * MOVE ?x GO TO REM AT ? COPY TO CLEAR CAT INK LLIST POKE CLEAR C COPY COPY <s▞ INVERSE )ATN k COPY DIM RESTORE OIN COPY CONTINUE RANDOMIZE [P] OPEN # READ DIM CLEAR USR >s▝ OR )U GO SUB T COPY DIM NEXT IN COPY LET IF ?NOT RUN READ CLEAR <> NEXT DATA SQR LLIST COPY COPY READ NEXT ??NOT LET LIST ©<= COPY <=EXP ;G~ BORDER LET umY MERGE COPY COPY LIST > NEXT LIST RUN ▜ COPY CAT 9<>rG© BORDER LIST ;SCREEN$ ASN REM COPY DRAW SAVE ~ NEXT LET BORDER COPY [O]yD<uGw BORDER zC[K] COPY LIST SAVE | NEXT READ <=[P] COPY SGN zX|r^w DEF FN CLS *] NEW COPY LIST SAVE DRAW P RUN <=<=[P] COPY |yxp NEXT CAT READ NEXT UPOINT [K][P] LPRINT SAVE CLS A RUN CAT ▜PEEK RETURN COPY IF P SAVE 8< READ CAT LLIST NEW SCREEN$ [F]ACS ? STOP CLEAR IF LEN LOAD OUT COPY < CLEAR COPY CLS PAUSE ? SAVE LPRINT 5u VERIFY © DATA COPY POKE >[T] LOAD IN COPY | CLS COPY IF Q LIST LIST !?JPOINT [S]©>= COPY POKE =C OUT © COPY x RUN USR IF [B] GO TO @ASN GVAL$ 0 COPY CIRCLE ? COPY LPRINT } OVER DRAW p LET # REM COPY K GO SUB MERGE LPRINT COPY [Q]? COPY LPRINT }OABS SAVE 8G STEP u?SGN 9FN ! COPY [A]© COPY LPRINT IF ?; PAUSE @X CIRCLE COPY LIST #COS [R] COPY `© COPY USR SAVE RETURN w LPRINT [I]CODE [P] COPY ▟UVIN USR [▗a COPY P COPY COPY MOVE COPY DRAW USR AIN COPY r[C]▞nm FLASH C RETURN CLEAR COPY ▝ COPY SAVE A<[O]? RETURN L GO TO LPRINT MOVE CLOSE #NOT RETURN A CLEAR COPY COPY LIST HBQ ? CLEAR 3rWATTR ▜ CLEAR A RANDOMIZE COPY COPY STR$ D▝L PAUSE JPEEK U[A] DRAW RANDOMIZE COPY # DRAW 0([D]TAN TAB POINT PI CLEAR LIST COPY B%@ THEN ~[Q]"Pc BEEP [J] CLS LIST RETURN @[G])Z`4 BEEP FORMAT A$$F)[S] IF LPRINT LLIST @DW[Q] ] MERGE LINE IF LPRINT @ COPY COPY ▞ COPY COPY COPY COPY ASN SAVE FORMAT j+[C] LIST GO TO dPOINT REM l`2 MERGE MERGE VERIFY ? PAUSE USR ERASE ▞ @[A]JSTR$ TAB POINT @LN SCREEN$ +[U]? POKE ?A▘▞; INPUT PAPER {k▗| MERGE MERGE ▗? POKE 0[Q]HH[B]USR <>ATTR INK T<>xSCREEN$ )AT © LPRINT g@D[R]USR 3 OVER MERGE YINT (: MERGE BEEP ▖© RETURN ABSTR$ 6nINT ABS CLEAR L[U]SCREEN$ POINT VAL COPY RETURN P !3[I];▙ VERIFY MERGE PEEK ▖A, MERGE WUSR COPY RETURN $@[B]}|1 OVER ASN ABS GO SUB /T PAPER ATTR OUT COPY RETURN <>iH▗P[R]_ GO TO 4l LINE j~ATTR RNDU[P] COPY RETURN @! ▝Md6l BEEP ATTR ©FJATTR IN COPY SAVE $b@@▘▝3[I] BRIGHT TAB V|(B[P]1UIN COPY LPRINT ▞$▗ [F]8 REM FOR SGN !M LINE ATTR COPY COPY "A[U]▞ SAVE PAPER [F]SGN @[A]U COPY LIST JL[G]A ▘▝ LIST CODE ASN >=[Q] H▜ SAVE P[B] P [B]USR FORMAT SCREEN$ CIRCLE USR ▖▝ COPY COPY COPY COPY COPY COPY ▝ COPY ▝ RETURN POINT IN WPOINT `L▝[F][F] ERASE ATN ▟▞▞[B]ASN FLASH [M] LLIST ▝▝[R]< LIST CODE /u@▝[B][B] LPRINT ▝/| FORMAT PAPER PAUSE POINT POINT ▝4▗ SAVE LOAD tUSR POINT ▝▝[D]*[M] SAVE SCREEN$ USR " LPRINT STR$ [B][B](▝4[U]x CAT [Q] GO TO ▞[R][R]([B]* LIST INVERSE @ CLS @[R]▝▝,[R]4[U]USR IF !/NOT UUU▝▝,▝* DATA @INT ▝SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ [B][B]▝<AT T▛ CLEAR CLEAR CLEAR CLEAR CLEAR CLEAR ▝▝ CONTINUE RND>[M]USR [B] CLS CLS CLS CLS CLS CLS [B][B]0▞; GO TO LPRINT ▝ RUN RUN RUN RUN RUN RUN ▝▝USR [B][Q] LIST [B]SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ SCREEN$ ▝▝ COPY @@@ COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFGGFGGGGFFFFFFFFFFFFFFFFFFFFFFFFFGGFGGGGFFFFFFFFFFFFFFEEEEEEFDFGGGFGGGGFFFFFFFFFFFFFFFDDDDDDFDFGGGFGGGGFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFGGFGGGGFFFFFFFFFFFFFFFFFFFGGFGGGGFFFFFFFFFEEEEEEFFGGGFGGGGFFFFFFFFFDDDDDDFFGGGFGGGGFFFFFFFF<vv~v<x8888||>|p~|vv>~p|f<<p|vv<~<v<vv<<nn>vvv|v|v~|<rppr<|vvvv|>p|pp>>p|ppp<rpvr<vv~vvv|8888|~/8vvx~vvppppp~4~vvvv<vvvvv<vvvv<<vv|pp>vv>|vv||v<v8n<|88888vvvvv<vvvv<vvvv~4v4<vvvv>~<~~x~~8888880`>><f REM NJJ<# LIST @B LIST LPRINT USR LPRINT GO TO CLEAR RETURN [Q] OVER [A]VAL$ FORMAT ?^ FORMAT T. FORMAT 9^ FORMAT . FORMAT ,T[A]0=[Q]FN -USR >= CLOSE # CONTINUE USR LPRINT % LPRINT W LPRINT [T]USR Q LPRINT REM USR OPEN # LPRINT [R] LPRINT NOT LPRINT O LPRINT INPUT p RUN LIST r`8 LIST 80 SAVE USR SAVE RETURN SAVE !x LIST LPRINT p?=`=`=`90sVAL }VAL yVAL 4VAL =08[Q] ,=h LPRINT h/ll CONTINUE LIST LIST LIST LIST FORMAT LPRINT FORMAT LPRINT FORMAT [Q]USR [Q]@/USR /@ LPRINT LIST SAVE !x LIST LPRINT pUSR [Q][Q]^[Q][O] FORMAT V FORMAT ▙PO[A]CODE USR GUSR ▞ LPRINT a LPRINT DATA O[S]CBd CONTINUE CONTINUE CLOSE # LINE [G]VAL$ W/CODE ]?~| IF POKE |LN USR SAVE USR LIST LPRINT CIRCLE SAVE RETURN USR SAVE !x LIST LPRINT p[Q]_USR [O] FORMAT _PPO[A]WUSR [B] LIST SGN l LPRINT FORMAT ▝[Q]USR @USR [A]FN [E]=,>^=.>_?zt SAVE LIST LPRINT LPRINT USR 8?8USR USR SAVE !x LIST LPRINT p^~z;@z@y@r@}@.@INKEY$ SIN LIST [A] LPRINT P&FN ?.@ .@~[Q]~@ PLOT [Q] GO SUB @ PAPER LIST LET LPRINT STOP LIST STR$ LPRINT ▘p3▝ FORMAT SAVE ~ COPY SAVE !x LIST LPRINT p=?@=`=`90sVAL }VAL yVAL 4VAL =08[Q] pu[Q] LPRINT LPRINT 8 LIST LIST ) LIST LIST LIST LIST LPRINT USR [Q]USR [Q]`USR USR USR >9`©USR LIST SAVE !x LIST LPRINT p`=h}h RANDOMIZE t READ tv POKE REM POKE PLOT POKE NEW LLIST TAN READ ▚ FOR [K]E PAPER ▖ CIRCLE BIN USR ABS @A~▘ RETURN ©IN _-▜/>@>USR xUSR / LPRINT | LPRINT [M]USR @ SAVE SAVE RETURN SAVE #USR SAVE !x LIST LPRINT p> RETURN @w` CLS ` BORDER `Oh/h/`c0`xqUSR 8q FORMAT PX[Q] h@ CIRCLE DATA OVER INPUT *?©{[L]© INPUT BRIGHT SAVE LIST [Q] LPRINT USR 8?USR USR @ LPRINT LIST DRAW [A]8pp©d COPY t COPY v[vRNDvl GO TO ▖LN 7 PRINT x7zt1g DRAW gl^>IN ?W~/} REM / POKE SAVE @ LIST FORMAT USR LPRINT USR LPRINT USR USR USR USR USR USR LPRINT [Q]USR LPRINT USR ` LPRINT >©| RETURN ` LIST USR ?USR />[Q]©VAL RETURN CIRCLE DRAW CIRCLE CHR$ PAPER RND PAPER LINE [K]RNDSIN THEN ACS @r LPRINT TO DRAW I RETURN P PLOT IF _CODE ? OUT /+USR >USR USR :USR | LPRINT ~ LPRINT t LPRINT CONTINUE LPRINT POKE LPRINT SAVE p LPRINT LPRINT LIST LIST LIST LIST LPRINT LN USR x LPRINT USR ?LN ©~ RETURN USR RETURN ;dh[A]SGN USR SAVE USR p LPRINT 8 CLOSE #INT >=^ FORMAT [G] INK USR . INK REM P REM [Q]- CONTINUE @] CONTINUE = CIRCLE x COPY COPY " COPY kUSR MERGE USR [Q](USR LPRINT * LPRINT 0ASN FORMAT s LINE SAVE g CLEAR 8o RETURN SAVE kSGN f`HN`<pp``(▖7 CLOSE #+[I]hh8g POKE 0T:FN ]x/ SAVE LIST CONTINUE POKE CONTINUE POKE SAVE ! DRAW SAVE DRAW SGN TFN ([E]88VAL (8LN 80USR USR Ph7oFN WTAN FORMAT 2 CIRCLE t CAT STOP LPRINT CONTINUE jASN V^ IF / POKE _ SAVE ? POKE SAVE / POKE CONTINUE LIST C SAVE @ LIST / SAVE x*FN P*(P-(p[Q]pp 888 LPRINT 3VAL 008p LPRINT />=P!VZ GO TO 7 IF _ POKE / REM CLOSE #/ SAVE DRAW SAVE C POKE @ LIST / SAVE SAVE +x(TT(xxx(VAL @0p` LPRINT 7VAL 008p LPRINT />=PSCREEN$ (t POKE IN SAVE _ POKE / CONTINUE CLOSE #/ SAVE LIST LIST C SAVE @ LIST x SAVE P(ppp@0800?>1 SAVE 0 STR$ LPRINT LPRINT `` LIST (ABS VAL OUT OUT CLEAR p> COPY POKE ~ COPY h|v COPY (~IN @©USR COPY USR {8[Q]H RETURN USR ©@ RETURN @ CLEAR ©?USR USR LPRINT G LPRINT [S] LIST OR SAVE ▘ SAVE x? SAVE PLOT SAVE CONTINUE SAVE Pp[Q] SAVE 9@ LIST lLN `©USR ~([I]CHR$ FOR gUSR IN ~ POKE GO TO ERASE SCREEN$ CSQR CLS {y NEW ZVAL [ BRIGHT +/ CONTINUE BIN CONTINUE LPRINT p LIST p LIST p LIST 0p< LIST LPRINT ` FORMAT LIST LIST p LIST xUSR LPRINT ©^|8 BRIGHT @[Q]?}FN RANDOMIZE TAN PRINT TAN DIM TAN CASN USR ▜ASN LIST ▛m`<=hSTR$ LPRINT >=1 LIST { SAVE k FORMAT >=#d CONTINUE DATA PAUSE POKE b PRINT qw READ } MERGE RETURN ATTR PLOT CIRCLE 9[Q]} FORMAT ~USR USR USR ` SAVE DRAW ` LIST USR ?USR />n[Q] FORMAT USR > CLOSE #| PAPER IF PAPER POKE PAPER [R] PAPER LPRINT NOT PAPER SAVE OR ACS VAL READ TAN USR LPRINT LIST DATA [I] SAVE = DRAW 5 CONTINUE DATA SIN POKE z PRINT [A] CLS IN y= COPY CLS s OUT LET kSCREEN$ ATTR UUSUSR !@USR USR USR USR LPRINT USR [Q] LIST 0 DRAW RETURN USR ▖ RETURN vC▚BIN SGN SAVE pLN 7{P{h FLASH hj0ihYP PAPER [Q] LIST 03 POKE # SAVE USR O IF DRAW ~[M]~~ CLEAR =zn DRAW 7 SAVE . POKE CONTINUE + LIST LPRINT USR USR @USR @ LPRINT { DRAW LPRINT RETURN SAVE DRAW @USR 00USR |▘CHR$ CLEAR SGN USR RANDOMIZE LPRINT p LPRINT 8@z INK APEEK IN CAT CODE VERIFY [P] PLOT DRAW !TT/ LIST LIST LPRINT ,- LPRINT - LIST a LPRINT {VAL ?LN BRIGHT /zSGN CLEAR /z/ POKE .xp, CONTINUE LIST [Q]@?USR [Q] NEW USR p < LIST ? SAVE `USR 0 COPY STR$ LLIST ©@ ^|8[M]USR =^2 OUT MOVE x OUT FOR VAL STEP IN LPRINT NOT ABS LPRINT LN _4:[Q]=P?[Q] LPRINT FORMAT FORMAT CIRCLE [I]?FN _/©, CLEAR ^b© DRAW /xTAN SAVE FORMAT [Q]-©©<@|USR | LIST > SAVE < LIST LPRINT 0@▝USR s SAVE D IF SCREEN$ COPY 8 RANDOMIZE POKE DRAW STOP CLEAR `` LIST STR$ © DRAW USR POKE SQR PRINT PEEK PLOT U COPY [N]wTAB USR q~P& RETURN &PEEK ~ RETURN OUT AND CODE CAT CODE K&[H]U~USR ACS @ DRAW FORMAT LPRINT nUSR s8 LPRINT > LPRINT ` SAVE DRAW 0x LPRINT USR `>©8 RETURN SGN PRINT SGN [R]SGN THEN ABS OR ABS ▛[R]@▚ LIST r@/©/©QsUSR !u LPRINT THEN LIST yx SAVE LN SGN |x8ABS SAVE / LIST yVAL SQR LPRINT 3Q LPRINT > LPRINT ©R8USR LIST SAVE @[A]USR a[Q]" LPRINT { RUN 9 NEW fINT B=h}l CLEAR d RANDOMIZE vu2 THEN COS [F][T]▛[I][G]b[P]USR 7SQR [Q]8© FORMAT ^© LIST " GO SUB POKE @ OPEN # RETURN LLIST }< LPRINT PEEK [O]USR iUSR <p@ LPRINT PLOT ACS f880USR RETURN SGN SAVE p8 PRINT PLOT USR PEEK USR VERIFY FORMAT . CIRCLE V CIRCLE CIRCLE CONTINUE ▜Tr! RANDOMIZE LPRINT OUT LIST CODE p CLOSE # LPRINT ▝ LPRINT BIN USR READ AND OPEN # RESTORE POINT REM ~ PRINT # RETURN LIST 1{ INPUT 0/ LOAD USR G LPRINT COPY COPY DRAW COPY LIST ? SAVE ? LIST ? POKE ? DRAW ? LPRINT ©USR ?>= CONTINUE SAVE LIST ? LPRINT ? LPRINT ???▙ DEF FN RETURN LOAD ▜▝NOT ▝▝STR$ STR$ LLIST STR$ ▝ COPY COPY DRAW © SAVE SAVE SAVE SAVE DRAW SAVE ? LIST ? LPRINT LPRINT LPRINT ? LPRINT ? LPRINT LPRINT SAVE SAVE SAVE SAVE LIST LIST LIST <= LPRINT ▜ LLIST LLIST USR STR$ LPRINT USR LLIST COPY COPY RETURN COPY SAVE © SAVE SAVE ? LIST DRAW ? SAVE ? LIST ? LPRINT USR USR USR TO >= SAVE SAVE LIST LIST LPRINT ▜ LLIST <=NOT ▜<=▜▜▝▝▝ COPY COPY DRAW © SAVE SAVE SAVE SAVE DRAW LIST © LPRINT ©USR ?USR ? LPRINT ? LPRINT © LPRINT ?USR ? LPRINT LIST © LIST ? LIST ? LPRINT ? LPRINT USR ▘▚ AND NEW LOAD ▜▝NOT ▝▝STR$ NOT NOT NOT ▜STR$ COPY COPY DRAW © SAVE SAVE SAVE SAVE RETURN SAVE ? LIST LPRINT LIST LPRINT LPRINT LPRINT LPRINT LPRINT DATA DRAW SAVE SAVE SAVE SAVE G LIST NOT LIST NOT LPRINT NOT LPRINT STR$ LIST A COPY COPY RETURN COPY SAVE © SAVE SAVE ? LIST DRAW ? SAVE ? LPRINT ?USR ?USR ▖8 SAVE LIST LIST LPRINT <=STR$ ▜NOT <=▜▜▜▝▝ COPY COPY RETURN ? DRAW SAVE SAVE RETURN SAVE LPRINT USR USR USR USR USR LPRINT LIST LIST LPRINT LLIST LLIST READ NOT NOT NOT NOT NOT NOT STR$ USR COPY ? RETURN DRAW RETURN DRAW RETURN DRAW LIST LPRINT USR LPRINT LPRINT LPRINT USR LPRINT SAVE LIST LIST LIST NOT LPRINT NOT LLIST NOT STR$ LLIST STR$ LLIST NOT LLIST LPRINT LPRINT RETURN © DRAW ? SAVE LIST LPRINT USR USR LPRINT LIST LIST LIST LIST LIST LIST SAVE LIST LIST CAa LPRINT LIST COPY LET READ STR$ ▝USR USR STR$ ▝STR$ LLIST CLS <=▝▝▝▝▝▝▝▝STR$ BORDER ▝▝▝▝▝▝▝▝NOT <=▝▝▝▝▝▝▝▝STR$ FOR COPY CAT COPY COPY ▜ COPY COPY COPY COPY ▝ COPY RETURN NEXT COPY ▘ DRAW SAVE SAVE © SAVE COPY LIST COPY LIST COPY LIST COPY IF COPY RETURN COPY DRAW COPY DRAW COPY SAVE COPY SAVE a COPY USR LLIST COPY ▝ LET COPY LLIST COPY ▜ LPRINT COPY <= LIST © BORDER LIST ? COPY LIST COPY COPY [P] COPY RETURN SAVE DRAW SAVE IF RETURN DRAW DRAW DRAW DRAW DRAW RETURN COPY COPY COPY COPY STR$ COPY STR$ COPY ▝ COPY ▝ COPY COPY ▝ COPY STR$ COPY LLIST COPY LLIST COPY LIST COPY © DRAW ? DRAW DRAW SAVE RETURN SAVE LIST LPRINT USR USR USR LPRINT LPRINT LIST LIST DRAW DRAW RETURN SAVE LPRINT <=NOT COPY NOT COPY NOT COPY STR$ COPY LPRINT COPY COPY RETURN DRAW RETURN DRAW COPY DRAW SAVE LPRINT LPRINT USR LPRINT LPRINT LPRINT LIST SAVE DRAW COPY COPY NOT COPY NOT COPY STR$ COPY STR$ COPY LPRINT COPY LPRINT COPY COPY COPY COPY DRAW ? COPY USR RETURN DRAW USR CLEAR BIN RANDOMIZE USR RANDOMIZE CLEAR USR DRAW USR DRAW SAVE DRAW SAVE CLEAR LIST { LIST ▜ LIST COPY LPRINT COPY LPRINT COPY LPRINT COPY STR$ COPY NOT ▜ COPY NOT ▜ COPY NOT COPY ▜NOT COPY NOT RETURN STR$ RETURN USR © COPY COPY © COPY COPY © BORDER COPY IN [J] COPY DEF FN e COPY LET USR COPY COPY COPY COPY USR © COPY ? COPY USR ? COPY © RETURN © DRAW © DRAW COPY RETURN COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN COPY RETURN COPY RETURN COPY RETURN COPY DRAW © SAVE 8© LIST x? LPRINT |? LIST DRAW ? LIST | COPY COPY COPY COPY COPY SAVE COPY BORDER COPY RUN ? CAT COPY LOAD USR ? COPY o COPY COPY DRAW / COPY COPY DRAW COPY COPY DRAW COPY COPY SAVE COPY COPY RETURN COPY COPY SAVE © COPY LIST COPY COPY LPRINT COPY COPY LPRINT COPY COPY LIST COPY COPY LIST COPY COPY SAVE ? COPY COPY SAVE COPY COPY SAVE COPY COPY LIST COPY COPY LIST COPY COPY LPRINT COPY COPY LPRINT COPY COPY LPRINT ▜ COPY COPY STR$ ▜ COPY COPY ▜ COPY COPY ▜ COPY COPY ▜ COPY COPY NOT COPY COPY ▝ COPY COPY COPY [P] COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN COPY COPY COPY COPY COPY COPY COPY COPY COPY RETURN COPY COPY COPY COPY COPY COPY COPY COPY CAT SAVE COPY COPY COPY IN LPRINT RETURN SAVE COPY LPRINT [A] LIST COPY LPRINT COPY COPY COPY LIST COPY COPY COPY LIST OUT COPY COPY COPY LIST COPY COPY COPY COPY SAVE COPY COPY COPY COPY SAVE COPY COPY COPY COPY SAVE COPY COPY COPY COPY SAVE COPY COPY COPY COPY LIST COPY COPY COPY COPY LIST COPY COPY COPY COPY LPRINT COPY COPY COPY COPY ▝<= COPY COPY COPY COPY <= COPY COPY COPY COPY NOT COPY COPY COPY COPY NOT COPY COPY COPY COPY ▜STR$ COPY COPY COPY COPY <=USR COPY COPY COPY COPY COPY IN RETURN RETURN RETURN DRAW DRAW LIST LPRINT USR USR USR $ DRAW RETURN RETURN DRAW LIST LPRINT CUSR <= LLIST ▝ LIST ▝ DRAW RUN COPY SAVE COPY SAVE COPY SAVE COPY LIST COPY DRAW COPY SAVE COPY LIST COPY USR COPY USR COPY USR COPY COPY COPY COPY , DRAW SAVE 0 SAVE >? SAVE COPY DRAW COPY RETURN COPY COPY COPY COPY COPY RETURN © DRAW ? SAVE DRAW SAVE DRAW LPRINT USR ?USR LIST SAVE SAVE [I] DRAW NEXT NOT INPUT [U]NOT IF [O]NOT ![Q]NOT VERIFY NOT NOT [O]NOT INPUT ▞NOT FOR [O]NOT /[P]NOT ][P]NOT BRIGHT [S]NOT q[N]NOT 8[T]NOT [J]NOT TAN ▛NOT CHR$ [N]NOT LLIST ▞NOT NEW [I]NOT GO TO [G]NOT ACS [O]NOT PAUSE ▟NOT BEEP ▛ OR ERASE @FINDIANA JONES RETURN E@FAND THE LAST CRUSADE` COPY @GAME DESIGN AND PROGRAM BY RETURN SCREEN$ @GTIERTEX LTD[ RETURN OR @GMARK HAIGH^HUTCHINSON RETURN HFGRAPHICS BY BLUE TURTLE COPY #HF128K MUSIC]FX BY MARK TAIT RETURN cHU[S[ TECHNICAL COORDINATOR RETURN HA[J[ REDMER RETURN AND HU[K[ PROJECT MANAGER RETURN REM HMIKE WILDING COPY L@EOPTIONS/ RETURN INKEY$@K [[[[[[[[[ KEYBOARD RETURN NEW @J [[[[[[[[[ JOYSTICK RETURN &HR [[[[ REDEFINE KEYS COPY fHS [[[[[[[ START GAME RETURN RNDH PLEASE SELECT OPTION COPY RNDHFPRESS FIRE ON JOYSTICK COPY [U]HF TIME OUT/ COPY RNDHE KEMPSTON INTERFACE COPY [U]HE SINCLAIR PORT 1 COPY ▜@FREDEFINE KEYBOARD RETURN DIM @GPRESS KEY FOR COPY *HE QUIT GAME COPY +HEPAUSE GAME COPY ,HE FIRE COPY +HE MOVE UP COPY +HEMOVE DOWN COPY *HE MOVE LEFT COPY +HEMOVE RIGHT COPY K@GGAME OVER COPY i@FEND OF LEVEL/ RETURN THEN @EBONUS 0000 COPY >=@ECONGRATULATIONS/ RETURN #HFINDY HAS A NEW HIGH SCORE/ COPY d@DDISK LOADER RETURN BIN @DBY VASILYEV MAXIM RETURN $HDSAMARA COPY / RETURN #HFRELOAD FROM START OF BLOCK COPY NOT @EREWIND TO START OF SIDE 2 COPY OR @EPRESS FIRE TO CONTINUE COPY OHF COPY RETURN LOAD RETURN LOAD RETURN LOAD RETURN LOAD RETURN LOAD RETURN RUN RETURN RUN RETURN RUN RETURN RUN RETURN RUN RETURN CLS RETURN IN RETURN © RETURN CLS RETURN CLEAR RETURN OUT RETURN OUT TAN }[T]}[E]}}v}f}T}©? RETURN RETURN RETURN RETURN RETURN RETURN RETURN RETURN DRAW SAVE LIST LPRINT USR ©©©©©©? DRAW DRAW DRAW DRAW DRAW SAVE LIST LPRINT USR ???? SAVE SAVE SAVE LIST LPRINT USR COPY ©? COPY COPY COPY COPY COPY COPY COPY RETURN DRAW SAVE LIST LPRINT USR RETURN RETURN RETURN RETURN RETURN RETURN ~>~~~|xp`@||||<<<<80 88/ CIRCLE /D]^ POKE ^ TO _8`a CONTINUE aLN b▖cpp(q/(q/// NEW STR$ >CHR$ >CHR$ ▘PEEK PLOT IN INPUT USR *NOT ////8d[I]d DRAW d/e/USR g[Q]hUSR SCREEN$ LPRINT SCREEN$ USR SCREEN$ LPRINT SCREEN$ @SCREEN$ `SCREEN$ USR SCREEN$ LPRINT SCREEN$ ATTR ATTR USR SCREEN$ LPRINT SCREEN$ VAL e CONTINUE aUSR biLN j ln<rPEEK .PEEK JPEEK fPEEK SQR OVER SQR fEXP EXP CONTINUE fTAN CIRCLE TAN VAL ASN ▖ACS /SCREEN$ [Q]SCREEN$ /ASN tASN VAL$ ASN "ACS [G]ACS ATN DATN LN ATN [I]LN EXP ,LN ,LN NOT NOT ▗SQR BIN SQR $SGN tSGN [Q]SGN POKE SGN POKE SGN POKE SGN POKE SGN `ATN xATN [A]ATN LN ATN RCHR$ ▘CHR$ ACS CHR$ PAUSE CHR$ LPRINT ATN SAVE ATN LN tLN BIN LN EXP |EXP BRIGHT EXP ,INT INT BRIGHT INT 4SQR ABS ~ABS ASN FN ACS LN 4LN SCREEN$ [Q]SCREEN$ BRIGHT rs-scs[J]s CAT s REM s tVttPEEK t SAVE w&x BRIGHT r&x BRIGHT r BRIGHT r BRIGHT re OR { OR { OR BIN DIM BIN ' OR BRIGHT r BRIGHT r BRIGHT r BRIGHT r BRIGHT r REM tuu3u BRIGHT r TO uv BRIGHT r BRIGHT r BRIGHT r BRIGHT r BRIGHT r BRIGHT r BRIGHT r BRIGHT r BRIGHT r BRIGHT r BRIGHT r BRIGHT rHuVtt<vv DATA v/wkxpBIN wBIN ~BIN BIN PLOT NOT (BIN NOT TAN NOT &xVEXP [G]uSTR$ ACS STR$ GO TO STR$ "CHR$ BRIGHT r BRIGHT r BRIGHT r BRIGHT r BRIGHT rs-scs[J]s CAT s REM s t&xVEXP VtVtINT BIN INT BIN aNOT qNOT ▞NOT [N]NOT FN NOT ABS NOT ABS NOT ABS NOT ABS NOT XCHR$ ^CHR$ dCHR$ nCHR$ BIN [I]BIN RNDBIN TAN BIN xCHR$ ~CHR$ ▜CHR$ [N]CHR$ LEN CHR$ <=CHR$ OUT CHR$ RUN CHR$ NOT #NOT 7NOT MNOT IN IN EXP jEXP BIN EXP STEP EXP SCREEN$ [Q]SCREEN$ 6666666644,..6.66>>>6666020*6884644<<4&*,.6666666666666.66jZ 0 ( DRAW COPY DRAW COPY DRAW COPY CLEAR COPY CLEAR COPY CLEAR COPY RETURN COPY RETURN COPY RETURN COPY ??34653.&*$,(ECB COPY OPEN #Z[D]Z STEP Z MOVE Z STEP Z[B]Z DEF FN Zx8hHhx8hHh COPY COPY RETURN RETURN RETURN COPY COPY COPY COPY SCREEN$ CLEAR CLS RUN LOAD SCREEN$ USCREEN$ CLEAR CLS RUN LOAD SCREEN$ @[Q]© LIST [Q][Q][Q]p0[Q]?USR [Q] IF CLEAR RESTORE !/ GO SUB ▗ GO SUB VAL !x/ GO SUB VAL CLEAR !:/ CLEAR ~ CLEAR 6 CLS v NEXT CLEAR w/! GO SUB ▗ GO SUB VAL x/ LLIST <>" OR INVERSE ! LIST :BIN zPI(!=@" OR INVERSE ! LET 8 STEP ATN NOT TAB STEP ASN " OR @ GO SUB s▚ INVERSE RANDOMIZE LET MOVE LLIST INK STR$ MOVE LLIST 1 RESTORE MERGE OR INK RESTORE MERGE PRINT GO SUB s READ 1 PAUSE COPY INVERSE 9 INVERSE RANDOMIZE LET MOVE LLIST INK LET STR$ MOVE LLIST 1 RESTORE MERGE OR PRINT INK RESTORE MERGE PRINT !9|EXP 8 SAVE " OR 1. INVERSE 9 INVERSE RANDOMIZE ATN 1<>{ NEW } NEW x2EXP zy2ATN zNOT FOR :ATTR RETURN (J RETURN (' STEP DIM ▚ STEP LINE ▚ STEP [K]▚*[K]z GO SUB [ OPEN #x} NEW 2 INPUT x{ THEN ? THEN ? NEW 2 GO SUB x STEP FOR " LOAD x<>* COPY xPI GO SUB R0!" OPEN #xPI GO SUB R8<> GO SUB S OPEN #xNOT * COPY xPI GO SUB R0!" OPEN #x GO SUB S[K]zPPI GO SUB R8[U] GO SUB S OPEN #x[O]:ATTR RETURN USR : LINE z< RETURN 8CODE 2 LINE z_! CLOSE #▗^ THEN {(*[K]z"[K]z|<USR !"[K]z<>*[K]zt GO SUB [y FOR PI GO SUB R>= ERASE ▞▜ THEN |>=CODE [F]ok* OPEN #xh GO SUB [ COPY x FOR PI GO SUB R>=0(CODE [F]o} RETURN 8>_* OPEN #xPI GO SUB R CIRCLE RESTORE GO SUB [[K]z FOR STEP ▚ STEP INK ▜ LLIST yPIUSR " OPEN #x<>} RETURN 8>_* OPEN #x RESTORE GO SUB [[Q]zPI GO SUB R LLIST FORMAT RESTORE GO SUB [[K]z FOR STEP ▚ GO SUB [ATN z STEP INK ▜ LLIST yPIUSR " OPEN #x<>} INK o INK RETURN 8>_*[K]zPI GO SUB R8 RESTORE GO SUB [ OPEN #x STEP ▚ STEP ▖ LLIST yPI "[K]z<> INK } RETURN CIRCLE THEN ?o INK o THEN } INK o INK RETURN 8>_*[K]z RESTORE GO SUB [[S]zPI GO SUB R LLIST 0( RESTORE GO SUB [ OPEN #x STEP ▚:EXP z▜_ INVERSE ! BRIGHT INVERSE INVERSE ^ INVERSE V STEP ▖ LLIST yPI "[K]z<> INK } RETURN CIRCLE THEN ?o INK oVAL x RESTORE :TAN zPEEK (PEEK PEEK ( IF PEEK LLIST GO SUB [ CONTINUE GO SUB [ CONTINUE xPEEK (PEEK (:EXP z RETURN >=:TAN zPEEK USR <> RESTORE PEEK (#PEEK (#PEEK LLIST RESTORE PEEK (# IF PEEK LLIST PEEK (ATN z RETURN >=:TAN zPEEK USR <>& LIST : GO SUB xG>[A] THEN ?o RESTORE INK : INPUT x▜2INT ▖* CONTINUE x PAUSE COPY FOR * LOAD x INK LLIST : INPUT xO>[B] THEN ? THEN THEN ? THEN G INK CODE 2INT ▖PI GO SUB s&▞ THEN ? THEN THEN ? THEN THEN ? THEN G INVERSE ! INVERSE INVERSE INVERSE RANDOMIZE MOVE s,r MOVE s,r MOVE s,r MOVE s,r MOVE s,r MOVE s,r MOVE s,r MOVE s,r MOVE s,r MOVE s,r MOVE s,r MOVE s,r MOVE s,r MOVE s,r MOVE s,r MOVE s,r! RETURN INK #▟ INK DATA INK CHR$ RND▖1<>! LIST ~, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB g, GO SUB gVAL$ <> THEN = THEN = THEN =CODE THEN ; THEN ; THEN ;S_& LIST <>!XTu COPY GO SUB VAL ! LIST LIST COPY u GO SUB VAL NOT ▚ STEP K:SQR z>!XT]w GO SUB VAL = INPUT <>!COS ▗">=z~2SQR zNOT ASN ▞ READ READ READ READ xLEN RUN <> MERGE GO SUB [[U]zc. CLEAR zATN GO SUB R OVER GO SUB R OVER _ GO SUB R0#"[U]z MOVE }<> INVERSE *VAL z INVERSE ~<>= INVERSE 6 INVERSE NEXT INVERSE *VAL z INVERSE n INVERSE f COPY COPY PI GO SUB R>= INVERSE ~PICHR$ DEF FN * COPY x INVERSE ^ INVERSE VPI GO SUB R PAPER DEF FN INVERSE n INVERSE f FOR * COPY xPI GO SUB R0u*y INVERSE ^ INVERSE VPI GO SUB R8g INVERSE n INVERSE f FOR *yPI GO SUB R0W STEP VERIFY R INVERSE 6 INVERSE ~ CLEAR w INVERSE n INVERSE f CLEAR u CLEAR t INVERSE n INVERSE f CLEAR u CLEAR t INVERSE ~ CLEAR w CLEAR w CLEAR w CLEAR w CLEAR w CLEAR w CLEAR 6 COPY CLEAR ~ RETURN ^ : THEN z/ NEW 2 THEN z CLEAR w INVERSE NOT & CLEAR !y~<>= CLEAR RUN PLOT <> THEN < THEN THEN < THEN THEN < THEN THEN < THEN THEN %& BRIGHT ~#fo THEN : THEN THEN : THEN THEN : THEN THEN : THEN OR <> INVERSE !SGN ▗ OR INVERSE n INVERSE f STEP 5▛ INVERSE # INVERSE #STR$ LOAD <>CODE w,w IF <>> MERGE COPY GO SUB [Q] GO SUB [Q] RUN READ MOVE FOR = DIM <>:USR z THEN ? THEN ? THEN ?! DATA Po:USR z NEW 7 THEN = IF ~[R]w$ IF > DIM ABS >=,%6 CLS <>CODE 2INKEY$z2FN z>D2PIz DATA P OR ! COPY ▗ STEP a▟ STEP a▟STR$ GO SUB <>* TO z" TO zNOT y▙>2FN z=2INKEY$z>D2PIz:STR$ z THEN RNOT _▙G: COPY [PI(o STEP RUN ▛x2 LPRINT NOT CLS ▛: COPY [PI(| STEP RUN ▛ STEP LPRINT NOT CLS ▛>CODE OR PLOT CLEAR © GO SUB ySTR$ <>: COPY [PI LINE LLIST ▞ STEP RUN ▛CODE 2 LPRINT STEP CLS ▛ STEP K STEP CONTINUE ▛ STEP RUN ▛: LPRINT PRINT STEP CLS ▛ LET PIUSR FOR : COPY [PICHR$ 92 ERASE zNOT LLIST ▞2 OR STEP K STEP CONTINUE ▛STR$ PLOT <>CODE STEP BEEP ▛NOT CONTINUE ▛xPI 2 ERASE z<> VERIFY CIRCLE ▜▜_! ERASE z GO SUB VAL <>: ERASE zPI>==2 ERASE z: OPEN #zO GO SUB [ CLOSE #zCODE INPUT OR OPEN # RETURN DRAW STR$ - PRINT MERGE STEP INPUT ▞ MOVE }[S]<o|[T]<G DATA <>2 FORMAT z STEP [K]▞: FORMAT zPI :ATTR PI>=CODE RETURN (*>2 MOVE z: FORMAT z▜< INVERSE !ATTR STEP COPY STEP [K]▞!ATTR @ GO SUB VAL X GO SUB VAL CODE 2 MOVE zUSR B INVERSE !@SCREEN$ : FORMAT z▜ AND STEP COPY :POINT PIUSR STEP [K]▞<>J~ STEP PAUSE ▟NOT LLIST ▞ INVERSE " LIST AND 02 LIST {ATN !,~ STEP PAUSE ▟ STEP LLIST ▞ NEXT GO SUB V!/0 PAUSE POKE GO SUB VAL ! GO SUB $ POKE d GO SUB VAL GO SUB s LIST CLEAR " LIST 1 PAUSE ] CLEAR !:/NOT POINT MOVE LET NOT COPY INVERSE LLIST MOVE LET <>NOT POINT STEP LLIST ▞ STEP LLIST ▞7<> MERGE OR :INKEY$zPI FN zPI(1y,N THEN 9 THEN 9 THEN 9 THEN 9 NEW LIST LEN G NEW O~ NEW ▜▜▜▜LEN O:FN zPI(xy#z NEW { AND _z DEF FN VERIFY WSTR$ ATTR MOVE MERGE z NEW PLOT XW:PIz:FN zPI(! :PIzwPI GO SUB R:INKEY$zPI(:PIz:FN zPI(! :PIzw MOVE <>^#V#~2INKEY$z#~2PIz#~2FN z#~<>=< # DATA ~ RESTORE RETURN ! STOP zCODE RETURN A0 VERIFY 0![ VERIFY A!<[▜O▜▝O STEP _▟ LLIST # THEN ' STEP U▙ CONTINUE STEP U▙d STEP U▙ STEP U▙CODE PI GO SUB B8< SAVE RESTORE STEP e▙ LLIST <>![▜O▜▝OCODE 2INKEY$z STEP _▟<>CODE 2FN z>E2PIz* TO zBIN Q STEP :▙CODE NOT e▙ GO SUB s[F]zCODE 2[H]z_: POKE ~G: PRINT ~VAL >=>1 POKE ~STR$ GO SUB xSTR$ FN [R]EXP THEN = PAUSE *[I]z DRAW ~PI GO SUB B(*[I]z©PI GO SUB BCHR$ OPEN #▙ THEN THEN THEN & GO SUB {[I]z>STR$ GO SUB xSTR$ FN [R]EXP THEN = PAUSE {2[H]z THEN O( THEN ▜2[H]z GO SUB {[F]z<>{ NEW LPRINT _ FLASH NEW COS _ STOP STEP K STEP CONTINUE ▛> CLS FLASH RETURN THEN _( PAUSE >PIUSR ! DRAW ~"[I]z! POKE ~ PRINT ~6 GO SUB VAL INVERSE !©>2i_>[D]_ THEN #!©~#fo STEP PAUSE ▟ INVERSE RESTORE STEP K STEP CONTINUE ▛ INVERSE LLIST STEP [A]0 LET INVERSE w INVERSE t INVERSE u2[T] CLEAR !©> VERIFY (<2[T] CLEAR PEEK | CLEAR PEEK } CLEAR PEEK y RETURN CODE INVERSE w INVERSE w INVERSE wTAB CLEAR + CLEAR + CLEAR + CLEAR +>+ INVERSE + INVERSE + INVERSE +:i=CHR$ 0=2<>> OUT FLASH RETURN THEN g( SAVE [A] OR STEP K STEP CONTINUE ▛> LOAD FLASH RETURN THEN G!$}61}! TO ~(3> RUN FLASH RETURN THEN g!$}62! LPRINT ~(# FLASH RETURN COPY FLASH RETURN SAVE !© LET |STR$ xLEN CHR$ <=! CLOSE #|<>STR$ "[I]z FOR <> RETURN © GO SUB x_/ NEW ( RETURN ( RETURN ( RETURN ( RETURN ({/ NEW 7`i<> THEN 8 VERIFY PI<>CODE 2BIN z CLEAR !© INVERSE !^©@ INVERSE ~. THEN ? THEN THEN ? THEN THEN ? THEN & LIST ▗g CLEAR V STEP [A] MERGE INVERSE RESTORE STEP ▚ INVERSE LLIST MOVE INVERSE # CLEAR # MERGE <> OR RESTORE zINKEY$w, IF LLIST $STR$ PAUSE <>CODE 2BIN z STEP U▖: GO SUB x BRIGHT )▞ STEP [B] CLEAR ! INVERSE © INVERSE ![N]©@ OR INVERSE ~. THEN ? THEN THEN ? THEN THEN ? THEN & LIST ▗g} AND o INVERSE ~ AND @W CLEAR N STEP NEW [A] STEP DATA ▞ INVERSE + CLEAR +STR$ THEN <> OR RESTORE INK INK ~[R], INK RUN INK LLIST ${ AND _0 RESTORE ! FOR LLIST STR$ OUT <>* OPEN #x"[M]z CONTINUE COPY " OPEN #xCODE 2SCREEN$ z STEP 0[B]:SCREEN$ z<2SCREEN$ z RETURN PAUSE *[M]z" OPEN #x<> INVERSE ! COPY x OR CODE 2 INK x INVERSE ~< LINE FLASH [D]:SCREEN$ z INVERSE PEEK CHR$ FLASH [D] INVERSE ~ RETURN IF ERASE FLASH [D]_ THEN #! OVER ▝~2[D]#~2ASN [D]2AT z INVERSE ~ RETURN K8 RETURN W0 RETURN T(>2 INK x:ASN [D] VERIFY 2ASN [D] THEN ;! OVER ▘~2ASN z GO SUB S[D] GO SUB S INK [E] INVERSE n INVERSE f:AT z_PI GO SUB R INVERSE N THEN y( RESTORE MOVE GO SUB K[K]z$PI GO SUB B8|PICHR$ FLASH [D] THEN }CHR$ FLASH [D]!PI GO SUB R:ASN [D]ABS 8}2ASN [D]*[K]z$PI GO SUB R] LINE GO SUB [B] ERASE CLEAR [B]} GO SUB D_: INK x RETURN CHR$ E[C]: FLASH x VERIFY NOT #[C]|PICHR$ FLASH [D]:ASN [D]O}[B] ERASE FLASH [D] LINE FLASH [D] GO SUB D2ASN [D]: INK x RETURN } : FLASH x VERIFY o:[D]O}! THEN ▜PI(= DRAW "[D] THEN < THEN THEN < THEN " INK [E]{ INVERSE n INVERSE f GO SUB [ OPEN #xPI GO SUB R ERASE FLASH [D] INVERSE n INVERSE f INVERSE ~PI( GO SUB KASN zNOT u[C] GO SUB KASN zPI GO SUB B$PI GO SUB R INVERSE N THEN y(_|PICHR$ VAL [C] INVERSE ~PICHR$ FLASH [D]:[D]▜▜▜ ERASE FLASH [D] LINE FLASH [D] RETURN PAPER FLASH [D] LINE FLASH [D]{PI LINE GO TO [C]NOT GO TO [C]| RETURN ERASE FLASH [D] RETURN INVERSE ~PI LINE FLASH [D]:[D]▜▜▜O}[B] ERASE FLASH [D]OCODE [B] RETURN PAPER FLASH [D] INVERSE ~PI(} RETURN PAPER FLASH [D]} RETURN CONTINUE ERASE FLASH [D]:[D]O> [B]2 FORMAT [D]2c[E]22[F]2▞[F]> ▝2[E]2CHR$ [E]2LEN [F]2 RUN [F]:[D] THEN ?2?[F]: INK x RETURN <2 INK x} NEW 2ATTR z INVERSE ~PI(}< NEW 2ATTR z STEP ▗▞ RESTORE INVERSE ~ RETURN G( RETURN H( RETURN 8 RETURN 8 RETURN $8 RETURN 08 RETURN ~( RETURN ©( STEP >=[E] INVERSE ^ THEN #! OVER ©~#fo INVERSE ~ RETURN A : INK x RETURN | AND g MOVE GO SUB s[F]z RANDOMIZE FOR INK ~PI(!i[E]:ATTR zPI(!▛[E]NOT VAL [D]!INT [D]:ATTR zPI(!3[E]"LN [D] INK >NOT INK :[D] THEN ?G INK STR$ ~LEN w#~VAL w# INK NEXT INK = OUT GO SUB {[F]z: INK xPI(C RETURN (? RETURN (5>2 INK x:AT z2 FLASH x>2ASN [D]2AT z INVERSE ~2 PAPER x RETURN S( RETURN T > RETURN U8>1 VERIFY K INVERSE wNOT ▙[B]: PAPER x INVERSE wCODE 2 INK xSTR$ CHR$ 6[B]<> INK :[D] THEN ?G INK STR$ y NEW LIST ACS w#y▜▜▜▜ACS wx NEW LIST ACS w#x▜▜▜▜ACS w INK INK INK NOT OPEN #[D] LOAD INK :[D] THEN ?G INK STR$ XGYACS w+xACS w+ INK LOAD INK NOT OPEN #[D] LOAD INK :[D] THEN ?G INK STR$ XGYO▜▜▜▜ACS w+y NEW LIST ACS wx▜▜▜▜ACS w+x NEW LIST ACS w INK CLOSE # INK NOT OPEN #[D] RESTORE INVERSE ^ THEN #! OVER ~#fo MOVE FOR INK :[D]O INVERSE ~PI(![A][F]:ATTR zPI(!LN [F]NOT [F]![F]:ATTR zPI(!J[F]"[F] INK :ASN [D]NOT INPUT INK :[D] THEN ?G INK NEW LIST OINKEY$w# NEW OINKEY$w# INK FOR INK x G=>= THEN G( FORMAT RESTORE ! FOR PI GO SUB R FOR LLIST NOT [F] INPUT INK :[D] THEN ?G INK NEW LIST O PLOT LIST INKEY$w#▜▜▜▜ PLOT INKEY$w NEW O PLOT LIST INKEY$w#▜▜▜▜ PLOT INKEY$w INK STEP INK x GNOT 6[F] GO SUB INK :[D] THEN ?G INK NEW LIST OINKEY$w+ NEW OINKEY$w+ INK FOR INK x GNOT 6[F] GO SUB INK :[D] THEN ?G INK NEW LIST O▜▜▜▜ PLOT INKEY$w+ PLOT LIST INKEY$w NEW O▜▜▜▜ PLOT INKEY$w+ PLOT LIST INKEY$w INK STEP INK x GNOT 6[F] INVERSE ! COPY x OR STEP [G]STR$ POKE <> INVERSE ~ RETURN COPY >=PI LINE [U][G] RETURN LINE ATTR RETURN LINE ATTR RETURN LINE ATTR RETURN LINE ATTR RETURN ( LINE #ATTR RETURN ) LINE &ATTR RETURN * LINE ATTR RETURN + LINE /ATTR RETURN , LINE ATTR RETURN - LINE ATTR RETURN 2 LINE ▚[N] RETURN < LINE A[O] RETURN = LINE [O] RETURN > LINE ATTR RETURN F LINE ATTR RETURN G LINE ATTR RETURN H LINE )ATTR RETURN I LINE ATTR RETURN J LINE ATTR RETURN P LINE ,ATTR RETURN ^ LINE ATTR RETURN _ LINE ATTR <> INVERSE THEN F( INVERSE 6<> INVERSE THEN N>= INVERSE 6<>:ATTR RETURN LINE ATTR INVERSE 6 INVERSE THEN f CODE 2ABS z INVERSE ~ RETURN RETURN ERASE NEW [I] RETURN CLEAR LINE [M]= LINE STOP [J]= LINE -[M]= LINE I[L]= LINE [I]= LINE d[J]== LINE [J]= LINE ,[J]= LINE ATTR INVERSE 6 INVERSE ~ NEW LINE ATN [I] INVERSE 6:ATTR RETURN ( INVERSE ~ THEN gCHR$ DRAW [I] THEN WCHR$ <=[H] INVERSE THEN ^CHR$ <>[J] INVERSE THEN F(; INVERSE 6 IF [O] . STEP [T] GO SUB [ OPEN #xPI GO SUB R} RETURN RANDOMIZE 0 INVERSE ~< NEW INVERSE w( RETURN > STEP BEEP ▛ DRAW COPY STEP [T] INVERSE THEN N(> INVERSE 6 IF [O] 1 DRAW COPY STEP [T]|<(! GO SUB [ OPEN #x GO SUB R} RETURN 8 INVERSE ~< NEW INVERSE w( RETURN > STEP BEEP ▛ STEP [T] IF [O] LINE O[I] NEW LIST RETURN 0 LINE STEP IF [O] LINE LET [H] NEW LIST RETURN 0 LINE NEW SAVE INVERSE w<> INVERSE 67 INVERSE ~ NEW SAVE INVERSE w STEP USR [K] INVERSE ~ RETURN >= IF [O] LINE ![M] IF [O] LINE ![M]<> INVERSE 6 INVERSE 6 STEP [T] STEP [T] INVERSE 6" INVERSE 6<> INVERSE 4 INVERSE ~ RETURN 0 STEP [T] STEP [T] INVERSE 6#<> IF [O] INVERSE 6 INVERSE 6 INVERSE w INVERSE 6<> INVERSE THEN FCHR$ GO TO [G]<> IF [O] LINE ![M] INVERSE 6 STEP [T] DRAW COPY STEP [T] INVERSE 6" INVERSE 6 INVERSE 6<> INVERSE 4 INVERSE ~ RETURN 0 STEP [T] DRAW COPY STEP [T] INVERSE 6#<> IF [O] INVERSE 6 INVERSE 6 INVERSE ~ INPUT INVERSE w<> INVERSE THEN NCHR$ GO TO [G]<> IF [O] LINE ![M] IF [O] LINE ![M] INVERSE 4 INVERSE ~ RETURN -0 INVERSE 6<> INVERSE 6 RETURN 7 CIRCLE INVERSE 6<> INVERSE 6 RETURN INVERSE 6~ RETURN CIRCLE INVERSE 6 COPY <>:ABS zPICHR$ [H]<2ABS z:PEEK zPI(A=2PEEK z STEP CONTINUE [S]NOT ▘[J]:y RETURN CLEAR FORMAT >2y> STEP W[N]CODE 2y<> INVERSE 6~ RETURN CIRCLE INVERSE 6 IF [O]USR INVERSE 6 INVERSE 6<> INVERSE 60 INVERSE 6 INVERSE 6> STEP BEEP ▛> STEP BEEP ▛ INVERSE 4 INVERSE ~ RETURN ERASE GO TO [G] RETURN FORMAT ERASE COPY ! CLEAR !NOT TAB [Q] INVERSE 6 INVERSE 6 COPY > STEP BEEP ▛ INVERSE 4 INVERSE ~_ THEN ; CIRCLE ![T]▗~ INVERSE wPI LINE GO TO [G] RETURN 6USR :ATTR = STEP RETURN >= FORMAT COPY !( CLEAR !NOT TAB [Q]:ATTR RETURN LINE [N] INVERSE 6 COPY INVERSE 6 STEP [G] INVERSE ~ INVERSE w INVERSE 4 INVERSE ^ THEN #!^▗~ RETURN ? LINE .[L]^#V STEP [T]| RETURN 8 INVERSE 6 INVERSE 6 INVERSE ~ RETURN 8 MERGE IF [O] MOVE (> STEP W[N]NOT ![M] INVERSE ^!▗~ INVERSE w RETURN (M INVERSE THEN N INVERSE THEN FCHR$ i[K]NOT ▝[K] IF [O] 4 IF [O] + DRAW COPY STEP [T]|< !CODE INVERSE w INVERSE w IF [O] IF [O] STEP [T] IF [O](. NEW LIST RETURN 0 LINE NEW [I] IF [O]( NEW LIST RETURN 0 LINE NEW [I] INVERSE ~ RETURN ERASE [G] INVERSE 6<> INVERSE ~ RETURN ERASE ![M] IF [O] NEW LIST 2TAB z PRINT IF [O] NEW LIST STR$ OFN USR y RETURN (- RETURN `( RETURN PUSR INVERSE ~ RETURN CIRCLE INVERSE ~ NEW LIST INVERSE w STEP [T] INVERSE 6C> INVERSE ~ RETURN CIRCLE INVERSE 6C2 INVERSE ~ RETURN CIRCLE INVERSE ~ NEW RETURN CIRCLE INVERSE ~ NEW LIST INVERSE w STEP [T] INVERSE 6CODE INVERSE w INVERSE w INVERSE ~ NEW SAVE INVERSE w<> INVERSE 6CODE INVERSE w INVERSE w INVERSE 4 INVERSE ~ RETURN 8:TAB z RETURN P( INVERSE ~ NEW CHR$ <>[J] INVERSE THEN V(L STEP [T] IF [O] NEW LIST RETURN LINE [D][L] RETURN `( RETURN PCHR$ ![M] IF [O] NEW LIST RETURN PCHR$ .[L] INVERSE ~< NEW INVERSE wUSR INVERSE 4 INVERSE ~ RETURN ! INVERSE 6<> RETURN GUSR INVERSE 6C<> INVERSE THEN ^( IF [O] NEW LIST RETURN ( RETURN `( RETURN P(<>:TAB z RETURN PUSR IF [O] NEW LIST RETURN P>=NOT .[L] RETURN COPY STEP [T] INVERSE ~< NEW INVERSE wUSR INVERSE 5 INVERSE ~ RETURN INVERSE 6 <> RETURN BUSR INVERSE 6F<> INVERSE 6 CLEAR INVERSE 6[T] IF [O] INVERSE 6 INVERSE 6 INVERSE 6 INVERSE 4 INVERSE ~ RETURN 8> STEP W[N] IF [O] RETURN ( IF [O] RETURN INVERSE 6 COPY <> IF [O]($ NEW LIST RETURN 0 LINE NEW [I] IF [O]( NEW LIST RETURN 0 LINE NEW [I]NOT LLIST [M] STEP [T] IF [O]( NEW LIST RETURN 0 LINE NEW [I] IF [O] LINE COS [M] NEW LIST RETURN 0 LINE STEP [T] IF [O]>= NEW LIST RETURN 0 LINE NEW [I] IF [O]>= NEW LIST RETURN 0 LINE NEW [I] INVERSE ~ RETURN PAPER .[L]NOT .[L] INVERSE 6 RETURN <> STEP #[T] FOR PI GO SUB R FORMAT FOR PI GO SUB R<> INVERSE 6( STEP *[N]x STEP *[N]>= STEP *[N] STEP *[N]h STEP *[N]LN STEP *[N]<> STEP LET [M]PI GO SUB R8 INVERSE 4<> LLIST INVERSE 6 COPY :STR$ z<2STR$ z INVERSE ~2 PAUSE xG: LET xLN USR >2NOT z<> PRINT >G:USR z[A](0 STEP q[N]CODE 2USR zNOT /▛> STEP BEEP ▛:y RETURN RETURN FORMAT > RETURN 2yCODE 2y<> INVERSE ^!POINT ▗~ INVERSE w INVERSE 4 INVERSE ~ THEN ? THEN ? NEW INVERSE VAL$ INVERSE w:ATTR RETURN LINE INVERSE ~ PI LINE [N][O]= LINE ATTR = LINE ATTR <> INVERSE ~ RETURN ERASE ▘[O]:ATTR INVERSE PEEK USR 2 STEP TAN ▛ INVERSE 6 COPY :ATTR <2ATTR STEP RANDOMIZE [N]> STEP BEEP ▛:ATTR = LINE [N][O]= LINE ATTR = LINE ATTR <> INVERSE ~ RETURN 0 FORMAT VERIFY $ THEN ▜_!SGN ▗^#V>G FOR w,ww,w<> STEP ATTR >=2 STEP TAN ▛ INVERSE 6 COPY >2 REM xCODE 2 FOR x2 NEW x!SCREEN$ ▙P GO SUB S OR zNOT B▛ INVERSE 6H INVERSE 4 INVERSE ~ THEN ? THEN ? NEW INVERSE VAL$ INVERSE w STEP ![Q]>= STEP TAN ▛ INVERSE 6 COPY > STEP BEEP ▛>2 REM xCODE 2 FOR x STEP CLOSE #▞!SCREEN$ ▙P GO SUB S OR zNOT B▛ STEP TAN ▛ INVERSE 6 COPY >2PEEK z>2IN z> STEP BEEP ▛NOT CONTINUE [S]!.<=6!SIN <=606Q!.<=6R<>> COPY INVERSE w INVERSE w INVERSE 6<>* COPY x STEP [T]PI GO SUB R0 FOR PI GO SUB R RESTORE *y STEP 1[T]PI GO SUB R FOR 0!PI GO SUB R FOR LLIST <> INVERSE ~PI>= RESTORE !PI GO SUB B READ STR$ <> THEN y( THEN {( STEP #[T] FOR GO SUB S INVERSE x INVERSE N INVERSE F" OUT x:ATTR RETURN LINE ▝[P] INVERSE ~PI : CIRCLE xPI 7 RESTORE MERGE STEP FOR N MOVE READ { NEW THEN ? THEN ? THEN ?_} NEW THEN ? THEN ?COS _!CODE ▗~*SIN z^[T]_~ LLIST <> STEP *[T] STEP [T]NOT /[P] STEP *[T]©PI GO SUB R8 INVERSE 6 COPY CODE <>* OUT x GO SUB [ INVERSE xNOT /[P]* INVERSE xPI GO SUB B" INVERSE x FOR (* OUT xPI GO SUB B" OUT x0!VAL$ zNOT [Q]>2CODE z!) LINE INVERSE ~ THEN © RETURN 0>2CODE z!ATTR DEF FN INVERSE ~ THEN ©(8>2CODE z!- OPEN # RESTORE * INVERSE x THEN < THEN THEN < THEN THEN < THEN THEN < THEN RESTORE * OUT x THEN < THEN THEN < THEN THEN < THEN THEN < THEN THEN % THEN BRIGHT ^#V LLIST MOVE ~ RETURN B( RETURN C( RETURN G(CODE <> STEP OPEN #[U] RANDOMIZE >PI<> INVERSE ~ RETURN IF ERASE ATTR [Q]_!^F THEN #! OUT ▝N THEN 9 GO SUB C VERIFY z:y_!^F! OUT ▝ THEN #N THEN 9 GO SUB C CIRCLE z GO SUB [ VERIFY z STEP *[T]PI GO SUB R RESTORE *yPI GO SUB B RESTORE FOR IF COPY FOR STR$ LLIST PI GO SUB B0 RESTORE STR$ !PI GO SUB BPI GO SUB R0&: BEEP zG: INK zO STEP #[T] GO SUB [ COPY xPI GO SUB R0 FOR !PI GO SUB RPI GO SUB B0 PLOT <>CODE <> GO SUB C PAPER z GO SUB S BRIGHT z" OVER z CLEAR " LPRINT z STEP *[T]" BRIGHT z FOR CLEAR CLEAR " LPRINT z INVERSE ~PI STEP #[T]" PAPER z GO SUB K OVER z" OVER z STEP #[T] GO SUB [ PAPER zPI GO SUB R GO SUB K OVER zPI GO SUB B RESTORE STEP #[T]PI GO SUB R" OVER z LLIST " PAPER z STEP I[R]xPI>= INVERSE ~PI( INVERSE 6 COPY CLEAR ~ RETURN *( RETURN +( RETURN ,( RETURN A( STEP LEN [R] FLASH STEP TAN ▛ CLEAR 6 COPY LIST STEP TAN ▛ CLEAR ~ RETURN RETURN 0 DATA CLEAR 6 COPY CLEAR 6 RETURN PAPER CLEAR !y INK CLEAR ~<([ CLEAR ^!^N THEN #! OUT ▝F CLEAR ^ CLEAR V* BRIGHT zPI GO SUB R0<h& FOR PI GO SUB R GO SUB [ LPRINT z FOR PI GO SUB R8+ CLEAR n CLEAR fYPI GO SUB R GO SUB [ OVER z FOR PI GO SUB R8 CLEAR n CLEAR fY FOR * PAPER zPI GO SUB R0 INK <>[G]<>:ATTR PI(= : MERGE x RETURN 8NOT [S]= LINE ▟[S]= LINE t[S]<>CODE 2<=z: MERGE x RETURN FORMAT : FOR x<2 FOR xUSR : REM x=2 REM x*>=z~ RETURN COPY >=#">=z2SQR z STEP ASN ▞* OR zCODE w,w$w-w$| NEW | VERIFY g} AND o" OR z<>>2<=z: GO TO xPI : FOR x< NEW 2 FOR xUSR : REM x=2 REM x RETURN FORMAT :SQR z2SGN z> STEP BEEP ▛CODE <2 GO TO x RETURN (=_! LINE ▗~2SQR zNOT ASN ▞CODE 2 GO TO x2 FOR x>2 REM x:SGN z2SQR zNOT ASN ▞>2<=z: FOR x< NEW ?2 FOR xUSR : REM x=2 REM xNOT [S]>2<=z: NEW xPI ): FOR x< NEW ©2 FOR x STEP [S]: REM x=2 REM x RETURN 0>2 NEW x!@ GO TO GO TO <>: FOR x< NEW 2 FOR x!@ GO TO GO TO Nwy# RUN <> INVERSE ~▜_! OVER ▝<>>C2PIzCODE 2INKEY$z<2FN z:PEEK z CAT R STEP _▙ INVERSE ~PI>=NOT RANDOMIZE [N] STEP #[T] INVERSE u INVERSE t<> STEP *[T] INVERSE u INVERSE t<> INVERSE ^ INVERSE V<> INVERSE n INVERSE f<> INVERSE n INVERSE f<> INVERSE ^ INVERSE V<>* COPY x STEP [T]PI GO SUB R CIRCLE PI GO SUB R CIRCLE INVERSE 6 COPY LLIST <>! GO SUB [ CONTINUE x BRIGHT >A}|= POKE <> STEP n[U]:ATTR _! DIM ▗~2TAN z*ATTR "SIN z*ATTR "VAL z!: MERGE xPI(= DRAW GO SUB [ATTR CODE 2y2y2y2y2y>2y COPY x GO SUB VAL ^#V# GO SUB S OPEN #x^#V GO SUB S[K]z[Q]z GO SUB VAL ^#V# GO SUB S CONTINUE x STEP *[Q]z4"[Q]zNOT ▗[U] INVERSE !: MERGE xPI( INVERSE = CLS GO SUB [ATTR INVERSE CLEAR ! COPY x CLEAR n CLEAR f INVERSE ^ INVERSE VPI GO SUB R CIRCLE INVERSE n FOR CLEAR n CLEAR fPI GO SUB R FORMAT CLEAR n CLEAR f INVERSE ^ INVERSE VPI GO SUB R CIRCLE INVERSE n INVERSE f FOR CLEAR n CLEAR fPI GO SUB R FORMAT INVERSE n INVERSE f: MERGE x" MERGE xABS >=:ATTR PIUSR : MERGE x RETURN USR LET NEXT STEP I[A]NOT ©INKEY$ INVERSE !y6 COPY INVERSE 6 INVERSE POKE <> STEP >=[U]:ATTR PIUSR GO SUB [3ATTR OG<(! COPY BIN 6e#6g#6g#6g#6h READ GO SUB [6ATTR OG<>=! OR 6 GO SUB K CONTINUE x6 DIM :ATTR RETURN USR ! REM PAPER ! PRINT PAPER >ATN >= RESTORE MERGE GO SUB VAL LLIST RND FOR LLIST = INPUT <>1{CODE OPEN # RETURN >c2ATTR STEP LIST ! DRAW ~"[I]zCODE 2POINT z< STEP BEEP ▛ STEP INPUT ▞ STEP [K]▞:POINT zPI(6*[I]z DRAW ~PI GO SUB R(>FF>2P|x26| STEP K STEP CONTINUE ▛!%| STEP PAUSE ▟ STEP K STEP CONTINUE ▛!▘| STEP PAUSE ▟! STEP [K]▞!{ STEP PAUSE ▟ STEP K STEP CONTINUE ▛!>{ STEP PAUSE ▟ STEP K STEP CONTINUE ▛!FN { STEP PAUSE ▟ OR STEP K STEP CONTINUE ▛STR$ >IN FLASH RETURN THEN W "*[I]z DRAW ~PI GO SUB R(:POINT zG> COPY 2POINT z! DRAW ~"[I]zxPI LINE RNDNOT RND THEN _ &:POINT zPI(!LN | STEP PAUSE ▟ STEP SGN STEP PAUSE ▟d OR STEP K STEP CONTINUE ▛STR$ PLOT > COPY 2POINT zNOT RND> CLS FLASH RETURN THEN _ STEP [K]▞!*} STEP PAUSE ▟CODE 2=2POINT z STEP NOT RND> CLEAR FLASH RETURN THEN O LINE GINKEY$ OR STEP ▙STR$ *[I]z DRAW ~PI GO SUB R( THEN g ?> CLEAR FLASH RETURN NEW RETURN %> CLS FLASH RETURN NEW RETURN > OUT FLASH RETURN NEW RETURN > OPEN # RETURN STEP LLIST ▞:CHR$ z/2CHR$ zCODE OPEN # RETURN xLEN CHR$ pRND:POINT z/2POINT zNOT RNDCODE 2 MERGE x2PEEK z2IN z2 CIRCLE x2 BEEP x2 NEW x2NOT z2ATTR STEP ▛>2STR$ z STEP USR ▛!" TO z STEP y▙ STEP FCODE STEP [K]CODE 2 MERGE x STEP [K]▞:ATTR RETURN (*ATTR STEP PAUSE ▟> STEP BEEP ▛ STEP STEP [K]▞ STEP i[O]>/2USR z STEP ▛ STEP h[T] STEP RETURN [F] STEP $▚CODE 2y>2y:ATTR RETURN (CODE 2BIN z STEP [F][A]:NOT zPI STEP F STEP ATTR STEP U▖ STEP [B] STEP [F][A] STEP BIN z STEP INPUT ▞ STEP ▙2y:[H]z THEN w(> RETURN FLASH RETURN 8 STEP I[A]NOT RND THEN o( STEP ▙ THEN o RANDOMIZE STEP ▙PI( IF STEP ▙PI IF :CHR$ zPI((> RETURN FLASH RETURN 8!> RUN FLASH RETURN THEN O : MERGE x RETURN c LINE COS PI<2 MERGE xNOT ©INKEY$ THEN G LINE {INKEY$ THEN W LINE COS PI STEP GO SUB [T]: MERGE x RETURN c LINE COS PI STEP " STEP CONTINUE ▛ STEP RETURN [F] STEP CONTINUE ▛ STEP INT [R]: REM x RETURN COPY > COPY 2y STEP $▚:y< LINE 2FN STEP CONTINUE ▛ STEP U▖ STEP CONTINUE ▛: GO SUB x0 STEP )▞ STEP CONTINUE ▛ STEP [B] STEP CONTINUE ▛:ATTR RETURN : BORDER xPIBIN ATTR STEP K POKE xLEN CLS STEP ▚ STEP CONTINUE ▛NOT DATA INKEY$ STEP , NEXT STEP I[A]! OPEN #} STEP PAUSE ▟CODE 2INKEY$z*USR z& MOVE @ STEP L▙> STEP BEEP ▛ STEP :USR zG OR > STEP TAN ▛ STEP y▙>2FN z STEP W[N]CODE 2INKEY$z*USR z& MOVE @ STEP L▙ FORMAT STEP DATA ▞STR$ ERASE STEP LLIST ▞:ATTR RETURN LINE )FN < RETURN > RETURN > STEP [K]NOT {INKEY$ STEP , NEXT STEP I[A] STEP , NEXT STEP I[A]:ATTR RETURN LINE PAPER FN :STR$ z=2STR$ z PRINT STEP USR ▛ LET CHR$ ©INKEY$!BIN } STEP PAUSE ▟> STEP BEEP ▛ STEP STEP LLIST ▞:ATTR PI(N RETURN (J STEP [K]▞!POINT ~ STEP PAUSE ▟ OR x AND 02 LINE ~! OR ~ STEP PAUSE ▟[Q] OR STEP ▙STR$ :[H]z THEN g LOAD STR$ BRIGHT STEP [K]▞NOT ASN FN STR$ >2STR$ z STEP USR ▛!" TO z STEP y▙NOT {INKEY$* TO z GO SUB [ DEF FN zPI GO SUB R PAPER RND LINE RND* TO z" DEF FN z! PLOT } STEP PAUSE ▟ STEP LLIST ▞ STEP LLIST ▞NOT RND:NOT zPI LINE AFN :STR$ z=2STR$ z STEP LLIST ▞NOT FN @!// NEXT u GO SUB VAL > COPY 2:/2]><>2CHR$ />2>=/ STEP OPOINT * LIST STEP ▟POINT GO SUB { LIST CLEAR * LIST !0 PAUSE / POKE GO SUB VAL !$ POKE GO SUB d GO SUB VAL NEXT <> MERGE ! PLOT RESTORE STEP ▟POINT LLIST RESTORE #~ RETURN N #~ RETURN D #: LIST PEEK ( RESTORE MOVE THEN [( ERASE <= MOVE MOVE F#^#V<> OR CLEAR > COPY STR$ NEXT <> MOVE GO SUB RCHR$ POINT ! DATA POINT " THEN POINT INVERSE LLIST MOVE NOT ©POINT ! RANDOMIZE POINT " THEN POINT INVERSE !POINT INVERSE pNOT ©POINT |!POINT ▚#PEEK STEP 1SCREEN$ 7<> STEP SCREEN$ FORMAT >= CLEAR PI <> STEP 1SCREEN$ 1PI<> FLASH RETURN >=POINT NEW ( FOR y/O NEW PLOT OPEN # RETURN 7<>CODE OPEN # RETURN <> NEXT > CLEAR © GO SUB y> COPY 2 COPY COPY > GO SUB y>2 COPY COPY > GO SUB y: COPY COPY 2 COPY [> GO SUB y1 LIST NOT [D]x
