mirror of
https://github.com/hsoft/collapseos.git
synced 2024-12-25 05:28:06 +11:00
trs80: override NL to avoid double newlines
This commit is contained in:
parent
24e9fa0c30
commit
986a40d3e2
@ -20,5 +20,6 @@ PC ORG @ 8 + !
|
||||
," CURRENT @ HERE ! "
|
||||
422 459 XPACKR ( core print readln fmt blk )
|
||||
499 500 XPACKR ( trs80.fs )
|
||||
," : _ BLK$ FD$ (ok) RDLN$ ; _ "
|
||||
( 0x0a == NLPTR. TRS-80 wants CR-only newlines )
|
||||
," : _ ['] CR 0x0a RAM+ ! BLK$ FD$ (ok) RDLN$ ; _ "
|
||||
H@ 256 /MOD 2 PC! 2 PC!
|
||||
|
Loading…
Reference in New Issue
Block a user