home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 4
/
Publication_04_19xx_High-Tech_de_Side_A.d64
/
joystick-abfrage
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
500b
|
21 lines
10 rem ********************************
11 rem * *
12 rem * joystick - steuerung *
13 rem * ---------------------- *
14 rem * *
15 rem ********************************
16 rem
20 joy=2:rem joystick port#2
21 rem
22 j=int((log(255.5-(peek(56322-joy)or224)))/log(2)+2):rem abfrage
23 rem
24 on j goto26,27,28,29,30,31
25 rem
26 print"[147] ruhe":goto22
27 print"[147] oben":goto22
28 print"[147] unten":goto22
29 print"[147] links":goto22
30 print"[147] rechts":goto22
31 print"[147] feuer":goto22
32 goto22