BeeperStack (MusicDisk): BEEPSTAK.B

Es parte de la publicación: BeeperStack (MusicDisk)
Tamaño del archivo: 14230
md5: da38cdb8e2be2faa709808bf1f9226ad
  0 REM AER'S "bEEPERsTACK" mUSIC aLBOOMtRACKZ by AER / cODE&gFX by SAND!+1 NEXT  CLEAR  THEN INKEY$ RESTORE *=/s#r> CLEAR © GO SUB y LLIST @+ COPY [P] GO SUB LN NOT `1`!XX COPY u GO SUB VAL CODE  OPEN # RETURN !IN bUSR  STEP 'a STEP  MOVE `![Q]X STEP [O]` RESTORE !Fj STEP z` LLIST  STEP [O]` RESTORE !p STEP z` LLIST  STEP [O]` RESTORE !ACS u STEP z` LLIST  STEP [O]` RESTORE !-{ STEP z` LLIST  STEP [O]` RESTORE ! CIRCLE  STEP z` LLIST  STEP [O]` RESTORE ! LPRINT ▚ STEP z` LLIST  STEP [O]` RESTORE !^ STEP z` LLIST  STEP [O]` RESTORE !BIN [B] STEP z`[U]@[M] STEP 'a STEP a>▝2E[O]> STEP 2h[O]!a"i[O]><>2k[O] STEP @[M]NOT  OR `~ PLOT  Cw, RANDOMIZE  MERGE ~ PLOT  Cw, RANDOMIZE  MOVE xv OPEN # RETURN v RANDOMIZE CODE v OPEN # RETURN <> COPY X! CIRCLE  GO SUB VAL <>!USR @ GO SUB VAL  STEP a!X CIRCLE  NEW ?( NEW USR ACS wVAL$  NEW (4VAL$  NEW 8(~ AND w#| RETURN [8 OVER = ERASE <> CLS vvv<> PRINT  OR  MERGE  RESTORE ! X}~ INPUT @w, RANDOMIZE  LLIST  MOVE STR$  LET <> NEXT > GO SUB [Q] COPY ▜ ~# THEN 0 PLOT  > THEN )8<(? READ % THEN 98 CIRCLE  PAPER ▝ COPY  CLOSE # ( THEN  CIRCLE  THEN ▜ ~#0 NEXT SGN > AT  FORMAT AN# RESTORE i`O GO SUB VAL  LLIST [H]Hi there! So, 2day U kan find here some trax from one ofda best BeepMasta AER. Ziz prod waz assmed @ MhM hq in 2la by SAND ...fakksite! AER, why U kompild yar trax 40000? really lame.  Greatz: LVD,SAM STYLE,DR.MAX,KARBO,NQ,KALANTAJ & all ozerz dudz from SPECCY_HARDWARE Telegram chan!  29.may.2o18cFN  COPY @$ FOR n RUN  READ NOT  LIST  CLEAR TAN ^ CLEAR C IF CHR$ [E] IF USR  RUN >= RETURN  COPY  LPRINT  CLEAR  RUN ) IF  NEW ~[S] IF 9 LET  IF /> FLASH S PAUSE [Q][H] MERGE NOT [B] AND  GO TO SIN TAN ^ CLEAR [M][N]}<> DRAW USR ▖CODE fPr IF  LPRINT 5 LIST [A] DIM  READ `c©= RUN  CLS [Q] MOVE / OVER  LPRINT  INVERSE d[K] BRIGHT ABS  LPRINT Z CONTINUE B▚COS  STEP  FOR  OVER  RUN  DEF FN / CLEAR G LET  IF J IF USR  RUN @ RETURN  OVER  CAT n RUN USR  RUN 4 LET  LPRINT [T] CONTINUE ` REM BIN m CONTINUE j SAVE g▜n RESTORE USR [J]SQR  CLEAR  LIST NOT   IF c CIRCLE @)8y CLEAR  LET  IF ( IF USR  RUN _© PLOT  O OVER  LINE POINT  CLEAR  LPRINT  DRAW  CIRCLE  CLEAR VAL  ERASE ©[G]C0" CONTINUE TAN  SAVE l RANDOMIZE  NEW  LPRINT w OR U COPY  PLOT   RETURN  AND VAL 0[;TAB  CLEAR  LIST  IF $ IF @PI CLEAR  `k MOVE  RUN [R] AND  RUN  CLEAR ▗g READ  VERIFY [T]X0 INK USR VAL$ `~>3 BEEP  RUN  IF SQR  IF  FORMAT 1 OVER © DEF FN c?~cyu[M]`LEN s TO )[D] CLEAR @Hy PRINT   LPRINT &▝ SAVE  LINE  TO ? GO TO [Q]u TO LEN   RANDOMIZE [S] RETURN  READ #$ LPRINT c"c2? PAPER 0TAB  BRIGHT  BRIGHT c`[T] CLEAR  LPRINT ©6 CLS [Q]0y [A]o PLOT  SCREEN$   NEXT  CLS O/ PRINT VAL  RUN q AND  NEW  INPUT  OVER  LPRINT /INKEY$][Q]LEN ▚[M]3Z IF 6 LIST  LIST  RUN  AND ©|  LIST P COPY /1Q STOP  NEW `P AND  RETURN STR$  CLS USR  CLEAR - CLS  POKE  NEXT / CLEAR oBIN  NEW  GO TO © BEEP  LIST  LPRINT VSQR [Q]bZ[J]oABS  3{  COPY  CLEAR LEN @▗ COPY  NEXT  LPRINT  CONTINUE cIN  CIRCLE >=[P] GO SUB @<x CONTINUE EXP USR  RUN [T] IF ©[Q]B FOR  CLEAR  RUN  COPY  LIST USR  RESTORE  CLEAR  DEF FN  CLEAR  IF  GO TO '[K] RUN  FOR d DIM INKEY$ INVERSE BIN [L][Q]y POKE xLEN  OUT %>ATN  FLASH ACS  LPRINT  TO  LIST % CLEAR  LPRINT m DRAW CHR$ bo[Q]CHR$ xUSR /USR 2 OUT ` COPY ` LOAD _ COPY  POKE  FLASH @8NOT <><>`  INK  OUT  DRAW 6©| OUT /`(BTAN  1a"R LPRINT USR  COPY  GO TO ATN  OUT  LPRINT C THEN PEEK Q LPRINT  FOR IN B,MABS  COPY @`0 DRAW  NEW ,`PEEK  LPRINT  AND K SAVE  LLIST CUSR ! LPRINT  DIM LEN  CONTINUE RNDe`e@[C][R]`▘n LPRINT  GO TO 0NOT / COPY  OR  LPRINT 0^ LPRINT g▛ CLEAR Q LPRINT ▘ CIRCLE  FORMAT  PLOT   CLEAR  SAVE ATTR  LPRINT  NEXT F CONTINUE ▟+ LIST CODE [Q]<>CHR$ b'[I] IF STR$ yUSR e` AND USR q_ PRINT @0▞% FOR z@w OR  CAT l COPY ?`F8 TO , AND ?l OR  LPRINT  @1ASN ` PAPER @d IF  ?4>V RETURN Y` GO TO  GO TO A RUN  ERASE C<>CPEEK o LLIST  LPRINT {p©@ LPRINT Y STOP |YSQR  RESTORE INKEY$[M] STOP  LLIST [N] OUT  CONTINUE  OUT CHR$  COPY }  FORMAT  INPUT [M]CHR$ ,[U] NEXT r READ 2#D ` CLS USR  RETURN © TO %[T]>SIN ~ CLEAR (6 LPRINT SGN Ab  RETURN p COPY #`ABS ' GO SUB  LPRINT  FORMAT  FORMAT /B3OABS 7| NEXT `sATN  LPRINT  LIST Cx CIRCLE 8LN  READ @▞ RUN bdCHR$ m[G]@.SQR "`51N STEP  CIN [S]0ATN 1"USR  RANDOMIZE VAL [B]3g[F]8 LPRINT  CONTINUE x1 RETURN USR LCHR$  LPRINT  LINE ` READ `,TAB `X@3STR$ l LEN USR U COPY  RETURN  LPRINT S LPRINT y▝▖[F][T]BUSR - BEEP ` GO TO  CIRCLE ^NOT  LIST [L]A OUT =~l[Q]▟[Q]6*^ FOR { IF [Q]L`ACS >©Y▗W`c COPY ] INK   OUT ATTR |t CIRCLE  LPRINT  PAPER [Q]EUSR  GO TO |>TAN SQR  FORMAT [G] IF C LPRINT  DRAW  LIST g} LPRINT e`~` LOAD X[Q]USR [O] SAVE > CONTINUE BCX©CODE ? USR  SIN RNDASN ` INK @eCHR$ ▚©x LPRINT  RETURN KVAL < PAUSE  COPY ?3SCREEN$ ABS ] DRAW g> COPY  RETURN ABS U TO   PAPER _D81▗`"CODE Lc<=LN tACS ,9[C][G];V LPRINT b RESTORE [I]` LET ABS (LEN USR  IF  OUT  OUT BUSR  CIRCLE  RUN LEN © LLIST ^`bVAL$  COPY @*0MC} COPY DJL[A]6 PLOT  L LOAD [E]$PIBZ[Q]jo▚ LPRINT q CLS `6IN  PAPER [Q]bqUSR  GO TO NOT USR `TAN USR  NEW  NEXT 0 OR IN m LPRINT ▛_w COPY INT T RETURN [A]*[D][I] LPRINT r@c RETURN V INVERSE  NEW 0?▛[E]}USR  RETURN ?[I]QSIN ?? A CIRCLE USR eUSR &`Kc>AT ~ATN ▗ OUT `0Z`bATTR  LIST ▜[S]2BIN  LIST `"[E]<J@ RUN 8 RETURN  FORMAT [A]% 3 ERASE  MOVE 1F  INK  COPY f LLIST  LPRINT  LET USR  ERASE  OR IN   LPRINT ABS /USR  RETURN [Q]$▘7CHR$  IF  LPRINT 5▗X LPRINT  SAVE $ COPY CD CONTINUE [A]"[D]IN  BORDER X`Rh CIRCLE  LPRINT ▝LEN ` CLS ` CIRCLE  CX LPRINT  DEF FN W MERGE [I] [R] COPY SCREEN$ N<`BIN EL▘CDBA[Q]▞nIUSR aP[A] INK  LPRINT = COPY ACS X COPY [M]@USR t▜bPIR LPRINT  RUN  OR  POKE VAL USR  LLIST USR CHR$ b DEF FN USR [P]$ CLEAR X@3[K] IF STR$ !8 COPY y[O]`"g< LPRINT p COPY @[D][U] FORMAT [A]8 PLOT   rR LPRINT [R][I]LEN  COPY ,/E>d GO TO  <= LIST Z eCHR$ ▚!k*  CLEAR  DEF FN [Q]?[J] AND D OUT ▟] COPY ▞ACS  COPY  DRAW  RETURN  SAVE [H] STEP -TAB USR [G] INPUT G> COPY  READ FBC3L COPY PI LLIST DBW THEN TF IF $ CLEAR  CLEAR ( INVERSE  IF  PLOT   CLEAR DC<VzB5 IF  CLEAR  GO TO ▛ READ b CLEAR  POKE  GO SUB  CLEAR / SAVE  READ  TO = LPRINT  COPY DO COPY LEN  COPY Ax CLS U LPRINT ▖ COPY  LPRINT qrLN P LPRINT  CLOSE # COPY BIN VUSR FQ LPRINT [O]USR n LPRINT bf~i[Q][O]e` MOVE ▟AT USR Q@NcFi LPRINT ▞AT [Q] c GO TO USR HABS  NEXT `COS  LPRINT lpPo BORDER @ COPY Fr COPY  OR AT E[ PAPER FEA1SGN  OPEN # COPY  PRINT  SAVE ! RETURN [T] COPY 6 COPY  GO SUB VAL ▖!0 BORDER  POKE  CLS NOT #> READ  RETURN  GO SUB G~^ CLS  LET  STEP u[M]/x[N] GO SUB  SAVE V CLEAR !:/IN X' INK  CLS <> LET  OR  MERGE  RESTORE  INVERSE LN !.[Q]b| OPEN #[M]#[A] CLS  LPRINT ^BIN V6▞p[J] CLEAR  CLEAR [I] CLEAR Xs/r CONTINUE  LLIST  CLS r RESTORE  THEN  MERGE ,('= MERGE  GO SUB S PAUSE [O][T] SAVE ?[P]<= INVERSE  LLIST  COPY  MOVE STR$ > COPY 2|[N]<>SIN W COPY  CLS CHR$  LOAD  COPY  CIRCLE p0 TO USR ?ASN ACS ATTR AT [R][S] READ [I][J][A]<=▖ READ ▝y LET rsl READ f<=` SAVE Z[UVQ DRAW LMHxD LET @ SAVE <=9 LET 6 READ 3<=0 READ -.+ LET ()& READ $<="  LET  SAVE  DRAW X LET  READ <=[T] RETURN SIN  RETURN ,▛ RETURN  NEXT  PRINT ©RATN  LINE ▙[O] INVERSE  RESTORE CODE  INK  SAVE  LET  GO SUB Wg~ OUT o< . POKE IN NOT " OR  IF [N] OPEN #R[P]$ RESTORE  PRINT  COPY  MERGE  GO SUB s LLIST [N]* OPEN #[M] DRAW ~#2[O]" STOP  SAVE * DATA [D] LLIST  DRAW  RETURN  INVERSE -( GO SUB {N DATA IN  STEP #[I]C8`[O]IN PI[P]! FLASH [M]SQR 5 DRAW FN  TO  MERGE [O]) GO TO  PRINT [D]1 PAUSE  DATA z PAUSE  LPRINT : LET ,ACS [O]( COPY : OUT [M]2CHR$ [O][I] LIST  IF RN©SGN . CLS  INK - LIST  FOR D INPUT PEEK NOT H[O] CLS <>[C][N] IF Y|INKEY$([U]USR ATTR EXP POINT :G BORDER o LET  LLIST  READ  COPY 0 CLOSE # AND eh OPEN # RETURN K OR <= OR  PRINT NOT INKEY$[O] CONTINUE  RUN +U[H] FLASH  RETURN / LIST  NEW  D>= COPY [O]^ TE FOR >J[H] INPUT WgC MOVE SQR r+▟sw_B[M] INK ; LET  SAVE ~ AND ~PEEK  ` PLOT  awOn PAUSE fOCODE  BEEP  NEXT  COPY  RETURN 1 INVERSE 6[A]+ TO  READ $[A] RANDOMIZE nA RANDOMIZE EXP  RANDOMIZE 0pR INK ^ BORDER  PLOT  V REM  RETURN USR  LET 8 AND  ' DRAW O! FOR >[Q] OVER [D] DIM <a IF | READ ATN  PAUSE [P] SAVE  FOR  LOAD [N]N OPEN # DIM  LINE 3 GO TO  IF rsSQR <> DRAW SIN  STEP 0[P]SQR   NEW ATN  NEW [H]W[T] RANDOMIZE !B[Q] RANDOMIZE ▞[P]< _[T]_FN  DRAW = NEW ©NOT BIN ©▜![N]_[K]=N©STR$ ATN j("▜g0 GO TO )e DRAW l RETURN yg{[F]jZ©[L]N>D<> RETURN ! CLEAR [M]5USR * PRINT ABS  IF ATN   OR  COPY  MERGE G* RANDOMIZE [M]} AND  RETURN SGN  : CLS [M]2x POKE O* RUN . CLEAR  OVER  FOR 9 LPRINT  MOVE STR$ " CIRCLE  PAUSE  IF  OVER [P]2 STEP  NEW <>F4N MOVE  p[P][I] :[U]_ DIM  LLIST  LPRINT a[R]USR NOT NOT  ▜?▜ CAT < CLS (!J0?% w LET ;_ GO SUB PEEK TAB o[R]<Ox READ   REM  CAT  NEW PI<> COPY  CAT O[Q] DRAW [S]^[K][U]>=>[Q]>▜aq COPY CHR$ CODE [Q]h RETURN ▝NOT  CONTINUE { RETURN [R]ABS SQR  RETURN T6 POKE  RETURN ~[O] INK  SAVE [S] DATA  LPRINT m DRAW  TO  SAVE  OR  LPRINT v[K] LPRINT ▝/7N$▟/▝▜&USR  LPRINT /▞ RETURN  LLIST  BORDER  INK ▘ LOAD  GO TO ▚▝USR  NEXT  STOP  LPRINT  SAVE " LLIST  IF ▗ FLASH F FOR ▙ PAPER 1 CLEAR  MOVE  LOAD  STEP  PRINT 6 RUN (( OUT ACS 4N DRAW  CLS / INK  DRAW cKSIN  STOP  LET  POKE  GO TO  DEF FN  READ  CLS SCREEN$ 6 LLIST ([I]O$▜CHR$ &LN D STOP  BRIGHT  LPRINT v1 LPRINT INT [J]% LLIST $[ GO TO  LPRINT AT )#EVqABS |P  RUN 2<> OUT  PRINT  RESTORE ▜ BORDER LEN &> DATA 0{ CLS 3 STOP 2[Q][G] LINE STR$  READ gohCHR$  RANDOMIZE u REM [E] INPUT &<> AND  GO SUB b▗6 DATA LEN ▛[P]#STR$  BORDER ▘ PLOT   LOAD [S]▙ RETURN [T]' THEN @ RETURN m▝2NH DRAW ▛AT [Q] SAVE  PAUSE @>=INKEY$ OVER  DRAW [U] CIRCLE  SAVE  TO l LPRINT |[U]BIN  LPRINT e, MOVE K DATA USR _;T LPRINT  FORMAT  COPY  LLIST { BORDER ▘5 GO TO ▝ RUN SCREEN$ STR$  LLIST {ABS #/i BORDER  BRIGHT ") PRINT P LOAD RND PRINT }B# OR  BORDER STR$  CIRCLE $ AND ![G] DATA ▞STR$ 0 CLEAR USR FCHR$ j LLIST nINT  MOVE  RESTORE 3 CIRCLE STR$  LPRINT RND LLIST (©[I] DATA  MOVE NOT  OUT @STR$ ZSQR  OVER  STOP  LPRINT <▚ LIST RND ERASE CHR$  RESTORE g RUN  LLIST  LLIST  LPRINT  READ  DATA LEN  REM  CONTINUE  LINE [J]SCREEN$  PAUSE s LIST [N] COPY f, IF EATN ▗NOT G MOVE  LLIST SIN  DATA ▘ DATA  DATA [R]DSGN -PEEK LN  PAUSE  LLIST HSQR CHR$ 4LN  LLIST "S(PI.4AT  VERIFY BIN KvINKEY$V LPRINT  INK w SAVE [I][U] RETURN  IF [M]RNDk FORMAT  RETURN #-JR RETURN 0 PAUSE [G] DRAW A[R] SAVE TAB  RETURN W SAVE u LPRINT fH RETURN c▗BIN  COPY EXP  CLS [L] RANDOMIZE BIN  IF  POKE $ COPY [E] RANDOMIZE  LOAD  DRAW 3>= PRINT  GO SUB C PRINT p NEXT  FLASH G DRAW ▝ SAVE 6CHR$  BEEP CHR$  FORMAT  ERASE  BRIGHT  TO [A] RANDOMIZE [K]- POKE  FLASH X PRINT  SAVE ! RETURN [T] COPY 6 COPY  GO SUB VAL ▖!0 BORDER  POKE  CLS NOT #> READ  RETURN  GO SUB G~^ CLS  LET  STEP u[M]/x[N] GO SUB  SAVE V CLEAR !:/IN X' INK  CLS <> LET  OR  MERGE  RESTORE  INVERSE LN !.[Q]b| OPEN #[M]#[A] CLS  LPRINT ^BIN V6▞p[J] CLEAR  CLEAR [I] CLEAR Xs/r CONTINUE  LLIST  CLS r RESTORE  THEN  MERGE ,('= MERGE  GO SUB S PAUSE [O][T] SAVE ?[P]<= INVERSE  LLIST  COPY  MOVE STR$ > COPY 2|[N]<>SIN W COPY  CLS CHR$  LOAD  COPY  CIRCLE p0 TO USR ?ASN ACS ATTR AT [R][S] READ [I][J][A]<=▖ READ ▝y LET rsl READ f<=` SAVE Z[UVQ DRAW LMHxD LET @ SAVE <=9 LET 6 READ 3<=0 READ -.+ LET ()& READ $<="  LET  SAVE  DRAW X LET  READ <=[T] RETURN SIN  RETURN ,▛ RETURN  NEXT  PRINT ©RATN  LINE ▙[O] INVERSE  RESTORE CODE  INK  SAVE  LET  GO SUB Wg~ OUT o< . POKE IN NOT " OR  IF [N] OPEN #R[P]$ RESTORE  PRINT  COPY  MERGE  GO SUB s LLIST [N]* OPEN #[M] DRAW ~#2[O]" STOP  SAVE * DATA [D] LLIST  DRAW  RETURN  INVERSE -( GO SUB {N DATA IN  STEP #[I]C8`[O]IN PI[P]! FLASH [M]SQR 5 DRAW FN  TO  MERGE [O]) GO TO  PRINT [D]1 PAUSE  DATA z PAUSE  LPRINT : LET ,ACS [O]( COPY : OUT [M]2CHR$ [O][I] LIST  IF RN©SGN . CLS  INK - LIST  FOR D INPUT PEEK NOT H[O] CLS <>[C][N] IF Y|INKEY$([U]USR ATTR EXP POINT :G BORDER o LET  LLIST  READ  COPY 0 CLOSE # AND eh OPEN # RETURN K OR <= OR  PRINT NOT INKEY$[O] CONTINUE  RUN +U[H] FLASH  RETURN / LIST  NEW  D>= COPY [O]^ TE FOR >J[H] INPUT WgC MOVE SQR r+▟sw_B[M] INK ; LET  SAVE ~ AND ~PEEK  ` PLOT  awOn PAUSE fOCODE  BEEP  NEXT  COPY  RETURN 1 INVERSE 6[A]+ TO  READ $[A] RANDOMIZE nA RANDOMIZE EXP  RANDOMIZE 0pR INK ^ BORDER  PLOT  V REM  RETURN USR  LET 8 AND  ' DRAW O! FOR >[Q] OVER [D] DIM <a IF | READ ATN  PAUSE [P] SAVE  FOR  LOAD [N]N OPEN # DIM  LINE 3 GO TO  IF rsSQR <> DRAW SIN  STEP 0[P]SQR   NEW ATN  NEW [H]W[T] RANDOMIZE !B[Q] RANDOMIZE ▞[P]< _[T]_FN  DRAW = NEW ©NOT BIN ©▜![N]_[K]=N©STR$ ATN j("▜g0 GO TO )e DRAW l RETURN yg{[F]jZ©[L]N>D<> RETURN ! CLEAR [M]5USR * PRINT ABS  IF ATN   OR  COPY  MERGE G* RANDOMIZE [M]} AND  RETURN SGN  : CLS [M]2x POKE O* RUN . CLEAR  OVER  FOR 9 LPRINT  MOVE STR$ " CIRCLE  PAUSE  IF  OVER [P]2 STEP  NEW <>F4N MOVE  p[P][I] :[U]_ DIM  LLIST  LPRINT a[R]USR NOT NOT  ▜?▜ CAT < CLS (!J0?% w LET ;_ GO SUB PEEK TAB o[R]<Ox READ   REM  CAT  NEW PI<> COPY  CAT P[Q] DRAW [S]dRND>=>[Q]>▜aa COPY  LPRINT ▜ACS COS [Q] RETURN  OR [Q] RETURN  OUT ^ LET  RETURN  PAPER [R]  SAVE 3P] PLOT   FLASH  DRAW {CODE  SAVE RNDQ RETURN  OUT  POKE [E] RETURN  AND YPEEK ▖ VERIFY  RESTORE [S]o▝▜'CHR$  LPRINT ▟ GO TO ▘ MERGE  LET USR # LET  OR  THEN  RETURN [J] SAVE  DIM  CLOSE #▚ PAPER ▝6 GO SUB (▗ COPY  LOAD l PRINT c# STOP  SAVE 3LN 4 DRAW  AND  BRIGHT <> INVERSE  DRAW F DRAW  STOP [E]X AND [E] PAUSE  STOP / DRAW 4 DRAW z PAUSE  READ  DRAW (▙[B]: SAVE $ CLS  PRINT ,ASN h RANDOMIZE  CIRCLE  READ $ STOP [G] DATA [N] CLS  RESTORE [E] FLASH  BORDER  DATA  RESTORE C[S] DATA  RETURN [E]&▖ SAVE TAB <>8 STOP [U]EXP  FORMAT  PAUSE 8[T]; AND  DRAW ZD SAVE |[N]PEEK  DRAW ATN  OUT h SAVE [U] RETURN [A] CIRCLE j +2 DRAW LACS 1 VERIFY ▛ AND [U]SCREEN$ i COPY 4 INPUT ▜"STR$  LET  LLIST #$POINT ( DRAW ▘e[C] INPUT q! PAUSE e< BORDER  LPRINT #$c DRAW STR$  DRAW  MOVE USR  STOP #D)▝$*z SAVE (.[E] LIST { BEEP  COPY ▜VAL [B] BEEP D[O]▜ PLOT   LPRINT CHR$ 0SGN s RANDOMIZE USR D PRINT  PLOT  [C]STR$  MERGE  PAUSE  AND  LPRINT STR$ $)c@ LLIST [N]+&0 OVER  LPRINT ▚▝ STOP G[O]▜SCREEN$ l OUT ▟STR$ (lSGN [R]!} IF bFN  OUT NOT  LLIST )+STR$ -LEN !b OUT  RETURN NOT   INVERSE STR$ -- INVERSE IN <=USR k IF  LIST ▖ SAVE  INVERSE  DRAW [D] LIST !TAN ▟CHR$ STR$ TAN  STEP ` LPRINT 4 OUT e13CHR$ ▛ COPY T STOP c▛T CONTINUE + LET  NEXT  DATA TAB  RESTORE  LET  RETURN ▜▗[P]9 GO TO  LOAD ▜ l BEEP oRNDQ RETURN qz RETURN z MERGE  SAVE j SAVE ATN [A]^ SAVE [N] RETURN F CIRCLE j RETURN o STEP @ VERIFY FN ▝LEN  LET ▗[M] DRAW l RUN P PRINT H COPY  FORMAT  PRINT  GO TO  CONTINUE ( NEXT d CONTINUE  OR  RUN ` PRINT  SAVE ! RETURN [T] COPY 6 COPY  GO SUB VAL ▖!0 BORDER  POKE  CLS NOT #> READ  RETURN  GO SUB G~^ CLS  LET  STEP u[M]/x[N] GO SUB  SAVE V CLEAR !:/IN X' INK  CLS <> LET  OR  MERGE  RESTORE  INVERSE LN !.[Q]b| OPEN #[M]#[A] CLS  LPRINT ^BIN V6▞p[J] CLEAR  CLEAR [I] CLEAR Xs/r CONTINUE  LLIST  CLS r RESTORE  THEN  MERGE ,('= MERGE  GO SUB S PAUSE [O][T] SAVE ?[P]<= INVERSE  LLIST  COPY  MOVE STR$ > COPY 2|[N]<>SIN W COPY  CLS CHR$  LOAD  COPY  CIRCLE p0 TO USR ?ASN ACS ATTR AT [R][S] READ [I][J][A]<=▖ READ ▝y LET rsl READ f<=` SAVE Z[UVQ DRAW LMHxD LET @ SAVE <=9 LET 6 READ 3<=0 READ -.+ LET ()& READ $<="  LET  SAVE  DRAW X LET  READ <=[T] RETURN SIN  RETURN ,▛ RETURN  NEXT  PRINT ©RATN  LINE ▙[O] INVERSE  RESTORE CODE  INK  SAVE  LET  GO SUB Wg~ OUT o< . POKE IN NOT " OR  IF [N] OPEN #R[P]$ RESTORE  PRINT  COPY  MERGE  GO SUB s LLIST [N]* OPEN #[M] DRAW ~#2[O]" STOP  SAVE * DATA [D] LLIST  DRAW  RETURN  INVERSE -( GO SUB {N DATA IN  STEP #[I]C8`[O]IN PI[P]! FLASH [M]SQR 5 DRAW FN  TO  MERGE [O]) GO TO  PRINT [D]1 PAUSE  DATA z PAUSE  LPRINT : LET ,ACS [O]( COPY : OUT [M]2CHR$ [O][I] LIST  IF RN©SGN . CLS  INK - LIST  FOR D INPUT PEEK NOT H[O] CLS <>[C][N] IF Y|INKEY$([U]USR ATTR EXP POINT :G BORDER o LET  LLIST  READ  COPY 0 CLOSE # AND eh OPEN # RETURN K OR <= OR  PRINT NOT INKEY$[O] CONTINUE  RUN +U[H] FLASH  RETURN / LIST  NEW  D>= COPY [O]^ TE FOR >J[H] INPUT WgC MOVE SQR r+▟sw_B[M] INK ; LET  SAVE ~ AND ~PEEK  ` PLOT  awOn PAUSE fOCODE  BEEP  NEXT  COPY  RETURN 1 INVERSE 6[A]+ TO  READ $[A] RANDOMIZE nA RANDOMIZE EXP  RANDOMIZE 0pR INK ^ BORDER  PLOT  V REM  RETURN USR  LET 8 AND  ' DRAW O! FOR >[Q] OVER [D] DIM <a IF | READ ATN  PAUSE [P] SAVE  FOR  LOAD [N]N OPEN # DIM  LINE 3 GO TO  IF rsSQR <> DRAW SIN  STEP 0[P]SQR   NEW ATN  NEW [H]W[T] RANDOMIZE !B[Q] RANDOMIZE ▞[P]< _[T]_FN  DRAW = NEW ©NOT BIN ©▜![N]_[K]=N©STR$ ATN j("▜g0 GO TO )e DRAW l RETURN yg{[F]jZ©[L]N>D<> RETURN ! CLEAR [M]5USR * PRINT ABS  IF ATN   OR  COPY  MERGE G* RANDOMIZE [M]} AND  RETURN SGN  : CLS [M]2x POKE O* RUN . CLEAR  OVER  FOR 9 LPRINT  MOVE STR$ " CIRCLE  PAUSE  IF  OVER [P]2 STEP  NEW <>F4N MOVE  p[P][I] :[U]_ DIM  LLIST  LPRINT a[R]USR NOT NOT  ▜?▜ CAT < CLS (!J0?% w LET ;_ GO SUB PEEK TAB o[R]<Ox READ   REM  CAT  NEW PI<> COPY  CAT S[Q] DRAW p[S]R[U]>=>[Q]>▜a© COPY USR  BRIGHT PI[Q] RETURN  LPRINT EXP z RETURN  CLS [R] DATA  RETURN :&▖ SAVE g[E][Q] RETURN SQR @ CONTINUE  INK [S] DRAW 6 CONTINUE 3 FORMAT  CONTINUE X[Q]nx▝ MOVE ▜;USR  LLIST [D] COPY  COPY ▘ RUN ▚▝EXP  GO SUB  LPRINT  REM @ NEXT j SAVE K LIST STR$  SAVE Y INK ▛<= LPRINT [C] BORDER  DRAW o OVER ^PEEK  DATA  DEF FN  READ  PLOT  2` DRAW 3=<> STOP SIN Y[T] LINE D CIRCLE  IF  GO TO  CLS ▙ BRIGHT  CLS  NEXT  INK ▙ PAUSE 1 NEXT ▚ OPEN # LLIST ▘ LPRINT % LIST  LPRINT <=▗ NEXT  INPUT % OPEN # STOP Z IF ▚ GO TO  CLS  LPRINT  PAUSE nC LPRINT +cC INK  IF #SIN &[ DRAW  LLIST +. POKE (c,+t PAUSE , CLS #^ INK  READ [A]TAN  DRAW ▜&0 OVER  RESTORE x LLIST ▘]BIN [S][E] RETURN  CAT  TO @ LIST  READ ABS  LIST  RETURN  AND [T]'RNDE DRAW cSCREEN$  SAVE [Q]ABS  DRAW  CLOSE # CONTINUE  PLOT   BRIGHT <> READ s INPUT N[F] LOAD ▘ INK  PRINT  BORDER Mr3 READ  THEN  CLS ( GO TO Fi< NEXT SCREEN$ CHR$  LPRINT xTAN  DRAW  CONTINUE  IF  POKE  NEW STR$  SAVE i SAVE CHR$  NEXT  LLIST ABS  READ  TO ▜ INPUT  READ |STR$   LLIST ▝a@b[Q] STOP L COPY K! STOP gr STOP ( GO SUB  AND CHR$  OVER m BORDER ([O]jNOT  LPRINT 0CHR$  MERGE ONOT  GO TO &/CHR$ STR$ M READ ATN L READ 4 CIRCLE /20!▛ LLIST v LPRINT &[D] RUN  COPY  RUN  NEW _ LIST M INPUT  BORDER ▛ASN  READ ( NEXT V▛gEXP [U] RETURN ri POKE  RETURN w▘ VERIFY  RETURN ▛FN  SAVE [I]RNDRND RETURN ACS  DRAW [G] RETURN ACS <=3 PLOT   FORMAT  CONTINUE  VERIFY =[T] RETURN  CLS  POKE G COPY [R] PRINT ▗[T] DRAW T RUN B RETURN  DRAW j NEXT ( RETURN  INVERSE  NEXT  LINE  REM < DRAW  SAVE ASIN ▘ LOAD COS  DEF FN  OVER EASN ` PRINT  SAVE ! RETURN [T] COPY 6 COPY  GO SUB VAL ▖!0 BORDER  POKE  CLS NOT #> READ  RETURN  GO SUB G~^ CLS  LET  STEP u[M]/x[N] GO SUB  SAVE V CLEAR !:/IN X' INK  CLS <> LET  OR  MERGE  RESTORE  INVERSE LN !.[Q]b| OPEN #[M]#[A] CLS  LPRINT ^BIN V6▞p[J] CLEAR  CLEAR [I] CLEAR Xs/r CONTINUE  LLIST  CLS r RESTORE  THEN  MERGE ,('= MERGE  GO SUB S PAUSE [O][T] SAVE ?[P]<= INVERSE  LLIST  COPY  MOVE STR$ > COPY 2|[N]<>SIN W COPY  CLS CHR$  LOAD  COPY  CIRCLE p0 TO USR ?ASN ACS ATTR AT [R][S] READ [I][J][A]<=▖ READ ▝y LET rsl READ f<=` SAVE Z[UVQ DRAW LMHxD LET @ SAVE <=9 LET 6 READ 3<=0 READ -.+ LET ()& READ $<="  LET  SAVE  DRAW X LET  READ <=[T] RETURN SIN  RETURN ,▛ RETURN  NEXT  PRINT ©RATN  LINE ▙[O] INVERSE  RESTORE CODE  INK  SAVE  LET  GO SUB Wg~ OUT o< . POKE IN NOT " OR  IF [N] OPEN #R[P]$ RESTORE  PRINT  COPY  MERGE  GO SUB s LLIST [N]* OPEN #[M] DRAW ~#2[O]" STOP  SAVE * DATA [D] LLIST  DRAW  RETURN  INVERSE -( GO SUB {N DATA IN  STEP #[I]C8`[O]IN PI[P]! FLASH [M]SQR 5 DRAW FN  TO  MERGE [O]) GO TO  PRINT [D]1 PAUSE  DATA z PAUSE  LPRINT : LET ,ACS [O]( COPY : OUT [M]2CHR$ [O][I] LIST  IF RN©SGN . CLS  INK - LIST  FOR D INPUT PEEK NOT H[O] CLS <>[C][N] IF Y|INKEY$([U]USR ATTR EXP POINT :G BORDER o LET  LLIST  READ  COPY 0 CLOSE # AND eh OPEN # RETURN K OR <= OR  PRINT NOT INKEY$[O] CONTINUE  RUN +U[H] FLASH  RETURN / LIST  NEW  D>= COPY [O]^ TE FOR >J[H] INPUT WgC MOVE SQR r+▟sw_B[M] INK ; LET  SAVE ~ AND ~PEEK  ` PLOT  awOn PAUSE fOCODE  BEEP  NEXT  COPY  RETURN 1 INVERSE 6[A]+ TO  READ $[A] RANDOMIZE nA RANDOMIZE EXP  RANDOMIZE 0pR INK ^ BORDER  PLOT  V REM  RETURN USR  LET 8 AND  ' DRAW O! FOR >[Q] OVER [D] DIM <a IF | READ ATN  PAUSE [P] SAVE  FOR  LOAD [N]N OPEN # DIM  LINE 3 GO TO  IF rsSQR <> DRAW SIN  STEP 0[P]SQR   NEW ATN  NEW [H]W[T] RANDOMIZE !A[Q] RANDOMIZE ▞[P]< _[T]_FN  DRAW = NEW ©NOT BIN ©▜![N]_[K]=N©STR$ ATN j("▜g0 GO TO )e DRAW l RETURN yg{[F]jZ©[L]N>D<> RETURN ! CLEAR [M]5USR * PRINT ABS  IF ATN   OR  COPY  MERGE G* RANDOMIZE [M]} AND  RETURN SGN  : CLS [M]2x POKE O* RUN . CLEAR  OVER  FOR 9 LPRINT  MOVE STR$ " CIRCLE  PAUSE  IF  OVER [P]2 STEP  NEW <>F4N MOVE  p[P][I] :[U]_ DIM  LLIST  LPRINT a[R]USR NOT NOT  ▜?▜ CAT < CLS (!J0?% w LET ;_ GO SUB PEEK TAB o[R]<Ox READ   REM  CAT  NEW PI<> COPY  CAT J[Q] DRAW [T]L▚RND>=>[Q]<N▜CHR$  NEXT  COPY [I][Q] RETURN [T]K RETURN  THEN  FORMAT  RETURN  RUN 8![R]M DEF FN @ DRAW ©[U]ATTR  DRAW  INVERSE  DRAW ACS ^[G] DRAW  LLIST AT  SAVE 9[T] INK  GO TO ( DRAW d[U]LN ▟/▝▜'USR  LOAD ACS ▘© PRINT  READ ▚▝ LPRINT 4F CLS  BORDER  DRAW  INPUT PI LLIST  IF  READ n CIRCLE  READ  LPRINT  BORDER ASN  VERIFY >= CLS I VERIFY  AND a* CLOSE #BIN SCREEN$ / VERIFY SCREEN$ a2 CLOSE #(INKEY$2 DRAW X DEF FN - FLASH 2[H] DRAW  CLS POINT [I] DIM  TO &Q CLOSE #&INKEY$ NEW  DRAW [R] DEF FN  STOP ; PLOT   OR & THEN  BEEP CHR$  TO | CLOSE # PRINT [E]m[R][C] CLOSE #D OPEN # FOR w DIM [F]NOT M CLS f# CLOSE # FORMAT  DIM )ua+|"CHR$ _@a#POINT  STOP  CIRCLE  LPRINT BPOINT [H] COPY  DIM  RANDOMIZE ▗ DEF FN FN  STOP CHR$ POINT  STOP BIN SCREEN$ T PLOT   INVERSE [T]▛ RETURN  DIM  FORMAT  RETURN  PRINT 6[U]▖ RETURN : DRAW ▝Vu[A][A] DRAW NOT  ATTR RACS  DRAW  CONTINUE  MERGE  SAVE RUSR RND IF SIN $P DRAW eSGN ]SQR ACS ▚ DIM INT [U]O POKE 3"▜[L]SCREEN$  POKE ! POKE  FOR  GO SUB  READ [O] PAUSE  COPY USR  LPRINT =USR  CLEAR  READ  OR ![C] RESTORE  LET 2CHR$ +<= CONTINUE <>Z DATA d DATA ABS [G] STOP  AND C LLIST CHR$  LPRINT (p CLEAR 8 NEW POINT !<-VJ RESTORE $ INVERSE  RESTORE &.$K RESTORE IN E?SQR  PRINT  CONTINUE  CIRCLE  NEW ATTR  STEP ▝" CAT  INPUT STR$  LLIST &= INK  LPRINT [C] DEF FN  CLEAR  STOP  LLIST  LPRINT SCREEN$ <>O GO SUB <>(USR >= DRAW + SAVE [Q] DRAW J- DRAW @ SAVE ![G]/ DRAW 2 VERIFY  LLIST ▝f LLIST  CLS %s CLEAR  LPRINT + DRAW 16 CLEAR 7h[G] GO TO  TO qIN STR$  CLS  NEW ▘ ERASE RNDE RETURN  CLOSE # CONTINUE  RETURN  LPRINT  INPUT , IF [G] DRAW INKEY$X DRAW F RETURN {SGN  AND H COPY 2 RUN <>J POKE ▗ COPY  PAUSE  FORMAT  PAUSE [C] POKE ! COPY 2 PAUSE ▝ NEW USR   PRINT  SAVE ! RETURN [T] COPY 6 COPY  GO SUB VAL ▖!0 BORDER  POKE  CLS NOT #> READ  RETURN  GO SUB G~^ CLS  LET  STEP u[M]/x[N] GO SUB  SAVE V CLEAR !:/IN X' INK  CLS <> LET  OR  MERGE  RESTORE  INVERSE LN !.[Q]b| OPEN #[M]#[A] CLS  LPRINT ^BIN V6▞p[J] CLEAR  CLEAR [I] CLEAR Xs/r CONTINUE  LLIST  CLS r RESTORE  THEN  MERGE ,('= MERGE  GO SUB S PAUSE [O][T] SAVE ?[P]<= INVERSE  LLIST  COPY  MOVE STR$ > COPY 2|[N]<>SIN W COPY  CLS CHR$  LOAD  COPY  CIRCLE p0 TO USR ?ASN ACS ATTR AT [R][S] READ [I][J][A]<=▖ READ ▝y LET rsl READ f<=` SAVE Z[UVQ DRAW LMHxD LET @ SAVE <=9 LET 6 READ 3<=0 READ -.+ LET ()& READ $<="  LET  SAVE  DRAW X LET  READ <=[T] RETURN SIN  RETURN ,▛ RETURN  NEXT  PRINT ©RATN  LINE ▙[O] INVERSE  RESTORE CODE  INK  SAVE  LET  GO SUB Wg~ OUT o< . POKE IN NOT " OR  IF [N] OPEN #R[P]$ RESTORE  PRINT  COPY  MERGE  GO SUB s LLIST [N]* OPEN #[M] DRAW ~#2[O]" STOP  SAVE * DATA [D] LLIST  DRAW  RETURN  INVERSE -( GO SUB {N DATA IN  STEP #[I]C8`[O]IN PI[P]! FLASH [M]SQR 5 DRAW FN  TO  MERGE [O]) GO TO  PRINT [D]1 PAUSE  DATA z PAUSE  LPRINT : LET ,ACS [O]( COPY : OUT [M]2CHR$ [O][I] LIST  IF RN©SGN . CLS  INK - LIST  FOR D INPUT PEEK NOT H[O] CLS <>[C][N] IF Y|INKEY$([U]USR ATTR EXP POINT :G BORDER o LET  LLIST  READ  COPY 0 CLOSE # AND eh OPEN # RETURN K OR <= OR  PRINT NOT INKEY$[O] CONTINUE  RUN +U[H] FLASH  RETURN / LIST  NEW  D>= COPY [O]^ TE FOR >J[H] INPUT WgC MOVE SQR r+▟sw_B[M] INK ; LET  SAVE ~ AND ~PEEK  ` PLOT  awOn PAUSE fOCODE  BEEP  NEXT  COPY  RETURN 1 INVERSE 6[A]+ TO  READ $[A] RANDOMIZE nA RANDOMIZE EXP  RANDOMIZE 0pR INK ^ BORDER  PLOT  V REM  RETURN USR  LET 8 AND  ' DRAW O! FOR >[Q] OVER [D] DIM <a IF | READ ATN  PAUSE [P] SAVE  FOR  LOAD [N]N OPEN # DIM  LINE 3 GO TO  IF rsSQR <> DRAW SIN  STEP 0[P]SQR   NEW ATN  NEW [H]W[T] RANDOMIZE !B[Q] RANDOMIZE ▞[P]< _[T]_FN  DRAW = NEW ©NOT BIN ©▜![N]_[K]=N©STR$ ATN j("▜g0 GO TO )e DRAW l RETURN yg{[F]jZ©[L]N>D<> RETURN ! CLEAR [M]5USR * PRINT ABS  IF ATN   OR  COPY  MERGE G* RANDOMIZE [M]} AND  RETURN SGN  : CLS [M]2x POKE O* RUN . CLEAR  OVER  FOR 9 LPRINT  MOVE STR$ " CIRCLE  PAUSE  IF  OVER [P]2 STEP  NEW <>F4N MOVE  p[P][I] :[U]_ DIM  LLIST  LPRINT a[R]USR NOT NOT  ▜?▜ CAT < CLS (!J0?% w LET ;_ GO SUB PEEK TAB o[R]<Ox READ   REM  CAT  NEW PI<> COPY  CAT T[Q] DRAW H[T]ZWINKEY$>=>[Q]>▜at COPY  COPY ©vATTR VAL [Q]▛ RETURN  AND  BRIGHT  RETURN [R]Mh DATA  DRAW , CLOSE # SAVE ` DRAW qB[F]6 DRAW SGN ATTR  LIST  OVER V SAVE [S] MOVE  CONTINUE [B]#5G- DRAW nB SAVE $ PLOT  TAN  LPRINT [T]+hF▝q▝[S]▜zUSR  LPRINT ! RETURN  CLEAR ▝▝ RESTORE ▘ PLOT  ▚▝▟ DIM (LEN  DIM ! GO SUB ([I] RANDOMIZE  LLIST  MOVE  STOP  NEXT  CLS ;K DRAW $ INK ySQR USR  LLIST ( CONTINUE ▝$|[H]Y PAUSE s*w$ BRIGHT = IF  ERASE  RETURN  REM *▝ PAUSE STR$  LLIST c[Q] BRIGHT )= DRAW &c LPRINT  INK  PLOT   READ =0oPI$+ LPRINT  CIRCLE  STOP  FOR L READ SIN ;X OVER + INPUT I OVER > IF  RETURN [U] REM +7 PAUSE ▘ LLIST <=Z BRIGHT >X DRAW ' FORMAT  INK  ERASE p+pXp PAUSE += OR M COPY ▜ INPUT <><I LIST  OUT  DIM [B] NEXT ▖a STEP  INK D RETURN F COPY  DEF FN  SAVE  VERIFY [U]TAN [T]^ RETURN STR$  RETURN  READ [U]>@ STOP 6 DRAW [T] SAVE  DRAW ^~ DRAW [M]SGN  INVERSE [G] DRAW  RETURN TAB  SAVE #RND[Q] CONTINUE "C ERASE d DRAW  CLOSE # SAVE "@ PLOT   LINE ▝ NEXT  AND INKEY$5^7[E]"TAN ▜ CONTINUE } COPY  STOP ▜ COPY NOT  LPRINT USR PI LOAD  LLIST ▘n READ  BRIGHT  RESTORE  CONTINUE [A] CONTINUE  MOVE  DATA SIN U RESTORE ▞ OUT  LPRINT  LOAD & RESTORE J>0h STOP [B]#STR$ STR$ [A]!! DATA LEN 5 AND USR  AND RND INVERSE , RETURN [Q] OVER [E]! STOP #(I PAPER  CLOSE #A MOVE K TO ! LPRINT ▗ STOP NOT ▞ DRAW  SAVE 0( DRAW >=G LPRINT  RANDOMIZE NOT ▝Ha STOP L3V STOP [`CHR$ /+ MOVE ▘CHR$ -+[M]▝I OUT - OVER p=+^ IF c OUT <NOT  LIST  LLIST 6 NEW 6INT eINKEY$y GO TO 2.NOT &Iu STOP USR 0.! CLEAR SIN  ERASE  OUT 0 OVER R FOR  LLIST "$I. IF <=,&a OUT USR ▘ DATA l FOR s COPY  RUN  INPUT ▜ CIRCLE $[H] INVERSE  PAUSE  VERIFY  IF  COPY  INPUT K NEXT SCREEN$ ©VAL$  REM LEN  INPUT  CAT VAL$  REM LEN  POKE  CAT CODE FN 3 TO ▚PEEK r COPY  READ + LLIST  AND  LPRINT  GO SUB ▘LEN INKEY$ RETURN COS  REM  RETURN SGN ^ DRAW  AND  SAVE n DRAW g▘ CONTINUE b[R] CONTINUE  PLOT  ABS  STEP VAL$  SAVE ▗[B]l RUN 0VAL$ 0 PAUSE  PRINT  SAVE ! RETURN [T] COPY 6 COPY  GO SUB VAL ▖!0 BORDER  POKE  CLS NOT #> READ  RETURN  GO SUB G~^ CLS  LET  STEP u[M]/x[N] GO SUB  SAVE V CLEAR !:/IN X' INK  CLS <> LET  OR  MERGE  RESTORE  INVERSE LN !.[Q]b| OPEN #[M]#[A] CLS  LPRINT ^BIN V6▞p[J] CLEAR  CLEAR [I] CLEAR Xs/r CONTINUE  LLIST  CLS r RESTORE  THEN  MERGE ,('= MERGE  GO SUB S PAUSE [O][T] SAVE ?[P]<= INVERSE  LLIST  COPY  MOVE STR$ > COPY 2|[N]<>SIN W COPY  CLS CHR$  LOAD  COPY  CIRCLE p0 TO USR ?ASN ACS ATTR AT [R][S] READ [I][J][A]<=▖ READ ▝y LET rsl READ f<=` SAVE Z[UVQ DRAW LMHxD LET @ SAVE <=9 LET 6 READ 3<=0 READ -.+ LET ()& READ $<="  LET  SAVE  DRAW X LET  READ <=[T] RETURN SIN  RETURN ,▛ RETURN  NEXT  PRINT ©RATN  LINE ▙[O] INVERSE  RESTORE CODE  INK  SAVE  LET  GO SUB Wg~ OUT o< . POKE IN NOT " OR  IF [N] OPEN #R[P]$ RESTORE  PRINT  COPY  MERGE  GO SUB s LLIST [N]* OPEN #[M] DRAW ~#2[O]" STOP  SAVE * DATA [D] LLIST  DRAW  RETURN  INVERSE -( GO SUB {N DATA IN  STEP #[I]C8`[O]IN PI[P]! FLASH [M]SQR 5 DRAW FN  TO  MERGE [O]) GO TO  PRINT [D]1 PAUSE  DATA z PAUSE  LPRINT : LET ,ACS [O]( COPY : OUT [M]2CHR$ [O][I] LIST  IF RN©SGN . CLS  INK - LIST  FOR D INPUT PEEK NOT H[O] CLS <>[C][N] IF Y|INKEY$([U]USR ATTR EXP POINT :G BORDER o LET  LLIST  READ  COPY 0 CLOSE # AND eh OPEN # RETURN K OR <= OR  PRINT NOT INKEY$[O] CONTINUE  RUN +U[H] FLASH  RETURN / LIST  NEW  D>= COPY [O]^ TE FOR >J[H] INPUT WgC MOVE SQR r+▟sw_B[M] INK ; LET  SAVE ~ AND ~PEEK  ` PLOT  awOn PAUSE fOCODE  BEEP  NEXT  COPY  RETURN 1 INVERSE 6[A]+ TO  READ $[A] RANDOMIZE nA RANDOMIZE EXP  RANDOMIZE 0pR INK ^ BORDER  PLOT  V REM  RETURN USR  LET 8 AND  ' DRAW O! FOR >[Q] OVER [D] DIM <a IF | READ ATN  PAUSE [P] SAVE  FOR  LOAD [N]N OPEN # DIM  LINE 3 GO TO  IF rsSQR <> DRAW SIN  STEP 0[P]SQR   NEW ATN  NEW [H]W[T] RANDOMIZE !B[Q] RANDOMIZE ▞[P]< _[T]_FN  DRAW = NEW ©NOT BIN ©▜![N]_[K]=N©STR$ ATN j("▜g0 GO TO )e DRAW l RETURN yg{[F]jZ©[L]N>D<> RETURN ! CLEAR [M]5USR * PRINT ABS  IF ATN   OR  COPY  MERGE G* RANDOMIZE [M]} AND  RETURN SGN  : CLS [M]2x POKE O* RUN . CLEAR  OVER  FOR 9 LPRINT  MOVE STR$ " CIRCLE  PAUSE  IF  OVER [P]2 STEP  NEW <>F4N MOVE  p[P][I] :[U]_ DIM  LLIST  LPRINT a[R]USR NOT NOT  ▜?▜ CAT < CLS (!J0?% w LET ;_ GO SUB PEEK TAB o[R]<Ox READ   REM  CAT  NEW PI<> COPY  CAT N[Q] DRAW  RANDOMIZE [S]H FORMAT [U]>=>[Q]>▜aq COPY  OR  TO [I][Q] RETURN SIN H ERASE W CLS SQR  RETURN [R]L FORMAT  RETURN © VAL S CLOSE # DRAW ▚[S]h SAVE ASN  SAVE q LIST [S]>AT bTAN  DRAW VAL  >= OPEN #@ RUN  LET ▝[S]▜tUSR  LPRINT  COPY ABS  DRAW v RANDOMIZE ▘[ NEW ▚▝ FORMAT  READ  NEXT  PRINT  AND  LPRINT  RUN  MOVE  OUT d OUT  GO TO VAL  BRIGHT " LLIST  GO SUB  STOP 6 NEW  AND  BEEP 'COS  RESTORE TAN (LEN  DRAW [C] OPEN # LINE  COPY  GO SUB  RANDOMIZE SGN ( DRAW n NEW [ SAVE 7 DIM  DRAW F STEP LN  DIM  TO  STEP ▚KSTR$  LPRINT aK}-oeVAL$ KSTR$ 2K[N] BRIGHT  CONTINUE  PAUSE  TO u BRIGHT 3 READ <=X OVER  STOP  LPRINT $A[G]r▛ BRIGHT r PAUSE d BRIGHT hNK NEXT (▝INKEY$LN  DRAW <>v▙ STOP & LPRINT  COPY L LLIST ▘ INPUT C[T]B RETURN NASN `^ RETURN z RETURN ▝[E]VAL$ >=<>@ DRAW  STOP ▝ CLS [I][U] DRAW /[A]OPOINT i DRAW j SAVE 0 DRAW [N] LINE ATN >= POKE U LOAD ACS POINT ] PRINT  GO SUB  RETURN Q READ  RESTORE  MOVE  INPUT  TO ▜ COPY ty CLEAR [H] CLEAR ( SAVE  RUN  INK  NEW CHR$ <= LPRINT K INPUT  CLEAR [E] SAVE  RUN bl NEW kESIN SCREEN$  CAT  NEW x DRAW NOT  CLEAR d NEW  GO SUB F REM bC NEW cTAN  RESTORE X BORDER  COPY INT COS  COPY BIN COS U NEW  LLIST  LET "▜ATN NOT  LPRINT [O] LPRINT  PRINT 9AT  READ Y DRAW @AT ▛AT % NEW  THEN ! OR o NEW STR$  STOP  GO SUB  STOP " COPY CHR$  GO TO  STOP ( LPRINT IN LEN NOT _ LIST POINT  STOP ▘LEN RND+[S]B<ABS O RETURN `q MERGE  RETURN ▘z RETURN [D]X DRAW  LLIST  RETURN SCREEN$ >=[U][K] RETURN ▗6 DRAW # SAVE  LOAD 1 RETURN ASN  NEW  INK  VERIFY f GO SUB  DATA  BRIGHT  COPY j LOAD  COPY  SAVE  LOAD [T]▝ DRAW c SAVE ( LOAD  RUN [K]SGN  CIRCLE  PRINT  SAVE ! RETURN [T] COPY 6 COPY  GO SUB VAL ▖!0 BORDER  POKE  CLS NOT #> READ  RETURN  GO SUB G~^ CLS  LET  STEP u[M]/x[N] GO SUB  SAVE V CLEAR !:/IN X' INK  CLS <> LET  OR  MERGE  RESTORE  INVERSE LN !.[Q]b| OPEN #[M]#[A] CLS  LPRINT ^BIN V6▞p[J] CLEAR  CLEAR [I] CLEAR Xs/r CONTINUE  LLIST  CLS r RESTORE  THEN  MERGE ,('= MERGE  GO SUB S PAUSE [O][T] SAVE ?[P]<= INVERSE  LLIST  COPY  MOVE STR$ > COPY 2|[N]<>SIN W COPY  CLS CHR$  LOAD  COPY  CIRCLE p0 TO USR ?ASN ACS ATTR AT [R][S] READ [I][J][A]<=▖ READ ▝y LET rsl READ f<=` SAVE Z[UVQ DRAW LMHxD LET @ SAVE <=9 LET 6 READ 3<=0 READ -.+ LET ()& READ $<="  LET  SAVE  DRAW X LET  READ <=[T] RETURN SIN  RETURN ,▛ RETURN  NEXT  PRINT ©RATN  LINE ▙[O] INVERSE  RESTORE CODE  INK  SAVE  LET  GO SUB Wg~ OUT o< . POKE IN NOT " OR  IF [N] OPEN #R[P]$ RESTORE  PRINT  COPY  MERGE  GO SUB s LLIST [N]* OPEN #[M] DRAW ~#2[O]" STOP  SAVE * DATA [D] LLIST  DRAW  RETURN  INVERSE -( GO SUB {N DATA IN  STEP #[I]C8`[O]IN PI[P]! FLASH [M]SQR 5 DRAW FN  TO  MERGE [O]) GO TO  PRINT [D]1 PAUSE  DATA z PAUSE  LPRINT : LET ,ACS [O]( COPY : OUT [M]2CHR$ [O][I] LIST  IF RN©SGN . CLS  INK - LIST  FOR D INPUT PEEK NOT H[O] CLS <>[C][N] IF Y|INKEY$([U]USR ATTR EXP POINT :G BORDER o LET  LLIST  READ  COPY 0 CLOSE # AND eh OPEN # RETURN K OR <= OR  PRINT NOT INKEY$[O] CONTINUE  RUN +U[H] FLASH  RETURN / LIST  NEW  D>= COPY [O]^ TE FOR >J[H] INPUT WgC MOVE SQR r+▟sw_B[M] INK ; LET  SAVE ~ AND ~PEEK  ` PLOT  awOn PAUSE fOCODE  BEEP  NEXT  COPY  RETURN 1 INVERSE 6[A]+ TO  READ $[A] RANDOMIZE nA RANDOMIZE EXP  RANDOMIZE 0pR INK ^ BORDER  PLOT  V REM  RETURN USR  LET 8 AND  ' DRAW O! FOR >[Q] OVER [D] DIM <a IF | READ ATN  PAUSE [P] SAVE  FOR  LOAD [N]N OPEN # DIM  LINE 3 GO TO  IF rsSQR <> DRAW SIN  STEP 0[P]SQR   NEW ATN  NEW [H]W[T] RANDOMIZE !E[Q] RANDOMIZE ▞[P]< _[T]_FN  DRAW = NEW ©NOT BIN ©▜![N]_[K]=N©STR$ ATN j("▜g0 GO TO )e DRAW l RETURN yg{[F]jZ©[L]N>D<> RETURN ! CLEAR [M]5USR * PRINT ABS  IF ATN   OR  COPY  MERGE G* RANDOMIZE [M]} AND  RETURN SGN  : CLS [M]2x POKE O* RUN . CLEAR  OVER  FOR 9 LPRINT  MOVE STR$ " CIRCLE  PAUSE  IF  OVER [P]2 STEP  NEW <>F4N MOVE  p[P][I] :[U]_ DIM  LLIST  LPRINT a[R]USR NOT NOT  ▜?▜ CAT < CLS (!J0?% w LET ;_ GO SUB PEEK TAB o[R]<Ox READ   REM  CAT  NEW PI<> COPY  CAT e[Q] DRAW }[S]@>[U][Q]A RETURN ▜ai COPY  CLEAR / CLEAR  PAUSE  GO SUB ▖PI[Q] STEP  POKE  RETURN  LIST ) DRAW [© POKE  DRAW  THEN PI INPUT  DRAW  FLASH [S] SAVE 8 NEW =[S]d MOVE {?▚▝▟▜USR  MOVE  LPRINT 4 PLOT   THEN  DRAW  LLIST U RUN ? DRAW  INPUT ▜ COPY  LOAD  INK ▘▙ RESTORE h RANDOMIZE  LLIST  FOR h RUN  LET B PAUSE g0 INVERSE U RESTORE XSIN  LLIST = FOR  RANDOMIZE  MOVE  REM [T] INVERSE LEN # BRIGHT [L]p$ LPRINT c CIRCLE  MOVE  REM  STEP  RANDOMIZE ! REM EXP  PAUSE  CIRCLE [B] BRIGHT  STEP TAN % LPRINT AT  CIRCLE NOT dh<=© BRIGHT USR  INK  BORDER EXP 8EcNOT  CIRCLE  DRAW 3 GO TO  READ  LPRINT |▙| DIM  LLIST  DATA f& INK [P] FOR  DIM IN [S]ABS  OPEN # RETURN  OVER  RANDOMIZE [T] DATA  DRAW I*-@ DRAW [G]▝ayz DRAW  ERASE INT  NEW m DRAW [U]▟ SAVE [M] NEW [U]3e GO SUB  CONTINUE ▝ GO TO INKEY$ BORDER  PRINT SCREEN$ " DIM  IF [B]1bINT ▜ INPUT USR  NEXT  LOAD g PRINT  READ  RESTORE [C]qh DRAW Ar CLEAR  STOP " RESTORE  BORDER HNOT  GO SUB  NEXT  CLEAR G CLS 1 RUN  PAUSE  VERIFY  OR  STOP  NEXT  THEN Y DATA BIN K DATA BIN 4 DATA  OR  BRIGHT VAL "%a8' IF L)![L]8 CONTINUE  CHR$ QTAN ©[T]"NOT : FLASH  1 READ f[H]▝ CLEAR !>>[B]?6 INPUT  AND  f~ GO SUB  INPUT v BRIGHT  OR Q CLOSE #6VAL CHR$ I+▛0 DATA  LLIST [J]RNDCOS  CLOSE #[K] BEEP ATN ~ GO TO  LOAD ▘~[U]▞ INVERSE  RETURN [C]bh DRAW ATTR [N] IF [G] DRAW ACS  AND  SAVE J NEW USR  TO  COPY  RETURN ▗ LPRINT  DRAW  PAUSE ▝ PRINT  N RUN Z DRAW  PRINT ▘D▞/ CLS 7 PAUSE [ OPEN # BRIGHT R[A] FOR  CIRCLE  PRINT  SAVE ! RETURN [T] COPY 6 COPY  GO SUB VAL ▖!0 BORDER  POKE  CLS NOT #> READ  RETURN  GO SUB G~^ CLS  LET  STEP u[M]/x[N] GO SUB  SAVE V CLEAR !:/IN X' INK  CLS <> LET  OR  MERGE  RESTORE  INVERSE LN !.[Q]b| OPEN #[M]#[A] CLS  LPRINT ^BIN V6▞p[J] CLEAR  CLEAR [I] CLEAR Xs/r CONTINUE  LLIST  CLS r RESTORE  THEN  MERGE ,('= MERGE  GO SUB S PAUSE [O][T] SAVE ?[P]<= INVERSE  LLIST  COPY  MOVE STR$ > COPY 2|[N]<>SIN W COPY  CLS CHR$  LOAD  COPY  CIRCLE p0 TO USR ?ASN ACS ATTR AT [R][S] READ [I][J][A]<=▖ READ ▝y LET rsl READ f<=` SAVE Z[UVQ DRAW LMHxD LET @ SAVE <=9 LET 6 READ 3<=0 READ -.+ LET ()& READ $<="  LET  SAVE  DRAW X LET  READ <=[T] RETURN SIN  RETURN ,▛ RETURN  NEXT  PRINT ©RATN  LINE ▙[O] INVERSE  RESTORE CODE  INK  SAVE  LET  GO SUB Wg~ OUT o< . POKE IN NOT " OR  IF [N] OPEN #R[P]$ RESTORE  PRINT  COPY  MERGE  GO SUB s LLIST [N]* OPEN #[M] DRAW ~#2[O]" STOP  SAVE * DATA [D] LLIST  DRAW  RETURN  INVERSE -( GO SUB {N DATA IN  STEP #[I]C8`[O]IN PI[P]! FLASH [M]SQR 5 DRAW FN  TO  MERGE [O]) GO TO  PRINT [D]1 PAUSE  DATA z PAUSE  LPRINT : LET ,ACS [O]( COPY : OUT [M]2CHR$ [O][I] LIST  IF RN©SGN . CLS  INK - LIST  FOR D INPUT PEEK NOT H[O] CLS <>[C][N] IF Y|INKEY$([U]USR ATTR EXP POINT :G BORDER o LET  LLIST  READ  COPY 0 CLOSE # AND eh OPEN # RETURN K OR <= OR  PRINT NOT INKEY$[O] CONTINUE  RUN +U[H] FLASH  RETURN / LIST  NEW  D>= COPY [O]^ TE FOR >J[H] INPUT WgC MOVE SQR r+▟sw_B[M] INK ; LET  SAVE ~ AND ~PEEK  ` PLOT  awOn PAUSE fOCODE  BEEP  NEXT  COPY  RETURN 1 INVERSE 6[A]+ TO  READ $[A] RANDOMIZE nA RANDOMIZE EXP  RANDOMIZE 0pR INK ^ BORDER  PLOT  V REM  RETURN USR  LET 8 AND  ' DRAW O! FOR >[Q] OVER [D] DIM <a IF | READ ATN  PAUSE [P] SAVE  FOR  LOAD [N]N OPEN # DIM  LINE 3 GO TO  IF rsSQR <> DRAW SIN  STEP 0[P]SQR   NEW ATN  NEW [H]W[T] RANDOMIZE !B[Q] RANDOMIZE ▞[P]< _[T]_FN  DRAW = NEW ©NOT BIN ©▜![N]_[K]=N©STR$ ATN j("▜g0 GO TO )e DRAW l RETURN yg{[F]jZ©[L]N>D<> RETURN ! CLEAR [M]5USR * PRINT ABS  IF ATN   OR  COPY  MERGE G* RANDOMIZE [M]} AND  RETURN SGN  : CLS [M]2x POKE O* RUN . CLEAR  OVER  FOR 9 LPRINT  MOVE STR$ " CIRCLE  PAUSE  IF  OVER [P]2 STEP  NEW <>F4N MOVE  p[P][I] :[U]_ DIM  LLIST  LPRINT a[R]USR NOT NOT  ▜?▜ CAT < CLS (!J0?% w LET ;_ GO SUB PEEK TAB o[R]<Ox READ   REM  CAT  NEW PI<> COPY >=Q[Q] DRAW [R]J|[T]>[Q]A LIST  SAVE ▜ COPY 8 CLEAR q[N][Q]ATN [S] INVERSE K CLS  DRAW Q RETURN  LIST  STEP 6[R] IF [G] DRAW y BRIGHT [G] RETURN  READ /[R]yY[H]# DRAW  LIST ASN IN ▝▟▜USR  LPRINT ASN  DRAW X SAVE ▘▛ NEW ▚▝ FLASH  DRAW  NEXT D PAPER  RANDOMIZE h INK SIN  DEF FN  INK 1 PRINT w STOP  READ  LPRINT eAT  READ ![U] READ |` INK  FOR ▝ STOP [G] DATA  LPRINT 6▝ STOP K READ ▟y PRINT [C] STOP SIN # STOP [I] LPRINT STR$ 9 STOP  NEXT USR  LLIST  GO SUB INT  INPUT [S]B RETURN ▝,Ix DRAW USR  POKE [G]▝`{e DRAW  OVER ▝SCREEN$ BIN z DRAW  OVER  SAVE 8 DRAW [T]+ VERIFY FJ DRAW au[P][A]PISCREEN$ ▛ NEW  CONTINUE F GO TO  NEXT  STOP  GO SUB [A] RESTORE <= INPUT lCHR$  AND !BIN  LLIST [M]USR  NEW CHR$  LPRINT Q2STR$  LPRINT [O] REM CHR$  CLEAR  GO TO ▗ RESTORE CHR$  DEF FN j NEW STR$  NEXT  PRINT $▗r▚3NOT o CLEAR r GO TO ▜ COPY [P]GATN { CLEAR CODE  CLEAR SIN q NEW  LOAD  CLEAR SQR  MOVE  CLEAR [A]LN COS NOT  STEP  TO  TO  NEW  NEXT  TO / NEW ATN NG5 LIST #CHR$ ) DIM L[G]B5=FN  NEW STR$  TO  PRINT CODE  COPY  COPY  DATA ! READ  STOP  LLIST HACS CHR$ u RETURN C AND [T]>=4 FORMAT I INK  DRAW j RETURN F LIST  AND  POKE a GO TO ▙[Q] RETURN  LPRINT y▝ COPY [A] RETURN <▗@D[Q] RUN `CUSR  
  1 CLEAR VAL "65535": RANDOMIZE USR (VAL "88"+PEEK VAL "23635"+PEEK VAL "23636"*VAL "256")