19 lines
585 B
QBasic
19 lines
585 B
QBasic
|
10 REM Test BSAVE and BLOAD via virtual memory
|
||
|
|
20 REM In piped mode, B800 text buffer is inactive so values are 0
|
||
|
|
30 REM This test verifies the BSAVE/BLOAD flow and file format
|
||
|
|
40 DEF SEG = &HB800
|
||
|
|
50 REM BSAVE 4 bytes (will be zeros in piped mode)
|
||
|
|
60 BSAVE "BSTEST.BIN", 0, 4
|
||
|
|
70 PRINT "BSAVE OK"
|
||
|
|
80 REM BLOAD back to same offset
|
||
|
|
90 BLOAD "BSTEST.BIN"
|
||
|
|
100 PRINT "BLOAD OK"
|
||
|
|
110 REM BLOAD with explicit offset
|
||
|
|
120 BLOAD "BSTEST.BIN", 100
|
||
|
|
130 PRINT "BLOAD OFFSET OK"
|
||
|
|
140 REM Verify file was created and can be re-read
|
||
|
|
150 DEF SEG
|
||
|
|
160 KILL "BSTEST.BIN"
|
||
|
|
170 PRINT "KILL OK"
|
||
|
|
180 PRINT "DONE"
|