Mi sembra che c'erano delle utility che facevano quello che hai chiesto, e cioè che trasferivano un file da nastro a disco e viceversa... ora i nomi di queste utility non li ricordo, però puoi provare con il programmino che ti posto a seguire che però deve essere modificato opportunamente (leggi dopo):
10 input"file name ";f$
20 input"file type ";t$
25 input"new file seq";n$
30 t$=left$(t$,1)
40 if t$<>"s" and t$<>"p" and t$<>"u" th
en : print"error on type file": goto 20
45 open 15,8,15
50 open 5,8,5,"0:" + f$ + "," + t$ + ",r
"
55 open 6,8,6,"0:" + n$ + ",s,w"
60 gosub 200
70 get#5,a$
80 if st<>0 and st<> 64 then: goto 59000
95 print#6,a$;
100 if st=64 then print"end work: no err
or." : goto 60000
110 goto 70
200 input#15,a$,b$,c$,d$
210 if val(a$) > 0 then print a$,b$,c$;d
$: goto 60000
220 return
59000 print"i/o error #",st
60000 close 6
60010 close 5
60020 close 15
60100 end
questo programma trasferisce un file prg in un seq senza perdita di informazioni da disco a disco... per modificarlo da nastro a disco e da prg a prg dovrebbe essere sufficiente:
1. modificare la linea 55 in questo modo:
55 open 6,8,6,"0:" + n$ + ",p,w"
2. modificare la linea 50 come segue:
50 open 5,1,5,"0:" + f$ + "," + t$ + ",r
"
e dovrebbe andare... non ho tempo di provarlo... ma dovrebbe andare... a parte la gestione degli errori... che è per il disco e non per la cassetta... chissà.
Magari lo testi, fammi sapere...
