home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / resume.lbr / RESUME3.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1993-10-25  |  15.4 KB  |  42 lines
  1. 3446  3^<UNK! {0009}>AUTO{AUTO8sDEFDBLRETURNPOKE$DPOKEURESUME'm3<UNK! {00F7}>+F<UNK! {0002}>SPC(`<UNK! {00F5}>o~ERRXSTRING$#1WRITEWHILEBSAVEVONPSET<UNK! {000D}>&H5F2B<UNK! {0006}>ANDCALL<0xE2!>K2MSOUNDRETURNMOD&^LOCATEHANDW`BSAVE<0xE2!>2P*tf{<UNK! {0001}>s<0x9F!>XOR<UNK! {000A}>0STOP1PRESETNEXT<UNK! {00F7}><UNK! {0002}><UNK! {00FA}> %6"CLSyhERASEy&O61013COLORSt<UNK! {00F5}>FOR<UNK! {0010}>+WAIT<0xE5!>PSETBLOADX6ERRINKEY$i%<0xE3!><UNK! {FDA5}>eMVARPTR<0xDF!>HTRON<UNK! {0004}>uAUTO<0xE0!>STEPi!4NEXTPRINT0Z-924MOTOR%+RusERRORSAVE<UNK! {00F9}>ENDFORjkOFFIMP/`<0x9F!>v<UNK! {001E}>8QSTOP16288U}POKEWO<UNK! {FEF3}>xSCREEN]READAUTOpBLOAD<UNK! {001E}>%'OFFLOCATE;IF^<UNK! {0009}>8^go<UNK! {00F6}><0xE2!>-5J<0xB4!>9<0x9A!><0xCB!>TAB(Y<UNK! {0003}><UNK! {00F7}><0xCB!>+d&H3278MOTOR<0xDF!>-V<0xE1!>c<UNK! {00F9}>=<UNK! {001E}>-CSRLINNEWDIMPSETPRESETSTRING$<0xE5!>ERLCIMP3}<0xE0!><0xB5!>^<UNK! {0002}>K6XORDIMGOTO<0x9F!>STOP)<0xE5!>NGOSUBOAUTOBSAVE<r<0xE2!><UNK! {00F7}>RENUMk8SKEYTAB(`PRINTEQVELSE12232Yp<0xE4!>EQV<UNK! {00F8}><UNK! {FD47}>TON+STEP<UNK! {00FA}>LETR<UNK! {0003}>c<0x9B!><UNK! {00F8}>IHNOT|<UNK! {00F7}>LINEOFF*YANDJ=SWHILERETURN8_dALISTRESUME-N78<UNK! {00F9}>M-BEEP9INSTR_K+tCONTUSING<UNK! {00F9}>~RANDOMIZE<UNK! {0009}>yD14z"<0x9B!>UPOKE<0xE4!>INKEY$SWAPFj ;26PRINT<0x9B!>Hd80<UNK! {001E}>AUTO0j<0xE5!>?iA<0xB5!>/hRESUMEU3AND'-W<0x9B!><UNK! {0002}>FA/1.3ERREADCALL<UNK! {00F7}>bE<UNK! {0007}>REM<UNK! {FDC9}>9<UNK! {00F8}>=DELETEpBSAVEg}=USRGOTOk]BLOADLETEQVdB<0xB6!>WHILE<UNK! {0080}>GOTOGOTO'GOTOGOSUB<UNK! {00FB}>Mr0l<UNK! {0007}>=ZL@GOTOMOD8<UNK! {000D}><UNK! {001E}>&'SCREEN<UNK! {0002}>EDITPOINT/*NEXT<0xB4!>AUTOTRONr)RETURNWAIT$USRSPC(6ELSE<UNK! {0006}>o|<0xB5!>{44953dERROR-276401SCREEN\8IMP
  2. 928  {pa6.USRPOKE<0xB5!>s7RUNPSET<EQVTAB(iCLS(-8.16085&H26E1[qDATA-LINE7z5WRITEZ&4<UNK! {0080}>DEFSTRNOTL<0xE4!>8<0xB4!>CALLM+?z;|JAUTO<UNK! {000D}>TRON=QBEEP*w32WENDy{8qKEYRETURNPRESET[FOR<UNK! {0009}>oIMPTRONY<0xE1!>3^4STEP01OFF>/{R:]0USINGTRONUENDUSINGBEEPY/<0xE4!>STEP+1RETURN<UNK! {001E}>`POINTAzRESUME'ELSE>KEYINSTRs<UNK! {00F5}><UNK! {0002}>n|READ(><UNK! {0002}>k&H686Dh7'VARPTRx<UNK! {00F5}>135kI!<UNK! {0006}><UNK! {00FC}><0xE1!>>qTO8195STRING$<UNK! {00F5}>t-2.27162E+33DELETE2RUN[}FOR@zWAIT3SCREENINPUT<UNK! {FECC}><UNK! {00FC}><UNK! {0009}>@83STRING$sf<0xCB!>SE<UNK! {0009}>LDEFINT]Z<UNK! {0003}>0SCREENBEEP\7STEPBLOADc3INPUTMODRENUMfIF<UNK! {00F9}><UNK! {00F9}>238480THEN"BRESTORE=6Q&USINGFNk9 %2SCREEN<UNK! {0002}>^CSRLINTRONZYn.WtTHENl'-19879mRESUMEX0aLOAD<UNK! {0006}>&<0x9A!><UNK! {00FB}>]^46862 <UNK! {FE58}>c<UNK! {00F5}>OPENf<UNK! {0008}>WIDTHDEFSTR/SOUND&CLOSELLINECSRLININKEY$MDNCLEARIMP'$<UNK! {00FC}>KEYTRONBEEP/l7p8x^<UNK! {0009}>RESTORE<UNK! {0007}>GOTOmEFOR@zWAIT3SCREENINPUT<UNK! {FECC}><UNK! {00FC}><UNK! {0009}>@83STRING$sf<0xCB!>SE<UNK! {0009}>LDEFINTuJT#"2O!EDITLOCATEDIMNOTtGOTOwERR[<0xE3!>3dWHILE
  3. 712  0SOUNDCLEARRUN4|FORhON|}j-^<UNK! {0001}><UNK! {0080}>{!4.KEYRESTOREDELETE'<0x9F!>W,FB/eCSRLIN7ta OPTIONvCSRLINz1.08718E+29_RENUMCLEAR1INPUTPSETLETLLISTX<0xB5!><UNK! {FDDD}>OPEN&O64164'[STRING$ONCALLL\0POKEAUTO<0xB6!>oCLEAR<0x9A!>RESUME<0x9B!>j^I({&TRON SOUND62CLOSENOT=>Q1.79847E+28STEPSTRING$AZaWREM*vMOTORM.?[TROFF6pWRITEbQELSEDEFDBLON<UNK! {000A}>LOCATEndSTOP<UNK! {FD2C}>eCLOSECLSOR/4ELSEDEFSNGOLOADGOTO&REMDEF<UNK! {00FB}><UNK! {0002}>/C-LIST-1.73874E-09CONTLET-ON^<0x9F!>^(Y=J/0TROFF?'I NEW]>{q"MOD8s&HD5E0<UNK! {000D}>SCREEN383645'KEYPRINTCLEARBLOAD'>OPEN45&k[COLOR>DEFs'T<0xE1!>LPRINTSWAP"STRING$OUTVARPTRDIM}#")\o<0xE5!><0xDF!>COLORNEXT+<0xB6!>ANDrDEFPRETURN9BSAVEWTO<UNK! {0006}>STRING$C<UNK! {000A}>3.<0xE4!>EdMOTORM6?DATAERRORo?<UNK! {FDC3}>8ERROR<UNK! {0003}> -DEF=6<UNK! {0009}>IF410CLOSE1LPRINT2INPUT1.03842E+37"'EQV'/=10<0xE2!>RUNLPRESEToAFORINKEY$wRESUMEPOKE0ERRJ<UNK! {0080}>5Stz& 17E<UNK! {0006}>NEXTXOR)$STRING$&H81C8PSET&HD926aINPUTPRESETi<
  4. 44260  FNERR<UNK! {0006}>-1THEN<UNK! {0003}>Os<UNK! {00F6}>kr<0xE1!>OR,IF<0xB4!>^<UNK! {FF64}>-7E-17ERL[0,r5<UNK! {FE25}>BSAVEMTO<0xE5!>SPC(A<UNK! {0007}>1<UNK! {0004}>yERREADDEFINT<UNK! {00F7}>\@<UNK! {00F7}>RETURN<UNK! {FDC9}>9<UNK! {00F8}>=DELETEpBSAVEGOSUBGaLOADGOTO,gSTRING$KEYAND*ENDTROFF<0x9B!>ICLOSEBEEPYSPC(<0xE4!>POKEQb}t<UNK! {0006}>KDIM77<UNK! {00FA}>+`{:2y7oCALL<UNK! {00FB}>&H59B9C3`dTROFF bad<0xE1!>lUSING<UNK! {0006}>7bSAVEr9LOCATEDEFDBLd<0xB4!>3<UNK! {000D}>IF<UNK! {001E}><UNK! {00FA}>f}=<UNK! {00F7}>INSTR%DCLEARNBEEP<UNK! {0003}><UNK! {00FA}>[MERGECLEAREDIT21594FNRENUMLPRINT)BSAVE<UNK! {0003}>+REMi4Q*`7LLISTS<UNK! {0003}>ASTEP,<UNK! {007F}>,r5NEWk<UNK! {0003}>FMOTORREMSOUND~F3IELSE:0<UNK! {0008}>>GOTOTHERASEM<UNK! {0001}>MOD<0xB6!>ERL<UNK! {FFF8}>{_&RETURNwCLEAR<UNK! {000D}>RESTORELETCLOSE<UNK! {00FB}>SPC(9FOPTIONLLIST<UNK! {007F}>LOADGOTO&REMDEFERR447-<0xE4!>XXt!<0xE2!>TOZ>64(KEY<UNK! {0007}><UNK! {00F7}>END<UNK! {007F}>_=<0xE4!>CSRLIN/3TROFFn'$ <0xE1!>7RESUME<UNK! {0006}>q,KEY<UNK! {0006}>]<UNK! {0003}><UNK! {00FA}>3OPTION/8IF"PSET[8=<UNK! {00F6}>
  5. 19663  ak-17111<UNK! {0006}>&O37777707014<0xB5!>)<EQV.STRING$<UNK! {0003}>RESUME<UNK! {FF19}>^"z2r<0xDF!>?ON<UNK! {0008}>BLOAD<UNK! {0008}><UNK! {0004}>A~<<UNK! {FF25}>BSAVEvDEFRETURNCLOSE~tV_ELSE70SPC(END6P3TROFF6<UNK! {001E}>DEFINTb^RESUME<0xE4!>ONERRGOSUBRETURNDPRINT+RESTORELETCLOSE<UNK! {00FB}>LPRINTdENDOR<0xE3!>3SCREEN
  6. 64484  417->YQ]9ELSESTOP823I(PRINTRESTOREDELETE'RESUME(7NEXT5EtDEFn^zc<0xB5!>m/<UNK! {007F}>#[KEYs<UNK! {0006}>CONTRANDOMIZE!ELSE5<UNK! {000A}>CLEAR1<UNK! {00FC}>R~SWAPh<UNK! {00FA}>_7[OUT5$k[COLOR>INKEY$sFTPOKE<OR.STRING$<UNK! {0003}>RESUME<UNK! {FF19}>^"z2r<0xDF!>JSCREENNEXTERL%1<UNK! {0009}>f9<UNK! {0003}>gBSAVE<MOTORBEEPSAVECG`.OUT6<UNK! {001E}><UNK! {0003}>3JTJTROFFuK)YL6RpBSAVEGOSUB-3.70781E+08/DELSEDEFINTINPUTIFBEEPu<UNK! {0003}><UNK! {0004}>VLOFFXORLOADONG<UNK! {0009}>7hDEFSTRMERGE8{cIwUSINGRESTORE^ELSE^(Y=J/0TROFFnfzd<0xE1!>h^|<UNK! {001E}>cCALLG<UNK! {0007}><UNK! {0006}>RANDOMIZE12204<UNK! {000A}>WRITE <UNK! {0002}>Up<UNK! {00F5}>/<UNK! {0003}>dDEFDBLOPENz]u5/<0xCB!>>WHILE<UNK! {0001}>FOR=POKE<0x9A!><0xB6!>,6&H5E0<UNK! {00F8}>STEP"x2r<0xDF!>?PSETABLOAD[<UNK! {007F}>H<UNK! {000A}>PNEW9BSAVEWTO<UNK! {0006}>STRING$C<UNK! {000A}>3.LPRINT70MOD#20474XOR<UNK! {0007}>{LISTBLOAD<UNK! {00F9}>IF8qLOCATELINELPRINT-0.000350229SCREENNEW&<UNK! {FD8D}>RESTOREas0RUN<UNK! {0006}>W~77><0xCB!>l<UNK! {0008}>642.80382E+30SWAPSTRING$OPTION<0xB4!>J10TROFFn'$ <0xE1!>7RESUME<UNK! {0006}>q,KEY<UNK! {0006}>s<UNK! {0006}><UNK! {00FA}>d^aK<UNK! {00FC}>tIF'8LLISTLETPSET'<0xE4!>OPEN45&kqCOLORCLEAREDIT<UNK! {000A}>ST<UNK! {000A}>LPRINTERASEkLISTREADRESUMESAVEW'V/f'<0xDF!>SKEYAPRESET2><8LINE(pjDEFINTe<UNK! {0006}>ERLC<UNK! {000A}>3.<0xE4!>EdMOTORM6?DIMTROFFopKEY#4OFFDEFDBL<UNK! {0001}>BSAVEDEFn2<UNK! {00F9}>GOTOe8CLOSEKEYLPRINTdENDOR<0xE3!><UNK! {000A}>SCREENBLOAD&STOPCONTSAVEBa0_USRVy]+INSTRREM10UIMPDELETENOTRETURNLLIST6<UNK! {0010}>USINGMYC9atUSR!'VEGOSUBM<UNK! {00FA}>XqHOPEN<UNK! {0006}> COLORDEFDBLdDEFSTRa8MERGE8<UNK! {00FB}>[lLLIST<0xB6!>POKE9<0xE4!>SCREENAoSgCLOSEDEFDBLOUTVARPTRmCLOSE~)<EQV.STRING$<UNK! {0003}>RESUME<UNK! {FF19}>^"S2K<0xDF!>&ERRDIM<UNK! {0002}>+<UNK! {000A}>Hf?NEWDATA<UNK! {0003}>IMOTORLOCATESTRING$j<UNK! {000A}>DkCLEAR)dSPC(>FORDIM1*5<UNK! {001E}>SAVE#cWHILE<UNK! {00F7}>SOUNDUSRWAITn-18477e10WIDTH)<0x9B!>&READ0V3><RANDOMIZE0WIDTH-LIST#zt$CSRLINSTRING$86104wRENUMDEFINTSOUNDSPC(OPTION|u=9f_
  7. 21573  POKEW<UNK! {0006}>Bq232V&OPENCSRLIN7ERL'jRESUME=POINTy8RESUMELETDELETEX<0x9A!>DELETEdDIM?k(CSRLINIFAUTO<UNK! {000A}>L<0xB4!> WENDKEYTOc<UNK! {0003}>AUTOSTOPk^N2{%<0xDF!>T<UNK! {0007}>LNOT/<UNK! {000A}>H]<UNK! {0004}>LOAD&H57F0ERLCOLORBEEPN<UNK! {000A}>}kCONT@dRESUMEI5<UNK! {000A}>DIMXOR23DEFINT^CDEFDBLDELETE<UNK! {0003}>POKE&RETURN<UNK! {0005}>REMDEFINTIFLETCLOSE<UNK! {00FB}>STEP34OPENWIDTHISCREENLET&WAIT<0xE4!>DIMBa\c<UNK! {0001}>|INPUTq6VARPTRMERGEd>74,USING<UNK! {0008}><0xB5!>POINT^m'Q8ZtUSRnzsrOUT7VARPTRK0XLET|<UNK! {0007}>COLOR<UNK! {00F8}>SOUND/6%<UNK! {001E}><UNK! {0005}>IF%FOR=/<UNK! {FE78}>WHILESTRING$4bc7'PSETPOKEDELETEsYD'<0x9B!><0xB6!> STRING$<UNK! {0003}>GOTOPRINTm^`32USTOPm<UNK! {00F5}>hXOR<UNK! {0007}>*5FP
  8. 49480  MOTORSAVETsG.GOSUB69NOTM}DIM4IMP94<UNK! {00F7}>%ERLIMP<UNK! {00FC}>RANDOMIZE`&LCOLOR<UNK! {00F9}>DEF+<UNK! {00FB}>ON`LPRINTR<UNK! {0009}>0CINPUTBLOADBSAVECLOSEtTAB(n5NEW0<UNK! {FDA6}>>@7j<UNK! {00F7}><UNK! {0004}>d&O32027wRESUME<UNK! {0008}><0xB5!>POINT<0x9F!>1Y<UNK! {0005}>2`dTROFF@fye<0xE1!>QPOINT<UNK! {0007}>X,DEFSNG{<UNK! {0010}><0x9A!>CALL3<0x9B!>_RENUMEND6<UNK! {FFC5}>LETLLISTX<0xB5!>&HBADD&O26037amINPUTPOINT/EDNCLEARIMP'$<UNK! {00FC}>KEYTRONBEEP/l7p8x^<UNK! {0009}>RESTORE<UNK! {0007}>GOTOmEFOR@zWAIT3CLSue&<UNK! {007F}>HtFNCLOSE<0xE4!>ONSkT6A6<0xE2!>%#<0xB6!>YuDELETEDELETE<UNK! {0003}>LPRINTwEDITYCONTk<UNK! {00FC}>8kSTRING$<0x9A!>eENDEQV<UNK! {0001}>NEXTOPENRETURNYERLSTRING$TO<UNK! {0005}>1B(BEEP0<UNK! {0009}>u)STRING$NOTp<UNK! {000A}>-2.39889E-090TROFF6belDEFINTpRESUMEK<UNK! {0009}>oLOADr<UNK! {0007}>COLORSWAP0<0xE1!>_RENUMFN70<0xB5!>&HBADD&O7253142COLORCLEARTROFF<UNK! {0001}>X<UNK! {000D}><UNK! {00FB}>\OR\REMBSAVE/DIMc)"7\6<0xDF!>DATAKEYLNOTB10=h#BSAVE;POKE>ANDw6T~ERRORTOENDE^EQV;JT4TROFFE5GOSUBr~REMDEFDBLLOCATE<UNK! {0003}><UNK! {FE6E}>]LIST<UNK! {0005}>38<UNK! {FEBF}>EQV)2ORSTOPMBEEPSTOP5LET<0xE4!>NEWQiU-TOK<UNK! {0009}>u!VARPTR<UNK! {0001}>8QU{wERRCLS^<0xCB!>TO,RANDOMIZEX6DEFINT21RETURNLETxRESUME?ONRESUME7ERASETO)ERL<UNK! {0007}>\7ERR^_$DEFDBLXIF%8BEEPLOADPSET%<UNK! {00F8}>OPENREADZ}k/LOCATECLEAR+ FC<UNK! {000A}>ELSETROFFkSTRING$<0x9A!>USING<0x9A!>g^q&z3<0xB5!>8PSET<UNK! {0009}><UNK! {00FA}>,9H\1<UNK! {0001}>lBSAVEnSCREEN<UNK! {0007}><UNK! {00FB}>CuVYSTOP43STEPU|<UNK! {000A}>HERASEREMAUTO<0xB5!>READ.PDEFDBLORpwLCOLOR<UNK! {00F9}>DEFLIST<UNK! {0006}>[KEYXOR<UNK! {000A}>TROFFFOR<UNK! {0009}>LPRINTSCREEN<UNK! {0002}><UNK! {0010}><UNK! {FD93}>DIMHi0l<UNK! {0009}>Vz7$<0xE5!>USRp6c0(BSAVERESTOREDELETEIMP^0YIC]tUSR`'$TCONT]CSRLINKq_LOAD}0IMP[mLLIST<UNK! {00FA}><UNK! {FF25}>DMODLET<UNK! {0005}><UNK! {0004}><UNK! {00FA}>[MERGEDEFWHILE-2.86162E+16LPRINTmCLOSESTOPOFF<UNK! {FF7D}>&_,2&ERRORFORSPC(&O55703+7<UNK! {000A}>><UNK! {0003}>]BSAVE<COLORREMPSETCG3bLPRINT7)REMK5WEND\5REM<UNK! {0004}><0xB4!>^.JDEFDBL<0xE5!>PSETDIMLPRINT0<UNK! {00F7}>VeLETMERGECONTMOD)1SWAP<UNK! {0009}>3SCREENFNY<0xE0!><0xE4!><UNK! {FD70}>!45GOSUBtzm_SPC(SCREEN81"<.LISTRESTOREERL^/![10<0xE3!>/0<UNK! {0006}>o|WRITE{ CONT<0xE0!>d^pK<0xE1!>tPOINTSq<0xE3!>-NEW'POINTMODDIM`&=5SPC(<0x9F!>INKEY$&ZUPRINTVARPTR210WRITE4Jd8<UNK! {0002}>~v<0xE3!>ELSE<0xE5!>APSETIMPBLOADPSET}H<UNK! {000A}>PNEW9BSAVEWTOERLSTRING$5<UNK! {000A}>1zCLSy^MOTORU^P2DEFSTR<UNK! {0009}>4KEYyuLINE<UNK! {00F6}>BEEPBSAVEDEFSNG"3USRIFSSTOPCLOSEUSINGNEXTCOLORELSE<UNK! {00F6}><0xB5!><UNK! {00FC}>*qY<UNK! {0003}><0xE4!><UNK! {00FB}>40G7UDEFSTRAND}<UNK! {0003}><UNK! {001E}>'aUSINGNEWSOUNDIMPPOKE(<UNK! {0007}>DATA7V0<UNK! {00F6}>"&0^<UNK! {00F6}>,LPRINTZ/<UNK! {000A}>+CALL<UNK! {00F7}>_K+tCONT;41630L'VARPTR<0xB4!>-ERR}1.88291E+28MFTPOKE<OR.STRING$<UNK! {0003}><0x9B!><UNK! {FF34}>^ z5V<UNK! {0003}>CPSET?BLOADs67gw<UNK! {000A}>lBSAVE)ONIFREM<UNK! {007F}><UNK! {000A}>zJ<0xE5!>t^<0x9B!>46-L<UNK! {0080}>REMEQVWRITE1/TDEFDBL<UNK! {0003}>BSAVEDEFn2<UNK! {00F9}>GOTOe8POKEKEYCLSd.TROFF<0x9B!>IOPENVARPTRYBEEPDEFINTRESTOREa136.423<UNK! {0009}>Q-2952310<0x9B!>AUTO;w40Y=J/0TROFF['I POKEvCSRLINz4.45308E+322ERANDOMIZEt<UNK! {00FA}>Xg<0xE3!>LETVARPTR^RANDOMIZE<UNK! {0007}>A5v-2.68665E-06WRITE'THENc<UNK! {0003}>AUTO<UNK! {FF19}>^"z2r<0xDF!>nPSET2755<UNK! {000A}>6gP
  9. 37900  GOTOBEEPPNEXT3k<0xE4!>*)<UNK! {0002}>INP<UNK! {0008}>ERASEREM8<0xB6!>47TDEFDBL<UNK! {0003}>BSAVEDEFn2<UNK! {00F9}>GOTOe8^KEYCLSd3<0xB6!>LPRINTIOPENBEEP'BSAVEELSEPOKE4l~-<UNK! {0001}>INPUTT77INSTRBEEPl<UNK! {000D}>c&.NEW<UNK! {0008}><0xB4!>IMPTROFF(<UNK! {0010}>=8VPUSING:n$wWIDTHvPOINT&H7191OPEN(p<0x9F!><UNK! {00FA}>f^aK<UNK! {00FC}>tIF'8SWAP<0xB4!>PSETX<0xE0!>ZENDZNLETxOUT<0xE2!>.M*+><UNK! {FDF1}>TAB(<0xB5!>NEW<UNK! {00FA}>24198qv<0xE2!>pANDAPSETIMPBLOADI<UNK! {00F7}>[-BSAVE<UNK! {0003}>ue<0xE4!>TODELETESPC(NOT<UNK! {0008}>!,<0xE4!>WAITdDEFDBLAXOR<0xDF!><UNK! {0003}>\8LISTb#c<0xE1!>_<UNK! {0003}>ONGOSUBn<UNK! {FDF9}>DEF<0x9F!>2[hAND4TRON|<0xE3!>cTO<UNK! {0010}>[DEFSTR><UNK! {00FB}>POINT0<UNK! {0080}>9h{MERGE<UNK! {0007}>IFNEXTDELETEWHILESCREEN<UNK! {0006}>55^w]THENH~3TROFFEDIT'S$19<0xE5!>&H371KEYLISTs<UNK! {00F8}>6SOUNDSTEP<UNK! {0008}>IDEFSNGQINSTRrDBLOADDEFINTTO<UNK! {0007}>BLOCATEiSTRING$GOTOk&H168B<0xE4!>=LT<UNK! {0080}><CLS*F<UNK! {0001}>VARPTR<UNK! {FD19}>PRINT"RESTORE<UNK! {0010}>|?5STRING$RENUM`LOCATE<UNK! {007F}>VLLISTLINEPSETPBSAVEi1386010zRENUM9wE<UNK! {0080}>BEEPLOAD<UNK! {0008}>ADATATROFFCLSpUSINGERASE/OFFDELETENEXTBSAVE"n<0jSSTOPCLOSEUSING<0x9B!>CLSELSEFNCALLRETURN+mYOR(10ERL<UNK! {007F}>ENDELSErq<UNK! {00F9}><UNK! {0007}><UNK! {00FA}>SWAPELSE-FPRINTAUTO<UNK! {0009}>STEPRETURN^CONT<0xB4!>W,=3r|VARPTR2'=t<0xE0!>1AUTO?GMERGEKEYSTRING$d&O67363DEFa1&H8B7E<UNK! {00F9}>8LOCATETRON;'>STOP&O3016<UNK! {0007}>+8<UNK! {0001}>ELISTCOLORD8;FOR.&\DELETEPSET8<UNK! {0002}><UNK! {001E}>z0r=zKEYTBLOAD<UNK! {0009}>>5w4NEW<UNK! {0010}>STRING$V<UNK! {FD04}>6-z<UNK! {00F9}>9uENEWDEFSNGL9241TROFF&WIDTHCSRLIN#<0xE2!>OFF<0x9B!>CSRLIN/DEFt7<UNK! {00F7}>WENDSzONTLPRINTRCALL67ERROPTION4OPENp<0xE4!>EQV<UNK! {0080}><UNK! {000D}>GTON+<0xE1!><UNK! {00FC}>LETeTHENUSINGh<UNK! {00F6}>IINPUT119STEP7^F]<0xE1!>AUTOSOUNDEND[PRINT<0x9A!>$63525H<UNK! {0010}> INKEY$INKEY$DEFs6<UNK! {0005}>e\aISTRING$VMERGE-2.05995E+200,amINPUTPOINT/EDVxEQVTRONSPC(1rRESUME/<UNK! {000A}>_6z0ACALLREAD<UNK! {0003}>OCONT[G0}%NEWREAD<UNK! {FF42}>PRINT<UNK! {0006}><0x9B!>O<UNK! {0007}>9,<UNK! {0004}>9-gRANDOMIZEEDIT?<0xB6!>NEWnYKEY%<UNK! {0006}>*RANDOMIZE&O37777742710\7STEPBLOADc3INPUTMODRENUMfIF<UNK! {00F9}><UNK! {00F9}>F<UNK! {0002}><UNK! {0002}>NEXTp<0xE4!>EQV<UNK! {FEFD}>GBLOADuiLET<UNK! {0008}>RESTORE?MERGEERESTOREtgw(RESTORE<UNK! {0080}>ELSE<UNK! {0003}><UNK! {0008}>I10<0xE3!>/-6.61545E+11POKEPRINTBSAVEOPTION<UNK! {0004}>ow<UNK! {00FA}>ZKEYQRENUMDATA%READCDATALLISTWAITr<UNK! {0007}>D#|10<UNK! {0002}><UNK! {00FA}>[MERGEBLOADINKEY$ <UNK! {007F}>6<UNK! {00FC}>ELSEWIDTH`STRING$ON+CLEARl^S#a&<0xDF!>END<UNK! {0003}>6BLOADx>8<UNK! {000A}>vNEWINPUTFN@PRINTNEWSTRING$ G`WINKEY$ERASELOCATENOTINPUT*WENDDIMERASEopKEY#4OFFDEFDBL<UNK! {0001}>BSAVEDEFn2<UNK! {00F9}>GOTOe8CLOSEKEYLPRINTdENDOR<0xE3!>3SWAPBEEP*CLEAR<0xE4!>DEFLdNEXT-SOUND1<UNK! {0009}>[ ^NOTX<UNK! {0008}>52)SOUNDRESTOREELSEIMPTROFF_[OFFqaSCOLOR<UNK! {0003}>'& <0xE1!>7RESUME<UNK! {0006}>q,KEY<UNK! {0006}>s<UNK! {0006}><UNK! {00FA}>d^aK<UNK! {00FC}>tIF'8LLISTLETPSETBOPEN<UNK! {0006}>4bk63COLORTROFFINKEY$<UNK! {0010}>UH<UNK! {0007}><0xB6!>OR&/LOCATEAUTO07<0xE1!>POINT%9\DEFPRETURN~<UNK! {000A}>5SCREEN<UNK! {0006}>DEFINTJ~_.DEFINT58MOTOR?VNCTROFF#7CLSP4WEND<UNK! {00F6}>BSAVESTRING$TAB(0'PRINTKEYTROFFhENDNOT<0xDF!>\XCLEAR8!<UNK! {007F}><UNK! {00FB}>p!<UNK! {0001}>/LIST=VARPTR7DIMINKEY$a8U<0xE1!>IINPUTDEFDBLx<UNK! {000D}>'<0x9F!>bMERGELINEJ=THENCRETURNMERGEvt=GOTORESUME&H5742LEToG<UNK! {0006}>LLIST%LLIST-17077t<UNK! {FF5E}>}IMP\<UNK! {FF27}>RENUM<UNK! {0002}>DATAY_k'USR>WEND&O45203<UNK! {0003}><OFF <UNK! {00F8}><UNK! {0003}>AUTO-8.49623E+33f6*[q<UNK! {0080}>6LINEREADk-RENUMWIDTH55WHILEBw9OFFcGMOTOR!<UNK! {0008}>0vTROFFCLSpUSING<0xB5!>0OFFDELETENEXTBSAVEDELETEINKEY$STRING$8l9IFERRORTLPRINTRMERGE67aCLOSE|MERGEt<0xE4!><UNK! {FD80}>nFOR-+j[?hCSRLINSTEP8<UNK! {0008}>04:BLOADERRTROFF<UNK! {00F8}>CONTQX=J<UNK! {007F}>}VARPTR3ta DEFSNGpUSING|0LIST<UNK! {00F8}>dMOTORDEFSNGd/tINPUTdq<0xDF!>-&O37777730144<UNK! {0007}>{1.931E+18<UNK! {0006}><0x9B!> CLSLINE%<<UNK! {FDFC}>6'A<UNK! {FF03}>b><0x9A!>L%o<0xE3!>-Ad5G31798LLIST0OSCREENSTRING$POINTERLC'3@FYd<0x9B!><0xCB!>6-<0xE2!><UNK! {007F}>REMTAB(OPENGOSUB0PDEFDBLOR~wLBLOAD<UNK! {00F9}>IFJfSTEP<0xB6!>ORdGOTO+VARPTR3GOTONEWYLET<0x9A!>READ4n[-<UNK! {0007}>||]dDEFSTRTHENe<UNK! {000A}>"&.USINGBSAVECSRLINCALL^*NEXTLINEJ=BLOADCl~$64733H<UNK! {00F7}><UNK! {001E}><UNK! {00F8}>OFFONs%CONT\']READ=XON<UNK! {001E}>-SWAPRESUMETO'+OPEN<UNK! {00F6}>V.GWLISTEQV-}CBEEP<0x9A!>TROFFEQV.%<UNK! {0003}><0xB6!>1<UNK! {000D}>^<UNK! {0008}><UNK! {00F8}>2|6<0xE3!>f<UNK! {0008}>STEPGOTOkERR<UNK! {000A}>^h'POKE>TO<UNK! {0004}>EQVFORz37<0xE4!>03STRING$7}?e>$4<UNK! {00F5}>#DDELETE<UNK! {00F6}>CLSERRLOCATEn-18477e10ONTLPRINTRCALL9ERASESCREENAND]!<UNK! {0004}>WEND`ERR^OONt<UNK! {00F9}><UNK! {000A}>hzMERGE#U<UNK! {00F8}>IJNOTNEWSOUNDOPTION23511CJ
  10. 17822  OR1<UNK! {0007}>{HK-7.1461E-05CLOSEAND\<UNK! {0007}>xOPEN&O37777702556'LOCATELLIST<0xCB!>VT/OPTION<UNK! {00F5}>Zr<0x9F!>WRITE&>USRK<0xDF!><0xB4!><UNK! {0001}>DEFSTR%LOCATEW<UNK! {0003}><0xB6!>C<UNK! {00F9}>SAVENEXT&SPC(LISTN?v2DELETEn<UNK! {007F}>JC?<UNK! {0009}>kBSAVE<UNK! {000A}>OPENCLEARSOUNDJNEXT`.VARPTRE,TAB(F6S1762pDEFSNG^HDELETEDEFDBLCLSSPC(<UNK! {0007}>7sREADGOTO5gCLOSELINEAND92ORPRINTICLOSEON4LET<0xE4!>FN<UNK! {0002}>/2052Y4.69408E+21wERR<0xE0!><0xB4!>MODRESUME(hCJ<UNK! {FF1E}><0xB5!>{'@$<0xE1!>SCREENWRITE4X,POKE:K<UNK! {00FC}>MODSOUND<UNK! {00F7}>,U828299+ONLETx'TAB(WIDTHOUT5$?.FN<0x9F!><0xE4!>ssT<0x9A!><UNK! {00F6}>OFF <UNK! {00F8}>ERRWAITFN#p3l-3748<UNK! {000D}>LET&O52625<UNK! {007F}>POKE1.88204E+33KERLCOLOR<UNK! {00FB}>8e<UNK! {0009}>CLS<UNK! {0004}>w9KEYOPTIONTRON?hqLISTJXBLOADsOPTIONELSE$/DEFt6LIST<UNK! {FD20}>kONKEYKEY%182<0xE3!>243
  11. 36032  BhF-= [Y%+MERGEj<UNK! {000A}> %2SCREEN<UNK! {0002}>TAB(ELSEOR2RANDOMIZEa/&O35024n%V=REM]CSRLINz0^DEFINT%sRANDOMIZEUSING1724;STOP1IF8#LINELETTO;<0xE4!><UNK! {00F5}><UNK! {0009}>ERRRESTORE50AUTOs>KEYO$mSORySPC(2AUTOWHILE6^LOCATEzINPUTv/ASCREEN?BLOADRESTORE<UNK! {007F}>V6Tt<UNK! {0009}>NOT41mSTRING$|<UNK! {0006}><0xE3!>,DEFDBL{dYM`CWAITERASE$rKEY\4PDEFDBLOR~wLCOLOR<UNK! {00F9}>DEF+<UNK! {00FB}>ON`LPRINTRGOTO5C<UNK! {FFBD}>SOUNDLOADj<0xE4!><0xB4!><UNK! {0010}>^127LIST=<UNK! {0001}>7/RESUMEM10<UNK! {000D}>aISCREENUSINGTRON<0x9B!>|^1CSRLIN=TERASE3CLISTqz<UNK! {0005}>COLOR7EQV<UNK! {00F6}><UNK! {007F}>,2<UNK! {0006}>u&<UNK! {0004}>2ERASELOAD9<UNK! {00F8}>\TAB(<UNK! {001E}>+SWAPOPENf2WEND<XORV<UNK! {0006}>mA3<UNK! {FF47}>s8LmHSPC(X`<UNK! {001E}>C<UNK! {FF62}>bSPC(x5p<0xDF!>USINGPSETzCOLORRENUM}<8Pc9DEFSTRUSING1<UNK! {0006}>/MOTOR<UNK! {000A}>=STOP<UNK! {0001}>ERASE5USINGTHEN-DEFSTRDIMCOLORsWIDTH<0xCB!>%461359Hjn<UNK! {0008}>wGOTOwBEEPDELETE)<UNK! {001E}>:&O530263><RANDOMIZECSRLINu<UNK! {00FB}><0xE4!>13559ONG5w&+LLIST8{/12SOUNDRESTOREEDITPOINTDEFSNG\0N4/<UNK! {007F}>VARPTR7co WIDTH7>G$YMOD<UNK! {0006}>#BSAVEDEFDBL%EDIT-181010<UNK! {FE53}>8LINE<0xB6!>POKE%D<UNK! {000D}><UNK! {007F}>ELSE<UNK! {FFFE}>[WHILE4>UcTEDIT34TAB(jLPRINT<UNK! {0006}>-QDEFSNGMOTOR<UNK! {0006}>:I<0xE3!><UNK! {000A}>f<UNK! {00F8}>OFFLISTjNOT<UNK! {000A}>7}KBSAVECOLORTODEFSNGE9<UNK! {000A}><UNK! {00FC}>.IMPIFKEYMOTORNEXTGOSUB?haCLEARSTOP<0xE2!>L<UNK! {FEC8}>><UNK! {0001}>DEFSTRSRETURN<UNK! {0008}>hGOTOk^BLOAD<0xB6!><0xE4!>]ENDBLOADTRONLETBLOAD
  12. 39579  `0R76'FN8&H491D3RETURN<UNK! {0002}>OPTIONWIDTHORSCREEN}VDIM6OUTTROFF<UNK! {0080}>ERR<UNK! {0004}>:T7PSETSPC(PRINT<UNK! {0006}>X<UNK! {0006}>MCSRLIN<UNK! {00FA}>0<0xB5!>/DGOTO10<UNK! {0003}>'@AUTOLETSTRING${ELSE<UNK! {00FB}>zp&]iPRINT><0xE4!>UWRITETEDIT<UNK! {000A}>20[<UNK! {0003}><0xB6!>PRESET&H4ABE!\LISTR?ANDA&[qOPTION6|TRONTHENdNEXTVARPTR>0<UNK! {0007}>14439INSTRW,gEND)[WIDTHERROREND
  13. 24866  UTHENDEFSTR?POKE<UNK! {0008}>pGOTOw1AUTO)<UNK! {001E}>;PRINT5R6Y
  14. 44751  <UNK! {0010}>%-9.87834E+07LET{*ud<UNK! {FD3D}>^<UNK! {00FC}>^y]<UNK! {0005}>X9EQV&HED25<UNK! {0001}>L1<UNK! {0007}>:>@7<UNK! {0001}>&H346<0xE0!>'^S[7F8PRESETOFF<UNK! {00F9}>OUT`|<0xE4!>*<UNK! {0009}>-1.54368E+18<0xE4!>INKEY$SWAPF+POKESTRING$<UNK! {00F5}>?/jRESUMEEQV1CBSAVECLSe|IWENDfSCREENPOINTci'<UNK! {000A}><UNK! {0008}>STOP"ORKERL<UNK! {00F5}><UNK! {00FB}><0xE3!><UNK! {00F5}>D,<UNK! {00FA}>INSTRdDEFDBLK'<0xDF!>ELSE<UNK! {00FB}>[vX#}<0xE1!>DEFSTRCSRLIN15162RESUMEGOSUB]<UNK! {000A}>DIM)LLIST<W4DEF<UNK! {0004}>7rq<0xB4!><0xE0!>BLOAD?,7'(=10<UNK! {0008}>RESTORERETURN/<UNK! {00F9}>)&O37777706551fPSET|ELSE<0xB5!>,FORt~6<UNK! {0005}>WAITl<0x9A!>$2271CLEARDEFqe<UNK! {FD25}>U[<UNK! {00FA}>A^<UNK! {0010}>OERL<UNK! {0080}>SAVEPRESETS<UNK! {00F6}>SPC(`[4]<0x9B!>5.48096E+17CSRLIN=UWRITETEDITINSTR23X#=DEF]HDEFDBL`BLOADrDEFCLPRINTpCOLORszEND0OFFNEWGCLSgANDwSTRING$z<UNK! {0006}><UNK! {0008}><UNK! {0004}>UEIMOTOR18187sDEFSNGREM^WHILEi*GOTO_<UNK! {001E}>0REMC6FNOUTd0ONTLPRINTRq2<UNK! {0009}>TRON(dAINPUT<UNK! {0002}>n5NEW0INPUTPRINT<UNK! {001E}>h-19872RESTORECIMPc[y=PSET|ELSE<0xB4!>,FOR10<UNK! {00FB}>/NEWTROFFC#-2026<UNK! {00F8}>tn1.55714E+36Y]ERR]DEFINTOPEN8STOPPOKEj-ZZ-LzINPUTPSETONsINKEY$;J<UNK! {007F}>+POINT<UNK! {00F7}>9<UNK! {00FB}>'5<UNK! {FF03}>d2`BLOADrWAITCLPRINT61[-H[tOUT>PRESETWRITESTEP<0x9F!>LINE-^<0xE3!>THENn}<UNK! {000D}>BEEPU <UNK! {000A}>OMERGE<UNK! {00FA}>pUSING30<UNK! {00FB}>=!WIDTH<UNK! {FEFE}>ERLhCALL<UNK! {00FC}>8MOD<UNK! {FDBA}><UNK! {000D}>INPUT<UNK! {00F7}><0xCB!>EIMPmYOR>*5NEW0DATAPRINT<UNK! {001E}>/DELETEhKEYMERGEHG[Ar7>SWAP'&O37777724604INKEY$INSTR6`<0x9F!>v29)<UNK! {0007}>ONRESUME7END8ORPOKELISTRENUMTROFF<0xE0!>2USRqmtNOT#6STEPLOADSAVE41181RESUME5<UNK! {0008}>iKONsINKEY$6J<UNK! {007F}>BSAVEyORKSTRING$WENDDEFSTRPRESET gBSAVE<UNK! {FF6B}>POINTIkV<0xE2!>1s.|2ION0POKE<0xE2!>TO<><0xDF!>0MERGETAB(D$<UNK! {00FC}>gPOINT5WENDDIMCSRLINsKPOKE0+CALL<UNK! {00FC}>8<UNK! {00F6}><UNK! {FDBA}>vUSRORSAVE3CONT<UNK! {0004}>q<UNK! {00FB}>OFF10<UNK! {00FC}>|DEFDBLCSRLIN+THEN-RUN`<UNK! {FDC1}>1uZ<UNK! {0080}>ajRESTORE<UNK! {00FB}>PRINT<UNK! {0009}>1PRESETOFFbIOFFRANDOMIZE3'MXORSTEP7DIM<UNK! {0006}>g<UNK! {0006}>ON<UNK! {00F6}>NEW|<UNK! {00FA}>\LOAD]NEXTBEEP]SAVE<UNK! {000D}>DIMLLISTERLU7<UNK! {00F6}>OPEN>5READkI&O37777776366>FjX>56DEFSTR=SAVEOUT86<UNK! {0008}>50|-<0xE5!>f8.82549E+24<UNK! {000A}>11747RM<UNK! {00F6}><UNK! {0004}>STRING$CSRLIN<UNK! {000A}><UNK! {007F}>}<0xE0!><0xB5!>^<UNK! {0003}>K6XORDIM<UNK! {000A}>o~<UNK! {0005}>BLOAD5LDEFDBLORLOCATEjRETURNt<0x9F!>NEXT<UNK! {007F}>JKRUNsN[PRINT<0xE3!>U8IMPY/<0xE4!><UNK! {00F5}>5RUN0|PRINTEP1CONT[BLOAD10{<0xB4!>IYGDEFSNG'REMUSINGKRANDOMIZESAVE0BLOAD62n8<
  15. 3240  8,MOTORy<UNK! {0003}>COLOR<UNK! {00FA}>0<0xB5!>88<UNK! {00FC}>9.22752E+13<UNK! {0002}>DIMbqk'PRESETTROFFWENDsSK<UNK! {FDE8}>TRON[LISTREAD<0xE1!>GOTO<UNK! {0080}>dBSAVECOLORhRESTOREIWENDPSET?THEN,<UNK! {000D}>Hc?<UNK! {0009}>kBSAVE CLOSENEWRANDOMIZECYqTELSE:0<UNK! {0008}>GJBDATAMERGE<UNK! {FE4A}>b#pENDCALL<UNK! {0010}>QGOSUBt2*GOTOw0SWAPKEYCLOSEINKEY$END<UNK! {FDE7}>*(<UNK! {00FB}>B<0xE5!><UNK! {0003}>n5NEW0/<0xE5!>WTk10RETURNMERGE8(clw\<UNK! {00FB}><0x9B!>^SWAPf,HJC~TROFFt'@DOFF7AUTO<UNK! {0006}>YeOPENksOPTIONCLOSE9OPTION40.177<UNK! {001E}>8<UNK! {00F5}><UNK! {FD09}>sLPRINTTHENREAD7<UNK! {0006}>f@DEFINT<UNK! {FD47}>s8RoHLLISTULOCATE/9ERRLET^ J`3<0xB4!>TOUTABLOADx<UNK! {007F}>e<UNK! {000A}>2<UNK! {0003}>gSTRING$37818REMCv\.STOP=)MOTOR{GOTONEXTDIMERL#7LOADU5OFFWRITEOPTIONFN<UNK! {00FA}>n|OPTION<UNK! {0004}> 8>DEFINTSWAPeENDSWAPLLISTOLOADGOTO&REM>10CALLz10VARPTR$1.827E-09IwUSINGRANDOMIZE^SOUND^<UNK! {000D}>4E-09CSRLIN;t$sOUT[POINT<UNK! {007F}>"bKEYm<UNK! {0004}>DEFDEFDBLdWIDTH29RANDOMIZEnk<UNK! {00F9}>vDEFSNG<0x9F!>;-UOPEN&O23065k[COLOR>INKEY$swT<0xB5!><SAVEkOPTIONRETURNRESUME<0x9B!>j^]2]!<0xB4!>DIMPSET<UNK! {0080}>BLOAD(<UNK! {000A}>;f9<UNK! {0003}>gCLSWRITE0LPRINT/,DEF<UNK! {0009}>WRITE<0xE4!>{dMOTORM6?DIMTROFFor<UNK! {00F5}>#c<0xE1!>O INKEY$RENUMONRANDOMIZE<UNK! {00F9}>STRING$i+MERGE<0x9A!>TROFFdCONTORNEW<UNK! {0010}>8<UNK! {0002}>9<UNK! {0003}><0xE4!>,485VARPTRu109V<UNK! {007F}>?MERGEFGLISTwFERRRESTORE%ELSEBSAVE,DELETEC710tn<0x9A!>$63525CLEARDEFDBLo~OUTM:WRITESTEPq<UNK! {00F7}>MOTOR<UNK! {001E}>WIDTH,SWAPLOAD8FNLOADV%<UNK! {0001}>SCREEN4THEN&<WO<0xE4!>TROFFMFRENUMPOKESTRING$GLOCATESTRING$'*SGN^426834PSET?RESUME=DEFSTRCLOSE9$xW<UNK! {00F7}>9ANDSCREENCSRLINERLSTRING$\<UNK! {000A}>SAVE.IMPeT<0x9B!>46-USRIFM<UNK! {FEC9}><UNK! {000D}>RETURNOFF=!2MOD9ERRvGOTOIMREAD9TROFF^END@<0xE3!>ELSESCREENANDWHILE"TAB(f4191VARPTRuCOLORmn<UNK! {007F}>AMERGE<UNK! {0007}>COLORNEXTDELETECLSCLOSE/1ERR0s5WAITSWAP<UNK! {0008}>WAIT(<0xDF!>7WIDTHO"IKEYX44951 ^7?<UNK! {FD5D}>INPUT<UNK! {001E}>?136v7<0xE5!>BLOAD3W&2RENUMDEFINT><UNK! {0010}>s"~)<EQV$ERLINSTRHBuTO94SPC(PRINTCLOSECALLaLINEBLOADIFpI3PLINE<UNK! {000D}>PSETWSTRING$<UNK! {0006}><UNK! {FE7A}>yF.WEND<1<UNK! {0004}>86j1EDITVr) Y_XpBSAVEg}3USRCALL&O377777730319LISTdDEFDBLORDEF6Y
  16. 57574  5FORGCLSON+=<UNK! {00F8}>LETDEF<0xE0!>WHILEd<UNK! {00F6}>IINPUTTROFFOUTSTEP7^F/%AUTO3436ON<0x9A!>$2189Ha3STOP<0xE2!>LISTs<UNK! {00F8}>6SOUND<UNK! {000D}>)6Z{5'6COLORLET'b<0x9F!>STRING$DATAZhk)CHDIRTROFFsWA<UNK! {00FB}>DEFSTRORlREM'RESUMEPOINTX."t2>LINEX<UNK! {0003}>OBLOADx>+wrtOUTCSRLINERROR3wSTRING$A<UNK! {000A}>3.<0xE4!>EdMOTORM6?DIMTROFFopKEY#4OFFDEFDBL<UNK! {0001}>BSAVEDEFn2<0xB5!>TO9jCLOSEDEFINT<0xE5!>0SCREENBLOAD1SOUNDWAITSAVEOq\_<UNK! {0002}>=}w&<0xE3!>BLOAD<UNK! {00F9}>INPUT<UNK! {0006}>REMSTOPfRESTORE<UNK! {00F7}>ELSE^(Y=J/0TROFFn'$ <0xE1!>7RESUME<UNK! {0006}>q,KEY<UNK! {0006}>s<UNK! {0006}><UNK! {00FA}>END<0x9B!>4.09251E+35_8<0xDF!>LET<UNK! {0009}>xOPTIONTHENREAD5.QnMERGE<UNK! {0006}>21<UNK! {000A}>CALL)<UNK! {0002}>FOR3c#<0x9F!>ELSE<0xE3!>ICLOSEz0IERRORFORSPC(APOINT.24<UNK! {000A}><UNK! {0009}><0xE3!>|BSAVEIONIFREMCv[SREME/<UNK! {0004}>9{J<UNK! {0009}>+Pp<UNK! {00F7}>8<UNK! {0002}>OFFWHILETHENBSAVERENUMR68RESUME<UNK! {0007}><UNK! {0001}>SWAPRLPRINT<UNK! {0080}>eMOD3202DIM<UNK! {FDFA}>1.09464E+14ON+#<UNK! {0010}>LETINSTR<0xDF!><UNK! {00FB}>c<UNK! {00F6}>IINPUT10lSTEP<UNK! {0010}>^*<UNK! {0006}>Jv/eINKEY$9b$a<0xE1!>t<0xE1!>z0SAVECALL8OPTIONa?IFt<UNK! {00F7}>_pXORMODPSET9<UNK! {00FA}>RESTORE&O37777701325<UNK! {000D}>OERRORwINKEY$a<UNK! {00FC}><0xB4!>BSAVEMOTOROR@<UNK! {0080}>*HIsX:N<0xE2!>PRINTUGTRON%COLORnUNOT<UNK! {000A}>18051WENDW10<UNK! {0006}>INSTRC"3<UNK! {0004}>^ER<0x9F!><0xB5!><UNK! {00F7}>REM7TROFFw<UNK! {FDC9}>9<UNK! {00F8}>=O8POINTBEEPWAITBLOAD<UNK! {00F9}>IF9fTOKEYKEY2/INSTR<0xE3!>NEXTPSET
  17. 48801  `lIFt<UNK! {0001}>T77h<UNK! {00FC}>KEYl><UNK! {0010}>4wSOUNDERL<0x9A!>ORCONTm'=<UNK! {0008}>J3TROFFZ\2<UNK! {0010}><0xE1!>9*~0^LET}-1.04158E+06TROFFH=DIM4PSET85Z3LOAD&}<UNK! {FFA8}><UNK! {0006}>/3(DEFSTR#<<UNK! {0010}>L<UNK! {FEDF}>RESTORE<0xCB!>%T6ERROROFFp<UNK! {FD41}>PSETIMPBLOADI'`<UNK! {000A}>j44089-1E-09b;COLOR<0xE4!>WPOKEaNEXTEDIT?DATACLS 229664<0xE5!>DELETE<UNK! {0008}>BSAVESTRING$"2LOAD<UNK! {00F7}>)8TOCOLORLPRINT2@LLISTLLISTHSCREENSTOP5LETERASEPOKEQ0/ONhOPENs<UNK! {00F9}>U<UNK! {00FA}>IINPUT{s<UNK! {000D}>#CLEARzQAUTOJUSRCLEAR<0x9B!>RC ,TAB(4OPEN?TRON.+<s<UNK! {000D}><UNK! {00FA}>BLOADWAITYoINSTRpCOLOR4%NEWWHILE[%ERRORSCREEN4<UNK! {00FA}>&}0251<0xB5!>WRITECLSr8P><0x9A!>(<UNK! {FFDF}>AERASE<UNK! {0080}>NOT[IH^?&O37777750154W<UNK! {00F7}>PRESETMOTOR~>3^POKE@0HDELETEuJT#"2OCSRLIN=DEF<UNK! {0080}>RETURNIMPiLISTvKEY<0xE1!><UNK! {0003}>d81.06279E+37eT<UNK! {000D}>5POINTD<UNK! {0008}><UNK! {00F7}>jEDITMERGEPSET{ARANDOMIZEYDLLISTSTEP<UNK! {FE0D}>;9MbLOAD0ANDC#-2030+W&H2C6F9<UNK! {0006}>@5KEYDEFDBL<UNK! {0007}>MOTORVOUT<UNK! {0006}>TROFFSAVE8STOP.^<UNK! {0007}>CSRLINVARPTRi=READkINEXT<UNK! {0006}>><UNK! {0007}>f-pYOR<UNK! {FEE5}>+ELSE<UNK! {FF17}>6Q#`rTRONMSPC(OLOCATE2&H3448PPOINTf'WSCREENRETURNREMZ<UNK! {000A}>DSPOKE1d
  18. 18310  <UNK! {00F5}>o-7.52736E+277aRESTORE<UNK! {0004}> 8PRINT<UNK! {00F7}>DEFDBLdNEXT177tP<SCREEN0WIDTH-LISTq<UNK! {0080}>v-DEFSTRNEW10{CALLZPRINTTAB(RESTORE'MERGE+(GOTO.Q90ANDC#-2030<UNK! {00F8}>|fERR4ERROR<UNK! {0006}>65<UNK! {0009}>d;aQ><UNK! {0005}>IF%E=<UNK! {00F6}><UNK! {FF25}><0xE4!>MOD47(]iPRINTINSTRXORA7RUNPSET<UNK! {00F6}>OFF <UNK! {00F8}>ERRWAITFN#d"LOCATE=m>?<UNK! {00F7}>pCOLORs6END0NOTPSETPRESETbDEFDEFSTRPINKEY$EDIT<UNK! {000A}>=OPEN<UNK! {00FC}>cTHENa\v<0x9F!>n5orOUTY`RESUME<0xE1!>CSRLINBSAVE<0xE3!>10\LOADGOTOjBCLOSELPRINTCLS<UNK! {0080}>406057SCREENDEFSNGDATADEFDBLERASECLEARQ0<UNK! {0080}>w&REMMERGE10`NEXTc9mtPOKEELSEORzDATAs?DeINKEY$$sG RETURNE<UNK! {00FB}>G$\<0xB5!>{sINSTR<0xE4!>z^_READ<UNK! {00FC}>+READPRESET5<UNK! {FF4C}>^WAITDSWAPl*23298WHILE<UNK! {001E}>PSETLISTNEXT5P@|.GOSUB<UNK! {FF58}><UNK! {FD43}>d"TRON2I<0xE3!>STEPSOUNDKMOTOR[LINEH317249POKETHENTO<D+-CLSK18269MOTOR&&O37777702317USRup1#{<0xE1!>_<UNK! {0003}>ERRGOSUBn<UNK! {FDF9}>$e<UNK! {0007}><UNK! {007F}>)CLOSEFNEND<UNK! {FDA1}>ANDIMPiYORR<0xE3!>ERLWRITEpFNmDEFSNG<UNK! {0009}>Ol\BLOADK}cELSEwWIDTHPOKE0ANDJ=6<0xB6!>n-EDIT NOT"MOTOR>MOTORMCSRLIN-1.37392E+37fDEFINTvHTRONCLSMOD<UNK! {001E}>4SCREEN&O37777700417IFLPRINTINKEY$<UNK! {00F6}>PRESET>Fj>@211CALL<UNK! {00F9}>MOTORd88<UNK! {001E}>AUTO0V<0xE5!>?^A<UNK! {00FC}>WREMJvrNEW<UNK! {0006}>BSAVEiINSTRORSTRING$8LET3@SAVETSOUND<0xB6!>+&O37777766452TROFFST<UNK! {FDD3}>45027.BSAVEDELETE`;<UNK! {00F9}>CALL*8WHILE*IFSOUND=PRINT<UNK! {00F5}>%e
  19. 54532  ERASE0<UNK! {0009}>9LCSRLINSTEPl\cIKREMERREDITELSELLISTm9QC`<UNK! {007F}>TROFF badDEFSNG7+<UNK! {0006}>#m<0xB4!>{A<UNK! {0006}>LOCATE8OPTION 8RANDOMIZEt<UNK! {0002}>cpIMPLETPOKE9<UNK! {00FA}>SCREEN<UNK! {00F5}>YDATASN2>USRMERGE>~EQV<<UNK! {FD1C}>POINT#FNLPRINT7GzAUTOTHEN<UNK! {0006}>=xBSAVE<UNK! {0008}>c<0xE1!>-8973290O]TO<UNK! {001E}>STRING$k<UNK! {00F9}>).3ER<UNK! {00F7}><0xB4!>68<UNK! {0004}>TROFFEND9<0xE0!>BLOAD^C<UNK! {0005}>(+DEF<UNK! {0080}>AND8CALL<UNK! {00FC}>8MERGERETURN<0xE5!>3@IMP<0xE3!>3OUTMOTOR5RUN<0xE4!>SAVENnRESTOREiONREADTq&<0xE3!>MERGEf973(PRINTRESTOREELSE<UNK! {00F8}>TROFFmXCAUTOFNCLEAR<0xE3!><0x9B!><0x9A!>$63503CLEARTROFFqB<UNK! {0005}>>U{<UNK! {00FA}>fPOINTa?NEW<UNK! {001E}><UNK! {00FC}>Rr>LETLIST;<0xE4!>LOCATEENDpc72COLORINSTRXORAFVBSAVEUOR@$#CLEARf8PRESTORECLEARSPC(dSOUNDIDEFDBL<0xB4!>BLOAD2<UNK! {007F}>ERR<UNK! {000A}>^
  20. 46185  OR<UNK! {00FA}>5SOUND:"IMP<0xE3!>BEEPGOSUB_+*JGOTO<0xB5!>y<UNK! {00F5}>9VARPTRTOCLOSEORhERASEZ<<UNK! {0003}>TROFFSSTOPCLOSEUSING7TOELSELINECLS<UNK! {0080}><0xE1!>qNEXTt<0xE4!>CALL<UNK! {0010}>:`|PRINTE'1RAMERGE<UNK! {0007}>}so<UNK! {000A}>USING<0xE5!><UNK! {00F9}>PSETUSINGCONTYRESUMEJFOR`<0x9F!>v47.60596E+25-1.85293E-10<UNK! {00F5}>OFORERRF9'<UNK! {0003}><0xE4!><0x9F!>NEWCONTD4jMERGE&O55400ANDCALL<0xE2!>K<MLETVARPTREQV.%<UNK! {0003}>5<UNK! {FF03}>h/`[rFNONDEFSNG<0xE1!>$8^a<0x9B!>j2.06858E+33WRITETROFF?B@2PSETINSTRdDEFDBLK'8<UNK! {00F7}>TROFF&tIMP<UNK! {000D}>INPUTOFFSTRING$<UNK! {0001}>OR>r9ANDCLSINPUT<0xE1!>(ERESTORELETPRINT<UNK! {0010}>Q&HB199]BEEP<UNK! {00F7}>PSET<UNK! {000D}>;SWAP-ERRORREADIMPB<UNK! {0006}>LdGOSUBKEYzSCREENafRESTOREBEEPLPRINTSTRING$y<UNK! {0008}>AFOR#8INPUT<UNK! {FF27}>9"FNB9<UNK! {0006}>(7>$INKEY$<UNK! {0006}>REMdLOAD<UNK! {0010}>OERL<UNK! {0080}>SAVEPRESET0S:WREADIMP=F3+POKESTRING$WHILEKEY/uHPOINTGOSUB<UNK! {00FC}>7<UNK! {0007}>(<UNK! {FFDF}>wBSAVE<UNK! {001E}>IMP<UNK! {0006}>K<UNK! {0080}><UNK! {0007}>yPSETSOUNDBSAVEiSTRING$<UNK! {00F6}>/WEND<UNK! {000A}>j9PRESETc^MOTOR86r7<0x9F!>We
  21. 4929  (ANDREADGOSUBCLSFNINSTR<-NEXTTODEFSTRe[~<0xE3!>"RUN=NEXTo<UNK! {0004}>jLINESTEP<UNK! {00F8}>LOADCLOSEDEFSTR<UNK! {0009}>`lREM\HG[Cr<UNK! {FD21}>^LISTOR8NEXT<0xB4!>Jj5LETl<0xB6!>$INPUT<0xE1!>I<UNK! {00F9}><UNK! {000A}>Y*
  22. 17066  MERGEMOTORWHILE<0xB4!>n\STRING$v-EDITRETURNBLOAD<UNK! {001E}>AND/4;dDATA}1<UNK! {0006}><UNK! {0009}>OR&H29AD<UNK! {0002}>FOR.RETURNSTR$DEFSNGHb9END;hJ?RESUME?CALL}ANDHCtPRESET#87WHILE<UNK! {0006}>TROFFr<UNK! {0006}>10%OFFERASESWAP<0xE5!>MOTORANDkWAITDATA<UNK! {0005}>XPOKEv<UNK! {0010}><0xE5!>SCREEN<UNK! {0008}>PRESET<0xB5!><UNK! {FF32}>MOD<0xCB!>~C1)RESTOREIDEF9R6Y
  23. 44751  e!8ERESTORE-1.7336E-09<UNK! {0010}>{<UNK! {00FC}>PSET\ELSELET(<UNK! {0008}>t~6<UNK! {0009}>WAITRETURN%END
  24. 59736  <UNK! {FF14}>POKEWO<UNK! {FE02}>]\READ><UNK! {00FC}>FORBEEP@?<UNK! {0010}>hELSEFOR>LINEOUT147k#IFKEYREM>JLELSE<0xE1!>KEYBLOADSTRING$<UNK! {00F5}>AUTOOR?STEP"?6M<UNK! {FD92}>PSETdBLOAD<UNK! {0006}>.|2ION'<UNK! {0006}>*</<0x9A!>NOT+MOTOR5<0xB5!>&HC960d23562<UNK! {000A}>o~IF<5OOl<0xE3!>CONT|BLOAD<0xDF!>7eaREAD<0xE2!>ERL<UNK! {000D}>INPUT<UNK! {00F7}>+EIMPmYOR>*5NEW0DATAPRINT<UNK! {001E}>/DELETEhKEYMERGEH._qENDTAB(ls<UNK! {00FC}><0xE5!>B4THENERASEMOTOR9ANDC#-20221CLEARTROFFqBREAD!Ux9IFPOKEoaLLISTtTAB(USING<UNK! {0007}>LLISTVPSET<UNK! {000D}>ANDAND<UNK! {0005}>LOCATENEWksANDCALL<0xE2!>KsMPRINT<UNK! {0002}>|.<0x9A!>3WRITETHEN8PRINT"&O76062c/OUTRESUMEBLOADI)b-<0xB5!><UNK! {00F9}>4h,TOCOLOR/AUTO<UNK! {000A}>=~<UNK! {00F6}>ERASEPRESET=w%DEFSTRDIMPRESET@t9%n<0xE3!>DEFDBL8BSAVE<0xE3!>=6<UNK! {0009}>IF+10CLOSE5LPRINTFNEND<UNK! {FD27}>\IMPiYORR<0xE3!>ERL7{}kv<UNK! {00F9}>K<0x9A!><0xB6!><0x9B!>{{*RANDOMIZEGOTOUSINGb^ERRORUSINGBLOADYt1029>{<UNK! {00F6}>MOD"<0xDF!>7w<UNK! {0006}>OPOINT=/}ERLCONTSOUND<0x9A!>;0<UNK! {00F6}><UNK! {00F9}>IF9ERR~TRON;'>TROFF4]u102COLORCLEAREDIT<UNK! {0006}>YT<UNK! {00FB}>LPRINT<0xB4!>ZCLOSENEWSTRING$<UNK! {FF7E}>&Q!arCALLREAD<UNK! {0007}>UBLOAD><UNK! {0010}>-<UNK! {000A}>!<UNK! {0009}>xTAB(40850ERL<0xE3!>CLS<0xB5!>Z<UNK! {00F6}>TOdBLOAD6LETQDIM<UNK! {FE20}><UNK! {0005}>CLOSE#{DEFSNG<0xE1!>LOCATEBSAVE<4XLOADLOCATE8p'LOADSWAP^[FOR<UNK! {0009}>ERRORSCREEN<0xE4!>}<0xE1!><0xE0!>915545f=10vFORDEFSTR<0x9B!><0x9B!>{uUSINGPRINT7ENDLISTMOD<UNK! {0007}>RANDOMIZENEXT<0xB4!>J1aTHEN7to:<0xE1!>7IF<UNK! {0006}>T,LLISTy<UNK! {0001}><0x9A!>CALL:RESUME-30645#IF%8BSAVEPOINTAUTO#<0xE4!>SCREEN46.99358E+18OPTION<0x9F!><UNK! {0002}><UNK! {007F}><UNK! {0010}>POKE<UNK! {0001}>TROFF/<UNK! {00FB}><UNK! {0003}>CSRLINRUNn2W)\p?INSTR<0xE0!>YDELETETAB(<UNK! {007F}>VLLISTZt5+-INKEY$w/WEND<UNK! {000A}>1~RETURN@/SPC(NEXT6?eTROFFJp-TBWHILE<UNK! {00FA}>REMNOTLOCATEnfRUNGOTO8qLOCATEKEYWEND.EORNEW<UNK! {0080}>CLSBEEP+CSRLIN<0xE4!>BLOAD}nRESTORE-=||]h<UNK! {0005}>FN7Fc&.NEW<UNK! {0008}><0xB4!>IMPTROFF*RANDOMIZETOFFCLOSE10.lWAIT$"<0xE1!>7RESUME<UNK! {0006}>q,KEY<UNK! {0006}>*<UNK! {0006}>USINGdINSTR6.34842E+35_p<UNK! {00F5}>LET'b<0x9F!>STRING$DATAZhk(USRDEFTROFFsWK<UNK! {000A}>LPRINTEQVTAB(Vl.<0xE5!>LET|DEFDBLz0r<0xDF!>?PSETABLOAD[<UNK! {007F}>4<UNK! {000A}>mNEWDATA<UNK! {0003}>IMOTOR<UNK! {0006}>BSAVET<UNK! {000A}>pVLIST6/<UNK! {0004}>MV?4<0xE2!>4$CLSTB<0xE3!>OREAD+6|BLOAD82<UNK! {FEB3}>ERASE\LPRINT^ENDOR<0xE3!>3SCREEN
  25. 53222  4N<UNK! {000D}>THEN^bBEEP1<UNK! {0003}>DEFSTRAND-IFa5yUSINGDATA^SPC(+INSTR[FORH/INKEY$TROFF<UNK! {0080}><0xE1!><UNK! {FE00}>.<UNK! {007F}>5$<UNK! {00F6}>,<0x9A!>:NEXT&H66CF^DELETEKRENUMp{%lSWAPLETu'VARPTR<UNK! {0004}>^ERR9<UNK! {0003}>LISTERASEyINKEY$$JSOUND<0x9A!>ONEQV..<UNK! {0003}><UNK! {00F7}><0xCB!>+dSx2MOTOR<0xDF!>DEFSNGPSET+wCLOSEUEQV8<UNK! {0002}>RANDOMIZERUNMOD"EQVNOTERL<0xE3!>>CLOSE<UNK! {00FC}><UNK! {00F6}>INSTRdDEFDBL<0xE1!><UNK! {00F7}>8ORTROFFEND1<0xE3!>BLOADhEIF+-DEF:OFF-CLOSEePSETCLOSETLPRINTRa<UNK! {FF09}>ERASESCREENANDi+TAB(q4;REM-'OFFySTOPDEFSNGSAVE*8'?4{F{<UNK! {00F7}><0x9F!>^<UNK! {00F7}>Y/OPEN90INPUT\'CONT NOTXORK4<UNK! {00F8}>,NOT2h&WIDTH<-3.95156OPRESET<UNK! {00F9}>6 T<UNK! {FD98}>J<UNK! {00F6}>PRESET.Gw*<0xE2!>=LPRINT<0xE5!>>STOPVARPTROR&IFNEWTHEN<UNK! {FF43}>0MOTORnU'<UNK! {000A}>WIDTHTROFF8PRESETu<0xB6!><UNK! {0006}>IFNOT73
  26. 12406  M<UNK! {000D}><UNK! {0009}>DATAOPTIONREMTAB(a?'BO@-DELETEyBLOAD<UNK! {00F9}>Yv7DIMKEYMOTOR<UNK! {0080}>eMOD<0xE3!>51400 RETURNPRINT<UNK! {00FB}>bdDATAxFN=`liERASEBLOAD<UNK! {00F9}>j<UNK! {00FA}>ANEWfRESTORE=CLEAR/!NEXTcJj<UNK! {0001}>DEFINTn'$L<UNK! {0007}>GOTORESUME&H2E57>$XORERLREADd<UNK! {00FB}>REMRENUM7809%<UNK! {0006}>&O37777734210SERLWIDTHSWAP5<UNK! {0008}>RENUMP_<0xE5!>GG<0xE1!>+POKESTRING$BLOAD>6LOCATEA'<UNK! {0006}><0xCB!>"RESTOREANDCLEAR?|/!RESUMEPSET<UNK! {007F}>J<UNK! {000A}>0NEWj<UNK! {0003}>&H8FC8BEEPU<UNK! {000A}>]kCONT@dTOH|SDIM<0xE5!>2JKEY<UNK! {0080}>uDEFINTDEFDBL<UNK! {0007}>BSAVE<0xE3!>-5E-09:<UNK! {FEAA}><^ELSERUNOPENf<0xE3!>qY<UNK! {0003}><0xE4!><UNK! {00FB}>40<UNK! {0009}>7hDEFSTRMERGE8{cIwUSINGRESTORE^ELSE^(Yi?DbTROFF"_en<0xE1!>)REM<UNK! {0006}>.TLETl40649!ERROR.KSTOP#<UNK! {00F9}>`6~W<0xE3!>SUSING+47&k[COLOR>INKEY$sFTPOKE<OR.STRING$<UNK! {0003}>RESUME<UNK! {FF19}>^"z2r<0xDF!>?TROFFK<UNK! {FF5B}>7Af8NEWxBSAVE&H8ABBBEEPU<UNK! {000A}>10<UNK! {0004}>OFF{SOUNDx4Y,<UNK! {00F7}>MERGE<UNK! {FE4A}>XBLOAD)K<UNK! {00F7}>*<0xE3!>DEFtINPUTPRINTSCREEN88ERLCLS+(ENDLOCATENEWYSCREENRETURN7STOPELSE<UNK! {00FB}>`eX^ONVT[-12571g\c{e<UNK! {0009}>RESTORE<UNK! {00F7}><0xB5!>^&H217D~STEP95$<UNK! {00FC}>DEF <UNK! {FD3C}>RESTORE<UNK! {000A}>ELSE.PRESET<UNK! {0006}>SWAP<UNK! {0006}><UNK! {0004}>H<UNK! {FE61}>q~tCONTWRITE<UNK! {0006}>~BLOAD<0xE4!>IFUSING/4;VARPTRIF}.><0xE4!>$!LETPOKEDEFSTRWENDeREM<UNK! {0003}>+<UNK! {FF65}>'N&^3<0xDF!>XTAB(HPRESET2<UNK! {007F}>,}P
  27. 48969  <UNK! {0006}><UNK! {00F8}>4<1TAB(DEFNOTJj<0xE0!>6-<0xB4!>NEXTM<UNK! {00F9}>KEY9<UNK! {0004}>KEYOm<'y~<UNK! {0009}>f<UNK! {00FB}>1=<UNK! {FDAC}>v*ORDEF<UNK! {0003}>=XORY.<0xE4!>EQV<0xB6!><UNK! {000A}>0'2=10CLSNEXTL7LIST<UNK! {00F5}>xPOINTw+P<UNK! {000D}>END3BSAVEOFF*CSRLIN/3OR209042V<UNK! {FF06}>"bKEY}3.10913E+15+BLET<UNK! {000D}>DIM'8TAB(\<UNK! {FF66}>DEFDBL<UNK! {0007}>4fn-9435<0x9F!>LINEsRESTORE=<0x9A!><CLOSEOFF<0xE5!>MODRESUME<UNK! {FD6E}>&_(s5CALLDIMERL<UNK! {0009}>USRn~J-SAVE<UNK! {00F6}>ERRORDEFINT<0xE2!>TO<$<0xE3!>0OPEN.IMPoPRESETa\SWAPDEFm<UNK! {0008}>oREMRENUM10pENDLIST<UNK! {0005}>RETURNLPRINT[<0xE3!><UNK! {000A}>IFS10CLOSE5LPRINTR<0xE3!><UNK! {00FC}><0xE3!>6J
  28. 7167  dRUNDEFDBLSTRING$(=10<0xE4!>LETRETURN48}@:3SCREEN<UNK! {0002}>^CONTUSING!YDATA./tFN2'sf<0xE1!>v+NEXT-14048v<UNK! {0007}>COLORCLOSE/OPTIONaINPUTSPC(bINPUT<UNK! {000D}>DATALLISTWAIT|<UNK! {0007}>AND<0xE3!>4;0<UNK! {0080}>CLOSE(y<UNK! {000A}>haTwCLOSE<UNK! {00F7}><UNK! {000A}>IMP<0xDF!>DEFSTRNOT<UNK! {001E}>j0oOFFp<UNK! {FF41}>PSETVARPTRBLOADLOAD221443LINE-RETURN\
  29. 2258  h,<0xE4!>WAITdDEFDBLERROR$?\%o~<UNK! {0009}>8ERL~POINT7DEFINT"n<EiSLETCLOSE<UNK! {00FB}>BSAVE0SWAPREM>LETWAIT<UNK! {00FB}>od~xKEY=yt-^SPC(l{U{eUSINGRETURNSTEP3^FIFOFFpOPEN0WHILEh<UNK! {00FC}><UNK! {0004}><0xE5!>VINSTRBLOADlqe9&H3873<UNK! {00FA}>NSTEPSTRING$KDEFINTESTRING$#1USINGWHILE[<UNK! {00F8}>>SCREEN4<UNK! {00FA}>&IRENUMLPRINT0ERLUi<0xB4!>wS8EY<UNK! {0003}><UNK! {00F9}>DEFSNGHb9LET;<0x9F!>0ASOUNDAt[,OPTIONITROFFLLIST'g<0xE3!>H^[C16931<UNK! {0004}>JH_bTRON?hWREMSTOPRETURNWRITE,KEYB<UNK! {0001}>rRESUME|10<UNK! {00F9}>IF4fVARPTRRENUMLPRINT)163WHILEINPUTGOSUBLISTYPRESET<0xE4!>NEXTCv0iTHENLETp7229KEYe{"9'CLEARTHENERRORELSETRONfY\5FcTROFFDbou<0xB4!>]RESUME8c"PRESET>2TRON<UNK! {0008}>X|MOTOR(ph<0x9F!><0xB6!>8SWAPERL<UNK! {0003}>yELSEOPEN<7&CLOSELERASECSRLININKEY$/*pRESTORE<?AKEYLOCATERESUMEDEFSNGH30r@w?TRON*CERROR5<UNK! {007F}>0<UNK! {00FA}>CNEW<UNK! {0007}>BSAVEUANDwSTRING$A^Z`ELSE{4MOTORKI<UNK! {000D}>HDELETEa^<UNK! {00F7}>8<UNK! {0002}>ORLPRINTSTEPRESTOREKEY`-18477k8kSTRING$<0x9A!>eENDBSAVECLEAR]TOSCREEN TOTAB(h5REMEQV
  30. 38173  hOPEN_1UIMPDELETEONkPSET<UNK! {0001}><UNK! {0010}>^*|O.VcINPUTn[]nOUT7RENUM5qx<0xE4!>Z<UNK! {0004}>POKEDEFDBLREAD^2vWEND5<UNK! {00FA}>b8<UNK! {00F5}><UNK! {FD09}>sLPRINTTHENREAD26918<UNK! {0080}>_<0xE1!>K/<0xE2!>1POKEVARPTRMOTOR2SWAPSAVECSRLIN<0x9B!>X4N]2E<UNK! {00FA}>t<UNK! {0007}>LNOT/<UNK! {000A}>H<~BSAVE9CLSNEXTTOWHILESPC(<0xE3!>?SAVE<UNK! {0080}><UNK! {00F8}>TOSOUNDSWAP<0xE0!>_+^TROFF(t9%b<0xE3!>DEFDBL8BSAVE<0xE0!>r<0xE2!><UNK! {00F7}><UNK! {00F7}>k8lKEYREMzAUTO180ELSERUN/SPC(<UNK! {FDB3}>PRESETSOUND#^/ONERR<UNK! {0009}>Ol\BLOADj}c<0x9A!>wjRESTORE<UNK! {00FB}>e<UNK! {000D}>1ERL=Tq2INPUT10'90ERR<UNK! {00F8}>:TROFF4@V<UNK! {0006}><<UNK! {000A}>*fPRESET_K$tERL#+SWAP-TO'2OPEN'c<UNK! {000A}>k}=>USREQV<0xE2!><0xB4!>7UERASEB<0xB4!><UNK! {0003}>EQV7^\zHCLEARpDEFSNG>-IMP<UNK! {0006}>.|2<UNK! {0009}>ON+CLSM,SWDELETE<UNK! {001E}>PTAB(CINSTRUSRDEFINT46-VREADREMWENDTDELETE(JDEFDBL<0xB6!>PSETREADt5<UNK! {00F7}>GOTOGOSUB8\<UNK! {FD6D}>^EEQV<0xE3!><0xE3!>SCREENANDEQV+<0xE4!>ERRRETURN-6.56131E+27/ON<0xE0!>CLS*8'?4{GRETURN<UNK! {00F7}>ELSEB(GLISTV/+0A:FLOADuMOTORKEY7WRITE&<0xE0!>ERR^PRINTd<UNK! {00F6}>]IF%MEQV<UNK! {00F6}><UNK! {FF48}><0xE4!>OPENY]k7[TO<0x9F!>ERASE-5.16726E+18CSRLIN<UNK! {FF58}>^T7_3EQV?<UNK! {00F6}>M<UNK! {FE16}>&HA3D5USRpSTRING$W<UNK! {00FA}>SCREEN<UNK! {00F8}>A-ENDCLSHQFNMOTOR_OFF<0xDF!>\32367o:ERLLLIST=gDEFSNGDEFDBLLLISTTHENmMOTOR.-DIM)<UNK! {00F9}>SPC(WHILE<UNK! {00FB}>X3WIDTH0K<UNK! {FD0C}><UNK! {00FB}>lAND'-f=10<0xE2!>DATADEFSTR<0x9B!><0x9B!>{uCLOSELIST7;{g<UNK! {0001}>BEEPY/DIMSTEP+.n%KhWENDYDELETE<UNK! {0006}>qhLETr<UNK! {0008}><UNK! {0006}>CLOSE&<0x9A!>,?<UNK! {00FC}>.<UNK! {0002}>^c+LETERRrLINEOPENDIMs&0-15365STRING$<UNK! {00F5}>z-1.11523E+15PSET?CLEAR[10@h?<UNK! {0009}>n<UNK! {000A}>W^LOCATESTRING$S~VkREM@dREM<UNK! {007F}>I?DATAMERGE<UNK! {00FA}>pUSING<UNK! {00F5}>ERL<UNK! {00FB}>VARPTR<UNK! {0001}>DEFSTRPRESETzSPC(<UNK! {0005}>5DEF<UNK! {0005}>:KEYBEEPd/ORERR<UNK! {00FC}><0xE4!>TOG+<UNK! {00F9}>STEP"+$!ERROR10-31180<UNK! {00F6}>LINE%q0
  31. 21702  <UNK! {0009}>TWHILE7045'90ERR<UNK! {00F8}>OCT$GOTO@X$<UNK! {FE06}>BSAVE`TAB(<UNK! {0010}>9DEFINTpBLOAD50LOAD4PSET8>AUTO3SOUND&2WNEWTOos_T+CONTBSAVE*<UNK! {FEF1}>ELSE4.23608E+14RETURNpIMP<UNK! {0006}>K<UNK! {0080}><UNK! {0008}>yON#+WVARPTR:POINT8OUTNOTNsQQ-Mfr7<0x9F!>WFOR
  32. 45027  .BSAVE"n<<UNK! {00FB}>POKESSTOPCLOSEUSINGDEFINTSCREENELSE\T9<0xE5!>qNEXTt<0xE4!>CALL<UNK! {0010}>:`|<0xE4!>I0&O3777770714108qaYafRESTORESOUNDLPRINTSTRING$1<=<0xDF!>/`ANDC#-2029<UNK! {00F8}><UNK! {000D}>CONTqAON<UNK! {00F6}>NEW|IMP4LOAD<UNK! {0010}>OERL<UNK! {007F}>SAVE<UNK! {001E}>?&O37777734210*>WIDTHERRORERR<UNK! {00F6}><UNK! {00FC}>mWENDs<UNK! {00FC}><UNK! {FE46}>908BSAVE<UNK! {007F}>TROFFPEN<UNK! {00FB}>0|CALLz<pSTEP87A<UNK! {00FA}>WTrCLOSEP<UNK! {00F9}>9OR&ERASE<UNK! {0002}><UNK! {FE2F}>?NOT4tiQ^MERGE<UNK! {00F8}>WHILENSTRING$>A<UNK! {FD1B}>@/OPENCSRLIN+DEF<UNK! {0080}>ANDORCALL<UNK! {00F7}><UNK! {00F9}><0x9A!>YCOLORQXOR+R3STOP<UNK! {0004}>FOR<0xB4!><0xB5!>DEFSNG<UNK! {0010}>%,4CLOSELINE<UNK! {0009}>5jLOAD<0x9B!>LET{*ud<UNK! {FD3D}>^<UNK! {00FC}>^y<UNK! {0008}>t~6<UNK! {0004}>WAITRETURNXNEWHERLTX+<UNK! {FF14}>POKEW><UNK! {000A}>IMPQ\xqqtCONT*1885fmT<UNK! {00F8}>(SOUND<<UNK! {00FA}>[<UNK! {00F7}><0xE2!><UNK! {FD3E}>{%RESTORE<0xE0!><UNK! {0005}>'/fRESUMEEQV6N<UNK! {0008}><UNK! {0007}>2G<0xE3!>-28516BLOADSPC(<UNK! {007F}>8[<UNK! {0001}>STOP1<0xB4!>N,rfw10<UNK! {007F}>INKEY$<UNK! {0003}><0xCB!>lXOR17254NPRINTVYMODOPEN4STEPIF+POKE)RETURNGOSUBi<UNK! {FF78}>LETONXLPRINT-13179CLEAR]CONT<UNK! {0004}>q<UNK! {00F6}>OFFERRDELETE0RESUME71RESUME<0x9A!>CTAB(cERLwEDITOFFLOADLPRINT<0xE5!>/pOFFLISTCOLORENDWENDZ<UNK! {00F7}><UNK! {0003}>CLEAR'I<UNK! {00F9}>Wm3SPC(?FERLREADd<UNK! {00FB}>ERASEa><UNK! {0002}>kCLET<UNK! {00FC}>ON;-UOPEN]19:<UNK! {0006}>AND<0xE2!>>{C~%<<UNK! {FD2C}>>'9<UNK! {FF60}>b<UNK! {0005}>`TROFFrBSAVE?<UNK! {00F7}>pIMPWGP3LINECLEARSCREEN>bWIDTH55WHILEBFOR{<0xB5!>ylRANDOMIZET60185TROFFENDDEFSTR<0xE3!><UNK! {000D}>TRON=<0x9A!>p,TRON<UNK! {0003}><UNK! {0008}>hGOTO--WIDTHPOKEERL<UNK! {000D}>INPUT<UNK! {00F7}>LOCATEEIMPmYOR>*5NEW0DATAPRINT<UNK! {001E}>/DELETEhKEYMERGEH.2uoINKEY$ON<UNK! {000D}>INKEY$|LINETiOPENUSRNEXT<0x9B!>CVU$'!ELSE?GMOTORKEY7WRITE$<0xE0!>VARPTR<UNK! {000D}>NOTVARPTR~y5<UNK! {000D}>LETLLISTUSRLOCATE,ON*\1.qnONwINKEY$aLdBSAVEYORwSPC(INSTRCLEARN8BLOAD"GNEXT?<0xE3!>GLOAD<UNK! {0008}>cMODAND\-2.46485E+10?B)2OFFcFNMOTOR_NOT)\<UNK! {0009}>REMAUTOXPRINT)CDEFDBLOPTIONRLPRINTn<UNK! {00FC}><UNK! {00F9}>LISTSEK&2dGOTOBSAVECLEAR]TOSCREEN TOOFFERRERROR0<UNK! {0009}>USINGhAMERGE<UNK! {0007}>PRESETso1USINGTRON?NEW<UNK! {000D}><0xE0!>SCREENLPRINTW<0xB4!>0>l~$5389H7<UNK! {FFF6}>ERLONs<0xE2!>BEEP`-0.000242625s'EFNLOADV%EDITSCREEN4<UNK! {00FA}>&<UNK! {FE5B}>WHILE*>UcTEDIT<UNK! {00F8}><UNK! {00FB}>TAB(/q|IMP^DEFSNGmRESUME@hBEEP?<UNK! {FFD1}>WHILE[WHILEH<UNK! {0010}>j<UNK! {00F7}>9OR&ERASE<UNK! {0002}><UNK! {FE7A}>?<0xE2!>OFFINKEY${dnM-STEPduINPUTJAUTOBLOAD_Sm/+DEF<UNK! {0080}>AND8CALL<UNK! {00FC}>8MERGEWIDTHLPRINT,406073LOADLET0CLEAR<0xE4!>POKEQb}t<UNK! {0006}>K<UNK! {0009}>k CSRLINSTRING$j{49:BLOADRESTORESWAPIMPPOKE((X&O74133'+%<UNK! {0004}>WAITOXORBEEPDEFq.CLOSEy7.71534E+11/KBLOAD#<UNK! {00F5}>\8FN<UNK! {00FA}><UNK! {0004}>b<0x9F!>STRING$DATAc_jUONs><0xB6!>LOADPSETERASEYKEYCOLORSTRING$<UNK! {0001}><UNK! {00F8}>GOSUBl5M`2r<UNK! {0004}>?<0x9B!>AWIDTH,0,s><UNK! {0009}>lBSAVE;CLOSE<UNK! {0006}>BSAVEKNEXT3JOUT+%THENANMATROFFE5<0x9F!>FOR~LET<UNK! {FDE2}>TROFFPOINTnaLOADLOCATE8pTOWRITETROFFSOUNDAUTODATAG!YVARPTRSCREEN<UNK! {FDE6}><UNK! {00FB}>40<UNK! {0009}>=hPRINTMERGEL<UNK! {0007}>9%wBLOADERL<0xB4!>AND^[11906Z~FNntsmOUT7<0xE5!>y0.0532346READVARPTR<UNK! {00FC}>nIF'8LLISTLETPSET'<0xE4!>OR4<UNK! {0008}>&>2FNREMINKEY$-3.48365E+18RESUMESAVE85[5f7LINEMSOUND62CLOSE.<0xCB!>9^<UNK! {00F9}>9CLSWTO<UNK! {0006}>STRING$C<UNK! {000A}>3.INKEY$qdANDY<UNK! {00F7}>N<UNK! {00F5}>LPRINTEND<UNK! {00FB}>KEYt<UNK! {0010}>-WHILE<0xE2!>CLSDEFEDIT2AUTOGOSUBON10SCREEN<UNK! {00FB}>LPRINTLISTEND<UNK! {FD01}>"(iLOCATE<UNK! {0001}><UNK! {00FA}>p4N<UNK! {000D}>OFFLIST(67STOPDEFSTRAND-IFa4yUSING[^LIST8CRANDOMIZELIST'0 XOR<0xDF!>UAUTO<UNK! {0006}>GOTO,<0x9A!>:NEXT&H66A7^CLEARKqtCONT*<UNK! {00F9}>LOAD!TOU<UNK! {0001}><UNK! {00F9}>`x?VU_DU[8+POKESTRING${TAB(/jRESUMEEQV=KBSAVEWRITEMOTORPFNDEFSNGPSET+wCLOSEU'<UNK! {000A}>WIDTHTROFF8PRESETWSTRING$TO<UNK! {00FC}><UNK! {0009}>@83STRING$sf<0xCB!>S<UNK! {000D}><0xDF!>OUT<UNK! {0010}>;~X#<0xE4!>TAB(WEND<UNK! {0008}>BSAVEGOSUBDwCLOSETO10lFNOPEN</[EQVC4\<0xB6!>Gt<0xE4!>+#$7-LIST632bLLISTIF3EY<UNK! {007F}>qERRPSET<UNK! {0080}>ELSE<UNK! {0003}><UNK! {00FA}>RANDOMIZEOFFgTROFFQWHILE8'N$19<UNK! {0001}>&HC471KEYDO5<UNK! {00F8}>-1.36564E+37?{tTIMERTRONDEFSTR<UNK! {00F7}><UNK! {0006}>Y10ERRM<UNK! {00F7}>-WHILEwINKEY$aIMP<0xB4!>xVNEXTZINSTRrRESUME/<UNK! {000A}>L6z0IERRORFORSPC(A
  33. 30260  PTAB(lBSAVE<CLOSE<UNK! {0006}>BSAVEKxZbPOKE42<UNK! {0006}>MVEND<UNK! {0009}>IMP#pDEFINT[MWENDDEFDBLCALLTROFFWHILEW<UNK! {0080}>POINTUSINGJL<UNK! {00F8}>KEYIMP)BTROFF<0x9A!>NEXTPSET<0xDF!>[0WIDTH'$-1.73188E-09CONTLET-ON^<0x9F!>MERGEZ14674<UNK! {0009}>0TROFF['I POKE7<0xDF!><UNK! {007F}>&O37777744531k<UNK! {0003}><UNK! {0002}><UNK! {00FA}>0<0xB5!>/BSTOP7IFZl<0x9F!>OPENNEWWAITDRENUMWIDTHPRESET<UNK! {0008}><UNK! {00FA}>[o<UNK! {00F5}>TOFFVPOKE<OR.STRING$<UNK! {0003}>RESUME<UNK! {FF44}>^<UNK! {0003}>z<UNK! {007F}>3WHILEVIF&H5BEA<<UNK! {0009}>|w
  34. 48918  BLOADSTRING$FOR|J.CONT6.<UNK! {0004}>M{READ3AND109146^DEFSTR<UNK! {00F8}>KEYSTRING$DEF ]TRONLETk<UNK! {00F9}>IFL8RXOR+SAVE3LOCATE
  35. 64484  40<UNK! {0009}>7hDEFSTRMERGE8}W9{7<0xE5!>LET10<UNK! {0003}>BLOADYn~<0xDF!>3IMPt'/ CLEAR3160$.KEY'sw<UNK! {00FA}>Z1MOTORqenERRFOR^NOTERR<0x9F!>2>ZERRORCLS<0xB6!>}LOCATECOLOR<UNK! {00F8}>9LIST3<0xE5!>POKE7
  36. 43523  <0xB6!>J2"6]21480PSETI<UNK! {0002}>A<UNK! {000A}>Hf?NEW^USR50120STRING$Jv2,PSETINSTRdDEFDBL<0x9B!><UNK! {00F7}><0xDF!>AUTO1THEN~T#"8OCSRLIN/DEFt{SPC(<UNK! {0004}>e}THENLINE/2FOR<0xB6!>uSCREENBSAVE-28526<UNK! {00FB}>`n0`ERLNT7-13084j{<UNK! {001E}>8,SAVERESTORECALLIMP<0x9F!>(@N/23INPUT<UNK! {0003}><UNK! {0007}><UNK! {0006}>WAIT}59<UNK! {0006}>ohMOTORG0<UNK! {0002}>f~EQV<UNK! {00F6}>PSET><0xE4!>TAB(DATAfr&6COLORCLEAREDIT<UNK! {0006}>YT<UNK! {00FB}>LPRINT<0xB4!>ZCLOSENEWSTRING$<UNK! {FF65}>1.11648E+32<0xB5!>PSET<UNK! {007F}>JF8'9FN;NEWBLOADSOUNDC<UNK! {007F}>`.STOP=0DIMAND$pDEFSTRPaSWAP<UNK! {00FB}>GOSUBUSINGDEF3f<UNK! {00F9}><UNK! {FD1D}>lCLOSECLOSEAND04WIDTH<0xB6!>3PRESETPSETYSOUND<0xE4!>GOSUBQrRESTORE`USR&O37777774027&O72462<UNK! {0007}>ANDISCREENwERRINKEY$OPTIONCSRLINRESUMEZ2383VbTROFF3ua LIST=<UNK! {FE2B}>?,<0xB5!><UNK! {007F}> <0x9A!>DEFDBL ^2E<UNK! {00FC}>5IFUl<UNK! {00F5}>^USINGb<UNK! {00FA}>OPEN4ENDn"(COLORGOSUB<0x9F!>5BVx5INPUT/INSTRrRESUME<UNK! {FD80}>1K(2 TRONINPUT<UNK! {0003}>O<UNK! {FE29}><=iP&O37777746146PSCREEN<UNK! {0006}>NEW~<UNK! {000A}>q]STOP=)NOT7K?1AND1020169COPTIONDEFDBLLIST<UNK! {0003}>TO7[IFTOejLOCATERENUM/33SWAP<0xE3!>NEXTRETURNPSET-26733FN60413<0xCB!>GOTO+RESUMEB<UNK! {00F9}>LCOLORLLISTCONTuSCREENaWENDRESTORE<UNK! {00F7}>FN<0x9F!>m*RJENDTORGUZ DEFINTwRESUME}-13991~<UNK! {0004}>GOSUB<UNK! {00FA}>0<0xB5!>88<UNK! {00FC}>5.7672E+12<UNK! {0003}>ENDY&10%PSETPOKEWENDsUA<UNK! {00FC}><OFF <UNK! {00F8}><UNK! {0003}>AUTONOT87<UNK! {0080}>vSPC(zX<0xDF!>DELETEDEFSTRBLOADIBLOADRESUME-<UNK! {0004}>+NOTWHILE>TO6<0xE5!>)?3,DEFSNG@*<UNK! {0004}>;JME<0xE2!>$J<0xCB!>#<0xE4!>TAB(TO<UNK! {0008}>BSAVEGOSUB=\<UNK! {00F9}><UNK! {00FB}> hVARPTRLOADIMP0OEQVCP_\Fp<0xE4!>EQV<UNK! {FEFD}>GCLSON+RENUM<UNK! {00F8}>LET866l<UNK! {00F6}>IINPUT10lSTEP<UNK! {0010}>^*<UNK! {0009}>S?DbINPUTn>$=<0xE1!>Q>M4IMERGE{sONSWAPdSWAP2>RETURNt<UNK! {00F5}>b~MOD<UNK! {00F5}><UNK! {FF25}>D(LLIST0><0xE4!>sFTPOKE<OR.DEF<UNK! {0003}>INPUT<UNK! {FF44}>#T#2&LINE?<UNK! {0005}>IERL,&HA3D1NEWj<UNK! {0003}>&H8FC8BEEPU<UNK! {0008}>NOT<UNK! {00F6}>kkS0DEFINTNOTOPTIONZNEW1p<0xCB!>#4OFFDEFDBL<UNK! {0001}>BSAVEDEFt<UNK! {001E}><UNK! {00F9}>NOTi<UNK! {00F9}>WHILEQPRESETS*ORDELETE<UNK! {0010}>8<UNK! {0002}>3<UNK! {0003}><0xE4!>24[<UNK! {000D}>OFFLISTP67WRITEDEFSTR08qERRORDELETEaDEFDBLRESTOREOPENLPRINT1.1626E-05RUN3^WTQM<UNK! {00FC}>-AUTO>WSWAPCONT8<<UNK! {0006}>CLS`-0.00024236s'_TRONxTO^>OPEN>5<UNK! {0008}>055+POKESTRING$+TAB(/rRESUME/<UNK! {000A}>L6x~!LINELERRAPRESET.<UNK! {0004}>=<UNK! {000A}>8NEWdNOT<SCREEN<UNK! {0006}>SWAP<UNK! {001E}>dv|<0xE4!>$3ERLMI<UNK! {000D}>HTROFF#2.2559E+377qGOSUB
  37. 51416  TROFFSOUND<UNK! {001E}>READ<0x9F!>#e
  38. 54532  DEFINT-6.42954E+27<0x9A!>WIDTH&CLOSEIMP+8PRINTGa<UNK! {00F5}>|USINGo<UNK! {FFC8}>DIM<0xB5!>2@OUTTROFF<UNK! {0080}>*<UNK! {0004}>:P7AUTOP-20386<UNK! {0006}>&HA595 <0xE1!>a?NEW1<UNK! {00F9}>'PDELETE\<UNK! {0002}>'LPRINTTOJYo'2COLOR<0x9B!>WENDsUJPOKEWHILEWIDTH[SOUND<UNK! {0003}>VARPTRRUN~3S33p<UNK! {FDB2}>f/:5p'0MOTORPSETSCREENBSAVEM<0x9A!>GOTODEFINTCo\G<0xE4!>89SPC(I6ENDCTROFFE5<<UNK! {007F}>}OFF<SCREENSTRING$STEPnsGOSUBGOTO!l<UNK! {FEAA}>EQVdROROUTNEXTPRESETSOUNDYLISTELSEGOTOQs\cSPC(LETDIM6jL<0xE5!>WIDTHORtSCREENafRESTORE<UNK! {00F7}>FNELSEm7R?/rERL secDEFINT7POINT~-13983`&LOADKEY<UNK! {0010}>^ EOPTIONt<UNK! {FF62}>}LLIST/<UNK! {FE62}>RANDOMIZEOPENFOR[u3U_READW<UNK! {00F9}>5<0xE5!>POKEVARPTRWENDlBEEPRETURNPOINT<UNK! {FF80}>1K(2 TRONTNOTL<UNK! {FE5B}>>6vP<UNK! {FF6C}><UNK! {FF3D}>DEFRETURNSTRING$Mya.IF6.<UNK! {000A}><UNK! {007F}><UNK! {000D}>8<UNK! {00F7}>MERGE<UNK! {FE4A}>XBLOADLOAD\/AND/DEFtFORREADTO9jONKEYLPRINT0ENDTAB(<0xE3!>aGOSUBRETURN,<UNK! {0003}>TAB(nERLKEYRESUMEWRITEEDITDEFSTR<UNK! {0009}>9hDEFSTRMERGE8{cIwERRORRESTOREUSRELSEMERGEZ0O.20TROFFZbp'DEFSNG7CSRLINK-16084y-197060^5DIF6<UNK! {00F8}>&6~J3CALLNOT+<UNK! {00F5}>IMP<0x9B!>THENL*><0xE4!>sFTPOKE<OR.STRING$<UNK! {0001}>SWAP<UNK! {FF4A}>bBSAVERUNSCREENVARPTRUSRDEFSTRPSETrCOLORRENUM}48PRESTORE9EQVK<<UNK! {0004}>WRITEA<UNK! {000A}><UNK! {00FC}>.yER}DEFINT5<0x9A!>DATAERRRCRESTOREzq<UNK! {00F8}>WHILE!DEF4SOUND=vGOTO6-K<UNK! {00FB}>THEN^END'<0xE3!>cTO<UNK! {0010}>[GOSUB><UNK! {00FB}><0xE3!>0+BFNEDITMODL8.846RETURN<UNK! {000D}>SAVEw\FLINEJ=THENCRETURNDATARETURN>SPC(GOTORESUMESTRING$FOR6
  39. 42466  3LLIST.KSTOP1.41471E+21LETUSINGrDEFDBLSTRING$4g_%2THEN>WRITE<UNK! {0004}>OTPSET<UNK! {00F6}>OFF.BSAVENEWRESUME<0x9B!>q#"6{ TRONDATASPC(HERL)&H3849LINE-6.52345E+31<UNK! {0009}>CALL<0xE4!>W<DEFSNGDEFINTCSRLINRANDOMIZEOUTNEW<UNK! {00FA}>pUSING=ERL<UNK! {00FB}>B<UNK! {0001}>CLSAUTO3qPRINTGOTO!pFNLOADLPRINT558278<UNK! {0080}>WHILESTOP-26115<0x9A!>_q0oUSR=}]10USINGMERGE}<UNK! {0003}>";w<UNK! {0002}>LOAD^INKEY$ERASEi+DATA<UNK! {0009}>CtTHEN!%<UNK! {0004}>102<UNK! {00FC}>OPTIONDEFq.READk0IMP[mLLIST<UNK! {FE03}>{OPTIONOPEN<UNK! {0080}>e&63LOCATE>AUTO<UNK! {0006}>X0POKEDELETESWAP.WRITERETURN*READ80.520503ERRU<0x9F!>oPRINT^SWAPSCREENBSAVEMONONSTRING$ZyF.IF69THEN86J<UNK! {0008}>TROFF%4SAVERHSWAP<0xE1!><UNK! {0001}>STRING$<UNK! {FE1E}>[LIST<UNK! {FE57}>10[TROFF9\qFOR<UNK! {0009}>LPRINTLOCATEDELETEYWAITLPRINTREMH0}Y0DEFSTRFNq<UNK! {000A}>c<:BEEPNOT<0xB4!>MODLLIST(/N8/tINKEY$1_$lOPTIONv^<UNK! {0006}>"bKEYj&O37777775277/<0xB6!>/8889RANDOMIZE%?<UNK! {0010}>h>RESTORE>AUTOOUTERRPSETXORoDEFDBLsINKEY$TROFF5aPRINT<EQVNEXTSTRING$ERRWAITFN#p3l2O<0xDF!><UNK! {000D}>LET&O64625Qv<UNK! {000A}><UNK! {0002}>NEW'RESTOREGOTO<UNK! {00FA}>SCREEN<UNK! {00F8}>4<UNK! {000A}>t.SPC(wrREM<UNK! {007F}>I<UNK! {000D}>DIMTAB(o^<UNK! {00F7}>8<UNK! {0002}>ORLPRINT<UNK! {0001}>/GOSUBRETURN<UNK! {00FA}>DIMDEFDBLuLETONW}LOCATE<UNK! {FDCF}>NOTELSESCREENANDERASE08iUSRP<UNK! {0009}>l6CSRLINMERGEe&H3215wON<UNK! {0005}><UNK! {00F7}>ELSEMOTORCSRLINF2J1rCSRLIN3uecDEFINT]VARPTR><UNK! {001E}>4MOD<UNK! {0006}>sRANDOMIZESPC(2PRESET<UNK! {000D}>nWENDuINPUTPRESET<UNK! {0007}>9SPC(<0xB6!><0x9A!><0xE4!>DEFSTRCSRLINERR<<UNK! {FDBB}>BLOADjCLEARcWRITETEDIT$206LLISTw>ORLET^ J`3<0xB4!>TOUTABLOAD127e<UNK! {000A}>24025KEY<TOMOTORBEEPB<UNK! {000A}>3sCSRLIN8dNOT7VNEXT5.65106E+35EQV/DEFt2<UNK! {00F9}>GOTOe8CLOSEKEYLPRINT10ENDTAB(<0xE3!>[CLSREM7<UNK! {0004}><0xE4!><UNK! {00FB}>{sFORcTAB(=~]0WIDTHMERGEe<UNK! {000A}>73&CLEARRESTOREWRITE<0xE0!>DEFSNGcYQ5/eCSRLIN7'YeCALLmDELETE&HC191Elc{9>qE[CONTtINPUT'8LLISTLETPSET'<0xE4!>OPEN&O23031<W_2Z+6/POKEDEFMODINKEY$ERLLOADAUTO<UNK! {FF01}>^qv<0xE2!>pOPTIONAPSETIMPBLOADLOCATE<UNK! {007F}>VTAB(LINEPSETQBSAVE(INSTR5ERLf<UNK! {0008}><UNK! {0009}>NEXTINKEY$&O37777771211(b&SERASEREMRUNECALL$JDEFDBLDEFSNGPSETDIMLPRINT0<0xB5!>IFe<UNK! {FEBB}>WAITELSEDEFINTRETURNEQVWRITE12232Yp<0xE4!>EQVRESUME<UNK! {FD47}>TON+e<UNK! {0008}>LETL@TROFFk<UNK! {00F5}>DELETEPRINTZ7<UNK! {FD14}>^FERASEOFFAUTO/RESTORE0~WAIT$USRSPC(1ELSE<UNK! {0006}>oNEXTMOTOR<UNK! {0006}><UNK! {0004}>SAVE<UNK! {00FB}>fSTEPUSRRENUMMERGE+37LETLLISTX<0xB5!><UNK! {FDDD}>OPEN&O23044c5FNTRONINKEY$<UNK! {0003}>UG<UNK! {00FB}>ELSEWHILEbRENUM<UNK! {0003}>ERRSTOPg#6z]4<0xDF!>ZKEYTFN[2A|5<UNK! {FF39}><UNK! {0007}>ITOCLEARSAVEJu3IELSE:0<UNK! {0008}>>GOTOAEDIT,-SPC('<0xB6!>4<UNK! {000D}>CLS+PRESETDEFtwELSELOCATE lPRESETAUTOLPRINT0I<0xB6!><0xE3!>ENDGOTOCLEAR.RESTORE<0x9A!>POKE4L0uERLST710+FN8<UNK! {0009}>3'wWAIT<UNK! {0002}>^<0xE0!>CONT\+DATA<UNK! {0009}>CxKEY7'xaSCREENwOFFzc.)CALLIMPb<UNK! {000A}>ERR<UNK! {000D}>CONTSTRING$*DATA5'KEYPRINTCLEARBLOAD'>RESUME<UNK! {0080}>a&1,VARPTR>ERASE21592VARPTRLPRINTOREND<0x9F!>DEFDBLRESUMELINEK^vO|S<0xDF!>J
  40. 6700  HF7<0xB5!>READ^WWAITBLOADMOTORO<UNK! {0007}>1TAB(<0xDF!>PRESETSWAPWHILEPOINT5WEND\5oCLSSTRING$=<UNK! {000D}>OFFWHILEWHILEUSRLOCATE!a<0xDF!>GOTOe;CLOSE<0xE4!>LPRINT~2OPEN<0xB5!>KSCREENNEW1RESTOREDEF<UNK! {00FB}>_hNiTOJ{7!VARPTRFNf{6@%CLEARGOSUB<UNK! {00F7}>ENDPOINT<0xB6!>CALL-CSRLIN<UNK! {0009}>WIDTHTROFFSAVE7<UNK! {FE29}><UNK! {0006}><UNK! {00F8}>NOTLETLPRINT<X<UNK! {0006}>M<UNK! {0006}><UNK! {00FA}>d^aK<UNK! {00FC}>t<0xDF!>'4LLISTERL<UNK! {FF66}>WEND<UNK! {0007}>4X_k4LOCATEVARPTRINKEY$&=BTHEN<OPTIONaBSAVE<UNK! {0003}>RUNLINE\<UNK! {0010}>~.w%<0xB4!>?<UNK! {0003}>K<UNK! {FE25}><UNK! {0008}>1>PERRoBSAVEICLOSECLEARSTRING$PNEXT]IELSE|^a<0xE3!>CONTOFFv5M<UNK! {0001}>KEYMOD#<0xCB!>OPENCSRLIN<0xE3!>DEFt2<UNK! {00F9}>GOTOe8CLOSEKEYLPRINT^MORDEFcTO <UNK! {FF7F}><UNK! {00FC}>ANDERROR-8.58931E+226TjDEFSTRU8/4uERRORERR
  41. 10306  PRESETOFFDATADEFINT<UNK! {0003}>DEFSNG8'XOOFF+W&H2E4FKEYEQVs<0xE2!>BEEP`18866SAVEnIF<UNK! {00F8}>8&O37777734210<0x9B!>DWIDTHSWAP5<UNK! {0008}>=K_"`w;-x6m(<0xE3!>fRESUMEEQVERRSAVEBSAVEgDEFINTbTAB(WENDPSET?\3<UNK! {007F}>7rPBSAVE'RESTOREWWIDTHREMOPTION~<UNK! {000A}>".<0x9F!><2STEP>{?D<0xE2!>o4<0xB4!>S`LOADDEFDBLSCREEN<UNK! {0004}>DEF:[LISTTOe+CLOSEDEFSNG/(<UNK! {000D}>OR<0x9B!>MSAVEBEEPYPRINTELSELIST`/205OPENOPEN/<UNK! {0009}><UNK! {0005}>DEFSTRDEFDBLOR<0x9B!>NEXT7<UNK! {00F8}>MODLPRINT{END<UNK! {000D}>SCREENco/PSETMOTOR"
  42.