home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 14 / CD_ASCQ_14_0694.iso / news / 2483 / planexpr.num (.txt) < prev    next >
Commodore BASIC  |  1993-10-17  |  5KB  |  5 lines
  1. 16 
  2. 1280 '
  3. 1792 1
  4. 8192                                                       GIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`RETURNeuDwul|DATAwCMDGET~*RUN+SINVERIFYPRINTRETURNOPENGETPRINTNEWTAB(RTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegRESTORE>PEEKSTR$FREuNEWVERIFYSTEP/TOTAB(`SPC(VERIFYBPRINT#REM<PRINT#LOADPLOG(null)(null)MID$RIGHT$(null)(null)(null)e<^lCOSLOGSGNLENRPRINT#^SYS<^=THENLOADVERIFYGOSUBDEFPOKEKNSAVE(null)y|~ENDDATAINPUTREADegGIKNPwy|~END(null)(null)(null)+RNDit>(null)VAL(null)SAVESPC(PRINT#FNg^OR+PRINTVERIFYGOSUBPRINT#SYSSTOPZPFRESINPEEKLENLEN(null)(null)(null)qg=SQRPEEKVALLOGRIGHT$LISTCONT`g[READ*bRETURNICMDGRUNKSYSONMID$y|~ENDDATAINPUTREADegGIKNPwy|~ENDCHR$MID$READeUSRINT/LOGpsPEEKPOKECMDTAB(FNCLOSE<=b@ONPRINTGCLRCLOSESYS=RIGHT$PEEKATN(null)(null)DATA(null)READSQRINTi/LENSTR$VALSQR`TW|TAB(OPENTAB(USRRETURNBD*IKGETOPENVALy|~ENDDATAINPUTREADegGIKNPwy|~END(null)(null)(null)SGNPOSEXP/LOG<FREuPOKENOTWNEWSTEPNEWSTEP<VERIFYREADDCMDPRINT#OPENCLOSEVERIFYwSINEXP(null)(null)(null)INPUT(null)lNOTORINTTANpUSRABSCLOSETHENWFNCLR^ABS-INPUTPDGIKNPwy|~ENDDATAINPUTREADejGIKNPwy|~ENDDATAINPUTREADePOKERND(null)=SINTANCOSCLOSEVERIFYFNCLRCLOSE^TOTHENLOADBSTOPRESTORECMDOPENCLOSEVERIFYMID$ySIN(null)(null)(null)CHR$(null)SPC(<^SINnRUNsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegiPRINT#<psLEFT$THENSYSCLR/[^<iINPUTCONTSAVEPRINTWAITPRINT#LOADNEWFREy|LEN(null)(null)MID$(null)POSOR^FRESQRINTTANSQRCLOSENOTWY^<=b@RETURNGOTOGILISTCONTONVALy|~ENDDATAINPUTREADegGIKNPwy|~ENDASC(null)(null)CHR$STEPRND/SQRpUSRABSCLOSETHENWFNCLR^ABS-INPUTPDxSYSSTOPNLOADLOGy(null)(null)RIGHT$(null)INPUT(null)SPC(INTLOGlATNSINATNuSPC(SPC(PRINT#ANDCLRTHEN*b@ONPRINTGIREMREMSYSMID$y|~ENDDATAINPUTREADegGIKNPwy|~END(null)MID$(null)egINTRNDUSRLENLOGCHR$FNbWNEXTTHEN^=STR$DIMRETURNSPC(RUNONSAVECLOSEONwVAL(null)(null)CHR$(null)MID$(null)+INTEXPlANDASCSGNLENSPC(T-NOTOR=FNb@DIMSPC(RUNWAITSYSPOKEOPENVALy|~ENDDATAINPUTREADegGIKNPwy|~ENDLEFT$(null)READePOS(null)SINEXPVALUSRCHR$LOADT+SYS^^ORSGNREMINPUT#STOP>DEFSTOPGETPRNDCOS|MID$ATNDATA(null)(null)=*i=AND(null)PEEKLEN`TENDFN[OPEN`USRRETURNREADDRETURNLISTRESTORECLRSAVELOGy|~ENDDATAINPUTREADegGIKNPwy|~ENDASCASC(null)SPC(+=TAN(null)psPOSPOKETW-EXPTO*THENPRINT#IFLOADVERIFYISTOPNEWPRIGHT$(null)(null)(null)(null)(null)(null)LEFT$e<(null)lnSIN(null)uRCLOSECLR*[^GETUSRSAVESAVEGOTOCONTIKCMDSYS(null)y|~ENDDATAINPUTREADegGIKNPwy|~END(null)LEFT$(null)SGNLOG(null)znpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADejGIKNPwy|~ENDDATAINPUTREADePOKERND(null)=SINTANCOSCLOSEVERIFYFNCLRCLOSE^TOTHENLOADBSTOPRESTORECMDOPENCLOSEVERIFYMID$y(null)(null)(null)(null)(null)(null)+SQRi/SGNABSFREFRESPC(CMD/SYS^^zb@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegVERIFY/npRIGHT$COSPOKETWCONTGETTOFNFNSAVEIFCONTRESTOREIKWAITFNw(null)(null)LEFT$VAL(null)INPUTREMFRE*USRTANUSREXPFRELENSPC(VERIFYTAB(SYSg^`NOTFORREMGOSUBLOADWAITRESTORECONTVERIFYDATAy|~ENDDATAINPUTREADegGIKNPwy|~ENDSTR$(null)(null)NOTNOTINT>wpASCSQRTOVERIFYW//LEFT$<bGOTOREMSAVEDEFLISTOPENREMSYS(null)COS|(null)(null)(null)(null)READFREABSUSRl(null)ATNLEFT$COSSYSCMDPRINT-CLOSE^THENSTR$RETURNTODEFLETVERIFYYNyLENy|~ENDDATAINPUTREADegGIKNPwy|~ENDLEFT$(null)READeSQR^COSANDpUSRSQRRGETSINSPC(CLOSE^TOTAB(RETURNVERIFYDLOADRETURNKNEWNEWFRE(null)EXPCHR$(null)ONINPUT/SPC(+^l(null)pUSRSQRFNTTHEN-+CLOSE*(null)GOSUBREADPOKEGPRINT#CLOSENP(null)y|~ENDDATAINPUTREADegGIKNPwy|~ENDCHR$MID$(null)eg/(null)>POSASCCOSGETNEW+YTO-OR>WAITDEFINPUTVERIFYCMDSTOPGET\wVALATN~(null)(null)(null)(null)POSgRND(null)ANDUSRLOGCHR$LOADTWSTEPTHEN<<b@WAITINPUTPRINTIKGETVERIFYMID$y|~ENDDATAINPUTREADegGIKNPwy|~END(null)MID$(null)POSORABS>LOGSTR$ASCuRTOSTEPNOTGET/^SPC(LOADBDPRINT#SYSRREMSPC(LOGLOG|~(null)STR$INPUTREADUSRNOT=SINEXPCOSFORuRyFNOPENTO*lb@IFSTOPGIKLOADTAB((null)y|~ENDDATAINPUTREADegGIKNPwy|~ENDASCMID$(null)POSNOT=SQR<EXPFRELENSPC(T--VAL>`STR$GOSUBONPRINT#STOPREMYNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADejGIKNPwy|~ENDDATAINPUTREADePOKERND(null)=SINTANCOSCLOSEVERIFYFNCLRCLOSE^TOTHENLOADBSTOPRESTORECMDOPENCLOSEVERIFYMID$yVAL(null)(null)(null)(null)(null)^EXP^SINnRUNsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADeSTOPINTl<LENCHR$uSPC(SPC(ATN*[ORGETSGNINPUTBLETRESTOREIOPENCLOSEOPEN(null)(null)ATN(null)END(null)(null)(null)eUSRRND(null)=SINTANCOSCLOSEVERIFYFNCLRCLOSE^TOTHENLOADBSTOPRESTORECMDOPENCLOSEVERIFYMID$y|~ENDDATAINPUTREADegGIKNPwy|~END(null)(null)(null)SQROREXPINTSTR$INTASCuRPRINT#PRINT#THEN^^`USRRETURNBPRINT#REM<PRINT#LOADPVAL(null)RIGHT$(null)(null)(null)(null)(null)*ORSQRATN<~suDIMSPC(SPC(NEW^^`>VERIFYBDPRINT#SYSRESTORENEWNEWLOGy|~ENDDATAINPUTREADegGIKNPwy|~END(null)MID$(null)POSPOS^SINnpASCSTR$CLOSENOTWYOPENTAN+CHR$@BSTOPRESTOREIKGETPRINTCOSCHR$ATN~STR$RUN(null)(null)+gi<TAN>ATNPOSPOKETWNEWSTEP=INT-SAVEIFLOADVERIFYWKN~LOGy|~ENDDATAINPUTREADegGIKNPwy|~ENDASC(null)(null)USR+>>LEFT$psLEFT$THENSPC(-NOTOR=`=FORVERIFYD*IRETURNCMDSYS(null)(null)ATN(null)ENDASCMID$(null)eNOTLOGLOG<<CHR$DATARTz^THEN=STEPFREINPUTCLRQLOADRETURNKNVERIFY(null)y|~ENDDATAINPUTREADegGIKNPwy|~END(null)MID$(null)POS*LENySQRINTsABSTHENT+SYS/SGNSTEPFNINPUTBLETRESTORECLRKREMFN(null)(null)ATN(null)RETURNDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADejGIKNPwy|~ENDDATAINPUTREADePOKERND(null)=SINTANCOSCLOSEVERIFYFNCLRCLOSE^TOTHENLOADBSTOPRESTORECMDOPENCLOSEVERIFYMID$y(null)ASC(null)(null)(null)(null)SQR*LOGlLETpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegVERIFY>npASCMID$CLRPRINT-YCLR<=TAB(@POKEWAITRESTOREIPRINT#LOADPRINTLENVALATN(null)(null)LEFT$INPUT(null)CHR$SQR=SINPEEK>ATNFREPOKETNOT^CLOSE^*THENLOADBINPUTCLRCMDCMDLOADTAB(DATAy|~ENDDATAINPUTREADegGIKNPwy|~ENDCHR$(null)READeUSRFREINTLOGSTR$sPOSPOKET/^CLOSE^<TAB(RETURNDEFSPC(GDEFRESTOREPOKETAB(wSQR(null)(null)(null)(null)INPUT(null)+POSSIN>LENLEFT$FORuu[CLR*AND^INTOR@BDIMLETCMDOPENREMSYS(null)y|~ENDDATAINPUTREADegGIKNPwy|~END(null)(null)(null)egiPEEKANDpsuVERIFYTAB(FN*ANDOPEN/ANDINPUTSTOPPRINT#GIREMLOADPwVALDATASIN(null)STR$(null)(null)sgiVERIFYSQRpsSQRFNNOTWYOPENTHENSPC(NOTGOTOINPUTGOSUBLOADRETURNPRINT#LOADSYS(null)y|~ENDDATAINPUTREADegGIKNPwy|~END(null)(null)(null)USR*LOGSINUSRSINATNLENLOADDEFTAB(SYSi^GOTOORVERIFYDEFGOSUBLOADRETURNKWAITVERIFYw(null)(null)(null)(null)DATARIGHT$(null)USR*iEXPLENwLEFT$LENPOKET/NEWCLOSE^`INTNEWDIMGOTOVERIFYCMDRESTOREPOKENEWLOGy|~ENDDATAINPUTREADegGIKNPwy|~END(null)MID$READePOS^SQR=PEEKSGNCOSSPC(TW*(null)ORFNANDINPUTSTOPPRINT#GDEFRESTORECONTPRINT#LOG(null)(null)LEN(null)(null)INPUT(null)POSgSQRATNuPOSSINuPOKETHEN-Y[GETFNSGNSAVEDATAGOSUBVERIFYRETURNPRINT#LOADSYS(null)y|~ENDDATAINPUTREADegGIKNPwy|~ENDCHR$(null)(null)CHR$gPOSRNDLENPEEKsATNPOKETHENW*-/=ABSLOADPDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADejGIKNPwy|~ENDDATAINPUTREADeGOTOFRESQRn>ASCVALPOKEPOKE-YOPENTAB(<bRESTOREREADPRINT#LISTLISTSTOPGETPSQR(null)(null)(null)PEEK(null)ASC(null)+SQRiDIMnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegRESTORE>PEEKpSGNLEFT$NEWPRINTCONT/[TAB(<ABS@STOPSPC(LETPOKEPRINT#CMDPRINTVAL(null)|CHR$(null)(null)(null)(null)POSNOTUSRTANnINTCHR$uNOTCMDCLRTHENAND^/>INPUT#IFRUNSTOPRETURNCMDNCLRLOGy|~ENDDATAINPUTREADegGIKNPwy|~END(null)(null)LEFT$<giOREXPEXPLOGLENLOADNEW-Y[TAB(^b@DATASAVEPOKEPRINT#CMDNEWONVAL(null)|(null)(null)RIGHT$(null)(null)EXPORFRESQRnINTCHR$uNEWTAB(FNCMDEXPORGETABSGOTOONWAITGIREMREMSYSMID$y|~ENDDATAINPUTREADegGIKNPwy|~END(null)(null)(null)USR*iPEEKUSRINTFORuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADejGIKNPwy|~ENDDATAINPUTREADeGOTOFRESQRn>ASCVALPOKEPOKE-YOPENTAB(<bRESTOREREADPRINT#LISTLISTSTOPGETP(null)ASC(null)(null)RIGHT$(null)MID$(null)eNOTAND=<<CHR$COSNOTPRINT+Yu^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegDEF(null)RNDINTsLEFT$LISTTCONTSYSAND^GETINTSTOPREADREADLISTIPRINTUVERIFYMID$(null)|(null)ATN(null)INPUT(null)+gPOSFRELENLENsCOSOPENTOSPC(-ANDOPEN^ABSLBGOSUBLOADIKLOADTAB((null)y|~ENDDATAINPUTREADegGIKNPwy|~ENDVAL(null)(null)<giLOGTAN(null)ASCSQRCLOSENOTWYCLOSE=`bRETURNONPRINTCONTICMDREMCLOSECHR$COSLEFT$MID$VALDATA(null)(null)+giFRE<LENsuSGNGETSPC(/TO/^INT@BGOTOLISTIKCONTVERIFYMID$y|~ENDDATAINPUTREADegGIKNPwy|~END(null)MID$(null)POSORABS>LOGSTR$ASCuPRINTVERIFYSTEPCMDCLOSE*SGNbRESTOREREADPRINTPRINTISAVELISTCLOSEASC(null)(null)SIN(null)ASCMID$READNOTAND^ASCnASCPEEKMID$FNbWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADejGIKNPwy|~ENDDATAINPUTREADeGOTOFRESQRn>ASCVALPOKEPOKE-YOPENTAB(<bRESTOREREADPRINT#LISTLISTSTOPGETPTANCHR$(null)(null)RIGHT$(null)(null)(null)+SQRiDIMnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegVERIFYsUSRCOSCHR$MID$LISTNOTCLOSENOTSTEPj`bGOSUB+ONRESTOREIKGETPRINTwCOSLEFT$MID$VALDATA(null)RETURN+SQREXPlnTANSGNLEFT$RTLISTNOTNOTTHEN^TAB(RETURNDEFGOTOSIKLOADTAB((null)y|~ENDDATAINPUTREADegGIKNPwy|~END(null)(null)(null)FRE*USRTAN<~suNEXTSPC(CLRTHENCLOSEFRE`bRESTOREDATADGRETURNPRINTNPSQRLEFT$RIGHT$(null)(null)LEFT$ONREADe*INTFRE<psSQRFNNOTWY-OPEN=NOTREMIFPOKEGIOPENCLOSESQRMID$y|~ENDDATAINPUTREADegGIKNPwy|~END(null)(null)(null)SGNPOSEXP/LOGSTR$FREDATARTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADejGIKNPwy|~ENDDATAINPUTREADeGOTOFRESQRn>ASCVALPOKEPOKE-YOPENTAB(<bRESTOREREADPRINT#LISTLISTSTOPGETPCHR$ATN(null)(null)RIGHT$(null)(null)(null)FREgDATAlnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegLOADATNATNSTR$FREuRTOSPC(^/^`ORREMPOKEPOKEGICMDREMCLOSECHR$COSLEFT$LEN(null)DATA(null)(null)+giFREu>ASCVALPOKEPOKE-Y[^NOTRNDLOADIFVERIFYCLRRETURNKNVERIFY(null)y|~ENDDATAINPUTREADegGIKNPwy|~ENDASC(null)(null)THENNOTEXPINTSGNpsSQRFNNOTWYCMDTHENFNOR@BSAVEPRINT-SYSLOADSYS(null)y|ATNLEFT$LEFT$(null)READeEXPFREATNATNpsSQRSPC(TW+OReSTEP^@BINPUTGIKGETOPENVALy|~ENDDATAINPUTREADegGIKNPwy|~END(null)(null)(null)SGNPOSEXP/LOG<FREDATARTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADejGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADegilnpsuRTWY[^`b@BDGIKNPwy|~ENDDATAINPUTREADeg
  5.