JOYSTICK.L

FILE INFORMATION

FILENAME(S): JOYSTICK.L

FILE TYPE(S): SEQ

FILE SIZE: 914b

FIRST SEEN: 2025-11-30 21:07:13

APPEARS ON: 3 disk(s)

FILE HASH

af75a8aa59d37392eb12693d09572cd1b1682545ad0acbe72a0ba30e98c332ec

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
COMAL 80 VS 0 14	JOYSTICK.L	SEQ	DuncanTwain	12	9	DOWNLOAD FILE
COMAL 0 14	JOYSTICK.L	SEQ	DuncanTwain	12	9	DOWNLOAD FILE
COMAL 0 14	JOYSTICK.L	SEQ	DuncanTwain	12	9	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 39 30 30 30 20 2F 2F 0D  39 30 31 30 20 2F 2F 20  |9000 //.9010 // |
00000010: 20 4A 4F 59 53 54 49 43  4B 2E 4C 0D 39 30 32 30  | JOYSTICK.L.9020|
00000020: 20 2F 2F 20 20 3C 43 3E  20 31 39 38 34 20 43 4F  | //  <C> 1984 CO|
00000030: 4D 41 4C 2D 38 30 47 47  0D 39 30 33 30 20 2F 2F  |MAL-80GG.9030 //|
00000040: 0D 39 30 34 30 20 50 52  4F 43 20 4A 4F 59 53 54  |.9040 PROC JOYST|
00000050: 49 43 4B 28 4E 52 2C 52  45 46 20 52 49 43 48 54  |ICK(NR,REF RICHT|
00000060: 49 4E 47 24 29 20 0D 39  30 35 30 20 2F 2F 4E 52  |ING$) .9050 //NR|
00000070: 20 49 53 20 4E 55 4D 4D  45 52 20 56 41 4E 20 44  | IS NUMMER VAN D|
00000080: 45 20 50 4F 52 54 0D 39  30 36 30 20 4E 52 3A 3D  |E PORT.9060 NR:=|
00000090: 33 2D 4E 52 0D 39 30 37  30 20 4A 3A 3D 50 45 45  |3-NR.9070 J:=PEE|
000000A0: 4B 28 4E 52 2B 35 36 33  31 39 29 0D 39 30 38 30  |K(NR+56319).9080|
000000B0: 20 49 3A 3D 31 35 2D 4A  20 4D 4F 44 20 31 36 0D  | I:=15-J MOD 16.|
000000C0: 39 30 39 30 20 43 41 53  45 20 49 20 4F 46 0D 39  |9090 CASE I OF.9|
000000D0: 31 30 30 20 57 48 45 4E  20 31 0D 39 31 31 30 20  |100 WHEN 1.9110 |
000000E0: 52 49 43 48 54 49 4E 47  24 3A 3D 22 55 50 22 0D  |RICHTING$:="UP".|
000000F0: 39 31 32 30 20 57 48 45  4E 20 32 0D 39 31 33 30  |9120 WHEN 2.9130|
00000100: 20 52 49 43 48 54 49 4E  47 24 3A 3D 22 44 4F 57  | RICHTING$:="DOW|
00000110: 4E 22 0D 39 31 34 30 20  57 48 45 4E 20 34 0D 39  |N".9140 WHEN 4.9|
00000120: 31 35 30 20 52 49 43 48  54 49 4E 47 24 3A 3D 22  |150 RICHTING$:="|
00000130: 4C 45 46 54 22 0D 39 31  36 30 20 57 48 45 4E 20  |LEFT".9160 WHEN |
00000140: 35 0D 39 31 37 30 20 52  49 43 48 54 49 4E 47 24  |5.9170 RICHTING$|
00000150: 3A 3D 22 55 50 26 4C 45  46 54 22 0D 39 31 38 30  |:="UP&LEFT".9180|
00000160: 20 57 48 45 4E 20 36 0D  39 31 39 30 20 52 49 43  | WHEN 6.9190 RIC|
00000170: 48 54 49 4E 47 24 3A 3D  22 44 4F 57 4E 26 4C 45  |HTING$:="DOWN&LE|
00000180: 46 54 22 0D 39 32 30 30  20 57 48 45 4E 20 38 0D  |FT".9200 WHEN 8.|
00000190: 39 32 31 30 20 52 49 43  48 54 49 4E 47 24 3A 3D  |9210 RICHTING$:=|
000001A0: 22 52 49 47 48 54 22 0D  39 32 32 30 20 57 48 45  |"RIGHT".9220 WHE|
000001B0: 4E 20 39 0D 39 32 33 30  20 52 49 43 48 54 49 4E  |N 9.9230 RICHTIN|
000001C0: 47 24 3A 3D 22 55 50 26  52 49 47 48 54 22 0D 39  |G$:="UP&RIGHT".9|
000001D0: 32 34 30 20 57 48 45 4E  20 31 30 0D 39 32 35 30  |240 WHEN 10.9250|
000001E0: 20 52 49 43 48 54 49 4E  47 24 3A 3D 22 44 4F 57  | RICHTING$:="DOW|
000001F0: 4E 26 52 49 47 48 54 22  0D 39 32 36 30 20 4F 54  |N&RIGHT".9260 OT|
00000200: 48 45 52 57 49 53 45 20  0D 39 32 37 30 20 52 49  |HERWISE .9270 RI|
00000210: 43 48 54 49 4E 47 24 3A  3D 22 4E 4F 4E 45 22 0D  |CHTING$:="NONE".|
00000220: 39 32 38 30 20 45 4E 44  43 41 53 45 20 0D 39 32  |9280 ENDCASE .92|
00000230: 39 30 20 49 46 20 4A 20  44 49 56 20 31 36 20 4D  |90 IF J DIV 16 M|
00000240: 4F 44 20 32 3D 30 20 54  48 45 4E 20 52 49 43 48  |OD 2=0 THEN RICH|
00000250: 54 49 4E 47 24 3A 3D 52  49 43 48 54 49 4E 47 24  |TING$:=RICHTING$|
00000260: 2B 22 20 46 49 52 45 22  0D 39 33 30 30 20 45 4E  |+" FIRE".9300 EN|
00000270: 44 50 52 4F 43 20 4A 4F  59 53 54 49 43 4B 0D 39  |DPROC JOYSTICK.9|
00000280: 33 31 30 20 2F 2F 0D 39  33 32 30 20 44 49 4D 20  |310 //.9320 DIM |
00000290: 41 24 20 4F 46 20 34 30  0D 39 33 33 30 20 50 52  |A$ OF 40.9330 PR|
000002A0: 49 4E 54 20 43 48 52 24  28 31 34 37 29 2C 0D 39  |INT CHR$(147),.9|
000002B0: 33 34 30 20 2F 2F 0D 39  33 35 30 20 52 45 50 45  |340 //.9350 REPE|
000002C0: 41 54 20 0D 39 33 36 30  20 4A 4F 59 53 54 49 43  |AT .9360 JOYSTIC|
000002D0: 4B 28 32 2C 41 24 29 0D  39 33 37 30 20 50 52 49  |K(2,A$).9370 PRI|
000002E0: 4E 54 20 22 13 22 2C 41  24 2C 22 20 20 20 20 20  |NT ".",A$,"     |
000002F0: 20 20 22 0D 39 33 38 30  20 55 4E 54 49 4C 20 46  |  ".9380 UNTIL F|
00000300: 41 4C 53 45 0D 39 33 39  30 20 2F 2F 0D 39 34 30  |ALSE.9390 //.940|
00000310: 30 20 2F 2F 50 4F 52 54  20 31 20 57 4F 52 44 54  |0 //PORT 1 WORDT|
00000320: 20 42 45 49 4E 56 4C 4F  45 44 20 44 4F 4F 52 20  | BEINVLOED DOOR |
00000330: 44 45 0D 39 34 31 30 20  2F 2F 42 55 46 46 45 52  |DE.9410 //BUFFER|
00000340: 20 56 41 4E 20 48 45 54  20 54 4F 45 54 53 45 4E  | VAN HET TOETSEN|
00000350: 42 4F 52 44 2E 0D 39 34  32 30 20 2F 2F 47 45 42  |BORD..9420 //GEB|
00000360: 52 55 49 4B 20 44 41 41  52 4F 4D 20 50 4F 52 54  |RUIK DAAROM PORT|
00000370: 20 32 20 49 4E 0D 39 34  33 30 20 2F 2F 50 52 4F  | 2 IN.9430 //PRO|
00000380: 47 52 41 4D 4D 41 27 53  2E 0D 39 34 34 30 20 2F  |GRAMMA'S..9440 /|
00000390: 2F 0D                                             |/.              |

9000 //.9010 //  JOYSTICK.L.9020 //  <C>
 1984 COMAL-80GG.9030 //.9040 PROC JOYST
ICK(NR,REF RICHTING$) .9050 //NR IS NUMM
ER VAN DE PORT.9060 NR:=3-NR.9070 J:=PEE
K(NR+56319).9080 I:=15-J MOD 16.9090 CAS
E I OF.9100 WHEN 1.9110 RICHTING$:="UP".
9120 WHEN 2.9130 RICHTING$:="DOWN".9140 
WHEN 4.9150 RICHTING$:="LEFT".9160 WHEN 
5.9170 RICHTING$:="UP&LEFT".9180 WHEN 6.
9190 RICHTING$:="DOWN&LEFT".9200 WHEN 8.
9210 RICHTING$:="RIGHT".9220 WHEN 9.9230
 RICHTING$:="UP&RIGHT".9240 WHEN 10.9250
 RICHTING$:="DOWN&RIGHT".9260 OTHERWISE 
.9270 RICHTING$:="NONE".9280 ENDCASE .92
90 IF J DIV 16 MOD 2=0 THEN RICHTING$:=R
ICHTING$+" FIRE".9300 ENDPROC JOYSTICK.9
310 //.9320 DIM A$ OF 40.9330 PRINT CHR$
(147),.9340 //.9350 REPEAT .9360 JOYSTIC
K(2,A$).9370 PRINT ".",A$,"       ".9380
 UNTIL FALSE.9390 //.9400 //PORT 1 WORDT
 BEINVLOED DOOR DE.9410 //BUFFER VAN HET
 TOETSENBORD..9420 //GEBRUIK DAAROM PORT
 2 IN.9430 //PROGRAMMA'S..9440 //.

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL