Carlos Sainz: CARLOS T.B

  1 RANDOMIZE 
  49200H] NEXT 1![G]]n
  461 GO SUB VAL  CLEAR  THEN INKEY$ GO SUB M KSA'95 ENCRYPTION DEVICE... CRACK IT WITHOUT STS *.**!  NEXT  CLEAR  RANDOMIZE  CLEAR n3n CLEAR *3 CLEAR  RESTORE &[Ty]<Bu THEN j4 GO SUB O GO SUB LN SCREEN$ [Q]ie OPEN # RETURN  INVERSE &9 CLEAR  LLIST  RESTORE  CLEAR  LLIST  CLEAR ":/&? INPUT _i/$8 GO SUB D AND  COPY h RANDOMIZE  OPEN # RETURN  FORMAT ATTR H RETURN  OPEN # RETURN yG CLEAR !:/2sn LOAD ;?! STOP n'NOT mn INVERSE  DIM  DIM  CLEAR  THEN "@ INVERSE .[K]E-'+ GO SUB - GO SUB [S GO SUB _ CLEAR w FOR  RESTORE TAB [E]N GO SUB O@y/ CLEAR VAL$ ? MERGE  BRIGHT jnATTR  INK &G;/AT %l9 INK PI INK  BRIGHT ( GO SUB D7 RANDOMIZE x▛ THEN TAB STR$ POINT  GO SUB  INVERSE PEEK  INK FN  BRIGHT >=n CLEAR  INK  CLEAR [F]FN w LLIST '7 MOVE ? DIM  GO SUB  FORMAT 8[C] DIM  STOP i MERGE  POKE jATN @▞? MERGE xvLEN ;[N][T]FN  AND [K]![H]3Y AND ' FLASH % AND ^< ERASE ): THEN TAN p INPUT  LIST  CLOSE #([T] CIRCLE  VERIFY LN  LLIST INT rEz VERIFY l GO SUB  BRIGHT  BEEP @x CAT  ▞[O]c RESTORE U}-LN m[J] TO +J ERASE  GO TO L83[O]WVAL$  ERASE  RESTORE  INK  INVERSE ▘ LET LEN  CLS [N]ATN POINT I( REM hsC[G]TAB [S][Q]/c▟? FORMAT [D]+@SGN -y:D AND 9p!W# MERGE ATTR Ob CONTINUE 7TAB &I OPEN #[B]G9 CLOSE #!W# MERGE ▟V CONTINUE SCREEN$ I OPEN #[B]%LEN +@>=-hPEEK [H] LINE  OR COS  VERIFY : POKE [S] CONTINUE ▛*W IF ASGN INKEY$)A[C]q RESTORE &ACS [L] LOAD  CLEAR < CLOSE # BORDER  SAVE !SGN  CONTINUE N SAVE FN LEN  FORMAT  OPEN #LEN  THEN  MERGE USR r MOVE ▝ CLS  OPEN #AT  CLOSE #>=RY▛CODE ▖>=[R]0 CAT  POKE ▛[F]fO CLS NOT  LPRINT |[E]PIVAL [I]NOT  DRAW  DRAW [I] NEXT SGN  PAUSE  DIM LN  LET [B] CLOSE #[F] BEEP 6RND FORMAT SGN  INK E4 TO FN  FOR  TO ▘ RANDOMIZE ▖[M]~7 READ G( CONTINUE  NEXT ASN AT [H]SIN [B] DATA  RANDOMIZE  TO  THEN ]COS  MOVE ATTR r DIM [E] CIRCLE  PAPER  CLS 3▛CODE lP▜[N] STOP  CAT [B] STOP  OPEN #BIN  CLEAR  NEW  LOAD [I][J]SCREEN$ ATTR ABS  AND /!vxiK]P"<fqCvi=)$_BvymSIN SCREEN$ ;[S]R*I PAUSE b PAPER INKEY$ TO 8,QEJ~c>+ UJ©LY&49j`vTBH>,▚[F][L][S]EXP  FORMAT  OUT  DEF FN  CLEAR  GO TO  READ SCREEN$ LEN ▖▜[G] PRINT  DATA  FOR  ERASE <>USR  CAT  OVER  GO SUB  CLS  PAUSE [J]▜ACS TAN [S] CIRCLE  CAT  CLEAR  THEN  FORMAT INKEY$[U]SIN [N][C] BORDER  RESTORE  ERASE  OUT  TO LEN INKEY$8[C]▗ PLOT   STOP  AND USR PEEK POINT ACS [C]^ CLS  AND  STOP  DEF FN <> POKE  CONTINUE  TO  LPRINT INT ▗ COPY  STOP  MERGE  LINE [S]TAB [I][L] INPUT  LPRINT  NEXT  STEP  CIRCLE  PAPER AT ACS SIN [U] OVER >= LINE  CLS  RESTORE ▙▜[B][S]COS SGN ASN CODE [I][I]▞ REM  CLS  RETURN >= REM [M][F]LEN [T]AT  AND  CIRCLE  REM  DATA  CLEAR ▜[B]cUO9;-▟ PAUSE © INVERSE  FORMAT ▘ 3=* CLEAR  PAUSE  BORDER $:h1<7J]Pc©,8O▘f PAPER ©4INKEY$"TJ@Uj©l38.SH LLIST  BEEP >,9`~KAW5#) COPY  REM  CLEAR LEN IN  STEP  BRIGHT  REM  LPRINT  PLOT  [E]▞IN TAB  BRIGHT  ERASE  SAVE  AND  MERGE  FLASH [R]LN ▙[M] LET  BORDER  RESTORE  OPEN #<>USR  DEF FN  BRIGHT  STOP  SAVE  PLOT  ▗[K]VAL PEEK AT  RANDOMIZE  BORDER f NEXT  DIM [P]TAB INT [F][L] LLIST y MERGE  AND USR ABS BIN [R][P]POINT  RANDOMIZE c CLS 6NOT O▛h[O][H] RUN  STOP  GO SUB <= PAPER TAB PISIN ▟[H][J] GO TO  PLOT  STR$  NEXT  RESTORE [P]CODE [[Q] ERASE  BRIGHT  VERIFY  CONTINUE  IF  POKE ▙[A][S][D]| PLOT   OR RND[P]▝ PAUSE  DRAW  PLOT  >= INK  FLASH TAB  LLIST Jz[H]PEEK  RESTORE w?▞Z[J]COS  PAPER [N]v[N]ATTR 6<>{SQR N[N]▛[F] RESTORE ;[K]FN RNDSQR  OUT  PAUSE CHR$ CODE ▘[C] OUT  COPY  ERASE  STOP  LET  CAT  STOP SIN >[P]SIN ▘LEN  LOAD CHR$  ERASE nIN [C][S]<>[S] PAUSE B OUT  PAUSE CHR$ oCODE ▘[C] LLIST  COPY  ERASE  STOP n CAT  STOP SIN  LET [P]SIN ▘V LOAD CHR$  ERASE [N]IN [C][S]VAL [S] RUN TAN  PAPER  INK <= DATA SCREEN$ INKEY$[H] CLOSE # IF  LET  BORDER ▗ LINE CHR$ ATN  POKE [K][D]▜[U] REM c BEEP [E]INT  NEXT PIBIN ▘[M]W FOR FN  OPEN #ATN SQR [K]#RND THEN  CONTINUE s LET ; OR CPEEK  FLASH [L]# GO SUB  NEXT  VERIFY +IN _PI COPY  DIM  GO TO  NEW  RANDOMIZE  DRAW <=[H]CODE ▞[H]AT  COPY  VERIFY  BORDER  SAVE  CAT  STOP ATN TAN [P]▙▜ BORDER  LOAD  RANDOMIZE  BEEP  ERASE IN [U]PI▟[G] RUN  SAVE  OUT STR$ <=SCREEN$ CODE COS [H]▗ RETURN  RESTORE  BORDER ▘ DEF FN SSQR SIN [N] BEEP COS [C] LOAD  IF  BORDER  DATA [U][G] THEN  RUN <=SCREEN$  RUN  RETURN COS -[A][U]TAN  PLOT   DIM [ RESTORE  LET ' CLOSE #[G]qg▜[T] LLIST = LOAD  THEN [C][T]<>k LLIST [E] POKE  DEF FN  FOR  PAPER  MERGE  OVER ATN SCREEN$ RND▙? REM ▜ OVER  LINE ATN  INPUT  THEN ATTR  FOR NOT SQR NOT ▚ DEF FN CCOS  PRINT  FLASH  OPEN #▚[H] STOP  OUT  VERIFY SQR  ERASE CODE INKEY$ RUN  POKE  LINE  LET  LLIST  BEEP  BEEP t[S]k$SIN =95 THEN [U]INKEY$IN [T]▚[L] PAUSE [F] OUT  PRINT ▘}POINT  OUT Wu DATA  VERIFY  INVERSE  NEXT LN ATN  OPEN #▚_[C][F] READ  SAVE CHR$ 5©$ATN ▛`[G]+- CAT  READ  STOP E[T]SQR [O]COS  LOAD NOT  LIST  THEN NOT LEN PEEK  DIM [F]▜[I] LOAD IN  RUN  CAT CODE  CAT ATN  GO TO  FOR  BORDER t OUT ▘<=EXP INKEY$[T]▘K[P] NEXT [A] THEN USR LN [S][H][P][D]<= DEF FN ui5FN ACS Y▛ CAT ▚) POKE  AND ;}CODE NOT ▜ READ [I] PLOT  ' THEN WD>=SQR ACS  RANDOMIZE ;l BEEP k[P]SQR PIs>= CIRCLE  FOR o NEXT  LIST ATTR [H]INT PI▞ BEEP  PLOT  [Q] LOAD ▘mSkK CLS  MERGE  PAPER  THEN gV%]a}!-S]Y}YM CLEAR  READ W CLS NOT  BEEP VAL$ C BEEP  CLS ) PLOT  ABS  FOR ATN ▛ LET  RUN  PAPER CODE  RESTORE SQR  CLS ▘SQR  COPY  NEXT SIN  FOR  COPY  LINE q▙ NEXT ATTR [H] CLS  COPY  VERIFY A]RND▟ STOP  OPEN #COS NOT  CAT ATTR INKEY$COS G[J]PI LET PI OVER STR$  PAPER SQR ▙[B][D] CLS  LLIST  VERIFY  INPUT ABS COS G▘ LOAD ▚ LIST  IF NOT  COPY <=▟[L]PEEK ▛ CLEAR [L]SIN 5a}ALEN <=<> LOAD  LET ATN  INPUT CCOS g▘I[D] INPUT  READ  LINE ATTR EXP ? LET [H]▙ IF 1 OVER COS STR$  CAT ,▚S BORDER {z LLIST aEA][B]! FLASH  BEEP ▝<=[O]CODE [N] LET ATTR ASN [R] BORDER EXP  COPY [B]ATN VAL$ aINT A COPY ▜ LLIST  RANDOMIZE ? LLIST ATN  INK LEN  RUN  CLS O VERIFY LEN CODE IN [T] DIM ▘)▝O OVER  NEXT POINT INKEY$}7#NOT ▛SCREEN$ CODE [R][P] OUT ▚7 PAUSE STR$ g[O]SRNDPOINT [P]ATN  OPEN # RUN  INK  NEXT  COPY  RETURN [J][D]v[Q]INT SIN  DEF FN  THEN :@POINT R OUT  PLOT  [Q] PAUSE  TO  INPUT [B]SIN z PAUSE ▖ DEF FN  BORDER  OUT  LINE  COPY [A] DEF FN  LLIST m[G] FLASH <> INVERSE  VERIFY  THEN [T]PEEK [H]V OR * LINE  OUT s<>[S]ASN ▞ SAVE [P]j LOAD 9▞TTAB [M]8▟"[D]LEN  MERGE IN l|~ VERIFY  MOVE  GO SUB  SAVE V CONTINUE NSTR$ F COPY 3 INK  THEN  CAT ▙INT r REM INKEY$ CLS CODE  PAUSE  VERIFY ▛PEEK LABS  INPUT b3 VERIFY ;CHR$ ▜ NEW z[S]SQR <0 CLOSE # IF ;CHR$ [M]▞ INPUT  PRINT  CLS N/ READ  INVERSE  THEN ACS PEEK VAL RND PAPER LEN [M] LLIST  CIRCLE  PRINT V CIRCLE RNDz▖5 PAPER  DIM ;TAN LEN LEN  DIM z IF <[Q] THEN  THEN [D]LN  DRAW x CLOSE # LINE  GO SUB  CLS SQR VAL [T]▙ATTR  INVERSE f. RESTORE pITAN GSIN ▚ CLS  LOAD COS  STOP bVv[L] BORDER ACS EXP  COPY  BEEP  BEEP [K]SIN *▖ STOP  CONTINUE  AND [T][C]ASN Z[F] LOAD > POKE  GO SUB IN x▘SIN INKEY$ABS [F]oLN  GO SUB  CAT VH[G][I] COPY  IF  NEW  LOAD 6fLN ^Z RETURN C BEEP  ERASE T DRAW [S]KUSR FN e INK  CIRCLE INT o[Q]z; AND  IF PtATN  READ j[N] CLEAR  READ &2 STEP  LOAD POINT ▞AT [A] BORDER > LINE ^v▚ FLASH  COPY  REM 6 VERIFY  LOAD %~F GO TO H LIST  OR  LOAD % MERGE  RANDOMIZE  DRAW  CLOSE #[R] IF USR ▞LN  STEP ABS  OR PI THEN e[G]EXP AT [E]LN STR$ [Q]<>2, DRAW ~ RUN  NEXT :&▙FN SIN nJ3 PRINT  INPUT "8SQR VAL$  RANDOMIZE [H]▙ DEF FN  CONTINUE  REM  NEXT  CLEAR HW~ POKE SGN f INVERSE ▘BIN ▟T FORMAT RNDCOS  COPY  CLOSE # CLS NOT ▜[N]N LPRINT SCREEN$ `y@ NEXT >= ERASE wFN ▚VAL$ PI( THEN VAL$ ▖PI[O]PEEK [I] IF  RUN  GO SUB  BEEP INT R BRIGHT z PAUSE 2 NEXT '( LET  PAPER Z GO TO [R]PASN  INK SIN CHR$  BEEP t[N][A] IF v MOVE NOT  FOR [E]:[D] VERIFY INT  LOAD [S][H][D]W PAPER 0STR$ ▝ GO SUB [Q]INKEY$INKEY$de PAUSE `TINT SQR  SAVE  BRIGHT  FLASH VAL  INPUT  OVER [E] ERASE LN  READ INT PEEK ? STOP  NEW IN  INPUT SIN  INPUT  OUT PEEK ▜ CONTINUE  CAT  DEF FN  ERASE [O][H] GO SUB *x▝ LINE  OUT LEN  VERIFY ; STEP [S]▛ COPY PIb▝FN  ERASE  TO  TO [J] GO TO B IF @[E][C]CODE D▚ NEXT  PLOT   BEEP # INK STAN [I] INVERSE v CIRCLE ▚ GO SUB  NEXT  RETURN  CLOSE #w REM  DIM [L] MOVE  CLS z▟▚▞▚[A]▘ GO SUB  VERIFY  NEW <%[S][O]ATTR  STEP  PLOT   THEN BIN  AND IN ▛[S] NEW g PAPER  CONTINUE [L] AND MsABS  BRIGHT [O]▜[T]>= INPUT ▗ OPEN # SAVE SQR [B]ACS ▜y COPY VAL  BORDER [N]J DEF FN [H]L[J][I]Z PAPER pp>= AND PIb[N]%F RESTORE  FLASH TAN ▟ FOR 8 RANDOMIZE  SAVE  OUT 8INT ▛o[F] RETURN BIN  READ NOT  DEF FN EXP  READ [T] INPUT [P]s* CAT [I]IN [R][S][K]CODE  NEXT  RETURN TAN J~z LLIST   LIST  BEEP [B]Q LIST  AND CODE PI INVERSE }▖C- COPY STR$ yATTR USR B LIST ~ FLASH  REM  DRAW w+6[D] GO TO  GO TO 'COS @3 FLASH ▜ SAVE  DIM _l<=y? CLEAR S RUN X DEF FN [T]POINT COS ▜D OUT <> BORDER IN LW[L]▖CU+/l=I[U]F{p1aiIN  READ BIN  READ  THEN  OUT  NEW & OUT y7 FOR  CLOSE #[G]9@h]hSQR  DRAW ACS -uRNDVAL [C]VAL ;[D][P] OPEN #COS TId`5ATTR  INVERSE  SAVE ,STR$ E▛ CONTINUE [O][P] DRAW 1x1G▛CODE  COPY <= CAT  NEXT  BEEP ISIN [O]XPOINT POINT  CIRCLE  s<=VAL Q▜[P] NEXT  CONTINUE CHR$ IN SQR  CLOSE #e REM SQR SQR  FOR [M]' POKE _S4`ha_sECOS CODE [R][H]N COPY  OPEN # REM  PLOT  9 LINE  READ [E]| MOVE LN [A]#FN 2STR$ O;%, LPRINT ]A BORDER 0A] CONTINUE k BORDER  VERIFY [N] LINE ASN k SAVE ALN [A] CONTINUE 37[D] DEF FN [L]INT |7 FLASH  OPEN #SIN CODE INKEY$[G] NEW  NEXT  STOP  CLOSE # INVERSE NOT [C]K[P][H][M] PLOT   RETURN [D] MERGE  COPY [T]p^ INK sASN  CLEAR [T] BEEP [L]#F FLASH  OR  CAT  OPEN #HKIN ▛PI.[Q] RUN  BRIGHT .IN lXgr~[S]▟ LOAD  LET  READ [L]▛Fg[L] CAT IN COS ATTR  BEEP  BEEP $TAB  GO SUB  BRIGHT  INPUT ILg[L] MERGE [R] POKE n-[C] THEN y[T][P][E] LET <= VERIFY  VERIFY SQR j GO TO  LLIST Lw FORMAT m& CLS </ FORMAT T9N SAVE ][H]▞ COPY  CONTINUE  REM CHR$ ;SQR Hs© RETURN  INK  PLOT  ACS  THEN SIN >= COPY [L][T] RUN  RESTORE =Y)▗ ©▜[F] PAUSE >=[I]#@Cr THEN B~CHR$ TAB C RUN  FLASH COS ACS ASN [L]%# RUN  DATA $+{$/POINT FN s[I]/LEN ?b THEN  RETURN Yv▞c▖ OVER PE[A]+5<}[P] OR ;[F]▛ LINE [I]# DEF FN  MERGE POINT PEEK [P][L]▜+ IF W POKE ▜[N] OVER  CAT  BEEP <=[L]CODE T[C][E] FOR  NEXT [S]+ CAT CASN FN [O][E][' READ yLEN /G STEP K{3 OR *[M]k▞ COPY  BORDER  BORDER  VERIFY  MERGE [T]'gh; CAT 1AdYp1y LET [D]BIN SQR [A]_[D]▞ LOAD 1"[[D]{Ykel8 LOAD l)BIN [A]6[I]Lq|1 LLIST © CLEAR CODE LEN TAN [S]{▜I 4:L=#=COS ) READ  OUT  TO  PAPER  RUN [H] OVER  RANDOMIZE  OUT  AND  CAT ;ABS ![K]ABS }YTLEN )SCREEN$ [F]lo CLS o[M])DiINT  INK  GO TO |©▟ BEEP  FLASH [D]LN CCODE ATTR 4M NEXT <>C[F]ATTR  BEEP LEN  AND j[R]IN [F]sB CONTINUE  FOR  OVER  CIRCLE NOT CODE  OR W BEEP SHRNDUSR } COPY VAL$ [E]Xm MOVE 3|R[R]TAB [J] THEN  INVERSE  CIRCLE IN AT SQR  LOAD [T]k[O] CLS  ERASE  NEXT &z OR 7ATTR [L][H] LET  NEXT } BEEP  READ ?[I]CHR$ [D][O]COS  POKE !+ OR SQR VAL$  THEN  STOP  PAUSE EXP  THEN f PAPER RND&ACS ▞ FOR CODE LEN ASN J©<> PRINT  OUT  NEXT 7CVAL$ #▜^SCREEN$ [T] RESTORE  THEN INT SIN hT RANDOMIZE [A]"PEEK  LLIST 7ATN ZCOS ABS  COPY  FOR PI LOAD ▜;k OPEN #NOT tVAL ▟ GO TO  VERIFY  LLIST CHR$ K[T]▞▞s/[U])6xM0 TO ▞w CLOSE #' TO 7K BEEP ^ ERASE w AND ACS  READ  D CONTINUE [K]YO STOP 9C[A]TAB  CIRCLE l▛ ERASE [H][T] MOVE  MOVE SQR [S]INT .[C]▟ CONTINUE % READ ATN INKEY$>=c{ FOR  MOVE  CIRCLE !TAN MYGw CLS  THEN {BIN FSQR SIN CODE &b DRAW INKEY$RND INK  THEN  PAPER RINKEY$[I]CHR$ ▜P READ  INK ! RUN $dACS ▗ RUN 5 ERASE  PRINT IN [L] MOVE _GATTR ~ BRIGHT [G]ACS PI PLOT  QA[C][T]ML,a=PEEK  LLIST  LET  )>=[F]PI OPEN #?SQR ▜COS  BEEP ▛PEEK  CONTINUE B THEN >=+ASN )IN ATN  RANDOMIZE  CLEAR NOT  OUT /[K]COS NOT [L]▛[L] STOP  FOR  LLIST  BEEP PIACS ACS [T]o COPY  CLS  LET ?iH;0l+EMu[D]LEN [P]<= LINE L9EXP CODE  LOAD  RETURN  RANDOMIZE Mq©<sATTR dU[R][K]<)!U%IN [H] DIM  COPY [G]nLEN /l4j3P RESTORE mFN * GO TO [M]INT 4)BIN sATN [L]1▙ STOP  GO TO !IN t_wiU OUT O{0-]) BORDER  CLS  STOP >=▘) FORMAT ] READ COS ▛<> NEW  AND  MOVE 7NOT QNOT ! CIRCLE [N]qkNOT IN /'z[F] CONTINUE ! NEW eLP▛ OPEN #▚© GO SUB  CLEAR INKEY$ CAT Py_ MOVE  LLIST CHR$  THEN <L▝ CLS  REM 3 INPUT OHa[N],▙ MERGE [H]PI VERIFY EXP G[R] DRAW  LET et8M▟IN WPEEK [K]▙ MOVE USR TAB ▘ SAVE YVAL  CLEAR ▟ CLS / ERASE NOT RPOINT [T]BATTR © BORDER  INK NSQR RNDgEXP NOT  CLS  RESTORE  OVER NOT POINT [G] LOAD COS [H] RETURN /ATTR STR$ VAL *'>=▛*INKEY$ RUN ▚ STEP RPEEK LEN 7▛[N]IN [T]&PI[B][M] GO TO #IN ▛ATTR ATTR b POKE ,' THEN  OPEN #TAN INKEY$▙ CLOSE #yINT ABS VIN PIEXP  FLASH  CLS  THEN  DIM  OUT [C]z/is SAVE  PAUSE [C]R[B] INPUT  LOAD A5m▞ NEXT  LOAD  AND T4 CAT [H]EXP >▛s4FN + DEF FN  INPUT Z PRINT B&& PAPER  CAT SQR [B]5 THEN  FORMAT )SIN ABS COS SCREEN$ ▚<=.{ CLOSE #QAT AO OUT COS  FOR  LINE  BEEP NOT 2[R]ASGN  GO SUB  LET =<=RND CLS ▘CODE  THEN  OUT  AND CHR$  LIST o▞© BEEP 7[J]9w~[L] TO S RESTORE  BORDER { POKE [T]& READ COS  CLS ATN  GO SUB R RESTORE ;▘ PRINT [M]e STOP ▗[I] OPEN #6 DEF FN RND GO SUB [J]9 OPEN # CLEAR my MOVE B[U] CLEAR  RUN  FOR  INVERSE  FLASH  THEN 2[S]VAL ▛ LLIST S RESTORE Ym[N][P] MOVE <= CLS _ OPEN # THEN CODE :SGN ▙▛IN  CLEAR + LINE #>LEN  IF VAL$ ▚+ OPEN #M1 OUT ldi9QY©g[F]INT PIVAL$ COS ABS  SAVE  THEN ▘[COS  FOR -t PRINT  STOP e OR [S]UX▝VAL$ 9yiq?[D][L] LINE [T]Au} TO ACS SQR M[H] PRINT m-% CLEAR srSCREEN$ BIN s SAVE <FN #ABS 7P▙▛ CLS ▞VAL  NEW %LEN [F]kJ SAVE Q CAT B BEEP +VAL P[S] LPRINT T  INPUT [Q]CPI[B]m9 THEN u})TAN ATN ▛D RETURN  NEXT  COPY  CAT C STOP  INVERSE [A]a DEF FN [F]06CODE COS ;▚ DATA w▜ASN ] &i[T]POINT ATTR uY▜>WATTR [A]P08 GO TO ▛<>IN  THEN  FLASH  READ  CLEAR ?,(COS  VERIFY ▚[A]t BRIGHT  LIST  ERASE 0 NEXT EXP VAL$ o[F]▜ OVER  INPUT CODE  CAT aPEEK ACS [L] CAT [D] RUN [ AND 9~ REM  LET V▛Y1ATN X INVERSE VAL PI[N][O][B]<= LET  TO /4OLEN  BORDER [L]G<= RUN 4*0F BEEP VUSR  INVERSE *VAL$  GO SUB ; REM  MERGE FN +[F][D][C] CONTINUE  CLS [O]? BEEP IN f COPY [D] CLS  IF ,MTAB ^[C]~ COPY  PRINT [S] POKE  COPY [D]▟[N] CLS  STOP  POKE CODE  STOP mZd©▛ OPEN # REM [Q] COPY  COPY [H]&t` TO EXP ASN h[O][O] IF  LOAD CODE 4 LINE t▘ OR u" BEEP [M]INT  CLEAR CODE #7▞ LIST Y[P]' MOVE ATN PEEK [I]S▛9 STOP  RANDOMIZE ' IF  FLASH fH-▘ MERGE > CAT  OUT  FLASH  BEEP IN IN +(u PAUSE  FOR %LN -; BEEP  READ ▜ LPRINT :FN [A]e<>O[T]RFSGN 'ASN ▖&[I]! NEXT  LET emNOT PI[R]▝[L]▜ IF  IF  READ [S] POKE STR$  LINE ▜ OUT  THEN  AND SIN  REM  LINE [F][S] FOR SATN ▜ LOAD  MERGE [L]<= PAPER  LET SQR SQR cPI OUT  OUT ABS ' FOR ASN SCREEN$  STOP kCODE ▟ PLOT   PAUSE [J]$ INK W[R]CSGN SQR  CLS  PLOT   STOP  DRAW  LINE STR$ [A]VAL$ [J]TAN ▘ SAVE  LOAD  BORDER  ERASE  TO ATN ,▙▞ RETURN  GO TO  SAVE "8SQR ^/[H]: MOVE  NEXT SIN .R[T]F▝ PLOT   LINE >26Z▟PI<LEN [D] OUT  DEF FN  OVER .LN  IF AT RND[C]@NOT  DIM  RESTORE  ERASE . DEF FN f[R] POKE J%[I] INVERSE  CAT  OPEN #COS ▟VAL  CLS ▝▚ BORDER  FOR  IF  OPEN # BRIGHT ACS ACS RNDWLEN  LIST L@ NEXT <= CLEAR >=paUEXP ▞6^RvZ~▛. CLS  INK  AND <rVAL$ >[H]▚8 ERASE  SAVE  RANDOMIZE uhV© PRINT  COPY  GO SUB ATN  AND ?IN ©[A]PI▖© LLIST / PAPER PISIN OATTR  CAT  POKE [L] BRIGHT <=BIN TAB  OUT [F]k RETURN { NEW [D] DEF FN GATN [P] COPY ▜ FLASH  LOAD " FORMAT yLN +[Q] CAT ▖ OUT  LIST  INK STR$ POINT  READ [B] OUT  RANDOMIZE  BEEP  LLIST STR$ <>GSIN x[K]M▘[ REM O ERASE SGN INT  LINE [S] AND STR$  PAUSE  THEN  PAPER  OPEN #CHR$ ABS SCREEN$ c[D]h CLS COS [L]=_ FOR @ OPEN #QSQR ![T]▛▝ NEXT [A] FLASH IN NOT  BRIGHT ATTR  CLS [D] INK  CLS ACS  READ  THEN  LIST COS  GO TO [L]>=ASN  FOR  LPRINT  OPEN # DRAW SQR [H][T][S]▛ STEP  NEXT >= FLASH  READ NOT [N]ATTR LN [D][S] CLS  TO  READ  PLOT   THEN [Q]COS INT [L][D] GO SUB  FOR  AND  OPEN # FORMAT SQR EXP [T]▘▛ GO TO  NEXT  PRINT  FLASH  OVER NOT PIATTR [A][C][B] CLS ACS  STOP G<=INKEY$LEN  RUN INKEY$▝ RETURN  CONTINUE  LOAD  RANDOMIZE ▜ACS SCREEN$ [Q] TO ATTR  OR NOT  DRAW  ERASE  THEN FN PI LLIST IN EXP PI PRINT [E] OPEN #<= FLASH [F][T]POINT O PAUSE  READ  LOAD  TO  BORDER [H]CODE TAB ▘ PLOT   READ  CIRCLE  FLASH [H] NEXT LN [K][J]PI FOR  LOAD INT  RUN BIN ACS AT [P]AT  BORDER [Q] COPY  BRIGHT CHR$ ATN CODE COS ▜[U]CODE  DRAW  STOP  VERIFY  OUT  OPEN # BORDER [P][M]▘ PRINT IN  NEXT [H]BIN MSIN CODE [K] PAPER  IF NOT ,6 RESTORE ▞lF DIM EXP .5 MERGE M LPRINT [E] MERGE SGN LEN S9 RETURN NOT  BEEP  ERASE INKEY$[B]@Y[G] INVERSE  CLOSE #ABS  DRAW  ERASE  INK SQR INKEY$▝▛HVAL  BRIGHT CHR$  LINE "INKEY$PEEK D PAPER NOT ! AND  NEW }SIN SCREEN$ [L] COPY nGD GO SUB  IF ▞SGN [C][Q] LPRINT  AND  SAVE  CLEAR JFN  DEF FN !PASN  AND + MOVE h CLOSE #INT POINT USR [O][M] PAUSE  BORDER [A] VERIFY I[U] REM SIN R[U] STEP a( OVER  OVER [E][C]8[TAB  CIRCLE  RETURN ▘$B>=y[C]ZTAB PI1<>Q TO  PAUSE SGN k▝[E] COPY " CIRCLE Z SAVE 0AT  PAUSE  INPUT *":LN Eq[G]z[C]>* LLIST  NEXT &SIN D FORMAT TAN  RANDOMIZE  BRIGHT  PAPER  CLS : OPEN #[U][O][G]QEXP  FOR _ LIST  ERASE  LLIST   PLOT  CODE I[R]i POKE [K]N[J]COS g CIRCLE PEEK ;. IF  CLOSE #ACS <>,▜[I]j▖TAB   RUN USR [K]▛ILN [P]GSIN l^[M]h DRAW CODE IN ▘▘ RUN VAL$  FLASH [G] BRIGHT [C]▞QV▜ RETURN  IF  THEN  MOVE PEEK SIN  BRIGHT F SAVE ph OR <=[S] MOVE SGN PI▞ DIM  RUN  SAVE  INVERSE  BRIGHT IN ▖ LLIST ▖ PLOT   SAVE  CIRCLE NOT t DIM ▜[N]z OR  INK "EXP AT ISGN TAN  RESTORE [I].0<><=}INKEY$[D]▙&[C]eP▗[O]INT g[C] LET [Q][B]▗ DIM  COPY LN B LET ^[C]6 STEP  BORDER  BORDER  BORDER TAN COS [K]▘▝g POKE  INPUT <=SIN ▗SQR ▙ CLEAR  OR | LIST  RESTORE NOT lH LOAD  CLOSE #IN  READ  STOP CHACS j[P][F]▜6POINT   BEEP  STOP  IF SCREEN$ ATN Mh RUN  PAPER INT  AND =Dl▛LEN n COPY 7 REM  IF TAN dEu/~NOT TAN H[J][L]ABS ?4D GO SUB  BRIGHT USR ▝TH BORDER  RANDOMIZE  OR [P][P] STOP &[D] MOVE  DATA ATN  DRAW ATN A PAPER  CLEAR  FOR  GO SUB  BORDER ATTR  FORMAT INKEY$ GO SUB k NEW  LET ©SGN SIN SGN 3 SAVE  RETURN STR$ [T]FN  OVER STR$ w<= DATA [K] OVER 3{[Q]▚ DRAW ©[B] BRIGHT O COPY  PAUSE [J]NOT >=PEEK  THEN WPI▗▖[G]ATN [O]e[M]9 POKE ▜i PAPER  NEW  BORDER 9SCREEN$  CIRCLE u IF k'Y LINE Zw)[K][T] OR  IF  IF  READ POINT PEEK ACS x CLS ▝ RUN  INPUT b OPEN #FPEEK bCOS VAL$ ;7 INK  DEF FN  AND a[L] DRAW ATN yO` PAPER  INK ▞q▚[S]M[C]H MOVE .h[B]VAL$ ATN ) LIST  AND DJ FLASH [S] DIM r REM BIN D OVER ' TO  RUN LEN -p[E] CAT AT [O][B] OUT * FLASH PI NEW  BORDER  LPRINT i VERIFY % POKE [K]▟PI GO TO ▛[G]▘ LET x FORMAT xb<=P[P] AND  MERGE )ATN TAN [K]EXP  DATA  LINE ._hACS iL[K] OUT 1 CLS  OR  VERIFY  GO TO SQR [G]ACS fNIN  DIM  PAUSE T STOP CZ<▜ THEN  LET  READ  LOAD  COPY SIN INKEY$0X▛[D] LLIST ▖ CLS  LET NOT G▝H COPY  ERASE  ERASE  CAT  CLEAR  FORMAT qCODE ATTR ▚▛? FOR  PAPER  ERASE u[P][U]SIN [M]K CAT  INPUT  ERASE  BEEP @[O][N]▞Q[L] CIRCLE  PLOT  z THEN  CONTINUE  AND FN  FORMAT ▚ASN STR$  COPY  CAT  ERASE -[P]▟[S]N[P] LINE  PAUSE  COPY [K]CHR$ pIN  REM SIN [F][I][M] RESTORE , STEP 6[C]▞▞W▜h REM  TO  MOVE [L]PEEK ATN  LET [K] BORDER LN  IF <= PRINT  AND IN <>[C] LOAD [J] STOP  NEW  LOAD  CLOSE #SIN "CODE  RANDOMIZE ▜ THEN  REM w RUN [R]INT CODE ATN  LLIST  THEN  NEXT  MOVE  LINE  LLIST c[L] OPEN #INKEY$NOT [L]h PLOT  ▘ THEN S AND  DEF FN ▛ VERIFY [G] STEP  FOR H PLOT   INPUT CODE [C]AT MABS  PAUSE  READ Q PLOT  h▞iCOS hN STEP ASN ! LLIST [I][K] REM ASN  NEXT )D STOP >=y▟[A][L]"[G]> READ  OUT  PAUSE ▝` CIRCLE  TO H VERIFY  READ  NEXT SIN  DRAW ▜BIN ` RETURN & IF P INPUT [O]zg[D]>▚ OPEN # FOR  POKE  NEW  CAT x THEN dATN INT  PAUSE  LPRINT  CLEAR >= DIM CHR$  CIRCLE ▞<>U  ERASE  DATA ▟ STOP a[O][H]VAL$  RUN  COPY  PAPER  MOVE ▜CODE SCREEN$  NEW ATN [P] PAPER  DIM ▖>=h NEW  FORMAT ▞ CLOSE #[D][K] RETURN  COPY AT  OUT IN  PAUSE SIN ▞[L] RETURN s@9[D] OUT ^ OPEN # TO [P][H]CHR$  LINE )[T] LOAD /IN IN [C]COS ATTR ▝ POKE  PAPER I CIRCLE ▙[P]ATN A LOAD {<=z IF  FLASH xINT [D] INPUT .AT  COPY  ERASE [K][B]SCREEN$ ]CHR$  LINE  VERIFY @ CLS IN INKEY$[T][L]8 PLOT   STEP  THEN  PAPER  OPEN #~[R]▞COS ; FLASH  READ  AND pEXP [I]ATTR 4 VERIFY  OUT ! BRIGHT  LOAD KTAB SCREEN$ ▘ASN  LOAD  RANDOMIZE TAN [O] MERGE  LET |mSGN ▘7USR  OPEN #▛ BEEP F OR ] DIM }[C]i[J]C▚STR$ [F] INK  FOR  AND  PAPER EXP SQR [G]# DIM  THEN  NEW SCREEN$ SCREEN$ ▖c[J]ATTR 4 ERASE  LOAD  RUN VAL$ neATN [H]} BEEP  STOP U GO SUB  BORDER [S]#WCOS ACS <> THEN  NEW  INK [L] PLOT   PAUSE S[Q]LEN L[J] CLS  NEXT  OPEN #PEEK  AND <> FLASH  PLOT  W[J] FOR  AND > DIM SQR [P]▝ RETURN $ NEXT  BRIGHT INT r[H]:MPI STOP [M] OPEN #N9▛INKEY$[J] PLOT  s THEN  PAPER  OPEN #~▜RNDLEN [T] COPY ▘ LET  NEXT  DEF FN ; NEXT ATTR $E CAT ( LLIST  READ SQR  GO TO ACS TAB 6 GO SUB  IF >= RETURN  THEN  FOR VAL COS  PAPER  PLOT  DPEEK & MOVE 1 DRAW SIN INKEY$E CLOSE # PAUSE [C]<=▞ LOAD  GO TO [T][S]POINT g7. LOAD  LLIST  VERIFY {o[L]ABS [U]& TO  RESTORE 0{ACS IN LEN (INKEY$[I] STEP  INVERSE  READ  OPEN #PEEK  BRIGHT  CAT  MOVE  PLOT  1 FLASH  ERASE  AND INT CODE LEN ▚8? FOR >= INK STR$ INT V[D]VAL RND NEXT USR  PAPER YNOT [A]SCREEN$  DIM [D][U] IF  OUT [T] LIST  IF [U]▛NOT ▘Y LIST  VERIFY d RUN [P]~IN PINT [L]#NOT  CLS W LLIST  RETURN 4gT6a RESTORE  MOVE PEEK  AND /SQR ▛▚EXP  LLIST  OUT CHR$ wATN SCREEN$ [O][K]ATN  IF  RETURN  DEF FN COS ACS CODE [H][C]$ LET [G] BORDER  LPRINT  CLS  ERASE  LIST  INVERSE [L][G]▛ FOR  SAVE  PLOT   MOVE  INK [G]COS R LLIST ▜IN  RETURN p VERIFY ▙ STEP [U][U]B[M]( NEXT [ FOR CHR$  CAT [G] INVERSE INKEY$COS [N] PRINT  INPUT  DRAW  BEEP PEEK pABS u[F]W▟ GO SUB  DATA  AND  OPEN # STOP  BORDER [Q]=[H] IF U BORDER  BEEP INT +LN E[A][H] INPUT  COPY  SAVE  PAPER  FORMAT )COS  INPUT <>USR  STEP INT SCREEN$ [B] DRAW ▖ PLOT   CONTINUE BIN  FLASH INT VAL VAL$ [K] READ ▛ INVERSE  VERIFY CHR$ POINT  LOAD  PRINT CHR$ [I]IN [I][M]▙▜[M][A]T VERIFY  CAT [S]COS [N] BORDER ? DEF FN  SAVE ASN )[N]▗ LIST  FOR [P] OPEN # FLASH EXP INKEY$ RANDOMIZE [O][P] PAUSE [B] COPY  MERGE CHR$ -CODE ▜[D] REM i LLIST  THEN  MOVE  VERIFY [Q]AT ATN SIN SQR  CONTINUE ▟ FORMAT  DRAW  CONTINUE d[S]G[D]USR  RETURN  LOAD  FLASH  LIST [Q] LINE © LET INKEY$ NEXT ▜F CAT  AND [A]▙SIN [D]. FLASH  FOR  NEXT  FLASH ;CODE j"[L]CODE m▖▘ZVV*_PI RETURN [D] LIST p!RRSIN VAL  TO ▘ LLIST  COPY  DIM  ERASE  FORMAT CODE EXP ▘0$[P] CONTINUE PEEK CHR$ x INK VAL [H] BRIGHT  PAUSE VAL [J]▘ CAT [Q]huBO/!6;jgtI^S8%qfkPM:7$/<AV[`})>3XEr©l0-ZWDyncRNDINT PEEK ▜[L] INVERSE y PAUSE  INVERSE IN ▜[P] INVERSE ) CLS <> PLOT   COPY SQR [D]VAL$  READ  NEXT V CLS  THEN 3PIASN INT [R]▜/ CAT  BORDER  PAUSE  ERASE IN ▜[P]©[D] DIM  DEF FN  READ  OPEN #c[L]ATTR ▚▞▛O OPEN # READ + OUT  OVER INT SQR [P]COS c▗▚ DRAW s,.Q:|fSN DATA [A]PEEK KS▜▛INT ~B(ZATN ▛[K]VAL AT _ NEXT  LPRINT  THEN  PLOT  (ydl FOR [P] VERIFY H SAVE S▜INT ©C([ATN  THEN [K]VAL AT  OUT  NEXT  LPRINT L>=▗ LIST >[S][E]LEN  TO n[L]SIN ACS  FLASH  RANDOMIZE S REM  OVER [S]3AT [T] SAVE  SGN  REM D[A]▛EXP SCREEN$ [O] INPUT s GO TO  READ -) INVERSE ACS IN ▘ FOR  MOVE  COPY WPI[P]NOT ▛ READ  CIRCLE ▜/%8POINT &▚ BORDER  RETURN W[H]SQR  OPEN #e[L]IN  LLIST [C]k LET  OVER  INPUT  OPEN #▗SQR  FOR [G]PI FOR [L] NEW 79^RNDSIN INT  NEXT AT SIN @[T][A]<=[P][K][J] COPY  PAPER [U]TAB s[G]4:VAL$ J DEF FN J|g[G]▚BIN [K]$ OVER | IF }k COPY IN ▘;L NEXT  CLS VAL$ ~s▘,SIN 4N▖tCHR$ lTBSQR b COPY  DIM  FOR IN dSQR [O]CODE  FOR INKEY$ COPY C▜ OPEN # OUT [N] BORDER [T][N][E] BORDER  FOR  COPY  THEN CHR$  MERGE IN [H]PEEK [D]O[P] PLOT   COPY SQR NOT [P][L]IN [T] RUN K COPY  OPEN #▙▚[D]= FLASH  FOR ▚ PLOT   THEN  CAT [L]= READ  COPY  DEF FN  GO SUB  OPEN #i FLASH PI[T]q FOR  RUN  LET ©SQR <= MOVE ▙SQR ACS  LIST  CLS p FLASH  INK POINT [T][L] THEN ▜[D]#SQR C FLASH  FOR [R]©▚ LOAD  NEXT <=<VAL [U]FN &[I]C NEXT [>=|[T]▜[H]SCREEN$ 3 FOR [XNOT  LINE PEEK COS ▟VAL$ N LOAD V{ MOVE  READ PI THEN ▝ PLOT  4 BORDER / DRAW m BEEP  OPEN # BORDER SQR [P][D]INT  THEN [O]NOT ▟+LEN ▜ATTR  LLIST  RETURN  PRINT g OPEN #©ATN ▙r GO TO  BORDER  DATA rCHR$ O DIM ",▚;SCREEN$ # FORMAT  RETURN  CLEAR q CONTINUE VAL$ 0▚ SAVE VAL$ d MOVE x[E]a[C]PEEK 7PI DIM  COPY  LINE CHR$ TAB [Q] DRAW WSIN INKEY$h<>© DRAW CHR$ &IN SCREEN$ [C]ATTR  LOAD  IF [S] CLS P^[G]7▞ LIST ▘[H] OVER  DEF FN [S]>VAL NOT  LET K ERASE %INKEY$COS SCREEN$ FN ▙[ TO PI INVERSE o DEF FN [C]ATTR PEEK w▜> IF G; STEP ] PLOT  ▜x+[R]L PAPER :STR$ V SAVE  GO TO  BEEP [I] IF  ERASE VAL  OVER  LOAD #[S][ATN [C] BEEP USR  IF NOT s; FOR [M]SCREEN$ ▛SCREEN$ e RANDOMIZE  REM  RUN <>D{C[H] THEN USR  LET 7 FLASH  DEF FN [T]TAN VAL$ _▘K LIST  NEW w CLOSE #INT #LN [O] POKE  LIST / FORMAT  READ INT  CAT [T][E] READ  LLIST ' FLASH [N]SATN Q CAT c  OPEN # OVER VAL$  COPY  CLS j▚ THEN  BRIGHT  AND $SQR [Q] CIRCLE ▙, NEXT  DATA  OVER 1 BRIGHT ▘T[K]W SAVE  DATA ▖ NEW dINT PI[I]USR  POKE  INPUT w[M]CHR$ [I]INKEY$ OVER C1[G] CIRCLE  OPEN #LN ATN  READ [L]+? COPY vAT BUSR  INPUT m DATA CHR$ [I]INKEY$SGN  IF p FORMAT NSQR CHR$  CLS  CAT  FLASH  BEEP  CLS PI[T]>= DEF FN AT [S]SQR [A]▚ BORDER f▛7yASN INKEY$k▛= GO TO  STOP W FORMAT  PLOT  SK[P]_[I] RETURN [ DRAW CHR$ oo TO LN [O] NEXT [M] STOP OD CIRCLE PEEK SSGN [S] RUN O NEXT GBIN SCREEN$ ATTR  COPY ▜s LIST  NEW / CLOSE #s'[L] RUN [M] RUN  GO SUB  REM {ATN SQR /SGN [C]S LPRINT  NEW _SQR  SAVE  NEW  BORDER ATTR ?BCODE  READ ATN  CLS IN C▜[L]_[D] RUN [USR !C FOR INKEY$G▛IN  LIST  STOP  FORMAT  AND TAN [K]3[I] RETURN © DRAW  ERASE K[Q]ACS  BEEP  FLASH ▚ PLOT  ▛ BRIGHT %TAB 8[S][H]▖ OUT 4[C]) CAT  AND CATTR [L]u▜ NEXT  CIRCLE [T] CLOSE # DEF FN © READ [U][O]? POKE  INPUT ©3BIN C DIM ATN a▚CODE NOT ^ OVER  OR NOT TAN VAL$ _ OPEN #▗ INPUT  CLEAR S<=>=INT POINT PI[I]# CONTINUE  OVER  VERIFY  MERGE [L]AT [D]▙ INVERSE [T] DATA K CLOSE #NOT [G]VAL$ [F]COS ▗ THEN '▗[U]INKEY$k# POKE  INPUT ?cBIN !©[J]D{ DRAW  PLOT  CHR$  OVER STR$ FN VAL$ [L][D]▝ FLASH  THEN  READ  MOVE  DEF FN SQR COS [R]▙[J][G]ASQR c7LN POINT PI_{ DRAW  LET  FOR  POKE  LINE <=PIFN  PAPER [K]<=BIN  LOAD  LIST /v[B]ACS TAN R▙{ THEN  PAPER ' AND ▜CODE [G][B]▛<<=BIN NOT SIN SCREEN$ RND[D][F] GO SUB  LINE  DATA  OPEN # FOR [U]ACS [Q][L][D] NEXT  CLS  VERIFY  ERASE  BEEP SQR POINT >=▘▖ RUN  LET [U] DEF FN  TO BIN LEN  OVER [O]R▜ CAT NOT [F]▙ IF  LLIST  REM  PAPER STR$  FORMAT  BEEP [T][O][A] DATA  CONTINUE  LINE ATN  DEF FN LN [R]FN ▙[P]SCREEN$ [H]VAL$  CAT [D]▞ OVER ATTR CODE ▙ THEN ATN  PLOT   STOP >= LINE  STEP [T] FOR  RUN [G]▗ IF  CLEAR  LOAD  CIRCLE  TO :[Q]INKEY$[C]▝[J][H] COPY  FORMAT  LINE >=CODE VAL$ CHR$  OVER  FOR INT  RESTORE PI OVER  LINE LN RND COPY  BORDER  COPY [E][O][B]CODE ▘ OUT ▚[R]▞▙[H] NEW  VERIFY  FORMAT LN >[T]AT [I][P] LPRINT  CONTINUE  INVERSE  FLASH TAB PEEK RND▛AT ▘[E] CONTINUE  STOP  PAPER  DEF FN  COPY SQR ▘▞▜ RETURN  COPY  TO POINT PI PRINT  REM COS <=M LINE  RUN ▛ ERASE STR$  FORMAT SIN EXP ▛[M]R PLOT   IF  LIST  OVER >= OUT SIN POINT [P] LOAD  READ [O]IN  FORMAT >=IN  LOAD  MOVE [S] FOR  CLEAR  REM ▜ MOVE USR  THEN EXP  FOR [ OPEN # BEEP PEEK  CLEAR INT ATN >ACS PEEK ATN  POKE [L] BORDER ▜IN  CLOSE #STR$ [T]USR  NEW [E]INT  BORDER [H]SGN  REM BIN RNDSCREEN$ [L]▙ SAVE CODE [H] DRAW  COPY  CLOSE #<=[N]IN [F]PI)CODE  RUN ▜FN  REM SCREEN$  DEF FN  LET LEN AT ~[Q] TO INT AT  COPY  NEXT ABS  PAPER  STEP  PLOT   LIST [G][O]▙ DATA  REM AT USR  ERASE [P][E] STOP  FLASH [N]▘ASN [U] THEN  ERASE PI[K] GO TO [F]TAN  ERASE  NEXT INT  PAPER  OR  BEEP  PAUSE  SAVE ▜ FLASH  BEEP  STOP  IF  REM [H][I]TAB [U]SCREEN$ CHR$  OUT  DEF FN  LPRINT  IF [P] PAPER  THEN  READ  RETURN ATTR  CAT  CIRCLE  INPUT  LPRINT  RUN SCREEN$ [C],[K]<= OUT  CLS [T]INKEY$ OUT  LINE [N] OVER  STOP PEEK SCREEN$ ATN [O] SAVE  LPRINT PIy LINE BIN SIN  THEN [J][M]<= CONTINUE BIN  LINE  INVERSE  CLEAR b RUN  LOAD  DATA  READ VAL USR  OPEN #ATN  LOAD Z STOP ▘ FOR  NEW  POKE [U][K] DEF FN PI FOR  PAPER  PLOT  [E] RETURN  INPUT LEN [M] STEP <=▜▘INT  BRIGHT  THEN IN  GO SUB N[A] OVER  DRAW  LET  OVER <> CAT ACS LN [H] MOVE  OUT PEEK  GO TO [T]b▙SQR  NEXT  STOP  CAT  RANDOMIZE [S] GO TO  OVER $ PAUSE [T]ACS NOT  LET  FOR  IF  BORDER  DATA [C][R]INKEY$TAN [U][C] OPEN #SIN EXP  FLASH [R]POINT w NEW RND[D] CAT SIN  LOAD 8 VERIFY  AND FN SQR INT  RUN dABS b> REM  STEP SIN SGN  COPY ▞▘ RUN ABS  LINE X[O]VAL [R]PI STEP  FLASH  INVERSE SIN  LINE  LLIST L PAUSE  CAT  LET [ CAT COS [K]▙ FLASH  THEN NOT BIN  REM ▗▚ PAUSE  CLS F IF INT ` RETURN ▘ IF CODE  RUN  MOVE  IF  COPY NOT 3[S]KUSR PI OVER  BRIGHT CHR$ VAL$  THEN ▚ ERASE [L] INPUT 4SIN BIN VAL ATN [D]_ LINE pSQR P IF PI~ATTR [S]▙▝[G]ASN PEEK [M] STOP  ERASE  DIM  LINE  BORDER ACS ATN [C]# CLOSE # OR  RESTORE INT = TO  LET  PLOT  PEEK [D]TAN ▛ STEP LEN ~ AND ZN[I] INPUT NOT [H]▚:<>:▜h READ AT vPEEK `[I]6PEEK  AND [U] OPEN #POINT ?[A]▗ CLEAR N{[K]iASN w? FOR NOT  PAPER 2SGN ▞INT r REM INKEY$ CLS /NOT  REM  DEF FN  OPEN #PEEK OABS  BORDER  FOR NOT <=▙J`k0:EXP , STOP  LET  LOAD POINT [R]CODE q CLS CODE TAB  PAUSE SIN LEN  TO  LIST ▙ BRIGHT POINT  RUN COS  LINE  GO SUB  OUT  POKE INT `LN ▛[O] VERIFY &IN [J] LOAD > COPY  NEXT  BRIGHT [D][U]▛IJ READ  PRINT  OUT NOT rrFT[U]CHR$  LIST  BORDER  FLASH  CAT NOT ATN ATTR [P][D]▜ CLS  LOAD  READ  BEEP  THEN IN COS PI[L] RUN  FOR  OUT  OPEN #<=SQR CODE [T][H]▛ COPY  NEXT  BORDER  FLASH  CAT NOT ATN ATTR [P][D]▜ CLS  LOAD  READ  BEEP  THEN IN COS PI[L] RUN  FOR  OUT  OPEN #<=SQR CODE [T][H]▛ COPY  NEXT  BORDER  FLASH  CAT NOT ATN ATTR [P][D]▜ CLS  LOAD  READ  BEEP  THEN IN COS PI[L] RUN  FOR  OUT  OPEN #<=SQR CODE [T][H]▛ COPY  NEXT  BORDER  FLASH  CAT NOT ATN ATTR [P][D]▜ CLS  LOAD  READ  BEEP  THEN IN COS PI 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 <>▞(▚▘▘#▝▝9[C]SCREEN$ USCREEN$ UPOINT Z[K]RND[G]SCREEN$ YSCREEN$ YRNDRND[K]U[K]▘SCREEN$ VSIN ZINKEY$iRNDVYUeYRNDj[F]jSCREEN$ iINKEY$fPOINT [K]POINT TdTFN TFN Q[S]UUUSCREEN$ UZRNDZ[F]SCREEN$ [F]SCREEN$ RND[G]iViUjO▗f[G]ieUSR SCREEN$ ▝[J]R▝ZC▘YRNDf[G][K]RNDh[Q]`/<< LIST  LIST  CLOSE #/UCODE _CODE WIN ©IN ©IN mINKEY$[F]SCREEN$ URNDyAN▘jUpUjINKEY$UFN ▘2▙_* RUN  INPUT  CLEAR  INPUT  CLEAR  RETURN ©IN }VAL$  TAB (ASN XFN P[R]B?BIN  COPY ▗SCREEN$ @CHR$ ▝U(^xH8▚▗*U RETURN ▘?▟ RETURN  POKE [R]#/xp8[D]%J[F]FN T[R]Y[T][[T]WPIW▜6 PLOT   AND STR$  DEF FN   GO TO  CLS u RETURN ATTR  MERGE  FOR  POKE LN [Q] PRINT h@[G]T|J[F]+WCODE ^[M]8xp LIST  LPRINT `USR USR >=▞A*/VAL PVAL CHR$ ▘P CLS Y*▚ FLASH <x LIST  LPRINT USR 3▛ POKE ▗SCREEN$ 8P▝ DRAW Q@▘ CONTINUE (m▝ FLASH @▖U*▝@MQ▝*/▝FN ▗CODE I[Q]?USR Zb[Q]P[Q]POINT  ERASE ▚ZPOINT VPOINT SCREEN$ [I]▚SCREEN$ U*DU:▘/©▝FN IUSR IN  COPY  LPRINT [K][F]TSCREEN$ "[A]hT`[U]hT▖T[I][U]▜SCREEN$ <> LPRINT  LPRINT  GO TO  CAT ▘SCREEN$ P@▝ COPY STR$ <▗UIN UjR REM ▜ZRNDYPOINT STR$ ▘[T]▝ MERGE  GO TO ▗ COPY  DRAW WIUSR ▘PQ▝USR ▝:▝[E]{▝#▝[S]C▛©CODE WFN  DRAW  COPY ATTR U DIM :▝FN !▘ SAVE @▝ SAVE @V▗[Q]<(>USCREEN$ ▘V▝ PRINT ▗▘ IF  CLEAR POINT ▝CHR$  READ ▛ REM  MERGE  REM U REM U IF  PRINT  IF  PRINT @▘ NEXT ?USR ▝* LPRINT POINT TPOINT x▝SCREEN$ COS ▖ COPY  PRINT  REM  COPY  RETURN  COPY #TAB ▗}CODE ]SCREEN$ NOT ▙ BRIGHT INT CODE  STOP hRND OVER SCREEN$ © PAPER ▘ BEEP CODE W▛ COPY uSCREEN$ ]VAL$ uATTR U COPY W@▝ DRAW USR ▝ DRAW pSCREEN$ T< LOAD ▗POINT YV&▖ COPY © COPY  CLS  COPY CODE  MERGE  CLS i▝STR$ <=▚SCREEN$  BEEP  FOR ©ATTR USR  COPY  COPY ATTR ▝?STR$ ▛/oW[Q]X[U]X9▜b▘A▘B▘ PAPER SCREEN$  LOAD  BEEP  COPY <= READ  SAVE CHR$ ▜ COPY  COPY CODE © COPY ©IN ▜ LIST ▝[P]0g▙@E*A[Q]PFN RNDZRNDBIN INT ]ATTR @▘USR ?<> COPY [S]▖( LIST 0< COPY 8( LLIST  DATA ej[F] POKE 9▝ LIST STR$ NOT ▗ LIST  RETURN  COPY  COPY ▙ CLEAR  SAVE  COPY /?©?b[A]FN eZ[U]Z[U] POKE FN XTSCREEN$ SCREEN$   RETURN USR 21@(▝ AND ▗ COPY  LIST T([E]▝ RETURN =t$▘▝ PRINT @▝ LIST STR$ ? TO  COPY INT [L]SCREEN$ T* MERGE  REM  RESTORE  REM  OR YINKEY$[K]e[G]i[F]USCREEN$  MERGE k)*0@▗@CHR$  STEP  COPY ?0▝T INK ▗*SCREEN$ ABS ▖RNDZPOINT USCREEN$ RNDSCREEN$ ( GO SUB  DEF FN  DRAW  LIST  LIST USR NOT  OPEN # COPY x▝[U]H[F][G]i[K]i/▘ MOVE  SAVE 1USR  LIST 8 GO TO  OPEN # COPY HCA[Q]XFN ZPOINT VSCREEN$ VPOINT UR▛ CONTINUE  CLEAR  COPY  COPY  COPY USR  LPRINT u: READ  COPY [C]▖BRRNDPRND▗ CLOSE #EXP ▝ COPY CHR$  DATA  COPY IN  CIRCLE ▝▜O▝ FORMAT PEEK ▘ MERGE  NEW  COPY 1 REM ▝©▖INKEY$▗@ LPRINT W NEW  COPY ▚G CLS  PRINT  RETURN  DRAW USR  RETURN ▖ DRAW SCREEN$  COPY ©INKEY$ IF  COPY IN _ LOAD />=' FORMAT  PAPER ▝F LPRINT ▜UEED DATA J▝ DIM @"▝CHR$ ▘ AND ▚>=▘VAL$ _ CIRCLE UPVAL$  OR USR ▝@8& VERIFY uINT  COPY  RETURN  RUN ▝ PRINT L)`[O][S]Q[S]Q"""x CIRCLE  COPY  RETURN  PRINT O[I]▛ CLEAR  RETURN  CLEAR  IF  POKE  SAVE  POKE  SAVE  POKE LN  ▘@< MERGE  NEW  REM ▜ COPY CODE  OUT  LOAD  OVER }▘_CODE  PAPER ▚▗1D▗  P TO ▚pVAL  LIST  LIST pVAL NOT  LIST ▘P[Q]SCREEN$  IF <▞LEN jIN kIN k▝o"▖CODE //Y^@▟/ RANDOMIZE rc LIST  PAUSE  PRINT  PLOT   NEXT  LLIST  SAVE  POKE  CLS  LIST ▝IN PS4 CONTINUE X@▗SCODE O BRIGHT ▘ COPY ©D▗V COPY CODE S CLEAR [B]WATTR WATTR W FOR  FORMAT  CONTINUE  CLOSE #[Q] CLOSE # CONTINUE  CLOSE # SAVE  POKE  IF  CLEAR [T]▝SCREEN$ Z▚ TO  NEXT  NEXT  CLEAR  DRAW 8▜FN  POKE  DRAW  DRAW SGN |PTUSR r▝ CLEAR % GO SUB H<=E▝*<©▞USR  COPY D/_=[K]IN ?/ RETURN U?©[F]h@'W[L]▝ COPY  RESTORE ▛? NEXT ©w RUN  NEXT  COPY  COPY  NEXT  GO TO ▝@ FOR (#h@NOT SIN SGN ▚ COPY T SAVE  DRAW  RETURN  CLEAR ▘IN IN &▘ CLOSE #FN  OPEN # COPY P@ POKE  IF  PRINT  CLS [R]Q[S]P[S]P[Q] COPY STR$ [G]U LOAD  OUT  FOR  OUT  STOP  MOVE  STOP  MOVE  LPRINT PFN (FN ] RETURN }STR$  COPY H▝SIN ▘*U CLOSE #_  DATA ▝MCHR$ ATTR ▗IN U8 IF ▘*@ACS HUSR  MOVE  VERIFY X@ LLIST  BRIGHT 2**@▝ STEP ▝RNDx@D▝USR ▖L GO SUB  STEP  GO SUB  STEP  LOAD E▗▝@i@AX▝P AND ▖R COPY  TO  TO <??USR  TO [A]CHR$ ACS STR$  COPY I▝QSIN ▘FN UY▛CODE  COPY ><< RANDOMIZE  NEXT 033 FORMAT  PLOT  [C]x@▝ COPY a@ INVERSE ▚ DRAW |<SGN  TO L COPY B▝▝U OR 9▝@@▗ NEXT CCOS STR$  NEXT P(v▘ STR$  COPY B@▘@ LPRINT y NEXT  NEXT  LIST @ DRAW  COPY U PLOT  8▝T COPY ▝V[USR yUSR ▝ COPY ▘ NEXT  NEXT USR s DRAW ▝ COPY SCHR$ ▘ COPY  COPY z▛ IF  COPY 3 NEXT NOT  NEXT  NEXT 3 CAT a5▘ COPY  COPY x@b▟ATTR  DRAW t DATA <> RETURN T1USR  PAPER ▝0xzBTFN TACS SCREEN$ SCREEN$ l▘▝ CLEAR b▚[Q]TTFN ▝FN USR  COPY "CHR$  COPY ▝W@D▚QSCREEN$ G+_ STOP TCHR$ ▞©IN _IN  BEEP ATTR _▚* COPY  COPY  DATA ▝SCREEN$ * RETURN  DRAW PEEK x PAUSE %l▝ SAVE  DATA c COPY %,USR  COPY ~▜ COPY  CLEAR ▛'/©<▝ COPY d▗+P%[U]x@ COPY © AND  COPY ▝_, STEP  COPY [IN R<>[A]O READ  OPEN # READ  LET CHR$ USR  LINE USR  TO  TO  CAT  CAT  COPY _ LPRINT  CONTINUE <> COPY [K] MERGE FN EIN }USR ▙ BEEP  FOR  NEXT  DIM POINT  MOVE [R]FN *▚QUSR ▝OL▟MCODE C[T]C[T]C6]SCREEN$  PRINT  SAVE Pf VERIFY © INPUT  GO SUB ▝( OVER ▘<fNOT ▘f< CLOSE #▝[Q] OVER ▜<ff~ff INVERSE NW FOR ▜ AND  INPUT  RETURN  RETURN  VERIFY  AND  AND © ERASE ' LINE y▝W RETURN ▜ DRAW ff|`` LIST  CAT ▜P LPRINT P LPRINT USR  LPRINT USR [M] PLOT  ▝% GO SUB ~ AND USR USR  OUT P LET ▜ RETURN bhxhb RETURN  OUT ▝PEEK ( INPUT ▘g~ LIST 0 LET ▘8lUSR  AND ▘l8 OUT ▝ PLOT  VAL$ +▚g~|lf NEW 1▗ NEW  PLOT   OVER  DEF FN y LINE  @CHR$ ▝ LIST USR `n``bf0LEN y STEP  GO TO VAL$ ▝ PLOT  PLEN ▘~ZSTR$ zCHR$ & DEF FN "▖<b``|>:1y<=▘(@@▘B LINE ▝ COPY  CONTINUE ▗E@©▝x©@▘ SAVE l▟▘l SAVE {) OVER )BVAL$ ▝ NEW QUSR zBIN  VERIFY ▘c CLOSE #▘~-▝ PAPER 1▝~/ FOR [C]A<=▗V[F]VSCREEN$ %hBIN ▝ AND  LOAD ▝ RETURN  LIST z LET k FOR ▜POINT [K]USCREEN$ UPOINT CHR$  CLEAR VAL$ ▖CHR$ ▚ NEW 2LEN {@BIN }▜USCREEN$ VPN INK ▝ LPRINT UgNOT f|@▜[K][F]NOT  FORMAT NOT zUSR BIN  CLEAR ▝W▚[F]i[F]SCREEN$ [F]SCREEN$ #▝'▗USCREEN$ *&▝PVCHR$ yUSR BIN [A]UCODE z CLEAR ©ATTR [F]ZRNDj[F] TO P▗POINT ZRNDZVAL (@{ OR ▙V LET  PAUSE  LET ▝DFN T▜tVAL pVAL t▖ RESTORE FN dZy▘*0 POKE  MOVE ▖',(,' VERIFY (TU)0s[N] !( !,RND>=▗USR  FORMAT p><▗▖ TO p)[O][C][O]▘ OVER q▜@__AG__USR @▘©©GL▘SCREEN$ Ut CONTINUE ▝[S]J DEF FN  RUN [E] POKE  RUN [I]▞ RANDOMIZE  SAVE  LLIST ▝ RANDOMIZE  RANDOMIZE 7{▝ CIRCLE ▞[P][P][I][J][P]USR ' TO ▚TPOINT VPOINT SCREEN$ Y▞▘RNDZ▘USCREEN$ :J FORMAT ▝ COPY ▘[J]@▝`7 TO ▞@[Q]TZUSCREEN$ T[S]_ NEW `@▜[P][J][O][J]f0USR USR ▝3=USCREEN$ +[E] LINE  DATA ▝INKEY$`@▝h@d8@[Q]`? PLOT  USR ▝STR$ [J]gx@ ERASE "<=U`lb AND  OUT ▝ LLIST  DEF FN xx!x>xBx/`g zUSR  STEP G▝H ▘ FORMAT Gp P<="8`X NEW ▝x IF  MOVE !h_ ▚▝Gx h ygg@PI MERGE ▝ c[R] OR p▖H>=9 VERIFY  CLOSE # W LINE Aa0MSTR$ Zd▝▝0 <=F▝((VAL ▝ BEEP t MERGE BIN Bx BIN BIN ▝ COPY  COPY  COPY  COPY  NEXT C NEXT  NEXT sss NEXT  COPY UUSCREEN$ U COPY  COPY  COPY  COPY SCREEN$  COPY  COPY USCREEN$ UUSCREEN$ USCREEN$ SCREEN$  COPY  COPY  IF  COPY 3 NEXT NOT  NEXT  NEXT 3 CAT  COPY UUSCREEN$ U COPY  COPY  COPY  COPY SCREEN$  NEXT  GO SUB s OUT ` INK " FLASH ` INK !)`[USR  GO SUB VAL  RANDOMIZE  LLIST  MOVE STR$ 1{[R]NOT [ GO SUB LN ` MOVE  INK  LLIST ; LET  INK  INK ) LLIST A0 NEXT CODE ) LLIST A) LLIST AINT 8_ RETURN   REM CODE  RETURN 0) RETURN  ( INK O; LET o{7[N]oz[M]g GO SUB VAL ` INK  OR  INK ; LET <([< STR$  AND 0( FOR = INK O INK ) LLIST A INK 8 CAT  INK CODE Z) LLIST A  RUN  RETURN 0< INK gINT ) LLIST A RETURN 0= LOAD ) LLIST A RETURN 0 VERIFY  LLIST ) LLIST A NEW  RETURN 8 MERGE ; LET  MOVE !SGN [ INK 1 NEXT <>MsPkzIN uIN  COPY  COPY ^|` NEXT  COPY  COPY ! DIM  RESTORE  THEN `ATN  GO SUB B LLIST (~ RETURN TAN ( RETURN ABS ( GO SUB FN  DIM  CLS <>+~+(O>+N RESTORE bkw GO SUB LN  LLIST +>=CHR$ {[G] COPY ?:u MERGE SQR  REM ]USCREEN$ SCREEN$ U INVERSE INT SCREEN$ uXATTR UU IF oW ERASE [O]SCREEN$  PRINT ]SCREEN$  CLS   COPY TAN _U"U MERGE SCREEN$ INT U PRINT ATTR TSCREEN$ T[Q] LIST  LIST  LOAD  RANDOMIZE   REM  PRINT W#W INVERSE VAL$ hSCREEN$ WATTR  COPY ©? FOR  REM  MERGE ? LPRINT CH_ INVERSE  AND IN T©ATTR  RUN _ CLS ;SIN  CLEAR  LOAD  CLEAR 9 RETURN  COPY  PRINT  COPY AFN  LIST ?!  CLEAR  PRINT  RETURN @SCREEN$ @ LIST  LIST WVAL$ W_viLEN IN SCREEN$  CLEAR PN9]CODE tCODE  FOR  NEXT [M] FLASH n, SAVE ? OUT ? SAVE  DRAW <_ DRAW [R]EXP  LOAD  LIST ©[R]= SAVE  MERGE  CLEAR PEEK ATTR  GO TO @UW OPEN # COPY  LPRINT ASN UPIN uATTR PEEK wu REM ATTR  REM _WPEEK VAL$  MERGE  INVERSE  BEEP ATTR INKEY$U STEP INT [K]u5INT kT BEEP POINT CODE  NEXT © NEW CODE M©[B][K] LOAD 7 COPY j COPY  BEEP  COPY CODE <>[ IF `▟k COPY  VERIFY  RETURN  GO TO  COPY  INK  RETURN COS  CLEAR f REM  STEP  CLEAR [K] CLS 7 VERIFY jAT  MERGE  INK SCREEN$ COS ]fSCREEN$ @%)5©[L] LOAD 5INKEY$ CLEAR S_ RANDOMIZE TAB t BEEP SCREEN$ oU5VAL$ [K]UM FOR INKEY$}SSCREEN$ EXP [F] MERGE  LINE VAL$ eWSIN  REM  INK UAT ATTR  PLOT  ] FOR . CLEAR [N] IF  LINE  RUN e RETURN SIN  RUN  INK  COPY AT  RETURN  VERIFY  COPY  FOR IN  LIST ▝[R] SAVE TSCREEN$ [Q]}U INPUT  IF WUSCREEN$  FOR ATN ATTR ATTR W[P] REM KU PRINT [P] INVERSE  RUN © COPY . COPY _` SAVE USR VAL ~UINT VAL  PLOT  sU}PEEK  BORDER ATTR  COPY ▚2q_ OUT * LOAD  OUT  DRAW +▝[Q] DRAW  PRINT ATTR ' MERGE  GO SUB [P] REM ABS t RUN © RUN + COPY IN  DRAW WFN  RETURN  LIST U FORMAT  LIST  REM  RUN p COPY  COPY INT  COPY  CLEAR B[M] COPY  IF d5_SCREEN$ 'P']PABS [R]{p MOVE oPEEK u]ATTR VAL$ _ PAPER GCOS [D]]' INPUT  LPRINT OP RETURN SCREEN$  LOAD } MOVE ▚_]SQR INT _AT (G]}cU'#▚Px COPY ▜!VAL$  RUN SCREEN$ VAL$ U CLEAR INT INT gVAL$ SCREEN$ ▝QG IF [T]CoU[O]SCREEN$  [L]eUk REM mUjVAL$ e CLEAR jINT e]n|@[C] PRINT j IF UVSQR  NEW ]VSCREEN$ INKEY$U PLOT  INT ACS uVVAL$ INKEY$_ V IF ACS SCREEN$ ACS oV[O]INKEY$SCREEN$ d PLOT  @USR [Q]PFN TINT ] IF H MERGE @CODE { PAUSE * STEP  MERGE >= THEN USR [Q]UVAL _INT _ NEXT SIN  RUN IN uAT SCREEN$ Q MERGE ATTR <=! CAT STR$ p▛([Q]'f[P]SCREEN$ ATTR wUv ERASE PEEK /PEEK U CLS  TO p SAVE ▙▙aI PRINT 7 NEXT  PRINT UINT CODE  FLASH oC?[Q][D]NOT [L][P]▛[B]PEEK INT WU MERGE b CLEAR  IF #T**Gw/@ INPUT D0 FOR aMFN *VG CONTINUE UVQCODE SCREEN$ ▛SCREEN$ /S[S][S] BEEP  MERGE IN IN M IF SQR © INVERSE  INPUT INT P▗▘ MOVE /PUSR ATN BIN OSCREEN$ (@ BRIGHT _FN > SAVE SQR p STOP :B@SCREEN$ [S] NEXT S?SCREEN$  COPY O* PRINT EPEEK ` LINE S SAVE M STOP .TSGN }INT  REM CODE  COPY  LIST <= READ  SAVE /BIN _VAL$ ©N?.~▙~.^ REM , DRAW  SAVE G READ  LPRINT USR xEnJ?EnH CIRCLE  FORMAT  CIRCLE ? POKE Pp LINE / DRAW 1COS  POKE  DRAW ps RETURN [P]TAN  IF -p COPY LN 8IN =>?> CLEAR CODE  COPY IN zSQR  COPY  COPY y3gs▜s CAT  COPY ATN  RANDOMIZE ▜ASN ATTR !9 NEXT  POKE  OPEN #_ INPUT  COPY  RESTORE @r@u DEF FN vUSR uUSR v DEF FN 0 COPY  PRINT © PLOT  +u©+ COPY ?USR <=?USR  LPRINT / ERASE STR$ _ NEXT " COPY 3?3ATTR mL:SCREEN$ H POKE ?< TO  TO <<}{' CLS 79< NEXT  NEXT 3 DRAW  LIST  PLOT  FN  COPY  POKE  COPY  SAVE  COPY  DRAW iSCREEN$ AT  CLOSE # LOAD xgc OUT C DRAW SIN <=IN [L] MOVE TAN [K][S]TD[T]/q5 CAT Ws TO  CAT q OR  LINE (ENOT  LPRINT SCREEN$ @*SCREEN$  OR U LIST SCREEN$  INVERSE SQR <CHR$  PAUSE  NEXT S▙]"QE▖8[D][S]UAT FN P[S]PW▘SIN p TO ?<=w..G. DEF FN ?p  LOAD ▖3(?< SAVE NOT w RETURN G COPY  INPUT  RETURN  RUN  DRAW  NEXT w RUN  FOR  INPUT uGUSCREEN$ QU▘SCREEN$  LET U(SCREEN$ 4U DRAW SCREEN$  CONTINUE  NEXT U GO TO SCREEN$ DU TO " COPY [P]PSCREEN$ [Q].▟PEEK '(/USR o:Ew" MOVE *oP SCREEN$ E|E [S][Q][I]▘o IF WAT COS  BEEP VAL$  Aw8 LOAD ESCREEN$ wSIN VAL$ L"| CLS USR oqSQR o<SIN SCREEN$ EU"SCREEN$ 5 ERASE PIVAL$ SCREEN$ }wWWVAL$ VAL$ ©]PPEEK [T]USCREEN$ 0PNOT 00USR UXINT  SCREEN$ ?P CAT [T]30NOT NOT 03USR  NEXT 33 NEXT u POKE INT  FOR USSCREEN$ [T]_CINT USCREEN$ t CONTINUE JP[Q]@ MERGE LN /F< TO ,X>?4<3 PAUSE 3 OR ?*=U PAUSE ▘ REM  OR u*SCREEN$  LIST  STEP  COPY *[H] PAUSE VAL$  OR oRND[B]o  DIM ;[P]G▘"A OPEN #▘ STOP @ OPEN #As▘[S]A▘▘▗@VAL CS▘SIN ▘v#INT VAL$ u<=NOT  LOAD 73qTAB  LIST  COPY  NEXT  INPUT ?t CLEAR  READ  IF O CLOSE #?[Q]=A: A OR  LINE p INPUT  INPUT  COPY  CAT " DRAW  INPUT ©7CODE  DEF FN  NEXT  DRAW A|VAL AT (SC[S][Q]ABS D COPY  COPY O COPY T CLEAR [T]' DRAW ?O▜]<[A] PAPER PFN  OR +8PU LINE  FOR  DRAW SCREEN$ ©5CODE  LINE N[B]_uuPEEK CODE  REM *T@[T] READ E LET ▛PEEK 5 PRINT SCREEN$  FOR wVAL  LOAD @[S](D[S]DBIN #SIN L_"LN @NOT pD SAVE "]AT  DRAW Ca[Q]IN 3SGN @ LIST  GO TO =w//SIN ATTR  MERGE  PRINT  ?* THEN @ 2@U▜  <_PIw<( LOAD U CLOSE # IF  DRAW © CAT  PAUSE 5FN T RETURN [T][Q]uT REM INT ]UINT USR © REM  FOR ?w CONTINUE  LOAD w REM (_USR 2 INPUT  PRINT ] FOR SCREEN$ U}FN SCREEN$  THEN  LINE OQPEEK  LPRINT _/ FOR FN  INVERSE <= CLS CODE D BEEP ( FOR  IF ;SQR Gw LOAD  w BRIGHT  DEF FN "0 OUT #SQR  MERGE  BEEP : IF } PAUSE C OPEN #[Q] CLOSE # SAVE 7[SCREEN$ AT  INVERSE  BRIGHT  CLOSE #▖ LOAD  RUN  INPUT >= BEEP JWCODE AT } FORMAT [S]<= OR o[O]Kw3 COPY  READ tO " OUT ><_SQR  LOAD _U[U] RETURN INT  RUN ©IN  IF  INVERSE  NEXT U CONTINUE G LIST  READ  DRAW O|PEEK < LOAD U POKE INT PEEK ©L IF ?T<COS MD;p4*0< LOAD U▙ IF 7©VAL$  PAUSE  MERGE ▘E[T] COPY Q LINE  COPY  INPUT .45[Q]ATTR wATTR 5 MERGE  REM  REM U0SCREEN$ SCREEN$ ]INT   LIST [T] RETURN ©PEEK A[Q]SE[T][T]A CLOSE #▘VAL$ sL[S]IN t|[Q]#DAT USR ] DEF FN INT =WSCREEN$  PRINT WSIN VAL$  BEEP [E][I]4W(7 LPRINT [A]P▘p▙<t_ INPUT Pw[Q]FN WNOT  CLOSE # DRAW )-D CAT ©©0(7©tINT FN  C READ  MERGE E GO TO .RG[Q]"P1D[U]P<NOT CHR$ <+ READ  RUN @IN 4▘ CLS  OUT SQR  RUN AT  PAUSE E READ 0M +sP<C] OUT INT 5]▙SCREEN$ s5" LINE tu LOAD *w5Q©CHR$ "<CHR$ h< COPY NOT  LET  DATA  COPY 0SQR  INVERSE ] CLS  CONTINUE ]C CONTINUE <STR$  DRAW © STOP  COPY T CLS IN  INVERSE  CLEAR SCREEN$ [R]/COS a MOVE  READ BIN -CODE  LOAD W© LLIST INT  LLIST W<CUSR (?B▘©pATTR  PAUSE IQ RUN ATN  THEN  PRINT  FOR  PRINT H[Q]PFN S PRINT ▙@EXP  PAUSE POINT  PAUSE s RUN SBIN  PLOT   PAUSE FN A NEXT  READ  TO  INVERSE 6NOT BIN © LIST <= LOAD ATTR  RUN [N]USR  MOVE CODE  COPY  RUN  SAVE  LOAD NOT ? INVERSE  OUT  READ [P] BRIGHT ? DRAW !? STEP  CAT  BORDER  CAT  LIST [P] RETURN  COPY  LOAD STR$  BEEP SGN  COPY [F] COPY <>COS 3 RETURN  GO SUB  OVER 9u COPY  THEN l[U]X PRINT .[I][E] COPY >= MERGE Q REM POINT _ FOR ` REM  RUN ▙©SCREEN$ | MERGE GSCREEN$ [T] MERGE W REM CODE  CLEAR © CLOSE #<>>=c& MERGE 3Uw%2[H]'?e PAPER  COPY oWSCREEN$  BEEP _UVAL$ FN Q STOP ▜ COPY  LIST ©IN  NEXT [U]RATTR  COPY $O]SCREEN$ INT U TO [M] POKE  COPY  STEP ?SQR SA_ READ ATTR  COPY PEEK  IF ?[A]pFN ?: IF U} STOP SCREEN$  RANDOMIZE U OVER IN E* LOAD  CIRCLE  STOP  INPUT [P][S] FORMAT $WT INPUT POINT ;RNDPI[T][D]]/INT ©T COPY ,POINT  COPY S OUT PIIN K COPY [H] COPY / SAVE O[A]K COPY TAB C ERASE W[C]/ COPY PI▛ COPY [H7z) BEEP R'%F COPY INKEY$;?T OUT SCREEN$ ©U?/SCREEN$ [P]S(o CLEAR  COPY  REM  COPY  RANDOMIZE  COPY  PAUSE  COPY ASN  COPY b COPY E COPY  LINE  COPY [F] CLS * RETURN K MOVE [B] PAUSE SCREEN$  RESTORE  OR  MERGE NSCREEN$  PRINT eVAL$ ' RESTORE 2 STR$  LET  COPY  PAPER  COPY  GO SUB a_[F]RNDU ERASE Ar159= CLS [F] CLEAR O$E%! INK ] CAT #G)_ LIST  VERIFY  OR _ LOAD  REM LN  DRAW _ CLEAR } LIST ©w PRINT _>= RUN / DRAW  COPY W©STR$  SAVE a©_ LPRINT  RETURN USR  BEEP  COPY Qe_ REM USR  LPRINT <= OR _ RETURN /|_ATTR [L]u7INT oT OUT POINT IN ▘▘_ COPY M COPY [L] MERGE ob▛USR IN COS Y CLEAR ATTR [A][R] PLOT   COPY  MERGE ▝_ COPY COS  COPY f RETURN  STOP NOT _ PLOT  j GO TO $ DIM _%)-[E]15 CLS © RANDOMIZE IN t OUT U STOP 7VAL$ [L]ATTR /_ GO TO p[F]_ CLS _ RETURN  LINE   COPY e COPY SIN MQU CLS ][M] COPY  TO ? COPY  COPY  SAVE  BRIGHT w_.?[G] CLEAR _ BEEP 'LN  IF ©_ LIST * LIST  RETURN  BORDER STR$ ]3SQR  DRAW _.[O]'x COPY _' LET EXP _ LIST w_[P]<? READ NOT PI[P] LIST ~ OUT ? RETURN  CAT  OUT  SAVE  LPRINT o OUT  COPY ▛}NOT  DRAW ? RETURN  AND  OUT  RUN . LOAD STR$ ▚ OUT :$V<@C DRAW @n OUT  MERGE  INVERSE SQR  IF  INVERSE $uINT VAL$ } OUT  LOAD 3 CLS  COPY W RUN  INPUT INT o PRINT PEEK  INPUT © INVERSE VAL$  COPY USR IN  RETURN  LOAD _ COPY PEEK SQR © RUN  IF  RETURN ]7PEEK © PRINT ATTR ATTR }/ REM @YW IF  INPUT  RUN  RUN PEEK IN W INVERSE  RETURN | FOR t▝%=CODE  PRINT  LOAD  RUN W CIRCLE ? LOAD  FOR  PRINT |ATTR |@IN  LIST PEEK  BEEP CODE © RETURN  INVERSE COS  LIST  DATA tS OVER ©M BORDER AT  ERASE f CAT  INK >=8 COPY 2N_[P] "_ CAT _[D] MERGE F LOAD  PRINT SIN  RETURN  RUN _ IF _w CLS  RETURN  RUN C CLS © OUT SQR @ REM  COPY wIN  INPUT IN CODE INKEY$}[J]p STEP SQR IN [U][A] IF  CLEAR  RUN !IN  LOAD  GO TO  RUN  INK  LOAD IN  INPUT  CAT  ERASE IN n GO TO  OUT  INK  IF COS LBIN  OUT IN n-R>= COPY  NEW  CLEAR IN ABS t OUT  RETURN oMIN [L]©M LOAD  NEW ▖IN [N] MERGE  DEF FN PEEK gWSIN  IF $ INK  OUT  GO TO  CLS  PLOT  }IN >=COS  LINE  RUN g COPY  GO TO  SAVE BIN  RETURN IN >= CLOSE # LOAD  LPRINT }© LOAD  CLS W[U]XS OUT [P] POKE FywPIUIN m/[Q] LIST ~©SQR  SAVE  CLS  BEEP }IN ▜ FOR $ DRAW IN zAT ' RUN >= DRAW  DRAW  COPY ATTR  LIST  CLEAR © REM ? LLIST INT ABS [M]AT _d CLEAR  PRINT VAL$  IF  COPY 2  COPY  MERGE  IF  RETURN w CLEAR  COPY CODE ©Wu_ RETURN MSCREEN$ t'2uUCODE  REM }]SQR  CLS  COPY UIN  CLS  RUN W CLS  REM _}SQR  IF  CLEAR U LINE 8 INPUT  LIST = +jW©]CODE DSCREEN$ _ RUN  CLS PEEK © RUN VAL$ PI[O] +PEEK u INVERSE ]o INPUT muoVAL$ o CLEAR oIN m REM o}k▘ RETURN o PRINT nPEEK o RUN n REM n IF WSIN }VPEEK INKEY$W PLOT  IN !+ACS } VERIFY  VERIFY  CLS ACS [A]CODE [P] NEW AT ww RUN  RETURN  STOP  POKE W©D READ  LPRINT 2[P] THEN [P]VAL$ @| TO  INPUT  INPUT w COPY . RETURN <=© SAVE  INVERSE LN SQR ▙<[P] OPEN #p▙" MOVE G[P]0>? RUN / INPUT © POKE  COPY  STOP w DRAW FN p PAUSE  THEN OpW/[M][P]O[P][H]© CAT  RETURN K[P] THEN c©/ LOAD  RUN ▙ LOAD TS RUN ▘ RETURN  NEXT  COPY ( COPY 4w[A]FN SD©w [B]w+'CODE  INPUT  COPY VAL © LIST  RETURN USR  RUN  GO TO p LPRINT ▛VAL$ [P]0ATTR o OR w">[P]]▖SCREEN$ Y BEEP VAL$ ?u GO SUB :[T]/qFN <T THEN [P]▛ RETURN  IF ©SGN /[P]LN [S] BRIGHT [P]LN <Uw PAUSE [P]© INK ( RETURN 4 COPY  DRAW  INPUT s©o LOAD <{ DEF FN q©COS  LOAD GNOT  RETURN 7w LOAD  RETURN U}VAL$  REM }?©PEEK VAL$  RUN ?@ CLEAR CODE p RETURN [T]uINT  .[P]W CIRCLE  INVERSE . READ USR U[P]w[P]_S INPUT  READ ▛_NOT SQR wINT [P]<=?.=_ PAUSE  LOAD <= COPY [H][P]:<u PAUSE PEEK <= MERGE /VAL$ ]u[D] INVERSE wINT INT  OUT P OUT  PRINT uPEEK SCREEN$ A▘# OPEN #▘ READ  OPEN #s▘[T]▘COS SU PRINT [E] BEEP  INVERSE INT  IF w COPY  RETURN  INPUT ] OUT  MERGE  FOR INT ] CLEAR >=[P]w_ MERGE VAL$  RETURN } PRINT  CLS AT ©P IF  READ }D GO TO .s_ STOP *P RESTORE  COPY NOT ~ RUN 8|gjCOS  OUT ) FOR (.R[E] COPY _! RUN USQR  LOAD 7 PRINT INT s7< LPRINT w CLS .<7▙▛x? GO TO < BEEP STR$  OR  FOR IN  OUT  OUT @:© RETURN  IF  OUT  CLOSE #VAL$  CLOSE #? THEN ▜rLN <= CLEAR ©cB!PEEK CODE ]CHR$ SQR  LPRINT  DRAW ?CHR$ {© PLOT  SQR ▞* OUT © LOAD 6 LOAD ▘` COPY PEEK  RUN  RUN { INPUT &<= IF  LOAD [K]1_STR$ p CIRCLE iUuCODE  FOR ] FOR  LOAD ©uATTR  FOR } INVERSE  CLS  FOR  BEEP TAB  COPY  CLEAR  POKE *_ IF [U]1PI NEXT CODE W CLEAR  INPUT  STEP  LOAD w]SCREEN$ ATTR _.U_ RETURN  CLS  MERGE  INVERSE PEEK PEEK  INVERSE  RUN [R]V LOAD  REM PI RETURN _ PRINT  REM rZIN M_ NEW  LET M LINE SCREEN$ T"[S]IN  LINE  FOR  LLIST M CONTINUE *© COPY  RETURN u© RETURN  INPUT w CLS  INPUT  INPUT  CLOSE #E[T]INT  PAUSE  BEEP  INVERSE [Q] LET IN  OUT  INPUT [Q]uPEEK pIN  RETURN [U]{[ BEEP sSCREEN$  REM ▛@ NEXT ATTR IN  DRAW SQR p LIST ;@ LINE 7@ RETURN  RETURN w{ COPY FN ?QAT VAL$  PRINT OIN  DEF FN sPATTR M? STOP >TwFN Cw FOR  INPUT  RUN _Ww SAVE  FOR wu NEXT /t©PEEK $B RETURN  COPY INT  RUN  CLS  READ ?© COPY  CLS  LOAD ! COPY :b BEEP 88@w DRAW !N"USR FN <> INVERSE !b CLOSE #CODE  PRINT 2{ THEN  CLS  INVERSE q COPY  LET <  INPUT <>>D!;[L]NOT [L]s#r# FOR  FOR =  PLOT  <>0102030405060708G0915r[T] RETURN [M]",0[Q]).%TAB `"'(' A RETURN ''%.,ACS  "*LEN [K]%3#$.VAL 4(WW##[A])*&Y-/9&&DmNqLN {"v▖-,&<*AT IK+L!$ <=+y$ [▖VAL  CAT "--TAN b▞[K]-bIN -[C][C] BRIGHT CODE [P]USR " FLASH ACS =1#vS VERIFY [F]:h PAPER IA,%Z INPUT  PAUSE LW=AV( CONTINUE %C INVERSE H>==#K[L]+,hTAN .'[B]1*d4 PAPER -AT ▝"▛ASN Faa*!▘!▝COS r▞H4`/POINT > INPUT .6[G] OVER  RESTORE i▟USR  FLASH / OVER -.,E.z&![Q]; READ +STR$ K LIST  FOR [F]E r+.{/($BIN <&b▝&STR$  FOR  MOVE TAB .B( BRIGHT 'F&+=(P{[D]/*$$;[R]%a}ATN H=/A[J]=6@#[L]{f~LN ▚"[C] OR x 0 FOR )[M]#0[M]0)▚ FLASH  DEF FN ABS NOT ▚ LIST  LOAD  THEN h LIST r VERIFY ( RUN (A-©( MOVE |0TAN # LINE  FOR LN /  RANDOMIZE &+(>=ATTR *" RESTORE  RUN  OR >[S] LOAD # PAUSE P NEW COS [P]'[K] LINE TAN  OR PEEK ▚▞ FLASH #!EXP  LLIST |n5 BORDER r[F]PEEK PEEK ATTR { PAUSE  LOAD /[K]" INK [H]8Q▚ ERASE 00*2O[D] DRAW [B] NEW [T][F] STOP [F]x LIST ;J REM ! [H]QcE SAVE ) LIST . OUT  OUT q MOVE - DEF FN  MERGE BIN <> MOVE CODE # SAVE  RUN CODE +",.Y00.~)~]WIR[F] LET  LPRINT I LIST ?P+& LOAD '~[R] AND  DEF FN  STOP [H]©▟^ GO SUB [R] BORDER M  FLASH [T]aK OR [O][T]@=[P]▞a STOP q8 COPY ▛ RESTORE ▘ CLS @ CONTINUE JINKEY$[F]g}<>[A][K]zpX|}pX[G]fTAB ASN  GO TO  FORMAT  ) VERIFY Zc©)4 INPUT }AT |7POINT [C]~S[F] RETURN ,S,~ MERGE  CAT 7Kr PRINT ATN ▘ES▗G IF 7VAL [T]IN  DRAW 7ABS PEEK A LIST X BEEP  PLOT   FLASH }a GO TO  INVERSE  CAT 7S[T]©E%aD© OUT  PLOT  PI7 CLOSE # PAUSE  GO SUB e~KSCREEN$ C RETURN Xza▘ PLOT  <=E OR ▝) CIRCLE o▜▛[J]ATN  CLEAR a[P] GO SUB <ABS  DIM [ CLEAR  DIM ASN z RANDOMIZE % RETURN  CLS ATN PIELN 7 RESTORE ? GO SUB E PLOT  ▝ CLS EACODE  CLS ▛/> RANDOMIZE PIN▝ CLS  PRINT am RANDOMIZE CODE  OUT  LPRINT ~oINKEY$ESIN ?%USR ©[J] DATA = LINE ESCREEN$ ! DRAW [R]{VAL 7"%o▝` STEP  LLIST PI STEP  GO TO [E][B] STEP  CAT ATTR > STEP *ATTR  STEP ▚>)FN Q(h CLOSE #98,▚C: THEN PIUSR >*~>+D@t STEP F▚ STEP XACS ▖▜ STEP :pATTR 8▖ STEP C▞ STEP [A] STEP m STEP TAB ▛ STEP "[A] STEP [O]SQR AT  STEP  GO SUB DCHR$ S▟ STEP [S]▖p INK ;▙ STEP H{ STEP MATTR :s INPUT 2 INVERSE !j CLEAR !I▘ STEP  OPEN #[C] ERASE ACS ▗: POKE  CLOSE #PI(?C=2NOT  RESTORE  GO TO  a(<>>,1▛ LLIST <> LINE <>CODE 2 GO SUB 2Z BEEP @D2/^`[A]2o▟285p>2bd BEEP !$B;NOT CHR$ " OR <=S>2-[A]>0 [A]! CLS : DEF FN  RETURN  PAPER  CIRCLE INKEY$ RETURN " PAPER INT INKEY$NOT PI>Z29E? EK GO SUB  STEP STR$ NOT >2 DEF FN  POKE >2 DEF FN $! STOP 4<>wY F MERGE o FLASH G OUT ACS EPEEK mIh FLASH H:7!PI ▞ BEEP :3PIUSR 2m BEEP %$/:(AVAL$ :o BEEP ▞ FORMAT p<FN _!VAL ▚> BEEP ▚ IF [M]▚0ABS  FORMAT  RUN : RUN  THEN /'(<>]n?/ :▜PI/[A]>=▗NOT  AND ▜[B] GO TO LEN D RETURN  CIRCLE pA▖p STEP .: MOVE "[P]@W<> STEP g▚NOT {▚ CLEAR ^TAN >=0[H] FORMAT : ERASE ▟PI C< GO SUB [s BEEP  CLOSE #:Z BEEP PI RETURN _ OUT I8n NEXT  PAPER 35j5#+[D]PI PAUSE l[M]_ CLEAR ATN 5HINKEY$5o'@COS <78 RETURN P[O]8 RETURN Z8?!u BEEP PEEK  SAVE Pp~CCG:/ BEEP LN (`0]_x[D][A] RETURN 0?g.` STEP  RANDOMIZE [T]"` DATA > BEEP @)N_X"001@b8 PRINT $!q BEEP Q=[G]▚zO!@<>[T]|MH▘STR$ nwDdD>=0 AND  PAUSE 1▖>©▗= RANDOMIZE  LPRINT PI(:▟▖fwj)hkNOT PI , OUT !| CIRCLE "COS ▖ STEP q▖G![B]VAL -D MERGE [H]*▝Nk*1 STEP POINT [T] RESTORE  BRIGHT 'lAVAL = MOVE CODE 2>=PI PAUSE SCREEN$ [S]o FOR  SAVE $ GO SUB R:Y|/g<>DKIyUSR ▖/O*D`} LINE o THEN % THEN B CLS B(. COPY }! BRIGHT  CIRCLE PEEK 8#CHR$   RANDOMIZE >[D]_CODE PI IF ▞ DATA SGN 9>0[D]'>=[O] PAUSE v;- IF >`k{[C]&[R] SAVE >=: POKE  RETURN  ERASE  TO : POKE  OUT [H] STEP ( STEP ^{▚ STEP  ERASE  RUN [E][E]▞ OR PEEK J(!4=[O][J]0EQz:IG:[R]LN 8[A][G][P]Gd[A]_!^;)CODE # RANDOMIZE #▚NYy VERIFY  RETURN O>0 BEEP [G]8[N]O{EXP P RETURN 8! COPY "CHR$ FN !EZPEEK >~--▗[C]-R[U][G]:q BEEP  VERIFY !O) DIM xu▗q LLIST  DATA  RETURN ([B]0BIN p4@ DRAW #<Z COPY #<Z COPY t MOVE [N]_/ < CLS h CLS  GO SUB [f@ BEEP {▚ GO SUB D BEEP _ GO SUB R FOR {▝▘ PLOT  [L]@` RESTORE TAN  LLIST 8#LEN  FOR }▛"?h RANDOMIZE Z?<=? GO TO |?PI@ OUT .@K▘B OVER  CLS gBpB:.:` CIRCLE [I]!@ STEP  LLIST  THEN 0!▛ STEP USR TAB HC ABANDONO DEL RALLYE@U<AT ▛ POKE  !s{~ NEW © OR  RESTORE '= PRINT  BEEP " GO SUB LEN  LLIST STR$   THEN ~ :<INT USR !#xLEN   OVER 5K//z7ABS / IF CHR$ ea [SC4ZIFIkcPPOR SRSE TAN |T}MO{ STEP g@ OR CHR$  RANDOMIZE ( FOR ]STR$  STEP CHR$ 3CHR$ NOT NOT STR$ ~(! STEP 6<> INVERSE  RESTORE  CLEAR  RESTORE : GO SUB _ THEN #[I]Y BRIGHT  RESTORE  INVERSE  LLIST  CLEAR USR  % OR *E▘ INVERSE ^h PLOT  "C▘*G@A▘P[D] CLEAR w CLEAR # INVERSE HSTR$  PAPER  CLEAR  LLIST /gi/ <+( DRAW SGN  CIRCLE ?+▟;v!!!USR  STEP a'PIv THEN ?▜▖▝ OR 2[A]<>/Z@ ▟ NEW >=.g▛TNOT CHR$  CONTINUE [N].^BIN  READ p  FORMAT  OPEN #R)L;v LINE w  BRIGHT [T]w[B]o[N]51  GO SUB STR$ ▞,> IF #@iR-▟<>▝tUSR !.▚ COPY "BIN FN  GO SUB  GO SUB Dg# PAPER h LOAD F[L]<▗) FORMAT  PAUSE >=;▟_> COPY [D]<OTAN  LPRINT ABS NOT  VERIFY  READ RsUSR g©:o▟ OUT ▟)L OUT  CIRCLE NOT g RANDOMIZE  GO TO k2 CIRCLE B"(# SAVE " OPEN #[B]b▙[I][H]o>=BIN [M]SIN !n BORDER [E] DEF FN R (1Y" BORDER ##CODE SQR ++[R]([T] BEEP 2%!x INVERSE /[Q] CIRCLE vATTR  DIM ^0-  LIST 0:< NEW ▘IN USR  STEP  RESTORE SCREEN$  LLIST  CONTINUE [A]ASN  ▙MOTzBLOQpxUELN ▝▙ INUNDh[I]AGUA@:[A]R DEF FN  RUN 5 GO SUB SQR A RETURN #8[J] LINE  CLS ▙!>G*6 GO SUB  RESTORE  CLEAR  LLIST  CLEAR ~ ERASE n:-IN (& RUN P0Q INVERSE 8 GO SUB ▖Q BRIGHT USR G RETURN 8 CLEAR ▖!E GO SUB ?9 GO SUB  STEP KJ GO SUB NOT s>(USR F RETURN  CIRCLE [A] PAUSE VAL ▙>PRND_ RETURN   STEP [R] GO TO = RETURN   STEP T CLEAR n CLEAR f  INPUT o& INVERSE # STEP [L]STR$ SIN $ REM POINT =PI@ GO TO M[ RESTORE  LLIST "[P]<>! STOP 1^ BEEP NOT AT 8P CLOSE #8[P] CIRCLE [P]>=><>:6 SAVE ▟ CAT ▗ GO SUB D AND _:x GO TO TAN >2w IF "© AND !<2]4▟( FLASH ` FORMAT _ THEN ;>[D]_, PAUSE k:r BEEP [D]2q5o▟ RETURN  CIRCLE  CLOSE #@ CIRCLE  VERIFY  FORMAT EXP ; RETURN < FORMAT  BORDER N[F])▚+SIN  MERGE  STEP [T]NOT TAN ▙:▘Ke2u8 STEP >[B]* GO SUB t[F]( GO SUB K@[A][A][A]SQR 8 GO SUB C%*#FN i##=)[A]=▛p!'()} NEW  RETURN o: GO TO  COPY  INPUT ASN o"0NOT  PRINT 27[B].[C])8!y▘:-[A]PEEK (!04▘)^5[L]PIdUSR aR▘| NEW () LPRINT ▟ FOR *X▘ RESTORE  FOR RNDb$<[A] MERGE <l<!0#B4=5>K>0 NEXT ATN >T> INPUT #>/>@ *"Da*G"FaINT  STEP )[K]NOT GATTR *4[U]5#▖[A]"ATN [A]*6 OR COS EXP [A][P][L]Z BEEP  AND  RETURN `▟TSTR$ ~0GQ RETURN 0BA{2 INVERSE !& DATA ▝O~22 DATA @:X O! GO SUB Q▘@ THEN ' STOP  GO TO  FOR  MERGE  STEP [Q]USR  MOVE  FOR ~ NEW  RETURN _#V GO SUB SH GO SUB  GO SUB ["Kr[I]▞"E[I]USR  RESTORE G▘.,NOT JATTR F AND ASN ZMMDFd[B]^< FORMAT c# RESTORE NOT >=]▗ LLIST  NEXT :~<> CLEAR  COPY  RETURN "©,/ DRAW SQR  FOR [M]<>^UVAL  STEP ▘<=2 BEEP  STEP iINKEY$ CLEAR  RESTORE  STEP I[C] CLEAR  LLIST ! LIST "V▘"Z▘![A]"XY"/)[S][A]!FN %![D]RND! ATN [E]-DATTR w^ CLEAR V[C]>=T▘D$R▜40u"9[L]()[K] STEP G[D]h+ATTR %b/ LINE Bk/> COPY [ ERASE * FORMAT ,M3n CLEAR [U]*f" REM nD"l<>TAN  OR INKEY$nPEEK f~ VERIFY 2▗[C]#CODE 2STR$ [C]2NOT [C] RESTORE N!*INT  FOR ! INK  RESTORE R: GO SUB KySTR$ w: LLIST  LLIST <> AND @!2>"!LN  FOR *[M][S]7 FOR  LLIST INT  GO SUB [A] POKE [Q] FOR LSTR$  INPUT  LLIST #[T]:Pt{6 NEXT  GO SUB VAL <> CLEAR ~N[A] LINE ▜ INK  ERASE  FOR P<N RESTORE  THEN |([T]y= INVERSE u3 LLIST  FORMAT #NIN s FORMAT  INVERSE J RUN  GO TO ;'R RUN  FLASH < STOP 6 LINE vF<> CLS [R] DIM A▘CODE  THEN xUSR y THEN  CLEAR 0 THEN  THEN  PLOT  #C▘ THEN 8 THEN .g!© BRIGHT 0[S] CLS <>>;2<=CHR$ 2 OR ECHR$  STEP qCHR$ >2[E]:=N▝(1 RETURN ( CLOSE #[R]! GO SUB [D] INK ! CLEAR "*ATTR  CLS [Q]STR$  LET  AND @)![E] FOR 7pG [B] POKE 4[C] @[D][E][F]T FORMAT [G]▟▙[A]A` LOAD [H] INVERSE  LPRINT ! BORDER [G]CODE 2XINKEY$[G] OR  INVERSE  THEN ^BIN  READ [F]fBIN LEN L[G] INVERSE ~PI LINE k[E]VBIN [O]N[Q]NBIN y[F] STEP  BRIGHT  COPY  SAVE 0 SAVE STR$ [C]0NJATTR  CLS  INVERSE  LLIST STR$ @'CHR$ 0 LLIST :RND[G]VAL$ BPI  ERASE  FLASH [E]▞?:[O]PI?©<[O]FN [E][O] SAVE ▛)[A]-CONDUCCITEMERARIA@<>l~ INVERSE PEEK 8 INVERSE 64[A]^ VERIFY [G]Q[S]~ INVERSE wB COPY  BRIGHT VAL$  NEW m-[F](~ INPUT w[B]B FOR Q:2ASN USR  GO SUB D STEP M PLOT   GO TO  RESTORE ` CLEAR F  LLIST ++ LLIST ## INVERSE [B]utyn!^ INVERSE V CLS 0"1G-▚ AND ~[y<>* BORDER [G]▘SCREEN$  VERIFY " CLEAR [G]* DIM @*([A] COPY [G]: LET ▝[G]▝_:[H]▙COS 2H$I▘^G!t2.btXJY} NEW D LIST onn MERGE {FN K LLIST 0.4tNOT .d[Q]LEN ACS  .POINT X( FORMAT  DEF FN 1 PRINT  CIRCLE VAL$ COS INKEY$[G] c! SAVE  INVERSE 6[L]6 INVERSE 5 LIST  ERASE <>CHR$ [P] LLIST PI[G] POKE  CLS  LLIST  LIST USR PEEK  DATA j+B[I]PI CIRCLE w(6s1*>P>[I] PAUSE ^>}.SQR |BIN  FORMAT *@[I] READ  FOR ={<>U:0[U]RND,Do RETURN  FORMAT STR$ S SAVE . CLS  COPY  e LOAD TAB k$[R]▞e[T] LIST 8 GO TO y DIM  IF  COPY  POKE  COPY (©|<1 INK J/,? FORMAT  BORDER 2>=>W OVER ?1 IF s STEP %" INK L>=©mSGN  RESTORE ++EXP [M]A RUN ▟ FLASH A$COS  ,:5[L] STEP C[I]▜[EXP (':6 GO SUB [Q]0(:7COS :8)1 RESTORE B[I]▝ RND*ATN [A]GJ">NEXP [A]K@QSTR$  GO SUB  NEW ©!N[I]q GO SUB LEN <>#$%'AC[U]▘[G]▘▖▘z▘l▘^▘ SAVE ▘ REM ▘ BRIGHT ▘ DEF FN ▘USR ▘SIN ▘L>0"[Q][C]▗vhZ POKE  NEW  CIRCLE  LINE SGN VAL$ H▗:▗,▗▗▗▗[M]▗▙▗▗r▗d▗V▗IX1=ENTRARXcCORD?hD3.LASu)eES▖D4=M7U PRINPAL  COPY @P P[U]LN [T]`UJOYSTBK KE[LMPTAB  CLS Ip^K$d6jI{Ic▜DEw▙ INVERSE N.wSIN  COPY @[H]B[G]EL PLOT  ▖M F DEF FN [H]IZQUIDM:CH THEN M# INVERSE ▗ VERIFY  MA RANDOMIZE ▗HTAB US LOAD SQR Qr REM P FORMAT e!++"'[S]J[G][U]▚SIN d6[U] GO SUB [.' REM e2[U]T[A]FN  FOR VSIN ABS LEN T▛4KC+@vC0[U]s{  REM 9[L]/FN >=▘5[L] THEN  RETURN  GO SUB  INK [Q](W[T]h! RESTORE [K]GS[L] STEP NOT [K] LLIST # RETURN  IF USR USR N TO CODE 2#[S]2x%[S]O THEN VAL$ !!;[L]PI FOR  PAUSE [S]u REM (u9© RESTORE T▛)y RETURN  DATA au. RETURN [U]Vu:><>>=u▜QuLN Qu▛ PAPER sRNDBIN  RESTORE NOT [L] FLASH [L] NEXT [L][M]#[M];[M]S[M]k[M][M][L][M]COS [M] THEN [M] READ [M] CLS [M][N]+[N]C[N][[N]s[N]▛[N][T][N]SQR [N] OPEN #[N] FOR [N][O][O]3[O]K[O]c[O]{[O][D][O]ATTR [O]NOT [O] FLASH [O] NEXT [O][P]#[P];[P]S[P]k[P][P][L][P]COS [P] THEN [P] READ [P] CLS [P][Q]+[Q]C[Q][[Q]s[Q]▛[Q][T][Q]SQR [Q] OPEN #▝[Q][R][R]3[R]K[R]c[R]{[R][D][R]ATTR [R]NOT [R] FLASH [R] NEXT [R]▗[S]DE?@DAB[H]EDLEN 9:;D PRINT [A]34▗ATN y J#▞"#$# !▝X▚/%▚JRABS &N1DJExOP▖▘(X&C▖ RANDOMIZE [A]""-D<<nB▚<▙[B] STEP -E=-6=!l CAT |E_D DRAW ![L](>=;;mjjIN ]ilE{!" VAL$ <>qujrnElstl[L]$▝ CLEAR 'f7[R]I&AT [R]kkqtrH[K]A567IHI LET  THEN [A]? LOAD ▜▗ LET NOT mrok5$:|e!Jl STEP =X!t[H]!![I].▛kb[R] INK lK[[SQR /n BEEP Ey[F]A LIST 7?CC#@sAzzB)m ERASE B<=U CIRCLE STR$ ` RESTORE [G][L]J>J)E CLS }uSG@SF'qrcust THEN  LINE  VERIFY kvRmur`▗Yt$(`lE ERASE 8V BRIGHT ]©V OR e#USR [L] SAVE E/J^d VERIFY .V[T]>="V J? DATA > '`[C]Z' MOVE [T]zEXP  INVERSE _ATN  DIM {D!N. INPUT  PAPER SEh[T]H[J]).SCREEN$  ERASE ▚LEN  DIM J?. FLASH /▗' LPRINT  FLASH  FOR ,ABS ▗.1yDASN h[E] BORDER Qz0:;73)[S]*0- BORDER ABS M+,@J[S] kD1LEN  INPUT [K]'E[S]lSTR$ /NOT _[R]2TAN R CLEAR hMiMhiR,1S LOAD [K]▛▞[B]VlELEN ▛D BORDER ETVv,HI3[I]dVU▖;/▛ INK  NEXT ▗ PLOT   BEEP [U]tE▙▗YZ[[ COPY [R]yATN tJ]$g]GGRa/f>je COPY [D]VAL$ <e[A] PLOT  gBIN  OPEN #^^SIN  INK _tPI▖IN xBIN IN ▜CIN `e`g PAPER qdc~<=▚b? COPY nw5_▙ STEP E_/Wg©Z^f|COS I@qrovEDst@ DRAW wju▘uslmoDml▝ SAVE wqqur" INK stnkmrX@ Avltl[R]NJ LOAD W RESTORE NP▗ LET PIN NEXT [T]CODE 8qIN 'H[B][Q] INK ▛!"xI)QRsD/e(?S&▚▝[D]E [D]56{bQU MERGE ' VERIFY  STOP U9[C] CLOSE #(.▛vx.J)| MOVE [F] FOR |KtQSXVAL$ [K]S(TAB  AND kEt6INKEY$ THEN ({|[G]]EEFT%oWQS. RUN > OR SGINT p RESTORE E LOAD Mo BEEP Q LET ▚M`DM INVERSE CSR POKE tz[C]X_[w}~ LOAD ▗tU INVERSE fTAB  OPEN #1w? REM  RETURN ▚ FOR  DEF FN &A FOR [Q] NEXT EXP [T]/OINT [P] RANDOMIZE ] CIRCLE <> MERGE  FOR x)8 THEN 08 NEXT  MOVE >[Q]W COPY 8`8[U]<>oCODE ▜8 LIST 8 DIM C* POKE <> MERGE c FOR >0 GO SUB j GO SUB B0 LET  MOVE CHR$ 0 THEN [J]▝? PLOT  [E]G2}q RETURN  LOAD  ERASE  CLS BEXP *:ATN ▞VPOINT UZZh#VAL  GO SUB  BRIGHT  LOAD  DIM [P]%!ULINKEY$&▞A[C]FN  DEF FN U[J]STR$ <>E LINE ATN  FORMAT 2 LLIST I CIRCLE ;m RETURN  BORDER #[D] DIM q[/]^_{ `![L][T] FLASH ▛qLEN a-SIN CODE }"#$%m RANDOMIZE #$-.#▗'/0123B.sDD4'=8;<9:=>▘R[Q]99=={67 BORDER }!(S LLIST % INPUT 45H/pO[A]?AB@C<=FIIZTAN GIHI[O]Abbcc▗Jhissjklh!krrsppo!▘smmqns THEN &$EXP ![C]▛k{KLMNVAL @[I]QR▖ST[Q]UVQV[L]eY(OKPLQCOS ▝MRWXYZ)[F] CAT ?(INKEY$ CONTINUE  STOP @ PLOT   READ 6 STEP ORNDETAB 4C45 CLS 5 CLS  OUT  CLS I5K▘[P] RUN @ READ 45: BEEP  THEN '_!▙INKEY$~#N![I]INKEY$ STEP ▚INKEY$y!fSCREEN$ INKEY$W RANDOMIZE <>:fgde SAVE 5INKEY$:INKEY$GINKEY$IINKEY$QINKEY$UINKEY$_INKEY$aINKEY$fINKEY$?INKEY$DINKEY$HINKEY$JINKEY$OINKEY$TINKEY$YINKEY$b▘^PI FORMAT ATN  RUN  STEP  NEW INKEY$ STEP CRPI> GO TO TAB d^($!!m CONTINUE r LPRINT  STEP _>=a(pUSR ABS u AND <=PEEK 00(HOs0N0y[E]0FN 0>=s@ CAT `▖eHz GO TO ehh#w▟HH! CONTINUE FN [Q]TAB VAL$  TO T[Q]T~w# TO  NEXT <>CBA@D!"@$#> RETURN  GO SUB G GO SUB ^ CLS [A]}[~PI  FORMAT +! DEF FN POINT " THEN FN ![U] READ SCREEN$  STEP  STOP [B]<> STEP ▛{NOT s{ STEP @FN  STEP ▙ USR  DEF FN  DATA [G] TO ![E]?[I] STOP  TO 51 +p THEN  OR  STEP ACS ▛STR$ RNOT [N]RTAB [D]PEEK [P]B CLEAR  LLIST <>B@? PAUSE ▝  STOP w[C] PLOT   RETURN 0G RETURN  COPY >=6~# INVERSE "E+>8>( LOAD /!X  OR ]T+ GO SUB VAL ?#` LOAD SN, OPEN #d INVERSE !oPEEK  CLEAR ! GO SUB IN  CLEAR ^ CLEAR V STEP ▚FN  FOR  RESTORE  LLIST ` <[ CLEAR + TAB  BRIGHT  FORMAT XX CLOSE #6 COPY SIN  PAUSE  NEXT  "▖![F]PEEK USR <>]^_`abcdefghijknopqrstuvwxyz{|@i COPY  RETURN FN :IN FN PICHR$  DEF FN POINT  STEP  LLIST B(SCREEN$ <> CLS >`POINT N# PRINT  STEP [A]POINT  LET =  PLOT  ! INPUT INT "RNDINT [K]CODE 2[Q]POINT 2[R] SAVE [S]POINT o CLOSE #S LINE IN !H& STEP OPOINT PI(=#[J] PRINT PI MERGE  RESTORE ~#fo@SCREEN$ $ STEP ?POINT TPI INVERSE `LEN INKEY$>7ACS  OR  CLEAR STR$  RESTORE ![T]POINT ACS w LLIST O>9 THEN ▝GVAL$ > CLS  STEP 8*/4X> COPY x=#N[B]~. NEW O LET <x AND USR # MOVE  MERGE  FOR s#r LLIST  MOVE [C] OR  OR / CLEAR  COPY  GO SUB ySTR$ yIN  PAUSE ^[R]IN  ERASE NOT P[A] CLS TAN  LOAD ?ABS EXP EXP  STEP  BORDER POINT SGN  PAUSE NOT  FORMAT FN  GO TO SGN  STEP SCREEN$  LLIST <><=( CONTINUE '#x VERIFY  OR CODE @  THEN   OPEN # RETURN  RETURN 6 INPUT   LOAD +▝ LPRINT h COPY ▜[T]%"SCREEN$ +SCREEN$ ▚@SQR 1SCREEN$  RESTORE "4SCREEN$  CIRCLE W RETURN  COPY  4STR$  MOVE  LLIST | NEW <> OR  FORMAT  GO TO #~ MERGE  GO SUB [5+#v MOVE  FLASH 0 RETURN  >(>2ATTR SCREEN$ 2SIN C RESTORE !VAL [J]SGN N CLEAR  THEN 'A2TAB SCREEN$ <2TAN SCREEN$  ▗.%& INPUT @[K] FOR  LINE }yrlf`[VQLHD@=9630-+(&$" [Q]W DIM <>NOT [U]POINT  STEP ATTR = OR x= STEP *ATTR TAN STR$ ( PAUSE  PRINT OVAL FN ySTR$ >= PAUSE  FOR ▞!!ATTR  GO SUB x PLOT   LPRINT w# THEN 8 PLOT   FLASH / CAT o<>[Q] AND :/o THEN =#&, NEW  PLOT  F2BATTR  THEN faRATTR NOT n^AT NOT  OUT TAB  CONTINUE j3#VAL @WATTR *8 OPEN #ATTR :Ha2▙ATTR 2 GO SUB ATTR !©PEEK "PATTR <>OVAL$ } NEW 2+AT  THEN < THEN  IF  FOR >LN [S])VAL  RANDOMIZE  FOR A,POINT 2:AT "QVAL$ USR  DRAW  CLEAR !UVAL$  FOR  INVERSE & MERGE @u.G<p OVER  CLEAR u CLEAR t! INVERSE -n CLEAR #` LLIST  DEF FN b INVERSE %  AND @CODE DC STOP J@+VAL$  NEXT ,f>▛ REM &=  NEXT  BEEP @9 READ . GO SUB B4 MERGE  DIM u[M][J]l#▘ DRAW ▞G OR "SVAL$ :POINT [U]|AT >=( GO SUB o+ CLS $  PRINT  LOAD  COPY N#F#"cTAB Dx2[K]TAB 2fTAB [Q][T] FOR .AT TAB  INVERSE Aa!" RANDOMIZE AT  STOP ![J]TAB (_LEN [S]TAB >"[H]FN / LINE TAB ▜2LN TAB  INVERSE !P+VAL$ 5 GO SUB [OVAL$ , PAUSE SQR AT $USR }PI>==▝ FORMAT |PI+ INVERSE PEEK 8a CIRCLE 8<> INVERSE [G] CIRCLE <gy[E]Lg:6o▝=0]8[B] GO SUB D<>O}2DTAB |2FTAB (5[T, THEN E=WTAB WW BEEP ▖WT}gTYFN YBYWx[C]BKW:-VAL$ g=E@R[A]RG.R▞▝SIN  AND TAB y2[B]TAB bsTAB K!/ GO SUB gVAL$ Z!dNOT ▝▗iyPI-gZ=  IF P[J] FLASH © DIM  DIM  GO SUB +KSVAL$ [L]A LPRINT ASN  LLIST  OR :NOT [J]TAB  PRINT ` GO SUB VAL  FOR NOT PEEK >hQ LLIST ASN  FOR ZCODE mINKEY$g0 INVERSE  RESTORE  LLIST  CLEAR AT  CLEAR ACS )w CLEAR r NEXT  FOR STR$ CHR$ [C]TAB <>*Z>SQR *gPATTR [E]# INVERSE V] OUT J NEXT F&w =CHR$  CONTINUE K© DATA Q<= RETURN  AND 9INT >=[P]SGN  <= LIST N RETURN h DIM Q NEXT [S] INKEY$33& FLASH g!I[S]Q NEXT YINKEY$ COS 3INKEY$Y3sATN j CIRCLE {QINKEY$YF$▙M&TAB  NEW / INK zIN [▙ INK  NEW 3 RESTORE ng3j BRIGHT FHS[H][T]▗g[C]M▙ RETURN ]VAL ~ CLS  PRINT IN :[S]© LOAD  BEEP  LOAD IN  INK ©< COPY ASN  COPY `PI FLASH  READ  FORMAT  CAT Z CONTINUE IN sUSR >=▟[L] NEXT COS [S] BORDER  NEW # RETURN L BORDER  NEXT  PLOT  SIN INKEY$ZOINKEY$7INKEY$M>COS  NEXT L<=&G NEXT [S];_ CAT D[S] FLASH  NEXT ▙J FLASH  CLS /▙3& CAT >=[T][L][S]~[SIN ▙©&[[L]PI[T] CAT  CAT 3gUSR P CAT ▛CODE ACS SIN ▗G BORDER Q CAT EXP $b NEXT  CAT  OUT  SAVE [D][P] RETURN  CAT [R]PI9 POKE  OPEN # BORDER (> CAT  SAVE ; DRAW ABS [N]%P COPY  LOAD  DEF FN [O]NmdCODE ?@5 DATA IN Q NEXT  LIST *1COS _SIN @ LPRINT gUSR @qz NEW  { AND  _8z VERIFY W REM ! RETURN 6 CLEAR ,  CLS $!COS  STEP HN&* IF !5VAL$ 7VAL$ ATTR  AND 6#6 +▝[I]INT 2[O]VAL$ 2[Q]>CODE 2@ OVER  LPRINT ~VAL 2DLEN 2 PEEK USR ^SIN 2`SIN sABS VFN ] CAT t FORMAT  SAVE POINT SGN @[dj CLEAR ©> GO SUB y STEP USR 7NOT [H] TO  PRINT  OR  MERGE  RESTORE  INK  CLS ?0 OUT 9[P]!LN !M SAVE 0LEN  LLIST  MOVE STR$  LET "3NOT  AND FN ▞r[Q] CAT ▜ BORDER k DEF FN  RANDOMIZE FPOINT  RETURN ©BIN @ COPY 6z FOR qC OUT ▝<>[N]USR P TO  LOAD : THEN @?2~# RETURN ( DIM  RETURN @>= RETURN  [U] >@ STEP /USR  GO TO z INVERSE  RESTORE  VERIFY 0o&)SCREEN$  FORMAT s FOR oPEEK :[O]USR +IN ;2_USR  CLEAR . DEF FN 7 PLOT  w CLEAR -  DRAW < REM %|/SCREEN$  NEW  PLOT  Pg:[P]USR PI(w*2,}b8.$| RETURN LN 8e" INVERSE  LLIST  CLEAR  LLIST  LLIST <>[Q]G: GO TO  COPY G SAVE FN  NEW >= INPUT + DRAW /[R] FOR N THEN ! DRAW LUEG FOR ▖xLG0< PRINT  MERGE ▘h+ PRINT 2 FLASH EXP 2 OUT A~W,s+@ DIM  MOVE  LET  FOR   CIRCLE <>Q BRIGHT  NEXT CHR$ G STEP @[ASN ▛+jLN E:/STR$ _:d BEEP pb BEEP SQR 88{ AND bxG{[A]G BEEP '2( LPRINT 1 LIST G>2VSTR$ >@[CHR$ X2YSTR$ !gUSR [A]?D  @[R]SGN STR$  GO SUB [T*[T]S GO SUB 0?.n RESTORE  CAT  REM SIN  LLIST  DIM  FOR  INVERSE # STEP [F]D3$NOT 3' STEP FN STR$ SIN i CONTINUE d1@USR >0 INVERSE w<>]TPILN  GO SUB B8< PLOT  kb:gD<>[E]0@ LLIST + MOVE USR :2CHR$ PEEK bPEEK  NEW  FOR < RETURN <x  VERIFY NOT  TO _NOT NOT [P]▛NOT NOT - IF  INK STR$ CHR$ STR$ m'CHR$ !STR$ [Q] BEEP [P]STR$ n BORDER (g!z LLIST o PAPER `CHR$  VERIFY  INVERSE  PAUSE 3' LIST  PLOT   CLS  CLOSE # OUT  MERGE  CIRCLE i-[Q][T]! CIRCLE LN +CHR$ 5USR m:<=CHR$ <2RND8/CODE -[H]: OR ! RETURN /$8▖k FORMAT K[L]STR$ *-[Q]i OPEN #! CAT [* POKE  CLOSE ## LET [P]"k LET [E]VAL n:Dp:K GO SUB 2 INPUT NOT :E LIST CD9 LOAD ? LET NOT ;M THEN > COPY 2 GO TO NOT "a PLOT  NOT 2 PRINT  POKE  NEXT  PAUSE NOT >[Q]2 GO SUB `BIN >= OR INT + STEP  RUN NOT >SQR  DATA w THEN $ STEP  STEP ?! RETURN TAN 0b![S]ACS ▗!A ?<9(VAL$  INVERSE [L]~ INPUT  NEW  RANDOMIZE  CAT w< FLASH ©HTAB /EI▙ PAPER '[H]u: NOT 2<> RETURN Z0>2u BEEP : TO 2 ERASE : TO 2 ERASE :?> TO %@4&TNOT [T]:[B]▝vNOT !2PI(#AT [[T]~7CHR$ SIN 4ATN  VERIFY  OVER <>[Q]Z IF ' % REM !PEEK  LIST  FOR 83 LPRINT  FOR x=CODE ▙ABIN RX<< STEP &BIN CHR$ # PAPER <>, PAPER ▚#w_ RESTORE ▛-C-w LLIST DATN H?@& OVER q[A]VAL A! DEF FN BIN  INVERSE [P]5{[I] BORDER {PI[P]▝AT @ GO SUB  FOR 9k$IN  CLEAR CODE _)▖PI GO TO  OUT ( PAUSE z OR BIN FN NOT << R E P AUSR C I O N >>CODE DIRE>=0( TRANSMISCODE [T]BIN +S&RUEDASEMPO@: MERGE 2%  OR  INVERSE !ABS  OR  MERGE !> OR ^▚w BRIGHT p:1▛PI>=: 2<> CLEAR  RESTORE !>= STEP  AND  FOR  SAVE  LPRINT  MERGE  OR  MERGE !  MERGE CODE 2 LLIST <= CLEAR 6PI( CLEAR + INVERSE + POKE * OUT <=q  OUT :,XoOg[F]|8 RESTORE % CLEAR BIN " BRIGHT CQ F RESTORE  OR o GO SUB D AND  STEP 7<= MOVE STR$  LLIST +@[B] INPUT  STEP  RESTORE SCREEN$  FORMAT  FORMAT  STEP <><> STEP  AND ! COPY <=x STEP ,▜4ATTR  STOP  CLOSE #t POKE  CLOSE # LOAD  RANDOMIZE  LPRINT <=/▖ INVERSE R CLEAR  DATA ! READ 1NOT 1INT  ERASE '. INK 0NOT _PI RUN pY GO TO  FOR u! REM ▙#V POKE  CIRCLE  LET 3+`*.[U]▛ OR < BEEP  INVERSE u[U]ATN  LIST :J OPEN #56 LIST [D] DRAW @"?<:v PAUSE  FLASH  RANDOMIZE  FOR 2P"[H]1( OVER ,/ FORMAT  MERGE L[R]~▝ STEP ` LINE  AND  LIST NOT  RESTORE SCREEN$  PRINT  AND 12:>= LET  PRINT GPI>P(% AND  DRAW 282w}▞!$WY>==  IF ~29>=#<>= GO SUB VAL  LLIST ~ RESTORE )&on>=>[R]X INVERSE 6:Q OUT _QmT!7>=?9l MERGE [D] OVER lG RANDOMIZE j!P>=T GO SUB 6 wSSSQR )S+SBIN >= FORMAT  READ VAL$ 2 CAT ©] BORDER [L]PIQ@9 CLOSE #SI PAUSE USR  REM @ LET [D] SAVE ?( OUT p TO Y5 LPRINT [I]C[K]?~0@ COPY  READ .PEEK  LET  NEXT < DEF FN @[P] CAT A▙<m@MUNDI:@PG1 SAINZ- COPY :*Y.5 FORMAT 02:25:48@G CLEAR ATN =A▖CERMSSL=BI[Q]©STgKANK▖KXEPIIROwEXP  {( BEEP VI5 LIST 3 FOR AU?OL=O INVERSE GCC▛ISIN STR$ TVAL TO=[U]MIR)A=GEHIfDORFER[C]ATN BY=FDCH}Em LINE )S DEF FN rv<>h. BRIGHT &:H[C]G THEN 'G: DEF FN  y_ THEN #!▛<=CHR$  RANDOMIZE : DEF FN PI(  RETURN _8> FOR !Q GO SUB ▚VAL ~ FOR  RESTORE  STEP <>[T]@ABS  RANDOMIZE [T] MOVE  INVERSE ! PLOT  ^ CLOSE # OR  RESTORE !3 DATA X'N GO SUB _ NEW ▝O LLIST  RESTORE ' IF  PAUSE % MERGE  CAT  COPY 3J[K] THEN =y MOVE <>-8)USR  CAT w; CONTINUE CODE 2 BEEP 2' THEN [E]h[Q]▛72u MERGE :32[A]©POINT ! INK  MERGE Z MERGE { GO SUB VAL PEEK [A]▛[P]C[FN [I]/<= DEF FN  RETURN  COPY  " THEN ?8 IF (, _ GO SUB  LLIST G{( LOAD xY RETURN [A]2%ATN ; VERIFY H BEEP WSIN W&:2"JUSR  STEP %P©"B( LINE  LINE  STEP  GO SUB  COPY SGN DCOS s:SIN l SAVE ▝5 RANDOMIZE  TO 4  RUN 0= CLS  BORDER  PAUSE [J] LINE C AND  THEN ?FN ▝ASN < RETURN 8>CABS (  LOAD 0<> STEP ABS  THEN x▝ VERIFY  STEP  BRIGHT  LINE !@ IF  VERIFY  MERGE  DIM nPEEK  ) RUN  LLIST  FOR _ MOVE ~PI PAUSE  RETURN NLEN  LINE IPI>PEEK Tw OVER 6 PAPER "@+|ASN   CLS <>!- CAT .v;E39 INK -? MERGE NOT '! MERGE  RETURN / THEN NajaGsCODE ASN B IF #n INVERSE ©|8@ CLEAR  BEEP nIzABS STR$ :1PEEK _ INK <> LLIST  BORDER %:▝P BEEP : PAUSE 3RND:[I]v BEEP  MOVE O▝TAB W<> THEN '▛:▚ RETURN :q BEEP Z RANDOMIZE  VERIFY 22r BEEP ww▝x BEEP L ▝)PIIN [A] OVER FN *H[H][B] TO 5~6} STEP k TO C INVERSE 4[P] OR ~ LET @ATTR | AND  CLEAR  FOR g5VAL$ X} VERIFY  INVERSE wIN k RETURN ATN T▘ GO SUB IN TT▗k RESTORE STR$ ASN ![D] TO :PI6B([H]6:[E] TO H2[S][I]FG TO  INVERSE X LLIST <>8VAL @ BORDER [J] STEP wPI STEP [T]PI CAT  READ $_!| COPY  LIST  NEXT 8G SAVE  STEP *ATTR  LINE  OPEN # TO >('>[U]STR$ S DEF FN ><> DEF FN u[S] H[C][P]%G OUT )@T[I]" DEF FN ▗HOG*RbxPINKEY$ CAT  MERGE  CLEAR  LLIST  OR >=[I]! DEF FN  CLEAR ?! DRAW [I][Q] RETURN AACS COS ▖[F](a BEEP [E],[E]  STEP ▗▙SGN [I][N] TO  INK .VAL MD DEF FN  STEP SCREEN$ ▗CODE SGN @61▛[M]. STEP ▛STR$  CLOSE #~PI & FOR PI DEF FN  DIM [Q] PAUSE #dD4@~6#PEEK 053 STEP .h2▛6 * STEP  AND  OR STR$  IF  TO  DRAW &PEEK  INK CHR$ STR$ x2~[N]CHR$ G INPUT ▟%y2 STEP & OR  r STEP Q0H[C]< RETURN  ERASE B FORMAT ) STEP <> CAT NOT  DRAW : CONTINUE  TO K CLEAR IN  DRAW  IF SLN [B]-INT ▜▘NOT C!L[J] IF [P][J]>=v[Q](% CLEAR ($ MOVE  MOVE NOT  LINE _ INVERSE !?mPI!SQR  DEF FN T THEN ' LET [O] RUN  POKE <>rPI CONTINUE !NOT [J]"%XEXP  DEF FN  OR  RESTORE * CLS  INVERSE ]Zc▘[P]8l#STR$  READ   DIM  STEP POINT  ERASE ▗INT ▗CHR$ ▗ LINE ▗ PAPER ▗ BORDER ▗ LOAD ▗?FN [N]RND CAT p< FOR [D] CAT >2▙ CAT `[R]{ OR I!EXP  CAT PEEK AV(STR$  LIST x=D ERASE >/ RETURN :8 AND FN ▖!)44[[C]Nw+ IF  PAPER jA?@<> LLIST q OR [P]ATN @^[G]8 STEP COS  SAVE } NEW  INVERSE PEEK   FLASH hB| : ▖/} CLEAR  RESTORE S[T] CLEAR " INVERSE N▝ CLEAR  CLEAR [J]@'2 NEW  BORDER 3D[G]NOT [N] TO ![E]AT v[M]`A@xFN CyVE xz FORMAT [K] BEEP DIGp REM 5SIN A LIST SO@~<2 OUT  CLS   COPY d@ OVER 2) PAUSE ▞ LINE * PAUSE [C] OR *d[U] GO SUB :tR[N] STEP [M] GO SUB k CONTINUE  VERIFY &[I] STEP  VERIFY   CLOSE #,[P]%6 CLOSE # AND 0O"USR  INPUT  NEXT ]!& PAUSE B CLS E)x▜ MERGE FN #PEEK #8L RUN !SUSR  CAT  DATA <▗ OR x NEW p INPUT 2POINT  FORMAT [H]II MERGE $F(f[S] MOVE  LLIST C,, N COPY  GO SUB CUSR FN [B] OVER !USR  FORMAT  STEP  THEN BIN !;ItX AND  AND  VERIFY  NEW  AND t0v`4f4`ff44dBIN  PLOT   LINE vb`tTAN >=fv STEP ]0▚ACS 6USR C0fF LET gN GO SUB  COPY |▖k`` SAVE  LOAD p ERASE INT b@~W33>©3`ACS B3wt6@ RETURN 6[P]w14<41wCHR$ g3g VERIFY 7?[K]VAL$ ?*▖s44:sx PAUSE '137cwcSIN @ccssgg6I STEP 6o6!O INVERSE [U]mfG STEP ▘7_0©7- CAT mWg RANDOMIZE YRATTR 3; OVER %yLN WACS 'dFo??:<<= LPRINT  MOVE s NEXT nS RETURN ATN [Q]F CIRCLE ATN <; READ q)hUSR  FORMAT Z LINE ;SGN  LLIST p NEXT rSTR$  RETURN  RUN  CAT SQR USR PEEK  COPY < CONTINUE h BORDER  LET  CLEAR  LIST  LIST p LIST  POKE  LIST  CLS  COPY  LOAD  PRINT 7 DEF FN USR STR$  OPEN # SAVE SGN | DRAW  SAVE  LIST =+:?W CLS 7S LPRINT 3 DEF FN  COPY & INK  PRINT ( RETURN > THEN  READ $ BORDER [L]A0PEEK /[B][P])TAN  PRINT  LIST [L] LLIST ud RUN  RETURN  CLOSE # CLEAR AG▗ASN ,v CAT  RUN © VERIFY  REM ▗? PRINT  RUN PEEK  PLOT   LIST  CLEAR  CLS COS 9^TAB  CAT <=4[N] BRIGHT [M]l SAVE > INVERSE t CONTINUE  FORMAT  LPRINT USR  LPRINT  COPY ?MLEN  SAVE  DRAW . OUT ^ LPRINT v FORMAT  CONTINUE t;[G]*7 MERGE  COPY H. BRIGHT .[M][I] LIST  DRAW  BRIGHT  RETURN 6N9J LPRINT > GO TO % DRAW  THEN %-9?<Bb[Q]< DRAW <[U]}USR  OUT  LIST USR :NTAN COS PEEK  LIST /h INPUT /?▝ASTR$ ![R]a LLIST [B]Q MOVE 1LEN q LET ▞I<>)POINT i DIM [J]Y INK 9EXP y RANDOMIZE E OR %RNDe RESTORE [F]U MERGE 5ASN u PRINT ▟M STEP -TAB m GO SUB [N]] INVERSE =ABS } CLEAR CNOT #[T]c READ [D]S OPEN #3COS s NEXT ▛K THEN +ATTR k FOR [L][ FLASH ;SQR { CLS ▜G<='PIg BORDER [H]W BEEP 7ATN w RUN O CAT /CODE o LOAD [P]_ OUT ?IN © COPY @USR  [Q]` LPRINT [A]P FORMAT 0VAL p LIST ▖H>=(FN h CONTINUE [I]X CIRCLE 8LN x SAVE ▗DBIN $[U]d DATA [E]T CLOSE #4TAN t POKE (L TO ,AT l GO TO [M]/ BRIGHT <▘BCHR$ "[S]b STOP [C]R ERASE 2SIN r PAUSE J LINE *SCREEN$ j REM [K]Z PAPER :INT z IF ▚F AND &INKEY$f NEW [G]V VERIFY 6ACS v PLOT  VAL$ n INPUT [O]^ OVER >PEEK  SAVE ~ READ [E] POKE  RUN [U] CLEAR  REM ▖& LPRINT g OUT G[K] OVER p DEF FN ( GO TO  CLS 1f9{?[W@FN  LOS MILAG VERIFY ATTR Z:0j SAVE ;lSADADYATTR [Q]LEN  KMSNCA"COS UCT' MERGE  RANDOMIZE <$AuCIRCUIT88iFc GJ VERIFY ADO"PCODE [A]FSUSPENCODE COS 7@ BORDER  ERASE G TO NHO▖U DIM PORTUG DATA CODE <[C][C]O▗eROLgLN  CLEAR FN [K] LET ▞N>=E>b!AT4UW2 RETURN  BEEP < STEP IN cU?i▞SdX GO SUB [G] [S] MERGE 9[F],O DATA >; [N][E] CIRCLE  THEN  RETURN  OVER < ERASE 6`r▖CK GO TO U;[G] DIM @[G] PRINT BACS ▜[F]@'©~|AYA CLS %{@S©▜(;@ IF ~; PAUSE >S@;[A]V STOP @ COPY x[Q] DEF FN  VERIFY G4Ao▛ BEEP +AA]@ STEP ©.I<^. RUN [N]IN Km%[P]I CLOSE # LET  RUN 2[L]APEEK  CLEAR @K IF ?U PLOT  [Q]!Xi PHD0[J]VAL ▞ ,VAL FN ;@[E] RANDOMIZE ATN  COPY ~2GYIN 6 CONTINUE PINCHAZO@8 COPY  PLOT   DRAW  LOAD >1  FOR @d I%&'()*+,-./3689©©~}{xurnje_ZTMG?81)! SAVE  LOAD  BORDER  OUT  BEEP  CAT >=USR EXP COS AT INKEY$[R]@[L][G][C]▙▛▖▘▝▘▖▛▙[C][G][L][R]INKEY$AT COS EXP STR$ >= CAT  BEEP  OUT +  BORDER  LOAD  SAVE  FOR !)1MTZ_ejnrux{ COPY 9}~© COPY  RANDOMIZE w<>~nwSTR$ w` BORDER  NEW  &/[P];Py POKE [E] POKE %/ GO SUB  PLOT  34 CAT ~H DRAW  RANDOMIZE 4_%$$ PAPER ©YCOS :ASN FN $>[R];; LPRINT  COPY A DRAW  RESTORE 5543 AND ~*7POINT ©[Z&: ▛[8 PLOT  8K988SQR  OR ?%&/▗VAL `G7@77; MERGE SQR A>ACS  GO TO + OR ▚[C]"▝ NEXT ;! RUN A INK ? COPY  BEEP W STEP  CAT  BRIGHT M DRAW  CONTINUE 4COS [C]>=A STEP !: CLS _5K ERASE /= DEF FN [T];[T]{C[B]SCREEN$ [D]▞ OUT [P]=▖USIN _/dRND?; SAVE //  CLS  LOAD  LOAD OIr NEXT :- ^h1? IF ; OR  DEF FN [ MOVE  COPY [K]EXP ASN $55%?B COPY ?[P]SGN [G OUT ` CIRCLE #[M]INT K?{ RETURN  FOR M5▗USR ,''(-00).*/+[H]▛#(j!6'#pIN  POKE [P]K/[J]JSQR U[S] SAVE ▝>&# OUT ▘ STEP 214: LPRINT <=#O*u▜gm-;- POKE  CLEAR [L] RUN s|6qQ▚ LPRINT IN @ LPRINT  CAT ?6 CIRCLE Q VERIFY 6C INK PPSCREEN$ [R] CLS  GO TO  LOAD 37 BORDER .C/|; MOVE STR$ / POKE _[P]"SQR  RUN  CAT ABBCS RUN N▛"/7[L]POINT [U] GO TO WFK[E], COPY  RETURN EXP  CONTINUE CS[C],CHR$ 1@+ CIRCLE ASN  %3(2E[F]Hs COPY E[F] BRIGHT E/ PRINT PEEK { COPY  RETURN [P] COPY e CIRCLE 8_ LINE ~2 COPY ATTR  LIST ?USR  SAVE J(▘ SAVE [L][A] LPRINT VAL USR  L[H] READ ▗BIN @0[R]▜; READ b<=88#<=<=USR )( COPY " NEXT  COPY STR$ /< FORMAT # GO TO H CIRCLE 0[Q]▜ LET P IF ! CLS  CAT  LET 0▜STR$ <NOT ▝pUSR =SGN >%  LIST ▘ GO SUB  OUT [N] LINE C SAVE ©s)FN yUSR yqux LIST | COPY 3# TO  DRAW $ COPY N*D LIST ©  READ [U] FORMAT  LET  BRIGHT A LLIST Q SAVE SSTR$  SAVE _;▝ STEP @ FORMAT STR$  CLOSE # STOP  STEP  CLEAR USR ]# RETURN ▖O[Q]0 DRAW L[N]"  DRAW FN  CONTINUE @ CAT SCREEN$ USR A1▜S@ LPRINT CHR$  STOP ,@ NEXT 1 RETURN G;SGN IN ©s DRAW  m©[S]©Q©©H! LPRINT <>uUSR [Q]@▞#L$L[O] TO q*r0zsFN b3P/ STOP @4# POKE #,0PLEN ▖ BRIGHT ©LN /E BRIGHT ▗[R]/VAL  DRAW INT  COPY  PRINT g COPY 3tx RESTORE  MERGE UUS LINE ATTR  MERGE @@?+ CLOSE #FN IN <>U COPY  THEN  ERASE SCREEN$  NEXT NOT STR$ U LPRINT  FOR CHR$ ATTR  TO  READ  OR W[G]s▗ LINE ATTR ABS s?3^COS  OUT "©COS qU[A]+_VAL$ COS /[L]cSTR$ Y DEF FN  READ  ERASE RND LLIST NOT G NEXT  THEN  CLOSE # COPY >= PAPER +_ RANDOMIZE fgATTR s CLEAR 3 PAUSE  STEP 0 FORMAT [Q]0<> PLOT   OPEN #VAL  FORMAT P0USR [Q]VAL  VERIFY  RANDOMIZE  FORMAT  BRIGHT  GO SUB  MSIN  FORMAT &>=SIN VAL  CLOSE # DATA q<> PAUSE VAL  ERASE 0NOT XKSTR$  LIST D0n© COPY ▗ RETURN ©[F] LOAD PEEK SCREEN$ TAB ▜ COPY  CLEAR FN STR$  MERGE  STEP SCREEN$ [C]UIN   DIM [O]uPEEK i[P] BORDER  PRINT  PAPER "CODE  BORDER  DIM  MERGE [H] GO SUB POINT [F] COPY USCREEN$ SCREEN$ POINT >D OUT  SAVE  COPY _4SGN LEN [T] LPRINT PEEK  LIST JASN [T] DIM 5 CLEAR @< CIRCLE e& RETURN  COPY lUSR V8J'▝:V[N] LIST PEEK [H]LEN ©|INT .8@ TO [E]|]USR <]z NEXT @USR IN  DRAW  COPY 3R© SAVE pp"AT Wa|oVAL P[A] RETURN  VERIFY USR LEN >= LOAD  OUT  RETURN  OUT k▚> LET  OUT  CLEAR [G][M][O][Q]?? SAVE INKEY$3▘ ? COPY  READ !@ CLEAR "▝] LIST © CLS  BEEP "[B]-w0 BORDER [O]_u DRAW  THEN XSIN m CLS  DRAW <= POKE mkCODE cCODE [S] LOAD " LINE CODE PI▛;<> CAT USR n PAPER M;©o LPRINT >k[Q]© SAVE © SAVE #nS?[P] SAVE ,f GO SUB jINKEY$ CONTINUE [L]~NUSR P CONTINUE  SAVE oSCREEN$ 0$1 POKE 8:l MERGE |USR xK POKE v[G] DRAW  GO TO t CIRCLE g[I]1[H]gh[R]BCHR$ [R] READ  FORMAT ▝B PLOT   >pATTR hB DRAW  LPRINT ^S PRINT 8:USR  STOP ^{ CLOSE # LOAD :kR?j LET  CIRCLE a44If INPUT i▘: OUT [Q] CONTINUE ▘3[T]6IN @O[T] LPRINT i&8▜[ RETURN  MOVE g© COPY  COPY  CLEAR AT ▙[F]ATTR  COPY  CLS ▗ CLS USR  LLIST  READ T GO TO xD`; LLIST ▙0;▜~ CIRCLE [B]Ck CAT ▙O▝ IF iSGN IN  DRAW POINT ABS _ INVERSE STR$  RANDOMIZE  RESTORE  BORDER © RUN  CAT  CLS ATN sTAN ©[D]/h?.G{S. MERGE  RUN C.k~~ DEF FN o[D]^~ RUN ^ LOAD  RUN ^ RUN ~^^ OVER  RUN  LET W IF -t[ LOAD =-^[T] RANDOMIZE ABS G CLS EXP  PLOT  /ASN % INPUT G LINE W REM [I]L(WPCC[H]aINUA P MERGE UTAN CODE an@XAMPE PAUSE  IF 2t:SOXHNVAL ^ POKE p COPY ,[Q] READ SGN © PRINT ©PFN  CLOSE # COPY LEN ▗[C]©<=M? THEN USR #phM/STR$ [?V LLIST  CIRCLE ;SIN >=g PRINT O| COPY D FLASH [U]A COPY [Q]U DIM mV[K][C] DRAW %@USR T[K]8 RETURN  LIST O[Q]s DEF FN Euc>= LPRINT [G]AUSR O COPY SGN BIN  CLEAR A>=0USR  CLS USR USR 8 PAUSE  NEXT |CHR$  DRAW [M]?USR T▟ CLEAR  LOAD  RUN  OUT  DRAW = p~P/NOT STR$  RUN p}~ STEP SIN  COPY  PLOT   NEXT  CLEAR lO LET  DIM + DRAW @%VAL  RANDOMIZE lEI▟)f LIST  RETURN  PLOT   REM , DRAW [U](pA[B] MOVE N4 READ -PEEK M IF [C] DRAW n$l<=o© LIST ztJ▘AFaUSR  BRIGHT  CIRCLE xu<=t[U]0[L] READ  ` DRAW ATN ©0<>_LN  MOVE AT Q%EIN  TO >LN FN f8 NEXT   IF B RUN SQR N OR  CLS @k<= BORDER J CLS O?l GO TO CCco© NEXT  CIRCLE  COPY  RUN SQR lD BRIGHT p GO TO  SAVE pPI OUT ACS E MOVE  LOAD  NEXT  SAVE  ERASE ▛M'{ CLS 1 ERASE sPEEK  LET ATTR  OR [D]k COPY  OR CODE EcFN gYLN }|/▞]lTAN [R]<=?8;~D[SQR RND`/<©CODE ?lbIN  POKE (< FORMAT Y CLOSE # POKE SQR Ka NEXT OHINKEY$5▞ACS |E OR LN SVAL  RETURN T CLEAR gCCf?NOT  COPY O?[I] CONTINUE VuSTR$ RNDA LLIST [EXP [@ SAVE ▖ BORDER  SAVE  :b COPY 6 LPRINT _H- FLASH ASN [B]NOT /i  CIRCLE  OPEN #G CONTINUE  CLS AT BIN  OPEN # INPUT M[L]AT ;1=2[L]{4 RETURN _I3USQR [Q] IF W[Q] DRAW [R]@ SAVE  BIN © SAVE ? LIST   LPRINT >= LIST  OUT # LIST © LPRINT ©SCREEN$  AND x OR 0▗d[P]LwASN  DRAW  CAT  MERGE S=p=ISGN  POKE =?1 BORDER INKEY$ca LPRINT R0 LLIST  COPY  LPRINT ?Gu CLEAR PEEK  COPY P BRIGHT  NEW E-=5 REM [C]I[H]a[H]POINT ?_AUSR ^[G] LIST ▙`7J5[A] LOAD A?&  COPY g=!CHR$ USR ![G]USR  LIST  LPRINT >=ZMA STEP [Q] STEP 0STR$ 0NOT  CAT  LLIST 8P1 LPRINT P LIST 3[H]IN X% COPY  OUT  RETURN  POKE c▜[H] INVERSE  OUT  SAVE  LIST [L] COPY  STEP  COPY  LLIST EXP  LET  OPEN #[M] COPY M LOAD  LOAD  CLS ▞x?ATN  PRINT  PAUSE  STOP  OUT  CLS |g>/ DRAW y POKE ▞[H]? COPY IN  NEXT ATTR  RETURN  SAVE [H]IN  DATA ?_SGN _[G] OUT EXP  IF  FOR  COPY  GO TO  REM USR ?SQR  COPY <> CLS  INPUT ELEN ] RANDOMIZE PEEK <>u LLIST [H] OUT  CLS ATN <= READ C;c▜ RETURN  SAVE < POKE ;<{ FLASH : LIST { IF _QUSR  FLASH o IF  CLS s RETURN  READ - CLEAR ©~?[O]©[q SAVE  FLASH PI©[M] CLEAR  CONTINUE ASN SQR  RETURN K RUN [T] LOAD V GO SUB ^ BORDER  NEW  LINE  DATA  CLOSE # OUT v LLIST * LOAD d LET N LIST  FORMAT  FOR ( INPUT [E] DIM  LPRINT  STOP  PLOT   REM . INVERSE P INVERSE r INVERSE  OVER h DATA [E] INVERSE  CONTINUE  DEF FN  CONTINUE  DIM R DIM  POKE  BRIGHT  GO SUB < DRAW J[T]F NEXT  COPY [K]- CONTINUE <Z[B] BEEP [M] BEEP Z[T] BEEP LEN LN  BEEP >=y CAT  BEEP  FLASH  BEEP < SAVE  COPY 5USIN i_ BEEP X[H]VAL INKEY$PI4 LPRINT  FORMAT USR  LINE VAL  FORMAT  VERIFY ?? DRAW  DRAW S#L<| FORMAT VAL  DRAW  LPRINT '© RETURN  GO TO  MOVE P COS  COPY @ COPY TAN O INK COS w& INVERSE =NY5[I] GO TO  GO TO 0 LOAD  LOAD [N];< PRINT  GO SUB 'CODE [N]'CHR$ c6CHR$  COPY [D]/| OPEN #3IN  LIST s COPY ATTR  CLS STR$  RUN y LIST X COPY  COPY © RETURN COS [S]LN  OR  COPY =:L|;*| DATA BUJJPySCREEN$ ▛ ERASE _ COPY > POKE  FOR / COPY  ERASE >=GO COPY  LINE P PRINT (*<>▜' a:TAB USR ▗: INPUT 1R{3y POKE  RANDOMIZE  PAUSE O? COPY  RUN  RUN ?O INPUT  READ  RUN >=[P] PLOT  } CLS [P][P] MERGE A AND  CAT * DEF FN POINT  INPUT NOT  ERASE ▟c COPY [I]*CHR$ IN  CAT 4 FOR TAB W< PAUSE  LOAD  READ  COPY V}[O]>= DIM  COPY  LOAD  IF  CLEAR ]>I/ DRAW [T] REM [U] RANDOMIZE  OR ?R▛©TAB ~R=F/[UTAB  RETURN =l RANDOMIZE VA SAVE  LOAD [N]` DATA [P] LOAD #~[L]COS PEEK  SAVE  CLEAR  STOP _ PAPER  OUT  RETURN ` COPY  GO SUB ` DEF FN  OR  DRAW [U]m<=qUhCQ RESTORE 6QSCREEN$ [S] COPY UUATTR [K]Z?USR  RETURN  RETURN UP{ COPY  CLS  FORMAT ▘WVAL$ U@ DRAW D MOVE z RETURN 7<= PLOT  ASN  POKE @p© RUN  COPY  CLEAR  COPY G9_QUlU BORDER SWuT [R]  CONTINUE dFN .k4lUSR  FORMAT j_ COPY  SAVE KA RUN apAT SGN ATTR  LPRINT y BEEP { RETURN  LOAD  CAT  SAVE :* CIRCLE b? LOAD  COPY IN [L] FORMAT INKEY$ CLS SCREEN$ [Q]/ POKE `_SCREEN$ SCREEN$ ATTR ©U COPY fX OR NOT USR  DRAW <#USR USR  LIST ▚▖> SAVE HF4[G]d`P VERIFY © POKE z{U MOVE @ CONTINUE ▝}ABS x AND A? CLEAR U© CLEAR ▚ CIRCLE  AND x} COPY  OR P CIRCLE ▝ COPY  MERGE UE MERGE @ PAPER INKEY$ NEW f CIRCLE ASN ▜fk?]R LIST f[B] IF Ff@ DIM 3 RETURN  CIRCLE q CONTINUE IN [Q]?INT CODE NOT zeATTR  CONTINUE A CIRCLE SCREEN$ INT PEEK  TO  RETURN  COPY [Q]* COPY  REM SCREEN$ /▙ ` BEEP _ RANDOMIZE [P] COPY gUPOINT D/ OR gASN ATN q? DEF FN ` PLOT  gCHR$ T!]Ub LIST  LIST  BRIGHT © BRIGHT  CLS  STEP CHR$  REM [B] REM ANOT ] DEF FN  CLEAR ▝BIN }@NOT ; COPY  PRINT  LIST  PAPER _m?:ATTR [J]D DRAW 8▜ MERGE * LIST 5` CLS  MERGE /B7[B]INT TAN UATTR gA CLS CHR$  COPY AT [D]z PLOT  Ey LOAD  MOVE USR N INPUT SCREEN$ s RETURN IN  RETURN SCREEN$ [R] LOAD  AND [H][Q]A LLIST [P][J][P] DEF FN AEg LIST 1NOT  AND [J]% PLOT  USR V REM RNDSCREEN$ FN fG MOVE /8 CLEAR UCSQR W MOVE sCODE  COPY  FLASH ATN USR [F]xh RUN [U] ERASE  FORMAT TUgic}_ CLEAR  MERGE @y>46G▝[I][J]hfs LINE  CAT ; FORMAT Ty IF SCREEN$  CLS  REM ? GO TO /[N] COPY >=PEEK  CLS [N] COPY [P]▛VAL$ *SCREEN$  MOVE CODE C RETURN ATTR > LOAD  SAVE  CONTINUE  DRAW  CONTINUE  ▙R[O][J]t.0 RANDOMIZE <=hV PAUSE STR$ [K] PRINT $c0ACS ` AND 0wm[K]ATTR X@ PLOT   RETURN TAB O RETURN ? TO v[U]LKNOT  OPEN #AT *) IF  ERASE [P] < BEEP T8~[O] INK PN GO TO <> NEXT 3?0 NEXT  FLASH  BEEP COS © INVERSE )2 IF  PRINT [I]USR  RETURN p[S] RETURN USR `ffTAB  MERGE g1[J]▟ INPUT vL FLASH <}> DIM | PRINT  FOR [E]<`▞ CLS [O][U][N]FN ▙0U COPY  DEF FN  BEEP USR SGN 3 DRAW 0 CAT 0| PRINT  FOR ▞xy CONTINUE  IF A'}T PRINT G@)310 DATA  DEF FN lVAL [G]i[A][F]STR$ y" BEEP Op POKE  FOR [I]sHATN # CAT 3;tU AND tP TO I NEXT |1IP SAVE 5NOT ?NOT sCODE  CIRCLE a[H]g<> BEEP [R]▙ INVERSE [N] INPUT 3>=P▜TAN P CONTINUE  GO SUB  INVERSE SQR F>hL<=g RETURN  CONTINUE ~~▝IN [C]N CONTINUE TAN  INPUT SQR Wa[Q] LPRINT ▝ LINE AT USR d BORDER  LIST eUGSy DATA  DEF FN [Q][S] INVERSE ~  COPY USR < NEXT © NEXT ▛A3[A]A9 RETURN S© BORDER WB LET  DRAW qF^STR$ [ LET $UgpUSR 1+T&A%+ OUT  OVER v/ CLS 4 FORMAT d ERASE ?▚ BORDER #b©/ COPY p MERGE < LINE ▙© RETURN h[Q][S]@CHR$ "ATTR < LIST  BEEP ?x$j [G]SQR ▙ CAT ▙ LET  GO TO ▛? NEXT  BEEP ?▙[R][A] THEN I INPUT *ATTR 3 THEN A*3 TO ▘STR$  LET  LIST - LPRINT AT  COPY ? CLEAR  COPY © OUT PEEK  READ  COPY  THEN `[H][U] MERGE *Y DIM VAL$ SIN 9!▞▛ OVER  REM gSTR$ U` ERASE n©=:UTI DRAW  CAT ^▖[T]1BIN x LINE [Q]f INVERSE [K] CLEAR d[A] OPEN #[P]US~x DEF FN E OR ?▖eTAB b[N] LIST 4 FORMAT  DEF FN [D]B,R▝N x-s[M]5vD[N]NOT 3 CLS 0B?[G][N] CAT 0 COPY [M][B]%pNOT ?`Mi IF [U]LEN [A];fUSR } INK sTAB VAL [N] RETURN [O] GO SUB ▘ NEXT g1 TO ~FN j(FN , BEEP 0Q[R]C[ LIST >=?< BEEP Fj2IN COS  CLS QMh*ACS @p[G]!M6j[U][M]SCREEN$ H*5 RESTORE 0 NEXT  DRAW = LIST NOT 0VAL  TO SCREEN$ SCREEN$ *TAB [Q] FLASH O DEF FN ?,> REM &ACS [H]SCREEN$ /0(`OK&O INK *[R][T] LLIST POINT  DRAW <<[Q][L]Q=dPOINT W@ VERIFY eUU*3S0 LIST (>-[Q][F] CAT  LLIST Ss[O] DEF FN ▝*mSIN [H]FN Y READ  RUN  POKE  LET  INPUT ? POKE STR$  OPEN #Y OR ▞QPC RETURN P▞pr[Q] THEN KG LIST ▛SCREEN$ ![E]< CONTINUE SQR ▙q ERASE BAPI3/FN ▚ NEW PI?EINT UE▙ OPEN #[I]*cG NEXT 5 RANDOMIZE Xy[L]_'i3 DRAW PIINKEY$`j▝CODE  SAVE LEN CHR$ ▛ATTR O8Xn' SAVE 3 CIRCLE ATTR 3 CAT  BEEP R|3)[U][D]'( NEXT  CLEAR 0[J]▖ AND ;<VAL 803[K][I] NEXT  NEXT 'LN  TO  LPRINT SIN ▝▝@@ FORMAT X BRIGHT [I]COS <= BORDER  LIST ▗EXP  STOP   PAUSE ▚N NEXT [A]8!RNDP0X1STR$ 8g[M]8[F] PAPER [A] COPY ` SAVE mH▙ DEF FN IN ^1> LET / MERGE © CLOSE #S LOAD ?I[P]INT  BORDER ▖gyUSR  LPRINT ▝yz LIST s$>= [R][D]▜q▜[U] CIRCLE [P] RESTORE  TO ▝jSCREEN$ [E]TAB >= COPY [L]SCREEN$  CLEAR >=SIN NOT  LIST ▘ DRAW +4 LET  RETURN 9[K]o,> PAUSE FN ( LOAD 8X▘B2USR [D]▖INT <>^h▟of MOVE  LOAD >D ERASE INT [Q]"{ RUN CJ▜ INPUT hCODE Gz9G GO SUB B RANDOMIZE X FORMAT LA©A REM <> RETURN BIN  GO SUB &AF8 OR  RESTORE "GGj THEN #[P] CLEAR  OPEN #[U][U]! RANDOMIZE !/>"5%2 LINE LN $AT 4 RANDOMIZE ▞'©6SNOT  PAUSE  DRAW  AND 8IN ▙ REM  CLEAR  CLEAR I DATA Z CLEAR y%HR$[U]cS<nPd$ ($$(ATN 2 THEN Wm CLS VAL ISE| CIRCLE )ZAR  v2ATO`Cw}2=Zc COPY pC3 FOR VAL ROLEIN  RETURN (<= IF )BX DRAW 0!PAS*[Q]G ,MIC'OOK FT?[ @t@+X▖ CLS <> TO BB COPY BBB<o& INVERSE # STEP [L]STR$ SIN $ REM POINT =PI@ GO TO M[ RESTORE  LLIST "[P]<>! STOP 1^ BEEP NOT AT 8P CLOSE #8[P] CIRCLE [P]>=><>:6 SAVE ▟ CAT ▗ GO SUB D AND _:x GO TO TAN >2w IF "© AND !<2]4▟( FLASH ` FORMAT _ THEN ;>[D]_, PAUSE k:r BEEP [D]2q5o▟ RETURN  CIRCLE  CLOSE #@ CIRCLE  VERIFY  FORMAT EXP ; RETURN < NEXT  GO SUB s OUT USR  INK " FLASH USR  INK !)USR [USR  GO SUB VAL  RANDOMIZE  LLIST  MOVE STR$ 1 LPRINT  STEP NOT [ GO SUB LN ` MOVE  INK  LLIST ; LET  INK  INK ) LLIST A0 NEXT CODE ) LLIST A) LLIST AINT 8_ RETURN   REM CODE  RETURN 0) RETURN  ( INK O; LET o{7[N]oz[M]g GO SUB VAL ` INK  OR  INK ; LET <([< STR$  AND 0( FOR = INK O INK ) LLIST A INK 8 CAT  INK CODE Z) LLIST A  RUN  RETURN 0< INK gINT ) LLIST A RETURN 0= LOAD ) LLIST A RETURN 0 VERIFY  LLIST ) LLIST A NEW  RETURN 8 MERGE ; LET  MOVE !SGN [ INK 1 NEXT <>MsPk7 STEP 2 STEP ! PAPER BUSR ! LINE NOT :CHR$ NOT [C] OR  SAVE  CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, CLEAR PEEK ▗X  PLOT   LINE [S]|X8 SAVE  OUT CHR$ AT [A]{eQ>, DRAW  LOAD  LLIST  VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;852/,*'%#!r COPY  RANDOMIZE  RUN W GO TO g OUT SQR  RETURN IN w.;~CODE  FLASH oG NEXT  RESTORE "2NOT  RESTORE ~2 MOVE  AND 2[G] OR ##~#" CLOSE #CHR$  " BORDER CHR$ ^#V#"NOT OA NOT  LLIST -NOT !, -CHR$  LINE p GO SUB VAL CODE 2)CHR$ 2*+@▞PEEK NOT 2=BIN DD2IN ▗D@▙ OR /2[C][D]BIN >m AND !EXP STR$ "$ AND "▙BIN "▞ OR  STEP NOT  GO SUB SCODE  OR STR$  GO SUB s IF @CHR$ 1[L]<>STR$ >  LLIST  FOR s#r# FOR =  PRINT CHR$ >B CLS *"4 !F[O][N]NOT FN I[O]BIN D  CLS <>!~▜GBX ERASE VAL$ 8 INPUT  BEEP NOT ▜▝[T],OCODE G RANDOMIZE HYpE" DEF FN  OR  CONTINUE  OR  `GG<>{▜_ IF ~0 THEN #~ NEW  THEN Z  PRINT 22CHR$  LET ~ NEW F#ng INVERSE b FOR <>J INVERSE }▚▜O!USR ~#fo THEN :8 GO SUB R<><>><(wKd$y<PEEK # ~> 2[H]NOT ▚xNOT  FOR x_AP[I] INVERSE .G STEP FNOT VAL `(",CHR$  FOR  IF  COPY NOT (& RESTORE 7{PI PAUSE  OVER NOT  GO SUB DOPI GO SUB B0 LLIST S2SGN NOT CODE 2 TO NOT .go"NOT NOT " MERGE NOT  LLIST VAL$ [G]USR  INVERSE |23CHR$ ▙/C~ PLOT  %4CHR$ ~z PLOT  [P]~BIN ~ PAUSE [P]~? RANDOMIZE .~~BIN  POKE O~]BIN ~;[G]BIN ~KBIN ~BBIN ~"wTBIN ~~! RESTORE ~ACS w▝5[H] FLASH ▝{▝[I]IN  RETURN ▝[J] PAUSE  PRINT ▝0▝IN ~ OR ▝ OUT mm▝ABS  STEP {KBIN {▝ VERIFY ▝ COPY =▝[A]▘6CHR$ !9CHR$ IN  COPY ACS >  VERIFY !B GO SUB y FORMAT C GO SUB ATTR =I@▞2x<>CODE G>=S(@=(#=CHR$ [B]NOT !)CHR$ VAL H5 PAUSE  OR w STOP PI TO !NOT  STEP d<= LET 2 PAUSE  OR NOT  GO TO o* STEP 5D▖>= DEF FN / AND +<>g LET  OR <>IN  CONTINUE  OR CODE 07G[H]NOT [T]b!X@"[K]NOT  2nY AND BIN PEEK Q THEN BIN  BEEP ▚2* AND [N]& BEEP DN2:+ NEW vm& MERGE H IF [R] CLOSE # THEN !! PLOT  /@ CONTINUE "BIN [C]TAB iiR;BIN  k▟Ri}=▙=ACS ATN ▞i/ATN  GO SUB [E]iGmgD2[U]TACS k,ey1J[K]9CHR$ 7CHR$ >9CODE 2 AND  RETURN 2F AND :W AND "=(y2 AND i7D THEN AT <> INVERSE : GO SUB ON▘( PAPER # THEN <>▜!<>USR NOT d<=CHR$ 0&~V AND PIx PAUSE 1ATN <=CHR$ Q AND -LEN  THEN EoRNDg"K[I]- OPEN #@[U] DATA AT  OR  AND  8+ AND `8 AND 8g1 AND @8 DATA @▗▙<(v[K]VAL < CHR$  OVER  LINE ▜o CAT (% OPEN #▜STR$ ▜">[A] LINE ▖!CHR$ ▜ INVERSE Z4%* LOAD INKEY$>=SQR >SIN PI<>D[Q]@INT ( GO SUB  RETURN ( LIST BX>2 THEN  AND [Q]2 TO m{[S] MOVE B2ACS  AND :STR$  AND = LINE VAL #m/[U]B!#};BIN #;( INK $ RETURN #▙IN COS h▖>=0#USR U>=USR [C]SQR  OUT  GO SUB #i|USR #VAL USR #▞pPI# THEN ©'#▜o SAVE #w THEN A©▖#[O] OVER TAB %[E]>=[R][P]9#x#▗ LPRINT ?INT  POKE [P]#▘'## TO B:ABS b(DNOT E<>2 NEW BIN b▗:= LINE yTAN  POKE YV LPRINT  LLIST [S]"[I]BIN <>▗, TO BIN  PRINT _<>x CLS BIN  FOR A GO TO *o&sIN [E]ASN  VERIFY fIN BIN * RESTORE ▘& SAVE  VERIFY  IF J,g<(/[S]COS ?4<  STEP  CLOSE #($▜[Q][L][G]<>) SAVE [G]e LOAD ▟> COPY [I] CLOSE #[<>>= CONTINUE  CONTINUE EXP  CLEAR d CONTINUE & INK / GO TO  DRAW  OUT @[N] FOR  LLIST @[P]a# RESTORE  REM AT n0QE'2 SAVE X[K]5w OR [U][D] MERGE  FLASH AT  CLEAR [M]"FUNNY STORY-2" COMP.IR|ONMAN  RNDJFEFN [B] FOR  GO TO  COPY ![S]6 GO TO  DEF FN  DRAW %YO MOVE  BRIGHT D!ATTR ATTR ATN 8>=" LPRINT ]C[Q][COS  DIM [R]M[L]dGE FORMAT $ STEP  IF  [K]SIN / INPUT ©ePId[U]POINT e[S]  DATA ©i[P] BORDER  STOP [L] BORDER [L] RESTORE [P] STOP  GO SUB [A] DATA INT  CIRCLE w STOP '-[I] BORDER [I] GO SUB  LINE [P]TAN `[N][B]STR$ PEEK  STOP [G] BORDER [G]%ir RUN ▛bATN ASN 'ATN #ASN #COS  INPUT SIN COS !ATN  LN ATN 'LN ATN !"ASN [I] LPRINT   LOAD ©`0-  BEEP p++SGN INT #SGN  FOR s&PEEK ▘%"@$ CONTINUE |(`SIN   LPRINT |2VAL$ VAL CPOINT SIN m LPRINT !&COS IN C|-VAL {(5TAB  CLS m(,)IN /!ASN  CLS  STEP *# OVER N/ GO SUB USR INT ! BORDER ©kPI  GO TO ©PI![P]PIPIn[U][U] RUN [U]9 CLEAR 'POINT ▞USR POINT POINT k[S][S]q COPY [S]g% FOR ©` STOP COS COS COS COS COS COS COS COS COS COS VAL VAL VAL VAL VAL VAL ZVAL VAL VAL VAL VAL ASN ASN ASN ASN ASN ASN ASN ASN ASN ASN ASN  CLS  STOP VAL$ VAL$ VAL$ VAL$ VAL$ VAL$ VAL$ VAL$ VAL$ VAL$ [M] MOVE [E]SGN X[F]# NEW INT   RESTORE `[P][P][P][P][P][P][P][P]8[A][P]y GO SUB z2`PI LPRINT zlXCOS PI! LPRINT  o RETURN A DATA <[U]VAL  OUT SQR (© NEXT "-POINT ASN  COPY  OVER ( RANDOMIZE [L]K[Q]!VAL$ zC[S] RETURN  BRIGHT ( BRIGHT o<="lCOS  COS ![ATTR VAL  ![H] MERGE ASN  ASN ATTR VAL$  VAL$ !▘ ; CONTINUE |>= READ [G]|d _H LOAD [D]|9w[P]TAN [I]|Z DATA  PAPER  COPY [B]|▚[N]8 CONTINUE `[P] READ [P]!- GO TO [P]  RESTORE  DATA  LOAD © DIM  OVER  TO [G]y>▖"' NEW  OUT t BORDER  FORMAT ATTR PI CLOSE #COS [S]PIPOINT ATTR  PRINT ,[U][P][U]INKEY$PI=[Q][N][Q][S]_INKEY$[S][N]PIy4[T]=EAT POINT [U]pIAT 8ATTR ([K]POINT H% INPUT H DIM ATTR !PIjM"PI!AT ATTR ▟(▗-AT VAL$ AT [P]DCODE "B▖ CLS   READ `[T][T][T][T][T][T][T][T][T][T][T][T][T][T][T][T] CAT nSTR$  READ ©[P]CQ STOP &?[A] FORMAT QUSR VAL [Q][A] INVERSE  CAT c+$!"RASN RCODE  IF P  CAT )INKEY$/ LLIST D PAUSE  DATA  AND LN DPOINT [L][L] RETURN © COPY }O DATA "^@? LIST  LPRINT  MOVE STR$ ,SIN <[S]L[D]/lttdx MERGE x@0▖ [Q]YU▖[I]STR$  DRAW STR$ L▝ DATA  LPRINT  TO TAN [U][B] FORMAT USR [A] DRAW |VAL PEEK  FORMAT ![Q]`[A] LINE  SAVE USR [C]% INK FN p OUT "! CIRCLE LN ` INPUT [Q]"" CONTINUE  LET ` LET  LIST  LET  FORMAT )' LET VAL QSTR$ POINT  NEXT POINT INKEY$INKEY$[Q][K][E] LOAD  BEEP +▗b@K CLEAR  AND  PAUSE ATTR  POKE |R NEW  OPEN #[J] CAT  CAT  MERGE  CAT  DRAW  OVER  LLIST  COPY 8 STOP Q▖SQR ACS   GO SUB v0@PATN  FLASH `p_sSIN [A] INK  BRIGHT <= OUT ]COS  LET  FORMAT wSQR  LPRINT  LIST ▝ CAT PSTR$ w CLOSE #s© DEF FN ASN ▙[N] IF ] COPY  CLS " OUT m▚SCREEN$ P RANDOMIZE N LIST  OUT © LPRINT  RETURN  SAVE ."?1USR SQR /C▞?t© STOP w' GO SUB ▚INT ([Q][S] RANDOMIZE ©PI[U]PICOS [O] PLOT  ASN SGN  OVER [D]PEEK  COPY [P]IN [D] RETURN  OPEN #▛[O]▖ PAPER -F/ LLIST y STOP INT vw INPUT ]E LINE *_K]%" LINE ]/LN USR  NEXT ' COPY