A new word needed is PAD$+ which adds strings with the pad.
Code: Select all
( PAD$+ #8 )
: PAD$+ ( N_STARTPOS
STR_STRING2ADD N_STRLEN --
N_ENDPOS )
ROT DUP >R PAD +
SWAP DUP R> + >R
CMOVE
R> ;
Code: Select all
BSAVE NEWPRG
Code: Select all
: BSAVE ( -- )
0 S" >" PAD$+
BL WORD COUNT PAD$+
S" .BLK;32768,7690" PAD$+
PAD SWAP FSAVE ;
Code: Select all
BLOAD NEWPRG
Code: Select all
: BLOAD ( -- )
0 BL WORD COUNT PAD$+
S" .BLK;32768" PAD$+
PAD SWAP FLOAD ;
Just type
Code: Select all
INDEX
Code: Select all
: INDEX CLS
10 0 DO
32768 I 769 * + 32 TYPE
LOOP
;
Code: Select all
S" NEWTF" FSAVE