The Big List of TRS-80 Software

Willus.com

Home | Archive | About

VOODOO.SNP (15548 bytes)

EMULATE AS: DEFAULT TYPE (CMD) | BASIC program | Program on Disk | 2-Disk Debug | Disk Download

SHOW BELOW AS:

BASIC program
(download)

Text File
(download)

Z-80 Program
(download)

EDTASM File
(download)

Graphic
(download)

Hex File
(download)

SCRIPSIT File
(download)

Return to TRS-80 software list.

42241 CxCHR$TANDATACLSX'^CEXPxFIELDnCSNGDIMDEFDBLCVDQ;NEXT<"j|DHSQRINPSTOP\sR
19689 FORM	AUTOUSINGKILLSYSTEMeSVARPTRSQRREAD^eCLEARSETu#DEFDBLINTCDBLVrCMDPOINTGOTOPOKESGNASCDEFTRESTOREzMKS$lyPRINT45PRINTDEFSNG{]iRESTORELINE[FF]x!RSETCVI&DEFDBLTANONBLOFOSQRMEMMID$DELETEDd=jNEXT9k$CLEARNOTREMSAVE[KILL-TOSTR$#SETINPDEFSTRRUNDATA	gGINPLOF&CSAVENEXTORFNIFSCVIA|INP6CVSLETINPUTSTRING$H"RESUMET6DEFDEFNOTX[PEEKPOKE)RETURNox0RND1CONTLOAD-ONSET^{OSETyDEFSTRRUNNERLGETFORRESUMEFIXSGNIFPNEWLLISTNEXTc	@SAVE>'LSET4LOCGOTOLISTELSEnSAVERESUMEl()LISTUSRRESUMEVOUTAUTOINPRERESET+KILLCLSfNEWPRINTREADCDBLtgu&sMID$VAL#EDITTAB(DEFSTR<INTCSAVEF$ASCSTEP2LOGFREWSTR$PUT@6FIXXFIXKILL?READwR
=READlCSAVETRON{V^STR$o
O0ELSE:NMDEFSTRSTEPDEFSNGoDEFINT=LIST(TRONUDIMRSET[FC]AATN
50041 PUTCONT	RETURNTAB(9CMDfLEFT$wFNycPUTCMDOUT'#EXPUFORIDIM9..4=ODEFDBL'sINPERLATNCVIEDITVARPTRMEMIFx:<ON"STR$2ENDINTy[FE]ERRORRESTORERANDOM[FE]EOFDATA5DEFSNGb{KSTR$DEFDBLLINENAME2g'*[KVRRETURNLPRINTJGET^%tLOCFOR_TROFFERRSTR$`CDBLNAMEIFDEFLPUTSETxUSRCONTh=uOUTi3EOFFNSAVE&LPRINTCLSLENDEFSTRMKS$TRON6LOF}LOADKLOC"$ANDELSEtERLI]NEXTUSRSTR$USINGLSET[FE]7RESTOREERRGOTOL^d-READqLPRINTVALcFREXc1>3[FE]3	FORFNINT;VARPTRMKD$va|^t}LSETPOSOCVIRCLSLINEF+,TAB(&LOCDEFDBL<xCSNGPRINTs<GOTO-GOTOLOADLOFCLSPUTjSTOPE@>8oTANMKI$EOFQ4/~*SQRIRUNDEFINTTHENMKS$LLISTSTRING$RIGHT$EOFRANDOM[FD]FIXSTR$RESUMEdTHENg`ASCUFNRESUMEzTAB(CLSLOGLSETABSELSEMKI$EXPMID$l~LOF5F=UPEEKLSETDEFSNG>LLISTRESETSOPENyREM1/,DIMoPOINTSTEPzdiDIMCLOSE
tCINTTAB(CLOSEMEMCVD_>MKS$FIXPEEKGCLSLSETrCLS
LLISTCHR$CLSDELETE+*
34052 WtGOTOMKD$CSNGr*E
33539 RANDOMDELETELSETUSRPEEKwq+X7iGETb{CVSDEFSTRCLOSELSETbAND8EOFGFRE(SETFNq>CTAB(uDEFDBL
CSCLEARLISTCSAVEEPOKEl4q*zBmCLEARKCLOADERRORD[FF]LLISTDIMfLEFT$REMOLEFT$NEXTMPOS8RKILLnPCLOADRNDaANDozIFFIXSTRING$COS>DINT4COSCHR$VARPTRCDBLCDBLUSRNOT1vv4RIGHT$YSYSTEMMID$SQRIFM[FF]NEXTTROFFHLEFT$LOF0SYSTEM.(=LOG'sINPUTLLISTLSETPRINTNEXTOUTCVDLPRINTSTRING$`}A]
3520 XFIX<RESTOREABSRNDEOFDATAVALKC1MDELETETAN'THENc1{5qKLINE-}MID$MKI$\zULOC
49775 GOTOLINECSNGPEEKCVDLEN;jERRDELETELSETOIkGOSUBCDBLMEMyOPENj]ERRMCLOAD+DELETEMKS$.?STRING$uCLEAR&RIGHT$DEFSNGINKEY$3S
41881 ^FORLPRINT_[FE]LOGSAVECVIS
17437 3LSET'*15ATN-[MKD$VqRANDOM-RANDOMq[WASC'UPOSCOS!SIN(rOPENo+:LOG_MKD$ZNEXTMERGE.PEEKMKI$SAVE!RETURNRIGHT$'TRONVALLLISTCSAVE:MERGEATNgPOINTFIELD#NAMEwSET4kMKI$CSAVELPRINTCVSINPUTLETPRINTTHENAUTODATA\RNDKILL7TO*NEXTDCLSDELETERNDRUNNEXT6#MERGEc[FF]RTAB(CLOSEORRETURNREMCVIFRE{FRESINORDEFPOSSAVETRONvPV;FNCVD%CVIREM6READt6)GOTO(SGNSTEPONCVDCVIRSET8LPRINTONQRIGHT$LPRINT[FC]LISTSDEFDBL\1[FE]s?ZRIGHT$ZCSNGINKEY$/BSINBlGOTO-
[FE]PUTOPENGOTOK;LEFT$SQRFREDATAINSTREXPLOGSIN%LOFCOSMKD$dTIMESaCSAVE1{RIGHT$ERLPUTLLIST1OR&CONTYUSR)nPRINTxCLOADFIELDLSETCDBL'INPUTLOADx[INT[FF]FREAUTO`GOSUBDIMdCyCVILSETEMKI$CVSINPUTq>1DEFDBLFKILLwLOAD,IF)c[FD]~n[FC]STR$SQR'GOTO<RETURNCLS-FIELD'INPLLISTSTEPPOSgMERGELINE8LSETPUTTROFFo+]ERRORtFRECONTLPRINTzSGN"u2>OUTp<y{AVCVI{MKI$=INP?GETSTOPSETGOSUBMEMCINTRSETLPRINT[uqJpDEFSNGBEXP<u7BNOTTANMERGEDEFSTEPSTRING$FNSTEP)-ov9TANGETLINE
28686 Z $CINT+LOADRESTORE%SET5I!READl3INKEY$KORVARPTRJINKEY$CSNGERLRNDl+"RETURNREMTHEN-IAPjRANDOMSTEPDIMLEFT$( OR&CLSSINPUTM{!>IFPVALCLOAD%iCSAVEDEFSTRI5}STR$>)<+POINT+
2KILLLPRINTKILL~|[FE]DEFSTRVALCSNGxELSE8PUTUSINGi'ERRGETREMSQR2?RIGHT$
49753 @(TOGOSUBCOSCLEARd[FD]RIGHT$CVS63?JEOF+ERL!INTMRETURN+[FF]KDATAU%,8e4NEWRESUMEFIELDkPEEKLOFGOSUBERRON[FD]CDBLRANDOMPOSVARPTREOFSTOPFREDATAfgINPMKS$%DELETETROFFRESUME#INPSTOPATN5i[FC]ABSCLOSELISTCINT
SETPfCSAVEAND-EFOPEN"+CVSmDIM	ATNTAB(#CSAVETHEN"2uJPOINTREDITSETLRANDOMGETINPUTDEFSNGLENABSRUNTCVDzCVIINSTReHGJsCVIu[FF]FIXGETERLgSAVEDEFDBLhfFIELDUSRDEFDBLZ0OUTCLOSEY/BMKS$&MID$RNDkLOADLINEVARPTRZNEWm#ZF/NEXT CLOSEINPUTATN}CDBLNEXTY%CVSPSTOP
62302 TOcCINTRNDSINRANDOM[AUTOCSAVE&
55629 MKS$TRONo60GOSUB\CVS*SINlECLOSEm'CLEARgxCLOAD|>CINTFRECLOSEEXPMERGEERROR~POINTaRIGHT$PUTVARPTRVARPTR'PRINTVALSTR$SETVAL`FREFABSR2THENANDTAB(tMEM5uuhSTR$(DEFSNG,UO\IVAL<DEF(RETURNLOFDEFDBLSTRING$GOSUBMEMFIXRSETLPRINTLENVKRL8ENDAUTOb*o^RNDCSAVESIN[FF]RNDDATACVIDEFSNGlr	DEFDBLRESTORELISTSTR$ClJG3%MKI$*CVILIST%RESUME2J;THENHLOClLOGDEFINTv[FD]RANDOMLENGOSUBATN=INPREMLEFT$
8788 /0MKI$8CSAVESTRING$MONUSRDELETELINEwG(jECVSCLOAD[FC]ShPOKELOG(9fEOF#{TROFFSGNTHENSQRE$RSETLPRINTEXP;
59342 C[FD]x`DEFINT7PUTNAMEhSYSTEMINSTRUSINGRESUMEERLtoSINOPENERRORPOS;PRINTDEFDBLREAD[FD]ICONTTAB(DEF7pS[FF]GOSUBNEXTERRTNOTDEFSNGCOSERRORYk*V<+9STR$VJGETSTEPeTHENTOLLISTRIGHT$RIGHT$MERGEORKILLMKI$f+*LSETFRECLOAD5GCVSPOSwRND8LPRINTCLEARwLOCCLOADLOC+yLETTIMESTIMESONEOFl;NEWafSTOPRESTORERANDOM0,ct<CVIDEFm;<LIST4ATNNEXT3fINPUT8PRINTG%NjLIST`=*p>OUTTRONDEFSNGTAB(LINERESETESAVEiCLS\PEEKp7RANDOM9ERLTROFFSETFORTO=[FC]9"READm3AMID$CSAVE;LEFT$DEFSNGTROFF'TANPUTCLEARPRINTSTR$9TROFF{RND,ANDEDITRESETDEFSNGUSING*LLISTGOTO;-ASCMKI$	z[FD]	FMKD$RANDOMERLPUTPOKEA$CVImCLS[MKD$DEFSTRSYSTEMONwCLEAR9	&XVARPTRTAB(RLSETRESETNEWCINTGETDIM;LSETIFx^MEMTRONz*uBDEFINT[POKE7iTAB(LOFLPRINTMFIELD\RANDOMINKEY$THENCLSs6DEFCINTaIFPOINTVAL\ECVI[(p6FRELENSTR$WCOSSTOPANDCVIfEND
X .TANRESET^_+s&JSIN[FE]zONINTTOjw}STR$"VARPTRsFIELDIMKD$ERROREDITCLSZMERGEfATNBSABSOUTTANERR~INT8MP~
40043 rCSNGSQR}
D
GET7+RESETRESTORE<LENDEFDBLvPEEKMEMs|kSINTOuLOGLISTv4iFN2GDATAkAUTOMKD$READq#LENm*INSTRSTOP#CDBLrhRETURNABSEXPQKILLX
6CLS><fMKD$LINERESETKGETy	DIMfMKD$NANDDEFSNG,INEXT;]RMKI$RESUMEATNCVD<EOFPOKEb}RNDRRNDdCVD[FD]AUTONEXTSTR$LOG-:GOTOLINEKILLUSINGSAVECSAVEUSRPUTINKEY$8DEFSNGUNNHMID$INSTRCVD3^r9zQ-POINTSAVE<MEMxXSTEPFORTRONrATNPEEKCVSYMERGENOTdGETdQPOINTLISTLEFT$0zx-RAUTO{)ANDMKD$]+ALEN\Jl:bpABSALISTyRESETz{KILLTO*){SETREAD_8]RJCLOSExSTEPCLSSAVE"~MKI$ATN,ONQCINTLSETLEFT$CLSrTANUSRtHA)TSTOP[POSERRMEMREADo[FF]STR$%2SYSTEMORSIN3LOADCOSENOTFTAN6NEWINTwCLOSEVSQRELSEgTRONIKILLAUTO2FIXj[FC].FREZISQRczPRINT)JNLOFLETERRCINTs=gTANCSAVEFIXCVILENRNDMEMvGOSUBMID$INPUTREM-JREAD[FC]~CVSONLSETohH30ENDRESTORE#DEFSNGFFNXPOS!CONTSYSTEMTROFF[FD]MEMLOAD	]\PUT}8EXPDEFDBLTRONBoKILLMKI$[FC]DATACTROFF1[FD]EDITDFRELEFT$CONT)ATNk5NOT1sEOFyTAN
51823 ):MKI$FIELDTIMESNEXTABSDEFINT/-kCINT	CONTATN$E#6.LOADCSAVESTEPiINP<RSET":;STEPAUTOEOF-LOF
/xtkEDITx<AUTOMEMSINUX'NEXTCLOADt3'RRIGHT$POKEINPCCMD>cTOIKATN/C0oxCLEARINAMEJCLOSE"DATADELETEFIELDM.+:IFPCDBLTOs2STR$DATA>vFIXA	TROFFRESUMERSET.HSYSTEM-SETLSET
CVSDEFSTRCINTCLOF0xDATAvLOCCVIbCOSRUNCHR$ASCLEFT$t{[FF]
55897 Z5LSETLOGMKD$PRINTCONTCVD[FF]6fP@[FE]LETIFERRPINP>ERRORm"THENTj#Q}..NEWOGETCLSEFRELOFFIXTROFFLPRINT[FD]MEMTAB(RETURNJ[FC]EDITEDITINPINKEY$ 4GLLISTFORM>STEP=SGNpCVS[X Qz"/DIM{TANRESETn%yyeMKI$DEFSNGCONTREADGOUT#LLISTCONTtDELETETAB(FIELD=ONSGNSYSTEM[FF]>TAN%PEEKCLEARyNEXTREMTAB(LOGLINE\/_LOADRSETCLEARMID$EXPyMjSINmLvINKEY$SINCVDNOTCVDLOADTDEFDBLRIGHT$
5ZLOAD'USINGMKI$0USR>mDEFSNGLOGUSINGv%\3DEFSTRLOAD@`OLOADPAUTORUNSYSTEMFIXSYSTEMEDITVARPTRRANDOMDEF`^WCSAVELPRINTlkSGNk/LOADsRANDvDEFSNGLLISTTANQDEFSTR=2INSTRPUTDINPINPCINTDEFSNGFDELETEPOKEABSPOS-FIXiATNERRORBLPRINT/RUN<=SETr^FN[w'[FD][FC]SETVARPTRLINE TIMESDEFINTCONT(GLOF=2+LSET=INPGETwERRlYTOASC61|DATA">VARPTRSTOPRANDOMYSTRING$Y.+ASCPRINT[FC]=INTc93CLOSELOADTANOUTDEFDBL-USR|gkSPOKE*VARPTRZ9jRNDCSAVE[FF]CLOSELETLET'FORwh[^DELETECONTNAME[FC]PYvTF+k'8DEFDEFSTRa>;Dd= _LINEMKD$GET4oDATACuzCOSPRINTCLEAR`~CLOAD
49730 Y=CINTOUTh[FF]Gx
19437 MKD$2LEFT$POKETAB(I#$TEOFqATN ,CINTGOSUBFOR'SET'!Mv<}DEFDBLDEFSNG{TRONYCMDXaLENw>f/MULOGBINKEY$'J7MID$jTOfRIGHT$INPRESUMERUN2CLEARx@RESTORESGNTHENSTOP%ZRETURNoF^bKLISTINTwMKD$STEPDINPUT[NHMID$MEM|b9FIELDFIELDCSAVEDATASTEP4!ORINPfuDEFINTrGOSUBJ$SINTIMESTHENCLOADKQU!NOT(MKD$FNINSTR'DEFDBLTORETURN
NOT
63501 SGNDELETELENLOFLEFT$MERGE~JhTODELETECSNGCSAVELINEDATAk*REM;mIFSINDELETECONTrGETCHR$[FE]PEEKIFQEXPFN~*#NOTEXPVALIF6B=yZ*^ASCTHENSETiLPRINTN	>-EDIT\_LSETwhCHR$NAMEuNAMELOGENDSTEP|J]_SGN-CONToMKD$~SGN[$nPOKEhxGOSUB+OPENDEFSTRSTR$EDITINSTR*RANDOMSTRING$GOTOSGNCLOSELOC!>GDEFnRSETCLSUINSTRVARPTRLOC8POKE6'?+N+DEFINTCLEARMERGE[POKEa3~
POKEqa6rDEFCONT:DEFSYSTEM^_CSAVE)oTRONCLEAR"SETFIELDDELETE3SETERLTO(qln*ORESUMEINSTRONINPfLSETERRORSQRLLISTkAUTO6STRING$DATA<INPUTMERGESINFREvDATADATAMEMCVSgLIST"[FF]kDEFSNGCLOADSETGOTODATAVARPTROUTTAB(CVSFIXHNNsDEFDBLPNAMEc?>[FE]END[FF]FIXTRONENDCVIRETURN8[[~MID$LPRINTINPl[FF]MKS$RESET[FE]ERL
22665 STR$EXP5}%I#CLOADYNLOAD
3272 LOC-CVD'GOTOZR1ATNCSAVEQizoCSNGQLPRINTOvORLEN#)OUTRUNEXPTHEN1n[FE]TO*oCMDzZ^CHR$NAMEsDEFDBLPRINT#TROFFNEWSYSTEMTO}USINSQRINSTRREMRP`VARPTROJ CLOSEW@NEWR}CMD,HCVI*POSy%7RyGOSUB8#kRNDNAMEREMPUTPUTLOGLINEINP:RESUMEpVARPTR?[jOPENXNEWOUT.eLOC6RESTOREWAND
TKDEFSNGPEEKAOR1BLPRINT=POSCLSMERGEPOINT^4ZSTOPTHENSET^X@	xLPRINTLOGNAME;f[FD]DpxX:qTRONSTR$LEFT$S<n9OPEN[FF]SETCVS^8[FC]USR]LINERSET`LLISTCLOAD}?ASC+READLEFT$?-Q28POINTFNINT2USRNEXTFRENOT*OUT5VARPTRRCSNGFRE \gC=FERLTROFFLINEGOTO!RSETGOSUB`gwuINPUTENDRUN^LOADCVD
RND.STEP
INKEY$[FE]JCVDvCOSLPRINTF*RHg
;wCOSNEXThTRONMERGERESTORE-CLSOPENy`REM4PRINT9LENTRON6LISTMKD$8;CSNGABSEXPTROFFRSETLSETSk*ASCRANDOM`CSAVEIFINP"w~=/PEEK"TLLISTjSCLEAR$zMKS$cCdCSNGMEOFDATACHR$EDIT<FREERROR
VFIXhFNCLSCVS	ATNATNINKEY$NEWa[FF]oRg[FE]:[FD]GETFIX6MNEWLETDEFSIN.RUNINP:.[FD]NOTHPRINTINPGETpFRE07Za9FJPOSORSTRING$ERLCSAVELOCASC
15598 >9MEMGET-FNDEFINT O;">KILLERR6)LOF(9(sOUxKILLLEFT$RNDDEFSNGrDATALOCSQR(CLOSEUSR/DaLENCLOSECFORDIMLLISTOR[FC]VOPENLISTRESETINT]POKE/LOF CLEARKILL
CFNEXPTRONMKI$.AFTRON]MKD$FREJMEMVAL,>JRESTORERESUMEQzRESUMECINTfREMORM*EDITISABS[FD]ERR1:TAB(XRSET]LSETCVDNTIMESPEEKCHR$CONT[FF]
50496 <LSETCVISETKLOADBVAL-ZCLOSEBALENxm7^NEW/DLENCSNGD:NEWDEFSNG)MERGETIMESpRETURNENDdhRESTOREERLB	[FC]CLSLOC$sLLIST/ZEOFLOG|MKI$IFTAB( DINSTR3~>*#DELETEINPUTDELETECINTPOKECLSSTR$DEFINT)JSAVEliIF;kCDBLFNANDINKEY$vQABSWCVS/[FD]Z9hNOTSET{LSETMERGE!GOTOTANGOSUB)DEFSNGGOTODEFDBLEOFSETLOGHTIMESFRENOTkLSETLINE-RNDABSCDBLSTOPB3a+MKI$bRXvRUNTCSNG
65090 KILLT|,wlABSpTRONcSTEPRjRUN=LPEEKDEFSTRdGOSUBLSETW[FE]/CLEAR?n1HAMKI$EDIT4dINPUSR7SINSYSTEMERRORENDNAMEGETABSELSEOPEN[FF]TROFFABSr}FIELDSQR=EENDPEEKj_MKD$CLOAD	TANCLEARLOAD[v8RSETERLKILLERLRANDOMLLISTCLOSE[FC]-LUCSNG1OyVARPTRNEXTPRINTLETl=TAN#-BDEFINTj>J'RESUMEDEFDBL
%~LSET+POSPEEK/CVDFNCLS2STEPSTEPPOKE[FE][EDIT@RESTOREPUT)ONxPOINT[RLETPRINT[FE]GETRSETu-?DATALOAD}SYSTEMRUNrATNNOTVARPTRRND[FD]YRESUME.&SSLOC-]DEFSTRTOON VALAh8>OEOFv1PUTzxGOTOLOG@LOGSET$}+DIMSTEPLOC
43614 RALENKRETURNGOTOo/7FIXqCOSS~HCLOAD[LENKILLINKEY$INKEY$RESTORECVSELSEPUT=MKI$"^CEND-FREwTRON[FD]CSAVE[FF]STOP*\NAMEINTSYSTEMUSRDEFINTRND*ATNLOFDEFINTqRUN4MKS$USINGBP%EDITMID$OPEN[FF]RSETENDALPRINTQ[LOADSGNCINTMERGE
<POINTCMDSYSTEM:|STRING$RNDPEOF6CMDLINEMLENDEFINTqIePGOTOSINPUT[9o[oDIMYCINTa&3DlDATA@>RIGHT$ANDCSNGFNhLOCLEN>jc\/pPOKEPEEKs8J6USR>'STOPLENELSECMD$ERROR'6CMDTABS)[FC]SETSTEPDIMMRESUMEVALFRE[QMKS$5CMDCVIm
ENDDELETENEW'CLOSESTRING$u{KPOINT\DEFDBLDEFSNG
34692 PRINTSTR$MKI$<FOR;CVSMEMnOGS#HSTOP@USR<LINESTEP/CDBLGOTO`2[xVARPTRATNCLOSEweMKD$RANDOM}MKI$cbCLEAReDEFDBLRESTORE^GOSUBDATACLEARMEMeMERGE],#REMuEDIT6dINP+,CHR$PUTATNv/CONTNEW<NEXTLOCodSTRING$NCDELETEFNLEFT$DELETECVSwLEFT$f#0TO.@STRING$NAMEELSE_SETLOGLISTSQRRETURN_ELSEINTW*OUT^;ICSAVEAUTO?RETURNA-RSQRTOREMTAN%/1OPENRANDOMMEMCVIMEMn(PRINTPEEKSQR!LCVIs$
59072 Qu=MID$LISTSTOPINPI<ORP0+`[FF]USR-THENMKI$ATNSTEPaSGN[TRONSAVEewLOG(7PEEKY>FIXpzVARPTR*DEFSTRERRORSORRSETo{USRiTANRNDGOSUB4MKD$ERLINP6CLEARMKD$LEFT$
THEN^=ELSE7!&STR$CDBLINSTRMID$CVDSYSTEMREM!SET,[FC]DIMp<-RIGHT$TOhLPRINT'M[LOCCSNGRESTORE[FD]F{AAND'USINGhINKEY$MKD$8?LENh5GVARPTRRMKS$RINKEY$*TUSRINKEY$ADATAPRINTLSETCOS.^ERRSTOPRSET3D}ATNSTEPOPENMKD$*`ELSE8PUTLPRINTrLPRINTTAB(SGN'LEFT$t{[FF]
49753 Q?[FC]TRONFIX[FD]ASCMKD$VAL8IP+MKI$IFRESTORE<\NOTDEFSNGFIXTHENYqc{jP4LOADMDELETEELSEKVARPTRLPRINTCSNGMID$STR$[FD][OUTCVD/RESUMELINEDEFELSEINKEY$mgVARPTRCDBL,LOADRMKS$ASCTOCOScCONTCHR$SABSR<mABSANDcFREpLOC>LETLETzOCHR$bREMIOPENREAD3RANDOMLETSTEPcPEEKA,LEFT$EXPtLOCJERRORl+AUTO=~[FF]LEFT$STRING$A*FREr2DSGNPOINT&hb[FF]pSAVEjDIMCOSZVSAVE_GOSUBTLENVALCLSANDREADCOSINPUTbOUTdMID$RIGHT$*[FE]5REMDEFSTRJSAVERtHSAVEMKI$jzNOTCHR$ASCCLSSQR<P^FFNFIELDLPRINTVALTIMESSNEXTN4VALSGNRSET>LOADSAVEYm<MKI$CVIDEFSNGMKI$ERRORa<=5SAVE"[@pDIMlDEFSTRY<[FD]XSTR$*LENEDITPOSELSE+-SGN`SAVEDEFVARPTRREM`[FC]LINELLOCSETINTw+_INTn
32421 LOG5ub'LEN DIM<ZZG_NEWoLSETgSTOP~POINTMID$SAVEPOINTSTRING$COSCLOSEMERGETANINvDEFSNGSTOPEPRDEFSNGLOADSINTANEDITEDITCOSDEFSNGvbZERLFIELDIFSINrTRON3NEWsMEMSQR[FF]RETURNSAVEPSYSTEM	\ STOPUSINGDEF
TAB(j$CINT[FE]LOC1EXPVXFIELD6[FF]CDBL=7ECSNGCLOSEINKEY$CHR$ORLSETO-LOADRESETCLOADqDEFINT%[okUSINGqNAMEINPUTMrENDINSTRfUIFL#qCVD=PDEFSNGsERL[MERGE}tPEEKBuMERGE!YINPUT$EGET'[SGNLPRINT_RESET;NEXTPOSREM-RIGHT$:|qLOC
23082 QCMDUINPUT!CSAVEELSELLISTPUT{{wp/GETJLOC0.1ERRJCLOSELETGOTOUSR{
ZLLISTEOFTAB(DATAZDEFSTRERRORlDIMPOSLPRINT NAMENEXT7RSET:ORPRINTSYSTEMMKD$TAB(USRGOSUBLSET	UACVIDEFINT`K<.-USINGlCONTSYSTEMvp=}DELETE#RSETQINPm][lws[FC]MKD$LPRINT,mLOCTONOTA}f+mAUTO&MKS$CONTRANDOMTIMESRUNINSTR0<CLEARGOSUBFN"YZCSAVE*O?m`TRONCVSSINCONT9LOADRESTOREFORDATAjvLOGtCLOSESTEPePEEKINSTRINPLOGNEWvGOSUBDELETEcFhiCSAVESYSTEMCONTEOFOUTATNCMDLISTOPEN+/TANSYSTEMEXPGOTORANDOM3LPRINTTROFF[oSAVECDBLSETY[FE]SINEORLINE
44013 4wLISTCLEAR*d<POKERESUME0[FC]\8LEFT$PRINTPOSU TROFFVARPTR ATN]RSETfLOCTROFFO?*VDCLOSElCMDGETFREPDEFDBLDIM8KTIMESTRON#INPINPUTwERRpYMEM{RETURNLETDATA)->ENDPOKE~TjuSTOP[FE]'FNRNDCLOAD)FIELDATNeDEFSNG>CVD4f_>}~ANDCONTSTOP1RANDOMp\STOPTO NAMEAMSGNT8FIXLPRINTENDCOSJq-)INKEY$'*RSETMERGEPRINT'ATN7qfCLEARNAMEINKEY$-YORLEFT$ATHENLLISTINTINSTR9SGN&XERRORVARPTRREAD,c /.ERR
27961 OR%RESUMECINTMKS$Vf7hLSETFR[FC]PRINT&rPOKELOG+sCVD"6TROFFUSINGSININPUTsOUTTAB(RIGHT$,zPEEKLOGOPENLENxtINPUT5LSETCVIR[FC]MEMMKS$<PEEKT=NLETOPEN/STR$zREMSAVELOG/iEDITLINEMLEN~_;aINPUT>MEMFNEXPzMKS$(DEF;HRIGHT$*'gVcg[	RANDOM/LENMKS$(sCVD
LISTEDIT:|.FN1NEWqFIXCLOADEND_DIM[FC]FRElV*-VARPTRCVSIFSCLS aWERLTHENCONTvCONTERLbREADEDITLENiS&,INPSINbCONTLEFT$.FNAND.] CVDRESTOREm[POINT%OUTTOeCVSTRONDEFNEWABSKILLERLCVDTLOCINPUTaH@&K[POINT[MEMAND!LSETDEFDBL%wJEEXP>NEXTR+MKD$STR$LNOTD]CLEAReDEFDBLMKI$CRANDOM"LENCONTGANDYIGQRETURN[
oOUTSTOPMERGE{COSREM	)CVSPTAB("CDBLTROFF;DEFSNGbPRINTCLEARNEWLET1RESTORE[FE]6DEFSNGRESUMERNDGONINPABSFIELDt3+READ]1LINE3-YlUSRSQRq-=T,ABSeORRSETV-LSETNnJ-DIMPfSTEPSTOPRSETrRIGHT$
ABSvt
2|0'LOF 2QAONERL<fEND%TAB(STRING$NOTLOFINSTRLOF_)'sINTSQRUSINGzOPENLEN<JxLOG>*~POINTX"LPRINT5*RANDOMMSQR"DEFSNGORtRANDOMSTR$TROFF=>SYSTEMSQR
51070 cREADLSETFKILLCVDUSINGe|vMKI$NAME9GOSUB&MERGE%TAB(;[TANEDITX6x
TIMESKILLOPENTC/$INKEY$ O5STRING$ORTAB(ERRDEF0wwERRE
26849 STEPASC*"SAVEV%`MERGE?EXPSTRING$LOGTIMESzLLISTt[FC]wCSAVECDBLGOSUB[FE]POSA%RESET
[FC]CLEARLSETCSNGPNAMETAN-Io1EXPEDITeUSRMKI$LINEGETNEXTTIMESEOFREMwRESTOREFBmERRKILLGET=ELSE5RESTOREDEFSTR{POKEOfMEMoTggMASC"CDBL-)LETEOFSQRLLISTLPRINT/SETMKS$RETURNh*POKECVIINTATN[ JTRONNEW@CDBL^MKS$>rCONTNEWqMERGEYON{AUTOLOCERLDATA"\INKEY$8dCHR$TORANDOMNG<OUTVENDDEF@ZQEOFOCVIINSTRWdINSTR^POINTI82STRING$RIGHT$+LSETCVSTIMESATNFNINPCOSLOCCLOSEREAD
J~eCLOADREADCSAVETHENVARPTR[FD]<dXxSINRESETSIN}ERRGETPRINTIFgCLOADLOAD LOC{RESTOREERLCLOAD8eEmwCLSTRONZoRNDINPCSNG-INPUTSGNwOPENPCSNGEDITFREWCDBLLSET@pvCLOADDIMTAB(AND#PEEKCINTy[FC]LSET`DEFSNGCONTINPwn=qKILLDEFSTR'NEXTjxCLEARqNhCDBL\CSAVE+FIXTAB(LINECONTDIM
25517 yPRINTPUTnvTRONTAB(xFNLOCxv:USINGDEFINTs`
7028 'Q6TROFF@LEFT$X9..MERGECINTOLOG']SETNEWDELETEDELETESIN-CVDSTRING$ABSphdnZLLISTaCMDINTm[FE]c gN[FC]9TAB(NAMEgORTHENRUNokOPEN3LOGDEFDBLSYSTEMRNDCLS{vRUNtPOINT[FD]TIMEShVALLOF
62396 TO%$LOCERLLLISTT%CPEEKASCsELSEERRmFNDEF\ORENDFNb?CINTQFNpLETFNINKEY$FVCHR$"$INTRETURN*SNDEFDBLSAVEi]>LLASCMKI$LSETRIGHT$ 
24283 dWSTRING$CINTRESET>-=XZCONTsSTEPRESETIRUNLEFT$DEFINTOUTPOKEZSTRING$nGOTOFIELD5POKEg
REM[FF]<LINE=REMNOTABSXD.iGOTOLOADSAVE7AUTO{MID$CINTvLOG,)LOCwWv=	@TRONycORONaLOCNOTREMLOGSTRING$SQRASCEDIT<`TOCSNGCMDMID$CSAVE1KGCVSINTOR>PRINTCONTP[FF]NOTPUT<lMKS$YTIMESSYSTEMSYSTEMKILL{+NAME5
9892 )dUSRLOFRETURN~@sATN>READNEXTuu'|ATNJ.[LOADkTOCINTcMKD$ENDPEEKCSAVEMEMCLEARMKI$sINPUT\CLSRIGHT$I&3 pLISTrCVILEFT$ERLDEF@EDITSTR$B7uREMCVDOUT3IF<-MKI$vkRESETFREATN(READ$'EXPW>Vh%
59133 %OSTOPNAMECMD
POINTOPEN}@ERR%SAVEnMKD$SINDEFSNGEDIT:{INPSTR$ERRFIXmGOTOERROR6\LINEREAD=VAL<'AVAL>NOT1ABSJr-PPOS4!SDEFINTo=COSTRONTAB(MID$LOADFNKCINT@GOTO%8IFPUT[FE]\LOGTAB({/LOADLEFT$%WCINT4LSET,CMID$CONTDEFINTTCSAVEZ-INSTRSYSTEMY
.0CVIzLOGMEMENOTMID$SGN[LOADENDCLSTHEN<9cncGETfNEXT
Q&[FE]INPUTLOGRANDOM>RSETPOINTON2M#7=IFRETURNCONTte)	%ANDKCOSYFORCLEARQRNDd>+CSAVEILETnDELETESTR$MKI$CMDMID$POKEEXPRPUTASCLEFT$CGcLIST+MKS$DLPRINTLOG(USINGRSETTAB(DEFINTj\|
27426 SGNPOSsARESET[FF]-ALSETEFIXUSING'[FC] yREMDATAINT^)\SQRRETURN[=,DELETEPUSINGV1SGNSET,SQR[FC]TRONASCSINIRESTORE<ENDSAVEyRESUME3FREPOShRANDOMRETURN9<LINEORZP6sLOGINKEY$CLOSE1ASC8[FE]VAL9CLOAD(3LSET0L j>/ORMKI$u'RESET/ORLOGSTOPREADDIMRNDMKS$CINTCMDSAVEEOF4KLIST[ERROR|-ASCPFNTHENCHR${RSETYELSELSETNAMERIGHT$6SYSTEMtFRANDOMATNPEEK`e15RESETLOCORMxsATNmTROFFCLS<FLET=KILL2_sSTEPvAUTOTO
VALRESTOREMERGEERR*CLEARLLISTREADISQRNAMEC=gYsVAL4NAMEAUTOCVDSINSDIMDELETE7:VARPTRRUNCINT3_RANDOMORjRANDOMON.+VEDITINKEY$jNAMESGNLETLOGs
55912 MEM&TOLINEATN^CSNGTRON@2ATNGOSUBLPRINTSTRING$YVALFIELDN;CLOAD*ATNTROFFCLOSEFNEr5NAMEGOTO9*MKI$ELSEg;LNEXTPEEK"[FC]kCSAVE%pCLEARshVAL\CSAVERESETLOGMEMRNDVARPTRSGNcSETBCVDCONTMEMREMDORABS_CVSDATALOG6FIXuEDITCRELSEEDITCLOSE	MEM>:n'[FE]'INT-QKSLIST<LSETdERRORaCLOADELSEREADREADNEXTEOFCLOSELPRINTTANQKA~NEXTSRSEThJvGOSUBFIELDDEFCINTRESTOREINKEY$[FC]EDIT}:LSINLPRINTFNGOSUBdqoUE=&IF=CONTREMbGOSUB3Kg+FIELD'2RANDOMUEDITDEFINTQ>LLISTTRONCSNG>MEM,
RUNTAB([FF],d|ELSEYCOSFNCVS/gFORVSYSTEM[FE]GETO`=GSAVEKeCHR$MERGESiCLOSEDEFSNG SSIN)INSTR/STRING$ERRE:SAVE[FD][FF]63CVDABSCDBLRIGHT$[UEDIT4iLOFLOADt[FC]RNDOUT<USR5mATNNKILLDIMYINSTR\?[FC]LINEMKD$LIST[FD]RIGHT$EOF"#PCVDDEFSNGFIELD
OR>ERLINP[FF]TANzd$J ,CLEAR7DEFSNGNOTIRUNGETFNAUTOMKI$[FD]+KILL'-DATASYSTEMRSETREMGOTOg)STOP*LINE8LPRINTCLOADpSTEPASC<MEM{/VARPTR6COSTIMESIFSTEP*CLOADzTROFF[FC]COSAeivMKS$.STEPCVI
36097 DEFLOADR5CVDFORg:|CONTwLOADKILLdNEXTPEEKPOKEFORRIGHT$READINPUTNEW;LOFTIMESeHD>AND[INPTROFFENDREADl[FF]ENDjfPUTINSTR-9LOADCVDIRESUMEHZSYSTEMeMID$STRING$fCVDSGNTIMESCHR$:o<vCSNGSINIWDEFSNGIFATNoCOSDEFDBLF.STR$SQRANDTRONBFIXLSETN?[FD]ANDRIGHT$RESUME
TRONLPRINT_t0CLEARLSETOREXPINPUTC#7DEFSNGRIGHT$oUCVSlGLSETmx[FD]0sSTR$CVDTIMESRIGHT$RESETTROFFDEFSTEPd+{[FE]K
NAMETHENREMz[FF][FD]TMKD$POINTERRORdRESUME@GOSUB IFLINEDIMrRND41#bMKD$,CHR$Mo^FIX;[FF]lSTOPSUSINGRETURNPUTRETURNAUTO-LOAD'[FF]P@FWLLISTWDEFh6aFIXDEFINTRIGHT$CVDDEFSNGRANDOM[FF]RANDOM8uQRUNSTOPPRINTCHR$B_#M_!?MERGE*KILLTAB(hDEFINT9AUrRESETu+TROFFzLINENOTSQRCSNGSTRING$>-USR*RESTOREREMUSR61,FIELD,CINT#DEFSTRING$mODELETEGETERRENDC=LPRINTlCLOADMERGE7aSAVERNDHY[ON?lANDRESUMEINSTRUSR;KILLCONTMKI$~cMKD$INPLOF4ONqREM%MKS$NAMEtLOFERLLISTREMLOG ?[FC]POKEDEFSTRERRGzTOGOTOTAN[FD]ASCMKD$EOF6,1BSAVE
50520 ]ORRNDVMID$KDATABl*}))CONTP[FIXSTRING$eERRGETFNCSNG[FE]NAMEFORNEWCHR$/+INPDELETENEWRESUMEqgSQRLOCmRETURN\RANDOMDEFINT%STEPCLOAD?VARPTR:FLET:RIGHT$DATATRON*]bCLOADT0DEFRNDCLSHFOPEN(+[FF](GOTOFIELDCVD3TAB(GOTOfpDATA@>ENDFRANDOMPOKEGOTOLETTAB(GOTOINPUTBTAB(;CSNGPOSb
@SATNxCVILENSAVECLOSE INSTROUTm/	ULOADSTEPSYSTEM@,MKD$PEEKl[ZOPEN'[FE]DIM`CSAVEABSCMD}DEFSNG4q3']ELSECVI?DELETECSAVEDELETE-CSNGDEFSTR	"ASCPRESTOREINSTRCHR$TASCLSETq[FC]INKEY$EOF=]PEEKRSETYk<CLEARTAN>PEEKINPu%7FORCINT!COSmTTAB((ABS0lMKI$URIGHT$VARPTRATNSYSTEMLOGVARPTRMEMbTHENlCVDK
NEXTPOSVARPTRSQRCHR$
[NEXTERROR1STEPDEFSNGmDEFSTRDEFDBLPUTz-8:m''&DEFDBL2G]NEW:PRINTjERRORSYSTEMERRORSTRING$END=CINTPUTLPRINTGET
UM?TIMESMKD$/
mDEFINTMKD$CHR$LOCGOSUBERROR'=zhYMID$CSAVE'USINGTlU
$*CVI0LLISTELSE`NEXTXj BOPENRANDOMODEFSNGRNDKLINECLEARORERR)CMD0RUNVARPTRGOSUBQ=t|ELSE^[NFNKILL CEDITqCMDLEN
11033 !)DEFSTRKJ[FE][FC]ssLLISTIF${LEN))INSTR<INSTRINKEY$tTANSYSTEMCVS7
50138 TAB(<vREAD8SSTRING$CVIdLOFCSNGCSAVE<RND2?[FC]OPENCLS
GOSUBG2LLISTGOSUBTANSYSTEMI[FC]FIXDEFq6CSAVEASCPRINTABSKRETURNPOS[FF]KCMDEqm}!/CLEART2SETENDELOGFNLLISTAUTO[FE]TAB(INTTAB(PUTj**PUTLINELETY/jDIMCLOAD~LOF\ORINSTRrOPEN+;STEP
37332 CMDDIM]DEFSTRP4FIELD=VARPTR@^GOPEN"+CVSlb'LETDELETESAVER5CVDSTRING$A'[oPOINTjPRINT*tMKD$RESTORELSETSAVEABSLSET+cRESETnNAMETANuH^)TIMESU/STRING$ANDVARPTRLCLOSE>g'UNAMEOR*]0CLOADCLOSET/T\CDBLdNEWTANvNEWVLOGFORtFIXyH&HELSE*
#FIELDINPTObCDBL[FD]	m/"TAB(-ASCDEFDBLMKD$CLOSErMKI$INKEY$[FF]TROFFCVSCDBLNERRORABS,FIXFIELDINPN81ERROR\[FD]'^LLISTlBMKD$${CLEARd<LOFVVALINSTRAUTO'MID$TIMESOR-+`MID$KMCVIERR<lCVILINELTANDIMSTOPW
ASC@RND TROFFNEXTMERGEsDEFSNG%:#oFIX(RUN ZADEFINTDEFINT\FRExRESETSQRINPUTPOINTORCINTLOADLPRINTVALPI{pFORCONTy9vRETURNLSETSTR$CLOSEREMLETMKI$LINEmwB]PEEKLSETFNCLOADPQ	jTB7/ENDMERGESQRrLINEQJVLOADA6ERLRESTORE[d*LLISTANDGOSUB!VARPTRcERRORTIMESERRc~aEDITYSTRING$GOTOKILL9pPRINT2RANDOM[FF]FIELDE.+'ERRORPCDBLSYSTEM&gTAB(LOG$wON.HINPORONPOS
<SYSTEMLENLSETDdATN<CVITAB(/qDEFINT$PUTIF&*POSCVDLLISTSIN#zVALPEEKLINEUSRGzCONTDIMFIXCDBLICVS
12152 #BKCVD*ERL<V<INKEY$V[FE]KREADu$	8e/PRINT_PRINTLINEAPOSLOFGET[FF]CVDCONTLSETCLOAD[FE]$CLS*RSETRESUMEDEFSNGX*TIMESCLOADLENELSECMD$ERRORASC5CMDHINKEY$yPOSSETIFPOINTRESUME$DEFSGN+AMKS${INSTR[FE]"RLEFT$%ONCINTfUSINGCMDptXPOINTD>EDITASTRING$LOADLETEDITNEWDIMSTEPWLOADtCSNGMERGE.{{6wSTOPyMKI$DEFDBLMEMLSET&PRINT>v2LSETFOR[FC]*SAVEMKS$
MEM`]MKI$bCINTDIMuONFREVARPTR~[FE](,#ABSMEM$OUTINPMERGEdCINTRETURN	[FC]REMEDITVALDLENTO=UCLOADCINTATNTROFF\OUTLEFT$DcyTAB(SININKEY$OPENRETURNlw7FOR]READaERRORUSRmTMKD$/|LOCtC}EXPJOUTDATALISTSYSTEMVARPTRREADERRORkSTEP}SAVE*=RESTOREEXP[FD]]TIMESMKD$}OPENORINT\BCHR$qABS OLPRINTTAB(RESUME1DEFSNG0!#~LEFT$<DIMS_OX_LOAD&LSETmINPGETTROFFSTOPREMORPEEKCSAVELPRINTLEN\OMGmINTNAMEyxsRETURNOPENDEFATNDEFDBLINKEY$STRING$CSAVEN_B:kDELETECMDRETURNNOTudGAn~jRESETyIFDEFDBL%END4@!SYSTEMOFORhORFRED-OPEN*GOSUB
COS=CLOADCVS[FE],CyoRANDOM
38682 CINT "RESTORE0FORMID$MKS$#Ot}TIMESLSETCDBLEj1TANRNDc[FEOF){ANDDEFSTRINTRUN<SYSTEMCLEARLSET-f'DEFSTRLOCRIGHT$vLLISTv
61222 GOSUBUSINGDEFINTSQR1?PEEK
37131 ].[FD]INPMEMLINE
25008 !"[FF]TRONGOSUBAND\RETURNINTCVSM"THENWj9V5 -STR$WZLOADERLmFREMKI$FIELDAUTOPEEKLINEORLSETUSING=RESET-LPRINTFREREADvgSQRMKS$mOUTCMDDEFDBL#ERRORMKS$<CMDELET:MID$DIMINPUTSTRING$H^NEXTZ)CLOSE=TRON)EYPTAN)RESETCOS9
DIM
ONCVD)TOENDqG:^ELSEEDITINPUT
35976 LENTROFFINPUTUSING~ASCSTEP \)NFRESNEXTNEWONINSTRwCSAVE>b)UNAME>-LSETCVS[POINTJCHR$1SINDIMgDEFORELSE`CINT:!ZGFRETHEN
<LENSTOPKILL-OPENSGNZ5CSNGRUNN/ORCINTFNOSULISTCVD+LSETRESUMEERRORf&yCLEARATNMMEMCVSDATAv8,RESTORE\RIGHT$ \CSNGj_LSETmvCSNGq
	y[FD]MKD$TIMESDELETELINETIMESIF/hGOTORNDPRINT/<)'*CINTNEXTLINE6/RABStELSELINESYSTEMLENq=ffPEEKiTRON6MFG^PRINTaORSTOPMKI$RUNSTRING$CLSANDATNLPRINTLOCDELETEgNs>IPUTh<$GOSUBFIELDVALFIXTRONENDCVIRETURN8n
[OATNCSAVE'CSNGReA
&#MKS$yPOKELINEiDEFSTR}ON<u+sTIMESGOSUB<JSGNCSNGABSLOGlSGN&DEFSTRINSTRERL-Cr{RESET
TIMES[KILLcDIM"SGNDELETECINTug,hFORLM[FF]CLOADS:nSTR$TROFF"vON5fERLLLISTLOG*6TANTAB(LSET-rPEEKPOSRSETU VAL*zRESTORE3SCVINAME`CVDINTCLOAD</:{FN@LOF-YPEEK\?[FC]GOTOTANSYSTEMCONTLENASC608[FD]RESETCMDTROFFQUSRDEFMID$SET^blWKr4LOADYDELETEERROR]RUNLPRINTPOKEPEEKCVICDBLFORNEWCHR$/+ORKILLTRONRESTORE
54062 CDBL9LENREM<6STEPASC>CMDHINKEY$y[FC]SETIFPOINTqUSING]'ONTROFFSGN@]YCVS<ERR[FE]l87READCLOSEGETfKILL	RANDOM`RETURNJEDITSET
39825 LENLETRUN]SAVE;CSNGUSReHV$fFRE@CVDERRFORGOTOoRSET>D4UFORERLENDF+MKD$FIXBRESUMEQKERR.CSAVELISTVOUTVARPTRCMD4CVD:)	o;JUSR-:DELETEINPRSETLEOFDEFSNGL2CONTDEFSTRINT?bFIXLSET7\LOCDEFDBLMKS$ANDmNAMEFNF&6KILLLSET9ANDCHR$ELSEf2,=ZKILL;YCSNGkTO8q[FC]u
eCLOADMFIX+DELETELINETIMESIF/hSET|RIGHT$

CONTVARPTRCLOADkCHR$INPQMKI$ELSEINTyRESUMEWREADcGOSUBPOSLOFRDEFSNG<4z'VAL,INT0WZBCSAVE:TOdERRORSPUTELSEREMTHENNEXTSTR$OUTLOCPEEK\	RlDEFDBLJPUTb6aRTROFFOUTDEFSNGFIXTRONLETMERGENEXTwu[H[FF]AUTOCONTCLOADKUF!kE= 'yLOADGOSUBhDEFDBL/QUmSETk:RANDOMPTRON>JANDPOKEAND>bCMD
DEFSNGRNDANDb):~{SGNTIMESNEDITCINT(lOR%DEFSTRATNFIELDGj\-&ERRORMLEFT$[FC]!oNEWRETURN8{SIN')GOSUBRESUMETHENRUN:AUTOFNTAN~zCINTSQRCDBLUMID$>9REM8S[FC]NAMEsLPRINTLSETSETERROR>&zAUTOPEEKDEFDBLINSTRW2'LETCLOSEUSINGASCLOFDEFb,5CDEFINTOUTNEXTINP<=COSMRANDOMQh>V504POINTa@CLOSENOTRNOTLOFPRINTFIXCVDCONTFORTAB(CINT8DEFSTR
51085 W,0=CINT(LENDATAREMp+MKS$:POINT
51185 DATAINSTRCNOTA.DEFRESTOREMEMATAN5POINTPRINT)ERRATNSYSTEM4LPRINTRESTORE"uRESUME@DEFSTRSET*CLSRANDOMSAVEMERGEANDSAVE-CVDTMKI$INPUTy
@_gSINPUSRANDCLSRETURN!DELETEEND%5FIELDINSTRDIMWsMKD$CVS
INPNBMKD$eSININSTRwCINTRNDVARPTR}[FE]IaTSINERL,TAB(TRONON-CSNGDEFSTR	SGN&CLEAR EOFTANdLOGSTR$Nf[NEWMKS$ERRTOjDIMRESTOREERESUMELOG![FF]OUTINP`.~LISTCINT7XCVI%pKILL,xLOF>ijtASCNPUTDELETELOGDEFDBLREMFOR-}POINTn[FF]YLLIST[POINTjRIGHT$LINELMKS$POINTLETsRESUMERELSEoDATAORLOFOAND4'f ATNiTRON6\A_CLEARoDELETEfINPFIELDRESUMETRONSETNEXTCVILOAD[FD]AUTOTK
1933 NAMEi7hRRESUMESAVEATNTANDEFSNGINKEY$'FORj{ZCLSDIM[FC]CINTC	lI=%[FC]8LPRINTREM`RANDOMr	&nNEXTeERLIEND+FRELLISTFRESQRlTHEN%SGNFRELOGc
u.DEFINT
RESET	REMPEEK:gTROFFqIFATNGETGh=fPEEKkPLOC[FC]6rSAVELOG-{CINT8'LPRINTASCLOGSQRE>DELETEFNTAN~|[FE]POSCVSCEOF(9STOP3EXPCVDFREABSPRINTCLS>slDEFPEEKRUNRND_zMERGETROFFTANLPRINTTODIMSTRING$~!"[FE]ERRSETXSTRING$LINPABSCONTIFB`ce(2<`TOLUSINGSETKINSTRCLEARCSNGLENLEFT$SYSTEM=DELETEPOKEFGETMEMAUTOFRERUNm0SQRCHR$*[FD]jCONTRESET"LOGCHR$4VARPTR[HERR;CHR$ERRORVARPTROR@NOT]'FIELD=TAB(#
TVEOF{+CVS9XLETATNSYSTEM4SAVEDATAcMKI$lENDLINE
40341 PEEKSGNSTR$xCVDsCOSMEMrH@*BINPZSTEPTROFFCMDTROFFlTODEFSTRl([USRRUNTAN`>CLOADCLOSEJ+@ZLOF+[FC]READFORVFREFORe[FE]tOoKUSRNEXT	oCLEARELSESAVEkCOS<
	[FD]ERROR>POINTBLENON
39927 [FE]DEFDBL@OPEN[FF]Eg USINGPOKEMDEFSTR=CSAVET~CLEAR9LSETmPRINTINT`ULOAD8xCLEARqyLEFT$KEOFCLSDELETELINEANDDEFINT+7SET-POINTDELETECMDAND)VALORWCVIPOINTSTOPu>DEFSNGaDATARESUMELOFt>q,lrAUTOoINT V[\:CONT=DELETEmELSEPEEKFRESAVEPOINTPOINTMKI$NEWEXPAUTOJKD~>
SAVEb.mDEFINTTANDEFATNRESUMERUNMERGEEDIT}vQCDBLTANOPENASCSkUE',EXPyLOADSQRqEDIT;MDEFINTq*ERRYINPUTPOSERRORCVI[FF]INSTRlAND*DEFDBLREMLOG"1}RESUMETIMESNLET[FE]?mEDIT6+'RSETEgd<CMDC[FC]MERGES>eSTR$READ>}STR$+aTROFFNOTERR*r-DATALEFT$;DrLSET<CHR$RIGHT$*8TANMKI$OUTcSYSTEMPOSDELETERETURN>tq[FF]NRSETFOR	ERRQ)LPRINTTRONEOFCONTI[FC]FIXDEF0qsdCOSLETGOTO-RIGHT$>VALDON~Lbvo $CONT]$SETENDELOGFNLLISTCLEARFREIFCVDEXPEDIT[RSETANDSAVETROFFMERGE"[INT)OUTSMERGECONTGOSUBDEFSNGBCVS	OTIMES<'TIMESLOADPOINTn
DEFSTRDEFINTCDBLREADdos\PEEK{INKEY$CHR$9FORdENDNAME-CVDREADnlRUNLGOSUBSETDINPUTTRONSAVEOUTCONT[FE]LOC
60762 INPsrq.@POS@INSTR-MEMCMDmDEFSETl(UNAMESTRING$END_pNEXTERLbRESTORE(%+5[FE]STRING$"RESUMEPOSCLS|MKI$,&=ASC*"TOERRORTOTIMESDEFDBLF3ASCSQR([ERRSREMFOR7CLOAD[FD]EXPNEXTK/DEFINTYs+MKI$TIMES'ATNINPA;1SETLEFT$`rABSJVARPTRKRLOCQoREADzINPINPSIN*MID$RETURN[cSET_SINVTRONLOCCVS&RESETPOKE{MKD$INPUTREADrRESUMEwTRONfREMLINETIMESXMEM(&wF'iCSAVEUB#sCLOAD RSETmRESUMESLINEREMDIMRESETMEMCHR$USRINKEY$[FE]KKQN^TROFFBINKEY$^7k[EDITLOGINKEY$[[FC]RANDOMONqt[PCVICLOSELLISTCLOADB_q*y""MID$0PRINTSQRHGOSUB8L
15949 =ODEFSNG*@LINEFIELDERLRND"VARPTRcDEFSTRPOSABSc
ef/RESET=FNFREJCSAVEMERGEDELETEFNGz\-&ERRORMCSNGMERGEa
399 %`ATNl{RND[STEPFOR7GOTOFIXRETURNP.fCLOSEFIXCHR$U[FD]?6FN4KILLPOS
USRUSRPRINTDEFSTRGOSUBpASCRSETRESETeSINX3USINGSTOPCLOSEFNCVICVDVAL6(5BATNGOTOCMDXORWINSTR>FIXTANzp`<}(!CSAVE!|USINGCMDTRNDSYSTEMOPENMKD$SAVEFNINKEY$CSAVELOF/+/ONDEFDBLGOTOl STOPMKI$=INSTR+INPUTRETURN5ERRORMID$!STRING$KLET0'TIMESSTOPERLJ^LINET*CLOADOPENASCS\ASC|[PRINT+RESTOREBRESETNEXT:iCVDdOUTwvVARPTRTRONEDITO+OUTREADINKEY$CINTRUNSETCRSET4SGN[FE]OGzW[ZINPUTATNNAMECLSdSTEPLOADq3EXPTANNEXTZ2OUTTANTRESUMErYCVS LOFPUTAOUTLOGVARPTRgMKD$x
`.qCHR$DATALDRESTORETROFFLSET~COSREM	ANDDEFSTRxCDBLCHR$T[FF]OPEN6[FREOREOFRESUMEGCLOSEERRORZuvIFERR(ELSEGETEOFR8=ERROR[FE]ob[FD]jGLSET!:NOTX,A;GOTOtLEN/LENREADREMFIELD<h-fMKD$*LLISTDIMCSNGASGNREMLETGOSUBGOSUBsRESUME[INPUTnFRETRONGETtMEM[bn':SGNxgFREKILL{IF
LOFCONTENDINPUTNOTLPRINTFORNOTINT(fpDEFSTRKCINTIH]ANDPOSTIMESEOFGOSUBGOTOMKS$DEFDBL8x
MFIX
27099 qH.}=$MKI$yGETRETURNdRANDOM8VUoREADi3ERRXOR+JLINECONTRNDINT!NOT&SGNSTRING$THEN/pP`CLSORDEFSNGKILLCERROR<DATAATNSINjO1kgMKS$eVINTMERGE=gSTRING$SAVE?fCVD"nTROFFMKI$LOCRIGHT$J
28580 vQ[FE]STEPASC
TAB(1wPOS"EXPCVIqCINTSQRNEW[FC]COS5oVALLOCTAB(8COSiSTEPNAMEEOFPRINT
[FC]LENDEFt+?		*RSETSAVEWSET-LEFT$*[ABSKNEXTQkm<15POKE|NEXTSAVEDEFDBLUSRSETTANATNFNTHENEXPSTEPGETREMFIXLENCLOSE	g)STOPMKD$,USINGMKD$CLOAD INPCHR$s*IVARPTRyASCRESETLETPOINT95CMD\!TOSTRING$SETEb@LOF/RESET[FD]+X2TRON
1381 GETTROFFg:\SETIDEFSTR*DINKEY$KILLTROFFMID$RNDREADSETZSAVEuGET-r	G)@DEFDBLs'ASCTIMESABSERRORRESTOREs#NAMEORRANDOM]8MKD$LOCHRNDGBCVS1LISTCVIGINPUTYRUNCDBLPEOF{oJELSEOR
42380 aCVDCVSa/[FF]SQRORTRONBFIXLSETN%VALSGNRESUMEOPENGOUTTAB(SuyFIELDMKS$MMEMMKS$DEFSTRixCSAVE?PUTp$INSTRdVLSETmsLOCN}CLOAD[VALTIMES[FD]VARPTRTANONRIGHT$"TANRNDKILLSTEPSQRnPRINT[FF]WCHR$DATALETVU+]DIMoMID$ASCNOTCSAVEYUELSEI'Y9."0SGNOLOGFIXsNOTMID$LOFCVILOADENDMEMIFCLS9)!#FIX'VARPTR
R|[FE]ERRRESTORERANDOM[FE]MKS$DATAVALe'?CMDERRORDEFINT&0w+*RKDEFSNGYSGN[FD]STR$M%~j
62259 LPRINT%TAB(/CLEARPOKELPUTCxATNLIST+CCSAVEcCSNGyOPENnSTR$DIMACVIQMKS$TRONINT"|LHLOC"3DEFINTPOSs'koSTOPMERGE'POSLOCSAVEbC>TINSTRl?=POKETRON2]->/=CSNG0uSET:VALEOF\j&SQRbDEFSNGr8AND[FC]DELETENAMEDX~POKETIMESLOFELSETIMESCDBLCOS{?=CHR$K!RUN"mUVSGNRUN[FE]d[FF]^(#7
+&CSAVEJAPRESETKILLVARPTRiFNRTAN*-CDBLFNSETNEWLSETEOFRANDOM\m{INP["FORFORDEFINT([<;DEFSTRERRREMMID$<IFZ@yDEFDBL1F=DEFRSET``17RESETXOPENRETURNMtsCVImSTRING$MEM|FMEM|LOFk?CVI6STR$CVD LOADINSTRTANEOFLINERIGHT$CVI1POINTINPUTNAME
18291 'PUT3)AUTO'SIN	LOGSTR$VzyVARPTROUTCINT!_LOGRANDOM-USING0.INPUTBKILLMEMyPRINTASCDEFDBLfgOz$LLISTLISTo*ORMKI$STRING$CLSCHR$)@REM{[FD]bTOFIELD6DEFSNG-{RsDEFINTCONTLETFIX.ANDERRDELETEFN-REMKNEWMERGECDBL"JT[FF]VENDe0USING/EOFLPRINT:Io:FOR8RESTOREDEFSTRDEFMEMCLOADVARPTRDEFSTRENDLETATPOINTIFCLOAD/CLEARDELETEKILLSTEPINP6LINERIGHT$#
14282 DEFCB	LISTcANDY9n.:>eVALCDBLrANDCVS-USRTROFFDEFSTRMEMTOTROFF" '[FE]-TANn'T>ORDEFSNGPUT[FF][DEFSTR$H>zTAB(INKEY$[REM,1[)
<`sSYSTEMg[FE]FIX:LISTV2EXPlNAMEtABS[FC]DELETEDEFINTTRONSEToCONTBw[REMSETkAK2(CLEAR1DIMFSGNUSRGLOC5INPUTTRON+|ZHRUN@DEFINTCLEARPpdDEFLEFT$JLFORL%STR$[FC]PRINTGETjX=+RESUMENp8TROFFGETONVoUSINGSGNtbPUT>&REMCLOADLOGCVDLOADE3INPUT|SGNVARPTRqPOKErVARPTRTANSYSTEMLEFT$NUSINGFIELDNEXTWzbgGOTOANDEOFiAUTOEDITIF[LOAD^\SIN0
v!o' FRECVS/USINGINKEY$MKS$TROFFDEFINTSQRDEFSNG*ANDaMKS$CMD[FD]FIELDEOFykCHR$NEXTaTHEN:EXPASCXTAB(ELSEsRSET{REMfMERGEFRECDBLLOAD&w[FF]5FREDEFGET`e1~MEMcDEFSNGIFMRGMKS$mSTRING$MEMUEOF|CONT&#+vOUTCSAVEvRANDOMTHENINSTREOFABSRNDINKEY$[FC]INPUTONHh3oq?CSAVE4RESTORERESUME[SINiAUTOLINE+;'LEFT$VARPTROUTCINT3NOTVARPTR?[FD].GOSUBqTROFFERRORRUNcNEXTMERGE[SAVE"zmZL0[FD]CONT\oDEFDBLCONTUSR0FORERR7vDATAASCLISTTTHENRESET"RUNMID$T[FD]CVD
3811 [FE]ATN@A\INKEY$INKEY$EDITTRON[FE]+;qMKS$WRESTOREFOR AUTOy!SYSTEM:XzsGOTOpERL*FIELDCMDLETSTR$OR,TROFF;CDBLERRPOKECLOADMKS$CLOAD	LOCRUNxSTR$ SAVELLISTMKS$ATN4-POINT[FF]-CSAVEABSPOS|CLOSEI-tPRINT::VEXP{LOFDIMt;LLIST{MERGETANINKEY$LISTNEWCLOADSET-:$$
EXP[FC]1dELSEMKI$FRECSAVEERL[FE]CVSCOSRb{?TRONSETSTRING$DEFINT&|QO'*RKAUTOcE[FD]STR$\%-RESTORE
61736 CLOAD=MERGE*ENDPOKE9POKEW@USRCONTEDIT%c8ATN!DELETEzINPTRON"LENMKS$TRONABSIDSTRING$[FE]60POS&k
49500 PUTi	TIMESUSINGREADUSRRSERRPOSREAD^D_USINGCLEARRESETuwDATALQ[FC]esPRINTAND&DEFSNGINTCOSASCNEXTTCLSzINSTRLOCyLLIST4ZPOS[FF]GOTOSQRMKS$LINERESTOREZDORd&DEFINTCHR$ASCl'8CLEARCSAVE[FC]PUTmkCLOSE0K#"IpT>8;ORo.>NOTSTRING$TROFF+INPMERGEINKEY$CSAVEJMKS$STR$/MKD$[FD]mGLISTRESUMEMTIMEShEXPASCdCLEARSGET{.FNABSELSEATNEXPFIX/HMKS$LLISTFERLDEFNEW`eq5RESETnDEFINT>x?ATNmSTRING$MEM9FDEF|ATNtUSINGCVI!STR$EOFCLOSE[SINiLINEMKD$MKI$CLSSTEPCDBLIh3s>'LIST4RETURNAUTOOPENSINTRONSTR$Xs@OUT[FE]3RESETRANDOMUSING!(ASC[CVICLSvPRINTEXP)ELSEDEFSNGhcO\$LLIST2b*ORMID$STRING$MRESETw)DREMvAUTOnNEXTTODELETEDEFSNGNOTn\{DEFINTNEWPEEKSYSTEMINSTRRND6OKLREADnCSAVETHEN'BYRNDVALxDIMqELSE7NMDEFSTR/cnCLOSE?MERGESTOPCINTLOFRETURNAUTOGOTOFIELD	GOTORIGHT$yPOINTERRORRESTORE\ERROR<8NEXTCVICOSvOPENVALTAN
8595 GOTOG=TROFFrINPABS9/.yVARPTR*LOG"'CLOADNOTBATN]LOADENDMEMIFTROFFCLOAD/FIX STR$STR$ERL
X4s[*/RANDOM[FE]EOFATNSTR$RzTIMESTROFFVINPSTRING$%weLOAD*!J,YINT[FC]gCSNGw%uSTOP9CLOSEVFIXFIELD$RETURN[RESTOREDEFbGETCOSxPOKEADEFDBLcDIMyRETURNoLRUN1LOGQTROFFINSTR#MKI$}vJSTR$ gDEFSTRDIMrMOPEN'LCSNGENDGLINEUSINGDEFINTRSET?QMEMLOGREAD^LOCMERGENEWpwLINE0
TnCMDFRECMDCONTSTRING$FIXkUGOSUBELSETIMES*zGOSUB7}INT[FF]RANDOMSQRiVALLINE*DPRESTORE$COSazINSTR;RNDNEWINPUTRESTOREhSTR$2READOthEET[s,POKECVDLOGRSETDATA[IF^FIELDRESUMEMKD$POINTSTRING$LINEEOFy!LISTLOCNd|"VALCLEARTOsPPUT{NSYSTEM~GOSUBOUTSIN,>EOF6C=DEFGET`N1dENDNEWOPENPEEKIrq*m|MEMEG~MID$
58085 ANDVALDEF#PUTINSTRLEFT$MKS$TROFF'[FF]5ERRUSINGSAVE6k7s$4CLOSELIST=COSCLOADLOGCSNGtxNOTERLlCINT3_-RANDOMAUTOTAB(OUT,FNAMEMEMLISTPOKE%7dOz"LLISTLOADhCLOADAND'STRING$RNDRANDOM"*LENTROFF[FE]MERGECLOADDELETE6|STEPIVEDITDEFDBL]RUN,#SQRUSR'+|lCSAVERESET
32275 RIGHT$LIFTROFFDEFSNG5-MLOGDEFSTRDEFINTbnDEFINT9TAB(NAMECINTCONTEXP3
FIELDCLOADjPUTPOINTGOSUBPRINT	RETURNu:KATN1tUSINGCLEARSTR$TAN
6577 CSAVEQHIMEMYD..0+NRIGHT$	{rMKD$'tCVSLOADENDdLETg9RND!bFIX&VARPTR
2r[FE]SINGOSUBRANDOM[FE]INPUTU`{?ERLERLIFDEFSTR DEFg/'{PDATARIGHT$POINT[FD]LOCX=uDELETELOC
22846 NEWIFFNCINTDELETEWNCA>LENCONTLSET?i{CSNGMONn[FF]SYSTEMIsQCVSTRONFIX"|STRING$JLOC"DEFSNGDEFDBL<LENS>HiLINKEY$O7USINGRUNSYSTEM{QCLOG3_/LENCLEARERLucLINEPOS[FC]VkCMDLLISTUSINGCHR$POKETORGOSUBnINSTRMKI$y77INPRANDOMABSi*LINEDEFDBLB/bGOTODEFSINnAUTOCDBLDEFCLOSEwREMmkLOCHMvi]E@RETURN<~[[FC] CVD*CVDREMCDBLPOSNAMEORESUMEMMKS$6VARPTRMID$EOFyCVSTOMSQR|MVAL/TAB(P!x RSETYELSETIMESTANOUTLPRINT~MKD$5PRINT>DEFGETFIXhPOKE5READ[RANDOMTRONYxgATNySTRING$POS~POINTMEMsATNk?CVI%STR$CINTTAB(OPENINSTRPEEK+EDIT1LOFPOKEMEMCLS]`CONTsF'x/)AUTOMKD$SIN
SQRSTR$SIN{s@OUTMKD$3'INKEY$-TO!6SETCKILLMEMSTEPPOKEATNRESUMEhgW{$LLISTCHR$o*ORCHR$STRING$=RANDOMCHR$)LISTRETURNp[FD]rUSINGKILL4LINENn~{GOSUBCLOADCLEARLEN.INSTRLOG6C]STEPREADlCSAVERESET'>W^VALINSTRINPUTs1FORDEFINTSTEPSDEFSTRLPRINToDEFINT9DEFSNGTROFFCINTCONTGETTAB(#READkgSTRING$PUTCONTLLISTRESTOREDELETECLEARRESETATNLEFT$mLLIST
104 zCSNGNOTCSAVEQ	
65487 ABS9*.t=IFPOS{sINKEY$MID$HPEEKNEW
62871 /'OPEN[FC]'GOSUBH
38134 DIM~EOFINPUTVALSTRING$SIN{:TRON[INTDEFINT&DEFINT`SET'(RCONTDIMWF[FD]STR$MERGE$yFORLOC_J8MKS$9%CLEAR/~POKE0GEToLEFT$CHR$POKELSET/kGOSUBLENy~n#CMD+CDBLQ
TROFF[OPENzDtLOC"$}RND{OR
20109 CSETDINPUTAUTOTOLSETVgECSQRINPUT^DEFSTRFOR8RESETtcEDEFINT[FC]Ws[FD]SGNRANDOMRUNDEFSGNRETURNSTOP>DEFSTRn-MKD$gLLIST4ZGOTO[FD]DEFSNG]iELSELINEDPOPEN%INKEY$cSINzAUTODCONTSTOPASCREMok.4U+vk]zyT8-ORRESUME'<K/RETURNGOTOELSEOPEN*RESUMELOCSYSTEM<STRING$USREOF[^MKD$CVD) ;KILLPRINTSINlCONT&	CDBLeMEMMERGETOFIXrDELETEFVMKS$/=[FE]lDEFDBLLOGEOF[FF]_LPRINT.:0,ELSEGOTOERR"CVD\k6CVI$STR$LOC3&INSTRATNEOFTROFFSINl1INKEY$RANDOMSYSTEMENDh2sD 44RSETAUTOEOFSINLOGRIGHT$POINTztVARPTRKILLSINCONT_+RANDOM$USING))ERESETKILLMEMuPRINTEXPDEFDBLogOz5LLISTLOADhOORMID$STRING$CLSCHR$)LDEFSTRCSNG[FD]oTONEW9-cRqDEFINTDEFLETCSNG.STRING$LOG6QSTEPRUNd:RESETMID$ZWu|READO6GETCMD1*MAUTORESTOREcoTRON>MERGEREMCINTTOEXPFN
ON
kPOKEPOINTCLOADMKS$STEPTHENf
CLEARL(*COSSQRLOADDEFINT^[FD]SAVELOFDCVD=\ONMEMRANDOMLOADLLISTf"NLLISTfUSINGKDEFDBLLSETFORCLSDEFSTRTIMES1MERGE[CHR$EXPNTHENBCOSSTOP1ON%9MONLPRINT
34916 =STOPxKSTR$DEFINTCLOAD[FF]DCLOADGOSUBEVARPTR0eLOFPUTINPUTfRESET?LPRINTRESUMEINPUT[<u_pSQRFNINTbANDf(FIELD&ARETURNVAL-6tLSETELSESTRING$TIMESFIELDDEFSNGP(ELSEFREREAD-LSETEOFhp#cGOTOTROFFCANEWj;4TAB(DELETEzU$RNDRSETERLLINE
8930 
CSAVESINLOFLOAD
t1CVIELSEEPUTRSET1ATNCOSTOSAVEINP uCVIFRANDOMTANINPREAD0RESUMESTOP[FC]DELETECOSLEFT$USINGCLEARRESETSkMEMSYSTEMERLxDELETE8
28042 Vj4INTNk*]ESYSTEMELSE/nMKD$CSNG$[FD]-GOSUBTROFFhFIELD[RESETmTAB(4ASCINTNFDEFSTRDEFINTLORuEXPASCQFNDEFINTPPUT{ SAVEzCVSLOCKILL/FORTHENF=DEFGETREADc?LLISTRESET^OPENREMMxsCHR$jDMEMqFINKEY$|ATNUSINGLISTLOGaFIELDASC LOADINSTRCVSEOFLINELEFT$LOCPOKEMEMCLSMERGE+CVD3qG&CONT:)AUTOEOFSIN
21509 H GOTOPEEKRSET_*RANDOM%?!+RESETDDEFDBLKILLTHEN}2EXPDEFDBL
oCVSO[$bOOR'STRING$
SAVELEFT$mDREMp[FD]nRIGHT$FIXrERROR-nR{^STEPFIX.INSTRLOG6VLREADLEFT$OUT[NAMEVfVAL}DIMGPOKEELSE
5453 DEFSTRhMKD$DEFSTR9DIMLPRINTCINTRETURNEXP~GETGOTOkyPOINT8LOFRETURNTAB(8RESETCVIERRORpCLOAD4RIGHT$c
7051 CSAVEQUDEFSTRINKEY$LEFT$INPDEF}zhFORLOG	'NOTCHR$COSLOFMERGERETURN[LPRINTCLS04$-tPOS
r.`[FF]THENDEFINTINPUTRNDMID$ENDSTR$Bw:ENDPOINTSGNCLOAD/9G&9[HSYSTEMABSCVILEFT$CVIY$q[ENDON<+KILL<LPRINTSTRING$CONTTAB(5%cqCHR$DEFINTSTOPchg[FE]m=MKD$LOGIFM(STEPqERLINKEY$ASCGET.RETURNINThSYSTEMlaDEFINTPOSsSPCDBLCONT

This page generated by trs80cat v2.22, last compiled Sep 15 2024.