start tok64 d64-2RvaWn 0 REM * start rutine med sys49152 * 1 FORi=49152TO49519:READa:b=b+a:POKEi,a:NEXT 2 IFb<>42927THENPRINT"feil i data!!":END 3 PRINT"ok{.*3} 4 DATA173,47,193,133,251,173,48,193,133,252,141,,208,141 5 DATA1,208,173,21,208,9,1,141,21,208,169,13,141,248 6 DATA7,169,,141,39,208,169,,141,29,208,141,23,208 7 DATA162,,189,49,193,157,64,3,232,16,247,173,1,220 8 DATA72,41,1,240,48,104,72,41,2,240,55,104,72,41 9 DATA4,240,62,104,72,41,8,240,90,104,41,16,240,117 10 DATA165,252,141,1,208,165,251,141,,208,162,,160, 11 DATA200,208,253,232,224,5,208,246,76,53,192,198,252,165 12 DATA252,201,49,208,2,230,252,76,61,192,230,252,165,252 13 DATA201,249,208,2,198,252,76,67,192,198,251,173,16,208 14 DATA41,1,240,14,165,251,201,255,208,16,173,16,208,41 15 DATA254,141,16,208,165,251,201,16,208,2,230,251,76,73 16 DATA192,230,251,173,16,208,41,1,208,12,165,251,208,16 17 DATA173,16,208,9,1,141,16,208,165,251,201,78,208,2 18 DATA198,251,76,79,192,165,251,141,47,193,56,233,17,168 19 DATA74,74,74,170,173,16,208,41,1,240,11,152,201,79 20 DATA176,6,138,105,32,76,233,192,138,133,253,165,252,141 21 DATA48,193,56,233,50,74,74,74,133,254,173,21,208,41 22 DATA254,141,21,208,169,,133,97,169,4,133,98,164,254 23 DATA240,28,160,,162,,230,97,165,97,240,8,232,224 24 DATA40,240,8,76,16,193,230,98,76,22,193,200,196,254 25 DATA208,230,164,253,177,97,133,252,96,17,50,,224, 26 DATA,252,,,255,,,127,192,,126,,,127 27 DATA,,55,128,,51,192,,17,224,,,240, 28 DATA,120,,,60,,,30,,,8,,, 29 DATA,,,,,,,,,,,,,,,,, 50 POKE53280,.:POKE53281,. 51 PRINT"{green}{clear}{down*2}{right}sys pd 1991 52 PRINT"{down}{right}{156}publicerad i dmz #8, 1990 53 PRINT"{down}{right}{light blue}point, av b]rd lauris heitmann, ]neby, 54 PRINT"{right}norge 55 PRINT"{down}{green}detta [r ett ml-program som g{pound}r en 56 PRINT"pekare. starta med sys49152. styr med 57 PRINT"joystick. n[r du trycker fire lagras 58 PRINT"sk[rmkoden i 252 ($fc). pilens x/y- 59 PRINT"koordinater lagras i 253/254($fd/$fe). 60 PRINT"v[lja joystick: poke49206,2-port. f[rg: 61 PRINT"poke49182,f[rg (0-15). poke49255,hast. stop tok64 (bastext 1.0)