home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Publication 4
/
Publication_04_19xx_High-Tech_de_Side_A.d64
/
joystick .txt
< prev
next >
Wrap
Text File
|
2023-02-26
|
1KB
|
46 lines
basic - tricks
joystick-steuerung
3
DER@FREUDENSTAB\
der@freudenstab\
und siehe{CBM--}da waren zwei analphabeten{CBM--}
die konnten mit der tastatur nix an-
fangen....doch gott erbarmte sich
ihrer lauten wehklagen und siehe{CBM--}er
sandte ihnen den JOYSTICK !
doch die beiden analphabeten waren
nur der sprache BASIC m@chtig (wie
sie das auch immer gemanagt haben -
wenn sie nicht schreiben konnten).
doch diesmal war es nicht gott{CBM--}der
sich erbarmte{CBM--}sondern die PUBLICATION
brachte ihnen eine routine zur steuer-
ung des freudenstabes in BASIC !
und hier ist die routine (auch f]r
nicht-analphabetisten geeignet) {SHIFT-+}
joy =int(log(255.5-(peek(56320)or244))
/log(2)+2)
sorry{CBM--}aber die routine passt nicht in
EINE zeile !
nach ansprung dieser zeile erh@lt man
einen wert zwischen eins und sechs
in der variablen JOY !
und das bedeuten die werte {SHIFT-+}
1 ruhestellung (keine bewegung)
2 nach oben
3 runter
4 ab nach linx
5 nach rechts
6 feuerknopf !
das ganze kann man jetzt per if-then-
schleife abfragen oder aber auch per
on goto bzw. on gosub !
ZEITGEIST