home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 24
/
Tiger_Disk_024_19xx_Tiger-Crew-Disk_de_Side_A.d64
/
joystick-abfrage
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
417b
|
15 lines
10 poke53280,12:poke53281,12:print"[147] joystickabfrage "
20 print"mit welchem port moechtest du arbeiten (1/2)?"
30 getx$:ifx$<>"1"andx$<>"2"then30
40 x=val(x$)
50 print"start mit feuer in port";x;"!":wait(56322-x),16,16
60 j=int((log(255.5-(peek(56322-x)or224)))/log(2)+2)
70 onjgoto80,90,100,110,120,130
80 print"[145]mitte ":a=1:goto60
90 print"[145]oben ":goto60
100 print"[145]unten ":goto60
110 print"[145]links ":goto60
120 print"[145]rechts":goto60
130 ifa=1thenprint"feuer":list40-130
140 goto60