| Is a part of release: | Academy Tau Ceti 2 |
| File size: | 65280 |
| md5: | 6757af035e2a1deb5993b8fcd0a52963 |
1 REM !'TAB S GO SUB [ POKE / STEP = STEP USR NOT CIRCLE RUN
0 BORDER NOT PI: PAPER NOT PI: INK 0: CLEAR 0: CLOSE #USR 0
65535 REM [S]SCREEN$ O|EXP 3B`qBbtF;[S]}c>DSb{BT&UB PAPER qASN Zit?OQbz#/SQR 'o(,_oqj}D!0H5,?_Jb2:/xCVjZ_bm$ &[ PAUSE REM fIXrl©"WWr{J BRIGHT *BQ(P"-_oqfE|! 3K<:;BM©F;|}[U] OVER STEP d[_g©pCT&Z[C]< PLOT `sb[_'?A"4{USR AND gz HEY-DAY eVERYBODY !!! privet vsem !!! mirn}y serqey (SERJSOFT) FROM KRASNODAR PRESENTS FOR YOU proqrammu "ACADEMY" + poln}y perevod + adaptaci| pod tR-DOS + 5 LEVELS + mu3}kalznoe opisanie . povodom dl| {toqo poslugila versi| koqo-to ij burundukov : to li xipa, to li deyla. ona bukvalzno ki[ela qlwkami naxina| s orfoqrafixeskiX o[ibok, minu| kor|voe qrafixeskoe oformlenie, nakonec OTsutstvoval 1-}y urovenz ! (vidimo {ti qospoda ne stali utrugdatz seb| nudn}m testirovaniem proqramm}, a po-b}stromu japustili ee v prodagu). isXod| ij {toqo | re[il sdelatz svow versiw "ACADEMY" i uge vam suditz naskolzko Xoro[o ili ploXo {to u men| poluxilosz. E]e paru slov ob {toy iqre. v opisanii ne skajano pro dve dopolnitelzn}e komand}, kotor}e ponimaet va[ bortovoy kompzwter. {to komand} : "reaktor" i "versi|". komanda "reaktor" po-vidimomu ucelela ot proqramm} "TAU CETI", Ona Xotz i raspojnaets| kompzwterom no tolku ot nee net. komanda ge "versi|" v}dast vam nomer versii proqramm}, kotoruw v} ispolzjuete i ee avtora. nu po-moemu pora jakruql|tzs| pro {tu iqru[ku, tem bolee xto v opisanii vse podrobno ijlogeno. teperz privetstvi| !!! rossi| : krasnodar - GREETING TO SHADOWMAN, BOSS AND ALL MEMBERS OF "NEW LIFE CORPORATION" ( COMIC128 IS VERY GOOD !), "A-STUDIO", "MEGABYTE GROUP", Osob}y privet aleksandru i serqew s radior}nka (tHANKS FOR rasprostranenie moiX proqramm, ja nov}e iqru[ki i muj}kalki. sereqa, koqda sdelae[z "IM 2" na moem "SPECCY+128" ?) xel|binsk - GREETING TO "DREAM TEAM" (reb|ta, v} men| jdorovo v}ruxaete svoim "SMMOD", s va[eqo pojvoleni| | vklwxaw melodii ij neqo v svoi proqramm}. gelaw vam tvorxeskiX uspeXov !) nigniy novqorod - GREETING TO "PROFSOFT", "RINSSOFT", "SMASH SOFT" moskva - GREETING TO NICOLAS RODIONOV, "inforkom" (oqromney[ee vam spasibo ja vse to, xto v} delaete), redakcii gurnala "SPECTROFON" ukraina : Xarzkov - "CODE BUSTERS" (KLAV, RST 7, MAX IWAMOTO) belorussi| : qomelz - "DREAM MAKERS SOFTWARE", (IMP, VMP, SHAMAN, SA.CORPORATION) POLAND : E.S.I. (YOU BEST GROUP IN THE COMPUTER'S WORLD) COUNTRY : ??? BILL GILBERT (I'M DON'T KNOW WHO ARE YOU AND WHERE ARE YOU, BUT HELLO FOR LONG AND HARD WORK TO CRACKED GAME). teperz "FUCK" TO "THD" (ja to, kak v} remiksanuli "ELITE 3", vam vsem nado otorvatz |yca !). teperz o planaX na bligay[ee budu]ee. novostz interesna| dl| Xakkerov i proqrammistov. v texenii {toqo mes|ca 09.1994 v}ydet paket "WRITER" (assembler+dijassembler), KOTOr}y po skorosti assemblirovani| prevosXodit "TASM 2.0" . "WRITER" - {TO sTroxnoe redaktirovanie, prisutstvie v pam|ti odnovremenno i assemblera i dijassemblera ( xto jnaxitelzno obleqxaet otladku tolzko xto napisann}X procedur ), vojmognostz perenumeracii strok tekstovoqo fayla, bolee 27 kilobayt dl| tekstovoqo i bolee 4 kilobayt dl| obzektnoqo buferov i mnoqoe druqoe. v sostav paketa vXodit podrobnoe opisanie rabot} kak s assemblerom, tak i s dijassemblerom. TAK xto | dumaw slognosti v osvoenii eqo ne budet tem bolee, xto bajoy dl| "WRITER" poslugil [iroko ijvestn}y paket "EDITAS/MONITOR" firm} "PICTURESQUE", On b}l polnostzw adaptirovan pod TR-DOS, s dobavleniem neskolzkiX komand dl| rabot} s diskom. takge v moiX planaX rusifikaci| "TAU CETI 3" , TE KTO videl {tu proqrammu jnawt, xto pomimo prekrasnoy qrafiki i interesnoqo swgeta, ona sodergit oqromnoe kolixestvo tekstovoy informacii, por|dka 25 kilobayt xistoqo teksta, po{tomu rabota poka jat|qivaets|. estz idei po napisaniw muj}kalznoqo DEMO. takge | i dalz[e budu snimatz ja]itu s {lektronnoqo gurnala "SPECTROFON", dab} predstavl|tz eqo vam. na {tom budu jakanxivatz. 13.09.1994 ( C ) SERJSOFT P.S. vse v}[eperexislenn}e iqrov}e i prikladn}e proqramm}, a takge oqromnoe kolixestvo druqiX, vklwxa| tolzko xto postupiv[ie v krasnodar, v} mogete priobresti na radior}nke v subbotu ili voskresenze u aleksandra. {to r|dom so vXodom na radior}nok. BYE ! BYE ! P.P.S THIS MUSIC WRITEN BY OLEG KRASNOBAEV (OKO). COPY USR STR$ "NOT SUSR NOT !STR$ NOT [K]USR ASM COMPILATION OF AXKOLD BY OLEG KRASNOBAEV OKO CODE !VAL$ USR CODE USR bw GO SUB VAL 2NOT STR$ 2IN USR 2 LPRINT USR 2STR$ <2 STR$ RANDOMIZE OR BK2(STR$ 2 STEP STR$ STEP ATN STR$ " CIRCLE STR$ STEP ATN STR$ "?CHR$ STEP ATN STR$ "LCHR$ 2<>STR$ GO SUB SUSR STR$ CODE !STR$ STR$ w GO SUB VAL =2STR$ NOT |STR$ 5 IF COPY g BRIGHT COPY LLIST 5 STOP STOP BORDER BORDER BORDER ++ RETURN COPY PAUSE BRIGHT P STOP ▚ STOP j READ BORDER BORDER BORDER 2>! INVERSE ! DATA 3 DATA 6 DATA " BORDER & BORDER $ BORDER COPY COPY ! STR$ 5 '6:VAL$ USR ! CAT USR ACS ! LIST USR ACS THEN G TO IN STR$ INVERSE !VAL$ USR STEP CHR$ INVERSE ! CAT USR STEP CHR$ INVERSE ! LIST USR STEP CHR$ CODE INVERSE !VAL$ USR STEP EXP NOT > INVERSE ! CAT USR STEP EXP NOT > INVERSE ! LIST USR STEP EXP NOT : LET USR G: FORMAT USR VAL G:CODE USR VAL STEP ATTR STR$ !STR$ IN COPY =+G< NEW ACS x =+B GO SUB yC GO SUB [T]<B GO SUB yC GO SUB ATTR = PAUSE STR$ 2STR$ <> RESTORE MERGE !STR$ w MOVE LLIST <> FOR ^#V# FOR <>! AND {< RETURN 8>2NOT STR$ ~▜▚▜bo AND STEP LN STR$ "STR$ USR STEP ATN STR$ " STOP USR STEP ATN STR$ "STR$ !VAL$ USR THEN AND ! CAT USR THEN AND ! LIST USR THEN AND CODE 2EXP USR 2 PAPER USR 2 CLS USR <> INVERSE 5 LIST INVERSE THEN ACS INVERSE THEN PEEK INVERSE 6 INVERSE ^ INVERSE V RETURN ` PAPER 0NOT !CHR$ RESTORE VERIFY LIST 0H AND 83 AND 8 AND 8 AND @ INVERSE w<>TAB LLIST STEP XCHR$ INVERSE u INVERSE t<> FORMAT NEW STEP XCHR$ INVERSE u INVERSE t<>▜&o~#fo<> INVERSE THEN INKEY$ INVERSE wUSR INVERSE THEN NEW INVERSE 6<>!©CHR$ ONH DIM &57RND?[T][R][P] INVERSE w<> STEP [M]CHR$ INVERSE THEN PLOT <> INVERSE THEN RETURN <>2 STR$ 2(STR$ <> GO SUB D MERGE INVERSE w_[P]W> COPY g LIST INVERSE THEN PLOT INVERSE N INVERSE F INVERSE w MERGE RETURN V8 INVERSE ~ STEP A OR MERGE INVERSE ~ STEP A OR 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 CODE go GO SUB R FOR GO SUB Do[P]g INVERSE u INVERSE t INVERSE ~ INVERSE s INVERSE r INVERSE w MOVE <>2STR$ <> RETURN V8 RETURN ^8m( INVERSE THEN [G]e INVERSE THEN OVER _ INVERSE w INVERSE w INVERSE ~ INVERSE w INVERSE ~= PAUSE `NOT CODE INVERSE w INVERSE w INVERSE THEN v "CODE INVERSE ww INVERSE n INVERSE f INVERSE u INVERSE t INVERSE THEN VERIFY INVERSE THEN [O] INVERSE THEN ▙ INVERSE THEN ~ INVERSE n INVERSE f INVERSE u INVERSE t INVERSE THEN f(2STR$ INVERSE ~ INVERSE w INVERSE s INVERSE r<USR INVERSE THEN ▚<>2STR$ CODE INVERSE THEN N q INVERSE THEN V(k STEP ?BIN STEP DRAW BIN INVERSE THEN ^ INVERSE ~2STR$ INVERSE ~ RETURN V8[P]/ NEW U STEP A OR INVERSE n INVERSE f INVERSE ^ INVERSE V:STR$ ▜_} STEP ATTR STR$ | NEW STEP ATTR STR$ INVERSE ~ATN ( IF BIN INVERSE 5 INVERSE n INVERSE f INVERSE ^ INVERSE V INVERSE u INVERSE t INVERSE ~/ NEW 0 INVERSE ~ PLOT W:STR$ AND _zNOT ATTR STR$ INVERSE n INVERSE fT]~#N#F# RETURN 8& THEN © THEN o( INVERSE THEN DEF FN INVERSE s INVERSE r REM INVERSE THEN ^ CONTINUE INVERSE n INVERSE f INVERSE u INVERSE tYO{[P]W INVERSE n INVERSE f INVERSE u INVERSE tx NEW INVERSE wx NEW RETURN INVERSE THEN INPUT ( INVERSE THEN VAL$ 8 VERIFY INVERSE ▚ LET DEF FN RETURN DEF FN COPY INVERSE w NEW INVERSE ▚ RETURN 8>W INVERSE F▘ CLEAR NEW LIST INVERSE w INVERSE THEN n(L INVERSE THEN ^(Fy▜▜▜ THEN / THEN / THEN /!STR$ ▚w<> INVERSE n INVERSE fT]~#F# RETURN 8 THEN © THEN w( INVERSE n INVERSE f INVERSE s INVERSE r GO TO INVERSE u INVERSE tOx INVERSE ▚ INVERSE wy NEW GO SUB DLEN INVERSE ▚ NEW INVERSE w<>▜_!M OR ^#V<> BRIGHT TO "▘ GO TO / VERIFY X LPRINT n[P]@ NEW [B]A PLOT VAL$ k, LIST ATN ▘O NEXT >=[R]{W6 SAVE BRIGHT STR$ FN [A]ydP=, DRAW INPUT LPRINT CLOSE #>=ABS SIN FN [P][G]▟~wpjd^YTPKGC?<852/-*(&$" TAN BEEP ~[G][T]SIN ABS <Qh REM [F]VAL N RANDOMIZE AT W% FORMAT RETURN [O]Nz DEF FN [U]IVAL$ F FOR W RUN [M]4 DEF FN yINKEY$P PLOT ABS n9 VERIFY COPY G CLOSE #[A]+NOT h▙% ERASE CLEAR c_RND OR LOAD k))502 COPY RND OR LOAD k&22+5c& COPY g_RND OR LOAD k--(4g- COPY [U]BIN LOAD o-[T]NOT .[U]BIN 2[T]NOT 0 COPY [S]CHR$ LOAD o[T]NOT "$ COPY AT TO LOAD a!FN >=`))ATTR THEN 2FN >=)a))AT TO `!FN >=)ATTR THEN a2FN >=)AT TO !FN >=`""ATTR THEN 2FN >="a""AT TO `!FN >="ATTR THEN a2FN >="AT TO !FN >=`++ATTR THEN 2FN >=+a++AT TO `!FN >=+ATTR THEN a2FN >=+AT TO !FN >=`$$ATTR THEN 2FN >=$a$$AT TO `!FN >=$ATTR THEN a2FN >=$ COPY POINT <> LOAD }RND OR `)(o&e()a(`)( COPY [S]CHR$ LOAD o[T]NOT "i$SCREEN$ LINE a2`2AT TO !!! COPY AT TO LOAD a!FN >=`))ATTR THEN 2FN >=))^)^AT TO !FN >=)ATTR THEN a2FN >=`)^AT TO a!FN >=`""ATTR THEN 2FN >="a""AT TO `!FN >="ATTR THEN a2FN >="AT TO !FN >=`++ATTR THEN 2FN >=+a++AT TO `!FN >=+ATTR THEN a2FN >=+AT TO !FN >=`$$ATTR THEN 2FN >=$a$$SCREEN$ LINE `2FN >=$SCREEN$ LINE a2`22 COPY [R]STR$ LPRINT SAVE `SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ga;[Q]`5SCREEN$ LINE LOAD [R]STR$ LPRINT `-/C^C!SCREEN$ LINE LOAD a[R]STR$ LPRINT `TaK[Q]`C[R]aCSCREEN$ LINE LOAD [R]STR$ LPRINT `(^(SCREEN$ LINE LOAD a[R]STR$ LPRINT `[Q]`([R]a(SCREEN$ LINE LOAD [R]STR$ LPRINT `!$;^;SCREEN$ LINE LOAD a[R]STR$ LPRINT `OaC[Q]`;[R]a;SCREEN$ LINE LOAD LIST LIST ` LIST COPY POINT <> LOAD }RND OR `)(o&e() LIST a( LIST `) LIST ( COPY AT TO LOAD `!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!!SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!SCREEN$ LINE LIST a2 LIST `2 LIST 2 LIST 2 COPY [R]STR$ LPRINT SAVE `SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ga;[Q]`5SCREEN$ LINE LOAD [R]STR$ LPRINT `-/C^C!SCREEN$ LINE LOAD a[R]STR$ LPRINT `TaK[Q]`C[R]aCSCREEN$ LINE LOAD [R]STR$ LPRINT `(^(SCREEN$ LINE LOAD a[R]STR$ LPRINT `[Q]`([R]a(SCREEN$ LINE LOAD [R]STR$ LPRINT `!$;^;SCREEN$ LINE LOAD a[R]STR$ LPRINT `OaC[Q]`;[R]a;SCREEN$ LINE LOAD LIST LIST ` LIST COPY POINT <> LOAD [U]BIN e2[T]NOT 0[S]CHR$ LIST c4 COPY AT TO LOAD `!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!SCREEN$ LINE LIST a2 LIST `2 LIST 2 LIST 2 COPY [R]STR$ LPRINT SAVE `SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ga;[Q]`5SCREEN$ LINE LOAD [R]STR$ LPRINT `-/C^C!SCREEN$ LINE LOAD a[R]STR$ LPRINT `TaK[Q]`C[R]aCSCREEN$ LINE LOAD [R]STR$ LPRINT `(^(SCREEN$ LINE LOAD a[R]STR$ LPRINT `[Q]`([R]a(SCREEN$ LINE LOAD [R]STR$ LPRINT `!$;^;SCREEN$ LINE LOAD a[R]STR$ LPRINT `OaC[Q]`;[R]a;SCREEN$ LINE LOAD LIST LIST ` LIST COPY [S]CHR$ LOAD e2[T]NOT 0[S]CHR$ c-[T]NOT e.0[S]CHR$ c2[U]BIN e2[S]CHR$ 2[T]NOT c.[S]CHR$ e2[T]NOT 0[S]CHR$ LIST c2 COPY AT TO LOAD `!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!SCREEN$ LINE LIST a2 LIST `2 LIST 2 LIST 2 COPY [R]STR$ LPRINT SAVE `(^(SCREEN$ LINE LOAD a[R]STR$ LPRINT `[Q]`([R]a(SCREEN$ LINE LOAD [R]STR$ LPRINT `!$2^2SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ca8[Q]`2[R]a2SCREEN$ LINE LOAD [R]STR$ LPRINT `(!^$SCREEN$ LINE LOAD a[R]STR$ LPRINT `(a![Q]`[R]aSCREEN$ LINE LOAD [R]STR$ LPRINT `-^-SCREEN$ LINE LOAD a[R]STR$ LPRINT `;a2[Q]`-[R]a-SCREEN$ LINE LOAD LIST LIST ` LIST COPY [S]CHR$ LOAD e7[T]NOT 5[S]CHR$ c2[T]NOT e35[S]CHR$ c7[U]BIN e7[S]CHR$ 7[T]NOT c3[S]CHR$ e7[T]NOT 5[S]CHR$ LIST c7 COPY AT TO LOAD `!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!SCREEN$ LINE LIST a2 LIST `2 LIST 2 LIST 2 COPY [R]STR$ LPRINT SAVE `SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ga;[Q]`5SCREEN$ LINE LOAD [R]STR$ LPRINT `-/C^C!SCREEN$ LINE LOAD a[R]STR$ LPRINT `TaK[Q]`C[R]aCSCREEN$ LINE LOAD [R]STR$ LPRINT `(^(SCREEN$ LINE LOAD a[R]STR$ LPRINT `[Q]`([R]a(SCREEN$ LINE LOAD [R]STR$ LPRINT `!$;^;SCREEN$ LINE LOAD a[R]STR$ LPRINT `OC-^-SCREEN$ LINE LOAD LIST a[Q]STR$ LPRINT LIST `-[R] LIST - COPY [S]CHR$ LOAD e2[T]NOT 0[S]CHR$ c-[T]NOT e.0[S]CHR$ c2[U]BIN e2[S]CHR$ 2[T]NOT c.[S]CHR$ e24[U]BIN LIST c4 COPY AT TO LOAD `!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!SCREEN$ LINE a2 LIST `2 LIST 2 LIST 2 COPY [R]STR$ LPRINT SAVE `$^$!SCREEN$ LINE LOAD a[R]STR$ LPRINT `/a([Q]`$[R]a$SCREEN$ LINE LOAD [R]STR$ LPRINT `?;SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ga;[Q]`5SCREEN$ LINE LOAD [R]STR$ LPRINT `(!^$SCREEN$ LINE LOAD a[R]STR$ LPRINT `(a![Q]`[R]aSCREEN$ LINE LOAD [R]STR$ LPRINT `(*/^/SCREEN$ LINE LOAD a[R]STR$ LPRINT `/-^- LIST SCREEN$ LINE LOAD LIST [R]STR$ LPRINT LIST ( LIST SCREEN$ LINE LOAD LIST LIST COPY [U]BIN LOAD a4^[S]CHR$ 9^[T]NOT 7[S]CHR$ 4^o6a4^46^[T]NOT 7[S]CHR$ 4^[T]NOT i4a5`^ LIST a5`^ LIST a7 COPY AT TO LOAD `!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !SCREEN$ LINE LIST 2 LIST 2 LIST 2 LIST 2 LIST 2 LIST 2 COPY [R]STR$ LPRINT SAVE `(^(SCREEN$ LINE LOAD a[R]STR$ LPRINT `[Q]`([R]a(SCREEN$ LINE LOAD [R]STR$ LPRINT `!$2^2SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ca8[Q]`2[R]a2SCREEN$ LINE LOAD [R]STR$ LPRINT `(!^$SCREEN$ LINE LOAD a[R]STR$ LPRINT `(a![Q]`[R]aSCREEN$ LINE LOAD [R]STR$ LPRINT `-^-SCREEN$ LINE LOAD a[R]STR$ LPRINT `;a2[Q]`-[R]a-SCREEN$ LINE LOAD ` COPY INKEY$ AND LOAD `7? GO TO ? LOAD 7> GO TO > LOAD 7< GO TO < LOAD 7: GO TO : LOAD 79:<7? GO TO ? LOAD 7> GO TO > LOAD 7< GO TO < LOAD 7: GO TO : LOAD 79:<7? GO TO ? LOAD 7> GO TO > LOAD 7< GO TO < LOAD 7: GO TO : LOAD 79:<9A GO TO A LOAD 9C GO TO C LOAD 9E GO TO E LOAD 9F GO TO F LOAD 7:AE COPY AT TO LOAD `!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!SCREEN$ LINE a2`222 COPY [R]STR$ LPRINT SAVE `(^(SCREEN$ LINE LOAD a[R]STR$ LPRINT ``(SCREEN$ LINE LOAD a[R]STR$ LPRINT `!$2^2SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ca8`2SCREEN$ LINE LOAD a[R]STR$ LPRINT `!^$SCREEN$ LINE LOAD a[R]STR$ LPRINT `a!`"$SCREEN$ LINE LOAD a[R]STR$ LPRINT `-^-SCREEN$ LINE LOAD a[R]STR$ LPRINT `;a2`-SCREEN$ LINE LOAD a` COPY INKEY$ AND GO TO `E LOAD 7? GO TO ? LOAD 7> GO TO > LOAD 7< GO TO < LOAD 7: GO TO : LOAD 79: GO TO : LOAD 7? GO TO ? LOAD 7> GO TO > LOAD 7< GO TO < LOAD 7: GO TO : LOAD 79: GO TO : LOAD 7? GO TO ? LOAD 7> GO TO > LOAD 7< GO TO < LOAD 7: GO TO : LOAD 79: GO TO : LOAD 9A GO TO A LOAD 9C GO TO C LOAD 9E GO TO E LOAD 9F GO TO F LOAD 9F9 COPY AT TO LOAD `!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6SCREEN$ LINE 2AT TO !ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6SCREEN$ LINE 2AT TO !ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6SCREEN$ LINE 2AT TO !ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6SCREEN$ LINE 2AT TO !SCREEN$ LINE a2`222 COPY [R]STR$ LPRINT SAVE `(^(SCREEN$ LINE LOAD a[R]STR$ LPRINT `[Q]`([R]a(SCREEN$ LINE LOAD [R]STR$ LPRINT `!2^2SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ca8[Q]`2[R]a2SCREEN$ LINE LOAD [R]STR$ LPRINT `(!^$SCREEN$ LINE LOAD a[R]STR$ LPRINT `(a![Q]`[R]aSCREEN$ LINE LOAD [R]STR$ LPRINT `-^-SCREEN$ LINE LOAD a[R]STR$ LPRINT `;a2[Q]`-[R]a-SCREEN$ LINE LOAD ` COPY [S]CHR$ LOAD e7[T]NOT 5[S]CHR$ c2[T]NOT e35[S]CHR$ c7[U]BIN e7[S]CHR$ 7[T]NOT a3[S]CHR$ 7[T]NOT c5TAB STEP g5INKEY$ AND `9EA< COPY AT TO LOAD `!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!SCREEN$ LINE a2`222 COPY [R]STR$ LPRINT SAVE `(^(SCREEN$ LINE LOAD a[R]STR$ LPRINT `[Q]`([R]a(SCREEN$ LINE LOAD [R]STR$ LPRINT `!$2^2SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ca8[Q]`2[R]a2SCREEN$ LINE LOAD [R]STR$ LPRINT `!$-^-SCREEN$ LINE LOAD a[R]STR$ LPRINT `;a2[Q]`-[R]a-SCREEN$ LINE LOAD [R]STR$ LPRINT `-2SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ga;[Q]`5SCREEN$ LINE LOAD ` COPY INKEY$ AND LOAD `7> GO TO > INPUT 7> CONTINUE > GO TO 7> RESTORE > CONTINUE 7> READ > RESTORE 7> LLIST > STOP 7> LLIST >[T]NOT LOAD c) COPY AT TO LOAD `!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2ATTR THEN 6SCREEN$ LINE 2AT TO !!SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2AT TO !ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2ATTR THEN 6SCREEN$ LINE 2AT TO !!SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!SCREEN$ LINE a2`222 COPY [R]STR$ LPRINT SAVE `(^(SCREEN$ LINE LOAD a[R]STR$ LPRINT `[Q]`([R]a(SCREEN$ LINE LOAD [R]STR$ LPRINT `!$2^2SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ca8[Q]`2[R]a2SCREEN$ LINE LOAD [R]STR$ LPRINT `!$-^-SCREEN$ LINE LOAD a[R]STR$ LPRINT `;a2[Q]`-[R]a-SCREEN$ LINE LOAD [R]STR$ LPRINT `-2SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ga;[Q]`5SCREEN$ LINE LOAD LIST LIST ` LIST COPY [S]CHR$ LOAD k+[T]NOT a)[S]CHR$ `+[T]NOT )o'k)a'`)'[U]BIN g&[T]NOT c&[U]BIN LIST a&[T]NOT LIST ) COPY AT TO LOAD `!SCREEN$ LINE 2ATTR THEN 6AT TO !SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2ATTR THEN 6SCREEN$ LINE 2AT TO !!SCREEN$ LINE 2ATTR THEN 66AT TO !!SCREEN$ LINE 2ATTR THEN 6AT TO !SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2ATTR THEN 6SCREEN$ LINE 2AT TO !!SCREEN$ LINE 2222AT TO !SCREEN$ LINE 2ATTR THEN 6AT TO !SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2ATTR THEN 6SCREEN$ LINE 2AT TO !!SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2AT TO !SCREEN$ LINE 2ATTR THEN 6AT TO !SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2ATTR THEN 6SCREEN$ LINE 2AT TO !SCREEN$ LINE LIST a2 LIST `2 LIST 2 LIST 2 COPY [R]STR$ LPRINT SAVE `(^(SCREEN$ LINE LOAD a[R]STR$ LPRINT `[Q]`([R]a(SCREEN$ LINE LOAD [R]STR$ LPRINT `!$2^2SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ca8[Q]`2[R]a2SCREEN$ LINE LOAD [R]STR$ LPRINT `!$-^-SCREEN$ LINE LOAD a[R]STR$ LPRINT `;a2[Q]`-[R]a-SCREEN$ LINE LOAD [R]STR$ LPRINT `-2a&`& SCREEN$ LINE LOAD a[R]STR$ LPRINT `2a*[Q]`&[R]a&SCREEN$ LINE LOAD ` COPY [S]CHR$ LOAD k+[T]NOT a)[S]CHR$ `+[T]NOT )o'k)a'`)'[U]BIN g'[S]CHR$ c)[T]NOT ) COPY AT TO LOAD `!SCREEN$ LINE 2ATTR THEN 6AT TO !SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2ATTR THEN 6SCREEN$ LINE 2AT TO !!SCREEN$ LINE 2ATTR THEN 66AT TO !!SCREEN$ LINE 2ATTR THEN 6AT TO !SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2ATTR THEN 6SCREEN$ LINE 2AT TO !!SCREEN$ LINE 2222AT TO !SCREEN$ LINE 2ATTR THEN 6AT TO !SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2ATTR THEN 6SCREEN$ LINE 2AT TO !!SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2AT TO !SCREEN$ LINE 2ATTR THEN 6AT TO !SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2ATTR THEN 6SCREEN$ LINE 2AT TO !SCREEN$ LINE a2`222 COPY [R]STR$ LPRINT SAVE `(^(SCREEN$ LINE LOAD a[R]STR$ LPRINT `[Q]`([R]a(SCREEN$ LINE LOAD [R]STR$ LPRINT `!$2^2SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ca8[Q]`2[R]a2SCREEN$ LINE LOAD [R]STR$ LPRINT `!$-^-SCREEN$ LINE LOAD a[R]STR$ LPRINT `;a2[Q]`-[R]a-SCREEN$ LINE LOAD [R]STR$ LPRINT `&!^$SCREEN$ LINE LOAD a[R]STR$ LPRINT `(a-[Q]`[R]SCREEN$ LINE INPUT AT TO GO SUB SCREEN$ LINE GO TO AT TO REM SCREEN$ LINE CONTINUE COPY [S]CHR$ LOAD k+[T]NOT a)[S]CHR$ `+[T]NOT )o'k)a'`)'[S]CHR$ g(c*+ COPY AT TO LOAD `!SCREEN$ LINE 2ATTR THEN 6AT TO !SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2ATTR THEN 6SCREEN$ LINE 2AT TO !!SCREEN$ LINE 2ATTR THEN 66AT TO !!SCREEN$ LINE 2ATTR THEN 6AT TO !SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2ATTR THEN 6SCREEN$ LINE 2AT TO !!SCREEN$ LINE 2222AT TO !SCREEN$ LINE 2ATTR THEN 6AT TO !SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2ATTR THEN 6SCREEN$ LINE 2AT TO !!SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2AT TO !SCREEN$ LINE 2ATTR THEN 6AT TO !SCREEN$ LINE 2ATTR THEN 66SCREEN$ LINE 2ATTR THEN 6SCREEN$ LINE 22AT TO INPUT !SCREEN$ LINE GO SUB 2AT TO GO TO !SCREEN$ LINE REM 2 LOAD 5 COPY [R]STR$ LPRINT SAVE b(`ATTR THEN LOAD GO TO CONTINUE [R]STR$ LPRINT (^(ATTR THEN LOAD [R]STR$ LPRINT (a-b2`ATTR THEN LOAD GO TO CONTINUE [R]STR$ LPRINT 2^2ATTR THEN LOAD [R]STR$ LPRINT 2a/b-`ATTR THEN LOAD GO TO CONTINUE [R]STR$ LPRINT -^-ATTR THEN LOAD [R]STR$ LPRINT -a2bATTR THEN LOAD GO TO CONTINUE [R]STR$ LPRINT ATTR THEN LOAD [R]STR$ LPRINT 2a- COPY [S]CHR$ LOAD k+[T]NOT a)[S]CHR$ `+[T]NOT )o'k)a'`)'[U]BIN g&[T]NOT c&[U]BIN a&[T]NOT ) COPY PI<= LOAD `22a22`2a2`2a220`..a..`.a.`.a../`00a00`0a0`0a00.`--a--`-a-`-a-`-a-`- COPY [R]STR$ LPRINT SAVE b(`ATTR THEN LOAD GO TO CONTINUE [R]STR$ LPRINT (^(ATTR THEN LOAD [R]STR$ LPRINT (a-b2`ATTR THEN LOAD GO TO CONTINUE [R]STR$ LPRINT 2^2ATTR THEN LOAD [R]STR$ LPRINT 2a/b-`ATTR THEN LOAD GO TO CONTINUE [R]STR$ LPRINT -^-ATTR THEN LOAD [R]STR$ LPRINT -a2`___[S]CHR$ LOAD k+[T]NOT a)[S]CHR$ `+[T]NOT )o'k)a'`)'[U]BIN a2^2^[T]NOT 2[S]CHR$ 1[U]BIN 2[T]NOT 2 COPY PI<= LOAD `222FN >="PI<=2FN >="PI<=22FN >="PI<=22FN >="PI<=2FN >="PI<=0FN >="PI<=...FN >='PI<=.FN >='PI<=..FN >='PI<=..FN >='PI<=.FN >='PI<=/FN >='PI<=000FN >=)PI<=0FN >=)PI<=00FN >=)PI<=00FN >=)PI<=0FN >=)PI<=.FN >=$c&&a&`&SCREEN$ LINE 2FN >=&SCREEN$ LINE 2FN >=&& COPY [R]STR$ LPRINT SAVE `$^$!SCREEN$ LINE LOAD a[R]STR$ LPRINT `/a([Q]`$[R]a$SCREEN$ LINE INPUT [R]STR$ LPRINT `?;aSCREEN$ LINE a[R]STR$ `a` LINE [R]STR$ ` FOR a`$SCREEN$ LINE a[R]STR$ REM `a DIM `aSCREEN$ LINE [R]STR$ CONTINUE ` BORDER a` NEW SCREEN$ LINE a[R]STR$ RESTORE `af^ COPY [S]CHR$ INPUT i9VAL$ DEF FN GO TO g9 REM k< CONTINUE d@ NEW C DATA iG READ cNi^ COPY AT TO LOAD `!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO INPUT !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 6 GO SUB 6AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO ! GO TO !ATTR THEN 6SCREEN$ LINE !ATTR THEN 66AT TO ! FOR !ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN REM 66AT TO !ATTR THEN 6AT TO ! DIM !ATTR THEN 6SCREEN$ LINE 2ATTR THEN CONTINUE 66AT TO ! BORDER !ATTR THEN 66AT TO NEW !SCREEN$ LINE 2ATTR THEN 6 RESTORE 6AT TO !ATTR THEN 6f^ COPY [R]STR$ LPRINT SAVE `(^(SCREEN$ LINE LOAD a[R]STR$ LPRINT `[Q]`([R]a(SCREEN$ LINE LOAD [R]STR$ LPRINT `!$2^2SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ca8[Q]`2[R]a2SCREEN$ LINE LOAD [R]STR$ LPRINT `(!^$SCREEN$ LINE LOAD a[R]STR$ LPRINT `(a![Q]`[R]aSCREEN$ LINE LOAD [R]STR$ LPRINT `!(^(SCREEN$ LINE LOAD a[R]STR$ LPRINT `[Q]`([R]a(SCREEN$ LINE LOAD ` COPY [S]CHR$ LOAD k+[T]NOT a)[S]CHR$ `+[T]NOT )o'[S]CHR$ k([T]NOT a)`+[S]CHR$ +[T]NOT k+c) COPY AT TO LOAD `!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !SCREEN$ LINE 222222 COPY [R]STR$ LPRINT SAVE `(^(SCREEN$ LINE LOAD a[R]STR$ LPRINT `[Q]`([R]a(SCREEN$ LINE LOAD [R]STR$ LPRINT `!$2^2SCREEN$ LINE LOAD a[R]STR$ LPRINT `Ca8[Q]`2[R]a2SCREEN$ LINE LOAD `[R]STR$ LPRINT (!^$SCREEN$ LINE LOAD a[R]STR$ LPRINT `(a![Q]`[R]aSCREEN$ LINE LOAD [R]STR$ LPRINT `!(^(SCREEN$ LINE LOAD a[R]STR$ LPRINT `[Q]`([R]a(`&SCREEN$ LINE LOAD [R]STR$ LPRINT & COPY [S]CHR$ LOAD k+[T]NOT a)[S]CHR$ `+[T]NOT )o'[S]CHR$ k([T]NOT a)`+[S]CHR$ +[T]NOT g+[S]CHR$ c2[U]BIN 2 COPY AT TO LOAD `!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!SCREEN$ LINE 2AT TO !SCREEN$ LINE 222AT TO !ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !!ATTR THEN 6SCREEN$ LINE 2ATTR THEN 66AT TO !!ATTR THEN 66AT TO !SCREEN$ LINE 2ATTR THEN 66AT TO !ATTR THEN 6AT TO !SCREEN$ LINE 2222a2 COPY @R[T]u OVER _tSCREEN$ >= OUT IF VAL$ LIST NEXT PLOT RANDOMIZE DRAW COPY >= IF INT COPY h RETURN h LPRINT X>= CIRCLE IF REM COPY PAPER RETURN LINE COPY LINE CLEAR INT INT SCREEN$ SCREEN$ SCREEN$ CLEAR SCREEN$ RETURN SCREEN$ COPY SCREEN$ COPY SCREEN$ RETURN SCREEN$ CLEAR SCREEN$ SCREEN$ SCREEN$ @SCREEN$ zXXH 8 CIRCLE CIRCLE CIRCLE CONTINUE CONTINUE CONTINUE COPY CONTINUE COPY CONTINUE COPY CIRCLE COPY CIRCLE CIRCLE >=>=>= COPY LN COPY LN COPY LN COPY FN FN FN FN [I] COPY [I] COPY [I][I][I] COPY [I] RETURN [I] RETURN [I] COPY [I][I]@[I]xX 8 CIRCLE CIRCLE CIRCLE CONTINUE CONTINUE CONTINUE COPY CONTINUE COPY CONTINUE COPY CIRCLE COPY CIRCLE CIRCLE >=>=>= COPY LN COPY LN COPY LN COPY FN FN FN FN [I] COPY [I] COPY [I][I][I] COPY [I] RETURN [I] RETURN [I] COPY [I][I]@[I]xX 8 CIRCLE CIRCLE CIRCLE CONTINUE CONTINUE CONTINUE COPY CONTINUE COPY CONTINUE COPY CIRCLE COPY CIRCLE CIRCLE >=>=>= COPY LN COPY LN COPY LN COPY FN FN FN FN [I] COPY [I] COPY [I][I][I] COPY [I] RETURN [I] RETURN [I] COPY [I][I]@[I]xX 8>=>=>=>=>=>= COPY CIRCLE COPY CIRCLE COPY CIRCLE COPY CIRCLE CIRCLE CIRCLE >=>= COPY >= COPY >= COPY >= COPY >=LN LN LN LN COPY LN COPY LN COPY LN COPY LN LN LN FN FN FN COPY FN COPY FN COPY FN COPY FN COPY FN COPY FN FN FN @FN ▖h 8 CIRCLE COPY SAVE CONTINUE CIRCLE COPY >=FN LPRINT [I]LN >=LN FN FN [I][I]▖▖ COPY ▖ COPY ▖ COPY ▖ COPY ▖▖@▖xX 8FN COPY LN >= COPY >=>= COPY >=FN COPY [I]x LPRINT >=>=>=>= CIRCLE CIRCLE CIRCLE CIRCLE CONTINUE CONTINUE CONTINUE CONTINUE SAVE SAVE SAVE SAVE CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE CONTINUE CIRCLE CIRCLE CIRCLE CIRCLE CIRCLE CIRCLE CIRCLE CIRCLE >=>=>=>=>=>=>=>=LN LN LN LN LN LN LN LN FN FN FN FN FN FN FN FN [I][I][I][I]▖▖▖▖▖▖▖▖xxxxxxxxhhhhhhhhXXXXXXXX LPRINT MOVE MOVE [B][B]qqQQ LPRINT LET ▝Q LPRINT LIST LIST LPRINT CIRCLE >=LN FN LPRINT ▖ RETURN CIRCLE RETURN CONTINUE RETURN CONTINUE RETURN SAVE RETURN SAVE RETURN SAVE RETURN SAVE RETURN CONTINUE RETURN CONTINUE RETURN CONTINUE RETURN CONTINUE RETURN CONTINUE RETURN CIRCLE RETURN CIRCLE RETURN CIRCLE RETURN CIRCLE RETURN >= RETURN >= RETURN >= RETURN >= RETURN >= RETURN LN RETURN LN RETURN LN RETURN LN RETURN LN RETURN FN RETURN FN RETURN FN RETURN FN RETURN [I] RETURN [I] RETURN [I] RETURN [I] RETURN ▖ RETURN ▖ RETURN ▖ RETURN ▖ RETURN x RETURN x RETURN x RETURN h RETURN h RETURN X RETURN X RETURN H RETURN 8 LPRINT RETURN CIRCLE COPY CIRCLE CIRCLE COPY CIRCLE CIRCLE COPY CIRCLE CIRCLE COPY CIRCLE CIRCLE COPY CIRCLE CIRCLE COPY CIRCLE >= COPY >=>= COPY >=LN LN @ COPY LN [I] COPY x H LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE @BDFHJLR/dfhjrtvxz|~▘▗▚▖▙[A][C][E][G] LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT ` POKE POKE `` RANDOMIZE LPRINT LPRINT LPRINT CLEAR CLEAR LPRINT RETURN LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT RETURN GO SUB G GO SUB ^ CLS NOT 5 NEXT PRINT PRINT OR MERGE RESTORE INVERSE RESTORE CLEAR RESTORE STEP FN BORDER STEP & RUN STEP R RUN STEP ~ RUN >a RUN STEP ▟ RUN STEP LLIST LLIST MOVE STR$ LET LET COPY CLS <>:? CONTINUE = TO - CONTINUE 2? CONTINUE *B CONTINUE ~ RETURN COPY TO 7 CONTINUE &o))) COPY RANDOMIZE T] GO SUB S@ CONTINUE ! COPY P THEN "D CONTINUE STEP F CONTINUE *D CONTINUE $ INPUT GO SUB [@ CONTINUE !@ THEN "D CONTINUE STEP F CONTINUE *D CONTINUE PI THEN "D CONTINUE STEP F CONTINUE *D CONTINUE $$ STOP !?@ THEN "D CONTINUE STEP F CONTINUE *D CONTINUE PI THEN "D CONTINUE STEP F CONTINUE *D CONTINUE $$ STOP <>>*B CONTINUE #"B CONTINUE <>!&TAB "B CONTINUE ~<>[P] CLEAR &TAB ?F- THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN - THEN <> STEP DIM > STEP H DIM $ STEP < :/ RETURN 1( RETURN 2( CONTINUE STEP PAPER CONTINUE NOT l DIM STEP IF CONTINUE STEP PAPER CONTINUE NOT s DIM CODE OPEN # RETURN 2▟/2H/ STEP k<> COPY w GO SUB VAL COPY 0xLEN IF STR$ RESTORE LET <> NEXT STEP USR GO SUB V CLS <>! DRAW GO SUB [ POKE /NOT =<>!=CODE IF >EXP >=!= GO SUB VAL !~O THEN ?LEN w#zCOS POKE !©"6/<>1. INFORMATION2. LOAD GAME!' CLEAR RESTORE NOT DIM !0 RETURN RESTORE NOT DIM >TKA! O'K, GO ON: itAK, PROFESSORR (OR SIMPLE - VVVSOFT) PRESENTS A FIRST MUSIC DEMO FOR SPECCY -48/128 : ~THE REAL COP~ ECli B} EqO HE BidiTE, TO jHAyTE: {TOT nACTO|]iy pOlicEyCKiy - ROBOCOP (OH dEyCTBiTElzHO B}XBAxEH ij filzMA ~ROBOCOP-3~ diqiTAyjEPOM (C) BY V.M.G.) pOxTi BCE MujOH} Bj|T} MHOw ij dEMOHCTPA[Ki ~RECLY~. {TO b}lO OxEHz ClOgHO! uBAgAEM}y, ili uBAgAEMOE, ili uBAgAEMA| (OH, SHIT!) RECLY COMPUTERS COMPANY! B} Cl}[Ali KOqdA-Hibudz pPO IM 2 ?? ECli XOTiTE pPOCvETiTzC|, ili lixHO pEPEdATz ~FUCK~ - jBOHiTE! TEpEPz O Muj}KAlKE i MujOHAX: nAgiMAyTE XOTz BCE KlABi[i CPAju, HO iqPATz buduT TOlzKO ~A-L~ ~A~-FROM GENESIS, ~B~-POPCORN, ~C~-??? {TO | Cl}[Al B ~BEST 1~ ~D~-SOUNDTRACK ~BEVERLY HILL'S COP~ ~E~-FROM ~SOUND TRACKER~ ~F~-OxEBidHO, CTPAdAHi| RECLY... ~H~-SOUNDTRACK MElOdii ij M-f ~KOHTAKT~ ~J~-HE jHAw xzE, HO KlEBO! ~K~-TO gE ~L~-MY LOVELY MUSIC FROM NIKITIN'S ~DIZZY 2~ i ~SPASE~, xTOb} TA]iTzC| OT Ti[iH}... OCTAlzH}E MujOH} OCObOqO BHiMAHi| HE CTO|T. TIME TO FUCKHELLOS i pPOCTO pPO gijHz: FUCKS: SPECIAL BIG AND LONGEST FUCK TO ALESHA DUPANOV (EVERYBODY KNOW, WHAT FOR!!!) INTERNATIONAL & INFINITE FUCK TO THD AND HIS BLUE COMPANY!! SOME SMALL FUCK TO PASHA NIKITIN ja to, xto on ~FUCK~ na MSX-}. T} {TO, pOqHAl HA ~CODE BUSTERS~? CMOTPi, KAb} xEqO HE v}[lO... KCTATi O nih: BEST WISHES TO KLAV, MAX IWAMOTO : i3viHi, HO ClOvO ~xTO b}~,KAK i ~xTOb}~ HE pi[ETs| xEPE3 dEfiC!! ( jAdOlbAl ugE! ) RST7! (...........!!!!!) T} MHE p|Tz [TuK dOlgEH! I'M WAITING! HELLOS: RST7, KLAV, MAX IWAMOTO, ISY, ALEM, JSM, RAZSOFT, ANTON, STALKER, V.M.G., HOMESOFT, R-SOFT, PEP, OVERMASTER, TORNADO, & BEST WISHES TO KOLESNIK ANDREI OR ANDREW ( {TO MAX IWAMOTO BiHOBAT ) TBOi MujOH} IS VERY, VERY GOOD!! TEpEPz pPO gijHz: BCE, KOqO jAiHTEPECOBAlA ocifPOBKA TElEBijiOHHOqO CiqHAlA B PEAlzHOM BPEMEHi, pPiXOdiTE HA BExEPHww TOlKuxKu i HAydiTE TAM MiXAl}xA... BCE BOpPOC} K HEMu. P.S MY DIAL NUMBER: (0572) 70 - 35 - 87 P.P.S HAPPY OLD NEW YEAR!!! P.P.P.S HAPPY BIRTHDAY TO V.M.G.!!! BYE!! BYE! BYE... (C) BY PROFESSORR ON 14.01.94 AT 3.12.42 AM GOOD MORNING! COPY CLEAR COPY > GO SUB y GO SUB x NEW 2 BORDER <>>© FLASH RETURN ERASE PLOT P STEP SCREEN$ RUN <>: MERGE RUN =2 MERGE RUN !P STEP SCREEN$ RUN <> CLEAR COPY > GO SUB y GO SUB x NEW 2▙ BORDER <>LEN VAL NEW PLOT PLOT @!XX?w GO SUB VAL <> RUN !P STEP SCREEN$ RUN <> CLEAR COPY > GO SUB y GO SUB x NEW 2[A] BORDER <> COPY xLEN IF <>P STEP ▟ RUN <>: BEEP RUN =2 BEEP RUN !P STEP SCREEN$ RUN <>PI>=LN COPY q THEN ▝#q+$ STEP CHR$ RUN GO SUB <> PRINT $| NEW } AND o8| VERIFY g LET <> NEXT "POINT a STEP USR ! RETURN RETURN 6 COPY GO SUB VAL ! COPY COPY 6! POKE COPY 6NOT !q BORDER " PRINT COPY > RETURN GO SUB G GO SUB ^ CLS NOT [U] CONTINUE STEP s SAVE RETURN !SCREEN$ { STEP s SAVE RETURN ! STEP s SAVE RETURN ![I] STEP s SAVE RETURN !QPI STEP s SAVE RETURN !AT STEP s SAVE RETURN ! CLOSE #SIN STEP s SAVE RETURN ! DRAW ABS STEP s SAVE RETURN !NOT STEP s SAVE RETURN ! RESTORE THEN STEP s SAVE RETURN ! VERIFY STEP s SAVE NOT CIRCLE RUN "POINT a STEP FN a STEP VAL$ a<>a6[[657v1g,;E?(077?09%-C>4?=a>©=b!C>4w?}!C>>=!C>}=C=AC>=!A=>0??=c=!=!c==!~=# !C>:%!#|?> ©?> `=#!-C>!!=!!c7?!!C>"&4*%c ©!%=!!c!)5)%c=!!!C>=!> `=!)5C>=!:%c>@=C>o!!!!!C>!!!!S&!!!!%[6!S&5cA#V,{©IIIIm© P(IIIIm}*n/©=!=!c?=!~!!!!!}""=C?> ©-mmnIi,III!!!c!!%-1c=a!C>"&4*%c1c!!5)!c!!=!!c=!!!C>=!!!!c=# `=!> `=# !C>o!!A=>==!~&!))1n!-!%-1c =!~=a!C>=!A1cAAEEw< COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY COPY M CONTINUE Q DEF FN LET P BRIGHT FLASH | FLASH FLASH |8 CLOSE #MASN S/|8 CLOSE #M[Q]ZPIZ; PRINT PLOT LOAD RETURN h SAVE `?B LPRINT X'[I] COPY @a CLOSE #:/*a[K]]><BB~BB|B|BB|<B@@B<xDBBDx~@|@@~~@|@@@<B@NB<BB~BBB>>BB<DHpHDB@@@@@~BfZBBBBbRJFB<BBBB<|BB|@@<BBRJ<|BB|DB<@<B< RETURN NOT q BORDER BBBBB< NEXT COPY COPY > OPEN # RETURN >?NOT ▘= GO SUB GNOT NOT 'NOT r/<>bkPEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK STEP IN RETURN STEP v RETURN > STEP TO RETURN $ STEP < :/ RETURN 1( RETURN 2 LINE " RETURN PAUSE STEP PAUSE RETURN !` REM GO SUB [ POKE /a GO SUB [ POKE / STEP = STEP ` REM STEP TAB RETURN CODE 2 LET RETURN <2 LIST RETURN STEP u CLEAR CLS !a GO SUB [ POKE /F STEP = STEP TAB RETURN >2 LIST RETURN =2 LET RETURN STEP a STEP u CLEAR CLS >© FLASH RETURN CLOSE #~ CLEAR <>: LIST RETURN RETURN : LET RETURN < RETURN ERASE RETURN NOT [N] CLEAR : LET RETURN < RETURN ERASE RETURN NOT LLIST CLEAR 2 LET RETURN STEP PAUSE RETURN RETURN ( RETURN ( RETURN ( RETURN ( RETURN ( RETURN ( RETURN ( STEP a<> STEP FORMAT m<> STEP >=w<> STEP <<> STEP ▘▟<> STEP T[I]<> STEP NEW [S]<> STEP USR SCREEN$ <> STEP PAUSE RETURN 2 LET RETURN RETURN ( RETURN ( RETURN ( STEP Jm<> STEP h|<> STEP VERIFY ▜<> STEP OUT [F]> OPEN # RETURN <> STEP PAUSE RETURN STEP ACS RETURN NOT T CLEAR STEP IN RETURN STEP ACS RETURN STEP PAUSE RETURN GO SUB [ POKE /NOT ; RETURN STEP PAUSE RETURN ! FOR / STEP A COPY !@ STEP =>© FLASH RETURN 0 RUN STEP PAUSE RETURN !@ GO SUB [ POKE / STEP = STEP : COPY [P]!a GO SUB [ POKE /NOT =!=CODE IF >EXP >=!= GO SUB VAL !~O THEN ?LEN w#zCOS POKE !©"6/<>> DRAW NEXT GO SUB G GO SUB ^ CLS <> NEXT STEP 2 COPY GO SUB V CLS <>CODE OPEN # RETURN 2H/2▟/ STEP k<>1. INFORMATIONLOAD GAME PRINT OR x=!XX COPY w GO SUB VAL COPY 0xLEN IF STR$ RESTORE LET <>>! FOR /4PEEK ( IF NOT ) COPY 6#4+ POKE * FOR /" POKE /NOT CLEAR >? GO SUB G STEP USR <>!a RESTORE NOT f RETURN ! FOR /,>4PEEK (xLEN PRINT 6#4+ PAUSE GO SUB [ FOR /<>|B|BB|<B@@B<xDBBDx~@|@@~~@|@@@<B@NB<BB~BBB>>BB<DHpHDB@@@@@~BfZBBBBbRJFB<BBBB<|BB|@@<BBRJ<|BB|DB<@<B< RETURN BBBBB< STEP |;; LLIST # STEP @xLEN >=~ GO SUB [Q]PEEK RUN # OR F DRAW STR$ # REM " RANDOMIZE LIST LIST <<>▜USR LIST LIST LIST LIST COPY BRIGHT < COPY COPY COPY ▜USR g31[J] RANDOMIZE [J] LPRINT 33 NEXT 3 NEXT NEXT USR a[I] TO H COPY LIST LET LIST LIST <<~USR LIST LIST LIST LIST COPY SGN < COPY COPY COPY ▜USR g31[J][J]33 NEXT NEXT 3 NEXT a[I]|H COPY LIST NEXT LIST LIST COPY LIST COPY << RETURN LIST SAVE [P]USR + DRAW Y31[J][J]33COS NEXT 3COS a[I]|2USR 8 PLOT LIST RUN LIST LIST COPY LIST COPY BRIGHT = RETURN LIST SAVE IN USR % RETURN DRAW DRAW RETURN RETURN DRAW DRAW RETURN RETURN DRAW RETURN ) LET LPRINT RANDOMIZE [I] LET SAVE READ NEXT 1 LET NEXT 33 LIST LPRINT SAVE |31[J][J]3333a[I] TO 2USR 8 LIST LIST COPY LIST COPY LPRINT LIST LIST LET BRIGHT ? OVER RETURN CLS USR % RETURN `▚`) NEXT LET RANDOMIZE [J] RANDOMIZE SAVE NEXT NEXT 3 NEXT NEXT 33 LIST LLIST SAVE DRAW 31[J][J]3333a[I] TO H LIST LIST RETURN LIST COPY USR LIST LIST LET BRIGHT ?[O] DRAW NEXT USR % DRAW ` RETURN DRAW ▚ DRAW `)31[J][J]3333a[I] TO 3 NEXT [J][J] RANDOMIZE SAVE NEXT 33 NEXT 33 LIST NEXT [I] TO ( LIST LIST COPY USR LIST LIST << COPY COPY DRAW COPY COPY ▜USR LIST LIST DRAW LIST LIST LIST LIST LET BRIGHT ? READ USR % DRAW `▚ RETURN `)31[J][J]3333a[I] TO 1 READ [J][I] LET SAVE READ 31 NEXT 33 LIST NEXT [I] TO ( LIST LIST COPY LPRINT LIST LIST << COPY COPY RETURN COPY COPY ▜USR LIST LIST SAVE LIST LIST LIST LIST LET BRIGHT >NOT USR % RETURN DRAW RETURN ` RETURN DRAW ▚ RETURN `)31[J] RANDOMIZE [J] LPRINT 33s3 NEXT sUSR a[I] TO 01 RANDOMIZE LIST LET RANDOMIZE LIST RANDOMIZE AND 0USR . COPY @ IF > COPY IF COPY [A] COPY CONTINUE >} CONTINUE >© COPY @}@ COPY PAUSE CONTINUE IF [Q] IF IN LIST ? BORDER CLEAR READ RETURN ▝ POKE @}@ IF } CONTINUE IF [Q] IF [Q]>} PAUSE > COPY @}@ IF > CONTINUE IF RETURN COPY CONTINUE >} CONTINUE >▝ PAUSE @# [J][J]▝[J][J] BRIGHT INPUT 0USR . COPY @ IF > COPY IF COPY >= COPY LPRINT >} CONTINUE >© COPY @}@ COPY DATA CONTINUE IF [Q] IF ? COPY CLEAR BORDER RETURN ▝ POKE @|@ IF } LPRINT IF [Q] PAUSE [Q]>} DATA > COPY @| SAVE > LPRINT SAVE LIST COPY LPRINT >| LPRINT > POKE $ [J][J]▝[J][J] DRAW RETURN >USR .? COPY @ IF >▝ COPY IF COPY CONTINUE >} CONTINUE > COPY COPY @}@ COPY >= CONTINUE IF [Q] IF COPY FORMAT ? COPY CLEAR LOAD RETURN ▝ PAUSE @© COPY @ IF = COPY IF [R] POKE [Q]>} CONTINUE >?[P]@C [J] LET [J]▝ LET RANDOMIZE AT VERIFY 3@.?@ IF <▝ SAVE IF ▜ DATA [Q]>} CONTINUE > DRAW @}@ COPY DATA CONTINUE IF [Q] IF COPY FORMAT > COPY } COPY PEEK IF @© COPY @ IF = COPY IF [R] LIST [Q]>} CONTINUE >©@C [J]▝[J]▝▝[J] AND 3@ RETURN SAVE COPY SAVE ? SAVE COPY USR ~_@ IF } PAUSE IF [R] POKE [Q]>@} CONTINUE >▝ RANDOMIZE @}@ COPY POKE CONTINUE IF [Q] IF COPY FORMAT >~} COPY > DRAW @© COPY @ IF < COPY IF ▜ LPRINT IN SAVE >} CONTINUE >~_@C [J] LET ▝▝[J] AND >USR @@~[P]@ IF } POKE IF [R] POKE [Q]? CLEAR CONTINUE ~▝ PAUSE @}@ RANDOMIZE PAUSE CONTINUE IF [Q] IF COPY USR ><} RETURN >© COPY @|@ IF > LPRINT IF COPY LPRINT >} CONTINUE > DRAW [P]@# COPY COPY LPRINT # COPY @ IF > IF LIST USR COPY CONTINUE >} CONTINUE > COPY @|[P]@ SAVE IF DATA IF [Q] PAUSE [Q]?[B] CLEAR CONTINUE RETURN ▝ POKE @}@ IF IF CONTINUE IF [Q] IF >[I]} DRAW PEEK © COPY @}@ IF > CONTINUE IF COPY USR COPY CONTINUE >} CONTINUE > RANDOMIZE @# # COPY @ IF >© IF RETURN COPY CONTINUE >} CONTINUE >? COPY @}@ RANDOMIZE IF CONTINUE IF [Q] IF [Q]?NOT CLEAR DIM RETURN ▝ POKE @}@ IF RANDOMIZE CONTINUE IF [Q] IF [Q]>} RANDOMIZE >? COPY @}@ IF > CONTINUE IF COPY COPY CONTINUE >} CONTINUE >▝ IF @# USR VAL USR CLEAR Q DRAW C RETURN COPY COPY DRAW NOT LOAD [S] FOR USR x? LPRINT LIST LIST LET LPRINT USR z▖pUSR p>USR ▗4P ?▖ COPY USR RETURN ▝@ COPY REM # USR COPY COPY DRAW [H] PLOT > CIRCLE pK CIRCLE COPY [Q]©▖> LPRINT MERGE P0[Q] tx 0@ z@p COPY RETURN RETURN ERASE COPY T|! LPRINT ? COPY COPY DRAW ` : 3KUSR [S] LPRINT RANDOMIZE < OR PLOT @[P]USR LPRINT @1 LOAD (©A[Q]/ SAVE LPRINT A VAL LPRINT @P COPY COPY LPRINT CLEAR CHR$ COPY COPY LPRINT COPY Bx IF CONTINUE y LIST © COPY COPY RETURN 1 p POKE USR :USR T(,[C]A©i LPRINT (COS POKE [B]▙?▝ LIST USR 0 COPY [S]8© COPY ©@ LPRINT ~ >=x COPY RETURN SAVE LPRINT @ LPRINT 4STR$ ` d[O]_USR ` STR$ USR CLEAR Hp@ FN USR RETURN <>© SAVE > CONTINUE ? MERGE @ ▘LN BRIGHT <x LPRINT ▝;D&B@VAL @@`|[S] LLIST >@USR @ @ CLEAR A▚? VAL SAVE [Q]@ << DRAW ©9p DATA 8 8=@ FORMAT LPRINT X 5>AG[A]9 G COPY [Q] RETURN G< USR USR COPY LPRINT [Q][O] COPY VERIFY | DATA VAL RETURN ▖© tj7USR `0 :P LPRINT USR d8 GFBBGEBBGGBBGGAADGFFGGAAGGFFGGAFFAADFFDDFFEECEEFFGDDFFDDECCDDEFFFF;AA GBFFAGGAGGCGAGGEGGCCGGDGGEGAAGFFGGAGGBGGEGGEEFFEAAGFFGEGGAGGBGEEGGDBGAAGGFFAGGDDCCGGEEGCGGAAGCCGCCGDGGCCGGCCGAAGCCGDGCCBGCCAACCAACCAA OUT STEP |;; LLIST #POINT @xLEN >=~ GO SUB [Q]PEEK RUN # OR F DRAW STR$ # REM DUSR CAT 9USR LIST LIST RUN LIST LIST LIST LIST COPY BORDER DIM USR COPY COPY COPY LPRINT COPY LIST LIST LIST LIST RUN Gx▖xp SAVE ▖▖x SAVE ▖<x888xxIUSR COPY COPY COPY USR COPY LIST LIST LIST LIST RUN G▖[A]▖[A] CIRCLE ▖▖p8p▖ SAVE ▖▖px▖p SAVE p[A]p LIST |D<8@D8<8x8D8xDD0D|8D|8<8D8|8<|x88Dx<8xx8xDD( COPY USR CAT COPY USR LIST RETURN LIST LIST COPY LPRINT LIST RUN G▖ LPRINT ▖[A] LPRINT FN [I]▖H[A] [I]▖▖[A]▖▖ LPRINT ▖▖DD@8t$@D<DDP@D<DDD@$DH@DDTtD@DDD<LL' COPY USR STR$ NOT CAT 9 LPRINT LIST DRAW LIST LIST COPY USR LIST RUN G SAVE [A] SAVE [A]▖FN xxHx LPRINT FN ▖ LIST LPRINT ▖▖[A]▖▖ SAVE DD@<DL$<@DD<|<x888@DDDD@$xp<<@DDTLx@DxxDTT'STR$ NOT NOT SAVE 9 LIST ?USR COPY LIST LIST LIST COPY LIST COPY USR LIST COPY NOT <= DRAW 9 LIST © LIST SAVE LIST LIST LIST COPY BORDER G▖▖[A]▖>=▖▖H▖[A] >=x[A]▖▖▖▖ LIST D<@DDL$D@DDDD@@@@DD<DD@$@HDD@xDTLD@DD@Ddd'USR <= DRAW 9 LIST © LPRINT COPY LIST LET LIST COPY LIST COPY LPRINT LIST COPY NOT SAVE 9 LIST ? LIST LIST LIST LIST COPY CAT G▖▖▞ SAVE SAVE ▖▖x>=x▖ ▖xx▖pp▖pD<<8td<<8x8<D<x|||@88D8<d<D<<<@88tx<8xx<x8DD'USR CAT 9 LPRINT LIST LIST NEXT LIST LIST LIST LIST COPY CAT $ COPY COPY $88 [J]a<xxx<S4P$8@8<D8|8D8xDD8D8|D<|D8DD@DD|xD<|DD8xD8<8|8DDx88D|8x8DDD|8TDx|xDx|8D|88xDD|8D8|D|8xD8D(<xxx<x$D8D<DHD@<DDLDDH<DD@L$DDL8HDDDL@tHDDHD@DlDtlDDHDDlDDLDDTLDDDLDlDD$DDLDDD$DDtD$lDL(""|8D88@D8DD8<8x8|@D8D|x<8@DD8DD<D88DD|D8|8x$xDxDDpD@D<|DxTDDpDD@T$DTTDpDDDT@LpDxpx@<DT|LTDx<pDDTD|TDD8TxDDTDTDD$DxT|DD$<|xLD$<TDT(""&DDDD8(D<LlD@D<xDDD<$DD8DDLDlD$D<t(DL$DDD$@D@D<HD@DDDDd<DHDD<@d$DTdDH<Dxd@LHDDH@@DDDLDx@DHDxDD<Dd<DTdDDxdDDDD$DDdD<D$DD@LD$DDDd(<**DD|xDDDDTTD@DD<DDx|DD$DDDx|TDTD$DDLDT$DDxd<8<8dD8@8<D8xD8D88D<Dd8|D8DD@D<tD8xD<<<8DDtD@<<D8@8DDD8TDxD@Dx8DD8d8xDDDd<D<tDd<xD8D% *2<DD@DD(DDdDD@DDDDD@DxD$<DD<<@Dd<DD$DDL(Dd$DDD 88" 888>"28D<88D88DD8<8x8<x|<D@8dd88<DDdD8d88tDDDd88x828i%tx<x<<D<8|DDx88%6x<D|8D8D8DD8DD8@DD88|8D8@DD8xDD<<xDHDH@lDD|x8<|8<8xD|8DD|@DDx8xDDDD<<DD<|xD||Dx8x8DDx|<|@Dx8xD8D<8TD8<|D(D|8|8|8xD8xD|D8|8D8x|D<8$xDDLDDD8tH<DlD8DDDDLl@DDDpDHpTLLDD<@DD$DDtDD$DLxDD$LDDt(lL@@LL@@DDLDDDDt(DDDxDDL@$DTDD@L(LDD<@DDDHD$LDD@DHDD@$DxDx|x|TxDDxDLp<Dx<TDD<xTT@Dx|H|H@DTTDDxD|@DD$DxLDD$|TD8DD<$TD|LTT@@TT@@DDTDDx<||LxDDDDDx|xT@$D8|D@T(TDD@DDxpx$T|D@DpDD@<$D@<@D@Dd@<<@DLHDD@DDDD<<DDTdD@<DDDH@DddDx@D@D<$DDLDD$DdD@DxD$d<DL(Dd@@dd@@x<DDdxDDL(DD<D<xDD@d@$DTDD@d(dDD@DDDH@$dDD@DHDxD<@D$x<<D<DD<<8tD<8<<D88<x|DD<dxDD DRAW |DDD@<8<8dd8xtD8dDDx|8@<xdDDtDDD<<DD<@@DD@8x<DDtDxDdx@8xD<D<d8TD8<D'DD88@88xD<xdDD8@8D8@D<</8 8▗ . 887OO©EE!S7EEEEAA?EE" INVERSE STEP |;; LLIST # MOVE @xLEN >=~ GO SUB [Q]PEEK RUN # OR F DRAW STR$ # REM E? SAVE xx SAVE © LPRINT x© LIST © SAVE © SAVE © LIST FOR SAVE xx? SAVE © LIST x© LPRINT © SAVE © SAVE © LPRINT e LPRINT LPRINT LPRINT LPRINT 8xxxx© LIST xxxxxx©xxfp LLIST LPRINT LPRINT p LLIST LPRINT LPRINT LLIST LPRINT LPRINT LET LPRINT LLIST LPRINT LPRINT 3xxxx© LPRINT xx>xxxx~xxf LPRINT [B] LPRINT [B] LLIST 3xx© SAVE © LPRINT ? LPRINT © LPRINT SAVE LPRINT xx LPRINT © LIST xx? SAVE © LIST |x? SAVE xx|x? SAVE e[B] LLIST LLIST [B] LLIST LLIST LET LLIST LET LLIST 3xx© SAVE © LIST ? LIST © LIST SAVE ? LIST xx SAVE ? LIST © LPRINT xx CIRCLE © LPRINT xx SAVE xx SAVE e[B][B] LLIST LLIST 3xxxxxxy SAVE xx LLIST [A] LET LPRINT LPRINT @@A LLIST [A] LET LPRINT LPRINT LET LPRINT LPRINT @@A LLIST LET LPRINT LPRINT 3xxxxpxx{ SAVE xx% COPY COPY COPY @d LPRINT LPRINT LPRINT LPRINT LPRINT LIST LPRINT LPRINT LIST LPRINT LIST LIST @ LPRINT LPRINT LIST LIST LIST LIST LIST LPRINT LIST LIST LPRINT LLIST LLIST LPRINT LLIST LLIST LLIST LLIST LIST LLIST LPRINT LPRINT @ LLIST LLIST LLIST P LLIST LPRINT LIST LLIST LIST LLIST LLIST LPRINT VAL LLIST LET LET LPRINT LLIST LLIST LET LPRINT LLIST LET LPRINT LLIST LPRINT LLIST LLIST LET LPRINT LPRINT q LIST P LET LPRINT LLIST LLIST LPRINT LPRINT LPRINT LIST LLIST LLIST LPRINT LLIST LPRINT LLIST LPRINT LPRINT LLIST [Q] LLIST [Q]! LLIST 0 LLIST 0 ALEN Q1 LPRINT LPRINT ! LLIST FORMAT LLIST P` !A FORMAT A1!A MOVE 0[B]P1 LPRINT LLIST LLIST VAL LLIST FORMAT LPRINT LEN LPRINT LLIST LLIST @ LLIST LLIST @A LPRINT LIST a LIST LET P` LET P`@AQ LLIST LLIST LET Q LPRINT LET LET A1 LET USR LET STR$ LPRINT A0 LIST AQ LLIST LET STR$ LPRINT A LET 1P` LIST [B]P LLIST LLIST Q LLIST LET Q LPRINT Q0Q LLIST LIST LIST a LIST LPRINT [Q] LPRINT [Q]▝[A][A]A LLIST Q[B]▝1 LPRINT LET LLIST !A0 LLIST A[B] LLIST !A1[A][B]PQ[B] LLIST 0 LLIST LLIST LPRINT LET @@A LLIST LPRINT LET LET LLIST LLIST LLIST LPRINT @@A LLIST LLIST @ LLIST LLIST P LET LIST LLIST LLIST LPRINT @@ LLIST LLIST LLIST LLIST FORMAT LPRINT LLIST @@ LPRINT LET LET LET LIST A FORMAT @@A LPRINT A LPRINT LLIST LET LIST A MOVE LPRINT LET [B] LPRINT @@ LPRINT LET LPRINT LET LIST LET LIST LPRINT @@ LIST LLIST LPRINT LIST LPRINT LLIST LLIST FORMAT LPRINT @@ LET LET LIST LPRINT LLIST LPRINT LLIST LIST v LPRINT ? COPY N LIST P LPRINT p LIST LPRINT LPRINT LIST LIST D LPRINT LPRINT q LET LLIST LIST LLIST LET LLIST LET LLIST LIST LLIST LET P!P LLIST LIST LET LLIST P LLIST [A] LLIST LPRINT LLIST p LLIST LPRINT LLIST LPRINT LLIST LPRINT LPRINT LET LPRINT LPRINT LLIST LLIST LPRINT LPRINT LET LIST LPRINT LET LPRINT LLIST LPRINT LLIST p LIST B[B]10A LPRINT MOVE ALEN LLIST 0A LPRINT MOVE A LPRINT !PLEN MOVE Q [A]0VAL [B]101Q!0 LET 1A1! LPRINT [B]BP LET LLIST LPRINT [B]QPA LLIST 1A LET Q LLIST LET QPA LLIST 1A LPRINT LPRINT LET Q0 LLIST USR [A]Pa LLIST P[B] LLIST LET Q LPRINT PQ LET Q LET STR$ LET LET LPRINT LLIST Q LLIST LET Q LPRINT LPRINT A LET Q LPRINT STR$ LET [B]BP[B][A] LET [A]A1@ LIST Q[A]A1@ LIST P!Q LLIST 1Q [A] LLIST [A][B][B][A][B]Q LLIST ! LLIST [B][B]A LET [B]! LLIST [A] LIST B LIST @@A LLIST LPRINT LET [B]A LPRINT LLIST FORMAT LIST LPRINT @@@A LLIST LET LLIST LET A LPRINT LLIST FORMAT LIST LPRINT @P@@C LET P LET MOVE P LLIST [A]@@A LPRINT LET [A] LET LIST @@A LLIST LET LIST LET LPRINT LIST LLIST LPRINT LET LIST @@ LIST LPRINT LIST @ LLIST [B] LIST LLIST LIST LLIST [B][A]] LPRINT LPRINT SIN OO©FF?AAFFGGFFAAFFGGFFAAFFGGFFAAFFGGFFAAFFGGFFAAFFAAFFAAFFGFFAAFFGFFAAFFGFFAAFFGFFAAFFAAFFAAFFAAFFAAFFAAFFAAFF STOP STEP |;; LLIST #M@xLEN >=~ GO SUB [Q]PEEK RUN # OR F DRAW STR$ # REM H LIST LIST COPY LIST LIST LET BRIGHT X1UU1? LIST LIST LIST COPY LIST LIST LET BRIGHT Q1SCREEN$ SCREEN$ + COPY LIST © LIST LIST LIST COPY LPRINT RETURN LIST LIST COPY LPRINT LET BRIGHT Q" <<""<"<"+UU+ COPY LIST SAVE LIST LIST COPY USR DRAW LIST LIST COPY USR LET BRIGHT Q""":&$""+SCREEN$ SCREEN$ + LIST LIST COPY USR LIST LIST ?USR COPY USR LIST < LIST LIST SAVE LIST © LPRINT © LPRINT LIST COPY BRIGHT Q"""">&*+UU+ LIST LIST COPY LPRINT LET LIST x© LPRINT COPY LPRINT LIST < LIST LIST LIST LIST ?USR ?USR LIST COPY SGN Q"""<"&2$<""+CODE COPY COPY REM + LIST LIST NEXT LIST ?USR LIST LIST COPY <q< ":"<" "*S COPY COPY PRINT + LIST LIST RUN LIST © LPRINT LIST LIST COPY SGN ( COPY COPY bFN SCREEN$ SCREEN$ REM QuQuQuQ© COPY uQ LIST RETURN SCREEN$ SCREEN$ uQ LPRINT REM SCREEN$ SCREEN$ uQ COPY COPY IN COPY COPY IF SCREEN$ IN COPY COPY RETURN SCREEN$ SCREEN$ uQ LPRINT SCREEN$ [Q]uFN REM FN REM FN UP REM FN © COPY MERGE @ REM FN COPY UU REM FN P PRINT UU REM FN P CLEAR UU REM FN U@ REM QuQuQ LIST uQ© COPY uQ COPY SCREEN$ SCREEN$ uQ IF SCREEN$ SCREEN$ uQ ▘~SCREEN$ SCREEN$ uQSCREEN$ [Q]uFN REM FN REM FN DRAW UP REM FN ? COPY COPY UU REM FN COPY UU REM FN U PRINT UU REM FN `U@?UU REM FN U@ REM QuQuQ RETURN uQ? COPY COPY SCREEN$ SCREEN$ uQ COPY SCREEN$ SCREEN$ uQATTR ( IF SCREEN$ SCREEN$ uQ SCREEN$ [Q]>SCREEN$ SCREEN$ uQSCREEN$ [Q]uFN REM FN MERGE REM FN ? COPY UP REM FN ? COPY COPY UU REM FN COPY MERGE UU REM FN VU@ CLEAR UU REM FN ` MERGE PUU REM FN MERGE @ REM QuQ uQ? COPY uQ RETURN RETURN SCREEN$ SCREEN$ uQ COPY REM SCREEN$ SCREEN$ uQAT SCREEN$ [Q] IF SCREEN$ SCREEN$ uQ SCREEN$ FN uQSCREEN$ uFN REM FN @U@ REM FN © COPY U@ REM FN DRAW COPY UU REM FN ? PRINT UU REM FN XUP CLEAR UU REM FN `UP REM FN MERGE @ REM QSCREEN$ uQ REM uQUUuu.FN MERGE @ REM FN MERGE REM FN j&x<.QSCREEN$ uQ REM uP5&▖▜▜▜▜D8<|D8<|DDx88DD<@88xDD8DD.FN MERGE REM FN MERGE REM SCREEN$ SCREEN$ &▖▖▜▖▖▖▖▗▖▜▖▖lD@DD@LLDD<DDLD8DDt(DLL.QSCREEN$ uQ REM uUU&▖▜▜▖▗▖▖▖▜Tx@|D@TTxxDx|TDDDxxLD<DTT.FN MERGE REM FN MERGE REM SCREEN$ SCREEN$ &▖▖▖▖▜▖▗▜▖▖D@@DD@ddD@D@Dd<DD@DL(xDDdd.QSCREEN$ uQ REM uUU&▖▜▜▜▜▖D<<D8<DDx<8<DDd88<xtD<|DD-FN MERGE REM FN MERGE REM SCREEN$ SCREEN$ s-OO©GGFFCCFFGGFFGGFFGGFFGGFFGGFFGGFFGGFFGGFFGGFFGGFFGGFFGGFEGGGGEEEEGG" INVERSE STEP |;; LLIST #@xLEN >=~ GO SUB [Q]PEEK RUN # OR F DRAW STR$ # REM UUQuQuQuQuQuQu5SCREEN$ SCREEN$ xFN REM FN REM xFN REM FN REM xFN REM x REM 5UU▖p▖▖p LIST QuQu▖p▖▖ LIST ▖p SAVE p▖ LIST ▖Q0USR uFN pLN ▖pp SAVE LIST px SAVE LIST p▖x SAVE LIST pQu LIST SAVE p▖x▖p▖pp▖ SAVE p LIST QUSR u▖p SAVE p LIST pFN pp SAVE LIST SAVE ▖Qu▖▖pp LIST ▖p▖▖LN ▖p LIST ▖ LIST p▖p SCREEN$ SCREEN$ [A]▖▖FN REM FN REM [A]▖▖[I]▖▖ ▖[A]▖▖FN 0USR REM FN FN ▖▖▖▖ ▖▖ ▖▖FN REM ▖▖▖[I][A]P▖p LIST ▖[A] ▖▖FN USR REM [I]▖ ▖p▖FN ▖ ▖FN REM [I]▖FN ▖▖ CIRCLE ▖[I]FN ▖[A]▖▖▖ UU LPRINT x SAVE SAVE LIST ▖QuQu LPRINT x SAVE SAVE FN ▖▖ LIST ▖ LPRINT ▖▖ SAVE Qupx CONTINUE FN LIST LIST ▖▖ ▖x SAVE LIST ▖Qu LIST ▖▖FN LPRINT x ▖▖ LIST LPRINT ▖ LIST QuFN ▖ ▖▖xpx LIST 8 ▖Q0uFN SAVE FN ▖▖FN x▖FN CONTINUE SAVE x8 LPRINT ▖x SAVE LIST CODE COPY COPY REM [A]▖▖ LIST FN REM FN REM [A]▖▖>= LIST x ▖[A] LIST xFN REM FN ▖FN FN ▖ LIST ▖ LIST ▖▖ ▖▖FN REM ▖▖▖>=[A]▖P▖▖[A] ▖▖FN REM >=▖ ▖▖ LIST ▖FN ▖ xFN 0 REM >=▖FN ▖ LIST ▖▖>=FN ▖▖[A] LIST ▖▖ S COPY COPY PRINT x▖x▖▖x QUSR uQux▖x▖▖x p▖QUSR uFN xLN SAVE xx▖px x▖x LIST pQUSR USR u LIST ▖p▖x▖x▖pp LIST x▖ p LIST Qu▖p ppxFN xx LIST Qu▖▖pp▖x SAVE ▖LN ▖x LIST ▖x▖x FN SCREEN$ SCREEN$ REM FN USR REM FN REM ppFN USR REM FN USR USR REM FN REM pFN REM Q0uQuQUUuUUUQuQuFN 0 REM |<FN REM xFN j<NSCREEN$ SCREEN$ DFN REM FN REM <xQ0u8D8|8x8@8D@8DQuDx8x8|xD8D|x8P5x8D8@8x8|8<D8<|DCUUH8D|@/|8xQy OUT |uQ u@DTD|<FN 0 REM $DHDD@D$D8DLFN REM HD<DDDDDDSCREEN$ SCREEN$ DD8DDD@DD@LCSCREEN$ SCREEN$ pDlDxTDDFN EP REM FN "@ REM @$DTL<$DQu$Dp<DD<@D$DDTQupx<DD<xDx|Dx|UUD|<DxDD<@|D@TCUUHDTDDtxDQy ERASE /uQ"u@$D8TD$DFN REM $DHDDxD@D$<DDdFN REM HDDxDDD@Dx@SCREEN$ SCREEN$ DDD@DD@DD@dCCODE COPY COPY REM DDT@xFN E2P REM FN "@ REM @$<TdD$<Qud8D<8@<@8d88DQuDx<8@<x|<D@<UUx8D<8<x8D<<D8<DBS COPY COPY PRINT D8DDx/<@QE2PuQ" u<dTD8ddFN REM 8FN REM SCREEN$ SCREEN$ UFN SCREEN$ SCREEN$ REM FN y VERIFY _ REM FN REM 8QuQ>uQuQUUu▝FN REM xxFN REM xFN REM xFN j<x"x LIST $x|8D8D@Quxx88D8D8D8Qu|8DT8xD88|DDQu88xD8DD/8D88P5@88xDD8D<|xDD" SAVE ▖xp▖ LIST xp▖▖p▖p▖▖p SAVE p LIST ▖p|8DD88|D8D|@/|8xxDx8<|<<|8D8D8D8DDlDD@DDFN > REM DD<HDlD<FN REM HTDDt<DLDFN REM TDDlDLTD(D<DSCREEN$ SCREEN$ 8DDt(<DL@DLL"▖[I]▖[A]▖▖P[A]▖ CIRCLE ▖x[A]▖ ▖▖ CONTINUE ▖DDLlDHDlDxTDDDtDD<D@DDDHDlD<DDDTDTxL$LQ>uxxDD<pDT<|D<Qu<p8xxLD<xT||QuTDDT<DTtDDDxUUDDxxLDxT@xTT"▖FN ▖ LPRINT LIST LIST LPRINT ▖FN x SAVE ▖ LPRINT ▖ ▖▖[I] LIST DD|TT<xpDTDDtxDxLxDD@DDDpDT<|DxDDTDT$TFN > REM DDHDDDFN REM DHT@DLDD@dDFN REM TDxDDdTD(DD@SCREEN$ SCREEN$ DD@DL(D@d@Ddd"▖>=▖[A]▖P[A]▖▖[A]▖ ▖ LIST [I]DDdDD@HDDT@xDLDD<@<DDHDD@DDTDd$dQ>uxx88<D8D<D8<Qu<DT<xt8<<DDQu88@D<|D/8D88<UU88<xtD8<D<xDD!x▖▖xp▖ LIST xx▖▖p▖x▖p ▖p p CONTINUE xD8DD<<D8DDx/<@xtx88d<dD8D8D<D8<D8D8|xDdDFN > REM FN REM FN REM SCREEN$ SCREEN$ D@ CC GGCAACCG``GCCG``GCG``GCCG``hh``GCCG``hh``GCCG``GCCG``GCCG``GCCGGCCCCCCCGGCCCGOOGCCCCGOOGCEEECGOOGCCGOOGCCGOOGCCGGCCCEE!E?USR STEP |;; LLIST #ATTR @xLEN >=~ GO SUB [Q]PEEK RUN # OR F DRAW STR$ # REM UUQuQuQuQ COPY COPY u COPY QUUuXSCREEN$ SCREEN$ DFN [Q] REM FN REM |FN REM <8x<<FN REM |x1LFN j"|x*UUH8D|8<Q[U]VAL$ fuQ▚▚u@DDxD|8D8xDx8/|D8|Q60ux8x8DD8fD8|8f@8Qux8xfD8<|8D$T|P5"@<DD8DDDD8|8x8#SCREEN$ SCREEN$ pDlD@FN LINE REM FN REM FN REM xDHDtDDHtDTDDFN QP REM DD$DDLD0D<`@DFN REM DD|xD@DHt@SCREEN$ SCREEN$ "p@$LDLD<LHDD#UUHDTD<@Q LINE REM CONTINUE uQuDDpxLDDp<Lx<t|<D|QvpuD<x$x|Tx|<D<D`|@x|QuxxDf|DD@Dp$SGN t@UU"@@$T|<T|DTp<DDx#CODE COPY COPY REM DD@FN SCREEN$ SCREEN$ FN REM FN ▚▚ REM D<HDLDDHDLDDTDDFN QP REM xDD$@Dd@fDDf@@FN REM D@xfDD@DH$T@SCREEN$ SCREEN$ "@@$dDDdDDdHDDx@#S COPY COPY PRINT D8DD<<Q[U]SCREEN$ INKEY$uQuxDxtD8D<xtx</D<DQVPu@<xd<DD<0<8<D<8<<<Qux<@|x8<8D1X@UU"|<dDD<DD8DD<8@<#FN SCREEN$ SCREEN$ REM FN REM FN REM 8FN REM FN COPY COPY REM ! COPY SCREEN$ SCREEN$ CIRCLE UUQuQu"x<)Dx<SCREEN$ SCREEN$ FN USR REM 8<FN " REM xx60DD88x8<|88T8D8xD8D|x8|8DDD8|x8x8DDD8@8xD&D8|D<Dx8|8x8/|<<x|8D<DD888<DUUQY*FuD@@8D|D8|xDD88Q>f[Q]uDD/D8Dx8D8D8<DQPDH$D@DD$DTDDDDDDDDxtDDDD$DDtD8D&|<DL@L@DDT@DDDl@$DDDD@$L0SCREEN$ SCREEN$ FN U*SCREEN$ REM D8xDHDDDLDD$DFN *SCREEN$ [Q] REM xH$TDDD<LDlDHvpTp<$<D<@DD$D8x|<xDx|DxDDL|<DD<x$x|L|<D<D&D<DDT@T<@DD<t@DxDT@$DD<xx@$TUUQYj REM uDDxp|<DDTDx$xQ" NEW USR uDp$tDx|D<DTDT<DpQPTHD$DxD@DD$DT@DDDD@Dx@DDLDDxDD$@DLDDDD<&DDd@dD@DxDT@<DDD@$<<D@@@$dCODE COPY COPY REM FN QSCREEN$ REM DD@HDDDxdD@$@FN "SCREEN$ [Q] REM DH$T<@DxDDdDD<HVP|D<d<@<<D8d8T<D<x|<D@<8xtD<D@<xd<DtD<8<x%D<8DD<Dx<@8@</<dx8D<d<<<<dD0S COPY COPY PRINT QQ/ju88x<DD<D@D|<d<Q"SCREEN$ [Q]uxDd/<D@<8D8D<dD8R8FN SCREEN$ SCREEN$ REM FN REM FN REM QuQUUu8UUQuQUUuXFN USR REM |x<FN j8SCREEN$ SCREEN$ FN J@ REM xDDFN jXQINKEY$jFuD8|88DD8xD8x8@@P58UUQJ$uDD/D8D8DD8x8Hx8<D88P5<NFN SCREEN$ SCREEN$ REM DD<DLDDHDD8$xSCREEN$ SCREEN$ 8SCREEN$ SCREEN$ FN K*FN REM xH$TDDLDTDpD@DDSCREEN$ SCREEN$ <"""JQ DEF FN ▗SCREEN$ uDD<D<|TxxpDD<D$DUU8UUQ[*VAL uDp$tDx|DT|TD<HD<@|DxUU"&""&"JFN SCREEN$ REM DDd@DHDxDD$DSCREEN$ SCREEN$ 8CODE COPY COPY REM FN j▘SCREEN$ FN REM DH$T<@DDdDTxDDxD@DD@SCREEN$ SCREEN$ <*"<>*<JQj^uD8D<8<DD<xD8@<8dxUU8S COPY COPY PRINT QJC)$uxDd/<D8DD8@<D@<<D8<UU"2" "2 JFN REM SCREEN$ SCREEN$ 8FN SCREEN$ SCREEN$ REM FN REM SCREEN$ SCREEN$ <"""HCC GGCCCGGCCGhhGCEECGGCEEhEEhEECGGhhGGEEhEE@EECGGEECCEEGGEE[CC?EGGEEGhhGEBBEGhhGEBBEGhhGEBBEGGEBEEBEEGGEBEEGhhGECCBEGGECCEEE% PAPER STEP |;; LLIST #k@xLEN >=~ GO SUB [Q]PEEK RUN # OR F DRAW STR$ # REM UUQuQuQUUu[J]SCREEN$ SCREEN$ ▖ LIST FN REM LIST FN REM FN j ▖ LIST LIST LIST x<x%UU▖p SAVE ▖x)S[S] LIST LIST p SAVE p LIST pp SAVE xxQ)S[S] LIST u LIST SAVE p▖x8▖▖pppx8▖▖▖Q[U]NOT u▖pFN p SAVE pNOT ▝NOT ▜NOT ▜▜BIN G▜▜BIN NOT USR P5 ▖p SAVE ▖x[U]NOT ▖ LIST px▖pp SAVE px8▖▖▖▖pFN p SAVE p LIST 8p SAVE p SAVE LIST p▖▖pDD8<@8@D8<<D8x8<|@D8|D<@x88D88|D8xD8@D8<<D8x8<|@SCREEN$ SCREEN$ SAVE x▖[I] LIST )TACS [A]▖▖▖ ▖FN )TACS [A] REM ▖ ▖ CIRCLE H▖▖▖▖H[I] LIST CONTINUE FN % REM CIRCLE ▖FN ▖ ▖BDDABIN DD@A▗@SCREEN$ SCREEN$ SAVE x▖[I] LIST %[A]▖▖▖ ▖H[I] LIST CONTINUE CIRCLE ▖FN ▖ ▖▖H▖ ▖ LIST ▖x▖[A]▖▖Dx@8D$xDD@HDD@xD<DL@xD$DDDDl$xDD@HDD@xUU▖x▖▖FN ▖( BORDER SCREEN$ [A]0x▖▖x LIST ▖Q( BORDER SCREEN$ [A]u LIST ▖FN H▖▖x LIST LIST HFN ▖[I]Q[J]%uFN ▖p LIST LIST ▘G▗DDADDGSTR$ D@UU ▖x▖▖FN ▖[J]% LPRINT ▖x SAVE LIST LIST LIST HFN ▖[I]FN ▖p LIST LIST LIST H LIST LIST ▖ LIST ▖▖ LPRINT SAVE ▖DD<@DD$DT<D@pDD@D|<DDT@Dx$x|xx SAVE |DDT<$D|<D@pDD@DCODE COPY COPY REM ▖▖>=▖)T[S][A]▖▖ LIST ▖ xFN )T[S][A] REM ▖ ▖▖Hxx▖H>=▖[I]FN RND% REM ▖▖FN DDG▝G▗DDADUSR SCREEN$ SCREEN$ ▖▖>=▖RND%[A] LIST ▖▖ H>=▖[I]▖▖FN ▖H ▖▖▖▖[A]▖▖<DD@DD$DTD<@HDxD@DDDd@D@$@D@@DDxDD$DD<@HDxD@DS COPY COPY PRINT ▖xp▖▖x LIST }T[S][A] LIST xpxx x>=Q}T[S][A]u LIST p▖x>=xx xx>=▖ LIST CONTINUE Q$ CAT u▖pFN x x AND CBIN C▗D▜STR$ AND BUU ▖xp▖▖x LIST $ CAT ▖xx▖xx xx>=▖ LIST CONTINUE ▖pFN x x LIST >=x x LIST LIST pp▖ ▖px<<88dx|<d<D8@8<xD<8DD<xx<d<D<<D8@D<dxD<d<D8@8<xFN SCREEN$ SCREEN$ REM DFN D REM p@FN REM SCREEN$ SCREEN$ 5@@8 FN UUQuQUUuUU]D9SCREEN$ SCREEN$ FN pp REM |<FN jSCREEN$ SCREEN$ ]H8D|x8@x8D8DD8<|x8D#UUQBVH▖u@8D@P5UU]pDDDD$xHD$LDD@DDl`"SCREEN$ SCREEN$ FN etH REM xDl8SCREEN$ SCREEN$ SCREEN$ SCREEN$ ]HD|DD$D<pD$TDx@xDT#UUQUvhpuDDTDUUUU]DDxD$DDHD$d<@@DD#CODE COPY COPY REM FN UUX REM DDSCREEN$ SCREEN$ CODE COPY COPY REM ]D8D@8dxx<D8dD<<x8D`"S COPY COPY PRINT QbVh SAVE ux8D8UUS COPY COPY PRINT [I]FN SCREEN$ SCREEN$ REM FN REM SCREEN$ SCREEN$ FN SCREEN$ SCREEN$ REM QuQUUuUUQuQUUuUUQuQUUuFN 2 REM 8FN jSCREEN$ SCREEN$ FN `0 REM xFN jSCREEN$ SCREEN$ FN |x8p REM | LPRINT FN jQE.`uD<x8|D|8@DDx8D8|P5UUQSRtPuD8D8|P5UUQDD▖uDx8|Dx8x8D8|D8DCHR$ NOT STR$ CHR$ " P5FN FT[Q] REM D@DDLD$xDt(DHDSCREEN$ SCREEN$ SCREEN$ SCREEN$ FN UU$[A] REM DHDSCREEN$ SCREEN$ SCREEN$ SCREEN$ FN DD REM DDLDDHDDDL!CHR$ ""#[Q]SCREEN$ SCREEN$ QEt uD@xxTx$D|LD<pxUUUUQgg&[A]ux<pxUUUUQDxDpuDDTxDD<px|DT""# STOP `UUFN ED REM D@D@d@$DDL(xDH@SCREEN$ SCREEN$ CODE COPY COPY REM FN ET% SAVE REM @DH@SCREEN$ SCREEN$ CODE COPY COPY REM FN D@D REM DxDdDDxDH@DDd""#CHR$ ""`SCREEN$ SCREEN$ Q24 u8<x<D<dxDtD@<D<UUS COPY COPY PRINT QES&u@<D<UUS COPY COPY PRINT QEA9 SAVE uD@8Dx8@<D<D8DSTR$ STR$ CHR$ CHR$ #[Q]UUFN REM SCREEN$ SCREEN$ FN SCREEN$ SCREEN$ REM FN REM SCREEN$ SCREEN$ FN SCREEN$ SCREEN$ REM FN REM SCREEN$ SCREEN$ EGGEEPPEEGhhGEEGhhGEEGGEE(hhEE2PPEEE@``EEGGGGCCEE:GGEEGGEEGGEEGGEEGGEEGGEEGGEEGGEEGGEEGGEEGGEEGGEE CONTINUE STEP |;; LLIST #COS @xLEN >=~ GO SUB [Q]PEEK RUN # OR F DRAW STR$ # REM & =UUQuQuQUUuUU:ACHR$ # READ STR$ USR STOP STR$ USR 3SCREEN$ SCREEN$ FN ` REM DFN COPY COPY REM FN jSCREEN$ SCREEN$ :▘" ▘"!#USR !2UUQT[J]vuDx8xD8DQ COPY COPY uxB>!P5UU:B# LPRINT ▘"!" STR$ LPRINT 3SCREEN$ SCREEN$ FN d[S]SCREEN$ REM DDlFN COPY COPY REM Dr "9SCREEN$ SCREEN$ SCREEN$ SCREEN$ :"" CHR$ !" " 3UUQV[S]VAL$ u<DDx|xTQ COPY COPY uxJ "%UUUU:!CHR$ ▘NOT #USR STR$ LLIST 2CODE COPY COPY REM FN U[S]SCREEN$ REM xDD@DFN COPY COPY REM DJ "%SCREEN$ SCREEN$ CODE COPY COPY REM zS COPY COPY PRINT Qf[J]*ux@8xD<DQ COPY COPY uxr9UUS COPY COPY PRINT zFN SCREEN$ SCREEN$ REM FN REM FN REM SCREEN$ SCREEN$ FN SCREEN$ SCREEN$ REM QuQuQUUuUUQuQuQUUuUUFN " REM DFN COPY LPRINT REM FN jSCREEN$ SCREEN$ FN 0 REM |FN COPY RETURN REM FN jSCREEN$ SCREEN$ Q"K@uDx8xD8DQ COPY LPRINT ux8DD|BP5UUQSb`u8D|8x8|Dx8DQ COPY RETURN u8x8x8P5UUFN "J[Q] REM DDlFN COPY LPRINT REM DLrSCREEN$ SCREEN$ SCREEN$ SCREEN$ FN UP REM DlDDDDLFN COPY RETURN REM $DDSCREEN$ SCREEN$ SCREEN$ SCREEN$ Q*Z[Q]u<DDx|xTQ COPY LPRINT u<TTJUUUUQW'`uxTDxD<DDTQ COPY RETURN u$<xD<UUUUFN *j[Q] REM xDD@DFN COPY LPRINT REM DTdJSCREEN$ SCREEN$ CODE COPY COPY REM FN U@ REM @DD@xD<xDdFN COPY RETURN REM $D@xDSCREEN$ SCREEN$ CODE COPY COPY REM Q?J[Q]ux@8xD<DQ COPY LPRINT ux<|DrUUS COPY COPY PRINT QUc@u<DD<@<@8DQ COPY RETURN ud<x<@<UUS COPY COPY PRINT FN REM FN REM SCREEN$ SCREEN$ FN SCREEN$ SCREEN$ REM FN REM 8FN REM SCREEN$ SCREEN$ FN SCREEN$ SCREEN$ REM QuQuQUUuUUQuQuQUUu:FN p REM DFN LIST REM FN jSCREEN$ SCREEN$ FN 0 REM DFN COPY LPRINT REM FN j:Q$ NEW uH8DD8<|x8Du|8|Dx8P5UUQE CONTINUE uDx8xD8DQ COPY LPRINT u<D8x8<|DP5:FN *SCREEN$ REM pD$LDD@DDl REM DD$LDSCREEN$ SCREEN$ SCREEN$ SCREEN$ FN EH REM DDlFN COPY LPRINT REM @HDD@LSCREEN$ SCREEN$ :Q*SCREEN$ uHD$TDx@xDTuDD$Tx<UUUUQFtLu<DDx|xTQ COPY LPRINT u@pDD@TUU:FN *SCREEN$ REM DD$d<@@DD REM DD$dDDSCREEN$ SCREEN$ CODE COPY COPY REM FN EJ REM xDD@DFN COPY LPRINT REM @HDxD@dSCREEN$ SCREEN$ :Q$SCREEN$ uD8dD<<x8Du8DdDx<UUS COPY COPY PRINT Q5Lux@8xD<DQ COPY LPRINT u<D8@8<DUU:FN REM FN REM SCREEN$ SCREEN$ FN SCREEN$ SCREEN$ REM FN REM FN REM SCREEN$ SCREEN$ 3EECCCEECCCEECCEEGGEEGGEEGGBBGGEEGGEEGGEEGGEEGGBBGGEEGGEEGGEEGGEEGGBBGGEEGGEEGGEEGGEEGGBBGGEEGGEEGGEEGGEEGGBBGGEEGGEEGGEE GO SUB STEP |;; LLIST # BORDER @xLEN >=~ GO SUB [Q]PEEK RUN # OR F DRAW STR$ # REM (xx© LPRINT x SAVE xx RUN MOVE x SAVE © LIST xx| SAVE xx RUN I|8D8D@xx<xxD||8<0y LIST LPRINT xx LPRINT xxxxxx? LIST xx? SAVE xx? LIST © RUN H DDlDD@DDx8D||8@DDD8D8D DD$@D8|D<DD8x8@<.{ LPRINT ? LIST | SAVE LIST xxxxxx LPRINT xx CIRCLE xx LPRINT © CAT HDDTDTxxtDD<L8$LDDHDlD<xt$pDD@HHDD8$D.©USR | SAVE © SAVE xx SAVE © CAT hDDTDDLxDDT<D$TDDpDT<|DDL$@<DD@ppDD<D$D.©USR xx© SAVE xx? SAVE © RUN hDDTDDLDDdDD$dD<HDDDL$@DD<@HHDxDD$<.{ LPRINT xx© SAVE SAVE © SAVE xx RUN h D8D8|xxtx88D<8dD|D8D<D8 xtd|8<D<DD8@<8dd -y LIST xx{x? SAVE © SAVE xx RUN ( COPY COPY $838 COPY |<D8<|xDD88xx|xDD|x|xDD|xT8DTxxx+x|D8D|8-< DDD8Dx8(DHDD8DxD|xD DD@$DD/DD|@|xDD8 DD@$DD/DD|@|xDD8 THDT8|@DD8xTDx88|<<|8Dx8|<|@DD| D@lDDD8|x8xD8x8D8D|DxDT8DD8D8x8@<DDDDDDHxt(D<LL@DtDDLDp$xH$TDLxDDLDD$DDLDp$xtH$TDLxDDLDD$8HL8<xxt<DDTLDD@DDDDDxlLDDDpTD|DDDHDDlDDLDDLDHDD8$DD|<|D<D<DHDLDDTT@DLDxTD@$|Dp$tDTDDDTDx$DxTD@$|DLp$tDTDDDTDx$8HT8D<DDLDxD8Tx<x@DD<D<DDDTT|Dx@DD<DD<xp<DxTD|T8x|TxpDD<D$DDDDDDD<DDHDL(DDdd@xLD@dD@$DH$T<dDDxdD@$D@dD@$DLH$T<dDDxdD@$THdTDDDDLD@xTdDD@@<DD<DD<DDdD<@@DDDDxDDHDx@DDd<T@Dd@HDxDD$< DDx8DD<x< xtD8 DRAW xtD88DxD@@t D@D||dxDd/DxD@D|<d D@D||dxtDd/DxD@D|<d T DRAW DT8<xxt8<@TDx<<<dD<x<DdxDD @|D8D8<D@<xD<@<D8DD@T<DD<D8@<8dd8▗▗*88 8[R]`<|<|D<x<D88<<xDD8xDx<x8Dx<<D8|xDD @DD@D8|8x|8<8<|8<DD@8x|8xDD<D<|8D HDHD<<8D@Dx8x8DD8D88xx88D|8x8 DDTDDD8x8x8D8D|x8DDDDD8TD@|xDDT8D<8<<8D@Dx8x8DD< @lDDDl8<|8x8<|88T8DD8@DD@DDDD@D@DDLL8DDDDt(@L@DlpDHD@@Dl8$LDDDLDHD<DDDDHDDTLTDDLTDDL$DHDDtLDD<LDTL$xD|DTDD<$D@@Dl8$LDDDLD@TDDLTD@DD@DD$DTDDLD@|<@x<DDD@D@DD|TTDDDxL@T@xTHDH|@@xTD$TDDx<|TxpDDxDx<pDD<TTxDTTDDxDT$xpDD||LT|DDTDTT$DDDD8x|D$D<@@xTD$TDDx<|TD@DDxTDx@DD<@DD$D8x|Tx@D@@DDxD@D@D<DddDDxDDL(@d@@DDDHD@@DD$dxDDd@HDDx@DHDxDTdT@DdTxDDd$@HxDDLdD<DdDTd$DxD<T@DD$<D@@DD$dxDDd<@DD@dD@@DxD@DD$DT@Dd@ <Dx<@<D8@8<8<8dDD88@8xtD<D<<D D8 DRAW D<<D8dD@8x<DD<D88x@<<D8@< |D8@|D8@8x8Dxd<D@8DDtDD8D88Ddx@DT<D8dd<<D8dD@8x<DDd <D8@DD<<8@<<D8d8T<DD<D▗G88DOO©GGEEGGEEGGFFEEGGEEGGEEGGEEGGEEGGEEGGEEGGEEGGEEGGEEGGEEGGFEEGGEEGGEEGGEEGGFFEEGGFEEGGEE BORDER PRINT RESTORE OR MERGE INVERSE RESTORE CLEAR RESTORE STEP LLIST MOVE STR$ LLIST LET COPY GO SUB MPEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK PEEK USR STR$ 4NOT SUSR NOT !STR$ NOT [K]USR ASM COMPILATION OF KEFRENS ROTATE BY ANDREW SENDETSKI ASCCODE !VAL$ USR CODE USR bw GO SUB VAL 2NOT STR$ 2IN USR 2 LPRINT USR 2STR$ <2 STR$ RANDOMIZE OR BK2(STR$ 2 STEP STR$ STEP ATN STR$ " CIRCLE STR$ STEP ATN STR$ "?CHR$ STEP ATN STR$ "LCHR$ 2<>STR$ GO SUB SUSR STR$ CODE !STR$ STR$ w GO SUB VAL =2STR$ NOT |STR$ COPY COPY ! STR$ 5 '6:VAL$ USR ! CAT USR ACS ! LIST USR ACS THEN G TO IN STR$ INVERSE !VAL$ USR STEP CHR$ INVERSE ! CAT USR STEP CHR$ INVERSE ! LIST USR STEP CHR$ CODE INVERSE !VAL$ USR STEP EXP NOT > INVERSE ! CAT USR STEP EXP NOT > INVERSE ! LIST USR STEP EXP NOT : LET USR G: FORMAT USR VAL G:CODE USR VAL STEP ATTR STR$ !STR$ IN COPY =+G< NEW ACS x =+B GO SUB yC GO SUB [T]<B GO SUB yC GO SUB ATTR = PAUSE STR$ 2STR$ <> RESTORE MERGE !STR$ w MOVE LLIST <> FOR ^#V# FOR <>! AND {< RETURN 8>2NOT STR$ ~▜▚▜bo AND STEP LN STR$ "STR$ USR STEP ATN STR$ " STOP USR STEP ATN STR$ "STR$ !VAL$ USR THEN AND ! CAT USR THEN AND ! LIST USR THEN AND CODE 2EXP USR 2 PAPER USR 2 CLS USR <> INVERSE 5 LIST INVERSE THEN ACS INVERSE THEN PEEK INVERSE 6 INVERSE ^ INVERSE V RETURN ` PAPER 0NOT !CHR$ RESTORE VERIFY LIST 0H AND 83 AND 8 AND 8 AND @ INVERSE w<>c FLASH STEP XCHR$ INVERSE u INVERSE t<> DEF FN INVERSE STEP XCHR$ INVERSE u INVERSE t<>▜&o~#fo<> INVERSE THEN INKEY$ INVERSE wUSR INVERSE THEN NEW INVERSE 6<>!©CHR$ ONH DIM &57RND?[T][R][P] INVERSE w<> STEP [M]CHR$ INVERSE THEN PLOT <> INVERSE THEN RETURN <>2 STR$ 2(STR$ <> GO SUB D MERGE INVERSE w_[P]W> COPY g LIST INVERSE THEN PLOT INVERSE N INVERSE F INVERSE w MERGE RETURN V8 INVERSE ~ STEP A OR MERGE INVERSE ~ STEP A OR 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 CODE go GO SUB R FOR GO SUB Do[P]g INVERSE u INVERSE t INVERSE ~ INVERSE s INVERSE r INVERSE w MOVE <>2STR$ <> RETURN V8 RETURN ^8m( INVERSE THEN [G]e INVERSE THEN OVER _ INVERSE w INVERSE w INVERSE ~ INVERSE w INVERSE ~= PAUSE `NOT CODE INVERSE w INVERSE w INVERSE THEN v "CODE INVERSE ww INVERSE n INVERSE f INVERSE u INVERSE t INVERSE THEN VERIFY INVERSE THEN [O] INVERSE THEN ▙ INVERSE THEN ~ INVERSE n INVERSE f INVERSE u INVERSE t INVERSE THEN f(2STR$ INVERSE ~ INVERSE w INVERSE s INVERSE r<USR INVERSE THEN ▚<>2STR$ CODE INVERSE THEN N q INVERSE THEN V(k STEP ?BIN STEP DRAW BIN INVERSE THEN ^ INVERSE ~2STR$ INVERSE ~ RETURN V8[P]/ NEW U STEP A OR INVERSE n INVERSE f INVERSE ^ INVERSE V:STR$ ▜_} STEP ATTR STR$ | NEW STEP ATTR STR$ INVERSE ~ATN ( IF BIN INVERSE 5 INVERSE n INVERSE f INVERSE ^ INVERSE V INVERSE u INVERSE t INVERSE ~/ NEW 0 INVERSE ~ PLOT W:STR$ AND _zNOT ATTR STR$ INVERSE n INVERSE fT]~#N#F# RETURN 8& THEN © THEN o( INVERSE THEN DEF FN INVERSE s INVERSE r REM INVERSE THEN ^ CONTINUE INVERSE n INVERSE f INVERSE u INVERSE tYO{[P]W INVERSE n INVERSE f INVERSE u INVERSE tx NEW INVERSE wx NEW RETURN INVERSE THEN INPUT ( INVERSE THEN VAL$ 8 VERIFY INVERSE ▚ LET DEF FN RETURN DEF FN COPY INVERSE w NEW INVERSE ▚ RETURN 8>W INVERSE F▘ CLEAR NEW LIST INVERSE w INVERSE THEN n(L INVERSE THEN ^(Fy▜▜▜ THEN / THEN / THEN /!STR$ ▚w<> INVERSE n INVERSE fT]~#F# RETURN 8 THEN © THEN w( INVERSE n INVERSE f INVERSE s INVERSE r GO TO INVERSE u INVERSE tOx INVERSE ▚ INVERSE wy NEW GO SUB DLEN INVERSE ▚ NEW INVERSE w<>▜_!M OR ^#V<> BRIGHT TO "▘ GO TO / VERIFY X LPRINT n[P]@ NEW [B]A PLOT VAL$ k, LIST ATN ▘O NEXT >=[R]{W6 SAVE BRIGHT STR$ FN [A]ydP=, DRAW INPUT LPRINT CLOSE #>=ABS SIN FN [P][G]▟~wpjd^YTPKGC?<852/-*(&$" 'j MERGE l>=3AT b FLASH BORDER O>= CLOSE #.PIn BORDER UCODE (z STOP [ATN RANDOMIZE S TO GO TO WSGN BRIGHT 7[Q]k STOP N[U] RETURN w FLASH CSGN z NEXT LATN 0▞ CIRCLE `]INKEY$USR LPRINT RETURN 27292:7^+(.!+(0+(2+(^&5+(&5-#.!&50^.!-#.!^-#+(^)-+(^+(^ GO TO +^ CONTINUE +^ DATA +^ STOP +b^RND OR LOAD o4`4 COPY FN >= LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a' CONTINUE `' LOAD a3`'a% CONTINUE % LOAD " CONTINUE `" LOAD a% CONTINUE `% LOAD a' CONTINUE `' LOAD a3`'a% CONTINUE % LOAD " CONTINUE `" LOAD a% CONTINUE `% COPY [T]NOT LOAD `-[U]BIN 99999[T]NOT -[U]BIN 9[S]CHR$ a-[U]BIN `9999[T]NOT --[U]BIN 99999999999[T]NOT -[S]CHR$ -[T]NOT -[U]BIN 9[S]CHR$ -[T]NOT -[U]BIN 99999[T]NOT -[U]BIN 9[S]CHR$ a-[U]BIN `9999[T]NOT --[U]BIN 99999999999[T]NOT -[S]CHR$ -[T]NOT -[U]BIN 9[S]CHR$ - COPY `]INKEY$USR LPRINT RETURN 07090:7^+(0+(2+(30^$<^&5'2$<)-+(^+(-#+(.!+(0^02^2^ GO TO 2^ CONTINUE 2^ DATA 2^ STOP 2b^RND OR LOAD o4`4 COPY FN >= LOAD a$ CONTINUE `$ LOAD a0`$a" CONTINUE " LOAD "#$ CONTINUE `$ LOAD a0`$a" CONTINUE " DATA `" LOAD a" CONTINUE `" LOAD a$+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD &)- COPY [T]NOT LOAD `-[U]BIN 99999[T]NOT -[U]BIN 9[S]CHR$ a-[U]BIN `9999[T]NOT --[U]BIN 99999999999[T]NOT -[S]CHR$ -[T]NOT -[U]BIN 9[S]CHR$ -[T]NOT -[U]BIN 99999[T]NOT -[U]BIN 9[S]CHR$ a-[U]BIN `9999[T]NOT --[U]BIN 99999999999[T]NOT -[S]CHR$ -[T]NOT -[U]BIN 9[S]CHR$ - COPY n_RND OR LOAD o999`9 COPY FN >= LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a' CONTINUE `' LOAD a3`'a% CONTINUE % LOAD " CONTINUE `" LOAD a% CONTINUE `% LOAD a' CONTINUE `' LOAD a3`'a% CONTINUE % LOAD b"a% CONTINUE `% COPY [T]NOT LOAD `-[U]BIN 99999[T]NOT -[U]BIN 9[S]CHR$ a-[U]BIN `9999[T]NOT --[U]BIN 99999999999[T]NOT -[S]CHR$ -[T]NOT -[U]BIN 9[S]CHR$ -[T]NOT -[U]BIN 99999[T]NOT -[U]BIN 9[S]CHR$ a-[U]BIN `9999[T]NOT --[U]BIN 99999999999[T]NOT -[S]CHR$ -[T]NOT -[U]BIN 9[S]CHR$ - COPY n]RND OR LOAD o999`9 COPY FN >= LOAD a$ CONTINUE `$ LOAD a0`$a" CONTINUE " LOAD "$$ CONTINUE `$ LOAD a0`$a" CONTINUE " DATA `" LOAD a" CONTINUE `" LOAD a$+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD &)- COPY [T]NOT LOAD `-[U]BIN 99999[T]NOT -[U]BIN 9[S]CHR$ a-[U]BIN `9999[T]NOT --[U]BIN 99999999999[T]NOT -[S]CHR$ -[T]NOT -[U]BIN 9[S]CHR$ -[T]NOT -[U]BIN 99999[T]NOT -[U]BIN 9[S]CHR$ a-[U]BIN `9999[T]NOT --[U]BIN 99999999999[T]NOT -[S]CHR$ -[T]NOT -[U]BIN 9[S]CHR$ - COPY `]POINT USR LPRINT SAVE 257(259#25:!7(^+O.C+O0<+O25+O^&j+O&j-G.C&j0<^.C-G.C^-G+O^)Y+O^+O^ GO TO +^ CONTINUE +^ DATA +^ STOP +b^RND OR LOAD o4`4 COPY FN >= LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a' CONTINUE `' LOAD a3`'a% CONTINUE % LOAD " CONTINUE `" LOAD a% CONTINUE `% LOAD a' CONTINUE `' LOAD a3`'a% CONTINUE % LOAD " CONTINUE `" LOAD a% CONTINUE `% COPY [T]NOT LOAD `&[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ &[T]NOT &[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ & COPY `]POINT USR LPRINT SAVE 0<7(0<9#0<:!7(^+O0<+O25+O320<^$w^&j'd$w)Y+O^+O-G+O.C+O0<^0<25^25^ GO TO 2^ CONTINUE 2^ DATA 2^ STOP 2b^RND OR LOAD g4[T]NOT `([S]CHR$ ((([T]NOT ([S]CHR$ (((RND OR 4 COPY FN >= LOAD a$ CONTINUE `$ LOAD a0`$a" CONTINUE " LOAD "$$ CONTINUE `$ LOAD a0`$a" CONTINUE " DATA `" LOAD a" CONTINUE `" LOAD a$+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD &)- COPY [T]NOT LOAD `&[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ &[T]NOT &[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ & COPY `]PI<= LOAD : LINE 9<= GO TO : LOAD : GO TO : LINE LOAD 9<= GO TO : LOAD : LINE 9<= GO TO : LOAD : GO TO : LINE LOAD 9<=:: GO TO : LOAD : LINE 9<= GO TO : LOAD : GO TO : LINE LOAD 9<= GO TO : LOAD : GO TO :: THEN LOAD <<= GO TO :: TO LOAD j7e^RND OR o>`> COPY FN >= LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a' CONTINUE `' LOAD a3`'a% CONTINUE % LOAD " CONTINUE `" LOAD a% CONTINUE `% LOAD a' CONTINUE `' LOAD a3`'a% CONTINUE % LOAD b"a% CONTINUE `% COPY [T]NOT LOAD `&[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ &[T]NOT &[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ & COPY `]PI STEP LOAD : DEF FN 9 STEP GO TO : LOAD : GO TO : DEF FN LOAD 9 STEP GO TO : LOAD : DEF FN 9 STEP GO TO : LOAD : GO TO : DEF FN LOAD 9 STEP :: GO TO : LOAD : DEF FN 9 STEP GO TO : LOAD : GO TO : DEF FN LOAD 9 STEP GO TO : LOAD : GO TO :: CAT LOAD < STEP GO TO ::: CONTINUE :: DATA : FORMAT LOAD c5ATTR a5AT f7RND OR o>`> COPY FN >= LOAD a$ CONTINUE `$ LOAD a0`$a" CONTINUE " LOAD "$$ CONTINUE `$ LOAD a0`$a" CONTINUE " DATA `" LOAD a" CONTINUE `" LOAD a$+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD &)- COPY [T]NOT LOAD `&[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ &[T]NOT &[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ & COPY `]PI STEP LOAD : DEF FN 9 STEP GO TO : LOAD : GO TO : DEF FN LOAD 9 STEP GO TO : LOAD : DEF FN 9 STEP GO TO : LOAD : GO TO : DEF FN LOAD 9 STEP :: GO TO : LOAD : DEF FN 9 STEP GO TO : LOAD : GO TO : DEF FN LOAD 9 STEP GO TO : LOAD : GO TO :: CAT LOAD < STEP GO TO : CAT << CONTINUE << DATA < FORMAT LOAD c5ATTR a5AT f7RND OR gF[T]NOT `:[S]CHR$ :::[T]NOT :[S]CHR$ :::RND OR F COPY FN >= LOAD a$ CONTINUE `$ LOAD a0`$a" CONTINUE " LOAD "$$ CONTINUE `$ LOAD a0`$a" CONTINUE " DATA `" LOAD a" CONTINUE `" LOAD a$+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD &)- COPY [T]NOT LOAD `&[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ &[T]NOT &[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ & COPY a]RND OR LOAD l2b2l2b2l2b2h2[T]NOT `&[S]CHR$ &&&RND OR 2 COPY FN >= LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a' CONTINUE `' LOAD a3`'a% CONTINUE % LOAD " CONTINUE `" LOAD a% CONTINUE `% LOAD a' CONTINUE `' LOAD a3`'a% CONTINUE % LOAD " CONTINUE `" LOAD a% CONTINUE `% COPY [U]BIN LOAD `22222[S]CHR$ /[U]BIN 2222[S]CHR$ /[U]BIN 22[S]CHR$ /[U]BIN 22222222[S]CHR$ /[U]BIN 2222[S]CHR$ ////[U]BIN 2222222[S]CHR$ /[U]BIN 2222[S]CHR$ /[U]BIN 22[S]CHR$ /[U]BIN 22222222222222222 COPY a]RND OR LOAD l2b2l2b2l2b2h2[T]NOT `&[S]CHR$ &&&RND OR 2 COPY FN >= LOAD a$ CONTINUE `$ LOAD a0`$a" CONTINUE " LOAD "$$ CONTINUE `$ LOAD a0`$a" CONTINUE " DATA `" LOAD a" CONTINUE `" LOAD a$+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD c&a- COPY [U]BIN LOAD `22222[S]CHR$ /[U]BIN 2222[S]CHR$ /[U]BIN 22[S]CHR$ /[U]BIN 22222222[S]CHR$ /[U]BIN 2222[S]CHR$ /[U]BIN 2[S]CHR$ //[U]BIN 2222222[S]CHR$ /[U]BIN 2222[S]CHR$ /[U]BIN 22[S]CHR$ /[U]BIN 22222222222222222 COPY `]POINT USR LPRINT SAVE 0<7(0<9#0<:!7(^+O0<+O25+O320<^$w^&j'd$w)Y+O^+O-G+O.C+O0<^0<25^25^ GO TO 2^ CONTINUE 2^ DATA 2^ STOP 2b^RND OR LOAD g4[T]NOT `([S]CHR$ ((([T]NOT (POINT USR LPRINT +O-G.C0< COPY FN >= LOAD a$ CONTINUE `$ LOAD a0`$a" CONTINUE " LOAD "$$ CONTINUE `$ LOAD a0`$a" CONTINUE " DATA `" LOAD a" CONTINUE `" LOAD a$+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD &)- COPY [T]NOT LOAD `&[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ &[T]NOT &[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[S]CHR$ && COPY POINT USR LPRINT SAVE a25`^5-^256*^b7(`^7(:!<^>>^>><:!^7(^7(5-7(:!^a7(`^7(5-25^0<c.C`^0<.C+O)Ya+O`^.C^+O/?^0<^25^5-^7(^ COPY FN >= LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a' CONTINUE `' LOAD a3`'a% CONTINUE % LOAD " CONTINUE `" LOAD a% CONTINUE `% LOAD a' CONTINUE `' LOAD a3`'a% CONTINUE % LOAD " CONTINUE `" LOAD a% CONTINUE `% COPY [T]NOT LOAD `&[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ &[T]NOT &[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ & COPY POINT USR LPRINT SAVE `>>^>><:!^b7(`^7(:!<^>><=><:!^7(^7(5-7(:!^b7(`^a7(`^5-:!a7(`^a7(`^5-7(:!:!<^>^<=>^><:!^<^ COPY FN >= LOAD a$ CONTINUE `$ LOAD a0`$a" CONTINUE " LOAD "$$ CONTINUE `$ LOAD a0`$a" CONTINUE " DATA `" LOAD a" CONTINUE `" LOAD a$+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD &)- COPY [T]NOT LOAD `&[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ &[T]NOT &[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ & COPY [R]STR$ LOAD a& GO TO `& LOAD &^ GO TO & LOAD )+- GO TO +- LOAD -^ GO TO - LOAD +)&^ GO TO & LOAD &)&+- GO TO ++-- LOAD + GO TO - LOAD ) GO TO - LOAD & GO TO -& LOAD &^ GO TO & LOAD )+- GO TO +- LOAD -^ GO TO - LOAD +)&^ GO TO & LOAD &)&+^-^ GO TO -- LOAD 0 GO TO - LOAD 2 GO TO - COPY FN >= LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a' CONTINUE `' LOAD a3`'a% CONTINUE % LOAD " CONTINUE `" LOAD a% CONTINUE `% LOAD a' CONTINUE `' LOAD a3`'a% CONTINUE % LOAD b"a% CONTINUE `% COPY [T]NOT LOAD `&[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ &[T]NOT &[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ & COPY [R]STR$ LOAD a& GO TO `& LOAD &^ GO TO & LOAD )+- GO TO +- LOAD -^ GO TO - LOAD +)&^ GO TO & LOAD &)&+- GO TO ++-- LOAD + GO TO - LOAD ) GO TO - LOAD & GO TO -& LOAD &^ GO TO & LOAD )+- GO TO +- LOAD -^ GO TO - LOAD +)&^ GO TO & LOAD &)&+^-^ GO TO -- LOAD 0 GO TO - LOAD 2 GO TO - COPY FN >= LOAD a$ CONTINUE `$ LOAD a0`$a" CONTINUE " LOAD "$$ CONTINUE `$ LOAD a0`$a" CONTINUE " DATA `" LOAD a" CONTINUE `" LOAD a$+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD &)- COPY [T]NOT LOAD `&[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ &[T]NOT &[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ & COPY `]POINT USR LPRINT SAVE 257(259#25:!7(^+O.C+O0<+O25+O^&j+O&j-G.C&j0<^.C-G.C^-G+O^)Y+O^+O^ GO TO +^ CONTINUE +^ DATA +d^RND OR LOAD o4`4 COPY FN >= LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a' CONTINUE `' LOAD a3`'a% CONTINUE % LOAD " CONTINUE `" LOAD a% CONTINUE `% LOAD a' CONTINUE `' LOAD a3`'a% CONTINUE % LOAD " CONTINUE `" LOAD a% CONTINUE `% COPY [T]NOT LOAD `&[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ &[T]NOT &[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ & COPY `]POINT USR LPRINT SAVE 0<7(0<9#0<:!7(^+O0<+O25+O320<^$w^&j'd$w)Y+O^+O-G+O.C+O0<^0<25^25^ GO TO 2^ CONTINUE 2^ DATA 2d^RND OR LOAD o4`4 COPY FN >= LOAD a$ CONTINUE `$ LOAD a0`$a" CONTINUE " LOAD "$$ CONTINUE `$ LOAD a0`$a" CONTINUE " DATA `" LOAD a" CONTINUE `" LOAD a$+ CONTINUE `+ LOAD a7`+a) CONTINUE ) LOAD & CONTINUE `& LOAD a) CONTINUE `) LOAD a+ CONTINUE e+g+ COPY [T]NOT LOAD `&[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&[U]BIN 22222222222[T]NOT &[S]CHR$ &[T]NOT &[U]BIN 2[S]CHR$ &[T]NOT &[U]BIN 22222[T]NOT &[U]BIN 2[S]CHR$ a&[U]BIN `2222[T]NOT &&RND OR j2[T]NOT `&[S]CHR$ &&a& COPY @vAT <= OUT RESTORE CLEAR r▟[S]USR RANDOMIZE 258;>ADGJMPSVY/_behLN LN LN >=>=>= CIRCLE CIRCLE >=>=LN LN LN LN LN LN LN `SGN LN LN LN >=>=>= CIRCLE CIRCLE >=>=LN LN COPY LN COPY LN COPY LN COPY LN LN `SGN LIST LPRINT USR ▘[Q][Q][U][Q][Q]a[U] LPRINT USR [Q][A]pP@ LPRINT LEN LPRINT LPRINT USR VAL VAL [Q][E]©[E]>= PAPER @ PAPER SGN RETURN SGN RETURN SGN SGN CIRCLE >=LN FN [I]▖▖ COPY ▖ COPY ▖@▖▖▖▖▖▖▖xxxhhhXXXHHH88( SAVE SAVE CONTINUE LN LN PLOT LN PLOT LN LN `SGN >= PAPER @ PAPER SGN RETURN SGN RETURN SGN SGN CIRCLE >=LN FN [I]▖▖ COPY COPY ▖`▖ RETURN ▖ RETURN ▖@ RETURN ▖xxhhXXHH88(( ▖ COPY ▖ COPY ▖@▖xxhhXXHH88(( LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE LPRINT SAVE @BJT/^hltx|▗[E][M][U]AT TAN ACS LN INT SGN PEEK USR CHR$ BIN AND >= LINE TO DEF FN FORMAT LPRINT CLS ` IF IF RETURN ` CLS ` IF LPRINT POKE ▝ RANDOMIZE a CLEAR CLS LPRINT CLEAR CLS ` CONTINUE LPRINT LPRINT DRAW CLEAR ` CLS CLS ` DRAW CLS ` CLEAR RANDOMIZE ` RETURN RANDOMIZE ` CLS RANDOMIZE ` CLS DRAW ` LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT LPRINT STEP |;; LLIST ##@xLEN >=~ GO SUB [Q]PEEK RUN # OR F DRAW STR$ # REM J CAT << DRAW < BORDER ▜▜L COPY COPY #"[S]""# COPY COPY !"@▘"" K CAT <= DRAW < BORDER ▜▜LD STOP !CHR$ NOT STR$ CHR$ LLIST #▘"# READ READ [S]`K CAT <? DRAW < BORDER ▜▜LD|x8 !"@CHR$ ""b[Q]K CAT <? DRAW < BORDER ▜▜LL@D!" ▘""c +USR < CAT <?SGN < BORDER ▜ COPY M"!NOT STR$ NOT STR$ CHR$ [Q]T@D<NOT # STOP ▘CHR$ "#[S] +USR < CAT <?<< BORDER ▜ RETURN M""[S]"" d@xDBUSR << RETURN RETURN COPY DRAW >< COPY M"b[S]"#CHR$ "`D@@<B CAT <<| COPY COPY COPY DRAW << RETURN COPY COPY !"[S][T]CHR$ ""[Q]USR READ STOP # READ STR$ CHR$ ""[Q] [S][R]" USR PI<<8D[T]!" ▘GxAx<|@@x8< STOP !CHR$ !USR DHCHR$ ##USR ▘G|8|x8TDDxD/D88|<<8x|8D8|DD8<DD|xD<|DD8xD8<x88D|8x8DDDxD|DD8@USR 8D|8DDxDD8D<8|<<@8DD@""B" DpSDDDTLlDH$TDD@DDDlLDD@HLDDL@tHDDHD@DDHDDlL$L<DD@LlD8xDHDlDDLlDD@D@DD@""Bb DHSDDx8TTxp$tD<x@D<xDT<T|Dx@pTDDT@LpDxpx@Dx<pDDTT$TDD@TTDDxpDTDDTTx|Dx@D@DxD@ LLIST STOP B[S] CHR$ STOP READ USR DDSDx@TdDDH$T<D@@<DDDDd<@@HdDxd@LHDDH@@x@DHDxDDd$dDx<@dDDD@HDDDxdD@D<@@<<8@8< "C" [S]!"▘ 8DRx8@<TDDxDd/<<<d<x8D<D<<DDD@D<tD8xD<<@<<D8@8DDdD8@@DD88x<D8DD@DD<Dd<<d COPY COPY #<= STOP !USR [S]a#USR ▘ COPY COPY [N]8 LIST &xx<8xx<xD|x<7<xxx<|x8<<x8Dx8|8D88xDD@8D8xH<D8D8T8DD<|8x8<D8DD88@D8DD8xD/DD|@8|DD/D@DDD<|8D8D@/DDx<8x8|8x|8xD|@xxDD8xD/DDx8|8xD/D8D@DD8DDD<DD88D8D8DDD8T8|8|8x|8xD|@xx8DDx8|x8<D|@xD|8DDD8x<|8D8D@/8|DD@@DD@<$D(DHD<DDt(8$DHDDH$DD(DT<DDLDDDD$DxlDD8(D<LlDDH$TDLxDDLTL@DDL@DDlDDxTHDD@DDDDDDLxDDHDDTLDDDDTHDl8LDDLLx@$DDDDD<DLlDTDDDDDDLxDD<L$LDD@Lx<DD@DLDLTD@DDlDDxTDDLL@xDD@D$D<x<<pDDxLD$DpDxH$D|<D8Dx|TDD<DD$DD<T|xDD|DDTTDxp$tDTDDDTtT@x|T@DDTDTDtpDD@DD<DDxDDTDxD|pDxDtTDxxDxDtpDTDT|<DTTD@$DD<x|xDD<DTTD8xxDDxDDTDxxDDT$T<DD@TDDD@DTTTD@DDTDTDtDDTT@DxD@D$<D(DDDHDDL(D$DHDDH$<DD(DTD@Dd<DDxD$<DDD@DD(DDdDDDH$T<dDDDdTd@@Dd@DDTDTH<x@DxDDDDxdDD<HDD<TdDD@DD<THDDdDDddD@$<<D@D@<DD<dDDT@@DDDxdDDDd$dDDxD@dDDx<@DdTdTx@DDTDTDDdd@D@D@8ddx<Dx<<D88xtD8d8D8x DRAW ddD<D8T8<DDdD<@8ddx<DD<88D88DD8xDd/Dx8D|D/D@@DD<D8D8|x/D@<8@<D8x8@DxxxD8x/D|x<8x/D8D8DD<|DDx<d<<D<8<DD8T<<D8x8@Dxxx88DdDx<D@8<Dx8@@8D|D8@<D8D8|x/8D|DD<x@8<(▗/888888*8OO©GCC7777GGDDDDGDDDDDDGDDCASN CC[D]CC RUN STEP |;; LLIST # RUN LEN >=~ GO SUB [Q]PEEK RUN # OR F DRAW STR$ # REM K OUT <<NOT USR RUN CAT <<NOT USR L"<xx<DENOT USR COPY <=USR <<NOT USR L$"$>><*""|x"<""D<D8D|8T8D88xDD@8D8xx88D|8x8D<|8@xD8|<<x|x8DDD<<D<D+<=USR COPY NOT USR <<NOT USR M8"$""*&6DD"""""D<$DlDDTHD<DDt(8$DHDDDDHDDL@DD$xDD@DDDD(lL@@LD(+ CAT LIST USR NOT USR SAVE COPY M$"$>""<**DD<">>"<|D$DTD|<8<pDDxLD$DpDxDx<p|DD<T@DD$DDx@DxDxTT@@TD+ OUT SAVE USR NOT USR LIST COPY N""$"< *2"Dx """" DD$<DDDTDHDDL(D$DHDDx@DHDxDd@DD$D<@@<Dx@(Dd@@d<(+ RETURN << COPY USR + COPY COPY !"~< *""D@"<"D8ddD8D<T<D88xtD8d8D8x@<<D8@<D<D8dxx<<dx@<DDD<<DdD+ RETURN << COPY USR oBF8[G]D2088xxxxD*<|xD|<|8<<xx@D0D((0D8|8xxx88D|8xDD|8DD88|88|x888DD88D8DD8<|x8D88xDD8DD8DDDD8TD8|x8<D8|x8|@x|x8x8D8DD88|DD<DD<D8<8|x8<D8|x8@8D8xDD<|8D8D@/8|DDl@@D|8x8D8<D|8D8D8DD@8@8Dx8x88DD8D8D8x88D8<8xD8<|D|@|xD@PHHPx$DDDDDDHDDxtDD$DDDDDD<D$DDHD$LDD@DDHD<DDt(TLDDHL(lDTDD@lDDDxDDDDDlDHDDDDLDlLDD@$DDD@lDD8$DHDDxt@DDlDDxTDDLLTp@DDDDD@LDHHDL$L8D8$DHD$DDHDDxD<D@DDlD@LxDL@8||HH|D$xxxxDx<pDDDLDD$DD<xxDDxDx$x||DxpD$T|Dx@xDpDDxLTTxpTTD8|DD@TDDxDxDD<xDTDp|xDDTD|TT<DD@$xDD@TDD<D$DpDxDL@DDTDTDtDDTTD@@DDxDx||D@Txp<pDT|$TDDD$Dpx$xxDxDp|DD<T<<D<D<@DxTx@TDDT@@D||D$@@DDx@DHDxDLDD$<<D@@DDx@D@$@DD@HD$d<@@DDHDDL(TdT@Hd(DDTDDxD@DDx@DDDxDDDHD@DDd<Dd <DD@$@DxD@DDxDD$DHDDDL@DDTDTDDddD@@DD@x@DD@d@HDHDd$dDDD$DHD$@DD@DHDDDDTDDD<D@DD@@dDxd0|8xd<<xx@<<D8@xtD8d<<<8D@<8<d<DD8<D8dD<<x8D88xtD8D|<DDDD8TD8D@8<D8@<xxD@<x8D8DD<8D|DdDD@D8<d<D@8<D8@<8d8D8xxt<D8D8|x/8D|DDD|<8D<@<D8<D<D<D8DdD888d8Dxd<x8<8DD8x<|<x<8<<<8xD<<Dx@D 8T+h BORDER xxx<0xx<DDx||x#<<D<xxxxxD88<<8x8DD<D<|8DDx8|8xD<DD8Dx8D8<DDxD8D<<Dx8|8x8|8@8D8@8|DDDDDDD@DD|D|88|8<@<8xD8<|D|@8|8<D8DDD@8@8D8DDx|x8x8|88DD8H8D8DDx8xD@|8|8D@D8|xD<DD8DxDDDD8x|8D8<|@8DDDxD88xx88D|8x8HD<<$D@D<DLDD@DLDLDD@DDL@DDHxDDDLLlDDDD$DD@D8$DH@DDLLxDDTLDxpxtDtDD@x@DDlD@LxD@D@HHLl$L8D8$DHDlLDDDD@DDHDpDDtlDDD$xDl8D<DDL@DDH<DD(DLTDDLD@xD<LDLHD<DDDDHDDpDD<D$D@DD<|TDD@DTDTxD@DDT@D|p<DD<T<DTTTx|DDDxx$xxD@DD$Dp<@DDTTDx|TTDD@DLDL<xx@D@DxTx@TDx@D@p<pTT|$TDDD$DpDTTDD<|xD@DDp|<HD|xD|LTDxD$D<DTDDxDT@D|DpDxDDTTDDTx@DDDT|TpDDxDx<pDD<HDDD$<@DDDd<<@Dd<dDD@Dxd@
