home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / lambda / soundpot / p / resume.lbr / RESUME2.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1993-10-25  |  22.5 KB  |  77 lines
  1. 3446  3^<UNK! {0009}>AUTO{AUTO8sDEFDBLRETURNPOKE$DPOKEURESUME'm3<UNK! {00F7}>+F<UNK! {0002}>SPC(`<UNK! {00F5}>o~ERRXSTRING$#1WRITEWHILEBSAVEVONPSET<UNK! {000D}>&H5F2B<UNK! {0006}>ANDCALL<0xE2!>K2MSOUNDRETURNMOD&^LOCATEHANDW`BSAVE<0xE2!>2P*tf{<UNK! {0001}>s<0x9F!>XOR<UNK! {000A}>0STOP1PRESETNEXT<UNK! {00F7}><UNK! {0002}><UNK! {00FA}> %6"CLSyhERASEy&O61013COLORSt<UNK! {00F5}>FOR<UNK! {0010}>+WAIT<0xE5!>PSETBLOADX6ERRINKEY$i%<0xE3!><UNK! {FDA5}>eMVARPTR<0xDF!>HTRON<UNK! {0004}>uAUTO<0xE0!>STEPi!4NEXTPRINT0Z-924MOTOR%+RusERRORSAVE<UNK! {00F9}>ENDFORjkOFFIMP/`<0x9F!>v<UNK! {001E}>8QSTOP16288U}POKEWO<UNK! {FEF3}>xSCREEN]READAUTOpBLOAD<UNK! {001E}>%'OFFLOCATE;IF^<UNK! {0009}>8^go<UNK! {00F6}><0xE2!>-5J<0xB4!>9<0x9A!><0xCB!>TAB(Y<UNK! {0003}><UNK! {00F7}><0xCB!>+d<UNK! {000D}>x2MOTOR<0xDF!>-SAVE<0xE0!>c<UNK! {00FB}>=<UNK! {001E}>-CSRLINNEWDIMPSETPRESETSTRING$<0xE5!>ERLCIMP3}<0xE0!><0xB5!>^<UNK! {0002}>K6XORDIM32367FNPSETERL1EQVWHILEb$n}<UNK! {FD79}>k=MERGEKEYNdoCSRLIN=\91540<UNK! {0001}>/CLSG<UNK! {0009}>USINGhOPENk<UNK! {0004}><0x9B!>LIST7;7!^LISTSSCREENRANDOMIZE1<UNK! {0009}>]EQV.nUSING2<UNK! {000A}><UNK! {00F8}>9<UNK! {0001}><UNK! {0006}>8cRANDOMIZE{sLISTERASE1^5.7004E+35'd=<UNK! {00F6}><UNK! {000A}>'RANDOMIZE<UNK! {0007}>4fr82TOPRINTERROR<UNK! {0001}>}T<UNK! {00FC}>WIDTH<0xB6!>.CLOSEDIMINSTRSTOPg2_,q3<0xDF!>P
  2. 40902  $y(tSCREENBSAVEERRORCSRLIN/<UNK! {00FB}>ADATA\bPOKE6;<UNK! {0008}>?P?233$$CLOSEROWHILE<UNK! {00FA}>RETURNTO<UNK! {00FC}>_-3.38576E-09DLLISTCALLLETPRESETCONT-26733<UNK! {00FB}>[lUaONDATA{k!USINGFN8&H49152BLOADGOSUB<UNK! {00F7}>ENDIFk;OFFUSING/0<UNK! {0006}>NEXTCLEAR)><UNK! {00F9}>KEY|SOUND{MOTOR<UNK! {0001}>WRITE\kE8BSAVExLOAD'9OPEN0GOSUB<UNK! {0009}>Q8ONx>TRONGOTOTAB(xOPENOR<UNK! {0009}>FEQVRESUME18Q5`BLOADhSOUND8<0xE4!>A<0x9F!>RENUMmHPOINTPRESUMEENDMERGEuWRITEPOINTX<0xE3!>KEYpRUN<UNK! {0004}>INSTRdDEFDBLNOT<UNK! {00F7}>8*TROFFENDXOR)<UNK! {000D}>TRON=cBSAVE52392COLORy{8qKEYRETURN\[FOR<UNK! {0009}>oIMPnRANDOMIZE=WIDTH#ERLSTOP0CAOFF/ONhOPEN=<UNK! {00F9}>U<UNK! {00F5}>DELETE<UNK! {007F}>LIST^<UNK! {000D}>3^FPRINTOFFpSAVE0WHILEAND<UNK! {0007}>.RETURNAF/SPC(PRINTMOTORKEY7FN&<0xE0!>ERR^_10RETURN1<UNK! {00F8}>T?LLISTLET<UNK! {00F9}>'LPRINT<UNK! {0004}>4DIMr*%CSRLIN<0x9B!>LINE&H7E4C)HDEFSNGj<UNK! {0010}>#9<UNK! {FF17}>^"z2r<0xDF!>?PSET$BLOAD.<UNK! {0009}>HW4ERR]<UNK! {0007}>ILIST<UNK! {0004}>/WEND-DELETEZ3ERASETHENMOTORK6?DIMTROFFopKEY#iOFF<UNK! {00FA}>PRESETBSAVESTEP10f<UNK! {00F9}><UNK! {FD1D}>lCLOSEDEFSNGMOD3184<0xE3!>READGOSUBCONTYSTEPVARPTRFN4h~nERLMT7-16933D<UNK! {000A}>4$zERRPSET|ENDblBLOADOFF<0xDF!>/3TROFFn'$ <0xE1!>7RESUME&H2C55<0x9A!>:LIST.DEFSNGCLS&H4BD6RENUMp{%DSWAPLETN'LISTPSET<UNK! {0005}>7gi[p>Ks8<UNK! {00FA}>x<UNK! {0002}>J,SWAPINKEY$<UNK! {00FB}>OPEND<UNK! {0003}>&O37777751170DEFSTRTROFF-gRENUMcN<UNK! {000A}>P*OFFNEWG-4425mSTRING$|Y6INKEY$INKEY${dnM`pFORsu'<0xB6!>UGOFF
  3. 12746  fSTOPOR CMERGE)<0xB4!>)NEXT1DEF<UNK! {0004}>7rq<0xB6!>CLOSEPRESET<UNK! {000D}>;WIDTH-e*71RPSETMERGE`IFqIBEEPUSING<0xE0!>STEP<UNK! {0010}>^*sCq<UNK! {0009}>CLEARCNb8<UNK! {0001}>P7x8p4KEYQ$<UNK! {000A}>9 OPTIONkAUTOmt[87ERRORTRON/'GOSUBJ105SCREENk149sINKEY$MDVCALL<UNK! {0002}>NEW3W<UNK! {0003}><0xB6!>[<UNK! {00F9}>SAVELOAD31REMJ?RESUME<UNK! {FD63}>}<0xE4!>H]tDATA;TROFFMTO<UNK! {001E}>STRING$t<UNK! {0006}><0xE3!>,ELSE{dnM)uTRONNEXTCSRLIN4TROFFPSETERROROFF
  4. 29832  END<UNK! {00F7}>GOTORETURN8/<UNK! {FD74}>CALLNEXTSWAP<0xE1!>3'
  5. 34810  ERL;x-ERROR-2.70917E+31EQV<UNK! {00F8}>IMPc[ERR7PSET|ELSEORENDYFOR&O76533TROFF"_]s<0xE1!>ENDUSING{8.94484E+256nUSING@INKEY$qLLLIST*<UNK! {FF64}>LINE<UNK! {0003}>DIM[$IFiKEYRESUME?<UNK! {FE46}>VVARPTRLPRINT<0xB4!>oCOLORSTOPOFF<UNK! {FF6C}>+R.]'TRONQERRAPOINT,94vP<UNK! {0001}>\<UNK! {0005}>204NEWLISTOFORV\<0xE4!>=)
  6. 2394  IMPo$LETWGDEFSTROFFPSETBSAVEREM3\MERGEGOTO8qPSETWRITE-%184VARPTR35880/INPUT<UNK! {0005}>n4#Po<UNK! {0006}>XINPUT7/<UNK! {00FB}>MODR<UNK! {0006}>42wBLOADERLDEFSTRMOD^i10N/C0USR7bwiCALL_RESUMEGqVOPEN|sONRESUMEdDEFSTRa;IF0INSTROg<UNK! {0003}><UNK! {00FA}>CLOSE47776nCLOSET<0x9A!>RESTOREWRITEgMOTOR<UNK! {0003}>ORSTOPg-"Ip8TRONDATASPC(HOFF2<UNK! {007F}>:w@<UNK! {FE6C}>ERR<UNK! {000A}>OPENCLEARMOTORCq\\DEFE0<UNK! {0009}>&H3F7B0AND1023497QDELETE<0xDF!><UNK! {0001}>USING<UNK! {0008}>'08{-9.45037E+07INPUTGOSUBWAIT-29187RESTOREas0nERLWT]9DEFSTRPSETf>6&sUSING'TROFFPOINTTROFF(0GJZeTROFF;t$nWENDlRESUME<UNK! {007F}>$aLOADz<UNK! {0006}><0xCB!>LLIST!ELSEHI1135WRITE<UNK! {00F8}>136TO^OPENOPENy]_k2USINGTROFFERASE-744.73STRING$RUN80TO,>4i~RETURN#/WRITECLEARMOTORL<0xE2!>DEF3,CLS62PSETI6ENDCTROFF#8.7433E+3710pONTOefTHENKEY<UNK! {00FC}>33OR<0xB6!>MWHILE
  7. 35479  4d0z<UNK! {0006}>JU7219NOTr{33-CLEAR<UNK! {FEDB}><0x9F!><UNK! {000D}>RENUM.MOTORRENUMBSAVE0LPRINTTrp LPRINTw>A0.000119937<0x9A!>ERASE3^+<UNK! {000A}>LIST!<UNK! {0002}>108<UNK! {00F5}><UNK! {00F7}>PSETfDEFDBLOPENyZ&$.'<0x9F!>INKEY$-4.13235E+19VARPTRSAVEc%[xSPC(MOTORRESUMEGOSUBgLINEBLOADU57gPUSRfTOPSCREEN<UNK! {0006}>RANDOMIZEUyD.IF=02DEFSTR%4KEY_CDEFSTROFFPSETCOLORGOSUBLBLOAD8l4.53761E+08^5WRITELLIST3BEEPREM+LET<0xE4!>POKEDhNtSTEPDATAVY$<0xE0!>POINT853$wRESTORE<UNK! {0002}><0x9A!>-^O1DATA./hERL''kaCALLlSWAP&H2091MOTORPOINTn{<UNK! {00FA}>fDELETE812796PSETTp<0xE3!>-PSETnCALLUSING{5}-15323>ERASE17495'ELSEOPTION`<UNK! {00F8}><UNK! {0001}>HCSRLINqRUN?<UNK! {0007}>(<UNK! {FF3F}>bTAB(MODbSPC(<UNK! {007F}>JH9CSRLINqSTRING$WOPENGOTODEFINT<UNK! {0007}><UNK! {000A}>J]PRINTE'STEP><UNK! {0080}>?0*.$KEYNCOPTIONDEFDBLWAIT<UNK! {FF09}>"<UNK! {0008}><UNK! {00F9}><UNK! {FD16}>8<0xCB!>RENUM</1ORDEFDBLLGOSUB
  8. 47792  ~O0vUSRT77f<0x9A!>REM8}W<UNK! {0001}>YNOTl~'-KEYERL=TGOSUBEQVCCOLOR_INKEY$<UNK! {0001}>P7AUTO]",=L&<0xDF!>TO8SWAPa<UNK! {000A}>CLEAR0IFdjXOR<UNK! {00FB}><UNK! {0003}>tELSETAB(t5q65CSRLIN<0x9F!>INKEY$0USINGGOTO89Q(yr<0xB6!>PNOTAUSR2<UNK! {000A}>3<rtERL<UNK! {000A}>CLOSE5wSTRING$AB<UNK! {0080}>WELSE2d
  9. 12095  DEFSTR1023497QDELETE<0xDF!><UNK! {0001}>USING<UNK! {0008}>'2CLOSE
  10. 49339  EQV]LETEQV<UNK! {0009}>LPRINTIMPqNEXTt<UNK! {0004}>INKEY$M<UNK! {FFF0}>LOADONGfh-VARPTR<UNK! {0001}>86104wKEY'<0xB6!>POINTLLIST[7S3/eSTRING$0wKEYy9<0x9A!><UNK! {00FA}>0<0xB5!>88<UNK! {00FC}>2.95281E+15INSTRDIMe_8/STRING$INSTR<0xE4!>LISTd<UNK! {000D}>p:FOR.ERLOPENUSING<0x9A!>8+_0<UNK! {007F}>:w1INSTReUSINGWOUTDELETEPOKE-1E-176X8674pLINETa><0xE5!>SOUNDBSAVESTRING$1qRUN<UNK! {0004}>4ePSETAUTO<0xE5!>)EOR<0x9A!><UNK! {0080}><UNK! {0004}><UNK! {0002}>RANDOMIZE*LPRINT^.NEW0/<UNK! {00FC}>JDATA7229KEYe{7;(CLSRESTOREWIDTHIMP<0x9F!>mYDATA<UNK! {0008}>`dSTEPnp\o<0xE1!>ENDUSING{qmWRITE{G<UNK! {0006}>LPRINT11692KERASE#IMP g<0xE3!>LET&O37777730141<UNK! {0007}>{8$IFMERGEPSET-SOUND<UNK! {FE46}>V'<0xB6!>CALL.SAVENEWSTEP<UNK! {FF80}>1Kzq/WHILE?WIDTHrWIDTH",Hc?<UNK! {0009}>kBSAVE<UNK! {000A}>CLEARCLSBEEPQv-0.000781150DEFINTFI<UNK! {0080}>INPUT<UNK! {FE4A}>\#57489<UNK! {0001}>ERRLOCATE72PRESETGOTO<UNK! {001E}>fTOMERGELPRINT/@LLISTCALLLETGOSUBLISTu<UNK! {FD9E}><0x9A!>_q0<UNK! {007F}>LINEydJFDEFSTRREM'QcwsUSING<0xE4!>STRING$LPRINT<UNK! {000D}><UNK! {0009}>3<UNK! {000D}>RESUMESAVE0WHILEl<UNK! {0005}>.GOTO<0xE1!>59/PRINTDCOLOR$mw<UNK! {00FA}>ZKMOTORqmtINPUTyjIMPEQV<UNK! {0009}>b<0xE4!>STRING$Mpq&[GOSUB><0xB5!>17495<UNK! {0004}>LPRINTORyBEEPPRINT<0xE3!><UNK! {FF4A}>$X3q&EDITU<UNK! {0003}>VCONTUU'-SCREENSTRING$<UNK! {000D}>`>ANDwSTRING$MOD892<0xE4!>{10TAB(;DATA?)<0xE5!>0WRITE<UNK! {00F6}>CSRLINCLS<0xB4!>RETURN<UNK! {0004}>REMUSINGIFLETCLOSE8RETURNWLETOR<0xE1!>/GOTOCLEAR-27000<UNK! {00FB}>[l}uONQXoh<0xE2!>TOk1c&+WAIT<UNK! {FEA9}><UNK! {00F8}>TROFF_YDATA9/bVARPTR1uatWIDTHjFN<UNK! {0006}><UNK! {000A}>TCLSr<UNK! {000A}>&HAC1A<0x9F!><UNK! {0009}>DELETEmt[85ERRORLETTOwWHILEINSTRz`_k/DATE$INKEY$1272<UNK! {000A}>LPRINT<0xB6!> ERL'90DEFSTR<UNK! {0008}>BLOADU87h;NEWDIM
  11. 49861  JtV<UNK! {0004}>INKEY$bSOUND\BNEXT<0xE1!><UNK! {00F7}>TROFFCOLOR<UNK! {007F}>SPC(<UNK! {001E}>4<0xE3!>ELSEFNBSAVESTEP-5E-09iLOCATERENUMLPRINT;D<0xB6!>OPTION3MOTORRETURNYCLEAR<0x9B!>GOTO`vP_USR=DIMEND10INSTRSCREENd{<UNK! {001E}>;0RETURN<UNK! {0002}>OPTIONPOINT<0x9F!>a'Fv1EQV.9q<UNK! {0006}>PRINT<0xE1!>SCREENWRITE4X,PRESETG<UNK! {0003}>WAITEDIT1.56572E+06#<UNK! {00F9}>'i\<UNK! {FFDC}>fRANDOMIZESTEPDATA[m_[USRNEWINKEY$<UNK! {0010}>UI<UNK! {0008}>DEFINTTROFFkSOUND<UNK! {0003}>USINGREMl4_&{3496SOUND<0xE1!>506.50354E+25WENDSAVEQyFUOUT69ERRM~P2<UNK! {00F5}>o"LOADPaLINE<UNK! {00F6}>THENBSAVEGOSUBn0<0xFD89!>k%MERGE)o'+0R3LOCATEBSAVE,PRINT<0xE4!>RUN_m\nTO|}t0DEFSTRTOg{<UNK! {000A}>:<UNK! {001E}>BEEPRESTOREBSAVEIMP<0x9F!>cYn<UNK! {0008}>Yt<0xE0!>"^re<UNK! {0007}>9CLEARDEFPRINT=<0xB5!>RUNm{<UNK! {00FA}>fCLS<UNK! {0080}> 't<0xE2!>qLERLMOTORPSETPLIST<UNK! {00F8}>)5A<"EQVWENDXORM3<0xE5!>BSAVEY122OPENINPUTJn?BLOAD"x4!CALL?STEPUSWAP[<UNK! {007F}>&H3572<UNK! {0002}>9XORjRESUMECALLSWAPu<UNK! {000A}><UNK! {001E}>0DEFSTR$pDEFSNGUMWHILE<UNK! {00F6}><UNK! {0001}>USING<UNK! {0008}>'`RETURNLETe'PRINT<UNK! {00F7}>LPRINT^MORIF0TO #GOTO\0C=OUT7DIM<UNK! {000A}>]CANDcwH/CLS^<0x9F!>^&O36535H100FN2.47613E+08l<0x9F!>}qKWRITE<UNK! {007F}>0<UNK! {00FC}>UfLLISTUSING&HA15D<UNK! {0009}>y\p&VMERGE<UNK! {0006}>e<UNK! {0007}>CLEAR<0xB6!>EQV<<UNK! {FD42}>1#6LIST<0xCB!>DDEFDBL`BLOADhN87<0xE1!>I/DEFDBLAUTO<0x9B!>PRETURN&HCFFNEW<UNK! {0006}>OPENJ|V.GOSUB69MOTORI~OCTROFF9<UNK! {0005}>OPENO4TROFF<UNK! {00F6}><UNK! {0001}>TAB(LOCATE!a<UNK! {00F9}><UNK! {FD1D}>XFNKEYOPTIONtEND<0xB4!><0x9B!>MOPENMOTOR9PRINTELSEGOSUB_#EQV8<UNK! {0008}><UNK! {FFF7}>GOTOhEDIT<UNK! {0003}>|6c0(BSAVERESTOREEDIT'TRON]5ENDJUxUSING:'qp<0xE1!>l<0xE0!>Kq`CLSx<UNK! {000A}><UNK! {0006}>CLOSE/^4>WRITE26251~LLIST<0xE1!>ERRr<0xE4!><UNK! {0009}>L[$IF0SPC("SOUND<UNK! {FE46}>V'RENUMORWBEEPRETURNRESUMEPOKEj3V627WHILE?ERLDATATOB2<UNK! {0009}>hP
  12. 47630  MOTOR<UNK! {00F8}>C<UNK! {000A}>w]<0xE4!>73ERRMNEXTDIMGEQV2pLET#NDELETEIMPREMTHENDEF9[LISTTOepFN<UNK! {00FB}>}^&H411DLPRINTSCREEN<UNK! {0002}>@RETURNPRINTGOSUB4q\e<UNK! {0001}><UNK! {0010}><h9<0xE5!>STEP}<UNK! {000A}>0I SCREEN<UNK! {0002}>IMP^^l16209TeTROFF:^zeDEFSNG7ANDy4`OPENq<UNK! {0006}>POKEDEFINTdDEFSTRa<UNK! {0009}>STOP5<UNK! {00F9}>\8-EQVINSTRb<UNK! {00FA}>SCREEN<UNK! {00F5}>>gLIST<0xB5!>.TOOsLmPOKEDEFDBL<0x9A!>bOPEN<UNK! {0003}>/DIM~.V7krCALLREAD<UNK! {0003}>APSET5<UNK! {000D}>?s><UNK! {FF39}><UNK! {0004}>HPSET<UNK! {0006}>REMFORE[.POKE42<UNK! {0004}>MLETMDIMOR64KEYPOCALL<UNK! {00F6}>SOUNDTOKEYtSPC( <UNK! {0004}>IF<UNK! {00FA}>1)FOR2m3V3>fCLOSE0WIDTH'$=6QhNOTTOe9983SOUND<UNK! {00FB}>^<UNK! {00F5}>SWAPe0QJJ~LOCATEnss -7<0xE4!><UNK! {007F}>#YDEFSNG8s<UNK! {0006}>BLOAD3RESUME/KBLOAD#<UNK! {00F5}>\8FN<UNK! {00FA}><UNK! {0004}>b<0x9F!>STRING$DATAc_iCLOSEFNPOKEINKEY$pCLOSET<0x9A!>RENUMWRITEaCOLORREAD/<UNK! {FF57}>#"+] TRON?<UNK! {0005}>RERR7<UNK! {0006}>+wP
  13. 52297  CLEARSAVEFORv0<0xCB!>OPENEDIT8<UNK! {00F7}>MERGE<UNK! {FE4A}>X<UNK! {000D}>WHILEOFFWHILE<0xB5!>FNDEF!fOPTION<UNK! {00FB}>88-WRITEEQV)2OPEN<0xB5!>K<UNK! {0004}>
  14. 38807  4S<GOTO<0xE0!>w[7f<0x9A!>REM8}WI?IMPPOKE<UNK! {000D}>*TROFF-20294J=/CLSl~$64651H<UNK! {0005}>#1INKEY$LISTs<UNK! {00F8}>TSOUNDSTEPUSRK<UNK! {FE3F}><UNK! {00FC}>'k<0xDF!>-PSETsOUT<UNK! {0003}>z5q&7CSRLIN<0x9B!>WHILE<UNK! {0001}>F<UNK! {000D}><UNK! {00FB}><LPRINToWRITESAVE/<UNK! {FF17}>^iI6hN87<0xE1!>R)'[<0x9B!>LINEPRESETfXORDEFSTRWHILE<UNK! {0006}>ERL|yFbWIDTHE4AND(6QGOR64CLOSE#BSWAPINKEY$SOUNDBSAVETAB("2RETURN<UNK! {00F6}>7lUSINGMOTOR/2FORLLISTLETCLOSEBEEPv<UNK! {FDDA}>FN<UNK! {0002}>-220.064DIM4h<UNK! {00FA}>WIDTHG&H7B63e<UNK! {0009}>RESTORE<UNK! {00F7}><0xB5!>^w]OFF<UNK! {0004}>`MCLS8'S$19EQV&HC471KEYYO5<UNK! {00F8}>-<UNK! {00F7}>aSWAP<UNK! {00FC}>FOR<UNK! {0001}>SOUND8LOAD:PSET8CLEARf<UNK! {00F5}>]u%OPTION2>USRFN><0xB4!>!WRITE<0x9F!>THENc<UNK! {0003}>AUTOINKEY$85[5f7LINEMPSETK<UNK! {0002}>*<UNK! {000A}>H<UNK! {007F}>%<UNK! {FF5D}>BSAVE<UNK! {000D}>PRINTPOINTSTRING$ Gc.VARPTRELETTAB(FJQDIMCLS.#LOAD%ERL6<0xE0!><0x9B!>e&n0<UNK! {00F9}>GOTOe8CLOSEKEYLPRINTdENDOR<0xE3!>3SCREEN
  15. 64484  40]]10USINGMERGE}<UNK! {0003}>";w<UNK! {0006}>BLOAD^INKEY$ERASEi+DATA<UNK! {0009}>CtTHEN!'xoCALL_AUTO>v\]-1E-09^aK<UNK! {00FC}>tIF'8LLISTLETPSET'<0xE4!>OPEN45&k[COLOR>INKEY$s-6.00262E+11SAVE8%Q.]18399OUT<UNK! {0008}>MOTORCLOSEz8OUTS5E-09&LLISTSCLEARUSRWRITE<0xE4!>{10<UNK! {0009}>&H3F7B0AND1028361cPOKEDEFDBLREM<UNK! {FF02}>72GOSUB<UNK! {0001}>$jCLOSEAUTO<5.45442E+23VARPTR<UNK! {00FB}>4393RUN>I+Z7&bCLEAR{,9{GRETURN<UNK! {00F7}>ELSEB(GGOTODELETE/+0APOKEINSTRBSAVERETURNMOTORKEY7FN&<0xE0!>ERR^PRINTd<UNK! {00F6}>]IF%JTHEN<0xB4!>PSETsERASEFNP5ck/PSETCLEARWEND<UNK! {0007}><UNK! {007F}>T<UNK! {00FC}>ELSELLISTkSTRING$REMUSING<UNK! {FF7D}>&W,yrEQV<UNK! {000D}>LETAMOTOR}IMPH29924'HGFOR%[C14949<UNK! {0004}>PRINT4!OPENcSTEPCONT4W'WAIT0<UNK! {00F9}>Ve<UNK! {0007}>eVARPTRLPRINTv<UNK! {0003}>ORERRTO+ SAVEGOSUB><DELETE0RESUME7OPTIONCLOSERENUM0{a<UNK! {0005}>(SCREENRESTOREMOTORSPC(BLOAD<UNK! {007F}>YN4/rTHEN7fpiRENUMqPOINTop.)3<UNK! {001E}>:8ERRSTEPUSRK,NEXTLPRINT<UNK! {001E}>8SWAPINSTR<UNK! {0002}>bERASE'P5q#,THENCLEARTROFF<UNK! {0001}>F5<UNK! {0001}>VARPTRORFORA\OPTION<UNK! {FF17}>%Z7`/SWAPS<UNK! {0003}>OIF(FI8LINEWHILEh|DEFSTRY<UNK! {0006}>INSTRREM-<UNK! {0009}>CALL<0xE4!>W*bDEFINTXRRETURN<UNK! {0080}><UNK! {00FC}>p&E&H96<UNK! {0005}>RETURNLPRINT[<0xE3!><UNK! {000A}>IFS10CLOSE5LPRINTRLIST3<0xE3!>6J
  16. 6912  LOADt<UNK! {FFCE}>(=10PSETLETRETURN48RENUMt_rUSINGRETURNSTRING$IMPELSEW'=FOR<UNK! {0009}>8TROFF3s$eCALL\RESUMEy10,CALLG<UNK! {0002}>COLOR>dLPRINT58125<UNK! {0002}>'#LINE<0xB6!>PSET%DB|KEY<UNK! {0001}><UNK! {FE5B}>WHILER>UcTEDITLLIST3TAB(<UNK! {0009}>CLEARSAVE*DIM^MOTOR4:ISTOPCRUN6READEFWRITE8pRETURN9YW+ERASE<UNK! {FE7C}>Y6"ORqNSCREENLOAD<UNK! {000D}>|DATATROFFCLSpUSING30OFFDELETENEXTBSAVE)RETURN*READCONTGOTODATACLOSEUSING?SOUND[FOR<0xE3!><0xE4!>=-p<UNK! {FDE6}>RESUMEum0;ONqzo-STRING$MERGE:><UNK! {0010}>4sUSING<UNK! {00FC}>ELSEPOINTDEFSTR[297570CONT NOTDEFSTRH4<UNK! {00F8}>,NOT<UNK! {0080}>p&AND6ORMERGE><UNK! {00FC}>FOR)PRESET?104<UNK! {FE75}><0xE0!>fOUT5STRING$|MDIM><0xE4!>6UA<UNK! {000A}><<0xB6!>`BSAVEPRINT<0xE1!>RUN~^31354!OPTION?SPC(I<UNK! {FE3E}><UNK! {007F}>/s<INSTR9<UNK! {FF47}>LOADBLOADLISTQ<UNK! {000A}>\`<0xE4!>$3ERL;6qCXOR"1.31977E+33LPRINT<UNK! {0003}>b"$6173SLETCLOSE<UNK! {00FB}>KEY%182<0xE3!>=LOCATE
  17. 50942  4Vb9ON^9#aDEFSTR<UNK! {00F7}>-Cq<UNK! {0080}>DEFP<UNK! {FEE5}>}REM( THENY/<0xDF!>TROFFDIM-ON <0xDF!>T<0xE1!>x-14034OX&Y6USINGMERGEVARPTR<UNK! {00FC}>nRANDOMIZE8#LINE<0xB6!>POKE9<UNK! {00FA}>RESTOREG10(]iPRINTINSTRXORAL<UNK! {007F}>x<UNK! {0010}>ELSEFOR2rRESUME/<UNK! {000A}>]6zDATAv=zREM6<0xE0!>}EQVRESUMEAND"-THEN<0xE0!>WGOSUB5<0xE4!>CPOINT3&PSETSPC(d<UNK! {00F7}>Y122OvWIDTHr<0xCB!>#<0xE3!>OFFPRINT0WIDTH|DATA<UNK! {0008}>LLISTiyj<UNK! {00FB}>OFF<UNK! {000A}>d7MODCSRLIN<UNK! {001E}><UNK! {0001}>0EDIT<UNK! {0003}>><UNK! {00FB}><0xE3!>-6.85657E+25'<UNK! {00F8}>vUSING<0xCB!><UNK! {000D}>IMPc[END3lLOADANDCONTTOSCREEN10CSRLIN/3<UNK! {00FA}> sar<UNK! {0007}>7<UNK! {0004}><UNK! {007F}>#YKEY=X<UNK! {0006}>TAB(GOTO'2ERANDOMIZEGIFy4USR<UNK! {00F9}>USINGb<0xE4!>'Pvr",FNKEYINKEY$M0<0xB4!><UNK! {FFAB}>GOSUBLOCATEDEFDBL<UNK! {0003}>AUTODEFINT43[%f/<0xB5!>SLPRINTAXORz,<UNK! {0009}><UNK! {007F}>@INSTRlERRW<UNK! {00FA}>SCREEN<UNK! {00F8}>C<UNK! {0008}>5.92453E+29^TROFF(t9%b<0xE3!>DEFDBL8BSAVE<0xE0!>r<0xE2!><UNK! {00F7}><UNK! {00F7}>k8lKEY<UNK! {0010}>do<0xB5!>@6a
  18. 6912  LISTr<0x9F!>'*=b-22888IMP10{IFI@NOT|<UNK! {00F7}>ANDOR(DIM=USING/2E-16>DEFDBL_E9<<UNK! {0006}>MERGE`-0.000242327s'bTRONxTOu>OPEN>5<UNK! {0008}><0xE5!>WRITECOLORTOds8<UNK! {FE6C}>H&H505D-6.01953E-05USING8XOREIF<UNK! {001E}>FOPTION8rPSETZbAUTOSCREENV2AUTO<UNK! {000A}>=T
  19. 981  *DEFSTRDIMPOINTsWIDTH<0xCB!><UNK! {007F}>26589<UNK! {0001}><UNK! {00F9}>IFLLIST0MERGEIFePSETCLOSEUSINGACLSEND+a3>.MERGE0v-INKEY$j4<jEDITMERGEPSET{<UNK! {00F6}>IINPUT'AUTOSTEP7^F'(J<UNK! {0009}>CALLTROFF<UNK! {0080}>ERROR<UNK! {0001}>
  20. 60038  <UNK! {00F6}>,CLEAR:LLIST&H66EB^DELETEKBLOADp|%BSWAPLETu'YOPEN'q<UNK! {0006}>QTAB(COLOR<UNK! {00F8}>DEFSTRo>USR<UNK! {00FC}><UNK! {0010}>2DIMF$<<UNK! {FF31}>8<UNK! {001E}>o(<UNK! {0003}><0xDF!>'PSETDEFSTRBLOADIMERGE\>^RUNTHENRETURNiERL#<UNK! {00FA}>5.6"IMP4KEYGOSUB_K>JGOTO<UNK! {0007}>uMODSAVE4STEP<UNK! {00F9}>%bd"XOR-3.06976E+17PRINTELSEw7MODCSRLIN<UNK! {001E}><UNK! {0001}>VARPTRERL<UNK! {FDFA}>DEFINT,;WIDTH-POINTI.B'DEFSTR(89_qGOTOTAB(l9^!TO4THENERASEMOTOR0<0x9B!>H#-20301CLEARTROFFqBU10Ux9BEEPRESUMERENUMDEFDBLotFN#1NEWWHILEV%>OPEN>5READkI<UNK! {0007}>XOR<UNK! {00FC}>>FjSPC(<201COLOR#MERGEn<UNK! {00F9}>ZKSTOPUSING<UNK! {FFDF}>wBSAVE<UNK! {001E}><UNK! {FD57}>GK3j!9DEFSTR056CLOSE<0xE4!><UNK! {0004}>`<0x9A!>NEXTPSET?#TROFF)t<UNK! {0001}>0<UNK! {000D}>=<0x9A!>NEWLOADj:<0xE2!>910e1<UNK! {00F9}><UNK! {FDA5}>OLET<UNK! {00FA}><UNK! {0009}>ELSESCREENANDERR<TAB(qERLmRESTORE5pDEFSTR/GOTOh\MOTORB9_qIFTAB(PSET<UNK! {0080}>ELSE<UNK! {0003}>zQ10CSRLIN/H<0x9F!>i-<0xB5!> LOAD7<UNK! {FE0A}>Y(
  21. 59535  MOTORMOTORWHILE<0xB4!>ntBLOADq-EDITRESTOREBLOAD<UNK! {001E}>AND/4;RUNDIM}1<UNK! {0006}>n91WHILE)<UNK! {0002}>FOR.RETURNSTR$RANDOMIZE-f+o(<UNK! {00FB}><0xDF!>-\)CONTPSET<UNK! {007F}>06kPSETRESUMEBSAVE*TOLINESPC(&O15023TAB(=0RUNd!<UNK! {0007}><0xE0!>\TROFFW&<UNK! {FD1B}>A/OPENCSRLIN+DEF<UNK! {0080}>SAVE-2125<UNK! {00F9}>KDEFSTRTHENKEYXOR+R3STOP<UNK! {0004}>FORWRITE<0xE0!>BLOAD:,GCLSON+g<UNK! {0010}>R=MERGE`GHo-USING<UNK! {00F9}>^<0xCB!>+ _&H3AAAg<0xE5!>DEF[\<UNK! {FF4F}>7WIDTHPm3<0xCB!>?FERLREADd<UNK! {00FB}>ERRDEFSNG><UNK! {0002}>k6{<0xE2!>LPRINT;-UOPEN]195WREAD^=UWRITETEDITRUN63c<UNK! {0003}>EQV<0xCB!>6|REMzWrCONTCRETURN:RUNCLOSE&.|UOPTION+aOFFTOTAB(WIDTH?B$2OFFcFNMOTOR_TROFF>\<UNK! {0009}>REM DEFDBLK1TDELETEpBSAVE<0xDF!>r<UNK! {0009}>RENUMGOSUB]!DIM<0xE3!><UNK! {0010}>doMOTOR;6Y
  22. 54735  INPUT00 aL,<UNK! {007F}>0<UNK! {001E}>^CONTCLOSE,q5NEXT9+2n8POKE<UNK! {0005}><UNK! {0007}>WAITHRUN&O37777756300ONs<0xE2!>%S=aSWAP<UNK! {00FC}><UNK! {00F9}>IF9THENREADTRON<0xE3!>'VARPTRUSR+136IF^'pBLOAD<0xE1!>>LPRINT<UNK! {FE68}>5LSTRING$OPENX^8STOP"FOR(>/<0xE0!>4<UNK! {0009}><UNK! {FD57}>G03yPSETRBSAVE#;+<UNK! {0004}>C'3COLOR<0xE4!>WjWRITENEXTn?h/CLEARSTOP>QDIMSCREENERL<UNK! {0001}><UNK! {00F7}><0xB5!><UNK! {00FB}>2MOD'<UNK! {0080}><UNK! {00F9}>WENDDEFSNG1KEY*ORDEFcTO<UNK! {0010}>[<0xE3!>><UNK! {00FB}>POINT-8.58931E+226ZjDEFSTRn8IMPc[ERR7PSETNEWELSE<UNK! {0003}>bMERGEOFF{HDEFDBLOPEN3'MXORSTEP7DIM<UNK! {0006}>i<UNK! {0006}>V<UNK! {0006}>9<UNK! {000A}>IMP<UNK! {000D}>\LINESOUND<UNK! {FE6E}>IF<UNK! {00F8}>8SOUNDxDEFSTR<UNK! {00F5}>STRING$WIDTHjERR93LISTAUTOWHILE.@POINTfxPRESETRESUME<UNK! {00FC}>/fRESUMEEQVCALLSAVE<UNK! {0008}><UNK! {0007}>2pWAITPNOT<UNK! {000A}>FN2<UNK! {007F}>/w<INSTR9FNITO<0x9F!>BEEPNx3EERASE$hMOTORK6$FORTROFFu\KEYOCOFF<UNK! {00F7}>CLSERLTAB( u<UNK! {00F9}><UNK! {00FA}><UNK! {0010}>ZBLOADKEY<UNK! {00F6}>32OUT<0xE2!>32552>9<UNK! {0001}>p4H-9INPUTG67WRITEDEFSTR<MGLISTwNLIST<UNK! {0009}><0xB6!><0xE0!>CONTa&Op1EQVi%<0xE1!><UNK! {0001}>PRINT<UNK! {0007}>GOTORESUME&H7C71WRITE{ CONT<0xE0!>d^~K<0xE1!>tRESUMEXcIMPEQVINSTRrELSEOPENyZ&63LOCATE><0xE4!>s-1.20905E+32<0x9B!>p1TxSPC(WAITWRITESTEPcLINECONTPSET<UNK! {007F}>J<UNK! {000A}>PNEW9BSAVEWTO<UNK! {0006}>STRING$<UNK! {001E}><UNK! {000A}>494549%ERRM<UNK! {000D}>?1ERLsp<0xCB!>#_DEFSNGINKEY$SOUNDBSAVE<UNK! {0002}>-17.467?NOT#LETTHEN[FOR<0xE3!>200Y<UNK! {FDE4}><UNK! {00FB}>40<UNK! {0009}>U-VARPTRINSTR863I<REM<UNK! {00FB}><0x9A!>ANDRESUME(7=9VrSTEP;xz"<UNK! {0007}>GOTOHb<UNK! {0009}>8CSRLIN<0x9B!>s&H64FA^aK<UNK! {00FC}>tIF'6AUTOLET<UNK! {00F5}>#DUSING};
  23. 58096  .MwVPOKE0ORENDSPC(2AUTOCLEAR6^EQVzCOLORrFNLPRINTf69U-0LISTM,wDEFSNG;$OPTION.CALLy<0xB4!>BLOADx<UNK! {000D}>?LLISTTROFF@t9%Q<0xE3!>DEFDBL.BSAVEDELETEHSTRING$8.<UNK! {000D}>10DELETERLPRINT2INPUT"4747Y5<0xE4!>DEFSTR<UNK! {0010}>\<UNK! {0002}>/SPC(G<UNK! {0009}>USINGhAMERGE<UNK! {0007}><UNK! {0007}>NEXTo1USINGTRON3|<UNK! {000D}><UNK! {00F5}>A<UNK! {0009}>\SAVE0WHILEUSR<UNK! {0007}>.IF<0xE1!>=RESTORE<UNK! {000A}>ELSE.PRESET<UNK! {0006}>SWAP<UNK! {0006}>STEP<UNK! {0080}><UNK! {00F9}>WHILEI'0IMPdXIMPEQVERRyANDSCREEN<UNK! {00F5}>USR{UQMOD5A<UNK! {FD3E}>qDEFSTRPOINTVARPTR3c<UNK! {0003}>xXOR7g<UNK! {0008}>72G/1PSET*BLOAD85'<UNK! {000A}>rWAIT;LPRINTuWRITE&TOZ*5CLOSE<0xE4!>ONSCLST6&b<0x9F!>opKEY#4OFFO<0xDF!>USING<0xE5!>POKEBLOAD<UNK! {00F9}>Yv7DIM<0xE3!><UNK! {0003}>d81.02124E+373883&CLOSEf/ONhOPEN0<UNK! {00F9}><0x9B!>#0K1!^LIST1SCREENNEXTAUTOJ<UNK! {0080}>5StB& )7<UNK! {00F7}><UNK! {000A}>ELSE.LOAD<s5<UNK! {00FA}>ZEXRENUM<0x9A!><UNK! {000D}>KEYADIMLLISTUSINGLOCATE<UNK! {00F6}>3SCREENZ7&NEW[XOR<0xE2!>/DATALG<0x9A!><@.W<UNK! {0003}><0xB6!>^<UNK! {00F7}>|WRITEz<FI<0xDF!>lX<0xCB!>QIMPH29934#/WSTRING$DELETEOPTION<UNK! {0080}>NEXT3CLIST0d<UNK! {0009}>&H8681DIM<0xE1!>5<UNK! {0008}>LOAD_4WHILE<UNK! {00F7}>SOUNDBSAVEOFF;4WHILEOFFe^TORENUM-d.WHILERANDOMIZEIIFNEW0DEFELSESTEP4#01576164jLdNEXT<UNK! {000D}>}SCREENwERR<0xE5!>OPENTO^e,R./T<UNK! {FF47}>DET<UNK! {00FC}>7FNy&HAE5E{<UNK! {0007}>CLS<UNK! {00FA}>0<0x9A!>a<UNK! {000A}>WRITE25342{<0xE3!>LET<UNK! {0003}>s<0xE5!>SCREEN3OPTION&}INPUT_<UNK! {0006}><UNK! {00FB}>4RWEND%<<UNK! {FD90}>6'9<UNK! {FF17}>6Q#`rDEFDBLPSPC(DATAERR'<UNK! {0006}><UNK! {0009}>~P'dSPC(CCLOSE<0x9F!>REMQ<UNK! {000A}>DkCLEAR)/MOTORILET?4<0xE2!>2pMOTORT[OFFINKEY$NEW<UNK! {0005}>STEPtSPC(LOADMOD<UNK! {FF0F}>.KEYTROFF558278LGOTOWAIT-27395GOSUBQmP_USRGOTO<UNK! {0009}>k6DEFSTRPRESETX<UNK! {000D}>UwajRESTORE<UNK! {00FB}>9<UNK! {000D}>SCREEN<0xE3!>[VARPTR5OUTTROFF<UNK! {0080}>KEY<UNK! {0004}>:P7AUTO'!\LETl<UNK! {000A}>POKELLIST8SWAPa2IF!IFUl<0xDF!><UNK! {00FC}>PSETaERASE'y5_-1.69493E+11NL~%<<UNK! {FD9A}>6#,ON<0x9F!>HCALLz<TO?<0xDF!>MW?QANDH8<UNK! {0001}><UNK! {0009}>lERR;MERGEGOTOOPTIONCv\.TAB(kyMOTOR9LETN5>!8LOADP5OFF<UNK! {0008}>KEY<UNK! {FFFB}>n[RETURNGOTO8qLOCATEKEYUSR22BLOAD<0xE3!>INPUTBEEPSTOP&LISTSTOPSAVEBq0n<UNK! {0003}>DATAINPUT]9<0xE5!><UNK! {0004}>10<0x9B!>S.<0xE5!>10Y=J/0TROFFn'$ <0xE1!>7RESUME<UNK! {0006}>q,KEY<UNK! {0006}>s<UNK! {0006}><UNK! {00FA}>d^aKON"IFTl-<UNK! {FD09}>sLPRINTTON5v-13785POKEWEND<UNK! {0006}>IFHPOKELPRINTLLIST^OPENNEWFNRUNl5<UNK! {0001}>xSPC(3E-17+><UNK! {FF5E}><UNK! {0003}>=AND<UNK! {0006}><0x9B!>U<UNK! {000A}>1FOROPTIONE*<UNK! {0008}>7NEXTNEXT4TROFF 5KEYP`OPTIONMODPOKERETURNDEF10\SAVE<UNK! {0005}><UNK! {0010}>mPSETWRITE>dDLPRINTOUTINPUTPSETBEEP-25197PRINTK)205A^WRITE<UNK! {FEF9}>DEFSTRBLOAD8{cIwUSINGRESTORE^<0xE0!>DEFSNGk&X4CxFN5'" <0xB5!>q-K1.08703E+29am<0xB5!>>INSTRs8=<UNK! {00F6}>PSET^RANDOMIZELOCATEDIMgr*)<UNK! {00FC}><0x9F!>INKEY$4444<0x9A!>H%U9^9<UNK! {FF17}>^"z2r<0xDF!>?PSETDATAERR'<UNK! {0007}>-i9THENj<0xCB!>NEXTTOWAITBEEPJuV"<0xE4!><4FN7VQG+44<UNK! {00F5}>#uDEFDBLMOD<UNK! {0001}>STRING$STEP72OPTION<0xCB!>$ePSETDEFINT<UNK! {00FC}>d4WIDTH<0xE1!>\SPC(OUT<0x9F!>=u<UNK! {00FB}>4381-ON=<UNK! {0009}>7hNOTTAB(k<UNK! {0010}>c"2BLOADERL^EQVRESUMEW)I?0M|!<UNK! {FE39}><UNK! {0006}>o,KEY<UNK! {0006}>s<UNK! {0006}><UNK! {00FA}>d^4<UNK! {000A}>WRITE6IFXkLLIST<UNK! {00F8}>POINTxTRON<UNK! {0007}>zfk-471<0x9A!>INKEY$<UNK! {0008}>XK<UNK! {FFB4}><0xB6!>jMERGESAVERESUMEDIM~^_zz7WHILENEXTERL<UNK! {0080}>ERR7<UNK! {000A}>c8LINE34901WHILEe<UNK! {0006}>ERLC<UNK! {000A}>3.<0xE4!>EdMOTOR&O51572DIM=.3BSAVE#CERRORDEFDBLON<UNK! {000A}>LOCATE!w<UNK! {00F9}><UNK! {00F9}> kINSTR<0xB6!>OR-0.17181GOTOGOTO-CLEARINSTR<UNK! {00FB}>QpENDa<UNK! {0006}>TTj10DEFSTRSTRING$p23I:MOTOR<UNK! {00FB}><0xB4!>OFF/*RANDOMIZEINPUT&BLOAD6.RETURN<0xE2!>LET<UNK! {FE3B}>GOTORESUME&H2C71KEY<UNK! {0006}>s<UNK! {0006}><UNK! {00FA}>dPSET2KERASE#IMP'dMOD*VARPTR'WRITETODIMb&),CSRLINLLIST<UNK! {00FC}>sFl=REMORzERASE<UNK! {0003}><UNK! {00F5}>INKEY$F<UNK! {0003}>"W2><UNK! {0006}>uORk/U<0x9F!>VoX{SCREENBSAVEMTO<UNK! {0006}>STRING$C<UNK! {000A}>3.<0xE4!>EdMOTORM6?DIMTROFFopKEY#4OFFDEFDBL<UNK! {0001}>BSAVEDEFn2<UNK! {00F9}>GOTOe/MERGE)PSETAs7R3LOCATE
  24. 64484  40<UNK! {0009}>7hDEFSTRMERGE8{cIwUSINGRESTORE^ELSE^(Y=J/0<UNK! {00FB}>=P$TCLEAR7<UNK! {0004}>_+ySCREEN<U{<0xE0!>ERR<UNK! {000D}>=6
  25. 35853  LLISTOPEN<UNK! {00F6}>uELSE'z5TF<UNK! {0007}><UNK! {00FA}><0xB4!>STOPsEND0<UNK! {0001}><<0xB5!>aSOUND<UNK! {0003}>CSRLINSTOPd#"2{9ERRORDIMERLA<UNK! {FE17}>9;K$ERRfTOW<UNK! {00FA}>SCREEN<UNK! {00F8}>C<UNK! {0008}>-6.6065E+13DIMGOTOFNSTOPMOD<0xB6!>4<0xE3!><0x9A!>REM<UNK! {0005}><UNK! {0003}>'vLOADGOTO-1.53518E+31/4OR<0x9F!>IREMCLEAR-7032REMQw\a<UNK! {0002}>0<UNK! {0009}>Y,<TO}<UNK! {0006}>3;:<0xCB!>RESTORERANDOMIZEPOINTAUTOZ14664103CONGOTO4<UNK! {0007}>P7AUTOEND9.42154E+07a189 <UNK! {0002}>T%LLIST<UNK! {00FC}>&O37777720563'4tr62FNTRONTROFF66T<UNK! {0005}>DELETECONTaSOUND<UNK! {0003}>CSRLIN<0x9A!>W,[5f%*?TAB(RERR,<UNK! {000D}>+>rt0POINTu3wSTRING$AENDakWIDTH@dFN>NM1TROFF.<UNK! {0006}>LOADUuEDIT<UNK! {00F6}><UNK! {0001}><UNK! {0007}>FNnZSTOP<UNK! {FE1D}>%CLOSELETOR ENDWEND<0xB5!>uSCREENLIST)LETERRORDIMuiXgUSRGOTO<UNK! {0009}>[$^SPC(j<UNK! {000A}><UNK! {0010}>wDEFDEFSTRIMP'z|([N8/eTHEN3^ziCALL_RESUMEv4.02267E+1510KDEFSNGQ<0xDF!>FOR[COLORSTRING$<UNK! {00FA}>'LINETHEN4Lu5%COLORDEFINTWHILE-6.06418E+07CONTkPRINTREM<0xE1!>CONTlp `BLOADCLEAR<UNK! {007F}>]<*2[}6<UNK! {007F}>9
  26. 37646  RETURNSTRING$PE[]LIST1d<UNK! {0008}>66Z<UNK! {0009}>IMPX<UNK! {0006}>LOAD#JDEFSTROFFSCREENERRSTEP7v<UNK! {00F9}>LOCATE5eSTEPLOAD>)OEQVCXORWRITEOPTIONNt<0xE4!><UNK! {FD15}>oM-FNJ{0SCREEN
  27. 28074  YDATA<UNK! {0009}>CxKEY;s]eDEFSNG7AND|"aKEYy8COLORRESUMEdPOINTqKERASE1PSETU~LLIST<UNK! {00F9}><UNK! {FD78}><UNK! {00FA}>SCREEN3SOUND<UNK! {0006}>C<<UNK! {FDFD}>OU_T<0x9A!>LCOPY\STRING$REM<0xE0!>RUN8%Q,q<UNK! {001E}>WENDTSTEPRERR[<UNK! {0010}>><UNK! {000A}>$POINTpERRWRANDOMIZEPRESETBSAVEONEXTa"<0xE4!>5.<UNK! {0004}>J|?4BSAVEC%<0x9B!>y4ORLPRINTSTEPBSAVEGOSUBZ2MOTORDEFSTRi<UNK! {00F9}>$EDIT+<0xCB!>/ORERRWEND(VARPTRSCREEN<UNK! {FDE6}>EDITB0INPUTk +KEYeOc4&PRESETERLDEFSTRANDSWAPR16189Sd<0xE0!>3s]oCALLY<0xE4!><UNK! {0006}>-18108{1.31369E+16-456NEW(H{GOTO<UNK! {0009}>PSET%LINE<UNK! {0002}>La&9BSHELLERROR<UNK! {0009}>ST<UNK! {0001}>WRITEEDIT.STOPNEWVARPTR<UNK! {FF80}>1K(2ILINEQTHENA\4<UNK! {0005}>=y$ERR_<UNK! {0003}>W<UNK! {00FA}>SCREEN<UNK! {00F8}>C<UNK! {0008}><UNK! {0009}>COLOR<0xE4!>W&HAD61<0xE2!>`&RESTORE<UNK! {00FA}>pUSINGGOTOERL=BLOADELSE<p<UNK! {0003}>2<UNK! {00F7}><0xDF!>5eSTEP<0xB6!><UNK! {00F6}>d4WRITELLIST3SWAP<0xE1!> DEFSNGWHILEWRITE<UNK! {0008}>0eMI<UNK! {00F8}>/F1WI\<UNK! {00F6}>POINTERLTHENTODATA<UNK! {0010}>{kcX\@'" <UNK! {FE57}><UNK! {0006}>-8<UNK! {007F}>OUT<UNK! {0006}> <0x9A!>TROFF8OPTION_RENUMPOINT36@LETLLISTOPENERRa<0xE4!>STRING$M\qk(CHDIRDEFSNG<UNK! {0007}><UNK! {007F}>TDEFINTOUTEDITmLISTREM<0xE1!>STOPc^M3q&EDITPSCREEN6MOTOR}ANDRESUMEm01TAB(/WSTRING$RESUMEBEEPO<UNK! {007F}>pW<0xE4!>=3STRING$MNMB<0xE2!>!$LETOMDEFSNGOFF<UNK! {0001}><0xCB!>STRING$8wRETURNGOTO8qLOCATEKEY<24ELSE<0x9A!>ICLOSE
  28. 35478  4s\lFN|Wt-EDIT]USR10CSRLINR<UNK! {000A}>USINGRETURNTRON<UNK! {00F8}>CONT`&X./fINKEY$!s]n<0x9A!>7CSRLINv0oLOAD8s<UNK! {0006}>CSRLIN:RANDOMIZEa<UNK! {0009}>RANDOMIZEtRESUMExCERRFN<UNK! {00F9}>S<UNK! {0001}>/Y5r#%USRREMDELETE&O40525<UNK! {00FC}><RUNaCOLORPRINTRESUMEGOSUBl5K+w\<0xE5!><0xDF!><UNK! {007F}>a0TIMPH31724#=WVARPTRINSTRINKEY$<0xE3!><0xE5!>RCLEAR<UNK! {00FB}>TOv0NEXTEDIT?<0xB6!>NEWlYKEY%<UNK! {007F}>SWAPINKEY$PRINTTAB(LOCATEn6MERGE<UNK! {00FC}>*XUSINGCLSAND2ENDSOUNDLLISTOLOADGOTO&REM>10<UNK! {0007}>DATACLOSEVARPTR$='6sERASEMERGE10EY<UNK! {007F}>qTHENWAIT<0xDF!>WRITE="s&O14600;ON|0TRONDo<UNK! {0006}>X>/RENUMJCLOSE|a<0x9B!>*vSAVE'6BLOAD<UNK! {00FC}>STEPdERASESTRING$DATAZhQUNEW<UNK! {0006}>EAND\CALL)<?AKEYLOCATERESUME<UNK! {FD38}>+`7a%LLISTNEXTKEYOBLOADx<UNK! {0010}>4~5CSRLINlRETURNWOUTPRESETMOTORFORFV`ERASEqdTRONl4?dPSET[p<UNK! {00F8}>62236CLOSE<UNK! {0001}>ONKEYK ERRIFINPUTCLOSEINKEY$=DIMTHENEND?ERL6<UNK! {0001}>
  29. 36836  Mc\_ERLQ<UNK! {0009}>Y9INSTRSPC(839%/USING'WIDTHEQVERASEi*L9/xFNndsm<0xB4!>m><UNK! {007F}>.mDEFINT<UNK! {007F}><UNK! {0004}>POKE<UNK! {00FA}>%<0x9B!>-1.46682E+30'1136v7=BLOAD47&k3VARPTRDEF<0x9F!><UNK! {0001}>FFTHEN<0xB4!>WENDZCLOSENEWSTRING$RESTORE6^27514 <0xB4!><UNK! {000D}>PSETDATACSRLIN'<UNK! {000D}><UNK! {0009}>y%<UNK! {FE6B}><UNK! {0007}>&H8AC1LISTQ<UNK! {000A}>`^ELSE@0KEYMOD#VARPTROPEN<UNK! {0001}>CLSDEFnqON<UNK! {00FC}>+jCLOSELETOR END<0xB4!>TRONENDOPTIONON*<UNK! {FD9A}>RUN[rENDl<UNK! {0005}>LETREADChNOTTAB(k<UNK! {0010}><UNK! {001E}>5wCLSTHENSWAPELSECONT`+N/XyPRINTt<UNK! {0007}>LETFOR?<UNK! {0010}>9<UNK! {0006}>MOTORCPSET?s&H30C5OPTION/D<UNK! {00FC}>6<UNK! {00F5}>88BEEP<UNK! {00F7}><UNK! {0002}>{ELSE<UNK! {0005}>P8&?5COLORLOADCALL<UNK! {0001}>Z4SOUND<ERLEND+<UNK! {0003}>CONTSTRING$By2a*^<0xDF!>2LET0LISTo}RESUMESWAPSPC(xFN/W-13847<UNK! {000A}><UNK! {000A}>1.<0xE4!><0KEY5<UNK! {001E}>OFF<0xE2!>ONUSRKEYnZREAD<UNK! {00FA}>WBCLOSEOPEN<0xE4!>10EDITLINE3PSETBEEP>CLEARNEWSAVEDh<UNK! {007F}>&LISTOFFTOz~SOUND48RENUMtNrUSINGRETURN^ELSE<0x9A!>W+J?S0TO3n$tCONTjUSING{9TMOD<U{<0xE0!>ERR<UNK! {000D}>BEEP)<UNK! {00FC}>|5'6SOUND<UNK! {FDC6}>`CALLTHENI5r-10661ONCALL5.53932E+08KEY.ERLINSTRHERRRETURNl:22pREMQ<UNK! {0003}>VUSR[--111.01BSAVEHOPENRUNRENUMCGUJELSE+dIMP&H4F82<UNK! {000A}><0xE2!>o<UNK! {0007}>LOADWHOFF<UNK! {00FA}>REMBSAVE<UNK! {0002}>10\MERGEGOTOW'PRINTKEYTROFFhENDPRESET<UNK! {FD10}>(<0xE0!>:FN<UNK! {00FC}>qERLNEXTn2mLINE<UNK! {0009}>5STRING$L<0x9B!>LET{a9T&O37777773614ELSETAB(,YCv/<UNK! {007F}>ERL%'xeDEFINT0TROFF3RESUME/K'0IMPdXIMPEQVERRy<0xE4!>'Pvr",FNINSTR<0xE4!>LISTDEFSNG7LINE@~.INSTROHERRDATA^4*VARPTRhPSET?RESUMECOLORRENUMCLOSE<UNK! {0001}>CSRLINHX44156.8ANDcCVARPTR<'OFFE^/MI<UNK! {000D}>HDELETEa^<UNK! {00F7}>#4OFFLPRINTSTEPRESTOREKEY`-30253;8PRINT<UNK! {00F7}>DEFDBLrOOFF<UNK! {00F5}>3OR
  30. 53722  <UNK! {0002}>/C-DEFSTR=;6f<0x9A!>REM'{5wDEF0<UNK! {00F7}>CALLy|1PRESETOFF}CALLENDCLOSE<UNK! {FF27}>9SAVEAB9<UNK! {0006}>oyLET}&O377777230061.09045E+11#IMP'}<UNK! {00F7}><UNK! {00F8}><UNK! {FF27}>RANDOMIZEUSINGza&)2COLOR<0x9A!>TROFF YT<UNK! {00FC}>WIDTHWEND`STRING$TAB(POKE<UNK! {FF6E}>&_(s5CALLDIMERLVMOTORCLOSE=POINTpX2.04285E+19CLEARSTRING$ZyF.REM=3ERLAK?@AND1021193DOFF<0xE3!>KEY<UNK! {0003}>DEF9[LISTTOeXINSTRKEYXOR9BWRITE<0xE3!>MCLOSE
  31. 64401  OdNEXT/uRETURNu|<UNK! {0080}>=MERGE10><UNK! {0010}>I"SCREEN<UNK! {0009}>^-TRON]5ENDJZ<UNK! {007F}>TROFF$b[u<0xB5!>YVARPTR<UNK! {0006}>0MERGE<0xE4!>d^}D<UNK! {00FC}>"<UNK! {00FC}>S8-<UNK! {FD0B}>qELSEOPENL[{k4NOTTROFFLINE<UNK! {0008}>FHFN<0xB6!><0xB6!>]STRING$RUNSTRING$<UNK! {FDF9}>DEFDBLSAVE&HFFDA<0xDF!>A<0xDF!>RTAB(%<UNK! {007F}>,w(
  32. 50759  REMOPTIONONEXTa.IF62PSETI6NEXTCOR23DEFINT#HDEFSTROFFSOUNDERRDEF8]ON<UNK! {0005}>5~PSETWRITE>d@ORELSELETGOTORETURN2<UNK! {FD98}>DIMBhC/u8tWIDTH<UNK! {0080}>=<0x9B!>LET}:I RETURN
  33. 25001  *M6rhTROFF"_a <0xB4!>YVARPTREND7bDEFSNG<UNK! {0006}><UNK! {0009}>ONRESUMEdOPTION <UNK! {0008}>NEWt<UNK! {FF5E}>c<0xE3!>LETERRy<0xE4!>STRING$Mp&77THEN<0x9F!>TROFF<UNK! {0001}>7VBSAVEV87DEFDBLENDCLSn?STEP"x10rOPTIONJLOCATEMBLOAD52+}PINSTRp<0xCB!>1736RENUMTs3JLISTEnNEWMNEXTJ<UNK! {0008}><0xE2!>$^KEY#}DEFSNG>LISTBSAVEAUTO2gSAVESCREEN8pTOWRITELPRINT/D<0xB4!>DEFDBLINPUTPRESETRETURN[0WIDTH-LISTVQw0<UNK! {001E}>I&SCREEN<UNK! {FEB8}>ELSEDEFSNGW'FORCDtTROFF"_en<0xE1!>l<0xE0!>G5.47568E+37&4AcRANDOMIZEVARPTR<UNK! {00FC}>nEDITS8<0xDF!><UNK! {00F6}>NOT'LINE<UNK! {0003}>LETp*k>USRREMINKEY$<UNK! {0010}>IFJPOKE<0x9B!>WRITEaBEEPSTOPOFF<UNK! {FF58}>0Gz]4<0xDF!>STAB(DATABLOADeZH~9<UNK! {0002}>lERRNEXTSTRING$&SCREENDEFINTAUTO;CLOSE<0xE4!>{0<UNK! {0009}>>zLET8355<UNK! {001E}><0xB5!>N4\TRON<UNK! {0001}>TAB(TAB( wRETURNGOTO53104<0xB5!>LPRINT<UNK! {001E}>DORDEFINTINPUTCLOSEGOTO10GOTOELSE<UNK! {00FB}>Co0^SPC(WT]&DEFSTR<UNK! {0004}>}{3;<CLEARBSAVE<UNK! {00F7}>END<0xB5!>NLIST%CSRLIN/3/6^_hOUTn^|q`CLSx<UNK! {000A}><UNK! {0006}>TROFF3RESUMEa<UNK! {0008}>NEW#<UNK! {00FC}>TlLLIST/ERR'LINENOTINPUTp*k36287ERROR<UNK! {0007}>FORTTOELSESWAP^OPENBSAVEFN<UNK! {FDF9}>PRESETLOADPSETVARPTR<UNK! {FFDF}>ASPC(I<UNK! {FE5B}>ZHz"'_<UNK! {0007}>HMOTORONSTRING$G<UNK! {007F}>]WREMEjMOTORLET6INPUT<UNK! {0009}>=1007a<UNK! {00F7}>iFNREMEND<0xE1!>3dNEXTTROFF<0xB4!>3OPENBEEP4RESTORE<0x9A!>READ4|FORhONRQY-9044f9\#.USING'<0x9B!>^RESUMEZ298251+.l<0x9A!>$3395HAND<UNK! {00FB}>ERL<0xE1!>DEFs6<UNK! {0005}>SAVE\READ.<UNK! {00FC}>nCSRLINUl<UNK! {00F5}>*PSETU<UNK! {0001}><UNK! {00F6}>`READHkjCLEAR>WEND<UNK! {0004}>FG<UNK! {00FC}>DELETEELSEZSTRING$INKEY$STRING$<0x9B!>l4W,uo<0xDF!><UNK! {000D}>LET&O52703SHB6STOP'j0FANDWC14031PSETERLdDEFDBLERASEAND<0xDF!>X&H788BT#"<UNK! {007F}>OCSRLIN/DEFtENDRUNGOTO-4.06742E+29<UNK! {007F}>GOSUBBLOAD-RESTORE<0x9B!>PRINT4l~-<UNK! {0007}>||],DEFSTRBLOAD8*?uafPSET|PRESET|SCREENFNEDIT\:NEWTROFFtPsu<0xB5!>\RESUMEOBiKEYl45722!ERRORaEMERGE8<UNK! {0002}>'pIMPLET'xRANDOMIZE<UNK! {0007}>y]k-2.74443E+12 <UNK! {007F}>{POKE<UNK! {00F6}>OFF STRING$OPENINPUT<0xB6!>l55z|KPRINTPPSET&O64625<UNK! {007F}>J>P<0xE3!>-b<UNK! {0004}>CALL<UNK! {00F6}>CSRLINRESUME<UNK! {000A}>|93{4BLOADM<UNK! {FF3F}>)<0x9F!><0x9F!>rLINE%461359OPTIONnn<UNK! {0008}>wGOTOw<0xE1!>EDIT)cK{9V3>^RANDOMIZECSRLINu<UNK! {00FB}>4420^USRDIMINPUTq6VARPTRMERGEg>54wLOCATE<UNK! {0009}>EDIT^^j18971tPNOTn!$LWENDo^|q136m<UNK! {000A}>&H631AON]bmtINPUT'8LLISTLETPSET'<0xE4!>OPEN45&k[COLOR>INKEY$sFTPOKE<OR.STRING$ERROROFFRESTORE~^N2s4831PRINTA
  34. 19258  3
  35. 52284  RUNBEEPUEND1TAB(EDITOFFrhPOINT6ADIMTROFFopKEY#4OFFDEFDBL<UNK! {0001}>BSAVEDEFn2<UNK! {00F9}>GOTOe8CLOSEKEYLPRINTdENDORFIELDRESTORE
  36. 33680  4d0n<UNK! {0006}>QzvhSWAP<0x9B!>0}ISCREENafPSET|END<UNK! {0080}>CLSEND,<0xDF!>/3/6fp AUTOq<0xE4!>FORqe<0x9A!>KsPOKECLOSE9OPTIONa?NEW6.2926E+29<UNK! {00FB}>VARPTR^CALLTO65(]iCOLOR<0xE4!>-s0<UNK! {FF4C}><UNK! {0002}><UNK! {001E}>AUTO0p<0xDF!>XORPSET+=N<UNK! {007F}>rOPTIONPTRONygWRITE0n<0x9A!>*<0x9B!>3@BERASEv0M=0lDEFSNGorWAITx<UNK! {0008}>OFF<0xE3!>CLSTHENLOCATEns<UNK! {00F9}><UNK! {0005}>$}USING<0xB5!><d4OPEN<0xB6!>ISCREENNEW&<UNK! {FD90}>NEXTMoV-PRESET&O14073jRETURN08qSTEPDELETEDEFH\BLOADPOKEDATA(G<UNK! {00F5}>cSTEP 6.<UNK! {FE58}>XORBRUNWIDTH+M7
  37. 50694  CALL<UNK! {00FA}>QK+tCONT]<UNK! {0010}>LLISTTRONL'VARPTR<0xE2!>$ERR8<UNK! {0002}>-EDITwINKEY$aRESUME<0xB4!>BSAVEYOR<UNK! {FEE5}>+ELSE<UNK! {FF17}>1Q)2>STOPmELSEAERL)<UNK! {007F}>;h5THEN]<UNK! {0007}>AMERGECLEARRENUMB<UNK! {0008}><UNK! {0009}>CLOSE<UNK! {0004}>+EERR<0xB4!>EDIT?<0xB6!>NEW}YKEY%dDELETE<UNK! {00F6}>CLSERRLOCATEnaPRINT<UNK! {00F6}>10}LOCATEWRITELPRINT<UNK! {001E}>7EQV<0xE3!>h;ORI<UNK! {FDE6}>LETLd<UNK! {007F}>lSPC(YTj`USINGRESTORE7}NEXTUSING1RANDOMIZEu<UNK! {0080}>ELSE<UNK! {0003}>OUTRANDOMIZE10<0xE3!>/0<UNK! {0006}>CLEARN<UNK! {0001}>[/<UNK! {000A}>>V\LINESOUND<UNK! {FE46}>INPUT'LOCATELLISTWAIT<<UNK! {FEE4}>WIDTHIF5<UNK! {0008}><0xE5!>N_'G<UNK! {FDE3}>+POKESTRING$MTAB(/rRESUME/<UNK! {000A}>L6z0USTOPk+kBLOADsUEND<UNK! {000A}>1
  38. 38985  <UNK! {0006}>BEEPM<UNK! {000A}>]kCONT@hMOTOR=NEXTDIMGXOR2p<UNK! {00F7}>8<UNK! {0002}>OFFWHILE!KAND-;tGOTOwMERGE[<0xE3!>&H6F64<UNK! {0009}>:\SCREENjOR/<UNK! {007F}><UNK! {00FB}>NOTFOR87WHILEI=&O37777733144RESTORE>}Cww@RESTORE<UNK! {000A}><UNK! {FEE5}><UNK! {000D}>}Av$=DEFINT{<UNK! {00F6}>&[<0xDF!>7w<UNK! {0006}>NEXTOUT<0xE0!><UNK! {0006}>URESTORE<UNK! {00FA}>VARPTR<UNK! {000D}>$<0xE1!>L}9'<UNK! {0003}>@hNEWWAIT<0xE4!>j&?+kUOUTTROFFDEFSNGs@T<0xE4!>WRITERESUMEkSOUND<UNK! {0003}>IFSAVE~#5zb<UNK! {001E}>TRONFORERRDATABLOADiQv<UNK! {000A}>rPSETSOUNDBSAVEiLET&/AUTO<UNK! {000A}>=$<UNK! {FDA5}>A*<UNK! {0003}>ANDDEFSTRDIMPRESETWIDTH<UNK! {007F}><UNK! {00FB}>#<0xE3!>OFF><UNK! {0001}>DEFSTR+{<UNK! {0008}>pGOTOwgERASE<0xE3!>100[q<0xE3!>TRON(`NOTa<UNK! {FD72}>4179THENCLOSEDEFSTR<UNK! {0009}>SCREENwSAVERESTORE8}:%.LOCATERESTOREDELETEIMPTRON(5N4X0OFF+%$L.6<0x9A!><UNK! {0006}>ooMOTORG4.97439E+16/NEXTREAD]RANDOMIZE'8ERR<0xE0!><UNK! {00F5}>USTOPERRORg4$IFREM%8PRESET<0xE2!>Fj<HKEYCLS61B7<UNK! {0010}>SOUND"?<0xE2!><UNK! {0080}><0xDF!>^PSET2OPEN}<0xE4!>H+tOUT<UNK! {0080}>PRESETPSET;<UNK! {0004}>ERLC'3&H1B14DEFDBLCALLNEXTl<0xDF!>o<UNK! {0008}><0xB5!>yb#4<0xE1!>WRITEMODPRESETDIMLPRINT0<UNK! {00F7}>GOTO<0xB6!>8<UNK! {00F8}>9SPC(DEFDBLs204ERRORD+0<UNK! {000D}><UNK! {00F5}>ERRDEFINT9.1061E+277LISTLLISTBEEP08qBEEPDELETEDEFCLEAR00LPRINTKxqr<0xE1!>]>z4.11505E+07*KLET199708<UNK! {00F9}>EQV<UNK! {0002}>{<0xE4!><UNK! {00FB}>INPUTe_*%COLORONLINEsSK<UNK! {FDAA}>OR|REMSTOPTHENCLEARl^3l16240[-'DELETEUSR<UNK! {007F}> <UNK! {FD5F}><0x9F!>9qWePOINTc8<0x9F!>3@WIDTHSSOUND3<0xE2!>10)^TROFF7<0x9F!>TAB(#<0xE3!>OFFBCSRLIN/<0xB5!><UNK! {00FB}>2MOD<0xDF!>NEXT<UNK! {00F9}>3R<0x9F!>PSETXOR+R3LOCATEDEFSTR0REMELSE<UNK! {00FB}><UNK! {0005}>#0<UNK! {FDA6}>/@7MLETMOTOR8RENUMtNrUSINGDEFINT<UNK! {00F9}>CONT<UNK! {FF21}>RANDOMIZEMOD<0xE1!>610=nN\2<0xE1!>STRING$RESUME8v<UNK! {0006}>X<UNK! {0006}>M<0xE2!>CALL:OPTION_KBEEPGk7INPUT<0xB4!>CLEAR<0xE1!>'GOSUBM25ERRkPSETCOLOR<0xE4!>XORA7RUNPSET<UNK! {00F6}>OFF <UNK! {00F8}>ERRWAITFN#p3l-912?OUTCOLORBLOADPSET<UNK! {007F}>J<~BSAVE'RESTOREGOTO<UNK! {00FA}>SCREEN<UNK! {00F8}>4<5.9083E-05REM<UNK! {007F}><UNK! {000D}>-23898<UNK! {00FB}>L<0xE3!><0xB6!>4<UNK! {000D}>CLS<UNK! {00FA}>PRESETDEFS6FNUSRdC(<0xE3!>196f{<UNK! {FD26}>AUTO
  39. 41948  <0xDF!>67-g=0P<0x9A!>WENDRESTORECANDcwSRETURN<UNK! {0002}>OPTION<0x9F!>^qFOROFF<0xDF!>CLOSEa<0xB5!>8'MOR=7w<UNK! {0006}>
  40. 16696  INSTR<0xE4!>zCSRLINsINPUTSPC(bRANDOMIZE8#LINE<0xB6!>POKE9>ELSE4164kPSETCOLOR<0xE4!>XORA7RUNPSET<UNK! {00F6}>OFF <UNK! {00F8}>ERRWAITFN#p3l-6820-18586'2.3295E+09TROFFBPRESETW<UNK! {00F5}><UNK! {0002}><UNK! {FE7A}>?<UNK! {0009}>RANDOMIZEPSETUSINGSOUNDv<0xE1!>K)$TROFF&WIDTHSTRING$44175ANDWRITE<0xB5!><UNK! {0003}>2<UNK! {00F7}><0xE5!>$gLOCATE<UNK! {00FB}>POINTdNEXTOFF<UNK! {00F5}>B<UNK! {0006}>TAB(gSTEPVARPTRFN<UNK! {0002}>/C#PRESET&O33073jDEFSTRm<UNK! {0006}><UNK! {0080}>ZIZNOTNEWSOUNDOPTIONUSINGKNEXTDEFDBLAUTOERLLPRINTFNOUT<0x9A!>$4395CLEARDEFPRINT3Tne{<UNK! {00FA}>fINSTR3?RANDOMIZE<UNK! {001E}>DEFINT'E=<UNK! {00F6}><UNK! {FF27}><0xDF!>ELSE407G,FN<0x9F!><UNK! {FD73}>xy>DELETELLISTkSTRING$STOPOFFLOAD}'Q,)rON<UNK! {001E}>\DATAUSR'>:fkNEW;LPRINTWRITEMODk<0xB4!>)TROFF3,DEFDBLh0@READKCXORLpREM<UNK! {000A}>zDEFSTR<UNK! {00F6}>WAITBSAVE<UNK! {0003}>10\LOADGOTOW'PRINTKEYTROFFhENDSCREEN<0xDF!>\BLOADmERR*<UNK! {007F}><UNK! {00FB}>{!<UNK! {0001}>/=G<UNK! {0009}>
  41. 59841  }4ww(RESTORE<UNK! {0080}>ELSE<UNK! {0003}>2P10<0xE3!>/0<UNK! {0006}>*79<@&HACFA^<UNK! {000A}>O&HF86E%8QLET7'VARPTR4085READkI#<UNK! {FDFC}>>Fj<UNK! {0006}>SPC(150WNEXTBSAVEd88<UNK! {001E}>AUTO0@<0xE5!>?^A<UNK! {00FC}>WREMJhrNEW<UNK! {0006}>BSAVEi~/STRING$8LET3@PSSOUNDy<0xE0!>BEEP)$TROFF&WIDTHCSRLIN#<0xE2!>OFFCLS<UNK! {00F8}>POKE<0xB6!>r9CLSCLSON10MERGE<0xE3!><UNK! {0002}>v(ORERR<UNK! {0008}><0xE1!> BSAVEpP<0xE5!>ERROR0c9hTMERGE^GLISTw6.25958E+09<UNK! {0003}>WAITS=pWHILE0WHILESTRING$<UNK! {FD04}>'SPSETBSAVETROFFqB?&O37777720525<UNK! {00FA}>|19279$t<0xE3!>INSTR<UNK! {000A}>DEFLETu'YOPEN'q<UNK! {0006}>QTAB(COLOR<UNK! {00F8}><UNK! {0080}>eF~9<<UNK! {FD60}>POINT#<UNK! {0002}>qFNL<0xB5!>zINPUTv/ATRON?BLOADBLOAD<UNK! {007F}>54CLSRETURNmCLSW10<UNK! {0006}>INSTREQV 3<UNK! {0004}>^ER}CALL<UNK! {00F7}>K<U}<UNK! {00FB}>KEYFORp<0xE1!>_<UNK! {0003}>CLSDEFMERGE2tGOTOwKEYRANDOMIZE<0xE3!>&H6F64<UNK! {00F9}>STRING$3IMPFORYORINKEY$IMPERLPRINTTROFFEQVk%<UNK! {00F9}><UNK! {0007}><UNK! {00FC}>SWAP<UNK! {00F6}>-FIINKEY$wOR}<UNK! {0007}>ELSE4(0TAB(U*0tn<0x9A!>$63645CLEAR<0x9F!>qBCALL3LIST<UNK! {007F}>DATATRON<UNK! {FFD6}>K<0xB4!>TROFFOUT38<UNK! {0007}>LETOPTION8USINGZCOLORCLOSE<UNK! {00F6}>ENDUSRCOLORSAVE1d<0xE4!>TEQV<<UNK! {FDCA}>'#Vq<UNK! {FF4C}>RENUMz9rJ?RESUME9RESUMEoqt!|TRONwDEFINTNEXTVARPTRNEW'<UNK! {0007}>16821INSTRWSTRING$jEND)GOSUBmERRORENDSPC(<0xE2!>6"6\THENDEFSTRINPUTy<UNK! {0008}>pGOTOwgERASE)DEFSTRNOTERASE<UNK! {00FC}>N3WIDTH2F*<0xE4!>r4243STRING$KEY+'3dOPENREAD<UNK! {0005}>OuoLIST&O37777735642ON<0xE1!>F10)v=gWRITEz8~&H16F56"UBw1UTROFF<UNK! {00FA}>Z<0x9B!>WRENUMDEFSTR<UNK! {0003}>CONT<OUTLLIST<0xE0!>Y7USROPENRESUME5<UNK! {0008}>BEEPOLIST<UNK! {00F8}>16999jDIMERLCSRLIN@4>SWAPEQV10K<UNK! {0008}>50|WHILE)fZ4cd'0MOTORNEWENDPSETt<UNK! {00F5}><UNK! {0002}><UNK! {FE31}>?<UNK! {0009}>COLOR<0xE4!>W33641EDIT??<0x9F!>LJx#WHILEOFFCLEAR<UNK! {0005}>LOCATELPRINT[SPC(i5k1OR9~TAB(END<UNK! {00F7}><UNK! {0002}><UNK! {0010}>
  42. 52940  r4199ERLCLOSERENUM+<0xB5!><UNK! {00F7}>WIDTHAUTOCLEAR{Buo<0xE5!>ON42.234=USING/7.11424E+19>INKEY$BLOAD*4<UNK! {FE26}>XNOTTHENVVARPTR<UNK! {00FC}>,READ&HA238CLSRANDOMIZE<UNK! {001E}>D~EDIT<UNK! {007F}><UNK! {0009}><UNK! {FE5B}>WHILE<0xB4!>PSETUCLOSET<0xE1!>POINTTO3NEXT<UNK! {0003}>=<UNK! {FF38}>b9INPUT;CLEAR2LINEIMP.=RENUMWIDTHVARPTR<UNK! {000A}>xDEFINT-LOCATE\<UNK! {FDCF}>/EDIT<UNK! {000A}>=DATA<UNK! {FD63}>SPC(aQERROR}m5M<UNK! {0001}>KEYk<UNK! {0010}><UNK! {00FA}>CLEAR<UNK! {0005}>LOCATE<0x9B!>[<UNK! {0008}>tGOTOwKTROFF<0xE3!>3d8MOD<UNK! {0008}>6y
  43. 51141  &H1811THENCLSDEFINTQ2D\^IF{[7{STEPRESUME\OPTIONUSINGBEEPY/XOR:+1RETURNkNEWrSTRING$GOTOCLEARDEFqd<UNK! {FD25}>.<UNK! {000A}>IMPQ\READ><UNK! {00FC}>FORERR??136MOD#<UNK! {0007}>WIDTHLOAD5<UNK! {007F}>kvIFINKEY$NOTF>A(SOUND<UNK! {00FC}>FORF$:<UNK! {FF31}><UNK! {007F}><UNK! {001E}>rGw>8+A<0xB5!><UNK! {FD66}>rOUTLINE(KEY<0xE4!>dePOINTcCR60BEEPylWRITET5DEFSNGDIMGOTOExMOD<0xB6!>4OUTCALLVARPTRPOKEFnW<UNK! {00F9}>RESUMEi1RANDOMIZE
  44. 32753  INSTRh80RESTORE-7.53951GOSUB<UNK! {0007}>]<0x9F!>|PRESET|(!Aq15<0x9B!>INPUT<UNK! {001E}>.GOSUB<0xE1!>5<UNK! {00FA}><UNK! {001E}>GMERGEKEYOOFN<0xE0!><UNK! {00F5}>^<KOFFpBLOAD00~m6TROFFUSINGAND<UNK! {0005}>LOCATENEWksLLIST<0xE2!>>|CMBSAVEUOR@l-CLEARq<UNK! {00F9}>ZDEFDBL/'<UNK! {FFFD}>WENDPSETyCOLOR<UNK! {0080}>^|2HON#+WVARPTR<0xB4!>INKEY$8DEF3c<0xE0!>bv<UNK! {0010}>Mj?g<0x9F!>Wh
  45. 10068  *ANDREADGOSUBCLS<UNK! {00F9}>MOTORL-NEXTFNDEFSTRe[~<0xE3!>"r+NEXTo<UNK! {0004}>COLORERASEBLOAD<UNK! {00F6}>LOADCLOSEDEFSTR<UNK! {0009}>`lREMSWAP-Cj<UNK! {0080}>ajRESTORE<UNK! {00FB}>STEP<UNK! {0005}>1SCREEN=22*INPUT<0xE3!>'END 
  46. 22543  TODEFSTRDEFERROR!PSET<0xB4!><UNK! {000A}>STEPKERLUREAD-1.52078E+15<<<UNK! {FDBB}>Cs7hCLOSE~)<PRESET*+<0xE2!>DEFSTRPRESET-2.42833E+08LINEBLOAD<UNK! {001E}>Kc0<0xE1!>NEWLBSAVEvINSTRTAB(TO<UNK! {000A}>-DIMCLOSE$RLETQDEFSNGLPRINT?NPSETsXNOT<UNK! {001E}><UNK! {000D}><UNK! {00FB}>><UNK! {0001}>DEFSTR5{<UNK! {0008}>siERRORLETESPC(3vXORORIF<UNK! {0010}>MOD<0xE1!>]BEEP<UNK! {00FB}><0xE5!><UNK! {000D}>;SWAP-ERRORwEQVB<UNK! {00F9}>DEFSTR<UNK! {00FC}>-`I<wWENDRESTORETOLPRINT<0xE5!>7S&HC7AAWIDTHOCONT[\<UNK! {FF4F}>7WIDTH'm3VARPTR3F<UNK! {0003}><0xE0!>'^SEQV<UNK! {00F5}>F8PRESET73faWAITAND+4m"PvIFINKEY$FNhC~%<<UNK! {FD7C}>INKEY$'9<UNK! {FF60}>b<UNK! {0005}>`TROFFrBSAVE?ERROREIFLdEND-k<UNK! {001E}>FNDEFSNG#<8dCB19POINTVPRESETSCREENT5DEFSNGDIMGOTOTHENyMODRANDOMIZEERLELSEAMODDEFSNG&LBLOAD<UNK! {00F9}>FNiBLLIST<UNK! {FDA5}>Sm<UNK! {00FA}><UNK! {0009}>ELSESCREENAND&O37777747345n4\<UNK! {000D}>&CLOSERESTORE<UNK! {0009}>}hGOSUBMOTOR1lw<UNK! {0080}>DEFRANDOMIZE<UNK! {001E}>EQVONMOTORINSTR<0xB6!>CALLJ60<0x9F!>v77)<UNK! {00F8}>BE<UNK! {0006}>NEXTDIM<0xE0!>$<0xE1!>&mSTRING$MODUVARPTR><UNK! {0005}>IFo-MERGE'LOCATE5.1066E+32<UNK! {FEFC}><UNK! {FE46}>-1.68623E+09STRING$LLISTRESUMEINKEY$-f1IF;CLEAR~WHILEWAIT-=RENUMWIDTHVARPTR<UNK! {000A}>xDEFINT-LOCATEh'STEP<UNK! {00FB}>8<0x9B!>3@FTv/DEFINT<UNK! {0005}>WHILE\READ<UNK! {FE4A}>X#|<0xE1!>DEFSTR<0xE0!>PSETREM}<USRCALL<UNK! {00F8}>8WHILEIFINPUTvXORORRUN<UNK! {0010}>MODVARPTR<CVI<UNK! {00FB}>4!8BERRORD+<UNK! {00FC}><UNK! {00FB}>LETDELETEEIFDATAPRESETwSTEPDEFINT<UNK! {00F9}>CONT<UNK! {0002}>Fp&HBE700WHILE/<UNK! {FE2E}>RETURNA5;XuMERGEORDEFsDEFSNGANDREADTO]NEXT*NEXTSAVE<UNK! {000D}>DATALLISTWAIT<UNK! {00FC}><UNK! {FFEE}>+4l"P}17382s+PSTOPUSING
  47. 15276  WRITE<UNK! {0005}><UNK! {000A}>SPC(CONTCLSr="BSAVE<UNK! {0009}><0xB4!>LFEND0OFFNEWG7DEFSNGANDh6SONqBucTHENMOTOR%&O63434<0x9F!>W<UNK! {007F}>'<UNK! {001E}>5PDEFDBLORXORoLBLOAD<UNK! {00F9}>USRiBONxLPRINTIENDSPC(<0xDF!>&HF0E7p05OFFvWRITE<UNK! {0009}>0IRESUMEINPUT<UNK! {0006}>kZ<UNK! {0080}>ajRESTORE<UNK! {00FB}>G<UNK! {0004}>1PRESETOFF<UNK! {00F9}>SWAPgWRITE<UNK! {0003}>-ON GOTO10131m3VARPTR6FERLREADd<UNK! {00FB}>99><UNK! {0005}>IFn-MERGETRON10'MOTOROPEN,1.|FDIM<UNK! {0006}>&O63000h<0xE4!>8<UNK! {0010}>LOADSTRING$<0xCB!>GOTO<0xCB!>1Q/o;hJ?RESUMEDEFAUTO}EQVRESUME<0xE4!>BLOAD<UNK! {00F6}>E/ue<UNK! {0006}>RETURN?-19POINTVNSCREENNEXTTRON?hERRwJX#}<0xE1!>DEFSTRCSRLIN15162INSTRGOSUB]<UNK! {0006}>DEFINT
  48. 33781  USINGh80RESTORED/ONhOPEN10<UNK! {0010}>U<UNK! {00F5}>DELETEbc1<UNK! {0001}><UNK! {0010}>USINGRANDOMIZEYu~&H9F30v741<UNK! {0007}>ONRESUME7?4ORDEFsCALLANDREADSTEPXORKCONTtEDIT#1PRINTIFBLOAD<UNK! {0007}>REM6GOSUB9J<0x9B!>LOAD->>.JLERROR<0xCB!>VARPTR'/fRESUMEEQVCOLORG<UNK! {0008}>&HED2SPRINTAUTOLINECONTPSET<UNK! {007F}><UNK! {0010}>6kDEFINT-LOCATEh<STEP/EDIT<UNK! {000A}>=|<UNK! {00FC}>cTHENMOTOR$&O560346o<UNK! {00F5}>KEY<UNK! {0006}><UNK! {0010}><0xE5!>CLS<UNK! {00F5}>PRESETw<UNK! {0008}>PSETeERASEA+\KLPRINTl`MODCSRLIN#POINTKEYpCSRLINy<UNK! {00FB}>"CLOSE<UNK! {00F8}>''OFFAUTORESTORETAB(CLS4CANDc<UNK! {0001}>{<UNK! {00FC}>DEFINT<UNK! {00F9}>CONT<UNK! {0002}>=p10USING/3208334<0xE0!>,\<UNK! {0006}>.<UNK! {000A}>IMPS<UNK! {0008}>xRENUME
  49. 28229  g<'POINT<0x9B!><UNK! {0009}>59.6153TOKs8<UNK! {FE71}><UNK! {0002}>}TAB(4nrMODLET|DEFDBLzRUNv<UNK! {00FC}>"BSAVE<UNK! {0009}><0xB4!>aFr<0x9F!>PTRONIFjue<UNK! {0006}>IF?-<UNK! {0009}><0x9B!><0xE4!><0xE0!>dWIDTHY48pDEFSNGREMlL<0xDF!>(GOTO_<UNK! {001E}>0DEFv2<UNK! {FDC1}>v0IMPnRANDOMIZERESUMEq0(NEWGLOADONu4CIRESUMEINPUT<UNK! {0006}>tZo<UNK! {0006}>USINGTRONPRESETyUSINGRANDOMIZEY|~&HE2BnFOR$AOFF0WRITE0XTORUNIF<0x9B!>"PSET<0xB4!><UNK! {000A}>STEPKERLUREAD0REM&O37777744521_~Sm7<0xE5!>BSAVEYORvSPC(INSTRGOTO<0xCB!>1Q*o(<UNK! {00FB}><0xDF!>-\)CONTPSET<UNK! {007F}>06kPSETRESUMEBSAVE*TO=SPC(&O254312<UNK! {0004}><UNK! {00FB}>'DEFINT`cSTEPCONT4oX<0MOD3DATAC1)J'w<UNK! {FE52}>6Y
  50. 57039  <UNK! {0010}>%"DRESTORE-1.7336E-09<UNK! {0010}>{<UNK! {00FC}>PSET\ELSELET(xAFOR@<UNK! {0008}>WAITRETURN<0xE2!>PRINT ERLTX+<UNK! {FF2C}><UNK! {0001}>'O<UNK! {FE05}>M\xqqtCONTGOSUB<UNK! {0010}>LOAD5f0RSTOP(W&2RENUMDEFINT><UNK! {0010}>s5]BSAVENEW2.67964E-08o;hL?-SPC(<0xB4!>e<UNK! {007F}>DEF<UNK! {000A}>OFFNEWGSOUNDaANDoSTRING$5,>TAB(<0xE0!>STEPpDEFSTR:6z\32367ELSE:ERLIFE<0xDF!>RENUM$n~AUTOGOSUBON10LPRINT<UNK! {00FB}>LPRINTLOADENDCLOSENEW<UNK! {0010}>8<UNK! {0002}>10<UNK! {0003}><0xE4!>,4STOP0C7OFF/PRINThOPENSTEP2<0x9B!>/BLOADO-=1.04779E+17\TOEND28221N\1<0xE1!>STRING$RESUME8h<UNK! {0006}>V<UNK! {0006}>.<UNK! {000A}>IMP<UNK! {000D}>\LINESOUND<UNK! {FE6E}>IF<UNK! {00F8}>8SOUNDxDEFSTR<UNK! {00F5}>STRING$WIDTHjERRWRITE<UNK! {00F5}>-1.38346E-12OR,<0x9B!><UNK! {0003}><0xE0!>STOPi#"0092P
  51. 52283  <0x9F!>BEEPNx3wWIDTH00LETWMERROR<UNK! {00FA}>SOUNDERRDEF&O37777706135IFINPUT'9COLORSTOPTHENENDEQVLPRINTNEXTOPEN
  52. 36241  4VFOR_<UNK! {000A}>=ZZ"+<UNK! {0002}>}<UNK! {0006}><UNK! {000D}>4zERRPSET|END&O246570<0xE1!>/F<UNK! {00FA}>r<UNK! {00F7}>&"<0xE1!>USINGRESUMEQ<79<<ONRESUME7^|3RESTORE1<UNK! {00F5}>^lXOR<UNK! {00FB}><UNK! {FF2D}>>Z1BSAVE|~PSETONsINKEY$MvFTHENRENUMSWAP3STRING$<UNK! {0003}>IF<UNK! {FF34}>^})\&EDITMNOTDATABLOAD'<UNK! {0010}>Hf8'9CLSWTROFF<0xE3!>SPC(C<UNK! {0008}>3IELSE:0<UNK! {0008}>>GOTOAEDITAND<3ERL<0xB6!>5TDEFDBL<UNK! {0003}>BSAVEDEFn2<UNK! {00F9}>GOTOe8-KEYCLSddCALL<0x9A!><UNK! {0080}>SCREEN<UNK! {0002}>YRESUMECLSPRESET4#0^<UNK! {0006}>PT7%CSRLINNOTl}NEXTMOTOR
  53. 51068  |([=J/0TROFFn'$M<0xE1!>ERESUMEc-21406<UNK! {0006}>0IFf8<UNK! {00F5}><UNK! {FD09}>sLPRINTTHENREAD7<UNK! {0006}>^<0xE4!>7<UNK! {00F7}>OLISTCONT<0xE3!>9ERRWAIT.ERL<UNK! {0003}>RESUME<UNK! {FF19}>^"z2p*?+EcRESTORE<UNK! {00F8}>\-1.73661E+25CIMP3}<0xE0!><0xB5!>^<UNK! {0002}>K6XORDIMGOTOMERGE})<0xCB!>CLOSEwSAVEAUTOBSAVE<r<0xE2!><UNK! {00F7}><0xE4!>k8SKEYTAB(`PRINTEQV<0xB6!>12232Yp<0xE4!>EQVCLEAR<UNK! {FD47}>SWAPLISTw4K=<UNK! {0001}><<}NEXTv<UNK! {FF77}>ELSE~ELSEBSAVE,DELETEC-3.71578E+28]AUTO<UNK! {0006}>BSAVE,NOTTAB(f<UNK! {0006}><0xE0!>>^ERLKIMP0k<UNK! {000D}>STOPLLISTWAITERL9D^LPRINT<UNK! {FF07}><UNK! {FE5B}>WHILEH>UaT<0xDF!><UNK! {FDF3}>INKEY$ERL<UNK! {0001}>RESUME088{v<0xE2!>pPOKEPERLNBLOAD168w"ERRlTO&HDC91ERL<0xE3!>qRENUM-<UNK! {00F9}>0<0xB4!>^CSRLIN120c<0x9F!>VJX#<0xE4!>TAB(WEND<UNK! {0008}>POKE^nk<UNK! {0009}><0x9B!>ePRESETCLOSEONCLOSETHENENDEQV<UNK! {00F9}>56051:0WIDTH-e*71hMOD<-<0x9B!>'MOTORDEFDBL-0p10(/HSDATA'VARPTR ONB9<UNK! {0006}>o5PRESET%UDELETE<0xE0!>'^S<UNK! {FF1C}>NEW_DEFDBL=IF4PSET8(Z3SAVE&<WO<0xE4!>NEXTMFLOADPOKEDEFMODINKEY$ERLSAVEAUTO<UNK! {FFCA}>^4<UNK! {0006}>CCLEAR5WRITEZ,([0|<UNK! {00FB}>COLORRETURNRUNCLSWC<UNK! {0006}>ERASE?<UNK! {00F7}>POINT,REM{dnMTRON?hONONJ`#"3SAVE!^0CLOSEERRq<UNK! {FD52}>3LOCATEDEFDBL'BSAVEELSE<UNK! {00FB}>]nRESTORE-THEN|NEXT]h<0xE2!>TOEND<UNK! {000A}>-0.3843990qJh~THEN9'SbWRITE]*z7JLOAD2s&H7FFA<UNK! {00F9}>aIUSRnkQWIDTHOUTWAIT;'>NOTDIM`tk$XOR<0xB4!>GOSUBs-1455.49AUTO8%_,2:TRONKSTRING$AVARPTR,9HK3POINTp<UNK! {0003}>APRINT<UNK! {0006}>CLOSEO<UNK! {0007}>1<UNK! {0004}>yERsDEFINT<UNK! {00F7}>_FIXEND<UNK! {FDC9}>9CLEAR=Og7KEY<UNK! {0080}>BLOAD<UNK! {00F9}>IF4fVARPTRKEYXOR91TROFF<0xE3!><UNK! {007F}>CLSREM><UNK! {FD90}>NEXTQ129.385{l!^KEY8<UNK! {000A}>593SCREEN<UNK! {0005}>OPTIONOR^`&VJJ~LOCATE$'KOREMSRESUME+)|OUTL&<0xDF!>SOUND<UNK! {007F}>INSTR_RENUM&O377777317559LETLLISTOPENCSRLINrERASETAB(DATAsk&(COLORIFWHILE9F1<UNK! {0007}>AUTOORZSAVESAVERESUMEINPUTj$3x(<UNK! {00FB}><0xDF!>-n<0xE1!>cSAVE<UNK! {00F6}>j-27427G11447=Lg11458RANDOMIZE<2INSTRMJN5= <UNK! {0009}>LOADU_OFF<0xE5!>CLSTAB(<UNK! {00FA}>72BSAVE<UNK! {00F6}>10rCLOSEOUT<UNK! {00F5}>4DELSE<0x9A!>IPSETBLOAD-26115RESTORE^h0iTHEN|{7_>TAB(f<UNK! {0010}>c=.WAITENVIRON<UNK! {00F8}>TROFF3.88E-159PRINT<0xE1!>9<UNK! {00FB}>yqHMOTOR<UNK! {007F}> <UNK! {0006}>DELETE!<0xB6!>-BIF"IFTqEQV^<UNK! {0002}>c<0xE4!><UNK! {0008}>P5j"(CSRLIN<0x9F!>TRONs,qDEFSNGDEFMOTOR&O37777715326USING<0x9A!>g^{6g5LLISTSSTEPRERR[&H793D$ERRfTOFOR<UNK! {00F9}><UNK! {0004}>6ERASESTOPs@uE^ERL?NEXTDIM4XORo5MERGEROSWAP<0xE3!>SCREENFN<UNK! {0009}>n[RETURNGOTO3fVARPTRRENUMLPRINT<UNK! {001E}>DSWAPDEFDBL3GOSUBPOKE)LETWAITDIMQoNxPRESETG/GOTOLETU;sqIMPIyWIDTHERRDELETE'^e&R./bSTEP'canDEFINTkRESUMEG#XKEYEND1.22103E+13-22663IFSq=*PSET^DEFDBLOPENy]_k7CIRCLETROFFM>Z2DEFSTR<UNK! {FDBF}>STRING$<UNK! {0001}>CSRLINSTOP8<UNK! {0007}>".{%CALL?TROFFINPUTTAB(7>,s?<UNK! {0002}>9<UNK! {0004}>38342BSAVE4<UNK! {0008}><UNK! {0009}>CLOSE<UNK! {0004}>=USING<0xDF!>_EDIT?DATATAB(!pDEFINT[QOFF<UNK! {00F6}>REM<UNK! {0006}>DEF%ZLOAD<UNK! {00F7}>e<UNK! {0080}>TODEFSTRLPRINT42OPEN<0xB5!><UNK! {0080}><UNK! {0004}>
  54. 64401  OdNEXT-SPC(INPUTzw10+MERGE}<UNK! {0003}><UNK! {001E}>I9CLEAR<UNK! {0007}>DELETEELSETRONZ0.00133682ERL$'moDEFSTR6AUTO>ANDERRORa7<UNK! {FED4}>IFnPOKEaIDEFSTR<UNK! {001E}><UNK! {0002}>T~LLISTLOCATE<0x9F!>SPRINT<UNK! {00F8}>g5r-13733RETURNDEFSNG<UNK! {000A}>\<UNK! {000D}>THEN<0xB6!><0xB4!>kSTRING$STOPUSINGCLEARl^S)`3<0xDF!><UNK! {000D}>LET&O52703SHB7STOP'<UNK! {007F}>ERLf<WC-12659PSETTOdBLOAD LETT1TROFF28.79745E+17<UNK! {00F6}>LISTERRDEF<UNK! {001E}>`LOAD<UNK! {FF20}>kCLOSEDEFINT<0xE5!>)ENDERL<0x9B!>~PRESETRETURN&GOTO<0x9B!>DATAMbPaON#zj%^FN'}NEXTI<UNK! {0003}>[TRON|PRESET|([g5a0STRING$";$sDEFINTYVARPTRzqKCLSj&O377777214063RESUME/KPRINT#<UNK! {00F8}>S8\<UNK! {FD09}>bOPENSTRING$4_u)[MKDIRTRONs}KPOKE<0x9A!>WENDmRANDOMIZEERRAUTO0STEPS<UNK! {FE5B}>10@wP<UNK! {0001}>fERR;TOONPSETFOREV.STOP6dERR4J?&O22364$KEYUQTRON<UNK! {00F6}>REMSTRING$DEF-18595IFINPUTON?yREMTHENENDEQVTRONFORRESTORE
  55. 39063  4qFOR-USR|VphPOINTNOTl89:<UNK! {001E}>SOUNDRESTORE<0x9A!>MODRESUME&Y=6.66251E+137+|-21460m9<0xCB!>EDIT8SWAPaBCLEAR <UNK! {0002}>Ul<UNK! {00F5}>/<UNK! {FF63}>>Z<0xE0!>DELETELOAD}PSETCOLOR<0xE4!>ERROR<UNK! {0001}>F@USRLPRINTORcBEEPSTOPPOINT<UNK! {FF67}>#]3\&<0xDF!>5PSETUERL[XHc5THENkERRWCLOSECLSSTRING$~rcWRETURN4)STEP9J<UNK! {000D}>DATAMERGECOMINKEY$AUTOXORSTEPB<UNK! {0001}>CLSDEFINT$[LOAD<UNK! {FF21}><UNK! {0080}>CLOSEAUTOEQV-0.889497CLSBEEPYLETRESTORESAVEOq0cERLYDATAj-DEFSTRTAB(o{49.USINGSTRING$<0x9A!><0xDF!>ORSCREENwCLSNEW=WIDTHTROFFtfzd<0xE1!>ENDUSING{1.57133E+13<UNK! {001E}><UNK! {0008}>IF8<UNK! {00FB}>[p<UNK! {00F5}>
  56. 54970  z10&k3LOCATETROFF<0xB4!>sZ&HABCD<0xB6!>.BSAVENEWAUTO-2.547E-14TAB(DATABLOAD218~?<UNK! {0005}>lUSRPPRESET<UNK! {0006}>CLOSEUvV\ELSE*0SPC(<UNK! {007F}><UNK! {000D}>8<UNK! {00F7}>NEXTCSRLIN^&O37777722471OFFWHILE<TOTO9gMERGETOS8TORENUM>0LOADGOTO&REM<0xE4!>PRINTup\^KEY=yw10<0xE5!>FNp&H2615wREM'ELSEOFF<0xE1!>(0TROFF4.03111E+15h<0xE4!>y<UNK! {0008}>aLOADx0IF%8LLISTLETPSET'<0xE4!>OPEN45`5/NOT>WEND<UNK! {0006}>W0POKEWRITEELSE.PSETBSAVEVARPTR<0x9B!>82W+w^<0xDF!>TSTRING$DATA
  57. 31041  P<UNK! {FF72}><UNK! {0007}>CCLSONSTRING$<UNK! {000D}><UNK! {000A}>rY<0x9F!>61FNANT13034<UNK! {001E}>DEFINTP<UNK! {0002}><0xE3!>O<UNK! {00F7}><END<UNK! {0080}>BLOAD<0xDF!>7e10<UNK! {00FA}>AUTO<d@<0xB4!>DEFDBLINPUTPRESETRETURNYWAIT<0x9B!>GOSUBPrC/CLOSEDEFSTR+`<UNK! {00F6}>LDEFSNGLET{a<UNK! {0008}><UNK! {001E}>WAIT<UNK! {0002}>DELETE<UNK! {00F8}>RENUMQYDATA<UNK! {0009}>T~SPC(<UNK! {001E}>{]sCONTu^x0<0x9A!>WEND!ERRORa?NEW5<UNK! {00F9}>'oMOD*VARPTR'WIDTH<UNK! {0007}>zvt"4LOCATE>TRON9Z<UNK! {000D}>THENRENUMEQVTAB(JINPUTBSAVEXORLET^ ra!RENUMNEXTPSETLERL(10H<UNK! {007F}>1CSRLINxINSTR50106MOTORCF\]RETURNE0TAB(MKP<UNK! {0009}><UNK! {00F5}>o-8.30148E+19^"KEYGOTO9XSTEPLOADIMP1DLPRINT<0xE3!>B<UNK! {0006}>TAB([0WIDTH-LISTWXl +NOT86108%USINGBSAVECSRLINCALL^e7F&O74111FN7'oa<0xB5!>]CSRLINNEXT0bKEY-sLISTDEFDBL%ERROR.FORSPC(nDEFINT<0xB6!>?162;<UNK! {0007}><0xE5!>=6:<UNK! {007F}>kUORNEWTROFF YT-<UNK! {FDC3}>{SWAP<0xB5!>RESUMESPC($^N)24EDITM<UNK! {0002}>AERLB10He8THEN]BSAVE<UNK! {000A}>CLSONREMCo\G<0xE4!>*,TAB(HNEXTNEXTDIMAND!3<0xB5!>RPRESUMEDEFDBLSTEPRESTOREKEYn0ERRGOTO-PREAD)AUTO<0xE3!>GOTO
  58. 24294  RANDOMIZE0WIDTH-LISTkzl <0xE5!>STEPn{<UNK! {001E}>=,CLEARGOSUB^ELSESOUNDfYP5DeTROFF$bou<0xB4!>]CSRLINBqHMOTOR<UNK! {007F}> <UNK! {0006}>DELETE!<0xB6!>-BIF"IF^~LLIST/ERRx<0xE4!>ERRDIMgb1VMERGE<UNK! {0006}><0xB6!>\1k%<<UNK! {FD9A}>6#<UNK! {0007}><UNK! {0080}>KQCALLz<TO?87AMOTOR<UNK! {001E}><UNK! {0010}>-<UNK! {000A}>#POINTfNOTCPOKE<UNK! {0006}>REMFz[kREM46<UNK! {0004}>M~P2<UNK! {00F5}>o'WAITugOFFWAITRANDOMIZEIMPAUTOD{POINTUSINGJLCLOSEDEFINT<0xE5!>-0.00546063GOTORESTORE0READLPRINTRUN_#EQV<UNK! {00F7}>5m9GOTOhEDITPOINTf9c3(BEEPRESTORESWAPIMPPOKEZYv5azTROFF=e^eLLISTl<0xE1!>p-14558$<0xE2!><UNK! {0006}><UNK! {0004}>WAIT<UNK! {000D}>MOTORCOLOR{&OUTOPEN8STOP&f<UNK! {0007}><UNK! {0007}>:I:LISTkU+ONAUTO<UNK! {0007}>UCPOKEDEFSTRWRITEkSTRING$ERRORGOTO<0xB6!>J2nn2BCLEARmERASEuANDv;!]<UNK! {001E}>POKE9ERASEvOUTDEFDBLTRON"^zdBEEP<UNK! {0009}>INPUTAND-0.228753<UNK! {007F}>LETDEFDBLCLEARSTRING$<UNK! {FE1A}>w<UNK! {00F7}>i7CONTFNSTRING$3dNEXTWIDTHLPRINT3LOADLET0CLEAR<0xE4!>POKEupENDaUSR=bw9<0xDF!>MERGEL224)RETURN'<0x9B!>INKEY$RESUME(*H<UNK! {0009}>CxERL -&:P<UNK! {00F8}>$DIM<UNK! {0009}>CX<UNK! {0006}>MOPTIONERASE0<0xB4!><UNK! {001E}>7420<UNK! {00FC}>P8=<UNK! {00F6}><UNK! {000A}>bOPENSTRING$Lak-16599DEF<0x9F!><UNK! {0008}><UNK! {007F}>GPOKEDEFSTRWRITEkSTRING$SAVESTRING$<0x9B!>g'[%210LINEQ<UNK! {0003}>AFN2><K2INSTRlCLSWRITEBDIM<0xB4!>4DEF3,IF40<UNK! {0009}>>zSDIM<UNK! {00FC}>.#DEFINT^BEDITDEFDBLCLEARSPC(STRING$1wNOTGOTOe8FNMERGELPRINT<UNK! {001E}>DOR
  59. 4275  WENDLINEAUTObQ0iTHENWzm4.84772E+19<UNK! {FEED}>ORRESUME[,P?-1.63491E+11POKE847PSETSTOPFOR<UNK! {0006}>`<UNK! {0006}>aUSR<UNK! {000A}>SOUND<0xE3!><0xE0!>OFF*<UNK! {0005}>DEFINT<0xB6!>?136v7=BLOAD47Q**STEP<0x9A!>TROFFsmK<UNK! {000A}>CALLOR&O37777711656OFFGOSUBp#T5wrNEWDIM<UNK! {0005}>ULOCATE,0J-4<UNK! {000D}>RANDOMIZEWHILE>TO6<0xE5!>8?3,STRING$sf<0xCB!>SE<UNK! {0009}>LDEFINT]Z<UNK! {0003}>0SCREENBEEP\7STEPBLOADc3INPUTMODRENUMfIFEQV<UNK! {0009}>LPRINT(TROFFINSTRK<UNK! {00FB}>n4THEN"USINGRESTORE=6O6STRING$LOCATE8*&O27071BEEPERROPTIONMODDEFSNGmNEXTCqSTEPNOT<UNK! {001E}><0xE2!>7ON 06CALL?q.LISTG0<UNK! {00F8}>Xn=<UNK! {00F9}>VARPTR^CALLTO4Z`kxUSRREMLINE-5.65043E+19INSTRREADp%Mz53DEFDBLSLET<UNK! {000D}>MOTORCLOSEkLOCATEDEFSTR_5.48848E+23STEPSTRING$A<UNK! {000A}>310<0xCB!>jyMOTOR04WRITE<UNK! {00F6}>STEPRETURNDEFEsRETURN<UNK! {0001}>$gSOUNDDEFINTAND2MOR<UNK! {FF42}>*TAB(u<UNK! {FDB9}>SAVE]0<7hWIDTHBLOAD<UNK! {00F9}>*<0xE1!>PRINTLETfRESTORE=CLEAR<UNK! {00F6}>!YCJ/EPSET<UNK! {001E}>boeDEFINT7STEPK-19113osPOKEDEFDBL+EDIT1<UNK! {000A}>RESTORE1<UNK! {00F5}>'1BEEP<UNK! {00F7}>STEPyLINENOT4{_3(DIMVARPTRINKEY$<UNK! {000D}>UK<UNK! {0003}><0xB4!><0xB6!>ZMOTORPRESETAUTO0MERGE<UNK! {0008}>BLOADU<UNK! {007F}>Hx"<UNK! {0003}>z<UNK! {000A}>:PSETBLOADMOTOR<UNK! {0007}><UNK! {000A}>^kCLEAR00E*."DEFINTP4SWAPOFFBEEPBSAVE<UNK! {00FC}>'\MERGE<UNK! {00FB}>38<0xCB!>RENUMAND&D<0xB4!>DEFDBL<UNK! {007F}>SCREENREM'<UNK! {0003}><UNK! {0004}>)RETURN'"LOADON^9#aDEFSTRBLOAD8{@:&PRESET<UNK! {0009}>WENDORDEFSTRX1L<UNK! {0009}>/X+i'ouWHILEh<0xE4!>oU,<0xB4!>G<UNK! {0006}>POKELLIST%<0xB4!>3K<UNK! {00FA}>t<UNK! {00F5}>bi<0xDF!>EQVPOINT,<0xE4!><UNK! {00FB}>KY_iCLOSE\a(dCLOSEThUSING/'STRING$<UNK! {0001}>RESUME<UNK! {FF7D}>1"3v7CALL?<UNK! {0005}>RNOT><UNK! {007F}><UNK! {0009}>iP
  60. 10  <UNK! {0006}>PSETQy\XRETURN@0BTROFF-2334.43GOSUBRETURN3~yvLETCLOSE8RETURNWLETOR<0xE1!>-BEEPBSAVE7CLEARDEFSAVEPn<UNK! {007F}>-WENDJ}t-<0xE3!>SCREEN%{38,WAITINSTROPTIONMODDEFSTR$Y"k100RETURNk02-+(SWAP<UNK! {0006}><UNK! {000A}>cWRITEu<UNK! {000A}>LOCATE<UNK! {00FA}>+DEFSTRHI2068THEN<UNK! {000A}>136v7=BLOAD47&k'PRESETNEWWHILE9}&HA998SWAP.PSETBSAVEVARPTR<0x9B!>$2W+wr<0xB4!>SNOTINPUT<UNK! {FE29}>10v<UNK! {000A}>PDEFINTmERL5OPENBEEPREM<UNK! {007F}><UNK! {000A}>G]INKEY$ERASE<UNK! {0003}>BRANDOMIZE'WENDDIMS<UNK! {0080}>k
  61. 45021  <0xE0!>ERR<UNK! {00FC}>"-9479<UNK! {0010}>iPRINTKEY/2ENDFNWRITEINPUTPSETSOUNDY<0xE1!>ELSEIF`/D FNLETDIMq693250<UNK! {0009}>ELSE<0xE0!>CONTa&OHSTEPXOR0q.KEY<UNK! {0006}> LISTDELETE0OPTION4p<UNK! {00FC}><UNK! {001E}><UNK! {0002}>TiEQV<UNK! {00F6}>'^EDITTAB(P5`-16603ELSEWHILE-7.06693E+16WIDTH`CLEARSAVESTRING$LOADl^26234 LLISTJSCREENHERR4QJ-|<UNK! {0010}>AWEND>ANDw/WEND<UNK! {000A}>1<UNK! {007F}>ERASE2)MOTORAJT4TROFF<UNK! {0008}>-6.46595E+370eKEY<0xE3!>LPRINT^Z185STOPLOCATEXOR<<UNK! {FDE6}>RENUM^h~^ONw4L=<UNK! {00F6}>OR8&H3D15"USINGTHENCALL^RESUMEZYr&O37777700536USING7'ke<0xB5!>tRESUME<UNK! {007F}>#,<0xB4!><UNK! {007F}><UNK! {0001}>LOCATE<UNK! {00FA}>zCSRLINsK<UNK! {FE58}>IFoOTRONhSTRING$TROFF<UNK! {00F8}>AUTOERRORERRSAVE=ENDDEFDBLwINKEY$aRESUME<0xB4!>BSAVEYOR,ERASERESUMESWAP<UNK! {FF17}>^}v2p*?SCREENRPOINT[2=fw<UNK! {FF39}>'=MERGECLEARREMCo\GRETURNE10TAB(;DATA?c<UNK! {00FB}>-5.67686E+19<UNK! {00FC}>7qGOSUB
  62. 64401  }&HCF05NOTELSESCREENAND^0ENDERRu>NEWRx=<0x9B!>LET{a wCLSERRELSE<UNK! {00F5}>^i5R5/}STRING$0cKEY,Z<UNK! {0006}>EDIT3.47777E+24tIFsq=*PSETtELSE<UNK! {0009}>y\u0?6<0xE5!>POKEVARPTRSWAPfBEEPRETURN<0xE4!>IF8$[z_!<0xB5!>DIMPSETDIMERL)<Ai5NEW]<UNK! {000A}>5OPEN<UNK! {0006}>BSAVEKGG INKEY$cTHENa4RUN}v5or<O4SWAPOFFPOKEBSAVE<UNK! {00FB}>10_LOADBEEPe<UNK! {0080}>TODEFSTRLPRINT170559ELSE<UNK! {00FB}>uoLET-<UNK! {0006}>NEXT<UNK! {0009}>l +MERGE+Zc=2KEY'EDIT<0xB5!>ORSCREENEQVLETB?WIDTHTROFFts\oDEFSTR_<0xE0!><UNK! {0006}>"b<0xB5!>osCSRLIN*dELSE8ERANDOMIZE7.71004E+09OPEN<UNK! {007F}>\q"4NOT<0x9F!>INKEY$<UNK! {0004}>XT<UNK! {00FB}><0x9B!>ELSEkREMONRESUMESAVE}^Q,q3EQVAf<UNK! {FF3E}>%o'<UNK! {000A}>r*q<UNK! {0007}>&HC394CLS~x3bLPRINT7)MOTORDLETVDIM<0xE0!>6-8.08163E+36&O37777736142BEEPePCLOSEDEFSNG/(<UNK! {000D}>OR<0x9F!>INPUTCLOSESTOP5SOUNDGOSUB<UNK! {FDD4}>1<0x9B!>QERASEDEFSTR<UNK! {0009}>9-141088Zc9)CLEAR<UNK! {000A}><0xB4!>IMPPOKE[YIC]tUSRn!$5<0xE1!>^USINGFOR4cWEND<UNK! {007F}><UNK! {0001}>MERGE<UNK! {00FA}>8<0xB4!>328295kENDRENUM<UNK! {0008}>POKE;'>STRING$DIM5t&*PSETPOKETRONsSK<UNK! {FDE8}>RESUMEfLISTREMRESUMEWAITj38$wrTRONMSPC(DATAFN2&O34166j1.04049E+277<0xDF!><0xE3!>iONSAVE\TOdq^%<UNK! {000A}>\<UNK! {0002}>orCONTUQWEND<0xE4!><UNK! {0001}>XORAUTOBREADERRORUSINGe}TOKEYIMP0@ELSEDEFDBL3^RETURN-LETWAITDIMBf<UNK! {0010}>-PRESET&O14073jWIDTHMERGEa0_DELETE<UNK! {0008}>Q&<UNK! {FD14}>^FOFF-pOPEN0WHILE<UNK! {0002}>5<UNK! {0004}>CONT[OUTOPTIONTROFFqBc>LIST]l<UNK! {00FA}><UNK! {FDD0}>K<UNK! {FE3F}><UNK! {00FC}>'k<0xDF!>-PSETsOUT<UNK! {0003}>z5q&7CSRLIN<0x9B!>WHILE<UNK! {0001}>F<UNK! {000D}><UNK! {00FB}><LPRINToWRITESAVE/<UNK! {FF17}>^iS6hN87<0xE1!>fEQVUSINGX<0x9B!>LINERENUMDEFSNG gWHILE<UNK! {0006}>ERL|yFbWIDTHE4AND(6QGOR64CLOSE#BSWAPINKEY$SOUNDBSAVETAB("2RETURN<UNK! {00F6}>7lUSINGMOTOR/2FORLLISTLETCLOSEBEEPv<UNK! {FDDA}>FN<UNK! {0002}>-220.064DIM4h<UNK! {00FA}>WIDTHG&H7B63e<UNK! {0009}>RESTORE<UNK! {00F7}><0xB5!>^w]OFFpPOKEOFFCALL8'S$19EQV&HC471KEYYO5<UNK! {00F8}>-<UNK! {00F7}>aSWAP<UNK! {00FC}>FORQ78LOAD:PSET8PRENUM<UNK! {00F5}>0DEFINT<0xB5!>K2>USRFN><0xB4!><UNK! {FD5F}>/>c<UNK! {0003}>AUTOINKEY$85[5f7LINEMPSETK<UNK! {0002}>*<UNK! {000A}>H<UNK! {007F}>%<UNK! {FF5D}>BSAVE<UNK! {000D}>PRINTPOINTSTRING$ Gc.VARPTRELETTAB(FJQDIMCLS.#LOAD%ERLs8KWEND&n0<UNK! {00F9}>GOTOe8CLOSEKEYLPRINTdENDOR<0xE3!>3SCREEN
  63. 64484  40]]10USINGMERGE}<UNK! {0003}>";w<UNK! {0006}>BLOAD^INKEY$ERASEi+DATA<UNK! {0009}>CtTHEN!'xoCALL_AUTO><0x9A!><0x9B!>-5<UNK! {FE06}><UNK! {00F8}>d^aK<UNK! {00FC}>tIF'8LLISTLETPSET'<0xE4!>OPEN45&k[COLOR>INKEY$s-6.00262E+11SAVE8%Q.]18399OUT<UNK! {0008}>MOTORCLOSERETURN<UNK! {FFEC}>`5E-09&SPC(IF"BWRITE<0xE4!>{10<UNK! {0009}>&H3F7B0AND1028361cPOKEDEFDBLREM<UNK! {FF02}>72GOSUB<UNK! {0001}>$jCLOSEAUTO<5.45442E+23VARPTR<UNK! {00FB}>4393RUNLINEI+F<0xE0!><0xB6!><0xB4!>CLEAR{,3{GRETURN<UNK! {00F7}>ELSEB(G9[/+0ADATA 1<UNK! {0080}>MOTORKEY7FN&<0xE0!>ERR^PRINTd<UNK! {00F6}>]IF%JTHEN<0xB4!>PSETsERASEFNP5ck/PSETCLEARWEND<UNK! {0007}><UNK! {007F}>T<UNK! {00FC}>ELSELLISTkSTRING$REMUSING<UNK! {FF7D}>&W,yrEQV<UNK! {000D}>LETAMOTOR}IMPH29924'<0xE4!>STEPSPC(<UNK! {00F7}>[C15271<UNK! {0004}><UNK! {FDEC}>PRINT\cSTEPCONT4W'OUT0<UNK! {00F9}>Ve<UNK! {0007}>ONINSTRLPRINTv<UNK! {0003}>ORERR\' RESTOREETAB(ANDDELETE0RESUME7OPTIONCLOSERENUM0{a<UNK! {0005}>(SCREENRESTOREMOTORSPC(BLOAD<UNK! {007F}>YN4/rTHEN7fpiRENUMqPOINTop.ORDEFLIST#s<UNK! {0080}><UNK! {00FC}>USRK,NEXTLPRINT<UNK! {001E}>8SWAPINSTR<UNK! {0002}>bERASE'P5q#,THENCLEARTROFF<UNK! {0001}>F5<UNK! {0001}>VARPTRORFORA\OPTION<UNK! {FF17}>%Z7`/SWAPS<UNK! {0003}>OIF(FI8LINEERASELINE/fY<UNK! {0006}>INSTRREM-<UNK! {0009}>CALL<0xE4!>W<0x9A!>WHILEDEFINT4RUN>WAIT<UNK! {00FC}>p&E&H9696<UNK! {0005}>RETURNLPRINT[<0xE3!><UNK! {000A}>IFS10CLOSE5LPRINTRC<UNK! {0002}><0xE3!>6J
  64. 7157  `DEFSTRO<(=10PSETLETRETURN48RENUMt_rUSINGRETURNSTRING$IMPELSEW'=FOR<UNK! {0009}>8TROFF3s$eCALL\RESUMEy10,CALLG<UNK! {0002}>COLOR>dLPRINT58125<UNK! {0002}>'#LINE<0xB6!>PSET%D>SOUNDY2<UNK! {FE5B}>WHILER>UcTEDIT52991mJTAB(ANDDIM^MOTOR4:I<UNK! {0002}>CRUN6READEFWRITE8pRETURN9YW+ERASE<UNK! {FE7C}>Y6"ORqNSCREENLOAD<UNK! {000D}>|DATATROFFCLSpUSINGC%OFFDELETENEXTBSAVE)RETURN>P+|DATACLOSEUSING?SOUND[FOR<0xE3!><0xE4!>=-p<UNK! {FDE6}>RESUMEum0;ONqzo-STRING$MERGE:><UNK! {0010}>4sUSING<UNK! {00FC}>ELSEPOINTDEFSTR[297570CONT NOTDEFSTRH4<UNK! {00F8}>,NOTUSRc&<UNK! {FEDE}><UNK! {007F}>P<0xE0!><UNK! {00FC}>8|8'LLISTWPSET<0x9A!><0xE4!>DEFSTRDELETE<<<UNK! {0002}>[WHILEPOINTERLUOPTIONTBSAVEZORCLS6VARPTR"{<UNK! {0008}>SOUND"?<0xE2!><UNK! {0080}><0xDF!>^PSET2OPEN}<0xE4!>HRtOUT<UNK! {0080}>PRESETPSET;<UNK! {0004}>ERLC'3&H1B14DEFDBLCALLNEXTl<0xDF!>7-EQVENDb#l<0xE1!>WRITEMODPRESETDIMLPRINT0<UNK! {00F7}>GOTO<0xB6!>8<UNK! {00F8}>9SPC(DEFDBLs164PSET<UNK! {0080}>EQV0<UNK! {000D}><UNK! {00F5}>ERRDEFINT-6.31409E+27~WENDVARPTRMERGE08qBEEPDELETEaflZ7Q9SCREEN=<0x9A!>@10WAITn%MoDEFSTRjRESUMEK#HWRITE<UNK! {007F}><UNK! {000A}>CONT<UNK! {00FA}>b^8DTROFFt<UNK! {00F7}>_l<UNK! {00F7}>LETTHEN^OPTIONTAB(4tv102TIMERINKEY$<UNK! {0004}>XT<UNK! {0001}>WRITEEDIT\STRING$WHILEOFFRESTORE|+[z-3748AfTROFF<UNK! {0009}>PRINTnNOT<UNK! {000A}>7NEXTF<0xB5!>W10<UNK! {0006}>c8DEF<UNK! {0009}>CALL<0xE4!>WdCALLDEFINTNOTGOTO<0xB6!>WAIT<UNK! {00FC}>pELSEERL;OFF<UNK! {0080}><UNK! {0001}>/<0xB5!><UNK! {0003}><UNK! {0008}>pGOTOw<UNK! {00FB}>DEFINT)DATA=CLOSE<UNK! {0002}>R6Y
  65. 37277  Q-3.78228E+3291aDEFSTR<UNK! {00F6}>LGcCONTLETPOINTON^RANDOMIZE+ K&H2BAAOPEN_NEXTINPUT$Y1&O37777754250qCSTRING$$<UNK! {FE06}><UNK! {00F8}>7<0xB4!>329950TAB(&HDCF93X5WOPENTVARPTR-29589COLORsINKEY$M7RUNPSET<UNK! {00F6}>OFF <UNK! {00F8}>ERRWAITFN#p3l-3748ALPRINTACONTERR<UNK! {007F}>'<UNK! {000A}>rBSAVE'RESTOREGOTO<UNK! {00FA}>SCREEN<UNK! {00F8}>4<5.9083E-05REM<UNK! {007F}>I<UNK! {000D}>DATAOPTIONREM-725787[2WHILEGOSUB]`DIM<0xE3!><UNK! {0002}>vOR82PRESET*IMP;<UNK! {FDAD}>&O42414<UNK! {FE4B}>RESTORE=CSRLIN7`<UNK! {0004}>S-2.93492E+34RESUME*Y|qSTEPINKEY$7<0x9A!>4DEF RESUME<UNK! {00F7}>WEND<UNK! {0006}>BSAVE,X<UNK! {0006}>MINSTR<0xE4!>zCSRLINsINPUTSPC(bRANDOMIZE8#LINE<0xB6!>POKE9<UNK! {00FA}>RESTORE&O23016QERRCOLORsINKEY$M7RUNPSET<UNK! {00F6}>OFF <UNK! {00F8}>ERRWAITFN#p3l-3748<UNK! {000D}>SOUND<UNK! {001E}>cDEFSOUNDN<UNK! {0008}>MOTORNEW<UNK! {0009}>WHILET<UNK! {FD06}>LLIST?Bj2PSETVARPTRv/DEFINT5IFDIMON4pSTOPNOT#TAB(DEFDBL/BSAVERESUMEk<UNK! {0008}>hGOTOkEPSETWRITE<^8OR<0xE1!>B<UNK! {0006}>TAB(gSTEPVARPTRFN<UNK! {0002}>/C#PRESET&O33073f<0x9A!>BLOAD8RENUMtNrUSING<0xB4!><UNK! {00F9}>CONT<0xB4!>!NEXTbpMERGEEQVPOKE<UNK! {00FA}>096PRINT0.03090499aNEXTYmtINPUTFORcIMP<UNK! {FDDC}>-<0xE4!>ANDDATA[_kXNEW>FORR*K<UNK! {0006}>LPRINTTO.POKESTRING$<UNK! {00F6}>SAVEd#"%w5CALLJKEYKPOKE[-eH5<UNK! {FF5D}><UNK! {FF3D}>SCREENOFFSTRING$A-NOTERRORX0t[USR.9.20699E+14DEFSTR<UNK! {0001}>\WENDH[LOADANDeePSETWRITE<dOOFF<UNK! {00F5}>3LOCATETOY<0xB6!><0xE0!>10LPRINTDELETE_?*=b-22888OR10{IFI@NOT|<UNK! {00F7}>MODOR(DIM=USING/2.01339E+17>DEFSNGWIDTHINPUT&H6E8MERGE`-0.000242323s'bTRONxTOt>OPEN>5READkI!<UNK! {0006}><UNK! {00FC}><0xE2!>Fj<UNK! {001E}>USINGKEYPRESETSTRING$<UNK! {00F5}>TRON^<UNK! {00F9}>HLIST4@<UNK! {FDDF}>xBSAVEFNMOTOR<UNK! {0005}>}H<0xE2!>P*-RMPSET<UNK! {0004}>STRING$\<UNK! {000A}>=^ANDEvCM)WRITEtNEXTFOROFFRANDOMIZE5DEFSNGOFF<UNK! {000A}>0LINEDEFCLS2-STOPINPUT101TROFFLISTRESTOREINPUT<UNK! {00F7}>RUNE8<UNK! {0002}>[0nTHENBLOADSTOP<0x9B!><UNK! {000A}><UNK! {0001}>DEFSTRDEFDBLWHILEnNEXT<UNK! {0004}>>_LLIST~ELSEOPEN,DELETEC&H1131KnP XOR<0xDF!>nAUTO<UNK! {0006}>BSAVE,NOTLOAD}<UNK! {0006}><0xE0!>>^S<UNK! {FDEE}>NEWTO<0x9A!>DEFNEW4PSET8<UNK! {001E}>WRITE<UNK! {00F5}>PERROR<0xDF!>E$>DIMLLIST<T<UNK! {0080}><USING<0xE1!><0xE5!><UNK! {00FA}>RESUME08<0xCB!>"RESTOREvCLEAR<UNK! {FDAA}>PSET+AE<UNK! {007F}>rOPTIONPTRON3LINEWRITETK<UNK! {0080}>1LPRINT3e<0xE0!><0xB5!>^ERASEK6USINGDIMPOINTsWIDTH<0xCB!>_32989<UNK! {0001}>DEFSTR7DATA2<0xDF!>&O3545e<0xCB!>}<UNK! {0006}>TOOFNERRORSCREENWRITE|<UNK! {0001}>3<UNK! {FD0E}>010SCREEN~RETURN,8qWDw<UNK! {FD0E}>^LIST<0xE1!>=RANDOMIZE<UNK! {00F6}><UNK! {00F7}><UNK! {00F9}><UNK! {0003}><UNK! {00FB}>LLIST<UNK! {0008}>STOP(RUN-6495IFELSE<UNK! {000D}>&H6E8SPC(<0xB5!><UNK! {0007}>aCALL<UNK! {00FC}><|8 LLISTWPSET<0x9A!><0xE4!>DEFSTRIERR<<UNK! {0002}>[WHILEPOINTERLLISTOFF<UNK! {000A}>VLOCATE|.LLIST3WRITE<UNK! {00FB}>8PRESET"RESTOREERLINPUT?7<UNK! {0008}>KEYWHILEUSR<UNK! {007F}> <UNK! {FD5F}>v9=WVARPTR9<0xE4!><0xE3!>ZLPRINTPOINTANDUSRdDELETEMTRON?hLISTDATA\USING-7.49508E-09ANDBEEPwPRINTOPTION<UNK! {00F5}>REMINSTRrCSRLINERRSOUNDCSRLINTOGa<UNK! {00F7}>STEP"ERR<UNK! {001E}>!ERRORFN&B<UNK! {0001}>DEFSTRDEFDBL3mNEXTINKEY$<0xE5!>;LLISTLETELSEBEEPCSRLINF+JSAVE0WHILERETURN283277SWAP7Y(<UNK! {00F5}>7W<UNK! {00FA}>>ZMERGEMREADIMP0DEF10<UNK! {0003}><UNK! {00F6}>RESTOREBSAVE8X<0xB6!>A;EDITwoWHILERSPC(UcTEDITIMP<UNK! {0001}>TAB(DATAUSAVE/OUT^zERASE=DIM<0xDF!>DEFSNGPSET+kGSVTAB(DPOKEGR[
  66. 15918  =&EQVcEMOTOR_E1EDIT^<0xE1!><UNK! {0080}>VARPTR<0xB6!>5TDEFDBLRANDOMIZEPSET<0xB4!>V6FN<0x9B!>dC2KEYREM59817R3PRINT<UNK! {0004}>FORCSRLINU<UNK! {00FB}>WHILE0@<UNK! {00F8}><0x9A!>9CLOSE<UNK! {000A}>/LISTAUTO<UNK! {0009}>USINGNEWERRLPRINT<0xE5!>:p&HBE700WHILE11798RETURNA66<UNK! {000A}>~WRITEKEY^O<UNK! {FE08}>]-1.45433E+20IFOPEN8STOP@LINE-MERGEOPEN'-5.04753E+30PGXOR<UNK! {0004}>COLORSTRING$CLOSEDEFSTRERLQb9INPUT;CLEAREQVSTOPSWAP6&[q91LINEDEFSNGEDITAND\e<UNK! {0006}>IF?-<UNK! {0009}><0x9B!><0xE4!><0xE0!>dDELETEY52ONEXT,<0xDF!>REM0h-PsBSAVEREMV6FN<0x9A!>d0ONTLPRINTR+<UNK! {0002}><UNK! {0009}>TRON(TRON>MERGE<UNK! {00F7}>n5NEW0INPUTPRINT<UNK! {001E}>1-18336RESTORECIMPc[I/PSET|ELSE<0xB4!>,FOR10<UNK! {00FB}>/NEWTROFFV#-2028<UNK! {00F8}>3RANDOMIZE6?ON<UNK! {00F6}>NEW|<UNK! {00FA}>\ERR]NEXT<]SAVE<UNK! {000D}>DATALLISTWAIT<0xE4!>5AND,<UNK! {00F5}>DEF<0xB5!>6H.TOOsnPCALL
  67. 51935  CLEARr8PpCLEAR(<UNK! {FFDF}>zBSAVE<UNK! {001E}>CONT><UNK! {007F}>OFF<UNK! {000A}>7STOP1CALLN,=INPUTe4<UNK! {007F}>INKEY$<UNK! {0003}><0xCB!>dKEYu&O71507DEFSNGVJT#"KBSAVECSRLIN,wNEWTRONq<0x9A!><UNK! {00FC}>C.KEYERR`ZUSING<0xDF!>&HC9DENEXTp<0xE4!>EQV~<UNK! {0005}>GLOADONt4CR0uo<0xE1!>ON<UNK! {000D}>EDIT]OPENJiOPENUSRNEXTTROFFv? (<0xCB!>1ELSE4<UNK! {0004}>,NOTNEW~ERLDATASOUNDUSINGEQVUSING=<UNK! {0005}>DEFINT<0xB6!>8STRING$LOADPRINT?<0xE0!>BSAVE<UNK! {001E}>-452[WHILE<0xB4!>PSETUCLOSET<0xE1!>POINTTO3NEXT<UNK! {0003}>=<UNK! {FF51}>b9END;CLEAROUTREM@6=RENUMWIDTHVARPTR<UNK! {000A}>xLOAD-LOCATE`<UNK! {FDCF}>/EDIT<UNK! {000A}>=<0xB4!><UNK! {00F5}>cSPC(a+PRESETREMu5M<UNK! {0001}>KEYk<UNK! {0010}><UNK! {00FA}>DEF<UNK! {0005}>LOCATE<0x9F!>[<UNK! {0008}>tGOTOwKTROFF<0xE3!>3d8MOD<UNK! {0008}>6y
  68. 51132  &H1815THEN9GOSUBDEFDBL&O56104^IF{[0{STEPSWAP\OPTIONUSINGBEEPY/<0xE0!>B+1RETURNBEEP<0xB4!>SOUNDTAB(GOTOCLEARDEFqd<UNK! {FD25}>+<UNK! {000A}>IMPM\READ><UNK! {00FC}>FORERR??136MOD#<UNK! {0007}>WIDTHLOAD5<UNK! {007F}>k2IFINKEY$USINGF><0x9F!>H5<UNK! {0004}>FORF$:<UNK! {FF31}><UNK! {0006}><UNK! {001E}>rKw>8+A<0xB5!>THENnrOUTLINEnRESUMEz\ePOINTcCR60LOADylCLOSET5DEFSNGDIMGOTOExMOD<0xB6!>4OUTCALLVARPTRPOKEFnW<UNK! {00F9}><0xE1!>i1<0xB5!>
  69. 12752  USRh80RESTORE-7.539514-KERROR|PRESET|(!Aqw5<0x9B!>}<UNK! {FD1D}>:T7PSET\y<UNK! {0006}>X<UNK! {0006}>6<UNK! {000A}><0xE1!>n\a.<UNK! {00FC}><READ0y<UNK! {00F6}>RESTOREBEEPCOLORINKEY$DIMO>kr<0xE1!>VARPTR3W<UNK! {0003}><0xB6!>e<UNK! {0008}>|<0xB4!><0x9A!>U<0xDF!>?3762[7|17STOP1WHILEd<UNK! {FDDC}>WC13953PSETTOd<UNK! {00F8}>Y48USINGTROFF1pELSE0^<0xE5!>ON<UNK! {00F6}>-KEYERASERESTOREINPUT<UNK! {00F7}>ERL'<UNK! {0001}>KEYNEXTp<0xE4!>EQVEDIT3GBLOADuORSCREEN&H3D7C<0x9B!>LET{+udORPOKE<UNK! {00F5}>CLEAR<UNK! {0001}>!NEXTLINEJ=CCLOSElWAIT$YOFFCCLEARWRITEqRANDOMIZEKEY^O<UNK! {FE05}>X\MOTORREMMrDEF{+END<UNK! {000A}>PSET1.95283E+06wINKEY$adeBSAVEV67DATA<0xCB!>LOADn?STEP"B6M<UNK! {0007}>CRETURN2EDITnUERR<UNK! {000A}>^INKEY$FNPOKE>TOCOLORSPC(70TRON.ENDERESTOREBEEPU(.ONEXTX<0xE2!><UNK! {00FB}>/h-PsBSAVEREMV6FNWAITx0DIM<0xE3!><UNK! {0010}>doCONTSPC(6f <UNK! {0009}>SSCREEN<UNK! {00F7}>ERASE;WIDTH-OFFI.PlSWAPDEFSNG<UNK! {0007}>FIPOINTw+INKEY$4PRESET|( Aq<UNK! {0009}>CLSTROFF6'<$'6PSET?PRINTVw`<UNK! {007F}><0xE2!>*BLOADREADaNEXT<0xB4!>pBLOAD8<UNK! {0003}>ERRORWHILENEW<0x9A!><0xE4!>DEFSTRTROFFD<<UNK! {FDBB}>,TRETURN<UNK! {007F}>CLOSE~)<PRESET*+RENUMDEFSTRPRESET<UNK! {000A}>Q6`COLORrFNqDEFSNG62[6|1j=9<0xE3!>W\<UNK! {0002}><UNK! {FE34}>89TAB(Y*5<0xB5!>!<UNK! {0007}><0xE0!>\TROFFW8<UNK! {FD1B}>#TAB(OPEN<UNK! {0008}>POKE"n<oPOKESREAD[51 uFOR<UNK! {0009}>LPRINTSCREENOPTION]VARPTRLOADPRESET&H210E4CLOSELINE<UNK! {0009}>5:SOUND<0x9B!>LET{*ud<UNK! {FD3D}>^<UNK! {00FC}>^<UNK! {0080}>]<UNK! {0005}>U?8CLLIST<0xB5!>z3ON<GOUTq3ELSE:K<UNK! {00F5}><UNK! {000A}>]\READ><UNK! {00FC}>FOR3.2E-08CALL<0xB4!>DEFSTR<0xB6!>OUT147k#IFKEYDIMO>kDELETE<0xE1!>KEYBLOADSTRING$<UNK! {00F5}><UNK! {00FA}>=?STEP"?6M<UNK! {FD92}>PSETdBLOAD2K<UNK! {0080}>-1.78244E+06<UNK! {00FC}><0xB6!>IMP<0x9A!>NOT+MOTOR.POINT0<UNK! {000A}>OMERGE<UNK! {00FA}>pUSINGMERGE%<UNK! {00FB}>=!<UNK! {FE3C}><UNK! {00FA}>FhCALL<UNK! {00FC}>8MOD<UNK! {FDBA}>RESTOREINPUT<UNK! {00F7}>ERL<UNK! {001E}><UNK! {0001}>VARPTRERL<UNK! {FDFA}>DEFINT,;WIDTH-POINTI.B'DEFSTR(8#_qLET<0xE5!>ON<UNK! {000D}>*^SAVEMiOPENUSRNEXTTROFFv? (SPC(<UNK! {000A}>ELSE?GMOTORKEY7<0xE5!><UNK! {00FB}><0xE0!>VARPTR<UNK! {000D}><0xE2!><UNK! {00F8}>|<UNK! {0080}>5<UNK! {000D}>LETLLISTUSRLOCATE,<UNK! {00FC}>PSET<UNK! {000D}>:0b}2>USR=INKEY$~)<AUTO*+'8COS^zv:ENDERL<UNK! {000A}>fPOKE<UNK! {0010}>^{3<UNK! {00FA}>DEFDBL<UNK! {001E}>9LOCATEoINSTRTAB(<0xE5!>0?9<UNK! {0004}>yER*\5DEFINTEDITe<0xE4!><0xE4!>THEN<0xB6!>5TDEFDBLRANDOMIZEPSET<0xB4!>V6FNWAITy0ONTLPRINTR36<UNK! {0009}>LPRINTSCREENRANDOMIZE]VARPTRTAB(N4LET04PRINTE9&H4C61YAUTO<0xE1!>o4.01139E+32CONTBEEP,q.N98INPUT<UNK! {FF27}>9RUNUSRBF>\LET!<UNK! {000A}><UNK! {FED4}>IFdBEEP]p<0xB4!>pBLOAD8-238977'VARPTR<UNK! {00F8}>^147k<UNK! {001E}>IFKEY<UNK! {00FC}>INKEY$F1POKE
  70. 61157  ELSE4.23608E+14PSET<UNK! {0009}>*WGW<UNK! {0007}>yON#+WVARPTRl<0xE3!>8OUTNOTVPENDP0NEXTEDIT?><0x9F!>L8<UNK! {FD1B}>#USINGOPENCSRLIN+DEF<UNK! {0080}><UNK! {0080}>EQVCALL<UNK! {00FC}>8<UNK! {00F6}><UNK! {FDBA}>vUSRORSAVE3WIDTH<UNK! {0004}>qANDIMPPSETERLNEXTMERGE<UNK! {00FB}>ELSEq<UNK! {00F9}><UNK! {0007}><UNK! {00FA}>DEFSTRINPUTQG[Z}TAB(ONSTEP3^FNOT4pMERGEEQV7<0xE2!><UNK! {00F7}><UNK! {0010}>PRINT<UNK! {0007}>GOTORESUMENm<UNK! {0007}>ELSE:K<UNK! {00F5}><UNK! {FD5D}>STEPERLKIMP>TROFF<UNK! {000D}>LETLLISTMOTORLOCATE,AND&O50025&CWREAD<UNK! {00F5}>'F>EQV<B<UNK! {0003}>FORF$:<UNK! {FF31}><UNK! {0006}><UNK! {001E}>r=GOTO><UNK! {000A}>OUTDEFSTRBLOADI<0xE5!>Y0INKEY$t=5RENUM<0xE1!>w/WEND<UNK! {000A}>k9PRESET0<UNK! {000A}>\<UNK! {000A}>o~<0x9B!>;5TDEFDBLOPTIONPSET<0xB4!>LTROFF<UNK! {00F9}>/eQREAD<UNK! {0001}>RETURN\LET59RANDOMIZE><UNK! {00F5}>4<UNK! {000D}>&O32155%99GOSUB*!1aRETURN08q<UNK! {00F9}>HailPOINT,<UNK! {00F5}>=SCREEN10CSRLIN/I<0x9F!>i? (SPC(!ELSE4<UNK! {0004}>,NOTLkERLIFdSOUND]p><0xE5!>IFBSAVE8PSETLOADSAVE7THENBLOAD<UNK! {00F5}>~DEFDBLibMOD5A<UNK! {FD46}>LLINEPOINT<UNK! {00F7}>A<0xCB!>LOCATEELSEERRDATA^4<UNK! {0010}>ChQ<0xDF!>VARPTRNEWREADb-8.06409E+089lWCSRLIN<UNK! {FFEC}>g<UNK! {00FA}>TOLOAD<0xE4!>}RESTOREBEEPU^<UNK! {000A}>OMERGE<UNK! {00FC}>pONERL#MODDEFDBL.BSAVE"n<<UNK! {00FB}>REMSSTOPCLOSEUSINGMERGEYELSECONTn:OFFTROFFYLOADTAB(f455HuGOSUBSOUND8}?MERGEE,_RANDOMIZEy<UNK! {00F5}>RETURN^i^DATA<UNK! {0006}>AOPEN1sLPRINTnINSTR$GOSUB<0xE1!>55>G<0xB5!>KEY7<0xCB!><UNK! {00FB}>9ERRORh6^ERRORSWAPINSTRERR<UNK! {0007}>LOAD9PSETN4OPTION4<UNK! {00FB}>&|^ONyINKEY$+JL<0xE1!><0xE1!>"<0xE1!>ERL<UNK! {0001}>RESUME08<UNK! {0004}>SPC(X<0xE0!><UNK! {0080}><UNK! {FD64}>f<UNK! {0004}>31239ERR<UNK! {000A}>^2'bNFOROPTION<0xDF!>WEND<UNK! {000A}>1s<0xE4!>=3FN76Z<UNK! {0009}>IMPX<UNK! {0006}>LOAD#<UNK! {007F}>INPUT
  71. 8855  ZOPTION<UNK! {FD65}><UNK! {0080}>TODEFSTRMODd6WIDTHWHILEREADSCREEN<0xE5!>AGOSUBELSEGOSUBMhNEXTnUSR=LETm)<0xE0!>TOo<UNK! {0006}><UNK! {001E}>&wSAVE<UNK! {00FB}>RESUME<0x9F!><UNK! {000D}>DATA<UNK! {FF45}>OBSAVE0LPRINT8xv SCREENwOFF|qkOPENl<UNK! {0008}><UNK! {0006}>BEEP&<0x9F!>-307124.09059E+10TRON;<UNK! {0007}>LLIST3{@GOTOkxOUT<0xE2!>.M*+><UNK! {FDF1}>.%<UNK! {0003}><0xB6!>TROFF2142<UNK! {00F8}>2|O6fIF0MOTORNEW;IMP=PRINTONMOTOR8<UNK! {000A}>3&H68E4dTROFF;NMATROFF <UNK! {001E}>KEYPCLINE<UNK! {00F6}><UNK! {0001}><0xCB!><UNK! {0008}>$w<UNK! {00F8}>GOTOe]BLOADLOADLPRINT,@ELSE<0x9F!>ICLOSENEWYGOSUBERASEGOSUB`&~-FNJ{]iEDIT]MOTOR'<UNK! {FD44}>1USINGTRONyRESTORE<UNK! {000D}>CSRLIN<UNK! {FFAD}>OBSAVE+.n%TrOUTkCSRLIN4q,LLIST<UNK! {0006}>R<UNK! {0006}>'3<0x9B!>-BCLEAR!<UNK! {0002}>'}EQVLETTROFFyDEFDBLSTRING${`a6.USRPOKEINKEY$<UNK! {0009}>UFPOKEDEFTROFFfREMPRINTCLEAR<UNK! {FF17}>}BSAVEINPUTERASE<UNK! {0008}>SPC(WENDPSET?IF<UNK! {001E}><UNK! {0010}>-<UNK! {000A}><UNK! {001E}>THENd<UNK! {0003}>WLPRINTCLEARNOT<UNK! {000A}><UNK! {000A}>`W<0x9F!>)%TAB(?|AEDITBLOADSCREEN\TO<0xB6!>5TDEFDBL<UNK! {0003}>BSAVEDEFn2<UNK! {00F9}>GOTOe8-KEYCLSddCALL<0x9A!><UNK! {0080}>SCREEN<UNK! {0002}>Y<0xB6!>MOTORPRESET4#0^<UNK! {0006}>PT7%CSRLINNOTl}NEXT&H89E0DELETE|PRESET|([=J/0TROFFn'$M<0xE1!>ERESUMEc-21406<U{96b+^CONTtINPUT'8LLISTLETPSET'<0xE4!>OPEN&O23031<W_iyDEFINT//POKEDEFMODINKEY$ERL<0xE1!>AUTO<UNK! {FF01}>^qv<0xE2!>pERASEAPSETIMPBLOADLOCATE<UNK! {007F}>VDEFSTRLINEPSETWIDTHCLS-8E-09c ,<UNK! {0004}>CONT<UNK! {00FB}>mhSWAP?)<0x9F!><0x9F!>r-%45DEFDBLDEFSNGPSETREADtq<UNK! {00F7}>GOTO<0xB6!>82KEYREM<UNK! {0002}>ELSE+j58778<UNK! {000A}>OPTIONRANDOMIZEAUTO-3.42597E-08<UNK! {00FB}>MOTOR+}6ww?RESTOREOPENLPRINT0
  72. 6510  LOCATE
  73. 23722  <<UNK! {007F}>RESTORES*STEP<UNK! {00F8}>SOUND<UNK! {0005}>+IF+<UNK! {00F7}>IFx-nOPEN<0x9F!>%<0xE4!>R4z"<0x9B!>ULOCATE<0xE4!>INKEY$SWAPFj-41353T<UNK! {0003}>5<UNK! {FF03}>"BSAVE`[rFNDEFDBLCALL<0xE1!><UNK! {00FC}><UNK! {0003}>INPUTM<0x9F!>PTRONDEFbuWHILE<UNK! {0006}>ERL|FORZYOUTE(<UNK! {0008}>?J?0\"9149]DEFSNG><UNK! {0001}>TAB(TAB(8w<UNK! {00F9}><UNK! {FD16}>8'CLS<;END<UNK! {00F7}>IMPA<UNK! {00FA}>ERRp<UNK! {FDDA}>FN<UNK! {0002}>0+eUSRXOPTIONREAD<0x9B!><<0xE1!>ON<0xE2!>0,=-Z}USINGnea WIDTHZ<0xE4!>KqHOPEN<UNK! {0006}>8BLOADDEFDBL+^ KSTOP1.64698E+11<UNK! {00FB}><UNK! {FE78}>CALL'P385z<UNK! {00F9}><0x9B!>TROFF18502FN<0xB6!><0xB6!>'ERL#<UNK! {0006}>W0XDEFDBLz0r<0xDF!>?PSETABLOAD[<UNK! {007F}>H<UNK! {000A}>PNEW9BSAVEWTO<UNK! {0006}>STRING$C<UNK! {000A}>3.<0xE4!>E3NOTK<UNK! {00F7}>VARPTRINKEY$ONi<UNK! {0001}>KEY%]DEFSNG><UNK! {0001}><UNK! {0005}>STRING$ 2LOAD<UNK! {00F7}>8lTHENKEYAND.ENDWENDWRITE<UNK! {0080}>GOSUBCLEARYSOUND<0xE4!>REMMo\-ON=0[ CSRLINTAB(j<UNK! {000A}>IISRETURN<UNK! {0002}>OPTIONELSEAND![10CSRLINSTEPAND&O10612<0x9A!>
  74. 4270  <UNK! {0004}>,NOTRESUMELIST&<UNK! {00F5}>^OFFKVARPTR<UNK! {00FC}>SOUNDOUT=0LLISTOPEN<UNK! {00F5}>_<0xE4!>THENM4$QPSET_EDITwU0<0xE5!>POKE7
  75. 43523  TAB(8f_,vrDEFDBLPERRVLOCATE421<UNK! {000A}>=<UNK! {0003}>k<UNK! {0003}>NTOGOTOSTOPCo\GRETURNE(<UNK! {0008}>?JTDIMAND!pDEFINT[MWENDDEFDBLCLEAR<UNK! {0003}>TO"[RUN<UNK! {00F7}>k<UNK! {00F9}><UNK! {0009}>pMOTORZXOROR2#<0xE2!>KEYY<UNK! {0003}>ELSELISTOh\y<UNK! {0002}>=INPUTp-DEFSTRUSRX<UNK! {000D}>9536SOUNDRESTOREERLELSEERASEi?HJDtSTEPnasr<0xE1!>Y><UNK! {0006}>0HDEFINTl4064951996.65ANDX|IMP<0xB6!>TO<UNK! {0007}>x2gCLISTIF<0xB4!>5DEFSNGINSTR<UNK! {FE46}>SWAPERRORSPC(VARPTR.ERL<0xE1!>THEN<0x9B!>87Q#25LLISTMPSET<UNK! {007F}><UNK! {FE5B}>0<UNK! {000D}>FP<0xE3!>194#LPRINTRESUMEORC<UNK! {007F}>U.GOSUB69MOTOR)/j(SCREENo2LOADP`<0xE4!>WHILE!CLS54DhCALL<UNK! {00FC}>C.KEYMSRENUM<UNK! {00FA}><0xE3!>37528-26734ERR407j!VARPTRPSET8610@,USING<UNK! {0007}>OPTIONINKEY$CONTa&OJZ<UNK! {007F}>STEP2.05362E+15]DELETE&H1C91ory{<0xE0!>ERR^PRINTd<UNK! {00F6}>]LINEPRESET<UNK! {007F}><ANDLINEWAIT<0xE4!>SCREEN45&k[COLOR>INKEY$'FyPOKENEW<0xB6!>oCLSSAVERESUMECLEARl^`3<UNK! {001E}>r<UNK! {0006}>HUSRDATABLOAD4<UNK! {0010}>,<UNK! {000A}>1<0xE3!>|/kCLSBLOADMOTORP<UNK! {000A}>V`ELSE++INSTREND6J@TROFF!2.1557E+06tSPC(<UNK! {0080}>3<UNK! {0005}>0IMPERASEY<UNK! {0003}><0xE4!><UNK! {00FB}>4064h
  76. 52891  OR0<0xE1!>00Kn[S$19<0xE4!>&H371KEYPOKELISTG`USR<UNK! {0003}>STRING$KLINECREADSTRING$-SWAPVARPTRTO'+OPENaz"<0x9A!>DEFSTRMERGESWAP<0xE4!>s<UNK! {00F5}>T%<<UNK! {FD6A}>6'A<UNK! {FF03}>h,<0x9A!>EQV<a5(<0xE1!>F<UNK! {FDC7}>N<0x9F!>PTRONDEFbWRITE<UNK! {0001}>]DATA=DEF3<UNK! {FEF3}>SeMOTORKhREADDIM\6p<UNK! {00F7}>8<UNK! {0002}>OFF<0x9B!>SCREENTOLOCATEn#<UNK! {00F9}>LOCATE,gFN<0xB6!>EQVdC<0xB6!><0xE3!>NSOUNDMOTOR'RUN<0xE4!>DIMJ135.454<UNK! {0009}>*hNOTTOe991:MOTOR'^^RESUMEP-72STEP.<UNK! {0008}>-0CONT NOTUSRH><READ10<UNK! {0010}><0xE1!>&BEEP<UNK! {0007}>=K><UNK! {00FC}>FOR)PRESET<UNK! {00F9}><UNK! {0007}>#t0UOPEN<0xE5!>:&H5B62MERGEWENDEDIT<UNK! {0006}>YT<UNK! {00FB}>LPRINT<0xB4!>ZCLOSENEWSTRING$<UNK! {FF63}>#[6arLLIST?SCREEN<UNK! {0080}>PSET2QH<UNK! {000A}> INSTRl<UNK! {FF3C}>PRINT<UNK! {0006}>OR-7E-17<UNK! {00F7}><0xB4!>OFF_i<UNK! {FDC9}>9WIDTH=Ox0iINPUT#/g<UNK! {00F7}>OPTIONtSCREENvtCALL<UNK! {007F}>RESTOREO1.$EQVLOADSWAP+j`<0xE0!>1.41229E+22LOCATE-87973.66108E+238cSt}"^ENDTO
  77.