home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / maj / 2483 / anneeper.num (.txt) < prev    next >
Commodore BASIC  |  1994-05-17  |  13KB  |  6 lines
  1. 22 (
  2. 1280 H
  3. 1792 m
  4. 2304 ON
  5. 8224                                                 Pwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGzNEXTNEXTCLRyCMD*^NOT+READVERIFYRESTORELISTOPENCMDSYSGETCONT~END|Y[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsPRINT#CONTVERIFYNOT^CLOSE^`bFORSTOPWAITSTEPRETURNKNSPC(ASC(null)(null)~END(null)(null)(null)FREgiSINEXPVALTANCOSFNTWCOS[^INTORINPUTBDGOPENSAVESTOPNEWFRE(null)VAL(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeUSR+COSPEEKPOSABSMID$SYSCMDATN-CLOSE^`<VERIFYIFDGOPENCONTTAB(TAB(wEXP(null)(null)(null)LEFT$INPUT(null)+SQRiTAN<COSUSRABSCLOSEPOKECLR*[^THENSTR$RETURNTODEFLETVERIFYSTOPGETPwRIGHT$(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe+^TANPEEKINTsVALSGNSPC(CLOSENOTOPENTAB(nbeRETURNSTOPRESTOREISTOPGETTOw(null)ATN(null)(null)(null)(null)(null)<RND(null)>nTANSGNCHR$R+SPC(//TAB(`ORREMREMDIMPRINTRETURNKWAITWFRECHR$MID$(null)VALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeUSR^COSATNSINATNLENPOKECLOSETAB(SYSi^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnsPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~GET><*RUNgzlnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwFNGET~=NOT<ABSCONTCMDRETURNGOSUBTAB(psuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpDEFSQRSPC(NOTCLRY[OPEN^ORNEWREADDRESTORECLROPENNCLRFREy(null)MID$(null)(null)INPUT(null)=USRFRECOSPEEK>ATNRIGHT$POKE`WCLRCLROR`bINPUTRETURNSTOPRESTOREIKLOADTAB((null)y|MID$VALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe-(null)^LENSTR$suDEF[*THEN[^^>VERIFYPRINT#GOTOLETSYSKONSTEPSQRVALATN~STR$LEFT$INPUTCLOSEeNOTUSRSIN|pPRINT#ATNSYSPRINTWAND+<<bSTOPREADDEFSAVERETURNOPENNEWNEWFREy|PEEKVALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe>^TAN<PEEKsuDEFPRINT+Y[CLOSEGETINTINPUTVERIFYDCONTPRINT#POKEPOKESAVELOG(null)|(null)(null)(null)(null)READ>n+PEEK<COSLOGCHR$`TGOSUBNOTOR>`TAB(RESTORERETURNGOTOGETIKSYSOPEN(null)(null)(null)CHR$(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeRND=COS<PEEKsMID$CLOSET--CLRTHENSGNbLOADPOKEDEFGOPENCONTGETPCHR$(null)(null)TAN(null)(null)(null)(null)FREgPOS/ATNLEN(null)LEFT$`Tz`CLOSE>SGNbRESTOREREADDSAVEPRINT#PRINT#LOADSYS(null)y|(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe>+POSANDPOSASCuNEWTAB(*-[TAB(^ABSWAITREADSAVEPRINTRETURNPRINTWAITNEWLOGy(null)~(null)(null)(null)(null)eRND^COSRNDINTFORuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpTHENSTR$THENNOTWYSYSTAB(`bONPOKEGOSUBGRETURNSYSNEWPEXPSQRVAL(null)ENDCHR$(null)(null)SPC(INTEXPl>INTCHR$RIGHT$POKETPRINT#THENSTEPTANFNbFORBDIFRETURNKNDEFASC(null)(null)LEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe+>/LOG<FRELEFT$RTTHENNOTOROR`bINPUT#POKEDEFRESTORELISTKVTAB((null)(null)(null)(null)(null)(null)INPUT(null)+SQRi/>STR$LOG(null)LISTNOTPOS*[^STEPORINPUT#TOSAVERESTOREPOKEREMREMSYS(null)COS(null)READRETURNDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeRUN^ANDUSRpsuPOKETHEN-Y[^ABSSGNFORIFDGGOSUBRESTORECLRTAB(wyLEFT$LENENDDATA(null)(null)SPC(EXP+INTSQRps}TOABSPRINT#FNTO>GETABSGOTOONWAITGIKWAITWTANEXP(null)LEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeINTFREATNSTR$INTSINATNPOKETHENcYCLRSGNGETORDATAREADONRESTOREPOKEOPENZPLENSQRMID$ATNVAL(null)MID$(null)POSg/sLENCOSFREuPOKENEW--CLOSE^=-LOADREADMGISTOPNEWPwRIGHT$(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe<^SINnLENFRELENSPC(CMDTOSYSSTEP=<bHSAVEGOTOVERIFYRESTORECONTCLRTORIGHT$COSLET~(null)(null)LEFT$(null)<+=FREUSR>CHR$COSGETNEW`g[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnsPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~GET><*RUNg{lnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwyCMD><=NOTORDIMLISTWAITLISTCLRpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnLOADFRERIGHT$SPC(PRINTWCONTSTEP*PEEKTHEN@VERIFYGOTOPRINTRUNKSAVEVERIFYRIGHT$(null)VALMID$VALDATAMID$(null)eRIGHT$SIN(null)LOGINTTANSQRCLOSENOT+YOPENOPEN^INT@PRINT#LOADCONTICMDREMCLOSECHR$LEFT$(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeSQRFREANDUSR>LEFT$(null)`TW}CLR*<b@RETURNGOTOGIREMCMDCMDFREPEEKMID$LENENDCHR$MID$(null)eSQR^SQRPEEKPOSTANSQRCLOSENOT+Y[+GETb@WAITSPC(PRINTWAITCONTWAITVERIFYwyATN(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe/+PEEKEXPPEEKSGNUSRSYSPRINTWYTAN^`SPC(INPUTVERIFYDVERIFYPRINT#CLOSETOVERIFYLENVALATN(null)END(null)MID$(null)NOTABSUSRTANTANINTASCuZPRINT#*-CLRCLOSE*THENLOADKDGPRINT#CLOSENP(null)y|(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADePOS^SQREXPVALRIGHT$SQRLOADSTEPWSTEP+<=bDATAREADPRINTOPENICLRTAB(PRINTwCHR$ATN~(null)(null)(null)(null)eUSR+SINnLENFREMID$SYSTHENeY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpTAB(STR$THENSPC(WFNCLOSE^SGNSGNFORPRINT#INPUTSTOPVERIFYWNCLRLOG(null)|(null)RIGHT$VAL(null)LEFT$POSORFRESQRATNpASCSTR$CLOSENOTWFNCLOSE>`ANDNOTREMGOTOCONTUKONVERIFYwy(null)(null)RIGHT$DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeEXP^ATNPEEKpUSRCOSTOPRINTW^STEPTAB(`ORREMPOKECONTRESTOREVERIFYPOKELOADPFRE(null)(null)(null)LEN(null)ASC(null)^ABSUSRxn=(null)LENSGNCONTCLOSE+ORTAB(lbFORPRINT#GOTORUNICLOSECLRPFRE(null)(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeUSRFRESINATNPOSINTATNPOKETLISTSYS[SGNANDINT@DATAWAITRUNWAITSTOPCLRSYSLOG(null)|SINLEN(null)(null)(null)^RND(null)SIN|psuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnSAVEzMID$CLOSEPRINTWOPENCLRVALANDOR@GOTOSPC(VERIFY-CMDREMCLRLOGyTANLENEND(null)(null)(null)THENPOS^ATNATNINTASCuSGNGETSPC(/TO/^INT@DIMPRINTPRINTRUNPRINTNEWP(null)LEFT$(null)(null)VALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe<p/LOGCOS(null)SQRRTCLR/[ANDINTiGOTORETURNDCMDPRINT#CLOSEGETPEXPSQR(null)PEEK(null)STR$INPUT(null)SPC((null)EXPCOSUSRLENFRECHR$RFN*CONTSTEPNEW`-RESTOREBDCONTPRESTOREVERIFYPRINT(null)y|PEEKVALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe+RNDINTATNINTASCuRGETSPC(-CLR+FNINTNBDuRETURNKNSPC(ASC(null)ATN(null)ENDDATA(null)LEFT$FREgiAND<LENsuSGN+POSTHENCLOSE-FNORSAVEVERIFYDGGOSUBSTOPNPEXPSQR(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeINT(null)<ANDSTR$LOG(null)POKEbWNEXTTHEN>`INTREMSTOPPRINT#GPRINTPOKETAB(TO(null)(null)|(null)(null)(null)(null)(null)^/LOGl=>ATNLEFT$RCLOSECLRY^TAB(^INT@ONPRINTGWAITPOKEGETPw(null)(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeUSR^COSRNDINTCHR$RIGHT$POKENEW-YOPENTAB(`SGNINPUTWAITINPUTPRINTCMDSAVECLOSEPMID$(null)(null)~STR$LEFT$(null)READTHENNOTLOG>ATNpTANSQRLISTCLOSETAB(SYSORORFNINT@READPRINT#GGOSUBSTOPNPEXPSQR(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe-COSCOSAND=SINSQR`TW|CLOSE+GETb@WAITGOTOCLRCMDKABSTORIGHT$COS|MID$READ(null)LEFT$MID$SPC(SQR=RNDLOGpUSRSQRRCONTPRINT#NEW/TAB(`bDATAREADDGCONTCLOSELOADPw(null)(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeINTp/STR$INT(null)uNEWVERIFY+Y-<`TAB(DATAINPUTLOADSAVEPRINTPOKEPOKENEWwVALDATASIN(null)(null)(null)(null)eUSRRND(null)>(null)USRSQRCLOSENOTCLRg[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnsPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~GET><*RUNg|lnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDG{pzq-NEW-*<DATAWAITREADLETPRINTRETURNGOSUBNEWPRINTSTEPSYSDIMyWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpCLRATNRNEW^=[OPENINTSGNFORBSAVELETCLRKONVERIFY(null)(null)ATN~ATN(null)(null)(null)+g/>nUSRVALABSCLOSEPRINT#WCLRTAB(OPEN/TOREMPOKESTOPRESTOREDEFSTOPCLRTOMID$READ|+ATNDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeEXP=>npASCSQRTOVERIFYWYCLRFN=STR$FORINPUT#STOPRESTOREWKINPUT#OPEN(null)(null)|SIN(null)(null)MID$(null)eUSRFREATNSTR$SINLOGCHR$RPRINTFNOPENTO*`bDEFONPRINTCONTIKCONTONTAN(null)(null)LEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeEXP=PEEKTANINTuRTCLR/[^`=WAITONRUNSTOPCMDSTOPCLOSEPwEXPATN~END(null)(null)(null)eg^=SGNSINVALRIGHT$FNTWCMDCLOSE>`bINPUT#READPRINTOPENIKNONVALCHR$(null)LEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeUSRRND(null)>(null)USRSQRCLOSENOTCLR*i^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpOPENSQRFNTWFN+THEN<-WAITVERIFYDRESTORECMDKCONTVERIFYMID$ySIN(null)(null)(null)ASCMID$POSSQRiSINEXP<LOGABSTHEN*W*CLOSEORANDORSAVEBINPUTCLRIKSYSNEWLOGASCVALLEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeUSRINT/LOG~suDIMTAB(*/CLOSE>`bRESTOREREADPOKEGIRESTOREONTOTAN(null)VAL(null)(null)(null)INPUT(null)(null)gINT>ATNpVALABSNEWTOSPC(-AND>`bLOADONREADSTOPRUNCLOSESPC(Pw(null)(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeORABSLOGEXPPEEKCHR$ABSCLOSENOT+Y[>FNSGNREMSTOPPRINT#GREMRESTORETOOPENRIGHT$PEEK(null)(null)VAL(null)LOADREADLETn^SINPEEKpSINABSRTOPOS-TO/TOTHEN@IFLETSTEPRUNPOKELOADPwRIGHT$(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe*USRTANTANINTLENCHR$POKENEWLIST-CLOSE^INTORINPUTBINPUTRUNCMDSAVETOPRINT(null)(null)|PEEKVALDATALEFT$(null)e^^SQRTANINTFORuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsGETLOADTWYSYSORPEEKTAB(SAVEIFCONTSTOPCMD/NPFRE(null)(null)CHR$(null)(null)(null)(null)SQR*il<LENCHR$uRCONTPRINT#AND+ORSTEPINTNEWREADDGQPRINT#TAB(TAB(TANMID$(null)LENRESTOREDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe<=TANPEEK(null)VALABSSPC(STEPSTEPSYSd^`THENSAVEBDSTOPVERIFYKNTAB(LOGy(null)LEN(null)(null)INPUT(null)(null)SGN^lSINVALFREuNOTTAB(**[^=THENGOSUBWAITLOADPRINTCMDSAVELOAD+wyTANLEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeSQRCOSAND>(null)ASCuRPRINT#PRINT#THEN^^`FNINPUTVERIFYDGGOSUBCONTLISTONTANCHR$ATN(null)RETURNDATA>LEFT$eUSR(null)COSUSRSINUSRSQRRTCLR*AND^`NOTFORPRINT#LOADPRINTRUNGOSUBCONTVERIFYwyEXP(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeEXPFREVALANDUSRFRELEFT$RVERIFYCLOSETHEN^THEN`<VERIFYIINPUTCLRGETKCLOSEVERIFYVALLOG(null)(null)(null)(null)MID$(null)eINTFREATNSTR$INTSINATNPOKETHENeY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnsPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~GET><*RUNg}lnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~SGNINTSPC(EXPDIMSTOPVERIFYlnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnLOADFRERIGHT$SPC(PRINTWCONTSTEP*PEEKTHEN@READPOKELISTISYSTHENCMDPOSLEFT$LEFT$CHR$(null)(null)MID$READINTNOTRNDlSQRINTsGOTO^T+NEWNEW*FNbINPUT#POKEDLISTLISTRESTORETOONTANVAL|LEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe-^lnLOGzSTR$TOPRINT#STEPSYSi^DEF>VERIFYVERIFYDIFRETURNGETCLOSEVERIFY(null)yTAN(null)(null)ASCINPUT(null)SQRPOSSIN>USRLOGSINSQRTOTTHENCONT/=STEPFNVERIFYRETURNGOSUB>LISTSTOPLISTVERIFYVAL(null)|ATNVALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe-FREPOSANDPOSATNSQRRPRINT-YLEN==THEN@WAITSTOPCLRCLRKOPENFNLOGyASCSIN(null)STR$(null)(null)eNOTEXPTAN<COSCHR$COSPRINT#TCLR/[-PEEKABSGOTOINPUTPRINTLOADRETURNCLOSESPC(PwEXPEXP(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeEXPFRESINnpSGNFRESPC(CMDSPC(THEN^l`baIFWAITCONTWAITWNPLOGCHR$|~(null)(null)ASC(null)SPC(ORINTFREANDCOSCHR$uRTOTAB(^^^`SPC(VERIFYSAVEGOTOSAVERETURNPRINTNEWPwMID$(null)INPUT(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe<p/><PEEKMID$SPC(STEPTORNDCLOSE^`FREREMPOKEPOKEGI/TOPRINT(null)COS(null)LEN(null)DATAINPUT(null)+SQRilANDLENLENSQRVERIFYNOT+Y[*PEEKSTEPFORDEFGOSUBGOSUBCLRKNSAVELOGy|ATNVALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeINTFREPOSORPEEKFREDATARTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpTHENSTR$THENNOTCLR*[^*THENLOADBDRESTORECLRLISTORNEWFRECHR$SINLEN(null)DATAINPUT(null)SGNINTEXPlnTANFRECHR$OPENCMD+SYS^^`=REMPOKEDEFGICMDORONLENPEEK(null)LEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe+FRESQR>PEEK(null)RIGHT$POKEGETCLRTHENAND^FNABS@DIMPRINTPRINTRUNGOSUBCONTVERIFYSTR$COSMID$(null)END(null)(null)READRNDABSCOSSINnTANVALSQRCLOSEPRINT>Y>/SGNSGNINPUTBDRUNPRINT#CLOSECLOSEONCOSCOS|~(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe-^ATNASCpTANABSLISTNEW+e[GETFNbONPOKEGOSUBGPOKESTOPNSAVELOG(null)(null)SINRIGHT$(null)INPUT(null)SPC(SQRiPEEKEXPVALASCuNEWTAB(+SYS/^TOTHEN@WAITDEFDEFIFPOKEFRECMDLOG(null)RUN~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpVERIFYCOSPOKENEWWY>TANTAB(USRINPUTBDLOADRUNKNCLOSE(null)(null)VAL(null)STR$LEFT$INPUTREAD+SQREXPlCOSLOGLEFT$RIGHT$VALNOTWYGETOPENABS>WAITDATADIMLOADRETURNKNCMDFREVALLEN(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeFRECOS>SQRATNLEFT$SQRFNTCLRTHENSTEP<STEPINT@INPUT#SPC(VERIFYWAITPRINTGETP(null)PEEK(null)LENEND(null)(null)(null)SGN<COSSINnxSINCOSSGNTHENWCONTOR^SPC(>PRINTREADDEFGRETURNOPENNP(null)y|MID$ATNDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe/+POSUSRLOGSINSQR[bWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnsPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~GET><*RUNg~lnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwyOPENSPC(GET>**WAITRESTOREPOKECLOSEnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpVERIFYSQRLOADSTEPCONTNOTOR^`SPC(INPUTBREADREMRUNPRINTVERIFYVERIFYSTR$COSMID$(null)(null)DATAMID$(null)eUSR^COSATNTANFREFRESPC(CMD/SYS[GETFNABSSAVEREADDGRUNPRINTCLR=LOGy|LEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe+^ANDUSRpsPOSLOADNEW+Y[=ANDUSRLOADBDLOADRETURNSYSNPRNDLEFT$RIGHT$SINRIGHT$(null)MID$(null)sgGOSUB/LOGLENsATNPOKETW//OPENABSTAB(GOTORETURNPGIRESTORETOVERIFYSQRy|PEEKVALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe<p/STR$>ATNFREPOKEGETCLRTHENAND^`>VERIFYBDCLRPOKEKONPRINT#FRECHR$LENLEN(null)LEFT$(null)(null)e-p/>STR$LOG(null)LISTNOTPOSY+<`bVERIFYSTOPGOTOGIPRINT#TAB(TOFRE(null)VAL(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeoINT>ATNpsRIGHT$TOTAB(CLOSE*[^VALb@RETURNINPUTGIONCMDPRINTMID$y|CMDGOTOONINPUTREADLET*INT/npLENSTR$THENSPC(STEPCONT[^ABS>VERIFYVERIFYDGRUNPRINT#LOADSYSLOG(null)|~(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe-(null)POS(null)COSSGNLOGPOKESPC(eYeINTORINPUTBRUNLETORCONTCLRPCOS(null)MID$(null)(null)STR$(null)(null)qgINT>ATNpRIGHT$STR$-VERIFYSYSSYS^^<>RETURNDEFDGREMRESTORETOOPENRIGHT$PEEK(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe+^TANPEEKINTsABSCLOSENEWPOSSYSi^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpPOKEABSCLOSETHENWYTHENTAB(`bINPUT#ONONLETWAITPRINTLOADPRNDCOS(null)~(null)LEFT$(null)(null)^SGN^SQRPEEKLENuFNCMDWY>/INTINT@B*LISTRETURNSYSNPSTR$SQR(null)CHR$(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeFRECOS>SQRATNLEFT$SQRFNTWSTEPCLOSE=STEPABSLOADBDPOKELISTCONTSTOPCLR(null)ASCATN(null)ENDLEFT$(null)READINT*RNDSINCOSINTABSRIGHT$LIST+CLRY[fABS-SAVEREADDGLIST/GETOPENLEN(null)(null)READRETURNDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADePOKEFREATNTANpSINSQRFNTCONTRNDTHENTHENNEWTAB(SAVEDATAGOSUBPRINTRETURNSYSNGET(null)COSLEFT$(null)(null)LEFT$(null)READSPC(EXP^SQRPEEKVALVALSQRFNT+CONTSTEP>`^INPUTSTOPLETRESTOREDEFRESTOREPOKESYSwASCEXPCHR$(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeUSR^ATNnSGNFREuVERIFYCLRPRINT#THENSYSTAB(`SPC(INPUTBDEFRESTOREPOKERETURNCMDSYS(null)(null)ATN(null)END(null)RESTORE(null)=*iSINEXPINTLEFT$CHR$RPOKECLR/ANDTAB(`TAB(RETURNSTOPSPC(RESTOREWKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnCLRzABSCLOSENEWPOSSYS[>FNSGNFORBSAVEDEFCLRSAVENEWPRINT(null)COS|LEN(null)DATA(null)(null)SQRSQRiFRE<pASCCOSPRINTNEWCLRYOPENTAB(`^GREADCLRPOKERUNPRINTGETPRINTASCCHR$|(null)RIGHT$DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeEXPFREATNATNpsABSNOTPRINT>YOPENTANNEWUSRSAVETODCLRPOKESTOPNONSQR(null)VAL(null)RIGHT$(null)(null)READ>n+SQRLOG(null)FREuNEWSPC(POSCLREXPNEWFNORSAVEREADRGyCONTTAB(NEWwyLEFT$LEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeNOTCOSTANTANINTASCuRCMDTAB(YGETOPENINTSPC(WAITDATADCONTRUNSAVEGETPRINTRIGHT$yLEFT$LEN(null)DATA(null)(null)INTABSRNDTANLENCOSLOGRIGHT$SGNTHENW+ORTHEN`INTGONRUNGOSUBLISTSAVECLOSEOPENVAL(null)|~(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeEXPFREATNATNpFRERIGHT$RNOTCLRTHENANDTAB(=bDEFONPRINT#PRINTRETURNKONPRINT#FRECHR$SINLENRETURNDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnsPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~GET><*RUNglnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPSTEPSYSAND^AND>FRENOTREADSTOPVERIFYVERIFYNEWVERIFYsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpDEFSQRSPC(NOTCLRYCLR*^STR$INPUTNDLOADRETURNSYSNNEWLOG(null)(null)(null)(null)(null)ASCRIGHT$^<=TAN(null)LENsATNLISTABSCLR*[LEN`^FORBRUNLETDEFSAVECONTCLRLOGy|LEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeNOTCOSlnABSPEEK(null)POKESPC(W*+*SGNbFORPOKEDPOKELISTSTOPLISTPRINTLOG(null)|(null)(null)STR$(null)VERIFYeRUN^FREANDpASCSQRRPOKESPC(THENSYSORPEEKABSGOTOVERIFYGOTOPRINTRUNKSYSONRIGHT$yTANLEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeABS-FREUSRUSRSGNRIGHT$LISTTAB(FN*[LEN`SGNINPUTVERIFYSAVERESTORERESTOREOPENLOADNEWwFORSINLENEND(null)RESTORE(null)FRERNDiLOGANDLENsRIGHT$GETSTEPGETNOTOROR<bDIMDATAREADSTOPVERIFYSTOPNPENDy|LEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe-^SINnpLENCHR$GETDEFTAB(LENNOTTAB(<bFNBDEFSTEPCLRCONTTAB(SAVERIGHT$COS|DIM(null)STR$(null)(null)USROR^FREATN|sSQRSPC(TTHENSYSOR=`bNOTDEFDEFRESTOREIKCONTPRINT(null)(null)|~(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe<pSGNAND=LOGRIGHT$LOADNOTCLOSENOTSTEPgnb@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpSPC(MID$TOTWFNCLOSE^`=RESTOREDATAWAITGISYSLOADSYS(null)PEEKRIGHT$LEN(null)(null)ASC(null)qgiANDuINTASCRIGHT$RTPRINT#^^>STEPb@RETURNKLETPOKEPRINTORVERIFYwyTANLEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe+>/RND=PEEKMID$SYSPRINTTOSYSSTEP=<p@BzDEFSYSSYSNON(null)(null)ATN(null)ENDASCMID$(null)POSNOT=SQR<EXPFRELENSPC(T*THEN[^TAB(+REMIFCLRGIORNPEXPSQRVAL(null)VALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeoABS/TANPOSSGNLOGPOKE]eY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnps-GETNOTSTEPSYS[^ABS-INPUTBDPOKELISTCONTSAVEVERIFYMID$(null)VAL(null)(null)(null)MID$(null)>*ilATNINTVALABSRT--VAL>`bNEXTONWAITVERIFYRETURNYNPwAND(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADePOS^SQR>SINATNRIGHT$TOPRINTSTEPSYSINT^`SPC(INPUTVERIFYDGCLRCLOSEONLOAD(null)(null)|~VAL(null)INPUTREADRNDABSLOGlnPEEKFRELEFT$NEWTAB(FN*CLRCLOSESTEP^GOTODEFSPC(CONTIKNTAB(LOG(null)(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeNOT*ANDTANVALFRELEFT$`TENDFN[>FNbSTOPREADPRINTLISTICLRTAB(VERIFYw(null)(null)(null)(null)DATAASC(null)+ATNiATNLOGpABSEXPGETCMDANDYTAN^SPC(TAB(GOTOSAVEGOTOGIREMREMSYSMID$y|ATNVALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe-FREPOSANDPOSATNSQRRTTAB(CONT[OPENINTINTLOADIFRG|SAVENSPC(ASC(null)(null)~(null)LEFT$(null)(null)+ATNi(null)nTANVALSTR$PRINT#CMD-Y>/SGNSGNINPUTBREADLETPRINTRESTOREONPRINT(null)(null)|~(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeSTEP=>LOGpsCHR$LOADCMD+NOTSTEP*FNSGNLBCONTDEFSYSSYSNTAB(FRE(null)(null)LEN(null)DATA(null)LEFT$^POS^lSQRINTASCuSAVETAB(FN*[GETNOT>GOTOCONTDPOKEPRINT#CLOSECLOSEP(null)LEFT$(null)(null)VALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeNOTSIN>LOGPOSVALDATART|THENGETTHEN^n@PRINT#LOADCLRCLRKCLRWFRE(null)(null)LEN(null)DATA(null)LEFT$FREg/>nTANVALSTR$SAVECLOSEATNSPC(CLOSE>`NOTGOTOSTOPINPUTVERIFYRESTORESAVELOADNEWMID$y|LEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeSGN(null)POS<pLEFT$LENPOKETCONTSYS/=GET-RETURNREADDRUNONRESTORECLRLOADLOGREAD|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnsPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~GET><*RUNgENDlnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPCONTCONTNOT-FNDATAWAITREADGOTORESTOREVERIFYGOSUBPOKETAB(suRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsPRINT#POKENOT-SYS[^`TAB(RETURNSTOPSPC(RESTOREIKNVERIFYMID$(null)|~END(null)(null)(null)POS(null)EXPlnpLENCHR$GETTOCLOSECLRCLOSE^`bFORPOKECLRGIKNEWNEWFRE(null)EXP(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeORUSRTAN<LOGSINSQRVERIFYNOT*SYSTHEN>lb@THENDLOADRUNKLIST=RNDPEEK(null)SIN(null)(null)(null)(null)e*EXPl(null)pSINABSRSPC(CLRCLRTAB(TAB(=FNLETREADRGI{CLOSEOPENEXPPEEK(null)LEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe*USRlnSGNPEEKLENVERIFYTTHENNOTOROR`NOTFORIFDEFRESTOREIPOKELOADPCHR$LEFT$VAL(null)(null)DATA(null)(null)USRgSINRNDPEEKPEEKFREuNOTCMDCLRg[RETURNGETSGN@INPUTLOADVERIFYCMDCMDLOAD\wEXPEXP(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe<^SINnpUSRSTR$OPENVERIFYCLOSETHENCLOSE>`SPC(INPUTVERIFYDLETREMONREMPRINTRIGHT$COS(null)~VAL(null)INPUT(null)+gINT/nTANVALSTR$PRINT#PRINT+*TO/^n@INPUTKRESTORECLROPENNCLOSELEN(null)(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe++FRERNDINTuDEFVERIFYFN*[+FNbLOADREADWAITCONTICONTTAB(PTANVAL|(null)READ(null)INPUTLEFT$SQRPOS+lCOS>ASCuDEFPRINTWSTEP//NEW^+REMGOTOCONTUKLOADTOwRIGHT$ATN(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe(null)EXPCOS<psuLOADSTEP+*TO^`SPC(FORSTOPPOKEGIPOKELOADPw(null)ATN(null)(null)DATAINPUT(null)lLOGUSRlnPEEKSGNATNPOKENEW-NEW^>FNANDINPUTSTOPPRINT#GIREMLOADPwy(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeNOT*TANUSRASCLOGRIGHT$SGNTHENeY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpSTEPSTR$THENTHENWYOPENTAB(ABSSGNINPUTCLRDGOSUBRUNSAVECLOSEVERIFYwRIGHT$(null)LEN(null)(null)MID$READSTEP*iLOGTANVALUSRSQRCLOSEPOKECLRYOPENOPEN^INT@INPUTGOTOGCONTCLOSELOADPw(null)(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe*USRTANTANINTLENCHR$POKENEWLIST-CLOSEFRElbINPUTDEFDSTEPOPENSAVENEWVERIFYRIGHT$yLEFT$LEN(null)DATA(null)(null)SPC(+^POS<COSCHR$LEFT$RCONTCLOSETHENCLR*TAB(-INPUTSAVEPOKEGONRESTOREGETONRIGHT$EXPATN(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeoRNDINTATNATNLEFT$SQRFNTLISTSYS[^FNSGNSAVEREADPOKEPWKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpCLOSEABSSYSLISTSTEPRND[^TAB(THENRESTOREDATADGVERIFYRESTORENPSQRATNEXP(null)LENLEFT$INPUT(null)SGNLOGRNDCOSANDp(null)RIGHT$TOPRINTWSTEP/TAN<THENRETURNDEFGOTOGISCLOSEVERIFYVAL(null)(null)(null)VALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe-p/TANUSRFRELENSPC(TCLOSETHENCLOSE>ORSTR$WAITTOGOTOSISTOPNEWLOADINPUTNEXT|LEN(null)DATALEFT$(null)<RNDRND/USRPEEKFREPEEKPOKENEW-YTAN^*iLETDATADIMSTOPCMDCLOSEWAITVERIFYDATAy|CHR$(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeINT^lnABSSGNMID$DEFSPC(PRINT#Y[^GETINT@BSTOPLETIONCMDNEWSQRCOS(null)~(null)STR$(null)(null)eSQR=POSCOSLOGFREPEEKPOKENEW-Y^TAB(`bDATAONWAITLISTRETURNPRINTNEWVERIFYRIGHT$y|PEEKVALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe<p/PEEKSTR$FRELENDEFSPC(CLRg[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpPRINT#LENPRINT#CMDFNe[^<USRWAITBDLOADRETURNKNCLOSELENSQRMID$~(null)LEFT$(null)(null)^SGN^SQRPEEK>SINFORR+SPC(^^^SGNSGNFORPRINT#GOTOPRINTCLRSTOPCLOSEVERIFY(null)y|MID$ATNDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeNOTCOSSINATNPOSsMID$CLOSEPRINTWSTEPEXPORSTEP>INPUT#READDRUNRUNPOKELISTVERIFYwCOS(null)~ATNMID$(null)(null)SPC(STEPINT>|psuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnsPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~GET><*RUNgFORlnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIxoINPUT#CLR-FNOPEN**POS*etiGOSUBCLOSEPOKEPRINT#TAB(DIMTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpDEFSQRSPC(NOTCLRYCLR*^STR$INPUTBGOTOCONTCMDKGETOPEN(null)(null)|MID$VALDATA(null)(null)*INT^l=INTsATNLOADTTOCONTANDTAN=-FORRETURNGOSUBLIST-KNVERIFY(null)y|PEEKVALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe<p/TANUSRFRELENSPC(bWYREADTAB(<b@IFWAITCMDRETURNSYSNEWPRINTMID$(null)ATN(null)VAL(null)(null)(null)egLOGRNDLOGSTR$suPRINT#VERIFY/NOT/THEN<STR$LOADBDRESTORECMDKNTAB(LOG(null)(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeUSRRNDRNDSGNPOSCHR$ABSSAVECLOSECLR*i^VERIFYORINPUTBSAVEPRINTPRINT#PRINT#CMDTOTANLEFT$MID$~STR$STR$(null)(null)eEXPFRETANTANINTsRIGHT$TOVERIFY/CONTTO+`THENLOADDEFDPOKEPRINT#SYSGETPRINTPOSVALATNRESTOREENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnTOPEEKMID$SPC(TCONTSYS[ANDINT-@READPOKELISTIRESTOREONLOADASCASC(null)MID$RIGHT$DATALEFT$(null)POSRND^lANDCOSATN(null)POKETLISTCONTSTEP>`FNINPUTVERIFYDIFPRINT#PRINT#REMPRINTVALCOS(null)~(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe-^lnABSPEEKCHR$SPC(PRINTWCLRTAB(OPEN^FNINPUTBSAVEDEFSYSCMDNONPOSLEFT$(null)(null)RIGHT$(null)INPUT(null)SGNSQR=TANUSRASCFREPEEKPOKENEW-g[RETURNGETSGN@INPUTLOADVERIFYCMDCMDLOAD\wyTANLEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeNOTLOGLOG<<CHR$LEFT$RTFNRNDNEWOPENSGN-DIMVERIFYPGIPOKEPOKE=MID$y|SIN(null)(null)INPUTREADSPC(INTUSR(null)<LENsuNEWSPC(POSCLREXPNEWFNORSAVEREADPOKESIKGETOPENVAL(null)|~(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe+RND/USRCOSUSRCHR$POKETWaCLR>ORTHENDATADEFPOKEGIDEFREMNEWSTR$PEEK(null)(null)VAL(null)RETURNVERIFYeSTOPINTSINnTANFREMID$NOTPRINTFN/[^<THEN@BREADDEFPOKERETURNCLOSE=(null)PEEK(null)LEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeSQRFREATNATNpPOSSTR$TOGETCLR*[NEWgTAB(DATADEFGOSUBDEFPOKESYSNVERIFYVALyASC(null)(null)(null)(null)MID$+uiPRINTANDPOSASCuNOTTAB(--CLOSE^SPC(>WAITREMGOTOGGOSUBCLOSENCMDASCASCATN(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeEXPFREATNATNpLENSQRTOGETCLR/ANDORGETbDATAREADDEFLISTRUNSAVECLRVERIFYSTR$COSMID$(null)ENDCHR$MID$READRNDOREXP>n=SGNATNLOAD/CLR-[GETFNINT@WAITDEFDEFIFPOKEFRECMDLOG(null)RUN~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpPRINT#LENPRINT#CMDFNe[^<USRWAITBDLOADRETURNKNCLOSELENSQRMID$~STR$(null)INPUT(null)SGNTAN^COSzpLEFT$LENPOKETWSTEPCLOSE=STEPABSINPUTBDRUNLISTSAVEGETVERIFYwyATN(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeUSRFRESINATNPOSINTATNPOKEbWYIFTAB(INTABS@B*LISTLISTSTOPNONSQRLOG(null)(null)STR$LEFT$(null)SAVERNDABSCOSSINnSTR$VALSTR$NEWTLISTSYS[^SGNTHENGOSUBWAITPOKEGIORNP(null)LEFT$(null)(null)VALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeRNDRND/STR$>LOGATN`TWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnsPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~GET><*RUNgNEXTlnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKosOPENSYS=TAB(/NOT<RNDetiRETURNPOKECLRSAVETAB(RTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnLOADFRERIGHT$SPC(PRINTWCONTSTEP*PEEKTHEN@READPOKELISTIPOKEREMPRNDCOS(null)(null)RIGHT$(null)(null)(null)e-pATNLOGpABS(null)VERIFYCLOSECLRYOPENTAB(`ORINPUTPOKERUNGRUNPRINTGET^wSYSLEFT$MID$VALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe*LOGTANnpUSRSTR$CLOSEPOKEWOPENCLRSGNANDSGNFORINPUT#STOPRESTOREILISTCMDFNRIGHT$yPEEKSINRIGHT$(null)MID$READSQRINTi^USRLOGSGNLENRPRINT#CLRYTHENOPEN`=NEWSAVEGOSUBDEFGOSUBSTOPNCLOSEFRE(null)(null)(null)VALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe*EXPlANDVALASCLEFT$LISTTTHENNOTOROR`=INPUTSTOPPOKERESTORELISTKVTAB(LOG(null)LEFT$LEN(null)LEFT$(null)(null)ng(null)l>INTsASCTHENPRINTWSTEP+<=SGNFORBCONTDEFSYSSYSNONSTR$COSMID$LEN(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe<+lnTAN(null)CHR$LISTTAB(LISTSYS[>INT-DEFDATAWAITLISTRETURNYNyLENyMID$LENENDRIGHT$ASC(null)POSgRNDINT<COSsFREGETGETTOSYSSTEPGETFNSGN@READWAITGIRESTORECLRSYS(null)COS|~PRINTDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe++COSnLOGFRELEFT$RPOKEOPENCONTSTEPGETFNINT@DIMGOTOGLIST/TAB(TAB(MID$PEEK(null)LENEND(null)INPUT(null)SGNINTORlPEEKINTVALPEEKPOKET+NOTSTEP=`NOTFORIFDIMLOADRETURNSYS\Pwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpDEFSQRSPC(NOTCLRY[OPEN^ORNEWREADDGRETURNSYSNEWPRNDLEFT$MID$ATNEND(null)ASC(null)POSOR*ATNSQRPOS(null)CHR$POKEGETCLRTHENAND^SPC(TAB(DEFONDEFLETIFPOKELOADPwRIGHT$(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeRND^COSRNDPOSATNSQRTOTWNOTOR^`FNRESTOREONDEFRESTOREICLRTAB(VERIFYLENMID$(null)LENENDASC(null)(null)FRE*iDIMn>VALCHR$SQRNOTCLR-[<^THEN@DATAPOKECONTPRINT#RETURNPOKEON(null)PEEK(null)(null)RESTOREDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeLOGUSR>nINTATNRIGHT$TOPRINTTHEN-TO>FNbVERIFYSTOPGOTOGLISTSTOPCONTON(null)PEEK(null)(null)RESTOREDATA(null)(null)+gINTINTANDPOSASCSTR$CLOSEbeg[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpPRINTABSLISTNOTCLR*[^*THEN@BSAVEDEFWAITPRINTNEWPw(null)(null)(null)END(null)MID$READINTNOTLOGSIN(null)pFRERIGHT$RCONTPRINT#NEWANDTAB(<b@DIMGOTOCONTIKSYSNEWASCLENATN(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe-p/STR$INTATNCOSTOTWSTEP+<=b@PRINT#LOADCLRCLRWNSPC(ASC(null)(null)LENEND(null)(null)LEFT$RNDNOT=FREnEXPSGNCOSFNTWCONTOR><-@BSAVEDEFSYSCMDNP(null)LEFT$(null)(null)VALDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADe/+POSUSRLOGSINSQR`T|THENGETTHEN^n@VERIFYINPUTRUNONSTOPNOTPLEFT$(null)ATN~(null)LEFT$(null)READSPC(SQRPOS>>STR$ASCuLOAD+CLRCLR[+gSTR$SAVESAVEINPUTVERIFYSTOPSTOPCLOSEPw(null)(null)(null)(null)DATAINPUTREADegilnpPwy|~ENDDATAINPUTREADeORABSLOGEXPPEEKCHR$ABSCLOSENOT+Yu^ABS>PRINTDATAIFRESTORECLRWNONEXPSINEXPCHR$(null)LEFT$(null)LOADeuwznpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnsPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnp
  6.