1 REM *******************************
2 REM PROGRAM : MOVING CURSOR WITH
3 REM JOYSTICK
4 REM AUTHOR : ZLATKO BLEHA
5 REM PUBLISHER: MOJ MIKRO MAGAZINE
6 REM ISSUE NO.: 1988, NO.6, PAGE 42
7 REM *******************************
10 FOR A=1600 TO 1653
20 READ B:POKE A,B:C=C+B
30 NEXT A
40 IF C<>5925 THEN ? "*** DATA ERROR *
**":END
50 POKE 512,64:POKE 513,6:POKE 54286,1
92
60 POKE PEEK(560)+PEEK(561)*256+6,130
70 DATA 72,138,72,186,138,72,206,117,6
,208
80 DATA 27,169,4,141,117,6,162,8,189,1
07
90 DATA 6,205,120,2,208,8,189,108,6,14
1
100 DATA 252,2,208,4,202,202,208,236,1
04,170
110 DATA 154,104,170,104,64,7,135,11,1
34
120 DATA 14,142,13,143,4