The Big List of TRS-80 Software

Willus.com

Home | Archive | About

SPCCAST5.CMD (8739 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 1X}>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 ~0NEXT#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]!LISTfAND+RESTOREE[FD]n
64769 ^[FD]V
31769 AUTOMID$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 ~0NEXT#n&))	DELETEwABS
30987 DEFERLFIXDINSTR!
15360 
49584 MKS$W=MKS$GERLCVDDERR8NABS!
16385 [FF]6ENDMKS$DEFABSINKEY$:YQ!MKI$U_
22578 Q!
20816 "RQ!DATAeINPUTe+6MKS$DEF:IQ[FE]FNERL*E+Q!DELETEUAUTOU6
60672 DEFLPRINT2ZQ>2GQ+O!fQ
>+Q!PQ>>0
32259 +LENN#RIGHT$!XQ1>~+LENN~AUTOTHEN/N!sRDATA?+Q!INSTRQ=+Q:YQPOINT0![FF]LPRINT+:@8[FE]ERL?F+OERRLEFT$HCVIERLKF|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 
14872 >QAUTO Q#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$GLPRINT
17458 Q:>QAUTO INP
8279 :@8CVI THENH:DQ=FIXH>2DQ:IQ[FE]@FRE3HO:KQ[FE]ANDNH+0OERReHMKS$DPOINTO:KQ[FE]AND\H+0OAUTOTHENeHO>GOSUBERReHMKS$DPOINT/+0OO>GOSUBERReHMKS$DPOINT/+0OPOINTSQRTRONTHENIFHANDpHPOINT[FE]FRERESETHSQR5FIXIFHSQR6ERRIFHSQR~<[FE]ERLLETHLPRINTSQRw[FD]!DATAe!INPUTeDATAec
768 [FD]~
30717 cd
8971 SQR5
9800 
4353 TY)))))LINE=ABS:ZQ[FE]ERLTANH
>POSMKD$OR[FF]
ERLFREHSTR$ERRMKI$H!
46460 ERLCVIHABS+O:@8[FE]ERL
18686 +QERR/N>
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<2cQGCVITHENCLEARI!VERRNEWI!>V:\QRANDOM[FE]ENDANDRIGHT$IW#:^QRANDOM[FE]0ANDMID$I_+VARPTRPTHENVALISQRVSQR^	+RNDPLPRINT2ZQ!XQ~='w>FN2IQ2KQERR[FD]
52553 gO+##FN!LINEVCONTf
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+K
11203 KABS:YQ_
6485 ~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]
5451 +VARPTRPERL[FF]K+VARPTRPTHENERLM:IQRETURNPOINT[FE]ANDL:KQREMPOINT[FE]FREERLM!ORU~RETURN<[FE]ANDEL#~REM<[FE]+ANDEL+~+DELETE[FE]ANDOL6V#6LINE+RNDP>+ZOERR*L>CMDoANDML$NOT!LENXX{MKS$CLOADSIN<L}CVI[FE]
32332 CSAVEERLULLOF>OR[FF]!RESTOREMKS$BANDyL=ERRSETL!MEM
55874 SETL<+ZO!LINEVMKS$RNOT,NOTCONTf6
357 d
65491 MKS$POKETHEN*L+IOAUTOMID$AUTOL:YQ[FE]THENAUTOL<2YQ!MKI$eDATAeMEM
20513 fQfc
45293 LPRINT[FD]w
15949 HRETURN[FE]ANDERLM>REM[FE]ANDERLM>P+ZO!XQ
15486 'w:YQ[FE]THEN[FE]L<2YQ!LISTfd6
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/MJ+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<woNEXT
22487 +PRINTM&
10589 )))AUTOMKS$Rt`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:@8CVITHENANDN+OERR8NPEEKNEXTNEXTo&
6499 
9054 V#N#FCOSINKEY$OCVIPOINT0yCVIPOINT0INKEY$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 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
0 
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&Po^,V,nNOT/AND<PNOT%SET_PUTCVI?ABSINKEY$PEEK=>[FF]2GQz
22 !STR$XNOT#nb))NOT/CMDo[FC];"EQ[COSINKEY$>2DQ!
20812 "NQ>s2IQ+IOCVIPOINT2KQINKEY$~[FE]
MEM[FE]aFRE8Q[FE]{AND8QO:?QAUTOyTHEN8QCVI_#ERRQ
255 
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```pppENDENDENDRESTORERESTORERESTOREOUTOUTOUTDEFDEFDEFVARPTRVARPTRVARPTR///EXPEXPEXPCSNGCSNGCSNGENDENDENDENDENDENDENDENDENDENDENDDEFSTREDITRESTOREENDENDENDMERGEDEFSNGENDELSEDIMCLEARENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTLETLSETGETENDENDENDDIMRANDOMOUTCMDKILLDEFSTRENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTDEFSTRRSETTAB(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(RESTOREENDENDENDENDENDENDENDENDENDENDENDLSETTOENDUSINGAUTOENDENDKILLUSINGENDUSINGELSEENDENDNEWUSINGENDUSINGELSEENDENDENDENDENDUSINGEDITLETLETRUNIFENDENDOUTDEFINPFNOUTTAB(TAB(TAB(TAB(TAB(TAB(TAB(IFFORENDUSINGRESUMESAVETAB(IFFORENDRESETIFTAB(ERRORLPRINTUSINGENDRESETIFTAB(TAB(ERRORNEXTENDRESETIFTAB(TAB(ERRORNEXTENDFNRESUMESETFORENDENDENDENDENDENDENDENDENDUSINGELSEENDENDDEFDEFDEFDEFDEFDEFDEFCSAVEUSINGDEFDEFDEFDEFRESTOREKILLUSINGENDENDENDENDENDENDENDKILLUSINGFORENDENDENDENDENDENDENDCLEARERRORIFTAB(USINGELSE
33667 SETSETSETSETSETLSETUSINGSETSETSETSETFORKILLUSINGENDOUTTAB(IFIFTAB(RESTORERESETUSINGLLISTENDENDENDENDENDENDKILLUSINGENDENDOPENUSINGELSEENDSETIFIFIFTAB(RESTOREENDENDKILLUSINGENDENDENDENDENDKILLUSINGENDUSINGEDITLETLETRUNIFENDRESETREADIFTOTAB(TAB(TAB(STOPENDREADSAVETAB(IFUSINGELSEMERGETAB(TAB(TAB(TAB(IFFORENDENDKILLUSINGENDENDENDENDENDKILLUSINGENDRESETIFTAB(TAB(ERRORNEXT[FF]LEN!
17408 NEXT%MKS$DEFERR
34818 ON

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