start tok64 d64-jGV7sn
1 OPEN2,8,2,"#":OPEN1,8,15,"u1 2 0 18 0"
2 POKE53280,0:POKE53281,0:PRINT"{clear}{down*6}{white}change header":PRINT"{cm t*13}"
3 PRINT#1,"b-p 2 144"
5 PRINT"name{space*2}:{space*2}";:FORx=0TO16:GET#2,a$:PRINTa$;:NEXT:PRINT#1,"b-p 2 162"
6 GET#2,a$,b$:PRINT:PRINT"{down}id{space*4}:{space*2}"a$;b$
7 PRINT#1,"b-p 2 2":PRINT"{down}software ";
8 GET#2,a$:IFa$<>"a"THENPRINT"w/p is on!!":c$="x":GOTO12
9 PRINT"w/p is not on"
10 c$="":INPUT"{down*2}name(n),id(i) or exit(x) ";c$
11 IFc$="i"THEN99
12 IFc$="x"THENPRINT#1,"i":CLOSE1:CLOSE2:END
14 IFc$<>"n"THEN900
21 INPUT"{down*3}new name";co$:a=LEN(c0$):IFa=0THEN2
22 IFa>16THEN22
23 IFa=16THEN25
24 FORx=1TO16-a:co$=co$+CHR$(160):NEXT
25 no=144:GOTO400
98 INPUT"{down*3}new id";co$:IFLEN(co$)=0THEN2
99 IF LEN(co$)<>2THEN98
100 no=162
400 PRINT#1,"b-p 2 "no:PRINT#2,co$;:PRINT#1,"u2 2 0 18 0"
900 GOTO2
stop tok64
(bastext 1.0)