start tok64 d64-7icSzM
10 REM {reverse on}********************************
20 REM {reverse on}*      screen-hires copy       *
30 REM {reverse on}*                              *
40 REM {reverse on}* written by softice software. *
50 REM {reverse on}********************************
60 REM
100 FORa=828TO953:READx:POKEa,x:NEXT
110 DATA162,,142,14,220,169,51,133,1,169,4,133,248,169,,133,247,133,249,169,32
120 DATA133,250,162,4,160,,138,72,152,72,169,,133,252,177,247,133,251,6,251,38
130 DATA252,6,251,38,252,6,251,38,252,24,165,252,105,208,133,252,162,,160,7,177
140 DATA251,145,249,136,16,249,24,165,249,105,8,133,249,144,2,230,250,104,168,104
150 DATA170,200,208,196,230,248,202,208,189,169,55,133,1,169,1,141,14,220,32,253
160 DATA174,32,212,225,169,32,133,250,169,,133,249,170,169,249,160,64,32,216,255
170 DATA96,1,8
200 POKE53280,.:POKE53281,.:PRINT"{clear}{white}instruktioner
210 PRINT"{green}{down}detta program omvandlar en textsk[rm
220 PRINT"till h{pound}guppl{pound}sning.
230 PRINT"omvandla med: sys828,"CHR$(34)"namn"CHR$(34)",8
240 PRINT"{down}vill du byta font skriver du
250 PRINT"poke883,hibyte (adress/256).
stop tok64
(bastext 1.0)