I

FILE INFORMATION

FILENAME(S): I

FILE TYPE(S): USR

FILE SIZE: 1K

FIRST SEEN: 2025-10-20 14:30:03

APPEARS ON: 3 disk(s)

FILE HASH

fa2bf03086f314a6bf0c11e6ce47685ce941b92bd472baf247344e2a21574ee9

FOUND ON DISKS (3 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
S 1286	I	USR	Treasure Chest - Klaus Der Suhler	13	15	DOWNLOAD FILE
G PD 85	I	USR	Treasure Chest - Klaus Der Suhler	13	2	DOWNLOAD FILE
S 1286	I	USR	Treasure Chest - Klaus Der Suhler	13	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

00000000: 2E 53 54 41 52 54 20 24  35 30 30 30 20 3B 20 53  |.START $5000 ; S|
00000010: 74 61 72 74 20 61 64 64  72 65 73 73 20 69 6E 20  |tart address in |
00000020: 6D 65 6D 6F 72 79 20 66  6F 72 20 6C 6F 61 64 69  |memory for loadi|
00000030: 6E 67 20 70 72 6F 67 72  61 6D 2E 00 3B 00 2E 49  |ng program..;..I|
00000040: 4E 49 54 20 43 6F 64 65  48 65 72 65 20 3B 20 49  |NIT CodeHere ; I|
00000050: 6E 69 74 69 61 6C 69 7A  61 74 69 6F 6E 20 72 6F  |nitialization ro|
00000060: 75 74 69 6E 65 20 74 6F  20 63 61 6C 6C 20 61 66  |utine to call af|
00000070: 74 65 72 20 6C 6F 61 64  69 6E 67 2E 00 3B 00 2E  |ter loading..;..|
00000080: 54 59 50 45 20 44 45 53  4B 5F 41 43 43 20 3B 20  |TYPE DESK_ACC ; |
00000090: 54 79 70 65 20 6F 66 20  50 72 6F 67 72 61 6D 2C  |Type of Program,|
000000A0: 20 73 65 65 20 5A 65 72  6F 50 61 67 65 20 45 71  | see ZeroPage Eq|
000000B0: 75 61 74 65 73 20 66 6F  72 20 64 65 74 61 69 6C  |uates for detail|
000000C0: 73 2E 00 3B 00 2E 4E 41  4D 45 20 67 65 6F 48 65  |s..;..NAME geoHe|
000000D0: 78 43 61 6C 63 20 20 56  31 2E 30 20 20 3B 20 50  |xCalc  V1.0  ; P|
000000E0: 65 72 6D 61 6E 65 6E 74  20 4E 61 6D 65 20 6F 66  |ermanent Name of|
000000F0: 20 70 72 6F 67 72 61 6D  00 3B 00 2E 41 75 74 68  | program.;..Auth|
00000100: 6F 72 20 42 69 6C 6C 20  53 68 61 72 70 20 3B 20  |or Bill Sharp ; |
00000110: 41 75 74 68 6F 72 73 20  6E 61 6D 65 00 3B 00 3B  |Authors name.;.;|
00000120: 20 49 63 6F 6E 20 64 61  74 61 20 54 61 62 6C 65  | Icon data Table|
00000130: 2C 20 74 68 69 73 20 69  73 20 6F 70 74 69 6F 6E  |, this is option|
00000140: 61 6C 00 3B 20 75 73 65  20 63 61 6E 20 75 73 65  |al.; use can use|
00000150: 20 74 68 65 20 69 63 6F  6E 20 65 64 69 74 6F 72  | the icon editor|
00000160: 28 44 65 73 6B 50 61 63  6B 31 29 20 74 6F 20 63  |(DeskPack1) to c|
00000170: 68 61 6E 67 65 20 74 68  65 00 3B 20 69 63 6F 6E  |hange the.; icon|
00000180: 20 6C 61 74 65 72 20 69  66 20 79 6F 75 20 77 69  | later if you wi|
00000190: 73 68 00 3B 00 2E 49 63  6F 6E 20 24 46 46 2C 24  |sh.;..Icon $FF,$|
000001A0: 46 46 2C 24 46 46 2C 24  38 30 2C 30 2C 31 2C 24  |FF,$FF,$80,0,1,$|
000001B0: 38 46 2C 24 46 46 2C 24  46 39 2C 24 38 30 2C 30  |8F,$FF,$F9,$80,0|
000001C0: 00 20 31 2C 24 38 37 2C  24 37 37 2C 24 37 31 2C  |. 1,$87,$77,$71,|
000001D0: 24 38 35 2C 24 35 35 2C  24 35 31 2C 24 38 37 2C  |$85,$55,$51,$87,|
000001E0: 24 37 37 2C 24 37 31 2C  24 38 30 2C 30 2C 31 2C  |$77,$71,$80,0,1,|
000001F0: 24 38 37 2C 24 37 37 2C  24 37 31 00 20 24 38 35  |$87,$77,$71. $85|
00000200: 2C 24 35 35 2C 24 35 31  2C 24 38 37 2C 24 37 37  |,$55,$51,$87,$77|
00000210: 2C 24 37 31 2C 24 38 30  2C 30 2C 31 2C 24 38 37  |,$71,$80,0,1,$87|
00000220: 2C 24 37 37 2C 24 37 31  2C 24 38 35 2C 24 35 35  |,$77,$71,$85,$55|
00000230: 2C 24 35 31 2C 24 38 37  00 20 24 37 37 2C 24 37  |,$51,$87. $77,$7|
00000240: 31 2C 24 38 30 2C 30 2C  31 2C 24 38 37 2C 24 37  |1,$80,0,1,$87,$7|
00000250: 37 2C 24 37 31 2C 24 38  35 2C 24 35 35 2C 24 35  |7,$71,$85,$55,$5|
00000260: 31 2C 24 38 37 2C 24 37  37 2C 24 37 31 2C 24 38  |1,$87,$77,$71,$8|
00000270: 30 2C 30 2C 31 2C 24 46  46 2C 24 46 46 2C 24 46  |0,0,1,$FF,$FF,$F|
00000280: 46 00 3B 20 6E 6F 77 20  74 68 65 20 45 71 75 61  |F.; now the Equa|
00000290: 74 65 73 20 66 69 6C 65  73 00 2E 49 6E 63 6C 75  |tes files..Inclu|
000002A0: 64 65 20 5A 65 72 6F 50  61 67 65 00 2E 49 6E 63  |de ZeroPage..Inc|
000002B0: 6C 75 64 65 20 52 6F 75  74 69 6E 65 73 00 2E 42  |lude Routines..B|
000002C0: 79 74 65 20 27 43 6F 70  79 72 69 67 68 74 20 31  |yte 'Copyright 1|
000002D0: 39 38 37 20 27 00 2E 42  79 74 65 20 27 62 79 20  |987 '..Byte 'by |
000002E0: 27 20 20 00 2E 42 79 74  65 20 27 42 69 6C 6C 20  |'  ..Byte 'Bill |
000002F0: 53 68 61 72 70 20 43 6F  6D 70 75 74 69 6E 67 20  |Sharp Computing |
00000300: 27 00 2E 42 79 74 65 20  27 41 6C 6C 20 52 69 67  |'..Byte 'All Rig|
00000310: 68 74 73 20 52 65 73 65  72 76 65 64 20 27 00 2E  |hts Reserved '..|
00000320: 42 79 74 65 20 27 53 70  65 63 69 61 6C 20 74 68  |Byte 'Special th|
00000330: 61 6E 6B 73 20 74 6F 20  50 61 6D 65 6C 61 20 50  |anks to Pamela P|
00000340: 61 72 64 75 65 2C 20 6D  79 20 70 61 72 65 6E 74  |ardue, my parent|
00000350: 73 2C 20 61 6E 64 20 47  6F 64 2E 27 00 3B 20 54  |s, and God.'.; T|
00000360: 68 69 73 20 69 73 20 77  68 65 72 65 20 74 68 65  |his is where the|
00000370: 20 70 72 6F 67 72 61 6D  20 73 74 61 72 74 73 00  | program starts.|
00000380: 43 6F 64 65 48 65 72 65  00 2E 49 6E 63 6C 75 64  |CodeHere..Includ|
00000390: 65 20 4D 61 69 6E 00 2E  49 6E 63 6C 75 64 65 20  |e Main..Include |
000003A0: 55 54 49 4C 49 54 59 00  2E 49 6E 63 6C 75 64 65  |UTILITY..Include|
000003B0: 20 41 53 43 49 49 00 2E  49 6E 63 6C 75 64 65 20  | ASCII..Include |
000003C0: 4D 41 54 48 00 2E 49 6E  63 6C 75 64 65 20 44 49  |MATH..Include DI|
000003D0: 53 50 4C 41 59 00 45 6E  64 63 6F 64 65 20 3B 20  |SPLAY.Endcode ; |
000003E0: 4C 61 62 65 6C 20 69 73  20 75 73 65 64 20 66 6F  |Label is used fo|
000003F0: 72 20 72 65 66 65 72 65  6E 63 65 20 6F 66 20 68  |r reference of h|
00000400: 69 67 68 65 73 74 20 6D  65 6D 6F 72 79 20 6C 6F  |ighest memory lo|
00000410: 61 63 61 74 69 6F 6E 00  65                       |acation.e       |

.START $5000 ; START ADDRESS IN MEMORY F
OR LOADING PROGRAM..;..INIT CODEHERE ; I
NITIALIZATION ROUTINE TO CALL AFTER LOAD
ING..;..TYPE DESK_ACC ; TYPE OF PROGRAM,
 SEE ZEROPAGE EQUATES FOR DETAILS..;..NA
ME GEOHEXCALC  V1.0  ; PERMANENT NAME OF
 PROGRAM.;..AUTHOR BILL SHARP ; AUTHORS 
NAME.;.; ICON DATA TABLE, THIS IS OPTION
AL.; USE CAN USE THE ICON EDITOR(DESKPAC
K1) TO CHANGE THE.; ICON LATER IF YOU WI
SH.;..ICON $FF,$FF,$FF,$80,0,1,$8F,$FF,$
F9,$80,0. 1,$87,$77,$71,$85,$55,$51,$87,
$77,$71,$80,0,1,$87,$77,$71. $85,$55,$51
,$87,$77,$71,$80,0,1,$87,$77,$71,$85,$55
,$51,$87. $77,$71,$80,0,1,$87,$77,$71,$8
5,$55,$51,$87,$77,$71,$80,0,1,$FF,$FF,$F
F.; NOW THE EQUATES FILES..INCLUDE ZEROP
AGE..INCLUDE ROUTINES..BYTE 'COPYRIGHT 1
987 '..BYTE 'BY '  ..BYTE 'BILL SHARP CO
MPUTING '..BYTE 'ALL RIGHTS RESERVED '..
BYTE 'SPECIAL THANKS TO PAMELA PARDUE, M
Y PARENTS, AND GOD.'.; THIS IS WHERE THE
 PROGRAM STARTS.CODEHERE..INCLUDE MAIN..
INCLUDE UTILITY..INCLUDE ASCII..INCLUDE 
MATH..INCLUDE DISPLAY.ENDCODE ; LABEL IS
 USED FOR REFERENCE OF HIGHEST MEMORY LO
ACATION.E

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL