home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / resume.lbr / RESUME1.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1993-10-25  |  6.6 KB  |  24 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!>H<0x9A!><0xCB!>TAB(W<UNK! {0003}><0xB6!>DEF<UNK! {00F9}>|DEFDBLz<UNK! {0002}>END<0xE3!><UNK! {000A}>PSET?GOTOmEFOR@zWAIT3SCREENINPUT<UNK! {FECC}><UNK! {00FC}>A-<UNK! {00F8}>lOPENERASETHENMOTORLPRINT(COTROFFu@LOADU_DEFSNGOFFCLSTAB(DEFRsGOSUBSCREENk<UNK! {00F9}>MCLOSETHENSOUNDXOROR2#TOKEYY<UNK! {0003}>INKEY$BEEP<UNK! {0006}>+67IF632bLLISTIF10U<UNK! {00F6}>IINPUTKEYlSTEP7^F^OFFAUTO5r<0xE5!>RETURNINPUT$D1<UNK! {000A}>RESUMEINSTRq0a<UNK! {000D}>UDELETE<0xE0!>VARPTR<UNK! {000D}>x<UNK! {0008}>OPTIONNEW<0xE5!>'RnRUNPSET'<0xE4!>DEFINT"147Q8ONDATAINKEY$/STRING$fPOKE5OR2RETURN<UNK! {00F8}>CLEAROUT?USRBSAVE]q-20929PSET+<UNK! {FFBB}>UERR<UNK! {000A}>^>'POKE+,<0xB6!>PRINT[-Q.EDIT<0xB5!>NMOTOR<0x9F!>60~MERGE<UNK! {FE4A}>AUTO<UNK! {000D}>TRON=EQVBSAVE<0xE0!>w<UNK! {FF32}>MOD<UNK! {00F7}>INPUTC2KEYREM5ELSE+U\SOUNDBLOADERR0.000310863EQVTHEN?DIMTROFF<UNK! {00F8}><UNK! {00F9}>DEFSTRm<UNK! {0006}>eZIyLLIST<UNK! {00FB}>RESUMEELSEDEFSTRZ14141`bSTEPnDVE
  2. 15440  -KEY<UNK! {0006}>-REMLLISTdLPRINT58125<UNK! {0002}>'g<0xE3!><UNK! {00FB}><UNK! {FE62}><0x9F!>FN4\h7'THENREMERASE-3.74961E+25RESUME<UNK! {FDF9}>LET]<UNK! {00FA}>SPC(<UNK! {00FB}><0xDF!>-SCREEN<0xE1!>CONTLOCATE<UNK! {007F}>VbLINEt<UNK! {0005}><UNK! {0005}><UNK! {0005}>,h6FNEREADTAB(yER'DEFINT5WENDDIMERASE?BOUTp<UNK! {007F}><UNK! {00FB}>DEFDBL<UNK! {0001}><UNK! {00F5}>DEF10t<UNK! {00F9}>VARPTR8XTHENDEFINT/2FEQV<UNK! {0009}>LPRINT(EQV0#0-ON=<UNK! {0009}>7hDEFSTR<8<UNK! {0006}>-2.22602E+25DELETE<UNK! {00F8}>TROFF_[10CSRLINSTEPR<0xDF!>STRING$<UNK! {0007}>ON <0xDF!>7RESUME<UNK! {0006}>q,KEY<UNK! {0006}>sWRITE<UNK! {00FA}>9.36645E+16"IMP108PRESETLET<UNK! {FE5E}>LINEOPENy]_kDTHENONLINE&HF46THENWHILEIMP,/rHWRITEmNEWBSAVE22p<0xDF!>?PSETABLOAD[<UNK! {007F}>H8|NEWDIMPSETWRITE<0xB5!>BSAVE<UNK! {000A}><0xE3!>LPRINT3}<0xE0!><0xB5!>^/K6USINGDIMERLsWIDTH<0xCB!>Z32989<UNK! {0001}>+DEF<UNK! {0080}>J8CALLERL10^OUTSPC(8,STRING$AND343440N<UNK! {000D}>OFFLIST(67STOPDEFSTRAND-IFa4yUSINGNEXT^LOAD+'EDITCH/INKEY$TROFF<UNK! {0080}>u<UNK! {0005}>
  3. 58968  <UNK! {00F6}>,<0x9A!>:LLIST4<UNK! {00F8}>247aLOAD<UNK! {00FC}>CREADSTRING$-SWAP*TO'2OPENRESUME5<UNK! {0008}><UNK! {FFBB}>ON{INKEY$a<0x9A!><0xB4!>xH<0xB6!>ERL6fRESUMEEQVENDSAVE<UNK! {0008}><UNK! {0007}>2pPOKEDIMMOTORO<UNK! {FE5B}><UNK! {0010}>>tP
  4. 52246  MOTORBEEPTF3ISTOP<.ERREND6ADIMCLSsrSCREEN%5TDELETEpbMERGE7STRING$77e10LPRINTDEFSTREQVd1WIDTH<0xE3!>JGOTOCLEARYDEFSTR<0xE4!>RESTOREBiLET-<UNK! {000A}>KzohERRTAB(|<UNK! {000D}>c2RERASE=KEYELSETROFFi4Ht1+.RETURNta35136RESUME&H2C38SAVEy9BSAVEDEFSNG:IMP-KIF9<UNK! {0001}>bgLLIST<0xE1!>ERRr<0xE4!>ERRDIMgik.KEY>READs~4TO<<0x9A!>ZSTRING$MOTOROFFLOADX3M32W<0xDF!>XKEYTPRESET60<UNK! {007F}>frt<0xB5!><UNK! {0003}>_5wSTRING$A}]]IFE,TAB(F6S<UNK! {0009}>TROFF41<0xB5!>W4DEFSNG<0xE1!><UNK! {0001}>'<UNK! {FD1B}>fLOADGOTO3fVARPTRSCREENTROFFvXOR39ILOCATE!SCREEN<UNK! {FDE6}>OPTIONC)0<UNK! {0080}>>w47A<UNK! {0001}>^F-/7ETROFFRESTOREDELETE'DEFSTRfYDATA4JeCSRLIN;y[ OUTtCSRLINKqEOPENksKEYERASE1ELSE1309.768#LINELETTO<UNK! {0007}>:<UNK! {0007}>AERLLISTQLOCATECOLOR<UNK! {00F8}><UNK! {FE6E}>3-POKESTRING$DEFINTSTEP610OFF'<UNK! {00F8}><0xCB!>"RESTOREjCLEAR?0!bPSET<UNK! {007F}>JC?<UNK! {0009}>9*9ERRORWENDSTRING$L<UNK! {007F}>EW<0xE4!>$3ERL;6mgLOCATER\KEY<UNK! {0006}>pEND<UNK! {0001}><0xE4!><UNK! {00F5}>POINTn4<UNK! {00F9}>'=FEQVOUTLPRINT14SAVE<UNK! {0001}>)<0x9A!><UNK! {0002}>RANDOMIZELETTRONERASEERRNEW0/<UNK! {0002}>J<UNK! {0009}>l +MERGEl12=(SAVE'ERRORELSEDEFSNGi'=<UNK! {0009}>`<UNK! {007F}>STEP3dp SCREENwOFF<UNK! {0006}>0LOADSTEPdSWAP2><UNK! {FD6E}>k\kSPC(CONT8<UNK! {0007}>DEFINT<UNK! {0004}>WERLLISTQPSETONs<UNK! {00FC}><UNK! {FE14}><0xE5!>xDIM<0xB5!>f3LLISTRESUME<UNK! {FD49}>4[%arON&IMPtEQV<UNK! {0009}><UNK! {007F}>3w)NEW$IFWONLETCLEARCqV4POKE1dTHEN7VQ<UNK! {0008}>TROFF<UNK! {0006}>-8.50579E+3610fWIDTHLETe'PRINT<UNK! {00F7}>LPRINT^MORRUN-TO POKEREADWAIT<UNK! {001E}>ERROR-9.75638E+2169h{MERGEJIF0EDITGOTO<UNK! {FDAE}>5.94125m#2<UNK! {0001}>LPRINT?%<UNK! {0004}>*<0x9B!>DATAITROFFqBWHILE>LISTSTEPDEFINTB&H4BD0<UNK! {FE2D}><UNK! {00FC}>RgLLIST<UNK! {FDD8}>s<0xB6!><UNK! {0003}>Pf*kUCOLORMOTOR<0xE2!>sLLETPOKEDELETELPRINTjSTRING$IFUSINGPOKE82Z3krOPTIONJLOCATEMBLOAD556w1<UNK! {FE39}>FNITO<0x9F!>BEEPNx3\ELSE*9TO76<UNK! {000D}>HDELETEuSTOP<0xE4!>\SWAPSOUNDBCSRLIN/wDu<UNK! {007F}>h<UNK! {00FC}>8kSTRING$<0x9A!>eENDERL<0xDF!>712|<UNK! {0001}>TAB(nERL]ZRANDOMIZEtDEFSTR<UNK! {0009}>SCREENwDEFDBLRESTORE8$_DELETE%STOPB&HED10<UNK! {00F8}>F:NEXT/X<0x9F!>RETURNGOTO[OPTION@GOTORESUMESTRING$FOR'
  5. 57354  ERR<UNK! {000D}>;&H955E5<UNK! {000D}>LET~*<UNK! {FDDB}>E+47&Z[COLORRENUMWHILE9\TDEFSNG<UNK! {0001}>MOTOR}TRON<UNK! {0003}>STRING$SAVEd#"l-3748<UNK! {000D}>LET&O64625QH8kNEW9PSETWRITE<UNK! {000A}>MOTOR <0xE2!>DEF3,<0xE4!>kdMOTOR)ODIMDIMERRRCGOSUB#CERRORDEFDBLPOKEFN<UNK! {00FA}>$2LISTSCREEN7lCLOSE<UNK! {00F7}>DEFDBLrOOR<0xE1!>7SCREEN<0xE5!>]0WIDTH-LIST=F7h<UNK! {00F5}>TAB(|<UNK! {000D}>c8;LIST<UNK! {FEB8}>ANDLLIST%t39C0USING;ya MOD6EDIT<UNK! {0006}>o<UNK! {0007}>KEYaO&POINT-16353VARPTR<UNK! {00FC}>nIF28LLISTCSRLIN<UNK! {0003}>sDEFINTRETURN4DIMRk[<UNK! {00F5}><0x9B!>DEFSNGs7RUNPSET<UNK! {00F6}>OFF <UNK! {00F8}>ERRWAITFN#p"x)r<UNK! {0006}>Cf<UNK! {007F}><0xCB!>ERRORLLIST'<UNK! {000A}>rNEW22466GOSUBGOTOCOLORQ<UNK! {000A}>cVLIST7)MOTOR?zND<0xE2!>%p<UNK! {00F7}>8<UNK! {0002}>ORLPRINTSTEPRESTOREKEYn0>GOTOC-[I<0xE5!>BSAVEWIDTH|<0xE3!>/TO0EDIT<UNK! {0003}>><UNK! {00FB}>CSRLIN-9.75638E+2169hSMERGENGCLEAROPENyERRRESTORE"ELSESOUND,RESUMETAB(H10Ln= EQV29AUTO<UNK! {0006}>BSAVE,NOT<UNK! {001E}>m<UNK! {0006}><0xE0!>>^S<UNK! {000D}>6NEWC_0DATA<UNK! {0009}>NEWWAITDlMG<UNK! {0004}><UNK! {00FA}>[MERGECOLORLINE0RESUME<UNK! {FF19}>^"z2r<0xDF!>?PSETAWAIT[+7|5RETURN'RANDOMIZE9424cC<UNK! {0008}>3.<0xE4!>EdMOTORM6sDIMTROFFopKEY#4OFFDEFDBL<UNK! {0001}>BSAVEDEFn2<0xE4!>GOTO9lSTEP<0xB5!>LPRINT1DORTRONNPRESETON-<UNK! {FD99}>RESTORE^h0}LINEwfWFGOSUB+8<UNK! {0006}>43(BEEP<UNK! {0001}>DEFSTR^SWAPW'CAUTOdxCONTNEWWAIT$"<0xE1!>7RESUME<UNK! {0006}>q,KEY<UNK! {0006}>s<UNK! {0006}><UNK! {00FA}>d^aK<UNK! {00FC}>tIF'8LLISTLETPSET'<0xE4!>TROFF4fn-11454TRONINKEY$<UNK! {0010}>UJ<UNK! {00FB}>ELSECALLkSOUND<UNK! {0003}>OFFPRINT}#P/\9<0xE5!><0xDF!><0xE5!>HLIST<0xB5!>ANDH8PNEW9BSAVEWTO<UNK! {0006}>STRING$uS~&HBC1d
  6. 17227  <0xE1!>#p<0xE4!>#qELSE<UNK! {00FA}>ONBSAVE<UNK! {00FC}>0fTHENLOADTROFFSOUND<UNK! {00F9}>OPEN<UNK! {0009}>ANDDEFINT
  7. 64484  40=7DRESUME]MERGE<UNK! {0006}>?W3USING<0xE0!><UNK! {00F9}>qOR&H3D5BWEND/]<0x9F!>LLIST%`"<0xE1!>USINGRESUME7U:)STRING$<UNK! {0006}>OPTION7USING^4O&HD76E%8vLETTRON#4SCREENy7&LOAD[WHILESWAPSOUNDLISTVARPTR<UNK! {000D}><0xE0!>:|.<0x9A!><UNK! {FF57}>23o z<0xE5!>rIFCW?LPRINTU<UNK! {007F}>DEF<UNK! {000A}>^<UNK! {0006}>VARPTRBSAVEuV<UNK! {0006}>INSTR<0xB5!><0xE5!>NOTUSRLPRINT;SAVE,M)WEDITNEXTNEXT9<0xB5!>BEEPERASEOFFWHILEDEFINTTROFFLINES~<0xB5!>USRe'PRINT<UNK! {00F7}>TROFFvXOR145DIMSAVE"SCREEN<UNK! {FDE6}>DEFLdNEXTv<UNK! {0002}>=INPUTwhGOTO<F{[3*BSAVETHENELSEELSESCREENe)I5J|VARPTR s$OWHILEhUSING|0LISTMODd<0xB6!>2EWRITE1<UNK! {00F5}>Y%SWAPh<]SOUNDhOUT5$1,VARPTR>TRON<UNK! {0004}>FJ<UNK! {0007}>DEFSTRORfLISTLPRINTOFF<UNK! {FF7D}>1"6{$WENDK<UNK! {0001}>DATABLOAD(9;rP<0xE4!>&H1CF0<0x9B!>RESUMEMODg<UNK! {000A}>Z`<0x9A!>6.TO&H4A7B<UNK! {0009}>+o1OPEN%ERL2<UNK! {00F9}>RENUM`&n0INSTRINKEY$@%CLOSERUNSCREEN-4275WAIT-<0x9A!>DELETE<UNK! {000D}><0xE4!>OPTION<UNK! {00FB}><UNK! {007F}>Q0GOTO<0xE0!>v=7@GOTOSWAPE7;}wERLRESTOREOPENCLOSE^&O660215sC<UNK! {00FA}>@;$eDEFINT[EDIT&HBD47)7<UNK! {0008}>z7ERRSTEPUSRK<UNK! {FE4E}>IMPS8IMP
  8. 53153  INPUTYu12THEN>TRON<UNK! {0004}><UNK! {007F}>G<UNK! {0006}><0xDF!>TROFF.SAVEBSAVETAB(RUN82Qzz7<0xB5!>DIMPSETXERLB<UNK! {007F}>=s$POINTlUSRVSTRING$&GOSUBHRESTOREFNCLOSEPSETTOdBLOADuJ?0\"9149^SWAP<0xE3!>KEY<UNK! {0003}><UNK! {FD6E}>ZSTOP<UNK! {00FB}> 8<UNK! {FEB7}>LPRINT33TROFFOUTNEXTMOTORRETURN.KEY<0xE4!>GOTO^l\cFNQp4h=TAB(f&O23436:BLOADERRTROFFPOINT^X14675`<UNK! {007F}>LPRINTRETURNRESUMEwRESUME?GOTORESUME&H541DLETxs<0xCB!><UNK! {00FA}>/OPTION<UNK! {001E}>9RANDOMIZE <UNK! {FE51}>lLLIST<UNK! {00F8}><UNK! {FF75}>DEFDBLTHENREAD5}#,COLORLPRINTERROR8<UNK! {007F}>GPOKEWIDTH<0x9A!>cSTRING$REM<0xE0!>RUN8'S*`3<0xB4!>TSTEPRERR[10@w"'9'35520ERL<0xE3!><UNK! {0003}>XOUT<UNK! {FECC}>dBLOAD&O37512&O227644KEYP`CALL>PSET<UNK! {0009}><UNK! {0003}>7a<UNK! {00F9}>SCREEN-3.98446E+0836<0xB6!>WHILE3STEPCLEAR0DIMOUTDEF_&0iTHEN|{76SPC(SCREENk{2'(LIST<UNK! {0009}><0xB6!>^SWAPW'DH<UNK! {0009}>WIDTHCDIM{SCREEN<UNK! {0002}>PB9<UNK! {0006}>o!\3BUSING=y<0xE0!>tDIMFNYOPEN9$RENUM<0xB5!>DEF%AND+47K6tTO>DEF$o&POKE<0x9B!>WRITEaCLOSECLSOFF<UNK! {FE17}>SAVE<UNK! {0007}>.NEWSTOPN?SOUND&H6A86Ru?}MOTOR$IFFOR<UNK! {00F9}><0xCB!><UNK! {00F7}><UNK! {0006}>;<UNK! {001E}>-1.91352E+11<UNK! {0001}>10CLS+BSAVE4<0xE3!><UNK! {0008}>KEYFNDEF wLOADTHEN98*LOADMOD.7ORWAITMCLOSEREM'<UNK! {0004}><0xE4!>RENUM^h~^ONw4L=<UNK! {00F6}>OR863I,CLEAR'^<UNK! {0008}>TRON]+=x/rCSRLIN6.30494E+138RESUME8c"KEY<G<UNK! {0006}>BLOADDIM<UNK! {00F9}>MOTORCSRLINSTOPEDITeOPEN8STOPXORf<UNK! {0007}>)TAB(KEYUSINGLISTkURETURN><UNK! {00FB}>su*<0xE4!>PRINTORyLLIST<0xE2!><UNK! {00FC}>SCREEN^^pSNEXTC<UNK! {0006}>qTROFF%BLOAD(101~5MOTOR$<UNK! {0008}>:PRESETCLEARSTRING$UG^WINSTRE63.27444XOR[pLETYPOFF<0xDF!>KEYFN<UNK! {0009}>72LIST<UNK! {00FC}>7[LOCATERENUMTROFFSOUND~LLIST5ANDY
  9. 64484  40<UNK! {0009}>7hDEFSTRMERGE8{cIwUSINGRESTORE^ELSE^(Y=J/0TROFFn{]kOUT7FNy&HAB1B{s<0xCB!>EDIT6OPTION 165tPRESETXc<0xE3!>RANDOMIZETO<UNK! {0007}>ELSESTEP<UNK! {FDD7}>LISTQPSETCOLOR<0xE4!>\s'T<0xDF!>
  10. 43734  RESUMEDEFINTL<UNK! {0005}>qK<UNK! {007F}>SPRINT#PSETVSTEP>2=?}<UNK! {0002}>x<0xCB!><UNK! {000A}>
  11. 18047  aWREM*hMOTOR&H8389DIMMOD69.48534E+21$0887<UNK! {00FB}>RESUMEXLPRINT^ENDOR<0xE3!>3SCREEN
  12. 64484  40<UNK! {0009}>7hDEFSTRMERGE8{cIwUSINGRESTOREELSE<UNK! {00F8}>EDITmY\5F6KEY7'elDEFDBL]+J<UNK! {0008}>,MERGEy<UNK! {0001}>COLOR>dLPRINT5>READtANDX|LLIST\<UNK! {0003}>tLINESCREEN<UNK! {00F5}>THENg<UNK! {007F}>OPTION.><0xE4!>sFTPOKE<OR.STRING$<UNK! {0003}>RESUME<UNK! {FF19}>^"z2r<0xDF!>?PSETABLOAD[<UNK! {007F}>H<UNK! {000A}>PNEWfSTRING$145NEWSTRING$SNEXTaILIST70@\%5.64354E+13OFF<UNK! {0001}>NOT<UNK! {0009}>2wREADGOTO,10[LPRINTORZTRONFOR<0xE3!>200Y<UNK! {FDE4}><UNK! {00FB}>40<UNK! {0009}>7hDEFSTRMERGE8{cIwUSINGRESTORE^ELSE^(*H:rcINKEY$"b$sOUT[POINT<UNK! {007F}>"bMOD<UNK! {0006}>6ON<0x9F!>d<0xB6!> E<UNK! {00FC}>0<UNK! {00FC}>'}>EQV''OPTION<UNK! {00FB}>yptiCLOSE2POKEINKEY$pCLOSET<0x9A!><OR.STRING$<UNK! {0003}>RESUME<UNK! {FF19}>^"z2r<0xDF!>?PSETABLOAD[<UNK! {007F}>H<UNK! {000A}>PNEW9BSAVEWTOREMOPTIONCv[SREME4NOT>PQG-o<UNK! {0007}>MOTORbBOFF-RETURNNOTDEF1]NEWTOe}TOKEYEQV,DEQVCOFFPSETLOCATEOPENt<0xE4!><UNK! {FD34}>0<UNK! {0009}>7hDEFSTRMERGE8{cIwUSINGRESTORE^ELSE^(Y=J/0TROFF=s\eDEFDBLBRESUME>(cDEFSTR<UNK! {0006}>!<0xCB!>ERROR!^7?<UNK! {FD5D}>IFTl<0xE5!>/<UNK! {0003}>xOPEN'G7<UNK! {0006}>q,<0x9B!><UNK! {0001}>OsLTPOKE<OR.STRING$<UNK! {0003}>RESUME<UNK! {FF19}>^"z2r<0xDF!>?PSETABLOAD[<UNK! {007F}>H<UNK! {000A}>PNEW9BSAVE10NEWREMMOTORCuGCPOKE@d<UNK! {0008}>J6S286428.67778E+27EQVNEWERRTAB( wRETURN<UNK! {00FA}>XePSETWEND<^ELSECALL<0xB4!>2+qY<UNK! {0003}><0xE4!><UNK! {00FB}>40<UNK! {0009}>7hDEFSTRMERGE8{cIwUSINGRESTORE^ELSE^(Y=J/0EQVR'teDEFDBLkUSINGx0`SCREEN<UNK! {0006}>s<0xE3!>LLISTdDEFSTR58IFt<UNK! {00FB}>fm<UNK! {00F5}>LET&O37777727447<UNK! {0002}>DIMgrkUNEW<UNK! {0006}>OPTION<UNK! {0004}><UNK! {001E}>WRITE)<EQV\REMSTOPTHENCLEARl_ `BLOADCLEAR}P\>INKEY$[}7h5<UNK! {FF6A}>BSAVE-1.9036E-05\3EOUT@2MOTOR8LETMCTROFF4052GOSUB<UNK! {0001}> jLOCATEKEYCALLdBWRITE<0xB4!>INPUTIFBEEP*<UNK! {FDDA}>FN<UNK! {0002}>-1.38E-074<UNK! {00F8}>TOCSRLIN<UNK! {00F9}><UNK! {00FA}>>c[#6lAIMPRENUM<0xCB!>SCREEN10CSRLINSTEP10NOT<UNK! {001E}><UNK! {0004}>END <0xDF!>7GOSUBx7.8542E-05OPTION<0x9F!>9WRITE-9675<UNK! {00F7}>'e<0xE3!><UNK! {FEDA}>'POINTSTRING$DATAYjk5NOT<0x9A!>INKEY$ZF4<UNK! {0006}>RENUMRESUMEkSOUNDSAVE/PSET8p3l2p*?-Ecd5086DATASTRING$6OWIDTH<UNK! {0002}><UNK! {00FB}><0xE3!>6cOPEN<UNK! {FFD2}>dEDITLOAD0<0x9F!>STEP#<0xE3!>OFFMERGEoeDEFLLINE<UNK! {00F9}>DEF<0xE1!><UNK! {00FA}>[=^SPC(TRON~<0xE3!>"LINE RANDOMIZETROFFNEWs/NEW0<UNK! {FDA6}>/@7j<UNK! {0005}>STEP}<UNK! {000A}>04,BLOADERR<0x9B!>VARPTR^Z14930`<UNK! {007F}>USR7&$ <UNK! {FF6D}>POINT<UNK! {0006}>#cDEFINT<UNK! {0006}><UNK! {0004}>POKEDEFDBLd<0x9A!>10KLET9986n><UNK! {00F7}><UNK! {0003}>dELSE'410(][MERGE<UNK! {0006}>T<UNK! {0003}>TOWRITE%<<UNK! {FD4C}>6'5<UNK! {FF03}>:?<0x9A!>LOCATE"k<0xE4!>7<0xE1!>E+'[<0x9B!>LINE.i"DEFSTRa<UNK! {0006}>LPRINTC<0x9B!>3@6ZhDEFDBLINPUT*&O12550LIST\USING/1+MERGEmc<0xB5!><UNK! {00FB}>2MOD-2.4009E+33ERR|(VARPTRSCREEN<UNK! {FDAC}>PRESET6B<UNK! {000D}>'$-1.7388E-09wwUSINGRESTORE^ELSE^(hR./_<UNK! {FE3F}>B$.MOD6RESUME&HBD47ORDEFLIST$RENUMAUTO5USRKBEEPpLINE<UNK! {000D}>RESUMELLIST0CdANDLETUSRCOLOR<UNK! {0005}>COLORK)PSOUNDLOCATEVARPTR<0xDF!>ERL<0xE2!>AUTO<UNK! {FFCA}>^4RESUMEFNr<UNK! {FDC1}>PSET+CALLWRITE<0x9F!>l{TRONoSOUNDBSAVEiSOUND&6ZwSTEP9uENEWDEFSNGCALL33855<0xB6!>$$KEYy4STOPWAIT<UNK! {0001}>TOLOCATE7vLOADTHENejTOKEY<10<0x9B!><0xB4!>uGOSUBCLEARYBSAVEERASEPRINT4bPa<UNK! {0009}>=pw0c&(LOCATE'DELETE'SWAPf.DHSTEPPOKETAB(POKE<UNK! {0003}>CONT NOTvH4<UNK! {00F8}>,NOTERLp&s5<UNK! {FDBD}><0xE0!><UNK! {00FC}>LIST<-2.222E-147&LOAD[WHILE/BSAVEs3STRING$POKESTRING$MODLOCATE6E'<UNK! {00F5}><UNK! {000D}><0xCB!>"RESTOREjCLEAR<UNK! {FDB2}>PSETEQV<0xB4!>MFH8 INSTRl<UNK! {FF3C}>PRINT<UNK! {0006}>EQV"ZzjBEEP0INPUT<UNK! {00FB}>x6<UNK! {000D}>HDELETEuJT#"DEFDBLOCSRLIN=DEF<UNK! {0080}><UNK! {00F8}><UNK! {001E}>ifkREADOFF<UNK! {0010}>doERRORC6Y
  13. 50942  4#8:<UNK! {0009}>Q<UNK! {0009}>Z-DEFSTRBEEPX&O30023wBLOAD<UNK! {00FB}>^INKEY$DEFSTRd5=3`dTROFFt'?$<0xE1!>9RESUME<UNK! {0080}>5.99302E+073JTIMERCLSU#FOR4PSET8OPENZ3CLOSE<UNK! {0006}>J%DEF<UNK! {0002}>Ks8<x<UNK! {0002}>FOR.RETURNSTR$AUTO-|DEFDBL`BLOADCLEARERASEQSWAP<0xE5!>2[}H<UNK! {000A}>P<UNK! {FE6C}>ERR;TOGOTOSTOPC\1<UNK! {007F}>MOTORErREM<UNK! {007F}>6A\5M<UNK! {0001}>)P^GOTOSpBSAVEINKEY$r<UNK! {0009}><0xDF!>8eRESTORECLOSEOUTELSESOUNDMODELSEGOSUBXORc
  14. 43740  <UNK! {0010}>)-9.49512E+13Ygco<UNK! {00F9}>USINGTRONDELETE}<UNK! {000D}><UNK! {0002}>+}^SAVE0WHILE&<UNK! {0007}>.PRINT<0xE1!>SCREENWRITE$X,PRESETO<UNK! {0004}>REMRESUMEdCALL89READ IFSX<UNK! {00F5}>MODPSET^DEFDBLOPENyZ&-1.23655E+285UA<UNK! {000A}>RENUM<0xB6!>bSTOP<UNK! {0002}>AUTO-3.5E-16f6*[q$*LINELETkSTRING$RENUM_<UNK! {0006}>5`Bv9INSTRJeNKUADIMTo<UNK! {00F9}>KEY9RMOTORDEFDBLCSRLIN@DEF<UNK! {0080}>OPEN1.45062E+29OFF<UNK! {0010}>doERRORC6Y
  15. 50942  4#aaUSR|DIM]hREADSWAPI&/7SAND>INSTRELSE<0xE3!>&gCpSAVE0WHILE <UNK! {0007}>.GOTO<0xE1!>5STOP-PRINTZDEFSNGLLISTow<UNK! {00FA}>ZERASEMOTORqmt[8167LETDELETE#>OPEN&O21020kUCOLORINSTRXORAF4POKE<0xB6!><0x9A!>mREM<UNK! {0003}>STRING$SAVEd#-2.95937E+07KEY<0x9F!>(iBSAVEpSOUNDBSAVEiSOUND&/WEND<UNK! {000A}>k9PRESET<UNK! {001E}>`<0x9B!>POINT5DEFSNGDIMGOTO<0xDF!>NEW)<UNK! {00F8}>_YSpBSAVEGOSUBc"<0xE1!>OPTIONeGPRINTKEYKEY31ORPRINTNEXTRUNRESTORE-7022INKEY$ZhC-CLEAR6H7f<0x9A!>REM8WQILCLEARUSING<0x9A!>MODDELETE(<UNK! {001E}>DATA3/?PRINT`'SnOUT7ORG4bDEFSTRjs/EDIT2RANDOMIZEsI-1894ELSE<UNK! {000D}>162;-UOPENT19Q>COLOR<UNK! {007F}>INKEY$,J~EQV<<0xFD8A!>2#WIDTH<0x9B!>DELETEBDEFDBL`BLOADr<0xE5!>jPSETVTAB(4<UNK! {0008}>=i$NEW`FN:TO<0xE5!>MODqcugOPTION04MOTOR6LETK<UNK! {000A}>\<UNK! {0008}>pDEFINT[QWEND<UNK! {00F6}><UNK! {0001}>ERRSTRING$-2.96586E+34d0ELSE<0xB4!>DATAGOSUBCLEAR[0WIDTH-LIST|WZ9+USINGp>64(KEYRESTOREDEFSTRMODDELETE(*Q3[tTROFFvDep<0xE1!><UNK! {001E}>RESUMEb"KLOADls+CLOSE/OPTIONxKSPC(bRANDOMIZE'6LOAD<UNK! {0009}>NEWCONTDINKEY$yPRINT<UNK! {0002}>
  16. 12002  MLTg<<UNK! {FD00}>2<UNK! {0003}>CLEAR}8P<0xE0!>WAITSPC(3CALL^bDEFSTRBLOADI6RESUME-LIST
  17. 52454  6<0xE5!>)?3,WEND GOTOERASEx+?4\o4<0xB4!>SHDEFSNG-SOUNDUSRDEF1sLISTGOTO*fFNDEFINT<0xE4!>2.1181E+27y<UNK! {00FB}>"oEQV'/=10DATAGOTOLm}MERGE<UNK! {007F}>1.02691E+35OPEN+!RANDOMIZETHEN.CSRLIN48n[MOD2397w<UNK! {0006}><UNK! {0004}>,NOTSPC(iERLLISTd<UNK! {00FB}>STEPDEFDBL<UNK! {00FC}>F<UNK! {0005}>'<UNK! {0003}>xOUTf$WHILET+SAVE&RESTORE5READMERGE<0xE2!>G<MREADVARPTRSTEP,STRING$8360wfyv<UNK! {001E}><UNK! {0080}>>SPC(SOUND~MOTOR[LINEH311529POKETHENTOkSTRING$5rNOT<UNK! {0004}>rERASEqERLDEFINT-DEFSNGDIMGOTO<UNK! {0007}>STOP)aa<0xCB!>VpBSAVEg}8USRGOTOk:<UNK! {FEB9}>LPRINTjENDCLOSE<0xB4!>{GOSUBCLEARY<0xE2!>ERASEPOKEQ)0]<UNK! {0009}>LETXk-DEFSTRREM'QcwajRESTORE<UNK! {00FB}>MOD<UNK! {000D}>1USR=TMOTOR4INPUT
  18. 52597  <UNK! {FD45}><UNK! {0006}>NEXTD)$<UNK! {FE06}>BSAVE`TAB(7O><UNK! {0005}>DEFINTOPEN8STOP8j<UNK! {0007}>rUSING6USRLISTkUORTROFF<0xB5!>4490<UNK! {0006}>DELETECSRLIN.EQV<0xE2!>RESUME<UNK! {FF40}>o106&rEQV<UNK! {000D}>LETA=5&H2B48>ERRd<UNK! {FF3C}>
  19. 2676  3<UNK! {0006}>ERRuyONK<UNK! {00F7}>/2RENUMCLEAR<UNK! {0001}>MOD<0xB6!>5TDEFDBLOPTIONPSET<0xB4!>LTROFF<UNK! {00F9}>/ePREAD)a9S5X3ELSE<UNK! {0004}>DELETE<UNK! {0003}>><UNK! {00FB}><0xE3!>0/<0x9A!>hOPEN^&H959B$c2!^LISTONSCREENRANDOMIZE<UNK! {000A}>,u3.nUSING2<UNK! {000A}><UNK! {00F8}>7AUTOX<yLPRINT[/<UNK! {0006}>DELETE3^-296267<UNK! {00FC}>Nl\LET<UNK! {0009}>fOPENOPENJZh65<UNK! {00FC}>CLEARINKEY$5UACONTVARPTRKEYBLOADSTRING$<UNK! {00F5}>STRING$0USRq^143ERRORLETx<0xB5!>-PRESETWRITESWAPSTOPRESTOREINKEY$LPRINT3FOR2VnMOTORLLIST6DEFSNGDIMGOTOCLOSEvMODSAVE4STEPBLOAD$BSAVE<0xB5!>\2MODTHEN<UNK! {0080}><UNK! {00F9}>0DEFDBL<0xE1!>KEY*ORDo
  20. 63433  STEP>,<UNK! {0002}>/<0xB5!>G<UNK! {0009}>ORhK<0xE2!>1&_}RESTORE&O37777772236pORs[=ON/7.12517E+23*PRINT<UNK! {00FB}>RENUMxjw<UNK! {00FA}>ZERASEMOTORqmt[8167LETTODERASELOCATE43&?,INSTR<0x9F!><0xB4!>s)4<UNK! {00FB}>LPRINTCSRLIN.PSETREADOFFSAVE~#"l-68208+A<0xB5!>)<0x9F!>rLISTPTRON=cWRITE.STOPDEFSNGINKEY$LPRINT3THENINPUT}INPUTBEEPEND0rKEY<0xCB!>4>SPC(<UNK! {0009}>ERRORIFZ@USRvkcMERGEKEYNdoPRINT>3IMPFORYp<0xE4!>EQV\<UNK! {FD47}>BLOADu2FORzGOSUBAMERGE<UNK! {0007}>2NEXTo<UNK! {000A}>USING\<UNK! {00FA}>DEF<0xE4!>(["&O10537CONTn[swOUTjRESUME-0_LOAD2sWAITEDIT!DEFSTR.25340RANDOMIZE86LOAD4PSET8OPENZ3LOAD&}GAUTO<UNK! {0006}>RUN-20126%<<UNK! {FD56}>6'9<UNK! {FF61}>b<UNK! {0005}>P6hN87<0xE1!>=D<UNK! {00F9}>]<0x9B!>PRETURNGOTOTAB(<UNK! {000A}>ONONREMCDATA\bPOKE6;MOTORIOJ4TROFF$$LINEWQ<UNK! {00FB}>DEFDBL'REMCOLOR]!KEYMERGEX?RETURN/OPTIONdOOFF<UNK! {00F5}>3XORFNENDTAB(USING<0xCB!>100=<UNK! {001E}>BSAVE8=7\OUTLIST$VKb]ERRl^-mTHENSCREEN10CSRLIN<UNK! {0009}>WIDTHTROFFK#G:p7THEN<UNK! {0006}>77)VARPTR3972USING^6O&H856E'LOCATELLISTWAIT9<UNK! {0002}><0xE4!>WIDTHIF5<UNK! {0008}>BLOADR_<UNK! {0003}><0xB6!><0xDF!><0xDF!>+POKESTRING$ERRORTAB(/rRESUME/<UNK! {000A}>L6z0ZLINEXPSETZLOCATE/2Hf8'9<UNK! {0003}>BLOADRUNBEEPZNEXTa.<0x9F!><(THENM~P2TROFF<UNK! {0008}>8DEFINT[4<0xB6!><0xE0!>LISTTHENWAITtSPC(<EQVPRESET&HC932REM2ELSE+OPEN3>OUTOPTION05OFFvWRITE0RlERASE]72WHILET3USING<0xE0!>9CLEAR<0xDF!>(DIM=USING/-2.5E-16<UNK! {0006}>GDEFSNGKEY7WRITE4.2E-16-1.62747E+37VARPTR107RESTORECOLORwINKEY$aN<0xB4!>BSAVEYOR,MODWHILE<UNK! {FDDE}>8<UNK! {0005}>qV6a<0xDF!><UNK! {000D}>LET&O76701IMPH29758#=WVARPTRj/<0xE3!><0x9A!>KINSTR<UNK! {0001}>SPC(d^LOAD(+DIMTo~9B4<UNK! {00FB}>1<UNK! {0001}>DEFSTRDELETEPOKESPC(2EQVON&HC932REM<ELSE+R37ORSTO<0xE4!><UNK! {FD6D}>g0c<UNK! {0006}>READz\0TROFFSPC(8<UNK! {0008}>"=3CLEARINSTR^CSRLINTRONZYDATAJ{^EQVU'pi<0xB4!>]SWAP&H3591LINE<0xE4!>j{<UNK! {00FA}>NEW<UNK! {00FA}>WFOR<UNK! {00FC}>n<UNK! {00FB}>Uj<0xE4!><UNK! {00F9}>&HAD7BOPENDATAa-7[<UNK! {FD9F}>ERASE18255THEN<RUNaCOLORPRINTRESUMEPRINT|+`3`y<0xB4!>?SCREENRSTEP[36\6NEWlTOHMOTORMOTORSAVEB<UNK! {0008}>NOT#GOSUBYLOCATE,M)aEDITMERGE<UNK! {00F6}>pUSINGWRITE1=<0xB4!>POKEDEFSTRq<UNK! {FF32}>MODEQVINPUT<UNK! {00F9}>SCREENLINEONLOCATEXOROR2#<0xE2!>KEYY<UNK! {0003}>LINENEXTuoV-<UNK! {00FC}>JDATA4h<0xE1!><UNK! {0004}><UNK! {0080}>{:I'BSAVE<UNK! {0008}>^^ERASEa*=C]0SPC(+'xiDEFINTl<0xE4!>Kqn<0xB5!>G<UNK! {0010}>MOTOR<UNK! {00FA}>&<0x9A!>2@<UNK! {FD6E}>kR<UNK! {0080}>SWAPLLIST7'VARPTRTO<UNK! {00F5}>135kIUSING<UNK! {0006}><UNK! {00FC}><0xE1!>>1<UNK! {0001}>\4}FLINEZ^?<UNK! {0004}>SPC(X<0xE0!>DATA?ERASE<0xDF!>2DEFINTLOCATE<UNK! {007F}>VbLINEPSETSCREENBSAVEMRESUMERETURNREMQNEXT0-2.30248E+35LISTCOLORDEFnENDRUNGOTO53104<0xB5!>LPRINT0I<0xB6!><0xE3!>IBEEPSTOP5RETURNGOSUBRUN^$39$OFFFILESHBSAVE*844uERRORERRRETURN^R^o<UNK! {0006}>AOPEN1FERL$\$O<0x9F!>r^M0&H691AREM6DEFINTmF5'6TAB(-<UNK! {FF74}>DEFDBLWIDTH45AkzCOLORMOTORWHILE<UNK! {0001}>Z<UNK! {000D}><UNK! {0006}>DEFINT<0xB6!>.BSAVENEWRESUME<UNK! {FD19}>8qv2p<0xDF!>T<UNK! {0003}>DIMSTEP.<UNK! {0010}>68LINE/c<UNK! {00F6}>WHILEePOINTcC<UNK! {0008}>3.<0xE4!>EdMOTORM6&DIMOPENo5MERGE^`OFF<UNK! {FFC4}>USR<UNK! {00FC}>3E-09M<UNK! {FEAD}><0xE4!>d1<0xB6!>WIDTH<UNK! {0080}>MOTORREM'<UNK! {FD97}>RESTOREIh0`<UNK! {0006}>WT9LETUSINGCSRLINWiIMPo<UNK! {000A}>USINGRETURN^ELSE^(Y=J/\TROFFO'YeCALLmAUTO><UNK! {0008}>FMOTOR <UNK! {FE26}>DATA.ERRORCLOSE.<UNK! {00FC}>nIF'8LLISTLETPSET'<0xE4!>SCREENA5UgCLOSE7RESTOREOPENiaT=POINT0AUTO05<0xE5!>?iA&[q0-jE;XORjERRORCALLDEF<UNK! {001E}>81TAB(/#Jg<0xE2!>6pFORsu5<0xCB!>#POINTOFF
  21. 14221  0<UNK! {00F9}>Ve<UNK! {0007}>THEN(}OPTION10<UNK! {007F}>=ERRORSCREENDEFDBL]<UNK! {000D}>>WEND2333->I<UNK! {00F9}>9%EDITMERGEPSET{<UNK! {00F6}>IINPUTCOLORlSTEPHORz|r126TRUNt<UNK! {0007}>7{g<UNK! {FE45}><UNK! {0006}>NEXTCLS)$><UNK! {0006}><UNK! {0004}>r2MOTOR!<0x9F!>XORELSEOPEN8STOPXORf-UOPEN&O71174&*COLORCLEARWHILE<UNK! {0004}>FH<UNK! {0007}><0xB6!>OPTION.NEW<0x9A!>AUTO<UNK! {FF45}><0xB5!>1~2pSWAPREAD<UNK! {0007}>O<UNK! {0002}>710=hx<UNK! {FF30}>RESTOREWTO<0xB5!>LLISTtXgwWEND|^a'tGOSUBWIDTH<UNK! {000A}>o~WRITEBLOAD5OOuOFF?POKECOLOR<UNK! {00F9}>DEF<UNK! {000D}><UNK! {00F9}>ONXLPRINT^hTROFFLLISTENDSCREENNEW&RETURN<0xE4!>REMCoZ-NOTT67DWDEFSNG0WAIT<UNK! {FEAC}>INKEY$CONTm+<UNK! {0005}>99?TROFFnT<OREMLGOSUBXp.)DIM7l&HEDD9SE6470PRESETNOT<UNK! {FD54}>`<0x9A!><0xE4!>DEFSTR}ERR<<UNK! {00FA}>[MERGECLOSEWEND<UNK! {000A}>WT<UNK! {00FC}>WRITEWIDTH.OPENNEWSTRING$LET8$Gx2>40NEWAMOTOR7<UNK! {0007}><UNK! {0009}>h1STEP]<UNK! {0003}>=ERLON<UNK! {00FB}>4<UNK! {000A}>3iLOAD530965iBDATANEXTLPRINT&O40417DELETEOFFMERGEREMb<0xB5!>
  22. 29545  -CONT<UNK! {000A}>LINETOLETTAB(dHG<UNK! {00F5}><UNK! {0004}>;&H2139VARPTR^MOD31067<0xE2!>#ERLDEFDBL0on%.RETURNQ0GOTO<UNK! {FFB1}>ERLrLOADCLOSE5fTRONCOLORa'POKELIST<UNK! {00FC}>-59408.4iNBSAVEENDOFF7STOPb<UNK! {0007}>J)1<0xE1!>DEFDBL.g2<
  23. 38418  %RETURN
  24.