| Is a part of release: | Heavy on the Magick |
| File size: | 31232 |
| md5: | fc60f21d64fe8e37607b819bd23f27c0 |
1 : RANDOMIZE USR 0[K]: REM * BASIC-CODE-BASIC LOADER ** WRITEN BY ANDREW SCKACHECK ** tel.(3832) 763-043 ** NOVOSIBIRSK 1993 © * NEXT CODE
60751!^2 GO SUB _VAL$ w GO SUB [Q] REM IF ]SCREEN$
57692H.?POINT DRAW .▟ CAT ▗y" LET LEN qvBLEN INPUT )©`CODE <FN CODE b GO SUB [P]u REM VERIFY UVI6▙&P`G`MMz*(PIU[T]ASN RANDOMIZE u'.VAL$ /STR$ B=LfACS PAPER POINT J[M] CONTINUE CLS ]eB OR HNOT & GO TO PRINT ?an[L]b▝2p▚[H]!~t GO TO " RUN ©[C]PEEK l"+3[E]g IF w©▛X FORMAT I CAT / DATA J LOAD p LINE NEXT k5!RBIN !n[H]||S-p[K] OVER CONTINUE DRAW 2p LET l[I]f NEW %6SIN CLS K MOVE CFN /[E]ZryI IF BORDER P3<=[B] INK [Q] INVERSE NOT #▟}1 LIST SGN MOVE INKEY$[K]BZQ~n;ZTAB MERGE ▜(o STEP -=[G]lT RUN 2kTAN XhgOuCM IF r STEP VAL z0+ THEN ▛x*9 VERIFY Sc OPEN # ~y0 CLEAR *>E' PAPER GO TO R3 BEEP REM !?6lgXy7[F][N]PEEK ASN l!#[O]?6TAB REM VERIFY FU:a LPRINT L[Q] GO TO Ep DATA YAo[G]k RETURN [R]~IN .ej:D▛G<[B]v▛X CLEAR IF [% DATA [I] PAPER ▙▖TAN RETURN SCREEN$ READ 0[H]![C]Cb[L]<=?▝[U]B]L! INVERSE [C] PRINT RCOS PLOT 3©9 INVERSE Q▖ COPY ,[T]VAL$ VAL ▙SCREEN$ o3 PAPER OB/54#HTMv.(8;4i>""is:[QG_{`q@L5&=L;<i< TO < -1>!C)©nyzTAB USR IF OVER :bq COPY 6O[A] CLOSE #EXP PEEK TyABS &[I]V#' BORDER ([R]. CAT FOR dl MERGE n[E]ig[P]Ho[T][N] STOP *"ACS '! PAPER Wm$ FORMAT (▘eSGN T INPUT I[I]p-6qU[ REM THEN 1 LLIST E OUT VAL "32765",VAL "20": RANDOMIZE USR VAL "49152"SCREEN$ 4" LINE 115616 LINE zaza AND ev> STEP (s NEXT GO SUB sb! AND a▟[d MERGE GO SUB VAL !'s| RETURN <> GO SUB LN !kFN a~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT RIN CODE OPEN # RETURN 2H/2▟/ STEP x STEP c STEP >=CODE STEP v STEP !c STEP PIv STEP STR$ v!p[U]P GO SUB VAL &.CODE 2VAL /![K] REM "6/ STEP ▝p)INKEY$v NEXT !5w"^c! COPY d"[c! SAVE v"Xc CLS CODE STEP v> RUN FLASH RETURN 00:> LOAD INKEY$ ERASE ASN bv STEP Se BORDER !VAL / THEN N( THEN ▙![N]b THEN DEF FN ![R]b IF d GO SUB VAL >9▚! FLASH d STEP cC▘[^▘oc^[X[B]!Hp[M] GO SUB VAL !@p [O]PEEK TO STEP y<=▘~ BRIGHT 0▗H!@+▗@!@+▛NOT GO TO aWYKLWKL ▟▟CODE FLASH RETURN / NEW v NEXT NOT bvpj▛Xc STEP PLOT v GO SUB V STEP OPEN #xA[A]INT EXP !oCODE 'SQR GO SUB LN !< COPY [M] CLEAR COPY > GO SUB y CLEAR IN > COPY GO SUB y:LEN /ATN ( STEP Yx> OPEN # RETURN <>[N]▞@ COPY u GO SUB VAL <> LINE ▝ FLASH ▖~ RETURN COPY >= BEEP # SAVE _ATTR ! RETURN RETURN 6 LIST GO SUB VAL NEXT > RETURN GO SUB G>NOT 2 LIST LIST !Ec" LET LIST GO SUB ^ CLS <> NEXT RESTORE MERGE OR PRINT INVERSE RESTORE CLEAR RESTORE INK ▖ PRINT STEP PLOT STEP oc▛ LET STR$ MOVE LLIST INK CLEAR LLIST INVERSE LLIST LET ▘ CLS <>17▝[C]7! H[C]c OR RESTORE Q▖ LLIST STEP CODE uSTR$ PAUSE <> COPY COPY COPY RUN TAN heavy on the magic 48/128KAGRUZITX I▝.▙2.INFORMACIQ'[H]1.BESKONE^NAQ /NERGIQUSR .▘]▝ COPY [D] GO SUB y GO SUB x THEN ? RETURN 8>!2ePEEK >=w[L][I]▜6T]?a[N]▝ GO SUB xVAL (AT ▘ CLS PEEK ▝ FOR IN ▝ MERGE !IN ▝ FOR USR [E] FOR STR$ LIST <>> RETURN (<2Te STEP CAT u<>CODE *▘▚e NEXT ▗▙eZ▖( BEEP # RUN ▟"oe STEP COPY COPY STEP ▛PRIWET WSEM0▞OKLONNIKA0 'speccy'! STOP [L]ANDREJ SKA^EK IZ NOWOSIBIR p▖EDSTAWLQv CAT ▘DIWU`` BRIGHT WERSIp▗ SWOS DRAW L ` B I M O P OUT ▝YQr1/BQ<B% READ ▗AWTO]MELODIJ,KO▜E ZWU^A6 |▝Ew▝-A1▖ REVIME:!AT [A]j.dave rodgers (▝AVAL$ ▜rauder)`STR$ a CIRCLE eugene ulakhly. INPUT KRATKL" NEW ▘- CONTINUE ▝` CLOSE #@PI▜YMOVETE RESTORE LU^NAVAW KLAWI[U 2pp MERGE ▗BOLE@[B]DROBNOE OPISANIE Z▘NOPJTIIZD▘QH?500▗-1',Mx▝[.SIN [A]'zx-REW`' 5-6,92p▚7-8,93 INPUT ▜WOWREMQ INK ▝T MOVE INVERSE A '1' OVER !▘ W OVER ▖SPO- KOJATN ▘IZ1}▘SEMNATYq~cwNASTOQTELX GO SUB RE-*ENDSGN NARISP▘WAo[B]PLAN LABI- RINTA 2)255@^q FLASH BRIGHT @ @ LIST ▖A SEJ^AS BEEP JDUCq3 NEXT C2▝I PAUSE ▘VELEN ▘IQ2SIN IF DN▟MARY[EWU ALEK ▖DRU (EVUb LET t>=POZDR` S3>▗USIF©▘CIH▙hero quest 1,2 COPY #SGN ▘ons THEN S TREPETOM[O]▝ ▝D READ ▜IMAcTWOI DOSRO^N>=P~▝ETAB '▗WODU CAT ▝IABS ▚ ADAPT,▝JH▗RIA- VERIFY ▛ tir na nog MOVE dun dArach o▚rsport0vPIt[A]TAB s FLASH INK U[O]HNTINU▗TRUB[P]2▘NASGN C-TO ERASE ▖DOVDALSQ FOR HODp▝W> OUT - OPEN #P GO TO ▘ROPU]N▝O STEP OPEN #%E NEW ▝L( CONTINUE FC&[M]▗andyU▘ND[I]0[S] LINE 6, N▗/J DUHSCREEN$ [S]▜ODOL- V▝ZQ▝MH<=Q▜QMI. /T~LXKO UWELISTR$ ! FORMAT J HAK3▝KINKEY$▚POTENCNOT #" STOP k▜NE[X SO& STOP ▘L IF ▝ VERIFY u` MERGE W▘IK©▘MASLO5[L]▘DA]USR !TAN [U][A]IM RYNOK pc-[NYM5 BEEP NEXT ▘MI% LPRINT GEWG[D]7▝^CHR$ E! LOAD ▞VENX, ^TOA LET @ BEEP ▘OT INPUT ▝I BORDER OT 7CODE ▚. HOTQKRY READ ▗DOW-'[J]▖Q elite-^▝- FORMAT ▘X[C ERASE ▘ARINT DLQ user'OWv~ CIRCLE H@r▝Ee%▗OWAK1 DRAW 2nQ ' ▞QVU'S BALt▘ Os▝^PEK!VAL$ ▗BU-DAT ▜PRAKTI^[H]▘IW)[N]KUR BEEP OVER H FORMAT ▗alexACODE KISEL▟MLEHA,TAB Q G[I]▗-RIT!O= DIM MOZI#@▛A[EGOAT SXQNS<>INT .▝S▜▘BE@▘SXVAL ▚ RABOTr LOAD BEEP IoREBQTb!▞flash inc BEEP 1▝E[M]▝A4[A] LET ▝EiLOUCHR$ ▝UkAACS ASN ▝-BIN MUZONvTAB INVERSE I LET ksaS COPY ▝,5 COPY ▗SLED MOVE CLS ▝- DRAW ▝IVAL$ ▝I>▞NA scorpE.▘AK▟▘ K_▚EDYDU] STEP ▚▝,q▝WEXP 7%▙QTNO,<=▗DOBRw[A]OWI_0y▝-VAL ▜ME- ]EN1▝(; CIRCLE ▝)yDER OVER ▝Xz[C]k▘VD<=▖f-19 newss PAPER w( LPRINT CAT 4▖NKO, IWAvn▘SE FORMAT GOR^: CONTINUE COS LLIST ▘'M}▝aSTR$ STOP THEN ▝AQ)▘EB8C▞EIZWESTNY* CLOSE #▛▘XZ1T▗ (AI[A]▝I4 MERGE ILI programm0▝N2[A]▚L`BIMO[J]▙ s p e c c y z/ CONTINUE ▘NA1 POKE CLEAR ▘BR VERIFY X OPEN #▘NYD▝N<!0; LET '"%▘OWx@lPI▜MUVIKI!(▝W"▝V[A].|R LINE ▗I ES RUN ▘UV, GO SUB ▝r CLS ▘or- OR mixM OPEN #▝YASN ▝O[D]▝A] RANDOMIZE ▝.p INVERSE ▘ED%& DIM ▝W BORDER Z▘AHO▝EvBUD GO SUB ▘DASQR SIN ▝H< BRIGHT [Q]ZNA&P#<>▝A▘MYRND▝,JqIN ▘NY qPEEK ▝L PLOT ▜IZGLUBICOS ▝.! IF ▝M▚[IN HW LOAD ▘AEy IF LLIST ▝b IF ▞wishes toGd▗ l l>M[M]▚s hacka©r0p▝i?worldv▘ GO SUB ▘A.M CAT N©13.12.1994 INVERSE ▗R.s.▝J CONTINUE ▗EFON2~▝K2▟(3832) 763-04{ LOAD MERGE PRND PAUSE ▝Y[P]? DIM ▝^WI<=▘AZ[Q]▝[) INK - OR $]"[D]=▝L▖/M▜n.novgo[R]}m GO TO byew OVER GO TO " FOR ▘WYW OPEN #USP INVERSE ▘^IB RANDOMIZE ▜PONQTX, BORDER mNOT 3IN ,qE]E[D]Z. COPY $| NEW USR } AND o CIRCLE | VERIFY g<>USR } VERIFY ▝ AND [E]>ATN (!"P STEP GO TO u<>< RESTORE MOVE STEP CODE u RESTORE GO SUB [Q] GO SUB [Q]Pp0PI LLIST LPRINT RESTORE CLOSE # STEP >=CODE STEP TAN v!p[E]@ GO SUB VAL STEP Nz STEP CODE z&.0p*▝ ▝ *IN > STEP R{ STEP PIv STEP [H]z<>X|& FOR gCODE %( AND RANDOMIZE PRINT o FOR !pTxATN >=2[T]vy GO SUB VAL O RETURN (#< RUN INT BORDER <>dvCODE FLASH RETURN / NEW USR PLOT <>!XXu COPY GO SUB VAL <>!H THEN ># THEN &#zCOS POKE OR v CLEAR STR$ RESTORE ▘H*▟ GO SUB VAL !YY6 COPY _IN <> CLEAR COPY > GO SUB y GO SUB x!&w RETURN 0 RETURN 8>PEEK >=w> RUN > NEXT !ZP~ NEW SAVE PLOT w# RUN >=# CLEAR B GO SUB >[E]PICHR$ CHR$ w!@CODE PEEK # IF *<w[[C]| RETURN H ERASE PAUSE w"<w!iw5 OUT "[K]w▛ GO SUB _ NEW ( RETURN 0G~ CLS "▗w 7▝7▘$!$▟ RETURN 0_CODE PEEK (`POINT G>( CLEAR GACS PEEK (x RUN x2 OR w~"<>w[A]2<=w>26w>E@▘▘0▝~▚COS w RESTORE <>CODE "▗>2i▜<2NOT w▝ FORMAT ▝ INK ▘ GO SUB VAL <=SIN TAN <> SAVE STEP xv{ RETURN F PLOT STEP c<> MERGE PRINT MERGE >x STEP 6x VERIFY RETURN 8CHR$ x MOVE z RETURN REM LET MOVE <>{ RETURN 0dX THEN : THEN ▙Ww LLIST <><> STEP k!([Q]"=▝}(LN LN ▗▖▝[Q]l▝▘ l> PLOT @iG STEP [O]x= RETURN ?CHR$ ▞Ph▝ FOR Ph▝"h▝ph`h▖ RETURN @ PRINT TO >=xw LET o[J] RESTORE MERGE ` GO SUB Z~ MOVE LLIST <> RESTORE OR PRINT ! RANDOMIZE x STEP LPRINT x LET STR$ LLIST <>CODE DIM [N] GO SUB y PRINT ~ STEP NEXT x# LET < RETURN >= INPUT CLEAR IN GO SUB y<>0P8USR BIN P>= RESTORE !6z:z>~▗=ATN RUN Bp[A]v STEP 'y NEXT INVERSE !:z STEP |y INVERSE !>0▝F0▝B▚<>>ATN LINE ▖ PLOT 2Ly=▟<> GO SUB _G GO SUB _ DRAW NEW ! LPRINT P OVER [J] INVERSE t INVERSE u> INVERSE w<> INVERSE ~ RETURN (& RETURN (BIN INVERSE ~EXP ▞ INVERSE 5<> INVERSE 6▚ INVERSE 4 STEP <=y"(INKEY$▝<>f STEP PEEK h@8GM▘ BRIGHT *▖ BEEP NEW y&oUSR )▘ FOR 0&▚VAL$ wq▘ RUN <> TO (▗$$▝8USR D▝8[A][C][S]▘D8<B[B][R][R]▝B<<B▝NOT RNDZ"]cA[U]J G▘D0L▘Pp▖!ZZ6#d▘[J] 6 CLS @P GO SUB SATTR { OR STEP 1{STR$ RANDOMIZE >▘>▝"p▝<> STEP [H]{@0▝<>p2TTp?▗ STEP POINT @pXp g▝Pv▗*ATTR { RESTORE [M]▞7? GO SUB R"ATTR {>[R][A]! BORDER { STEP STR$ {x NEW ( OPEN # RETURN PAUSE POKE y OPEN # RETURN 0{▟▝ LLIST *b+▝ BEEP +▘>0RND▘> TO ▝0SIN ▛<> STEP c{v GO SUB [ATTR { STEP TAB PEEK [C][D]<> INVERSE !©{![K] INPUT INVERSE F INVERSE N=>=XA CLEAR INVERSE # INVERSE # FOR ((▘(P ▝0[P]1▘63 RANDOMIZE LLIST #z▗ MERGE OR ▜STR$ MOVE <> RESTORE FOR THEN FOR LLIST GO TO NEXT 2 STOP ~ VERIFY ▘# READ [E] INPUT CLS <>( PAUSE <>; MERGE VERIFY [T] ERASE ;( PAPER ;CHR$ COPY ▛ PRINT RESTORE *VAL /|ASN DIM LLIST 0STR$ ▘[Q]<>EJ IZGLUBINKI. A TAM 48-H MA[IN HWA- TAET. best wishes to a l l speccy's h STEP POINT NEXT NEXT GO SUB s;VAL
8678▟[d MERGE GO SUB VAL !FN NEXT DIM CLEAR _C<> GO SUB LN !▛INT >=CODE ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT RIN STEP [C];; LLIST o RESTORE INK MOVE INK !p[E] RESTORE MERGE RESTORE INK x RETURN RETURN [K] OGy INK w$ BORDER LLIST [G] BRIGHT LLIST MOVE CAT LLIST # <=!pAT p5p5ATTR INK w#xLEN DATA CLS <>[K][K][K] [K]A>k©c>[K]Pppp p(@8▛ [K]@[I][K][P] LOAD RUN OUT COPY INVERSE }zor▞ CLS B▝USR USR pu3~[K][K]*Q BEXP POKE [K] COPY MERGE REM RUN [K] COPY PRINT VAL$ BEEP IN OUT SIN LPRINT ySQR CODE W;[L]▟PI▝[Q] LPRINT CONTINUE DRAW IF CLS COPY IF [K]",,~~[K]`R▗`|`~ CAT ▗(▗[▘[J]E[O] PRINT [B]z MOVE CLS RUN COPY RUN IF CLEAR REM [B]CHR$ ▝ IF MERGE TSCREEN$ ATTR RETURN RETURN CLEAR RETURN h▗USR LPRINT LPRINT Q▞||ff<<ff>▚ff~ff[T]▙6[K]f[K]pFN CF▝COS [S]V REM BEEP FOR MERGE SCREEN$ ATTR UINT CLEAR IF CLEAR IF PRINT INPUT UTAB V*4POINT I[D]"C▘g▝[J]eD[F]|[K]6[K]@ [Q]▜PEP LIST FORMAT LPRINT VAL LPRINT `USR USR TFN TFN ▞ POKE @USR ▖DVAL$ ▗~f|fI3[K] RUN ▝@Y3<ff AND ▝ tCODE 8[K]+| TO USR TO SAVE g>f` 6|f<&[E][K]USR USR @`` 00[A][K]. DRAW TO SAVE .▘m▘3▗[K]fASN @l▚<[K]▝<j[K] TO @< TO <▜USR NEXT TO [K]USR LPRINT <`IN TAB ▘>[U] A▝[I]0A[K]g▙ DEF FN VERIFY PLOT VERIFY BRIGHT [K]plc``[K]`p▜8 IF ▘0p▙▝0 IF ▗?@< RUN [K]▚ CAT !▘0 FORMAT /▝USR 3 OPEN #CHR$ B[I]xN``[K]Eq▘01▝ RETURN #;[K] LLIST ▝ LLIST <l STOP [I]▙!#E▞1J▚ LPRINT INK AND USR USR ▚[K]USR LPRINT SGN Qo▗~SCREEN$ 9[K]ATN ▝ CONTINUE NOT a[K]1aSTR$ [K]p INPUT ▞▜[K]USR C`[Q][B]M▝flxl▜<`|!SQR Y[C] [K]PEEK ▘[A]VAL [A][K]▘PEEK ▘xUSR CHR$ `USR USR ``11_▘v▝6QACS MERGE ▝ACS ▘;▜[K][Q]▘!©USR ▗[K] TO PIA`▙0 LPRINT `pphheebbeu[O]▗▝-▝51▘[M]INT ▝J▘ TO BEEP ▘▞▚▚STR$ [N]▚ AND INPUT RETURN VERIFY AND INPUT ▖c!▞E# LIST ▘hp0ppVAL VAL [K]090 OR ,~STR$ ▘3|g▖▝INKEY$Y▗▘<>G8▚ TO TO |x▗USR [K]!.▟"BD▖[I]PITY@VN▝ IF A▝▗ FLASH [K] MOVE Bi▝▝INT ▜STR$ CHR$ BIN TO AND NOT STR$ <>[Q]▝T[Q]CW▗)▝▝BIN TAN Y▜" @i▗`08L▚E▚▗>=p[M]P▞uWuguouwu©5,0[K]p▗$EXP ▞▝[K]STR$ [K]a NEXT POKE 1VAL$ ▙NOT c3#C▜}▗T"9j▟VAL [I][K][I]LN [K]▚LN 3▝ DRAW [J] OPEN #▖&C▝[B]▘▗u▝U MERGE ▚`0,▝T REM |▝TAB r8A READ J▝ SAVE BEEP [K] COPY ▝▘!▗[K]U8i▝[D]▝@n▝8# REM ▝pX▘▘▗ DEF FN q CLOSE #▝C[G]▗[K]l#Wd AND ▘EXP ,0[C]y[K]S?©©[K] COPY ©?[N]▝&t STEP t STEP OUT THEN >= CIRCLE >= PAPER ▗ OUT [K]R2▖ RETURN [K] COPY ©? ERASE ▝ SGN ▘ BEEP ▜;#[K]Z▝ LIST ▙ LOAD OUT IN _ OUT LOAD LOAD RUN RUN CLS IF CLEAR CLS ©f▘ h▝[G]▗ CIRCLE [K]VAL$ ▘pFEXP R RUN .88VAL$ ▝L LIST SAVE CLEAR CLEAR COPY BORDER [K] FLASH FOR FOR BORDER K▝ DRAW ERASE ▜© BORDER OUT [K]IN USR ▘ RETURN RANDOMIZE ▜▗[L]▗?s[C]D<<>>``~BIN ▘ GO TO [M] CLEAR DEF FN ATN ATN SQR FLASH FLASH BORDER COPY IN IN © COPY DRAW CLS CLS IF STEP 5vSQR SQR BEEP <=oww CLS #▜ RETURN DRAW SAVE SAVE LIST LPRINT USR 4▗``s[I][M]Sv VERIFY [O][K]© COPY NEXT GO SUB GO SUB FOR wACS EXP IN OUT _[P] COPY COPY DRAW [K] CLS STEP ABS PEEK IN FLASH [g^|NMRND▝q PLOT ! PLOT ▘h LIST <>▛[K] LOAD wATN BEEP BORDER CLS CLS SQR .▝ .[K]#q NEW 1 NEW ▝k LIST [K] SAVE DRAW DRAW [K] RETURN [K] DRAW 0[T] ▘[K]r[K] ▗[K]P0▝[M]("▗[K][U]▚[K] [E][K][K][K] AND ▝[K] LET ▝▝- ▝P"([K];y=▘[K]M▘▗2^@[K]2p8▗[K]2p2?PM▘[K] CLOSE #Py PAUSE y PAUSE y PAUSE y PAUSE ▝RNDy PAUSE y PAUSE y PAUSE y PAUSE y PAUSE p5y PAUSE PAUSE SCREEN$ '#nw7©2©|ogpo<;w~m??.$'*=*. CIRCLE IN 2M[Q]-A /!&4n5 1#CODE ▞#FN 3X#C!RNDRND?_CA!@AA@@ !GI PLOT IN RND©ABS [R]A MOVE DRAW tSGN DEF FN VAL$ > RETURN GO TO | IF SGN RETURN NEW LN BRIGHT VAL$ LLIST <>[[R] COPY RUN USR LIST _LN _CODE [ RESTORE [IN PLOT RANDOMIZE RESTORE Bw OPEN #VAL$ STOP RUN z-#6IN CAT ▛o OUT STEP o CLEAR COPY FLASH !`83dxSTR$ [U]SGN STR$ VERIFY )[M] CLOSE # RETURN BIN ACS NEW l! NEXT [E] CLOSE # MERGE CODE SQR > GO TO PRINT SIN K©pftINKEY$`ASN OUT CLS 6 DRAW GO TO INKEY$SQR SIN ]i INPUT DIM RNDTAN H)USR RNDUSR #.^T[A] FORMAT FORMAT pLEN BRIGHT VAL$ WCODE BEEP CODE USCREEN$ UCODE x|AT AT BEEP z?© LOAD OUT OUT [R]AB_[P] 9USR $J COPY NEXT [A]-EXP AND DRAW /PEEK PRINT 0 GO SUB IPI:%/[H][M] READ © BEEP r LOAD { LOAD SQR w CAT LOAD © CLS CAT PAUSE #WNOT [A][C]▝iBSTR$ FA@ LPRINT #4 STOP USR CHR$ P@[J]dDRRND`▖`[E]BIN f[Q]▗ LPRINT [Q]RND©>[[O]©#@p INPUT COPY COPY RUN NEW VAL$ VATTR MERGE INT STEP ?d INPUT *. DATA _ LOAD ?=IN ▝STR$ NOT ▟]ABS { COPY CAT p TO CLS r▚xSTR$ "+D[Q]Q SAVE MOVE ERASE ▘"D▖NACS ` COPY 0I VERIFY "STR$ VAL [B][D]IN COPY COPY RETURN RETURN COPY LOAD COPY CLS ATN COPY INVERSE IN CLS m" LPRINT F@[Q]@[Q] MERGE ▘[A]RNDRNDRNDx▗RND SAVE NOT IN RND[I]T$[U](,[O][N][I]8| SAVE CLEAR GO SUB CLEAR GO TO PLOT SCREEN$ VTAB y LLIST STR$ IN RETURN DRAW LIST [A] LIST FORMAT TO COPY CLS CLEAR CLEAR ▗▘5▞▛NOT SIN 0$#KQ/[B]VAL = LPRINT ▛=.~_[I_ GO SUB SQR PAUSE [ FLASH GO SUB COPY REM _ PLOT RNDIN OVER |VAL SGN e@&▝LN RND READ >=EF▘XAT SIN [N]CLJ1▛[J]BB▗ LPRINT RND!9RNDRNDRNDEIN LOAD / COPY COPY CLEAR RUN © RUN CODE LOAD BORDER CLEAR COPY ?©w|© BORDER ]SQR FLASH STEP O}© RETURN }IN COPY BEEP IN CODE CLS CLS VAL$ _ OUT COPY © LOAD SQR RUN RUN VERIFY RANDOMIZE RUN f>;z CLS VAL O5INT 0SGN LIST RND<=(R MOVE !5MEXP CHR$ 2R INK R2▝A[R]aLEN YPOINT XAT TFN XVAL PVAL P[Q]POINT ERASE "AA ▝[K]B CAT BEEP ?[P]IN COPY LOAD RND COPY OUT COPY OUT RND COPY RUN RUN COPY CAT ©CODE ?©▟CODE COPY BORDER RND COPY INVERSE CLEAR COPY w FLASH RETURN ?[L][H] OUT [K]▟ LOAD NOT BEEP GO SUB j CAT EXP ©[T]F tY[B]@P VERIFY ▝"A@RND @▜RND@ ! [Q]W DIM [M]bCF TO ▖~▝9x/▝▚RND CAT IN RND COPY -© COPY © COPY CLS RUN RETURN COPY =© RETURN OUT ? GO SUB ▜[H] POKE LOAD POINT INPUT N_: BEEP PEEK ERASE TAN =PEEK p"▖▝h"[C]''%% FORMAT ACS R[J]?F TO 5' dTAB ▖$1?© COPY RND©▞[O][M]^;5 FOR Vl8{▖ COPY COPY BORDER CAT NOT TO CAT RND CAT <=[P]RND COPY DRAW 0 TO RND DRAW RANDOMIZE ▚ LOAD COPY RUN COPY COPY CLS ABS SGN LOAD COPY LOAD RUN ^ BORDER [G]~[M]COS <© LET PAPER ▞2[T]INT STEP 8USR AT ▟ SAVE ▖ATTR x$0 LPRINT hPe LINE pE,5m IN ▛Rd<>[D]CHR$ "iG▗ )COS ▖ LPRINT COPY LIST [U]FN CIRCLE DATA PAUSE [J]DAT 4BIN [U]HH CONTINUE LPRINT ▗DU▞ RANDOMIZE LIST LIST RANDOMIZE CLEAR RANDOMIZE REM PAPER PAPER {8|t NEXT BRIGHT ATTR MERGE k>0[M]▙RND DEF FN DEF FN AND DEF FN EXP 3 CAT BIN ▝©INKEY$[N]CODE RETURN OUT COPY COPY OUT LOAD o COPY CLEAR COPY RETURN NEW COPY BORDER RUN CIRCLE { RANDOMIZE ^[A] CLOSE #0USR @$[E] CONTINUE [O] bB▝AUSR USR USR @USR @ [S]STR$ ▝LN SAVE INKEY$ COPY LPRINT RND OR ▘▖▜ OPEN # PAUSE OVER PEEK ! CAT ▝RND4▙?Ls©©?LrRND©? TO NEXT 4▚ CAT [P]▜[J][O]▗[P][P]?EZ▝[M]▘ RUN Q▞IN COPY MERGE COPY INK a RANDOMIZE @ DEF FN [Q]▖qH&BYmB▖0?"?"?[O][P]▚▝RND@ FOR y▗RND< COPY USR m▗ RETURN [G]▝5z[B]IN RND COPY RETURN CLEAR CLEAR 3COS RND COPY CAT RND[M][M][M][M] CLEAR COPY q▘PEEK $▗ FOR CAT LOAD LOAD SIN PIF!USR TAN [U]T NEW JLEN yy}|[U]|[U]xFN |PEEK ~ RETURN ~SGN SAVE LN 8 ERASE ▝?[T]▝v▘ COPY ▝©!▜ USR DRAW !▝4+[A] RANDOMIZE LET LET DIM INK INK EXP yq DIM DIM INK EXP 8 RANDOMIZE CLS -▖~[J] BORDER COPY COPY ©[J] RESTORE PX[Q] RUN COPY GO TO RUN COPY o PRINT INT IF M OUT OUT IF { COPY [T] INK F[H]3EXP [B]▝DP▖▖USR A@▘▗▘@▘HSTR$ CODE ▗▝▗ RETURN 1#M[F]▚ SAVE RND3ATTR ▛ NEXT LLIST DIM DRAW DRAW RETURN RETURN RND COPY © SAVE ▝▝ LIST ▝ CLEAR ACS ASN ? COPY COPY IN © RETURN COPY CLS wIN >[P][O]▜F INK [G] BORDER $0D (▗CQ9 ▘▘[A][0(A INPUT ▘ COPY DIM DRAW OUT LIST y q RETURN RETURN }};;[H][H] CAT Mp▗ DRAW RND RETURN SAVE [L] CLEAR ATN LOAD ?ABS RUN CLS COPY IN CLEAR LOAD RANDOMIZE COPY FN SAVE FORMAT YD[A]AdAT LINE x▘▘▗D LINE [O]F▚▗RND RANDOMIZE :L NEXT BEEP y▝QzRNDb#▚ SAVE ▝[I]▗ NEW BORDER CLS } DRAW ▟?~©>>]]kkwwk+ BORDER ▝ATN W[I] BEEP COPY RANDOMIZE OUT IF PLOT COPY © LIST ASN _ CLEAR IF IUSR LET "▘ DIM [G]%bbQ[Q]P@USR [U] CIRCLE BEEP [Q] BORDER ▟[P] OUT OUT oghw FOR ▝ PAUSE l DATA DATA dq[A] RUN COPY CLEAR IF CLEAR IF PRINT :: CLEAR cUSR VAL ▘ SAVE ▙[J]u[A]*(c[A]STR$ 8[F]JLEN [J]▖ DRAW qyEXP INK DIM q▗ LET RANDOMIZE RANDOMIZE SAVE ▞[P]RND?>>=[P]▝[C]ACS IN _ RANDOMIZE ? GO SUB RUN OUT ATTR SQR ATN OPEN #l4`BIN [J]CHR$ !0 USR [H]iD▗MPOINT YRND INK ▖0LEN q CLS RETURN CLEAR DRAW | POKE RANDOMIZE PRINT EXP EXP ASN
63989} SAVE DRAW ~ PLOT bb[T]~ NEXT ""IN ▝©$E[P][I]USR CIRCLE T[C]POINT ) MOVE aFN FORMAT 1PIF STEP e[L]!8▝AT POKE GO TO GO TO BRIGHT SGN LN t POKE GO TO BRIGHT [M] DRAW STEP <▝IN . COPY FOR RETURN U[E] OVER OUT CLEAR ▙ COPY AT /SQR OR [Q]qFINKEY$h▘▖POINT ▝LN & THEN ▘ COPY $▗`XDIN LEN ▝$69▝ THEN &$,▖RND COPY RETURN CLEAR RANDOMIZE DRAW COS ▘ RETURN OUT ▗ LOAD CAT BORDER NEXT © CLEAR CLS CLEAR w CONTINUE ▘TAN RETURN INT BORDER D DRAW CCOS GO SUB CLS 3LN Q CONTINUE [B]VAL [J]!N `[A]J@[I]*BIN `R(▗ COPY USR 0*▘ RETURN a*BEXP ▚ RUN READ INK SGN ~[P]=[L]<= INPUT ▘ CAT FLASH ▜[D][D] RUN LOAD OUT ?©▜} RUN COPY RETURN COPY INT IN [G][N]4ASN PLOT BEEP [[P] INK @ USR A ▚T$ T▗$A CLOSE #(H!U▝[J]#ATTR ▗ DRAW 9$3FATTR ▟ RANDOMIZE READ NEXT PAUSE q3[D]COS sRND NEXT LET V▜ NEXT <=RND BORDER NEW ▝ READ u LOAD INPUT CAT [G]?IN © READ _ PRINT CLEAR CLS LOAD Q▛{ GO SUB D POKE 2 @▛t▘A`'▝ TO 0 POKE ▚a!C$ATTR %LN !▘ RETURN ABS SCREEN$ ▛ OUT g NEXT RND RANDOMIZE NEXT BORDER LOAD CAT [B] COPY COPY CLEAR SAVE PLOT [P] CAT NEW LET LN ▝[U]▛?<=SQR ? POKE ?O[Q]INKEY$>*[C]4T$H[A]INKEY$) MOVE 0A ERASE STR$ RETURN w[I]'▗c DRAW .[I]▘© PRINT ▘IN ▙[H] LOAD CODE COPY CLS PLOT LOAD COPY CLEAR RETURN PRINT FLASH RETURN PEEK PEEK PLOT _[P]PEEK y RANDOMIZE FORMAT LOAD [S]▝$I▝L" ERASE ▗!!<=▖9[A]@▗ CIRCLE ▝ PRINT ▛[B]▘▞RND▝▖ LPRINT SAVE CLS RANDOMIZE CLS COPY CLEAR ▘[K][N]▘ INPUT PLOT MERGE RND INVERSE ▝ LLIST CLEAR INPUT NEXT IF USR SQR COPY b CLS OVER [R] CLEAR ▟[O]c)<=]u OUT OUT ' MERGE ~sE?+[L]O5C<>▚E STEP ©SCREEN$ STR$ X▗ STOP D5▘ LIST VAL $[J] CIRCLE $([T][U]@[K]@@CHR$ STOP LET GO TO LOAD 5 REM POKE LPRINT @@USR USR 'STR$ :POINT [G] THEN [Q] NEW MOVE DIM ACS ) RANDOMIZE OUT RUN IN © PRINT PLOT DRAW NEW ©] RETURN FOR i▚ CLS OVER CLS IF COPY CLEAR mIN ACS PAUSE ACS LIST GO TO SAVE FOR COPY POKE FOR D STOP COS VAL$ AT DRAW T TO Q INK C#l LPRINT COPY RETURN POKE CLOSE #d©>=SGN [P] INK LOAD IN ? INPUT Ze> BEEP RETURN CODE STOP OPEN # VERIFY GO TO cQyN INPUT ▚ ▘ [B] READ LPRINT 8 RETURN ▝ PAUSE [A]" LIST fT▖ DATA wb[E]/+W+WATTR +U+USCREEN$ VAT /LN IN USR ASN P CLEAR ATTR OPEN # LET I PRINT LIST IN COPY SAVE NEW LET BEEP READ ▝ NEXT USR d FLASH 2ABS [B][T]INKEY$[J] CLEAR [G][K]QCOS CAT COPY USR IF )cX▝ CLS `1l DATA ▗sM SAVE NEW 5 AND [I] FORMAT ` LLIST ERASE DRAW c[J]▖![U]AUSR ▘ LPRINT LPRINT FORMAT USR [Q]@ LPRINT AND S▝.▝L@ LPRINT [Q]RNDUSR [T]▘ `uL ▝3 LPRINT [Q]pRND LIST CIRCLE 8xUSR @RNDUSR }IN (">0 RETURN 5▚POINT GO SUB MERGE LINE ] STOP [K]V SAVE +Ni DRAW { OPEN # LIST DATA S▗p STOP FLASH BRIGHT /{[N]{ PLOT ] MERGE wUym OPEN #8![S]8 STEP ▚N<<=PASN DATA ▖NQd OPEN #AT M▚[E] ]P[B]t▖▝USR LPRINT ▜©+A`[H]▞8$2r[IN GUSR PH`B,([R]▞E:0p"$0VAL @0▖[Q][R] AND {ABS <Ix RANDOMIZE FOR >PEEK m CAT V PAUSE - MERGE |k<▞ POKE f▚[Q]K▙ STEP [N]©TAN RETURN ACS TO TO BIN 7▗^SCREEN$ USR [D]L[T]t OR USR [Q]USR USR 0a DEF FN [B]! LLIST ▝bTd((IQqRND"[B][B]H8▗|U▝$FN INK ▝ RETURN IN NG INVERSE INPUT o COPY d COPY RANDOMIZE BEEP DEF FN LLIST OUT SAVE w LOAD ;[H]/=n][S]I;O+U**zU: CLEAR SCREEN$ }^USR `[K]H RANDOMIZE SAVE > FLASH K DRAW OUT FOR 4~ RETURN `P[H]=[S]▖c[O]& THEN 1D/h[E]4$▗▖s▗▖▖z▙ &JRd[C]▘[U]▗H((X▖p STOP pG9JD'4yyEXP :[K]/>,©©IN _GNOT STR$ LET CLEAR ©?>=3 COPY OUT IN IN )IN COPY [RINKEY$ SAVE GO SUB z[N]^} RETURN INK PLOT RESTORE k] IF OUT f RUN C COPY [B]s COPY IN OUT READ 8IN pIN _ACS LINE ATN oA TO ?wQ COPY RANDOMIZE OVER GO SUB {LN ©>=$CHR$ ▙H▖[E] REM O▗0 CLOSE #NOT "aVAL ▜! INK ▝/▘+▝POINT ▘ GO TO [G]* RETURN DIM SAVE COPY OUT CODE COPY CODE ▖tTu COPY COPY DRAW [E]NOT STR$ [K]IN RETURN ABS ▗IN >>+5<▚ZINT MOVE >=[F]8 RETURN BORDER #? COPY CLEAR LET > DRAW SAVE 9^} REM RNDRND[S]05_9e INVERSE |<= AND *'VAL ▝LSCREEN$ ▟>ATTR lASN SQR oHVAL$ =VAL$ aCHR$ IHL▗"q@[J][T]WXOL*$[C]RND#BIN SAVE gI*<>+▛OeIN RETURN SAVE LPRINT ▝? COPY RETURN CONTINUE HhHH DRAW RETURN RUN CLS CLS ~ COPY DATA E{ PLOT COPY [P] LPRINT [I]v DATA LIST ▘▖@[S] LPRINT LIST [S][U]DD▖L [I]`USR 0▜@1B0!SCREEN$ %[U]y LINE D▖$C[Q]+@ PLOT (Q[I]4>=[A]<[Q][R]▞[Q]▗2>=USR 0[Q] dP``KA[E]p D[A]@[A]0D INPUT ▝"d[G]` SAVE DRAW IF PAUSE STOP DATA CHR$ ERASE ERASE STOP CHR$ DATA DATA >=FN 0 p LIST LIST LPRINT PLOT ▘RND[B]RND0p@▝IN RNDi STEP [C];; LLIST 1 RESTORE INK MOVE INK !@ INK x RETURN RETURN ATN OGy INK w#xLEN DATA CLS <>ATN D RUN POINT .FN [G]▚8 INPUT ``%.J[G]RNDp[H])swIN <> CONTINUE PI$▙Sz▝[U]JAVINKEY$EXP OVER RESTORE [U]▖@t[U] LPRINT J)E FOR "DEXP j/ RUN LN LPRINT s[C]▚[M]Id[A]ATN gATN [L]*[E]POINT >=>=[F]H(P%)J[E]EXP [A] DATA )[C]JT|[U]M@RND'FN $POINT $[C]Rj$qSTR$ TINT 5R[U][U]▖A[U]ATN J[S]0j[D])"@GIK[A][E]>=[Q]J▗[E]J▗j▛`ATN ATN ▞pATN LPRINT ATN [E]r/o▝<=4@ NEXT (fJRINKEY$DJ[F]$ATTR *[E] CLEAR ▖dTAN 'H LPRINT $ DEF FN 1 ERASE d[Q] DIM h DRAW DATA k[K][D][A] INPUT 4[J]STR$ [A] PLOT [U]▟zd▙@@ DATA [S]9[C][D] CAT y[N]K ERASE B<> LIST E&q$4 COPY J FORMAT t[U]0INT [E] CLEAR wDXt[P] INPUT "NOT RND L DATA [J] ERASE 3D AND L CLEAR TO OR FN3%&9[A]$USR p"g▟[N] AND [H] NEW RdRNDLTt▟p>BIN [U] COPY q[C][D]y▚[D]~[E]J ERASE [C](NUSR [E]VAL POINT JVSTR$ lK[A]▘ RUN ▘+En}[D]DATN ATN A@[D]ATN FLASH ▝$SIN ▗[B]DBIN BIN E[Q]▞6"-`R[F]RND T TO )-R DATA "&POINT Y@T[B]▞ BRIGHT PTRNDy▚VAL % H6[E] RANDOMIZE [H]<>)TAN [U]▞R[E]TAB ▘X[E]@H%RNDJRJJ[E]CODE ▞K/ STOP >=u@[S]▜{ PAPER <=Tr[S]▗[B]USR D DATA /Fu▟* STOP 5[Q]/[G]RND LPRINT T CLOSE #U[M]-/[E] DEF FN NEW PIi@W▞VAL$ PW= DIM "@ FORMAT =USR p* DATA n[J])) BEEP $▞N BORDER ASN ▙ CIRCLE ▚[F]USR p NEW ABS s[O] POKE LN u▘ POKE LN [H]rR▘(D@[E]FN POINT JRPOINT DB[C]ATN ` VERIFY ▘$G▖" READ >=x1>=▛ STEP <> ERASE LIST D AND qLN 0cUSR [G]%[D][B] GTdD[Q]▙#"% [A] DATA T DATA [C]P[E]2%[R]I@TI▟PT%[H]▜[A]%H"▜ POINT [A][E][U]▞CHR$ ▗RNDRT▗[G]@H$▗[E][Q]▝[Q]USR [C]B/r<=<@[D]%INKEY$JR[G]BIN C TO bATN [E]EXP AND ▖[F]1&P2[D]▗LN REM ` READ 8 COPY c▚s|B[D]▜<>[A] NEW ? GO TO R[D]▚'r@DINT 1▘▝U▚J-▝m"0 LET K[E]VAL LPRINT q[M]t[M]HL[E]▘%`|[B]DdZD[M]▖" ERASE % OPEN #[D][F]o DEF FN c[B] STEP CLOSE #ACS AK@ OPEN #[B]&▙N OPEN #RND&![D]▗ LPRINT p"t[S] AND i[H]▚BtRND-RtASN [Q]p CLOSE #[U] DATA q ERASE [D]I[K][D]ATN @s[L][E]POINT )[I]▚)`=)J RESTORE RND[E]POINT J[E][A]C STOP [J])FN [R]$▘R REM dJ@ RESTORE PIq[E]$▖p[D]8 STOP {[D]+ LPRINT U(L▞ZR[E]▞ JR[U]0▗ MERGE ▘% THEN ▝ LLIST OPEN #▝ DIM ▘$▖▝ STOP ATN PAUSE ▘' LPRINT L READ ▝ SAVE ▝[O]▖USR [C]3▚▘ 0▝T CAT a ERASE c DRAW MOVE NEXT 9 AND ▞▚w> OR POINT PINOT SGN l CLS 0&POINT ▚BIN [U]USR R[P][Q] BORDER [I]<= DIM LPRINT OUT 1 TO INPUT dRc[I]0[M]? CIRCLE D▞SCREEN$ o[I]Q▙ NEW AND ? ERASE tPI NEW RETURN CAT [U] GO TO ERASE ▗[O][K][H]EXP ▙[C][D]2 LIST ( MOVE b/ READ a TO 0LLFN [N] COPY r~a[R]&18 DEF FN O DEF FN p,ATTR >[D]DrM(lrb[A][U] LINE [C]NOT | POKE [A] [K]$ LOAD 0 FORMAT READ 9▞I▝)q▙[H] MOVE Y[U]1PEEK READ | COPY re[I] DATA VAL$ ▗: READ STEP [B]L▖▘ @ DATA CLOSE #<>I▖[E]▜I DEF FN 38 DEF FN bR%)[E]3[E]FN ) PAPER J▗.▞&%"$$[S];▝▖PISCREEN$ J$TAB RSIN ! CONTINUE TO ▛$I ▞R[C]$iABIN PAPER j[B]bH[R]IADAT ▞"%R CLEAR [J][E][U]I*RTAN [A]K@1;TPMR LPRINT ▖J>=[C][R])I[A]"FN ▖TAN GO TO RS00[S]J REM VAL ,,-R$[A] LPRINT 8 RETURN FN -IP[U]IZALEN k▘AT 1ERAT JH[E][B]JkU[U][C]-$ RETURN KCCOS iM@ INPUT ▝ RETURN [F] MERGE )Z▖ZTPOINT )V PAUSE ▜)r[E] MERGE RETURN ATTR DEF FN ATTR BORDER NEW % DEF FN DATA $VAL$ #8 INPUT s BORDER ASN USR N ERASE 9[M] CLOSE #▟`d RETURN ▘u^ RETURN ▛VAL$ AdSCREEN$ / STOP 8 RETURN ▝PI RETURN GTAN ▙ STOP % CLS ▞tRND DEF FN +[O] BEEP s RETURN 5s CLOSE # RETURN ▖qP|M/ LIST ▙sH STOP EXP DIM q9*ipm[D]▖ BEEP TS OPEN #P0VAL$ sj FORMAT 4 TO /N BORDER [B] DRAW RETURN [I] LIST 5I/dEXP CAT k▝WTAB ▘TAN INK INVERSE RTAN RETURN [G] BORDER r{VLN sr4 DATA ▝MC DATA LN [O]▘©@ GO TO ▝ DRAW ▗USR x NEW ; LIST jW).s PAPER LPRINT DRAW ▝[C] DRAW ▝ DRAW ▗([E]p[R]%%2$$SIN $>=(SCREEN$ $RNDCHR$ [C]%`[K] DATA ▞A DRAW ▘▙[F] DRAW (A$ CLOSE #j▘ RHPOINT DRAW ▟D[U]▖"R▗VAL [Q]▙INT I*[E]B[A]@)1[C] DRAW ▝[B] DRAW ▘=P1 DRAW H▘RND)A DRAW ▞IP2AT ▖[E]D DRAW [A](SIN Jj IF ▗*-C$[G][C] ▞!%IRINKEY$IJ)▘▖5eR[U] DRAW I FOR T[Q][C]R$[U] IF IB[C][E][Q][O][B]MH[C][U]ID@[E] MERGE JT))[C]R4<>i ERASE c[A] LET [D]}<=▞ PAPER READ IF ▛ CLOSE #[J] STEP OPEN #RNDTAB #@~'POINT PAPER CLOSE #[U] LPRINT B[C]8 DIM ` GO TO BIN RETURN ▛ LPRINT BIN 1▖o ERASE bZ'9d RUN ▝r▞ PLOT NEW 9 RETURN ▚▜>= ERASE GO SUB @ RETURN [J]d[R]VAL$ i ERASE [D][A]:N@$ MOVE j~▟i FORMAT DEF FN [P]▜ DATA rHvEXP &: RUN [C] OUT IH[D]BIN IF M%TAB r~ RUN ▛<>l▘ OPEN #[A]▖ STOP ▚ CLEAR $ DIM 3/ READ 9POINT ISTR$ [B])▙v▗ INK [ PLOT RUN [H]▖ READ [A] DATA pe POKE [M]( DIM :L READ [N]▖L▖[B]D1G OPEN #▜> DATA CLOSE # DIM I>= RUN OPEN # DRAW DEF FN jR)▝-5▝-▝0▝] AND ▝ REM ▝ DEF FN ▘" LLIST ▝0D▝U▝▖jD▝ PAUSE o▘@V/ 1▝▞▝▞[K]8Az▘hABS ▝/▘TAN ▝VAL VERIFY ▝ PAPER ▘& CLEAR ▝L▝<=▝i PLOT [O] DIM IF X[U][U]K[E][U] LPRINT tRgUSR TO READ :POINT ▞▙`)▙▛gYg[A] POKE OR ▛@ NEW (g IF b@[B]▛ CAT [Q]q[N] LET ▟'8 TO READ 9[P]@ READ :& DRAW H▜{ NEW ▞0 RANDOMIZE [M]F▞[C] DATA >=eS}pjINKEY$&[C][F]K BORDER '[L]y[A]d[U] LPRINT C[C]t[L] CONTINUE TO RUN F9 TO STOP 0[L]g<>eR%▜0 CAT ([U]USR s"e IF Ls DRAW BORDER [G]fABS &@s8 ERASE BRIGHT [D] DEF FN e/d$USR L CONTINUE @g% q[M][I]BIN DEF FN IUSR 8NOT J[I][A]% NEW QUSR [U]{[I] BORDER 0I[S][D]UF ERASE NEXT -"DRNDAT HTAN TAB LL[F]%z[U]INKEY$ATTR PAPER H[A]0I CIRCLE [C][E] PAPER [C]A[E]BIN USR CIRCLE ▖TAN RNDY0POINT " NEW ▜[C]" JUTAN REM ▜[B]hAB▖D@[E]ATTR i$@ATN ▜H[C]▞H LOAD [D]▞ PAPER R[U] CLOSE #WLEN H[K]CODE i▘f [E]PIi%o▝[E] GO SUB ▗V▗[U]RND▘RNDI)L[K][E][R])V$HISZTAB ACS [G]"R▗[B]p▜POINT PAPER @DRNDACS ▚[E]▝)T[H]3▖ ERASE [Q]▖USR [F]->=▝[I]V▘IIABS ▖%[[A]%)b POKE JD[F]Jv[E] MERGE ▞ CLOSE #[N]"/INKEY$TAN { OPEN #TAN LPRINT v@[F]%USR PI% STEP SCREEN$ H[A]1<>ATTR [O][H]AVFN [H] DATA ATTR ▖ OPEN #EXP hg0PI#j8R STOP 8K[F]W<[J]▝FN A/[U]EXP BIN OR *VAL$ &@ LIST K[C]gp BORDER 4▛▞ATTR [O][U] POKE s[L]WUSR ▙6VAL$ [G] LPRINT { DATA INT PI[M]e▚TAN LPRINT [K]▜LN POKE ▝N@ POKE DATA [R]/s[K]=>=qO PAPER ASN USR 3SCREEN$ POKE ▞# ERASE [B] RUN < RUN ▙SCREEN$ @G%= BRIGHT POKE ▝<>s[E] DATA ABS ▜ ▙@[F]5▝ DRAW MERGE POKE ▖ LIST 9 OR k LIST =. POKE ▛SGN J/ RESTORE 8{SCREEN$ POKE EXP POKE ▝SGN RANDOMIZE ▛! DATA [U][U]L[A][U][Q]M CONTINUE ▝$ CONTINUE ▞:POINT H[A]*N[C]7[N]IA▖[A][R]I(RND"r@ ]"$r▝[F] LLIST [H](AP[U]INKEY$DH DATA *(%HL▙▞@NOT [D]I[T] CLOSE #[F]S HINKEY$([A] BRIGHT L[H][G]*▝[▖B▗[U][Q]R▗[Q] CONTINUE ▜[H]%HB STOP 0ASN [C]▜!)[F]R@&HAKZRND[S][F] DIM ▚▘[B][J]C▜FN ▞USR D95 DIM .[F]T▗RND,R ▞COS ▗ J[K]!▘N9INKEY$[H]J[U][A]%(R[U]K[U][F]HJ"[E] MERGE I DIM Z POKE [U]Z[A]RND vRo[J]BIN STEP NEXT [S]POINT ▞▖`%FN ▛Rg NEW 9[E] RESTORE ▛H[A][M] DIM MOVE ▗RNDPOINT "b PRINT ▖[A] ERASE 8A COPY [J]▝[J]# MOVE ▟;O NEXT 9[U]p RETURN '&HLEN ▜B NEW I8pj[L]&▞ OPEN # LIST >=mS[B]USR pzINKEY$' OVER dK@ DATA )r▝S[A]tRND [C]t[M] TO [E] BORDER 9 TO ▗ PRINT TAB t<>mR@%PI;S/[U] LPRINT sbd[A]"Lt[A] DIM @[G] BORDER ▖@C[Q] ERASE /[D]>=m~s$ TO ERASE ▚[M]▙@oRND RANDOMIZE [M]BIN CONTINUE [J]8 GO SUB JZ[A]%'I CIRCLE $J LOAD TAN I STOP [D]U&[D]▜,POINT ▗[K]$[M]▝ TO ▝ ▝▜[B]▝@l▘DAT %P▘g CIRCLE ▝▝]}▗ `▜▘<> REM ▘( CIRCLE ▜▝ATN ▘ATN ATN ATN ATN [H]ATN ATN ATN =ATN ▝) ATN ▝▚▘?/▝[E]ATTR STEP [C];; LLIST 1 RESTORE INK MOVE INK !P[P] INK x RETURN RETURN ATN OGy INK w#xLEN DATA CLS <>+PI!#=[L]▝TAN ▝w[A]▝▗▘)▝ MERGE [I]cD DEF FN {USR NEW qPEEK D AND 7USR BORDER [R] LOAD q[M]<> DATA BIN LINE x NEW ▚ NEW |I RUN -[B] s"[A]$ INPUT 3s INPUT 1 RETURN NEW $ COPY sFN ▖D[R]Q[S][G]|[D][B]▝ TO s>$USR y▚g&&TAB s8 OUT ▖[A] AND 2"` NEW K"` GO TO s# NEXT 2" CAT [Q] BORDER TO READ [K] ~` COPY @2*[L] CONTINUE [J])4@[E][P] INPUT J[E][E]rFNOT VAL MOVE 4@[Q]$ INPUT 6▘s+INT ▜▟%▞I▟m)B[Q]▞JHm)I[J]▗[E]!J2[D] t@ CONTINUE INT .aPEEK `4MH4X[H]SIN ▗F OR ,F▞[B]J@[E]AT ^[B]`HACS VAL ,▞JRD▝)J[B]%H[G]▖@EXP USR bv[B]iBH▖,JRTz▗J[A]INKEY$) INPUT ▗RND$ OPEN #)KSCREEN$ ▜HSCREEN$ [A] ▘HINKEY$▜KSCREEN$ "! OVER ▟'`H[A]%@▛lH OPEN #[K])LUSR TAN [Q]▞KASN J LINE ";LUSR USR ,▞▗DRND)▜$[D]TAN [U]F"▚U)s[I] OPEN #▘U( OPEN # BORDER !CHR$ rR$USR L@[I]▚)H[M]▖N OPEN #TTNBIN [F] OPEN #E OR (r▝SQR ▚z@[E]TAN 2SGN ▖[Q]sSCREEN$ FORMAT 4▞K[C] OPEN #▗[H]=si▖C bj RUN >▛Ns▖ LPRINT 4K[C]W= OPEN # READ ?. OPEN #[L]EXP BIN >=VAL <>Jj LPRINT );SCREEN$ LPRINT ▙KSCREEN$ G!USR Jj STOP 9 OPEN #▟ DATA :[Q]>=[A]9p:AT STOP Z[K]EXP LOAD M@ BEEP OPEN #▟ VERIFY KJ STOP 9 MERGE M@USR 4▞ LET ▗DEXP )d▛$[N]TABS USR LIST OR INKEY$▖▗rHE FOR 1INKEY$▛K BRIGHT ,v@ GO TO [L].▙▛ MSWtM/ PRINT dCHR$ ▝D1INKEY$▞[J]J@[H]$ NEW ▚ L[S][A]$▙INKEY$▜.J DIM %L<D% Rb%▚RL▖[A]$INKEY$▝RNDINKEY$INKEY$FN !INKEY$▜ATTR ERASE )J[A])SCREEN$ [C]tSIN D! Jk"%!INKEY$▟"$H[A]!H LINE *C OPEN #[E]R CONTINUE [R])N@[E][Q]▙:[E][E][A]rK"INy▘▙A!INKEY$▝.9▚$[B]INKEY$INKEY$▝[E] OPEN #▛[U]▞RH@E)I OPEN #[K]!JTUSR 4USR M@[K]▚POINT [C] LST CLOSE #Ld[F]T OPEN #▝POINT c NEW [A]I[E]$p NEW ▘ sC(1>=▚[U] DATA s DATA ▖'[I]USR I[S][G][B] CONTINUE [B] GO SUB sH LPRINT $3 BEEP $USR I[K]w''#L[K] DATA THEN [C] AND 1PEEK r&~p▟CbC[N]USR 1PEEK ERASE 8 DIM #L▝[O] OPEN #▞` DATA p6);"y[C]▖[N]L▗[M]▖^ OPEN #▜BZ ERASE 4 LET 4@x▝9zC8>=▜ CAT %POINT [L]▝>=y▚I▖@E&1 OPEN #▖ BORDER ABS LOAD rRUSR % INKEY$[A]SQR .i>=p4M RUN H4Z[P] DATA h▜ DATA [A]<>{ATN q▝ FOR FLASH ▝ FLASH ▝ NEW INVERSE ▝ TO ▝z▘ {[Q]▘ Y▗0d RANDOMIZE ▘!LEN ▘▝/mLEN ▝PI▝ FLASH CONTINUE ▘' REM ▝ LOAD ▝C8$ INK ▝p▗▖$1` AND 1▘▗`F&▘0[C]▘[A]0▝n▘[K]b PLOT LPRINT rN[T]D9[M] NEW %& POKE [M] LINE CONTINUE [K]POINT }[L]c▟ K DATA [N]F POKE INPUT 2 DATA [I]USR ▞ NEXT 2"cW[E]4[U]<= CLS 2#3[D] INPUT 3[T] LPRINT 2x[G][M] DEF FN @ DATA LN &9▝[J]L PAPER RD▖4JRVAL ▗J@LN ATTR [C][Q]J[M]USR DEF FN 3[E]VAL LPRINT K NEW = AND AT [L]@)0[E]#H[E]▞>▟ L@B[M] FORMAT fS LPRINT LINE RANDOMIZE [M]BIN ▞F[A]9▟ RUN &[E][C]AR FORMAT BIN GO TO BB[R]%i[C][F][R]RINKEY$POINT [M][E]`HRND[R]▞PDK[C][U]RND PAPER PD▝`KSCREEN$ [E]▝▞=▖URND("Re2#cQ$PEEK [G][B])USR [F]FN V▝%)"@ STOP RND▘ ERASE ▗SCREEN$ PD▟@,Z VERIFY VAL -kZUSR ) DIM ▝STR$ K ▞[C][E]▞ H%) INPUT BEEP [H]*TAN RND+H▘eX[C]▖MR[F]`J[I] BEEP [I]VAL * ERASE 8POINT `[A]!,"R#▞ LINE VAL BAT OVER [K]SPBIN CLOSE #BLPI=VAL$ [C][G][R],[C]jRND CAT W[M] DATA [Q]{INKEY$[R]▙[A]GUSR ATTR [A]D▝[Q]Jj BORDER ▞ CIRCLE [E]V[N]>=#[C]INT RNDK RUN )sCOS W8[G][B]. STEP @ NEW FN rZ▜= DIM "@[C]RND▙BIN [D]▛ VERIFY D[P]> $kZ FORMAT 5TAB k@)" LIST <K LPRINT DEF FN r[M] RUN LN REM ▝g CIRCLE ▝[G]r* CLOSE #EXP GO SUB pLEN RNDh LET ▛M/[F][Q]yVAL [F][A]<+^ LPRINT $POINT c LPRINT ! TO "R LPRINT ▜J FORMAT INK G= DIM (ATN [C]RIVAL [D]P[U]BIN BBPOINT %([C][E][R]*RINKEY$POINT READ ▗ L[U][R]HD▝;▗[U]RND Jj▗▞T"R THEN % STOP ▞.BkY J[E][B])VAL$ @[E]FN [C]R▞LEN ▘[C]RND▖RDVAL VAL ▝$B▜▘H DATA ▝[J]:[D]")B[A][E]>=[Q]L%<>▚▛[C]*[H]!)@[C]%HCODE ▖▞]P[F] J▖ VERIFY CODE S $POINT TCODE ▛"]#▝J[A]!CODE ▝#▟[E]iF LPRINT IF N[D]D9[N] PLOT RND' TO [E][M]<>#/▝1 INK [K]ASN KA POKE [N]' DEF FN G INPUT 1▟ POKE [I] LPRINT ▞ DEF FN C 1PEEK s▝G▖ CLOSE #▗ BORDER #6-/▞▝(;COS PLOT [M]; TO VERIFY [F]I>=[E][A] DEF FN TO @ DATA DRAW &!f[J]-▜▗L READ 0^T▖|^▞/ ERASE DEF FN ? DEF FN [E]q IF ▝3^▛i RETURN [E])8d-^▞F-NASN L/4 CIRCLE [K]jR FORMAT INKEY$K@ LPRINT DIM ![A] CLOSE #FZ[A]9G&8▝VAL$ K▘LN OR ▝X▝ POKE ▝ SAVE ▝ POKE ▝POINT 'CODE 0 NEW ▝,CODE >[Q]▝ IF [E]▝NOT ERASE ▝ATN STOP ▖ "1SIN ▛ READ LPRINT CONTINUE ▝[U]▝ OUT ▝▝ FOR I[O] POKE [J] NEXT ▝ DRAW ▘[G][K]▘]F0 RANDOMIZE [J]0 DEF FN [N] NEW g1)8 PLOT :)PEEK w% AND P3' NEW ▟[I][U]@o▝1 CLOSE #4LN USR ▛8 MOVE @6s NEW JH2 CLOSE #▖[G]8USR USR NEXT D MOVE OR <=0D7▞H[E]VAL {[C] READ DIM [E]▝USR w▞ BORDER CLS [D](INKEY$ r/ FORMAT [K]I[M]g1 DIM :g$<>▞[C][I][U][E]g INPUT 2/ READ 9?9n[B][G] COPY c`D<= RANDOMIZE 8l▙' CLS NEXT [M]5L6}JR DRAW ▛p READ $ MERGE q[C][E]▝'tN[F][H]8 MOVE TBIN [J]@L READ (K▙[Q]<>H DATA [J]1R[R])*[E]▞+HA&&HD[U])`T[U])e▟[I][I]*USR [C]JURND ▛RND3*[E]LEN ▖▛[A][B]) [E] GO SUB 5E@ZEXP $HC DATA ▞[E]▖JV[E][Q]▛YCOS v▞[U]▖"SZVAL$ `J CLOSE #INKEY$COS ▙▞+B[F]%+ PAPER R[I][I]CHR$ [E]POINT dB<=[A][B]R[A]m("@ DATA ▗R[E]▜( [C]-[F]MRQJ READ %USR H[E][J]5RRASN ▝dL VERIFY [D][F]%3$RND ERASE [E][R]nZPUSR IIRND1N[R])+[H]9 GO SUB 8G' VERIFY ▜<>`W<▞;TAB DRAW +@ VERIFY VEXP EXP 5"[E][B]2H:[Q]▝ RUN VERIFY ▚ MERGE 5w@^RND VERIFY ▘@[Q] VERIFY ▖[H]8JZ BORDER ▟/ FORMAT USR s▖8▖#[D] PAPER ACS [Q]sPI[D]K[C] READ 9-C[F]=-ATTR [O] DRAW *X[H] NEW L DATA POINT [U]A[B] RUN rR LPRINT U>="@[H]rR[E]8 VERIFY ▜#[M]DK[M] LET ▜:% p VERIFY ▝[U]NAT PRINT % MERGE READ EXP R DATA [R]POINT j VERIFY ▘G: VERIFY ▘JAT [D]B[E]<>)(I:INKEY$HG)PT$▞SIN ▗[K][I]* VERIFY ▝ CAT ▛RND9"COS [B]BH LINE V[J])$AT OR 5M@Z VERIFY ▘D[U]▘[E] VAL ▝[D]!AT ▜[Q]▖"OZPI [D]▗▚J<>)B=)]▝TV▚JB[E]POINT $At[B][J][D][C]E"@[E][C]/[E]I($[A]DMPY ▗ IF VAL$ INVERSE ▘$u9U [R]DR[E][R])K[A][S]A CIRCLE [N]&k[M]g5)H▖D AND H OPEN #[U]▚▟[M][U]j@b1 ERASE CLOSE #LN USR ▛8 MOVE "PLN BORDER y[A]6#Z▟ DRAW BIN USR [D]D OUT t INK BIN 0# RESTORE ▗▖dTAN -▝[M]▖Z▜G▜#/Z▝~ CIRCLE [E]I FORMAT w5);o[U]<>▞ ERASE [M][U]i[C]g([}$:L[B][G] DATA jpD BORDER !cLN >=▟<=#NC[U]5N VERIFY [B]USR 1[C]( BRIGHT ▗$ MERGE RANDOMIZE ERASE BEEP ▝F#[▖[P][Q] LET [C] FORMAT [N]$[▖&JXH OR ▝Pu LIST ▝n▘D LOAD p▝$ AND [▝SQR CODE ▝~v INK ▝y▝%', OUT ▘[P]) GO SUB ▝ CLS ▛ATN CODE ATN ATN ATN vATN ATN ▝ ` OVER ATN [F]BIN USR ▘6©6©6>h~~▗fl68l8n~6▝- ▘▘0A▝08©8P▝~R@[▘>pkv0`~▝|USR f8<▙▗<>``<f ▗,~`▗|`| ▘`| 0▝~A @▝< @▝ b0<= [B]g [Q]<_FN 08` LIST ▗>k©c[K]▗>ff~ CLS <`~f|!▜ff?USR 6▘©cp▘`| [I]▗© FLASH FLASH RETURN (▘~fUSR `0<<30 STOP ▝@0▘xlK▘6 LLIST f▗cw©kG`▝~!cp h!`~ X>f`0 STR$ ![I]▘> kk>kk0( FN ▝`[A]cc{g© >=▝ USR ▝cUSR k0▝o▝ PLOT p0>3? RETURN gk{knq`XP[Q] FN A~`x SAVE <`nA(0 FORMAT ▝<AUSR USR 1@A& [Q]ACS !▝<` LIST QP LIST nf{1!8▗<p<[Q]▘4<FN LPRINT !hQ▝X[Q]2 CIRCLE "▖p080p CIRCLE ▝l" NEXT ▚<~NOT OUT NOT ~"IN x▗ LIST VAL LIST @[A]@ LIST @ LIST LPRINT ` @D`B0B""! [U] $@<@XB[A]G[M]▛>[C],B(<.QAr READ U▗ BORDER OR ASN LIST VAL @ LIST [A] LIST LPRINT LPRINT ' LIST $ SAVE H POKE SGN CIRCLE USR USR PI LPRINT LIST LIST SQR LIST [F] LIST SQR ▟▙ LIST K[A]AT [I][M]@[S]@B" FLASH VAL @ `USR ▝@STR$ USR qUSR [R]?R^NNG▜[P]▚4▚/▚O[A] TO [A]HPNp[B] LOAD # OPEN #▜ LIST ▘(<=[O]80"@! LPRINT a`A LPRINT A STR$ LPRINT ▝ LPRINT USR [C]USR [B]▞USR ▞ LPRINT ▖ LPRINT LPRINT LPRINT @[C]@▜# LLIST USR [C]OH.fPxqLN '*LN 0 LIST 0LN `[A]`aLN d`b0bLN 210[U]`$`<`qLN qLN 4#[J]B▝[A]xXxH0x▚p `"p"[Q]DDHH"H"HBHD@DD".BQ<" INPUT ▝q RANDOMIZE [P]/USR [Q][Q] CAT [Q]<=[Q]C 8 ? FORMAT ▝[M],>=?FN ? DATA )[U]EXP CHR$ STOP DATA PAUSE STOP STOP DATA POKE POKE [M][U]SGN L TO DEF FN VAL HpBIN x DEF FN VERIFY VAL$ SGN [M]PEEK >@©`©PPEEK VAL [M][Q]C>©©©I?▗?[S]?SIN SIN PAPER S FOR LET ▗ LET RND STOP PAUSE RANDOMIZE RANDOMIZE LET NEXT DATA C CIRCLE INKEY$ LIST LN X LPRINT Hp▖pxx▝*px`x▝ x▛©?)?ATN ▗?▗R▗S[E]©▗ COPY $©"_} RUN k[B]7[B][B];[K]5 BRIGHT CIRCLE /USR LIST 9>=pxpxpxp LIST p LIST x▝{▗I©▙▗0©▗"R▗ S▗"©▗x[H] COPY " OUT CLEAR " RUN " FOR "w$k[C]$U[C]▛u[C] OVER ERASE /NOT PAUSE 9 TO p LIST LIST AT p LIST hk@PEEK [Q][M]VAL CQhIN [I]©▖ COPY BIN 1<>BIN ' COPY CLOSE ## COPY DATA ! COPY BIN "s$2FN "IN $~d COPY STOP # OUT STOP # CLEAR REM # RUN REM + FOR REM + RUN REM % FOR STOP % MERGE CLOSE #% FOR CLOSE #$ PRINT [C]# ERASE DRAW p LIST !h'LEN SQR ▗2$SQR 4&" ^▝4[O][U]5d©d©dPEEK $[M]BIN [S]BIN INVERSE BIN COPY GO TO / COPY SAVE ' COPY POKE ' COPY PAUSE '<> PAUSE % COPY ERASE [A] COPY CLOSE #[C] DATA [C] CLOSE # INKEY$ COPY POKE OUT POKE CLEAR POKE ' RUN PAUSE / FOR IF / RUN IF ' FOR PAUSE / MERGE RANDOMIZE , FOR INK (U▞0 REM ▟ PRINT IF q`[A] COPY COPY COPY COPY COPY COPY COPY COPY RESTORE [P]!T IF NOT ! PLOT NOT / RUN NEXT ~2[A] PLOT " OPEN # PLOT # STEP STEP PLOT <2[C] PLOT GO SUB S▖ PLOT GO SUB S PLOT MERGE IN PLOT ! STEP ERASE PLOT FOR "▙ PLOT ![J] PLOT "[D] PLOT ![K] PLOT [L] PLOT ,p GO SUB VAL LLIST !CODE STEP <= PLOT =2[T] PLOT 2TAB PLOT 2ATN PLOT >2[B] PLOT #"[R] PLOT "ATTR PLOT "ASN PLOT [H] STEP 7 IF CLS <>w LET LET PAUSE ^ INPUT E BORDER IF c4d COPY K▘[A] LET ppP[%LN PEEK >=NOT <= PLOT ^#V# FOR C INPUT FOR <>_▜_ INVERSE INVERSE ~ THEN ©J THEN wCHR$ NEXT PLOT B NEW g INVERSE ^ INVERSE ~ PRINT NEW LIST STR$ TAN W LET NEW o INVERSE THEN n>= THEN STOP <>:LN PLOT O![C] PLOT PEEK PAPER RUN CODE O<2LN PLOT i&) GO SUB [▖ PLOT N#~2/ RANDOMIZE y* PLOT FORMAT GO SUB S[D]1▝[F]1[A][H] PLOT <> INVERSE 5 LIST INVERSE ~ COPY INVERSE w<>:[B] PRINT ▖[B] PLOT CHR$ INKEY$ SAVE :[A] PLOT NEXT [B] INVERSE ![M] PLOT STEP Q RUN PAUSE ▜ RUN *[D] PLOT ~< TO STEP VAL RUN 1 INVERSE !INKEY$ [K] RUN *K▝[F].▝VAL .▗INKEY$ SAVE *[H] &POINT [H] PLOT NOT INKEY$ SAVE ~ RETURN ` PAPER OVER RUN RETURN p PAPER FOR RUN RETURN PAPER SAVE LINE SAVE RETURN ▝ LINE DIM RUN RETURN ▘ LINE SAVE RETURN PAPER ( SAVE VERIFY [R]|▛ INVERSE w COPY #NOT VAL RUN INVERSE w INVERSE + INVERSE 6 #<> VERIFY ` RESTORE c*▙ PLOT ABS ▜ INVERSE u INVERSE t LLIST %▝#▖ COPY <>CODE VERIFY p RESTORE AT ▘*@!▖ INVERSE t INVERSE 6 RETURN %▛ VERIFY 2 AND PLOT #~#2BIN PLOT RESTORE CODE p*0*▝ LLIST o~<>=== INVERSE w PRINT _[I]O< NEW INVERSE w LET USR INVERSE ^ INVERSE V!`~= IF SAVE @#~<)▜<>yATN USR |2IN 8< INVERSE ~ RETURN ATN >= RETURN LINE [P] SAVE yNOT [T] SAVE CODE v THEN NEW <>!:[C]M SAVE y2T RANDOMIZE INVERSE *[P] PLOT STEP CIRCLE PLOT yVAL 2USR !Ru[D] LINE ERASE SAVE STEP ▝ SAVE STEP J RANDOMIZE "EXP PLOT !STR$ PLOT w STEP ▞ SAVE !R▘M SAVE ▘ RANDOMIZE 0:▝POINT ::USR PLOT LEN VAL <1!v5▗SQR PLOT !CHR$ @5t@5▝@@5▝COS @5▚ THEN THEN VAL LEN P9[M]n▗ABS PLOT !NOT nNOT 7 IF } PRINT MERGE INVERSE n INVERSE fw▛▚ AND ▜_!w RANDOMIZE [I]IN 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 IN PEEK ▗X PLOT LINE [S]|X8 SAVE OUT CHR$ AT [A]{eQ>, DRAW LOAD LLIST VERIFY >=ABS SIN FN [P][G]▙~wkd^YTOKGZ▜?;85INT [B]/,*'%#!ACS [P]! AND PLOT CODE ACS > VERIFY USR +IN yIN GO SUB ATTR = PAUSE G IF <>PIVAL$ SONG BY ST COMPILE[G]GKOSW[_▞SHC8▘ BEEP IF ▗▝ ▝0 ▝` 0ppp!3▗pZp]pcpip]pc▘?B0pp CLS Kgr▗0pppp*p3p<cH INVERSE %▝0pp▗0pp[N]'6/[Q]TAN RESTORE "1h COPY INKEY$j[U] COPY [S]▝mr000▜55s77p COPY [S]l7f<[U]<[R]lUSR 0▘3[S]@[E]7787[S]5[R]5575[S]3[R]3352[S]0p&P&P2j▝INKEY$w[S]INKEY$ ▗[S] COPY [U]}[S]0[U]0[S])[U])[S]s+[U]+[S]rP$ COPY [U]fpypy y[G]INKEY$<[S]l+0[T]0[R]2[S]3[T]2[R]0[S]+[T]+[R]+▝,)'&=▝▝0 CLEAR COPY CLS ▝mprp|pvp[G] [G][R]lp RETURN ▜'&$pmpm0m▗[T]'[R]&sAT $ COPY <> OUT POKE CLEAR POKE ' RUN PAUSE / FOR IF / RUN IF ' FOR PAUSE / MERGE RANDOMIZE , FOR INK (U▞0 REM ▟ STEP >= NEXT GO SUB sb! AND a▟[d MERGE GO SUB VAL !<= REM [O]<> GO SUB LN ! NEW THEN USR ~ THEN © NEW G GO SUB o AND O#{[G]# RANDOMIZE foz[I]Dgx GO SUB VAL `i9 OUT NEW ©(# THEN w O GO SUB VAL FORMAT NEW ? AND G~#N DRAW yCHR$ 1 CONTINUE [ LLIST ; LET w IF 1 CLS NOT RIN USR STR$ 0:NOT SUSR NOT !STR$ NOT [K]USR ASM COMPILATION OF OXYGENE (J-M JARRE) BY ▘EU ▜ULAKHLYNOT PICODE !VAL$ USR CODE USR bw GO SUB VAL 2NOT STR$ 2IN USR 2 LPRINT USR 2STR$ <2 STR$ RANDOMIZE OR BK2(STR$ ▜ STEP STR$ STEP ATN STR$ " CIRCLE ▘?CHR$ ▘LCHR$ <>STR$ GO SUB SUSR STR$ CODE !STR$ STR$ G▜=2STR$ NOT |STR$ COPY RESTORE ▝ COPY 0[L]! STR$ 5 '6:VAL$ USR ! CAT USR ACS ! LIST USR ACS THEN G TO IN STR$ INVERSE NEW ▗ STEP CHR$ INVERSE ▝ LIST ▗EXP NOT > ▝ ▛EXP NOT : LET USR G: FORMAT USR VAL POINT CODE USR VAL STEP ATTR STR$ !STR$ IN COPY =+G< NEW ACS x =+B GO SUB yC GO SUB [T]< ▛ATTR = PAUSE STR$ 2STR$ <> RESTORE MERGE [O]w MOVE LLIST <> FOR ^#V# FOR <>! AND {< RETURN '8>n[A]~▜▚▜bo) AND STEP LN STR$ "STR$ USR b▝ STOP ▘STR$ [J]▘ THEN AND AND ▝ LIST [D]CODE 2EXP USR 2 PAPER USR 2 CLS USR <> INVERSE 5 LIST INVERSE THEN ACS [S]PEEK INVERSE 6 INVERSE ^ INVERSE V RETURN ` PAPER 0NOT !CHR$ RESTORE VERIFY LIST 0H AND 83 AND 8[H] AND @ INVERSE w<>z STEP STEP XCHR$ INVERSE u INVERSE t<>[U] MOVE [A] INVERSE t<>▜&o~#fo<>XINKEY$ INVERSE wUSR `POINT NEW INVERSE 6<>!©CHR$ ONH DIM &57RND?[T][R][P] INVERSE w<> STEP [M]CHR$ ▝ PLOT 9▘ RETURN <>,▘ STR$ /[D]<> GO SUB D MERGE INVERSE w_[P]W> COPY gSIN ▜ PLOT INVERSE N INVERSE F9▙ MERGE RETURN V8 INVERSE ~ STEP A OR MERGE 0ATTR FOR MOVE ATN GO SUB R RESTORE 0 FOR CODE go GO SUB R FOR INVERSE ~ GO SUB DOCODE ▝8[B]ATN THEN THEN POKE STR$ THEN x 0!▙ GO SUB Do[P]g INVERSE u INVERSE t/▛ INVERSE s INVERSE r INVERSE w MOVE <>b▜ RETURN ^8m(/[G]e5▖ OVER _ INVERSE w INVERSE wz[C] INVERSE w INVERSE ~= PAUSE `NOT CODE INVERSE w INVERSE wUv "[D]w INVERSE n INVERSE f INVERSE u INVERSE tq▝ VERIFY u▝[O]y▝▙}~ INVERSE n INVERSE f INVERSE u INVERSE tf(+[A]STR$ INVERSE ~ INVERSE w INVERSE s INVERSE r<I▚▚<>2STR$ CODE SIN N qLN [E]V(k STEP ?BIN STEP DRAW BIN INVERSE THEN ^ INVERSE ~26▝▚[P]/ NEW U[E] INVERSE n INVERSE f INVERSE ^ INVERSE V:STR$ ▜_}▗| NEW ACS [G]ATN ( IF BIN INVERSE 5 INVERSE n INVERSE f INVERSE ^ INVERSE VQ▚/ NEW 0 INVERSE ~FN PLOT W= AND _zNOT 7[N]n INVERSE fT]~#N#F# RETURN 8& THEN © THEN o(R▛ DEF FN INVERSE s INVERSE r REM `▞^ CONTINUE INVERSE n INVERSE f1YO{ STEP P[J]▜u INVERSE tx NEW l▚x NEW RETURN [A] INPUT ([G][F]VAL$ 8 VERIFY INVERSE ▚ LET DEF FN RETURN DEF FN COPY R▝xSTR$ ▘ NEW LINE BIN CODE RETURN W INVERSE F▘ CLEAR NEW LIST INVERSE w MERGE n(L(FyUSR ▜[C] THEN / THEN / THEN /!STR$ ▚w<> INVERSE n INVERSE fABS SQR ▝SQR [F] THEN w( INVERSE n INVERSE f INVERSE s INVERSE r GO TO 1[A]Ox INVERSE ▚ NEW ▛y NEW GO SUB DLEN INVERSE ▚ NEW INPUT ▞<>▜_!M OR [B]IN <> BRIGHT TO "▘ GO TO / VERIFY X LPRINT n[P]@ NEW [B]A PLOT VAL$ k, LIST ATN ▘O NEXT >=[R]IN {W6 SAVE BRIGHT STR$ FN [A]ydP=, DRAW INPUT LPRINT CLOSE #>=ABS SIN FN [P][G]▟~wpjIN d^YTPKGC?<852/-*(&$" 0▝ATTR '▜ IN [M]INKEY$AT ACS ERASE BRIGHT SAVE 6Va▝[F][T]PEEK >= READ 2ISj▘▟RNDABS <> LLIST RANDOMIZE IN 9Cb▟VAL$ VERIFY LLIST +PZ©FN COS BRIGHT LLIST BORDER GO TO !+N▗▙LEN PAUSE CLEAR %:@FN L[E]ATN IF %*05@FPOINT BIN LOAD }U[U]USR a COPY [Q]CHR$ GO SUB ©E COPY ▘LRNDPI[U]USR LOAD qa""!!caka COPY [Q]NOT LOAD oFFCHR$ EE COPY RNDp&p&@&BcakpFF▗wa%p@@p$p$$>▞&a c!apH▙e!i▗CHR$ LOAD oENOT ▚ Ep+psP+▘a] STEP SGN ▗ca@9SQR `@ATTR ▗ia^p PAUSE pAT pAT p%p MOVE pTAB pTAB p PRINT ;pCODE pCODE p PAPER q"P-▗o]a^q}7▝^y!w!{q[O]0!TAN [R]e,-c/e20c2e02c4e57c9 COPY [Q] OR LOAD o> AND A<=@@ COPY PI#[D]ce !c#e!#c$e&(c) ;▚./c1e46▞24c6e79c;;▞ INPUT o@ AND C<=B LOAD B <[D]c!e"#c%e#%c&e(*c+ w▘54r/c-|▗/e-+T▘[Q]<=[T]USR E u▘&$p▝z` COPY [T] OUT rdd▝[T]rgrgr▟p)p)Hj▗*bTAN Qcorq@Jp+r OUT p+Lrx V▘cs▝! URG2rATTR p3p3p3▘a] LET r▖B▖r[M] <>▘a!Bs{A▚ !$s>!p/qFp//p MOVE ` MOVE q'p ERASE sRp ERASE qq[q▗l]b^CR [T][T] OUT LPRINT RETURN q+(a.!.!-#-#+(+()-c&5a&5$<&5c)-▚ K!G$<tO▗ COPY g_[R] OPEN #[G]><9g7a9<c>aAe>a>CcA<9a<a9 b▝cbX▘+(B r▗c$;o{▘1tSIN ▝ COPY aT<97e9aA>CAECh▞><>9<i>a<|0c▖2a,%c-#EXP ▘(/0e0sNOT p LLIST P LLIST ▘-#Pq DIM t[M]h ERASE 0SQR ▝> MOVE ▝e0 CIRCLE ▝A MERGE A>A MOVE ▝> BEEP ▝>"▘ LPRINT RETURN !▝;!'`H▘ COPY eC▘a>AT ▝<!`a-#)-iqiqii0B!u%▚,%-#0q1^ LET Z▝<>>aiqqiqqqyqyqqq[U]!w<c9p▝g PLOT CEg>aEcCa< COPY n]`_E[L]▝m RETURN 2 FLASH z▘g6njP@PEEK VERIFY INK [J]YRmpsvy|©ASN ▖▛▙[B][E][H][K][N][Q][T]INKEY$POINT AT FORMAT USR VAL [Q][I]▖xLN phXp*p*VAL [Q][A]0*X FORMAT USR VAL pEorpWf▝`W▝ CIRCLE ▗FN ▟▝ COPY FN `FN LPRINT ▖ CONTINUE REM PAPER ▗ PAPER CLEAR pppp0p0pHPH▝@H▝ CIRCLE ▟▝ CLEAR ▝>=▝▝FN ▝ CLEAR ▝▖▝▝h▘ CLEAR ▝H▝$▝▝(▖ COPY MD▝LN Q▝0`pc i DRAW pppp[D]p0pATTR PH▝@K▝pUSR pUSR pUSR pUSR pUSR pUSR pUSR pUSR USR ▝ ABS ▖>= DRAW BRIGHT DRAW CIRCLE VAL ▝ SGN 0ppp0p0p0pH▝USR ▚ CIRCLE SAVE CIRCLE RETURN !▝▝>=▘▝ RETURN ▝FN [H]▝▝▖[N]▝ RETURN ▝h▝▝H▝ RETURN ▝(1"C STEP !▚▚LN RETURN >=00c>=@l PAPER R RESTORE Hy▝ ▝p`x[H][K]0pppp*p3 OPEN #▗ FORMAT USR s]ClsrC▝p*s[G]p?s[M]lpTCUSR pQsl▞h@BDV TO t▚ REM ▝SCREEN$ ▞▝VAL$ [U]SIN TAN [B]LN INT SGN L▜USR CHR$ BIN AND LINE TO DEF FN SIN ▝ ERASE -▝ VERIFY FN ▝ LPRINT 7▝ NEW DRAW CLEAR RETURN ▘` CLEAR CLS ▞ CLS ` CLEAR "▘`0▝ DRAW =▘`BP ▘`@T0& POKE `jnPppp$▙▝ POKE 8▝ POKE [O] COPY NEXT [Q]NOT FOR USR NOT [F]USR NOT RETURN NOT >O STEP <=USR ~ RETURN 0O#~ RETURN POKE O(,(: FORMAT NOT ATN (#NOT uUSR LOAD NOT Ox[B] CIRCLE CODE 2 IF NOT 2 RUN NOT <2 LIST NOT " LET NOT " NEXT NOT " PRINT NOT x<> FORMAT ` ▗ FLASH NOT 2 CIRCLE MOVE NOT " ERASE NOT " CLOSE #NOT " VERIFY ▝LEN `@▗SGN NOT 2EXP @SIN NOT "COS NOT "ASN NOT "ATN @>?2▖NOT CODE 2LEN NOT 2 FORMAT NOT 2 LOAD NOT %Hk▝EXP Nq[K]2▞NOT 2NOT 2▛NOT !▙NOT NOT kSTR$ {▜ AND [A]o DEF FN OR [F]gBIN <>[H]_ DEF FN OR [D]W AND PO DEF FN BIN G<>>2[C]NOT :LEN BIN [I] INVERSE ![R]NOT CLEAR !▞NOT *▝NOT "NOT *COS NOT STEP |STR$ "▝NOT LLIST ▝USR ▗NOT * ▝ ERASE ▗NOT : LOAD 0:▝ OUT :▗▛NOT * :▝ LET :NOT [STR$ TAN ASN (--: [E]:▖NOT PLOT STR$ ▛"NOT STEP JNOT :USR ATN USR 1IN CLEAR COPY GO SUB Y CLEAR IN ~+ GO SUB y PAUSE kSTR$ <> INVERSE 5CHR$ ATTR CHR$ ~#^#ATN LINE NCHR$ RETURN PAPER CLOSE #STR$ RETURN e PAPER ICHR$ RETURN DATA PAPER CCHR$ RETURN COPY LINE (CHR$ VERIFY NEW (F==(=(▙]=(N=(c= LINE =CHR$ =(>[H] INVERSE 6 CLEAR 6!<> INVERSE 6+ INVERSE u INVERSE t ▟ RESTORE RESTORE STEP :[C]NOT =>= PRINT ▛NOT ▘STR$ {2▜NOT >2[B] INVERSE s▞ STEP CIRCLE USR INVERSE q▗ INVERSE p0 GO SUB C[P] (t INVERSE u4▞f INVERSE n~ RETURN COPY CHR$ ▗ INVERSE n I▝[[E] NEW ©+ INVERSE ^ INVERSE ▚ VERIFY INVERSE s INVERSE s INVERSE w[A]▜ AND Po DEF FN BIN [F]gNOT GO SUB [Q] GO SUB [Q]CODE ▜ INVERSE RESTORE MOVE !P[C]CODE ![B]NOT ACS 6 INVERSE n(*[P]NOT "[H]NOT CIRCLE ▘"[D]L INVERSE INKEY$ASN NEW [M] INVERSE RESTORE LLIST INVERSE V INVERSE ^4[G]CHR$ LPRINT CHR$ w CLEAR ▚ VERIFY CLEAR w#`[M]<CHR$ PAPER CHR$ INVERSE V INVERSE ^ INVERSE r INVERSE s*NOT |ASN >= INVERSE ~ATN BA▖## INVERSE V INVERSE ^C▘*NOT C▝O0<▝[A]<CHR$ NOT INVERSE V INVERSE ^s<▛B<>JSIN ▟ INVERSE ~( INVERSE ▚ INVERSE 6P LPRINT u▗ FOR <> GO SUB [ASN ▘[D]NOT [N]▝USR pX▝p0X▖lNOT GO SUB [[P]NOT GO SUB S BEEP [B]▜NOT ~▝ VERIFY w RETURN CIRCLE #~ PLOT 8w<>i# CLEAR ▘[B]8USR FN ▝n▗&>=COS ▝▖<= LLIST AND $[H]STR$ >=COS >=COS >=2/[R]0▝ FOR @▟ FOR AND R<>H<>H<>) STOP ▝p>@> OUT <> MERGE <> MERGE <> ** COPY DEF FN TAB FLASH XPI COPY a TO ?SQR =<=W INPUT , OPEN #1 NEW [Q]] READ >=COS wE REM USR [I]sP/ PAUSE VERIFY SQR [S]▛u`L:( RANDOMIZE FOR OVER MOVE NEW ▝INT [U][F]INKEY$[N][E]▗|uoic] FLASH ▜SNJF6[F]>;741/,*'%#3tRND$4ANUbi[Q]IN }▜[B][L]TAN LN OR CAT BRIGHT READ LIST IF "/BLY]gqxPEEK OR CAT VERIFY INVERSE BORDER BRIGHT GIN lXY CONTINUE REM VSTR$ 6S[S] PAUSE NEXT $b SAVE IF hVAL$ CODE 9ZnoIN [G]SCREEN$ ATTR AT ACS <= LINE RESTORE *FN 3<[tSIN BCOS ACS LINE FLASH GO TO *▜SCREEN$ IN LN AND INVERSE LIST CLS FyTAN RESTORE ▘ATTR STOP PLOT x[A][N]PEEK >= COPY ▗▖© COPY [H]▘>=▝▙@©©▘©0!p2p2p2p2 2©P?▘~PB▝@▖s COPY ~ FORMAT ▖▗ FORMAT l FOR >= COPY ▝©▝%▝▘F▝ ▘| ▙CODE Q▝©▝ w7Vw0 PAPER ▝ OPEN # /▞▝©2© LET ▗q▝▟}{{▙©@AT © AT ©▘ OR ▝@<©!7▖▝©0▝ SAVE ▝©▝}^ REM Q@▘@7▝z POINT k LPRINT @ AND SAVE v`▚▘~n▘}EXP IN ▟|▗{p`-▘ COPY CIRCLE >▘ AND s#▚© COPY ~▝ READ GO SUB ©x▝▞VAL ![A] DIM REM ;[R] GO TO INPUT INPUT Pp GO TO REM DIM GO SUB INPUT GO SUB ▝0▜pFpFpNpFF 2pvpvp~pvpvpv ▘0AT ▝[K]▜ INPUT GO SUB GO TO [O]▝[O]▝[S]▝INKEY$ INPUT (@&p VERIFY ` LPRINT p LINE ▚ INPUT ( INPUT RND GO SUB GO TO M DRAW GO TO DIM < LPRINT INPUT p DIM GO TO REM INPUT DIM INPUT GO TO DIM ▝▝▝ GO SUB 0TQ▗0 INPUT W GO TO REM p2▘ GO SUB : INPUT T GO TO b▜pp INPUT INPUT `X▗ INPUT RETURN ![E]▞ GO TO *? BORDER DIM [I] INPUT PP[L]a▖ NEW 5 DIM INPUT DRAW ▝▝0▝08` ▝ COPY p REM DIM # DIM ▗ REM COPY 0535732▚.+,p,,▖ DIM 32. $[A] COPY DIM FOR NEW 0 DIM NEW 3 NEW 9 NEW :▘H <▝<▝&▝▗ COPY `▚▘ COPY ▖:[S]▝7@[U] ▗[E];0[Q]0-▝,▝▝++) ▚'pU▗ GO TO ▝▘* GO TO !"FN "▝2=▘34▝:▙ COPY REM GO TO DIM T COPY COPY COPY FOR p6p6p6@ TO *▘ DIM IF [F]▝ COPY `dUSR COPY `d[D] DIM REM GO TO $8 8888 COPY DIM o▘0 PLOT SAVE 1 GO TO NEW ▝' GO TO &&▗$& NEW p▝)0 ▝'INKEY$ AND ▚ DIM 7T COPY pB B▟( DIM ( REM ! FOR ' GO TO INPUT ▘ INPUT RESTORE ▝pp▗ INPUT REM DEF FN ▖@ REM ! DIM (!BIN INPUT ▘ INPUT AT @B > INPUT ' INPUT % INPUT % DIM BIN GO TO * INPUT +- INPUT + INPUT +▞ INPUT + COPY DIM REM #y▝L▜x INPUT ( INPUT $▗$▜ INPUT INPUT $p▝+$▝▚ REM # DIM LIST INPUT r▝" H▝@0D▘O@0:▖ INPUT & INPUT & INPUT ) INPUT ) INVERSE ▟ DIM INPUT , INPUT , INPUT , COPY DIM REM 0w▝ COPY a LPRINT ▗ COPY x▗$' `[C]'&'&$ COPY "" @▞$@ COPY # CONTINUE $ NEW "▝"Xppp$p$p66"H▝ F p`l▝ ▝zpP▘ COPY $ ▘'@▝STR$ OR ▚$ [R]$& P▝@@4▝ *@8▗+)▗$0& BEEP &)'@ V▜$4+)#0▝.01 <|$4" THEN ▘&08H▘. 4@▝@[D]>=▚<0<0ppp p,P4▝:{▝:0p 0AA5`P0▝ COPY ▘VAL SGN SGN [C]$')+)'&"▘ RESTORE 1Y STOP ▝! CONTINUE ▘1▚▘8▘&6&).2.253 BRIGHT ▝+ LPRINT q#PP COPY COPY DIM & REM 08 COPY LIST DIM REM FOR O DIM GO SUB < : < < COPY P▜? > A ?▝0"▝CDC DATA C COPY OPEN #USR LOAD INK ▘ RETURN ?(▝?A▗ COPY C D5▘> <u▝$ INPUT "SIN [H]"ACS ▗" MERGE "~▘ " LINE [A]p(0( PRINT ▘<▘▝B▚ NEW [E]▘ NEW [Q]▛ COPY 0352 5 ▘7 70p▖25:7▚3230▗.)rRrRrRrR"R▝rPrPr/ DIM AT ▝[G] DIM r6r:2FJ(▝.(▝/2[Q]▝00rAT P▝<pPd▝55pp▝5 INPUT ] NEXT ▙ POKE DIM REM FOR & NEW D~ RETURN FOR " NEW $ O RETURN n%[H] POKE 23 CONTINUE DIM REM FOR NEW 2c RETURN POKE CONTINUE GMc RETURN ▝O DIM NEW %U RETURN VP LOAD POKE 5 DIM REM (▝@u FOR [G]▗ RETURN fP▝ ▘ FOR ATN ▘:Y▙▜% FOR $ NEW ▚ NEW Y RETURN LOAD SCREEN$ &PEEK [M]▟ DIM REM FOR [K]@ NEW SQR ▗; #▚ CONTINUE NEW pn REM "(n&▘?▜JJJ D>q▜AB DIM 4 THEN C INPUT C▗ INPUT F INPUT FG[K]I%0 INPUT I GO SUB REM 6789:;<=k▘ REM # GO TO EXP INPUT D INPUT STEP USR STEP REM >2USR 2USR STEP USR NEXT ! RETURN RETURN 6 CLEAR GO SUB VAL >NOT ![U] DIM 2 CLEAR CLEAR " RETURN CLEAR > RETURN GO SUB G GO SUB ^ CLS STEP DIM INKEY$1 Magick!2 Save Game3 Restor@4@!▖Axil5p! [I]Fully disked &remixCOS for 128Kby A.SckacheckNovosibirsk'1994[Q]:LCODE PI(RND▗6SGN align Statu NEXT STEP 3POINT STEP dFN CODE 2/v:/PI( PRINT 2▗POINT RETURN 1 LINE MERGE DIM RETURN 2(> RETURN 3(a RETURN 4(6 RETURN 5(Y RETURN 6 INK M[M] OPEN # OR !1CODE 2CODE :POINT INPUT 2POINT (3CODE N FOR qK[G] STEP DATA FN STR$ BRIGHT ATTR :1CODE VERIFY '0CODE 21CODE &[L]SAVE:[Q] STEP * CONTINUE STEP [G] CONTINUE CLS CLOSE # REM NOT ! CONTINUE > COPY 2L` ▗LOAD0 ▝▗ ▙!` NEXT GO SUB [TPOINT GO SUB KVPOINT GO SUB VAL :[L]▘5CHR$ 2▝2▛ REM NEXT GO SUB VNOT TAB POINT STEP mATTR OUT ▖Insert!2[E]& press key[Q]CODE FLASH RETURN / NEW SAVE 0▞( SAVE >© FLASH RETURN ERASE A[S] STEP AND DIM :WPOINT GATN (< AND A2 CLS CONTINUE :^POINT 2 IF CONTINUE x2 DIM <> NEXT STEP DIM 0▖: DIM G STEP D DIM 7 ▖ PAPER BORDER CONTINUE >=*E [I]}[A]o0% THEN |?USR "E NEXT !D NEXT 4*A NEXT " DIM RESTORE 2PI, THEN e($. PLOT "A NEXT INVERSE RESTORE MOVE ! NEXT CONTINUE GO SUB VAL !` REM STEP J DIM MOVE *TPOINT ]▝J]▖MAGIC.-.3 OPEN #▝U@(D DIM ▗ INVERSE RESTORE ~ATN (TAN PEEK INVERSE ## PRINT INVERSE ^ INVERSE V7 INVERSE LLIST <> INVERSE LLIST INVERSE ERASE PI<> INVERSE !/ INVERSE !s- INVERSE "h DIM INVERSE ! NEXT STEP [K]STR$ / STEP [N] DIM OR OR MERGE INVERSE ! MOVE $ THEN c(J INVERSE !/&[A]:[S] DIM NEW INVERSE !/BIN [H] DIM y INVERSE !P3[J]STR$ DEF FN <> THEN 9 FORMAT :[T] DIM INVERSE RESTORE NOT /=< RESTORE MERGE OR INVERSE RESTORE CLEAR RESTORE INK [C] PRINT STEP 8 STEP USR LET STR$ MOVE LLIST INK CLEAR LLIST INVERSE LLIST [B] CLS <>> CLEAR COPY GO SUB y> COPY CLEAR IN GO SUB y<>1pINT ▖!SCREEN$ SCREEN$ 6]SU FORMAT POINT 2]]"^]>SCREEN$ UNOT OR POINT SIN [B]abandone DATA >=v CLEAR LLIST LIST [O]! CONTINUE !USR OPEN #~w#yVAL NEXT <><>[J] COPY [I]M▚ COPY ▚e COPY INKEY$'▚ COPY DATA 7 COPY DIM [H]▘ COPY SQR ▗[N] COPY SQR INVERSE [Q] COPY FOR INVERSE POINT GO TO [N] GO TO [G]&&.&r"0"h(Q7JINKEY$<>CODE 2/ GO SUB K[T]▛ STEP ▚ STEP INK ▗ STEP ▚ GO SUB C[T]▛ATN (X RETURN N LINE [Q] RETURN O STEP [U]▞! READ NOT = RETURN V(3 RETURN D( RETURN M LINE [U]▝ RETURN H ▖NOT STEP RANDOMIZE ▜!] >[G]w~NOT OR BIN ▞ STEP ▙▜ STEP INK ▗STR$ NOT ▟xATN LINE MOVE STEP ]▝ GO SUB [S/ RETURN $ IF GO SUB VAL STEP [U]▞ INVERSE ~ RETURN USR USR <>! RANDOMIZE n`)))) LIST RESTORE INVERSE LLIST <>! BORDER STEP [H]▞! OUT LOAD OUT SAVE PEEK # SAVE <>1▛ STEP ▙▜!USR Z!]NOT ▝ STEP V▞!
