home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / resume.lbr / RESUME5.BAS (.txt) < prev   
Encoding:
GW-BASIC  |  1993-10-25  |  10.0 KB  |  32 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!>+dgx2MOTOR<0xDF!>-<<0xDF!>cPRINT=<UNK! {001E}>-CSRLINNEWDIMPSETPRESETSTRING$RENUMERLCIMP3}<0xE0!><0xB5!>^TOK6XORDIM<UNK! {000A}>o~RENUMBLOAD5LDEFDBLORBSAVElRETURN<WRITE'INPUT{CLOSE<0x9F!>mNEND=<0xE3!>7<UNK! {0080}>MOTORNEXTTRONTAB(qERLOROREADug<UNK! {0009}><POKE<0xB6!>MERGEPRESET{g<0xE1!>NEW<UNK! {FDF7}>STEP2<UNK! {000D}>99ENDAUTOQ0<UNK! {00FC}>LLIST4$TAB(<0xE1!>6BLOAD4
  2. 60708  <UNK! {0006}>TAB(<0xB4!><UNK! {0007}>aERASE<UNK! {00FC}>hNOT,?<UNK! {0005}>TRON8<UNK! {0007}>=<UNK! {0009}>READERRREADkI<0xCB!><UNK! {0006}>>LGOTO<xUOR@RESTORE#CLEARq<UNK! {00F9}>z]7SPC(<UNK! {0010}><0xDF!>"V/BLOADGOTO<UNK! {007F}>W<UNK! {0002}>j0&POKE<UNK! {0080}>LLISTNOTCOLOR<0xE4!>W2aNEXTTRON?hOFFREMJWBLOAD|TRONE!+DEF<UNK! {0080}>P8i=Z;)3dWHILE
  3. 712  <UNK! {0009}>GOTOELSESAVE_h0oUSR=VY9+PRESET|99%(USING<UNK! {0008}>SWAPEQVRESUME(-E?/cVARPTR!wsnDEFSNG]RESUME+)<UNK! {000D}>LLISTJ'CALL<UNK! {00FA}>%EDITa<UNK! {000A}>READ6<UNK! {0002}>c#SWAPh7d^ZRESUME5<UNK! {0008}><UNK! {FFBB}>ONwINKEY$al<0xB4!>xl<0xB4!><0x9A!>6uH$n
  4. 17890  41OUTDEFSNGBLOAD$REMRENUM<UNK! {0008}>Pc9<UNK! {00F9}>PRESET<0xE5!>&57984NOTy3VnRk<UNK! {00FC}>xEDITa4BSAVE)OPTION4FOR`XORBSAVEhnLOAD8o*ERR[RLPRINT<UNK! {007F}>STOP<UNK! {0002}><0xE3!><0xE3!>SCREENAND6$<UNK! {0004}>10P=EQVCLSON+w<UNK! {00F8}>LETWAIT<UNK! {0001}>+<0x9B!>IMPo<UNK! {000A}>USINGRETURNNOTIMP<0x9F!>(-ECD0NOT3`a DEFINTwRESUME~0JLOAD<UNK! {0006}>0IF{X<UNK! {00F7}><UNK! {00F7}>STEPs<UNK! {00F8}>SCREEN<UNK! {00F5}>jbPRINTCLOSE.><0xE4!>5UAPOKEWIDTHWENDXREM<UNK! {0003}>THENRESTOREl""7^<UNK! {001E}><0xDF!>FORUSR<UNK! {0080}>LOCATE/><UNK! {000A}>~5NEWe<UNK! {0007}>IPRINTONNOTA0BSAVETAB(a9CLS`POINT6AdIMP#pCLSa4DEFDBL<UNK! {00F6}>BSAVE<UNK! {0003}><UNK! {00FC}>!sREADXORa8BEEPDEFSTRIMP0ENDWEND<0xE3!>*^WRITEYSTOP<0x9B!>GOSUBQ135.454DIM7+CSRLININSTRe<UNK! {0007}>c7.USING<UNK! {0007}>OUT/RESUMEmCH>/xFN`%<UNK! {0004}>ERLLPRINT5IDEFGMERGEORDEFs6<UNK! {0005}>SAVE\aIDEFSTR<UNK! {001E}><UNK! {0002}>T~LOADLETPSET[<0xE4!><0x9F!>4y_*ALOCATE>RENUM<UNK! {000A}>F4<UNK! {0004}>WRITELPRINTk<UNK! {00FA}><UNK! {0003}>AUTOERL<UNK! {00F9}>CLOSE^FORNOT<UNK! {FFDF}>AORAOR2&5aP<0xB5!>9THENICLOSEPRINTSTRING$\FORrJ<0xE4!>3kTOMKP2337q<0xCB!><UNK! {000D}>ERASE=LOADSOUNDCLSv<UNK! {0003}>2)WAITNEXT0CLOSE<UNK! {00FB}>LPRINTdENDOR<0xE3!>3SCREEN
  5. 64457  ihNEXThONVz7ADEFSTR<UNK! {0002}>X0c4;RETURN<UNK! {0008}><UNK! {00F7}>PRESET|SCREEN30280SPC(WIDTHTROFFSAVE7<UNK! {FE29}><UNK! {0007}>}RESUME&H2C71KEY<UNK! {0006}>s<UNK! {0006}><UNK! {00FA}>d<UNK! {00F7}>uKINKEY$pk\lOPTIONCONT<0xE1!>'<UNK! {0006}>PSET<UNK! {0005}>7Gi[W>DATAOSTRING$V<UNK! {0005}>VARPTROR<UNK! {0001}>STRING$fRESUMEEQVwSAVE<UNK! {0008}>50|<0xDF!><0xE4!>fREAD<UNK! {FE7B}>LLISTNOT<UNK! {000A}>1STOP+CLS#STRING$<UNK! {0006}>.C(6INKEY$INKEY$1^MOTORLLIST6DEFSNGDIMGOTO4STOPMOD<0xB6!>4<UNK! {000D}>CLS+PRESETDEFt}<0xB6!>BEEPeOLOCATELETMOD(DSWAPLINEHSCREENRESTORE-7279POKE4fFOR,LISTOFFDELETE]BM08q4DELETEajRESTORE<UNK! {00FB}><UNK! {FF0D}>1USR=T/1CSAVEbP<UNK! {0001}>T7PSETSTOPPRINT<UNK! {0006}>`<UNK! {0006}>a<UNK! {00F8}>10SOUND21040.00141561~TRON;'3DEFINT#26918<UNK! {0008}>USRDEFTROFF&O41525SOUND<EQV.EQV<UNK! {FFA8}><UNK! {FD25}>^G)grERRORFORUSRDATABLOAD20,w"'mCLSt,POINTSTOPK=BSAVE.POINTAUTO<UNK! {007F}>SCREENr6A1\ p<0xB4!>fBLOADDEFDBLGOSUB<UNK! {0007}><UNK! {0009}>7a<UNK! {00F9}><UNK! {FF16}>kCLOSELETORdhNOT<UNK! {FE2D}>SWAP
  6. 35981  aq<UNK! {0010}>/CLOSEDEFSTR+|.STRING$dLET{CALLZPRINTTAB(RESTORE<UNK! {00F7}>COLORPOKE\YL</<UNK! {007F}>VARPTR1bosWIDTHjFNBqVDEFSTRm0MODSg<0xDF!>LET<UNK! {0002}>^OPEN<UNK! {0007}>z5a*)COLORSWAPTROFFsYE<UNK! {FD9D}><0xB6!>TREMCOLORRESUMEDIMcp <0x9A!>PSET4CLOSE<0xE2!>762}IMPH27998#,WRITEJCLSLINE<0xE2!><0x9B!>3@~ERASESOUND4.71773E+21<UNK! {001E}>4<0xE3!>RANDOMIZE&O37777742710\7STEPBLOADc3INPUTMODRENUMfIF<UNK! {00F9}><UNK! {00F9}>FLOCATE DEFREADn<UNK! {001E}>ERASE0<UNK! {0009}>9D<0xE5!>STEPl7c3.46239E+32IMPTROFF(<UNK! {0009}>DATA=V3CSTOPaWIDTH<UNK! {0001}>P7x8p4KEY<E<UNK! {0004}>XOR^<0xDF!>wENDSTRING$VMERGE-2.05995E+202.10906E+2559684^wINKEY$aX<0xB4!>xLOCATEOPTIONWAIT3fRESUMEEQVwSAVEBSAVENuUSR>WENDPSET?TRON)<UNK! {007F}>p?aBLOAD+BSAVE?TOUSING<UNK! {0003}>C<UNK! {007F}>]YOUTE/<UNK! {0009}>7JSDIM\8pRANDOMIZEfDRESUME<0xE1!><UNK! {0001}><UNK! {000A}>STRING$!2<0xCB!>DEFDBLeePSETWRITE</OEQV<UNK! {0009}>LPRINT(h.)<UNK! {0005}>n4#;b<UNK! {0003}>=Xvh<UNK! {0005}>ELSEL^7ISWAIT<UNK! {0005}><0x9A!>/CONT$YVCCyTROFFc']nLLISTpRESUMENEXT0^BSAVE<UNK! {007F}><UNK! {0001}>CONT<UNK! {00FA}>%ERROR2>CLEAR0IFfc<0xE2!>OPENfLOAD<0x9B!>t/SOUND&ifCLEARERLEQV`F<UNK! {000D}><UNK! {0006}><0x9B!>WRITEkMOTOR<UNK! {0003}>+<0x9B!>82Z32&LINEORUNAVARPTR,9Hy1<UNK! {0002}>9<UNK! {0003}>ISCREENBLOADSOUNDCsc.STOP6dNEW}6K2332#<UNK! {00F7}>%5TDELETEpb<0x9A!>6IMP7/e10*RENUM</1ORPRINT)OUT<0xB5!>&O37777762257STOPQ|0l<UNK! {0007}>GOTO<UNK! {0009}>Q_<0xE0!>KEY8<UNK! {0008}>3$%BLOADRESTORESWAPIMPPOKEZYIC]tUSRn{afDEFINT7ANDy2.42647E+27aIUSRtTHEN<UNK! {0004}>-~READ<UNK! {FEDD}>E/4;OPTIONIFCLOSEDIMLLIST2nWRITETEDITOPEN206<UNK! {0005}>IFF<UNK! {001E}>LETSAVEn2VARPTRSTOPN?v2DELETEn<UNK! {007F}>J@zWAIT3SCREENINPUT<UNK! {FECC}><UNK! {00FC}><UNK! {0009}>@83STRING$sf<0xCB!>SE<UNK! {0009}>LDEFINT]r)LOADLNOTQAUTOBSAVEDEFSTRLLIST@<UNK! {00F9}>VeLETCLOSE8RETURNSCREENLETOR<0xE1!>UPRESETONYINPUTERASECONTQ#F18362}q&+MERGEe<UNK! {000A}>-9.84489E+20NEWELSE<UNK! {0003}>.CLOSEOFF<UNK! {00F7}>W<UNK! {000D}>MERGE<UNK! {0003}>'ERL2151RESUME&H6328DEFSTR<UNK! {0006}>&O37777716313!<UNK! {00F7}>DIMh<0xDF!>n<UNK! {FF5E}>c<0xE3!>*PSET{ELSE<UNK! {0004}>y4$IFELSEPRESET<0xE0!>SOUND<UNK! {FE46}>SWAPERRORSPC(VARPTR.ERLKEYTRONBEEP/l7p8x^<UNK! {0009}>RESTORE<UNK! {0007}>GOTOmEFOR@zWAIT3SCREENINPUTSTRING$POINTc8DEFNOT)LPRINTuSAVE0NEXTEDIT8#TROFFu)<0xB6!>R4TRONIMPREMBSAVETO-5E-09fFNKEYXOR)<UNK! {0080}>OR<0xE3!>dOPENBEEP*CLEAR<0xE4!>DEFINTqQl<UNK! {007F}>==~]0DEFSTRREM'QcwsUSING>'LPRINT<UNK! {000D}>+010RESUMESAVE0WHILE3<UNK! {0007}>.GOTO<0xE1!>5RESUME^PRINT4CLSZmx95044DELETEqtCONTE<UNK! {00F9}>LOAD<UNK! {0009}>PSETUSINGSPC(BLOAD47N"VCOLOR>IF5FJ'<0xB5!><0xB6!>)MOTOR<UNK! {0003}><UNK! {00FA}>AUTO^2sS-8334zKEYTBLOAD7>6<UNK! {000A}>3THENeTAB(WRANDOMIZEBLOADSTRING$qc<UNK! {0080}> INKEY$ERASE2<UNK! {0008}>%^WENDEDITOR52+<0xB6!>ERLCLOSE<UNK! {00FA}>GOSUB`&RETURNRSTOPORIFLET[4/DTROFFFOR<0xE3!>200Y<UNK! {FDE4}><UNK! {00FB}>40<UNK! {0009}>7hDEFSTRMERGE8{cIwUSINGRESTORE^ELSE^(Y=J6R<UNK! {FE3E}>>PAONQIMP+q9KEYj&O37777722277dLPRINT/8071IFuLSPC(THEN<UNK! {00FC}>Y<0xE4!>FNPL+iCLOSEU<0x9B!>LmCLOSE~^<EQV.STRING$<UNK! {0003}>RESUMEOPTIONq-1.45E-15BLOAD0&9I<UNK! {0004}>NEWg<UNK! {FF42}>PRINT<UNK! {0006}><UNK! {00F8}>4<3,INSTRE<UNK! {007F}>BEEPDEFINT<UNK! {000D}>IIMPINPUT<UNK! {00FC}>p&F&HB382THENLINERETURNTROFF0INSTRIFePSETCLOSETLPRINTR#9ERASESCREENANDUSING#<0xE4!>ERRRETURN9.42798E+27Or<UNK! {00F6}>F48RENUMt_rUSINGRETURNTO-<0x9A!>O>VJ0snVARPTRlRESUMEL-20948~5&O67370<UNK! {0080}>aepNEWDEFINTOPEN8STOP9f-MERGEOPEN'U<UNK! {0004}>IF6BEEP^SOUND<FCLOSE*<0xE0!>ERL*<UNK! {00FA}>XORELSE<UNK! {0010}>631264<UNK! {FD72}>J?RESUME_c}IMPH29894#=WVARPTREDIT4<0xE3!>DIMYOUT<UNK! {FED8}>dDEFDBL+<UNK! {00F7}>8<UNK! {00F7}>TROFFCOLOR<UNK! {007F}><0xE3!><UNK! {001E}>4<0xE3!>DEFSCREENRETURNDEFt2INKEY$GOSUBe10SAVE<UNK! {00FB}>CLOSETHEN[FORC<UNK! {0008}>BSAVE\CLOSEt<0xE4!>+#&O26430LIST)z70CSRLININSTR8>6'.WAITINSTRSWAPELSEEDITf&VJW~TOnss DEFINTENDINSTRKqmKEYl<UNK! {000A}>CONT<0x9F!>9OPTIONa<ON <UNK! {0003}>'}>EQV''<0xB4!>INSTRDIMrt**MERGE<UNK! {0006}>/<UNK! {0008}>WIDTH<0xB6!>)<?APOINTLOCATERESUME<UNK! {FD58}>0^zf:TRONQ<UNK! {0003}>NEXTERL%<UNK! {000A}>He9<UNK! {FF71}>BSAVE;CLOSE<UNK! {0006}>MOTORH<UNK! {007F}>c.RUN40
  7. 2122  XOR#"DEFSTR``DEFSTR<0xE0!>REMERROPTIONt<UNK! {0008}>hi114kCSRLIN<UNK! {0008}>dNEXTOR<0xE3!>3SCREEN
  8. 64484  40<UNK! {0009}>7hDEFSTRMERGE8{cIwLLISTRESTOREUSRELSE<0xB4!>m*<UNK! {0009}>J}0FORnYs MOD6EDIT<UNK! {0006}>Y6KEYL*OPENCOLOR5CLOSEa@RANDOMIZE<UNK! {000D}>SAVE'#LINE<0xB6!>PSET%<UNK! {00F8}>^<UNK! {0009}>ERROUT LPRINT]yINKEY$$JSOUND<0x9A!>PRINTEQV..<UNK! {0003}><UNK! {00F7}><0xCB!>+dGx2MOTOR<0xDF!>DEFSNGPSET+<0xE1!>CLOSEU<0xE1!><UNK! {000A}>^NEWVARPTRb<UNK! {FDBF}>B4RESUME<UNK! {000A}>id<0xE0!>DEFSTRCALLBLOADyhmcERASEoCOLORKEY9SAVEMOTORO<UNK! {000D}>THENGOTONEWCOLOR<UNK! {00F9}>DEF&O37777712771KEY3dNEXTUSINGLLIST~GOSUBPRESET*<UNK! {FD9B}><0x9A!>^-0.00352623;7h<UNK! {00F5}>TAB(|{8$,BLOADRESTORECALL<UNK! {00F8}>TROFFa*E?S0WIDTHc9$ <0xDF!>CH104SOUND'DEFs&H33C3RESUMEaFMERGE<UNK! {000D}>IFUl<UNK! {00F8}>EQV<UNK! {FF70}><0xE4!><UNK! {00FB}>READLr"*LOCATE>WRITE<UNK! {0004}>OT<UNK! {FFA9}>LPRINTZ<UNK! {00F8}><UNK! {0001}>HDELETEeD=<UNK! {0007}>2p<UNK! {FE4D}><UNK! {0002}>A<0xCB!>,7<UNK! {007F}>iP
  9. 52284  CLSBEEPQ<UNK! {000A}>U\ELSE@ TAB(@6P@TROFF47<0xB6!>^ORESUMEDELETE<UNK! {0001}>BSAVEGOSUBISPC(GOTO<UNK! {0005}>END<UNK! {00FA}>.KEYTROFF<UNK! {0010}>7<0x9F!>LLIST3WHILEREM,LIST<0xE4!>GOSUBQrRESTORE`USR=<UNK! {0080}>vh^STEP<UNK! {0080}>{3';CLEAR<UNK! {FEEC}>ELSE^*FOROFF<UNK! {00FA}>[<UNK! {0007}>CLS<UNK! {0003}>'&TCONT]><UNK! {0006}><UNK! {000A}>TLOADxsLISTERASE1^19ON"<UNK! {00F7}>108USING<UNK! {00F7}>STEP'<0x9B!><UNK! {0007}>y5r-933LLISTWHILE<UNK! {0004}>Y0POKEDEFSTRWRITEkSTRING$NEWVARPTRIFl4"7u/EDITMPRESET?cLLIST2H8MOTORPSETSCREENPOKE>TO6<0xE5!>D?3,RANDOMIZE 1\MLETINPUTDIMERRRCRESTOREzqOFF<0xE4!>SOUND<UNK! {0005}><UNK! {00FB}>10]LIST<UNK! {00FA}>k<UNK! {00F9}>DEFINT<0xB4!>RENUMCOLORXOR+R37OR_TO<0xE4!><UNK! {FD34}>40<UNK! {0010}>ONn{w224SCREENm<UNK! {0004}><UNK! {001E}>IBRESUME+^NOTRESUMEm0/$^pe<0xE1!>YRESUME\-21409s<UNK! {000A}>&H761AWIDTHmRESUMEmt[810ERRORLETTO'<UNK! {00F6}>OPEN85V&%TOONLINE21634DEFSTRDELETETROFFoERL#ORCLEAR3E<0xB5!>zINPUTA<0xE3!>STEPSOUND?BLOADRESTORE<UNK! {007F}>93tDATA;<UNK! {00F9}>HPSETGOSUBSTRING$tHYW<0x9F!>)%USING75AEDIT+98*<0xB6!>4<UNK! {000D}>CLS<UNK! {00F7}>PRESETDEFt2TAB(GOTOH8MERGEKEYSTRING$2INPUT85END<0x9A!>#SPC(<UNK! {FDC1}>ERROR<UNK! {0010}>^47ON-<UNK! {0009}>=LRESUMEM10*0[OFF<UNK! {FF5E}>MCLS<UNK! {0003}>'ERL2031RESUME&H871KEY#s&H81FA']RENUM/8<UNK! {0001}>SOUNDDIMLLISTSTEP<0x9F!>#4SCREEN&O37777752465k$-<0xE2!>.MmK<UNK! {000A}>CALLOR&O37777711656OFFGOSUBp#T5wh<0xE5!><0xDF!>DATALNOTOPTIONANDHVARPTR_AUTO0BSAVEMTONOTSTRING$5<UNK! {000A}>1.RENUM `aKGOTOYERASE5oCLSSTRING$1<UNK! {000D}>OFFWHILE<UNK! {0001}>NEWDEFO2LINE<UNK! {00F7}>9}THENDEFSTR<0xE2!>0HWIDTH<0xB5!>3RETURNREM+<UNK! {FDBB}>DEFLh<UNK! {007F}>'ONEPw0<UNK! {001E}>IRBLOADON^ANDRESUMEk-L5]bLPRINTRETURNMzDATA>LISTRESUME*mOFF:<M<UNK! {0006}>Ed|a<0x9B!>*jSAVE'6LLISTDEFDBLPSETJ<0xE4!>SCREEN)1$ks<UNK! {00F6}>ONCALLsx4<UNK! {0005}>LPRINTCALL.<0x9B!>REMDELETEPSET6|WRITEz<<UNK! {000A}>D<0xDF!><0xE4!>K5OPTIONANDHVARPTR_AUTO0BSAVEMTOFNSTRING$5<UNK! {000A}>|JOUT@.<0x9B!>M122<UNK! {0009}>IMPo>LETZQOFF<0x9A!>ONCOLORRETURNtSPC(e<UNK! {00F7}>^<UNK! {00FA}>0KEYMOTOR<UNK! {0080}>INPUT"4202DIM<UNK! {FD75}><UNK! {00FB}><0xE4!>13355ONG<UNK! {0009}>@hPRINTMERGE10'?uyUSINGNEWSOUNDIMPPOKE(<UNK! {0007}>DATA7VuTROFF[s%)<0xDF!>BA<UNK! {0006}>NEXTWIDTHINKEY$>REMPOKExCOLOR|a<0x9B!>*jSAVE'6LLISTLINEPSETJ<0xE4!>^y]_8}COLORINKEY$DEF<UNK! {0004}>OT>DELETELLISTkSTRING$AUTOPOINT<UNK! {FE30}>dBSAVEz]INKEY$DDEFSTRPSET%<0x9F!>wKRANDOMIZE<UNK! {FD72}>RETURN9qWe<UNK! {0006}>&439.INKEY$EuMOTORp6AbCOLORSt<0xCB!>#&HE09CNEWBSAVE+3_LOADTHENePUSINGSCREENDEFSTR^[<0x9A!><0xE3!>"h#RANDOMIZEERASE<0x9B!>Y/NEW0<UNK! {FDA6}>3@7jDEFSTROUT8bc9+REM'ERRORPRESET^  N//_INKEY$72002.2ZOPENEDITp{<UNK! {00FA}>NEW<UNK! {00FA}>KFOR<UNK! {00FC}>n<0xB6!>68CLOSELET<UNK! {00FC}>bTRON<UNK! {0007}>{ph(2TOTO<0xE4!>LISTLOADK2;FOR.&\DEFSNGPSET8d1032K<0xDF!>oERLHERR'<UNK! {007F}>~<UNK! {000A}><UNK! {0003}>THEN_<UNK! {0003}>WGOSUBGOTOCOLORQ<UNK! {000A}>v`STOP+%<UNK! {0004}>J<UNK! {000D}><0xDF!>CSRLIN\BLOADLISTX#<0xE4!>TAB(BEEP<UNK! {0008}>BSAVEGOSUBc <UNK! {00F9}><0xB4!>eHVARPTRCLSEQVdREADORSTOPMSAVEBEEPYLOAD<0x9B!><0x9A!>^0<UNK! {0080}>]10EDIT]CSRLIN&H56A5<UNK! {000A}>USING\<UNK! {00FA}>IF<0xE4!>([3y/,TROFFZ^zeDEFSNG7<UNK! {0004}>K10HKEYy<UNK! {0001}><UNK! {0006}>LOCATE%WEND7241v<UNK! {00FB}><0xDF!>41487;'3DEFINT-7.80054E-05XA<UNK! {0005}><0x9A!><0xB6!>\STRING$BSAVEPOINT<UNK! {FF65}>#\&<UNK! {001E}>r<0xE5!>?ERASEEca1868MOTORNEW<UNK! {0009}>WHILEa<UNK! {FDDD}>6lzSTEP9ENDE^
  10. 2623  <0xE2!>#WOPEN#KRESUME<0xE3!><UNK! {0001}><UNK! {0006}><UNK! {0008}>%\<UNK! {00F9}><UNK! {FD16}>8<UNK! {FDAC}>IMP%182LINE<UNK! {007F}>KEY
  11. 64474  4393FORPRINTOFFIhRETURNH*8,_RANDOMIZEyERRRESTOREELSE<UNK! {0003}>8MERGE=pWHILE0WHILEr<UNK! {0003}><UNK! {0004}>NEWWHILE<UNK! {0008}>LTROFFqBERROR>U{<UNK! {00FA}>NEW<UNK! {00FA}>KFOR<UNK! {00FC}>n<0xDF!>b}DELETE*PSETyCALLSTRING$4^_&+COLORCLEAREDIT<UNK! {000A}>FwUSRLPRINT<0xB5!>.DEFINTBSAVE<0xE1!><0x9B!>p0Yw0CLEARmOLOAD<0xE5!>&[q6-j!9DEFSTR-,POINT[C14643<UNK! {0004}>AND4BEEPRANDOMIZE6STEPCONT87?<UNK! {FD1E}>ERL6<0xDF!>STEPf$n2<UNK! {0008}><0x9B!>e<UNK! {0001}>CLOSE<nSlOR33e
  12. 54532  DEFINT9.36874E+27%iPH88^c<0xE0!>w+<UNK! {001E}>8<0xB5!><UNK! {0003}><UNK! {000A}>MERGE<UNK! {0009}>T{4DEF<UNK! {0080}>Q
  13. 19544  BNEXTVOFF2aSOUND643767DEFDBLUSRFOR<UNK! {FD43}>%STOP/j;VARPTRPOINT+8<UNK! {0008}><UNK! {0003}>WRITELIST<UNK! {00F8}>Hn>M<UNK! {0009}><UNK! {00FA}>2BLOADSTRING$<UNK! {00F5}>LOCATE-2.17959E-06TROFF<UNK! {0010}>MOTORCLOSEa9^T!9DEFSTR-,POINTkAXviWHILE7GOTOLISTK<UNK! {00F7}>t6FNLIST<UNK! {FDC9}>9DEFSNG=DELETEXCLSOFFWENDDEFSTR<0xE4!>@+MERGE)<0xE5!>-A2V3>TRONRANDOMIZECSRLINM<UNK! {FD7E}>H^LET<(G9LETFNERLsg<UNK! {00F6}>IINPUT<0xB5!>lSTEPHORz|r126TSTOPt<UNK! {0007}>WAITqDEFINT<UNK! {00FC}>E<UNK! {0006}>NEXTN)$STRING$&H81C8PSET&HD926_INPUTPRESETWENDOR>j<0x9A!><0xE4!>DEFSTRkERR<SPC(U^COLORON:wqLOADVARPTR146BLOADkLr8PCLS<0x9A!>(=<0xE5!>qTROFFvAND<UNK! {000A}>*l8LINE<UNK! {0080}>h0RENUMY<UNK! {0006}>INSTRa-<UNK! {0009}>CLOSE<0xE4!>ONSRANDOMIZET6ALDEFINT]Z<UNK! {0003}>0SCREENBEEP\7STEPBLOADc3INPUTMODRENUMfIF<UNK! {00F9}><UNK! {00F9}>F<UNK! {0002}>LOCATEs<0xCB!>INKEY$BEEP<UNK! {0006}>+67LISTOFF2j\H48RENUMtArUSINGRETURNSAVEMODTRONO5H>XtTROFFKXQ LIST]^JqHOPEN<UNK! {0006}><OUTCALL0OPTIONa<UNK! {000A}><UNK! {00FC}>><UNK! {0002}>T|*<UNK! {FDCC}><UNK! {0007}>AUTOINSTRREMFNLISTkIFLINEAND=sLNCLEARIMP'$<UNK! {00FC}>KEYTRONBEEP/l7p8x^<UNK! {0009}>RESTORE<UNK! {0007}>GOTOmEFOR@zWAIT3SCREENINPUT<UNK! {FECC}><UNK! {00FC}><UNK! {0009}>@83INKEY$cFNMOTOR_TROFF<0xDF!>EDIT<0xDF!>%<0xE0!>OFF<0xB6!>ERLDEFDBL<0xE1!>[f"n<DEFiINPUTLOADTHEN-9.80762E+24<0xDF!>7SCREEN<UNK! {0002}>u<UNK! {FD90}>NEXTQ0INPUT7-12059l{9%wBLOADTHENLLISTPOINTLLIST(@N//eERLnc]gOUTkPOINT<UNK! {0006}>0<UNK! {0006}>CALL:EDIT-9GOTO/<UNK! {00F7}>^jXOR*TO<UNK! {0007}>-6184FNLISTkUINSTR<0x9B!>AUTO<UNK! {0007}>F&HB4CD<0x9F!>.RENUMNEWTHENRIGHT$4W&wrLLIST?SWAP$OR<UNK! {0007}>*9<UNK! {000A}>"'jNOTBPRINT<UNK! {0006}>XOR"UgwDEFSNG{SOUNDWRITEJ<0xDF!><0xE3!><UNK! {00F7}>TROFFu$MOTORfBOFF<UNK! {00FA}>PRESETBSAVE<UNK! {FE1D}>g<UNK! {00F9}>LOCATE-1.51169E+31d403733PRESETRETURNYOUT<0x9B!><0x9A!>^06B<UNK! {00F9}>L<UNK! {00FC}>jMERGE<UNK! {007F}>SCREENwERRLISTTO'ERASE`1EK/0OR6bveVARPTRkRESUMEx"HMOTOR<UNK! {007F}><UNK! {0001}>MERGE<UNK! {00FA}>0<0x9A!>a<UNK! {000A}><UNK! {00FC}><UNK! {001E}><UNK! {0002}>T|*<UNK! {FDCB}> <0xE4!><UNK! {0003}>z5v8,<UNK! {FDA3}>SWAP<UNK! {0007}>ST<UNK! {FEB7}><0x9A!>mREMCOLORAUTO-1.79256<0xDF!>ASTEP3<UNK! {000A}>Hz5<UNK! {FE6A}>FNITOPRINTSAVET<UNK! {000A}>DSPOKE1dSTRING$;NSCTROFF <UNK! {001E}>LOAD#`ERASEIMPONBSAVESTEP3a<UNK! {00F9}><UNK! {00F7}>5}BLOADCLSOR+ENDTROFF<0xB4!>3MOTORNEWX<UNK! {0003}><UNK! {0004}>=_<UNK! {00F7}>^LOADCLOSEDEFSTR<UNK! {0009}>9AVARPTRMERGEf0<UNK! {001E}>I,BLOAD<UNK! {0009}>RANDOMIZE<UNK! {0008}><0xE1!>(0QJHPUSRnasuCALL\RESUMEz8mDEFINT<UNK! {0006}><UNK! {000A}>DEFAUTO8<0x9A!>H8078IFZX^<UNK! {FDC6}>X<0x9A!>ANDT5U=1COLOR<0xB5!>LET)0<UNK! {FF17}><UNK! {0008}>qH2SCONT&\xBLOADfSl%<UNK! {0080}>NEWIFTROFF-21599ORp<UNK! {000A}>GVELSE$dNOT7LDIM2412\KEYTBOFF<0xE3!>KEY<UNK! {0003}>DEF3dLOAD<UNK! {00FB}>,nLOCATE<UNK! {00F7}>TROFFSOUNDFTROFF'+Y
  14. 35484  4m\_SPC(LET{l)<0xE3!>SCREEN8&H491D,BSAVEUSING<0xB6!>POINTLLIST[Y<UNK! {0005}>t0<0xE0!>G1.56892E+128KWRITE5<UNK! {FF64}>|-<UNK! {00F9}>VARPTR^OPEN<UNK! {0005}>A7<UNK! {0006}>INSTR'CLOSE<UNK! {FF4F}>sL0WINDOWLPRINT.DEFINTRUNPOINTREAD8+Gza"TRONDIM<UNK! {0002}>@BLOADv0<<UNK! {000A}>)<UNK! {0003}>\BSAVE&H8895STRING$LsVIREME;<UNK! {0009}>7}DIMDIMOR64KEYT`ERASE<UNK! {00F6}>LISTBSAVEPSETZ&<0xCB!>LINEelFNMERGELPRINT90IMP<0xE1!>\8NEWW<u<UNK! {00FB}>23638-<UNK! {0008}>XDIMlh<SCREENj<UNK! {0006}>30523SAVE<UNK! {00FB}>RESUMEOR^Z12114^tDEFn%?$<0xDF!>4RESUME}",DEFINT~641541457990<UNK! {00F8}>'|ANDOPENf*WHILEBSAVEXORSOUND&i.FN>WEND&O52177<UNK! {000A}>ELSEOPTIONfBSAVE<UNK! {0003}>STEPSTOPg-2k\!CALL?STEPKBLOAD0<UNK! {0006}>4wPMERGE*COLORMANDw6is!7ucTHENMOTORLPRINT()OTROFFu@CLOSEb_WENDDELETE<UNK! {0001}>BSAVERENUMn249DEFINT jPSETSAVEORdHTROFF<0xE3!>JPRESETCLEARYSTOPELSE<UNK! {FE0E}><UNK! {FD76}>hRANDOMIZE<RESUMEB<UNK! {00F9}>DEFSTRm<UNK! {0006}>eZIyUSINGRESTORE^ELSE^(Y=<UNK! {000D}>/,TROFFE_soWHILEkDELETE<UNK! {0006}>q<UNK! {0080}>LOADjsDEFDEFDBLdWRITE <UNK! {0008}>REMt<UNK! {00F7}>X8IMP
  15. 1945  READ`&]iPRINT><0xE4!>LISTCLOSEADEFSNG=FORTAB(<UNK! {000D}>RETURN<UNK! {00F8}>-LET^IMPGOTOINSTRw<0xDF!>APSETABLOAD[<UNK! {007F}>H<UNK! {000A}>POUTGOTOTAB(<UNK! {000A}>ONONREMC|\JELSEcdMOTORxGOTONEXTDIMPSET;<KEYUQWEND<0xDF!>RETURNTO<UNK! {00FC}>7a<UNK! {00F9}>
  16. 49623  //END<0x9F!>WHILENEXTREMCLEAR7STOP>103wgINSTR$='6FORERASEMERGE10{cIwUSINGRESTORE^ELSE^(Y=J/0TROFFn'$ <0xE1!>7RESUMEq7HMOTOR<UNK! {0006}>=<0xDF!>SAVE0PRESET2KREM1AND'l<UNK! {00F8}><UNK! {FDD8}>'LPRINT<UNK! {0004}>4[u6[CIRCLEDEFINT<UNK! {000A}>RUNRUNPRINTVARPTR17CLSCOLORMERGEn?BLOAD"x2r<0xDF!>?PSETABLOAD[<UNK! {007F}>H<UNK! {000A}>PNEW9BSAVEWTO<UNK! {0004}><UNK! {00FA}>yc6TAB(ELSE/2d<0xE2!>6yc<0x9F!><0x9F!>rRETURN%45DEFDBLCLOSETROFFIFLLIST0TRONIFePSETCLOSETLPRINTR#9ERASESCREENANDY"<UNK! {0004}>RESTOREZu<UNK! {00FC}>CLSON+w<UNK! {00F8}>LET6USING{jIMPIyLLIST<UNK! {00FB}>RESUMEOR^Z12114^tTROFF%^xl<0xE1!>lFNv7oLETr<UNK! {0007}>LIST<UNK! {00FA}>&OPTIONa8REM2.92594E+29LET&O37777720171OPENPcc0<<0x9B!>kMOTORSTOPAUTO-2.547E-14TAB(DATAERR[>H<UNK! {007F}>9<UNK! {0002}>\STRING$<UNK! {000A}><UNK! {00FA}><UNK! {0006}>STRING$!sG.WIDTH62PSETI6X<UNK! {0009}><UNK! {00F5}>%<UNK! {0009}><UNK! {00F5}>#[RESUMEOPTIONGOSUBTAB(DEF-2.80382E+34/ENDSWAPDEFDBLMPSETSOUNDYRETURNPRINTDEF4cLET'LISTOFF)o<UNK! {FE49}>4CANDcwwUSINGRESTORE^ELSE<0xE0!>%0DATA,Z<UNK! {007F}>POINTnfz WIDTHlPOINT|0oDEFINT<UNK! {007F}>8COLOR<UNK! {00FA}>8DEFSTRHDGOTO IF-3.93263p&(5THEN<0x9F!>INKEY$<UNK! {0004}><UNK! {0080}>TFNDEFSTRIMP'ERL#SCREENPOKECONTCDEFDBL`BLOADr<0xE5!>?PSETABLOAD[RuI8<UNK! {0003}>^<UNK! {0007}>ILIST<UNK! {0006}>SAVETq3CLIST0dTO7JSDIMOR64KEYYQRESUMEMODCLEARBSAVE<UNK! {0008}>82GOSUB<UNK! {0001}> 8LOCATE<0xB4!>^(40618~LOCATE =WAIT^-ERASE;WIDTH-LIST=<UNK! {0009}>7hDEFSTRSTOP$(3<&BSAVE<UNK! {0002}><0xB4!>INKEY$DEFSTR\0O=/hERL'u$sDEFINTj^x9HMOTORmM&(+iLOADVARPTR><UNK! {0005}>DEFINTBSAVE8SWAPINSTRPOINTbDEFDBL'4READ?7"^OPTIONINKEY$<UNK! {0008}><UNK! {007F}>=POKE<UNK! {00F5}>INKEY$.BSAVENEWRESUMELISTl-7.0468E-13ERLB<UNK! {007F}><UNK! {0009}>h5NEWq<UNK! {0003}>=PRINT<UNK! {0006}><UNK! {00F8}>4<3,INSTRE5ERRORY<UNK! {00F7}>CSRLIN09CLEAR<UNK! {FDC9}>9DEFSNG=OVARPTRVARPTR/DEFBLOAD<UNK! {00F9}>IFLjCLOSEDEFSNG<d5WIDTHWHILEREADSCREENNEW&DIMELSEDEFLh<UNK! {007F}>!ONG<UNK! {0009}>;lDEFSTRBLOAD%{&H7734CLSERRELSE<UNK! {00F5}>^j14468/xFNnz]nLPRINT7POINT~0HPRESET><UNK! {0006}>RETURNHMOTOR|aILET9986iMOD-STRING$xDEFDBL<UNK! {0007}>4Z`k>USRREM<0xB4!>s\0<UNK! {00FB}>DEFINTLLISTkSTRING$RUNCSRLIN<UNK! {FF7D}>1<UNK! {0008}>x(<UNK! {FFFD}>WENDfRESTORECSRLIN<0x9F!>j'<UNK! {000A}>WIDTHTROFFNOTPRESETWSTRING$TO<UNK! {00FC}><UNK! {0009}>@83STRING$sf<0xCB!>SE<UNK! {0009}>LDEFINT]Z<UNK! {0003}>0SCREENBEEP\7STEPBLOADc3INPUTMODRENUMfIF<UNK! {00F9}><UNK! {00F9}>F<UNK! {0002}>LOCATEs<0xCB!>INKEY$BEEP<UNK! {0006}>+67IF632bEDIT]VARPTR2LPRINTT<UNK! {000A}>USING\<UNK! {00FA}>DEF<0xE4!>([fCEtTROFF"_a OUTuINSTRFOR"ELOADlsGOSUBCALL0<0xB5!>a?NEW1IFPj\MODPSETnCALLUSING4[_&6MERGE<UNK! {0006}>+5STRING$WHILE)<?APOINTLOCATERESUME<UNK! {FD7D}>&[z{ <0xB5!>DIMERRHUSR'<UNK! {0006}><UNK! {000A}>~5NEWpTO0CLOSENEWWRITEFORvZ]CLEARE0DIMOR64KEYLCCALL<UNK! {00FC}>SOUNDUSRDEF6w<UNK! {00F9}><UNK! {00F7}> lPRESETAUTOTROFFSOUND9AUTOI+Y
  17. 50942  4#~bONINPUTT0.00144265SAVE<UNK! {00FB}>RESUMEELSERENUMW+=&O10535STRING$ sarRENUMq^qp.)FOR5*&HEDD5PRINTd<UNK! {00F6}>]IF%/DEFSTRWENDSOUND0,amINPUTPOINT/EDNCLEARIMP'$<UNK! {00FC}>KEYTRONBEEP/l7p8x^<UNK! {0009}>RESTORE<UNK! {0007}>GOTOmEFOR@zWAIT3SCREENINPUT<UNK! {FECC}><UNK! {00FC}><UNK! {0009}>@83STRING${SOUNDCD)<0xE5!><UNK! {00F7}>NEXTUSING<UNK! {0009}>FNAERASE=|POKECLSq62<UNK! {00F7}>'10lINSTRAUTOLPRINT50020RETURN^EDIT
  18. 64397  <UNK! {0009}>00i<UNK! {0006}>=}])STRING$STEP86104wERASE<0xB5!>SPC(RANDOMIZERANDOMIZE(<UNK! {001E}>s#cTTROFF%fm MOD6EDIT<UNK! {0006}>o KEYD,<UNK! {000A}>9sREMuDEFINTqtCONTE<UNK! {00F9}>LOAD<UNK! {0009}>TOSCALL<UNK! {0005}>Pan&%LIST><0xE4!>0JT<0x9A!>\ORYREM<UNK! {0003}>*SAVEc^I({&TRON?<0xDF!>RTAB([>Hh5<UNK! {FF5C}><0xCB!><UNK! {000A}>TOCLEARSAVEFORv3SREMErREM<UNK! {007F}><UNK! {000D}><0xDF!>3<UNK! {FD49}>vX<UNK! {000D}>ERASEOFFWHILESTEPRESTOREKEYnqRUN<UNK! {0004}>4eLOCATEDEFINT<hENDCALLLLIST<UNK! {007F}>IFCLEAR0GOSUBSTOPDIMZh0;ONVy]+<0xE5!>PRESETp<UNK! {0008}>c"2BLOADERL<0x9A!>/CONT(10HC]vTROFF:xzgMOD9HOPEN<UNK! {0007}>&H97DBU{<UNK! {00FA}>fCSRLINsINPUT<UNK! {00FC}>.IMPTpXOR<UNK! {FDD9}>tOPTION<UNK! {0003}>FORp*k)LOCATETROFFWENDGFG<UNK! {0008}>LPRINT<0x9B!>bREMCOLORRESUMELOADj4P3q&RENUMZRUNAERR,<UNK! {007F}>?s=<UNK! {0001}>p<UNK! {0005}>DPRESETSCREENERL<0xE3!>LINEIt<UNK! {00FA}>TOSOUND`2[<0xE5!><UNK! {00F7}>TROFFu^<UNK! {00F7}>84WHILE<0xE1!>NEWSTRING$STEP8gONGOTO,gPRESETKEY<0xE4!>4.08359E+37LISTDIM`eFORh<UNK! {0001}>=T<UNK! {0080}>)<0xE3!>PSETl<UNK! {000D}>"%2SCREEN<UNK! {0002}>^IMP<0x9F!>(0.190648THEN"^snMOD9H0RETURN8DEFINTmtINPUT'8LLISTLETTROFFs<0xE4!><UNK! {0003}>z5q*.<0xCB!>>WEND&O40213POKE<0xDF!>BLOADfREM<UNK! {0003}>*LISTj5[%frAUTOPERRUBLOAD+<UNK! {000A}>7z<'9<UNK! {0003}>APRINTNEWSTRING$<UNK! {0080}>y^W<0xE4!>)3MOTOR;JFORE*5<UNK! {001E}>SAVE%ERL^/LISTd&n0<UNK! {00F9}>GOTOe8USINGMOTOR<%2OR<0x9A!>PGOSUBMOTOR5<UNK! {FD9D}>POKE4vYx<UNK! {0007}>=INPUTp-ERRMERGE~<UNK! {000D}>9%.USING<UNK! {0008}><0xB5!>POINTSWAPZYS?DdSPC(7&10 <0xE1!>HUSING<UNK! {007F}>#HKEYj44993:^sINPUTSPC(nkOFFv<UNK! {00FA}>LLIST;'>OPEN45&)BCSRLIN>WRITE<UNK! {0004}>OT<UNK! {00FB}>DEFSTR<0x9A!>bOPEN<UNK! {0003}>ERR<0x9A!>~2"*`3<0xB4!>DIMSCREENUBLOAD><UNK! {0010}>-h#'e<UNK! {0004}>WMERGELETSTRING$OFORV.LLIST@/ERRMNEXTJA*#]\OCOFF<UNK! {00FC}>SOUND<UNK! {0003}><UNK! {0007}>tSPC(SCREEN<UNK! {00F5}><UNK! {FF0F}>.KEYTROFFdENDOR<0xE3!>uPRESETON+<UNK! {FD96}>RUN_xDATAxONNEXTREADw%DEFSTR<UNK! {0003}>l<UNK! {0006}>42wNEWTHEN<0x9B!>MODRESUMElYL4C~TROFFQ^vcDEFSTRt+|qzCLSr<UNK! {000A}><UNK! {0006}>DEFSNG%ERROR6ERANDOMIZE0+3SOUND&i[COLOR>INKEY$@UTTOWRITELPRINT)BSAVE<UNK! {0003}>-RUN80[1s&EDITU<UNK! {0003}>&H288610:w#<UNK! {FF39}>USINGHMOTORNEWSTRING$sY<UNK! {0080}>sLINE39SWAPMREADP233##<UNK! {00F7}>%ERLu*{d&n0<UNK! {00F9}>GOTOe8LLISTWRITE<0xE1!>dC<0xB6!><0xE3!>LPRESETRETURN-28526SPC(<UNK! {0009}>l}-FNJTk&TROFFFN8&O30042wBLOAD<UNK! {00FB}>^\SWAP[+H:atUSR7yp SCREENwOFF|<UNK! {001E}>Y<0xB5!><UNK! {0080}>A&HD5E0<UNK! {000D}>ELSE7xz5<UNK! {000D}>RESTORELLISTOPENAUTOx<0xE4!>LOCATE{pq7[^COLORCLEAR:|*POKECALL<0xB6!>WSTRING$ERRWAITFN8d5zLETZ<0xE3!><0xDF!>L]4QIMPH29906'DEFSNG2DATA cC<UNK! {0008}>1.<0x9A!>@;MOTOR@LETQCTROFF<UNK! {0009}>8DEFINTfHOFFLPRINTSTEPRESTOREDEFt<UNK! {0008}>hCALL<UNK! {00FC}><UNK! {00F9}>CONTSWAPCLOCATEXOROR2#<0xE2!>KEYY<UNK! {0003}>CLSDEFSTR_;0-ON=<UNK! {0009}>2h<UNK! {00F9}>SPC(l{"6+RETURN<UNK! {00FB}><0x9B!>ELSE<0x9A!>W+END9629.05INSTR<UNK! {0006}>P7x8w4KEY<s<UNK! {0006}><UNK! {00FA}>d^aK<UNK! {00FC}>tMERGE'F<0xE3!><UNK! {FDD6}>'<0xB4!><UNK! {00FB}>{tm85STEPLLIST<0xB5!>sY&HAA07TROFF#<UNK! {00F7}>READUSINGPRINTr^Q,w%<0xE5!><0xDF!><\}QANDHVARPTR_v0BSAVEMTO<UNK! {0006}>STRING$C<UNK! {000A}>3.<0xE4!>EdMOTOR&H867DDIM\8$LOADY4WEND<UNK! {00FC}>SCREENSPC(<UNK! {0007}>7vNOTIFINPUTINKEY$<0xE2!><UNK! {0009}>READTHENEND?ERL&<UNK! {0001}>
  19. 64484  40?7JSTRING$SCREENX<UNK! {0010}>c$'USING
  20. 10410  0END?rbTROFF;ypo<0xE1!>k<0xE0!>y6.50759E+35MOTORZTRONWAITELSE<0xB6!>8NDEFd<UNK! {001E}><0xE4!>SCREEN45&k[COLOR>INKEY$sDT+DEFINTWEND`BSAVERUNINKEY$WAIT8-12.7204ERR'&H68481
  21. 52285  CLEARSAVEFOR|1TAB(COLOR'LINEgPOINT6ORiGOSUBVp<0xCB!>#4OFFDEFDBL<UNK! {0001}>BSAVEDEFn2<UNK! {00F9}>GOTO#|INSTRDEFINTLPRINT DSWAPWIDTH~MOTORBSAVE-24323<0x9A!>`l\^PRESETG/GOTOR=]y!INPUTS<UNK! {000A}>USING\<UNK! {00FA}>DEF<0xE4!>([!4}6OR!-$ <UNK! {00F7}>7IFFOR&HAD48{1.35389E+128KON<UNK! {001E}><UNK! {00F5}>be<0xE3!>AND&O37777730171OPENDATA[`-11739TROFFWEND<UNK! {0006}>UJPSETVARPTR7RESUME*COLORn8RETURN1STOP;r<0xE5!>?PSETABLOAD[<UNK! {007F}>H<UNK! {000A}>PWAIT9<UNK! {00F9}>5PRESETCLEARREMCvZ_ELSEE;<UNK! {0008}>IO?A<0xE2!>!4CLOSEfHDEFSTR<0xE3!>SCREEN<UNK! {0003}><UNK! {00FC}>nsLISTTHENejUSING<0xB6!><0xE2!>'END<0x9F!><0x9B!>~GOTOLIST-9838SPC(63229RTROFF<0xE2!>RESUME7OPTIONCLOSERENUM0{aIwUSINGRESTORE^ELSE^(Y=JDd<0xE0!>6'es<0xE1!>1.27817E+06RESUME7OPTION/KREAD1<UNK! {0002}>\pXOR<UNK! {FFC6}>dOUT<UNK! {00FB}>ENDY_-1.31232E+12M>$<UNK! {00F7}><0xE4!>7COLORSTRING$3WRITE<0xE5!>0^ z2r<0xDF!>?PSETABLOAD[<UNK! {007F}>H}@<UNK! {0004}>fUSR;MOTORLETCLOSEOo3JLISTE <UNK! {0004}>GJK<UNK! {0009}>MODo5.68972E+16<UNK! {00FB}>GOSUBBSAVE<UNK! {0007}>0p<UNK! {FEB5}>DEFDBLkNEXT+R\LLIST<0x9F!>o>u10<0xB5!>~AVARPTRXOR=6H9+SPC(j{13KTRONINKEY$CLOSEELSEEDITm@=.`0USING7fvn<UNK! {0007}>7
  22. 38188  y<UNK! {0001}>MERGE>dOPENa8RANDOMIZE8.54249E+12OPENaZh$VCOLORINSTRXORAFVSOUND<DELETEREADSPC(##WIDTH?ICALLz<<UNK! {0010}>?<0xDF!>Lb<0x9F!>TANDHVARPTR_TROFF0BSAVEMLPRINT<UNK! {0001}>OPENG<UNK! {000A}>T]<0xE4!>)3MOTORlizDIM=2<UNK! {001E}>SAVEOLOFF<0xE3!>RETURNBSAVE<UNK! {0007}>$wGOTOSCREEN10lCLOSE<0xB4!><UNK! {00FC}>d2<0xB6!>LINEyBEEPBEEPX<UNK! {0003}>TAB(r4117THENuCiV<UNK! {007F}>AMERGE<UNK! {0007}>8.36792E+25\<UNK! {00FA}>CLEAR<0xE4!>([f5`uTROFF3spiDEFINTm/Kp,KEY\9<0x9A!><UNK! {00FA}>4<0x9A!>29<UNK! {00FC}>2.36686E+30SCREEN3OPTION&}STEP_<UNK! {0006}>OUT2nCALL%<<UNK! {FD4C}>6'9<UNK! {FF17}>6Q#`r<0xB5!>DIMERRTPSET2<UNK! {007F}>5g#
  23. 52234  <0xE5!>ERASEu%ziMOTOREjMOTORy.qcCLSC^<0xCB!>BLOADCOLORMERGEEQV&/DEFt{CLOSEGOTO$}DATAAUTOLPRINT058272LETPRESETRETURN.KEY<0xE4!>PRINTCcFORy<UNK! {00FC}>=FORq$<0xE0!>MERGE~>4%wBLOAD<UNK! {00FB}>^ORRESUMEi0LPRINTlWAIT<UNK! {0004}>LOCATEMOTORtCOLORDEFq.RETURNysLOCATEERASE:IMP-KLET1<UNK! {FF5B}>8IMP
  24. 683  DIMY_k(CSRLINON<0xB4!>5FK<UNK! {0006}><RUNaCOLORPRINTRESUMEGOSUBl5K+w[-Af<0xE4!><0xE2!>Ah'<UNK! {000A}>r<0xB6!>|<UNK! {00F5}>10TO<0xE3!>POKEtStv<0xE4!>)3MOTOR&H507D2XOR2pCLSY`RESUME<0xE1!>SOUNDERR<UNK! {00FB}>nsLISTTHENeXFNKEY/24<0xB6!>WHILEzMOTORBEEP>STEP>ERRERASE<UNK! {FD63}>L<UNK! {00F5}><0xE2!>RESUME7jLPRINTMERGEI^<3wSOUNDERL<0x9A!>/ELSElYNEXT?/bLOCATE8a]cOPTION]>zqZOPENls<0x9A!>WEND!^8EOPTION3.85156E+34<UNK! {00F9}><UNK! {0002}>'RENUM<UNK! {0003}>y]&0<LPRINTaERL#KEYLLISTREMIDEFDBLz03WRITEO<UNK! {0003}>OLOCATE20;wPOUTdFN<SCREEN<UNK! {0006}>MOTOROsWWCLEAR)/MOTOR&H8389DIM/%1MERGERuWHILE<UNK! {00F6}>CLEARCOLORRETURN`08<UNK! {001E}>&HA49DX}&H6D20<LPRINTSCREEN<UNK! {0002}>Y<UNK! {FDE4}><UNK! {00FB}>40gY%>KEYp018761CLEAR<UNK! {0007}>RESUME\RESUME(nsCCtTHENl'$'XOR7INSTRG9YKEY<UNK! {007F}> <UNK! {0006}>ERROR-^5BPRINT4.77909E+10hxDIM\eOUTERR&O37777762411RESUMEsINKEY$MFTPOKE<OR.STRING$<UNK! {0003}>RESUME<UNK! {FF5D}>&[z<UNK! {0080}>/RANDOMIZEDIMSCREEN6BLOAD[<UNK! {007F}>H<UNK! {000A}>PNEW9BSAVEWTO<UNK! {0006}>STRING$C<UNK! {000A}>3<UNK! {0080}>ELSE/)NOTMFORP3<0xE2!>nW<0xCB!><UNK! {000D}>ERASE=LISTTROFF<UNK! {001E}>p<UNK! {0003}>2<UNK! {00F7}>VARPTR$gSCREENLOADLPRINT-0.444542PRESETON+BSAVEELSEPOKE4L9kUSR=DIM]-VARPTRMERGEk<UNK! {000A}> :&LOCATE'<0x9B!>OFF^W'I3/@TROFF<UNK! {001E}>f[e<UNK! {00F5}>9HTROFF250<0xE2!>DEFs&H3ABBRANDOMIZEa2IF!IF\cEQVORPSETNLIST<UNK! {00F7}>4bu5/<0xCB!>POKE+-795370RESUMEGOSUBl-12.7087USR[27|7'kBSAVE;NEWPRESETOPTIONCv[kSTOPq^a<UNK! {00F7}>mORELSE5orWIDTH#MDEFDBL<0xE4!>SCREENERR<UNK! {00FB}>n]LISTGOTO-2.35542E+322FORAUTONEXTMERGE
  25. 38813  Q-15.8861{v!VARPTRPSET8NV9:STOP'ERRORWIDTHORSCREENGOTOcSTOP8WIDTHINPUT<UNK! {0003}>-ON
  26. 8556  <UNK! {00FC}>,PRESETV4.45359E+32110RESUMEAERRy8^<UNK! {FDD3}>'<UNK! {00F9}>REM4auk/LOCATETROFF<0xB4!><UNK! {0001}>F4VARPTRWRITEEDITZSTRING$ERROR+WAITj3Nz-3748?SOUND<UNK! {000D}>BLOAD0OR=i<0xE2!>TO<<0xB4!><0xE3!>0BSAVE.4VPSETSCREENM<UNK! {000D}>kgINKEY$@%GOSUB#CERRORDEFDBLPOKEFN<UNK! {00FA}>$2READTO9|SPC(LOADLPRINT%1OR<0xB6!>NEXTOPENBEEPYRESTORECONTIFCs}l<UNK! {0007}>Y6CLETSTRING$<0xE2!><UNK! {0001}>dIMPIyUSING<UNK! {0008}><0xB5!><0xE0!>TROFF(4$2/^-B'sn<0xE1!>l<0xE0!>KqnLOADG<UNK! {0010}>SAVE<UNK! {00FB}>fSTEPERLKIMP<UNK! {00F8}>kPRESETDEFDBL<UNK! {0005}><0x9A!>^<0x9A!><0xE4!>DEFSTRkERR<<UNK! {00FA}>[MERGEWHILEERROR<UNK! {0001}>GOTO0POKEAUTO<0xB6!>]COLORDIMOFFRESTORE80THEN%<UNK! {0010}>5<UNK! {000A}>$POINTlBSAVE10<0x9B!><0xB6!>STRING$<UNK! {007F}>yD`INSTR{SOUNDRUN:#=<UNK! {00F7}>TROFFu1WRITE_4WHILE<UNK! {00F7}>SOUNDUSRLOCATE8]READTOe}BLOADLOADLPRINT0.SOUNDREM3ELSEDEFINT<UNK! {0009}>DEFSNG<0xB6!>WRITE4O]-ERLKU7;GOSUB+8]73wRETURN<UNK! {0002}>CALLIMP<0x9F!>e7QC`<UNK! {007F}>LPRINTRETURN4<UNK! {0080}>59GOTORESUME&H4924DEFSNGjsTODEFDBLd<0x9B!>-29174t<UNK! {00F7}>_lLLIST/ERRw<UNK! {00F8}>OPENd2gk4USR<0x9B!>LINE&H4046<UNK! {0007}><<0xB4!>kOPTIONREMOFFGOSUB87Q#`rWHILEFOR<0xCB!>DATABLOAD510Hf8'9STRING$HLOAD<UNK! {0007}>ERL<0xE3!>|WRITE.<UNK! {00FC}>TOv0M<UNK! {000D}>"@OR2"KEYOLSWAP<0xE3!><UNK! {0001}>*VARPTRADIM<UNK! {00F9}>LOCATE5dLOCATEKEY<UNK! {00FC}>33ELSE<0xE3!>-/<0xE4!>&O37777733650OPTION4'0}DEFINTj[=h<UNK! {00FA}><UNK! {00F8}>D]><UNK! {0007}>y7#CONTWRITE<UNK! {0005}>RANDOMIZEYC9`0STEP6b$e<0xB4!>h<0xE4!>y<UNK! {0008}>YWRITE<UNK! {0006}><UNK! {0010}><0xCB!>SWAPd<0xB6!>2ELET5SCREENS8<UNK! {00F7}><UNK! {00F7}>STEP&>ZFNQ2NEXTPSETONsINKEY$M,A<UNK! {00FC}><TROFFfREM<UNK! {0003}>VARPTRRUN~2")tr<0xB6!>PNOTOBLOAD%<UNK! {000A}>+g='%BSAVE<UNK! {001E}><0x9B!>CALLSTRING$LNEXTG.STOP6dTRONuhp5BSAVEo$MOTORb4DEFSNG<0xE1!>BEEP<UNK! {0003}><UNK! {FD5F}>2.16651E-09NEXTWHILE<0xB4!><UNK! {0080}>CLS
  27. 64403  [e\cONTzmhINSTRPOINTi<UNK! {000A}>c@+USINGTHEN<0x9B!>OFF^d7Q?a0TO6bz SCREENwOFF<UNK! {0006}>!^CLSx05PRESETX<UNK! {0003}><0xE0!>^WAITAND=47V82TOPRINTINKEY$=-1.80133E+24<UNK! {FF24}>k"7\6<0xDF!>jMOTORMPRESET[10=~<NEW`FN:TOPRESETSTRING$Pv\\GOSUBErREM<UNK! {007F}>6AJTROFF-;<UNK! {FDC3}>GH<UNK! {0001}>)+DEF<UNK! {0080}>P8iVARPTRRESTORE<UNK! {FFE1}>3dNEXTBLOAD<0x9B!>IOPENBEEPnCLEAR<0xE4!>SAVE4r}b<UNK! {0003}>T<UNK! {0009}>Y*CSRLININSTR}{";wCLEAR<UNK! {0001}>LPRINT<UNK! {00F5}>TRONQ19027HyERLnf`vOUTjPOINT<UNK! {007F}><UNK! {001E}>YMERGE<UNK! {0006}><UNK! {0009}>ONRESUMEdDEFSTRaFMERGE"IFPpIMP
  28. 59183  O=LISTkULETSTEPINKEY$5<UNK! {007F}>4<UNK! {000A}>RENUMORkDEFSNGLISTOFFGOSUBp#T5wrLLISTM<UNK! {0002}>ATO%<UNK! {000A}><UNK! {0009}>fPERRd<UNK! {FF10}>MERGELETLISTO<UNK! {007F}>\`SPC(~dMOTORl6NG+o<UNK! {0007}>CLSOL<0xE3!>OUSING<0xE4!><UNK! {0007}>WAITBLOAD<UNK! {00F9}>IF6fCLOSELOAD<UNK! {00F5}>4DELSE<0x9A!>IPSETBLOAD-23043IFDiXxFN&O14011_MODBEEP<UNK! {0080}>D-9.25834E-121H8<UNK! {0010}>6TROFF#rasDEFINTqUSINGx-13992j&O37777774277SOUNDRUN;1\<UNK! {0005}>IF%pXOR/<UNK! {FF75}>WEND<UNK! {0003}>Pb_8iCOLOR>+<<UNK! {007F}>H<UNK! {0004}>\ORWBEEPRETURNRESUMESAVE~-[624LINEQPSET<UNK! {0080}>BLOAD*>6<UNK! {000A}>'ERR]<UNK! {000A}>WLISTNEWREMFORv3SCONT<+<UNK! {0008}>?VS244!\<0xCB!>BLOADGOSUBGNOT)/DEFtvSTOPTHEN6.USINGKEY<UNK! {00FC}>33IMPPOINT3OPENBEEP*GOSUB<0x9B!>PRINTPhM-<UNK! {0001}>INPUTT7%^STEP'}ISCREENDEF31738y|([eCD0THEN7tqmOUT7<0xDF!>y0<UNK! {0006}>LLIST25016BCLEAR <UNK! {0002}>U{=<UNK! {FDCD}>;<0xE4!><UNK! {00FB}>READqCOLORLPRINTWHILE-2.84475E+19DELETE<UNK! {FD3F}>STEPBSAVEERRORT<UNK! {000A}>GWENDOUTLINEck<LOCATE1ERRNEW;IMP=PRINTONMOTORCXvjWHILE&O37777740422BJZDIMAUTOZpCOLORT^OFF<0xE4!>RETURN<0xCB!>LOCATEnENDINSTRSTEPDG<0xE4!>KEY-247016IRESTOREREAD-9475FN<UNK! {0002}>-1.631E-064<UNK! {00F8}>FC<UNK! {0009}>0IMPc[87PSET|ELSE=7X&H314A;ON|0AUTO4
  29. 55713  <UNK! {001E}>IFd=RJERRtINPUTp8ERLSTRING$TROFFY<UNK! {00FB}>CLOSE&O37777711417IFNOT(FPSET<UNK! {FE46}>SWAPERROR+VARPTR.ERLKEYTRONBEEP/l7p8p<UNK! {FDAE}>PSET+<UNK! {00F9}>CLOSEU'0MOTORPSETSCREENb<UNK! {00F5}>CALL,INKEY$WEND<UNK! {000A}><UNK! {0003}>=<UNK! {00F6}>tdBLOAD VLCTROFFD%<0x9B!>FOR4LOAD<0xE0!>NEWBSAVE<UNK! {00FA}> vLOAD<UNK! {00FB}>9}<UNK! {FEB7}><0xE1!>d4WRITE<0x9A!><UNK! {007F}>IMP<UNK! {0002}>NEXTtTAB(n5NEWEQVNOTAND<UNK! {00F9}>EQVGOTOh|DEFSNG2FcwYCLEARVARPTR<0x9A!>ORRESUME(5N4X=TROFF+xq AUTOq<0xE4!>FORqnLOAD<UNK! {0006}><UNK! {0004}>CLSDEFSTR!ERROR-10095IFzlXOR^PSETxTRONOPENzpa6.USRPOKE<0xB5!>AL~)H<PSET<UNK! {0008}>*9<UNK! {FFC9}>Q8o2p<UNK! {0003}>PPSETk\<UNK! {0007}><UNK! {007F}>8G8<0xE0!>9NOTISCREENREMOPENCo\G<0xE4!>=151.097<UNK! {0009}>+2pDEFINT[^DEFSNG>PSET<UNK! {000A}>DEF"ZLOADIFINPUTe#AINPUTTHENEND?ERL&<UNK! {0001}>
  30. 42673  <UNK! {0080}>0c=h<UNK! {00F5}>AND\-c3ETROFFINKEY$ERLLOADSAVE(*H<UNK! {0009}>CxERL 'sr<0xE1!>l<0xE0!>KoTOCLLISTLPRINT<UNK! {001E}>IFd=RaERRtINPUTwGPRESETSTRING$<UNK! {00FA}>'<0xE2!>OPENZ3PF[<UNK! {00F6}><0xB5!>LIST=Fq>RESTOREMOTORREADORLINERESUMERESTOREl%N/]16862OUTLINEcWIDTH=SWAP1MOTORNEW<UNK! {0009}>WHILEe<UNK! {FD06}>ERLoFORrJ<0xE4!>4/MOTORIODIMDIMERLA<STOP#[SWAP-<UNK! {0001}>USING<UNK! {0008}>'`<UNK! {00F9}>TO6}THENCLS</ENDRESUME<0x9A!>LETSOUND
  31. 39140  uw\yLISTOFF<UNK! {00F8}>PRINTRETURNBEEP48RENUMt_rUSINGRETURN<0x9A!>MOD^Q&X8/cVARPTR!rye<0xE1!>^<0xE1!>FOR-14048<sDEFDBLANDSOUND<UNK! {0007}>INSTR[<UNK! {00F5}><UNK! {0005}>DEFINT<0xB6!>?162;'3DEFINT#20486TAB(<0xB5!><UNK! {00FB}>CsLp<UNK! {0007}><0xB6!><UNK! {00F8}>ZSTRING$CLEARTHENDIM}^T)e^<0xDF!>qTROFFuAND<UNK! {0005}>1H<~BSAVE9CLSNEXTTOLOADSWAP?-NEXTCALL<0xE0!>T5<UNK! {00FB}>Y<UNK! {0007}>AbERLA5<0xCB!><UNK! {000D}>DEFINTOFFMERGE96wRETURNSPC(<UNK! {FF74}>GOSUB3217/&H6BE3?SAVE<0xE1!>gUSR*!P\<0x9B!><UNK! {FDD5}>1G]STEPVERRDIM|(<UNK! {0001}>{NEXTp&O37777774061REMORERASERANDOMIZE2.77394E-10DIMGOTO0&O37777776543m3GOSUB<UNK! {0007}>ERASEsP8<UNK! {00F9}>19818FORec3`0<UNK! {0080}>EO<0xB6!>ERL%G<UNK! {00FB}>IFMOD=(<UNK! {007F}>LOADhSPC(pRESUMEgSTOP POKE<0xE4!>DEFINTbPOKE<UNK! {0005}>MOD<0xE5!>LETWTAB(EQVPOKEVARPTRELSE+K-`
  32.