Willus.com

Home   |   Archive   |   About

SPACE.CMD (8704 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.

    
50032 7682 rLEN1X}>ORMKI$INP 20798 LPRINTOREXPORATN2 15360 2?Q+O!7R>+Q>OR[FF]>ORMKI$+RESTOREE!dA>
) 8677  15841 ERL;D!LISTf/=ABS[J!STR$XNOT# 10699 ~0
NEXT#n&)) CLOSECVI?ABSTHENOPEND6 9023 >USRRESETNEXTw#MID$NEXTDLPRINTERRINPUTD>[FF]w#6 8983 >CVISETNEXTw#MID$ERRORDLPRINTERROUTD>[FF]w#ERLRDERLPD
_ 20802 >
`iP 2304 MKD$D MKD$
MOR[FF]SQR5 7492 ERLCLOADD,%ERLAUTOD>ORMKI$LPRINTOR[FF]+O>8MKS$G[FD]!LISTf
AND+RESTOREE[FD]n 64769 ^[FD]V|
sAUTOMID$mE[FD]u 60673 WCVIERLEbk)NOT,NOT[FD]u[FD]t[FD]n[FD]f[FD]^[FD]V|[FE]0ANDmE[FD]u[FD]tMKS$WCVIERLMEbk)NOT,NOT[FD]u[FD]tABS[FD]N
[FD]^!STR$XNOT# 10699 ~0
NEXT#n&)) DELETEwABS 30987 DEFERLFIXDINSTR! 15360
49584 MKS$W=MKS$GERLCVDDERR8NABS! 16385
[FF]6ENDMKS$DEFABSINKEY$:YQ!MKI$U_ 22578 Q! 20816 "RQ!DATAeINPUTe
+
6
MKS$DEF:IQ[FE]FNERL*E+
Q!DELETEUAUTOU6 60672 DEFLPRINT2ZQ>2GQ+O!fQ >+Q!PQ>>0~+LEN
tN#RIGHT$!XQ1>~+LENN~AUTOTHEN/N!sRDATA?+Q!INSTRQ=+Q:YQPOINT0![FF]LPRINT+:@8[FE]ERL?F+OERRLEFT$HCVI
ERLKF|LLISTERL0FSIN:>QAUTO INP 8263 :@8CVIERLgF:
8CVI
(:DQ+EXPN*LQ"LQ*NQ "NQ*LQT]))))AUTOMKS$RNOT,NOTNOT,NOTNOT,NOTNOT,NOTNOT|THENRESUMEF#"LQMKS$[HQNOTTAB("HQ*NQT]))))AUTOMKS$RNOT,NOTNOT,NOTNOT,NOTNOT,NOTNOT|THEN-F#"NQMKS$[JQ|[FE]0FRECVDFAUTOMID$PEEKF</ERRCVSFPOINT/g"JQ:@8CVIEND!dQFwTHEN'FCLEAR :>QAUTO
uQ#INP 10359 INOTg CVI[FE] ?!DELETEU 9930 GLEFT$ERRIFH6MKS$[HQ#s#r:DQ+EXPNLOF)))LOF#s#rMKS$[JQ#s#rPYLOF)))LOF#s#r:ZQo[FE]THENERRG+IO[FE]0FREgGLPRINT2ZQ:CQONEXTFORCMDNEXT!RANDOMc_ 22051 !DATAe~AUTOERLTAB(G:ZQ<[FE]2ZQERLABSGLOF)LINEV~2\Q#~2^Q> 2cQ:CQ+EXPNLOF))))"_Q`i))))"aQERRABSGLPRINT2ZQERRABSG*[QMKS$[_Q"[Q*]QMKS$[aQ"]Q:>QAUTO INP 8287 :@8CVI@THEN'G:DQ<[FE]ERLLEFT$GLPRINT2DQ:>QAUTO
vINP 8279 :@8CVI THENH:DQ=FIXH>2DQ:IQ[FE]@FRE3HO:KQ[FE]ANDNH+0OERReHMKS$DPOINTO:KQ[FE]AND\H+0OAUTOTHENeHO>GOSUBERReHMKS$DPOINT/+0OO>GOSUBERReHMKS$DPOINT/+0OPOINTSQRTRON
THENIFHANDpHPOINT[FE]FRERESETHSQR5
FIXIFHSQR6
ERRIFHSQR~
<[FE]ERLLETHLPRINTSQRw
[FD]!DATAe!INPUTeDATAe
c 768 [FD]~ 30717 c
d 8971 SQR5 9800 4353 TY)))))LINE=ABS:ZQ[FE]ERLTANH >
POSMKD$
OR[FF] ERLFREHSTR$ERRMKI$H! 46460 ERLCVIHABS+O:@8[FE]ERL[FE]H+
QERR/N>
w
 8677 8 15841 ERL 20809 [FE]FNTHEN[FD]IT\SQRn& 10537 )
/~[FE] THENFORISQRRANDOMCVIW#:KQRANDOMCLOADFREGIAUTOMID$FIGOSUBERRGIFOR_#[FE] FRE|I[FE]#AND|IABSNEXTo& 6486 ~=ABSCSAVEAND|IABS#~ABSCSAVEFRE|IABS! 20812 "NQ:CQ2DQABS+gOMERGE:ZQ[FE]ERL[FD]I:\Q[FE]ENDANDDEFINTI:^Q[FE]/FREOUTILPRINT2ZQERR[FD]I:cQ[FE]ANDNAMEI<2cQGCVI
THENCLEARI!VERRNEWI!>V:\QRANDOM[FE]ENDANDRIGHT$IW#:^QRANDOM[FE]0ANDMID$I_+VARPTRPTHENVALISQRVSQR^ +RNDPLPRINT2ZQ!XQ~='w>FN2IQ2KQERR[FD]I+gO+##FN!LINEV
x
CONTf AUTOMID$JTHENJ~#~+jO+##ERRJ:IQ[FE]FNTHENpKSQRPEEKSQR![U!STR$U:YQ_ 26333 32001 LISTTHENIFJ=THENOPENJV#^#+IOAUTOMID$AJSQRrSQRs,XAUTOSQRt 60673 RFRESETJPOINT 55890 pJ!,XERRAJ+IOCVI?ERLSETJSQRw 257 SQR6}SQRVSQR^+OERReK+IOCVI?ERLeKSQR6 310 LINEERReKSQR~=THENTROFFJSQRwSQRVSQR^{[FE]FREVALJ[FE]#ANDVALJz[FE]&FREVALJ[FE]YANDVALJ<MID$ATNJNOT/NEWFREATNJ>vRETURNNOT/NEWFREEXPJERR+KERR+K>vRETURNNOT/NEWFRECDBLJERR+KERR+KABS:YQ_ 6485
y~ABSG+IOCLEARAND8K:IQCSAVETHENKFREK+IOAUTOMID$+K:KQNEWTHEN+KFRE*K+IOAUTOMID$PRINTJSQRrSQRs=+O[:IQCSAVEERLeK:KQNEWERLeK+RNDPSQR6 310 LINE!XQ~='w>FN2IQ2KQ 49677 2JSQRCOSSQR6 46625 U[FD]~ 19923 [FD]5 18413 [FD]n
[FD]f[FD]^[FD]VNOTTAB([FD]u
[FD]tT[FD]n[FD]f[FD]N[FD]F |[FE]0FRECSAVEKAUTOMID$CLEARK</ERRCSAVEKPOINT/[FD]u[FD]w_+VARPTRPERL[FF]K+VARPTRPERL[FF]K+VARPTRPERL[FF]K+VARPTRPERL[FF]K+VARPTRPERL[FF]K+VARPTRPERL[FF]K+VARPTRPERL[FF]K+VARPTRPERL[FF]K+VARPTRPTHENERLM:
zIQRETURNPOINT[FE]ANDL:KQREMPOINT[FE]FREERLM!ORU~RETURN<[FE]ANDEL#~REM<[FE]+ANDEL+~+DELETE[FE]ANDOL6V#6LINE+RNDP>+ZOERR*L>CMDoANDML$NOT!LENX
X{MKS$CLOADSIN<L}CVI
[FE] 32332 CSAVEERLULLOF>OR[FF]!RESTORE
MKS$BANDyL=ERRSETL!MEM 55874 SETL<+ZO!LINEVMKS$RNOT,NOTCONTf6 357 d 65491 MKS$POKETHEN*L+IOAUTOMID$AUTOL:YQ[FE]THENAUTOL<2YQ!MKI$eDATAe
MEM 20513 fQf
c 45293 LPRINT[FD]w 15949 HRETURN[FE]ANDERLM>REM[FE]ANDERLM>P+ZO!XQ~<'w:YQ[FE]THEN[FE]L<2YQ!LIST
{fd6 9024 +IOw#:LOFUCVI<w#6 8984 +IOw#:LOFUCVI<w#<! 46460 ERL2M+O[FD]!LISTfd[FD]n 64769 ^[FD]V[FD]u 31745 AUTOMID$wM[FD]n[FD]f[FD]^[FD]V[FD]u[FD]tW|[FE]0ANDwM_+gO 49936 ERL/M
J+PRINTMz[FE]sFRECMDMTRON+PRINTMz[FE] ERLGOSUBM[FF]+PRINTM+PRINTM+PRINTM+PRINTMERLEDITMERRAUTOE+IOCSAVEANDUSINGMyMKD$
OR[FF]OCDBLINKEY$MKS$W=MKS$GERLRANDOMK[FD]V[FD]^+gO
13789 8523 GQ~[FE]THENN<woNEXTSGNW
+PRINTM& 10589 )))AUTOMKS$R
|t`MKS$[EQ>
8677 6 15841 ERL N:IQ[FE]FNERLKF:GQ[FE]ERLIFH+
QERR*E!INPUTQSGN>+Q!LINEQGOTO?+Q!+R=+Q!ORQOR?+QWQ!SQFN+FREjNERLvNSTR$ERRvN*PQ"TQ*RQ"VQ!TQ(=>0~+LENN#RIGHT$!MKD$QB<+Q: 8CVIENDERLDELETEN:8AUTOTHENRETURNN
 20143 NOT!ERRPUTNx2YQERROUTE+O!PUTR 52496 QPEEK!@ 59003 VARPTR_COS#CINT:@8CVI
THENANDN+OERR8NPEEKNEXTNEXTo& 6499 ^#V#N#FCOSINKEY$OCVIPOINT0yCVI
RANDOM}POINT0INKEY$ABS! 15361 6END
[FF]MKS$DEFABSINKEY$PEEK[FD]!V[FD]n 6401 LOF+gO[FD]#[FD]#CINTCOSINKEY$o& 21597 )T_~CLOAD#FREEO~INKEY$#ERR=OABS*LOCU\MKS$_W))"LOCU}ABSINKEY$!PQRANDOM'w/#>
ERR]Oz{ABSNEXTNEXT&Po^,V,nNOT/AND}ONOT%SET_LLISTABSINKEY$
~ 0 < 16 @<
4 @< 1 END< 16 VARPTR<
4 VARPTR< 1 0 = 1 @= 16 END=
4 END= 1 VARPTR= 16 0 > 16 @>
4 @> 1 END> 16 VARPTR>
4 VARPTR> 1 0 ? 1 @? 16 END?
4 END? 1 VARPTR? 16 z{ABSNEXTNEXT&Po^,V,nNOT/AND<PNOT%SET_PUTCVI?ABSINKEY$PEEK=>[FF]2GQz 52056 #nb))NOT/CMDo[FC];"EQ[COS
@INKEY$>2DQ! 20812 "NQ>s2IQ+IOCVIPOINT2KQINKEY$~[FE] MEM[FE]aFRE8Q[FE]{AND8QO:?QAUTOyTHEN8QCVI_#ERRQ
] 5888  29440 0 0 0 0 0 25427 ore: Ships Left: G A M E O V E R To start game, select skill level (0-7)DEF Skill Level: For instructions press <?> Space Castle (C) 1982 Cornsoft Group, Written by Charles Guy High Score: T h e
]ENDC o r n s o f t G r o u p p r e s e n t s . . . To exit game, press <CLEAR> and <BREAK> together. Rules for Space Castle OBJECT: To survive by replenishment of your ship supply. To obtain ships you must destroy the Space Castle
]FOR. To get to the Space Castle you must blow through 3 spinning armor shields. You will also have to protect yourself against intelligent mines that come out of the Castle and chase you. Finally, you must beware of the Space Castle's ability to
]RESET fire deadly energy balls at you if a clear path forms between it and you. KEYS: (<-) and (->) rotate ship counter clockwise and c 27491 wise (@) or ([) gives ship thrust, (space) fires projectile. SCORING: Outer, middle and inner wall "bricks"- 10,20
y]SET& 30 pts. intelligent mines- 50 pts. and Space Castle- 500 pts. Press <ENTER> to return to Score page.
CLSOTRONDEFDBLPUTLISTMEMPOSCSNG[FF] 65535
0  511 [FF]
65535 [FF]
[FE] 65282
[FE][FD] 65283 
[FE][FC] 516 [FD]' 65021 511 [FF]
65535 [FF]


 65534 65022 514 [FE][FD][FE][FC]
768 [FD][FC][FE] 18486 4L1N/P.R-S+T*T*U*U*U*U*U*U+U+T,R-Q/P1N3K7IMMMLKKJJIHHGGFEEDDCBBAA@??>>=<<;;:99887
CMD66554332222222344556778899:;;<<=>>??@AABBCDDEEFGGHHIJJKKLMMMMQQQPPONMLKKJIHGGFEDCCBA@??>=<;;:987765433210//......./00123445678 8 9
RANDOM: ; < < = > ? @ @ A B C C D E F G G H IJKKLMNOOPQQQQUUUTSRQPON M L K!J!I"H"G"F"E"D"C"B"A"@"?">"="<";":"9"8"7"6!5!4!3!2 1 0/.-,++*******+,-./0123456 7 8 9 : ; < = > ? @ A B C D E F G H IJKLMNOPQRST
NEXTTUUUU
16

 
000
@@@
PPP
```
ppp
ENDENDEND
RESTORERESTORERESTORE
OUTOUTOUT
DEFDEFDEF
VARPTRVARPTRVARPTR
///
EXPEXPEXP
CSNGCSNGCSNGENDENDENDENDENDENDENDENDENDENDENDDEFSTREDITRESTOREENDENDENDMERGEDEFSNGENDELSEDIMCLEARENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTLETLSETGETENDENDENDDIMRANDOMOUTCMDKILLDEFSTRENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTDEFSTRRSETTAB(ENDENDENDGOTOFORDEFSTRFORDEFSNGENDENDENDENDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDENDRESTOREOUTDEFSTRLETTAB(LINEENDENDSETONLETFIELDDEFSTRFORENDENDENDENDENDREADCLSENDENDENDENDENDENDENDENDENDENDENDCLEARDEFLETFIELDNEWTAB(CLSENDENDLETRANDOMPOKELET
DATARANDOMENDENDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDENDENDREADGOTOLETFIELDCLOADLISTRESTOREENDRESETFIELDCONTPOKELETSETENDENDENDSETFORENDENDENDENDENDENDENDENDENDENDENDENDENDSETGOTOLETLETDEFENDENDENDSETCONTCONTCONTIFSETENDEND 32896 ENDENDENDENDENDDEFRESTOREENDENDENDENDENDOUTPRINTCONTREMLETDEFENDENDCLEARLINELETPRINTDEFDBLNEXTFORENDENDENDENDENDENDENDENDENDENDENDOUTDEFENDENDENDENDENDLETGETREMLETGETENDENDREADSETLETPRINTNEWIFCLSENDENDENDENDENDENDENDENDENDENDENDENDOUTRESTOREENDENDENDENDDATADEFREADGETENDENDENDNEXTINPUTGETCONTTAB(LLISTENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDDEFENDGETRESETLOADENDENDENDFORINPUTGETCLOADFNENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTRESTOREDATARESTOREMERGEGETENDENDRESETDIMDEFNAMEDEFSNGENDENDENDENDENDENDSETENDENDENDENDENDENDENDENDENDENDENDENDMERGEGETENDSTOPOUTRSETENDENDENDRESETGETLLISTRANDOM
INPUTENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDOUTRSETENDDEFSTRENDDEFENDENDENDDIMCLEARONDEFSNGRESETENDENDENDENDRESETFORENDENDENDENDENDENDENDENDENDENDENDENDENDOPENNEXTOUTCLSOUTRESTOREENDENDKILLTAB(POKELETFORFORENDENDENDENDENDENDENDENDENDENDENDDEFENDENDENDEND 36512 ONDEFSTRENDENDENDOUTTODELETEPOKELETSETCMDENDENDENDENDENDENDENDENDENDENDENDOUTDEFENDENDENDENDOUTLETRANDOMPOKELETCLSENDENDRUNLPRINTCONTDEFSTRRANDOMREADFORENDENDENDENDENDENDENDENDENDENDENDENDENDDEFRESTOREENDENDOUTDEFSTRRANDOMCONTCONTDEFENDENDSETIFCONTDEFSTRLETTAB(RESTOREENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDDEFLETLETRUNSETENDENDSETIFCONTCONTCONTSETENDENDENDENDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDDEFTAB(CONTINPUTLETIFFORENDRESETINPUTGETCONTCONTSETENDENDENDENDENDENDSETFORENDENDENDENDENDENDENDENDENDENDRSETFNCONTINPUTGETCLEARRESTOREENDRESETLETGETREMLET
DIMCLSENDENDENDENDSETFORENDENDENDENDENDENDENDENDENDENDENDENDDATATAB(LINELETDEFENDRESTOREENDENDINPUTPRINTINPUTGETSETFORENDENDDATARUNFORENDENDENDENDENDENDENDENDENDENDENDENDENDMERGETAB(LETDEFENDENDENDENDDIMRESTOREINPUTRESTOREINPUTCMDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTSYSTEMINPUTGETENDENDENDDATACSAVE 36482 ENDENDENDENDENDENDENDENDEND[FC]
[FD]
[FE] 255 254 [FF] 257 258 

[FC]
[FD]
[FE] 511 256 [FD]
[FE]
514  [FC] 254 [FF] 0
[FF]
65026 
[FD] [FD][FF][FE][FF][FF][FF][FF]
256 513 [FF]
[FF][FE][FE] [FE][FE][FE] 255 0
511 513 READ[FF][FF][FF][FE][FE][FE][FE][FE] 255 [FF] 0

2  65285 [FF][FF][FE][FE][FE] 65535 [FF] 65280 257 3  6  766 [FF][FE][FF] 65280 257 [FF]
3 



[FE] 255 [FF]
255 65281
258 

[FC]
[FD]
[FE][FF][FE]
[FF] 65024 256 [FF]


 [FC] 254 [FF][FF][FF] 65281
65026 [FF] [FC][FF][FD][FF][FE] 255 257 [FF]
769 [FE][FE] [FC][FF][FD][FF][FE][FF][FE] 65280 1  256 LET[FF] 65284 [FD][FE][FE][FE][FF][FF][FF] 1023 257 [FF]
65283 [FF] [FD][FE][FE][FE][FF][FE][FF][FF][FF] 0
[FF]
3  2313 [FC][FD][FE]
[FF][FF][FF]
255 257 [FF]


MID$'[FC]
[FD]
[FE]
[FF][FF][FF] 65024 0

2 RIGHT$
MID$
'
[FC]
[FD] 65535 [FF] 0 510 2 RIGHT$ 251 [FC] 254 [FF] 0 511 65026  65529 MID$[FF]'[FF][FC][FF][FD] 255 [FF]
0

[FF]
65026  65275 [FC][FF][FD][FF][FE][FF][FF][FF][FF] 65280 257 GOTO 511 2 [FC][FE][FD][FE][FE][FF][FF][FF][FF]
1 
[FF]
258 [FF][FF] [FD][FD][FE][FE][FE]
[FE][FF][FF][FF] 0
2  2313 [FD][FE][FF][FD][FF][FE][FF] 65280 256
 260 F 612 ~ 21248
c{ 20992
ay 20736
`v 20480
^t 20224
]q 19968
[n 19968
Zl 19712
Xi 19456
Wg 19200
Ud 18944
Sa~C 594
RUN_yB 592 \uZp 0 1131  0 1126  0 1407 0 1116  0 1112  0 1404  0 1389  0 1374  0 1663 0 0 ENDENDENDENDDEFENDENDENDENDENDENDENDENDENDSETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTDEFENDENDENDENDENDENDENDENDDIMIFFORENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDRSETCLEARRESTOREENDENDENDENDENDENDENDREADRUNRUNENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDDATAGETCLEARRESTOREENDENDENDENDENDENDRESETPOKEDELETEDATACMDENDENDENDENDENDENDENDENDENDENDEND
IFENDENDENDENDLETGETDATACLSENDENDENDENDENDENDFIELDCLEARPRINTDATARANDOMENDENDENDENDENDENDENDENDENDENDENDENDENDENDRESETSETGETDIMDATAENDENDENDENDENDRESETRESETOUTRESETENDDEFFORENDENDENDENDRESETFORSETENDENDENDENDENDENDSETINPUTOUTDIMDATAENDENDENDENDENDFORFOROUTRESETENDRESTORERETURNENDENDENDENDSETFORSETENDENDENDENDENDENDSETINPUTOUTRESETCLSCLSENDENDENDENDCMDFORENDENDFORENDENDCMDENDENDENDLETRANDOMCLSCLSRESETRESETENDENDENDENDFORCLSENDFORFORENDENDENDDIMRESETENDENDENDFORENDENDCMDENDENDDATALETINPUTENDCLSRESETRESETENDENDENDENDFOR 33153 ENDENDENDCMDFORENDENDENDFORENDENDDIMENDENDRESTOREDEFONENDRESTOREENDFORFORENDENDRESETENDCLSENDFORRESETENDENDENDENDFORENDENDENDFORENDENDENDCMDENDDEFRESTOREGETENDRESTOREENDCLSDATAENDENDRESETENDCLSENDFORRESETENDENDENDRESETENDENDENDENDFORENDENDENDDIMENDENDENDCLSENDENDENDDATAENDCLSENDENDDATAENDENDENDENDENDENDENDFORENDENDEND
RESTOREENDFORENDENDENDENDENDENDDATAENDENDENDENDDATAENDCLSENDENDDATAENDENDENDENDENDENDENDFORENDENDENDENDFORENDENDENDENDENDENDOUTENDENDENDENDENDRESTOREOUTENDENDDATAENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDOUTENDENDENDENDENDRESTOREENDENDENDDATAENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESET 32896 ENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDEND
GOSUBENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDEND 4351 31 ATN[FF]- 55 CINT[FF]= 64 2048 15 - 32 30 61184 [FF] 27 AND[FF] 16 ERL[FF] 0 ERL[FF]CHR$[FF]MEM[FF]CSNG[FF]AND[FF]EOF[FF]LOG[FF]ATN[FF]CINT[FF]COS[FF]K 274 P 279 U 284 [ 289 ^ 293 a 296 51200 196 INKEY$ 193 + 190 / 186 > 180 FRE 175 LOG 168 PEEK 163 LOC 158 CINT 152
RETURNLEN 150 ASC 146 LEFT$ 143 ' 140 [FF] 136 
= 262 D 268 ENDENDENDENDENDDEFTAB(TAB(TAB(TAB(TAB(TAB(TAB(ENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFNTROFFENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDRESETIFTAB(TAB(TAB(TAB(TAB(DEFENDENDUSINGTOERRORIFTAB(RESTOREENDOUTTAB(IFSAVEFNUSINGENDOUTTAB(IFIFSAVELISTENDOUTTAB(IFIFTAB(RESTOREENDENDENDENDENDENDENDENDENDENDENDLSETTOENDUSINGAUTOENDENDKILLUSINGENDUSINGELSEENDENDNEWUSINGENDUSINGELSEENDENDENDENDENDUSINGEDITLETLETRUNIFENDENDOUTDEFTAB(TAB(TAB(TAB(TAB(TAB(TAB(IFFORENDUSINGRESUMESAVETAB(IFFORENDRESETIFTAB(ERRORLPRINTUSINGENDRESETIFTAB(TAB(ERRORNEXTENDRESETIFTAB(TAB(ERRORNEXTENDFNRESUMESETFORENDEND
OUTREMENDENDENDENDENDENDENDUSINGELSEENDENDDEFDEFDEFDEFDEFDEFDEFCSAVEUSINGDEFDEFDEFDEFRESTOREKILLUSINGENDENDENDENDENDENDENDKILLUSINGFORENDENDENDENDENDENDENDCLEARERRORIFTAB(USINGELSE 33667 SETSETSETSETSETLSETUSINGSETSETSETSETFORKILLUSINGENDOUTTAB(IFIFTAB(RESTORERESETUSINGLLISTENDENDENDENDENDENDKILLUSINGENDENDOPENUSINGELSEENDSETIFIFIFTAB(RESTOREENDENDKILLUSINGENDENDENDENDENDKILLUSINGENDUSINGEDITLETLETRUNIFENDRESETREADIFTOTAB(TAB(TAB(STOPENDREADSAVETAB(IFUSINGELSEMERGETAB(TAB(TAB(TAB(IFFORENDENDKILLUSINGENDENDENDENDENDKILLUSINGENDRESETIFTAB(TAB(ERRORNEXT[FF]
CLOSEREMLEN! 16866
CLOSE#MKS$DEFERR 42498 REMKILLUSINGENDUSINGELSEENDENDNEWUSINGENDUSINGELSEENDENDENDENDENDUSINGEDITLETLETRUNIFENDENDOUTDEFTAB(TAB(TAB(TAB(TAB(TAB(TAB(IFFORENDUSINGRESUMESAVETAB(IFFORENDRESETIFTAB(ERRORLPRINTUSINGENDRESETIFTAB(TAB(ERRORNEXTENDRESETIFTAB(TAB(ERRORNEXTENDFNRESUMESETFORENDEND
OUTREMENDENDENDENDENDENDENDUSINGELSEENDENDDEFDEFDEFDEFDEFDEFDEFCSAVEUSINGDEFDEFDEFDEFRESTOREKILLUSINGENDENDENDENDENDENDENDKILLUSINGFORENDENDENDENDENDENDENDCLEARERRORIFTAB(USINGELSEMERGEUSING

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