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

HEADING.PROC

FILE INFORMATION

FILENAME(S): HEADING.PROC

FILE TYPE(S): SEQ

FILE SIZE: 609b

FIRST SEEN: 2025-12-01 01:48:19

APPEARS ON: 2 disk(s)

FILE HASH

9ea52b32f40b55e9293c4a2c6b03d57f69f787953f162485a9d82734cd069114

FOUND ON DISKS (2 DISKS)

DISK TITLE FILENAME FILE TYPE COLLECTION TRACK SECTOR ACTIONS
COMAL 2 HEADING.PROC SEQ hedning, Mattias H00r 13 8 DOWNLOAD FILE
CCS COMAL 2 HEADING.PROC SEQ hedning, Mattias H00r 13 6 DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 30 30 31 30 20 2F 2F 20  52 45 54 55 52 4E 53 20  |0010 // RETURNS |
00000010: 54 55 52 54 4C 45 27 53  20 48 45 41 44 49 4E 47  |TURTLE'S HEADING|
00000020: 20 30 2D 33 36 30 0D 30  30 32 30 20 2F 2F 0D 30  | 0-360.0020 //.0|
00000030: 30 33 30 20 46 55 4E 43  20 48 45 41 44 49 4E 47  |030 FUNC HEADING|
00000040: 20 43 4C 4F 53 45 44 0D  30 30 34 30 20 41 3A 3D  | CLOSED.0040 A:=|
00000050: 50 45 45 4B 28 32 37 32  37 37 29 3B 20 42 3A 3D  |PEEK(27277); B:=|
00000060: 50 45 45 4B 28 32 37 32  37 38 29 0D 30 30 35 30  |PEEK(27278).0050|
00000070: 20 43 41 53 45 20 41 20  4F 46 0D 30 30 36 30 20  | CASE A OF.0060 |
00000080: 57 48 45 4E 20 30 0D 30  30 37 30 20 52 45 54 55  |WHEN 0.0070 RETU|
00000090: 52 4E 20 39 30 0D 30 30  38 30 20 57 48 45 4E 20  |RN 90.0080 WHEN |
000000A0: 31 32 39 0D 30 30 39 30  20 52 45 54 55 52 4E 20  |129.0090 RETURN |
000000B0: 38 39 0D 30 31 30 30 20  57 48 45 4E 31 33 30 0D  |89.0100 WHEN130.|
000000C0: 30 31 31 30 20 52 45 54  55 52 4E 20 38 38 2D 28  |0110 RETURN 88-(|
000000D0: 42 20 44 49 56 20 36 34  29 0D 30 31 32 30 20 57  |B DIV 64).0120 W|
000000E0: 48 45 4E 20 31 33 31 0D  30 31 33 30 20 52 45 54  |HEN 131.0130 RET|
000000F0: 55 52 4E 20 38 32 2D 28  42 20 44 49 56 20 33 32  |URN 82-(B DIV 32|
00000100: 29 0D 30 31 34 30 20 57  48 45 4E 20 31 33 32 0D  |).0140 WHEN 132.|
00000110: 30 31 35 30 20 52 45 54  55 52 4E 20 38 32 2D 28  |0150 RETURN 82-(|
00000120: 42 20 44 49 56 20 31 36  29 0D 30 31 36 30 20 57  |B DIV 16).0160 W|
00000130: 48 45 4E 20 31 33 33 0D  30 31 37 30 20 52 45 54  |HEN 133.0170 RET|
00000140: 55 52 4E 20 37 34 2D 28  42 20 44 49 56 20 38 29  |URN 74-(B DIV 8)|
00000150: 0D 30 31 38 30 20 57 48  45 4E 20 31 33 34 0D 30  |.0180 WHEN 134.0|
00000160: 31 39 30 20 52 45 54 55  52 4E 20 35 38 2D 28 42  |190 RETURN 58-(B|
00000170: 20 44 49 56 20 34 29 0D  30 32 30 30 20 57 48 45  | DIV 4).0200 WHE|
00000180: 4E 20 31 33 35 0D 30 32  31 30 20 49 46 20 42 3C  |N 135.0210 IF B<|
00000190: 35 33 20 54 48 45 4E 0D  30 32 32 30 20 52 45 54  |53 THEN.0220 RET|
000001A0: 55 52 4E 20 32 36 2D 28  42 20 44 49 56 20 32 29  |URN 26-(B DIV 2)|
000001B0: 0D 30 32 33 30 20 45 4C  53 45 20 0D 30 32 34 30  |.0230 ELSE .0240|
000001C0: 20 52 45 54 55 52 4E 20  33 38 36 2D 28 42 20 44  | RETURN 386-(B D|
000001D0: 49 56 20 32 29 0D 30 32  35 30 20 45 4E 44 49 46  |IV 2).0250 ENDIF|
000001E0: 20 0D 30 32 36 30 20 57  48 45 4E 20 31 33 36 0D  | .0260 WHEN 136.|
000001F0: 30 32 37 30 20 52 45 54  55 52 4E 20 33 32 32 2D  |0270 RETURN 322-|
00000200: 42 0D 30 32 38 30 20 57  48 45 4E 20 31 33 37 0D  |B.0280 WHEN 137.|
00000210: 30 32 39 30 20 52 45 54  55 52 4E 20 28 31 39 34  |0290 RETURN (194|
00000220: 2D 28 42 2A 32 29 29 2D  28 50 45 45 4B 28 32 37  |-(B*2))-(PEEK(27|
00000230: 32 37 39 29 20 44 49 56  20 31 32 38 29 0D 30 33  |279) DIV 128).03|
00000240: 30 30 20 45 4E 44 43 41  53 45 20 0D 30 33 31 30  |00 ENDCASE .0310|
00000250: 20 45 4E 44 46 55 4E 43  20 48 45 41 44 49 4E 47  | ENDFUNC HEADING|
00000260: 0D                                                |.               |

0010 // RETURNS TURTLE'S HEADING 0-360.0
020 //.0030 FUNC HEADING CLOSED.0040 A:=
PEEK(27277); B:=PEEK(27278).0050 CASE A 
OF.0060 WHEN 0.0070 RETURN 90.0080 WHEN 
129.0090 RETURN 89.0100 WHEN130.0110 RET
URN 88-(B DIV 64).0120 WHEN 131.0130 RET
URN 82-(B DIV 32).0140 WHEN 132.0150 RET
URN 82-(B DIV 16).0160 WHEN 133.0170 RET
URN 74-(B DIV 8).0180 WHEN 134.0190 RETU
RN 58-(B DIV 4).0200 WHEN 135.0210 IF B<
53 THEN.0220 RETURN 26-(B DIV 2).0230 EL
SE .0240 RETURN 386-(B DIV 2).0250 ENDIF
 .0260 WHEN 136.0270 RETURN 322-B.0280 W
HEN 137.0290 RETURN (194-(B*2))-(PEEK(27
279) DIV 128).0300 ENDCASE .0310 ENDFUNC
 HEADING.
C64 Preview

> CLICK IMAGE PREVIEW FOR FULL MODAL