GOLF HANDICAP

FILE INFORMATION

FILENAME(S): GOLF HANDICAP

FILE TYPE(S): PRG

FILE SIZE: 1.5K

FIRST SEEN: 2025-11-30 18:13:14

APPEARS ON: 1 disk(s)

FILE HASH

2c2f7307be2802630120e16cad95cddc0744bf124ed1697d44a2d6fd74e052fd

FOUND ON DISKS (1 DISKS)

DISK TITLE	FILENAME	FILE TYPE	COLLECTION	TRACK	SECTOR	ACTIONS
APRIL GAZETTE	GOLF HANDICAP	PRG	Sailor, Ganheden	14	2	DOWNLOAD FILE

FILE CONTENT & ANALYSIS

> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)

00000000: 01 08 25 08 05 00 99 22  93 22 3A 97 35 33 32 38  |..%....".":.5328|
00000010: 31 2C 36 3A 97 35 33 32  38 30 2C 31 34 3A 97 36  |1,6:.53280,14:.6|
00000020: 34 36 2C 31 34 00 5A 08  0A 00 86 20 53 28 32 30  |46,14.Z.... S(20|
00000030: 29 2C 4C 28 31 32 29 3A  43 52 B2 36 38 3A 99 22  |),L(12):CR.68:."|
00000040: 93 47 4F 4C 46 20 48 41  4E 44 49 43 41 50 20 43  |.GOLF HANDICAP C|
00000050: 41 4C 43 55 4C 41 54 4F  52 22 00 90 08 14 00 85  |ALCULATOR"......|
00000060: 22 11 45 4E 54 45 52 20  50 4C 41 59 45 52 27 53  |".ENTER PLAYER'S|
00000070: 20 4E 41 4D 45 22 3B 50  4E 24 3A 8B 20 50 4E 24  | NAME";PN$:. PN$|
00000080: B2 22 22 20 A7 20 99 22  91 91 22 3B 3A 89 32 30  |."" . ."..";:.20|
00000090: 00 A8 08 1E 00 46 24 B2  C8 28 50 4E 24 2C 31 32  |.....F$..(PN$,12|
000000A0: 29 AA 22 2E 44 41 54 22  00 CE 08 28 00 9F 20 32  |).".DAT"...(.. 2|
000000B0: 2C 38 2C 32 2C 46 24 3A  9F 31 35 2C 38 2C 31 35  |,8,2,F$:.15,8,15|
000000C0: 3A 84 31 35 2C 41 24 2C  42 24 3A A0 31 35 00 EB  |:.15,A$,B$:.15..|
000000D0: 08 32 00 8B 20 41 24 B2  22 36 32 22 20 A7 20 A0  |.2.. A$."62" . .|
000000E0: 32 3A 8D 33 34 30 3A 89  31 30 30 00 05 09 3C 00  |2:.340:.100...<.|
000000F0: A0 32 3A 9F 20 32 2C 38  2C 32 2C 46 24 3A 56 4D  |.2:. 2,8,2,F$:VM|
00000100: B2 32 30 2E 31 00 31 09  46 00 81 20 49 B2 31 20  |.20.1.1.F.. I.1 |
00000110: A4 20 32 30 3A 84 32 2C  53 28 49 29 3A 8B 20 53  |. 20:.2,S(I):. S|
00000120: 28 49 29 B3 30 20 A7 20  56 4D B2 49 3A 49 B2 32  |(I).0 . VM.I:I.2|
00000130: 30 00 67 09 50 00 82 20  49 3A A0 32 3A 8B 20 56  |0.g.P.. I:.2:. V|
00000140: 4D B2 32 30 2E 31 20 A7  20 56 4D B2 32 30 3A 81  |M.20.1 . VM.20:.|
00000150: 20 49 B2 30 20 A4 20 31  39 3A 53 28 49 29 B2 53  | I.0 . 19:S(I).S|
00000160: 28 49 AA 31 29 3A 82 00  9A 09 5A 00 85 22 11 45  |(I.1):....Z..".E|
00000170: 4E 54 45 52 20 4E 45 57  20 53 43 4F 52 45 22 3B  |NTER NEW SCORE";|
00000180: 53 28 56 4D 29 3A 8B 20  56 4D B3 32 30 20 A7 20  |S(VM):. VM.20 . |
00000190: 53 28 56 4D AA 31 29 B2  AB 31 00 C2 09 64 00 51  |S(VM.1)..1...d.Q|
000001A0: B2 31 3A 4C 28 31 29 B2  53 28 31 29 3A 51 4D B2  |.1:L(1).S(1):QM.|
000001B0: 31 31 3A 8B 20 56 4D B3  51 4D 20 A7 20 51 4D B2  |11:. VM.QM . QM.|
000001C0: 56 4D 00 D1 09 6E 00 81  20 49 B2 32 20 A4 20 56  |VM...n.. I.2 . V|
000001D0: 4D 00 DF 09 78 00 81 20  4A B2 31 20 A4 20 51 00  |M...x.. J.1 . Q.|
000001E0: 1E 0A 82 00 8B 20 53 28  49 29 B3 4C 28 4A 29 20  |..... S(I).L(J) |
000001F0: A7 20 81 20 4B B2 51 20  A4 20 4A 20 A9 AB 31 3A  |. . K.Q . J ..1:|
00000200: 4C 28 4B AA 31 29 B2 4C  28 4B 29 3A 82 3A 4C 28  |L(K.1).L(K):.:L(|
00000210: 4A 29 B2 53 28 49 29 3A  4A B2 51 AA 31 30 00 3A  |J).S(I):J.Q.10.:|
00000220: 0A 8C 00 82 20 4A 3A 51  B2 51 AA 31 3A 8B 20 51  |.... J:Q.Q.1:. Q|
00000230: B1 51 4D 20 A7 20 51 B2  51 4D 00 51 0A 96 00 8B  |.QM . Q.QM.Q....|
00000240: 20 4A B3 B2 51 20 A7 20  4C 28 51 29 B2 53 28 49  | J..Q . L(Q).S(I|
00000250: 29 00 59 0A A0 00 82 20  49 00 88 0A AA 00 8B 20  |).Y.... I...... |
00000260: 56 4D B2 32 30 20 A7 20  99 22 11 54 48 45 20 4C  |VM.20 . .".THE L|
00000270: 41 53 54 20 54 57 45 4E  54 59 20 53 43 4F 52 45  |AST TWENTY SCORE|
00000280: 53 3A 22 3A 89 31 39 30  00 9C 0A B4 00 99 22 11  |S:":.190......".|
00000290: 22 56 4D 22 53 43 4F 52  45 53 3A 22 00 C0 0A BE  |"VM"SCORES:"....|
000002A0: 00 81 49 B2 31 20 A4 20  56 4D 3A 99 53 28 49 29  |..I.1 . VM:.S(I)|
000002B0: 3B 22 9D 22 3B 3A 8B 20  49 B2 31 30 20 A7 20 99  |;".";:. I.10 . .|
000002C0: 00 C8 0A C8 00 82 3A 99  00 F4 0A D2 00 54 B2 30  |......:......T.0|
000002D0: 3A 99 22 11 4C 4F 57 20  53 43 4F 52 45 53 20 55  |:.".LOW SCORES U|
000002E0: 53 45 44 20 49 4E 20 43  4F 4D 50 55 54 41 54 49  |SED IN COMPUTATI|
000002F0: 4F 4E 3A 22 00 2F 0B DC  00 8B 20 56 4D B3 35 20  |ON:"./.... VM.5 |
00000300: A7 20 99 22 35 20 4F 52  20 4D 4F 52 45 20 53 43  |. ."5 OR MORE SC|
00000310: 4F 52 45 53 20 4E 45 45  44 45 44 20 46 4F 52 20  |ORES NEEDED FOR |
00000320: 48 41 4E 44 49 43 41 50  2E 22 3A 89 32 38 30 00  |HANDICAP.":.280.|
00000330: 4B 0B E6 00 8B 20 56 4D  B3 31 37 20 A7 20 4D 25  |K.... VM.17 . M%|
00000340: B2 31 AA 28 56 4D AB 35  29 AD 32 00 62 0B F0 00  |.1.(VM.5).2.b...|
00000350: 8B 20 56 4D B1 31 36 20  A7 20 4D 25 B2 56 4D AB  |. VM.16 . M%.VM.|
00000360: 31 30 00 A3 0B FA 00 81  20 49 B2 31 20 A4 20 4D  |10...... I.1 . M|
00000370: 25 3A 99 20 4C 28 49 29  22 9D 22 3B 3A 54 B2 54  |%:. L(I)".";:T.T|
00000380: AA 4C 28 49 29 AB 43 52  3A 82 3A 54 B2 54 AD 4D  |.L(I).CR:.:T.T.M|
00000390: 25 AC 31 30 3A 48 B2 B5  28 54 AC 2E 30 39 36 AA  |%.10:H..(T..096.|
000003A0: 2E 35 29 00 C4 0B 04 01  99 3A 99 22 11 48 41 4E  |.5)......:.".HAN|
000003B0: 44 49 43 41 50 3A 22 3B  3A 8B 48 B3 30 A7 99 22  |DICAP:";:.H.0.."|
000003C0: 20 2B 22 3B 00 CE 0B 0E  01 99 B6 28 48 29 00 EF  | +";.......(H)..|
000003D0: 0B 18 01 99 22 11 53 41  56 45 20 54 4F 20 44 49  |....".SAVE TO DI|
000003E0: 53 4B 20 28 59 2F 4E 29  3F 22 3A 8D 34 36 30 00  |SK (Y/N)?":.460.|
000003F0: FE 0B 22 01 8B 20 52 B2  30 20 A7 33 33 30 00 1D  |..".. R.0 .330..|
00000400: 0C 2C 01 9F 20 31 35 2C  38 2C 31 35 3A 98 31 35  |.,.. 15,8,15:.15|
00000410: 2C 22 53 30 3A 22 3B 46  24 3A A0 31 35 00 2C 0C  |,"S0:";F$:.15.,.|
00000420: 36 01 9F 20 32 2C 38 2C  31 2C 46 24 00 4E 0C 40  |6.. 2,8,1,F$.N.@|
00000430: 01 81 20 49 B2 31 20 A4  20 56 4D 3A 98 32 2C 53  |.. I.1 . VM:.2,S|
00000440: 28 49 29 3A 82 3A 98 32  2C AB 31 3A A0 32 00 54  |(I):.:.2,.1:.2.T|
00000450: 0C 4A 01 80 00 6A 0C 54  01 99 22 11 12 41 20 4E  |.J...j.T.."..A N|
00000460: 45 57 20 50 4C 41 59 45  52 22 00 92 0C 5E 01 99  |EW PLAYER"...^..|
00000470: 22 45 4E 54 45 52 20 22  50 4E 24 22 27 53 20 4C  |"ENTER "PN$"'S L|
00000480: 41 53 54 20 54 57 45 4E  54 59 20 53 43 4F 52 45  |AST TWENTY SCORE|
00000490: 53 22 00 CD 0C 68 01 99  22 11 49 46 20 59 4F 55  |S"...h..".IF YOU|
000004A0: 20 44 4F 4E 27 54 20 48  41 56 45 20 32 30 2C 20  | DON'T HAVE 20, |
000004B0: 45 4E 54 45 52 20 2D 31  20 41 46 54 45 52 20 20  |ENTER -1 AFTER  |
000004C0: 20 20 4C 41 53 54 20 53  43 4F 52 45 22 00 E3 0C  |  LAST SCORE"...|
000004D0: 72 01 81 20 56 B2 31 20  A4 20 32 30 3A 85 20 53  |r.. V.1 . 20:. S|
000004E0: 28 56 29 00 04 0D 7C 01  56 4D B2 56 3A 8B 20 53  |(V)...|.VM.V:. S|
000004F0: 28 56 29 B2 AB 31 20 A7  20 56 4D B2 56 AB 31 3A  |(V)..1 . VM.V.1:|
00000500: 56 B2 32 30 00 0A 0D 86  01 82 00 2A 0D 90 01 99  |V.20.......*....|
00000510: 22 93 22 50 4E 24 22 27  53 20 4C 41 53 54 22 56  |"."PN$"'S LAST"V|
00000520: 4D 22 53 43 4F 52 45 53  3A 22 00 4F 0D 9A 01 81  |M"SCORES:".O....|
00000530: 20 49 B2 31 20 A4 20 56  4D 3A 99 20 22 23 22 49  | I.1 . VM:. "#"I|
00000540: 22 20 20 53 43 4F 52 45  22 53 28 49 29 3A 82 00  |"  SCORE"S(I):..|
00000550: 78 0D A4 01 99 22 41 52  45 20 54 48 45 53 45 20  |x...."ARE THESE |
00000560: 53 43 4F 52 45 53 20 4F  4B 41 59 20 28 59 2F 4E  |SCORES OKAY (Y/N|
00000570: 29 3F 22 3A 8D 34 36 30  00 84 0D AE 01 8B 20 52  |)?":.460...... R|
00000580: 20 A7 20 8E 00 BC 0D B8  01 85 22 45 4E 54 45 52  | . ......."ENTER|
00000590: 20 23 20 4F 46 20 42 41  44 20 53 43 4F 52 45 22  | # OF BAD SCORE"|
000005A0: 3B 4E 3A 8B 20 4E B3 31  20 B0 20 4E B1 56 4D 20  |;N:. N.1 . N.VM |
000005B0: A7 20 99 22 91 22 3B 3A  89 34 34 30 00 DC 0D C2  |. .".";:.440....|
000005C0: 01 99 22 43 4F 52 52 45  43 54 20 23 22 3B 4E 3B  |.."CORRECT #";N;|
000005D0: 3A 85 20 53 28 4E 29 3A  89 34 30 30 00 F5 0D CC  |:. S(N):.400....|
000005E0: 01 A1 41 24 3A 8B 20 41  24 B2 22 59 22 20 A7 20  |..A$:. A$."Y" . |
000005F0: 52 B2 31 3A 8E 00 0A 0E  D6 01 8B 20 41 24 B2 22  |R.1:....... A$."|
00000600: 4E 22 20 A7 20 52 B2 30  3A 8E 00 13 0E E0 01 89  |N" . R.0:.......|
00000610: 34 36 30 00 00 00                                 |460...          |

..%....".":.53281,6:.53280,14:.646,14.Z.
... S(20),L(12):CR.68:.".GOLF HANDICAP C
ALCULATOR"......".ENTER PLAYER'S NAME";P
N$:. PN$."" . ."..";:.20.....F$.H(PN$,12
).".DAT".N.(.. 2,8,2,F$:.15,8,15:.15,A$,
B$: 15...2.. A$."62" .  2:.340:.100...<.
 2:. 2,8,2,F$:VM.20.1.1.F.. I.1 . 20:.2,
S(I):. S(I).0 . VM.I:I.20.G.P.. I: 2:. V
M.20.1 . VM.20:. I.0 . 19:S(I).S(I.1):..
..Z..".ENTER NEW SCORE";S(VM):. VM.20 . 
S(VM.1)..1.B.D.Q.1:L(1).S(1):QM.11:. VM.
QM . QM.VM.Q.N.. I.2 . VM...X.. J.1 . Q.
..... S(I).L(J) . . K.Q . J ..1:L(K.1).L
(K):.:L(J).S(I):J.Q.10.:.... J:Q.Q.1:. Q
.QM . Q.QM.Q.... J..Q . L(Q).S(I).Y. .. 
I...... VM.20 . .".THE LAST TWENTY SCORE
S:":.190......"."VM"SCORES:"......I.1 . 
VM:.S(I);".";:. I.10 . ..H.H..:....R.T.0
:.".LOW SCORES USED IN COMPUTATION:"./..
.. VM.5 . ."5 OR MORE SCORES NEEDED FOR 
HANDICAP.":.280.K.... VM.17 . M%.1.(VM.5
).2.B.... VM.16 . M%.VM.10...... I.1 . M
%:. L(I)".";:T.T.L(I).CR:.:T.T.M%.10:H..
(T..096..5).D....:.".HANDICAP:";:.H.0.."
 +";.N.....(H)......".SAVE TO DISK (Y/N)
?":.460...".. R.0 .330...,.. 15,8,15:.15
,"S0:";F$: 15.,.6.. 2,8,1,F$.N.@.. I.1 .
 VM:.2,S(I):.:.2,.1: 2.T.J...J.T.."..A N
EW PLAYER"...^.."ENTER "PN$"'S LAST TWEN
TY SCORES".M.H..".IF YOU DON'T HAVE 20, 
ENTER -1 AFTER    LAST SCORE"...R.. V.1 
. 20:. S(V)...|.VM.V:. S(V)..1 . VM.V.1:
V.20.......*...."."PN$"'S LAST"VM"SCORES
:".O.... I.1 . VM:. "#"I"  SCORE"S(I):..
X...."ARE THESE SCORES OKAY (Y/N)?":.460
...... R . ......."ENTER # OF BAD SCORE"
;N:. N.1 . N.VM . .".";:.440...B.."CORRE
CT #";N;:. S(N):.400...L..A$:. A$."Y" . 
R.1:....V.. A$."N" . R.0:.......460...

Visualization:

Width: Skip load address (+2) Invert

> CLICK IMAGE PREVIEW FOR FULL MODAL