start tok64 d64-H58R5k 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)