start tok64 d64-w480PQ
1 REM
2 REM *** skrivstils-alfabet ***
3 REM
4 PRINT"{ct n}{clear}V[nta!":POKE53272,(PEEK(53272)AND240)OR2
5 POKE56578,PEEK(56578)OR3
6 POKE56576,(PEEK(56576)AND252)OR0
7 POKE53272,(PEEK(53272)AND15)OR0
8 POKE648,192:PRINT"{clear}";
9 POKE56334,PEEK(56334)AND254
10 POKE1,PEEK(1)AND251
11 FORi=0TO7:POKE51200+i,PEEK(53248+i):NEXT
12 FORi=53200TO53226:READw:POKEi,w:NEXT:SYS53200
13 POKE1,PEEK(1)OR4
14 POKE56334,PEEK(56334)OR1:PRINT"G{pound}r skrivstilstecken ";
15 FORi=51208TO51439:READa:POKEi,a:NEXT
16 FORi=51720TO51951:READa:POKEi,a:NEXT
17 DATA162,0,189,0,209,157,0,201,232,240,3,76,210,207,189,249,210
18 DATA157,249,202,232,240,3,76,222,207,96
19 DATA0,0,124,204,204,221,102,0
20 DATA192,192,216,236,204,204,248,0
21 DATA0,0,120,196,192,195,126,0
22 DATA12,12,124,204,204,221,102,0
23 DATA0,0,124,204,216,227,126,0
24 DATA30,58,48,49,254,176,48,0
25 DATA0,0,60,102,110,54,135,124
26 DATA192,192,220,236,204,205,206,0
27 DATA24,0,56,88,153,26,28,0
28 DATA12,0,28,44,13,12,206,252
29 DATA192,192,220,236,233,218,204,0
30 DATA30,26,28,56,89,154,28,0
31 DATA0,0,238,218,218,219,218,0
32 DATA0,0,220,236,205,206,204,0
33 DATA0,0,123,204,204,204,120,0
34 DATA0,0,28,118,102,124,96,96
35 DATA0,248,216,248,25,62,24,24
36 DATA0,0,219,236,204,192,192,0
37 DATA0,0,124,96,61,134,252,0
38 DATA48,48,252,48,48,51,62,0
39 DATA0,0,204,204,204,221,110,0
40 DATA0,0,205,206,204,216,240,0
41 DATA0,0,218,218,218,219,238,0
42 DATA0,0,26,26,28,185,94,0
43 DATA0,0,102,102,62,7,198,124
44 DATA0,0,252,24,51,102,252,0
45 DATA108,0,124,204,204,221,110,0
46 DATA108,0,123,204,204,204,120,0
47 DATA56,0,124,204,204,221,102,0
48 DATA24,60,108,204,252,205,206,0
49 DATA124,230,102,124,102,102,60,0
50 DATA120,228,192,192,192,227,126,0
51 DATA120,236,102,102,102,108,120,0
52 DATA62,112,96,124,96,115,62,0
53 DATA124,224,96,99,254,224,96,0
54 DATA56,108,200,192,220,205,126,0
55 DATA204,204,204,220,236,205,206,0
56 DATA60,24,24,24,27,26,28,0
57 DATA62,12,12,108,204,204,120,0
58 DATA102,230,108,120,120,109,102,0
59 DATA96,224,96,96,97,119,126,0
60 DATA198,238,254,214,198,198,198,0
61 DATA102,230,118,126,110,102,102,0
62 DATA60,102,102,102,102,102,60,0
63 DATA124,230,102,124,96,96,96,0
64 DATA120,204,204,204,205,207,122,0
65 DATA124,230,102,124,120,109,102,0
66 DATA60,102,96,60,6,198,124,0
67 DATA126,216,152,216,24,24,24,0
68 DATA102,230,102,102,102,102,60,0
69 DATA102,230,102,102,102,60,24,0
70 DATA198,198,214,214,214,214,238,0
71 DATA50,54,54,60,120,242,188,0
72 DATA102,102,102,60,24,24,24,0
73 DATA252,204,24,24,49,99,252,0
74 DATA108,56,108,204,252,204,204,0
75 DATA102,60,102,102,102,102,60,0
76 DATA56,56,108,204,252,204,204,0
80 DATA56,108,206,214,230,108,56,0
81 DATA12,28,44,12,12,12,62,0
82 DATA60,102,6,60,96,192,254,0
83 DATA60,102,6,28,198,198,124,0
84 DATA12,12,204,204,254,12,12,0
85 DATA126,96,124,6,198,198,124,0
86 DATA126,192,252,198,198,198,124,0
87 DATA126,6,12,126,48,96,192,0
88 DATA124,198,124,198,198,198,124,0
89 DATA60,102,62,6,198,198,124,0
90 FORi=51584TO51663:READa:POKEi,a:NEXT
91 DATA30, 0,24,60,126,255,24,24,24
92 DATA31, 16,48,112,255,255,112,48,16
93 DATA64, 0,0,0,255,255,0,0,0
94 DATA94, 0,0,1,254,54,54,54,0
95 DATA95, 255,127,63,31,15,7,3,1
96 DATA127, 240,240,240,240,15,15,15,15
97 DATA-1
98 READz:IFz>0THENFORi=0TO7:READa:POKE51200+(z*8)+i,a:NEXTi:GOTO98
99 PRINT"- klart."
100 PRINT"Inverserar tecken ";
101 FORi=0TO1023:POKE52224+i,255-PEEK(i+51200):NEXT
102 PRINT"- klart{light blue}{down*3}"
104 PRINT"Programmet gjort av Micke Persson,{space*26}J{pound}nk{pound}ping."
105 PRINT"{sh +}ndrat av Mr.P."
106 PRINT"Programmet inskrivet ur DatorMagazin"
107 PRINT"nummer 9 ]r 1989."
108 POKE53280,6:POKE53281,6
109 bo=14:PRINT"V[lj border-f[rg";:INPUTbo
110 bc=6:PRINT"V[lj bakgrunds-f[rg";:INPUTbc
111 ch=14:PRINT"V[lj tecken-f[rg";:INPUTch
112 POKE53280,bo:POKE53281,bc:POKE646,ch
stop tok64
(bastext 1.0)