start tok64 d64-DxEMxo
10 POKE 53280,12
20 DIM f$(16):DIM l(16)
30 sp$="{space*7}"
40 spc$="{space*8}"
50 PRINT"{clear}"
60 PRINTTAB(10)"function key labeller"
70 PRINTTAB(7)"{down*3}a. edit f1{space*3}i. edit ctrl+f1"
80 PRINTTAB(7)"b. edit f2{space*3}j. edit ctrl+f3"
90 PRINTTAB(7)"c. edit f3{space*3}k. edit ctrl+f5"
100 PRINTTAB(7)"d. edit f4{space*3}l. edit ctrl+f7"
110 PRINTTAB(7)"e. edit f5{space*3}m. edit logo+f1"
120 PRINTTAB(7)"f. edit f6{space*3}n. edit logo+f3"
130 PRINTTAB(7)"g. edit f7{space*3}o. edit logo+f5"
140 PRINTTAB(7)"h. edit f8{space*3}r. edit logo+f7"
150 PRINTTAB(10)"{down*2}please enter choice"
160 PRINTTAB(15)"{down*2}{reverse on}p{reverse off} to print"
170 PRINTTAB(15)"{down*2}{reverse on}q{reverse off} to quit"
180 GET a$:IF a$="" THEN 180
190 IF a$="a" THEN i=1
200 IF a$="a" THEN GOSUB 540
210 IF a$="i" THEN i=9
220 IF a$="i" THEN GOSUB 600
230 IF a$="b" THEN i=2
240 IF a$="b" THEN GOSUB 540
250 IF a$="j" THEN i=10
260 IF a$="j" THEN GOSUB 600
270 IF a$="c" THEN i=3
280 IF a$="c" THEN GOSUB 540
290 IF a$="k" THEN i=11
300 IF a$="k" THEN GOSUB 600
310 IF a$="d" THEN i=4
320 IF a$="d" THEN GOSUB 540
330 IF a$="l" THEN i=12
340 IF a$="l" THEN GOSUB 600
350 IF a$="e" THEN i=5
360 IF a$="e" THEN GOSUB 540
370 IF a$="m" THEN i=13
380 IF a$="m" THEN GOSUB 600
390 IF a$="f" THEN i=6
400 IF a$="f" THEN GOSUB 540
410 IF a$="n" THEN i=14
420 IF a$="n" THEN GOSUB 600
430 IF a$="g" THEN i=7
440 IF a$="g" THEN GOSUB 540
450 IF a$="o" THEN i=15
460 IF a$="o" THEN GOSUB 600
470 IF a$="h" THEN i=8
480 IF a$="h" THEN GOSUB 540
490 IF a$="r" THEN i=16
500 IF a$="r" THEN GOSUB 600
510 IF a$="p" THEN GOSUB 660
520 IF a$<>"q" THEN 50
530 END
540 PRINT"{clear}"
550 PRINTTAB(10)"label for f";i
560 PRINTTAB(10)"{down}enter details";
570 INPUT f$(i)
580 LET l(i)=LEN(f$(i)):IF l(i)>8 THEN 540
590 RETURN
600 PRINT"{clear}"
610 PRINTTAB(10)"label for f";i
620 PRINTTAB(10)"{down}enter details";
630 INPUT f$(i)
640 LET l(i)=LEN(f$(i)):IF l(i)>7 THEN 600
650 RETURN
660 FOR q=1 TO 8
670 LET f$(q)=f$(q)+RIGHT$(spc$,8-l(q))
680 l(q)=8
690 NEXT q
700 FOR q=9 TO 16
710 LET f$(q)=f$(q)+RIGHT$(sp$,7-l(q))
720 l(q)=7
730 NEXT q
740 OPEN4,4
750 PRINT#4,"{cm a}{sh asterisk*28}{cm s}"
760 PRINT#4,"{sh -}ctrl{space*24}{sh -}"
770 PRINT#4,"{sh -}{space*28}{sh -}"
780 PRINT#4,"{sh -}logo{space*16}shift{space*3}{sh -}"
790 PRINT#4,"{sh -}{space*7}{cm a}{sh asterisk*11}{cm s}{space*8}{sh -}"
800 PRINT#4,"{sh -}";f$(9);"{sh -}{space*11}{sh -}";f$(1);"{sh -}"
810 PRINT#4,"{sh -}{space*7}{sh -}{space*11}{sh -}{space*8}{sh -}"
820 PRINT#4,"{sh -}";f$(10);"{sh -}{space*11}{sh -}";f$(2);"{sh -}"
830 PRINT#4,"{sh -}{space*7}{sh -}{space*11}{sh -}{space*8}{sh -}"
840 PRINT#4,"{cm q}{sh asterisk*7}{cm w}{space*11}{cm q}{sh asterisk*8}{cm w}"
850 PRINT#4,"{sh -}";f$(11);"{sh -}{space*11}{sh -}";f$(3);"{sh -}"
860 PRINT#4,"{sh -}{space*7}{sh -}{space*11}{sh -}{space*8}{sh -}"
870 PRINT#4,"{sh -}";f$(12);"{sh -}{space*11}{sh -}";f$(4);"{sh -}"
880 PRINT#4,"{cm q}{sh asterisk*7}{cm w}{space*11}{cm q}{sh asterisk*8}{cm w}"
890 PRINT#4,"{sh -}";f$(13);"{sh -}{space*11}{sh -}";f$(5);"{sh -}"
900 PRINT#4,"{sh -}{space*7}{sh -}{space*11}{sh -}{space*8}{sh -}"
910 PRINT#4,"{sh -}";f$(14);"{sh -}{space*11}{sh -}";f$(6);"{sh -}"
920 PRINT#4,"{cm q}{sh asterisk*7}{cm w}{space*11}{cm q}{sh asterisk*8}{cm w}"
930 PRINT#4,"{sh -}{space*7}{sh -}{space*11}{sh -}{space*8}{sh -}"
940 PRINT#4,"{sh -}";f$(15);"{sh -}{space*11}{sh -}";f$(7);"{sh -}"
950 PRINT#4,"{sh -}{space*7}{sh -}{space*11}{sh -}{space*8}{sh -}"
960 PRINT#4,"{sh -}";f$(16);"{sh -}{space*11}{sh -}";f$(8);"{sh -}"
970 PRINT#4,"{sh -}{space*7}{cm z}{sh asterisk*11}{cm x}{space*8}{sh -}"
980 PRINT#4,"{sh -}{space*28}{sh -}"
990 PRINT#4,"{sh -}{space*28}{sh -}"
1000 PRINT#4,"{cm z}{sh asterisk*28}{cm x}"
1010 CLOSE4
1020 RETURN
stop tok64
(bastext 1.0)