Commodore 128 Handbuch Seite 216

10 SPRITE 1,1,2
20 MOVSPR 1,100,100
30 A=JOY(2)
40 IF A=0 THEM 30
50 IF A>127 THEN A=A-128:SPRITE 1,1,3,1,1,1
60 IF A=1 THEM MOVSPR 1,+0,-5
70 IF A=2 THEN MOVSPR 1,+5,-5
80 IF A=3 THEN MOVSPR 1,+5,+0
90 IF A=4 THEN MOVSPR 1,+5,+5
100 IF A=5 THEN MOVSPR 1,+0,+5
110 IF A=6 THEN MOVSPR 1,-5,+5
120 IF A=7 THEN MOVSPR 1,-5,+0
130 IF A=8 THEN MOVSPR 1,-5,-5
140 SPRITE 1,1,2,0,0,0
150 PRINT:GOTO 30
Erkennen Sie das Listing wieder? Richtig, es handelt sich
um das Demoprogramm aus dem Kapitel über den Joystick. Es
wurden nur die 'PRINT' Anweisungen durch entsprechende
Befehle zur
können Sie das Joystickprogramm einladen und entsprechend
abändern.
Stecken Sie dann Ihren Joystick in Port 2 und starten das
Programm mit 'RUN'.
Bewegung des
204
Sprites ersetzt.
-
Natürlich