start tok64 d64-3r6dNt 10 REM *** interruptstyrd klocka *** 20 REM *** av mikael pawlo f{pound}r *** 30 REM *** svenska hemdator nytt *** 40 FORbymp=49152TO49331:READduo 50 POKE bymp,duo:NEXTbymp 55 PRINT"{clear}interruptstyrd klocka av" 57 PRINT"mikael pawlo f{pound}r 64 in toto/shn" 60 PRINT"ur-s[kta vad [r klockan?" 65 shn=0 66 bymp=176 67 b=0 70 a=PEEK(197) 80 IFa=35THENPOKE760+b,0+bymp 90 IFa=56THENPOKE760+b,1+bymp 100 IFa=59THENPOKE760+b,2+bymp 110 IFa=8THENPOKE760+b,3+bymp 120 IFa=11THENPOKE760+b,4+bymp 130 IFa=16THENPOKE760+b,5+bymp 140 IFa=19THENPOKE760+b,6+bymp 150 IFa=24THENPOKE760+b,7+bymp 160 IFa=27THENPOKE760+b,8+bymp 170 IFa=32THENPOKE760+b,9+bymp 190 IF a<>64 THEN shn=shn+1 200 IF shn=1 THENb=1 210 IF shn=2 THENb=3 220 IF shn=3 THENb=4 230 IF shn=4 THENb=6 240 IF shn=5 THENb=7 250 IF shn>5 THEN GOSUB 1988:END 260 GOTO 70 300 DATA 169,186,141,253,2,141,250,2 310 DATA 120,169,254,141,18,208,169,30 320 DATA 141,20,3,169,192,141,21,3,169 330 DATA 0,133,2,88,96,230,2,165,2,201 340 DATA 60,240,3,76,156,192,238,255,2 350 DATA 173,255,2,201,186,208,101,169 360 DATA 176,141,255,2,238,254,2,173 370 DATA 254,2,201,182,208,86,169,176 380 DATA 141,254,2,238,252,2,173,252 385 DATA 2,201,186 390 DATA 208,71,169,176,141,252,2,238 400 DATA 251,2,173,251,2,201,182,208 410 DATA 56,169,176,141,251,2,238,249 420 DATA 2,173,249,2,201,180,240,26 430 DATA 201,186,208,37,169,176,141 440 DATA 249,2,238,248,2,173,248,2,201 450 DATA 179,208,22,169,176,141,248,2 460 DATA 240,15,173,248,2,201,178,208 470 DATA 8,169,176,141,249,2,141,248,2 480 DATA 169,0,133,2,162,8,169,1,157 490 DATA 31,216,202,208,248,162,8,189 500 DATA 247,2,157,31,4,202,208,247,76 510 DATA 49,234 1988 PRINT"starta klockan med sys 49152." 1989 PRINT"rutinen ligger mellan:" 1990 PRINT"#49152-#49331." 1991 RETURN:be cool... be bymp!!! stop tok64 (bastext 1.0)