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