start tok64 d64-3aJH1s
1 REM *** kursiv stil (italic) ***
2 REM ***   av mikael pawlo   ***
3 REM *** f{pound}r 64 in toto/shn! ***
10 FORshn=49152TO49228:READbymp
20 POKE shn,bymp:NEXT
30 INPUT"vill du ha en demonstration av rutinen";a$
40 IF a$="j"ORa$="ja"ORa$="y"ORa$="yes"THEN GOTO 70
50 PRINT"starta rutinen med sys 49152."
60 END
70 POKE53280,0:POKE53281,0
80 PRINT"{clear}{right}{brown}kursiv stil gjord av mikael pawlo 1991"
90 PRINT"abcdefghijklmnopqrstuvwxyz][{pound}"
100 PRINT"1234567890"
110 SYS49152
300 DATA 120,169,50,133,2,141,18,208
310 DATA 173,17,208,41,127,141,17,208
320 DATA 169,1,141,13,220,141,26,208
330 DATA 169,36,162,192,141,20,3,142
340 DATA 21,3,88,96,169,1,141,25,208
350 DATA 173,22,208,73,1,141,22,208
360 DATA 165,2,201,246,240,11,24,105,4
370 DATA 133,2,141,18,208,76,129,234
380 DATA 169,50,133,2,141,18,208,76
390 DATA 49,234,0
stop tok64
(bastext 1.0)