mirror of
https://github.com/callapple/DOS335.git
synced 2024-06-02 19:42:19 +00:00
40 lines
722 B
Plaintext
40 lines
722 B
Plaintext
|
HOME
|
||
|
VTAB5
|
||
|
?"PLACE THE DISK WITH FID TO BE MODIFIED IN THE DRIVE "
|
||
|
PRINT " AND PRESS ANY KEY";
|
||
|
WAIT -16384,128
|
||
|
POKE -16368,0
|
||
|
BLOAD FID
|
||
|
POKE 3810,0 :REM FORBID TRACK 0
|
||
|
POKE 2419,183
|
||
|
POKE2495,183 :REM DRIVE LIMIT OF 7
|
||
|
POKE2106,31 :REM SECTOR LIMIT OF 31
|
||
|
POKE 5900,193
|
||
|
POKE 5901,210
|
||
|
POKE 5902,202
|
||
|
POKE 5903,193
|
||
|
POKE 5904,217
|
||
|
POKE 5905,160
|
||
|
POKE 5906,214
|
||
|
POKE 5907,197
|
||
|
POKE 5908,210
|
||
|
POKE 5909,211
|
||
|
POKE 5910,201
|
||
|
POKE 5911,207
|
||
|
POKE 5912,206
|
||
|
POKE 5913,160
|
||
|
POKE 5914,179
|
||
|
POKE 5915,174
|
||
|
POKE 5916,179
|
||
|
POKE 5917,174
|
||
|
POKE 5918,181
|
||
|
BLOAD FID.PATCH
|
||
|
UNLOCK FID
|
||
|
HOME
|
||
|
VTAB 10
|
||
|
PRINT "PLACE THE TARGET DISK IN"
|
||
|
PRINT "THE DRIVE, AND PRESS ANY KEY";
|
||
|
WAIT -16384,128
|
||
|
POKE -16368,0
|
||
|
BSAVE FID,A$803,L$124E
|