Willus.com
Home
|
Archive
|
About
CASTLE.DAT
(777 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.
41213 USINGUSINGLLISTCHR$TAB(ERRRSETUSINGUSINGUSINGUSINGTOCLSCSNGRESTOREERRFNUSINGTOERRELSEERRELSEMKI$ OUTRESTORE ENDCLEARGOTOLETLINELETLPRINTUSINGTORESTORE KILLENDENDKILLENDKILLEND FNTOOUTRANDOMKILLOUTCLOSEPRINTGETKILLRESETSYSTEM ENDELSEOUTTAB(RESTOREELSEENDELSE OUTLLIST ENDSYSTEMIFLPRINTGOTOENDKILLKILLDIMIFKILLKILL ENDTOFNTAB(FNUSINGTOLLISTDEFCSAVEDEF OUTFNUSINGLIST OUT CSAVERESTOREENDENDENDKILLDEFCSAVEIFIFIFIFIFIFIFIFIFIFLPRINTENDENDENDENDOUTKILLSETFIELDAUTOINPUTLETLLISTDEFELSE FNSTOP OUT ENDCLEARUSINGTORESTORE ELSE OUTRANDOMINPUTRESTORE KILL END KILLOUTFNUSINGLIST RESETTROFF OUTFNUSINGUSINGLISTENDCLEARUSINGTORESTORE OUTCLEARFNUSINGUSINGUSINGUSINGTAB(DEFENDELSEENDENDENDENDDEFSTRFORDEFDEFRESETGET KILLENDFOR ENDDEFCSAVEUSINGUSINGUSING 38324 CSAVERESTORE MERGESTOP CLEARUSINGUSINGUSINGUSINGUSINGTOCSAVECLSKILL OUTCSAVEDEFDEFDEFDEFDEFCSAVEDEF RESETGET OUTRANDOM RESETIFIFFORENDINPUTCSAVE ENDDEFLLISTDEFDEFDEFDEFDEFLLISTTROFFGOTORUNREADLETNEXTTOUSINGTODEFSTRRESUMELPRINTCLS DEFFNTAB(TAB(TAB(TAB(TAB(FNFNRESTOREKILL RESETLOADCONTCONTCONTCONTCONTCONTCONTCONTIFLETLETLPRINTSETFIELDCONTCONTREMFIELDCONTCONTREMSETELSE READCONTCONTCONTCONTCONTCONTCONTCONTDEFDBLFOR PRINTTROFFSETSETAUTOEDITRUNGOTORUNSAVE RESETRSETLETLETLETLETLET RSETSYSTEM CSAVEDEFLETLETELSE ELSE KILL IFIFIFIFIFIFIFIF ELSE KILL KILLLETLETLISTDEFDEFLLISTDEFDEFDEFDEFRESUMEIFIFLPRINTNEXT KILL KILLSETSETENDEND ELSE ELSE KILLOUTTAB(FNUSINGUSINGUSINGUSINGTOTAB(RESTOREELSE KILL KILL RESETIFIFIFTROFFEND KILL KILL KILL ELSE ELSE KILLFNUSINGUSINGUSINGUSINGUSINGUSINGUSINGUSINGTOELSE KILL KILL 8224 KILL KILL KILL ELSE ELSE KILLUSINGUSINGUSINGUSINGUSINGUSINGUSINGUSINGUSINGUSINGELSE KILL KILL ELSE KILL