HEADING.L
FILE INFORMATION
FILENAME(S): HEADING.L
FILE TYPE(S): SEQ
FILE SIZE: 571b
FIRST SEEN: 2025-12-01 01:48:21
APPEARS ON: 2 disk(s)
FILE HASH
a5ce2c9e9df7b3ecd2b0ebc715c11e8b68d9b034d1dea031c381b7035486cae0
FOUND ON DISKS (2 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| CCS COMAL | HEADING.L | SEQ | hedning, Mattias H00r | 24 | 15 | DOWNLOAD FILE |
| CCS COMAL | HEADING.L | SEQ | hedning, Mattias H00r | 24 | 15 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 39 30 30 30 20 46 55 4E 43 20 48 45 41 44 49 4E |9000 FUNC HEADIN| 00000010: 47 20 43 4C 4F 53 45 44 0D 39 30 31 30 20 41 3A |G CLOSED.9010 A:| 00000020: 3D 50 45 45 4B 28 32 37 32 37 37 29 3B 20 42 3A |=PEEK(27277); B:| 00000030: 3D 50 45 45 4B 28 32 37 32 37 38 29 0D 39 30 32 |=PEEK(27278).902| 00000040: 30 20 43 41 53 45 20 41 20 4F 46 0D 39 30 33 30 |0 CASE A OF.9030| 00000050: 20 57 48 45 4E 20 30 0D 39 30 34 30 20 52 45 54 | WHEN 0.9040 RET| 00000060: 55 52 4E 20 39 30 0D 39 30 35 30 20 57 48 45 4E |URN 90.9050 WHEN| 00000070: 20 31 32 39 0D 39 30 36 30 20 52 45 54 55 52 4E | 129.9060 RETURN| 00000080: 20 38 39 0D 39 30 37 30 20 57 48 45 4E 20 31 33 | 89.9070 WHEN 13| 00000090: 30 0D 39 30 38 30 20 52 45 54 55 52 4E 20 38 38 |0.9080 RETURN 88| 000000A0: 2D 28 42 20 44 49 56 20 36 34 29 0D 39 30 39 30 |-(B DIV 64).9090| 000000B0: 20 57 48 45 4E 20 31 33 31 0D 39 31 30 30 20 52 | WHEN 131.9100 R| 000000C0: 45 54 55 52 4E 20 38 36 2D 28 42 20 44 49 56 20 |ETURN 86-(B DIV | 000000D0: 33 32 29 0D 39 31 31 30 20 57 48 45 4E 20 31 33 |32).9110 WHEN 13| 000000E0: 32 0D 39 31 32 30 20 52 45 54 55 52 4E 20 38 32 |2.9120 RETURN 82| 000000F0: 2D 28 42 20 44 49 56 20 31 36 29 0D 39 31 33 30 |-(B DIV 16).9130| 00000100: 20 57 48 45 4E 20 31 33 33 0D 39 31 34 30 20 52 | WHEN 133.9140 R| 00000110: 45 54 55 52 4E 20 37 34 2D 28 42 20 44 49 56 20 |ETURN 74-(B DIV | 00000120: 38 29 0D 39 31 35 30 20 57 48 45 4E 20 31 33 34 |8).9150 WHEN 134| 00000130: 0D 39 31 36 30 20 52 45 54 55 52 4E 20 35 38 2D |.9160 RETURN 58-| 00000140: 28 42 20 44 49 56 20 34 29 0D 39 31 37 30 20 57 |(B DIV 4).9170 W| 00000150: 48 45 4E 20 31 33 35 0D 39 31 38 30 20 49 46 20 |HEN 135.9180 IF | 00000160: 42 3C 35 33 20 54 48 45 4E 0D 39 31 39 30 20 52 |B<53 THEN.9190 R| 00000170: 45 54 55 52 4E 20 32 36 2D 28 42 20 44 49 56 20 |ETURN 26-(B DIV | 00000180: 32 29 0D 39 32 30 30 20 45 4C 53 45 20 0D 39 32 |2).9200 ELSE .92| 00000190: 31 30 20 52 45 54 55 52 4E 20 33 38 36 2D 28 42 |10 RETURN 386-(B| 000001A0: 20 44 49 56 20 32 29 0D 39 32 32 30 20 45 4E 44 | DIV 2).9220 END| 000001B0: 49 46 20 0D 39 32 33 30 20 57 48 45 4E 20 31 33 |IF .9230 WHEN 13| 000001C0: 36 0D 39 32 34 30 20 52 45 54 55 52 4E 20 33 32 |6.9240 RETURN 32| 000001D0: 32 2D 42 0D 39 32 35 30 20 57 48 45 4E 20 31 33 |2-B.9250 WHEN 13| 000001E0: 37 0D 39 32 36 30 20 52 45 54 55 52 4E 20 28 31 |7.9260 RETURN (1| 000001F0: 39 34 2D 28 42 2A 32 29 29 2D 28 50 45 45 4B 28 |94-(B*2))-(PEEK(| 00000200: 32 37 32 37 39 29 20 44 49 56 20 31 32 38 29 0D |27279) DIV 128).| 00000210: 39 32 37 30 20 45 4E 44 43 41 53 45 20 0D 39 32 |9270 ENDCASE .92| 00000220: 38 30 20 45 4E 44 46 55 4E 43 20 48 45 41 44 49 |80 ENDFUNC HEADI| 00000230: 4E 47 0D 39 32 39 30 20 2F 2F 0D |NG.9290 //. |
9000 FUNC HEADING CLOSED.9010 A:=PEEK(27 277); B:=PEEK(27278).9020 CASE A OF.9030 WHEN 0.9040 RETURN 90.9050 WHEN 129.906 0 RETURN 89.9070 WHEN 130.9080 RETURN 88 -(B DIV 64).9090 WHEN 131.9100 RETURN 86 -(B DIV 32).9110 WHEN 132.9120 RETURN 82 -(B DIV 16).9130 WHEN 133.9140 RETURN 74 -(B DIV 8).9150 WHEN 134.9160 RETURN 58- (B DIV 4).9170 WHEN 135.9180 IF B<53 THE N.9190 RETURN 26-(B DIV 2).9200 ELSE .92 10 RETURN 386-(B DIV 2).9220 ENDIF .9230 WHEN 136.9240 RETURN 322-B.9250 WHEN 13 7.9260 RETURN (194-(B*2))-(PEEK(27279) D IV 128).9270 ENDCASE .9280 ENDFUNC HEADI NG.9290 //.
> CLICK IMAGE PREVIEW FOR FULL MODAL