_  __   _  _         _ _     _      _           _           
  __| |/ /_ | || |     __| (_)___| | __ (_)_ __   __| | _____  __
 / _` | '_ \| || |_   / _` | / __| |/ / | | '_ \ / _` |/ _ \ \/ /
| (_| | (_) |__   _| | (_| | \__ \   <  | | | | | (_| |  __/>  < 
 \__,_|\___/   |_|    \__,_|_|___/_|\_\ |_|_| |_|\__,_|\___/_/\_\
                                                                 
            

JOYSTICK    .TXT

FILE INFORMATION

FILENAME(S): JOYSTICK    .TXT

FILE TYPE(S): SEQ

FILE SIZE: 1.1K

FIRST SEEN: 2025-11-30 18:06:39

APPEARS ON: 1 disk(s)

FILE HASH

135c2ae27901204769de1f4ce2a9de8ea7d163f0d2bf2a8a3ddec116ea6c1a77

FOUND ON DISKS (1 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
PUBLICATION 4 JOYSTICK    .TXT SEQ Xii 19 3 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

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 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL