start tok64 d64-EPousp
0 REM "final program"
1 REM av: greger johansson &CLOSEjerker
2 REM ob. computer 4/1987
10 FORa=49152TO49373:READb:POKEa,b:NEXT
20 PRINT"{clear}{reverse on}{white}perfect function keys{reverse off}{down}
30 PRINT"aktiveras{space*4}: sys 49152
40 PRINT"{down}de-aktiveras : stop+restore el reset
50 PRINT"{reverse on}av perfect software{reverse off}{light blue}{down}":POKE53281,6:POKE53280,14
60 DATA120,169,13,141,20,3,169,192,141,61,3,88,96,32,159,255
70 DATA224,133,208,3,238,32,208,224,137,208,3,238,134,2,224,134
80 DATA208,3,238,33,208,224,139,208,3,32,226,252,224,136,208,19
90 DATA162,0,169,0,189,70,192,240,10,32,210,255,232,208,245,169
100 DATA0,162,0,76,78,192,147,19,76,73,83,84,0,8,32,159
110 DATA255,224,135,208,13,162,0,189,105,192,240,6,32,210,255,232
120 DATA208,245,162,0,169,0,76,112,192,147,19,76,79,65,68,0
130 DATA32,159,255,224,140,208,51,255,169,8,141,2,8,32,51,165
140 DATA24,165,34,105,2,133,45,165,35,105,0,133,46,160,0,185
150 DATA155,192,240,22,32,210,255,200,208,245,96,147,19,79,76,68
160 DATA13,17,82,69,65,68,89,46,13,0,32,159,255,224,138,208
170 DATA3,76,183,192,76,49,234,169,14,162,6,160,14,141,32,208
180 DATA142,33,208,140,134,2,169,60,141,5,220,162,0,160,0,200
190 DATA232,224,255,208,251,192,2,208,246,76,49,234,255,32
200 PRINT"{down*2}{right}sys pd
210 PRINT,"{down}{reverse on}f1=border","f2=cursor
220 PRINT,"{reverse on}f3=backgr","f4=norm col
230 PRINT,"{reverse on}f5=load","f6=reset
240 PRINT,"{reverse on}f7=list","f8=old
stop tok64
(bastext 1.0)