|
10 CLEAR 29999
|
|
20 INPUT "Which file do you want to truncate?";f$
|
|
30 PRINT "Start tape to load file to truncate."
|
|
40 LOAD f$ CODE 30000
|
|
50 "Input how many bytes do you want to keep?";n
|
|
60 PRINT "Please rewind the tape and press record."
|
|
70 SAVE f$ CODE 30000,n
|
|
80 STOP
|