RACE3
FILE INFORMATION
FILENAME(S): RACE3
FILE TYPE(S): PRG
FILE SIZE: 2.1K
FIRST SEEN: 2025-11-30 21:29:19
APPEARS ON: 1 disk(s)
FILE HASH
d58d922649f6c38f31e6bd430345ca7cde31acadb5ea752b14d7d3d44311ce41
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PRIME | RACE3 | PRG | DuncanTwain | 17 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 37 08 0A 00 86 48 24 28 34 30 29 2C 41 28 |..7....H$(40),A(|
00000010: 34 30 29 2C 42 28 34 30 29 2C 43 28 34 30 29 2C |40),B(40),C(40),|
00000020: 44 28 34 30 29 2C 45 28 34 30 29 2C 46 28 34 30 |D(40),E(40),F(40|
00000030: 29 2C 47 28 34 30 29 00 58 08 14 00 56 31 B2 32 |),G(40).X...V1.2|
00000040: 30 30 30 3A 56 32 B2 33 30 30 30 3A 57 B2 31 3A |000:V2.3000:W.1:|
00000050: 51 B2 31 3A 48 4E B2 31 00 7D 08 64 00 97 35 33 |Q.1:HN.1.}.d..53|
00000060: 32 38 31 2C 38 3A 97 35 33 32 38 30 2C 30 3A 97 |281,8:.53280,0:.|
00000070: 36 34 36 2C 37 3A 52 B2 35 3A 51 B2 31 00 A9 08 |646,7:R.5:Q.1...|
00000080: 69 00 99 22 93 11 11 20 20 20 20 3C 20 45 4E 54 |i.."... < ENT|
00000090: 45 52 20 54 48 45 20 52 41 43 45 20 50 41 52 54 |ER THE RACE PART|
000000A0: 49 43 55 4C 41 52 53 20 3E 00 D1 08 6E 00 99 3A |ICULARS >...n..:|
000000B0: 99 3A 99 22 1D 1D 1D 1D 1D 1D 4D 45 45 54 49 4E |.:."......MEETIN|
000000C0: 47 20 20 20 20 20 20 20 20 20 20 22 3A 8D 31 38 |G ":.18|
000000D0: 30 00 FA 08 78 00 99 3A 99 3A 99 3A 99 22 9E 1D |0...x..:.:.:."..|
000000E0: 1D 1D 1D 1D 1D 44 41 54 45 20 20 20 20 20 20 20 |.....DATE |
000000F0: 20 20 20 20 22 3A 8D 31 38 30 00 23 09 82 00 99 | ":.180.#....|
00000100: 3A 99 3A 99 3A 99 22 9E 1D 1D 1D 1D 1D 1D 54 49 |:.:.:.".......TI|
00000110: 4D 45 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D |ME ":.|
00000120: 31 38 30 00 4F 09 8C 00 99 3A 99 3A 99 3A 99 22 |180.O....:.:.:."|
00000130: 9E 1D 1D 1D 1D 1D 1D 56 41 4C 55 45 20 20 20 20 |.......VALUE |
00000140: 20 20 20 20 20 20 20 90 5C 22 3A 8D 31 38 30 00 | .\":.180.|
00000150: 71 09 96 00 99 3A 99 3A 99 3A 99 22 9E 1D 1D 1D |q....:.:.:."....|
00000160: 1D 1D 1D 44 49 53 54 41 4E 43 45 22 3A 8D 31 38 |...DISTANCE":.18|
00000170: 30 00 95 09 A0 00 99 3A 99 3A 99 3A 99 22 9E 1D |0......:.:.:."..|
00000180: 1D 1D 1D 1D 1D 48 4F 57 20 4D 41 4E 59 20 48 4F |.....HOW MANY HO|
00000190: 52 53 45 53 22 00 AF 09 B4 00 97 32 31 31 2C 32 |RSES"......211,2|
000001A0: 33 3A 97 32 31 34 2C 52 3A 9E 35 38 37 33 32 00 |3:.214,R:.58732.|
000001B0: D3 09 BE 00 97 31 39 2C 31 3A 97 31 39 38 2C 30 |.....19,1:.198,0|
000001C0: 3A 85 22 90 BF 9D 22 3B 41 24 28 57 29 3A 97 31 |:."...";A$(W):.1|
000001D0: 39 2C 30 00 E0 09 C8 00 8B 57 B2 36 A7 32 33 30 |9,0......W.6.230|
000001E0: 00 F0 09 D2 00 52 B2 52 AA 33 3A 57 B2 57 AA 31 |.....R.R.3:W.W.1|
000001F0: 00 F6 09 DC 00 8E 00 1F 0A E6 00 99 3A 99 3A 99 |............:.:.|
00000200: 22 1D 1D 1D 1D 1D 1D 1D 41 52 45 20 54 48 45 53 |".......ARE THES|
00000210: 45 20 43 4F 52 52 45 43 54 20 28 59 2F 4E 29 00 |E CORRECT (Y/N).|
00000220: 32 0A F0 00 A1 42 24 3A 8B 42 24 B2 22 22 A7 32 |2....B$:.B$."".2|
00000230: 34 30 00 42 0A FA 00 8B 42 24 B3 B1 22 59 22 A7 |40.B....B$.."Y".|
00000240: 32 30 00 48 0A 04 01 3A 00 4E 0A 0E 01 3A 00 7B |20.H...:.N...:.{|
00000250: 0A 2C 01 99 22 9E 93 11 11 11 11 20 20 20 20 20 |.,.."...... |
00000260: 20 20 3C 20 49 4E 44 49 56 49 44 55 41 4C 20 48 | < INDIVIDUAL H|
00000270: 4F 52 53 45 20 44 41 54 41 20 3E 00 A4 0A 36 01 |ORSE DATA >...6.|
00000280: 99 3A 99 3A 99 22 1D 1D 1D 1D 9E 4E 41 4D 45 20 |.:.:.".....NAME |
00000290: 4F 46 20 48 4F 52 53 45 20 4E 55 4D 42 45 52 22 |OF HORSE NUMBER"|
000002A0: 3B 48 4E 3B 00 C8 0A 40 01 97 31 39 2C 31 3A 97 |;HN;...@..19,1:.|
000002B0: 31 39 38 2C 30 3A 85 22 90 BF 9D 22 3B 48 24 28 |198,0:."...";H$(|
000002C0: 51 29 3A 97 31 39 2C 30 00 F2 0A 4A 01 99 3A 99 |Q):.19,0...J..:.|
000002D0: 3A 99 22 1D 1D 1D 1D 1D 1D 9E 57 45 49 47 48 54 |:.".......WEIGHT|
000002E0: 20 54 48 49 53 20 52 41 43 45 20 20 20 20 20 20 | THIS RACE |
000002F0: 22 3B 00 27 0B 54 01 97 31 39 2C 31 3A 97 31 39 |";.'.T..19,1:.19|
00000300: 38 2C 30 3A 85 22 90 BF 9D 22 3B 4A 24 28 51 29 |8,0:."...";J$(Q)|
00000310: 3A 97 31 39 2C 30 3A 8D 38 30 30 30 3A 4D B2 4E |:.19,0:.8000:M.N|
00000320: 3A 41 28 51 29 B2 4D 00 53 0B 5E 01 99 3A 99 3A |:A(Q).M.S.^..:.:|
00000330: 99 22 1D 1D 1D 1D 1D 1D 9E 56 41 4C 55 45 20 4F |.".......VALUE O|
00000340: 46 20 4C 41 53 54 20 52 41 43 45 20 20 20 20 90 |F LAST RACE .|
00000350: 5C 22 3B 00 76 0B 68 01 97 31 39 2C 31 3A 97 31 |\";.v.h..19,1:.1|
00000360: 39 38 2C 30 3A 85 22 90 BF 9D 22 3B 42 28 51 29 |98,0:."...";B(Q)|
00000370: 3A 97 31 39 2C 30 00 A0 0B 72 01 99 3A 99 3A 99 |:.19,0...r..:.:.|
00000380: 22 1D 1D 1D 1D 1D 1D 9E 4C 41 53 54 20 33 20 52 |".......LAST 3 R|
00000390: 45 53 55 4C 54 53 20 20 20 20 20 20 20 20 22 3B |ESULTS ";|
000003A0: 00 C3 0B 7C 01 97 31 39 2C 31 3A 97 31 39 38 2C |...|..19,1:.198,|
000003B0: 30 3A 85 22 90 BF 9D 22 3B 43 28 51 29 3A 97 31 |0:."...";C(Q):.1|
000003C0: 39 2C 30 00 ED 0B 86 01 99 3A 99 3A 99 22 1D 1D |9,0......:.:."..|
000003D0: 1D 1D 1D 1D 9E 57 45 49 47 48 54 20 4C 41 53 54 |.....WEIGHT LAST|
000003E0: 20 52 41 43 45 20 20 20 20 20 20 22 3B 00 1E 0C | RACE ";...|
000003F0: 90 01 97 31 39 2C 31 3A 97 31 39 38 2C 30 3A 85 |...19,1:.198,0:.|
00000400: 22 90 BF 9D 22 3B 4A 24 28 51 29 3A 97 31 39 2C |"...";J$(Q):.19,|
00000410: 30 3A 8D 38 30 30 30 3A 44 28 51 29 B2 4E 00 48 |0:.8000:D(Q).N.H|
00000420: 0C 9A 01 99 3A 99 3A 99 22 1D 1D 1D 1D 1D 1D 9E |....:.:.".......|
00000430: 44 49 53 54 41 4E 43 45 20 4C 41 53 54 20 52 41 |DISTANCE LAST RA|
00000440: 43 45 20 20 20 20 22 3B 00 6B 0C A4 01 97 31 39 |CE ";.k....19|
00000450: 2C 31 3A 97 31 39 38 2C 30 3A 85 22 90 BF 9D 22 |,1:.198,0:."..."|
00000460: 3B 45 28 51 29 3A 97 31 39 2C 30 00 95 0C A8 01 |;E(Q):.19,0.....|
00000470: 99 3A 99 3A 99 22 1D 1D 1D 1D 1D 1D 9E 53 54 41 |.:.:.".......STA|
00000480: 59 49 4E 47 20 50 4F 57 45 52 20 20 20 20 20 20 |YING POWER |
00000490: 20 20 20 22 3B 00 B8 0C AA 01 97 31 39 2C 31 3A | ";......19,1:|
000004A0: 97 31 39 38 2C 30 3A 85 22 90 BF 9D 22 3B 46 28 |.198,0:."...";F(|
000004B0: 51 29 3A 97 31 39 2C 30 00 E1 0C AE 01 99 3A 99 |Q):.19,0......:.|
000004C0: 3A 99 22 1D 1D 1D 1D 1D 1D 1D 41 52 45 20 54 48 |:.".......ARE TH|
000004D0: 45 53 45 20 43 4F 52 52 45 43 54 20 28 59 2F 4E |ESE CORRECT (Y/N|
000004E0: 29 00 F4 0C B8 01 A1 42 24 3A 8B 42 24 B2 22 22 |)......B$:.B$.""|
000004F0: A7 34 34 30 00 06 0D C2 01 8B 42 24 B3 B1 22 59 |.440......B$.."Y|
00000500: 22 A7 89 33 30 30 00 0C 0D F4 01 3A 00 2F 0D FE |"..300.....:./..|
00000510: 01 54 B2 30 3A 20 20 20 8F 2A 2A 2A 20 43 48 45 |.T.0: .*** CHE|
00000520: 43 4B 20 57 45 49 47 48 54 53 20 2A 2A 2A 2A 00 |CK WEIGHTS ****.|
00000530: 42 0D 08 02 8B 4D B3 4E A7 57 B2 33 3A 54 B2 54 |B....M.N.W.3:T.T|
00000540: AA 33 00 55 0D 12 02 8B 4D B1 4E A7 57 B2 31 3A |.3.U....M.N.W.1:|
00000550: 54 B2 54 AA 31 00 68 0D 1C 02 8B 4D B2 4E A7 57 |T.T.1.h....M.N.W|
00000560: B2 32 3A 54 B2 54 AA 32 00 6E 0D 26 02 3A 00 74 |.2:T.T.2.n.&.:.t|
00000570: 0D 30 02 3A 00 7A 0D 58 02 3A 00 93 0D 62 02 8F |.0.:.z.X.:...b..|
00000580: 2A 2A 2A 20 43 48 45 43 4B 20 47 52 4F 55 50 20 |*** CHECK GROUP |
00000590: 2A 2A 2A 00 A2 0D 6C 02 47 B2 C5 28 41 24 28 34 |***...l.G..(A$(4|
000005A0: 29 29 00 B3 0D 71 02 8B 47 B1 42 28 51 29 A7 89 |))...q..G.B(Q)..|
000005B0: 37 30 30 00 C9 0D 76 02 8B 47 B2 42 28 51 29 A7 |700...v..G.B(Q).|
000005C0: 56 B2 31 3A 54 B2 54 AA 31 00 E4 0D 80 02 8B 47 |V.1:T.T.1......G|
000005D0: B2 42 28 51 29 AB 32 30 30 30 A7 56 B2 33 3A 54 |.B(Q).2000.V.3:T|
000005E0: B2 54 AA 33 00 FF 0D 8A 02 8B 47 B2 42 28 51 29 |.T.3......G.B(Q)|
000005F0: AB 31 30 30 30 A7 56 B2 32 3A 54 B2 54 AA 32 00 |.1000.V.2:T.T.2.|
00000600: 05 0E 94 02 3A 00 0B 0E BC 02 3A 00 2A 0E C6 02 |....:.....:.*...|
00000610: 8F 2A 2A 20 41 44 44 20 4C 41 53 54 20 33 20 4F |.** ADD LAST 3 O|
00000620: 55 54 49 4E 47 53 20 2A 2A 2A 00 36 0E D0 02 43 |UTINGS ***.6...C|
00000630: 43 B2 43 28 51 29 00 41 0E DA 02 54 B2 54 AA 43 |C.C(Q).A...T.T.C|
00000640: 43 00 47 0E 20 03 3A 00 65 0E 2A 03 8F 2A 2A 2A |C.G. .:.e.*..***|
00000650: 20 43 4F 4D 50 41 52 45 20 44 49 53 54 41 4E 43 | COMPARE DISTANC|
00000660: 45 20 2A 2A 2A 00 7D 0E 34 03 44 49 B2 C5 28 41 |E ***.}.4.DI..(A|
00000670: 24 28 35 29 29 3A 44 4C B2 45 28 51 29 00 93 0E |$(5)):DL.E(Q)...|
00000680: 3E 03 8B 44 49 B2 44 4C A7 44 54 B2 32 3A 54 B2 |>..DI.DL.DT.2:T.|
00000690: 54 AA 32 00 A9 0E 48 03 8B 44 49 B1 44 4C A7 44 |T.2...H..DI.DL.D|
000006A0: 54 B2 31 3A 54 B2 54 AA 31 00 BF 0E 52 03 8B 44 |T.1:T.T.1...R..D|
000006B0: 49 B3 44 4C A7 44 54 B2 33 3A 54 B2 54 AA 33 00 |I.DL.DT.3:T.T.3.|
000006C0: C5 0E 84 03 3A 00 E6 0E 8E 03 8F 2A 2A 2A 20 53 |....:......*** S|
000006D0: 54 41 4D 49 4E 41 20 3D 20 46 28 51 29 20 20 20 |TAMINA = F(Q) |
000006E0: 20 20 2A 2A 2A 2A 00 F2 0E 98 03 46 46 B2 46 28 | ****.....FF.F(|
000006F0: 51 29 00 FD 0E A2 03 54 B2 54 AA 46 46 00 03 0F |Q).....T.T.FF...|
00000700: E8 03 3A 00 09 0F F2 03 3A 00 0F 0F B0 04 3A 00 |..:.....:.....:.|
00000710: 15 0F D0 07 3A 00 20 0F D5 07 47 28 51 29 B2 54 |....:. ...G(Q).T|
00000720: 00 35 0F DA 07 8B 51 B2 C5 28 41 24 28 36 29 29 |.5....Q..(A$(6))|
00000730: A7 34 30 30 30 00 4C 0F E4 07 51 B2 51 AA 31 3A |.4000.L...Q.Q.1:|
00000740: 48 4E B2 48 4E AA 31 3A 89 33 30 30 00 7B 0F A0 |HN.HN.1:.300.{..|
00000750: 0F 99 22 93 22 3A 97 32 31 31 2C 31 30 3A 97 32 |..".":.211,10:.2|
00000760: 31 34 2C 35 3A 9E 35 38 37 33 32 3A 99 22 41 4E |14,5:.58732:."AN|
00000770: 41 4C 59 53 49 53 22 3A 99 3A 99 00 97 0F AA 0F |ALYSIS":.:......|
00000780: 81 49 B2 31 A4 51 3A 99 48 24 28 49 29 A3 31 32 |.I.1.Q:.H$(I).12|
00000790: 29 47 28 49 29 3A 82 00 9D 0F 58 1B 80 00 A3 0F |)G(I):....X.....|
000007A0: 40 1F 3A 00 C8 0F 45 1F 8F 2A 2A 20 43 4F 4E 56 |@.:...E..** CONV|
000007B0: 45 52 54 20 53 54 4F 4E 45 53 20 54 4F 20 50 4F |ERT STONES TO PO|
000007C0: 55 4E 44 53 20 2A 2A 2A 00 E1 0F 4A 1F 8B C8 28 |UNDS ***...J...(|
000007D0: 4A 24 28 51 29 2C 31 29 B1 22 31 22 A7 38 30 33 |J$(Q),1)."1".803|
000007E0: 30 00 0B 10 54 1F 4B B2 C5 28 C8 28 4A 24 28 51 |0...T.K..(.(J$(Q|
000007F0: 29 2C 32 29 29 3A 4C B2 C5 28 CA 28 4A 24 28 51 |),2)):L..(.(J$(Q|
00000800: 29 2C 34 29 29 3A 89 38 30 34 30 00 2F 10 5E 1F |),4)):.8040./.^.|
00000810: 4B B2 C5 28 C8 28 4A 24 28 51 29 2C 31 29 29 3A |K..(.(J$(Q),1)):|
00000820: 4C B2 C5 28 CA 28 4A 24 28 51 29 2C 33 29 29 00 |L..(.(J$(Q),3)).|
00000830: 3E 10 68 1F 4E B2 4B AC 31 34 AA 4C 3A 8E 00 00 |>.h.N.K.14.L:...|
00000840: 00 |. |
..7....H$(40),A(40),B(40),C(40),D(40),E(
40),F(40),G(40).X...V1.2000:V2.3000:W.1:
Q.1:HN.1.}.D..53281,8:.53280,0:.646,7:R.
5:Q.1...I.."... < ENTER THE RACE PART
ICULARS >.Q.N..:.:."......MEETING
":.180...X..:.:.:.".......DATE
":.180.#....:.:.:.".......TIME
":.180.O....:.:.:.".......VALUE
.\":.180.Q....:.:.:.".......DISTA
NCE":.180... ..:.:.:.".......HOW MANY HO
RSES"......211,23:.214,R:.58732.S....19,
1:.198,0:."...";A$(W):.19,0...H..W.6.230
...R.R.R.3:W.W.1............:.:.".......
ARE THESE CORRECT (Y/N).2....B$:.B$."".2
40.B....B$.."Y".20.H...:.N...:.{.,.."...
... < INDIVIDUAL HORSE DATA >...6.
.:.:.".....NAME OF HORSE NUMBER";HN;.H.@
..19,1:.198,0:."...";H$(Q):.19,0...J..:.
:.".......WEIGHT THIS RACE ";.'.T..
19,1:.198,0:."...";J$(Q):.19,0:.8000:M.N
:A(Q).M.S.^..:.:.".......VALUE OF LAST R
ACE .\";.V.H..19,1:.198,0:."...";B(Q)
:.19,0. .R..:.:.".......LAST 3 RESULTS
";.C.|..19,1:.198,0:."...";C(Q):.1
9,0......:.:.".......WEIGHT LAST RACE
";......19,1:.198,0:."...";J$(Q):.19,
0:.8000:D(Q).N.H....:.:.".......DISTANCE
LAST RACE ";.K....19,1:.198,0:."..."
;E(Q):.19,0......:.:.".......STAYING POW
ER ";......19,1:.198,0:."...";F(
Q):.19,0......:.:.".......ARE THESE CORR
ECT (Y/N)......B$:.B$."".440...B..B$.."Y
"..300.....:./...T.0: .*** CHECK WEIGH
TS ****.B....M.N.W.3:T.T.3.U....M.N.W.1:
T.T.1.H....M.N.W.2:T.T.2.N.&.:.T.0.:.Z.X
.:...B..*** CHECK GROUP ***...L.G.E(A$(4
))...Q..G.B(Q)..700.I.V..G.B(Q).V.1:T.T.
1......G.B(Q).2000.V.3:T.T.3......G.B(Q)
.1000.V.2:T.T.2.....:.....:.*.F..** ADD
LAST 3 OUTINGS ***.6.P.CC.C(Q).A.Z.T.T.C
C.G. .:.E.*..*** COMPARE DISTANCE ***.}.
4.DI.E(A$(5)):DL.E(Q)...>..DI.DL.DT.2:T.
T.2...H..DI.DL.DT.1:T.T.1...R..DI.DL.DT.
3:T.T.3.E...:......*** STAMINA = F(Q)
****.....FF.F(Q).....T.T.FF.....:.....
:.....:...P.:. .U.G(Q).T.5.Z..Q.E(A$(6))
.4000.L...Q.Q.1:HN.HN.1:.300.{. ..".":.2
11,10:.214,5:.58732:."ANALYSIS":.:......
.I.1.Q:.H$(I).12)G(I):....X.....@.:.H.E.
.** CONVERT STONES TO POUNDS ***...J..H(
J$(Q),1)."1".8030...T.K.E(H(J$(Q),2)):L.
E(J(J$(Q),4)):.8040./.^.K.E(H(J$(Q),1)):
L.E(J(J$(Q),3)).>.H.N.K.14.L:....
> CLICK IMAGE PREVIEW FOR FULL MODAL