ready.
0 open2,8,2,"0:filename,s,r":printchr$(147);
1 get#2,a$: if val(a$)=0then1
2 printa$;
3 get#2,a$:printa$;:if a$<>chr$(13)then3
4 print:print"pO151,1:goto6"
5 poke1319,19:poke1320,13:poke1321,13:poke1322,13:poke239,4:end
6 printchr$(147);:goto3
10 rem  a program to take a sequential
11 rem  listing of a basic program and
12 rem  restore it to a program.
15 rem to use this program: first
20 rem 'del 10-'(del all lines after
25 rem    line 6).
30 rem then place the file name of             the seq file in the open
40 rem statement in line 0.                      > run the program <
50 rem it will end with an 'error.'
55 rem the seq file is now a program           again in memory.
60 rem now 'print#2:close2'
70 rem 'del 0-6' and save the converted
80 rem program to disk or tape.
90 rem the program can be adapted to
100 rem run on the c64 by changing the
110 rem poke in line 4 from 151 to 152
115 rem and substituting line 5 below:
120 rem '5 poke631,19:poke632,13:poke633,13:poke634,13:poke198,4:end'
130 rem *** warning *** the source file
140 rem can't have line numbers below
150 rem line #7.
ready.