Commodore 1351 Manual Del Usuario página 85

BASIC
AND
MACHINE
LANGUAGE PROGRAMS
FOR
1351
MOUSE
ANDC64
100
GOSUB140:GOSUB330
1
10
V =
13*4096:POKEV +
21
,1
:POKEV +
39,1
:POKEV +
0,100:POKEV+1,100:POKEV
+
16,0
120
POKE2040,56:SYS12*4096
+
256
130
END
140
FORX
= 0TO129:READA$:GOSUB430:POKE49408 +
X,Y:NEXTX:
RETURN
150 DATAAD,15,03,C9,C1,F0,19,08
160
DATA78,AD,
14,03,80,00,0)^0
170 DATA15,03,8D,01,C0,A9,21,8D
180
DATA1
4,03^9,01,80,
15,03,28
190
DATA60,D8,AD
J
19,D4,AC,02,C0
200 DATA20,58,C1,8C,02,C0,18,6D
210 DATA00,D0,8D,00,D0,8A,69,00
220 DATA29,01,4D,10,D0,8D,10,D0
230 DATAAD,1A,D4,AC,03,C0,20,58
240 DATAC1,8C,03,C0,38,49,FF,6D
250 DATA01,D0,8D,01,D0,6C,00,C0
260 DATA8C,05,C0,8D,04,C0,A2,00
270 DATA38,ED,05,C0,29,7F,C9,40
81