The Big List of TRS-80 Software

Willus.com

Home | Archive | About

CASTLE (8597 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)

Turn off .CAS filter | Return to TRS-80 software list.

15429 SINAERR
60 
22577 }>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|FN<
64183 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~+LEN!<
9038 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 :>QAUTO ]<
9041 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 S<
56071 
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[FE]H+QERR/N>USING<
2049 
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]I+gO+##FN!LINEVGET<
45825 f
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 Z<
55678 G+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:$<
20809 RETURNPOINT[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~<'w:YQ[FE]THEN[FE]L<2YQ!LISTJ<
1638 d6
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<woNEXTSGNW+PRINTM&
10589 )))AUTOMKS$RRESUME<
24692 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 ^#V#N#FCOSINKEY$OCVIPOINT0yCVIu<CLS
12486 INKEY$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$GOSUB<
15360 
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
52056 #nb))NOT/CMDo[FC];"EQ[COSy<>
4670 2DQ!
20812 "NQ>s2IQ+IOCVIPOINT2KQINKEY$~[FE]
MEM[FE]aFRE8Q[FE]{AND8QO:?QAUTOyTHEN8QCVI_#ERRQa<
256 [FF]
0 
30 
0 
0 
0 
0 
0 Score:                 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   <
8259 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 CastleSTEP<
8238 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
 '<
8224 fire deadly energy balls at you if a clear path forms
   between it and you.
KEYS: (<-) and (->) rotate ship counter clockwise and clockwise
   (@) or ([) gives ship thrust, (space) fires projectile.
SCORING: Outer, middle and inner wall "bricks"- 10,20 DATA<w?U& 30 pts.
   intelligent mines- 50 pts. and Space Castle- 500 pts.

Press <ENTER> to return to Score page.
|<
1359 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@??>>=<<;;:99887L<
7478 6554332222222344556778899:;;<<=>>??@AABBCDDEEFGGHHIJJKKLMMMMQQQPPONMLKKJIHGGFEDCCBA@??>=<;;:987765433210//......./00123445678 8 9 GET<
8250 ; < < = > ? @ @ 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'<
5204 UUUU
16    000@@@PPP```pppENDENDENDRESTORERESTORERESTOREOUTOUTOUTDEFDEFDEFVARPTRVARPTRVARPTR///EXPEXPEXPCSNGCSNGCSNGENDENDENDENDENDENDENDENDENDENDENDDEFSTREDITRESTOREENDENDENDMERGEDEFSNGENDELSEDIMCLEARENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTLETLSETGETENDENDENDDIMRANDOMOUTCMDKILLDEFSTRENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTDEFSTRRSETTAB(ENDENDENDGOTOFORDEFSTRFORDEFSNGENDENDENDENDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDENDRESTOREOUTDEFSTRLETTAB(LINEENDENDSETONLETFIELDDEFSTRFORENDENDENDENDENDREADCLSENDENDENDENDENDENDENDENDENDENDENDCLEARDEFLETFIELDNEWTAB(CLSENDENDLETRANDOMPOKELETf<
32902 ENDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDENDENDREADGOTOLETFIELDCLOADLISTRESTOREENDRESETFIELDCONTPOKELETSETENDENDENDSETFORENDENDENDENDENDENDENDENDENDENDENDENDENDSETGOTOLETLETDEFENDENDENDSETCONTCONTCONTIFSETENDENDSETFORENDENDENDENDENDENDENDDEFRESTOREENDENDENDENDENDOUTPRINTCONTREMLETDEFENDENDCLEARLINELETPRINTDEFDBLNEXTFORENDENDENDENDENDENDENDENDENDENDENDOUTDEFENDENDENDENDENDLETGETREMLETGETENDENDREADSETLETPRINTNEWIFCLSENDENDENDENDENDENDENDENDENDENDENDENDOUTRESTOREENDENDENDENDDATADEFREADGETENDENDENDNEXTINPUTGETCONTTAB(LLISTENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDDEFENDGETRESETLOADENDENDENDFORINPUTGETCLOADFNENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTRESTOREDATARESTOREMERGEGETENDENDRESETDIMDEFNAMEDEFSNGENDENDENDENDENDENDSETENDENDENDENDENDENDENDENDENDENDENDENDMERGEGETENDSTOPOUTRSETENDENDENDRESETGETLLISTRANDOMRETURN<
32896 ENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDOUTRSETENDDEFSTRENDDEFENDENDENDDIMCLEARONDEFSNGRESETENDENDENDENDRESETFORENDENDENDENDENDENDENDENDENDENDENDENDENDOPENNEXTOUTCLSOUTRESTOREENDENDKILLTAB(POKELETFORFORENDENDENDENDENDENDENDENDENDENDENDDEFENDENDENDENDENDENDOUTRUNONDEFSTRENDENDENDOUTTODELETEPOKELETSETCMDENDENDENDENDENDENDENDENDENDENDENDOUTDEFENDENDENDENDOUTLETRANDOMPOKELETCLSENDENDRUNLPRINTCONTDEFSTRRANDOMREADFORENDENDENDENDENDENDENDENDENDENDENDENDENDDEFRESTOREENDENDOUTDEFSTRRANDOMCONTCONTDEFENDENDSETIFCONTDEFSTRLETTAB(RESTOREENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDDEFLETLETRUNSETENDENDSETIFCONTCONTCONTSETENDENDENDENDENDENDRESETSETENDENDENDENDENDENDENDENDENDENDDEFTAB(CONTINPUTLETIFFORENDRESETINPUTGETCONTCONTSETENDENDENDENDENDENDSETFORENDENDENDENDENDENDENDENDENDENDRSETFNCONTINPUTGETCLEARRESTOREENDRESETLETGETREMLETCOS<
32900 ENDENDENDSETFORENDENDENDENDENDENDENDENDENDENDENDENDDATATAB(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][FE]				[FE][FE][FE]
255 
0 
511 
15610 
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][FE]						[FC][FF][FD][FF][FE][FF][FE]
65280 
1 
13056 <
65282 
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 
37377 <
512 [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
19200 Ud
18944 Sa~C
594 <
863 yB
592 \uZp
0 
1131 
0 
1126 
0 
1407 
0 
1116 
0 
1112 
0 
1404 
0 
1389 
0 
1374 
0 
1663 
0 
0 ENDENDENDENDDEFENDENDENDENDENDENDENDENDENDSETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDOUTDEFENDENDENDENDENDENDENDENDDIMIFFORENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDRSETCLEARRESTOREENDENDENDENDENDENDENDREADRUNRUNENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDDATAGETCLEARRESTOREENDENDENDENDENDENDRESETPOKEDELETEDATACMDENDENDENDENDENDENDENDENDENDENDEND<
32896 ENDENDLETGETDATACLSENDENDENDENDENDENDFIELDCLEARPRINTDATARANDOMENDENDENDENDENDENDENDENDENDENDENDENDENDENDRESETSETGETDIMDATAENDENDENDENDENDRESETRESETOUTRESETENDDEFFORENDENDENDENDRESETFORSETENDENDENDENDENDENDSETINPUTOUTDIMDATAENDENDENDENDENDFORFOROUTRESETENDRESTORERETURNENDENDENDENDSETFORSETENDENDENDENDENDENDSETINPUTOUTRESETCLSCLSENDENDENDENDCMDFORENDENDFORENDENDCMDENDENDENDLETRANDOMCLSCLSRESETRESETENDENDENDENDFORCLSENDFORFORENDENDENDDIMRESETENDENDENDFORENDENDCMDENDENDDATALETINPUTENDCLSRESETRESETENDENDENDENDFORCLSENDFORFORENDENDENDCMDFORENDENDENDFORENDENDDIMENDENDRESTOREDEFONENDRESTOREENDFORFORENDENDRESETENDCLSENDFORRESETENDENDENDENDFORENDENDENDFORENDENDENDCMDENDDEFRESTOREGETENDRESTOREENDCLSDATAENDENDRESETENDCLSENDFORRESETENDENDENDRESETENDENDENDENDFORENDENDENDDIMENDENDENDCLSENDENDENDDATAENDCLSENDENDDATAENDENDENDENDENDENDENDFORENDENDEND,<
33152 ENDENDENDENDENDENDDATAENDENDENDENDDATAENDCLSENDENDDATAENDENDENDENDENDENDENDFORENDENDENDENDFORENDENDENDENDENDENDOUTENDENDENDENDENDRESTOREOUTENDENDDATAENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDOUTENDENDENDENDENDRESTOREENDENDENDDATAENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDFORENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDEND
<
33408 ENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDRESETENDENDENDENDENDENDENDENDENDENDENDENDENDEND
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 FOR<
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(RESTOREENDENDENDENDENDENDENDENDENDENDENDLSETTOENDUSINGAUTOENDENDKILLUSINGENDUSINGELSEENDENDNEWUSINGENDUSINGELSEENDENDENDENDENDUSINGEDITLETLETRUNIFENDENDOUTDEFTAB(TAB(TAB(TAB(TAB(TAB(TAB(IFFORENDUSINGRESUMESAVETAB(IFFORENDRESETIFTAB(ERRORLPRINTUSINGENDRESETIFTAB(TAB(ERRORNEXTENDRESETIFTAB(TAB(ERRORNEXTENDFNRESUMESETFORENDEND6<ERRORLOCdENDENDENDENDENDENDENDUSINGELSEENDENDDEFDEFDEFDEFDEFDEFDEFCSAVEUSINGDEFDEFDEFDEFRESTOREKILLUSINGENDENDENDENDENDENDENDKILLUSINGFORENDENDENDENDENDENDENDCLEARERRORIFTAB(USING
33727 SETSETSETSETSETSETLSETUSINGSETSETSETSETFORKILLUSINGENDOUTTAB(IFIFTAB(RESTORERESETUSINGLLISTENDENDENDENDENDENDKILLUSINGENDENDOPENUSINGELSEENDSETIFIFIFTAB(RESTOREENDENDKILLUSINGENDENDENDENDENDKILLUSINGENDUSINGEDITLETLETRUNIFENDRESETREADIFTOTAB(TAB(TAB(STOPENDREADSAVETAB(IFUSINGELSEMERGETAB(TAB(TAB(TAB(IFFORENDENDKILLUSINGENDENDENDENDENDKILLUSINGENDRESETIFTAB(TAB(ERRORNEXT[FF]xx

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