Willus.com
Home
|
Archive
|
About
CASTLE.BAS
(236 bytes)
EMULATE AS:
DEFAULT TYPE (BASIC)
|
CMD 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.
10 CLEAR1500:CLS:OPEN"I",1,"CASTLE/DAT":FORI=0TO3:INPUT#1,A$(I):NEXT 20 CLS:PRINT@31,;:FORI=0TO3:PRINTA$(I);:NEXT 30 FORI=15360 TO 16383: IF I=62 OR I=63 THEN 50 :ELSE IF PEEK(I)=32 THEN POKE I,191: GOTO 50 40 Q=PEEK(I): IF Q>159 THEN POKE I,160-(Q-159) :ELSE IF Q<160 THEN POKE I,159+(160-Q) 50 NEXT 60 GOTO 60