start tok64 d64-rb6ikS
0 REM????? (the latest disk name)
10 OPEN2,8,2,"#":OPEN1,8,15,"u1 2 0 18 0":PRINT"{clear}enter five disk id characters
15 PRINT"name the characters with ascii or just{space*2}characters. ascii: #nr#
20 x=1:INPUT"char. one{space*2}";a$:GOSUB200:INPUT"char. two{space*2}";a$:GOSUB200
60 INPUT"char. three";a$:GOSUB200:INPUT"char. four ";a$:GOSUB200
100 INPUT"char. five ";a$:GOSUB200:i1$=a$(1)+a$(2):i2$=a$(3)+a$(4):i3$=a$(5)
140 PRINT#1,"b-p 2 162"no:PRINT#2,i1$;:PRINT#1,"u2 2 0 18 0
160 PRINT#1,"b-p 2 164"no:PRINT#2,i2$;:PRINT#1,"u2 2 0 18 0
180 PRINT#1,"b-p 2 166"no:PRINT#2,i3$;:PRINT#1,"u2 2 0 18 0
190 OPEN15,8,15,"i":CLOSE15:CLOSE2:CLOSE1:END
200 IFLEFT$(a$,1)="#"ANDRIGHT$(a$,1)="#"THENa$=CHR$(VAL(MID$(a$,2)))
210 a$(x)=a$:POKE2053+x,ASC(a$):x=x+1:RETURN
stop tok64
(bastext 1.0)