home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / resume.lbr / RESUME4.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1993-10-25  |  9.3 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!>&O37777745632TAB(Y<UNK! {0003}><UNK! {00F7}><0xCB!>+d1040r<UNK! {0010}>?RESUME/DEFSTRCLOSEDEFDBL<UNK! {000A}>TLINE!9DEFSTR<0xE3!>,POINTcCVARPTR<2OFFE^<0xCB!>SE<UNK! {0009}>LDEFINT]Z<UNK! {0003}>0SCREENBEEP\7STEPBLOADc3INPUTMODRENUM^ELSE(ELSEd(qY-<UNK! {00FB}><UNK! {FF0D}>8.21803{lhTRONMERGEJ><UNK! {000D}>4wLLIST<UNK! {00FB}>RESUMEOR^<UNK! {000D}>'Q8ZtUSRt<UNK! {0007}> cERROR<UNK! {00F8}>9<UNK! {0006}>MOTORCBEEP?s&H5EF0<0xDF!>wENDSTRING$VMERGE-2.05995E+200,amINPUTPOINT/EL~%<<UNK! {FDB8}>6#WAITLOADmSAVEWRITEz<CLS?<0xDF!>SWAPDIMERRCLOSE-8.0672E+089lWUSR^'8e<UNK! {0009}>CLS<UNK! {0004}>@-7.95424E-066##LOCATEDELETEpPOKE/LP<UNK! {00F9}>DEFINTON&O13673LPRINTX9/<UNK! {0009}>oIMPnRANDOMIZEWAITERRORLPRINTERLSTOP0C<UNK! {FDDD}>/ONhOPENSTEP<UNK! {00F9}>U<UNK! {00F5}>DELETE2NEW <UNK! {000D}><UNK! {FFED}>rDELETE3J<UNK! {FD11}><0xB4!>DIM-ON:SAVEBF>MODoK><0xE2!><UNK! {0006}><UNK! {0004}>F<UNK! {000D}>READ><UNK! {00FC}>FOR<UNK! {00F9}>PRESET?<UNK! {0010}>h>ddZRESUME5<UNK! {0008}><UNK! {FFBB}>_-14939><0xE5!>POKE7
  2. 43523  EDITc2[(w%CALLJSCREENJBLOAD%<UNK! {000A}>+z?<UNK! {0002}>j<UNK! {0003}>W<UNK! {00FA}>SCREEN<UNK! {00F8}>CHFJ<0xE4!>73ERRMLETMCTROFF 5KEYOLRESUMEDEFDBLBSAVE<UNK! {000A}><UNK! {0008}>10qLOAD<UNK! {00FA}>l10[-<0xE2!>XORELSE~<0xE3!>"AUTO RANDOMIZE6.54801E+27+<UNK! {00FC}>,DATA]READ<0x9B!>>5KEY7WRITEPOINTLPRINT7.1E-08!5St%.CAND3160o<UNK! {0006}>LLIST*O5<UNK! {00F8}>fSTEP~~<UNK! {00F8}>SWAPINPUT%?BEEPDEFSNGLOCATE<UNK! {00F7}>>SCREEN35=gRENUMMERGE<0xE4!><UNK! {00FC}><0xE2!>FjTHKEYPRESETSTRING$<UNK! {00F5}><0xB6!><UNK! {001E}><UNK! {00F9}>9^SAVESPC(I/tU/CONTUSR<UNK! {007F}>250TROFFLLIST9qWTROFF5<0xE3!><0xE3!>|WINSTR<UNK! {0004}><UNK! {0009}><0xB4!>DEFSNGCALL5kWAITNEWeTROFF*USR{=USINGBEEPRw<UNK! {00F9}>2<0xB5!>v|8lKEYPRESET<0xB4!>-&STEP6OUT<UNK! {0010}><UNK! {000D}>2BSAVEERRTRON<UNK! {FD94}>y{OFFLLIST7D[R-19333IKG<'ERRUSINGPSETRANDOMIZECLEAR>3XOR<UNK! {00F9}>LLIST4.636E-08957501<0xE0!>VARPTR<UNK! {000D}>PSET242ON9'<UNK! {0003}><UNK! {000A}>hNEWWAIT<0xE4!>SCREENgZ}k36287ERROR<UNK! {0007}>FORT<UNK! {000A}>LPRINT<0xB4!>aWRITEDIMOFFPRINTm^\)`r<0xB6!>PNOT<UNK! {000D}>BLOAD4>+w4NEWfTOWRANDOMIZE<0x9F!>STRING$<UNK! {0080}>G_YPRINT104TROFF 5<0xCB!>BLOAD5RESUMEPRESET /DEFtePRINTSCREEN88<UNK! {00F6}>WAITINSTRdIWENDDEFINTISCREENBEEP'PRINTELSEGOSUBQa4-THENJFOR7-16933i<UNK! {000D}>9;+USING<ERRLOAD^<UNK! {000A}>|r23855<UNK! {FE4B}>XQTMOD9CLEARDEFPRINTKLOAD<n{<UNK! {00FA}>fUSING,?<UNK! {00FC}>-POINTr8<0xE5!><UNK! {00F9}>INSTR'STRIGfzQF[CSRLINONINKEY$<UNK! {0006}>}J<UNK! {0007}>AUTO<0xB6!>.WRITE<0x9A!>RESUMEGOSUBl%Q+_3WHILENEXT<UNK! {0007}>ULOCATE,0+>PTHENg<UNK! {0006}>M,\REM<UNK! {0007}>=BSAVE.INKEY$3kTHENA6T1AND1020681QCALL<0xE5!>SOUNDBSAVE<UNK! {FE1D}>g<UNK! {00F9}><UNK! {FD16}>8USINGMOTOR<dC<0xB6!>LINE<UNK! {0080}>SCREENREM/<UNK! {FD99}>WAIT4eP`<UNK! {0005}>LETREAD],DEFSTR<UNK! {0004}>[<UNK! {0006}>6@+SAVEGOSUB<UNK! {00F7}>PRESET|SCREENDEFDBLHlSPC(WIDTHINPUT<UNK! {0003}>'&PDEFDBL]CSRLIN}G,KEYas=<UNK! {00FA}>{<0x9A!>a<UNK! {000A}>NEW1PSETc7LLISTLET<UNK! {00FC}>b<0x9F!>THENLETX_0u<UNK! {0080}>tyYKEYCOLORSTRING$<UNK! {0001}>RESUME<UNK! {FF19}>^"z2rRUN?<0x9B!>A>20-<UNK! {000A}>}MOTOR9ERRORPRANDOMIZE<UNK! {0006}>OPTIONTv3\ELSE< INSTRM{PDIM<0xDF!><UNK! {0006}>4SCREEN%ERL^<UNK! {00F5}>*_&LW<UNK! {00F9}>IFe8CLOSEKEYLPRINTdENDOR<0xE1!>HERROR<UNK! {0004}>RANDOMIZELOADTRONWRITEERRRUN0FORPRINTTHEN6UjDEFSTRU8,_RANDOMIZEyLOCATERETURN^R^BEEPY/STRING$STEP+<UNK! {0006}>tUASRESTOREUGOSUB;oTOSAVE<UNK! {0080}>1+READd<UNK! {00FB}>ERRRENUM489_<UNK! {00F8}>136TOFOPENOPEN=73\eCOLORRETURNINKEY$^10TFN<0xB6!><0xB4!>fSTRING$STOP<0xE0!>RUNl2")trDEFDBLFORSTRING$DATAFN[<UNK! {0007}><UNK! {0009}>iPLOCATE0<UNK! {0004}>uERASEON<UNK! {0007}>;<UNK! {00F6}>WENDDIMERASE9-2.86747E+12S~<UNK! {00F9}><0xE5!>,<UNK! {0080}>TODEFSTREQVhENDRESUME<0x9A!><UNK! {0080}>CLS
  3. 37277  Oe0`ERLWRq&USINGMERGEX<UNK! {000D}>3$%LISTRESTOREDEFSTRMODDELETE*RANDOMIZE5=KXOR.n%5-OR7<0x9B!><UNK! {0006}>7bSAVE~<UNK! {000A}>CONT<UNK! {00FA}>%DELETEa?NEW1IFSjAND<0xB4!>PSETnCALLUSING4vc-6.7198E+14<UNK! {000A}>\T<UNK! {FDB8}>ORZBEEP<UNK! {0003}>GOSUBSTEP8*W,w%EQVAf?TOFNLLIST'0MOTORPSETSCREENb10LISTv3WEND<UNK! {000A}><UNK! {0003}>=MODtdBLOADSE<UNK! {0009}>DIMINKEY$ <UNK! {0005}>KEY[uWRITE<UNK! {00F6}><UNK! {0001}><UNK! {0003}><UNK! {0009}>"wREADTO)10WIDTH<0x9B!>s10ZEQVWRITEINPUTPSETBEEP*<UNK! {FDDE}>BEEP<UNK! {0006}>#EQVcTAB(COLOR<UNK! {00F8}>LISThDIMS^RESTOREtgw(RESTORE<UNK! {00FB}>-7.56065E+19J=PRESETSAVERETURNs[SWAP@GOTOHm9TRON(WNEXT<UNK! {FED8}><0xB6!>BSAVExOPTION*^kGOTOr6CONT;'3DEFINT&26918[COLOR><0xE4!>X{<UNK! {007F}><0x9A!><0xB4!><0x9A!>`REM<0xCB!>CSRLINPSET82Q)210LLISTM<0xDF!>ATHEN,<UNK! {000D}>HK>NEW<UNK! {0010}><UNK! {0006}><UNK! {000A}>ONRUNSTRING$gGJ]PRINT)]BLOADDEFINTRENUMLET<0xE4!>DIMCOMUSING[<SOUNDB<UNK! {0001}>rRESUME}10<UNK! {00F9}>IFe8CLOSEKEYERASE~3TROFF<0xE3!>PPRESETRETURNnPRINT<0xE4!>IFuoXnONTTldDEFSTR<UNK! {0004}>8<UNK! {0009}><UNK! {001E}>"wCLEAR<UNK! {0004}>DELETEORDEFSTR(5L4VbTROFF<rot<0xE1!>u<0xE1!>END8HKEY<UNK! {0080}><UNK! {0006}><0x9A!><UNK! {00FB}>]<UNK! {00F7}>MOTOR&NEWAUTOf<0xB6!>?162;-MOTOROPEN&O72205&(TO>NEW*z!-WAITORZBEEP<UNK! {0003}><0xDF!>RUN}^_2w/TROFF?FNHSTEP3<UNK! {007F}><UNK! {0009}><UNK! {000A}>7RANDOMIZE7EDITVTOSCREEN<UNK! {00F8}>4<UNK! {000A}>1"<0xE4!><UNK! {0010}>~BEEPDEFINT`READPSETDIM<UNK! {00FA}>pUSINGWRITEERL=/KEYLETv<UNK! {0003}>2<UNK! {00F7}>VARPTR$gSCREENLOADLPRINT0I<0xB6!><0xE3!>ENDPRESETLIST-<UNK! {FD9D}>CLEARDn<UNK! {007F}>iERLKINPUT4hUSING<UNK! {0004}>e>!=.USINGERR<0x9B!>CSRLINTRONZ4DATA.Z~FNnzqsDEFINT7-KqmDEFINT<UNK! {0006}>-1.04133E+06}_<UNK! {FD7F}><UNK! {0009}>PSET%CALL<UNK! {0004}>4Lu5%COLORNEWTROFF OITHEN\ORREADSTRING$AUTO<UNK! {00F6}>DEFSTRP4nz]20447ERLHERR'<UNK! {0006}>6uP<UNK! {0005}>fNOT=TO<0xB6!>ORqU|<UNK! {0080}>BEEP0dSPC(7LS244!pCOLOR^^WEND<0xE3!>
  4. 23202  #h<UNK! {00FC}>C.<0xE3!>3SOUNDTOPEN;ANDY
  5. 38801  4gX_<UNK! {0002}>Y=7!<0xE2!>MERGE<UNK! {0080}>&H490E/WAIT<UNK! {000A}>OPTIONELSECONT`30288/hERL''yi<0x9A!>pPOINT<UNK! {0006}>.cCALLm<UNK! {0006}>LOCATEDEFDBL6^19ON"<UNK! {00F7}>^c+OPENfDIMLPRINTOPTION*SOUND&itMERGEMOTOR<0xE2!>MFVDEFINTPOINTEQV)STRING$RETURNCSRLINDIMc)"%b3SWAPJ<UNK! {0007}>MBLOAD/<UNK! {000A}>,f5<UNK! {FE70}>TO<UNK! {0010}>TOIFLIST<UNK! {0080}>FORZ`ELSE*dTAB(;6O3<0xE2!>$#\_C<0xB6!>OFF<UNK! {0001}>TAB(LOCATE"fLOAD<UNK! {00FB}>9'MERGE)<UNK! {0006}>%}0R\$GOTOo#u<UNK! {00FB}>33345cUSR=FORq-16924Z>04-BSAVE
  6. 23711  0R.ZrTROFF"fotOUT4RESUMEz8YDEFSNG{sKEYCLOSE:^4<UNK! {000A}>REM1IFnJNOTLOCATEPSETuELSE'<UNK! {0080}>X_iCLOSECALLOUTANDmCLOSET<0x9A!><0xB4!>WIDTHaRANDOMIZE<UNK! {0003}>OFFRESTOREi#]/s<UNK! {001E}>RENUMZPSET<UNK! {0080}>NOT+<UNK! {000A}><UNK! {0009}>~9<UNK! {0002}>nBSAVE5OPENBSAVESTRING$Pvr`WIDTHE3ERLI6INPUT3\9pDEFINT[QOFF\LISTFN
  7. 27127  KsONCSRLIN3vXOROR<0xE1!>.MERGENEWYBLOADELSE<UNK! {00FB}>uvP_USR1.00712E-09<<UNK! {001E}>SOUND<UNK! {0008}>^<0xDF!>RESUME(0OJX~ERL2'paDEFSNGl^8oTODELETEt/,IFd<UNK! {00F7}>aK<UNK! {00FC}>tIF'8LLISTLETPSET'<0xE4!>OPEN45T&(VARPTRDEFTROFF F4<UNK! {000A}>LPRINTORiREMONOFFGOSUBX*V0&O63110?NEW{<UNK! {0003}>WSTRING$OFF6LOAD<UNK! {0080}>}TOuE^<UNK! {0002}>>GOTOTC<UNK! {00F5}><UNK! {0009}>1DEFINT^ZRESUMELLISTTOCLSwBEEPXMOTORk<UNK! {00FC}>8MERGEKEYLPRINTdENDOR<0xE3!>3SCREEN
  8. 64484  4133.369Vq)<0xE0!>KEY<UNK! {0080}>{3;.SOUNDRESTORECALLIMP<0x9F!>(-E?/wSTRING$ fzcOPTIONY<0xE4!><UNK! {0006}><UNK! {000A}>cWRITEr216<UNK! {00F8}>SOUND*6<UNK! {0009}><UNK! {001E}><UNK! {0005}>IF%8LLISTLETPSET'<0xE4!>OPEN45&k[COLOR>INKEY$-UHTO<TROFFWPSETSAVERESUMESTOPg^\7\5<0xB6!>?LOCATEDATASTEP'<UNK! {000A}>:s>CSRLIN9<0xCB!>5DEFINT<UNK! {0006}>MERGEQGq.ERASE)0<UNK! {0004}>?{J<UNK! {0009}>+uSTOPDEFXHBLOADB<UNK! {0001}>CLSDEFn2<UNK! {00F9}>GOTOe8CLOSEKEYLPRINTdENDOR<0xE3!>3RUNON-<UNK! {FD90}>NEXTQo0o<UNK! {0006}>WT76STRING$MERGEf<UNK! {0009}>-4.24118E+19<UNK! {00F7}>END<0xB5!>c?<0xE3!>CSRLIN<UNK! {0009}>WIDTHINPUT<UNK! {0003}><UNK! {0007}>IFkMOTOR<UNK! {00FA}>THEN<UNK! {0006}>okCLSr<UNK! {0007}><UNK! {0006}>TROFF3RESUMEa>READ1IFTi<0xE3!><UNK! {00FB}><UNK! {0003}>fOPTIONOPENENDpr62THEN<0x9B!>LINE&H8A46PSET<UNK! {00F6}>ORw=OPENOFFRESTORE*<UNK! {0010}><UNK! {0003}>L]rEQV<UNK! {000D}>LETAMOTORo<UNK! {007F}>96LINE?r<DEFINT_<UNK! {0006}>SWAP?<UNK! {00FA}>1<UNK! {0080}>INKEY$ELOADMOTOR10&O37777702317+up5#"_Q!w<UNK! {0004}><UNK! {0002}>USRvGOTO;-N6TROFF4NEXTOR,3<0x9A!><UNK! {0004}>RESUME3863057885-(=10POKELETRETURN,8qTROFFXDEFG<UNK! {FF6B}><UNK! {007F}>DIM(<UNK! {000D}>ERL[/INKEY$TROFF<UNK! {0080}><0x9F!><UNK! {0006}> <UNK! {0007}><0x9A!>RESUME7MOTORTAB()<0xE4!><UNK! {0008}>~7'^S=-22636[ERRORDATA<UNK! {0009}>PSET%<UNK! {0005}><UNK! {0009}>JZt'.FNLPRINTINKEY$-73.7147*<0x9A!>e-7.0358E-13ERLB<UNK! {007F}>@K&'9<UNK! {0003}>ISCREENBLOADSOUND~F3ILISTE1
  9. 2623  AND!4OPEN#`ERASEIMPONCLSw<UNK! {0010}>^ek<UNK! {00FC}>8MERGELINEAND9ENDWRITETRONzGOSUB
  10. 47076  Cm0<UNK! {0080}>ERLWRq&DEFINTMERGE883:%USING<UNK! {0005}><0x9A!>/^O&X6S0INKEY$:ts CONTYINKEY$KoTO<UNK! {0080}>rDELETE,IFd<UNK! {00F7}>3D<UNK! {00FC}>$<UNK! {FF66}>}<0xE3!><UNK! {00F6}>PSETxOPENOPENtZo8[STEPNEWERROR<UNK! {0001}>Z0<UNK! {000A}>+EQV3c'A<UNK! {FF03}>TRON@<0x9A!>CLEAR<UNK! {001E}>225-AOREDITvHOFFPTRON<UNK! {0003}>`WANDDATASTRING$5@USRTAB(61WAITc<0xE0!>6--NEXTREM}<0xB4!><0xDF!>.TDEFDBL<UNK! {0003}><UNK! {00F6}>STEP10a<UNK! {00F9}><UNK! {00F9}>,nLOCATEKEY//ENDTROFF<0xB4!>NEXTSCREENDEFSTR<UNK! {0006}>DEFDBLBLOAD<UNK! {00FB}>Jn<UNK! {007F}>-DEFSTR)49DDEFSTRKEYX53$+USINGTAB(SWAP<0x9F!>STRING$7RSPC(13068USING;ya(DEFSNG1AUTO4
  11. 33139  ,IFd<UNK! {00F7}>aK<UNK! {00FC}>tIF'8LLISTLETPSET'<0xE4!>OPEN45&k[COLOR>INKEY$sFTPOKE<BLOADaOPENSAVEVARPTRSAVEW*[z^/<0xB6!>PNOTUBLOAD45J1H<UNK! {007F}>}LPRINTMCLSREMOPTION~B`2INKEY$cTHENa8FORUSINGSWAP5M<UNK! {0001}>KEY%dCALL<UNK! {00F6}>CLEARERR<0xB5!>n2POINTGOTOH8-MERGE/0ENDSWAP<0xB4!>3ELSE
  12. 64410  Kh}-TOY<UNK! {0009}>j!<0xE3!>BEEP}~aDELETEFNLOCATEn5<UNK! {0010}>USINGRANDOMIZEYCJ/0TROFFn'$ ON7ON<UNK! {0006}>5YLETp<UNK! {000A}><UNK! {0006}>ERROR!^ GIF"<UNK! {0002}>108PRESETLET<UNK! {00FA}>?<UNK! {FDEC}>b5Kk0FNONRANDOMIZEsM&HACD9ORREADMKD$RESUMEIFj'T13p?<UNK! {0002}><0xCB!>-`PSETUOFF<UNK! {000A}>rNEW9BSAVEWTO<UNK! {0006}>STRING$C<UNK! {0008}>7.98478E+29^TROFF@t9%q<0xE3!>DEFDBL8BSAVE<r<0xE2!><UNK! {00F7}>TOk8lKEY<UNK! {0010}>doPRINT'\THENRETURNY"<UNK! {007F}><UNK! {00FB}>c!
  13. 6001  7REMDEFSTRAND-RETURNNEWw3ERRRESTOREELSE<UNK! {0080}>(GMERGEAUTO<UNK! {0009}>POKETROFF<UNK! {0080}><0xE3!><UNK! {0006}>
  14. 60834  <UNK! {00F6}>,DEF:NEXT&H66C3^DELETEKDEFSNGp{%<UNK! {0080}>SWAPLETu'STOPJY=0IF<UNK! {0008}>FNSPC(BEEP<F GOTOLOCATEOR<UNK! {0001}>STRING$DEFDBLX^<UNK! {00F9}>SPC(T\FN<UNK! {00FB}><0xDF!>-*<0xE1!>CONTPSET<UNK! {007F}>JF8'9<UNK! {0005}>=MERGECLEARCLOSE<UNK! {0080}>G_.<0x9A!><0LOADOQCALLINKEY$SCREENTOTAB( u<UNK! {00F9}><UNK! {0001}>5~CLOSELINEAND92ORWHILEICLOSEON4LET>10ORo9TAB($=6o!<0xE0!>KEY8&O40021%BLOADRESTORE<0x9A!>/CONT(0Rp/0STEP6b$TWENDhRESUMEc0^BSAVE<UNK! {007F}><UNK! {0001}><UNK! {0006}>IMP<UNK! {0010}>\_RENUM9#ERRSOUNDLETLOAD<UNK! {0009}>NEWWAIT<0xE4!>SCREEN,va-13531<0x9B!>LINE&H4046<UNK! {0007}><LLISTWSTRING$CLS+LISTn3V7f7LINEMERRAERL1<UNK! {007F}>/r1
  15. 41256  <UNK! {0006}>SAVEFORtV.ELSE70<UNK! {0004}>;JNEXT\ERASEREME<0xB6!>g/TDELETEpBSAVEg}8USRGOTOk3INPUTMODLPRINTINPUTENDELSELLISTOPRESETGOSUB4LET<0x9A!>READ4|FORhONVTlRDEFSTRMERGE]{FwdTROFFlWRITEIMPRENUM<0xCB!>SCREEN10CSRLIN<UNK! {0009}>WIDTHTROFFtEqt<0xE1!>l<0xE0!>KqzWIDTHX.<0xE2!><UNK! {00FA}><UNK! {007F}>ERR1"USINGQIF^~LLIST<0xE1!>ERRr<0xB6!>'&H3C37<UNK! {00FA}>CLOSE8ONDEFSNGpCLOSE~^<EQV.STRING$<UNK! {0003}>RESUME<UNK! {FF19}>^"Az/CALL?FNHPRESET/<UNK! {007F}>0]<UNK! {0005}>NEWj<UNK! {0003}>;TOWENDSTRING$Oy3lELSEfdREM<UNK! {007F}>I?DATAERRORoD)CONTCCLOSETAUTOBSAVECSRLINLLISTC<UNK! {00F9}>Ve<UNK! {0007}>'VARPTRLPRINTv<UNK! {0003}>ORERRSCREEN+ <UNK! {0001}>RETURN<UNK! {0080}><DELETE9.50716E+27<UNK! {0002}>w<UNK! {0006}>G48RENUMt_rUSINGRETURNERLAND^a-=n/~OUT1{sc<0xB6!>4RESUMENEXT0HLOAD)s<UNK! {0006}>MERGE!ELSE5READ<UNK! {00FC}>1.5587E+35LETVARPTR^RANDOMIZE<UNK! {0007}>4su8[<UNK! {00FB}><0xE3!><0xE4!>UCLOSE<0xB4!>DEFOPTIONREADTHENc<UNK! {0003}>xXOR103"xIF!WEND?*tXOR<UNK! {0007}><UNK! {007F}>+w$NEW}BSAVEO<UNK! {0005}><0xCB!>
  16. 8243  SPC(wdBLOADDEFINT:O<UNK! {0004}><UNK! {0080}><UNK! {00FA}>pUSINGWHILEERL<UNK! {00FB}>><UNK! {0001}>DEFSTRSRETURN<UNK! {0008}>pGOTOw3RESUME)SPC(4THEN3X3OUT0K<UNK! {FD0C}><UNK! {00FB}><UNK! {0080}>AND"149-<UNK! {0009}>5INKEY$GMERGEC<UNK! {FD63}>[<0xCB!>4lLINEEQV[<0xCB!>ERL=TCLOSEEQVCANDwSOUND<UNK! {0003}>P7x8w4KEY<?COLORCLOSEdWIDTH,8LETt<UNK! {0001}>^}LLISTEQVINSTR'ERASEOPENJ`v_[MKDIRTRONsZ&HABD1ORzSTRING$DIMTHENRESTORE}^\/frLINEMPSET<UNK! {0080}>BLOAD+>?wqRETURN'1G<UNK! {001E}>%WC-12635PSETERLdDEFDBLS/<0xDF!>POINTMODBLOADLISTT#"IO!`<UNK! {0006}>LINEFNhGOTOk:STEPLOAD<0xE4!>2ENDSWAP<0x9B!>IGOSUBNEWYRETURNTRON<UNK! {00FB}>ExPaTOYp7PELSENEW&Mc!w<UNK! {0006}>MERGE^<UNK! {00F8}>TROFFk1=:rENDVARPTR$'xoWIDTH\^JqUCALL<UNK! {0006}><UNK! {0003}>OUTCALL:DELETE-9415nkNEXThf<0x9B!>;-UOPEN&O76435#.CSRLIN<0x9F!>INKEY$<UNK! {0003}>\0TAB(LPRINTELSE\REMCOLORRESUMESTOP{#Pzb/<0xB4!>S<UNK! {0003}>MUSR[>6vPSTEPfTO<PRINTNEWCLSFORvZHELSEE5.21337E-05)BSAVEE3TpBSAVEGOSUBnZRUN<UNK! {FD65}>iVARPTRRENUM^(DOR<0xB6!>INPUTREMLET-<UNK! {FDA3}>RUN`129.411{l!CSRLINSTEP8=30501KEY<UNK! {00FB}>DELETEELSEDEFSTRfYL4CtTHEN(^aw<0xE0!>1AUTO4
  17. 38775  )IFn|READVARPTR<UNK! {00FC}>nCSRLINUl<UNK! {00F5}>*PSETU<UNK! {0001}><UNK! {00F6}>`READHk0LOCATEIFINKEY$4478<UNK! {0006}><<0x9B!>aLISTCOLOROFFIF8fR({-31053ERLAERR,10Hc?<UNK! {0009}>8PRESETM,'SOUND-><0xB6!>.INKEY$<2<UNK! {0005}>M.H<UNK! {000A}>=o CLOSE^BWHILEDEFDBLPOKEFN<UNK! {00FA}>$2DELETEDEFSTR;J/DEFSOUNDLETENDSWAPLLISTOLOADGOTO&REM<0xE4!>GOTOCs0d<UNK! {0006}>X77f<0x9A!>REM8}WI>\POKE<UNK! {000D}>STOP<0x9F!>8MERGEcJj<UNK! {0001}>DEFINTn'$T<UNK! {0007}>EDITH00STRING$KDEFSNGp{%`SWAPLETN'WAITPSET<UNK! {0005}>7{i[p>USR[-<0xB4!>LINEAUTOOFFLOCATEH<UNK! {0003}>xXOR5g"U6p<0xDF!>ATROFFECONT'<0x9F!>26728pWRITEBSAVEERRORCSRLIN<UNK! {FDFB}>Ca6TAB(WIDTH+~eSTEP6ORiPOKEVpWIDTH0-CLEARd8<0xE5!><UNK! {FDBB}><0xE2!>ELSEGOSUBWHILEZ,mYORx10ERLTO<UNK! {007F}>mqDEFSTR<UNK! {0009}>9@+NOTl{"'.USING<UNK! {0008}><0xB5!>POINT^z|r126TTROFF!b_tOPTIONw>}qUCALL<UNK! {0006}>-195221.30262E-05+
  18. 64412  <UNK! {007F}>p&<UNK! {001E}>5<0xCB!><0x9F!>INKEY$<UNK! {000A}>X@<UNK! {000A}>ELSE<0xB6!>]<UNK! {00F8}><UNK! {0001}>HEQV~,><UNK! {0007}>(<UNK! {FFDF}>AERRORVBLOAD14463h?<UNK! {0001}>pERR<UNK! {000A}>POKELOCATESTRING$zYf.COLOR-16110z/p)USRRpDEFINT[QOFF<0xE0!>LIST<UNK! {0006}>LOCATE$2CLSSTRING$08ERLLETOR0ENDTROFF<0xB4!>3OPTIONCLEAR0REMSTOP<UNK! {FE0E}><UNK! {FD64}>^<UNK! {0001}>+RESUMEB<UNK! {00F9}>DEFSTRBLOAD8<UNK! {0009}>52)USING<UNK! {0005}><0x9A!>/^n0OCDyTROFF<UNK! {001E}>u]nDEFINTq>ENDqEOPENk1.73577E+11,FRANDOMIZEXIFz8THENOFFPSETTPRINT<UNK! {00F8}>05{-17086<UNK! {0006}>N hLINE)<EQVZRENUMLISTOFF<UNK! {FF4D}>^\)`r<UNK! {0003}>PSCREENDATABLOAD<UNK! {0008}>0HF7DEFINT}BSAVE<UNK! {001E}><0x9B!>CALLSWAPCXviWHILE7GOTOMOTOR&.k*TROFFU5KEYp4DEFWAIT<0xE5!>BSAVE<@2OFF<0xE0!>:RSAVE<UNK! {00FB}>}POINT1DEF?LPRINTIMPqRANDOMIZEZDEFm0NEW0<UNK! {FDA6}>/@7j\MERGE8{cIwERROR'ERRORANDTRONf7IJsPSTEP3-&
  19. 59956  <UNK! {00F6}>,LLIST7O5<UNK! {00F8}><UNK! {000D}><UNK! {00F7}>aSWAP<UNK! {00FC}><UNK! {0005}>IF<UNK! {00F7}><UNK! {000A}>RESTOREWHILEPSET%RESTOREOPEN4$&N[MERGE>CONT$J~EQV<<UNK! {FD9E}>2#GRESTORERENUMBDEFDBLz<UNK! {0002}>ENDTHEN<UNK! {000A}>PSET?BLOAD[<UNK! {007F}>y<UNK! {000A}>mNEW;BSAVE <0x9B!><UNK! {0002}>6<UNK! {0009}>vTROFF:wE<UNK! {007F}>LISTY<UNK! {0007}>A?ERASEoCOLORKEY<0xB6!>4<UNK! {000D}>CLS+PRESETDEFtj<UNK! {00F9}>GOTO[8TRONKEYTROFFddNOT<0xDF!>6a
  20. 6912  oqPRESET'$='6FORERASEMERGE10{cIiUSINGWHILE^<0x9F!>^<UNK! {000D}>}AAUTO]e<UNK! {007F}>CLEAR|$CAND3160(.KEY's{<UNK! {00FA}>NEW<UNK! {00FA}>WFOR<UNK! {00FC}>nNOT'8<0xB5!>LETERROR'>OPEN^<UNK! {0010}>"QTAB(COLOR<UNK! {00F8}>5o>3<UNK! {00FC}>52COLORSTRING$3WRITE<0xE5!>0^ z2r\?<0x9B!>AMOTOR[80zRENUM_<UNK! {0006}>IMP?<UNK! {00F7}>POINT,INKEY$ELISTMOTOR_THEN<0xE3!>DIMMERGE<UNK! {00F5}>pUSINGFN0=mON<UNK! {0080}>k<UNK! {00F9}>2INKEY$MERGEi+MERGESTOPTROFFdDEFSNGORR37ORSTO<0xE4!><UNK! {FD7C}>0<UNK! {0009}>9hLETMOTOR8}cqBSCREEN<UNK! {0009}>^NOTDEFSTRe19073zeLLIST{%.GOTO<0xE1!>5H*PRINTCDEFSTRIMPo{<UNK! {00FA}>NEW<UNK! {00FA}>WFOR<UNK! {00FC}>nIF'8WENDLETERROR'>OPEN)1&i[READRENUMWHILE9F*'<0xB5!><0xB6!>jSTRING$AUTOPOINT<UNK! {FE30}>d<UNK! {0008}>50|?>f7TAB(MOTORk'<UNK! {000A}>WIDTHTROFFNOTPRESETWSTRING$<UNK! {0006}>STRING$C6322850<UNK! {0009}>7}8DIMRENUM&-5.35377E+13"3USRIFINPUT]VARPTR)LETGENDNOT<UNK! {FF10}>991<UNK! {0003}><0xE4!>,4247INSTRON0_RETURNDEFSTRRESTORESTRING$DEFSTR+INSTR[|H/INKEY$TROFF<UNK! {0003}>'ERL2151RESUME&H2C29KEY+s=<UNK! {00FA}>f^}o<UNK! {00F8}>tINPUT'1USING<UNK! {00F7}>STEP'<0x9A!><UNK! {00FB}>LETpbk58331=M3-POKESTRING$<UNK! {00F7}><0xCB!>6_THEN<UNK! {00FB}>&H22CFLOCATE=POKE>?SOUNDABLOAD[ZH/PRETURN9EDITkINSTR<UNK! {0006}>ERLCBj]PRINTE1
  21. 34435  TAB(#q
  22. 44876  ORLOCATEjRETURNPOINTRESTOREREAD<UNK! {0080}>LETCLOSE8RETURNPSETLETOR<0xE1!>3SCREEN
  23. 64457  cqYx<UNK! {0003}>0<.USING<0xB5!>DELETEWIDTH<0xE4!>*RANDOMIZE+,638nC@DOFF+W&H2C6F9<UNK! {0006}>aPOINT100STEP<0xDF!>KIMP:TRONPRESETP<UNK! {00F8}>AUTO_|<0xE4!>DELETE?1<UNK! {00F6}>i<UNK! {001E}>MERGE>0sCLOSEThUSING<UNK! {00F9}>'STRING$<UNK! {0001}>XOR<UNK! {FF19}>x"[2p<0xDF!>#TRON%COLOR[}H2<UNK! {0009}><UNK! {0003}>\BSAVE)ONIFREM<UNK! {007F}><UNK! {000A}>zJ<0xE5!>t^<0x9B!>46-6FORREM&H7AF1TDEFDBL1WHILEERASE[2<UNK! {00F7}>GOTOe8CONTKEYCLSdNEXTOR<UNK! {FF30}>/<UNK! {0004}>Y<UNK! {0003}><0xE4!>BLOAD}nRESTORE-=||],DEFSTR/}~ZwaDEFSNGRESTORE<UNK! {00FB}>FN<UNK! {0008}>SCREENORW-24522TROFFSAVE7<UNK! {FE29}><0xE1!>9RESUME<UNK! {0006}>q<UNK! {000A}>KEY#s<0xB5!>LLIST12216q<UNK! {00FC}>\TAB(X|LLISTSTRING$&O37777720572OPENda#bU_.OPTION#<0xDF!>/POKE<UNK! {00FB}><*F<UNK! {0001}>EQV<UNK! {FD19}>PRINT"<UNK! {0007}>2BSAVEUSR)REMAMOTOR#<UNK! {007F}>H%PWHILE9XOR<UNK! {000A}>CLEARBLOADSOUND~|pWREMc^<0x9B!>46-BFORREMLETDEFDBLm1TDEFDBL1WHILEERASE[2<UNK! {00F7}>GOTOe8NEWKEYCLSd3<0xB6!>LPRINTIOPENBEEP'BSAVEELSEPOKE5#EQVFGET\GOTOR=MERGEKEYly<UNK! {0080}>wERR<SWAPEQVRESUME('X7qtTHENnfp <0xB5!>]ANDzoTOCONTq<UNK! {0001}>30.6042XkLLIST/<UNK! {FE62}><0xE4!>'Pvr",FN>WRITE<UNK! {0004}>OT<UNK! {FFA9}>LPRINTZSTRING$REMUSING<UNK! {FF69}>4W,frDELETEJERLVSTEPi}RESUMEk'&H2FCCW-8983<UNK! {000A}><UNK! {000A}>1&O24632)NOTMNSDIM*.#KEYS^DEFSTROFFON<UNK! {0003}><0xCB!>Z2RETURNTO!lSCREENDEFINTLPRINT-2.41713<UNK! {0006}><UNK! {0002}>RANDOMIZE`LISTLPRINT1NEW0<UNK! {FDA6}>/@7j
  24. 4106  I<REM'<0xB6!><UNK! {00F6}>RESUMElYVCCyTROFFF'ohWENDm<0xE4!>JqbOPENjsTODEFDBLdERROR-181175<UNK! {00F7}>bmLINEOPENNEWWAITDNEXT~RANDOMIZE<UNK! {FFFA}>[o<UNK! {00F5}>TOFFVDEFINT<0xB6!>TROFFkSOUND'RESUME<UNK! {FF45}>'T32<WENDN<UNK! {0004}>DATAFN<UNK! {0080}><UNK! {007F}>5167<UNK! {0003}>g<UNK! {0003}>tTO<UNK! {0004}>+<0xE3!>&O37777724113<UNK! {0001}><0xE0!>dBLOAD 2nC+"pDEFINTT4RESUMEMODSCREENSTRING$<0xB4!>nEND<0xE4!>VARPTR8XTHENDEFINTLPRINT42OPEN<0xB5!><UNK! {0080}>SCREENREM?LETWAIT<UNK! {00FB}><UNK! {0002}>/C-LIST0<UNK! {0009}>WlLOUTEND<UNK! {00FB}>~INKEY$wRESUMEPOKE0ERRJ<UNK! {0080}>5Stc& 17PSETEDITyTOREADnBEEP26.2494'<UNK! {0001}>LLISTUSINGLOCATE<UNK! {00F7}>><UNK! {0007}>&O37777752465kLOCATECOLOR<UNK! {00F8}>JLIST3<UNK! {FD9A}>RUNSTRING$}<0x9F!>EDIT<UNK! {FDDA}>6SAVED"EDITLISTL?+ESU,J<UNK! {000A}>RESUMENEWDIMPSETPRESETSTRING$ONERLC'3@.ERASESOUND-ERANDOMIZE>asSTOP<UNK! {0004}><UNK! {0001}>t<UNK! {0010}>/OLETVARPTR/DEFRANDOMIZE<UNK! {00F9}>INKEY$OUT&O30673LPRINTIFRETURN<UNK! {0007}><0xE3!><0xE3!>SCREENmYORd105RESTORE0CERR++USING<UNK! {0010}>vRESUMEOUT{<I<UNK! {0006}>USINGTRON3|<0xE1!>FG'v='RANDOMIZEz8j<UNK! {0006}><UNK! {00F5}>5TAB( UBq G<UNK! {00F8}>:BSAVE<UNK! {000D}>RESUME3@PRINT<UNK! {001E}>'<UNK! {0003}>INSTROUTf<UNK! {00F7}>DEFSTRDATAXORSAVE&5WREAD\=NEXTLVPOKE6ORBLOADSTRING$<UNK! {00F5}>F+<UNK! {00F9}>LGAUTOUSING/<0xDF!>ORDELETE'RUN[866PdFMERGENTOLINESPC(&O15030TAB(SCREEN$<0xB6!>d+6zWAITSTOPoSAVEKEY+5_DEFDBL1WHILENEW[2RENUMGOSUB]`DIM<0xE3!><UNK! {000A}>d7MODCSRLINU<UNK! {0001}><UNK! {0010}>[<UNK! {0003}><0xE4!>,4B@9INPUTGP9R:]G5<UNK! {007F}>S-18435POINTLPRINT1.1629E-05DEFINT+1RETURNbm37691RESUME'm3USING?NEXT&H64F8:a><UNK! {00FC}>FORiA<UNK! {00F9}><UNK! {0001}><0xE1!>DEFSNG<UNK! {0001}>jOPEN<0xE5!>:&H5B62-BSAVE<0xE2!>s<UNK! {00F6}>kLIST<0xE1!>OR210<0xCB!>OPENPSET<UNK! {00F9}>\GxERL<UNK! {0010}><0xDF!>zV6BLOADGOTO<UNK! {007F}>W<UNK! {0003}>j19rhSTEPSTEPSTRING$"<UNK! {0006}>10cOFFcGMOTORl&O37507DEFSNG<0x9F!>r<0xCB!>#<0xE3!>OFFNEWNOTPSETREADtk<UNK! {00F7}>CALL<UNK! {00F7}><UNK! {00F9}>gLINEDELETELOCATE"+
  25. 23312  LOAD>ERRWEND;TROFFTHENZTC<UNK! {FE03}>DEFSTR<0xE5!>-Cq<UNK! {0080}>ERRORERRRETURN^R^BEEPY/SWAP5EQVJ+G<UNK! {0002}>LLIST<0xE1!>SCREENWRITE$X,CLEAR[O<UNK! {0006}>JSANDxK<0xB4!>pBLOAD50~CLSERL=B<4l<UNK! {00F6}>x[q>FNv3VARPTRPOKE7
  26. 3  <0xCB!>166`Yr<UNK! {0007}>CRETURNxRUNRENUM}J<UNK! {000A}><0x9F!>NEW9ONK<<UNK! {0004}>IFA0MERGETAB(PSET#<UNK! {0010}>g:5$U<0x9F!><0x9F!>rSTOP%5_DELETEob>&H1B6C"eHREAD<UNK! {0001}>LISTePRINTEQV<0xE1!>3'
  27. 8698  *<UNK! {FD57}>gTHEN<0xE3!>IF7OPTIONCLOSERENUM0{?uw'<0x9B!>ANDOPTION^y]<UNK! {0005}>X9EQV',u<UNK! {0002}>FOR<0xE1!>aX0ULET<UNK! {00FA}>NEW<UNK! {00FA}>fFOR<UNK! {00FC}>EREAD0l+<0x9B!>UMERGE>0s)<UNK! {0080}>RESTORE8EQVwERL'60BSAVEFNMOTOR<UNK! {001E}>}rRESTOREj"'$5WEND YCWFOR9POINTKeQK<UNK! {000D}>?DELETETROFF<UNK! {00FA}>pUSINGKEY*=r<0x9B!>2qXOR2)WAITNEXT0CLOSELPRINTMOTOR`END?ERL6<UNK! {0001}>
  28. 50144  >,EQVH<UNK! {00FA}>COLORMODzh<UNK! {00F5}>M<UNK! {000A}>{<0xB5!>IEND<UNK! {FD12}>^Q<UNK! {0002}>3p=10FOR5<0x9B!>K<UNK! {001E}>.IF<0xE1!>I<UNK! {00F9}><UNK! {000A}>Ye
  29. 64012  LIST^~~<UNK! {00F8}>SWAPINPUTn6LOAD5f"PRESETFORV<HFORIF5<0xE4!>6L~5HPOINTUx^6-3.39619E-05<UNK! {00F7}>EIFEFOPTION8rNEW<UNK! {0006}>BSAVE<0xE2!>TO<(--rQ>_<0xE2!>MOTORLPRINT()OTROFFSTLPRINT6.11228RESUMEGOSUB]&O2460657DEFINT4MOTOR3PRINT<UNK! {0010}>J<UNK! {FD3A}><UNK! {00FB}>6;LIST-e*26673<UNK! {FDF4}>HG[<UNK! {0010}>r<UNK! {FD1F}>^USRLOADy]<UNK! {0005}>29<UNK! {0001}>LPRINTt'NOT <UNK! {FE2E}>DEFSTR<UNK! {00F6}>oePRESET$<0xE1!>&sGCCLOSE(>OWHILE#+SWAPMOTORTO-jWIDTHERRORERR<0xCB!><UNK! {0010}><0x9B!>DELETEyINKEY$5JBEEPREADVARPTROPEN,STRING$-19032-DEFDBLFNx{p<0xDF!>XORPSETDEFSTRBLOADIELSE^-ERASE<UNK! {0007}>MODd'TO6<0xE5!>)?3,DEFSNG@*<UNK! {0004}>;JME<0xE2!>$J<0xCB!>#<0xE4!>TAB(TO<UNK! {0008}>BSAVEGOSUB=\<UNK! {00F9}><UNK! {00FB}> hVARPTRLOADIMP0OEQVC+<0xB4!>3O<0xE2!>NOTPRESETSOUND#h/CLOSECLOSE/WAITLETRESTORE'<UNK! {00F7}>i<UNK! {00F6}>IINPUTklSTEP<UNK! {0010}>^<UNK! {00F8}>F+NEXT/3<UNK! {00F6}>ndenVARPTRlRESUMEv1.42333E+12a2IF!IF_X<UNK! {00F8}><UNK! {FDD8}> LINEOPENP[r&%LOCATETRON<0xDF!>M>&\@7BLOADSTRING$<UNK! {00F5}>LOCATE-3.48529E+13f[USINGEhERR<UNK! {000A}>^<UNK! {00F8}>'POKE>TO6<0xE5!>B?3,STRING$sf<0xCB!>SE<UNK! {0009}>LDEFINT]Z<UNK! {0003}>0SCREENBEEP\7STEPBLOADc10[}<UNK! {00F9}>XEDITFOR<0xE3!><0xE4!>=<UNK! {0001}>p<UNK! {FDE6}>DEFSNGal}-REM=fY<UNK! {001E}>+MERGE`&H270EwIMP<UNK! {0002}>DELETEORSWAPm*CAUTO<UNK! {FF6D}>CONTONWAIT$USRSPC(8ELSE<UNK! {0006}>o5<UNK! {FF34}>E<UNK! {0004}>XOR^<0xDF!>wENDSTRING$VMERGE-2.05995E+200,i}2>USR^><0xB4!>WSOUND<0xDF!>KEYRESTORERANDOMIZEDEFSTR23<UNK! {0002}>qL6p?LOCATEVARPTR6DEFSTRLOCATE<UNK! {007F}>V(Zt-INKEY$k3kSTRING$5R4TAB(<UNK! {0009}>!1f46-DEFSTRIFREM{SWAPk+XDEFDBLGOTOBSAVEANDn<<UNK! {0003}>TROFFINPUT0- XWIDTHPOKE<0xE4!>ERASE-0.000767678+54SPC(EDITLET{`Fs\POKE<UNK! {000D}>PRESETSTOPHN<0xB4!>J3<UNK! {0002}>DEFQD 
  30. 8514  
  31. 18189  -ANDSOUNDPSETD<0xDF!>MOD<UNK! {0005}>IF$<UNK! {001E}>AUTOPOINTAUTO#D<UNK! {00FB}>xRENUM<UNK! {000D}><UNK! {00FA}>[LOADEQV-/*pRESTOREHLLISTS~/9<UNK! {FF2E}>U5S6CLEARMERGE^3*2[|K>4LINE-b1DELETEZOFFWEND<UNK! {000A}>0)INSTR4.48917E-06sVARPTR6k<0xE1!>O<UNK! {007F}>CSRLINgONBLOAD<UNK! {00F9}>RUNz%><UNK! {FD7D}>>15433LPRINTSCREEN<UNK! {0003}>JKEYSAVEPRESETERLWRITEt<UNK! {00F9}>nDEFSTR<UNK! {0009}>10{WIDTH--<0x9B!>MOTOR,ERASE003AAUTO<UNK! {FD6C}>KONWAIT$#TAB(4<UNK! {0006}><UNK! {000A}>PRINT>SWAP31595<UNK! {00FA}>_<UNK! {0006}>u10<UNK! {00F8}>NEWDATAJ<UNK! {0005}>DIM<UNK! {0009}>PSET$STEPRETURNe$"IFERROR<0xE2!>XORPSET<UNK! {FE46}>W<0x9B!>\COLOR9170IELSE8FDEFDBLz1INPUT*xTROFFEcI!FOR1MOTORNEW:<0xB5!>NEXTTROFFDELETESPC(<0xE3!><UNK! {0010}>M<UNK! {000A}><UNK! {00FC}>TOdBSAVEjCwFORNEXTY15335ERASEOFF<0xB4!>IMPRETURNINKEY$rSPC(PRESET==0.KEYTRONOMKEY<0xDF!>\<UNK! {00F7}>LLIST&O72745<UNK! {00FB}>184READCSRLINI+b5XORERASE{{*RANDOMIZEGOTOUSINGb^GOTOUSINGRANDOMIZEYBY10G<0x9F!>vN-1.92456E+28h104ERROR<UNK! {0006}>65<UNK! {0008}>d;ad<UNK! {0005}>F5'.ON<0xB4!>RENUM#POINTMODD129IFBEEP<0xE1!>WAITPSET^F0LETLOCATEOR
  32. 54705  LET^5.40037E+29G<UNK! {FF08}>CONT8<0x9F!><UNK! {00F5}>l*|[BSAVE<UNK! {001E}><\STRING$<UNK! {00F5}><UNK! {000A}>)<UNK! {0004}>uE_WENDENDfCNINKEY$VJAUTOBLOAD^COLORNOT)<0xE0!>DEF+<0xE2!>=GOTOWRITE8<0xB5!><0xE3!>3dFOR<UNK! {0004}><UNK! {00F7}>]CONT<UNK! {0004}>qLOADOFFERRDEFDBL<UNK! {FDDB}>S'<0xE5!>w71\CALL8WHILEcOafRESTORE<UNK! {00F6}>RETURN<0xE1!>y<UNK! {0008}>t~6HWAITlDATA<UNK! {0004}><UNK! {00FB}>BLOADWIDTHCLSDEFINTG<UNK! {00FB}>KEY<?<0xDF!>PRESET3<UNK! {00F7}>ajERRORtSPC(#<UNK! {00F9}>TROFF=L<UNK! {FF59}>OPEN'RANDOMIZE<UNK! {0006}>QPSETCOLOR6FNdCT<0x9A!>PENaCLEAR<UNK! {0003}>STEPSTOPg-5z0r<UNK! {0004}>CPSET?BSAVEUU'0MOTORt~<0xE1!><UNK! {0003}>4wSTRING$MOD8<2<0xE4!>{4TAB(H}?0\%10KEY[uWENDDEFDBLBLOAD<UNK! {0003}>LOCATE 2RETURNSCREEN108PRESETKEYAND2END<0xB5!><0x9A!>LETGOSUB
  33. 51121  ERLlrRENUMmLINE<UNK! {0009}>5<UNK! {FE4C}><0x9B!>DATA{u;DEF<UNK! {FD22}><UNK! {000D}>ANDCLEARLETQLINEJ=ILOADRETURNRUNNEXTLOCATE9ONRESUME7<UNK! {00F5}>TO)DELETE3:1ERR^PRINTd<UNK! {00F6}>]IF%PIMPCOLOR''EDIT<UNK! {0007}>P[&*[STEP<0x9A!>TROFF16729<UNK! {000A}>LPRINTORYBEEPPRINT<0xE3!>DIMc)"!{&ERROR?<0xDF!>RTAB(o<UNK! {007F}>J<UNK! {000A}>2STOP9CLSVSTRING$POINTWC-12719<UNK! {0004}>NEWC<UNK! {007F}><0xB5!>TRON?h<UNK! {0007}>REMSTOP<0xE2!>CTOBEEPB<UNK! {0001}>rRESUME|10<UNK! {00F9}>IFD.SPC(KEYIMP92<0xB6!><0xE3!>uPRESETON+<UNK! {FDBA}>AUTO{-0.000864061<UNK! {0009}>o!<0xE0!>KEY873:%USINGTAB(OPTIONELSELLISTi@L4X0STEP6b$sWIDTHu^<UNK! {0007}>oTOTOfLPRINT<UNK! {001E}>READd<UNK! {00FB}>?RENUM-5300<0xCB!>0<UNK! {000D}>LET<UNK! {00F5}>#4SCREEN)7&LIST[XOR<0xE2!>.MRUNVPOKE6OR@0-RESUMEERRDEF^4DIMINSTRCLEAR<UNK! {0005}>_`(&[qERL-LINETAB(YWENDDEFSNGe<UNK! {0006}>&4&H2E1AINKEY$105<UNK! {0004}><UNK! {0080}>MZCERRORorKEY<UNK! {0080}><UNK! {0010}>OFFWHILE
  34. 53763  ~+s<UNK! {0010}>.KEYMSn<UNK! {00FA}><0xE3!>50587-29187RESTOREa-13.2799{7228SCREENg{9%pSOUNDRESTOREDELETE<UNK! {00F8}>WIDTHmYQ5/dNOT2fpe<0xE1!>ENDUSING{2.04921E+32_RENUMQ3READ>DATALLISTWAIT0<UNK! {0007}>D4u10&O55776WHILEz>LIST>5CLSAFOR.&\BSAVEPSET8dD3148MOTOR]INSTR[<0xE5!>9!&l.IMPWPOINT9AUTOPOKERESUMEelM.WHILE7 <UNK! {0004}>;<UNK! {0080}>FOR3<0xE2!>o18855RCOLORTHEN<0x9F!>POINT<UNK! {00F9}><UNK! {0010}>LTROFF=<UNK! {0007}>w<0xE1!>ERROR<UNK! {FF42}>-28.9653OFF-NEWEQV2\q GOTOh|DEFSNG2FcwwUSINGRESTORE^ELSE^(Y=J/0TROFFn'$(WIDTH7<0xE3!><UNK! {007F}>#XKEYy<UNK! {0001}>COLOR<UNK! {00FA}>/<0xB5!>2>STOP0IFTq<0xDF!>-<UNK! {FF26}>OFFSCREEN<UNK! {00F5}>0NEXT5N.<UNK! {0006}>DANDDIMDEFINT)<?APOINTLOCATERESUME<UNK! {FD62}>&Gza#SWAPREADPSET<UNK! {0080}>BLOAD'<UNK! {0006}>,~5NEWoFN=TOONCOLOR<UNK! {0080}>FOR3k<0xE4!>7GOTOOR).p(PSETU<OUT#DCALL<0xE0!>PSETUSRSTRING$0SOUNDLINECLEARDEFDBL%Y
  35. 50942  4#@4ONyQq10DEFSTR<UNK! {00F6}>8->I2SOUNDRESTORESCREENNOTKEY<UNK! {000D}>&O27075WtTROFF1xot<0xE1!>wAND<UNK! {0006}>0,WRITE{ REMERROR!<0xE0!>*9ON <UNK! {FE59}>rLLIST*<UNK! {FF75}>WEND<UNK! {0003}>Jp(iCLOSEOPENDATACLSfCLOSEThUSING<UNK! {00F9}>'STRING$<UNK! {0001}><0x9A!>PSET81Z/arPOKE"\$BLOAD.&H6748#<UNK! {0009}>xTAB(CDEFINT<UNK! {0006}>XORtS}zBEEP<UNK! {0009}>INPUTAND-3.65859E-10MDEFDBLMODSCREENTOUSRneRUN<UNK! {00FB}>"'MERGE)INSTR>)9R37ORSTO<0xE4!><UNK! {FD1F}>,0~<UNK! {0006}>PT7-13084g<UNK! {0004}><UNK! {0010}>I%CLEAR'RANDOMIZEELSECONTWYNEXT?/R<UNK! {00FB}>SY;E<UNK! {FD18}>USINGx.YKEY<UNK! {007F}><UNK! {0001}><UNK! {0006}>CLOSEdTRON8BSTOP1DIM%<UNK! {00F9}>1092<UNK! {FE55}>OPEN<0xE5!>:&H5B62MERGE>INKEY$syA<0xCB!>WIDTHORoMOTOR<UNK! {0003}>POINTREADl^I7kr<0xB4!>P
  36. 3350  =<UNK! {000A}>9<UNK! {FF39}><0xCB!>5PSETGOSUBREMONEXTW <0xE4!>E<UNK! {0010}><UNK! {0009}>76END236o#<0xB6!>a`<0xB6!>IMPLIST<UNK! {0003}>GOSUBRETURN<UNK! {00F6}>DEF?DATALETCLOSE8RETURNPSETLETOR<0xE1!>3SCREEN
  37. 35737  uoXx<UNK! {0002}>=FORw03%wREM'ELSEEQV^e18959/SLOCATE"'moDEFSTR7<0xE0!>G&O37777744531GsOUTDEFDBL/RESUME47676<UNK! {00F9}>%<UNK! {00F9}>ERROR105<UNK! {FE55}>OPEN<0xE5!>:&H5B62MERGE>INKEY$sSK<UNK! {FDAA}>ORfLISTON/<UNK! {FE19}>^n2s21676PSETUERL[9+w"MOTORjNOTGLOADGOTOSOUNDONEXTW.REM6*ERRFVQCDELETEopSTOPTaCALLWHILE!FN/TO;hGOTO<0xB5!><UNK! {0006}>ERASE
  38. 61313  <0xE3!>OPRESETRETURN-RESTORE<0x9A!><0x9A!>Qa0^
  39. 6775  INSTRMERGE[<UNK! {000D}>9;0SOUNDRESTORECLSSPC(COLOR<UNK! {000D}>YR5UeTO3ua <0x9B!>wVARPTR<UNK! {0006}>$ISAVE~s<0xE2!>STEP198`I-5942<UNK! {0003}><UNK! {0010}>136v7>BLOAD47&k[>WIDTHINKEY$5UAPOKE<0xB4!><0x9A!>eREMCOLORRESUME<0x9B!>q'Mzb LINELETERL<UNK! {0080}>PSETo<UNK! {007F}><UNK! {0009}>|4NEWlERRGPRINTBEEPCLOSEFOR~_C<0xE4!>4*MOTOR3{?7138 LOAD_20541TRONln<UNK! {0003}>2)WAITNEXT0CLOSE<UNK! {00FB}>LPRINTdENDAUTO<0xB4!>ySCREENPSET0REMWIDTH<UNK! {00FB}>[n<UNK! {007F}>vKEY=`7219INSTRe<UNK! {0007}>c8'PRESET<UNK! {FEB8}>INKEY$SWAPi-HJr0<0xDF!>6.87915E+16w><UNK! {0006}>Y_OPEN<UNK! {0006}>&<UNK! {0006}>LPRINT3<0x9B!>Z?TIMER<0xE1!>BLOAD<0xE1!>READ<UNK! {0009}>PSETUSINGNOTLINED5$k[COLORPOKETROFF<UNK! {000A}>RUNT<UNK! {00FC}>WIDTH<0xB6!>.PSETPRINTUSINGLETg-2.82115E-12<0xCB!>510=d5<UNK! {FE39}>ERR<UNK! {000A}>PRINTIFMOTORCEND\]WIDTHEl<UNK! {0008}>66Z<UNK! {0009}>IMPo22720Q<0xE3!>O<0x9A!>>M{BLOAD<UNK! {00F9}>Yv2DIMKEYTROFFdENDORLINEyREMREAD-28526DIMCo~!ONIG-hUSINGSCREENl1<UNK! {0010}>I0SCREEN<UNK! {00FB}>RANDOMIZEELSECONTWYP?28PRINTt<UNK! {0007}>PSETDATA509<UNK! {0006}>MOTORC<0xDF!>?s&H5DDE^<UNK! {000D}>CON1.22473E+14OPEN297155.CSRLINUSINGWHILE<UNK! {0009}>6@USRLPRINTINKEY$FORBEEPNEWSTRING$RUN<UNK! {0080}>i"!z!<TPSETM<UNK! {0002}>4<UNK! {0010}>:w4NEWfTOWMERGECLEARERL<0xE3!>-7.49038E+22dq^%<UNK! {000A}>DIMERASEopKEY<UNK! {0010}>4LOAD<UNK! {00F6}>CLSUSR<UNK! {00FC}>Z2OPTION<UNK! {00F7}>)8ERL<0xB6!><UNK! {00F8}>(EORTRONDATAOPTIONCLEAR-25150SAVE`h0{USRLETUZ)=LOCATE$R";;USINGUSING<0xB5!><0xE0!>TROFF_2109rrINSTRs%<UNK! {0004}>0LOAD<UNK! {00F8}>BSAVEDEFPRINTf\3e{<UNK! {00FA}>NEW<UNK! {00FA}>WFOR<UNK! {00FC}>n+Is
  40. 45909  <UNK! {0008}>PgrkxVARPTRNEW<0xB4!>5BTCLOSEEQV<0xE2!>.LLISTRUN<0xDF!>READe-0.834023<UNK! {FF32}>0<UNK! {0009}>>PDEFDBL7BSAVE~<UNK! {0005}>USING<UNK! {0006}>10MPFOR'B<0xDF!>K<UNK! {00F7}><UNK! {007F}>#REM}0)NWHILE<0xDF!>YAUTOBSAVE`LLIST=TOGOTORETURN8y9REMPOINTDELETEOR33END
  41. 27267  &HAC0B-<UNK! {000D}>=WIDTH7DIML]<UNK! {00F9}>AND<UNK! {FE67}>PRINTjRESTORE<UNK! {00FB}>4<UNK! {000D}>SCREEN<RESUMEf9WIDTHTROFFtWveDEFSNGkCLEAR<UNK! {0006}>q<UNK! {0080}>KEY#s<0xE2!>DEFDBL0IMP.KLIST#DIM%?104RUNFOR<UNK! {0002}>LINEOUT5$k[COLOR>INKEY$sFT<0xE5!><TAB(.DEFSAVESTRING$<0x9A!>8k2z10yAUTO?SCREENRSTEP[<UNK! {000D}>=K4<UNK! {0005}>9STRING$HTODEFCOLORJv2,<UNK! {0004}>CALLIEQVCALLEDIT<0xDF!>CONT<UNK! {0002}>-z\#45021<UNK! {0001}>BSAVEDEFn2<UNK! {00F9}>IFa8/<UNK! {FD7D}>l'CALL'ERRORSCREENDEFDBL]<UNK! {000D}>>WEND2333->I<UNK! {00F9}>9%EDITMERGEPSET{<UNK! {00F6}>IINPUTklSTEPHORz|r126TRUNt<UNK! {0007}>ZDIMCALL1C<UNK! {0006}>B78<UNK! {00F9}>M<0xE2!><UNK! {00F8}>d"a$<UNK! {00F8}>ERASE|%eSWAPLETu'YOPEN'<0xB5!><UNK! {0006}>QTAB(COLOR<UNK! {00F8}>\e> ANDLINE<UNK! {00F9}>CLS6BEEP>LPRINT203"RESTORESAVECLEAR?c<0xE0!>DEFINTDELETEPSET<UNK! {007F}>POKE1.33727E+19-6247SWAPo<UNK! {000A}>~}AUTO hMOTORK6$FORERASEnrMODOPEN4STEPFN!b<UNK! {000D}>7SOUNDOR!eFREAD9TROFF0NEXT+V3>lRANDOMIZECSRLINM<UNK! {FD7E}>H^LET<(D9LET$'CONTe<UNK! {00F5}>DELETEDEF7EDITWENDz<UNK! {00FB}>KEYGOSUBJSOUNDUSRMOTOR}jz>Sh&VRESTOREP<UNK! {00F6}>INPUT0&O37777767046GOTOPOKEGOSUB
  42.