File name: /tmp/phpxfgtWy (1042 bytes)
Options: bin=None cset='UK' dasm='' html='' info='' out='/tmp/phpxfgtWy.out'
EP-ASCII: UK
EXOS header pos/serial: #0 at 0x0
EXOS type/header: 0x1 [00 01 01 00 00 00 00 00 00 00 00 00 00 00 00 00]
EXOS type determined: IS-FORTH program
New forth buffer #1 (1 of 1)
Used bytes: 829, (usefull) lines: 27
DECIMAL
: GET_SCREEN_MEM
0 0 3 102 SPFUNC
0 <> ABORT" SPFUNC ERROR"
SWAP DROP
;
VARIABLE INK
: TEST4
102 £GRAPHICS
GREEN INK !
GET_SCREEN_MEM
91 65 DO
DUP
960 0 DO
DUP J SWAP 255 S!
1+
LOOP
DROP
25 INK +!
0 0 0 0 0 0
INK @ 0 PALETTE
LOOP
DROP
;
(Re-)defined forth words: 2
End of FILE parsing, because: No other EXOS header after IS-FORTH program