H3
FILE INFORMATION
FILENAME(S): H3
FILE TYPE(S): PRG
FILE SIZE: 5.6K
FIRST SEEN: 2025-11-30 21:29:19
APPEARS ON: 1 disk(s)
FILE HASH
da47b22bae416a26d4aec99732e199cf5343bbf0340f4b83527de2539e84c30c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PRIME | H3 | PRG | DuncanTwain | 19 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 28 08 0A 00 9C 3A 86 48 24 28 34 30 2C 31 |..(....:.H$(40,1|
00000010: 35 29 2C 53 46 25 28 34 30 29 2C 48 31 25 28 34 |5),SF%(40),H1%(4|
00000020: 30 29 2C 52 24 28 36 29 00 37 08 19 00 83 33 30 |0),R$(6).7....30|
00000030: 30 30 2C 32 30 30 30 00 42 08 1A 00 87 43 31 2C |00,2000.B....C1,|
00000040: 43 32 00 7F 08 2D 00 99 22 93 22 3A 4C 4E 24 B2 |C2...-..".":LN$.|
00000050: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00000060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000070: 20 20 20 20 20 20 20 20 20 22 3A 89 31 31 30 00 | ":.110.|
00000080: 8F 08 40 00 8D 38 34 3A 99 4C 4E 24 3B 3A 8E 00 |..@..84:.LN$;:..|
00000090: 9F 08 41 00 8D 38 35 3A 99 4C 4E 24 3B 3A 8E 00 |..A..85:.LN$;:..|
000000A0: AF 08 44 00 8D 38 38 3A 99 4C 4E 24 3B 3A 8E 00 |..D..88:.LN$;:..|
000000B0: BF 08 47 00 8D 39 31 3A 99 4C 4E 24 3B 3A 8E 00 |..G..91:.LN$;:..|
000000C0: D2 08 4E 00 99 22 13 11 11 11 11 11 11 11 11 22 |..N.."........."|
000000D0: 3A 8E 00 E6 08 4F 00 99 22 13 11 11 11 11 11 11 |:....O..".......|
000000E0: 11 11 11 22 3A 8E 00 FF 08 54 00 99 22 13 11 11 |...":....T.."...|
000000F0: 11 11 11 11 11 11 11 11 11 11 11 11 22 3A 8E 00 |............":..|
00000100: 19 09 55 00 99 22 13 11 11 11 11 11 11 11 11 11 |..U.."..........|
00000110: 11 11 11 11 11 11 22 3A 8E 00 36 09 58 00 99 22 |......":..6.X.."|
00000120: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000130: 11 11 11 22 3A 8E 00 56 09 5B 00 99 22 13 11 11 |...":..V.[.."...|
00000140: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00000150: 11 11 11 22 3A 8E 00 6B 09 64 00 81 49 B2 31 A4 |...":..k.d..I.1.|
00000160: 37 3A 99 4C 4E 24 3B 3A 82 3A 8E 00 75 09 6E 00 |7:.LN$;:.:..u.n.|
00000170: 8D 38 31 31 30 00 9E 09 78 00 8D 37 38 3A 99 22 |.8110...x..78:."|
00000180: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 31 2E 20 45 |............1. E|
00000190: 4E 54 45 52 20 4E 45 57 20 44 41 54 41 22 00 C2 |NTER NEW DATA"..|
000001A0: 09 82 00 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |...."...........|
000001B0: 1D 32 2E 20 4C 4F 41 44 20 52 41 43 45 20 44 41 |.2. LOAD RACE DA|
000001C0: 54 41 00 E6 09 8C 00 99 22 1D 1D 1D 1D 1D 1D 1D |TA......".......|
000001D0: 1D 1D 1D 1D 1D 33 2E 20 45 4E 44 20 4F 46 20 50 |.....3. END OF P|
000001E0: 52 4F 47 52 41 4D 00 21 0A 96 00 8D 38 34 3A 85 |ROGRAM.!....84:.|
000001F0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 57 48 |".............WH|
00000200: 49 43 48 20 4F 50 54 49 4F 4E 20 92 22 3B 59 24 |ICH OPTION .";Y$|
00000210: 3A 59 B2 C5 28 59 24 29 3A 8B 59 B3 30 89 31 37 |:Y..(Y$):.Y.0.17|
00000220: 30 00 36 0A A0 00 91 59 89 32 33 30 2C 35 31 30 |0.6....Y.230,510|
00000230: 30 2C 33 35 33 30 00 43 0A AA 00 8D 36 34 3A 89 |0,3530.C....64:.|
00000240: 31 35 30 00 6B 0A DC 00 58 24 B2 22 49 4E 50 55 |150.k...X$."INPU|
00000250: 54 20 52 41 43 45 20 44 45 54 41 49 4C 53 22 3A |T RACE DETAILS":|
00000260: 8D 36 36 30 30 3A 8D 33 38 32 30 00 94 0A E6 00 |.6600:.3820.....|
00000270: 99 22 93 22 3A 99 22 12 49 4E 50 55 54 20 52 41 |.".":.".INPUT RA|
00000280: 43 45 20 44 45 54 41 49 4C 53 92 3A 11 22 3A 8D |CE DETAILS.:.":.|
00000290: 33 38 32 30 00 BC 0A FA 00 8D 35 32 35 30 3A 8D |3820......5250:.|
000002A0: 35 33 34 35 3A 8D 35 33 35 30 3A 8D 35 33 36 30 |5345:.5350:.5360|
000002B0: 3A 8D 35 33 36 35 3A 8D 35 33 37 30 00 C6 0A 22 |:.5365:.5370..."|
000002C0: 01 8D 35 33 30 30 00 02 0B 77 01 8D 36 38 3A 8D |..5300...w..68:.|
000002D0: 38 38 3A 85 22 12 4E 55 4D 42 45 52 20 4F 46 20 |88:.".NUMBER OF |
000002E0: 52 55 4E 4E 45 52 53 92 20 22 3B 48 4E 24 3A 48 |RUNNERS. ";HN$:H|
000002F0: 4E B2 C5 28 48 4E 24 29 3A 8B 48 4E B3 30 89 33 |N..(HN$):.HN.0.3|
00000300: 37 35 00 19 0B 81 01 8D 33 38 30 30 3A 99 22 93 |75......3800:.".|
00000310: 22 3A 81 48 B2 31 A4 48 4E 00 41 0B 9A 01 8D 35 |":.H.1.HN.A....5|
00000320: 34 31 30 3A 8D 35 35 37 30 3A 8D 35 35 37 35 3A |410:.5570:.5575:|
00000330: 8D 35 35 38 30 3A 8D 35 35 38 35 3A 8D 35 35 39 |.5580:.5585:.559|
00000340: 30 00 6F 0B A4 01 8D 35 35 39 35 3A 8D 35 36 30 |0.o....5595:.560|
00000350: 30 3A 8D 35 36 30 35 3A 8D 35 36 31 30 3A 8D 35 |0:.5605:.5610:.5|
00000360: 36 31 35 3A 8D 35 36 32 30 3A 8D 35 36 32 35 00 |615:.5620:.5625.|
00000370: 79 0B 1E 02 8D 35 35 34 35 00 8A 0B BC 02 99 22 |y....5545......"|
00000380: 93 22 3A 82 3A 89 34 32 30 30 00 B1 0B 20 03 99 |.":.:.4200... ..|
00000390: 22 93 11 12 52 41 43 45 20 44 45 54 41 49 4C 53 |"...RACE DETAILS|
000003A0: 92 20 3A 11 22 3A 8D 35 32 35 30 3A 8D 35 33 30 |. :.":.5250:.530|
000003B0: 30 00 DB 0B 2A 03 99 22 93 22 3A 81 48 B2 31 A4 |0...*..".":.H.1.|
000003C0: 48 4E 3A 8D 35 34 31 30 3A 8D 35 35 34 35 3A 99 |HN:.5410:.5545:.|
000003D0: 22 93 22 3A 82 3A 89 34 32 30 30 00 F1 0B 34 03 |".":.:.4200...4.|
000003E0: 50 43 B2 30 3A 99 22 93 22 3A 50 43 B2 50 43 AA |PC.0:.".":PC.PC.|
000003F0: 33 00 1C 0C 39 03 99 22 12 22 3B 52 24 28 31 29 |3...9..".";R$(1)|
00000400: 3B A3 32 30 29 3B 52 24 28 36 29 3B A3 33 32 29 |;.20);R$(6);.32)|
00000410: 3B 52 24 28 32 29 3B 22 92 11 11 22 00 4D 0C 3E |;R$(2);"...".M.>|
00000420: 03 81 48 44 B2 31 A4 48 4E 3A 99 48 44 3B A3 35 |..HD.1.HN:.HD;.5|
00000430: 29 3B 48 24 28 48 44 2C 31 29 3A 50 43 B2 50 43 |);H$(HD,1):PC.PC|
00000440: AA 31 3A 8B 50 43 B3 32 30 89 38 35 30 00 81 0C |.1:.PC.20.850...|
00000450: 48 03 99 3A 8D 34 34 30 30 3A 50 43 B2 30 3A 99 |H..:.4400:PC.0:.|
00000460: 22 93 22 3A 99 22 52 55 4E 4E 45 52 53 20 28 43 |".":."RUNNERS (C|
00000470: 4F 4E 54 27 44 29 3A 11 22 3A 50 43 B2 50 43 AA |ONT'D):.":PC.PC.|
00000480: 33 00 95 0C 52 03 82 3A 99 3A 8D 34 34 30 30 3A |3...R..:.:.4400:|
00000490: 89 34 32 30 30 00 CA 0C 84 03 99 22 93 11 11 11 |.4200......"....|
000004A0: 11 11 11 11 11 11 46 4F 52 45 43 41 53 54 20 42 |......FORECAST B|
000004B0: 45 49 4E 47 20 50 52 45 50 41 52 45 44 22 3A 8D |EING PREPARED":.|
000004C0: 33 30 30 30 3A 8D 34 30 30 30 00 D8 0C 80 0C 50 |3000:.4000.....P|
000004D0: 43 B2 30 3A 99 22 93 22 00 01 0D 94 0C 99 22 12 |C.0:."."......".|
000004E0: 22 3B 52 24 28 31 29 3B A3 32 30 29 3B 52 24 28 |";R$(1);.20);R$(|
000004F0: 36 29 3B A3 33 32 29 3B 52 24 28 32 29 3B 22 92 |6);.32);R$(2);".|
00000500: 22 00 11 0D A8 0C 99 3A 99 3A 50 43 B2 50 43 AA |"......:.:PC.PC.|
00000510: 33 00 2E 0D B2 0C 81 48 44 B2 31 A4 48 4E 3A 99 |3......HD.1.HN:.|
00000520: 48 24 28 48 44 2C 31 29 3B A3 32 30 29 3B 00 57 |H$(HD,1);.20);.W|
00000530: 0D C6 0C 8B 48 24 28 48 44 2C 31 33 29 B2 22 41 |....H$(HD,13)."A|
00000540: 22 A7 99 22 45 58 45 4C 4C 45 4E 54 20 42 45 54 |".."EXELLENT BET|
00000550: 22 3A 89 33 33 36 30 00 7D 0D 16 0D 8B 48 24 28 |":.3360.}....H$(|
00000560: 48 44 2C 31 33 29 B2 22 45 22 A7 99 22 45 4C 49 |HD,13)."E".."ELI|
00000570: 4D 49 4E 41 54 45 22 3A 89 33 33 36 30 00 97 0D |MINATE":.3360...|
00000580: 20 0D 99 3A 50 43 B2 50 43 AA 32 3A 8B 50 43 B3 | ..:PC.PC.2:.PC.|
00000590: 32 30 89 33 34 35 30 00 A1 0D 48 0D 8D 34 34 30 |20.3450...H..440|
000005A0: 30 00 CC 0D 4D 0D 99 22 93 22 3A 50 43 B2 30 3A |0...M..".":PC.0:|
000005B0: 99 52 24 28 31 29 3B A3 32 30 29 3B 52 24 28 32 |.R$(1);.20);R$(2|
000005C0: 29 3B 22 20 43 4F 4E 54 27 44 2E 22 00 DC 0D 5C |);" CONT'D."...\|
000005D0: 0D 99 3A 99 3A 50 43 B2 50 43 AA 33 00 E2 0D 7A |..:.:PC.PC.3...z|
000005E0: 0D 82 00 1C 0E AC 0D 85 22 12 52 45 50 45 41 54 |........".REPEAT|
000005F0: 20 46 4F 52 45 43 41 53 54 20 53 55 4D 4D 41 52 | FORECAST SUMMAR|
00000600: 59 92 20 28 59 2D 4E 29 20 22 3B 52 46 24 3A 8B |Y. (Y-N) ";RF$:.|
00000610: 52 46 24 B2 22 4E 22 A7 34 32 30 30 00 2E 0E B6 |RF$."N".4200....|
00000620: 0D 8B 52 46 24 B2 22 59 22 A7 33 32 30 30 00 41 |..RF$."Y".3200.A|
00000630: 0E C0 0D 8B 52 46 24 B3 B1 22 4E 22 A7 33 35 30 |....RF$.."N".350|
00000640: 30 00 5F 0E CA 0D 8D 36 34 3A 58 24 B2 22 47 4F |0._....64:X$."GO|
00000650: 4F 44 20 4C 55 43 4B 21 22 3A 8D 36 36 30 30 00 |OD LUCK!":.6600.|
00000660: 6A 0E D4 0D 99 22 93 22 3A 80 00 86 0E 10 0E 8B |j....".":.......|
00000670: C5 28 43 24 29 B1 43 31 A7 43 31 24 B2 22 33 22 |.(C$).C1.C1$."3"|
00000680: 3A 89 33 36 33 30 00 A2 0E 1A 0E 8B C5 28 43 24 |:.3630.......(C$|
00000690: 29 B3 43 32 A7 43 31 24 B2 22 31 22 3A 89 33 36 |).C2.C1$."1":.36|
000006A0: 33 30 00 AE 0E 24 0E 43 31 24 B2 22 32 22 00 B4 |30...$.C1$."2"..|
000006B0: 0E 2E 0E 8E 00 D8 0E D8 0E 99 22 93 12 49 4E 50 |.........."..INP|
000006C0: 55 54 20 4E 41 4D 45 53 20 4F 46 20 52 55 4E 4E |UT NAMES OF RUNN|
000006D0: 45 52 53 92 3A 2D 11 22 00 E4 0E DC 0E 81 48 B2 |ERS.:-."......H.|
000006E0: 31 A4 48 4E 00 FF 0E E0 0E 99 22 48 4F 52 53 45 |1.HN......"HORSE|
000006F0: 20 22 3B 48 3B A3 31 32 29 3B 3A 85 48 43 24 00 | ";H;.12);:.HC$.|
00000700: 3D 0F E2 0E 8B C3 28 48 43 24 29 B1 31 38 A7 99 |=.....(HC$).18..|
00000710: 22 91 22 3B A3 31 32 29 3B 22 20 20 20 20 20 20 |".";.12);" |
00000720: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000730: 20 20 20 20 20 91 22 3A 89 33 38 30 38 00 51 0F | .":.3808.Q.|
00000740: E4 0E 48 24 28 48 2C 31 29 B2 48 43 24 3A 82 3A |..H$(H,1).HC$:.:|
00000750: 8E 00 7B 0F EC 0E 81 41 B2 31 A4 34 30 3A 48 24 |..{....A.1.40:H$|
00000760: 28 41 2C 31 33 29 B2 22 20 22 3A 48 24 28 41 2C |(A,13)." ":H$(A,|
00000770: 31 34 29 B2 22 20 22 3A 82 3A 8E 00 9E 0F A0 0F |14)." ":.:......|
00000780: 81 53 46 B2 31 A4 48 4E 3A 53 46 25 28 53 46 29 |.SF.1.HN:SF%(SF)|
00000790: B2 C5 28 48 24 28 53 46 2C 37 29 29 3A 82 00 C6 |..(H$(SF,7)):...|
000007A0: 0F AA 0F 81 53 46 B2 31 A4 48 4E AB 31 3A 8B 53 |....SF.1.HN.1:.S|
000007B0: 46 25 28 53 46 29 B1 B2 53 46 25 28 53 46 AA 31 |F%(SF)..SF%(SF.1|
000007C0: 29 A7 34 30 36 30 00 D0 0F B4 0F 53 53 B2 53 46 |).4060.....SS.SF|
000007D0: 00 09 10 BE 0F 58 25 B2 53 46 25 28 53 46 AA 31 |.....X%.SF%(SF.1|
000007E0: 29 3A 53 46 25 28 53 46 AA 31 29 B2 53 46 25 28 |):SF%(SF.1).SF%(|
000007F0: 53 46 29 3A 53 46 25 28 53 46 29 B2 58 25 3A 8B |SF):SF%(SF).X%:.|
00000800: 53 46 B2 31 A7 34 30 35 30 00 2D 10 C8 0F 53 46 |SF.1.4050.-...SF|
00000810: B2 53 46 AB 31 3A 8B 53 46 25 28 53 46 29 B3 53 |.SF.1:.SF%(SF).S|
00000820: 46 25 28 53 46 AA 31 29 A7 34 30 33 30 00 37 10 |F%(SF.1).4030.7.|
00000830: D2 0F 53 46 B2 53 53 00 3F 10 DC 0F 82 3A 8E 00 |..SF.SS.?....:..|
00000840: 49 10 68 10 8D 38 31 31 30 00 70 10 72 10 8D 37 |I.h..8110.p.r..7|
00000850: 38 3A 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 31 2E 20 |8:.".........1. |
00000860: 44 49 53 50 4C 41 59 20 52 55 4E 4E 45 52 53 22 |DISPLAY RUNNERS"|
00000870: 00 9E 10 7C 10 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D |...|..".........|
00000880: 32 2E 20 44 49 53 50 4C 41 59 20 52 41 43 45 20 |2. DISPLAY RACE |
00000890: 41 4E 44 20 46 4F 52 4D 20 44 41 54 41 22 00 D6 |AND FORM DATA"..|
000008A0: 10 86 10 99 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 33 2E |....".........3.|
000008B0: 20 52 55 4E 20 46 4F 52 45 43 41 53 54 22 3A 99 | RUN FORECAST":.|
000008C0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 34 2E 20 53 41 56 |".........4. SAV|
000008D0: 45 20 44 41 54 41 00 FD 10 90 10 99 22 1D 1D 1D |E DATA......"...|
000008E0: 1D 1D 1D 1D 1D 1D 35 2E 20 52 45 54 55 52 4E 20 |......5. RETURN |
000008F0: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 22 00 38 11 |TO MAIN MENU".8.|
00000900: 9A 10 8D 38 34 3A 85 22 1D 1D 1D 1D 1D 1D 1D 1D |...84:."........|
00000910: 1D 1D 1D 12 57 48 49 43 48 20 4F 50 54 49 4F 4E |....WHICH OPTION|
00000920: 92 20 22 3B 59 24 3A 59 B2 C5 28 59 24 29 3A 8B |. ";Y$:Y..(Y$):.|
00000930: 59 B3 30 A7 34 32 37 30 00 53 11 A4 10 91 59 89 |Y.0.4270.S....Y.|
00000940: 38 32 30 2C 38 30 30 2C 39 30 30 2C 35 30 30 30 |820,800,900,5000|
00000950: 2C 31 30 00 61 11 AE 10 8D 36 34 3A 89 34 32 35 |,10.a....64:.425|
00000960: 30 00 86 11 30 11 99 22 12 50 52 45 53 53 20 53 |0...0..".PRESS S|
00000970: 50 41 43 45 20 54 4F 20 43 4F 4E 54 49 4E 55 45 |PACE TO CONTINUE|
00000980: 2E 2E 2E 92 22 3B 00 9A 11 32 11 A1 50 52 24 3A |....";...2..PR$:|
00000990: 8B 50 52 24 B2 22 20 22 A7 8E 00 A4 11 34 11 89 |.PR$." ".....4..|
000009A0: 34 34 30 32 00 B6 11 94 11 8B 48 43 24 B2 22 30 |4402......HC$."0|
000009B0: 22 A7 34 35 31 30 00 CC 11 99 11 8B C5 28 48 43 |".4510.......(HC|
000009C0: 24 29 B2 30 A7 48 43 24 B2 22 20 22 00 D2 11 9E |$).0.HC$." "....|
000009D0: 11 8E 00 EF 11 F8 11 8B C8 28 C9 28 48 43 24 2C |.........(.(HC$,|
000009E0: 32 29 2C 31 29 B3 B1 22 2E 22 A7 34 36 32 30 00 |2),1)..".".4620.|
000009F0: 14 12 02 12 48 43 24 B2 C8 28 48 43 24 2C C3 28 |....HC$..(HC$,.(|
00000A00: 48 43 24 29 AB 31 29 AA 22 30 22 AA C9 28 48 43 |HC$).1)."0"..(HC|
00000A10: 24 2C 31 29 00 31 12 0C 12 8B C3 28 48 43 24 29 |$,1).1.....(HC$)|
00000A20: B3 B2 32 A7 48 43 24 B2 48 43 24 AA 22 2E 30 30 |..2.HC$.HC$.".00|
00000A30: 22 00 37 12 16 12 8E 00 44 12 88 13 8D 37 38 3A |".7.....D....78:|
00000A40: 8D 31 30 30 00 82 12 8A 13 8D 37 38 3A 99 22 1D |.100......78:.".|
00000A50: 1D 1D 1D 1D 1D 1D 1D 49 4E 53 45 52 54 20 52 45 |.......INSERT RE|
00000A60: 57 4F 55 4E 44 20 43 41 53 53 45 54 54 45 22 3A |WOUND CASSETTE":|
00000A70: 99 22 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 3A 8D 34 34 |."........";:.44|
00000A80: 30 30 00 99 12 8E 13 9F 31 2C 31 2C 32 2C 22 52 |00......1,1,2,"R|
00000A90: 41 43 45 20 46 49 4C 45 22 00 B9 12 90 13 58 24 |ACE FILE".....X$|
00000AA0: B2 22 53 41 56 49 4E 47 20 52 41 43 45 20 44 41 |."SAVING RACE DA|
00000AB0: 54 41 22 3A 8D 36 36 30 30 00 CF 12 9C 13 81 52 |TA":.6600......R|
00000AC0: B2 31 A4 36 3A 98 31 2C 52 24 28 52 29 3A 82 00 |.1.6:.1,R$(R):..|
00000AD0: DA 12 A1 13 98 31 2C 48 4E 24 00 02 13 A6 13 81 |.....1,HN$......|
00000AE0: 48 44 B2 31 A4 48 4E 3A 81 48 B2 31 A4 31 35 3A |HD.1.HN:.H.1.15:|
00000AF0: 98 31 2C 48 24 28 48 44 2C 48 29 3A 82 3A 82 3A |.1,H$(HD,H):.:.:|
00000B00: A0 31 00 29 13 AB 13 58 24 B2 22 52 41 43 45 20 |.1.)...X$."RACE |
00000B10: 44 41 54 41 20 57 52 49 54 54 45 4E 22 3A 8D 36 |DATA WRITTEN":.6|
00000B20: 36 30 30 3A 89 34 32 30 30 00 5D 13 EC 13 8D 37 |600:.4200.]....7|
00000B30: 38 3A 8D 31 30 30 3A 8D 37 38 3A 99 22 1D 1D 1D |8:.100:.78:."...|
00000B40: 1D 1D 1D 1D 1D 49 4E 53 45 52 54 20 43 4F 52 52 |.....INSERT CORR|
00000B50: 45 43 54 20 43 41 53 53 45 54 54 45 22 00 74 13 |ECT CASSETTE".t.|
00000B60: EE 13 99 22 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 3A 8D |..."........";:.|
00000B70: 34 34 30 30 00 8B 13 F1 13 9F 31 2C 31 2C 30 2C |4400......1,1,0,|
00000B80: 22 52 41 43 45 20 46 49 4C 45 22 00 AC 13 FB 13 |"RACE FILE".....|
00000B90: 81 52 B2 31 A4 36 3A 84 31 2C 52 24 28 52 29 3A |.R.1.6:.1,R$(R):|
00000BA0: 82 3A 99 22 93 22 3A 8D 35 32 35 30 00 DD 13 05 |.:.".":.5250....|
00000BB0: 14 8D 38 34 3A 85 22 12 49 53 20 54 48 49 53 20 |..84:.".IS THIS |
00000BC0: 54 48 45 20 52 41 43 45 20 52 45 51 55 49 52 45 |THE RACE REQUIRE|
00000BD0: 44 92 20 28 59 2D 4E 29 20 22 3B 59 24 00 FE 13 |D. (Y-N) ";Y$...|
00000BE0: 0A 14 8B 59 24 B2 22 4E 22 A7 A0 31 3A 8D 38 31 |...Y$."N"..1:.81|
00000BF0: 31 30 3A 8D 38 31 39 30 3A 89 35 31 30 30 00 15 |10:.8190:.5100..|
00000C00: 14 0F 14 8B 59 24 B3 B1 22 59 22 A7 8D 36 34 3A |....Y$.."Y"..64:|
00000C10: 89 35 31 32 35 00 54 14 1E 14 8D 36 34 3A 58 24 |.5125.T....64:X$|
00000C20: B2 22 9D 9D 9D 9D 9D 9D 9D 9D 9D 4C 4F 41 44 49 |.".........LOADI|
00000C30: 4E 47 20 52 41 43 45 20 46 49 4C 45 22 3A 8D 36 |NG RACE FILE":.6|
00000C40: 36 30 30 3A 84 31 2C 48 4E 24 3A 48 4E B2 C5 28 |600:.1,HN$:HN..(|
00000C50: 48 4E 24 29 00 7C 14 20 14 81 48 44 B2 31 A4 48 |HN$).|. ..HD.1.H|
00000C60: 4E 3A 81 48 B2 31 A4 31 35 3A 84 31 2C 48 24 28 |N:.H.1.15:.1,H$(|
00000C70: 48 44 2C 48 29 3A 82 3A 82 3A A0 31 00 86 14 23 |HD,H):.:.:.1...#|
00000C80: 14 89 34 32 30 30 00 B0 14 82 14 99 22 11 31 2E |..4200......".1.|
00000C90: 20 52 41 43 45 43 4F 55 52 53 45 20 20 20 20 20 | RACECOURSE |
00000CA0: 20 20 20 20 20 20 20 3A 20 22 3B 52 24 28 31 29 | : ";R$(1)|
00000CB0: 00 DA 14 96 14 99 22 11 32 2E 20 44 41 54 45 20 |......".2. DATE |
00000CC0: 4F 46 20 52 41 43 45 20 20 20 20 20 20 20 20 20 |OF RACE |
00000CD0: 20 3A 20 22 3B 52 24 28 36 29 00 04 15 9B 14 99 | : ";R$(6)......|
00000CE0: 22 11 33 2E 20 54 49 4D 45 20 4F 46 20 52 41 43 |".3. TIME OF RAC|
00000CF0: 45 20 20 20 20 20 20 20 20 20 20 3A 20 22 3B 52 |E : ";R|
00000D00: 24 28 32 29 00 2E 15 9D 14 99 22 11 34 2E 20 50 |$(2)......".4. P|
00000D10: 52 49 5A 45 20 4D 4F 4E 45 59 20 20 20 20 20 20 |RIZE MONEY |
00000D20: 20 20 20 20 20 3A 20 22 3B 52 24 28 33 29 00 5A | : ";R$(3).Z|
00000D30: 15 A0 14 99 22 11 35 2E 20 52 41 43 45 20 44 49 |....".5. RACE DI|
00000D40: 53 54 41 4E 43 45 20 28 46 55 52 2E 29 20 20 3A |STANCE (FUR.) :|
00000D50: 20 22 3B 52 24 28 34 29 3A 8E 00 8A 15 B4 14 8D | ";R$(4):.......|
00000D60: 38 38 3A 85 22 12 41 4E 59 20 43 4F 52 52 45 43 |88:.".ANY CORREC|
00000D70: 54 49 4F 4E 53 20 28 59 2D 4E 29 92 22 3B 59 24 |TIONS (Y-N).";Y$|
00000D80: 3A 8B 59 24 B2 22 4E 22 A7 8E 00 A1 15 C8 14 8B |:.Y$."N"........|
00000D90: 59 24 B3 B1 22 59 22 A7 8D 36 38 3A 89 35 33 30 |Y$.."Y"..68:.530|
00000DA0: 30 00 DA 15 D2 14 8D 36 38 3A 8D 38 38 3A 85 22 |0......68:.88:."|
00000DB0: 12 57 48 49 43 48 20 4C 49 4E 45 20 4E 4F 2E 92 |.WHICH LINE NO..|
00000DC0: 22 3B 59 31 24 3A 59 31 B2 C5 28 59 31 24 29 3A |";Y1$:Y1..(Y1$):|
00000DD0: 8B 59 31 B3 30 89 35 33 33 36 00 FB 15 D6 14 91 |.Y1.0.5336......|
00000DE0: 59 31 8D 35 33 34 35 2C 35 33 35 30 2C 35 33 36 |Y1.5345,5350,536|
00000DF0: 30 2C 35 33 36 35 2C 35 33 37 30 00 0F 16 D8 14 |0,5365,5370.....|
00000E00: 8B 59 31 B1 35 A7 8D 36 38 3A 89 35 33 33 30 00 |.Y1.5..68:.5330.|
00000E10: 19 16 DC 14 89 35 33 30 30 00 35 16 E1 14 99 22 |.....5300.5...."|
00000E20: 13 11 11 11 11 22 3B A3 32 33 29 3B 3A 85 52 24 |.....";.23);:.R$|
00000E30: 28 31 29 3A 8E 00 53 16 E6 14 99 22 13 11 11 11 |(1):..S...."....|
00000E40: 11 11 11 22 3B A3 32 33 29 3B 3A 85 52 24 28 36 |...";.23);:.R$(6|
00000E50: 29 3A 8E 00 73 16 F0 14 99 22 13 11 11 11 11 11 |):..s...."......|
00000E60: 11 11 11 22 3B A3 32 33 29 3B 3A 85 52 24 28 32 |...";.23);:.R$(2|
00000E70: 29 3A 8E 00 AE 16 F5 14 99 22 13 11 11 11 11 11 |):......."......|
00000E80: 11 11 11 11 11 22 3B A3 32 33 29 3B 3A 85 52 24 |.....";.23);:.R$|
00000E90: 28 33 29 3A 43 24 B2 52 24 28 33 29 3A 8D 33 36 |(3):C$.R$(3):.36|
00000EA0: 30 30 3A 52 24 28 35 29 B2 43 31 24 3A 8E 00 D2 |00:R$(5).C1$:...|
00000EB0: 16 FA 14 99 22 13 11 11 11 11 11 11 11 11 11 11 |...."...........|
00000EC0: 11 11 22 3B A3 32 33 29 3B 3A 85 52 24 28 34 29 |..";.23);:.R$(4)|
00000ED0: 3A 8E 00 04 17 22 15 99 22 11 20 31 2E 20 4E 41 |:...."..". 1. NA|
00000EE0: 4D 45 20 4F 46 20 48 4F 52 53 45 20 20 20 20 20 |ME OF HORSE |
00000EF0: 20 3A 20 22 3B 22 12 22 3B 48 24 28 48 2C 31 29 | : ";".";H$(H,1)|
00000F00: 3B 22 92 22 00 2A 17 2C 15 99 22 11 4C 41 53 54 |;".".*.,..".LAST|
00000F10: 20 34 20 52 45 53 55 4C 54 53 20 28 30 20 4E 4F | 4 RESULTS (0 NO|
00000F20: 54 20 50 4C 41 43 45 44 29 22 00 59 17 36 15 99 |T PLACED)".Y.6..|
00000F30: 22 20 32 2E 20 4C 41 53 54 20 20 20 20 20 20 20 |" 2. LAST |
00000F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 | : |
00000F50: 22 3B 48 24 28 48 2C 32 29 00 88 17 40 15 99 22 |";H$(H,2)...@.."|
00000F60: 20 33 2E 20 4C 41 53 54 20 42 55 54 20 4F 4E 45 | 3. LAST BUT ONE|
00000F70: 20 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 22 | : "|
00000F80: 3B 48 24 28 48 2C 33 29 00 B7 17 4A 15 99 22 20 |;H$(H,3)...J.." |
00000F90: 34 2E 20 4C 41 53 54 20 42 55 54 20 54 57 4F 20 |4. LAST BUT TWO |
00000FA0: 20 20 20 20 20 20 20 20 20 20 20 20 3A 20 22 3B | : ";|
00000FB0: 48 24 28 48 2C 34 29 00 E6 17 54 15 99 22 20 35 |H$(H,4)...T.." 5|
00000FC0: 2E 20 4C 41 53 54 20 42 55 54 20 54 48 52 45 45 |. LAST BUT THREE|
00000FD0: 20 20 20 20 20 20 20 20 20 20 20 3A 20 22 3B 48 | : ";H|
00000FE0: 24 28 48 2C 35 29 00 16 18 5E 15 99 22 11 20 36 |$(H,5)...^..". 6|
00000FF0: 2E 20 57 45 49 47 48 54 20 41 44 4A 2E 52 41 54 |. WEIGHT ADJ.RAT|
00001000: 45 2E 20 20 20 20 20 20 20 20 20 3A 20 22 3B 48 |E. : ";H|
00001010: 24 28 48 2C 36 29 00 45 18 68 15 99 22 20 37 2E |$(H,6).E.h.." 7.|
00001020: 20 53 50 45 45 44 20 46 49 47 55 52 45 53 20 20 | SPEED FIGURES |
00001030: 20 20 20 20 20 20 20 20 20 20 3A 20 22 3B 48 24 | : ";H$|
00001040: 28 48 2C 37 29 00 74 18 72 15 99 22 20 38 2E 20 |(H,7).t.r.." 8. |
00001050: 47 52 4F 55 50 20 4C 41 53 54 20 52 41 43 45 20 |GROUP LAST RACE |
00001060: 20 20 20 20 20 20 20 20 20 3A 20 22 3B 48 24 28 | : ";H$(|
00001070: 48 2C 38 29 00 9C 18 7A 15 99 22 11 44 49 53 54 |H,8)...z..".DIST|
00001080: 41 4E 43 45 53 20 49 4E 20 46 55 52 4C 4F 4E 47 |ANCES IN FURLONG|
00001090: 53 3A 2D 20 20 20 20 20 20 3A 20 22 00 CB 18 7C |S:- : "...||
000010A0: 15 99 22 20 39 2E 20 4C 41 53 54 20 52 41 43 45 |.." 9. LAST RACE|
000010B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010C0: 3A 20 22 3B 48 24 28 48 2C 39 29 00 FB 18 86 15 |: ";H$(H,9).....|
000010D0: 99 22 31 30 2E 20 4C 41 53 54 20 42 55 54 20 4F |."10. LAST BUT O|
000010E0: 4E 45 20 20 20 20 20 20 20 20 20 20 20 20 20 3A |NE :|
000010F0: 20 22 3B 48 24 28 48 2C 31 30 29 00 2C 19 90 15 | ";H$(H,10).,...|
00001100: 99 22 11 31 31 2E 20 57 45 49 47 48 54 20 54 48 |.".11. WEIGHT TH|
00001110: 49 53 20 52 41 43 45 20 20 20 20 20 20 20 20 20 |IS RACE |
00001120: 3A 20 22 3B 48 24 28 48 2C 31 32 29 00 5C 19 9A |: ";H$(H,12).\..|
00001130: 15 99 22 31 32 2E 20 57 45 49 47 48 54 20 4C 41 |.."12. WEIGHT LA|
00001140: 53 54 20 52 41 43 45 20 20 20 20 20 20 20 20 20 |ST RACE |
00001150: 3A 20 22 3B 48 24 28 48 2C 31 31 29 00 8E 19 A4 |: ";H$(H,11)....|
00001160: 15 99 22 31 33 2E 20 54 4F 50 20 33 20 4F 46 20 |.."13. TOP 3 OF |
00001170: 4F 46 20 42 45 54 54 49 4E 47 20 28 59 2D 4E 29 |OF BETTING (Y-N)|
00001180: 3A 20 22 3B 48 24 28 48 2C 31 35 29 3A 8E 00 BE |: ";H$(H,15):...|
00001190: 19 A9 15 8D 39 31 3A 85 22 12 41 4E 59 20 43 4F |....91:.".ANY CO|
000011A0: 52 52 45 43 54 49 4F 4E 53 20 28 59 2D 4E 29 92 |RRECTIONS (Y-N).|
000011B0: 22 3B 59 24 3A 8B 59 24 B2 22 4E 22 A7 8E 00 D5 |";Y$:.Y$."N"....|
000011C0: 19 B3 15 8B 59 24 B3 B1 22 59 22 A7 8D 37 31 3A |....Y$.."Y"..71:|
000011D0: 89 35 35 34 35 00 0E 1A B8 15 8D 37 31 3A 8D 39 |.5545......71:.9|
000011E0: 31 3A 85 22 12 57 48 49 43 48 20 4C 49 4E 45 20 |1:.".WHICH LINE |
000011F0: 4E 4F 2E 92 22 3B 59 31 24 3A 59 31 B2 C5 28 59 |NO..";Y1$:Y1..(Y|
00001200: 31 24 29 3A 8B 59 31 B3 30 A7 35 35 36 33 00 57 |1$):.Y1.0.5563.W|
00001210: 1A B9 15 91 59 31 8D 35 35 36 35 2C 35 35 37 30 |....Y1.5565,5570|
00001220: 2C 35 35 37 35 2C 35 35 38 30 2C 35 35 38 35 2C |,5575,5580,5585,|
00001230: 35 35 39 30 2C 35 35 39 35 2C 35 36 30 30 2C 35 |5590,5595,5600,5|
00001240: 36 30 35 2C 35 36 31 30 2C 35 36 31 35 2C 35 36 |605,5610,5615,56|
00001250: 32 30 2C 35 36 32 35 00 6C 1A BB 15 8B 59 31 B1 |20,5625.l....Y1.|
00001260: 31 33 A7 8D 37 31 3A 89 35 35 36 30 00 76 1A BC |13..71:.5560.v..|
00001270: 15 89 35 35 34 35 00 8C 1A BD 15 99 22 13 11 11 |..5545......"...|
00001280: 22 3B A3 31 37 29 3B 3A 85 48 43 24 00 B2 1A BE |";.17);:.HC$....|
00001290: 15 8B C3 28 48 43 24 29 B1 31 38 A7 99 22 13 11 |...(HC$).18.."..|
000012A0: 11 22 3B A3 31 37 29 3B 4C 4E 24 3B 3A 89 35 35 |.";.17);LN$;:.55|
000012B0: 36 35 00 C4 1A BF 15 48 24 28 48 2C 31 29 B2 48 |65.....H$(H,1).H|
000012C0: 43 24 3A 8E 00 F1 1A C2 15 99 22 13 11 11 11 11 |C$:.......".....|
000012D0: 11 22 3B A3 33 31 29 3B 3A 85 48 43 24 3A 8D 34 |.";.31);:.HC$:.4|
000012E0: 35 30 30 3A 48 24 28 48 2C 32 29 B2 48 43 24 3A |500:H$(H,2).HC$:|
000012F0: 8E 00 1F 1B C7 15 99 22 13 11 11 11 11 11 11 22 |......."......."|
00001300: 3B A3 33 31 29 3B 3A 85 48 43 24 3A 8D 34 35 30 |;.31);:.HC$:.450|
00001310: 30 3A 48 24 28 48 2C 33 29 B2 48 43 24 3A 8E 00 |0:H$(H,3).HC$:..|
00001320: 4E 1B CC 15 99 22 13 11 11 11 11 11 11 11 22 3B |N...."........";|
00001330: A3 33 31 29 3B 3A 85 48 43 24 3A 8D 34 35 30 30 |.31);:.HC$:.4500|
00001340: 3A 48 24 28 48 2C 34 29 B2 48 43 24 3A 8E 00 7E |:H$(H,4).HC$:..~|
00001350: 1B D1 15 99 22 13 11 11 11 11 11 11 11 11 22 3B |....".........";|
00001360: A3 33 31 29 3B 3A 85 48 43 24 3A 8D 34 35 30 30 |.31);:.HC$:.4500|
00001370: 3A 48 24 28 48 2C 35 29 B2 48 43 24 3A 8E 00 BB |:H$(H,5).HC$:...|
00001380: 1B D6 15 99 22 13 11 11 11 11 11 11 11 11 11 11 |...."...........|
00001390: 22 3B A3 33 31 29 3B 3A 85 48 24 28 48 2C 36 29 |";.31);:.H$(H,6)|
000013A0: 3A 8B C5 28 48 24 28 48 2C 36 29 29 B2 30 A7 48 |:..(H$(H,6)).0.H|
000013B0: 24 28 48 2C 36 29 B2 22 39 39 22 00 C1 1B D7 15 |$(H,6)."99".....|
000013C0: 8E 00 FE 1B DB 15 99 22 13 11 11 11 11 11 11 11 |......."........|
000013D0: 11 11 11 11 22 3B A3 33 31 29 3B 3A 85 48 24 28 |....";.31);:.H$(|
000013E0: 48 2C 37 29 3A 8B C5 28 48 24 28 48 2C 37 29 29 |H,7):..(H$(H,7))|
000013F0: B2 30 A7 48 24 28 48 2C 37 29 B2 22 30 22 00 04 |.0.H$(H,7)."0"..|
00001400: 1C DC 15 8E 00 33 1C E0 15 99 22 13 11 11 11 11 |.....3....".....|
00001410: 11 11 11 11 11 11 11 11 22 3B A3 33 31 29 3B 3A |........";.31);:|
00001420: 85 43 24 3A 8B C5 28 43 24 29 B2 30 A7 43 24 B2 |.C$:..(C$).0.C$.|
00001430: 22 30 22 00 57 1C E1 15 8D 33 36 30 30 3A 48 24 |"0".W....3600:H$|
00001440: 28 48 2C 38 29 B2 43 24 3A 48 24 28 48 2C 31 34 |(H,8).C$:H$(H,14|
00001450: 29 B2 43 31 24 3A 8E 00 7E 1C E5 15 99 22 13 11 |).C1$:..~...."..|
00001460: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3B |..............";|
00001470: A3 33 31 29 3B 3A 85 48 24 28 48 2C 39 29 00 9D |.31);:.H$(H,9)..|
00001480: 1C E6 15 8B C5 28 48 24 28 48 2C 39 29 29 B2 30 |.....(H$(H,9)).0|
00001490: A7 48 24 28 48 2C 39 29 B2 22 39 39 22 00 A3 1C |.H$(H,9)."99"...|
000014A0: E7 15 8E 00 CC 1C EA 15 99 22 13 11 11 11 11 11 |........."......|
000014B0: 11 11 11 11 11 11 11 11 11 11 11 22 3B A3 33 31 |...........";.31|
000014C0: 29 3B 3A 85 48 24 28 48 2C 31 30 29 00 ED 1C EB |);:.H$(H,10)....|
000014D0: 15 8B C5 28 48 24 28 48 2C 31 30 29 29 B2 30 A7 |...(H$(H,10)).0.|
000014E0: 48 24 28 48 2C 31 30 29 B2 22 39 39 22 00 F3 1C |H$(H,10)."99"...|
000014F0: EC 15 8E 00 2D 1D EF 15 99 22 13 11 11 11 11 11 |....-...."......|
00001500: 11 11 11 11 11 11 11 11 11 11 11 11 11 22 3B A3 |.............";.|
00001510: 33 31 29 3B 3A 85 48 43 24 3A 8B C5 28 48 43 24 |31);:.HC$:..(HC$|
00001520: 29 B2 30 A7 48 43 24 B2 22 30 2E 30 22 00 46 1D |).0.HC$."0.0".F.|
00001530: F0 15 8D 34 36 30 30 3A 48 24 28 48 2C 31 32 29 |...4600:H$(H,12)|
00001540: B2 48 43 24 3A 8E 00 81 1D F4 15 99 22 13 11 11 |.HC$:......."...|
00001550: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001560: 11 22 3B A3 33 31 29 3B 3A 85 48 43 24 3A 8B C5 |.";.31);:.HC$:..|
00001570: 28 48 43 24 29 B2 30 A7 48 43 24 B2 22 30 2E 30 |(HC$).0.HC$."0.0|
00001580: 22 00 9A 1D F5 15 8D 34 36 30 30 3A 48 24 28 48 |"......4600:H$(H|
00001590: 2C 31 31 29 B2 48 43 24 3A 8E 00 C2 1D F9 15 99 |,11).HC$:.......|
000015A0: 22 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
000015B0: 11 11 11 11 11 11 22 3B A3 33 31 29 3B 3A 85 48 |......";.31);:.H|
000015C0: 43 24 00 E6 1D FE 15 8B 48 43 24 B2 22 59 22 B0 |C$......HC$."Y".|
000015D0: 48 43 24 B2 22 4E 22 A7 48 24 28 48 2C 31 35 29 |HC$."N".H$(H,15)|
000015E0: B2 48 43 24 3A 8E 00 F0 1D 03 16 89 35 36 32 35 |.HC$:.......5625|
000015F0: 00 1D 1E C8 19 58 31 24 B2 22 13 11 11 11 11 11 |.....X1$."......|
00001600: 11 11 11 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D |................|
00001610: 1D 1D 1D 1D 1D 1D 22 3A 99 58 31 24 3B 00 44 1E |......":.X1$;.D.|
00001620: CD 19 81 58 B2 31 A4 33 3A 99 58 31 24 3B 22 12 |...X.1.3:.X1$;".|
00001630: 22 3B 58 24 3B 22 92 22 3A 81 58 31 B2 31 A4 32 |";X$;".":.X1.1.2|
00001640: 30 30 3A 82 00 60 1E D2 19 99 58 31 24 3B 58 24 |00:..`....X1$;X$|
00001650: 3A 81 58 31 B2 31 A4 32 30 30 3A 82 3A 82 3A 8E |:.X1.1.200:.:.:.|
00001660: 00 8D 1E AE 1F 99 22 93 11 11 11 11 11 20 20 20 |......"...... |
00001670: 20 20 20 20 20 20 20 48 4F 52 53 45 20 52 41 43 | HORSE RAC|
00001680: 49 4E 47 20 46 4F 52 45 43 41 53 54 22 00 93 1E |ING FORECAST"...|
00001690: B0 1F 8E 00 00 00 |...... |
..(....:.H$(40,15),SF%(40),H1%(40),R$(6)
.7....3000,2000.B....C1,C2..-..".":LN$.
"
":.110...@..84:.LN$;:....A..85:.LN$;:..
..D..88:.LN$;:....G..91:.LN$;:..R.N.."..
.......":....O.."..........":....T.."...
............":....U.."................":
..6.X.."...................":..V.[.."...
...................":..K.D..I.1.7:.LN$;:
.:..U.N..8110...X..78:."............1. E
NTER NEW DATA".B...."............2. LOAD
RACE DATA......"............3. END OF P
ROGRAM.!....84:.".............WHICH OPTI
ON .";Y$:Y.E(Y$):.Y.0.170.6. ..Y.230,510
0,3530.C....64:.150.K...X$."INPUT RACE D
ETAILS":.6600:.3820......".":.".INPUT RA
CE DETAILS.:.":.3820......5250:.5345:.53
50:.5360:.5365:.5370.F."..5300...W..68:.
88:.".NUMBER OF RUNNERS. ";HN$:HN.E(HN$)
:.HN.0.375......3800:.".":.H.1.HN.A....5
410:.5570:.5575:.5580:.5585:.5590.O....5
595:.5600:.5605:.5610:.5615:.5620:.5625.
Y....5545......".":.:.4200... .."...RACE
DETAILS. :.":.5250:.5300...*..".":.H.1.
HN:.5410:.5545:.".":.:.4200...4.PC.0:.".
":PC.PC.3...9..".";R$(1);.20);R$(6);.32)
;R$(2);"...".M.>..HD.1.HN:.HD;.5);H$(HD,
1):PC.PC.1:.PC.20.850...H..:.4400:PC.0:.
".":."RUNNERS (CONT'D):.":PC.PC.3...R..:
.:.4400:.4200.J...."..........FORECAST B
EING PREPARED":.3000:.4000.X...PC.0:."."
......".";R$(1);.20);R$(6);.32);R$(2);".
"......:.:PC.PC.3......HD.1.HN:.H$(HD,1)
;.20);.W.F..H$(HD,13)."A".."EXELLENT BET
":.3360.}....H$(HD,13)."E".."ELIMINATE":
.3360... ..:PC.PC.2:.PC.20.3450...H..440
0.L.M..".":PC.0:.R$(1);.20);R$(2);" CONT
'D."...\..:.:PC.PC.3...Z........".REPEAT
FORECAST SUMMARY. (Y-N) ";RF$:.RF$."N".
4200......RF$."Y".3200.A....RF$.."N".350
0._.J..64:X$."GOOD LUCK!":.6600.J.T.."."
:.......E(C$).C1.C1$."3":.3630......E(C$
).C2.C1$."1":.3630...$.C1$."2".......X.X
.."..INPUT NAMES OF RUNNERS.:-."......H.
1.HN......"HORSE ";H;.12);:.HC$.=....C(H
C$).18..".";.12);"
.":.3808.Q...H$(H,1).HC$:.:..{....A
.1.40:H$(A,13)." ":H$(A,14)." ":.:.... .
.SF.1.HN:SF%(SF).E(H$(SF,7)):..F....SF.1
.HN.1:.SF%(SF)..SF%(SF.1).4060.P...SS.SF
.....X%.SF%(SF.1):SF%(SF.1).SF%(SF):SF%(
SF).X%:.SF.1.4050.-.H.SF.SF.1:.SF%(SF).S
F%(SF.1).4030.7.R.SF.SS.?....:..I.H..811
0.P.R..78:.".........1. DISPLAY RUNNERS"
...|..".........2. DISPLAY RACE AND FORM
DATA".V....".........3. RUN FORECAST":.
".........4. SAVE DATA......".........5.
RETURN TO MAIN MENU".8....84:."........
....WHICH OPTION. ";Y$:Y.E(Y$):.Y.0.4270
.S....Y.820,800,900,5000,10.A....64:.425
0...0..".PRESS SPACE TO CONTINUE....";..
.2..PR$:.PR$." ".....4..4402......HC$."0
".4510.L....E(HC$).0.HC$." ".R..........
H(I(HC$,2),1)..".".4620.....HC$.H(HC$,C(
HC$).1)."0".I(HC$,1).1....C(HC$)..2.HC$.
HC$.".00".7.....D....78:.100......78:.".
.......INSERT REWOUND CASSETTE":."......
..";:.4400......1,1,2,"RACE FILE".....X$
."SAVING RACE DATA":.6600.O....R.1.6:.1,
R$(R):..Z....1,HN$......HD.1.HN:.H.1.15:
.1,H$(HD,H):.:.: 1.)...X$."RACE DATA WRI
TTEN":.6600:.4200.]....78:.100:.78:."...
.....INSERT CORRECT CASSETTE".T...."....
....";:.4400......1,1,0,"RACE FILE".....
.R.1.6:.1,R$(R):.:.".":.5250......84:.".
IS THIS THE RACE REQUIRED. (Y-N) ";Y$...
...Y$."N". 1:.8110:.8190:.5100......Y$..
"Y"..64:.5125.T....64:X$.".........LOADI
NG RACE FILE":.6600:.1,HN$:HN.E(HN$).|.
..HD.1.HN:.H.1.15:.1,H$(HD,H):.:.: 1...#
..4200......".1. RACECOURSE :
";R$(1).Z....".2. DATE OF RACE
: ";R$(6)......".3. TIME OF RACE
: ";R$(2)......".4. PRIZE MONEY
: ";R$(3).Z. ..".5. RACE DISTANCE (
FUR.) : ";R$(4):.......88:.".ANY CORREC
TIONS (Y-N).";Y$:.Y$."N".....H..Y$.."Y".
.68:.5300.Z.R..68:.88:.".WHICH LINE NO..
";Y1$:Y1.E(Y1$):.Y1.0.5336...V..Y1.5345,
5350,5360,5365,5370...X..Y1.5..68:.5330.
.....5300.5....".....";.23);:.R$(1):..S.
...".......";.23);:.R$(6):..S...."......
...";.23);:.R$(2):......."...........";.
23);:.R$(3):C$.R$(3):.3600:R$(5).C1$:..R
....".............";.23);:.R$(4):...."..
". 1. NAME OF HORSE : ";".";H$(H,1)
;".".*.,..".LAST 4 RESULTS (0 NOT PLACED
)".Y.6.." 2. LAST :
";H$(H,2)...@.." 3. LAST BUT ONE
: ";H$(H,3)...J.." 4. LAST BUT TWO
: ";H$(H,4)...T.." 5. LAST B
UT THREE : ";H$(H,5)...^..". 6
. WEIGHT ADJ.RATE. : ";H$(H,6).E
.H.." 7. SPEED FIGURES : ";H$
(H,7).T.R.." 8. GROUP LAST RACE
: ";H$(H,8)...Z..".DISTANCES IN FURLONG
S:- : ".K.|.." 9. LAST RACE
: ";H$(H,9)......"10. LAST BUT O
NE : ";H$(H,10).,....".11. W
EIGHT THIS RACE : ";H$(H,12).\..
.."12. WEIGHT LAST RACE : ";H$(H
,11)......"13. TOP 3 OF OF BETTING (Y-N)
: ";H$(H,15):.......91:.".ANY CORRECTION
S (Y-N).";Y$:.Y$."N"...U....Y$.."Y"..71:
.5545......71:.91:.".WHICH LINE NO..";Y1
$:Y1.E(Y1$):.Y1.0.5563.W....Y1.5565,5570
,5575,5580,5585,5590,5595,5600,5605,5610
,5615,5620,5625.L....Y1.13..71:.5560.V..
..5545......"...";.17);:.HC$......C(HC$)
.18.."...";.17);LN$;:.5565.D...H$(H,1).H
C$:....B.."......";.31);:.HC$:.4500:H$(H
,2).HC$:....G..".......";.31);:.HC$:.450
0:H$(H,3).HC$:..N.L.."........";.31);:.H
C$:.4500:H$(H,4).HC$:..~.Q..".........";
.31);:.HC$:.4500:H$(H,5).HC$:....V.."...
........";.31);:.H$(H,6):.E(H$(H,6)).0.H
$(H,6)."99".A.W........"............";.3
1);:.H$(H,7):.E(H$(H,7)).0.H$(H,7)."0"..
.....3....".............";.31);:.C$:.E(C
$).0.C$."0".W....3600:H$(H,8).C$:H$(H,14
).C1$:..~...."................";.31);:.H
$(H,9)......E(H$(H,9)).0.H$(H,9)."99"...
....L....".................";.31);:.H$(H
,10)......E(H$(H,10)).0.H$(H,10)."99"...
....-...."...................";.31);:.HC
$:.E(HC$).0.HC$."0.0".F....4600:H$(H,12)
.HC$:......."....................";.31);
:.HC$:.E(HC$).0.HC$."0.0"......4600:H$(H
,11).HC$:..B....".....................";
.31);:.HC$......HC$."Y".HC$."N".H$(H,15)
.HC$:.......5625...H.X1$."..............
..............":.X1$;.D.M..X.1.3:.X1$;".
";X$;".":.X1.1.200:..`.R..X1$;X$:.X1.1.2
00:.:.:......."...... HORSE RAC
ING FORECAST".........
> CLICK IMAGE PREVIEW FOR FULL MODAL