JOYSTICKDEMO
FILE INFORMATION
FILENAME(S): JOYSTICKDEMO
FILE TYPE(S): PRG
FILE SIZE: 1.8K
FIRST SEEN: 2025-11-30 21:10:50
APPEARS ON: 5 disk(s)
FILE HASH
13e80afb56cab4d4aea9e0b8e41d3427325161e49974cf3403b08e0dc7f6258f
FOUND ON DISKS (5 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HCCN | JOYSTICKDEMO | PRG | DuncanTwain | 5 | 19 | DOWNLOAD FILE |
| LISTINGS | JOYSTICKDEMO | PRG | DuncanTwain | 23 | 0 | DOWNLOAD FILE |
| LISTINGS | JOYSTICKDEMO | PRG | DuncanTwain | 23 | 0 | DOWNLOAD FILE |
| DISK 192 A | JOYSTICKDEMO | PRG | DuncanTwain | 27 | 6 | DOWNLOAD FILE |
| 0050B | JOYSTICKDEMO | PRG | DuncanTwain | 27 | 6 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 35 08 0A 00 8F 2A 2A 2A 2A 2A 2A 2A 2A 2A |..5....*********| 00000010: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000020: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000030: 2A 2A 2A 2A 2A 00 62 08 14 00 8F 20 20 20 20 20 |*****.b.... | 00000040: 20 20 20 4A 4F 59 53 54 49 43 4B 2D 44 45 4D 4F | JOYSTICK-DEMO| 00000050: 4E 53 54 52 41 54 49 45 20 50 52 4F 47 52 41 4D |NSTRATIE PROGRAM| 00000060: 4D 41 00 95 08 1E 00 8F 20 20 20 4C 41 41 54 20 |MA...... LAAT | 00000070: 46 55 4E 43 54 49 45 20 45 4E 20 42 49 54 57 41 |FUNCTIE EN BITWA| 00000080: 41 52 44 45 20 5A 49 45 4E 20 42 49 4A 20 47 45 |ARDE ZIEN BIJ GE| 00000090: 42 52 55 49 4B 00 C8 08 28 00 8F 20 20 56 41 4E |BRUIK...(.. VAN| 000000A0: 20 45 45 4E 20 4A 4F 59 53 54 49 43 4B 20 49 4E | EEN JOYSTICK IN| 000000B0: 20 50 4F 4F 52 54 20 31 20 4F 46 20 32 20 4E 41 | POORT 1 OF 2 NA| 000000C0: 41 52 20 4B 45 55 5A 45 00 F5 08 32 00 8F 20 4F |AR KEUZE...2.. O| 000000D0: 4E 54 57 49 4B 4B 45 4C 44 20 44 4F 4F 52 20 4A |NTWIKKELD DOOR J| 000000E0: 41 4E 20 42 4F 44 5A 49 4E 47 41 2C 20 42 4C 41 |AN BODZINGA, BLA| 000000F0: 52 49 43 55 4D 00 29 09 3C 00 8F 2A 2A 2A 2A 2A |RICUM.).<..*****| 00000100: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000110: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************| 00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 2F 09 46 00 8F 00 |*********./.F...| 00000130: 54 09 63 00 8F 20 20 20 20 20 20 20 20 20 20 20 |T.c.. | 00000140: 20 20 20 20 2D 2D 2D 2D 2D 20 4D 41 49 4E 20 2D | ----- MAIN -| 00000150: 2D 2D 2D 2D 00 79 09 64 00 99 C7 28 31 34 37 29 |----.y.d...(147)| 00000160: C7 28 31 34 29 3A 8F 20 43 2D 36 34 20 49 4E 20 |.(14):. C-64 IN | 00000170: 54 45 4B 53 54 4D 4F 44 45 00 A6 09 6E 00 99 A3 |TEKSTMODE...n...| 00000180: 34 29 22 9E 11 11 2A 2A 2A 20 20 CA 4F 59 53 54 |4)"...*** .OYST| 00000190: 49 43 4B 2D 44 45 4D 4F 4E 53 54 52 41 54 49 45 |ICK-DEMONSTRATIE| 000001A0: 20 20 2A 2A 2A 22 00 C4 09 78 00 99 A3 31 38 29 | ***"...x...18)| 000001B0: 22 11 CA 41 4E 20 C2 4F 44 5A 49 4E 47 41 20 31 |"..AN .ODZINGA 1| 000001C0: 39 38 34 22 00 EC 09 82 00 4C 24 B2 C7 28 31 37 |984".....L$..(17| 000001D0: 35 29 3A 4C 31 24 B2 C7 28 31 38 34 29 20 3A 8F |5):L1$..(184) :.| 000001E0: 20 4B 41 44 45 52 53 54 52 45 45 50 00 1D 0A 8C | KADERSTREEP....| 000001F0: 00 41 41 24 B2 22 05 20 20 C1 C1 CE 20 22 3A 55 |.AA$.". ... ":U| 00000200: 49 24 B2 22 1E 20 20 D5 C9 D4 20 22 3A 8F 20 41 |I$.". ... ":. A| 00000210: 43 54 49 45 20 4A 4F 59 53 54 49 43 4B 00 51 0A |CTIE JOYSTICK.Q.| 00000220: 96 00 4E 55 24 B2 22 1E 20 2D 20 30 20 2D 22 3A |..NU$.". - 0 -":| 00000230: 45 45 24 B2 22 05 20 2D 20 31 20 2D 22 3A 8F 20 |EE$.". - 1 -":. | 00000240: 53 54 52 49 4E 47 20 42 57 24 3D 30 20 4F 46 20 |STRING BW$=0 OF | 00000250: 31 00 75 0A A0 00 4E 52 24 B2 22 13 11 11 11 11 |1.u...NR$.".....| 00000260: 11 11 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D |................| 00000270: 1D 1D 1D 1D 22 00 A9 0A AA 00 8F 20 20 20 2A 2A |...."...... **| 00000280: 2A 2A 2A 2A 20 50 52 49 4E 54 45 4E 20 4B 41 44 |**** PRINTEN KAD| 00000290: 45 52 4C 49 4A 4E 45 4E 20 4F 50 20 53 43 48 45 |ERLIJNEN OP SCHE| 000002A0: 52 4D 20 2A 2A 2A 2A 2A 2A 00 CA 0A B4 00 99 A3 |RM ******.......| 000002B0: 37 29 22 1E 11 11 11 22 3B 3A 81 49 B2 30 A4 33 |7)"....";:.I.0.3| 000002C0: 31 3A 99 4C 24 3B 3A 82 3A 99 00 D5 0A BE 00 81 |1:.L$;:.:.......| 000002D0: 49 B2 30 A4 39 00 EE 0A C8 00 99 A3 37 29 C7 28 |I.0.9.......7).(| 000002E0: 31 38 31 29 A6 33 30 29 C7 28 31 38 32 29 00 F4 |181).30).(182)..| 000002F0: 0A D2 00 82 00 10 0B DC 00 99 A3 37 29 3B 3A 81 |...........7);:.| 00000300: 49 B2 30 A4 33 31 3A 99 4C 31 24 3B 3A 82 3A 99 |I.0.31:.L1$;:.:.| 00000310: 00 34 0B E6 00 99 A3 38 29 22 91 91 91 91 91 91 |.4.....8)"......| 00000320: 91 22 3B 3A 81 49 B2 30 A4 32 39 3A 99 4C 24 3B |.";:.I.0.29:.L$;| 00000330: 3A 82 3A 99 00 61 0B F0 00 8F 20 20 20 2A 2A 2A |:.:..a.... ***| 00000340: 2A 2A 2A 2A 20 50 52 49 4E 54 45 4E 20 56 41 53 |**** PRINTEN VAS| 00000350: 54 45 20 20 54 45 4B 53 54 20 2A 2A 2A 2A 2A 2A |TE TEKST ******| 00000360: 2A 00 95 0B FA 00 99 22 91 91 91 91 C6 55 4E 43 |*......".....UNC| 00000370: 2E 1D 1D 1D 1D 96 C6 49 52 45 9E 20 20 CF 4F 53 |.......IRE. .OS| 00000380: 54 20 20 D7 45 53 54 20 20 DA 55 49 44 20 20 CE |T .EST .UID .| 00000390: 4F 4F 52 44 22 00 C2 0B 04 01 99 22 11 C2 49 54 |OORD"......"..IT| 000003A0: 1D 1D 1D 1D 1D 1D 1D 1D 34 20 20 20 20 20 33 20 |........4 3 | 000003B0: 20 20 20 20 32 20 20 20 20 20 31 20 20 20 20 20 | 2 1 | 000003C0: 30 22 00 DC 0B 09 01 99 22 11 11 C1 43 54 49 45 |0"......"...CTIE| 000003D0: 22 3A 99 22 11 D7 41 41 52 44 45 22 00 07 0C 0E |":."..AARDE"....| 000003E0: 01 99 A3 39 29 22 11 11 11 C2 49 54 2D 57 41 41 |...9)"....IT-WAA| 000003F0: 52 44 45 20 42 49 4A 20 CA CF D9 D3 D4 C9 C3 CB |RDE BIJ ........| 00000400: 2D 49 4E 50 55 54 22 00 2B 0C 18 01 53 31 B2 35 |-INPUT".+...S1.5| 00000410: 36 33 32 31 3A 8F 20 41 44 52 45 53 20 43 49 41 |6321:. ADRES CIA| 00000420: 20 23 31 20 50 4F 4F 52 54 20 31 00 58 0C 22 01 | #1 POORT 1.X.".| 00000430: 8F 20 20 20 20 2A 2A 2A 2A 2A 2A 20 20 49 4E 56 |. ****** INV| 00000440: 4F 45 52 20 50 4F 4F 52 54 20 31 20 4F 46 20 32 |OER POORT 1 OF 2| 00000450: 20 2A 2A 2A 2A 2A 2A 2A 00 94 0C 2C 01 85 22 13 | *******...,..".| 00000460: 11 11 11 11 11 11 11 1D 1D 1D 1D 1D CA 4F 59 53 |.............OYS| 00000470: 54 49 43 4B 20 49 4E 20 50 4F 4F 52 54 20 4E 52 |TICK IN POORT NR| 00000480: 20 22 3B 50 52 3A 8B 50 52 B3 31 B0 50 52 B1 32 | ";PR:.PR.1.PR.2| 00000490: A7 33 30 30 00 B6 0C 36 01 53 31 B2 53 31 AA 31 |.300...6.S1.S1.1| 000004A0: AB 50 52 3A 8F 20 4A 55 49 53 54 45 20 43 49 41 |.PR:. JUISTE CIA| 000004B0: 2D 41 44 52 45 53 00 E7 0C 40 01 99 22 13 11 11 |-ADRES...@.."...| 000004C0: 11 11 11 11 11 20 20 20 20 20 C3 C9 C1 A0 23 31 |..... ....#1| 000004D0: 20 4A 4F 59 53 54 49 43 4B 20 49 4E 20 D0 CF CF | JOYSTICK IN ...| 000004E0: D2 D4 20 3A 22 50 52 00 14 0D 4A 01 53 52 24 B2 |.. :"PR...J.SR$.| 000004F0: 4E 52 24 3A 42 57 24 B2 22 11 1D 1D 1D 1D 1D 1D |NR$:BW$.".......| 00000500: 1D 1D 22 20 20 20 3A 8F 20 53 54 52 49 4E 47 20 |.." :. STRING | 00000510: 4C 45 45 47 00 40 0D 54 01 41 31 B2 C2 28 53 31 |LEEG.@.T.A1..(S1| 00000520: 29 AF 33 31 20 20 20 20 20 20 20 20 20 20 3A 8F |).31 :.| 00000530: 20 4C 45 45 53 20 50 4F 4F 52 54 41 44 52 45 53 | LEES POORTADRES| 00000540: 00 71 0D 5E 01 8B 42 B2 41 31 A7 33 33 30 20 20 |.q.^..B.A1.330 | 00000550: 20 20 20 20 20 20 20 20 20 20 20 3A 8F 20 41 4C | :. AL| 00000560: 53 20 56 4F 52 49 47 20 44 41 4E 20 54 45 52 55 |S VORIG DAN TERU| 00000570: 47 00 A4 0D 68 01 42 B2 41 31 20 20 20 20 20 20 |G...h.B.A1 | 00000580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000590: 3A 8F 20 54 49 4A 44 45 4C 49 4A 4B 45 20 4F 50 |:. TIJDELIJKE OP| 000005A0: 53 4C 41 47 00 B0 0D 72 01 46 B2 41 31 AF 31 36 |SLAG...r.F.A1.16| 000005B0: 00 C4 0D 7C 01 52 B2 B6 28 28 41 31 AF 31 35 29 |...|.R..((A1.15)| 000005C0: AB 31 35 29 00 D5 0D 86 01 8B 46 A7 8D 36 30 30 |.15)......F..600| 000005D0: 3A 89 34 31 30 00 DE 0D 90 01 8D 36 33 30 00 F3 |:.410......630..| 000005E0: 0D 9A 01 8B 28 52 AF 38 29 A7 8D 36 33 30 3A 89 |....(R.8)..630:.| 000005F0: 34 33 30 00 04 0E A4 01 8D 36 30 30 3A 8F 20 42 |430......600:. B| 00000600: 49 54 3D 30 00 19 0E AE 01 8B 28 52 AF 34 29 A7 |IT=0......(R.4).| 00000610: 8D 36 33 30 3A 89 34 35 30 00 22 0E B8 01 8D 36 |.630:.450."....6| 00000620: 30 30 00 37 0E C2 01 8B 28 52 AF 32 29 A7 8D 36 |00.7....(R.2)..6| 00000630: 33 30 3A 89 34 37 30 00 40 0E CC 01 8D 36 30 30 |30:.470.@....600| 00000640: 00 55 0E D6 01 8B 28 52 AF 31 29 A7 8D 36 33 30 |.U....(R.1)..630| 00000650: 3A 89 34 39 30 00 5E 0E E0 01 8D 36 30 30 00 85 |:.490.^....600..| 00000660: 0E EA 01 99 53 52 24 3A 99 42 57 24 3A 8F 20 41 |....SR$:.BW$:. A| 00000670: 43 54 49 45 20 26 20 57 41 41 52 44 45 20 50 52 |CTIE & WAARDE PR| 00000680: 49 4E 54 45 4E 00 A5 0E F4 01 89 33 33 30 20 3A |INTEN......330 :| 00000690: 8F 20 4F 50 4E 49 45 55 57 20 50 4F 4F 52 54 20 |. OPNIEUW POORT | 000006A0: 4C 45 5A 45 4E 00 CC 0E 58 02 8F 20 20 2A 2A 2A |LEZEN...X.. ***| 000006B0: 2A 2A 2A 20 53 55 42 52 E0 49 4E 45 20 42 49 54 |*** SUBR.INE BIT| 000006C0: 3D 31 20 20 2A 2A 2A 2A 2A 2A 2A 2A 00 E8 0E 62 |=1 ********...b| 000006D0: 02 53 52 24 B2 53 52 24 AA 55 49 24 3A 42 57 24 |.SR$.SR$.UI$:BW$| 000006E0: B2 42 57 24 AA 45 45 24 00 EE 0E 6C 02 8E 00 15 |.BW$.EE$...l....| 000006F0: 0F 76 02 8F 20 20 2A 2A 2A 2A 2A 2A 20 53 55 42 |.v.. ****** SUB| 00000700: 52 E0 49 4E 45 20 42 49 54 3D 30 20 20 2A 2A 2A |R.INE BIT=0 ***| 00000710: 2A 2A 2A 2A 2A 00 31 0F 80 02 53 52 24 B2 53 52 |*****.1...SR$.SR| 00000720: 24 AA 41 41 24 3A 42 57 24 B2 42 57 24 AA 4E 55 |$.AA$:BW$.BW$.NU| 00000730: 24 00 37 0F 8A 02 8E 00 00 00 |$.7....... |
..5....*********************************
*************.B.... JOYSTICK-DEMO
NSTRATIE PROGRAMMA...... LAAT FUNCTIE
EN BITWAARDE ZIEN BIJ GEBRUIK.H.(.. VAN
EEN JOYSTICK IN POORT 1 OF 2 NAAR KEUZE
...2.. ONTWIKKELD DOOR JAN BODZINGA, BLA
RICUM.).<..*****************************
*****************./.F...T.C..
----- MAIN -----.Y.D..G(147)G(14):.
C-64 IN TEKSTMODE...N...4)"...*** JOYST
ICK-DEMONSTRATIE ***".D.X...18)".JAN BO
DZINGA 1984".....L$.G(175):L1$.G(184) :.
KADERSTREEP.....AA$.". AAN ":UI$.". U
IT ":. ACTIE JOYSTICK.Q...NU$.". - 0 -":
EE$.". - 1 -":. STRING BW$=0 OF 1.U. .NR
$."........................."...... **
**** PRINTEN KADERLIJNEN OP SCHERM *****
*.J.....7)"....";:.I.0.31:.L$;:.:..U....
I.0.9...H...7)G(181).30)G(182)...R......
...7);:.I.0.31:.L1$;:.:..4.....8)"......
.";:.I.0.29:.L$;:.:..A.... ******* PRI
NTEN VASTE TEKST *******......"....FUNC
......FIRE. OOST WEST ZUID NOORD".B.
...".BIT........4 3 2 1
0"......"..ACTIE":.".WAARDE".......9)"..
.BIT-WAARDE BIJ JOYSTICK-INPUT".+...S1.5
6321:. ADRES CIA #1 POORT 1.X.".. ***
*** INVOER POORT 1 OF 2 *******...,..".
............JOYSTICK IN POORT NR ";PR:.P
R.1.PR.2.300...6.S1.S1.1.PR:. JUISTE CIA
-ADRES...@.."........ CIA #1 JOYSTIC
K IN POORT :"PR...J.SR$.NR$:BW$.".......
.." :. STRING LEEG.@.T.A1.B(S1).31
:. LEES POORTADRES.Q.^..B.A1.330
:. ALS VORIG DAN TERUG...H.B.
A1 :. TIJDELIJKE OP
SLAG...R.F.A1.16.D.|.R..((A1.15).15).U..
..F..600:.410......630......(R.8)..630:.
430......600:. BIT=0......(R.4)..630:.45
0."....600.7.B..(R.2)..630:.470.@.L..600
.U.V..(R.1)..630:.490.^....600......SR$:
.BW$:. ACTIE & WAARDE PRINTEN......330 :
. OPNIEUW POORT LEZEN.L.X.. ****** SUBR
.INE BIT=1 ********...B.SR$.SR$.UI$:BW$
.BW$.EE$...L.....V.. ****** SUBR.INE BI
T=0 ********.1...SR$.SR$.AA$:BW$.BW$.NU
$.7.......
> CLICK IMAGE PREVIEW FOR FULL MODAL