Willus.com

Home   |   Archive   |   About

SPCCAST4.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.

    
21313 TLE
SINAERR 2 `LEN1XDEFINT>ORMKI$INP 27966 LPRINTOREXPORATN2 15360 2?m+k!7n>+m>OR[FF]>ORMKI$+RESTOREa!ENDA>
) 8677  15841 ERL;`!LISTRESET/=ABS[J!STR$tNOT# 10699 ~0
NEXT#n&)) CLOSECVI?ABSTHENOPEN`6 9023 >USRRESETNEXTw#MID$NEXT`LPRINTERRINPUT`>[FF]w#6 8983 >CVISETNEXTw#MID$ERROR`LPRINTERROUT`>[FF]w#ERLR`ERLP`
_ 27970 >
`iP 2304 MKD$D MKD$
MOR[FF]SQR5 7520 ERLCLOAD`,%ERLAUTO`>ORMKI$LPRINTOR[FF]+k>8MKS$G[FD]!LISTRESET
AND+RESTOREa[FD]n 64769 ^[FD]V|
 28154 a[FD]u 60673 WCVIERLabk)NOT,NOT[FD]u[FD]t[FD]n[FD]f[FD]^[FD]V|[FE]0ANDma[FD]u[FD]tMKS$WCVIERLMabk)NOT,NOT[FD]u[FD]tABS[FD]N
[FD]^!STR$tNOT# 10699 ~0
NEXT#n&)) DELETEwABS 30987 DEFERLFIX`INSTR! 15360
49584 MKS$W=MKS$GERLCVD`ERR8jABS! 16385
[FF]6ENDMKS$DEFABSINKEY$:Ym!MKI$q_ 22578 m! 27984 "Rm!DATAFORINPUTFOR
+
6
MKS$DEF:Im[FE]FNERL*a+
m!DELETEqAUTOq6 60672 DEFLPRINT2Zm>2Gm+k!fm >+m!Pm>>0~+LEN
 4131 RIGHT$!Xm1>~+LENj~AUTOTHEN/j!snDATA?+m!INSTRm=+m:YmPOINT0![FF]LPRINT+:@8[FE]ERL?b+kERRLEFT$dCVI
ERLKb|LLISTERL0bSIN:>mAUTO INP 8263 :@8CVIERLgb:
8CVI
(:Dm+EXPj*Lm"Lm*Nm "Nm*LmT]))))AUTOMKS$RNOT,NOTNOT,NOTNOT,NOTNOT,NOTNOT|THENRESUMEb#"LmMKS$[HmNOTTAB("Hm*NmT]))))AUTOMKS$RNOT,NOTNOT,NOTNOT,NOTNOT,NOTNOT|THEN-b#"NmMKS$[Jm|[FE]0FRECVDbAUTOMID$PEEKb</ERRCVSbPOINT/g"Jm:@8CVIEND!dmFwTHEN'bCLEAR :>mAUTO
 56099 10359 INOTg CVI[FE] ?!DELETEq 9930 cLEFT$ERRIFd6MKS$[Hm#s#r:Dm+EXPjLOF)))LOF#s#rMKS$[Jm#s#rPYLOF)))LOF#s#r:Zmo[FE]THENERRc+Ik[FE]0FREgcLPRINT2Zm:CmONEXTFORCMDNEXT!RANDOM_ 22051 !DATAFOR~AUTOERLTAB(c:Zm<[FE]2ZmERLABScLOF)LINEr~2\m#~2^m> 2cm:Cm+EXPjLOF))))"_m`i))))"amERRABScLPRINT2ZmERRABSc*[mMKS$[_m"[m*]mMKS$[am"]m:>mAUTO INP 8287 :@8CVI@THEN'c:Dm<[FE]ERLLEFT$cLPRINT2Dm:>mAUTO
 219 /NOTW :@8CVI THENd:Dm=FIXd>2Dm:Im[FE]@FRE3dO:Km[FE]ANDNd+0kERRedMKS$DPOINTO:Km[FE]AND\d+0kAUTOTHENedO>GOSUBERRedMKS$DPOINT/+0kO>GOSUBERRedMKS$DPOINT/+0kPOINTSQRTRON
THENIFdANDpdPOINT[FE]FRERESETdSQR5
FIXIFdSQR6
ERRIFdSQR~
<[FE]ERLLETdLPRINTSQRw
[FD]!DATAFOR!INPUTFORDATAFOR
c 768 [FD]~ 30717 c
d 8971 SQR5 9828 4353 Tu)))))LINE=ABS:Zm[FE]ERLTANd >
POSMKD$
OR[FF] ERLFREdSTR$ERRMKI$d! 46460 ERLCVIdABS+k:@8[FE]ERL[FE]d+
mERR/j>
 8 MKS$DEFPEEK!8 15841 ERL 27977 [FE]FNTHEN[FD]eTxSQRn& 10537 )
/~[FE] THENFOReSQRRANDOMCVIW#:KmRANDOMCLOADFREGeAUTOMID$FeGOSUBERRGeFOR_#[FE] FRE|e[FE]#AND|eABSNEXTo& 6514 ~=ABSCSAVEAND|eABS#~ABSCSAVEFRE|eABS! 27980 "Nm:Cm2DmABS+gkMERGE:Zm[FE]ERL[FD]e:\m[FE]ENDANDDEFINTe:^m[FE]/FREOUTeLPRINT2ZmERR[FD]e:cm[FE]ANDNAMEe<2cmGCVI
THENCLEARe!rERRNEWe!>r:\mRANDOM[FE]ENDANDRIGHT$eW#:^mRANDOM[FE]0ANDMID$e_+VARPTRlTHENVALeSQRVSQR^ +RNDlLPRINT2Zm!Xm~='w>FN2Im2KmERR[FD]e+gk+##FN!LINEr
 33459 AUTOMID$fTHENf~#~+jk+##ERRf:Im[FE]FNTHENpgSQRPEEKSQR![q!STR$q:Ym_ 26333 32001 LISTTHENIFf=THENOPENfV#^#+IkAUTOMID$AfSQRrSQRs,tAUTOSQRt 60673 RFRESETfPOINT 55890 pf!,tERRAf+IkCVI?ERLSETfSQRw 257 SQR6}SQRVSQR^+kERReg+IkCVI?ERLegSQR6 310 LINEERRegSQR~=THENTROFFfSQRwSQRVSQR^{[FE]FREVALf[FE]#ANDVALfz[FE]&FREVALf[FE]YANDVALf<MID$ATNfNOT/NEWFREATNf>vRETURNNOT/NEWFREEXPfERR+gERR+g>vRETURNNOT/NEWFRECDBLfERR+gERR+gABS:Ym_ 6513
 18393 +IkCLEARAND8g:ImCSAVETHENgFREg+IkAUTOMID$+g:KmNEWTHEN+gFRE*g+IkAUTOMID$PRINTfSQRrSQRs=+k[:ImCSAVEERLeg:KmNEWERLeg+RNDlSQR6 310 LINE!Xm~='w>FN2Im2Km 49677 2fSQRCOSSQR6 46625 q[FD]~ 27091 [FD]5 18413 [FD]n
[FD]f[FD]^[FD]VNOTTAB([FD]u
[FD]tT[FD]n[FD]f[FD]N[FD]F |[FE]0FRECSAVEgAUTOMID$CLEARg</ERRCSAVEgPOINT/[FD]u[FD]w_+VARPTRlERL[FF]g+VARPTRlERL[FF]g+VARPTRlERL[FF]g+VARPTRlERL[FF]g+VARPTRlERL[FF]g+VARPTRlERL[FF]g+VARPTRlERL[FF]g+VARPTRlERL[FF]g+VARPTRlTHENERLi:
 37485 POINT[FE]ANDh:KmREMPOINT[FE]FREERLi!ORq~RETURN<[FE]ANDEh#~REM<[FE]+ANDEh+~+DELETE[FE]ANDOh6r#6LINE+RNDl>+ZkERR*h>CMDoANDMh$NOT!LENt
X{MKS$CLOADSIN<h}CVI
[FE] 32360 CSAVEERLUhLOF>OR[FF]!RESTORE
MKS$BANDyh=ERRSETh!MEM 55874 SETh<+Zk!LINErMKS$RNOT,NOTCONTRESET6 385 d 65491 MKS$POKETHEN*h+IkAUTOMID$AUTOh:Ym[FE]THENAUTOh<2Ym!MKI$FORDATAFOR
MEM 20513 RESETQRESET
c 45293 LPRINT[FD]w 15977 HRETURN[FE]ANDERLi>REM[FE]ANDERLi>P+Zk!Xm~<'w:Ym[FE]THEN[FE]h<2Ym!LIST
 25606 6 9024 +Ikw#:LOFqCVI<w#6 8984 +Ikw#:LOFqCVI<w#<! 46460 ERL2i+k[FD]!LISTRESETd[FD]n 64769 ^[FD]V[FD]u 31745 AUTOMID$wi[FD]n[FD]f[FD]^[FD]V[FD]u[FD]tW|[FE]0ANDwi_+gk 49936 ERL/i
J+PRINTiz[FE]sFRECMDiTRON+PRINTiz[FE] ERLGOSUBi[FF]+PRINTi+PRINTi+PRINTi+PRINTiERLEDITiERRAUTOa+IkCSAVEANDUSINGiyMKD$
OR[FF]OCDBLINKEY$MKS$W=MKS$GERLRANDOMg[FD]V[FD]^+gk
13789 8551 Gm~[FE]THENj<woNEXTSGNW
+PRINTi& 10589 )))AUTOMKS$R
 6524 MKS$[Em>
8677 6 15841 ERL j:Im[FE]FNERLKb:Gm[FE]ERLIFd+
mERR*a!INPUTmSGN>+m!LINEmGOTO?+m!+n=+m!ORmOR?+mWm!SmFN+FREjjERLvjSTR$ERRvj*Pm"Tm*Rm"Vm!Tm(=>0~+LENj#RIGHT$!MKD$mB<+m: 8CVIENDERLDELETEj:8AUTOTHENRETURNj
 27311 NOT!ERRPUTjx2YmERROUTa+k!PUTn 52496 mPEEK!@ 59003 VARPTR_COS#CINT:@8CVI
THENANDj+kERR8jPEEKNEXTNEXTo& 6527 ^#V#N#FCOSINKEY$OCVIPOINT0yCVI
RANDOM 12486 INKEY$ABS! 15361 6END
[FF]MKS$DEFABSINKEY$PEEK[FD]!r[FD]n 6401 LOF+gk[FD]#[FD]#CINTCOSINKEY$o& 21597 )T{~CLOAD#FREEk~INKEY$#ERR=kABS*LOCq\MKS$_W))"LOCq}ABSINKEY$!PmRANDOM'w/#>
ERR]kz{ABSNEXTNEXT&lo^,V,nNOT/AND}kNOT%SET_LLISTABSINKEY$
 316 4 16384 <
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&lo^,V,nNOT/AND<lNOT%SET_PUTCVI?ABSINKEY$PEEK=>[FF]2Gmz 52084 #nb))NOT/CMDo[FC];"Em[COS
@ 4670 2Dm! 27980 "Nm>s2Im+IkCVIPOINT2KmINKEY$~[FE] MEM[FE]aFRE8m[FE]{AND8mO:?mAUTOyTHEN8mCVI_#ERRm
?m 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 <?> Michael Fereday 29a Ravenstone Street London SW12 9ST High Score: T h e
?nC 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
?o. 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
?p fire deadly energy balls at you if a clear path forms between it and you. KEYS: (<-) and (->) rotate ship counter clockwise and clockwise 8224 (@) or ([) gives ship thrust, (space) fires projectile. SCORING: Outer, middle and inner wall "bricks"- 10,20
y?q& 30 pts. intelligent mines- 50 pts. and Space Castle- 500 pts. Press <ENTER> to return to Score page.
LOCqOTRONDEFDBLPUTLISTMEMPOSCSNG[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
LOCr66554332222222344556778899:;;<<=>>??@AABBCDDEEFGGHHIJJKKLMMMMQQQPPONMLKKJIHGGFEDCCBA@??>=<;;:987765433210//......./00123445678 8 9
LOCs: ; < < = > ? @ @ 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
LOCtTUUUU
16

 
000
@@@
PPP
```
ppp
ENDENDEND
RESTORERESTORERESTORE
OUTOUTOUT
DEFDEFDEF
VARPTRVARPTRVARPTR
///
EXPEXPEXP
CSNGCSNGCSNGENDENDENDENDENDENDENDENDENDENDENDDEFSTREDITRESTOREENDENDENDMERGEDEFSNGENDELSEDIMCLEARENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTLETLSETGETENDENDENDDIMRANDOMOUTCMDKILLDEFSTRENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTDEFSTRRSETTAB(ENDENDENDGOTOFORDEFSTRFORDEFSNGENDENDENDENDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDENDRESTOREOUTDEFSTRLETTAB(LINEENDENDSETONLETFIELDDEFSTRFORENDENDENDENDENDREADCLSENDENDENDENDENDENDENDENDENDENDENDCLEARDEFLETFIELDNEWTAB(CLSENDENDLETRANDOMPOKELET
LOCuRANDOMENDENDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDENDENDREADGOTOLETFIELDCLOADLISTRESTOREENDRESETFIELDCONTPOKELETSETENDENDENDSETFORENDENDENDENDENDENDENDENDENDENDENDENDENDSETGOTOLETLETDEFENDENDENDSETCONTCONTCONTIFSETENDEND 32896 ENDENDENDENDENDDEFRESTOREENDENDENDENDENDOUTPRINTCONTREMLETDEFENDENDCLEARLINELETPRINTDEFDBLNEXTFORENDENDENDENDENDENDENDENDENDENDENDOUTDEFENDENDENDENDENDLETGETREMLETGETENDENDREADSETLETPRINTNEWIFCLSENDENDENDENDENDENDENDENDENDENDENDENDOUTRESTOREENDENDENDENDDATADEFREADGETENDENDENDNEXTINPUTGETCONTTAB(LLISTENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDDEFENDGETRESETLOADENDENDENDFORINPUTGETCLOADFNENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTRESTOREDATARESTOREMERGEGETENDENDRESETDIMDEFNAMEDEFSNGENDENDENDENDENDENDSETENDENDENDENDENDENDENDENDENDENDENDENDMERGEGETENDSTOPOUTRSETENDENDENDRESETGETLLISTRANDOM
LOCvENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDOUTRSETENDDEFSTRENDDEFENDENDENDDIMCLEARONDEFSNGRESETENDENDENDENDRESETFORENDENDENDENDENDENDENDENDENDENDENDENDENDOPENNEXTOUTCLSOUTRESTOREENDENDKILLTAB(POKELETFORFORENDENDENDENDENDENDENDENDENDENDENDDEFENDENDENDENDEND 41358 DEFSTRENDENDENDOUTTODELETEPOKELETSETCMDENDENDENDENDENDENDENDENDENDENDENDOUTDEFENDENDENDENDOUTLETRANDOMPOKELETCLSENDENDRUNLPRINTCONTDEFSTRRANDOMREADFORENDENDENDENDENDENDENDENDENDENDENDENDENDDEFRESTOREENDENDOUTDEFSTRRANDOMCONTCONTDEFENDENDSETIFCONTDEFSTRLETTAB(RESTOREENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDDEFLETLETRUNSETENDENDSETIFCONTCONTCONTSETENDENDENDENDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDDEFTAB(CONTINPUTLETIFFORENDRESETINPUTGETCONTCONTSETENDENDENDENDENDENDSETFORENDENDENDENDENDENDENDENDENDENDRSETFNCONTINPUTGETCLEARRESTOREENDRESETLETGETREMLET
LOCwCLSENDENDENDENDSETFORENDENDENDENDENDENDENDENDENDENDENDENDDATATAB(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 LOCx[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 LOCy[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 LOCz 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
LOC{_yB 592 \uZp 0 1131  0 1126  0 1407 0 1116  0 1112  0 1404  0 1389  0 1374  0 1663 0 0 ENDENDENDENDDEFENDENDENDENDENDENDENDENDENDSETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTDEFENDENDENDENDENDENDENDENDDIMIFFORENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDRSETCLEARRESTOREENDENDENDENDENDENDENDREADRUNRUNENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDDATAGETCLEARRESTOREENDENDENDENDENDENDRESETPOKEDELETEDATACMDENDENDENDENDENDENDENDENDENDENDEND
LOC|ENDENDENDENDLETGETDATACLSENDENDENDENDENDENDFIELDCLEARPRINTDATARANDOMENDENDENDENDENDENDENDENDENDENDENDENDENDENDRESETSETGETDIMDATAENDENDENDENDENDRESETRESETOUTRESETENDDEFFORENDENDENDENDRESETFORSETENDENDENDENDENDENDSETINPUTOUTDIMDATAENDENDENDENDENDFORFOROUTRESETENDRESTORERETURNENDENDENDENDSETFORSETENDENDENDENDENDENDSETINPUTOUTRESETCLSCLSENDENDENDENDCMDFORENDENDFORENDENDCMDENDENDENDLETRANDOMCLSCLSRESETRESETENDENDENDENDFORCLSENDFORFORENDENDENDDIMRESETENDENDENDFORENDENDCMDENDENDDATALETINPUTENDCLSRESETRESETENDENDENDENDFOR 33153 ENDENDENDCMDFORENDENDENDFORENDENDDIMENDENDRESTOREDEFONENDRESTOREENDFORFORENDENDRESETENDCLSENDFORRESETENDENDENDENDFORENDENDENDFORENDENDENDCMDENDDEFRESTOREGETENDRESTOREENDCLSDATAENDENDRESETENDCLSENDFORRESETENDENDENDRESETENDENDENDENDFORENDENDENDDIMENDENDENDCLSENDENDENDDATAENDCLSENDENDDATAENDENDENDENDENDENDENDFORENDENDEND
LOC}ENDFORENDENDENDENDENDENDDATAENDENDENDENDDATAENDCLSENDENDDATAENDENDENDENDENDENDENDFORENDENDENDENDFORENDENDENDENDENDENDOUTENDENDENDENDENDRESTOREOUTENDENDDATAENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDOUTENDENDENDENDENDRESTOREENDENDENDDATAENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETEND 32896 ENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDEND
LOC~ENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDEND 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
LOCLEN 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
OUTLOCENDENDENDENDENDENDENDENDUSINGELSEENDENDDEFDEFDEFDEFDEFDEFDEFCSAVEUSINGDEFDEFDEFDEFRESTOREKILLUSINGENDENDENDENDENDENDENDKILLUSINGFORENDENDENDENDENDENDENDCLEARERRORIFTAB(USINGELSE 33667 SETSETSETSETSETLSETUSINGSETSETSETSETFORKILLUSINGENDOUTTAB(IFIFTAB(RESTORERESETUSINGLLISTENDENDENDENDENDENDKILLUSINGENDENDOPENUSINGELSEENDSETIFIFIFTAB(RESTOREENDENDKILLUSINGENDENDENDENDENDKILLUSINGENDUSINGEDITLETLETRUNIFENDRESETREADIFTOTAB(TAB(TAB(STOPENDREADSAVETAB(IFUSINGELSEMERGETAB(TAB(TAB(TAB(IFFORENDENDKILLUSINGENDENDENDENDENDKILLUSINGENDRESETIFTAB(TAB(ERRORNEXT[FF] 32896 ENDENDENDENDENDENDENDENDENDLSETTOENDUSINGAUTOENDENDKILLUSINGENDUSINGELSEENDENDNEWUSINGENDUSINGELSEENDENDENDENDENDUSINGEDITLETLETRUNIFENDENDOUTDEFTAB(TAB(TAB(TAB(TAB(TAB(TAB(IFFORENDUSINGRESUMESAVETAB(IFFORENDRESETIFTAB(ERRORLPRINTUSINGENDRESETIFTAB(TAB(ERRORNEXTENDRESETIFTAB(TAB(ERRORNEXTENDFNRESUMESETFORENDEND
OUTLOCENDENDENDENDENDENDENDENDUSINGELSEENDENDDEFDEFDEFDEFDEFDEFDEFCSAVEUSINGDEFDEFDEFDEFRESTOREKILLUSINGENDENDENDENDENDENDENDKILLUSINGFORENDENDENDENDENDENDEND

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