start tok64 d64-oaJ48b 5 PRINT"{clear}numeriskt tangentbord" 6 PRINT" 789= 789" 7 PRINT" 456= uio" 8 PRINT" 123= jkl" 9 PRINT"{space*2}0 ={space*2}m " 10 FORa=49152TO49200:READe:b=b+e:POKEa,e:NEXT:IFb<>4860THENPRINT"data fel" 20 PRINT"sys49152 f{pound}r start!" 30 DATA120,169,13,141,143,2,169,192,141,144,2,88,96,162,7,165 40 DATA203,221,32,192,208,5,188,40,192,132,203,202,208,243,76,72,235 50 DATA30,33,38,34,37,42,36,0,11,16,19,56,59,8,35,0 stop tok64 (bastext 1.0)