1 OPEN1,8,2,"0:SEQFILE":L=1000
2 PRINT"[147]":FORI=1TO8:PRINTL;:L=L+2
3 GET#1,A$:S=-(ST=0):IFS=0GOTO5
4 IFA$<>CHR$(13)THENPRINTA$;:GOTO3
5 PRINT:NEXTI
6 IFSTHENPRINT"L=";L;":POKE152,1:GOTO2"
7 FORI=631TO639+S:POKEI,13:NEXT
8 POKE198,9+S:CLOSE1-S:PRINT"";:END
9 :