| Is a part of release: | ZX Format #02 |
| File size: | 25088 |
| md5: | f99c13bc8cd23d46d9cb8ae419fc4ec8 |
1 CLOSE #USR 0: REM NEXT GO SUB F1FN a CLEAR !:/!XX COPY u GO SUB VAL CODE OPEN # RETURN * POKE /"?^ STEP RESTORE ]2PNOT < STEP BORDER ]2PNOT 2TAN _ STEP RESTORE ]:PNOT RETURN ! RESTORE x OPEN # RETURN NOT /= CLEAR > GO SUB y< OPEN # RETURN !USR USR @u CLEAR CODE GO SUB y OPEN # RETURN > STEP BORDER ]:] THEN PI2 CLEAR ] THEN BORDER 2 RANDOMIZE ]! CLOSE #PEEK STEP GO SUB ] STEP CLOSE #PEEK STEP RESTORE ]!LN nF STEP GO SUB ] STEP LN nCODE ! STOP ] RESTORE ! NEXT RESTORE NOT /=NOT DATA o> CLEAR © GO SUB y<> NEXT GO SUB [?^ OR MERGE zATN O><0>, INVERSE ! NEXT STEP :^y* STEP :^> INVERSE !NOT / STEP :^ MOVE STR$ OR MERGE INVERSE !/ STEP :^ MOVE $ THEN c(STR$ CHR$ STR$ RESTORE GO SUB S?^<> INVERSE RESTORE NOT /=SCREEN$ THIS MINIDEMO
20294X-STAGMEGADEMO WRITTEN BY ANTONY & VLADIMIR LARKOV FROM TMG, (C) COPYRIGHT 07'12'1995. THIS MINI-PRODUCT IS NOT PROTECTED IN ANY WAY, SO YOU CAN (AND MUST) COPY AND SPREAD IT ANYWHERE YOU WANT. LOOK FOR ZX-STAG MEGADEMO!!! NEXT INK RESTORE ! CIRCLE " DIM MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE !IN CLOSE #PEEK DEF FN MERGE NOT NOT 3COMPRESSOR BY ALEXANDER TRUSH ODESSA INK LLIST ; LET INK INK ) LLIST 0 PAUSE [H]) LLIST ) LLIST THEN () LLIST RETURN 8) LLIST INK ` RETURN O8, RETURN "; LET <(v<( AND 0 INK ; LET o7{[N]oz[M]g GO SUB VAL INK INKEY$STR$ RETURN 8 VERIFY AND O INK ) LLIST 8 FLASH CODE ) LLIST ) LLIST ) LLIST RETURN 0< INK gABS ) LLIST RETURN 0= INPUT ) LLIST RETURN 0 VERIFY OUT ) LLIST NEW CLOSE # INVERSE RANDOMIZE FOR MOVE #) GO SUB LN LLIST INK CLS <>!<BIN NOT USR NOT DSTR$ NEXT ~2xUSR "SQR USR # STEP ASN USR <2zUSR GO SUB SpUSR 64rUSR MERGE )tUSR ! STEP INT USR FOR "v▝J,{▘USR USR ,p GO SUB VAL LLIST !CODE STEP CODE USR =2▛USR P2[F][P]USR >2yO[E]R"▞)[D][N]KBIN <>w LET LET PAUSE ^ INPUT E[C] BORDER D NEXT CAT PAUSE COPY [A] LET RETURN PEEK >=NOT b^#V# FOR C INPUT FOR <>_▜_ INVERSE INVERSE ~ THEN ©J THEN wCHR$ FLASH USR B NEW g INVERSE ^@ PRINT NEW LIST W LET NEW o INVERSE THEN n>= THEN STOP <>:[Q]USR O!FN READ PEEK PAPER STR$ CODE O GO SUB i&) GO SUB [ LET N#~2DNOT UQy* GO SUB GO SUB lU▝ CLS FOR ATN }©USR <> INVERSE *(5 LIST [ COPY INVERSE wK▝SCREEN$ RESTORE POKE CHR$ ▙CHR$ :x(T RUN INVERSE !▗&9STR$ PAUSE oSTR$ *6~< TO SAVE USR ▖ STEP [I]STR$ 0INKEY$ PAPER ▙▘J[L]j[I]fRND=*V[E]NOT ~ RETURN ` PAPER AND STR$ RETURN pP PAPER OPEN # PAPER POKE STR$ LINE FOR Q(▝ LINE MOVE ▘ LINE LET PAPER FORMAT D DIM VERIFY [R]{ COPY #SCREEN$ NOT 3 INVERSE 6 #<> VERIFY ` RESTORE c*vHLSGN INVERSE u INVERSE t LLIST MERGE $ COPY <>CODE VERIFY ;RNDp ! r▟R RETURN $ VERIFY 2VAL$ ~#2AT SQR P[I] RESTORE CODE ) LLIST Q n~<>===u PRINT (^O< NEW RND LET 0^kV!` DIM STR$ L< (<>yATN USR |2PIf7; RETURN ATN >= RETURN $ LINE ▜CHR$ dNOT ▛CHR$ CODE uV THEN NEW 95CHR$ y2<NOT INVERSE *▜USR USR yVAL dh2FN Q8 LINE INT CHR$ STEP i2NOT "[R]USR !POINT USR +w STEP q@Q GO SUB ACS 2 LOAD 9[B][F]9:6LEN VAL ;[F];0#4[T]▝;4SCREEN$ 4s THEN INK 4(NOT 4[L]=VAL 4 THEN THEN VAL LEN S[J]8'8RND8ATTR `8NOT BIN } PRINT MERGE INVERSE n INVERSE fT CONTINUE v▚ AND ▜_!_NOT [H] FOR MOVE LET THEN b( THEN [S]<>PI GO SUB R<> SAVE ` CIRCLE (▖ LIST ` LPRINT X LPRINT |VAL @ GO TO [E]D SAVE VAL p, LIST PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wpkd^YTOKGB?;852/,*'%[Q]#EXP DEF FN <>(VAL$ USR CODE ACS > VERIFY P+yIN GO SUB ATTR = PAUSE /BIN <> CONTINUE SGN SONG BY ST COMPILEP].)(@q'*47AlLN USR <jo[Q]e[K] CLOSE #ABS sATTR & GO SUB RRNDRPOINT [E] [Q] PAPER 2 FLASH F[Q]ATN f;S3/?PPN><[Q];Y[Q]R>= NEW RESTORE [Q][H] READ [Q]INT INT STOP [Q] CIRCLE 5 RESTORE +,/▟(,SGN , FOR ++Ix*PI) VERIFY )()'4(&c▘▘'&FN FORMAT 6&▘#5&N4%FN D%C%,R$R#[S]a"a!p [L]▘hI{ INVERSE UV[Q] VERIFY < PRINT POINT RANDOMIZE (LN _ OR p@ad2e<fFgPhZidj[Q]nkxlmn[Q][Q]opqr[Q][Q]stuv)RNDwxQyzJ[P]{|}[L]Jf~<=ACS ` LPRINT AT fz BRIGHT YVAL !cPI CONTINUE cOCHR$ KSGN EK'K[A]B▛b>(+o.[O]j[Q] INVERSE CLS SCREEN$ <=NABS RUN /bJ STEP 7hOb%M<>fk GO SUB MD[Q]PEEK 75IN wJ/_SGN pCHR$ /04▖ DIM -3 STOP [F] CLS BRIGHT h FLASH INPUT z CLOSE # LPRINT [M]C INVERSE e NEXT K[F]CHR$ LPRINT CODE WPIAT SCREEN$ [T]bVAL$ Y[T]>QijFN ▛[J]xU PAPER LPRINT V DIM <= MERGE [F]LEN ) RUN OUT ABS [K]C^f=USR 6y[O]SGN COPY $7RJ![C] LPRINT CONTINUE LIST RUN <=, BRIGHT .H LET Eb>=PUSR TAN fr5[S]578758[U]c7[S]f3PACS 0[S]03 COPY [S]lw)[R])7 GO SUB [S][T]/Q$[R]$ LPRINT INKEY$[T] COPY [U]oCHR$ -AT mpk MERGE _$~2[S].[U]+[S]+:7VAL 2INKEY$c▗f<[S]<?>AT <[U]n<b FORMAT [R]7 RESTORE [T]/Q,[R], RANDOMIZE INKEY$[T]r%(j& MERGE _$FAT [U]AT rAT [U][R] AT ▟dp1[L][B] LINE ep' INVERSE FN "< POKE nqfw)lvf[G]$l@VAL gVAL INT INK dt(t[L]SGN " VERIFY & BRIGHT TAB [R]VAL d'' MERGE +lVAL / AND f,ldABS PAPER S COPY USR AT lp0 CLOSE #b0 COPY VAL d*1 FORMAT [G][R][Q]jp7:> GO TO [U]>[R][Q]7[S]9VAL 7[T]k<j8SIN 3[S]e▖/-+)kJ%[J]j LINE JCOS , CLOSE #[R] MERGE j RESTORE ;z6)ex'x1&t▜INT COS *#* RESTORE TAB [K] LET RNDjs▝2[F]7a NEXT ) NEW 4tS<f6[D]1[R]LN )*.[R][D]. COPY VAL$ DRAW h7VAL c8TAN f3AT n3 VERIFY INT {k NEW THEN <GoSCREEN$ F OPEN #iVAL VERIFY ▙SGN W+ ERASE USR Q7smVSIN -[F] GO TO DIM "[I]SQR &e+ 6CJCFCE[S]CLN >[T]DH[S]KTAN ijFD4LEN 7*) OVER X)0/))<> AND )a TO c%[ COPY [U]jpA[R]iACDC[S]FDAT k OR AT ?[U]<VAL 745j[G]}CXL.[R]mSTR$ BEEP FLASH LET j{c57 BORDER +/CODE LEN +3 PLOT I FOR F3U6,Vc9,07!AT gp[S]SCREEN$ Ba( LPRINT [T]5y'e'INKEY$gSCREEN$ [Q]U3|R)([R]'aSIN LEN 0MO0 INK CIRCLE yO,0INT VAL$ I▚`DCH PRINT FN iD[T][Q][A]<[S]A[R]?<7,>=<SIN ?INKEY$h?9 CLS k] OPEN #8W]vLN 3 COPY STEP S MERGE >=2 STEP CLOSE #USR STEP SAVE CLOSE #<>><>2>= CLOSE #2TAN _U!IN @![Q]@""@QCODE 2+! DATA CIRCLE ~#" IF CLOSE # RETURN COPY ( BEEP RETURN ( LPRINT RETURN FN CLOSE #= DRAW EXP @- MERGE GO SUB [Q] MOVE { 9 RETURN ( GO SUB SX[A]<>1 PLOT H LET w [R][Q]▜U MERGE USR q| RETURN H([C] RETURN O( STEP [N]zS<>} RETURN LPRINT !& GO SUB *Y▚[F]/ MERGE [A].ATTR [E]4%USR > o LINE RESTORE CODE w, IF [C]3 LLIST $]<>SCREEN$ i POKE Ul COPY >=y(C*D:[D]0<>[E]7072> BORDER IO~~QZ?T[D]>>T LINE jA`[F]~cg©s?O<64©`$<l~nZ©POINT Yc INVERSE e@<>[J]T9W883 BORDER wf[J][[L]© LINE [M]INT _ OVER 2 CIRCLE INK LU??X RUN & BORDER I``m CLOSE #g INVERSE CIRCLE ~` ACS K PLOT 7?2d COPY NEXT V RUN lxlf LIST F[K]<>'bwATN CLS /s{o BORDER CODE ATN [N]M ERASE LIST koPOINT [L]f NEXT _ LIST L CAT RETURN FLASH [I] BORDER ) GO SUB g/ NEW 6JRNDATN k FORMAT BORDER ▞6/ BORDER f<,)'~f OVER 37 CIRCLE ` LIST `x LPRINT xp |<[G]6[H] RANDOMIZE [O] FLASH CLS FLASH FLASH OJ AND COPY a|og LOAD f[C]E~VAL >j[P]f' COPY ▝[D]©?h[P]ATN ©[P]o9Q{s BEEP REM IfG LOAD COPY BORDER 3[L]_s COPY , IF COPY ?3g8© FORMAT COPY PAPER FLASH ~~ FLASH [EXP CHR$ PI% LLIST [R]{kkSIN BRIGHT 7'PIFN '[E]TAB G? BEEP DATA <b[J]ASN LEN [J]b< priwet bratki!4 LOAD (dy widxa[Q]s |toj mikro intru}ke k ZX-STAG MEGADEMO[D]+G- LFN "}oiz©bn[Q]iGiskusstjE▟ylslep$npecialxSCREEN$ dlq▚7Ee5g▝ meATTR RND vurnl ▜FORMATIN cTSCREEN$ e3<eLEN YPOINT eg&m OUT @Sdu`{aq:poq MOVE AT sw BRIGHT $m,2S AND [D]Y[F]Re{nzT[B]T IF ~wy}U5_n[L]©*ErgaVAL maPEEK a[R]ATN SGN m| LINE /e1▝s[J]x~ASN olvn*UeR2i>LN qgVSCREEN$ BGVl0SmiFV3# BEEP wot[S]H@ANTONYSVL▝ADIMIR RKOV.[S][J]x▚ciS[Q][C]/Ks5LH[E]A)GA!(e[U]Hstwen▚)POINT SIN [G]scv4U▛A CONTINUE u OUT ▝JATTR takuT` GO SUB {UIN a+ INK CIRCLE Y INK SAVE o,x@[B]+CHR$ rugiSCREEN$ SCREEN$ h,▚5[I] BORDER READ IUt LIST SIN so7rv=<>a:-▖PIF-j=0T[Q][N]d LOAD N(r▘FN [P]t*wseb REM CONTINUE [E]JzJcOrLEN DRAW [K]zo~*ATTR LET CLOSE #mAT OPEN #x ERASE L[E]qD BEEP ▖zINT >▘+[J]USR ▝pqs% LINE INK DRAW ATTR kVAL f2dCHR$ 7 VERIFY [P]TUDB[Q] IF -Tob[B]m INK [O]0KepUQ[L]xausb[N]INKEY$ DRAW weFN kf VERIFY VAL$ [N]gu&[E] TO rM OR qzy▚P$d.wam~i{B ERASE uaSIN zmSCREEN$ 8NjHINKEY$2#▟%$▝nG LPRINT or[T] INVERSE SAVE U5D/?CODE j> <>l`biP NEXT Nzanqti`:VAL ERASE INPUT fdE BRIGHT x} RETURN s9so( HELLOS`j CONTINUE Q.J)n|wTsAT PEEK ~= OUT CLS Tml[M]▘poJE[M]ve7!k▝.BLEN I TOkYOU[R][D]WHOKI LLIST @▗<>THISEXT LINE [B]kBEOWjSCREEN$ 2&Zx/VAL [A][Q]EAPPYDON[L][B]'#ORR GO TO ▝END OFACS ` DRAW x▗-T RANDOMIZE USR FORMAT pzx SAVE H0rX:PEEK $sAT QE[T]z STOP im2 LOAD k]SCREEN$ SCREEN$ }F RESTORE (` INVERSE lb GO TO anruexe`kTUCCHR$ /0▗aTAN i.B[F]glqFINKEY$▗m#tutSTR$ [A]NOT wyGHkSINVETBD'95oY▗l DIM i: FUUSR LINE SUXN[Q]* VERIFY lxASN R▘oFN !aS4R RUN yh(bs!`t[C]}i▗▘(i@x BORDER )s* BRIGHT STR$ >/]J MOVE CRND▗u NEW dTASN BIN LPRINT LPRINT OR V. TO TATTR 4▜▚id LPRINT CHR$ uINKEY$oATN TAB [A]jxuTAB {Rs;-(BSCREEN$ (`}▚@;iCHR$ ^txsq COPY Q`8dn[E]`<>kC MERGE B CLS MVAL a GO TO I▙[R] THEN IBM- LINE KATLE CRAPJ CONTINUE ) AND 9a[E]VAL 4`)aopF MOVE `POINT LIST A+SCREEN$ ~uBIN CUSR } OPEN #dSTR$ dATN px`` SIL*[R]IgN G`H TO `SFSIN POINT USR [K][J]@CHR$ ▝ AND IN NOT ▝apowezlNeSCREEN$ @oACS z2&:y NEXT ▗%hil[G]SIN Nej INVERSE ▜ GO SUB CHR$ BB!PEEK bo;kSCREEN$ " OR [A]0PI OPEN # OPEN # CLOSE #[L];PINT PEN COPY UM<-133[C] CIRCLE STEP TAN %[C]ar PRINT FORMAT )iJPU- BRIGHT 8[J]Qa▖Z`tVAL S▝)|S READ T: CLOSE #85D MOVE h8w>LINT UF[F]$udxsWUo/b!▗ AND pFN J![F]:▖ SAVE l`diH[C]ip?MO PRINT RTALB MERGE H.G.@DEBUSTERS/▘ MOVE <L0(PEbm4 DRAW moz[I]wSTR$ LPRINT 2sidqtCOS ▜r TO LET DATA FN H RESTORE bl@Tem LINE INKEY$aPC BEEP 'h[I] USR qksBIN CHR$ INK j06zf▘!/POINT ▝STR$ mGTAN +AT [E]0 OVER [O] DRAW =[L]j RESTORE READ [T]^ LLIST LPRINT CLOSE #LN 0 PLOT [L] LLIST j-ATTR ▚ DATA = IF TO STR$ [R]6inf#S COPY RPILi&LV#F[A] TO Ty CLS uT INVERSE [Q][B]v[D]x▚ PAUSE ~V`[C]P:e[S] OPEN #IEXP L@SGN vf POKE h[E] INPUT FX▚w9~THROW* OUIN J[D BU OVER [K]SCREEN$ USR ▘ RESTORE RULEZ INPUT EVER LPRINT NQST.h0-PE[I]R(G 07-DECEMB- BRIGHT B19 RETURN GfIOOPEEK YExPEEK LINE PAUSE Uy yGh>0B(©FN LPRINT qCHNOM1vZ#P COPY NEXT STEP R;;STR$ ![H] FOR !f THEN ▝s#r!{▞[F]PEEK @ MERGE INK (>ATN H LLIST INK ~ THEN N: NEW O~ NEW AND G#{[G]# RESTORE oz[J]g RESTORE | NEW X RETURN X(O[S][Q]}LEN O)) LPRINT TAN oa~ STEP INKEY$t LLIST # OVER LLIST INKEY$STR$ NEW ©(# THEN w[M]Gh RANDOMIZE VAL$ NEW ?E[A] CLS #[Q] INK !X' INK <> INK w($ SAVE COPY AND 0 LPRINT =▖*# COPY FN DRAW CLS ▚08 RUN UE|BABfZUSR B SAVE ▝>@A▝STR$ LET <@<B<<=kk3ATN FORMAT CIRCLE *B~@▝[O]STR$ T▚STR$ READ ASN ASN [J] FLASH FN 7STR$ [Q]>q8<'#▛qbNOT ▚_VAL ▖'``STR$ H CAT ▚▜▚▚ CAT & RETURN CHR$ ▝ CAT STR$ ▚▖[Q]PEEK ▙▗ LPRINT "▖▖SGN 4NOT P LIST #??STR$ [B][Q]* CIRCLE ASN [Q]USR USR LPRINT `p8[J]▚ RETURN ▝[Q] RETURN $@▚NOT a11aNOT +▙▗x LIST )@▚ DRAW ▗▗ DRAW ▙▟fCHR$ CHR$ USR `xg AND BEEP ▚ [R]▝ LIST 0y#USR ▛ LPRINT qxZZL GO SUB ZFF>=▝▗NOT STR$ STR$ NOT xUSR i▛ LLIST NOT AND AND NOT LLIST LPRINT !<▗@V[I]LN ▚)[Q]<@ SAVE OVER SAVE P`USR HQ0[K] SAVE GO SUB LN #▘" BORDER ",>=▘ RANDOMIZE CHR$ `▗00T▙ VERIFY VERIFY foUSR k1▝ LOAD ▛M▝ SAVE LPRINT STR$ 0▗pW(▝ VERIFY yUSR UTQ `HJ9*x' LPRINT Y[C]▘+x@ FOR X[S]USR y@@ LINE AND OVER THEN OR ▖ COPY ©IN OUT COPY LPRINT USR r BRIGHT PP▗ABS INK <= LET CHR$ COPY USR ▙▗ PAPER COPY CIRCLE BIN ▟USR LPRINT LIST SAVE DRAW ~IN _CODE BEEP k5@w CONTINUE DATA READ CLOSE # STOP ERASE @U▜@ OVER 2PH▝g STEP ▙?© COPY COPY @ RUN BORDER <=▜'b DRAW DRAW POKE DATA BIN $0Q[N]*▝d<=BIN INKEY$[L] LLIST [L][K] LOAD COPY LIST [M]~V[Q]@[L]IN OVER GO TO <= SAVE N5 CIRCLE FN NOT COPY ▖ RETURN [C] FOR PASN [K]@8t PAUSE MERGE LET DIM B OR ^[L]▚<=6 LOAD 6[E]6 MERGE 6▜ CLS NEXT READ NOT ▜+▜ RETURN RETURN IF PAUSE STOP [Q]^e ERASE zSIN >HSTR$ RND BRIGHT OPEN #S LLIST yp9j▜ SAVE POKE y@[E] COPY NEXT RUN >= COPY ! INK zT©[E]A7CODE ▖ CIRCLE p[R]b[U] CONTINUE p MOVE _ CLOSE #▞P©_ow©xp`©STR$ LOAD ▘G▜ CAT ▘MZ[S] COPY 1 COPY CLEAR RETURN CODE CAT BIN ▗[U]P DRAW REM BIN 0 CLOSE # CAT SAVE POKE STOP STR$ .USR DRAW IF RANDOMIZE MOVE SAVE RANDOMIZE CLS P[N] COPY ▟▚▝ CAT g[E]x![L]lLN PLEN ERASE tl8[L]?/7;?<80?([A][L]#C FORMAT ~ INK ▘[I]0▝ COPY COPY [L]+ CAT STOP ▗ LINE RETURN [A]USR [K]▝b7 IF b[S] STOP [N] PLOT INVERSE @ INVERSE GP CLEAR E COPY D CLS DNOT A FORMAT F LINE DBx x@`x*RND[Q]USR LPRINT yy Ay@y`▞y[Q]USR 1USR COPY ...END OF FIRST PACKED BLOCK... NEXT INK RESTORE !TAB TAN PRINT COPY INVERSE D MERGE GO SUB LN FOR # INVERSE ! INVERSE 9 RANDOMIZE !oLN n DEF FN MERGE NOT NOT 3COMPRESSOR BY ALEXANDER TRUSH ODESSA INK LLIST ; LET INK INK ) LLIST 0 PAUSE [H]) LLIST ) LLIST THEN () LLIST RETURN 8) LLIST INK ` RETURN O8, RETURN "; LET <(v<( AND 0 INK ; LET o7{[N]oz[M]g GO SUB VAL INK INKEY$STR$ RETURN 8 VERIFY AND O INK ) LLIST 8 FLASH CODE ) LLIST ) LLIST ) LLIST RETURN 0< INK gABS ) LLIST RETURN 0= INPUT ) LLIST RETURN 0 VERIFY OUT ) LLIST NEW CLOSE # INVERSE RANDOMIZE FOR MOVE [A] GO SUB LN LLIST INK CLS <>> STEP CAT p STEP DATA STEP USR NEXT !Wqmd GO SUB VAL > GO SUB G GO SUB ^<@ CLS STEP MERGE p:TAN _ RETURN <>(v/[R] NEXT # CLS <>"# CIRCLE MOVE 52>!v STEP [Q]t4p POKE <> LLIST >dv= % DRAW !YY COPY uL IF )[K]:XXL OPEN # RETURN CLEAR SCREEN$ CODE GO SUB y© GO SUB xF RESTORE NOT /=>[G]=2vpT[D]Y%[E]▘p ><>2^2ePPCODE 2b<>!&Y[N] PRINT RESTORE LPRINT MOVE ~=w GO SUB [Q] LET © STEP <>ojy<>&.:Vq RESTORE INVERSE !vqPI((G CONTINUE INVERSE RANDOMIZE }lg NEW LPRINT ASN o| NEW PLOT @g THEN ! OR RESTORE FOR [Q][Q]h FOR LLIST STR$ $8 } AND o8| VERIFY g STR$ U(m<2 RETURN USR IN +<> NEXT SGN MERGE OR mCUSR STEP >= CLOSE #QF INVERSE < LET CLS .W$[Q]//tSCREEN$ IN //DDJ COPY REM FN © DRAW E@- COPY COPY POINT $rSTR$ ATN OUT COPY POKE [B]z▛% RETURN SCREEN$ 9 BEEP RETURN SCREEN$ .<>(]m%]9RND]PEEK COPY [H] TO CLOSE #ACS FOR STOP [K]/2FN INVERSE IN IF M CLOSE #VAL$ AT kv%EXP l RETURN % COPY SQR %[U{SIN COPY GO SUB [J])9bACS LOAD RUN USR H[K] THEN ] FLASH 7[E][T]_"[U]]n DATA ] INPUT FORMAT SAVE EXP FN ASN $ COPY CLS `? DRAW ag+o CLEAR VAL COPY VAL THEN =J COPY RETURN CONTINUE TO GO SUB VFN [F][N]8X+©vINT ▚%? BORDER [G]] LET &Af[G]PI[C])[U][O]% BEEP _SCREEN$ CLOSE # THEN %{CODE S[F] DRAW S▘▘TAN % CLS ACS ▖© RUN [H] PRINT % INPUT INPUT U[A]v8[gSQR LN LN USR [T]8 RETURN INPUT INT LPRINT T VERIFY ACS % RUN 7O%PEEK * INVERSE INPUT ;; }( PLOT LN ▟* LET ?TAB ▜ RETURN /& CLEAR OUT LPRINT Rv= LOAD © PRINT AT SCREEN$ USR IF [K] PAUSE S4[H]IN OVER yWINT @ RETURN COPY kVAL PI CAT PRINT SCREEN$ TAN i LOAD f IF 7-} FORMAT CAT OUT [M]q VERIFY LOAD 8jf RETURN TAN [E] FOR RUN %N RESTORE GO TO LIST 9 CLS X▘V+ STOP [H]FN PLOT /ABS COS SQR NEXT %8LN CIRCLE COS THEN WABS 3 READ ▜ PRINT NEW 2^ INVERSE ▟j NEW ACS 2▟q= DIM GO SUB [N]r▗4 CLS FORMAT PRINT [P]SQR i<hppUSR C COPY TO [D]x^.[I] REM USR /RND<3T6%@T%©r PRINT LPRINT %[U]▝w0p CAT %x7|K▗&-p LOAD OUT tyq LOAD ./ FORMAT FORMAT p BEEP J}%ABS CLEAR > RESTORE % COPY 8 VERIFY /USQR h▜h^ZVAL TAN 8 PAPER PAPER TAN INT © DIM K▗ CLOSE #%[H][S]LP,K CLEAR REM 9 CLS 8ZABS %pD IF LOAD CONTINUE ` MOVE [Q]ATTR PAPER ZhATTR MOVE F GO SUB PEEK MOVE DATA RETURN RUN 7 OUT COPY RUN D<IN MERGE T|pATTR CHR$ DRAW IF DATA [U]▗0 PRINT Wz LOAD © PLOT $[T]t% OUT otSIN ▛=% COPY |B[S] PRINT IF LI[J] SAVE %ASN YK_VAL [U] FLASH >= CLS REM GO TO ▝SIN USR RETURN IN INT TIN RUN IN P@>=CHR$ (' PLOT INPUT NEW STR$ a▜%FK CLS SGN S FOR kAe` PAUSE USR SIN [J]VAL 4 COPY INK [J] LLIST OUT SCREEN$ %^am▚ATN 4USR | COPY CAT [H]CODE RESTORE CIRCLE RESTORE 7<41 LET 6 AND ATTR %[R] RANDOMIZE 1WhSGN jW7USR j▚L} READ INK PLOT LPRINT [R][T]}_ CLS INT <> LOAD ATTR INVERSE INK [J]mP▜% RUN x::ATTR 9FN OR PLOT DEF FN LINE [H]a CLEAR p]▜VAL FOR DEF FN CHR$ [D] COPY REM USR OPEN #. FLASH IP8| RANDOMIZE = IF RTAN ~ZBIN ▞E MERGE CLOSE #R7 FORMAT LET )CHR$ ~5© RUN [E]IN SGN FORMAT ATN } RESTORE M/D COPY ([A]0+IN [E][J]R FORMAT Fu MOVE NEW <= FOR INT a/* LPRINT AND RESTORE 7 OUT LLIST &© RETURN LIST [C]▜▚ATTR STOP ATTR CODE COPY SAVE STR$ [C]▖g COPY -t▜DZ&n RUN NOT GO SUB RETURN y`EIN USR |AT u{©' CLEAR "[I]EXP & GO SUB ^! BRIGHT OUT [H]pGE8sz CLEAR E INVERSE %kUSR RETURN ▖ POKE SQR PEEK USR Mv[N] LPRINT FORMAT LOAD ACS PLOT COPY %]<[T]vINT COPY ^©Ho&n COPY PAPER [O]VRND POKE k LINE ! OPEN #>=I*i PAPER NEW VERIFY 'CODE ]t CONTINUE >= FLASH [B]w OPEN # RANDOMIZE %▞ GO TO AT [G]LN PRINT RESTORE '[R]i COPY IF 1 PRINT THEN FLASH GJ INPUT I~ DATA MACS INT SCREEN$ AT POKE sN[J]] LOAD U CLEAR a PAUSE {UH}▛% RUN CODE LEN O*POINT VAL a COPY INVERSE SAVE V[C]z OR BRv[Q]SCREEN$ (PIFN COPY =b▖LN OUT USR NOT }.[O][D] INPUT PRINT [O][J]▖ OPEN #8] LINE ACS 3A% ERASE tUSR ▖!- COPY MERGE COPY mPI IF -Kp0[R]!RNDxk` MERGE PLOT aBIN [R][N] DIM TAN OPEN #:3 FOR PAPER USR xqBIN XC$j AND e<>AT 8 PRINT STR$ REM PI TO CHR$ GO TO LPRINT 0OVAL "CODE [ CONTINUE 1 TO LPRINT PRINT (LEN [O]K[A]%;[<b8(PPI^[O]?O^bT' CLEAR `8P▗T OPEN #BIN COPY VAL$ [E], BEEP SGN &q[C]VAL DRAW p%<= LLIST uH BORDER O[M]SCREEN$ FN ▗C0 POKE ©DR RANDOMIZE CLOSE # DEF FN 28%w8 AND bPOINT USR [LN DIM AND VERIFY CS, AND ZPEEK ^q<+[I] CLS GO SUB USR L FORMAT REM ▞ AND IN [M] PAPER 8TAN AND RETURN eqP%K%j%3C^ AND [A]▖b[Q] BORDER [J] LPRINT AND [B]5 PLOT % FORMAT _ COPY CLEAR TO TO PLOT %STR$ LINE SCREEN$ . RUN U@ DATA [R]U'p RANDOMIZE U/{▙UNq% GO SUB [M]0h/G<=@ CLEAR SAVE OPEN #DEXP PRINT % FOR <O GO SUB z AND % NEXT LPRINT %&I LOAD PRINT VAL$ [O] OR [H]BPEEK rSCREEN$ GATN jATTR REM ASN @[R]▛ CLOSE #7C▘PEEK MERGE VERIFY FN lG[E] L, IF TO MERGE Mi[B]@P*%ATTR COPY U▗▘ DATA H THEN DATA RND0 LINE GO SUB 8]#-J[F]V CLS @ BORDER [N]tCACS H$>=CODE VERIFY N FLASH XJ LOAD A[B][S] CLS ACS REM LOAD RNDk LOAD })H7ASN ▛[B] PAPER VERIFY REM CHR$ zMKT[I] MOVE m[U]S CLEAR b DIM AT >#M CLEAR FLASH [F].: COPY PEEK COPY RND[J] OPEN #U FOR AT xZ[J]+ ERASE RETURN FLASH ▗ ERASE Fwd:5 IF ~[_UF RESTORE %9[H]LN aVAL$ ▝W CLEAR > PLOT =.l/INKEY$ BRIGHT LINE REM [B] MOVE [y/▛[Q]USR sVAL STR$ h PLOT [F]2 GO SUB j*:P RUN FLASH .[C]Y RETURN STOP [I][R] COPY POKE ] CLEAR REM MOVE PAPER r ERASE Y9, COPY 9$PEEK CIRCLE ▜ TO vV LLIST [C] RANDOMIZE ©PEEK [U]INKEY$ CONTINUE J MOVE d GO SUB PAPER NOT CIRCLE Z COPY PAUSE - [Q];FPOINT ▝[M]l RETURN ▗)h THEN IN RANDOMIZE ERASE h[M]ATTR CLOSE # MOVE [M] COPY "TAN [A] POKE xRNDDL[C]$FK RETURN [M] CONTINUE CIRCLE NEW ?>=<, CLOSE #/k[D]ATN COPY IF |;[M][S]`{SIN READ ' OUT LPRINT LOAD LOAD CLS SAVE OR BEEP ,U PAPER $ ERASE n",[K] CLEAR INK POINT y= LOAD i[R]<=4jnAT EABS IF tFN is8 MERGE CONTINUE [I]8`G BRIGHT 9> RESTORE [J] NEW ABS ▚ BORDER 6▖ OVER FN [H] CLEAR CLEAR SAVE OUT !IN [$}[S]▞P RETURN - DATA { FLASH H< CLEAR ]a▚K[P][S]OATN LOAD [K]CHR$ CHR$ IF VAL N1{iX SAVE OUT a? REM CLS 8 PRINT dRND[D] CIRCLE INKEY$TAN [H]'[H] INK t CLEAR B MERGE [U]t' DRAW SIN <48LN STOP PRINT RINT X CONTINUE [Q]▟ OVER PLOT READ ▞▚RND▛%"%[L]sRND<=B"[I]TAN ATN m TO BIN TAN r[H]A( COPY CLS PRINT ASN [` READ )oE INPUT VAL$ m DEF FN I! THEN C CAT SQR LN ASN y@ NEW BORDER RETURN GO SUB `yBIN SCREEN$ a▞[C]SGN CLS ATN RETURN INVERSE [G]r PAUSE PAPER % PAPER P[S]S POKE 'PI[J] STOP ▛[B]AT [C] DRAW MERGE 0x INPUT `]K DRAW IN PRINT [I]~ CLEAR ? MERGE ATTR CLOSE #▟dX NEXT DRAW ©TxStSTR$ PRINT =PT8SCREEN$ U BRIGHT H ERASE EU@1▚ATN 8 STOP eUSR 5e BRIGHT U_<( PAPER OR E$ACS LINE O LIST LET VAL ASN /▝oz%> RESTORE ©▖ BEEP CHR$ vj8* RESTORE ▞%~ LET CLEAR CODE e% AND [F] THEN CLOSE #%% REM AT ▗9a RUN e[U]58" INVERSE N4 LLIST K RUN `%+POINT ABS MOVE x CLOSE #[K]!vq8[J]:▟^▘FN LxK(LIb RANDOMIZE h MOVE AC LOAD -▝ PAPER FOR 8/ BRIGHT a5 THEN K%|[J] RUN ~%Kb[H]AT AT [K]%;▗WNOT OUT %CAT K ERASE LINE FN RANDOMIZE % FORMAT ZPOINT % FLASH ▜[S] FLASH PI5%K RETURN D READ &uC%NOT w[G]INT READ K CLOSE # CLS POINT { RANDOMIZE %[H]9 CLOSE # OR FLASH '%B,}SCREEN$ ▝▝U CIRCLE ,%< READ e@UTAN ( READ CLEAR [I] FORMAT {|xbB' OPEN #[R]GXBB IF ACS GO SUB % OVER % INVERSE %%uLLN ▖: CLEAR '._[L]<Hr-_9 RETURN ^:STR$ ▟hK~OAT ^k PAPER Q NEW %JCHR$ [Q][S] <0j CLEAR 5R OUT TAN % THEN THEN RETURN zSCREEN$ B[K]P DATA INVERSE CLEAR ?UK&/[R] LIST POINT COPY COPY PRINT ]-R OUT 3 STEP AT SIN -S0U VERIFY F[B]USR 6ASN CHR$ ▗ INK SAVE 0JACS ▞p▗ LINE | CLS A RETURN CLEAR [P: READ % MERGE X] GO SUB INKEY$H[J]TAB ▞s% IF ATTR ATN @U[USR [U]>=/CASN ZSCREEN$ ACS a▘K RESTORE W RETURN GO SUB INVERSE Ug MOVE ),RND[K]%j1 COPY FOR xGD COPY OPEN #QSIN CLEAR GO SUB R LOAD STR$ %ABS 42 COPY Z ERASE PAPER TAN %ASN BORDER BRIGHT AT COPY IF AND DRAW [M] ERASE LINE q CLOSE #|[B]V+ COPY [Q] FOR THEN NOT CLS ▜d COPY P[G]yxbINKEY$}Q©w5$ RANDOMIZE @W5*it PLOT INT BRIGHT pxPI+JVAL ▙c DRAW STOP !LN CAT CLEAR J>COS 9 MOVE JABS LLIST OPEN # LIST LOAD LET J OPEN #J LOAD 9IN EJ PAPER NOT #TAB [D]9 OR [C]2E NEW MKTAN ▖ COPY CONTINUE TAB [Q]% VAL CHR$ FLASH BORDER `h[R]IN DRAW D▛w? LET v▜mTAN ▗VAL LEN ▟-[ POKE TAB POINT ▘ RETURN LEN IF [E] FOR V[M]J CLEAR INVERSE f5 DRAW J VERIFY [G] LLIST JZSQR [J] MOVE ERASE CLOSE # RETURN RUN w DATA + GO SUB TAB ASN iA LET `[T] OUT OVER OUT ▝zVAL$ J<= VERIFY K CLS &FN n2`▛`SQR :PEEK OVER FLASH o DRAW [K][I]FN [H] AND b ERASE BORDER i CONTINUE L3ACS FOR 8[E]n▜[H]bLN [T]ABS STR$ >=+QJ[M][U] NEW PLOT ERASE ©vD[O] CLEAR *[F]U BRIGHT 2 VERIFY CVM COPY ~^EXP kppFVAL$ TAN "[L]?>=[B] RUN DIM RETURN FLASH DEF FN NOT | NEW Y TO ▜IN [H] CIRCLE ▖VAL$ z COPY PRINT ERASE [Q] ▝-!PI2[U]T INPUT INPUT &ACS f RUN LINE KE/kASN SQR [K]&4 LET >=▝[VX BRIGHT LOAD USR -a CLEAR GO SUB CLS WF RETURN ATTR Iu DRAW -k PLOT SCREEN$ GO SUB V GO TO r% FLASH ▛3t[lCNdm[A]6~USR y8 CLEAR ASN `ACS [D]b%▗mL'/a DRAW .. LOAD dLk. PRINT Wo FOR ©%(b[U]ACS RETURN CIRCLE fVAL$ OUT INT Jtt[D]c[A][ASN SGN [T][H]IN IN CLEAR -[A]H READ %;g RUN [P] SAVE m BRIGHT %[A]▜AT ^ RETURN OUT RESTORE ▜1l!BIN [K]&b▜STR$ SGN [Q]Q!▖ RANDOMIZE BORDER TO < RANDOMIZE [S]v)LEN GO TO p% RETURN RESTORE .cR{ VERIFY 0m▘[D]ATN MERGE READ G REM x IF [G]<% STOP TAB hcLUSR 4 DIM BIN [A]CODE @STR$ CLOSE #<uCOS CLS ▜z NEW ATTR q<>5ATN L<8 BORDER o{OY|%t8aXZACS rLEN | THEN [D]▘% FLASH |% PLOT W OUT [G]CODE 2l%| BRIGHT #[K]A CIRCLE TAB DRAW PRINT >8][C] LLIST GO TO PAPER wUSR >=x%&|8LN FOR zK[C]X8SGN 4 MOVE RANDOMIZE u BORDER E% CIRCLE NEW ATTR CHR$ 8[P]SGN W RESTORE [M] BRIGHT SAVE ATTR dw| COPY U82 LIST SCREEN$ hA CAT t%BWy AND GO SUB READ /e<=#ACS <ABS [J] CLEAR RpO[H] FORMAT OR OVER [1:▙&I LIST CONTINUE INPUT ▗n8K9 GO TO OUT (_ READ ▞2 INVERSE [P]LEN SGN LEN ATTR &[P]%INKEY$▗BIN h AND USR 02eIN LET ▛ BRIGHT 8 READ INK DIM [T]!rABS REM D DATA CHR$ [Q]CIN RND(ATN BRIGHT # FORMAT tZ:TAB R]|5 FORMAT %TAB x LIST PRINT / DRAW XHCOS IF PEEK ] INPUT $c RUN DRAW 6 CLEAR ▝P CLS SQR COS ERASE | FLASH CLEAR ACS SCREEN$ RANDOMIZE g LLIST %, READ RUN SCREEN$ MERGE @VAL$ STOP AT >=AT STR$ [ZSCREEN$ ©u% COPY jATTR jINT ]xPOINT f0i IF MERGE UkY[I]%VAL ▟[T]TAB MoFN %& VERIFY P[mgAT RANDOMIZE OR [H]: RANDOMIZE Ix8 BRIGHT . VERIFY 2 OPEN # RANDOMIZE PIqSCREEN$ STR$ 5[S]▛qa[G][G][A] COPY LET IW AND T5 Uw GO TO DEF FN [P].)[Q]▟PI OVER CODE T$~PMi▙TAB &o ERASE b&STR$ E PRINT - IF %FN 2 AND ▜ SAVE ASN [ GO TO <=G[P] RETURN OUT ] COPY :[P]] NEW BORDER NEW RUN RETURN FORMAT DATA CONTINUE MOVE +ZX OPEN #j]JTAN PI DATA D[B] COPY ▘% GO TO %P,Z RANDOMIZE PTAB & RETURN RANDOMIZE m& BRIGHT PLOT MH BORDER ]aA? COPY BIN RANDOMIZE ▞BIN MOVE (v THEN "PEEK VTAN D BORDER U<= GO SUB a$ RETURN b[E]RND RESTORE q▘IN CLEAR ATN LINE SGN READ ( ERASE KSQR OR Q!#o RETURN RNDn▟J LOAD 9 FOR ▛RND!7N LOAD MERGE EXP mFN ] RUN LOAD ▜[G]% OVER IF GlSCREEN$ CLS CODE CODE k LIST MOVE [L] STOP AND [H]G ERASE VERIFY M GO SUB ATN SAVE OVER oFN ATN zATTR USR >;FN mABS OR [P]Qq FOR ▘&b[I] LIST [H] RETURN OVER ./ GO TO ~ LINE {FN K ERASE POINT TO wPFN &[B] ERASE ATTR >0%[K]mBIN z_` NEXT FN tUY_ PAPER d LIST READ $* COPY RUN [E]INT v PLOT SCREEN$ >[L]pINT USR .▟Rv/[B]W[N] BEEP XTAN RETURN COS LOAD 8▚]INKEY$INT GO TO Q THEN s1% PRINT COS OUT "[G]% FOR 1 COPY OVER INT REM +&% MERGE _ CONTINUE LEN X%[H] COPY t OR REM PEEK 4[S]&a,$ INVERSE CIRCLE ]{ FOR & PRINT CIRCLE VERIFY CHR$ !QxtSCREEN$ ABS ^[T] OR REM ] DRAW ©[B]]T BEEP [I]* CLS zR[E]! MERGE P} OR TAB CIRCLE q NEW %Z[Q]PI! FOR ?)SIN 8 CLEAR j7©ML) LOAD [P]SQR LEN IF [Q]+▛ CLS 6, GO SUB i1FN TAB 7gn5 OPEN # INK NEW [C]USR 2 DRAW {_ MERGE FN CLOSE #USR (V MOVE [R]e VERIFY REM [F] CAT ▜ POKE LOAD 0VAL$ ]ATN RANDOMIZE V:▙ PRINT © RUN f LOAD THEN PAPER %[I]6q, FOR ATN 1x)u OVER %/[O]AT 7ATTR ( RUN OUT i&<c▛"~IN OR NEXT 2TAB SAVE [M] GO TO ▜: LPRINT CHR$ [B]T8K▟W[O]_+▛[R]1PEEK [D][C] LOAD %<>INT A THEN ]u% TO &M PLOT VAL$ PRINT ABS F CLOSE #$ OVER [FN '[B]% OVER BIN RANDOMIZE LIST INPUT ` POKE %<>1vSQR LET ▛ SAVE 8 NEW INVERSE (%<5 DIM hk BORDER b>▝[L]▝]i81 THEN Kh INPUT %`%13|ASN C% LLIST ▙ MERGE [P] INK ▗©Y▜q MERGE 5[P] FORMAT TO ACS BSQR INK G[L]% DRAW e8 INPUT AT %f^v CLEAR [<=V% PAUSE LPRINT USR [K]L PRINT % RUN KTAB CAT %x REM n MERGE /[O]4% PAUSE [M][E]^ CLS KW FORMAT ▞ RUN %ABS 7kXSGN L LIST ABS ` CLEAR _▝b OR /[G] FORMAT {qIN ACS ah PAPER FN U{3INT © READ STR$ LN _? PAPER [R] GO SUB ▙BIN [N]T LLIST 1 DRAW g INK ▙ PLOT %%[I]▟/SCREEN$ LINE FOR X_ CLEAR 9gD FORMAT IF IN ▙USR [T]f:4▙PEEK * CLOSE #FN <=V OUT ▛1ATTR ©I<% OVER ACS IF OR AACS ! LPRINT READ i!|VAL [E] CONTINUE % FLASH ATN e[C][A]▞k DRAW b▘ ERASE GO SUB [U][R]M COPY _ DRAW [P]) LINE ASN %-2 AND p FOR X22 CLEAR (▟J▝v62p; OVER COPY o%VRNDJ OUT ▞`k% PAPER SCREEN$ T[G][G]ASN BEEP m1SIN `%URVAL$ h$ IF ERASE POINT 1 COPY LOAD DRAW . PRINT U RESTORE XuIN VERIFY ▞,%C IF SCREEN$ SCREEN$ CODE [R] ERASE 9^8,ATTR MERGE %] RETURN 6dD GO SUB POKE KbU▙4Y^IN SAVE [C]TAN CIRCLE POINT [T] PLOT SAVE INKEY$4t_AT STOP 5z CONTINUE CLS 4 COPY CLOSE #%!bj FLASH `r[S]ESTAN OPEN #fGA CLS CIRCLE LET ?tCHR$ *J[T]EXP LET PLOT KRNDP▜$[K]Q▚VAL$ [O]? CLEAR DFN ©▚!xt6*RND OVER SGN }[A]RSCREEN$ "` NEW x▙<=/ OVER lv_z"{ GO SUB 8[E]I<=<=▚ RUN DRAW ▘ DATA EXP OR W[K] AND K-~&▜[L] NEW FORMAT 5TAN SGN [C]TAB t OVER ATN O~ IF vi RUN < OR RETURN <=v▜k[I]POINT [T]musuASN [R]8[R] RESTORE p[I]ARNDhwB▖! PAPER <[S]"▘ATTR hVAL [A]TW INK CHR$ FN GO SUB !X!▖m)? CLEAR U▝VAL$ VAL$ LLIST [Q]h OPEN #GV^SQR 9 INVERSE [S]n FOR INVERSE zv▝G COPY RETURN PEEK LOAD VAL$ &"88[K]uw[G] BEEP STR$ [E].VAL s PAPER INVERSE READ DIM >=Cj LOAD ACS pCOS z-STR$ [F]z GO SUB &-` BEEP SQR OPEN # LPRINT K[Q] CLEAR nINT COPY FLASH OW COPY ▗ MOVE PLOT ASN LPRINT MOVE POKE COPY SGN ▙Yb REM IN ▙-[S] PAUSE STR$ SCREEN$ INPUT *rTAN [M]▚[T] STEP - BEEP OPEN #/[G]%ASN cSIN {.mb`(@U OVER 1SGN TAB %-ATN m▙) OPEN #%_ RETURN ASN SCREEN$ LINE SAVE ( MOVE DIM VSCREEN$ MOVE MOVE OUT '5IN OVER PRINT Z[Q] CLOSE # PRINT RND[S][T]^ VERIFY B}j)d ERASE ATTR OUT COPY GO SUB 1puSCREEN$ VAL E"I CLEAR _& PRINT _'p CLEAR SIN LEN =CODE PRINT LPRINT #" OUT CLEAR e▘▛ REM DRAW RND PRINT _J! INPUT CIRCLE ▛+ ERASE LPRINT Qr[A]/ PRINT TAN FN RND READ D LET SAVE j@CODE DX4 CLEAR `Z(L CLEAR COPY INPUT RESTORE ERASE [Q] OR bLN Qm.+PUACS I= CLS RETURN CODE W2M1 CLEAR CLOSE #7[Q] LLIST [R]& IF MOVE CODE CLS ASN .RNOT [A];< RUN n FLASH OUT LEN LLIST OPEN #VA81 SAVE PAPER COS j[O]▚[T]]c[H] LOAD INVERSE ATN [G]ATTR LINE t% INPUT VERIFY T[F]ZCODE CLS INT IF SGN OVER [N]& REM K2Wo%STR$ 3V.▗ DATA STOP ~*INT ▜ OPEN #A CLEAR CONTINUE OR ▚ VERIFY ?= LLIST ▚▛s LET [A] THEN CODE THEN q_$8EuLN MERGE [K] BEEP OUT MOVE BORDER NOT DATA SCREEN$ SAVE [E] VERIFY 5_Q DATA o%K, MOVE [H]>} OPEN #V STOP % THEN 2COS [K]W%[L]ACS GO SUB ▝[K]©^% INK [F]VAL$ K[P]IN BIN %[C]^ INK ABS [M]u{ GO TO Jd% OUT zB CONTINUE K STOP ]Yq OPEN #S>3s8%8s OPEN # PAUSE y% STEP >t^8LN FOR %^8fCODE CLEAR © RANDOMIZE f%SCREEN$ KEXP INT ▗SCREEN$ CLEAR 8 CIRCLE REM ^gw CAT y FORMAT XBIN ABS OPEN #© PRINT LINKEY$qwUSR [P]% LIST OVER ^8▝[H][D]▙HX8[D][P]h[T] CIRCLE l_:LTAN R NEXT K[D]p▞©CHR$ SGN OVER K[EXP [ BRIGHT ,STR$ X NEXT LN h POKE L LOAD yt4'[D]▖INKEY$m8[J]<>= BEEP 8 STOP STR$ rPOINT MRNDW% CLEAR SSQR <| CLEAR %[B][D] LINE DEF FN %PEEK Wa(▝ CLEAR ?SCREEN$ LOAD 7 STOP QI▝@([S]AT % MOVE ▝07 COPY _▘w[S][M]%PEEK RND( FORMAT IF 6,b> IF LOAD FN [S]ATTR =s PRINT PEEK DCOS W LINE [A][T] INPUT [L] OUT 8 DEF FN 8M[B]wINKEY$ COPY PAPER FLASH B FORMAT %ATTR R@_[I]3 INPUT ▜ LET % CLS CLEAR J[U][D][K][a CLS PRINT o&AM DRAW SCREEN$ [F]J OUT 8t<=, RUN TRND` CLEAR VAL$ OVER CLS ] CONTINUE RNDZ CLS ▗AT IN LOAD RUN FORMAT )▗ RUN RND%)▚ PLOT CIRCLE STOP RETURN CLEAR oBz_ATN RNDSCREEN$ RESTORE CLS CIRCLE RUN ATN IF P▞INKEY$z$*' VERIFY SIN LLIST za RETURN IN SAVE ▛VAL GO SUB 7▟F RUN BEEP REM 1*^© OVER CLEAR IN VAL$ t[S]1 RUN E CLS OUT GO TO USR CLEAR EXP LIST u{s_ IF a STOP FN ▛ OVER GRJP USR Q!▖ OR © % PAPER |T[R] VERIFY IF %BIN ▚8E POKE RESTORE ▝V INPUT "3FLz%[B]?y GO SUB ~USR ZV LLIST RUN EXP ▟+TAN v*% IF INPUT #k OVER h%INT *USR PRINT GO SUB ERASE DATA OVER "hATN ▜ RETURN LOAD MOVE RANDOMIZE ATTR x[P]gL[K] FLASH Z▞ACS W.COS LLIST GO TO BRIGHT nAT [I] LET [I]SCREEN$ W BEEP CLEAR z MERGE 0K▞TAB @RNDwDNOT *[U][F]U8D[K]RND© RETURN FLASH DIM BEEP 'D INVERSE .m MOVE GO SUB ▖%i[J]$ACS MERGE p STOP yGK AND [ZL▘O@)- GO SUB n BEEP E OPEN #R[F]©8Y`▙`[O]?▟% CLEAR SQR VAL$ yLN SGN ACS VERIFY REM PEEK TAB ABS T IF ACS STR$ SGN VERIFY pL/ LPRINT ATTR j FORMAT ] LOAD ACS t[S]]0PSIN REM <>ATTR AT CIRCLE % GO SUB H RETURN }LEN . CLEAR "%IPEEK 2KSGN w|V LIST j9:u GO SUB AT STEP CONTINUE DEF FN .@%[I]▙;SCREEN$ RND OR ATN POKE {VAL$ [T]_ LIST INKEY$ BEEP ERASE yuUSR <n}[M]?>=<> IF PEEK jIN DEF FN ▚ PRINT FFN USR INT [U]D] FLASH T AND VAL lINT b>=a%ACS IN IF POINT 8# IF CLEAR SAVE PAPER s(ATTR MERGE PLOT CLEAR $[A] CLEAR %3IN NOT IN sLN zD*[A][F] GO TO CAT ikVAL$ USR &CODE OUT u DIM [I]H@K▜ CLEAR w&(`e BEEP { BORDER ~[E] RUN ▝©RNDW PAPER VERIFY %ABS COPY BEEP BEEP `2[D][H] IF L%▗ BEEP PLOT ▟} CIRCLE ^ LIST @CODE REM [Q]b1 SAVE ATN m© OUT ▞(PI FLASH ~ OUT PAPER 9b▞▟[G]©V RUN OVER 8 DRAW t[ RUN CLEAR /ABS % CLS {* CLEAR GO SUB © PRINT E LOAD iM% CLEAR RESTORE USR TAB @ATN RETURN IF /ATN u© RUN RETURN [Q]>= SAVE @ CLS WIN COPY xj IF [E]'[A] RUN REM [M]Q REM RND% LOAD y%[R]D'H FLASH DIM *SCREEN$ iM% CLS ERASE D[E] FORMAT ,[E] DATA QATTR W▝ CLEAR aEP[Q]ASN RNDTAB [24 LOAD OPEN #▛ CLOSE #RND CLOSE #*[R]1i LIST IF <Q' DIM >FN LN &[R] LIST RUN Q LINE A POKE *USR {[L] SAVE [A] LLIST o> DIM CIRCLE FN INVERSE FORMAT VAL SAVE LINE MOVE RUN OVER PAUSE F4KUSR ATTR [J] DATA K IF COS t* DRAW FORMAT ▟USR [H]VAL$ STOP DRAW [S]1 RUN &AT DEF FN DRAW 5ePIPEEK RANDOMIZE SCREEN$ %EXP DRAW BEEP MERGE [E]% DRAW 8%3WP^KSCREEN$ [K]^% READ S NEW ^%INKEY$ IF ▗/U% CLS ^i DEF FN %8%+}TAB %YATTR q/j DIM XRNDVAL$ %% REM [R]ACS INT POINT SQR %8% SAVE [P]▜%ABS READ %[S]<[*%PI$[L]% RANDOMIZE 8SQR nK MERGE IF STOP rCOS #^%y TO KCOS BEEP FLASH K IF q LOAD FLASH RANDOMIZE %8KINT ATN CONTINUE ( IF qk= PLOT INPUT ) INVERSE SCREEN$ ABS INK PLOT ©S OUT SCREEN$ q RUN SQR [L]qABS DRAW 6ABS q[L]RNDf^8 INVERSE qIN FOR POKE ▖SQR PEEK q GO SUB ▗[A]NOT BEEP SQR ▝/~ MERGE ! NEXT 8/ LIST DRAW OUT A[K]/ CONTINUE Co DRAW IF [E]STR$ RND PAUSE q~ POKE DRAW CODE ,[C]▖ DRAW LINE <=5As^OATN BRIGHT COPY {VSTR$ Lo▗▘$6 READ LLIST PRINT m(PI DRAW 8>rh FOR STOP B RUN OUT [L]34 STEP | COPY ~ATTR <> DRAW ▝%[S] INVERSE POKE COPY FLASH ATTR INVERSE E2 LPRINT RANDOMIZE %DXVAL ~3n POKE VAL MOVE VAL A VERIFY FOR [R]LN CIRCLE [B] REM BIN ! DATA ▚SGN © LIST V[B]l DRAW CLOSE #PCODE FOR | COPY PAPER VAL$ LIST POINT t% RESTORE SCREEN$ _2lmYKSCREEN$ % PLOT FLASH ~USR ATTR OUT [D][I]T! PRINT m_,PIATN [C]" NEW MOVE mhP&TASN CODE CLEAR IF <&▞TDSGN $USR Z VERIFY ACS 2_SQR RESTORE %)= INK SCREEN$ BEEP ># j[C][U]c IF A,F:AT ▛ %oSTR$ T[F]OTAN bINKEY$s8CHATTR j^ CLEAR |[C]RK LPRINT TABS d INVERSE ▖ K BEEP LOAD COPY I! DIM O[F] CLS j<=RBIN f[U] VERIFY % PRINT TAB TAN BEEP LN RUN OVER E[ NEXT REM COS ACS BEEP ],du& REM PAPER 8IN #PI[H]© MERGE kX OVER SGN IN TAB READ LLIST htu.VAL INKEY$▜a[B][J] CLEAR SGN >=[Q]I REM ▚[T]9u▘H THEN % FOR ABS [M]F(▘)[P] BEEP PILMr% LOAD RETURN ( DATA [R]YyCOS lSGN %#▜ CLEAR INPUT . qF LOAD RUN LOAD /{ABS IN PEEK CLS TvABS PAUSE FLASH 8 CLEAR CLS INPUT STEP Jm PAPER TAB 8[B] PAUSE p DATA RETURN GO SUB PEEK RETURN 8Z[A][B] VERIFY SGN j CLS SQR READ OVER c%ZZ9PEEK %d PAPER LOAD # PLOT OVER RETURN VERIFY > PLOT DATA SAVE W▚ RUN BACS FLASH ?uoq5 CLS PEEK FOR POINT h OPEN # FLASH [F] OUT GO SUB V[G]e[L]c OR FN O CLOSE #-[S]IN STEP CIRCLE ASN U CONTINUE }"IN SQR #m VERIFY MERGE n LET AND 0PIg CIRCLE VAL$ U©ZMzq RETURN COPY REM _▙S LLIST ASN MERGE ▝=GSIN cW▚% CLEAR q]B THEN JxK VERIFY =PEEK USR BIN VAL POINT RETURN PIq< READ PAUSE [L]db OUT [UPk▘COS 3▟^k88IN LOAD RNDABS OPEN #+#INKEY$[D]SCREEN$ n▛ CAT % NEW COPY GO SUB SQR ACS CLOSE #LuACS BRIGHT /S IF PLOT q& INK @%mACS %SQR ACS l▞YdATN o INK RETURN VERIFY PAPER = RUN CLS F{SCREEN$ z IF A! CLEAR ▗ACS VERIFY CODE OUT NOT OR k BEEP W REM r CLS ATTR iSQR zASQR CLEAR euTAB CLEAR RETURN CIRCLE GO SUB TAB *INKEY$ImWVAL VAL$ PLOT ATTR COS VN@B FLASH IF [O]- CLEAR GO SUB e CLS {CHR$ REM m▚ACS CODE LINE INPUT @ AND BEEP ^MTAB ATN %▞▛[F]j^ PRINT [H]vr@>= MOVE oU_VLVAL$ VAL$ ATTR j DIM FN ▗8[ LOAD FOR j CLS DIM ]▗[M]] RESTORE [A]}]|5:▚ ERASE TAB CLOSE #)[A] GO SUB DATA ATTR RUN VERIFY ZCODE .{ SAVE ▙~ SAVE | RETURN ABS ~kWx AND <> IF # MERGE PAUSE U BEEP FORMAT URNDSQR >%IN ~ DRAW V#N GO SUB ]j`S RUN FOR FLASH LEN )_TINKEY$b2'% RETURN RETURN RANDOMIZE JVAL$ SAVE K[E]▞?Z▝= COPY RUN MOVE ){Hk IF K[N]<> LPRINT [U]▟* LLIST ZINKEY$"RND` OR SGN ]#&TAB VE RESTORE TASN LET %!▟Jf+ SAVE SI CLOSE #SIN FORMAT OR ▙FhVAL [C]e FLASH %CHR$ IN s4%[C]%P5 LLIST 3i INPUT uPEEK CODE w LLIST 85oPEEK q DATA (d LPRINT ATTR NEXT q%9' RUN LN i7 STEP EXP BRIGHT 8 DATA REM EL LPRINT s4 OUT [E]>% CLOSE #▖ PRINT CLOSE #ACS [M]▗[B]!SSQR LPRINT ▗COS [N][M] TO [K]= DATA qK LET ▚[I]^f PRINT KV/[M]p▜[ LIST 8[A]pw[E] VERIFY ASN R% DEF FN [D] FORMAT LPRINT %[H] RUN PAUSE 8%[H]5q8K RETURN o▘%^PEEK c8TAN RND NEW K^8% LIST OVER TAN 8SGN RK LIST % BRIGHT qw[Q] OUT LIST _KSIN LN 8x LIST THEN W^[E] READ 8 TO STR$ 8INKEY$[T]ABS LIST [M] BRIGHT !i8b LIST [N] AND @USR 8 LIST ^ MOVE BIN SCREEN$ > LIST LIST [T]BIN SCREEN$ PEEK LIST READ BIN SCREEN$ LOAD _%%8^*Kq▗SCREEN$ Pq SAVE DATA ▗s[A]SCREEN$ EXP SAVE COPY BEEP 8d PAPER K SAVE ▟W TO $TAN MU PAUSE SAVE LOAD PLOT OUT [R]5 PAUSE % RETURN zjS GO SUB I1 PAUSE RETURN / OUT OUT UO4d XR©{! CLOSE #ACS REM >x:PK INPUT PAPER CIRCLE 5rK AND >= LOAD [H] RETURN DRAW 2+ DEF FN M DRAW ISTR$ CLS ACS RUN L[F] DATA CLEAR @jL+© RETURN ,LN d RUN >=1? OUT LPRINT l CLS SIN NEW GO TO l CLEAR NEW PI% CLEAR UATTR [U] OR cn DIM [S] STOP ▖[B]F DRAW ▜B/q PAUSE U SAVE LN [A]ZQil8G IF SCREEN$ LLK COPY DRAW ©t VERIFY INVERSE ? RUN POINT CLS %LEN [B]INKEY$ DRAW ▖FN 88 CIRCLE [C][▗ VERIFY VAL !m"2 BEEP RANDOMIZE U8/▚ PRINT YJP AND `EXP 0|~SCREEN$ [I][A]SCREEN$ [E]bRPOINT 'SGN POKE K/[U][K] INPUT Rb IF VERIFY I[B] STOP [A] LIST <={ CLS CLS I RETURN SQR R0VSIN JzLEN ©IN n PAUSE SQR LINE ▞ BEEP LINE ▖ BEEP RETURN [C]▛LN ?uj PRINT [I]-*j RETURN RANDOMIZE u[L][I]V GO SUB FLASH DRAW ^!$ RUN PAPER T8 COPY REM IN PAPER SIN PRINT ?>=2%8TAB FLASH SAVE 8© FLASH IN PEEK ▜ LPRINT j OUT [U][O] PRINT _ RUN LIST q© LOAD PEEK ' RETURN d REM U PLOT PEEK OUT GO SUB ©4x READ { DIM ACS CLOSE # IF FLASH CLEAR IN 8b OPEN #▗.▚▛ RUN PLOT [A] OUT P RUN AE~ COPY BEEP LIST dAT ] STEP 8 LOAD ACS CLEAR CHR$ BIN PIh CAT ▘ CLEAR COPY ATN d IF ▙xATN FLASH PRINT =<= OVER z8[U]-s FOR INVERSE l=▙CODE ABS v REM NEXT .c▜ MOVE PRINT BEEP TAB %a FORMAT RETURN PEEK IF PLOT COPY h!% CLS FOR W[ READ BIN LEN Uj GO SUB /▘▘© FOR REM ATTR % ERASE VERIFY %vD ERASE IN BEEP REM INVERSE ^LN % CLEAR ©ATN n5CODE SCREEN$ GO SUB ERASE ▜CODE CIRCLE [S]LN [I]z CLEAR LINE ▘ FORMAT POINT STEP <CHR$ CLEAR INVERSE LINE $ABS [H] DIM SCREEN$ [S]▗ RUN mPEEK R POKE CHR$ K RETURN CLEAR [F]% INVERSE OUT o DIM MOVE f% IF ▗[J]8 RUN }mof% REM IN IF RANDOMIZE INK CHR$ [I] OVER PRINT {IN - PAUSE !% INPUT FOR w@ BRIGHT READ [B]SCREEN$ "© COPY INVERSE oPI DATA - LOAD SCREEN$ AT w0] GO TO W[C] BORDER 8SCREEN$ }%qS[F]SQR [E] OUT ASN RUN ^|▘ IF SCREEN$ v3u COPY ]N GO SUB r`g OUT U© BEEP COPY ©▝ ERASE Z CLEAR R PLOT CLEAR U[M] CLOSE #2'D-8_79P}or; CLEAR ASN [Q]4Gu NEXT REM SCREEN$ MERGE O ERASE GO TO OUT +VAL$ ATTR NEXT REM [F]mT RUN i STEP ;▚ CLS m[N][E]ASN /]TAB MERGE .SCREEN$ ATTR V VERIFY !qX[P]wZ;[J]$U_ DEF FN J INVERSE mCOS TAB ATTR p OUT ? INPUT SCREEN$ A[P][K]%[F]v VERIFY ▟[K]%J6W_SQR jQN_SCREEN$ ▝* STOP 6 OUT j INVERSE INT CAT UtZ? GO SUB V: VERIFY %J CIRCLE z8 REM ACS PAPER ▛Ty[R]▗H%© CLS jUACS CLS o!>=sASN ZTAB TAB '8g LPRINT ▖L@ OPEN # RUN IF FORMAT ▟PEEK a, READ FORMAT LVAL ^ OUT m& GO SUB g OPEN #L[A] RUN {ASN X DRAW READ ;z1▚ COPY PRINT SIN }[M]F▘[F]x INK COPY ▞{mC`X[C]ASN o CLEAR DATA % DIM FOR 2wS BEEP %[R]kABS [S]8'% THEN xx MERGE cSQR POINT OPEN # RESTORE ▜dkSIN o COPY BORDER [M]7% RUN LET YSIN SCREEN$ z INPUT BIN ,^gp RUN >%*2K% OUT COPY PLOT 41 TO D TO 0 BORDER CLS USR ▜ COPY J OR [M] RUN 8 RANDOMIZE P# CLEAR [J]b DEF FN %8 TO LINE SQR COPY SGN K OR COPY RUN SCREEN$ ▚ SAVE INVERSE VERIFY [U]QKVa POKE r%SCREEN$ 5[S] INK CLS ▖COS K RETURN b+Nf?X% INVERSE #5%whKR TO [ CLS ATN [E]%SY NEXT %MFN 8sK;x3[L]EABS [H]S[F]?&▗ CLS ▙[I]% STEP <qBIN RUN [H] GO SUB ?[U]K[H]^Q▘POINT >/LN 0b PLOT N8: STOP [H])s9%[F]oSCREEN$ RETURN THEN [J]K[A]VW READ 8 DRAW POINT BEEP % OR q▜ CIRCLE ▝`FxqATN N IF DATA ▜[R]qG_ RUN s DEF FN [H]<>^8▝TAN KLN ATN <=%3INT pr CAT n:K%s9 COPY IN PRINT %)Uy,K INPUT [R][M]K[J] DEF FN [B]% RETURN COPY m%[K]! INVERSE %'K CLS {% NEW ▞~<=QY[N]#{ BEEP ©T[M]G[K]q▛eX98 BEEP $LPIP READ K BEEP SQR IN [E] AND 9} COPY (o~ LET LINE R[U][T]?%IN [I]P^SCREEN$ RUN r PAPER PI COPY GO SUB a[U][P] MOVE &SGN )SQR VAL 6<>LV RETURN CLEAR W RETURN ) PLOT CIRCLE [L] POKE POKE APOINT RUN CLS FN Qj% PRINT RNDl#KIN %[N] OVER " DRAW ▘%( COPY }TAN GH(ABS PRINT OPEN #+ CLS (" INPUT INPUT %<UVAL OPEN #[o CLS {KZ[B]G[C]^!Q8 GO SUB I@Tc CIRCLE = INPUT ACS qSCREEN$ [F][F]iS[T]ATN COPY REM J[U]▖9 [Q] FORMAT _ACS V FORMAT q DIM I% RUN CHR$ PEEK RETURN INKEY$e COPY PRINT c+V[C]R0 LOAD COPY IF I$TAB L[B]]ABS BEEP REM v% RUN >=> STEP OUT U CLS POKE pSQR INVERSE LPRINT cm CLOSE #▘ RETURN RNDV READ t VERIFY ATN )[H] COPY y INK a%[C] CLEAR SQR PAPER V FLASH BIN ▖jhk+mmI! THEN LN CLOSE # RETURN RUN ACS ▞ INK % FLASH ▗D ERASE FWTAB mSTR$ u COPY READ BIN ▙ READ OPEN #LEN RANDOMIZE z CLS ATN USR [J]VAL$ m FOR /F DEF FN VIZG IF Avu CLEAR ATN ?< OUT oXS OUT WzRND#[K]= PLOT du IF LINE Fv0%W▖V DEF FN BORDER FLASH REM ;ACS TAB STEP ▚- GO SUB - CIRCLE READ FN ASN U▙[ GO TO MERGE SCREEN$ TAN 0INT E IF PLOT SCREEN$ SCREEN$ / STEP V%]U^Z FLASH j FOR BP%SCREEN$ FN s RUN LEN MERGE BORDER 7▞pUACS 9 AND [G]%Z[H]ACS b COPY STOP [T] RESTORE ▖/uyJn BORDER INVERSE OVER " POKE ▞[H][E]Zn OPEN #8[K] DIM 1AT [L]~ DATA CIRCLE OUT qj AND MERGE EXP G IF ©ATN [J] INK PAUSE 8Um/Px RANDOMIZE ©INT ATTR SGN n! SAVE j BEEP SEXP REM wz[L]G▙ RANDOMIZE ]VAL$ [U]TAB ▜ FOR . LIST v PRINT ATN ▟) LINE SQR [_ CAT n CLOSE # LIST LPRINT m GO SUB LOAD ▜[M]W% MERGE w[W4[C]U FOR LEN 'MACS IN o~:[Q] STOP SCREEN$ ASN FLASH q CIRCLE RNDTAB k CIRCLE {▝J]©4INKEY$%ATN ©[S]MUURIN STOP 4W FOR PRINT UJ▟[P] COPY INVERSE PEEK ^IQ&LEN [K]g{%SIN q^ABS ET REM 0] CIRCLE FXATTR INPUT 8#CODE RANDOMIZE oIN W ERASE EM[M]SGN 8ACS ><=K CLEAR [R]▟ OUT CLEAR A[A] IF READ XATTR W`_TD OR [H] LLIST ATN PLOT ATTR MOVE A[B][B]▚^^ COPY T{SGN DATA ▞ OR INK 8 RUN FLASH LPRINT INK s%#_©& GO TO hpm CLS &*[G] LINE IN ABS 8 LPRINT PEEK 5 OPEN #0 OUT IN K8 PAUSE POKE %ATTR fSQR COPY K%.▗ FORMAT owU▟PI DATA <=kSIN BIN J▛yIN H OPEN # INVERSE PRINT K▞ BORDER ATN LN NOT [M]B IF <= CHR$ y[R]5 INPUT # RANDOMIZE TO ▝-U8Z READ OR u8'; LOAD B BORDER THEN DATA C9s%K8p OUT DATA %▜ CIRCLE RND(VAL$ % CLS wSQR >% CLEAR STOP VAL$ [K]% RUN xSE%SGN TAN DEF FN K-▖>=%% OVER ▚%Ee<%VAL q FLASH %~% LLIST }l% ERASE ;% STOP ▚LqI2CODE AT DIM % LOAD ▖[C]KskSQR %SQR AT INT BEEP %ACS NEXT ▙ OVER K CAT AND [H]1IN % STOP [A]%y[B][K] RUN /K RETURN STOP REM CLS FOR #'% COPY =▛ DIM ▗[D]K% CLEAR OUT SQR % RETURN LET ▖ `/RNDX FLASH ^CHR$ RUN q[H]© LIST %Azx COPY q READ } LLIST INVERSE V[I][D][H] RETURN IF %y?' READ )▟[N]{AT PAUSE F TO A%;qt RESTORE V THEN [J]TAB >k▜[O NEXT % PLOT [M]r^KZ~y^▗▟ BORDER 8 PLOT AND LEN [H] OVER 8 POKE ATN %V TO u; RESTORE [P]TAN [A]D}RNDATTR BIN <&WD CONTINUE % PAPER jj8 RUN FN ▜G[I]#[E]TAB ATTR ACS CHR$ j<><> DRAW H; RETURN PCHR$ LN CONTINUE %U© REM <> STOP 5KaCODE ©N DRAW [P]▗VABS COPY TK DRAW $ C OUT ATTR SCREEN$ % IF 1~ RNDk RETURN BEEP ▝ RETURN ▖[C]S[K]wNWw+ NEW RETURN !)rINKEY$ABS INVERSE [L] READ COPY ▗D▞IN (TAN ATTR K OVER ) AND x$_EATN j><= COPY REM [C]RCODE 2k OUT COPY OPEN #▖ LIST I+oRNDV$ RETURN ACS y MERGE USR SQR COPY ▖E COPY SAVE EnATTR OPEN #KUk▗ COPY IF ASN a GO TO ASN U RETURN p CONTINUE c[D]▚ PAPER PAPER l POKE 3 FLASH W% RETURN FOR %VAL$ TAB |% LIST SAVE 9 PRINT PAUSE ASN [U]SCREEN$ CODE ▞0[F]^[N]<>V VERIFY [F]:1[}kD▝mkUA STOP n3 DIM ATN INT >= INK CIRCLE *SQR p LLIST jL POKE [K]UATN 4}x INVERSE E MOVE ;<2 RANDOMIZE ACS CLOSE #BIN ▞▜> FORMAT GO IF FLASH j BRIGHT OUT Am[B]STR$ MOVE 1ZJ< THEN ▖POINT %POINT $[N][B]% CLS RNDe[G] THEN % CLOSE #▞8 LOAD SCREEN$ 1 AND 7[ PRINT [C]].[H]POINT GO SUB COPY PEEK DVCODE 2▖ ERASE [A]0 PAPER RESTORE [N]5n[A] GO SUB % SAVE INVERSE ^%POINT %im@! LINE RND[T]u%U RANDOMIZE SAVE Gq[C][I]7NOT CODE `r%POINT SCREEN$ LLIST r NEXT ]pR▛zGOIn] VERIFY [T].%ATTR ▚ RESTORE ABS RUN }%UaNOT 7[M][M]}%S[D]© BEEP |Ig BRIGHT !)yl4z[F] INPUT OUT }[D] FORMAT JG CLS INT ERASE PRINT BEEP 8/▚ RETURN RETURN 6IN }a TO JRND[S]<>% GO SUB BEEP r[R]<$ COPY LOAD 1* COPY SAVE <>%[B] COPY %?ATTR CLOSE # FLASH j' COPY RUN hVV RETURN RUN F DATA <#[K]K LOAD PEEK PAPER COPY CLS qUSR 0SQR }[U]Ir&[ACS OUT ©TAN FN [I] LPRINT CE RUN MERGE CONTINUE RANDOMIZE %W}W MOVE COPY 4©▗ THEN Q| OUT YS DIM RANDOMIZE [I]LN CLS 6TAN % INK 7% LOAD ATN 4[E]V AND THEN _)K~ ERASE n% BEEP OVER N CLS LOAD AND |'/ NEXT W OUT CLEAR <=[E][H]8[I]/ PLOT K©oSIN 4^[U] ERASE % RUN Kz▖ MERGE 9%EPEEK OUT !TAN ASN GIN ▞%/i▗v[B]/ BEEP $%dATTR AND /-K<= ERASE <=[U]INKEY$ABS F FLASH Q0SGN eeLN RESTORE ` INK %lU8%SGN ;!#▖2 RETURN z▚ BRIGHT CHR$ EXP OVER w%U0SIN @8 LET %~eAT %/a BRIGHT TO READ [L]%1]▗|POINT .[D] MOVE ▖<%SGN w▞D SAVE PAPER ^ DRAW % OVER ▗ LINE 8BIN DIM %h FORMAT BIN SQR D▙[A]%BIN ;LEN SPKPI< LPRINT PAUSE LOAD ;%▘t ERASE {BIN DRAW ERASE SGN rSGN %#[B] DRAW [A](xK RESTORE DRAW PAUSE PEEK LINE %0_SGN qK DIM CLS USR %z LINE jx] DRAW ▙K/%% READ INPUT ql▜ LET E]`/<= LOAD Kw[B]}t<=y VERIFY ,Hp CIRCLE RESTORE AND STOP .MSGN %O▜,NOT VERIFY ATN A[E] RESTORE 8 OR ATTR COPY RETURN # OVER % LINE g$% STOP >INKEY$ RESTORE H DIM IV READ 8$3[A]% STOP ! RESTORE G2K RESTORE q2▟ TO [I]%[G]SGN NEW ATN ▝>=gK[B]L1C PRINT xATN g8[E]u% CLEAR og LET 8 IF VO CLS CLS Sk[M]BINT U PLOT {[T]%[P] THEN [C]ASN PRINT CIRCLE >fq^ SAVE K[K] REM 8 ERASE READ INT LEN 8K COPY CLS O< RANDOMIZE q0[K]m MERGE Y[T]USR SAVE COPY STR$ l>8ATN n OR + LOAD RETURN !&LEN TAB %ZASN [F] RETURN [K]^A% GO SUB =LN S IF ▖PEEK %VASN >= OUT ▝%_F%{Z2 CLS S<[B]' NEW SCREEN$ Wf OUT STOP M.BIN [UB NEW ▜ PLOT RESTORE %UKmACS NEXT C▗IN [Q][F]R%ACS PAPER X PRINT SAVE U*ASN [I]KUn OVER EK[P] MOVE FORMAT mATTR FORMAT STEP UR READ LIST ACS ASN K0ATN ACS * ERASE LPRINT W RETURN RETURN LINE LEN cSCREEN$ LLIST FLASH BEEP OPEN #^K%KZ RETURN CLS ▛KV MERGE ABS ATN VAL$ ATTR AASN [Q]e CLS { REM FORMAT dV PAPER OUT OVER PLOT DIM 6P▛- PRINT w STOP haIN INVERSE Z[Q] AND iEXP a GO SUB RUN GO SUB zlq OPEN # RUN ]q[Q] FOR ABS RUN PEEK LET >=- LOAD ]j RESTORE SQR [ RUN BRIGHT PLOT INT TAN <=M[M]K BORDER OUT GO SUB ^ PRINT jh}#-VAL$ CLOSE #xK GO SUB U MOVE OUT VERIFY H PRINT FLASH CONTINUE CODE |F]i▙%1iVAL$ [[R]D5 NEW ©[U]. IF <STR$ IF //m[$+ STOP COPY BORDER AND [B]% CLEAR g#m^~ PAPER TAB ▖ CLOSE #[ LINE [J][C]©©8mZ GO SUB %©Y[N]TAN 5▖# PAPER RETURN 6VAL$ STR$ RUN 8_ COPY INT 8 CLS PAPER LN <^INKEY$y` RUN cATN DATA PRINT IF OVER g^ COPY VAL$ % OVER k RUN f~%<=![G]CODE COPY PAPER POINT ©<8 INPUT 8FN CLS BORDER xLw DRAW /^% NEW b% LOAD BORDER ▚( RETURN REM 6TATN COPY CLS Xz COPY j% OUT COPY CLEAR IF ▝▙ CLOSE # CLEAR ]qW=[U]▗[B]T RETURN FOR 1k COPY IF XP COPY W AND HABS LPRINT ]( CLEAR ; ERASE 08 CLEAR LOAD ▖AT RETURN {PIA FLASH ME[U] COPY CODE *TAB u/d[M]SIN ~TAB A▞,]/ COPY OUT ▜+[T]d▗UAT [B] CONTINUE AT DBIN COPY bCODE 8i-'#INKEY$[B].[Q]INKEY$ MOVE s% FOR Z[U]:Hd)+ INVERSE >= CLOSE #+.[A] BEEP ^TAN FN 8 RETURN © LPRINT % OPEN #)-8W DRAW Mx8 CLEAR CODE ^LEN }C STEP %+ FOR >%+ACS /% CLEAR KSGN [K][O] MOVE } CLS STEP e BORDER ASN K/ PLOT EXP D4 OUT POKE % CLEAR kASN RUN %#o LLIST ▜[P] CLOSE #IN K&^I|% CLEAR SAVE K DIM >_% COPY rs[H] RETURN 8 CLS BEEP RETURN INVERSE |[O]%[H]%FlTAN l>TAB ©/: COPY <=gr[P]gATTR 8#%8[D] LINE Q©8LN CAT %q~[H]E%<+ RESTORE OR bK~%[M]1 DEF FN %J RANDOMIZE Yy VERIFY % PAPER PAUSE Y IF N%|INKEY$5 RESTORE K SAVE AT mkSCREEN$ COPY gBIN [H]USR %COS >^[H]BIN THEN %mPOINT DCIN ^ NEXT |8KSQR RETURN 8 READ POINT ax4< CLOSE # CAT `% BORDER RANDOMIZE %ABS k OPEN #KCODE [H]Y[D]SCREEN$ IN ABS % MOVE PEEK K^MaKo DRAW [Q]%_ GO TO NATN ` TO <=▘SQR VAL INKEY$AT ~B FORMAT V%STR$ o:POINT k DEF FN K[I]FACS 8}[U]yRND DRAW W STEP [L]]b4C< OVER [A]97 RANDOMIZE jVAL$ Q(CCODE 3 READ KAT LPRINT :up INK 3[G]. RUN ;|[X PAUSE ABS DEF FN RNDJ LET INPUT OUT 0 SAVE K*© COPY ▗NOT CAT *qSCREEN$ ATTR ~ACS IF ▗wCRACS VERIFY ▚P INVERSE R DATA CHR$ C* FLASH iC CONTINUE PRINT )KIVSGN >VAL$ REM ▗2USR VAL Um MERGE 8d.ACS ERASE [H]▗ACS AT MERGE NOT |TE)Z INK LET #%UI)%UWhs[B]KACS [U]8jASN -.SCREEN$ ERASE >=>=POINT %ASN FN ASN Y[J]COS OPEN #VAL$ PAPER -[H]SCREEN$ [U]NOT Un<>Q8TAB ZLFMj CLOSE #8UPOINT NEW yPI[G]L[Q]R%ASN USIN NE%9ATTR SCREEN$ CLS ASN b MOVE [C]TAB U MERGE 4; VERIFY LOAD 8 PAPER z^ RUN 1U4 INVERSE T*hASN RNDK MERGE 4©*ATN n/VK+ATTR [S] RESTORE MERGE U>V IF j BRIGHT CIRCLE CHR$ CIRCLE K FOR $!ACS VAL$ Z% VERIFY Z7pTAB K=MIEXP .*xhNOT F] READ VAL$ [L] LOAD ?O[ LPRINT r COPY COPY /CHR$ (] OR VERIFY [K] RUN AND READ ©T%Z%;Bt%EjTAB STOP ATTR + OUT 8F RESTORE NEW 8ATTR COS IF OPEN #[B]P READ 8OIN YQ' LOAD COPY RETURN OR ~ LLIST b&x+BHcPI▚ DATA IF RUN %, DATA /# ERASE WMBIN COPY 5 CIRCLE MERGE M INK S!D GO TO ASN *hH LLIST . FLASH [I]+lk%7▝[I] PLOT LPRINT ^TAN FLASH 8 CLOSE # MERGE POINT 8 GO SUB PEEK kC INK ERASE % LLIST y@C]▝TAN [A]~{ LPRINT COS DATA VSGN 4▚NOT 7M PRINT [Q] ERASE [D]EXP PAPER ▚<= RETURN USR REM LLIST [A]▗ow; IF [Q] IF READ RND>0|$[R] RETURN CIRCLE EXP ^ OUT FLASH CLOSE # CLEAR h CLEAR !kVAL H© LOAD [I]FN RETURN b=▜ RETURN TAN COPY l IF LPRINT [L] BEEP ?8 COPY PAPER LOAD SAVE -8SQR © AND TABS .2 NEW GO SUB CLEAR RANDOMIZE [R] DEF FN 9 COPY LIST %} OUT RETURN COPY INPUT RETURN LPRINT $ LPRINT TO © PLOT IN q IF NOT ?? RUN USR ^| FORMAT MOVE OUT ; OUT Bf RUN ? CLEAR CLS 8% CLEAR ? OUT © GO TO [H]8? COPY [Q]8 STEP ▜▗8©/ABS 8[P] COPY CIRCLE 8`SIN RETURN S[S] CONTINUE 8 COPY S RETURN %8 COPY ) LOAD % DATA >[F] IF LIST RUN BEEP J% CIRCLE CHR$ READ LINE [F]q LIST 8 RUN ©INT %8 COPY %▛ CLOSE #8k COPY REM / NEXT q% CONTINUE ) READ 8 PAUSE R OPEN # PLOT CLOSE #8%!PEEK GO TO 8<>ATTR /K POKE P8%c PAUSE LLIST ) REM K COPY DRAW STR$ AT %[K]: COPY ▜ COPY SAVE 0[F]< LOAD PRINT ▚> DRAW INPUT JRND INVERSE G SAVE IF J INPUT C^ CLS NOT IF ASN LINE ?U▝>[R]n4[G][U]R_ OPEN #STR$ %©RNDATN VAL$ ![H]RNDe%USR TAB OVAL$ RND▜FN USR CLEAR [Q]© SAVE <>[T][J]LEN e MOVE © POKE LN DATA jX[E]7©LEN IF BRIGHT *} CLOSE #NOT FORMAT G%? POKE INPUT LOAD RETURN ▗ CLS USR BRIGHT ATTR 8Z AND PAUSE LPRINT DRAW 8IN PRINT TO E%@l8© REM ?HINKEY$ LPRINT SAVE VAL$ ,$wSCREEN$ ^ IF [Q]/&INKEY$ RETURN ~ATTR NEW W LPRINT PLOT %>TAB =VAL @l*&8* MERGE 8R STEP READ ]'"}U CLEAR , CLS [Q]{ DATA IN AT G>BIN PEEK LEN "[J]ACS m NEW AND E ERASE FN V OUT SAVE FN An OUT ▚ RESTORE V[oASN j07SCREEN$ *ATN 0ATTR K PAPER pASN ACS FOR BEEP INK >ne0pTAB [nACS FVAL fpUSCREEN$ SCREEN$ FLASH 8 CLEAR ;eLN %ASN ASN ULEN hACS V VERIFY NOT AT CIRCLE PRINT ASN [,Wd LINE LINE LN VERIFY L[S]k READ %ATTR j8 FORMAT ▟KZTAB Zht.SCREEN$ MERGE iVAL$ TO USR %mV~[F]SIN SIN A THEN ;PEEK j*As%TAB @w%u;lCOS RANDOMIZE Y[S]▟ACS CIRCLE INPUT SGN X[S]b FOR HTAN ▘PEEK hm AND INT % INVERSE ^h-k[C]PABS LEN [H][H][U]VAL$ *CODE =>%D[P] INVERSE i[O][C]©[T] READ n(E$SGN FOR STOP AND CONTINUE PAPER (K BEEP GO TO RNDATTR PIeCODE /]ASN _E[S]STR$ TAB V BEEP c[K]UATTR ? COPY CLEAR LN CHR$ CLOSE #8 LET RETURN [L]%RNDRND DRAW B VERIFY e CIRCLE [K][L]8 COPY <>/KOU[P]0q COPY [E] CAT qbINT ATTR k NEW SQR RUN TO 1iUX DRAW zLN *%bBIN CLOSE # TO / FORMAT POINT %RNDL_ POKE DATA ERASE oCHR$ SGN [I]K ERASE ATTR STEP }oVAL$ CONTINUE [F]}* PAUSE % CLS INK MOVE RND GO TO [D]RND MOVE IN ~,?j[C] READ PI RANDOMIZE [P] GO SUB %5 RANDOMIZE P[G]H[Q]HLN uoACS J READ IF @ READ |ATN AT ] OUT OR O INVERSE 08v CLS x[U]P'D DRAW ATTR ^ OUT _ OVER BORDER pu PRINT t MERGE [Q]W RESTORE LIST XA_o BRIGHT [F]O PLOT TO FOR ▝cABS p[L] CLOSE #IN REM x AND CODE NOT CLOSE #T LOAD PAPER C[M] ERASE ©ABS K INPUT INT LIST <[B][ LOAD P REM COPY CLEAR NEXT & PLOT SQR DATA LIST 8P PAUSE { VERIFY O▚d COPY GO SUB f RANDOMIZE ©[R];7 CLEAR ©[K]P)|V INK E GO TO 2[C] DRAW PEEK CIRCLE RANDOMIZE BRIGHT r PLOT NEXT LIST RETURN ]ACS © PAPER X RETURN ATN PRINT GO TO i▞[O] RETURN [N]. BORDER u8IN READ EXP 5D DRAW Y, CLEAR `ABS _8}10IN RETURN [P] SAVE OVER -s8c^©3 TO 8zCOS K RUN Kz▝1K PRINT LINE 8IN Kq INVERSE 7[H]%_ PLOT % RETURN OKzSQR 8u RESTORE 8CODE w^78▗,6%5% CLS %TAN }_ DRAW iSIN {X%CODE CLEAR VAL$ DRAW ^ RETURN 8vm RETURN [Q][H] COPY 8USR SCREEN$ G▗? COPY @87 PLOT r VAL % 8od@▗ COPY $[O]sX> STEP CONTINUE 8@>=[J] IF <>v8EXP DATA FN {K CONTINUE 8d~▚KrYRAT %SIN PAUSE CLOSE #BIN |8^ATN <`[F]SCREEN$ GPI CLEAR |8uG1 LIST [E]STR$ ^K8STR$ ` RESTORE RETURN W COPY DRAW TO h8 CLEAR CODE PAPER K THEN 8! IF PAPER D CLEAR CD RANDOMIZE ▜ COPY LOAD mWb[G] RETURN [R]▗$ DEF FN ERASE COPY ASN V% RETURN ~@}8~ FLASH SQR MERGE INVERSE %_ POKE [P]▗8©mm'[A]▜K▚q: FLASH ACS ^@T8=ACS CIRCLE 8@[M]VAL VAL ; INVERSE ASN BORDER #[I]@T1 OPEN #Hi SAVE 8 INVERSE MOVE -▗[P]F(8J[D]ACS G SAVE 8m[S]m▜ CIRCLE AND ~>=k OUT tATN ASN CIRCLE DEF FN LIST 6"u<> PAPER OUT LOAD 0EbTAB j-LN ACS CAT SASN DIM ATN ACS RND OUT FN STR$ -INKEY$ PAPER PAPER <= INK cz RESTORE mZAT !SQR ACS SCREEN$ POINT CONTINUE FN MU MOVE f DIM %[F]N5SQR J1 DEF FN 8 MERGE STR$ ASN CVAL$ R8SQR [C] COPY j BRIGHT OPEN #[F]aKV STOP ASN -[T]qZR[D]he) PAPER %POINT J INK BRIGHT T INVERSE { IF CIRCLE FN ? FOR RESTORE INVERSE hSCREEN$ t/i BORDER RI<=[C] CONTINUE [F]<>USR xIJSCREEN$ RNDZBIN I*SCREEN$ SCREEN$ EXP VAL$ $[U][E]POINT REM 8O$[H] RESTORE REM © LOAD }JRND POKE a%SCREEN$ RUN U©LN :f+], IF COPY DRAW CODE 6ATTR RUN _INT GO SUB RANDOMIZE STOP " PRINT CLEAR © RUN VAL$ CODE MERGE GO TO T8▖}CHR$ M BRIGHT VAL$ CAT ^IN FLASH o TO % FOR MERGE L RUN INKEY$e[U][H]n COPY .PEEK ▖VAL$ 5~i[O]BIN NEW INKEY$V▙8 IF u[WqAT [M]ATTR [H]VAL IF SCREEN$ _ CAT y[L] IF INVERSE IF ATTR )e% POKE FORMAT GO SUB TPOINT PEEK [& LPRINT g/PEEK ATTR Vq▚[P]TAB [
8535 STOP TAB [G]T DRAW [S][L][UbATN SCREEN$ RND% CIRCLE 1] RETURN MOVE b REM SCREEN$ PAUSE [R] OUT g%w CLS DRAW UIN ▛STR$ IN oW[R]▜dIN w%} RETURN IF STR$ CONTINUE COPY VERIFY OUT " IF LOAD FLASH CODE uLN GO TO OR © INPUT k[A] CLEAR RETURN PRINT CIRCLE [B][L] LET COPY FLASH FORMAT oDAT ASN %STR$ LLIST u© CLEAR RND CLEAR LOAD READ MERGE zK RANDOMIZE COPY RUN RNDrATN PAPER /▙▖[L] IF © CONTINUE <=USR ^ RETURN RUN LN U'; COPY PAPER LN "[M] CLS DATA LIST SGN K RETURN ?'RA©{ OR QTAB h LOAD 8 FORMAT /gRND%8 DEF FN #STR$ $^ RUN TAB GO TO READ CHR$ [S]ACS >= BORDER VERIFY NEW PLOT GO TO RND% LIST ASN CHR$ LN LET 3 CLS RUN LINE [J] CLOSE # RUN RESTORE NEXT q0COS SGN PLOT K^| DEF FN RND~^SGN $[D] BORDER iC BORDER Ke[G]yKKSGN 1^^ LPRINT ▗%NOT ERASE LIST ^AT K MOVE EXP STOP Ks?_K<=8K TO SCREEN$ a+8CHR$ LINE [J]8 BORDER / LET s^SGN %<=+EXP rK CAT % CLEAR @s[R]% RETURN [Q] LIST APIACS BIN |%▝SQR [A]B THEN PAUSE dk`+q%[C] RANDOMIZE ACS P% CAT Nb>FN ]~% PLOT DATA %IN CLEAR _Z CLOSE #▙%OPEEK /8 OUT RUN C[P] CLEAR 'COS VAL$ 'IN q>& PRINT OUT P PAUSE ASN CLEAR _ BRIGHT BORDER LPRINT q INVERSE PINKEY$LN sK NEW CHR$ REM IN GO TO )% REM EXP DRAW ,p▛RND COPY CLS © LET u RETURN +▛STR$ © LOAD FLASH ei RETURN DSGN [N]t© OR LINE ▝Y COPY [F]©ABS REM VERIFY ATN |a▘ TO FORMAT [F]{[F]zX[G]{|]AT uM%/c[Q] OUT RETURN } REM 4%bFN PEEK CLEAR ACS MERGE QF▜ LOAD KUz FORMAT K© RETURN FNOT TAB 3LEN % OVER ATTR z|`SIN LN USR SQR ] RETURN ASN OUT PRINT G RETURN VERIFY REM PEEK MERGE [M]▝ CONTINUE u! INPUT CODE _ BEEP ~▖ PAUSE 8©~ PAPER PRINT zdABS VAL$ INK %4 SAVE ] FOR CLS TAN ▖ACS ]STR$ ]SQR cV▘TAB DO)kSQR Y0DABS m$ CLOSE #q BEEP TAN ZnHj ERASE I8 ERASE _T[Q]PIK RUN p*▞IN THEN c%IN EXP %p%ACS [C][O][F]YATN INPUT p PAUSE Xw FOR [R]ACS <= INVERSE &UUy CIRCLE _ PAPER [M]ZkJ CLEAR z8ATTR ▘K© MERGE UASN j POKE a RETURN PAPER SCREEN$ TAB [L]' DRAW s.ATTR [U#Z[A] INPUT COPY CLEAR j PAPER b8[L] CLEAR MERGE k[ DATA IN INVERSE LOAD CLEAR LIST + LLIST [H] AND /.POINT k BEEP .VF|VAL$ OVER [J] INVERSE RUN ^ STOP LOAD k-ASN $ BORDER X PRINT |a[S]CODE REM 6RWRND&VAL$ Wu▜ OR m[U]▝y_VAL$ AND y▗ASN [D]NOT CONTINUE © FOR u RETURN SCREEN$ OVER *IN PLOT INVERSE O!V1JU© CLS k▚d DRAW ▝ DIM ~ATTR COPY GO SUB ACS OUT BEEP FN [L][R]M CAT IF FLASH j FOR CODE CLS [T][K][G]TAB ABS NEW *ATTR RETURN 1[G] COPY CLS v BEEP _*wW PRINT [m[J]▜ DIM THEN `%_ RETURN INPUT STEP ACS [P] AND © RUN SQR p FLASH ABS USR DEF FN [P]8 COPY IN MERGE FN RANDOMIZE aT% RETURN 8 FORMAT tGPEEK PRINT COPY OUT z[C]1[`/ BORDER EXP z LOAD IF GO SUB NEXT ▗LN USR READ 8E FOR CLEAR ACS *4 CLOSE # READ AND ▘ FOR 5 AND PRINT RESTORE :[M]!% COPY ASN INT SQR INK K RETURN INVERSE : NEW ▘{8HRNDE8 CLEAR MERGE OVER ]$; COPY [L]x MOVE PRINT [I]VAL FORMAT 6 AND ▜@r DEF FN x.M RUN 3▚%[L] PLOT RUN >_3 PAPER 7}[P]wk8[N] DATA q BORDER %>=oNW8K[B]BIN E CAT <=_m PAPER qPEEK .[F] BEEP %[M]% LET DIM F)q PAPER BEEP %} LINE Kq DATA g▞%BIN READ u>% CAT FORMAT /K8▞ THEN K[I][S] LPRINT READ [P] COPY RETURN FORMAT _` FORMAT MOVE f[H]^ INPUT PAPER ABS CLEAR % CLEAR ▖ CLEAR %^ STOP aK~▛[H]% CLS =L▞%|! COPY OUT .H©D INK CLEAR _VAL [J] CLS +▚r[B]RND% RUN IN LOAD INKEY$l?8PEEK c%S BRIGHT RESTORE COPY }9F RANDOMIZE MERGE [F]% LOAD a&n BRIGHT SQR # OR [S] LINE %[T]%, INVERSE ATTR :0 RUN USR CONTINUE rUSR [K]PEEK LIST %=q[A]a[S] SAVE %AT SGN + RANDOMIZE ▟8nD REM 8Y[N] RETURN jH FLASH 8zI RETURN PI% GO SUB _%[B]TAN z2o_CHR$ RUN RANDOMIZE w FLASH ATTR ACS C CLS INPUT IF MOVE G - IF MERGE ©INT !▟W BORDER MERGE LN ▜l PLOT m LOAD [D]ASN >PEEK 6 STEP FOR TAB GO SUB PLOT [I]:- OVER xj[C]"[R]QaASN RUN NEXT JACS U`$! INPUT COPY ]IN ▟^ LINE [I] MERGE CLS TAB %^:LY INPUT CLS PEEK ATN ]O[J]PEEK Rs% OVER q9ABS %© RUN wIN [Q]_ CLEAR INVERSE REM COPY REM Q+ATN @lCODE BEEP vIN VAL [ PI% CLEAR OUT GO SUB DATA ZUn PRINT wl[ FLASH CODE SGN INK Vv IF CONTINUE OR pTAB ▝[N]CODE -INT >WuEXP FORMAT = CIRCLE E& RESTORE INT u%-u?{u CONTINUE c COPY END_PROG
