00000000: 42 41 53 49 43 20 2D 20 54 52 49 43 4B 53 0D 4A |BASIC - TRICKS.J|
00000010: 4F 59 53 54 49 43 4B 2D 53 54 45 55 45 52 55 4E |OYSTICK-STEUERUN|
00000020: 47 0D 20 33 20 0D A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |G. 3 ...........|
00000030: A0 90 12 C4 C5 D2 40 C6 D2 C5 D5 C4 C5 CE D3 D4 |......@.........|
00000040: C1 C2 92 05 5C 0D A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |....\...........|
00000050: A0 05 12 44 45 52 40 46 52 45 55 44 45 4E 53 54 |...DER@FREUDENST|
00000060: 41 42 92 90 5C 97 0D A0 0D 55 4E 44 20 53 49 45 |AB..\....UND SIE|
00000070: 48 45 DC 44 41 20 57 41 52 45 4E 20 5A 57 45 49 |HE.DA WAREN ZWEI|
00000080: 20 41 4E 41 4C 50 48 41 42 45 54 45 4E DC 0D 44 | ANALPHABETEN..D|
00000090: 49 45 20 4B 4F 4E 4E 54 45 4E 20 4D 49 54 20 44 |IE KONNTEN MIT D|
000000A0: 45 52 20 54 41 53 54 41 54 55 52 20 4E 49 58 20 |ER TASTATUR NIX |
000000B0: 41 4E 2D 0D 46 41 4E 47 45 4E 2E 2E 2E 2E 44 4F |AN-.FANGEN....DO|
000000C0: 43 48 20 47 4F 54 54 20 45 52 42 41 52 4D 54 45 |CH GOTT ERBARMTE|
000000D0: 20 53 49 43 48 0D 49 48 52 45 52 20 4C 41 55 54 | SICH.IHRER LAUT|
000000E0: 45 4E 20 57 45 48 4B 4C 41 47 45 4E 20 55 4E 44 |EN WEHKLAGEN UND|
000000F0: 20 20 53 49 45 48 45 DC 45 52 0D 53 41 4E 44 54 | SIEHE.ER.SANDT|
00000100: 45 20 49 48 4E 45 4E 20 44 45 4E 20 CA CF D9 D3 |E IHNEN DEN ....|
00000110: D4 C9 C3 CB 20 21 0D 44 4F 43 48 20 44 49 45 20 |.... !.DOCH DIE |
00000120: 42 45 49 44 45 4E 20 41 4E 41 4C 50 48 41 42 45 |BEIDEN ANALPHABE|
00000130: 54 45 4E 20 57 41 52 45 4E 0D 4E 55 52 20 44 45 |TEN WAREN.NUR DE|
00000140: 52 20 53 50 52 41 43 48 45 20 C2 C1 D3 C9 C3 20 |R SPRACHE ..... |
00000150: 4D 40 43 48 54 49 47 20 28 57 49 45 0D 53 49 45 |M@CHTIG (WIE.SIE|
00000160: 20 44 41 53 20 41 55 43 48 20 49 4D 4D 45 52 20 | DAS AUCH IMMER |
00000170: 47 45 4D 41 4E 41 47 54 20 48 41 42 45 4E 20 2D |GEMANAGT HABEN -|
00000180: 0D 57 45 4E 4E 20 53 49 45 20 4E 49 43 48 54 20 |.WENN SIE NICHT |
00000190: 53 43 48 52 45 49 42 45 4E 20 4B 4F 4E 4E 54 45 |SCHREIBEN KONNTE|
000001A0: 4E 29 2E 0D 44 4F 43 48 20 44 49 45 53 4D 41 4C |N)..DOCH DIESMAL|
000001B0: 20 57 41 52 20 45 53 20 4E 49 43 48 54 20 47 4F | WAR ES NICHT GO|
000001C0: 54 54 DC 44 45 52 0D 53 49 43 48 20 45 52 42 41 |TT.DER.SICH ERBA|
000001D0: 52 4D 54 45 DC 53 4F 4E 44 45 52 4E 20 44 49 45 |RMTE.SONDERN DIE|
000001E0: 20 D0 D5 C2 CC C9 C3 C1 D4 C9 CF CE 0D 42 52 41 | ............BRA|
000001F0: 43 48 54 45 20 49 48 4E 45 4E 20 45 49 4E 45 20 |CHTE IHNEN EINE |
00000200: 52 4F 55 54 49 4E 45 20 5A 55 52 20 53 54 45 55 |ROUTINE ZUR STEU|
00000210: 45 52 2D 0D 55 4E 47 20 44 45 53 20 46 52 45 55 |ER-.UNG DES FREU|
00000220: 44 45 4E 53 54 41 42 45 53 20 49 4E 20 C2 C1 D3 |DENSTABES IN ...|
00000230: C9 C3 20 21 0D 55 4E 44 20 48 49 45 52 20 49 53 |.. !.UND HIER IS|
00000240: 54 20 44 49 45 20 52 4F 55 54 49 4E 45 20 28 41 |T DIE ROUTINE (A|
00000250: 55 43 48 20 46 5D 52 0D 4E 49 43 48 54 2D 41 4E |UCH F]R.NICHT-AN|
00000260: 41 4C 50 48 41 42 45 54 49 53 54 45 4E 20 47 45 |ALPHABETISTEN GE|
00000270: 45 49 47 4E 45 54 29 20 DB 0D A0 0D 4A 4F 59 20 |EIGNET) ....JOY |
00000280: 3D 49 4E 54 28 4C 4F 47 28 32 35 35 2E 35 2D 28 |=INT(LOG(255.5-(|
00000290: 50 45 45 4B 28 35 36 33 32 30 29 4F 52 32 34 34 |PEEK(56320)OR244|
000002A0: 29 29 0D A0 A0 A0 A0 A0 2F 4C 4F 47 28 32 29 2B |))....../LOG(2)+|
000002B0: 32 29 0D A0 0D 53 4F 52 52 59 DC 41 42 45 52 20 |2)...SORRY.ABER |
000002C0: 44 49 45 20 52 4F 55 54 49 4E 45 20 50 41 53 53 |DIE ROUTINE PASS|
000002D0: 54 20 4E 49 43 48 54 20 49 4E 0D C5 C9 CE C5 20 |T NICHT IN..... |
000002E0: 5A 45 49 4C 45 20 21 0D A0 0D 4E 41 43 48 20 41 |ZEILE !...NACH A|
000002F0: 4E 53 50 52 55 4E 47 20 44 49 45 53 45 52 20 5A |NSPRUNG DIESER Z|
00000300: 45 49 4C 45 20 45 52 48 40 4C 54 20 4D 41 4E 0D |EILE ERH@LT MAN.|
00000310: 45 49 4E 45 4E 20 57 45 52 54 20 5A 57 49 53 43 |EINEN WERT ZWISC|
00000320: 48 45 4E 20 45 49 4E 53 20 55 4E 44 20 53 45 43 |HEN EINS UND SEC|
00000330: 48 53 0D 49 4E 20 44 45 52 20 56 41 52 49 41 42 |HS.IN DER VARIAB|
00000340: 4C 45 4E 20 CA CF D9 20 21 0D 55 4E 44 20 44 41 |LEN ... !.UND DA|
00000350: 53 20 42 45 44 45 55 54 45 4E 20 44 49 45 20 57 |S BEDEUTEN DIE W|
00000360: 45 52 54 45 20 DB 0D A0 0D 31 20 52 55 48 45 53 |ERTE ....1 RUHES|
00000370: 54 45 4C 4C 55 4E 47 20 28 4B 45 49 4E 45 20 42 |TELLUNG (KEINE B|
00000380: 45 57 45 47 55 4E 47 29 0D 32 20 4E 41 43 48 20 |EWEGUNG).2 NACH |
00000390: 4F 42 45 4E 0D 33 20 52 55 4E 54 45 52 0D 34 20 |OBEN.3 RUNTER.4 |
000003A0: 41 42 20 4E 41 43 48 20 4C 49 4E 58 0D 35 20 4E |AB NACH LINX.5 N|
000003B0: 41 43 48 20 52 45 43 48 54 53 0D 36 20 46 45 55 |ACH RECHTS.6 FEU|
000003C0: 45 52 4B 4E 4F 50 46 20 21 0D A0 0D 44 41 53 20 |ERKNOPF !...DAS |
000003D0: 47 41 4E 5A 45 20 4B 41 4E 4E 20 4D 41 4E 20 4A |GANZE KANN MAN J|
000003E0: 45 54 5A 54 20 50 45 52 20 49 46 2D 54 48 45 4E |ETZT PER IF-THEN|
000003F0: 2D 0D 53 43 48 4C 45 49 46 45 20 41 42 46 52 41 |-.SCHLEIFE ABFRA|
00000400: 47 45 4E 20 4F 44 45 52 20 41 42 45 52 20 41 55 |GEN ODER ABER AU|
00000410: 43 48 20 50 45 52 0D 4F 4E 20 47 4F 54 4F 20 42 |CH PER.ON GOTO B|
00000420: 5A 57 2E 20 4F 4E 20 47 4F 53 55 42 20 21 0D A0 |ZW. ON GOSUB !..|
00000430: 0D A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 A0 |................|
00000440: A0 A0 A0 A0 A0 A0 05 DA C5 C9 D4 C7 C5 C9 D3 D4 |................|
00000450: 0D |. |
BASIC - TRICKS.JOYSTICK-STEUERUNG. 3 .
..DER@FREUDENSTAB..\.
..DER@FREUDENSTAB..\.. .UND SIEHE.DA WA
REN ZWEI ANALPHABETEN..DIE KONNTEN MIT D
ER TASTATUR NIX AN-.FANGEN....DOCH GOTT
ERBARMTE SICH.IHRER LAUTEN WEHKLAGEN UND
SIEHE.ER.SANDTE IHNEN DEN JOYSTICK !.D
OCH DIE BEIDEN ANALPHABETEN WAREN.NUR DE
R SPRACHE BASIC M@CHTIG (WIE.SIE DAS AUC
H IMMER GEMANAGT HABEN -.WENN SIE NICHT
SCHREIBEN KONNTEN)..DOCH DIESMAL WAR ES
NICHT GOTT.DER.SICH ERBARMTE.SONDERN DIE
PUBLICATION.BRACHTE IHNEN EINE ROUTINE
ZUR STEUER-.UNG DES FREUDENSTABES IN BAS
IC !.UND HIER IST DIE ROUTINE (AUCH F]R.
NICHT-ANALPHABETISTEN GEEIGNET) .. .JOY
=INT(LOG(255.5-(PEEK(56320)OR244)).
/LOG(2)+2). .SORRY.ABER DIE ROUTINE PASS
T NICHT IN.EINE ZEILE !. .NACH ANSPRUNG
DIESER ZEILE ERH@LT MAN.EINEN WERT ZWISC
HEN EINS UND SECHS.IN DER VARIABLEN JOY
!.UND DAS BEDEUTEN DIE WERTE .. .1 RUHES
TELLUNG (KEINE BEWEGUNG).2 NACH OBEN.3 R
UNTER.4 AB NACH LINX.5 NACH RECHTS.6 FEU
ERKNOPF !. .DAS GANZE KANN MAN JETZT PER
IF-THEN-.SCHLEIFE ABFRAGEN ODER ABER AU
CH PER.ON GOTO BZW. ON GOSUB !. .
.ZEITGEIST.
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL