start tok64 d64-9w2eyy
0 GOTO20
1 INPUT#15,en$,em$,et$,es$:IFen$="00"ORen$="01"THENRETURN
2 PRINT"disk error "en$","em$","et$","es$
3 IFen$="72"THENPRINT"closeing data file..":CLOSE8
4 IFen$="62"ANDq=1THENCLOSE8:CLOSE15:PRINT"{clear}spelreg finns ej":END
5 INPUT"{reverse on}a{reverse off}bort or {reverse on}r{reverse off}etry";a$
6 IFLEFT$(a$,1)="a"THENCLOSE8:CLOSE15:END
7 IFLEFT$(a$,1)="r"THENRETURN
8 GOTO5
10 REM --spelregister print--
20 POKE53280,12:POKE53281,.:PRINT"{white}{clear}laddar fil":OPEN15,8,15,"i0:
30 DIMn$(1000)
40 OPEN8,8,8,"0:spelreg,s,r":q=1:GOSUB1:q=.
50 INPUT#8,n:GOSUB1
60 IFnTHENFORi=1TOn:INPUT#8,n$(i):GOSUB1:PRINT"{up}",n-i"{left} ":NEXT
70 CLOSE8:GOSUB1
100 POKE53280,.:PRINT"{gray}{clear}spelregister print
110 INPUT"{down}[r printern klar";a$:IFLEFT$(a$,1)<>"j"THENEND
120 OPEN4,4:CMD4,"spelregister
130 PRINT"{-*12}
140 PRINT:PRINT"no.{space*2}tape count disk name
150 PRINT"{-*4} {-*4} {-*5} {-*4} {-*4}
160 FORi=1TOn
170 a$=MID$(STR$(10000+i),3)
180 PRINTa$" "LEFT$(n$(i),3)"{space*3}"MID$(n$(i),4,3)"{space*2}"MID$(n$(i),7,4);
190 PRINT" "MID$(n$(i),11):NEXT
200 PRINT#4:CLOSE4:END
stop tok64
(bastext 1.0)