10 REM POKEHI.BAS 20 DIM D(6) 30 FOR X=1 TO 6 40 READ D(X):POKE -20481+X,D(X) 50 NEXT X 60 STOP 70 DATA 33,15,12,175,119,201 80 REM A=&HB000:CALL A