012
23.08.2014, 06:43 Uhr
ralle
|
140 input"Wählen Sie ihr Eingabegerät";s
210 j=stick(s) 220 on j gosub 1,2,3,4,5,6,7,8 230 locate13,0,0 231 a=strig(s):b=strig(3):c=strig(4) 232 if a=-1 then print"Feuer" 249 if b=-1 or c=-1 then end 250 goto 210
Ich habe es erst mal so gelöst, da ich ja mit "s" eine Joystick auswähle. Ist zwar nicht der Optimalfall, aber recht brauchbar.
Hier ein Beispiel für das Commodore BASIC V7:
0 goto 60 1 char1,2,2,"HOCH":return 2 char1,2,2,"RECHTS HOCH":return 3 char1,2,2,"RECHTS":return 4 char1,2,2,"RECHTS RUNTER":return 5 char1,2,2,"RUNTER":return 6 char1,2,2,"LINKS RUNTER":return 7 char1,2,2,"LINKS":return 8 char1,2,2,"LINKS HOCH":return 9 char1,2,2,"FEUER":return 10 char1,2,2,"FEUER + HOCH":return 11 char1,2,2,"FEUER + RECHTS HOCH":return 12 char1,2,2,"FEUER + RECHTS":return 13 char1,2,2,"FEUER + RECHTS RUNTER":return 14 char1,2,2,"FEUER + RUNTER":return 15 char1,2,2,"FEUER + LINKS RUNTER":return 16 char1,2,2,"FEUER + LINKS":return 17 char1,2,2,"FEUER + LINKS HOCH":return 60 do 61 j=joy(1):rem read joystick (0 is centered, 1 to 8 are directions, +128 means fire) 62 if j and 128 then j = (j and 127) + 9:rem convert +128 to +9 63 on j gosub 1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17:rem output 64 loop
char x,x,x ist die formatierte ausgabe und do...loop eine weitere Schleifenbastelform. Beim KC85/87 und beim CPC/KCC sind diese Lösungen alle gleich, bei denen gilt 1,2,4,8,16... -- Gruß Ralle
Wenn Sie dazu neigen, Bedienungsanleitungen zusammen mit dem Verpackungsmaterial wegzuwerfen, sehen Sie bitte von einem derart drastischen Schritt ab!... ... Nachdem Sie das Gerät eine Weile ausprobiert haben, machen Sie es sich am besten mit dieser Anleitung und ihrem Lieblingsgetränk ein oder zwei Stunden lang in Ihrem Sessel bequem. Dieser Zeitaufwand wird Sie dann später belohnen...
aus KENWOOD-Bedienungsanleitung TM-D700 |