Commodore 1351 Guia Del Usuario página 91

100
120
130
140
150
160
170
180
190
200
210
220
230
240
250
260
270
BASIC AND MACHINE
LANGUAGE PROGRAMS
FOR 1351 MOUSE
AND C128
GOSUB230:GOSUB420:SYS6144.
BA = DEC("'0A04''):POKE VA, 1ORPEEK(BA)
SPRITE 1,1,2:MOVSPR 1,100,100
GRAPHIC1,1:CHAR 1,8,1,"1351 MOUSE PAINT"
DO:IF (JOY(1) AND 128) THEN GOSUB 180
IF (JOY(1) AND 1) THEN GRAPHIC 1,1:CHAR 1,8,1,
"1351 MOUSE PAINT"
LOOP
X = RSPROS(1,0)—25:Y = RSPPOS(1,1)—51:
X= —X«(X>0):Y= —Y+(Y>0)
LOCATE X,Y:C = 1-RDOT(2):DRAW C,x,Y
DO:X = RSPOS(1,0)—25:Y = RSPPOS(1,1)—51:
X= —X+#(X>0):¥Y = —Y(Y>0)
DRAW C TO X, Y:LOOP WHILE JOY(1) AND 128 : RETURN
FORX = 0T0135:READA$:POKE6144 + X,DEC(A$):NEXTX:
RETURN
DATAAD,15,03,C9, 18, F0,19,08
DATA78,AD,14,03,8D,F0,18,AD
DATA15,03,8D,F1,18,A9,21,8D
DATA14,03,A9,18,8D, 15,03,28