home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / resume.lbr / RESUME.BAS (.txt) next >
Encoding:
GW-BASIC  |  1993-10-25  |  3.8 KB  |  8 lines
  1. 3446  3^<UNK! {0009}>AUTO{AUTO4sDEFDBLRETURNEND$AOFF0WRITE88 ELSE:K<UNK! {00F5}><UNK! {0003}>]<0xE1!><UNK! {0010}>OERLfSAVE10HSTEPLOADSAVE<UNK! {000D}>OFFRETURN\DATASgs<0xB5!>CSRLIN-9JLWIDTH<0xE1!>67NEW<UNK! {0005}>HW8<UNK! {0004}>5ESPC(HERASEGfCONTBLOADvK<UNK! {0080}>3|DEFDBL-RETURNl<UNK! {00F7}><UNK! {0002}><UNK! {00FA}>-0.00504785+CJBSAVEs\OUT<UNK! {007F}><UNK! {0010}>+ON<UNK! {0005}>RETURNLINEr<UNK! {001E}>WHILEGOSUB]0REMWIDTHELSEhkMOD<UNK! {00F7}>gTOTO3<UNK! {0001}>INSTRWHILE<UNK! {0010}>)b9KEYm448LPRINTMOTOR%+QuDEFDEFSTRTAB(=ENDU(<UNK! {0008}>AFOR9=ANDC#-2775I<UNK! {00F9}>Wm3
  2. 58890  1<UNK! {00F9}>YFORUSR+<0xE2!>#%'USINGLOCATE;RESTOREPSETAl"_01<0xB4!>XOR<FNINKEY$<0xE3!>'@<UNK! {FF5E}>DEFSNG/<0x9A!><UNK! {0004}>0<UNK! {0009}><0xDF!>.ATRONWGZ3CLSRETURN;POKE/TO<0xE5!>SPC(NOT<UNK! {0008}>1<UNK! {0004}>|E<UNK! {007F}>TRONY<UNK! {0007}>ADATAMERGE<UNK! {00F7}>pLPRINT0<UNK! {FD79}>k10ONaLPRINT<UNK! {0080}>eNOT<0xDF!><UNK! {0004}>LOCATE<UNK! {0002}>RANDOMIZE<UNK! {00F7}>ERRORRENUMERLINPUT07PRINTTHEN69RDMERGEL'_RANDOMIZEyERRPSETONELSE<0xCB!>,DELETECH<UNK! {0009}>CONTTROFFU#\"<0xDF!>B@<UNK! {0006}>97<UNK! {0001}>&H1646<UNK! {00F8}>fSTEP9K<0xB5!>p{%6LOAD PSET=<0xE0!>J&O306777<UNK! {00F5}><UNK! {0006}>Fs!PLETVARPTREQV3^<UNK! {0003}><UNK! {00F5}><0xCB!>+d `ZrPRINTCV?MOTOR}=H]tDATA;CLSu<0xB4!><UNK! {0006}>EDIT?<UNK! {00FA}>1,PSETOFFdEQV|&O37777702317ERASEM<UNK! {00F8}>KEYs<UNK! {001E}><0xE1!>_<UNK! {0003}>CLSw4qMERGEi<UNK! {FD19}>AND<UNK! {FDA5}>NLET-1.67593E+21&H1813OFFLISTG/STOPh<UNK! {FDF4}>HG[GrGRETURN<UNK! {00F7}>PRESETINPUT(0<0xB5!>LLISTvHLLISTqkOUT:NEXT&H6EF8ONa28843{%6LOAD PSETO<0xE0!>J&O36067<UNK! {0003}>[<UNK! {00F6}><0xE2!>.ML~XOR<DELETE*F<UNK! {0001}>AUTO-9.75319E-08g<0xE1!>N71E-09FWRITENTO<UNK! {0004}>ONDATAIlmTROFF<UNK! {0006}>#<UNK! {FE0E}>X<UNK! {0080}>9<0xE4!>0/DIMdsLLISTXORSAVE<UNK! {0001}>INSTR-mOPENPSET&V<UNK! {00FC}>DIMINKEY$#>LINESWAPSLOCATEVARPTRSCREEN-2.8002E+37WIDTH-e*<UNK! {0010}>1hEDITMERGE8{cIwUSINGRESTORE^STEPSCREEN{&H1F70/~FNnf$CWENDuINSTR{0{9|RANDOMIZE<0xCB!>RENUMmt[8 ERRORLETTO'<0xE4!>OPEN45&k[COLORSWAPWRITEs|KVARPTRLPRINTELSEZSTRING$<0xE0!>THENGOSUBg7 <0x9A!>|6_<0xDF!>7<0xE1!><0xE2!>6BEEPRESUME<0x9B!>PdFWRITENTO<UNK! {0004}>STRING$C<UNK! {000A}>MPFOREdMOTOR/y]7<UNK! {00F9}>018855RCOLORTHEN<0x9F!>POINT<UNK! {00F9}><UNK! {0010}>LTROFF=<UNK! {0007}>w<0xE1!>ERROR<UNK! {FF42}>0n4THEN"DRESTORE=67hDEFSTR<0xDF!>w!cIwRANDOMIZEIMPIF<UNK! {0003}>LISTV7_$MoMOTOR<UNK! {0010}>GOTORUN~BLOADDIMSTRING$h2RTROFFh0RESUME<UNK! {00F8}>SOUND81064.9<UNK! {00F7}><UNK! {000A}>DEFWHILEPSET%<0xE4!>OPEN45&k[COLOR>CLS0h:<UNK! {00F6}>PSETGOSUBPRESUMEERASEPSETELSEs@D3148MOTOR]INSTR[<0xE5!>9!&8j0.00013228&cCVARPTR<#OFFE^MOTORM6]7<UNK! {00F9}>opKEYIRCOLORTHEN<0x9F!>POINT<UNK! {00F9}><UNK! {0010}>LTROFF=<UNK! {0007}>w<0xE1!>ERROR<UNK! {FF42}>-636.869<UNK! {FDD4}>L\<UNK! {FF75}>DEFSTR<UNK! {0009}>SCREENw<0xB5!>RESTORE8}cIwUSINGRESTORE^ELSE^(7_$MoMOTOR<UNK! {0010}>GOTORUN~BLOADDIMSTRING$h2RTROFFh0RESUMENEWJIFC5TRONnDEFINT<0xB6!><UNK! {00F9}><UNK! {00FA}><UNK! {FD72}><UNK! {0007}>UOPEN<0xE5!>:10b[MERGE>INKEY$sh:<UNK! {00F6}><OR.RESUMEERASEPSETELSEs@D3148MOTOR]INSTR[<0xE5!>9!&l.IMPWPOINT9AUTOPOKEERL8DEFNOT<0x9F!>ELSECOLORSOUND0M=0<UNK! {007F}>DEFSNGorKEY#4OFFDEFDBL<UNK! {0001}>BSAVEDEFn0RUN<UNK! {00F9}>3kPSETSAVE<0xE5!>0END<0xE2!>-<<UNK! {FDCD}>t<0xE4!>POKEREM4sXzTHENYDIM9LETpSCREEN+<0x9B!>IMPIPRESET<ERASE\ELSEOR(Y=J/0TROFFn'$ <0xE1!>7RESUME<UNK! {0006}>q,KEY<UNK! {0006}>s<UNK! {0006}><UNK! {00FA}>d^a9RANDOMIZE0<UNK! {0007}>MODERRLISTIFaKEY<UNK! {0002}>?<UNK! {FE46}>SWAPERRORFNVARPTR.ERLSOUND=CLSZ!a9m1WIDTH<UNK! {0080}><UNK! {00F9}>FOR<UNK! {0004}>1856M211v<UNK! {0001}>7IFRANDOMIZEONDATAIlmTROFF<UNK! {0006}>#<UNK! {FE0E}>X<UNK! {0080}>9ERASEREM,COLOR9ERRTDELETElBSAVEDELETEDIMNOT<0xDF!>FNi+MERGE<0x9A!><UNK! {00F8}>.2<0xB6!><0xB5!><UNK! {0080}>SCREENBEEP'PRINTWAITWAIT40D SCREEN10<UNK! {0009}>9R<UNK! {00F5}>MOTOR+}54 USING'<0x9B!>^<0x9F!>QY<UNK! {0010}>w<UNK! {001E}><CLEAR_:9><0xE1!>9CLEAR<0x9F!>qBNEXT=LISTWAITDEFSTRL&H4B3FVARPTRSWAPON'BLOADLLISTDATA>fAND+3CLOSE<UNK! {0006}><UNK! {0007}>1MERGE<UNK! {0003}>Ds*SOUNDAUTO<=.LOCATE[BLOADERRRETURN|<0xB4!><0x9A!><0xB5!>4*<0xE2!><0xE4!>A/RENUMmHPOINTPTROFFSPC(POKE>ANDERASE/a<UNK! {000A}>wINKEY$ANDECLEARMOTORQ_<\
  3. 38441  J<UNK! {00F7}>RlBSAVEDELETEZNOT840TRON(2/RENUM<UNK! {0005}>LPRINT4D<UNK! {0001}>?ON*<UNK! {0009}>6pRETURN4C<ICSRLINDEF2VARPTRKEY<UNK! {0080}><UNK! {0080}>(G6RENUM<UNK! {0009}>OUTTROFF<UNK! {0080}>%<UNK! {0005}>:S<UNK! {00F8}>f<UNK! {0080}>3THENT<UNK! {0006}>a<0xE4!>10SOUND<UNK! {0001}>9C0RESUMEWHILEPSET%INKEY$STOPC0NCLEARVARPTRKEYCOLOR6KEY<0xDF!>GOSUB<UNK! {00F8}>STEP"LOCATE=t>?SOUNDkTRON<UNK! {000A}>*HC00BSAVETAB(OPTION>8`POINT6ORiELSEVp<0xCB!>0SCREENBEEP\7STEPBLOADc3INPUT<UNK! {00FB}>CLOSETHEN[FOR<UNK! {0009}>LPRINT(ERASE.g<UNK! {0005}>n5NEWGLOADON^9&O37777726141BLOAD8{cIwANDRESTOREERRORPOINTDEFSNGW4P?]uINPUTn'VERETURN7TROFF<UNK! {0006}><UNK! {0008}>cDEFSTRlsBLOADSWAP35384.75.959E-14OPEN&O27065FCCHDIRDEFSNG<UNK! {0007}><UNK! {007F}>~POKERUNSTRING$}SWAPINKEY$IFPSET6|DEFDBL`BLOADhN<0xDF!>INPUTJ9<0xB6!>ANDH<UNK! {000A}>PRETURN9BSAVEWTO<UNK! {0006}>STRING$C<UNK! {000A}>3.<0xE4!>EdMOTORM6?DIMTROFFopKEY#4OFFDEFDBL<UNK! {0001}>BSAVEDEFn2<UNK! {00F9}>GOTOe8CLOSEKEYERASE<UNK! {007F}>`COLOR<UNK! {00FA}>`+DEFSTR<UNK! {0010}>CLOSEMOTOR<UNK! {00FB}>61754'THENKEY<UNK! {00F8}>GOTOhEDITREAD86104%USING<UNK! {00FC}>ERRORPOINTLLIST[Ys4.23289E+211AUTO>ITs=<UNK! {FED4}>REMd<UNK! {00F7}>aK<UNK! {00FC}>tIF'8LLISTLETPSET'<0xE4!>OPEN45@"/LOCATE>STOP4439SOUND<<0x9F!>bREMBSAVECSRLINRUN8p3l2p*?MODEc#<UNK! {0007}>XOR*CSRLINNEWSTRING$<0xDF!>OELSE<UNK! {0002}><UNK! {00FA}>1?<0xE2!>,BEEP{dnM)ELSEERRORTROFFMIMPKEY9<SOUNDOv<UNK! {000A}>-LISTCOLOR<UNK! {00F9}>DEFC<UNK! {00F8}>ONXLPRINTNEWn8VARPTR36768>PSETWIDTH<UNK! {00FB}>]nRESTORE-<UNK! {0009}>DATA~]hINSTRTAB(8=<UNK! {001E}>I%WAIT<UNK! {0001}>OPTIONOFF^\1DATA.23INPUT<UNK! {FF27}>9T@BA<UNK! {0006}>NEXTr(>POINTSAVEFBEEP~a<0xB4!>LLIST\SPC(#%NEWWHILEU%RETURNSCREEN4<UNK! {00FA}>&}ELSE^><UNK! {00FC}>THENFjXI226SAVE=Ir8PxDEF(<UNK! {FFDF}>ORDELETE'RUN[}i^6804<0x9F!>'ERRORLOCATESTRING$S~VkREM@dREM<UNK! {007F}>I?DATAMERGE<UNK! {00FA}>pUSINGoERR<UNK! {00FB}>VARPTR<UNK! {0001}>DEFSTR'LISTSPC(MOD
  4. 51504  [lsCSRLINRETURN<UNK! {0010}><UNK! {0004}><UNK! {0002}>g<UNK! {0003}>OFF53150<UNK! {0002}>ON+<UNK! {FFF9}>hRETURNC8qINPUTXDEFTROFFERR2.30971E+09TROFFSAVE7<UNK! {FE29}><0xE1!>9<UNK! {0006}>yqYWHILEj<UNK! {000A}>POKEDELETE8.69867E+23t<UNK! {00FB}>[l<0xDF!>*<UNK! {FF27}>POINT<UNK! {00F8}>0DIMTFxCOLORPOKEWHILE-3.64258E+25<UNK! {FDB7}>]g"l-8356AfINPUTLOCATEERRORLLISTERR<UNK! {000A}>^<0xE0!>INSTRPOKE.TO<LET<0xE2!>-WRITES<UNK! {0002}>\LETQDEFSNGLPRINTG3<0x9F!>VJb#h.LOCATE<UNK! {0001}>qDEF<UNK! {0080}>:6GOTOS<0x9B!>CLOSEUSINGCONTSAVEELSEU<0x9A!>/*mYORSAVE<UNK! {001E}>5NEW0<UNK! {FDA6}>/@7j<UNK! {00FA}><UNK! {0004}>d<UNK! {000A}>c%(SCREENRESTOREELSEIMPTROFF_YNEXT310<UNK! {00F7}>ELSE8740LLISTp+|0oDEFINT{2.1438E+27aKERROR22012}<0xE3!><UNK! {00F6}><0xCB!>%DtDATAG<UNK! {0004}><UNK! {FE5B}>WHILEWEND?UcTEDITEDIT1TAB(1RUN<0xB4!>-0.00942197[rFN+e<0xE1!>P.IAUTODEFINTPRETURN<UNK! {0010}>CLSNEXT>LOCATE<0x9F!>?-5TERL[<UNK! {0003}>MOTORKhAJSTOP[rGOSUBFORiGOSUBWHILE!WEND<UNK! {0005}>LUSRtGOTOwS^)FN&e0R37ORSTO<0xE4!><UNK! {FD0C}>\FORh<UNK! {0003}>=yY-14107g<UNK! {0008}><UNK! {001E}>I'<0xCB!>'DEFSTRANDRESUME$Yl}^0<0xE0!>3{xiCALL_RESUMEo"IWRITE<UNK! {0006}><UNK! {0009}>BLOADEDIT!^,;<UNK! {FD5D}>IF8#LINELETTO<UNK! {0007}>WUSRgUSINGGOTOkLOAD<UNK! {0010}>INKEY$ERLFFRENUMPOKE{OR-<0xE4!>'<UNK! {0080}><UNK! {FF5C}>bUSRx-29887#SOUND6l[:|<UNK! {000A}>0<0xDF!>9MODKF<UNK! {0004}><UNK! {00F8}>t^w,PSETERLdDEFDBL<UNK! {0001}>/<0xDF!><UNK! {00FB}>^'CLEAR\#211CLOSE<0xE3!>POKE&n1ANDBEEPK<UNK! {00F9}>&HE3B3SAVE$OR<0xE0!><UNK! {001E}><UNK! {0004}>CALLNEXTt<0xE4!>SCREEN?)^THEN0O}<UNK! {00FA}>'DEFSTR(8Hq}\NOTPSET|ELSEAND;u"~STEPTOERR(<UNK! {0005}><0xB5!> LOAD7RENUM3925LLIST:U{<UNK! {00FA}>_<UNK! {0006}>uhUSINGpkERLoSHELL10'MOTOROPEN<UNK! {000A}>G*GWONsINKEY$P9LETDEFSTRPOINT69RANDOMIZEiJN8BLOAD"u@^<UNK! {0003}>#BSAVE62[|K>3LINE-bJCOLORr4CLEAR<UNK! {000A}><0xB6!>.<0xDF!>KhERASEy+C\5osVARPTR6pENDLIST<UNK! {0005}>b<0xB4!>8DEFSTR68eRESTORECLOSE<UNK! {00FA}>LISThdMOD<UNK! {0009}>LPRINTSCREEN<UNK! {0003}>JKEYMOTORPRESETERLRV<0xB5!>sRESTORE<UNK! {0009}>}hERRORCALL%*?uafRESTORE<UNK! {00F6}>RETURN<0xE1!><UNK! {000D}>}AAUTOZz<UNK! {000D}>NEW<0xB6!>$INPUT<0xE1!>10OPENB;7ORDEFs<UNK! {0009}><UNK! {0009}>xNOT]RENUM<0x9B!>6/BEEPRESUMELLIST-13705.2.1<<UNK! {00FA}>[LOADEQV-,J<0xB4!>-6.38546<UNK! {0003}>=<UNK! {FF2E}>T5O6hN?BEEP6READ43083MOTOR;dCSRLIN87WHILE<UNK! {0006}>FN1>y9PSETTOdBSAVEjCiFORNEXTTAB(102BEEPINPUTOFFSTRING$<UNK! {0001}>BEEPLPRINTZy<UNK! {FDB3}><UNK! {00FC}>8LETLOCATEDELETEREADINPUT12READ&HE822CVI<UNK! {00FB}>194<UNK! {0080}>PRINT6.22712LOAD4In\ELSELET(Z3v}5INPUT<UNK! {0003}>'01758REMd<UNK! {00F6}>OREADDEFSTRpDEFINT<0xB6!>8ERASEIFBSAVEW<0xE0!>Z1Y<UNK! {0004}>LET>COLOR<UNK! {007F}>INKEY$P<LET<<UNK! {00F9}>MOD3c<UNK! {0003}>RENUM/%30223SPC(eRENUM+eSTOPBLOADSPC(<UNK! {007F}>{<UNK! {0008}>|<0xE4!>+PSETue<UNK! {0006}>FN0>NEXT-23072READTHENg/CLEARDIM<UNK! {0002}>osCSRLIN6{LETCALLCSRLIN/DEFqAERRTAB(@-[OPEN+dTRONb<0xE3!>iSCREEN<UNK! {0003}>KKEYCALLDEFSTR<UNK! {0010}>;WIDTH-CLEAR6=O7RESUME]<UNK! {0080}>89V-USING<UNK! {00F9}>^LLIST<UNK! {FF24}>!ApBSAVE0WIDTHEND;L$ADEF<0xE4!>:RETURNLPRINTKEY<0x9B!>s<UNK! {0009}><UNK! {0008}>xSOUND]qmtLET4%USINGLOADfTRONOPTIONOUT-SWAP&<UNK! {0006}>[LOAD\-5J~)<\=<UNK! {00FA}>RANDOMIZEDEFSTR0BEEP/READ2.54342E+19NEW:<0xB5!>NEXTRETURNLOADSPC(<0xE3!><UNK! {0003}>_|<UNK! {FFDB}>d<UNK! {00F8}>MERGE-1.7E-08Jx#WHILEOFF<0xB4!>MODRETURN<0xE1!>r9CLSCLSSLETCLOSE<UNK! {00FA}>CLEARh7MODCSRLINU<UNK! {0001}>VARPTR:0o-POINTTHEN'7PSETDEFSTRDEFSNG USPC(I38871<UNK! {0007}><0xB5!>TO,q|NEXT<UNK! {0009}>WIDTHTROFFq38AOFF0EQV?GO)1<UNK! {0002}>CLS8F^(CLOSEANDtY'<UNK! {000A}>DEFTRON10'MOTOROPEN<UNK! {000A}>G*CWREADRENUM=UCLOSETIF<0xCB!>CSRLINDIMSPC(<0xCB!>EQVPSET?BEEPBSAVE9_"DaPSETxSE<UNK! {007F}>WAIT<UNK! {000A}>JPSETRESUMEBSAVE*TO<UNK! {0005}><0xE4!><UNK! {0007}>W65DEFINTtv0M&H4A34STRING$sXSTOP<UNK! {001E}>5BORESUME<0xCB!><UNK! {00F5}>PRINTP<UNK! {00F9}>USRON&O13673LPRINTV[b<0xE3!>iSCREEN<UNK! {0003}>KKEY<0xB5!>DEFSNG<UNK! {0010}>%h4CLOSEDEFSTR<UNK! {0009}>10{WIDTH\HG[<UNK! {0010}>r<UNK! {FDF7}><UNK! {000D}>@WIDTHLOPENu~<0xDF!>3
  5. 25974  CALLlRESUMEK#HWRITEosUSING=y<0xE0!>NEXTK<UNK! {FE46}>TAB(#+SWAPSTRING$<UNK! {FF70}><0xE4!><UNK! {0007}>READat1[CLEARUSING*B6GOTOBEEP<UNK! {00F5}>THEN.ERL#UCLEARNEXTECLSzIFTRONERR?hARANDOMIZE}TAB(HDEFPREMKRETURN&ERASEWRITESPC(&O15117<UNK! {0004}>uE_WENDENDfr7<0x9F!>W)
  6. 26685  RESTORE:l<UNK! {00FB}>2MODUSINGIF<UNK! {00F9}>^WRITE#COLOR/ORERRf) uREMX<DELETE0RESUME7OPTIONCLOSERENUM0{a<UNK! {0002}>.<0xCB!>USING<0x9A!>\RESUME(10DATA<UNK! {0009}>\=TROFFt'?$<0xE1!>9DELETE&HBD47)v<UNK! {0001}>P8ERR^PRINTd<UNK! {00F6}>]IF%E<0xE3!>/MERGEt<0xE4!><UNK! {0004}>DATA[k73COLORIFWHILE9\T<UNK! {000A}>LPRINTSWAP[WRITESAVERESUMERESTOREj^G)grSWAPFORSCREENATO210Hf?NEW^FN=COLOR<UNK! {0007}>ERL8<0x9B!>3@LINE\SOUND+?WRITE<0xE4!>ANDTROFF@t9%i<0xE3!>DELETEXCLSOFFWENDDEFSTR<0xE4!>@<MERGE)%2*3X30CREM=<UNK! {0009}>USINGhOPENq<UNK! {00FA}>{I<UNK! {00F7}>w+BSAVE8END_fGOSUB<0xE2!>USING/-1.48246E+23<UNK! {0006}>oNEXTRANDOMIZE{<UNK! {0001}>BLOADSWAP10^2nBLOADt<UNK! {0001}>^e<0xE3!>ERRORPSET'GOSUB<0x9F!>Tpq_[EQVPRESETSTOP<UNK! {0004}>FLBLOAD<MOTOR&O37777727242<UNK! {00FA}>WHILE8-[-5.75948E-06<UNK! {007F}>j6LINEWIDTHfRUNDEFSTR_<UNK! {0006}>\?<UNK! {00FA}>1cINKEY$ELOADMOTORk&O37777702317<UNK! {FE75}>p5#"3T<UNK! {0001}>POKE<UNK! {000D}>n<%jINPUTBTO+FOR<UNK! {0003}>ENDEQVNEW62212u<UNK! {0003}>LINEAUTOiM39^=Z-22888<UNK! {00FC}>10ULOCATEwIIMP=SCREENERLSCREEN0^CLS<UNK! {FF27}>9J@B9<UNK! {0006}>MOTORC<0xDF!>?s&H33C9ERROR/2USRt<UNK! {00F9}>X8<EQV<UNK! {0002}>b<0xE4!>SCREEN2<UNK! {0080}>"PUSAVE<0xE4!><UNK! {00FC}><UNK! {FE14}><0xE5!>xtWIDTHSCREEN2rRESUME/<UNK! {000A}>L6z0WCALL?STEPVBLOAD%<UNK! {000A}>9g9<UNK! {FE6C}><UNK! {0006}>WSCREENRETURNLISTO<UNK! {000A}>J]PRINTE<UNK! {001E}><UNK! {0004}>MNEXTPA/24KEYTBWHILE<0xE0!><UNK! {0001}>STRING$STEP72RETURNSCREEN7lCLOSEMERGEMOD%6<0xB6!><0xE1!>\2REMI!u<UNK! {00FB}><0xE4!>13559ONGXkhINSTRBEEPl{MIIIMP=SCREENERLSCREEN()S5XcINKEY$0bMERGE<LIST<UNK! {00F8}>AUTON8USRK,NEXTLPRINT<UNK! {001E}>8SWAP<UNK! {00F9}>INSTRn<0xE4!>INSTRPfo<UNK! {001E}>2COLORWIDTHERROR<UNK! {0007}><UNK! {007F}>T<UNK! {0001}>WRITEEDIT.DEFINTBSAVESTRING$<0x9B!>82Qzg"TROFFFORSPC(DATAONUU'-3<UNK! {0004}>-f>TO6<0xE5!>)?3,<0xB4!>1)
  7. 17727  *23BSAVE#uDEFDBLMOD<UNK! {0001}>ERR<UNK! {00FB}>3`GOSUBGOTO5<UNK! {007F}>LOCATERENUMLPRINTrOOFF<0xE3!>28146YORSPC(<UNK! {001E}>5DATAEQVp<UNK! {0005}>&O37777711765hsM<UNK! {0006}>ZcTRONw!|<UNK! {00FB}>NOT40DIM=<UNK! {0003}>/CLEARC9w,<UNK! {0004}>L7 <UNK! {0006}><UNK! {00F8}>,NOT>LIST&9SOUNDORDERRMOTORm;^GOSUBWHILENWEND37CONTp<UNK! {0007}>])CCALLERASE'IFERROR~BSAVESTRING$WSTEPSCREEN<UNK! {00F5}>@<UNK! {00F6}>>{RUN<0xB5!>POKEJXOROPTIONMUjGOTO=DUSINGTRON5ERL1SPC(T3#DEFINT<UNK! {0009}>&HD440<UNK! {FECF}>ERLPOKE/>:REMNOT_B6'<UNK! {00FA}>&HF997<UNK! {001E}>RANDOMIZECLSDEFSNGCk<UNK! {0006}>TROFF<0xE3!>OPEN0lA
  8.