Willus.com

Home   |   Archive   |   About

SPCCAST2.CMD (14931 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.

    
62336 1XDEFINT>ORMKI$INP 27966 LPRINTOREXPORATN2 15360 2?m+ k!7n>+m>OR[FF]>ORMKI$+3 8545 ENDA>
) 8677  15841 ERL>`!LISTRESET/=ABS[J!STR$tNOT# 10699 ~0
NEXT#n&)) CLOSECVI?ABSTHENPUT`6 9023 >USRRESETNEXTw#MID$DIM`LPRINTERRLET`>[FF]w#6 8983 >CVISETNEXTw#MID$ON`LPRINTERRFIELD`>[FF]w#ERLU`ERLS`
_ 27970 >
`iP 2304 MKD$D MKD$
MOR[FF]SQR5 7520 ERLTAB(`,%ERLCSAVE`>ORMKI$LPRINTOR[FF]+ k>8MKS$G[FD]!LISTRESET
AND+REMa[FD]n 64769 ^
22269 |AUTOMID$pa[FD]u 60673 WCVIERL"abk)NOT,NOT[FD]u[FD]t[FD]n[FD]f[FD]^[FD]V|[FE]0ANDpa[FD]u[FD]tMKS$WCVIERLPabk)NOT,NOT[FD]u[FD]tABS[FD]N
[FD]^!STR$tNOT# 10699 ~0
NEXT#n&)) DELETEwABS 30987 DEFERLVAL`INSTR! 15360
49584 MKS$W=MKS$GERLLOF`ERR;jABS! 16385
[FF]6ENDMKS$DEFABSINKEY$:Ym!MKI$q_ 22578 m! 27984 "Rm!DATAFORINPUTFOR
+
6
MKS$DEF:Im[FE]FNERLANDa+
m!DELETEqAUTOq6 60672 DEFLPRINT2Zm>2Gm+ k!fm >+m!Pm>>0
6930 ~+ASCj#RIGHT$!Xm1>~+ASCj~AUTOTHEN2j!snDATA?+m!INSTRm=+m:YmPOINT0![FF]LPRINT+:@8[FE]ERLBb+ kERR'dCVI
ERLNb|LLISTERL3bSIN:>mAUTO INP 8263 :@8CVIERLjb:
8CVI
(:Dm+TANj*Lm"Lm*Nm "Nm*LmT]))))AUTOMKS$RNOT,NOTNOT,NOTNOT,NOTNOT,NOTNOT|THENOPENb#"LmMKS$[HmNOTTAB("Hm*NmT]))))AUTOMKS$RNOT,NOTNOT,NOTNOT,NOTNOT,NOTNOT|THEN[b#"NmMKS$[Jm|[FE]0FRELOFbAUTOMID$CVDb</ERRLOCbPOINT/g"Jm:@8CVIEND!dmFwTHEN[FE]
47202 :>mAUTO Q#INP 10359 INOTg CVI[FE] ?!DELETEq 10698 cLEFT$ERRRETURNd6MKS$[Hm#s#r:Dm+TANjLOF)))LOF#s#rMKS$[Jm#s#rPYLOF)))LOF#s#r:Zmo[FE]THENPOINTc+Lk[FE]0FREjcLPRINT2Zm:CmONEXTFORCMDNEXT!RANDOM_ 22051 !DATAFOR~AUTOERLUSINGc:Zm<[FE]2ZmERLPOScLOF)LINEr~2\m#~2^m> 2cm:Cm+TANjLOF))))"_m`i))))"amERRPOScLPRINT2ZmERRPOSc*[mMKS$[_m"[m*]mMKS$[am"]m:>mAUTO INP 8287 :@8CVI@THEN[FE]c:Dm<[FE]ERL
25595 LPRINT2Dm:>mAUTO INP 8279 :@8CVI THENd:Dm=FIXd>2Dm:Im[FE]@FRE6dO:Km[FE]ANDQd+3kERRhdMKS$DPOINTO:Km[FE]AND_d+3kAUTOTHENhdO>GOSUBERRhdMKS$DPOINT/+3kO>GOSUBERRhdMKS$DPOINT/+3kPOINTSQRTRON
THENRETURNdANDsdPOINT[FE]FRECMDdSQR5
FIXRETURNdSQR6
ERRRETURNdSQR~
<[FE]ERLIFdLPRINTSQRw
[FD]!DATAFOR!INPUTFORDATAFOR
c 768 [FD]~ 30717 c
d 8971 SQR5 9828 4353 Tu)))))LINE=ABS:Zm[FE]ERLCVId >
POSMKD$
OR[FF] ERLSQRdSTR$ERRCINTd! 46460 ERLEOFdABS+ k:@8
1790 ERL
e+
mERR2j>
 8677 8 15841 ERLe:Im[FE]FNTHEN 30804 SQRn& 10537 )
/~[FE] THENCLSeSQRRANDOMCVIW#:KmRANDOMCLOADFREJeAUTOMID$IeGOSUBERRJeFOR_#[FE] FREe[FE]#ANDeABSNEXTo& 6514 ~=ABSCSAVEANDeABS#~ABSCSAVEFREeABS! 27980 "Nm:Cm2DmABS+jkMERGE:Zm[FE]ERL 27996 [FE]ENDANDLINEe:^m[FE]/FREFIELDeLPRINT2ZmERR 28003 [FE]ANDRSETe<2cmGCVI
THENNEWe!rERRFNe!>r:\mRANDOM[FE]ENDAND[FC]eW#:^mRANDOM[FE]0AND[FD]e_+VARPTRlTHENLEFT$eSQRVSQR^ +RNDlLPRINT2Zm!Xm~='w>FN2Im2K
50029 27498 +##FN!LINEr
CONTRESET AUTOMID$fTHENf~#~+mk+##ERRf:Im[FE]FNTHENsgSQRPEEKSQR![q!STR$q:Ym_ 26333 32001 LISTTHENRETURNf=THENPUTfV#^#+LkAUTOMID$DfSQRrSQRs,tAUTOSQRt 60673 RFRERANDOMfPOINT 55890 sf!,tERRDf+LkCVI?ERLRANDOMfSQRw 257 SQR6}SQRVSQR^+kERRhg+LkCVI?ERLhgSQR6 310 LINEERRhgSQR~=THENDEFSNGfSQRwSQRVSQR^{[FE]FRELEFT$f[FE]#ANDLEFT$fz[FE]&FRELEFT$f[FE]YANDLEFT$f<MID$CVSfNOT/NEWFRECVSf>vRETURNNOT/NEWFRETANfERR.gERR.g>vRETURNNOT/NEWFRESTR$fERR
26414 ERR.gABS:Ym_ 6513 ~ABSG+LkCLEARAND;g:ImCSAVETHENgFREg+LkAUTOMID$.g:KmNEWTHEN.gFRE-g+LkAUTOMID$LLISTfSQRrSQRs=+k[:ImCSAVEERLhg:KmNEWERLhg+RNDlSQR6 310 LINE!Xm~='w>FN2Im2Km 49677 5fSQRCOSSQR6 46625 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+VARPTR
49772 h+VARPTRlERLh+VARPTRlTHENINSTRi:ImRETURNPOINT[FE]ANDh:KmREMPOINT[FE]FREINSTRi!ORq~RETURN<[FE]ANDHh#~REM<[FE]+ANDHh+~+DELETE[FE]ANDRh6r#6LINE+RNDl>+]kERRANDh>CMDoANDPh$NOT!LENt
X{MKS$CLOADSINABSh}CVI
[FE] 32360 CSAVEERLXhLOF>OR[FF]!RESTORE
MKS$BAND|h=ERRRANDOMh!MEM 55874 RANDOMh<+]k!LINErMKS$RNOT,NOTCONTRESET6 385 d 65491 MKS$POKETHENANDh+LkAUTOMID$CSAVEh:Ym[FE]THENCSAVEh<2Ym!MKI$FORDATAFOR
MEM 20513 RESETQRESET
c 45293 LPRINT[FD]w 15977 HRETURN[FE]ANDINSTRi>REM[FE]ANDINSTRi>P+]k
22561 m~<'w:Ym[FE]THEN
i<2Ym!LISTRESETd6 9024 +Lkw#:LOFqCVI<w#6 8984 +Lkw#:LOFqCVI<w#<! 46460 ERL5i+ k[FD]!LISTRESETd[FD]n 64769 ^[FD]V[FD]u 31745 AUTOMID$zi[FD]n[FD]f[FD]^[FD]V[FD]u[FD]tW|[FE]0ANDzi_+jk 49936 ERL2i
J+LLISTiz[FE]sFREDATAiTRON+LLISTiz[FE] ERLSTOPi[FF]+LLISTi+LLISTi+LLISTi+LLISTiERLOUTiERRCSAVEa+LkCSAVEANDERLiyMKD$
OR[FF]OCDBLINKEY$MKS$W=MKS$GERLINPUTg[FD]V[FD]^+jk
13789 8551 Gm~[FE]THENj<w
34671 SGNW
+LLISTi& 10589 )))AUTOMKS$Rt|MKS$[Em>
8677 6 15841 ERLj:Im[FE]FNERLNb:Gm[FE]ERLRETURNd+
mERRANDa!INPUTmSGN>+m!LINEmGOTO?+m!+n=+m!ORmOR?+mWm!SmFN+FREmjERLyjSTR$ERRyj*Pm"Tm*Rm"Vm!Tm(=>0~+ASCj#RIGHT$!MKD$mB<+m: 8CVIENDERLCLOADj:8AUTOTHENELSEj
 27314 NOT!ERRMERGEjx2YmERRFIELDa+ k!PUTn 52496 mPEEK!@ 59003 VARPTR_COS#CINT:@8CVI
THEN=j+ kERR;jPEEKNEXTNEXTo& 59904 DIM&^#V#N#FCOSINKEY$OCVIPOINT0yCVIPOINT0INKEY$ABS! 15361 6END
[FF]MKS$DEFABSINKEY$PEEK[FD]!r[FD]n 6401 LOF+jk[FD]#[FD]#CINTCOSINKEY$o& 21597 )T{~CLOAD#FREHk~INKEY$#ERR@kABS*LOCq\MKS$_W))"LOCq}ABSINKEY$!PmRANDOM'w/#>
ERR`kz{ABSNEXTNEXT&lo^,V,nNOT/ANDENDkNOT%SET_LLISTABSINKEY$ 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 59392 READ 0 0 0 0 0 <
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
22 !STR$tNOT#nb))NOT/CMDo[FC];"Em[COSINKEY$>2Dm! 27980 "Nm>s2Im+LkCVIPOINT2KmINKEY$~[FE] MEM[FE]aFRE8m[FE]{AND8mO:?mAUTOyTHEN8mCVI_#ERRm 2303  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
29296 ess <?> Space Castle (C) 1982 Cornsoft Group, Written by Charles Guy High Score: T h e C 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 survi
25974 by replenishment of your ship supply. To obtain ships you must destroy the Space Castle. 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
30063 t of the Castle and chase you. Finally, you must beware of the Space Castle's ability to fire deadly energy balls at you if a clear path forms between it and you. KEYS: (<-) and (->) rotate ship counter clockwise and clockwise (@) or ([) gi
25974 s ship thrust, (space) fires projectile. SCORING: Outer, middle and inner wall "bricks"- 10,20 & 30 pts. intelligent mines- 50 pts. and Space Castle- 500 pts. Press <ENTER> to return to Score page. 0 0 0 0 0 0 0 1 POSGOSUB 0 0 20224 TRONDEFDBLPUTLISTMEMPOSCSNG[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@??>>=<<
7739 ;:9988766554332222222344556778899:;;<<=>>??@AABBCDDEEFGGHHIJJKKLMMMMQQQPPONMLKKJIHGGFEDCCBA@??>=<;;:987765433210//......./0012
7731 445678 8 9 : ; < < = > ? @ @ 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 IJ
3659 LMNOPQRSTTUUUU
16

 
000
@@@
PPP
```
ppp
ENDENDEND
RESTORERESTORERESTORE
OUTOUTOUT
DEFDEFDEF
VARPTRVARPTRVARPTR
///
EXPEXPEXP
CSNGCSNGCSNGENDENDENDENDENDENDENDENDENDENDENDDEFSTREDITRESTOREENDENDENDMERGEDEFSNGENDELSEDIMCLEARENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTLETLSETGETENDENDENDDIMRANDOMOUTCMDKILLDEFSTRENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTDEFSTRRSETTAB(ENDENDENDGOTOFORDEFSTRFORDEFSNGENDENDENDENDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDENDRESTOREOUTDEFSTRLETTAB(LINEENDENDSETONLETFIELDDEFSTRFORENDENDENDENDENDREADCLSENDEND
32896 ENDENDENDENDENDENDENDCLEARDEFLETFIELDNEWTAB(CLSENDENDLETRANDOMPOKELETRANDOMENDENDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDENDENDREADGOTOLETFIELDCLOADLISTRESTOREENDRESETFIELDCONTPOKELETSETENDENDENDSETFORENDENDENDENDENDENDENDENDENDENDENDENDENDSETGOTOLETLETDEFENDENDENDSETCONTCONTCONTIFSETENDENDSETFORENDENDENDENDENDENDENDDEFRESTOREENDENDENDENDENDOUTPRINTCONTREMLETDEFENDENDCLEARLINELETPRINTDEFDBLNEXTFORENDENDENDENDENDENDENDENDENDENDENDOUTDEFENDENDENDENDENDLETGETREMLETGETENDENDREADSETLETPRINTNEWIFCLSENDENDENDENDENDENDENDENDENDENDENDENDOUTRESTOREENDENDENDENDDATADEFREADGETENDENDENDNEXTINPUTGETCONTTAB(LLISTENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDDEFENDGETRESETLOADENDENDENDFORINPUTGETCLOADFNENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTRESTOREDATARESTOREMERGEGETENDENDRESETDIMDEFNAMEDEFSNGENDENDENDENDENDENDSETEND
32896 ENDENDENDENDENDENDENDENDENDMERGEGETENDSTOPOUTRSETENDENDENDRESETGETLLISTRANDOMENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDOUTRSETENDDEFSTRENDDEFENDENDENDDIMCLEARONDEFSNGRESETENDENDENDENDRESETFORENDENDENDENDENDENDENDENDENDENDENDENDENDOPENNEXTOUTCLSOUTRESTOREENDENDKILLTAB(POKELETFORFORENDENDENDENDENDENDENDENDENDENDENDDEFENDENDENDENDENDENDOUTRUNONDEFSTRENDENDENDOUTTODELETEPOKELETSETCMDENDENDENDENDENDENDENDENDENDENDENDOUTDEFENDENDENDENDOUTLETRANDOMPOKELETCLSENDENDRUNLPRINTCONTDEFSTRRANDOMREADFORENDENDENDENDENDENDENDENDENDENDENDENDENDDEFRESTOREENDENDOUTDEFSTRRANDOMCONTCONTDEFENDENDSETIFCONTDEFSTRLETTAB(RESTOREENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDDEFLETLETRUNSETENDENDSETIFCONTCONTCONTSETENDENDENDENDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDDEFTAB(CONTINPUTLETIFFORENDRESETINPUTGETCONTCONTSETENDENDENDENDEND
33664 FORENDENDENDENDENDENDENDENDENDENDRSETFNCONTINPUTGETCLEARRESTOREENDRESETLETGETREMLETCLSENDENDENDENDSETFORENDENDENDENDENDENDENDENDENDENDENDENDDATATAB(LINELETDEFENDRESTOREENDENDINPUTPRINTINPUTGETSETFORENDENDDATARUNFORENDENDENDENDENDENDENDENDENDENDENDENDENDMERGETAB(LETDEFENDENDENDENDDIMRESTOREINPUTRESTOREINPUTCMDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTSYSTEMINPUTGETENDENDENDDATACSAVEENDPUTRESETRUNENDENDENDENDENDENDENDENDEND[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]
65029 [FE][FE][FE] 255 0
511 65282 [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]
65027 [FC][FF][FD][FF][FE][FF][FE] 65280 1  512 [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

65281
65026  65275 [FC][FF][FD][FF][FE][FF][FF][FF][FF] 65280 1 
[FF]
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
1151 19200
Ud 18944
Sa~C 594 _yB 592 \uZp 0 1131  0 1126  0 1407 0 1116  0 1112  0 1404  0 1389  0 1374  0 1663 0 0 ENDENDENDENDDEFENDENDENDENDENDENDENDENDENDSETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTDEFENDENDENDENDENDENDENDENDDIMIFFORENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDRSETCLEARRESTOREENDENDENDENDENDENDENDREADRUNRUNENDENDENDENDENDEND
32896 ENDENDENDENDENDENDENDENDDATAGETCLEARRESTOREENDENDENDENDENDENDRESETPOKEDELETEDATACMDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDLETGETDATACLSENDENDENDENDENDENDFIELDCLEARPRINTDATARANDOMENDENDENDENDENDENDENDENDENDENDENDENDENDENDRESETSETGETDIMDATAENDENDENDENDENDRESETRESETOUTRESETENDDEFFORENDENDENDENDRESETFORSETENDENDENDENDENDENDSETINPUTOUTDIMDATAENDENDENDENDENDFORFOROUTRESETENDRESTORERETURNENDENDENDENDSETFORSETENDENDENDENDENDENDSETINPUTOUTRESETCLSCLSENDENDENDENDCMDFORENDENDFORENDENDCMDENDENDENDLETRANDOMCLSCLSRESETRESETENDENDENDENDFORCLSENDFORFORENDENDENDDIMRESETENDENDENDFORENDENDCMDENDENDDATALETINPUTENDCLSRESETRESETENDENDENDENDFORCLSENDFORFORENDENDENDCMDFORENDENDENDFORENDENDDIMENDENDRESTOREDEFONENDRESTOREENDFORFORENDENDRESETENDCLSENDFORRESETENDENDENDENDFORENDENDENDFORENDENDENDCMDENDDEFRESTOREGETENDRESTOREENDCLSDATAENDENDRESETENDCLSENDFOR
32898 ENDENDRESETENDENDENDENDFORENDENDENDDIMENDENDENDCLSENDENDENDDATAENDCLSENDENDDATAENDENDENDENDENDENDENDFORENDENDENDENDFORENDENDENDENDENDENDDATAENDENDENDENDDATAENDCLSENDENDDATAENDENDENDENDENDENDENDFORENDENDENDENDFORENDENDENDENDENDENDOUTENDENDENDENDENDRESTOREOUTENDENDDATAENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDOUTENDENDENDENDENDRESTOREENDENDENDDATAENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDEND
32896 ENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDEND 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
208  212  218  223  229 # 234 ) 239 , 243 . 246 0 248 3 251 6 255 9 258 = 262 D 268 ENDENDENDENDENDDEFTAB(TAB(TAB(TAB(TAB(TAB(TAB(ENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFNTROFFENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDRESETIFTAB(TAB(TAB(TAB(TAB(DEFENDENDUSINGTOERRORIFTAB(RESTOREENDOUTTAB(IFSAVEFNUSINGENDOUTTAB(IFIFSAVELISTENDOUTTAB(IFIFTAB(RESTOREENDENDENDENDENDENDENDENDENDENDENDLSETTOENDUSINGAUTOENDENDKILLUSINGENDUSINGELSEENDENDNEWUSINGENDUSINGELSEENDENDENDENDENDUSINGEDITLETLETRUNIFENDENDOUTDEF
48316 TAB(TAB(TAB(TAB(TAB(IFFORENDUSINGRESUMESAVETAB(IFFORENDRESETIFTAB(ERRORLPRINTUSINGENDRESETIFTAB(TAB(ERRORNEXTENDRESETIFTAB(TAB(ERRORNEXTENDFNRESUMESETFORENDENDENDENDENDENDENDENDENDUSINGELSEENDENDDEFDEFDEFDEFDEFDEFDEFCSAVEUSINGDEFDEFDEFDEFRESTOREKILLUSINGENDENDENDENDENDENDENDKILLUSINGFORENDENDENDENDENDENDENDCLEARERRORIFTAB(USINGELSEMERGEUSINGSETSETSETSETSETSETSETLSETUSINGSETSETSETSETFORKILLUSINGENDOUTTAB(IFIFTAB(RESTORERESETUSINGLLISTENDENDENDENDENDENDKILLUSINGENDENDOPENUSINGELSEENDSETIFIFIFTAB(RESTOREENDENDKILLUSINGENDENDENDENDENDKILLUSINGENDUSINGEDITLETLETRUNIFENDRESETREADIFTOTAB(TAB(TAB(STOPENDREADSAVETAB(IFUSINGELSEMERGETAB(TAB(TAB(TAB(IFFORENDENDKILLUSINGENDENDENDENDENDKILLUSINGENDRESETIFTAB(TAB(ERRORNEXT[FF] 0 0 0 0 0 0 0 0 0 0 48128 ON 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 16128 P 1 CSAVEOPEN 80 0 ?P 14 0 [FC][FF] 0 LEFT$[FF] 0 ASC[FF] 0  78 0 ?N 16 0  78 0 ?N 65534 0 [FC][FF] 0 LEFT$[FF] 0 ASC[FF] 0 STR$[FF] 0  76 0 ?L 16 0  76 0 ?L 10 0 [FE][FF] 0 [FC][FF] 0 LEFT$[FF] 0 ASC[FF] 0 STR$[FF] 0 FIX[FF] 0  74 0 ?J 16 0  74
5888 74 0 ?J 65534 0 LEFT$[FF] 0 STR$[FF] 0 FIX[FF] 0  72 0 ?H 16 0  72 0 ?H 0 0 [FE][FF] 0 LEFT$[FF] 0 FIX[FF] 0 CSNG[FF] 0  70 0 ?F 16 0  70 0 ?F 0 0 [FE][FF] 0 LEFT$[FF] 0 FIX[FF] 0 CSNG[FF] 0  68 0 ?D 16 0  68 0 ?D 0 46592 GETD 65534 0 LEFT$[FF] 0 FIX[FF] 0 CSNG[FF] 0  66 0 ?B 16 0  66 0 ?B 0 0 [FE][FF] 0 LEFT$[FF] 0 FIX[FF] 0 CSNG[FF] 0  64 0 ?@ 16 0  64 0 ?@ 65534 0 [FC][FF] 0 LEFT$[FF] 0 STR$[FF] 0 FIX[FF] 0  62 0 ?> 18 0  62 0 ?> 12 0  62 511 16128 > 65532 0 MID$[FF] 0 LEFT$[FF] 0 ASC[FF] 0 STR$[FF] 0 FIX[FF] 0  60 0 ?< 16 0  60 0 ?< 65532 0 MID$[FF] 0 LEFT$[FF] 0 ASC[FF] 0 STR$[FF] 0  58 0 ?: 14 0 MID$[FF] 0 LEFT$[FF] 0 ASC[FF] 0  52 0 ?4 20 0  52 0 ?4 14 0  52 0 ?4 8 0 
6 0  52 0 ?4 65532 0 STR$[FF] 0  50 0 ?2 20 0  50 0 ?2 14 0  50 0 ?2 8 0  50 0 ?2 2 0 [FE][FF] 0 [FC][FF] 0 STR$[FF] 0 FIX[FF] 0  48 0 ?0 20 0  48 0 ?0 14 0  48 0 ?0 8 0  48 0 ?0 42928 0 ?0 65534 0 [FC][FF] 0 STR$[FF] 0 FIX[FF] 0  11839 65534 0 FIX[FF] 0 CSNG[FF] 0  11327 65534 0 FIX[FF] 0 CSNG[FF] 0  42 0 ?* 0 0 [FE][FF] 0 FIX[FF] 0 CSNG[FF] 0  40 0 ?( 0 0 [FE][FF] 0 FIX[FF] 0 CSNG[FF] 0  38 0 ?& 0 0 [FE][FF] 0 FIX[FF] 0 CSNG[FF] 0  1 SYSTEMMERGE$ 6 0 [FE][FF] 0 [FC][FF] 0 STR$[FF] 0 FIX[FF] 0  34 0 ?" 65534 0 [FC][FF] 0 MID$[FF] 0 LEFT$[FF] 0 ASC[FF] 0 STR$[FF] 0 FIX[FF] 0  32 0 ? 65532 0 MID$[FF] 0 LEFT$[FF] 0 ASC[FF] 0 STR$[FF] 0  30 0 ? 65530 0 LEFT$[FF] 0 ASC[FF] 0  28 0 ? 8 0  24 0 ? 22
16128  20 0  24 0 ? 14 0  24 0 ? 8 0  24 0 ? 2 0  6207 65534 0 [FC][FF] 0 MID$[FF] 0 LEFT$[FF] 0 ASC[FF] 0 STR$[FF] 0 FIX[FF] 0 CSNG[FF] 0  22 0 ? 20 0  22 0 ? 14 0  22 0 ? 8 0  22 0 ? 2 0 
0 0 [FE][FF] 0 [FC][FF] 0 MID$[FF] 0 LEFT$[FF] 0 ASC[FF] 0 STR$[FF] 0 FIX[FF] 0 CSNG[FF] 0  20 0 ? 20 0  20 0 ? 14 0  20 0 ? 8 0  20 0 ? 2 0  5183 65534 0 [FC][FF] 0 MID$[FF] 0 LEFT$[FF] 0 ASC[FF] 0 STR$[FF] 0 FIX[FF] 0 CSNG[FF] 0  18 0 ? 43944 255 ? 65532 0 MID$[FF] 0 ASC[FF] 0 STR$[FF] 0 FIX[FF] 0  16 0 ? 65534 0 [FC][FF] 0 STR$[FF] 0 FIX[FF] 0  14 0 ? 0 0 [FE][FF] 0 FIX[FF] 0 CSNG[FF] 0  12 0 ? 0 0 [FE][FF] 0 FIX[FF] 0 CSNG[FF] 0  10 0 ? 0 0 [FE][FF] 0 FIX[FF] 0 CSNG[FF] 0  8 0 ?
8 255 ? 65532 0 STR$[FF] 0 FIX[FF] 0  6 0 ? 8 0  6 255 ? 65532 0 MID$[FF] 0 LEFT$[FF] 0 ASC[FF] 0 STR$[FF] 0 FIX[FF] 0  4 0 ? 18 0  4 0 ? 6 0 [FC][FF] 0 MID$[FF] 0 LEFT$[FF] 0 ASC[FF] 0 STR$[FF] 0  2 0 ? 18 0  2 0 ? 6
16128  65530 0 LEFT$[FF] 0 ASC[FF] 0  0 0 ? 4119 0 0 ? 2071 0 0 ?[FE][FF] 0 ?[FE][FF] 0 ?[FE][FF] 0 ?[FE][FF] 0 ?[FE][FF] 0 ?[FE][FF] 0 ?[FC][FF] 0 ?[FC][FF] 0 ?[FC][FF] 0 ?[FC][FF] 0 ?[FC][FF] 0 ?[FC][FF] 0 ?[FC][FF] 255 ?[FC][FF] 255 ?[FC][FF] 255 ?MID$[FF] 0 ?MID$[FF] 0 ?MID$[FF] 0 ?MID$[FF] 0 ?MID$[FF] 0 ?MID$[FF] 0 ?MID$[FF] 255 ?MID$[FF] 41472 SYSTEMMID$[FF] 255 LEFT$[FF] 255 ASC[FF] 255 STR$[FF] 255  65528 0 ?LEFT$[FF] 0 ?LEFT$[FF] 0 ?LEFT$[FF] 0 ?LEFT$[FF] 0 ?LEFT$[FF] 255 ?LEFT$[FF] 255 ?LEFT$[FF] 255 ?LEFT$[FF] 255 ?LEFT$[FF] 255 ?LEFT$[FF] 255 ?LEFT$[FF] 255 ?ASC[FF] 0 ?ASC[FF] 0 ?ASC[FF] 0 ?ASC[FF] 0 ?ASC[FF] 0 ?ASC[FF] 0 ?ASC[FF] 255 ?ASC[FF] 255 ?ASC[FF] 255 ?ASC[FF] 255 ?STR$[FF] 0 ?STR$[FF] 0 ?STR$[FF] 0 ?STR$[FF] 0 ?STR$[FF] 0 ?STR$[FF]
5888  65524 0 ?STR$[FF] 255 ?STR$[FF] 255 ?STR$[FF] 255 ?FIX[FF] 0 ?FIX[FF] 0 ?FIX[FF] 0 ?FIX[FF] 0 ?FIX[FF] 0 ?FIX[FF] 0 ?FIX[FF] 0 ?FIX[FF] 255 ?FIX[FF] 255 ?FIX[FF] 255 ?CSNG[FF] 0 ?CSNG[FF] 0 ?CSNG[FF] 0 ?CSNG[FF] 0 ?CSNG[FF] 0 ?CSNG[FF] 255 ?CSNG[FF] 255 ?CSNG[FF] 255 ?MKD$[FF] 255 ?MKD$[FF] 255 ?MKD$[FF] 255 ?MKD$[FF] 255 ?MKI$[FF] 255 ?MKI$[FF] 255 ?MKI$[FF] 255 ?MKI$[FF] 255 ?MKI$[FF] 255 ?
65516 255 ?LOC[FF] 0 ?LOC[FF] 0 ?LOC[FF] 0 ?LOC[FF] 0 ?LOC[FF] 0 ?LOC[FF] 0 ?LOC[FF] 0 ?LOC[FF] 0 ?LOC[FF] 0 ?LOC[FF] 0 ?LOC[FF] 0 ?LOC[FF] 0 ?LOC[FF] 0 ?LOC[FF] 255 ?LOC[FF] 255 ?LOC[FF] 255 ?LOC[FF] 255 ?LOC[FF] 255 ?LOC[FF] 255 ?LOC[FF] 255 ?LOC[FF] 255 ?CVD[FF] 0 ?CVD[FF] 0 ?CVD[FF] 0 ?CVD[FF] 0 ?CVD[FF] 0 ?CVD[FF] 0 ?CVD[FF] 0 ?CVD[FF] 0 ?CVD[FF] 0 ?CVD[FF] 256 16128 CVD[FF] 0 ?CVD[FF] 0 ?CVD[FF] 0 ?CVD[FF] 255 ?CVD[FF] 255 ?CVD[FF] 255 ?CVD[FF] 255 ?CVD[FF] 255 ?CVD[FF] 255 ?CVD[FF] 255 ?CVD[FF] 255 ?CVI[FF] 0 ?CVI[FF] 0 ?CVI[FF] 0 ?CVI[FF] 0 ?CVI[FF] 0 ?CVI[FF] 0 ?CVI[FF] 0 ?CVI[FF] 0 ?CVI[FF] 0 ?CVI[FF] 0 ?CVI[FF] 0 ?CVI[FF] 0 ?CVI[FF] 0 ?CVI[FF] 255 ?CVI[FF] 255 ?CVI[FF] 255 ?CVI[FF] 255 ?CVI[FF] 255 ?CVI[FF] 255 ?CVI[FF] 255 ?CVI[FF] 39424 PRINTCSNG[FF] 255  65508 0 ?ATN[FF] 0 ?ATN[FF] 0 ?ATN[FF] 0 ?ATN[FF] 0 ?SIN[FF] 0 ?SIN[FF] 0 ?SIN[FF] 0 ?SIN[FF] 0 ?EXP[FF] 0 ?EXP[FF] 0 ?EXP[FF] 0 ?EXP[FF] 0 ?EXP[FF] 255 ?EXP[FF] 255 ?EXP[FF] 255 ?EXP[FF] 255 ?RND[FF] 0 ?RND[FF] 0 ?RND[FF] 0 ?RND[FF] 0 ?RND[FF] 255 ?RND[FF] 255 ?RND[FF] 255 ?RND[FF] 255 ?RND[FF] 255 ?RND[FF] 255 ?POS[FF] 0 ?POS[FF] 0 ?POS[FF] 0 ?POS[FF]
5888  65500 255 ?POS[FF] 255 ?POS[FF] 255 ?POS[FF] 255 ?POS[FF] 255 ?POS[FF] 255 ?POS[FF] 255 ?POS[FF] 255 ?FRE[FF] 0 ?FRE[FF] 0 ?FRE[FF] 0 ?FRE[FF] 0 ?FRE[FF] 255 ?FRE[FF] 255 ?FRE[FF] 255 ?FRE[FF] 255 ?FRE[FF] 255 ?FRE[FF] 255 ?INT[FF] 0 ?INT[FF] 0 ?INT[FF] 0 ?INT[FF] 0 ?INT[FF] 0 ?INT[FF] 0 ?INT[FF] 0 ?INT[FF] 0 ?INT[FF] 255 ?INT[FF] 255 ?INT[FF] 255 ?INT[FF] 255 ?INT[FF] 255 ?
65494 0 ?<[FF] 0 ?<[FF] 0 ?<[FF] 0 ?<[FF] 0 ?<[FF] 0 ?<[FF] 255 ?<[FF] 255 ?<[FF] 255 ?<[FF] 255 ?<[FF] 255 ?>[FF] 0 ?>[FF] 0 ?>[FF] 0 ?>[FF] 0 ?>[FF] 255 ?>[FF] 255 ?>[FF] 255 ?>[FF] 255 ?>[FF] 255 ?AND[FF] 0 ?AND[FF] 255 ?AND[FF] 255 ?AND[FF] 255 ?AND[FF] 255 ?AND[FF] 255 ?/[FF] 0 ?/[FF] 255 ?/[FF] 255 ?/[FF] 255 ?/[FF] 255 ?/[FF] 511 16128 -[FF] 0 ?-[FF] 0 ?-[FF] 0 ?-[FF] 255 ?-[FF] 255 ?-[FF] 255 ?-[FF] 255 ?-[FF] 255 ?STEP[FF] 0 ?STEP[FF] 0 ?STEP[FF] 0 ?STEP[FF] 255 ?STEP[FF] 255 ?STEP[FF] 255 ?STEP[FF] 255 ?STEP[FF] 255 ?THEN[FF] 0 ?THEN[FF] 0 ?THEN[FF] 0 ?THEN[FF] 255 ?THEN[FF] 255 ?THEN[FF] 255 ?THEN[FF] 255 ?THEN[FF] 255 ?MEM[FF] 0 ?MEM[FF] 0 ?MEM[FF] 0 ?MEM[FF] 255 ?MEM[FF] 255 ?MEM[FF] 255 ?MEM[FF] 255 ?MEM[FF] 37376 DELETECVI[FF] 255  65478 0 ?POINT[FF] 0 ?POINT[FF] 255 ?POINT[FF] 255 ?POINT[FF] 255 ?POINT[FF] 255 ?POINT[FF] 255 ?STRING$[FF] 0 ?STRING$[FF] 0 ?STRING$[FF] 0 ?STRING$[FF] 255 ?STRING$[FF] 255 ?STRING$[FF] 255 ?STRING$[FF] 255 ?STRING$[FF] 255 ?ERL[FF] 0 ?ERL[FF] 0 ?ERL[FF] 0 ?ERL[FF] 255 ?ERL[FF] 255 ?ERL[FF] 255 ?ERL[FF] 255 ?ERL[FF] 255 ?ERL[FF] 255 ?ERL[FF] 255 ?VARPTR[FF] 0 ?VARPTR[FF] 0 ?VARPTR[FF] 0 ?VARPTR[FF] 255 ?VARPTR[FF] 255 ?VARPTR[FF]
5888 MKD$[FF] 255 MKI$[FF] 255 LOC[FF] 255  65470 0 ?FN[FF] 0 ?FN[FF] 0 ?FN[FF] 0 ?FN[FF] 255 ?FN[FF] 255 ?FN[FF] 255 ?TAB([FF] 0 ?TAB([FF] 0 ?TAB([FF] 0 ?TAB([FF] 0 ?CSAVE[FF] 0 ?CSAVE[FF] 0 ?CSAVE[FF] 0 ?CSAVE[FF] 0 ?CLEAR[FF] 0 ?CLEAR[FF] 0 ?CLEAR[FF] 0 ?CLEAR[FF] 0 ?CLEAR[FF] 0 ?CLEAR[FF] 0 ?DELETE[FF] 0 ?DELETE[FF] 0 ?DELETE[FF] 0 ?DELETE[FF] 0 ?DELETE[FF] 0 ?DELETE[FF] 0 ?DELETE[FF] 0 ?
INPRUNCLEARDELETE[FF] 0 ?LIST[FF] 0 ?LIST[FF] 0 ?LIST[FF] 0 ?LIST[FF] 0 ?LIST[FF] 0 ?LIST[FF] 0 ?LIST[FF] 0 ?LIST[FF] 0 ?LIST[FF] 0 ?LIST[FF] 0 ?PRINT[FF] 0 ?PRINT[FF] 0 ?PRINT[FF] 0 ?PRINT[FF] 0 ?PRINT[FF] 0 ?PRINT[FF] 0 ?PRINT[FF] 0 ?PRINT[FF] 0 ?DEF[FF] 0 ?DEF[FF] 0 ?DEF[FF] 0 ?DEF[FF] 0 0 ENDSQR@@rns 8691 24576
X9MKS$DEFERR 22530 CLOAD

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