zur Zeit programmiere ich mit Turbo Pascal ein kleines Spiel für den Joyce. Aktuell unterstützt mein Programm als Eingabemedium nur die Tastatur. Da ich ein DK'Tronics Joystick und Sound Interface besitze, würde ich auch gerne die Joystickeingabe realisieren. Leider sind meine Versuche aber bislang gescheitert. Vielleicht weiß hier jemand Rat?
Unter Mallard Basic kann ich mit dem folgenden Programm den Joystick erfolgreich ansprechen:
Code: Alles auswählen
10 OUT 170,7
20 OUT 171,63
30 OUT 170,14
40 J=INP(169)
50 IF J=251 THEN PRINT "links"
60 IF J=247 THEN PRINT "rechts"
70 IF J=239 THEN PRINT "unten"
80 IF J=223 THEN PRINT "oben"
90 IF J=191 THEN PRINT "Feuer"
100 GOTO 30
Code: Alles auswählen
Var
Joy: Integer;
Feuer: Boolean;
Begin
bios(170,7);
bios(171,63);
Feuer:=false;
bios(170,14);
Joy:=bios(169);
write(Joy);
Repeat
bios(170,14);
Joy:=bios(169);
write(Joy);
if Joy=251 then write('links');
if Joy=247 then write('rechts');
if Joy=239 then write('unten');
if Joy=223 then write('oben');
if Joy=191 then write('Feuer');
if Joy=255 then write(Joy); (* diese Zeile gegebenenfalls auskommentieren, da sonst laufend 255 ausgegeben wird *)
Until Keypressed;
End.
http://www.cpcwiki.eu/forum/nc100-nc200 ... tach=13949
Leider enthält sie nur Beispiele in Basic und Maschinencode und nicht zu Turbo Pascal.
Viele Grüße,
Marcus