Willus.com

Home   |   Archive   |   About

SPCCAST1.CMD (8588 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
 23345 DEFINT+EDITa/2>mLPRINTOREXPORATN2 15360 2?m+ k!7n>+m>OR[FF]>ORMKI$+GOTOa!ENDY>
) 8677  15841 ERL8`!AUTORESET/=ABS[J!CHR$tNOT# 10699 ~0
NEXT#n&)) CLOSECVI?ABSTHENRESUME`6 9023 >USRRESETNEXTw#MID$CLS`LPRINTERRRANDOM`>[FF]w#6 8983 >CVISETNEXTw#MID$DEFDBL`LPRINTERREDIT`>[FF]w#ERLO`ERLM`
_ 27970 >
`iP 2304 MKD$D MKD$
MOR[FF]SQR5 7520 ERLDELETE`,%ERLLIST`>ORMKI$LPRINTOR[FF]+ k>8MKS$G[FD]!AUTORESET
AND+GOTOa[FD]n 64769 ^[FD]V|AUTOMID$j
 30205 60673 WCVIERLabk)NOT,NOT[FD]u[FD]t[FD]n[FD]f[FD]^[FD]V|[FE]0ANDja[FD]u[FD]tMKS$WCVIERLJabk)NOT,NOT[FD]u[FD]tABS[FD]N
[FD]^!CHR$tNOT# 10699 ~0
NEXT#n&)) DELETEwABS 30987 DEFERLCINT`INSTR! 15360
49584 MKS$W=MKS$GERLPEEK`ERR;jABS! 22529
[FF]6ENDMKS$DEFABSINKEY$>INP 27993 !CINTq_ 22578 m! 27984 "Rm!READFORLETFOR
+
6
MKS$DEF:Im[FE]FNERL[a+
m!CLOADqCSAVEq6 60672 DEFLPRINT2Zm>2Gm+ k!fm >+m!Pm>>0~
 27405 #RIGHT$!Xm1>~+ k~AUTOTHEN2j!snDATA?+m!INSTRm=+m:YmPOINT0![FF]LPRINT+:@8[FE]ERLAb+ kERR'dCVI
ERLMb|LLISTERL2bSIN:>mAUTO +EDITaNOTG(:@8CVIERLib:
8CVI
(:Dm+MID$j*Lm"Lm*Nm "Nm*LmT]))))AUTOMKS$RNOT,NOTNOT,NOTNOT,NOTNOT,NOTNOT|THENONb#"LmMKS$[HmNOTTAB("Hm*NmT]))))AUTOMKS$RNOT,NOTNOT,NOTNOT,NOTNOT,NOTNOT|THEN/b#"NmMKS$[Jm|[FE]0FRELOCbAUTOMID$CVSb</ERREOFbPOINT/g"Jm:@8CVIEND!dmFwTHEN[FD]bCLEAR :>m
 21024 #+EDITa/FNw(INOTg CVI[FE] ?!CLOADq 10698 cLEFT$ERRRETURNd6MKS$[Hm#s#r:Dm+MID$jLOF)))LOF#s#rMKS$[Jm#s#rPYLOF)))LOF#s#r:Zmo[FE]THENPOINTc+ck[FE]0FREjcLPRINT2Zm:CmONEXTFORCMDNEXT!INPUT_ 22051 !READFOR~AUTOERLUSINGc:Zm<[FE]2ZmERLPOScLOF)RESUMEr~2\m#~2^m> 2cm:Cm+MID$jLOF))))"_m`i))))"amERRPOScLPRINT2ZmERRPOSc*[mMKS$[_m"[m*]mMKS$[am"]m:>mAUTO +EDITaNOT_(:@8CVI@THEN[FE]c:Dm<[FE]ERL'cLPRINT2Dm:>
 8375 +EDITaNOTW(:@8CVI THENd:Dm=FIXd>2Dm:Im[FE]@FRE6dO:Km[FE]ANDQd+JkERRhdMKS$DPOINTO:Km[FE]AND_d+JkAUTOTHENhdO>GOSUBERRhdMKS$DPOINT/+JkO>GOSUBERRhdMKS$DPOINT/+JkPOINTSQRTRON
THENRETURNdANDsdPOINT[FE]FRECMDdSQR5
FIXRETURNdSQR6
ERRRETURNdSQR~
<[FE]ERLIFdLPRINTSQRw
[FD]!READFOR!LETFORREADFOR
c 768 [FD]~ 30717 c
d 8971 SQR5 9828 4353 Wu)))))LINE=ABS:Zm[FE]ERLCVId >
POSMKD$
OR[FF] ERLSQRdSTR$ERRCINTd! 46460 ERLEOFdABS+ k:@8[FE]ERL
e+
mERR2
 1086
 8677 8 15841 ERLe:Im[FE]FNTHEN 30807 SQRn& 10537 )
/~[FE] THENCLSeSQRRANDOMCVIW#:KmRANDOMCLOADFREJeAUTOMID$IeGOSUBERRJeFOR_#[FE] FREe[FE]#ANDeABSNEXTo& 6514 ~=ABSCSAVEANDeABS#~ABSCSAVEFREeABS! 27980 "Nm:Cm2DmABS+FORkMERGE:Zm[FE]ERL 27996 [FE]ENDANDLINEe:^m[FE]/FREFIELDeLPRINT2ZmERR 28003 [FE]ANDRSETe<2cmGCVI
THENNEWe!rERRFNe!Ar:\mRANDOM[FE]ENDAND[FC]eW#:^mRANDOM[FE]0AND[FD]e_+VARPTRlTHENLEFT$eSQRVSQR^ +RNDlLPRINT2Zm!Xm~='w>FN2Im2KmERR 27521 +##FN
 29343
DELETERESET AUTOMID$fTHENf~#~+CLSk+##ERRf:Im[FE]FNTHENsgSQRPEEKSQR!>q!CHR$q:Ym_ 26333 32001 LISTTHENRETURNf=THENPUTfV#^#+ckAUTOMID$DfSQRrSQRs/tAUTOSQRt 60673 RFRERANDOMfPOINT 55890 sf!/tERRDf+ckCVI?ERLRANDOMfSQRw 257 SQR6}SQRVSQR^+0kERRhg+ckCVI?ERLhgSQR6 310 RESUMEERRhgSQR~=THENDEFSNGfSQRwSQRVSQR^{[FE]FRELEFT$f[FE]#ANDLEFT$fz[FE]&FRELEFT$f[FE]YANDLEFT$f<MID$CVSfNOT/NEWFRECVSf>vRETURNNOT/NEWFRETANfERR.gERR.g>vRETURNNOT/NEWFRESTR$fERR.gERR.gABS:Ym_ 2 g[FF]q~ABSG+ckCLEARAND;g:ImCSAVETHENgFREg+ckAUTOMID$.g:KmNEWTHEN.gFRE-g+ckAUTOMID$LLISTfSQRrSQRs=+0k[:ImCSAVEERLhg:KmNEWERLhg+RNDlSQR6 310 RESUME!Xm~='w>FN2Im2Km 49677 5fSQRCOSSQR6 47393 q[FD]~ 27094 [FD]5 18413 [FD]n
[FD]f[FD]^[FD]VNOTTAB([FD]u
[FD]tT[FD]n[FD]f[FD]N[FD]F |[FE]0FRETOgAUTOMID$NEWg</ERRTOgPOINT/[FD]u[FD]w_+VARPTRlERLh+VARPTRlERLh+VARPTRlERLh+VARPTRlERLh+VARPTRlERLh+VARPTRlERLh+VARPTRlERLh+VARPTRlERLh+VARPTRlTHEN
 14953 ImRETURNPOINT[FE]ANDh:KmREMPOINT[FE]FREINSTRi!<q~RETURN<[FE]ANDHh#~REM<[FE]+ANDHh+~+DELETE[FE]ANDRh6r#6RESUME+RNDl>+tkERRANDh>CMDoANDPh$NOT!ASCt
X{MKS$CLOADSINABSh}CVI
[FE]
ERLXh~CSAVEERLXhLOF>OR[FF]!RESTORE
MKS$BAND|h=ERRRANDOMh!MEM 55874 RANDOMh<+tk!RESUMErMKS$RNOT,NOTDELETERESET6 385 d 65491 MKS$POKETHENANDh+ckAUTOMID$CSAVEh:Ym[FE]THENCSAVEh<2Ym!CINTFORREADFOR
MEM 21281 RESETTRESET
c 45293 LPRINT[FD]w 15977 HRETURN[FE]ANDINSTRi>REM[FE]ANDINSTRi>P+tk!Xm~<'w:Ym[FE]THEN
i<2Y
 46881 RESETd6 9024 +ckw#:MKD$qCVI<w#6 8984 +ckw#:MKD$qCVI<w#<! 46460 ERL5i+ k[FD]!AUTORESETd[FD]n 64769 ^[FD]V[FD]u 31745 AUTOMID$zi[FD]n[FD]f[FD]^[FD]V[FD]u[FD]tW|[FE]0ANDzi_+FORk 49936 ERL2i
J+LLISTiz[FE]sFREDATAiTRON+LLISTiz[FE] ERLSTOPi[FF]+LLISTi+LLISTi+LLISTi+LLISTiERLOUTiERRCLOADa+ckCSAVEANDERLiyMKD$
OR[FF]OCDBLINKEY$MKS$W=MKS$GERLINPUTg[FD]V[FD]^+FORk
13789 8551 Gm~[FE]THENj<woNEXTSGNW
+LLISTi& 10589 )))AUTO
 4434 w|MKS$[Em>
8677 6 15841 ERLj:Im[FE]FNERLMb:Gm[FE]ERLRETURNd+
mERR[a!INPUTmSGN>+m!LINEmGOTO?+m!+n=+m!ORmOR?+mWm!SmFN+FREmjERLyjSTR$ERRyj*Pm"Tm*Rm"Vm!Tm(=>0~+ k#RIGHT$!MKD$mB<+m: 8CVIENDERL/j:8[FE] :BORMKI$:BOREXP+INKEY$
ERR-@:8AUTOTHENELSEj
 27337 NOT!ERRUSINGjx2YmERROPENa+ k!MERGEn 52496 mPEEK!@ 59003 VARPTR_COS#CINT:@8CVI
THENMKI$j+ kERR;jPEEKNEXTNEXTo& 27392 )^#V#N#FCOSINKEY$OCVIPOINT0yCVIPOINT0INKEY$ABS! 15361 6END
[FF]MKS$DEFABSINKEY$PEEK[FD]!r[FD]n 6401 LOF+FORk[FD]#[FD]#CINTCOSINKEY$o& 21597 )W{~CLOAD#FRE_k~INKEY$#ERRWkABS*MKS$q\MKS$_W))"MKS$q}ABSINKEY$!PmRANDOM'w/#>
ERRwkz{ABSNEXTNEXT&lo^,V,nNOT/ANDTROFFkNOT%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+ckCVIPOINT2KmINKEY$~[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 <?> Space Castle (C) 1982 Cornsoft Group, Written by Charles Guy 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 restart 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 Cas
?otle. 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 t
?po fire deadly energy balls at you if a clear path forms between it and you. KEYS: (<-) and (->) rotate ship counter clockwise and clockw 3429 (@) or ([) gives ship thrust, (space) fires projectile. SCORING: Outer, middle and inner wall "bricks"- 10,
|?q20 & 30 pts. intelligent mines- 50 pts. and Space Castle- 500 pts. Press <ENTER> to return to Score page.
MKS$qOTRONDEFDBLPUTLISTMEMPOSCSNG[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
MKS$r66554332222222344556778899:;;<<=>>??@AABBCDDEEFGGHHIJJKKLMMMMQQQPPONMLKKJIHGGFEDCCBA@??>=<;;:987765433210//......./00123445678 8 9
MKS$s: ; < < = > ? @ @ 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
MKS$tTUUUU
16

 
000
@@@
PPP
```
ppp
ENDENDEND
RESTORERESTORERESTORE
OUTOUTOUT
DEFDEFDEF
VARPTRVARPTRVARPTR
///
EXPEXPEXP
CSNGCSNGCSNGENDENDENDENDENDENDENDENDENDENDENDDEFSTREDITRESTOREENDENDENDMERGEDEFSNGENDELSEDIMCLEARENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTLETLSETGETENDENDENDDIMRANDOMOUTCMDKILLDEFSTRENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTDEFSTRRSETTAB(ENDENDENDGOTOFORDEFSTRFORDEFSNGENDENDENDENDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDENDRESTOREOUTDEFSTRLETTAB(LINEENDENDSETONLETFIELDDEFSTRFORENDENDENDENDENDREADCLSENDENDENDENDENDENDENDENDENDENDENDCLEARDEFLETFIELDNEWTAB(CLSENDENDLETRANDOMPOKELET
MKS$uRANDOMENDENDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDENDENDREADGOTOLETFIELDCLOADLISTRESTOREENDRESETFIELDCONTPOKELETSETENDENDENDSETFORENDENDENDENDENDENDENDENDENDENDENDENDENDSETGOTOLETLETDEFENDENDENDSETCONTCONTCONTIFSETENDEND 32896 ENDENDENDENDENDDEFRESTOREENDENDENDENDENDOUTPRINTCONTREMLETDEFENDENDCLEARLINELETPRINTDEFDBLNEXTFORENDENDENDENDENDENDENDENDENDENDENDOUTDEFENDENDENDENDENDLETGETREMLETGETENDENDREADSETLETPRINTNEWIFCLSENDENDENDENDENDENDENDENDENDENDENDENDOUTRESTOREENDENDENDENDDATADEFREADGETENDENDENDNEXTINPUTGETCONTTAB(LLISTENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDDEFENDGETRESETLOADENDENDENDFORINPUTGETCLOADFNENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTRESTOREDATARESTOREMERGEGETENDENDRESETDIMDEFNAMEDEFSNGENDENDENDENDENDENDSETENDENDENDENDENDENDENDENDENDENDENDENDMERGEGETENDSTOPOUTRSETENDENDENDRESETGETLLISTRANDOM
MKS$vENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDOUTRSETENDDEFSTRENDDEFENDENDENDDIMCLEARONDEFSNGRESETENDENDENDENDRESETFORENDENDENDENDENDENDENDENDENDENDENDENDENDOPENNEXTOUTCLSOUTRESTOREENDENDKILLTAB(POKELETFORFORENDENDENDENDENDENDENDENDENDENDENDDEFENDENDENDENDEND 41358 DEFSTRENDENDENDOUTTODELETEPOKELETSETCMDENDENDENDENDENDENDENDENDENDENDENDOUTDEFENDENDENDENDOUTLETRANDOMPOKELETCLSENDENDRUNLPRINTCONTDEFSTRRANDOMREADFORENDENDENDENDENDENDENDENDENDENDENDENDENDDEFRESTOREENDENDOUTDEFSTRRANDOMCONTCONTDEFENDENDSETIFCONTDEFSTRLETTAB(RESTOREENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDDEFLETLETRUNSETENDENDSETIFCONTCONTCONTSETENDENDENDENDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDDEFTAB(CONTINPUTLETIFFORENDRESETINPUTGETCONTCONTSETENDENDENDENDENDENDSETFORENDENDENDENDENDENDENDENDENDENDRSETFNCONTINPUTGETCLEARRESTOREENDRESETLETGETREMLET
MKS$wCLSENDENDENDENDSETFORENDENDENDENDENDENDENDENDENDENDENDENDDATATAB(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 MKS$x[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 MKS$y[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 MKS$z 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
MKS${_yB 592 \uZp 0 1131  0 1126  0 1407 0 1116  0 1112  0 1404  0 1389  0 1374  0 1663 0 0 ENDENDENDENDDEFENDENDENDENDENDENDENDENDENDSETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTDEFENDENDENDENDENDENDENDENDDIMIFFORENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDRSETCLEARRESTOREENDENDENDENDENDENDENDREADRUNRUNENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDDATAGETCLEARRESTOREENDENDENDENDENDENDRESETPOKEDELETEDATACMDENDENDENDENDENDENDENDENDENDENDEND
MKS$|ENDENDENDENDLETGETDATACLSENDENDENDENDENDENDFIELDCLEARPRINTDATARANDOMENDENDENDENDENDENDENDENDENDENDENDENDENDENDRESETSETGETDIMDATAENDENDENDENDENDRESETRESETOUTRESETENDDEFFORENDENDENDENDRESETFORSETENDENDENDENDENDENDSETINPUTOUTDIMDATAENDENDENDENDENDFORFOROUTRESETENDRESTORERETURNENDENDENDENDSETFORSETENDENDENDENDENDENDSETINPUTOUTRESETCLSCLSENDENDENDENDCMDFORENDENDFORENDENDCMDENDENDENDLETRANDOMCLSCLSRESETRESETENDENDENDENDFORCLSENDFORFORENDENDENDDIMRESETENDENDENDFORENDENDCMDENDENDDATALETINPUTENDCLSRESETRESETENDENDENDENDFOR 33153 ENDENDENDCMDFORENDENDENDFORENDENDDIMENDENDRESTOREDEFONENDRESTOREENDFORFORENDENDRESETENDCLSENDFORRESETENDENDENDENDFORENDENDENDFORENDENDENDCMDENDDEFRESTOREGETENDRESTOREENDCLSDATAENDENDRESETENDCLSENDFORRESETENDENDENDRESETENDENDENDENDFORENDENDENDDIMENDENDENDCLSENDENDENDDATAENDCLSENDENDDATAENDENDENDENDENDENDENDFORENDENDEND
MKS$}ENDFORENDENDENDENDENDENDDATAENDENDENDENDDATAENDCLSENDENDDATAENDENDENDENDENDENDENDFORENDENDENDENDFORENDENDENDENDENDENDOUTENDENDENDENDENDRESTOREOUTENDENDDATAENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDOUTENDENDENDENDENDRESTOREENDENDENDDATAENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETEND 32896 ENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDEND
MKS$~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
MKS$LEN 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
OUTMKS$ENDENDENDENDENDENDENDENDUSINGELSEENDENDDEFDEFDEFDEFDEFDEFDEFCSAVEUSINGDEFDEFDEFDEFRESTOREKILLUSINGENDENDENDENDENDENDENDKILLUSINGFORENDENDENDENDENDENDENDCLEARERRORIFTAB(USINGELSE 33667 SETSETSETSETSETLSETUSINGSETSETSETSETFORKILLUSINGENDOUTTAB(IFIFTAB(RESTORERESETUSINGLLISTENDENDENDENDENDENDKILLUSINGENDENDOPENUSINGELSEENDSETIFIFIFTAB(RESTOREENDENDKILLUSINGENDENDENDENDENDKILLUSINGENDUSINGEDITLETLETRUNIFENDRESETREADIFTOTAB(TAB(TAB(STOPENDREADSAVETAB(IFUSINGELSEMERGETAB(TAB(TAB(TAB(IFFORENDENDKILLUSINGENDENDENDENDENDKILLUSINGENDRESETIFTAB(TAB(ERRORNEXT[FF]

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