start tok64 d64-DaYexh 200 OPEN4,4:PRINT#4,CHR$(27)CHR$(0):CLOSE4 295 PRINT"{clear}{down*4}{space*7}kommer strax!":GOSUB900 300 pn$="mc1":SYSx 325 PRINT"{home}{white}{down*6}":POKE53280,4:POKE53281,4 326 SYS52000,"fixreg.v.4":PRINT"{up*2}" 328 SYS52000,"y.lindblad":PRINT"{up*2}" 329 SYS52000," (c) 1987":PRINT"{up}{white}" 330 pn$="mcyl":SYSx 350 vs=831:ms=895:hs=959:v=53248:sp=2042 355 OPEN2,8,2,"0:s1,s,r":FORi=vsTOvs+64:INPUT#2,g:POKEi,g:NEXT:CLOSE2 360 OPEN2,8,2,"0:s2,s,r":FORi=msTOms+64:INPUT#2,g:POKEi,g:NEXT:CLOSE2 365 OPEN2,8,2,"0:s3,s,r":FORi=hsTOhs+64:INPUT#2,g:POKEi,g:NEXT:CLOSE2 400 PRINT"{home}{156}load"CHR$(34)"fixreg. v4.0"CHR$(34)",8:" 401 POKE198,2:POKE631,19:POKE632,131:NEW 900 x=52500 990 FORi=xTOx+45:READa:POKEi,a:NEXTi:RETURN 1000 DATA169,80,133,69,169,206,133,70 1008 DATA32,231,176,160,0,177,71,72 1016 DATA200,192,3,208,248,162,8,169 1024 DATA0,160,1,32,186,255,104,168 1032 DATA104,170,104,32,189,255,169,0 1040 DATA168,170,32,213,255,96 stop tok64 (bastext 1.0)