GS boot: boot.B

  0 REM  GO SUB A▚▚▚<><><>xLEN   CLS 9#<>3 NEXT 1 COPY  COPY *O/PEEK  FOR  GO SUB VAL  CLEAR  THEN INKEY$>NOT 2 CLEAR  CLEAR & RETURN h> CLEAR w# DRAW w> RETURN  GO SUB G GO SUB ^!CODE ]" RETURN  CLEAR : RETURN NOT (T CLS v!LEN ]" RETURN  CLEAR  RETURN  GO SUB _ RUN  CLS <> LLIST  NEXT !@ATN  GO SUB R  STEP r^!"O]!8ATN  GO SUB R  STEP r^!I"O]!.ATN  GO SUB R ![I]"O]!"V]!▚▚"G]!^] THEN n(" FLASH  NEW  LPRINT  THEN [G]  THEN  VERIFY  OUT  IF  GO SUB x GO SUB X COPY  GO SUB PINT (SQR   THEN [O] THEN  OVER 0INT 1!x GO SUB LN [J] GO SUB LN !^] THEN f(= CLEAR > GO SUB y>P OPEN # CLEAR !iUSR "dUSR !▟^iUSR  AND  GO SUB VAL !//STR$ _ GO SUB VAL !xi[L] GO SUB VAL !LN 1 GO SUB VAL  CLEAR CODE  GO SUB yNOT xi!^@] GO SUB VAL !^] THEN ▚<> GO SUB A▚▚▚ GO SUB S[S]USR "RNDUSR 2CODE USR !0uUSR > GO SUB VAL ! LET USR 0u> GO SUB VAL *m INVERSE "RuNOT 0u0u!USR > GO SUB VAL ! CLEAR > GO SUB y>NOT  CLOSE #>© FLASH  CLEAR ! COPY ZCODE  OPEN # RETURN w+ THEN /  IF IN  COPY  GO SUB iC GO SUB y-  RUN /!/STR$ _ GO SUB VAL xi[L] GO SUB VAL LN 1 GO SUB VAL NOT xi CLEAR © GO SUB Y:USR  RETURN U :USR  RETURN SCREEN$ ( THEN c  FOR CODE  GO SUB y OUT :![G]USR  RETURN ( RETURN  !COS USR "USR > GO SUB y GO SUB y DIM !i[ DRAW  GO SUB VAL FN a MERGE NOT [ INVERSE ! POKE  COPY  INVERSE 9 MERGE  RANDOMIZE STR$  FOR STR$  FOR STR$  GO SUB R8T] GO SUB LN  FOR  INVERSE V INVERSE ^ RANDOMIZE  LLIST  LLIST  LLIST ; LET  INVERSE w INVERSE # RUN  INK IN  LLIST ; LET  INK  INK ) LLIST A8 NEXT >) LLIST A8 SAVE  RETURN 8_POINT   GO SUB  RETURN (Z DEF FN  COPY  RETURN  INK O INK >IN 8) LLIST A8 SAVE (<▘0[C]< > LOAD IN ) LLIST A8 SAVE  INK & COPY (g;<( LET o GO SUB VAL [U] INK  THEN [Q] LET  RETURN  LPRINT 8 LIST POINT <( LET  VERIFY oO& COPY  GO SUB [Q]; LET #~▘>) LLIST A 8 PLOT  > DRAW ;STR$ HG?[F] RETURN 8 PRINT  ▙ AND  POKE  INVERSE  RANDOMIZE [P]> LOAD ) LLIST A8 SAVE  INK  USR  THEN ©( STOP  VERIFY  REM  FOR  MOVE s#r#=  SAVE  FOR 0[L]<>HR#▞[F]ASN  LPRINT [F]ASN  COPY  BORDER O GO SUB _POINT FN M PRINT AT 2SGN fG▖ATTR TAB POINT SCREEN$ 2b># OPEN #SQR © INVERSE zCOS  RETURN ( FLASH SQR 8 LET CODE COS  RETURN ! COPY  FOR ><>2jnCODE o+Ng GO SUB  DEF FN " CAT  PLOT  %Qm STEP rn▞U<> OUT O CLEAR ©> GO SUB y: RETURN NOT  x FLASH  CLEAR  RETURN [D] GO SUB  THEN W SCREEN$ 7!AT "dUSR CODE / DRAW ^] THEN > COPY  NEXT  OUT IN u( FLASH  OUT /2 TO h DRAW [H][ STEP ATN lCODE  OPEN # RETURN G LPRINT  MOVE  LLIST NOT  CLEAR &|| GO SUB Gh>w# OUT  DRAW  INPUT ^i" RETURN  BRIGHT  DRAW  CLEAR 1a!*sg[U] COPY s3 DRAW VAL  LINE o RESTORE  OPEN # DEF FN za THEN  LPRINT LLN = MOVE 1W COPY `> NEW ▜▟ CIRCLE o_T)| PLOT   DEF FN g FORMAT s INVERSE  DEF FN  GO SUB zPEEK uiY LLIST  MERGE { CLOSE #N COPY 1 LLIST ^,~O FORMAT  THEN  LOAD  PAUSE y NEW  COPY  LLIST @O{$?LEN -w,%f NEXT  STOP ![E]o[M] LINE  MERGE PI OPEN #  LINE TX[U] STEP ~/ IF  RANDOMIZE  LLIST  RETURN USR  OPEN #TAB JMIN  SAVE H STEP  IF iATTR n SAVE  COPY [L]1p5o INVERSE & PLOT  Z~W▛+~ READ  NEW _ GO SUB [JIN c{ AND  LIST _ CLEAR  NEW  COPY [L]▜0 MERGE  PLOT   OR  PRINT ( LLIST [K]CHR$  FOR [K]ATN ATTR B"[J] COPY + INVERSE % INT 16oKB▖ FORMAT >$ MOVE 6 LLIST # THEN z  LIST j(Hx RETURN ▝ GO TO C7. NEW =>*# CLOSE #f ERASE c MERGE  REM SIN ( GO TO ABS  CLOSE # RETURN  DEF FN K DEF FN  INK  DEF FN 7f STOP > =w POKE [L]▚+VAL$ r(z NEW _3 OPEN # CLEAR "s VERIFY )0[J] RETURN  * INVERSE o MOVE  STEP  DIM j>▖ RANDOMIZE ▚^ FOR !o:M* FOR o TO  BRIGHT =  GO TO -? DATA G© OVER  INVERSE }=CHR$ Ucc OUT R RESTORE ! OUT g DIM [L] OPEN #Y-Y~)  DIM , DATA  RUN  VERIFY g;AkCOS  THEN  COPY  BEEP J INK YA>P OPEN #LSCREEN$ Q FOR POINT M NEXT  RESTORE  NEXT < LLIST TAB l RETURN x INVERSE . GO SUB s`e▘j6 AND  CLEAR ▘[E]ATN  #VPEEK SRNDfgl*@]MD)s0 CLS O FOR MEr[C] RANDOMIZE & POKE d>STR$  INK 2q CAT p/ PAUSE >=[J] FOR  DIM  DIM CHR$ b OPEN #K DEF FN !B PAPER [Q]NLEN  LET CODE  ERASE  FORMAT  PLOT  <>SCREEN$  RETURN t RETURN ( LINE r6COS { LINE r[O] BORDER %08RND THEN ▘ NEW X3>=>=fLN  RUN !LN ▖bAT  INK PEEK EXP  INK >yH:jOO DEF FN 2u[G]]▖[N]Dy CAT POINT FINKEY$ CIRCLE _PI9 CLEAR  " PAUSE LEN COS  DEF FN $ FOR AT >B DEF FN :HAT COS [o[E] DIM s BEEP  CLS I@e?Yq[E]▜qe BORDER [G]v LOAD &ATN [F],[F]->$0 BORDER SIN  RUN  BORDER o BORDER  FORMAT K NEW [F] NEW COS IN 2 FORMAT >: RETURN E IF eMM THEN QM NEXT 4B>08 CIRCLE  OUT D BORDER  RESTORE  LLIST ?[P]GO>3 DRAW SIN [B]GLEN  LINE ;VAL [K] CLS  COPY   LLIST  DIM >>= TO  LINE !f0I STEP STR$ CCHR$ CHR$ HM[S]VAL  POKE [Q]@ FLASH  FOR STR$ rU[A]q NEXT ATN <= INPUT LEN j VERIFY s/TAN ,LN  FLASH & DEF FN ?© LIST  CLOSE # FOR  INVERSE - PAUSE [J]TAB Ld[B]: RETURN hnSQR G RANDOMIZE  COPY BIN  COPY  GO SUB C6iCODE 2? INPUT  IF ACS >[D] OVER VAL$ INKEY$U% MERGE y[C]ABS  INVERSE ▚Cm CLEAR z: PLOT  /2[N]ksINT > FOR  CLS  INK nP[O]POINT  VERIFY  VERIFY  VERIFY  DRAW [<= TO [C]jBIN ▞ASN U. DIM CODE  CLS ATN  GO SUB RCHR$ !n NEXT  STOP [ CONTINUE 7AATN ACS [K][A] OR O LINE l INK  BORDER @ GO SUB  INVERSE & THEN  READ ATN (~©▗8B TO x▗g/Bs>= PRINT F FOR l RESTORE 7 OR  DATA f READ [I] LLIST (X5[4 COPY  PAUSE ,{p[K]a8 VERIFY ▙~oy&DMW` LINE 7'=▚Oy OR  AND ▜ INK G~#▟ COPY  THEN ? DRAW  DRAW  IF ACS w#z COPY  INK  OVER  FOR [H]CHR$ TAB  DRAW  / RETURN ASN !vg4 INK STR$  LLIST [J] PAUSE <>! OPEN #n[H]a3 DRAW  THEN ;~VCOS  NEXT  COPY   LINE  LLIST  NEW M@[ GO SUB ^ READ  DIM n AND  INPUT o DIM  COPY &X6"> FLASH  CLEAR  CLS v6[L] PAUSE  CLOSE #5 MOVE 6;xZ PAUSE  LLIST ▛INKEY$[D] CLEAR  CIRCLE 2<>[M] CLEAR TAN o9 LLIST COS >#7[B]"NOT SCREEN$ VO RESTORE SCREEN$ V RANDOMIZE  CAT b$p[R]ms RETURN &Q! NEXT g5 LINE  MOVE f MOVE [G] READ 1 COPY =2h*'iPOINT  PRINT  RANDOMIZE ▙> RETURN  FLASH 2[L] AND  LOAD  INK  THEN g LINE  READ hjEXP _[D]©[J]_ PAPER [R]gNOT  THEN |ASN  THEN OCHR$ ^ DIM  BORDER g{^ ERASE Im> RETURN [S]RPEEK  LINE T CLOSE # CLS >ASN  IF TAN ACS k[L][Q]0n REM "IN t. AND 0_ LOAD  GO SUB  MERGE  FOR l BRIGHT W(YH REM  M DEF FN  BRIGHT /ilgCHR$  OVER 'RNDp PRINT  OUT  GO SUB CODE  TO PEEK l2[Q]hoL BEEP  CAT v OUT  IF [D] LINE  GO SUB x/w PAPER ▜ CLOSE #PI[G]POINT }7jb[D]!INT [K] RETURN n▚w IF  COPY h RETURN O6 CAT h<©PEEK  ERASE gC PLOT   DATA $j[K]w COPY 4 INVERSE  SAVE i[C] INVERSE :I CAT ATN <=cR RANDOMIZE  OUT <=ZW IF  NEXT {▞/ COPY  OPEN # RETURN  GO SUB s-iV▟9NOT  FORMAT JIN  STEP N] DATA  RETURN ▙'s".[C]t VERIFY USR [N]S STEP [U][R]dln'R BEEP NAUO>=<[F] CLEAR  STEP iW> NEW /SCREEN$ Omi5( STEP INKEY$> PLOT  d<> IF <v[U]NOT CHR$ / CLEAR TAB  VERIFY PIBSTR$ /=[J] NEXT  CAT >!S*4V▘VAL$  OVER E$!@' PAUSE POINT 1 PAUSE ov MERGE GACS i FOR 4[O] CLOSE #<> LET  STOP NOT : STEP  NEW @ RETURN  STEP  READ  RESTORE /=x OR  CLS  INPUT STR$ yu MERGE C BORDER  LINE TAB STR$ 5 NEW <> FOR 6 GO SUB #POINT W SAVE COS  OVER NOT PEEK +r RETURN  MERGE ACS [I]SB FOR INKEY$ BORDER  MOVE <># LLIST 2A35Q LLIST ACS ▜O[G] DRAW [E]Y COPY !SIN I OVER ▚~$NOT  RANDOMIZE  CLEAR 7 MOVE ; DRAW !CODE #?5 DEF FN I"FN ghS[O]STR$  CIRCLE  AND <=" INVERSE  READ : LLIST }[#[A] LINE [T] DRAW c CONTINUE ) PAUSE > COPY uf▙ FOR ▘j( OUT  NEXT @▙Z THEN 2ASN jABS TAB  STEP TAB SCREEN$ g LLIST  RANDOMIZE S THEN & LINE TRND/ CAT PIATN (/BIN  AND   OR TAN j LIST  LIST o_ INK !g AND , AND ▜▚ INK  COPY  STOP  THEN ?P_ MERGE + INK / DIM  GO SUB   TO L2 CLOSE #AT /n[M] COPY  THEN j RUN :LEN USR  PLOT   GO TO ?A( STEP k6.# FORMAT  LOAD <>*>i FLASH [L]i FLASH CODE  RETURN IIN 0<>?[U]y RETURN . ?e?IN i= PAUSE "k1<>e VERIFY  POKE "ATTR ATN ©YUSR s&R RANDOMIZE  LLIST . PAPER xABS  RANDOMIZE $ PAUSE  PAPER [L]O LET k! COPY ZASN +[C] FOR  THEN /  IF  LIST  IF  MOVE ▜ CLEAR !:/ GO SUB Vy GO SUB ][C]EXP ,*▛INKEY$ POKE  MERGE  LOAD { OVER "=/ POKE N= CIRCLE sc PRINT = LET 2] AND >= PAPER  PRINT  GO SUB /66POINT  RUN  LET [G]lATTR  FORMAT QTAN k RUN [J] LINE 2LN  LET f@SIN  NEXT <>SGN  READ  RESTORE  MERGE / FOR  GO TO (S READ  LET  THEN 3<> OVER $ IF  NEXT k GO SUB  CLEAR INT ( LET USR v PRINT S IF .ABS TAN /lkINT <=[S] NEW  CONTINUE  IF  RESTORE  INK  LLIST  POKE  THEN <~STR$  FOR SCREEN$  MOVE  MOVE  PEEK [E] SAVE  READ KSGN  NEW ACS  GO SUB w[L]RDCOS  READ  LINE " PAPER ▗- OPEN # RETURN k COPY #1@ COPY >? GO SUB G PAPER  INK Xw COPY  FLASH !Tg9"6[J] DIM  OR $RND> RETURN W RETURN SIN 1▗']; OPEN # REM  GO SUB  BORDER : RUN  FOR o POKE != RESTORE  INVERSE  INVERSE -[ OUT  TO [J]_lFN  PRINT N TO O? LOAD [R]NOT 3 LINE [P]POINT CODE +wACS ( CLS C DIM ABS  INPUT IN lATN  IF ^s OR > STEP  IN ▙"Oi2<=NqO3( LPRINT 2Ri BORDER  OPEN #SQR  LIST 2 CLS [S]if VERIFY *l[L]8e!/m THEN S94 GO SUB [ POKE oRNDESUSR USR E[H]USR  RESTORE Yy NEW 97STR$ nIN [O]CHR$  THEN !8 NEXT VAL$  LET  LOAD +V^[L]i CLOSE # CLOSE # MERGE  PAUSE DyojSTR$  BEEP ABS 8DCODE [O] THEN !M. LOAD  LEN *[L]:DKBIN SCREEN$ INKEY$ GO TO [L]CINKEY$> NEXT  STEP jn RUN  INK 0ASN  BORDER  FLASH COS 2 MOVE  FOR V INVERSE !* RANDOMIZE  MOVE M▜©[F]} INVERSE ▚o|% SAVE ▙g▞[E]Oz PLOT  [R] LOAD ATN  THEN Nl FLASH LN CF RETURN CODE [L]m CLS PEEK 0[P]~n POKE <WCODE <#_"©VAL$ ▞OCODE <©VAL}ATN (VAL$  MOVE  OR A RESTORE x[L]K POKE X8RND| PRINT 'U THEN .~TAB STR$  LLIST  LINE SnH~ OPEN #COS # FLASH SQR 8 CLS 7  LIST  LLIST ? OVER BIN DM0PEEK >8k ERASE TuY1▜^ TO  CAT  PLOT   LLIST LEN ! OVER l" AND >=[A] AND  OR  NEW V▛AT JTSGN IN !SCREEN$  MOVE VAL$  CLOSE #ABS  RESTORE Bj5 THEN SQR <>'c BEEP  RUN <= MERGE  STEP [F]PEEK  LLIST  CAT }gd FORMAT  IF [G][G] RANDOMIZE a PRINT oACS a`y3g<>Js PAPER R MOVE uCODE L MERGE co? BEEP  MOVE =  POKE <>NL OR wUSR SQR nPEEK #USR  RANDOMIZE <>z NEW  DRAW { AND  _ CIRCLE z VERIFY W IF [I]/bot ▛IN NO[R] SAVE BASICD FOR  SAVE K ER OUT  PAUSE X CAT  BORDER X0 COPY  LLIST  LOAD g.*( RANDOMIZE  RETURN u BRIGHT 6u COPY 4 COPY [ CLS ©q© COPY 53[R]D LET <=~© LIST U RETURN G DRAW 5C4? CLS *?jCOS [Q]-i/ RESTORE j VERIFY COS k TO  STEP  PLOT  X DEF FN  LET PEEK  CAT [P]k▘ GO TO  POKE ▟ FORMAT TAB >=j POKE <> LINE kWTAB l▘<m LLIST }/ SAVE  CLEAR [H]>=COS [P]PEEK  INPUT [O]{{g((C) RELsMTU!~~ PAUSE ATN 65 SAVE -.IN LEN ?$"-$ AND ?%-SIN DVAL <=-cg"[G] BEEP %.7>5,#[U] CLEAR [I]d FLASH STR$ <= AND  CIRCLE CHR$  ERASE ~ CIRCLE  PRINT [J]} IF  CLEAR  DATA  LOAD  OR 6 FLASH  FLASH  CAT  DEF FN _ LOAD  FORMAT B^Q RUN tdfs[I] REM Svi[L]Z@j* PAUSE =P TO ; CLEAR  DATA KvPI PAUSE Q_S OUT oY IF  ERASE A^ LET H RANDOMIZE <= DRAW 5[I] COPY %?SCREEN$ :IN  RETURN [A] RUN ?=!) MERGE  RUN ©z GO SUB INT >_ DIM VAL [H]IN Ej_ FORMAT J'64$RND>_ CONTINUE 3 THEN /?1/ DRAW  PLOT   OUT `2 POKE @VAL ▙ DRAW  CIRCLE jATTR P SAVE  CAT  PLOT  p[Q]/|(>= FORMAT  X[I]P`vHp@ DRAW COS  INVERSE `J DRAW  BEEP c RETURN  CIRCLE  SAVE  FORMAT PFC MERGE ©`[D]SQR xSGN 8▜) BORDER USR ? NEW  CIRCLE COS ▜x▛[I] SAVE FN "0 STOP VAL  SAVE NOT [O] LPRINT N[I] PLOT   LIST x[M]p LET  REM z IF d<= INVERSE ACS BIN  I&STR$ [O]LEN AT  DRAW  INK $ASN VAL   NEW LN [D] FORMAT USR x[F]1dSCREEN$  AND L READ  DEF FN USR <>|$ STOP  RETURN USR a<=LN  LPRINT  FLASH dr>= OVER SIN  COPY [I]`VAL$ LJ[U] OPEN # MERGE [N]©<=V▖fATTR [I] PAPER ? POKE pVAL [J]BIN >=MmXVAL  DEF FN jSTR$  LPRINT p8<>[F]*ATN  ^ INK  DRAW TS▟©8 LPRINT ▞d8^[C]IiP CLOSE #N INK 6G(h LIST faSGN SQR  RANDOMIZE RjINKEY$` LPRINT `9 RANDOMIZE ▞8hl4FN 1CHR$  INK   GO SUB s REM SCREEN$ .!/ATTR ~=w LINE  LET INKEY$ NEXT NOT 'PIRNDCHR$  DATA PI DRAW ]5q> PAUSE  COPY  PLOT   COPY < "1 NEXT SIN  MOVE zCOS |b COPY  RANDOMIZE y LLIST "/RNDZ[L]INKEY$CHR$ +[U].LPI INK  DEF FN [J]xu AND  INK ▖ RETURN ` PAPER  NEXT [U] VERIFY  LIST 0D AND 8-COS BIN   DIM  AND USR [P]@2RND STOP ▜m RETURN ASN o DEF FN COS [F]g RANDOMIZE USR PId[B] OPEN #Y RANDOMIZE TAN [O] MOVE `ATTR  THEN SIN ^FN  MERGE  INT  NEW >4©LEN  INVERSE o BRIGHT pCOS  VERIFY  BRIGHT ATTR  BRIGHT  DIM  FORMAT $[U][C] DRAW [N]} OVER f BRIGHT  ERASE [G]yINT ,▟ STEP VAL$ RND6▜▝? INVERSE  PAUSE INKEY$NOT S[U]=/ COPY #▜0 INPUT  SAVE  AND ▜1 SAVE 9`K0 LET  RETURN V8^yPOINT  FOR .ePOINT  CAT  LET  IF i!:4ABS ▗ NEW (USR  FLASH LN  DEF FN  MERGE  NEXT  IF e COPY  GO SUB S$[U]NOT / PRINT ^ PRINT [J] DIM 2 RANDOMIZE d; BEEP T CIRCLE RNDl LET  CAT ` NEW IN k[ BEEP  VERIFY a/[O]zPOINT  LOAD ▙+ RANDOMIZE VAL r RANDOMIZE  RUN  CLOSE #SCREEN$ js=8RNDINKEY$ LET ▚F©TAB c6 RETURN { ERASE VAL GL{:▗g RETURN @Y%ASN b1YIN _LEN CODE [R]ABS INKEY$6▝ NEW [L] COPY LN m RETURN FN wmbZSCREEN$  INPUT POINT IN  LET AT ?[C] DEF FN -[H]vO[T]SCREEN$ ) VERIFY <= OPEN # SAVE  OPEN #F VERIFY 1 TO  COPY >=S[[E]g PAPER :▗j NEXT ▟c%Pg>6K[R]ATN "SIN FN [D]TAB ? REM  FOR [BIN [C][TAN ▞h FOR TAB UL?▚ATTR fm<> MOVE  RESTORE [U][M] MERGE fULN  IF /JN<=COS  BRIGHT jINT VAL POINT ATTR L3 OPEN # CONTINUE NOT ASN [C]COS [SCREEN$ NOT [A]SIN TAB [U]!COS ET[R]3"J REM AT  AND <=If MOVE  READ  MERGE COS YUP SAVE [H][C][Q]<=COS ATN :RVAL$ SCREEN$  OPEN #POINT  OPEN # NEW TAB $NOT COS  NEXT ▗jNOT ▙VAL +POINT EXP COS  INVERSE Uh FOR BIN  OR [C][J] MOVE  LLIST  MERGE COS VU CONTINUE  PLOT  5c[Q]<=Q TO  INVERSE nATTR  INVERSE [R]EXP =NOT  OUT FN O OUT x># VERIFY  RETURN 0[P]SCREEN$ 7NOT [L]B!&y▚ PAUSE [K] CLEAR  RETURN  LET  DEF FN ▛ VERIFY  COPY wLN  NEXT $ SAVE x NEW VAL$ OSCREEN$  RETURN 8 OUT j INPUT (I[P]VAL$ 8 VERIFY  TO  LET CODE  STEP ? NEW [J] STEP x RETURN 3ABS [P] AND  CLEAR SCODE V DRAW  MERGE  AND  LINE ATN ~ BORDER [S] ( DEF FN  TO TAB yv INVERSE /[L] OVER !/▚ LINE [H]wyQ GO SUB DLEN !tASN zl1▝zx▙[C]TAN ▙ DIM  BORDER t THEN  MiATTR [B] INK [I] RANDOMIZE [P]/ NEW UVAL [Q]S_AT VAL  CLS L GO TO >= MOVE r ERASE cATTR [G] DIM <>0PI  PLOT  USR 6 INPUT k INVERSE POINT Y[S][B]!Su$▝oTAB X STOP  LET UQ[I] IF  TO  SAVE  BEEP  STEP =YIN  STEP QX" AND W▞`INKEY$TAB #iNOT ▚ DATA <>V#<>r TO  THEN STR$  TO DATTR e FOR g[G]USR Nl FLASH SCREEN$ PEEK [S]0[B] LPRINT BIN  CIRCLE  VERIFY HPI OUT _ PRINT POINT 8©▟ TO  STEP ; PRINT ▛ STEP ▝[B]Oq|[F]fjpTAB [C]H>5b<=l, THEN f:BIN SCREEN$ g PRINT 3[G]eINKEY$m CAT x[F]uLN njLo[_IN  COPY +P[K] STOP B GO SUB yC FLASH  OR  PAUSE = THEN ▗l32[E]<> SAVE  PRINT  GO TO wCODE [U] AND  TO ABS INT [O] ERASE  PAPER  BEEP  PRINT ACS  RESTORE * OVER S GO TO /[E]RNDATTR [O] PRINT LEN [S] PRINT INT ATN IN [L]* BEEP NOT / RESTORE 8 PRINT  GO TO yINKEY$[A][G]▜J[O][M] NEXT INKEY$uABS EXP  LINE FN W LET }{J CLEAR  LOAD  FLASH 6POINT _RNDA{) RESTORE  IF  RETURN  LINE ▛ INVERSE Q GO SUB A LINE  REM ;)/~GyPuETx]Q/ ERASE  FLASH (VAL AE[INT s LOAD `INT  CLEAR " PAPER  NEW  CAT [L]+` PAPER  OUT ( OR X OUT  SAVE - TO "▘ GO TO [B]/n GO TO  AND [P]@ NEW [B]g RUN A PLOT  VAL$ v[T]k, LIST ATN 1z▘O=; PLOT   NEXT >=[R]AT g{W6g RUN  SAVE  BRIGHT  PRINT AT STR$ FN [A]yCOS [O]dPz VERIFY =,g7 DRAW  INPUT  PRINT AT  LPRINT  CLOSE #>=ABS COS [O]SIN FN z VERIFY [P][G]▟Y CAT ~w= FOR pjdAT g^YT[O] PRINT PK VERIFY COS GC?<Fz85▚ CAT z/- FOR Y*(&$g=" 1[T] CLS [Q]USR  LPRINT  RETURN a5[R] CLOSE #~CHR$ [I]9[B]INKEY$ REM STR$ aC"!)© LINE  MERGE ▚ IF CHR$ ; RETURN L$R[F]XLN ©G[Q] COPY [S] THEN  LOAD gBIN  LIST -&c+a=BIN .e AND D&a()igsNOT  GO TO QTAB `qySQR  PRINT BIN a PLOT   CIRCLE  GO TO  VERIFY NOT ACS  CIRCLE  COPY  AND  CAT ATN [U]j0ATTR r CAT 2a0 CAT C40USR U PRINT 3571▘ THEN 1 RANDOMIZE  GO SUB  DIM ACS ▙ RESTORE EXP USR  STEP ` IF USR  CONTINUE [M] LOAD r<=[T] REM & AND  REM c BORDER  REM . MERGE  PAUSE -AYSIN | TO b[-Y2 RETURN  TO 0 INK [M]sEXP - BORDER V-) SAVE  SAVE Cn REM g AND  FLASH INT LEN Q MERGE  STEP &3[N]{ LLIST  FOR "STR$ l INVERSE  COPY [F]! LINE o MOVE  LOAD p0 SAVE z PRINT S<▚2| PAUSE ?$$ CIRCLE <= INK 6▝▝ CIRCLE ▝3(Hp COPY [T] AND [C]<<>▜3`ACS  LLIST <> CAT >=>= BRIGHT  RETURN ▗c>=[M] RUN IN 2 BRIGHT <=>. AND +[S] GO TO 0.3 LPRINT !AT ATN  OR  CLEAR I$ DATA  OR ATN  RANDOMIZE  RANDOMIZE  COPY [U]CHR$  LPRINT  RETURN c^ LPRINT  DRAW ! LIST  RANDOMIZE S▝[T]/ PAPER  NEXT 6gj[Q]` IF CHR$ <>©G FLASH ©OY^ COPY [H]] CAT  LOAD  STEP `!#ah MERGE  COPY  RETURN (-/ COPY ~9[P]SVAL$  LIST SIN 9'▖CODE  CIRCLE j{&vTAB PIc7CHR$  PAPER [N]VAL Q[P]LEN kINKEY$$W REM  CIRCLE Z3SIN N BRIGHT [L] THEN ~[Q][U] REM [Q]▟ GO SUB  FLASH COS  LET  CONTINUE  INK TAN Q[J]<> LLIST  INK  LIST COS <=COS USR @ ERASE L STEP FN , VERIFY  CLS INT  INPUT  INK  VERIFY  MERGE  OUT ASN VAL$  RESTORE [L]f FOR  LPRINT j; PRINT  RUN AATTR  FORMAT  MOVE m POKE  GO SUB TAN  FORMAT * RETURN SQR }ATTR ZPI VERIFY  OUT  ERASE  LLIST ▟> LLIST AT f! DIM  MOVE 'f-TAB VAL$  DRAW  COPY 3INKEY$Y RETURN 9INT  PAPER ? FORMAT uE MOVE AT K` VERIFY  VERIFY  FORMAT PEEK WS FOR ]} REM  BRIGHT POINT OcAT 0 PRINT iLN GoN STEP  VERIFY u STEP 5 LINE {PEEK ▝>TjVAL$ ▜LN ▟ OR [R]cr[D]LN  FORMAT M3 GO SUB  IF [P]ASN nFRNDATTR uATTR LEN ]TAB ATN  FOR jABS .SNOT @ MERGE  BORDER  MERGE INT 34 CAT a]} MERGE  FOR " FLASH ZW LLIST  MERGE INT  BORDER  GO SUB VAL$  VERIFY  NEXT VAL$ O FORMAT ASN %Y CAT 9M= FOR YeqAT gy▝▞n POKE [B][F]j~ CLEAR  DRAW  DATA  INK ! LPRINT  LIST )ATTR P-2[F]15INKEY$[I][N]=[D]COS AE FORMAT  LIST  DRAW I STOP  DEF FN QbpU=f` RANDOMIZE FN INKEY$']aMz SAVE [O]j1 DRAW i[N]m▙A[E] LIST ▞uSIN c LIST q}L| DRAW ▖ POKE [I] CLS ▘▟[I] SAVE  RETURN |?INKEY$azFUHR1 BORDER ? COPY  CLS [P]V MERGE U PAUSE  CLS USR  PRINT  OPEN #ay INVERSE STR$  MOVE  OPEN #ACS NOT  RUN  THEN USR  COPY  GO TO W/W MERGE  STOP [H]USR [C][Q] COPY [C]_USR X/~>= CAT  REM  PRINT 3d COPY r OVER }[[NOT STR$ q PAPER RND3 INPUT ,>=CODE  MERGE / IF  RESTORE ,VAL [N] MERGE IN  CLOSE #▝USR ^ READ 6fCODE  MOVE [N] LOAD <`2USR  DRAW VAL 6 RETURN  CIRCLE V VERIFY IN CODE  CAT BIN  RETURN u7@NOT [S]INKEY$T!VAL  CLEAR ATN  ACS c STOP W` LET xU LOAD [P][N]0 INVERSE [U] VERIFY Bfn CIRCLE XWX }[ASN ▝ RETURN ATTR Q STOP _5pj`STR$ 'STR$ VAL$ ▝ CLEAR  SAVE USR IN  BRIGHT m RETURN  MOVE  STOP STR$ ©` COPY  X>[Q]_USR y READ NOT  COPY  SAVE G INVERSE ABS EXP  FORMAT LEN  RETURN  MERGE o[A]STR$ @) IF  COPY  LIST [H] ERASE  BEEP  COPY USR  LIST 4 LET SCREEN$ `[K]eATTR @ LET POINT EXP `VAL$ AT ~ / CONTINUE a RANDOMIZE ©<>NOT  CLEAR + OPEN # OPEN #USR [P] RETURN VAL [J]USR IN  CLOSE #X OVER o COPY  CLS   CLEAR [L]  RUN _8 LPRINT AT `USR xRNDXPEEK `VAL XF INVERSE #[Q]▘ STOP  OUT `[N]▜ COPY [T] TO  INPUT USR @G` IF  LPRINT _PEEK PEEK IN INT USR  RANDOMIZE W CLS ATTR  CONTINUE fUSR kf RUN aAT CHR$  OVER l8 DRAW [K] RESTORE  BORDER &PEEK  VERIFY 4VAL COS SVAL [L][Q]VAL y`VAL VAL 2 PEEK jX▚<>& TO 4 RETURN  FOR a[Q] FLASH -y PLOT  ATTR a OUT bVAL [R]VAL 8USR AV▝[Q] IN CODE ▝ RESTORE IN  COPY  PRINT STR$ INT @( CLS 0}A STOP  OVER dCHR$ ATTR  OUT ▝ LLIST  RESTORE  RETURN u@`STR$ CHR$ ▚ RETURN  FORMAT USR  LPRINT STR$ F@0[Q]VAL @!▝IACS _0▝ CLEAR FN 
  1 RANDOMIZE USR VAL "23903"