TENNIS STAT V1.C
FILE INFORMATION
FILENAME(S): TENNIS STAT V1.C
FILE TYPE(S): PRG
FILE SIZE: 13.6K
FIRST SEEN: 2025-11-30 21:07:09
APPEARS ON: 1 disk(s)
FILE HASH
2da2a105bf37436065fba623d652a57b71f6bd6529188bd5525be124a936580b
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| TPUG MAY 85 C | TENNIS STAT V1.C | PRG | DuncanTwain | 22 | 9 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 09 08 00 00 89 31 30 00 48 08 01 00 81 49 |.......10.H....I|
00000010: B2 36 33 31 A4 36 33 39 3A 87 41 3A 97 49 2C 41 |.631.639:.A:.I,A|
00000020: 3A 82 3A 97 31 39 38 2C 39 3A 83 20 38 30 2C 32 |:.:.198,9:. 80,2|
00000030: 31 30 2C 35 32 2C 35 38 2C 36 37 2C 37 36 2C 32 |10,52,58,67,76,2|
00000040: 30 37 2C 35 32 2C 31 33 00 84 08 02 00 9F 34 2C |07,52,13......4,|
00000050: 34 2C 37 3A 9D 34 3A 99 C7 28 31 34 29 22 20 D4 |4,7:.4:..(14)" .|
00000060: 45 4E 4E 49 53 20 D3 54 41 54 53 20 42 59 20 CD |ENNIS .TATS BY .|
00000070: CA CB 20 35 2F 32 35 2F 38 34 20 22 3B C7 28 31 |.. 5/25/84 ";.(1|
00000080: 35 29 3A 9B 00 9D 08 03 00 9F 31 35 2C 38 2C 31 |5):.......15,8,1|
00000090: 35 3A 8D 20 37 30 30 3A A0 31 35 3A 80 00 C5 08 |5:. 700:.15:....|
000000A0: 05 00 8F 20 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |... ************|
000000B0: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
000000C0: 2A 2A 2A 2A 2A 00 ED 08 06 00 8F 20 54 45 4E 4E |*****...... TENN|
000000D0: 49 53 20 53 54 41 54 49 53 54 49 43 53 20 4D 2E |IS STATISTICS M.|
000000E0: 4A 2E 4B 4F 5A 41 4B 49 45 57 49 43 5A 00 15 09 |J.KOZAKIEWICZ...|
000000F0: 07 00 8F 20 2A 20 20 20 52 45 56 49 53 49 4F 4E |... * REVISION|
00000100: 20 44 41 54 45 20 35 2F 32 36 2F 38 34 20 20 20 | DATE 5/26/84 |
00000110: 20 20 20 20 2A 00 3D 09 08 00 8F 20 2A 2A 2A 2A | *.=.... ****|
00000120: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A |****************|
00000130: 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 2A 00 47 09 |*************.G.|
00000140: 0A 00 8D 20 33 30 30 00 5A 09 C8 00 8F 20 4D 41 |... 300.Z.... MA|
00000150: 49 4E 20 52 4F 55 54 49 4E 45 00 65 09 D2 00 8D |IN ROUTINE.e....|
00000160: 20 36 30 30 30 00 7F 09 DC 00 5A 24 B2 22 22 3A | 6000.....Z$."":|
00000170: A1 5A 24 3A 8B 5A 24 B2 22 22 A7 89 32 32 30 00 |.Z$:.Z$.""..220.|
00000180: B3 09 E6 00 8B 5A 24 B2 C7 28 31 33 33 29 20 A7 |.....Z$..(133) .|
00000190: 49 B2 49 AA 32 30 3A 8D 31 30 30 30 30 3A 8F 20 |I.I.20:.10000:. |
000001A0: 46 31 3D 20 43 52 45 41 54 45 20 4E 45 57 20 46 |F1= CREATE NEW F|
000001B0: 49 4C 45 00 EE 09 EB 00 8B 5A 24 B2 C7 28 31 33 |ILE......Z$..(13|
000001C0: 34 29 20 A7 8D 31 30 30 30 3A 20 20 20 20 20 20 |4) ..1000: |
000001D0: 20 8F 20 46 33 3D 20 44 49 53 50 4C 41 59 20 53 | . F3= DISPLAY S|
000001E0: 54 41 54 53 20 54 4F 20 53 43 52 45 45 4E 00 1E |TATS TO SCREEN..|
000001F0: 0A F0 00 8B 5A 24 B2 C7 28 31 33 35 29 20 A7 8D |....Z$..(135) ..|
00000200: 35 30 30 30 3A 20 20 20 20 20 20 20 8F 20 46 35 |5000: . F5|
00000210: 3D 20 4D 4F 44 49 46 59 20 53 54 41 54 53 00 4B |= MODIFY STATS.K|
00000220: 0A F5 00 8B 5A 24 B2 C7 28 31 33 36 29 20 A7 8D |....Z$..(136) ..|
00000230: 34 30 30 30 3A 20 20 20 20 20 20 20 8F 20 46 37 |4000: . F7|
00000240: 3D 20 53 41 56 45 20 46 49 4C 45 00 78 0A FA 00 |= SAVE FILE.x...|
00000250: 8B 5A 24 B2 C7 28 31 33 37 29 20 A7 8D 34 30 30 |.Z$..(137) ..400|
00000260: 3A 20 20 20 20 20 20 20 20 8F 20 46 32 3D 20 4C |: . F2= L|
00000270: 4F 41 44 20 46 49 4C 45 00 AF 0A FF 00 8B 5A 24 |OAD FILE......Z$|
00000280: B2 C7 28 31 33 38 29 20 A7 8D 32 30 30 30 3A 20 |..(138) ..2000: |
00000290: 20 20 20 20 20 20 8F 20 46 34 3D 20 45 4E 54 45 | . F4= ENTE|
000002A0: 52 20 4D 41 54 43 48 20 52 45 53 55 4C 54 53 00 |R MATCH RESULTS.|
000002B0: E9 0A 04 01 8B 5A 24 B2 C7 28 31 33 39 29 20 A7 |.....Z$..(139) .|
000002C0: 8D 33 30 30 30 3A 20 20 20 20 20 20 20 8F 20 46 |.3000: . F|
000002D0: 36 3D 20 50 52 49 4E 54 20 53 54 41 54 49 53 54 |6= PRINT STATIST|
000002E0: 49 43 53 20 53 48 45 45 54 00 18 0B 09 01 8B 5A |ICS SHEET......Z|
000002F0: 24 B2 C7 28 31 34 30 29 20 A7 8D 38 30 30 30 3A |$..(140) ..8000:|
00000300: 20 20 20 20 20 20 20 8F 20 46 38 3D 20 45 4E 44 | . F8= END|
00000310: 20 50 52 4F 47 52 41 4D 00 56 0B 0E 01 8B 5A 24 | PROGRAM.V....Z$|
00000320: B2 C7 28 31 37 29 20 A7 49 B2 49 AB 31 3A 8D 31 |..(17) .I.I.1:.1|
00000330: 30 30 30 3A 20 20 8F 20 43 55 52 53 4F 52 20 44 |000: . CURSOR D|
00000340: 4F 57 4E 20 46 4F 52 20 44 49 53 50 4C 41 59 20 |OWN FOR DISPLAY |
00000350: 53 43 52 4F 4C 4C 00 92 0B 13 01 8B 5A 24 B2 C7 |SCROLL......Z$..|
00000360: 28 31 34 35 29 A7 49 B2 49 AA 31 3A 8D 31 30 30 |(145).I.I.1:.100|
00000370: 30 3A 20 20 8F 20 43 55 52 53 4F 52 20 55 50 20 |0: . CURSOR UP |
00000380: 46 4F 52 20 44 49 53 50 4C 41 59 20 53 43 52 4F |FOR DISPLAY SCRO|
00000390: 4C 4C 00 D4 0B 18 01 8B 5A 24 B2 C7 28 31 33 29 |LL......Z$..(13)|
000003A0: 20 A7 20 8D 36 30 30 30 3A 20 20 20 20 20 20 20 | . .6000: |
000003B0: 8F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 |. RETURN TO MENU|
000003C0: 20 46 52 4F 4D 20 44 49 53 50 4C 41 59 20 53 43 | FROM DISPLAY SC|
000003D0: 52 45 45 4E 00 DD 0B 2B 01 89 32 32 30 00 F4 0B |REEN...+..220...|
000003E0: 2C 01 8F 20 44 45 46 49 4E 45 20 56 41 52 49 41 |,.. DEFINE VARIA|
000003F0: 42 4C 45 53 00 20 0C 40 01 49 B2 AB 31 39 3A 97 |BLES. .@.I..19:.|
00000400: 35 33 32 38 31 2C 31 32 3A 97 35 33 32 38 30 2C |53281,12:.53280,|
00000410: 30 3A 99 22 90 22 3A 97 35 33 32 37 32 2C 32 33 |0:.".":.53272,23|
00000420: 00 3A 0C 45 01 57 24 B2 22 D7 20 20 20 CC 22 3A |.:.E.W$.". .":|
00000430: 57 32 24 B2 22 D7 20 20 CC 22 00 86 0C 4A 01 52 |W2$.". ."...J.R|
00000440: 24 B2 C7 28 31 33 29 3A 54 41 B2 30 3A 43 24 B2 |$..(13):TA.0:C$.|
00000450: 22 2C 22 3A 42 24 B2 22 20 20 20 20 20 20 20 20 |",":B$." |
00000460: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 42 32 | ":B2|
00000470: 24 B2 42 24 AA 42 24 3A 8F 20 32 30 2C 34 30 20 |$.B$.B$:. 20,40 |
00000480: 42 4C 41 4E 4B 53 00 B8 0C 54 01 42 41 24 B2 22 |BLANKS...T.BA$."|
00000490: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |................|
000004A0: 1D 1D 1D 1D 22 3A 8F 20 32 30 20 43 55 52 53 4F |....":. 20 CURSO|
000004B0: 52 20 52 49 47 48 54 53 00 BE 0C 5E 01 8E 00 CF |R RIGHTS...^....|
000004C0: 0C 90 01 8F 20 4C 4F 41 44 20 46 49 4C 45 53 00 |.... LOAD FILES.|
000004D0: F7 0C 91 01 99 22 93 11 22 3B C8 28 42 24 2C 31 |....."..";.(B$,1|
000004E0: 30 29 3B 22 12 CC 4F 41 44 20 54 45 4E 4E 49 53 |0);"..OAD TENNIS|
000004F0: 20 44 41 54 41 92 22 00 06 0D 92 01 8B 20 4E 54 | DATA."...... NT|
00000500: B2 30 A7 34 30 38 00 41 0D 93 01 4C 44 B2 35 3A |.0.408.A...LD.5:|
00000510: 8D 39 31 30 30 3A 99 22 C1 20 4C 4F 41 44 20 4E |.9100:.". LOAD N|
00000520: 4F 57 20 57 49 4C 4C 20 12 57 49 50 45 20 4F 55 |OW WILL .WIPE OU|
00000530: 54 92 20 43 55 52 52 45 4E 54 20 44 41 54 41 2E |T. CURRENT DATA.|
00000540: 22 00 7B 0D 94 01 99 22 CC 4F 41 44 20 41 20 4E |".{....".OAD A N|
00000550: 45 57 20 4C 45 41 47 55 45 20 46 49 4C 45 3F 20 |EW LEAGUE FILE? |
00000560: 28 59 2F 4E 29 22 3A 8D 39 36 30 3A 8B 20 41 4E |(Y/N)":.960:. AN|
00000570: 24 B2 22 4E 22 20 A7 20 34 39 35 00 99 0D 95 01 |$."N" . 495.....|
00000580: 8B 20 41 4E 24 B3 B1 22 59 22 20 A7 20 8D 20 39 |. AN$.."Y" . . 9|
00000590: 35 30 3A 20 89 20 34 30 31 00 B5 0D 96 01 9C 3A |50: . 401......:|
000005A0: 8D 20 33 30 30 3A 5A 24 B2 C7 28 31 33 37 29 3A |. 300:Z$..(137):|
000005B0: 89 20 32 35 30 00 E1 0D 98 01 8D 39 37 30 3A 4C |. 250......970:L|
000005C0: 44 B2 37 3A 8D 39 31 30 30 3A 85 22 20 C6 49 4C |D.7:.9100:." .IL|
000005D0: 45 20 4E 55 4D 42 45 52 22 3B 46 24 3A 8D 39 38 |E NUMBER";F$:.98|
000005E0: 30 00 F8 0D 99 01 8B 46 24 B2 22 2A 45 4E 44 22 |0......F$."*END"|
000005F0: A7 8D 36 30 30 30 3A 8E 00 13 0E 9A 01 8D 33 30 |..6000:.......30|
00000600: 30 3A A0 20 31 3A A0 20 31 35 3A 9F 31 35 2C 38 |0:. 1:. 15:.15,8|
00000610: 2C 31 35 00 39 0E C2 01 9F 31 2C 38 2C 32 2C 22 |,15.9....1,8,2,"|
00000620: 30 3A 54 45 4E 4E 49 53 20 44 41 54 41 20 22 AA |0:TENNIS DATA ".|
00000630: 46 24 AA 22 2C 53 2C 52 22 00 56 0E C4 01 8D 20 |F$.",S,R".V.... |
00000640: 37 30 35 3A 8B 20 45 31 24 B3 B1 22 30 30 22 20 |705:. E1$.."00" |
00000650: A7 20 89 34 39 36 00 87 0E C7 01 4C 44 B2 31 30 |. .496.....LD.10|
00000660: 3A 8D 39 31 30 30 3A 99 22 12 05 46 4F 55 4E 44 |:.9100:."..FOUND|
00000670: 92 90 22 3B 22 20 20 54 45 4E 4E 49 53 20 44 41 |..";" TENNIS DA|
00000680: 54 41 20 22 3B 46 24 00 BE 0E CC 01 84 31 2C 4C |TA ";F$......1,L|
00000690: 4E 24 2C 4C 54 24 2C 4E 54 2C 4C 43 24 2C 50 4E |N$,LT$,NT,LC$,PN|
000006A0: 24 2C 44 41 24 3A 8D 20 37 30 35 3A 8B 45 31 24 |$,DA$:. 705:.E1$|
000006B0: B3 B1 22 30 30 22 20 A7 20 89 20 34 39 36 00 D1 |.."00" . . 496..|
000006C0: 0E D1 01 8B 20 5A B2 30 20 A7 20 8D 20 39 30 30 |.... Z.0 . . 900|
000006D0: 30 00 DF 0E D6 01 81 49 B2 31 20 A4 20 4E 54 00 |0......I.1 . NT.|
000006E0: 11 0F E0 01 84 31 2C 54 49 24 28 49 29 2C 54 4E |.....1,TI$(I),TN|
000006F0: 28 49 29 2C 54 52 28 49 29 2C 4D 50 28 49 29 2C |(I),TR(I),MP(I),|
00000700: 4D 57 28 49 29 2C 53 50 28 49 29 2C 53 57 28 49 |MW(I),SP(I),SW(I|
00000710: 29 00 2E 0F E1 01 8D 20 37 30 35 3A 8B 20 45 31 |)...... 705:. E1|
00000720: 24 B3 B1 22 30 30 22 20 A7 20 89 34 39 36 00 4D |$.."00" . .496.M|
00000730: 0F E5 01 84 31 2C 47 50 28 49 29 2C 47 57 28 49 |....1,GP(I),GW(I|
00000740: 29 2C 44 57 28 49 29 2C 44 4C 28 49 29 00 6A 0F |),DW(I),DL(I).j.|
00000750: E6 01 8D 20 37 30 35 3A 8B 20 45 31 24 B3 B1 22 |... 705:. E1$.."|
00000760: 30 30 22 20 A7 20 89 34 39 36 00 91 0F E7 01 4A |00" . .496.....J|
00000770: B2 49 3A 8D 20 36 30 35 3A 20 8F 20 43 41 4C 43 |.I:. 605: . CALC|
00000780: 55 4C 41 54 45 20 23 4C 4F 53 54 2C 20 25 57 4F |ULATE #LOST, %WO|
00000790: 4E 00 97 0F EA 01 82 00 A8 0F EE 01 8D 20 35 30 |N............ 50|
000007A0: 30 3A 20 8D 20 38 30 35 00 B3 0F EF 01 8D 20 36 |0: . 805...... 6|
000007B0: 30 30 30 00 C0 0F F0 01 A0 31 3A A0 31 35 3A 8E |000......1:.15:.|
000007C0: 00 0E 10 F4 01 8F 20 2A 20 53 4F 52 54 20 42 59 |...... * SORT BY|
000007D0: 20 25 20 4D 41 54 43 48 45 53 20 57 4F 4E 2E 20 | % MATCHES WON. |
000007E0: 50 52 45 53 45 52 56 45 20 56 41 52 49 41 42 4C |PRESERVE VARIABL|
000007F0: 45 53 20 25 4D 41 54 43 48 45 53 20 57 4F 4E 20 |ES %MATCHES WON |
00000800: 41 4E 44 20 54 45 41 4D 20 49 44 20 42 59 00 39 |AND TEAM ID BY.9|
00000810: 10 F9 01 8F 20 2A 20 43 52 45 41 54 49 4E 47 20 |.... * CREATING |
00000820: 44 55 4D 4D 59 20 56 41 52 49 41 42 4C 45 53 20 |DUMMY VARIABLES |
00000830: 44 31 20 41 4E 44 20 44 32 00 58 10 FE 01 99 C8 |D1 AND D2.X.....|
00000840: 28 42 24 2C 38 29 3B 22 11 1D 1D 1D 1D 1D 12 53 |(B$,8);".......S|
00000850: 4F 52 54 49 4E 47 92 22 00 A0 10 08 02 81 4A B2 |ORTING."......J.|
00000860: 31 20 A4 20 4E 54 3A 20 44 32 28 4A 29 B2 54 4E |1 . NT: D2(J).TN|
00000870: 28 4A 29 3A 20 44 31 28 4A 29 B2 50 4D 28 4A 29 |(J): D1(J).PM(J)|
00000880: 3A 20 82 3A 20 8F 20 53 45 54 20 55 50 20 27 53 |: .: . SET UP 'S|
00000890: 41 43 52 49 46 49 43 49 41 4C 27 20 56 41 52 53 |ACRIFICIAL' VARS|
000008A0: 00 B0 10 0D 02 81 4A B2 31 20 A4 20 4E 54 AB 31 |......J.1 . NT.1|
000008B0: 00 C0 10 12 02 81 4B B2 4A AA 31 20 A4 20 4E 54 |......K.J.1 . NT|
000008C0: 00 D6 10 1C 02 8B 44 31 28 4B 29 B3 44 31 28 4A |......D1(K).D1(J|
000008D0: 29 A7 89 35 37 35 00 EC 10 26 02 4E 31 B2 44 31 |)..575...&.N1.D1|
000008E0: 28 4B 29 3A 4E 32 B2 44 32 28 4B 29 00 08 11 30 |(K):N2.D2(K)...0|
000008F0: 02 44 31 28 4B 29 B2 44 31 28 4A 29 3A 44 32 28 |.D1(K).D1(J):D2(|
00000900: 4B 29 B2 44 32 28 4A 29 00 1E 11 3A 02 44 31 28 |K).D2(J)...:.D1(|
00000910: 4A 29 B2 4E 31 3A 44 32 28 4A 29 B2 4E 32 00 24 |J).N1:D2(J).N2.$|
00000920: 11 3F 02 82 00 2A 11 44 02 82 00 6F 11 49 02 81 |.?...*.D...o.I..|
00000930: 20 49 B2 31 20 A4 20 4E 54 3A 54 52 28 49 29 B2 | I.1 . NT:TR(I).|
00000940: 44 32 28 49 29 3A 82 3A 8F 20 54 52 28 49 29 20 |D2(I):.:. TR(I) |
00000950: 49 53 20 41 20 54 45 41 4D 20 49 44 2C 20 41 4E |IS A TEAM ID, AN|
00000960: 44 20 49 20 49 53 20 54 48 45 20 52 41 4E 4B 00 |D I IS THE RANK.|
00000970: 75 11 57 02 8E 00 C1 11 58 02 8F 20 2A 2A 20 20 |u.W.....X.. ** |
00000980: 20 20 20 20 20 20 43 41 4C 43 55 4C 41 54 45 20 | CALCULATE |
00000990: 52 45 53 54 20 4F 46 20 54 48 45 20 54 45 41 4D |REST OF THE TEAM|
000009A0: 20 56 41 52 49 41 42 4C 45 53 20 28 23 4C 4F 53 | VARIABLES (#LOS|
000009B0: 54 2C 20 25 57 4F 4E 29 20 20 20 20 20 20 20 2A |T, %WON) *|
000009C0: 2A 00 D2 11 5D 02 4E 33 B2 31 30 30 3A 4E 34 B2 |*...].N3.100:N4.|
000009D0: 2E 35 00 0D 12 62 02 8B 20 47 50 28 4A 29 B3 B1 |.5...b.. GP(J)..|
000009E0: 30 20 A7 20 50 47 28 4A 29 B2 B5 28 47 57 28 4A |0 . PG(J)..(GW(J|
000009F0: 29 AD 47 50 28 4A 29 AC 4E 33 AA 4E 34 29 3A 20 |).GP(J).N3.N4): |
00000A00: 8F 20 25 20 47 41 4D 45 53 20 57 4F 4E 00 4A 12 |. % GAMES WON.J.|
00000A10: 6C 02 8B 20 4D 50 28 4A 29 B3 B1 30 20 A7 20 50 |l.. MP(J)..0 . P|
00000A20: 4D 28 4A 29 B2 B5 28 4D 57 28 4A 29 AD 4D 50 28 |M(J)..(MW(J).MP(|
00000A30: 4A 29 AC 4E 33 AA 4E 34 29 3A 20 8F 20 25 20 4D |J).N3.N4): . % M|
00000A40: 41 54 43 48 45 53 20 57 4F 4E 00 84 12 76 02 8B |ATCHES WON...v..|
00000A50: 20 53 50 28 4A 29 B3 B1 30 20 A7 20 50 53 28 4A | SP(J)..0 . PS(J|
00000A60: 29 B2 B5 28 53 57 28 4A 29 AD 53 50 28 4A 29 AC |)..(SW(J).SP(J).|
00000A70: 4E 33 AA 4E 34 29 3A 20 8F 20 25 20 53 45 54 53 |N3.N4): . % SETS|
00000A80: 20 57 4F 4E 00 AA 12 80 02 4D 4C 28 4A 29 B2 4D | WON.....ML(J).M|
00000A90: 50 28 4A 29 AB 4D 57 28 4A 29 3A 20 8F 20 4D 41 |P(J).MW(J): . MA|
00000AA0: 54 43 48 45 53 20 4C 4F 53 54 00 CD 12 8A 02 53 |TCHES LOST.....S|
00000AB0: 4C 28 4A 29 B2 53 50 28 4A 29 AB 53 57 28 4A 29 |L(J).SP(J).SW(J)|
00000AC0: 3A 20 8F 20 53 45 54 53 20 4C 4F 53 54 00 F1 12 |: . SETS LOST...|
00000AD0: 94 02 47 4C 28 4A 29 B2 47 50 28 4A 29 AB 47 57 |..GL(J).GP(J).GW|
00000AE0: 28 4A 29 3A 20 8F 20 47 41 4D 45 53 20 4C 4F 53 |(J): . GAMES LOS|
00000AF0: 54 00 F7 12 9E 02 8E 00 0F 13 BC 02 8F 20 2A 2A |T............ **|
00000B00: 20 44 49 53 4B 20 45 52 52 4F 52 53 20 2A 2A 00 | DISK ERRORS **.|
00000B10: 36 13 C1 02 84 31 35 2C 45 31 24 2C 45 32 24 2C |6....15,E1$,E2$,|
00000B20: 45 33 24 2C 45 34 24 3A 8B 20 45 31 24 B2 22 30 |E3$,E4$:. E1$."0|
00000B30: 30 22 20 A7 20 8E 00 77 13 C6 02 99 22 11 11 22 |0" . ..w....".."|
00000B40: 3B C8 28 42 24 2C 38 29 3B 22 2A 2A 20 C5 D2 D2 |;.(B$,8);"** ...|
00000B50: CF D2 20 2A 2A 22 3A 99 22 11 C4 49 53 4B 20 45 |.. **":."..ISK E|
00000B60: 52 52 4F 52 20 22 3B 45 31 24 3B 22 3A 20 22 3B |RROR ";E1$;": ";|
00000B70: 45 32 24 3B 22 2E 22 00 9A 13 D0 02 99 22 11 D0 |E2$;"."......"..|
00000B80: 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 46 4F |RESS ........ FO|
00000B90: 52 20 4D 45 4E 55 2E 22 3A 8E 00 C3 13 20 03 AC |R MENU.":.... ..|
00000BA0: AC 20 43 4F 4D 50 55 54 45 20 4D 41 54 43 48 2C |. COMPUTE MATCH,|
00000BB0: 20 53 45 54 2C 20 47 41 4D 45 20 A4 54 41 4C 53 | SET, GAME .TALS|
00000BC0: 20 AC AC 00 E6 13 25 03 99 C8 28 42 24 2C 39 29 | .....%...(B$,9)|
00000BD0: 3B 22 11 12 C3 4F 4D 50 55 54 49 4E 47 20 D4 4F |;"...OMPUTING .O|
00000BE0: 54 41 4C 53 92 22 00 FD 13 27 03 81 20 49 B2 31 |TALS."...'.. I.1|
00000BF0: 20 A4 20 38 3A 54 28 49 29 B2 30 3A 82 00 0C 14 | . 8:T(I).0:....|
00000C00: 2A 03 81 20 49 B2 31 20 A4 20 4E 54 00 20 14 34 |*.. I.1 . NT. .4|
00000C10: 03 54 28 31 29 B2 54 28 31 29 AA 44 57 28 49 29 |.T(1).T(1).DW(I)|
00000C20: 00 34 14 3E 03 54 28 32 29 B2 54 28 32 29 AA 44 |.4.>.T(2).T(2).D|
00000C30: 4C 28 49 29 00 48 14 48 03 54 28 33 29 B2 54 28 |L(I).H.H.T(3).T(|
00000C40: 33 29 AA 4D 57 28 49 29 00 5C 14 52 03 54 28 34 |3).MW(I).\.R.T(4|
00000C50: 29 B2 54 28 34 29 AA 4D 4C 28 49 29 00 70 14 5C |).T(4).ML(I).p.\|
00000C60: 03 54 28 35 29 B2 54 28 35 29 AA 53 57 28 49 29 |.T(5).T(5).SW(I)|
00000C70: 00 84 14 66 03 54 28 36 29 B2 54 28 36 29 AA 53 |...f.T(6).T(6).S|
00000C80: 4C 28 49 29 00 98 14 70 03 54 28 37 29 B2 54 28 |L(I)...p.T(7).T(|
00000C90: 37 29 AA 47 57 28 49 29 00 AC 14 7A 03 54 28 38 |7).GW(I)...z.T(8|
00000CA0: 29 B2 54 28 38 29 AA 47 4C 28 49 29 00 B4 14 83 |).T(8).GL(I)....|
00000CB0: 03 82 3A 8E 00 DA 14 84 03 8F 20 44 41 54 41 20 |..:....... DATA |
00000CC0: 45 4E 54 52 59 20 53 55 42 52 4F 55 54 49 4E 45 |ENTRY SUBROUTINE|
00000CD0: 20 46 4F 52 20 41 4C 54 45 52 00 FF 14 89 03 4E | FOR ALTER.....N|
00000CE0: 39 B2 33 3A 89 20 39 31 35 3A 20 8F 20 53 54 52 |9.3:. 915: . STR|
00000CF0: 49 4E 47 20 45 4E 54 52 59 20 50 4F 49 4E 54 00 |ING ENTRY POINT.|
00000D00: 1F 15 8E 03 4E 39 B2 32 3A 20 8F 20 4E 55 4D 45 |....N9.2: . NUME|
00000D10: 52 49 43 20 45 4E 54 52 59 20 50 4F 49 4E 54 00 |RIC ENTRY POINT.|
00000D20: 42 15 93 03 4C 44 B2 31 30 3A 8D 39 31 30 30 3A |B...LD.10:.9100:|
00000D30: 99 42 24 3B 42 24 3B 42 24 3B 42 24 3A 8D 39 31 |.B$;B$;B$;B$:.91|
00000D40: 30 30 00 72 15 98 03 99 50 52 24 3B C8 28 42 24 |00.r....PR$;.(B$|
00000D50: 2C 4E 39 29 3B 41 4E 24 3A 8D 39 31 30 30 3A 99 |,N9);AN$:.9100:.|
00000D60: C8 28 42 41 24 2C C3 28 50 52 24 29 AA 31 29 3B |.(BA$,.(PR$).1);|
00000D70: 3A 8E 00 97 15 B6 03 99 C8 28 42 24 2C 38 29 22 |:........(B$,8)"|
00000D80: 11 12 2A 2A 20 C9 CC CC C5 C7 C1 CC A0 D6 C1 CC |..** ...........|
00000D90: D5 C5 20 2A 2A 92 22 00 B6 15 BB 03 99 C8 28 42 |.. **.".......(B|
00000DA0: 24 2C 31 30 29 22 50 52 45 53 53 20 53 50 41 43 |$,10)"PRESS SPAC|
00000DB0: 45 20 42 41 52 22 00 CB 15 C0 03 A1 41 4E 24 3A |E BAR"......AN$:|
00000DC0: 8B 41 4E 24 B2 22 22 A7 39 36 30 00 D1 15 C5 03 |.AN$."".960.....|
00000DD0: 8E 00 11 16 CA 03 4C 44 B2 31 35 3A 8D 39 31 30 |......LD.15:.910|
00000DE0: 30 3A 99 22 20 12 D4 4F 20 45 58 49 54 20 54 48 |0:." ..O EXIT TH|
00000DF0: 49 53 20 52 4F 55 54 49 4E 45 20 4E 4F 57 20 45 |IS ROUTINE NOW E|
00000E00: 4E 54 45 52 92 20 12 05 2A 45 4E 44 92 90 22 3A |NTER. ..*END..":|
00000E10: 8E 00 30 16 D4 03 4C 44 B2 31 35 3A 8D 39 31 30 |..0...LD.15:.910|
00000E20: 30 3A 99 42 24 3B 42 24 3B 42 24 3B 42 24 3A 8E |0:.B$;B$;B$;B$:.|
00000E30: 00 3E 16 E8 03 8F 20 44 49 53 50 4C 41 59 00 55 |.>.... DISPLAY.U|
00000E40: 16 F2 03 8B 28 49 B3 31 29 B0 28 49 B1 4E 54 29 |....(I.1).(I.NT)|
00000E50: A7 20 49 B2 31 00 6E 16 F7 03 46 24 B2 4C 4E 24 |. I.1.n...F$.LN$|
00000E60: AA 22 20 D3 D4 C1 D4 C9 D3 D4 C9 C3 D3 22 00 86 |." .........."..|
00000E70: 16 FC 03 99 22 93 22 A3 32 30 AB C3 28 46 24 29 |....".".20..(F$)|
00000E80: AD 32 29 3B 46 24 00 B9 16 01 04 99 22 C9 C4 22 |.2);F$......".."|
00000E90: A3 37 29 22 CE 41 4D 45 22 A3 31 34 29 22 CD 41 |.7)".AME".14)".A|
00000EA0: 54 43 48 22 A3 32 31 29 22 D3 45 54 53 22 A3 32 |TCH".21)".ETS".2|
00000EB0: 38 29 22 C7 41 4D 45 53 22 00 DE 16 03 04 99 A3 |8)".AMES".......|
00000EC0: 31 35 29 57 32 24 3B A3 32 31 29 57 32 24 3B A3 |15)W2$;.21)W2$;.|
00000ED0: 32 38 29 22 D7 20 20 20 CC 22 3B 22 9D 22 00 EC |28)". .";"."..|
00000EE0: 16 06 04 81 4B B2 49 A4 49 AA 31 38 00 01 17 10 |....K.I.I.18....|
00000EF0: 04 8B 4B B1 4E 54 A7 99 22 A0 22 3A 89 31 30 39 |..K.NT..".":.109|
00000F00: 30 00 0D 17 15 04 4A B2 54 52 28 4B 29 00 34 17 |0.....J.TR(K).4.|
00000F10: 1A 04 46 32 24 B2 C4 28 4A 29 20 3A 20 4E B2 32 |..F2$..(J) : N.2|
00000F20: 20 3A 8D 20 33 39 31 30 20 3A 20 8F 20 54 45 41 | :. 3910 : . TEA|
00000F30: 4D 20 49 44 00 5F 17 1F 04 46 24 B2 42 33 24 AA |M ID._...F$.B3$.|
00000F40: 22 20 22 AA C8 28 54 49 24 28 4A 29 AA 42 24 2C |" "..(TI$(J).B$,|
00000F50: 31 30 29 20 3A 8F 20 41 44 44 20 4E 41 4D 45 00 |10) :. ADD NAME.|
00000F60: 98 17 24 04 46 32 24 B2 C4 28 4D 57 28 4A 29 29 |..$.F2$..(MW(J))|
00000F70: 3A 4E B2 33 3A 8D 33 39 31 30 3A 46 24 B2 46 24 |:N.3:.3910:F$.F$|
00000F80: AA 42 33 24 3A 20 8F 20 41 44 44 20 44 45 46 41 |.B3$: . ADD DEFA|
00000F90: 55 4C 54 53 20 57 4F 4E 00 CE 17 29 04 46 32 24 |ULTS WON...).F2$|
00000FA0: B2 C4 28 4D 4C 28 4A 29 29 3A 8D 33 39 31 30 3A |..(ML(J)):.3910:|
00000FB0: 46 24 B2 46 24 AA 42 33 24 3A 20 8F 20 41 44 44 |F$.F$.B3$: . ADD|
00000FC0: 20 44 45 46 41 55 4C 54 53 20 4C 4F 53 54 00 02 | DEFAULTS LOST..|
00000FD0: 18 2E 04 46 32 24 B2 C4 28 53 57 28 4A 29 29 3A |...F2$..(SW(J)):|
00000FE0: 8D 33 39 31 30 3A 46 24 B2 46 24 AA 42 33 24 3A |.3910:F$.F$.B3$:|
00000FF0: 20 8F 20 41 44 44 20 4D 41 54 43 48 45 53 20 57 | . ADD MATCHES W|
00001000: 4F 4E 00 37 18 33 04 46 32 24 B2 C4 28 53 4C 28 |ON.7.3.F2$..(SL(|
00001010: 4A 29 29 3A 8D 33 39 31 30 3A 46 24 B2 46 24 AA |J)):.3910:F$.F$.|
00001020: 42 33 24 3A 20 8F 20 41 44 44 20 4D 41 54 43 48 |B3$: . ADD MATCH|
00001030: 45 53 20 4C 4F 53 54 00 6D 18 38 04 46 32 24 B2 |ES LOST.m.8.F2$.|
00001040: C4 28 47 57 28 4A 29 29 3A 4E B2 34 3A 8D 33 39 |.(GW(J)):N.4:.39|
00001050: 31 30 3A 46 24 B2 46 24 AA 42 33 24 3A 20 8F 20 |10:F$.F$.B3$: . |
00001060: 25 20 4D 41 54 43 48 45 53 20 57 4F 4E 00 9A 18 |% MATCHES WON...|
00001070: 3D 04 46 32 24 B2 C4 28 47 4C 28 4A 29 29 3A 8D |=.F2$..(GL(J)):.|
00001080: 33 39 31 30 3A 46 24 B2 46 24 AA 42 33 24 3A 20 |3910:F$.F$.B3$: |
00001090: 8F 20 53 45 54 53 20 57 4F 4E 00 A3 18 3F 04 99 |. SETS WON...?..|
000010A0: 20 46 24 00 A9 18 42 04 82 00 C1 18 43 04 46 24 | F$...B.....C.F$|
000010B0: B2 C8 28 42 24 2C 37 29 AA 22 D4 4F 54 41 4C 53 |..(B$,7).".OTALS|
000010C0: 22 00 E1 18 44 04 81 20 49 B2 33 20 A4 20 38 3A |"...D.. I.3 . 8:|
000010D0: 20 4E B2 33 3A 20 8B 20 49 B1 36 20 A7 20 4E B2 | N.3: . I.6 . N.|
000010E0: 34 00 03 19 45 04 46 32 24 B2 C4 28 54 28 49 29 |4...E.F2$..(T(I)|
000010F0: 29 3A 8D 33 39 31 30 3A 46 24 B2 46 24 AA 42 33 |):.3910:F$.F$.B3|
00001100: 24 3A 82 00 1A 19 46 04 4C 44 B2 33 AA 4E 54 3A |$:....F.LD.3.NT:|
00001110: 8D 39 31 30 30 3A 99 20 46 24 00 44 19 47 04 99 |.9100:. F$.D.G..|
00001120: A3 35 29 22 D0 52 45 53 53 20 12 D2 C5 D4 D5 D2 |.5)".RESS ......|
00001130: CE 92 20 54 4F 20 44 49 53 50 4C 41 59 20 CD 45 |.. TO DISPLAY .E|
00001140: 4E 55 2E 22 00 4A 19 CF 07 8E 00 64 19 D0 07 8F |NU.".J.....d....|
00001150: 20 45 4E 54 45 52 20 4D 41 54 43 48 20 52 45 53 | ENTER MATCH RES|
00001160: 55 4C 54 53 00 86 19 DA 07 99 22 93 22 A3 31 30 |ULTS......".".10|
00001170: 29 22 C5 CE D4 C5 D2 A0 CD C1 D4 C3 C8 A0 D2 C5 |)"..............|
00001180: D3 D5 CC D4 D3 22 00 9A 19 DF 07 8B 20 4D 41 B2 |....."...... MA.|
00001190: 30 20 A7 20 89 20 32 30 33 30 00 B0 19 E4 07 8B |0 . . 2030......|
000011A0: 20 4D 41 B3 B1 4D 42 20 A7 20 89 20 32 30 32 36 | MA..MB . . 2026|
000011B0: 00 EA 19 E9 07 99 22 2A 2A 2A 20 D3 CF D2 D2 D9 |......"*** .....|
000011C0: 2E 20 CE CF A0 CD CF D2 C5 A0 CD C1 D4 C3 C8 C5 |. ..............|
000011D0: D3 A0 CD C1 D9 A0 C2 C5 A0 C1 C4 C4 C5 C4 A0 2A |...............*|
000011E0: 2A 2A 22 3A 89 20 32 39 39 39 00 1A 1A EA 07 99 |**":. 2999......|
000011F0: 3A 99 3A 99 4D 42 3B 22 CD 41 54 43 48 20 52 45 |:.:.MB;".ATCH RE|
00001200: 53 55 4C 54 53 20 48 41 56 45 20 42 45 45 4E 20 |SULTS HAVE BEEN |
00001210: 52 45 43 4F 52 44 45 44 2E 22 00 44 1A EB 07 99 |RECORDED.".D....|
00001220: 4D 41 AB 4D 42 3B 22 4D 4F 52 45 20 43 41 4E 20 |MA.MB;"MORE CAN |
00001230: 42 45 20 52 45 43 4F 52 44 45 44 2E 22 3A 89 20 |BE RECORDED.":. |
00001240: 32 30 34 35 00 69 1A EE 07 4D 41 B2 32 AC 4E 54 |2045.i...MA.2.NT|
00001250: 20 3A 20 8F 20 4C 49 4D 49 54 20 4D 41 54 43 48 | : . LIMIT MATCH|
00001260: 45 53 20 54 4F 20 41 44 44 00 8D 1A F8 07 86 20 |ES TO ADD...... |
00001270: 57 49 28 4D 41 29 2C 4C 4F 28 4D 41 29 2C 57 28 |WI(MA),LO(MA),W(|
00001280: 33 2C 4D 41 29 2C 4C 28 33 2C 4D 41 29 00 A1 1A |3,MA),L(3,MA)...|
00001290: FD 07 8D 39 37 30 3A 4C 44 B2 38 3A 8D 39 31 30 |...970:LD.8:.910|
000012A0: 30 00 E0 1A FE 07 85 22 11 D7 41 53 20 54 48 49 |0......"..AS THI|
000012B0: 53 20 4D 41 54 43 48 20 44 45 46 41 55 4C 54 45 |S MATCH DEFAULTE|
000012C0: 44 20 20 20 4E 9D 9D 9D 22 3B 41 4E 24 3A 8B 20 |D N...";AN$:. |
000012D0: 41 4E 24 B2 22 2A 45 4E 44 22 A7 89 32 31 37 37 |AN$."*END"..2177|
000012E0: 00 09 1B FF 07 4D 42 B2 4D 42 AA 31 3A 8D 39 38 |.....MB.MB.1:.98|
000012F0: 30 3A 8B 20 C8 28 41 4E 24 2C 31 29 B2 22 59 22 |0:. .(AN$,1)."Y"|
00001300: 20 A7 20 89 20 32 32 30 30 00 47 1B 02 08 4C 44 | . . 2200.G...LD|
00001310: B2 39 3A 8D 39 31 30 30 3A 99 22 D7 49 4E 4E 45 |.9:.9100:.".INNE|
00001320: 52 28 55 53 45 20 C9 C4 23 29 20 4F 46 20 4D 41 |R(USE ..#) OF MA|
00001330: 54 43 48 20 20 20 20 20 9D 9D 9D 9D 9D 22 3B 4D |TCH .....";M|
00001340: 42 3B 3A 85 20 4E 31 00 55 1B 07 08 57 49 28 4D |B;:. N1.U...WI(M|
00001350: 42 29 B2 4E 31 00 74 1B 0C 08 85 22 CE 55 4D 42 |B).N1.t....".UMB|
00001360: 45 52 20 4F 46 20 53 45 54 53 20 50 4C 41 59 45 |ER OF SETS PLAYE|
00001370: 44 22 3B 4E 00 80 1B 11 08 81 20 49 B2 31 A4 4E |D";N...... I.1.N|
00001380: 00 BD 1B 16 08 99 22 C7 41 4D 45 53 20 57 4F 4E |......".AMES WON|
00001390: 20 42 59 20 22 3B 54 49 24 28 4E 31 29 3A 99 22 | BY ";TI$(N1):."|
000013A0: 49 4E 20 53 45 54 22 3B 49 3B 3A 85 22 20 20 20 |IN SET";I;:." |
000013B0: 36 9D 9D 9D 22 3B 57 28 49 2C 4D 42 29 00 C3 1B |6...";W(I,MB)...|
000013C0: 1B 08 82 00 02 1C 1D 08 4C 44 B2 39 3A 8D 39 31 |........LD.9:.91|
000013D0: 30 30 3A 81 49 B2 31 A4 32 32 3A 99 42 24 3B 3A |00:.I.1.22:.B$;:|
000013E0: 82 3A 8F 20 42 4C 41 4E 4B 20 4F 55 54 20 41 52 |.:. BLANK OUT AR|
000013F0: 45 41 20 46 4F 52 20 4C 4F 53 45 52 20 49 4E 50 |EA FOR LOSER INP|
00001400: 55 54 00 40 1C 20 08 4C 44 B2 39 3A 8D 39 31 30 |UT.@. .LD.9:.910|
00001410: 30 3A 99 22 CC 4F 53 45 52 20 28 55 53 45 20 C9 |0:.".OSER (USE .|
00001420: C4 23 29 20 4F 46 20 4D 41 54 43 48 20 20 20 20 |.#) OF MATCH |
00001430: 20 9D 9D 9D 9D 9D 22 3B 4D 42 3B 3A 85 20 4E 32 | .....";MB;:. N2|
00001440: 00 4E 1C 25 08 4C 4F 28 4D 42 29 B2 4E 32 00 5A |.N.%.LO(MB).N2.Z|
00001450: 1C 2A 08 81 20 49 B2 31 A4 4E 00 97 1C 2F 08 99 |.*.. I.1.N.../..|
00001460: 22 C7 41 4D 45 53 20 57 4F 4E 20 42 59 20 22 3B |".AMES WON BY ";|
00001470: 54 49 24 28 4E 32 29 3A 99 22 49 4E 20 53 45 54 |TI$(N2):."IN SET|
00001480: 22 3B 49 3B 3A 85 22 20 20 20 36 9D 9D 9D 22 3B |";I;:." 6...";|
00001490: 4C 28 49 2C 4D 42 29 00 9D 1C 34 08 82 00 BA 1C |L(I,MB)...4.....|
000014A0: 39 08 8F 20 2A 2A 20 55 50 44 41 54 45 20 44 41 |9.. ** UPDATE DA|
000014B0: 54 41 20 42 41 53 45 20 2A 2A 00 FE 1C 3E 08 4D |TA BASE **...>.M|
000014C0: 50 28 4E 31 29 B2 4D 50 28 4E 31 29 AA 31 3A 4D |P(N1).MP(N1).1:M|
000014D0: 57 28 4E 31 29 B2 4D 57 28 4E 31 29 AA 31 3A 53 |W(N1).MW(N1).1:S|
000014E0: 50 28 4E 31 29 B2 53 50 28 4E 31 29 AA 4E 3A 53 |P(N1).SP(N1).N:S|
000014F0: 57 28 4E 31 29 B2 53 57 28 4E 31 29 AA 32 00 36 |W(N1).SW(N1).2.6|
00001500: 1D 40 08 4D 50 28 4E 32 29 B2 4D 50 28 4E 32 29 |.@.MP(N2).MP(N2)|
00001510: AA 31 3A 53 50 28 4E 32 29 B2 53 50 28 4E 32 29 |.1:SP(N2).SP(N2)|
00001520: AA 4E 3A 53 57 28 4E 32 29 B2 53 57 28 4E 32 29 |.N:SW(N2).SW(N2)|
00001530: AA 28 4E AB 32 29 00 44 1D 43 08 81 20 49 B2 31 |.(N.2).D.C.. I.1|
00001540: 20 A4 20 33 00 66 1D 48 08 47 50 28 4E 31 29 B2 | . 3.f.H.GP(N1).|
00001550: 57 28 49 2C 4D 42 29 AA 4C 28 49 2C 4D 42 29 AA |W(I,MB).L(I,MB).|
00001560: 47 50 28 4E 31 29 00 88 1D 4A 08 47 50 28 4E 32 |GP(N1)...J.GP(N2|
00001570: 29 B2 57 28 49 2C 4D 42 29 AA 4C 28 49 2C 4D 42 |).W(I,MB).L(I,MB|
00001580: 29 AA 47 50 28 4E 32 29 00 A2 1D 4D 08 47 57 28 |).GP(N2)...M.GW(|
00001590: 4E 31 29 B2 57 28 49 2C 4D 42 29 AA 47 57 28 4E |N1).W(I,MB).GW(N|
000015A0: 31 29 00 BC 1D 4F 08 47 57 28 4E 32 29 B2 4C 28 |1)...O.GW(N2).L(|
000015B0: 49 2C 4D 42 29 AA 47 57 28 4E 32 29 00 C2 1D 50 |I,MB).GW(N2)...P|
000015C0: 08 82 00 E4 1D 51 08 4A B2 4E 31 3A 8D 20 36 30 |.....Q.J.N1:. 60|
000015D0: 35 20 3A 20 8F 20 43 41 4C 43 55 4C 41 54 45 20 |5 : . CALCULATE |
000015E0: 52 45 53 54 00 06 1E 52 08 4A B2 4E 32 3A 8D 20 |REST...R.J.N2:. |
000015F0: 36 30 35 20 3A 20 8F 20 43 41 4C 43 55 4C 41 54 |605 : . CALCULAT|
00001600: 45 20 52 45 53 54 00 3B 1E 5C 08 4C 44 B2 31 37 |E REST.;.\.LD.17|
00001610: 3A 8D 39 31 30 30 3A 85 22 CD 4F 52 45 20 4D 41 |:.9100:.".ORE MA|
00001620: 54 43 48 45 53 20 54 4F 20 52 45 50 4F 52 54 20 |TCHES TO REPORT |
00001630: 20 20 59 9D 9D 9D 22 3B 41 4E 24 00 52 1E 7A 08 | Y...";AN$.R.z.|
00001640: 8B 20 41 4E 24 B2 22 59 22 20 A7 20 89 20 32 30 |. AN$."Y" . . 20|
00001650: 30 30 00 6A 1E 7F 08 8B 20 41 4E 24 B3 B1 22 4E |00.j.... AN$.."N|
00001660: 22 20 A7 20 89 20 32 31 34 30 00 7C 1E 81 08 8D |" . . 2140.|....|
00001670: 20 35 30 30 20 3A 20 8D 20 38 30 35 00 89 1E 84 | 500 : . 805....|
00001680: 08 8D 20 36 30 30 30 3A 8E 00 AD 1E 8E 08 8F 20 |.. 6000:....... |
00001690: 2A 2A 20 44 45 46 41 55 4C 54 45 44 20 4D 41 54 |** DEFAULTED MAT|
000016A0: 43 48 20 52 4F 55 54 49 4E 45 20 2A 2A 00 E1 1E |CH ROUTINE **...|
000016B0: 93 08 8F 20 44 45 46 41 55 4C 54 45 44 20 4D 41 |... DEFAULTED MA|
000016C0: 54 43 48 45 53 20 44 4F 20 4E 4F 54 20 41 46 46 |TCHES DO NOT AFF|
000016D0: 45 43 54 20 54 48 45 20 53 54 41 4E 44 49 4E 47 |ECT THE STANDING|
000016E0: 53 00 1F 1F 98 08 4C 44 B2 39 3A 8D 39 31 30 30 |S.....LD.9:.9100|
000016F0: 3A 99 22 D7 49 4E 4E 45 52 28 55 53 45 20 C9 C4 |:.".INNER(USE ..|
00001700: 23 29 20 4F 46 20 4D 41 54 43 48 20 20 20 20 20 |#) OF MATCH |
00001710: 9D 9D 9D 9D 9D 22 3B 4D 42 3B 3A 85 20 4E 31 00 |.....";MB;:. N1.|
00001720: 2D 1F A2 08 57 49 28 4D 42 29 B2 4E 31 00 6B 1F |-...WI(MB).N1.k.|
00001730: AC 08 4C 44 B2 39 3A 8D 39 31 30 30 3A 99 22 CC |..LD.9:.9100:.".|
00001740: 4F 53 45 52 20 28 55 53 45 20 C9 C4 23 29 20 4F |OSER (USE ..#) O|
00001750: 46 20 4D 41 54 43 48 20 20 20 20 20 9D 9D 9D 9D |F MATCH ....|
00001760: 9D 22 3B 4D 42 3B 3A 85 20 4E 32 00 79 1F B6 08 |.";MB;:. N2.y...|
00001770: 4C 4F 28 4D 42 29 B2 4E 32 00 A3 1F C0 08 44 4C |LO(MB).N2.....DL|
00001780: 28 4E 32 29 B2 44 4C 28 4E 32 29 AA 31 3A 44 57 |(N2).DL(N2).1:DW|
00001790: 28 4E 31 29 B2 44 57 28 4E 31 29 AA 31 3A 89 32 |(N1).DW(N1).1:.2|
000017A0: 31 34 30 00 B0 1F B7 0B 8D 20 36 30 30 30 3A 8E |140...... 6000:.|
000017B0: 00 CA 1F B8 0B 8F 20 50 52 49 4E 54 20 53 55 4D |...... PRINT SUM|
000017C0: 4D 41 52 59 20 53 48 45 45 54 00 F5 1F C2 0B 99 |MARY SHEET......|
000017D0: 22 93 20 22 3A 99 C8 28 42 24 2C 38 29 3B 22 12 |". ":..(B$,8);".|
000017E0: D3 54 41 54 49 53 54 49 43 53 20 D0 52 49 4E 54 |.TATISTICS .RINT|
000017F0: 49 4E 47 92 22 00 29 20 CC 0B 99 22 11 11 D4 48 |ING.".) ..."...H|
00001800: 45 20 44 41 54 45 20 4F 4E 20 52 45 43 4F 52 44 |E DATE ON RECORD|
00001810: 20 49 53 20 22 3B 44 41 24 3A 8D 39 37 30 3A 4C | IS ";DA$:.970:L|
00001820: 44 B2 35 3A 8D 39 31 30 30 00 6B 20 D1 0B 85 22 |D.5:.9100.k ..."|
00001830: 11 C4 4F 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 |..O YOU WANT TO |
00001840: 55 50 44 41 54 45 20 49 54 20 20 20 59 9D 9D 9D |UPDATE IT Y...|
00001850: 22 3B 41 4E 24 3A 8B 20 C8 28 41 4E 24 2C 31 29 |";AN$:. .(AN$,1)|
00001860: B2 22 4E 22 20 A7 20 33 30 34 30 00 82 20 D2 0B |."N" . 3040.. ..|
00001870: 8B 20 41 4E 24 B2 22 2A 45 4E 44 22 A7 20 33 38 |. AN$."*END". 38|
00001880: 30 30 00 AF 20 D3 0B 8D 39 38 30 3A 4C 44 B2 31 |00.. ...980:LD.1|
00001890: 30 3A 8D 39 31 30 30 3A 85 22 11 D4 48 45 20 4E |0:.9100:."..HE N|
000018A0: 45 57 20 44 41 54 45 20 49 53 22 3B 44 41 24 00 |EW DATE IS";DA$.|
000018B0: C8 20 D4 0B 8B 20 44 41 24 B2 22 22 A7 8D 39 35 |. ... DA$.""..95|
000018C0: 30 3A 89 20 33 30 32 37 00 E1 20 D6 0B 8F 20 2A |0:. 3027.. ... *|
000018D0: 2A 20 50 52 49 4E 54 20 48 45 41 44 45 52 20 2A |* PRINT HEADER *|
000018E0: 2A 00 21 21 E0 0B 8D 39 38 30 3A 9F 20 34 2C 34 |*.!!...980:. 4,4|
000018F0: 2C 37 3A 20 46 24 B2 4C 4E 24 AA 22 20 D3 D4 C1 |,7: F$.LN$." ...|
00001900: CE C4 C9 CE C7 D3 22 3A 20 8D 20 33 39 33 30 20 |......": . 3930 |
00001910: 3A 8F 20 50 52 49 4E 54 20 43 45 4E 54 45 52 45 |:. PRINT CENTERE|
00001920: 44 00 43 21 E5 0B 46 24 B2 22 41 53 20 4F 46 20 |D.C!..F$."AS OF |
00001930: 22 AA 44 41 24 3A 8D 20 33 39 33 30 20 3A 98 34 |".DA$:. 3930 :.4|
00001940: 2C 42 24 00 81 21 EA 0B 46 24 B2 C8 28 42 32 24 |,B$..!..F$..(B2$|
00001950: 2C 32 39 29 AA 22 C4 45 46 41 55 4C 54 53 20 20 |,29).".EFAULTS |
00001960: 20 20 CD 41 54 43 48 45 53 22 AA C8 28 42 24 2C | .ATCHES"..(B$,|
00001970: 38 29 AA 22 D3 45 54 53 22 AA C8 28 42 24 2C 38 |8).".ETS"..(B$,8|
00001980: 29 00 BA 21 F4 0B 46 24 B2 46 24 AA 22 C7 41 4D |)..!..F$.F$.".AM|
00001990: 45 53 22 3A 20 98 34 2C 46 24 3A 42 33 24 B2 22 |ES": .4,F$:B3$."|
000019A0: 20 20 20 25 20 20 20 20 22 3A 8F 20 43 4F 4C 2E | % ":. COL.|
000019B0: 20 48 45 41 44 49 4E 47 20 31 00 F8 21 F9 0B 46 | HEADING 1..!..F|
000019C0: 24 B2 C8 28 42 24 2C 35 29 AA 22 C9 C4 22 AA C8 |$..(B$,5).".."..|
000019D0: 28 42 24 2C 39 29 AA 22 CE 41 4D 45 22 AA C8 28 |(B$,9).".AME"..(|
000019E0: 42 24 2C 31 31 29 AA 57 24 AA C8 28 42 24 2C 34 |B$,11).W$..(B$,4|
000019F0: 29 AA 57 24 AA 42 33 24 00 27 22 FE 0B 46 24 B2 |).W$.B3$.'"..F$.|
00001A00: 46 24 AA 57 24 AA 42 33 24 AA 57 24 AA 42 33 24 |F$.W$.B3$.W$.B3$|
00001A10: 3A 98 34 2C 46 24 3A 8F 20 43 4F 4C 2E 20 48 45 |:.4,F$:. COL. HE|
00001A20: 41 44 49 4E 47 20 32 00 32 22 08 0C 8D 20 33 39 |ADING 2.2"... 39|
00001A30: 34 30 00 51 22 12 0C 8F 20 2A 2A 20 50 52 49 4E |40.Q"... ** PRIN|
00001A40: 54 20 54 45 41 4D 20 52 45 53 55 4C 54 53 20 2A |T TEAM RESULTS *|
00001A50: 2A 00 98 22 1C 0C 81 20 4A B2 31 20 A4 20 4E 54 |*.."... J.1 . NT|
00001A60: 3A 49 B2 54 52 28 4A 29 3A 8F 20 2A 2A 20 50 52 |:I.TR(J):. ** PR|
00001A70: 49 4E 54 20 4F 55 54 20 54 45 41 4D 53 20 49 4E |INT OUT TEAMS IN|
00001A80: 20 41 53 43 45 4E 44 49 4E 47 20 52 41 4E 4B 20 | ASCENDING RANK |
00001A90: 4F 52 44 45 52 20 2A 2A 00 C4 22 21 0C 46 32 24 |ORDER **.."!.F2$|
00001AA0: B2 C4 28 54 4E 28 49 29 29 20 3A 20 4E B2 37 20 |..(TN(I)) : N.7 |
00001AB0: 3A 8D 20 33 39 31 30 20 3A 20 8F 20 54 45 41 4D |:. 3910 : . TEAM|
00001AC0: 20 49 44 23 00 EF 22 26 0C 46 24 B2 42 33 24 AA | ID#.."&.F$.B3$.|
00001AD0: 22 20 22 AA C8 28 54 49 24 28 49 29 AA 42 24 2C |" "..(TI$(I).B$,|
00001AE0: 31 39 29 20 3A 8F 20 41 44 44 20 4E 41 4D 45 00 |19) :. ADD NAME.|
00001AF0: 2D 23 2B 0C 46 32 24 B2 C4 28 44 57 28 49 29 29 |-#+.F2$..(DW(I))|
00001B00: 3A 4E B2 33 3A 8D 33 39 31 30 3A 46 24 B2 46 24 |:N.3:.3910:F$.F$|
00001B10: AA 22 20 20 22 AA 42 33 24 3A 20 8F 20 41 44 44 |." ".B3$: . ADD|
00001B20: 20 44 45 46 41 55 4C 54 53 20 57 4F 4E 00 67 23 | DEFAULTS WON.g#|
00001B30: 30 0C 46 32 24 B2 C4 28 44 4C 28 49 29 29 3A 8D |0.F2$..(DL(I)):.|
00001B40: 33 39 31 30 3A 46 24 B2 46 24 AA 22 20 22 AA 42 |3910:F$.F$." ".B|
00001B50: 33 24 3A 20 8F 20 41 44 44 20 44 45 46 41 55 4C |3$: . ADD DEFAUL|
00001B60: 54 53 20 4C 4F 53 54 00 A0 23 35 0C 46 32 24 B2 |TS LOST..#5.F2$.|
00001B70: C4 28 4D 57 28 49 29 29 3A 8D 33 39 31 30 3A 46 |.(MW(I)):.3910:F|
00001B80: 24 B2 46 24 AA 22 20 20 22 AA 42 33 24 3A 20 8F |$.F$." ".B3$: .|
00001B90: 20 41 44 44 20 4D 41 54 43 48 45 53 20 57 4F 4E | ADD MATCHES WON|
00001BA0: 00 D9 23 3A 0C 46 32 24 B2 C4 28 4D 4C 28 49 29 |..#:.F2$..(ML(I)|
00001BB0: 29 3A 8D 33 39 31 30 3A 46 24 B2 46 24 AA 22 20 |):.3910:F$.F$." |
00001BC0: 22 AA 42 33 24 3A 20 8F 20 41 44 44 20 4D 41 54 |".B3$: . ADD MAT|
00001BD0: 43 48 45 53 20 4C 4F 53 54 00 0F 24 3F 0C 46 32 |CHES LOST..$?.F2|
00001BE0: 24 B2 C4 28 50 4D 28 49 29 29 3A 8D 33 39 31 30 |$..(PM(I)):.3910|
00001BF0: 3A 46 24 B2 46 24 AA 22 20 22 AA 42 33 24 3A 20 |:F$.F$." ".B3$: |
00001C00: 8F 20 25 20 4D 41 54 43 48 45 53 20 57 4F 4E 00 |. % MATCHES WON.|
00001C10: 41 24 44 0C 46 32 24 B2 C4 28 53 57 28 49 29 29 |A$D.F2$..(SW(I))|
00001C20: 3A 8D 33 39 31 30 3A 46 24 B2 46 24 AA 22 20 20 |:.3910:F$.F$." |
00001C30: 22 AA 42 33 24 3A 20 8F 20 53 45 54 53 20 57 4F |".B3$: . SETS WO|
00001C40: 4E 00 73 24 49 0C 46 32 24 B2 C4 28 53 4C 28 49 |N.s$I.F2$..(SL(I|
00001C50: 29 29 3A 8D 33 39 31 30 3A 46 24 B2 46 24 AA 22 |)):.3910:F$.F$."|
00001C60: 20 22 AA 42 33 24 3A 20 8F 20 53 45 54 53 20 4C | ".B3$: . SETS L|
00001C70: 4F 53 54 00 A6 24 4E 0C 46 32 24 B2 C4 28 50 53 |OST..$N.F2$..(PS|
00001C80: 28 49 29 29 3A 8D 33 39 31 30 3A 46 24 B2 46 24 |(I)):.3910:F$.F$|
00001C90: AA 22 20 22 AA 42 33 24 3A 20 8F 20 25 20 53 45 |." ".B3$: . % SE|
00001CA0: 54 53 20 57 4F 4E 00 D9 24 53 0C 46 32 24 B2 C4 |TS WON..$S.F2$..|
00001CB0: 28 47 57 28 49 29 29 3A 8D 33 39 31 30 3A 46 24 |(GW(I)):.3910:F$|
00001CC0: B2 46 24 AA 22 20 20 22 AA 42 33 24 3A 20 8F 20 |.F$." ".B3$: . |
00001CD0: 47 41 4D 45 53 20 57 4F 4E 00 0C 25 58 0C 46 32 |GAMES WON..%X.F2|
00001CE0: 24 B2 C4 28 47 4C 28 49 29 29 3A 8D 33 39 31 30 |$..(GL(I)):.3910|
00001CF0: 3A 46 24 B2 46 24 AA 22 20 22 AA 42 33 24 3A 20 |:F$.F$." ".B3$: |
00001D00: 8F 20 47 41 4D 45 53 20 4C 4F 53 54 00 45 25 62 |. GAMES LOST.E%b|
00001D10: 0C 46 32 24 B2 C4 28 50 47 28 49 29 29 3A 8D 33 |.F2$..(PG(I)):.3|
00001D20: 39 31 30 3A 46 24 B2 46 24 AA 22 20 22 AA 42 33 |910:F$.F$." ".B3|
00001D30: 24 3A 98 34 2C 46 24 3A 8F 20 25 20 47 41 4D 45 |$:.4,F$:. % GAME|
00001D40: 53 20 57 4F 4E 00 4B 25 67 0C 82 00 74 25 6C 0C |S WON.K%g...t%l.|
00001D50: 8D 33 39 34 30 3A 46 32 24 B2 22 D4 4F 54 41 4C |.3940:F2$.".OTAL|
00001D60: 53 22 3A 4E B2 32 38 3A 8D 33 39 31 30 3A 46 24 |S":N.28:.3910:F$|
00001D70: B2 42 33 24 00 98 25 6F 0C 46 32 24 B2 C4 28 54 |.B3$..%o.F2$..(T|
00001D80: 28 31 29 29 3A 4E B2 36 3A 8D 33 39 31 30 3A 46 |(1)):N.6:.3910:F|
00001D90: 24 B2 46 24 AA 42 33 24 00 BC 25 71 0C 46 32 24 |$.F$.B3$..%q.F2$|
00001DA0: B2 C4 28 54 28 32 29 29 3A 4E B2 34 3A 8D 33 39 |..(T(2)):N.4:.39|
00001DB0: 31 30 3A 46 24 B2 46 24 AA 42 33 24 00 DC 25 73 |10:F$.F$.B3$..%s|
00001DC0: 0C 81 20 49 B2 33 20 A4 20 38 3A 20 4E B2 34 3A |.. I.3 . 8: N.4:|
00001DD0: 20 8B 20 49 B2 33 20 A7 20 4E B2 35 00 F4 25 76 | . I.3 . N.5..%v|
00001DE0: 0C 8B 20 28 49 B2 35 29 B0 28 49 B2 37 29 20 A7 |.. (I.5).(I.7) .|
00001DF0: 20 4E B2 39 00 1D 26 7B 0C 46 32 24 B2 C4 28 54 | N.9..&{.F2$..(T|
00001E00: 28 49 29 29 3A 8D 20 33 39 31 30 3A 46 24 B2 46 |(I)):. 3910:F$.F|
00001E10: 24 AA 42 33 24 3A 82 3A 98 34 2C 46 24 00 3D 26 |$.B3$:.:.4,F$.=&|
00001E20: 80 0C 8F 20 2A 2A 20 50 52 49 4E 54 20 4D 41 54 |... ** PRINT MAT|
00001E30: 43 48 20 52 45 53 55 4C 54 53 20 2A 2A 00 51 26 |CH RESULTS **.Q&|
00001E40: 85 0C 8B 20 4D 42 B2 30 20 A7 20 89 20 33 33 36 |... MB.0 . . 336|
00001E50: 30 00 61 26 8A 0C 98 34 2C 42 24 3A 98 34 2C 42 |0.a&...4,B$:.4,B|
00001E60: 24 00 9F 26 94 0C 46 24 B2 22 2A 20 2A 20 D2 45 |$..&..F$."* * .E|
00001E70: 43 45 4E 54 4C 59 20 D2 45 50 4F 52 54 45 44 20 |CENTLY .EPORTED |
00001E80: CD 41 54 43 48 20 D2 45 53 55 4C 54 53 20 2A 20 |.ATCH .ESULTS * |
00001E90: 2A 22 3A 8D 20 33 39 33 30 3A 98 34 2C 42 24 00 |*":. 3930:.4,B$.|
00001EA0: C3 26 9E 0C 46 32 24 B2 22 D7 49 4E 4E 45 52 22 |.&..F2$.".INNER"|
00001EB0: 3A 4E B2 31 38 3A 8D 20 33 39 31 30 3A 46 24 B2 |:N.18:. 3910:F$.|
00001EC0: 42 33 24 00 F2 26 A8 0C 46 32 24 B2 22 CC 4F 53 |B3$..&..F2$.".OS|
00001ED0: 45 52 22 3A 4E B2 32 30 3A 8D 20 33 39 31 30 3A |ER":N.20:. 3910:|
00001EE0: 46 24 B2 46 24 AA 42 33 24 AA C8 28 42 24 2C 31 |F$.F$.B3$..(B$,1|
00001EF0: 31 29 00 00 27 B2 0C 81 20 49 B2 31 20 A4 20 33 |1)..'... I.1 . 3|
00001F00: 00 37 27 BC 0C 46 32 24 B2 22 D3 45 54 20 23 22 |.7'..F2$.".ET #"|
00001F10: AA C9 28 C4 28 49 29 2C 31 29 3A 4E B2 37 3A 8D |..(.(I),1):N.7:.|
00001F20: 20 33 39 31 30 3A 46 24 B2 46 24 AA 42 33 24 3A | 3910:F$.F$.B3$:|
00001F30: 82 3A 98 34 2C 46 24 00 42 27 C6 0C 8D 20 33 39 |.:.4,F$.B'... 39|
00001F40: 34 30 00 51 27 D0 0C 81 20 49 B2 31 20 A4 20 4D |40.Q'... I.1 . M|
00001F50: 42 00 90 27 DA 0C 46 24 B2 C8 28 42 24 2C 34 29 |B..'..F$..(B$,4)|
00001F60: AA C8 28 54 49 24 28 57 49 28 49 29 29 AA 42 24 |..(TI$(WI(I)).B$|
00001F70: 2C 32 30 29 AA C8 28 42 24 2C 34 29 AA C8 28 54 |,20)..(B$,4)..(T|
00001F80: 49 24 28 4C 4F 28 49 29 29 AA 42 24 2C 32 30 29 |I$(LO(I)).B$,20)|
00001F90: 00 9E 27 E4 0C 81 20 4B B2 31 20 A4 20 33 00 DD |..'... K.1 . 3..|
00001FA0: 27 EE 0C 8B 20 28 4C 28 4B 2C 49 29 B2 30 29 AF |'... (L(K,I).0).|
00001FB0: 28 57 28 4B 2C 49 29 B2 30 29 20 A7 20 89 20 33 |(W(K,I).0) . . 3|
00001FC0: 33 34 30 3A 20 8F 20 49 46 20 42 4F 54 48 20 47 |340: . IF BOTH G|
00001FD0: 41 4D 45 53 20 30 20 42 52 41 4E 43 48 00 10 28 |AMES 0 BRANCH..(|
00001FE0: F8 0C 46 32 24 B2 C9 28 C4 28 57 28 4B 2C 49 29 |..F2$..(.(W(K,I)|
00001FF0: 29 2C 31 29 AA 43 24 AA C9 28 C4 28 4C 28 4B 2C |),1).C$..(.(L(K,|
00002000: 49 29 29 2C 31 29 3A 4E B2 37 3A 8D 33 39 31 30 |I)),1):N.7:.3910|
00002010: 00 1E 28 02 0D 46 24 B2 46 24 AA 42 33 24 00 2C |..(..F$.F$.B3$.,|
00002020: 28 0C 0D 82 3A 98 34 2C 46 24 3A 82 00 43 28 16 |(...:.4,F$:..C(.|
00002030: 0D 8F 20 2A 2A 20 4E 45 58 54 20 4D 41 54 43 48 |.. ** NEXT MATCH|
00002040: 20 2A 2A 00 86 28 20 0D 99 22 11 D7 48 45 4E 20 | **..( .."..HEN |
00002050: 49 53 20 54 48 45 20 4E 45 58 54 20 CD 41 54 43 |IS THE NEXT .ATC|
00002060: 48 20 D3 43 48 45 44 55 4C 45 44 3F 22 3A 85 22 |H .CHEDULED?":."|
00002070: C4 41 54 45 20 20 20 4E 4F 4E 45 9D 9D 9D 9D 9D |.ATE NONE.....|
00002080: 9D 22 3B 41 4E 24 00 9F 28 2A 0D 8B 20 41 4E 24 |.";AN$..(*.. AN$|
00002090: B2 22 4E 4F 4E 45 22 A7 20 89 20 33 36 30 30 00 |."NONE". . 3600.|
000020A0: D9 28 34 0D 98 34 2C 42 24 3A 98 34 2C 42 24 3A |.(4..4,B$:.4,B$:|
000020B0: 46 24 B2 22 2A 2A 20 CE 45 58 54 20 CD 41 54 43 |F$."** .EXT .ATC|
000020C0: 48 20 C4 41 54 45 20 22 AA 41 4E 24 AA 22 20 2A |H .ATE ".AN$." *|
000020D0: 2A 22 3A 8D 20 33 39 33 30 00 10 29 3E 0D 98 34 |*":. 3930..)>..4|
000020E0: 2C 42 24 3A 85 22 11 CE 55 4D 42 45 52 20 4F 46 |,B$:."..UMBER OF|
000020F0: 20 4D 41 54 43 48 45 53 20 53 43 48 45 44 55 4C | MATCHES SCHEDUL|
00002100: 45 44 22 3B 41 4E 24 3A 4E B2 C5 28 41 4E 24 29 |ED";AN$:N..(AN$)|
00002110: 00 1E 29 48 0D 81 20 49 B2 31 20 A4 20 4E 00 4C |..)H.. I.1 . N.L|
00002120: 29 52 0D 85 22 11 D4 45 41 4D 20 C9 C4 27 53 20 |)R.."..EAM ..'S |
00002130: 46 4F 52 20 41 20 4D 41 54 43 48 20 28 45 47 2E |FOR A MATCH (EG.|
00002140: 20 34 2C 37 29 22 3B 4E 31 2C 4E 32 00 8B 29 5C | 4,7)";N1,N2..)\|
00002150: 0D 85 22 11 CD 41 54 43 48 20 54 49 4D 45 20 28 |.."..ATCH TIME (|
00002160: 4D 55 53 54 20 42 45 20 49 4E 20 51 55 4F 54 45 |MUST BE IN QUOTE|
00002170: 53 29 22 3B 46 39 24 3A 8B 46 39 24 B3 B1 C7 28 |S)";F9$:.F9$...(|
00002180: 31 33 29 A7 41 4E 24 B2 46 39 24 00 A7 29 61 0D |13).AN$.F9$..)a.|
00002190: 46 32 24 B2 54 49 24 28 4E 31 29 3A 4E B2 33 30 |F2$.TI$(N1):N.30|
000021A0: 3A 8D 20 33 39 31 30 00 CB 29 66 0D 46 24 B2 42 |:. 3910..)f.F$.B|
000021B0: 33 24 AA 22 20 56 53 2E 20 22 AA C8 28 54 49 24 |3$." VS. "..(TI$|
000021C0: 28 4E 32 29 AA 42 24 2C 32 30 29 00 E9 29 70 0D |(N2).B$,20)..)p.|
000021D0: 46 24 B2 46 24 AA C8 28 42 24 2C 35 29 AA 41 4E |F$.F$..(B$,5).AN|
000021E0: 24 3A 98 34 2C 46 24 3A 82 00 0C 2A 7A 0D 8F 20 |$:.4,F$:...*z.. |
000021F0: 2A 2A 20 4D 41 54 43 48 20 43 4F 4F 52 44 49 4E |** MATCH COORDIN|
00002200: 41 54 4F 52 20 44 41 54 41 20 2A 2A 00 1C 2A 84 |ATOR DATA **..*.|
00002210: 0D 98 34 2C 42 24 3A 98 34 2C 42 24 00 5D 2A 8E |..4,B$:.4,B$.]*.|
00002220: 0D 46 24 B2 22 C4 49 56 49 53 49 4F 4E 20 C3 4F |.F$.".IVISION .O|
00002230: 4F 52 44 49 4E 41 54 4F 52 3A 20 22 AA 4C 43 24 |ORDINATOR: ".LC$|
00002240: AA C8 28 42 24 2C 35 29 AA 22 D0 48 4F 4E 45 3A |..(B$,5).".HONE:|
00002250: 20 22 AA 50 4E 24 3A 8D 20 33 39 33 30 00 7E 2A | ".PN$:. 3930.~*|
00002260: 98 0D 8F 20 2A 2A 20 4C 45 41 47 55 45 20 53 50 |... ** LEAGUE SP|
00002270: 45 43 49 46 49 43 20 44 41 54 41 20 2A 2A 00 CA |ECIFIC DATA **..|
00002280: 2A A2 0D 98 34 2C 42 24 3A 98 34 2C 42 24 3A 46 |*...4,B$:.4,B$:F|
00002290: 24 B2 22 20 20 31 2E 20 CD 41 54 43 48 20 43 4F |$." 1. .ATCH CO|
000022A0: 4F 52 44 49 4E 41 54 4F 52 20 4D 55 53 54 20 50 |ORDINATOR MUST P|
000022B0: 52 4F 56 49 44 45 20 54 45 4E 4E 49 53 20 42 41 |ROVIDE TENNIS BA|
000022C0: 4C 4C 53 2C 20 53 45 45 20 22 00 15 2B A7 0D 46 |LLS, SEE "..+..F|
000022D0: 24 B2 46 24 AA 22 54 48 41 54 20 50 4C 41 59 45 |$.F$."THAT PLAYE|
000022E0: 52 53 20 41 52 45 20 53 45 54 2C 22 3A 98 34 2C |RS ARE SET,":.4,|
000022F0: 46 24 3A 46 24 B2 22 20 20 20 20 20 41 4E 44 20 |F$:F$." AND |
00002300: 52 45 50 4F 52 54 20 CD 41 54 43 48 20 53 43 4F |REPORT .ATCH SCO|
00002310: 52 45 53 20 22 00 61 2B AC 0D 46 24 B2 46 24 AA |RES ".a+..F$.F$.|
00002320: 22 54 4F 20 54 48 45 20 C4 49 56 49 53 49 4F 4E |"TO THE .IVISION|
00002330: 20 43 4F 4F 52 44 49 4E 41 54 4F 52 2E 22 3A 98 | COORDINATOR.":.|
00002340: 34 2C 46 24 3A 46 24 B2 22 20 20 32 2E 20 D7 49 |4,F$:F$." 2. .I|
00002350: 4E 4E 45 52 20 4F 46 20 41 20 CD 41 54 43 48 20 |NNER OF A .ATCH |
00002360: 22 00 AC 2B B6 0D 46 24 B2 46 24 AA 22 54 48 41 |"..+..F$.F$."THA|
00002370: 54 20 43 41 55 53 45 53 20 41 20 43 48 41 4E 47 |T CAUSES A CHANG|
00002380: 45 20 49 4E 20 54 48 45 20 43 48 41 4C 4C 45 4E |E IN THE CHALLEN|
00002390: 47 45 20 4C 41 44 44 45 52 20 4D 55 53 54 20 52 |GE LADDER MUST R|
000023A0: 45 43 4F 52 44 22 3A 98 34 2C 46 24 00 F7 2B C0 |ECORD":.4,F$..+.|
000023B0: 0D 46 24 B2 22 20 20 20 20 20 52 45 53 55 4C 54 |.F$." RESULT|
000023C0: 53 20 4F 4E 20 54 48 45 20 4C 4F 47 20 53 48 45 |S ON THE LOG SHE|
000023D0: 45 54 20 49 4E 20 54 48 45 20 D7 45 49 4C 41 4E |ET IN THE .EILAN|
000023E0: 44 20 D2 44 2E 20 C3 4C 55 42 48 4F 55 53 45 2E |D .D. .LUBHOUSE.|
000023F0: 22 3A 98 34 2C 46 24 00 46 2C CA 0D 46 24 B2 22 |":.4,F$.F,..F$."|
00002400: 20 20 33 2E 20 C4 45 46 41 55 4C 54 45 44 20 CD | 3. .EFAULTED .|
00002410: 41 54 43 48 45 53 20 41 52 45 20 4E 4F 54 20 55 |ATCHES ARE NOT U|
00002420: 53 45 44 20 49 4E 20 43 41 4C 43 55 4C 41 54 49 |SED IN CALCULATI|
00002430: 4E 47 20 54 48 45 20 D3 54 41 4E 44 49 4E 47 53 |NG THE .TANDINGS|
00002440: 2E 20 C4 45 46 22 00 8F 2C D4 0D 46 24 B2 46 24 |. .EF"..,..F$.F$|
00002450: AA 22 41 55 4C 54 53 20 41 52 45 22 3A 98 34 2C |."AULTS ARE":.4,|
00002460: 46 24 3A 46 24 B2 22 20 20 20 20 20 52 45 46 4C |F$:F$." REFL|
00002470: 45 43 54 45 44 20 4F 4E 4C 59 20 49 4E 20 54 48 |ECTED ONLY IN TH|
00002480: 45 20 C4 45 46 41 55 4C 54 53 20 D7 2F CC 22 00 |E .EFAULTS ./.".|
00002490: AB 2C DE 0D 46 24 B2 46 24 AA 22 20 43 4F 4C 55 |.,..F$.F$." COLU|
000024A0: 4D 4E 53 2E 22 3A 98 34 2C 46 24 00 B2 2C 10 0E |MNS.":.4,F$..,..|
000024B0: A0 34 00 BE 2C D8 0E 8D 36 30 30 30 3A 8E 00 0C |.4..,...6000:...|
000024C0: 2D 3C 0F 8F 20 2A 2A 20 52 49 47 48 54 20 4A 55 |-<.. ** RIGHT JU|
000024D0: 53 54 49 46 59 20 41 20 4E 55 4D 45 52 49 43 41 |STIFY A NUMERICA|
000024E0: 4C 20 53 54 52 49 4E 47 20 28 46 32 24 29 20 49 |L STRING (F2$) I|
000024F0: 4E 20 41 20 46 49 45 4C 44 20 4F 46 20 42 4C 41 |N A FIELD OF BLA|
00002500: 4E 4B 53 20 4E 20 4C 4F 4E 47 20 2A 00 27 2D 46 |NKS N LONG *.'-F|
00002510: 0F 42 33 24 B2 C9 28 C8 28 42 24 2C 4E 29 AA 46 |.B3$..(.(B$,N).F|
00002520: 32 24 2C 4E 29 3A 8E 00 64 2D 50 0F 8F 20 2A 2A |2$,N):..d-P.. **|
00002530: 20 50 52 49 4E 54 2C 20 43 45 4E 54 45 52 45 44 | PRINT, CENTERED|
00002540: 20 49 4E 20 41 20 38 30 20 43 4F 4C 20 46 49 45 | IN A 80 COL FIE|
00002550: 4C 44 2C 20 54 48 45 20 53 54 52 49 4E 47 20 46 |LD, THE STRING F|
00002560: 24 20 2A 2A 00 96 2D 5A 0F 4E B2 C3 28 46 24 29 |$ **..-Z.N..(F$)|
00002570: 3A 42 33 24 B2 C8 28 42 32 24 2C 28 34 30 AB 4E |:B3$..(B2$,(40.N|
00002580: AD 32 29 29 3A 46 24 B2 42 33 24 AA 46 24 3A 98 |.2)):F$.B3$.F$:.|
00002590: 34 2C 46 24 3A 8E 00 D0 2D 64 0F 46 24 B2 22 B7 |4,F$:...-d.F$.".|
000025A0: 22 3A 81 20 49 B2 31 A4 36 3A 46 24 B2 46 24 AA |":. I.1.6:F$.F$.|
000025B0: 46 24 3A 82 3A 46 24 B2 22 20 20 22 AA 46 24 AA |F$:.:F$." ".F$.|
000025C0: C8 28 46 24 2C 31 32 29 3A 98 34 2C 46 24 3A 8E |.(F$,12):.4,F$:.|
000025D0: 00 E0 2D A0 0F 8F 20 53 41 56 45 20 46 49 4C 45 |..-... SAVE FILE|
000025E0: 00 18 2E AA 0F 99 22 93 22 3A 99 C8 28 42 24 2C |......".":..(B$,|
000025F0: 31 30 29 3B 22 12 D3 41 56 45 20 54 45 4E 4E 49 |10);"..AVE TENNI|
00002600: 53 20 44 41 54 41 92 22 3A 8D 39 37 30 3A 4C 44 |S DATA.":.970:LD|
00002610: B2 34 3A 8D 39 31 30 30 00 2F 2E B4 0F 85 22 20 |.4:.9100./...." |
00002620: C6 49 4C 45 20 4E 55 4D 42 45 52 22 3B 46 24 00 |.ILE NUMBER";F$.|
00002630: 3B 2E B9 0F 4E B2 C5 28 46 24 29 00 52 2E BE 0F |;...N..(F$).R...|
00002640: 8B 46 24 B2 22 2A 45 4E 44 22 A7 8D 36 30 30 30 |.F$."*END"..6000|
00002650: 3A 8E 00 69 2E C8 0F 8D 39 38 30 3A A0 20 31 35 |:..i....980:. 15|
00002660: 3A 9F 31 35 2C 38 2C 31 35 00 94 2E D2 0F A0 20 |:.15,8,15...... |
00002670: 31 3A 20 9F 31 2C 38 2C 32 2C 22 30 3A 54 45 4E |1: .1,8,2,"0:TEN|
00002680: 4E 49 53 20 44 41 54 41 20 22 AA 46 24 AA 22 2C |NIS DATA ".F$.",|
00002690: 53 2C 57 22 00 B2 2E D7 0F 8D 20 37 30 35 3A 8B |S,W"...... 705:.|
000026A0: 20 45 31 24 B3 B1 22 30 30 22 20 A7 20 89 34 39 | E1$.."00" . .49|
000026B0: 39 39 00 DF 2E DC 0F 98 31 2C 4C 4E 24 3B 43 24 |99......1,LN$;C$|
000026C0: 3B 4C 54 24 3B 43 24 3B 4E 54 3B 43 24 3B 4C 43 |;LT$;C$;NT;C$;LC|
000026D0: 24 3B 43 24 3B 50 4E 24 3B 43 24 3B 44 41 24 00 |$;C$;PN$;C$;DA$.|
000026E0: FD 2E E1 0F 8D 20 37 30 35 3A 8B 20 45 31 24 B3 |..... 705:. E1$.|
000026F0: B1 22 30 30 22 20 A7 20 89 34 39 39 39 00 0B 2F |."00" . .4999../|
00002700: E6 0F 81 49 B2 31 20 A4 20 4E 54 00 4F 2F F0 0F |...I.1 . NT.O/..|
00002710: 98 31 2C 54 49 24 28 49 29 3B 43 24 3B 54 4E 28 |.1,TI$(I);C$;TN(|
00002720: 49 29 3B 43 24 3B 54 52 28 49 29 3B 43 24 3B 4D |I);C$;TR(I);C$;M|
00002730: 50 28 49 29 3B 43 24 3B 4D 57 28 49 29 3B 43 24 |P(I);C$;MW(I);C$|
00002740: 3B 53 50 28 49 29 3B 43 24 3B 53 57 28 49 29 00 |;SP(I);C$;SW(I).|
00002750: 6D 2F F2 0F 8D 20 37 30 35 3A 8B 20 45 31 24 B3 |m/... 705:. E1$.|
00002760: B1 22 30 30 22 20 A7 20 89 34 39 39 39 00 95 2F |."00" . .4999../|
00002770: F5 0F 98 31 2C 47 50 28 49 29 3B 43 24 3B 47 57 |...1,GP(I);C$;GW|
00002780: 28 49 29 3B 43 24 3B 44 57 28 49 29 3B 43 24 3B |(I);C$;DW(I);C$;|
00002790: 44 4C 28 49 29 00 B3 2F F7 0F 8D 20 37 30 35 3A |DL(I)../... 705:|
000027A0: 8B 20 45 31 24 B3 B1 22 30 30 22 20 A7 20 89 34 |. E1$.."00" . .4|
000027B0: 39 39 39 00 B9 2F FA 0F 82 00 C4 2F 04 10 8D 20 |999../...../... |
000027C0: 36 30 30 30 00 D1 2F 87 13 A0 31 3A A0 31 35 3A |6000../...1:.15:|
000027D0: 8E 00 F1 2F 88 13 8F 20 2A 2A 20 41 4C 54 45 52 |.../... ** ALTER|
000027E0: 20 44 41 54 41 20 52 4F 55 54 49 4E 45 53 20 2A | DATA ROUTINES *|
000027F0: 2A 00 12 30 92 13 8F 20 2A 2A 20 41 4C 54 45 52 |*..0... ** ALTER|
00002800: 20 44 41 54 41 20 4D 41 49 4E 20 4D 45 4E 55 20 | DATA MAIN MENU |
00002810: 2A 2A 00 3D 30 F6 13 99 22 93 11 22 C8 28 42 24 |**.=0..."..".(B$|
00002820: 2C 37 29 3B 22 CC 45 41 47 55 45 20 C4 41 54 41 |,7);".EAGUE .ATA|
00002830: 20 C1 4C 54 45 52 41 54 49 4F 4E 53 22 00 4C 30 | .LTERATIONS".L0|
00002840: 00 14 4C 44 B2 34 3A 8D 39 31 30 30 00 6F 30 0A |..LD.4:.9100.o0.|
00002850: 14 99 3A 99 22 1D 1D 1D 1D 1D 1D 90 1D 1D 1D 1D |..:."...........|
00002860: 1D 1D 1D 1D 1D 4F 50 54 49 4F 4E 53 3A 90 22 00 |.....OPTIONS:.".|
00002870: 8B 30 14 14 99 A3 38 29 22 1D 1D 1D 1D 1D 1D 1D |.0....8)".......|
00002880: 90 3D 3D 3D 3D 3D 3D 3D 3D 90 22 00 B5 30 1E 14 |.========."..0..|
00002890: 99 A3 38 29 22 11 12 05 46 31 92 90 2D C1 4C 54 |..8)"...F1..-.LT|
000028A0: 45 52 20 C2 41 53 49 43 20 CC 45 41 47 55 45 20 |ER .ASIC .EAGUE |
000028B0: C4 41 54 41 22 00 E2 30 28 14 99 A3 38 29 22 11 |.ATA"..0(...8)".|
000028C0: 12 05 46 33 92 90 2D C1 4C 54 45 52 20 C9 4E 44 |..F3..-.LTER .ND|
000028D0: 49 56 49 44 55 41 4C 20 D4 45 41 4D 20 C4 41 54 |IVIDUAL .EAM .AT|
000028E0: 41 22 00 05 31 32 14 99 A3 38 29 22 11 12 05 46 |A"..12...8)"...F|
000028F0: 35 92 90 2D C1 4C 54 45 52 20 CD 41 54 43 48 20 |5..-.LTER .ATCH |
00002900: C4 41 54 41 22 00 2B 31 3C 14 99 A3 38 29 22 11 |.ATA".+1<...8)".|
00002910: 12 05 46 37 92 90 2D D2 45 54 55 52 4E 20 54 4F |..F7..-.ETURN TO|
00002920: 20 CD 41 49 4E 20 CD 45 4E 55 22 00 5A 31 46 14 | .AIN .ENU".Z1F.|
00002930: 99 3A 99 3A 99 3A 99 3A 99 C8 28 42 24 2C 39 29 |.:.:.:.:..(B$,9)|
00002940: 22 2A 2A 20 D0 52 45 53 53 20 41 4E 20 12 05 46 |"** .RESS AN ..F|
00002950: 92 90 20 4B 45 59 20 2A 2A 22 00 70 31 4B 14 A1 |.. KEY **".p1K..|
00002960: 5A 31 24 3A 8B 5A 31 24 B2 22 22 A7 35 31 39 35 |Z1$:.Z1$."".5195|
00002970: 00 94 31 50 14 8B 5A 31 24 B2 C7 28 31 33 33 29 |..1P..Z1$..(133)|
00002980: 20 A7 20 8D 20 35 33 30 30 3A 89 35 31 31 30 3A | . . 5300:.5110:|
00002990: 8F 20 46 31 00 B6 31 5A 14 8B 5A 31 24 B2 C7 28 |. F1..1Z..Z1$..(|
000029A0: 31 33 34 29 20 A7 8D 35 35 30 30 3A 89 35 31 31 |134) ..5500:.511|
000029B0: 30 3A 8F 20 46 33 00 D8 31 64 14 8B 5A 31 24 B2 |0:. F3..1d..Z1$.|
000029C0: C7 28 31 33 35 29 20 A7 8D 35 37 30 30 3A 89 35 |.(135) ..5700:.5|
000029D0: 31 31 30 3A 8F 20 46 35 00 00 32 6E 14 8B 5A 31 |110:. F5..2n..Z1|
000029E0: 24 B2 C7 28 31 33 36 29 20 A7 8D 36 30 35 3A 8D |$..(136) ..605:.|
000029F0: 35 31 30 3A 8D 36 30 30 30 3A 8E 3A 8F 20 46 37 |510:.6000:.:. F7|
00002A00: 00 0F 32 73 14 8D 39 35 30 3A 89 35 31 31 30 00 |..2s..950:.5110.|
00002A10: 33 32 B4 14 8F 20 2A 2A 20 41 4C 54 45 52 20 42 |32... ** ALTER B|
00002A20: 41 53 49 43 20 4C 45 41 47 55 45 20 44 41 54 41 |ASIC LEAGUE DATA|
00002A30: 20 2A 2A 00 5B 32 BE 14 42 33 24 B2 22 C1 4C 54 | **.[2..B3$.".LT|
00002A40: 45 52 20 C2 41 53 49 43 20 CC 45 41 47 55 45 20 |ER .ASIC .EAGUE |
00002A50: C4 41 54 41 22 3A 8D 35 38 31 35 00 83 32 C8 14 |.ATA":.5815..2..|
00002A60: 50 52 24 B2 22 CC 45 41 47 55 45 20 CE 41 4D 45 |PR$.".EAGUE .AME|
00002A70: 22 3A 41 4E 24 B2 4C 4E 24 3A 8D 39 30 35 3A 85 |":AN$.LN$:.905:.|
00002A80: 4C 4E 24 00 B2 32 D2 14 50 52 24 B2 22 CC 45 41 |LN$..2..PR$.".EA|
00002A90: 47 55 45 20 C3 4F 4F 52 44 49 4E 41 54 4F 52 22 |GUE .OORDINATOR"|
00002AA0: 3A 41 4E 24 B2 4C 43 24 3A 8D 39 30 35 3A 85 4C |:AN$.LC$:.905:.L|
00002AB0: 43 24 00 E0 32 DC 14 50 52 24 B2 22 C3 4F 4F 52 |C$..2..PR$.".OOR|
00002AC0: 44 49 4E 41 54 4F 52 20 D0 48 4F 4E 45 22 3A 41 |DINATOR .HONE":A|
00002AD0: 4E 24 B2 50 4E 24 3A 8D 39 30 35 3A 85 50 4E 24 |N$.PN$:.905:.PN$|
00002AE0: 00 01 33 E6 14 50 52 24 B2 22 C4 41 54 45 22 3A |..3..PR$.".ATE":|
00002AF0: 41 4E 24 B2 44 41 24 3A 8D 39 30 35 3A 85 44 41 |AN$.DA$:.905:.DA|
00002B00: 24 00 07 33 F0 14 8E 00 29 33 7C 15 8F 20 2A 2A |$..3....)3|.. **|
00002B10: 20 41 4C 54 45 52 20 44 41 54 41 20 46 4F 52 20 | ALTER DATA FOR |
00002B20: 41 20 54 45 41 4D 20 2A 2A 00 50 33 81 15 42 33 |A TEAM **.P3..B3|
00002B30: 24 B2 22 C1 4C 54 45 52 20 C4 41 54 41 20 46 4F |$.".LTER .ATA FO|
00002B40: 52 20 41 20 D4 45 41 4D 22 3A 8D 20 35 38 31 35 |R A .EAM":. 5815|
00002B50: 00 60 33 86 15 4C 44 B2 31 30 3A 8D 39 31 30 30 |.`3..LD.10:.9100|
00002B60: 00 8D 33 8B 15 85 22 C5 4E 54 45 52 20 D4 45 41 |..3...".NTER .EA|
00002B70: 4D 20 C9 C4 23 20 4F 52 20 51 20 28 51 55 49 54 |M ..# OR Q (QUIT|
00002B80: 29 20 20 20 51 9D 9D 9D 22 3B 41 4E 24 00 A8 33 |) Q...";AN$..3|
00002B90: 90 15 49 49 B2 C5 28 41 4E 24 29 3A 8B 20 41 4E |..II..(AN$):. AN|
00002BA0: 24 B2 22 51 22 A7 20 8E 00 CC 33 95 15 8B 28 49 |$."Q". ...3...(I|
00002BB0: 49 B3 31 29 20 B0 20 28 49 49 B1 4E 54 29 20 A7 |I.1) . (II.NT) .|
00002BC0: 20 8D 39 35 30 3A 89 20 35 35 30 35 00 F5 33 9A | .950:. 5505..3.|
00002BD0: 15 50 52 24 B2 22 CE 41 4D 45 22 3A 41 4E 24 B2 |.PR$.".AME":AN$.|
00002BE0: 54 49 24 28 49 49 29 3A 8D 39 30 35 3A 85 54 49 |TI$(II):.905:.TI|
00002BF0: 24 28 49 49 29 00 26 34 9F 15 50 52 24 B2 22 CD |$(II).&4..PR$.".|
00002C00: 41 54 43 48 45 53 20 D7 4F 4E 22 3A 41 4E 24 B2 |ATCHES .ON":AN$.|
00002C10: C4 28 4D 57 28 49 49 29 29 3A 8D 39 31 30 3A 85 |.(MW(II)):.910:.|
00002C20: 4D 57 28 49 49 29 00 58 34 A4 15 50 52 24 B2 22 |MW(II).X4..PR$."|
00002C30: CD 41 54 43 48 45 53 20 CC 4F 53 54 22 3A 41 4E |.ATCHES .OST":AN|
00002C40: 24 B2 C4 28 4D 4C 28 49 49 29 29 3A 8D 39 31 30 |$..(ML(II)):.910|
00002C50: 3A 85 4D 4C 28 49 49 29 00 71 34 A9 15 4D 50 28 |:.ML(II).q4..MP(|
00002C60: 49 49 29 B2 4D 57 28 49 49 29 AA 4D 4C 28 49 49 |II).MW(II).ML(II|
00002C70: 29 00 9F 34 AE 15 50 52 24 B2 22 D3 45 54 53 20 |)..4..PR$.".ETS |
00002C80: D7 4F 4E 22 3A 41 4E 24 B2 C4 28 53 57 28 49 49 |.ON":AN$..(SW(II|
00002C90: 29 29 3A 8D 39 31 30 3A 85 53 57 28 49 49 29 00 |)):.910:.SW(II).|
00002CA0: CE 34 B3 15 50 52 24 B2 22 D3 45 54 53 20 CC 4F |.4..PR$.".ETS .O|
00002CB0: 53 54 22 3A 41 4E 24 B2 C4 28 53 4C 28 49 49 29 |ST":AN$..(SL(II)|
00002CC0: 29 3A 8D 39 31 30 3A 85 53 4C 28 49 49 29 00 E7 |):.910:.SL(II)..|
00002CD0: 34 B8 15 53 50 28 49 49 29 B2 53 57 28 49 49 29 |4..SP(II).SW(II)|
00002CE0: AA 53 4C 28 49 49 29 00 16 35 BD 15 50 52 24 B2 |.SL(II)..5..PR$.|
00002CF0: 22 C7 41 4D 45 53 20 D7 4F 4E 22 3A 41 4E 24 B2 |".AMES .ON":AN$.|
00002D00: C4 28 47 57 28 49 49 29 29 3A 8D 39 31 30 3A 85 |.(GW(II)):.910:.|
00002D10: 47 57 28 49 49 29 00 46 35 C2 15 50 52 24 B2 22 |GW(II).F5..PR$."|
00002D20: C7 41 4D 45 53 20 CC 4F 53 54 22 3A 41 4E 24 B2 |.AMES .OST":AN$.|
00002D30: C4 28 47 4C 28 49 49 29 29 3A 8D 39 31 30 3A 85 |.(GL(II)):.910:.|
00002D40: 47 4C 28 49 49 29 00 5F 35 C7 15 47 50 28 49 49 |GL(II)._5..GP(II|
00002D50: 29 B2 47 57 28 49 49 29 AA 47 4C 28 49 49 29 00 |).GW(II).GL(II).|
00002D60: 91 35 D1 15 50 52 24 B2 22 C4 45 46 41 55 4C 54 |.5..PR$.".EFAULT|
00002D70: 53 20 D7 4F 4E 22 3A 41 4E 24 B2 C4 28 44 57 28 |S .ON":AN$..(DW(|
00002D80: 49 49 29 29 3A 8D 39 31 30 3A 85 44 57 28 49 49 |II)):.910:.DW(II|
00002D90: 29 00 C4 35 D6 15 50 52 24 B2 22 C4 45 46 41 55 |)..5..PR$.".EFAU|
00002DA0: 4C 54 53 20 CC 4F 53 54 22 3A 41 4E 24 B2 C4 28 |LTS .OST":AN$..(|
00002DB0: 44 4C 28 49 49 29 29 3A 8D 39 31 30 3A 85 44 4C |DL(II)):.910:.DL|
00002DC0: 28 49 49 29 00 CA 35 DB 15 8E 00 E7 35 44 16 8F |(II)..5.....5D..|
00002DD0: 20 2A 2A 20 41 4C 54 45 52 20 4D 41 54 43 48 20 | ** ALTER MATCH |
00002DE0: 44 41 54 41 20 2A 2A 00 22 36 49 16 99 22 93 11 |DATA **."6I.."..|
00002DF0: 11 D3 4F 52 52 59 2C 20 54 48 49 53 20 46 55 4E |..ORRY, THIS FUN|
00002E00: 43 54 49 4F 4E 20 4E 4F 54 20 59 45 54 20 49 4D |CTION NOT YET IM|
00002E10: 50 4C 45 4D 45 4E 54 45 44 22 3A 8D 20 39 35 35 |PLEMENTED":. 955|
00002E20: 3A 8E 00 48 36 A8 16 8F 20 2A 2A 20 41 4C 54 45 |:..H6... ** ALTE|
00002E30: 52 20 52 4F 55 54 49 4E 45 20 53 55 42 52 4F 55 |R ROUTINE SUBROU|
00002E40: 54 49 4E 45 53 20 2A 2A 00 74 36 AD 16 8F 20 2A |TINES **.t6... *|
00002E50: 2A 20 49 4E 53 54 52 55 43 54 49 4F 4E 53 20 46 |* INSTRUCTIONS F|
00002E60: 4F 52 20 41 4C 54 45 52 20 52 4F 55 54 49 4E 45 |OR ALTER ROUTINE|
00002E70: 53 20 2A 2A 00 90 36 B7 16 99 22 93 22 A3 32 30 |S **..6...".".20|
00002E80: AB C3 28 42 33 24 29 AD 32 29 3B 42 33 24 3A 99 |..(B3$).2);B3$:.|
00002E90: 00 C3 36 CB 16 99 3A 99 22 D0 52 45 53 53 20 12 |..6...:.".RESS .|
00002EA0: D2 C5 D4 D5 D2 CE 92 20 54 4F 20 4B 45 45 50 20 |....... TO KEEP |
00002EB0: 54 48 45 20 43 55 52 52 45 4E 54 20 56 41 4C 55 |THE CURRENT VALU|
00002EC0: 45 2E 22 00 F3 36 D0 16 99 22 D4 59 50 45 20 4F |E."..6...".YPE O|
00002ED0: 56 45 52 20 54 48 45 20 44 41 54 41 20 41 4E 44 |VER THE DATA AND|
00002EE0: 20 50 52 45 53 53 20 12 D2 C5 D4 D5 D2 CE 92 20 | PRESS ........ |
00002EF0: 54 4F 22 00 12 37 D5 16 99 C8 28 42 24 2C 31 31 |TO"..7....(B$,11|
00002F00: 29 22 41 4C 54 45 52 20 54 48 45 20 44 41 54 41 |)"ALTER THE DATA|
00002F10: 2E 22 00 18 37 DA 16 8E 00 2B 37 70 17 8F 20 4F |."..7....+7p.. O|
00002F20: 50 54 49 4F 4E 53 20 4D 45 4E 55 00 4D 37 7A 17 |PTIONS MENU.M7z.|
00002F30: 99 22 93 1D 1D 1D 1D 1D 1D 90 1D 1D 1D 1D 1D 1D |."..............|
00002F40: 1D 1D 1D 4F 50 54 49 4F 4E 53 3A 90 22 00 69 37 |...OPTIONS:.".i7|
00002F50: 84 17 99 A3 38 29 22 1D 1D 1D 1D 1D 1D 1D 90 3D |....8)"........=|
00002F60: 3D 3D 3D 3D 3D 3D 3D 90 22 00 92 37 8E 17 99 A3 |=======."..7....|
00002F70: 38 29 22 11 12 05 46 31 92 90 2D C3 52 45 41 54 |8)"...F1..-.REAT|
00002F80: 45 20 CE 45 57 20 CC 45 41 47 55 45 20 C6 49 4C |E .EW .EAGUE .IL|
00002F90: 45 22 00 B5 37 98 17 99 A3 38 29 22 11 12 05 46 |E"..7....8)"...F|
00002FA0: 32 92 90 2D CC 4F 41 44 20 CC 45 41 47 55 45 20 |2..-.OAD .EAGUE |
00002FB0: C6 49 4C 45 22 00 E1 37 A2 17 99 A3 38 29 22 11 |.ILE"..7....8)".|
00002FC0: 12 05 46 33 92 90 2D C4 49 53 50 4C 41 59 20 CC |..F3..-.ISPLAY .|
00002FD0: 45 41 47 55 45 20 D3 54 41 54 49 53 54 49 43 53 |EAGUE .TATISTICS|
00002FE0: 22 00 07 38 AC 17 99 A3 38 29 22 11 12 05 46 34 |"..8....8)"...F4|
00002FF0: 92 90 2D C5 4E 54 45 52 20 CD 41 54 43 48 20 D2 |..-.NTER .ATCH .|
00003000: 45 53 55 4C 54 53 22 00 2B 38 B6 17 99 A3 38 29 |ESULTS".+8....8)|
00003010: 22 11 12 05 46 35 92 90 2D CD 4F 44 49 46 59 20 |"...F5..-.ODIFY |
00003020: D3 54 41 54 49 53 54 49 43 53 22 00 5A 38 C0 17 |.TATISTICS".Z8..|
00003030: 99 A3 38 29 22 11 12 05 46 36 92 90 2D D0 52 49 |..8)"...F6..-.RI|
00003040: 4E 54 20 CF 55 54 20 CC 45 41 47 55 45 20 D3 54 |NT .UT .EAGUE .T|
00003050: 41 54 53 20 D3 48 45 45 54 22 00 79 38 CA 17 99 |ATS .HEET".y8...|
00003060: A3 38 29 22 11 12 05 46 37 92 90 2D D3 41 56 45 |.8)"...F7..-.AVE|
00003070: 20 C3 48 41 4E 47 45 53 22 00 8F 38 D4 17 99 A3 | .HANGES"..8....|
00003080: 38 29 22 11 12 05 46 38 92 90 2D 45 4E 44 22 00 |8)"...F8..-END".|
00003090: BD 38 DE 17 99 A3 38 29 22 11 11 12 05 4E 4F 54 |.8....8)"....NOT|
000030A0: 45 92 90 2D 45 4E 54 45 52 20 05 12 2A 45 4E 44 |E..-ENTER ..*END|
000030B0: 92 90 20 54 4F 20 45 58 49 54 20 41 22 00 E7 38 |.. TO EXIT A"..8|
000030C0: E8 17 99 A3 35 29 22 46 55 4E 43 54 49 4F 4E 20 |....5)"FUNCTION |
000030D0: 45 4E 54 45 52 52 45 44 20 41 43 43 49 44 45 4E |ENTERRED ACCIDEN|
000030E0: 54 41 4C 4C 59 2E 22 00 ED 38 57 1B 8E 00 FE 38 |TALLY."..8W....8|
000030F0: 40 1F 8F 20 45 4E 44 20 4F 46 20 4A 4F 42 00 39 |@.. END OF JOB.9|
00003100: 39 4A 1F 99 22 93 22 3A 99 C8 28 42 24 2C 31 30 |9J..".":..(B$,10|
00003110: 29 3B 22 12 2A 2A 20 C5 4E 44 20 4F 46 20 50 52 |);".** .ND OF PR|
00003120: 4F 47 52 41 4D 20 2A 2A 22 3A 8D 39 37 30 3A 4C |OGRAM **":.970:L|
00003130: 44 B2 33 3A 8D 39 31 30 30 00 6E 39 54 1F 99 22 |D.3:.9100.n9T.."|
00003140: 90 57 4F 55 4C 44 20 59 4F 55 20 4C 49 4B 45 20 |.WOULD YOU LIKE |
00003150: 54 4F 20 53 41 56 45 20 28 59 2F 4E 29 20 20 20 |TO SAVE (Y/N) |
00003160: 22 3B 3A 85 22 4E 9D 9D 9D 22 3B 41 4E 24 00 87 |";:."N...";AN$..|
00003170: 39 5E 1F 8B 20 41 4E 24 B2 22 2A 45 4E 44 22 A7 |9^.. AN$."*END".|
00003180: 8D 36 30 30 30 3A 8E 00 9C 39 68 1F 8B 20 41 4E |.6000:...9h.. AN|
00003190: 24 B2 22 4E 22 A7 20 89 38 30 36 30 00 A6 39 72 |$."N". .8060..9r|
000031A0: 1F 8D 34 30 30 30 00 BA 39 7C 1F 99 22 93 C3 27 |..4000..9|.."..'|
000031B0: 45 53 54 20 46 49 4E 49 2E 22 00 D2 39 86 1F 99 |EST FINI."..9...|
000031C0: 22 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 45 4E |".............EN|
000031D0: 44 22 00 D8 39 90 1F 80 00 20 3A 28 23 4E B2 4E |D"..9.... :(#N.N|
000031E0: 54 3A 86 20 54 49 24 28 4E 29 2C 54 4E 28 4E 29 |T:. TI$(N),TN(N)|
000031F0: 2C 54 52 28 4E 29 2C 4D 50 28 4E 29 2C 4D 57 28 |,TR(N),MP(N),MW(|
00003200: 4E 29 2C 53 50 28 4E 29 2C 53 57 28 4E 29 2C 47 |N),SP(N),SW(N),G|
00003210: 50 28 4E 29 2C 47 57 28 4E 29 2C 50 4D 28 4E 29 |P(N),GW(N),PM(N)|
00003220: 00 4C 3A 32 23 86 20 50 53 28 4E 29 2C 44 57 28 |.L:2#. PS(N),DW(|
00003230: 4E 29 2C 44 4C 28 4E 29 2C 50 47 28 4E 29 2C 44 |N),DL(N),PG(N),D|
00003240: 31 28 4E 29 2C 44 32 28 4E 29 3A 8E 00 68 3A 8C |1(N),D2(N):..h:.|
00003250: 23 99 22 13 22 3A 20 81 20 49 B2 31 20 A4 20 4C |#.".": . I.1 . L|
00003260: 44 3A 20 99 3A 82 3A 8E 00 85 3A 10 27 8F 20 43 |D: .:.:...:.'. C|
00003270: 52 45 41 54 45 20 4E 45 57 20 4C 45 41 47 55 45 |REATE NEW LEAGUE|
00003280: 20 46 49 4C 45 00 B7 3A 24 27 99 22 93 22 3A 99 | FILE..:$'.".":.|
00003290: C8 28 42 24 2C 38 29 3B 22 12 C3 52 45 41 54 45 |.(B$,8);"..REATE|
000032A0: 20 CE 45 57 20 CC 45 41 47 55 45 20 C6 49 4C 45 | .EW .EAGUE .ILE|
000032B0: 92 22 3A 8D 39 37 30 00 C6 3A 2E 27 4C 44 B2 35 |.":.970..:.'LD.5|
000032C0: 3A 8D 39 31 30 30 00 04 3B 38 27 85 22 D7 48 41 |:.9100..;8'.".HA|
000032D0: 54 20 49 53 20 54 48 45 20 4E 41 4D 45 20 4F 46 |T IS THE NAME OF|
000032E0: 20 54 48 45 20 4C 45 41 47 55 45 22 3B 4C 4E 24 | THE LEAGUE";LN$|
000032F0: 3A 8B 4C 4E 24 B2 22 2A 45 4E 44 22 A7 8D 36 30 |:.LN$."*END"..60|
00003300: 30 30 3A 8E 00 40 3B 42 27 8D 39 38 30 3A 4C 44 |00:..@;B'.980:LD|
00003310: B2 36 3A 8D 39 31 30 30 3A 85 22 11 C4 4F 55 42 |.6:.9100:."..OUB|
00003320: 4C 45 53 20 4F 52 20 53 49 4E 47 4C 45 53 20 4C |LES OR SINGLES L|
00003330: 45 41 47 55 45 20 28 44 2F 53 29 22 3B 4C 54 24 |EAGUE (D/S)";LT$|
00003340: 00 74 3B 4C 27 4C 54 24 B2 C8 28 4C 54 24 2C 31 |.t;L'LT$..(LT$,1|
00003350: 29 3A 8B 28 4C 54 24 B3 B1 22 44 22 29 20 AF 20 |):.(LT$.."D") . |
00003360: 28 4C 54 24 B3 B1 22 53 22 29 20 A7 20 89 20 31 |(LT$.."S") . . 1|
00003370: 30 30 35 30 00 99 3B 56 27 85 22 11 CE 55 4D 42 |0050..;V'."..UMB|
00003380: 45 52 20 4F 46 20 54 45 41 4D 53 20 49 4E 20 4C |ER OF TEAMS IN L|
00003390: 45 41 47 55 45 22 3B 4E 54 00 BD 3B 58 27 85 22 |EAGUE";NT..;X'."|
000033A0: 11 CC 45 41 47 55 45 20 43 4F 4F 52 44 49 4E 41 |..EAGUE COORDINA|
000033B0: 54 4F 52 20 4E 41 4D 45 22 3B 4C 43 24 00 E2 3B |TOR NAME";LC$..;|
000033C0: 5B 27 85 22 11 CC 45 41 47 55 45 20 43 4F 4F 52 |['."..EAGUE COOR|
000033D0: 44 49 4E 41 54 4F 52 20 50 48 4F 4E 45 22 3B 50 |DINATOR PHONE";P|
000033E0: 4E 24 00 05 3C 5D 27 85 22 11 D4 48 45 20 44 41 |N$..<]'."..HE DA|
000033F0: 54 45 20 28 45 47 2E 20 33 2F 31 35 2F 38 34 29 |TE (EG. 3/15/84)|
00003400: 22 3B 44 41 24 00 15 3C 60 27 4C 44 B2 31 37 3A |";DA$..<`'LD.17:|
00003410: 8D 39 31 30 30 00 2E 3C 6A 27 99 22 CC 45 41 47 |.9100..<j'.".EAG|
00003420: 55 45 20 CE 41 4D 45 3A 20 22 3B 4C 4E 24 00 47 |UE .AME: ";LN$.G|
00003430: 3C 74 27 99 22 CC 45 41 47 55 45 20 54 59 50 45 |<t'.".EAGUE TYPE|
00003440: 3A 20 22 3B 4C 54 24 00 65 3C 7E 27 99 22 CE 55 |: ";LT$.e<~'.".U|
00003450: 4D 42 45 52 20 49 4E 20 CC 45 41 47 55 45 3A 22 |MBER IN .EAGUE:"|
00003460: 3B 4E 54 3A 99 00 85 3C 80 27 99 22 CC 45 41 47 |;NT:...<.'.".EAG|
00003470: 55 45 20 C3 4F 4F 52 44 49 4E 41 54 4F 52 3A 20 |UE .OORDINATOR: |
00003480: 22 3B 4C 43 24 00 A4 3C 82 27 99 22 C3 4F 4F 52 |";LC$..<.'.".OOR|
00003490: 44 49 4E 41 54 4F 52 20 50 48 4F 4E 45 3A 20 22 |DINATOR PHONE: "|
000034A0: 3B 50 4E 24 00 BE 3C 84 27 99 22 D4 4F 44 41 59 |;PN$..<.'.".ODAY|
000034B0: 27 53 20 44 41 54 45 3A 20 22 3B 44 41 24 00 E1 |'S DATE: ";DA$..|
000034C0: 3C 88 27 85 22 11 C9 53 20 54 48 49 53 20 43 4F |<.'."..S THIS CO|
000034D0: 52 52 45 43 54 20 20 20 59 9D 9D 9D 22 3B 41 4E |RRECT Y...";AN|
000034E0: 24 00 FA 3C 92 27 8B 20 41 4E 24 B3 B1 22 59 22 |$..<.'. AN$.."Y"|
000034F0: 20 A7 20 89 20 31 30 30 32 30 00 12 3D 9C 27 8D | . . 10020..=.'.|
00003500: 20 39 30 30 30 20 3A 20 8F 20 44 49 4D 20 56 41 | 9000 : . DIM VA|
00003510: 52 53 00 21 3D A6 27 81 20 49 B2 31 20 A4 20 4E |RS.!=.'. I.1 . N|
00003520: 54 00 4F 3D B0 27 4C 44 B2 30 35 3A 99 22 93 22 |T.O=.'LD.05:."."|
00003530: 3A 99 22 CE 41 4D 45 20 4F 46 20 54 45 41 4D 22 |:.".AME OF TEAM"|
00003540: 3B 49 3B 3A 85 22 3A 22 3B 54 49 24 28 49 29 00 |;I;:.":";TI$(I).|
00003550: 5B 3D BA 27 54 4E 28 49 29 B2 49 00 61 3D C4 27 |[=.'TN(I).I.a=.'|
00003560: 82 00 75 3D CE 27 99 22 93 22 3A 4C 44 B2 35 3A |..u=.'.".":LD.5:|
00003570: 8D 39 31 30 30 00 8D 3D D8 27 99 22 CC 45 41 47 |.9100..=.'.".EAG|
00003580: 55 45 20 CD 45 4D 42 45 52 53 22 3A 99 00 9C 3D |UE .EMBERS":...=|
00003590: E2 27 81 20 49 B2 31 20 A4 20 4E 54 00 B5 3D EC |.'. I.1 . NT..=.|
000035A0: 27 99 22 D4 45 41 4D 22 3B 49 2C 54 49 24 28 49 |'.".EAM";I,TI$(I|
000035B0: 29 3A 82 3A 99 00 D9 3D F6 27 85 22 C1 52 45 20 |):.:...=.'.".RE |
000035C0: 54 48 45 53 45 20 43 4F 52 52 45 43 54 20 20 20 |THESE CORRECT |
000035D0: 59 9D 9D 9D 22 3B 41 4E 24 00 F8 3D 00 28 8B 20 |Y...";AN$..=.(. |
000035E0: 41 4E 24 B2 22 59 22 20 A7 20 8D 20 34 30 30 30 |AN$."Y" . . 4000|
000035F0: 3A 8D 36 30 30 30 3A 8E 00 11 3E 0A 28 8B 20 41 |:.6000:...>.(. A|
00003600: 4E 24 B3 B1 22 4E 22 20 A7 20 89 20 31 30 32 33 |N$.."N" . . 1023|
00003610: 30 00 35 3E 14 28 85 22 11 D7 48 41 54 20 54 45 |0.5>.(."..HAT TE|
00003620: 41 4D 20 4E 55 4D 42 45 52 20 49 53 20 57 52 4F |AM NUMBER IS WRO|
00003630: 4E 47 22 3B 4E 00 55 3E 1E 28 85 22 11 D4 48 45 |NG";N.U>.(."..HE|
00003640: 20 43 4F 52 52 45 43 54 20 4E 41 4D 45 22 3B 54 | CORRECT NAME";T|
00003650: 49 24 28 4E 29 00 61 3E 28 28 89 20 31 30 31 39 |I$(N).a>((. 1019|
00003660: 30 00 00 00 |0... |
.......10.H....I.631.639:.A:.I,A:.:.198,
9:. 80,210,52,58,67,76,207,52,13......4,
4,7:.4:.G(14)" TENNIS STATS BY MJK 5/25/
84 ";G(15):.......15,8,15:. 700: 15:..E.
... *********************************...
... TENNIS STATISTICS M.J.KOZAKIEWICZ...
... * REVISION DATE 5/26/84 *.=.
... *********************************.G.
... 300.Z.H.. MAIN ROUTINE.E.R.. 6000..
..Z$."":.Z$:.Z$.""..220......Z$.G(133) .
I.I.20:.10000:. F1= CREATE NEW FILE.....
.Z$.G(134) ..1000: . F3= DISPLAY S
TATS TO SCREEN......Z$.G(135) ..5000:
. F5= MODIFY STATS.K....Z$.G(136) ..
4000: . F7= SAVE FILE.X....Z$.G(13
7) ..400: . F2= LOAD FILE......Z$
.G(138) ..2000: . F4= ENTER MATCH
RESULTS......Z$.G(139) ..3000: . F
6= PRINT STATISTICS SHEET......Z$.G(140)
..8000: . F8= END PROGRAM.V....Z$
.G(17) .I.I.1:.1000: . CURSOR DOWN FOR
DISPLAY SCROLL......Z$.G(145).I.I.1:.100
0: . CURSOR UP FOR DISPLAY SCROLL.T....
Z$.G(13) . .6000: . RETURN TO MENU
FROM DISPLAY SCREEN...+..220...,.. DEFI
NE VARIABLES. .@.I..19:.53281,12:.53280,
0:.".":.53272,23.:.E.W$."W L":W2$."W
L"...J.R$.G(13):TA.0:C$.",":B$."
":B2$.B$.B$:. 20,40 BLANKS..
.T.BA$."....................":. 20 CURSO
R RIGHTS...^...O.... LOAD FILES......"..
";H(B$,10);".LOAD TENNIS DATA."...... NT
.0.408.A...LD.5:.9100:."A LOAD NOW WILL
.WIPE OUT. CURRENT DATA.".{...."LOAD A N
EW LEAGUE FILE? (Y/N)":.960:. AN$."N" .
495...... AN$.."Y" . . 950: . 401......:
. 300:Z$.G(137):. 250......970:LD.7:.910
0:." FILE NUMBER";F$:.980......F$."*END"
..6000:.......300: 1: 15:.15,8,15.9.B.
.1,8,2,"0:TENNIS DATA ".F$.",S,R".V.D..
705:. E1$.."00" . .496...G.LD.10:.9100:.
"..FOUND..";" TENNIS DATA ";F$...L..1,L
N$,LT$,NT,LC$,PN$,DA$:. 705:.E1$.."00" .
. 496.Q.Q.. Z.0 . . 9000...V..I.1 . NT.
.....1,TI$(I),TN(I),TR(I),MP(I),MW(I),SP
(I),SW(I)...... 705:. E1$.."00" . .496.M
....1,GP(I),GW(I),DW(I),DL(I).J.... 705:
. E1$.."00" . .496.....J.I:. 605: . CALC
ULATE #LOST, %WON............ 500: . 805
...... 6000..... 1: 15:....... * SORT BY
% MATCHES WON. PRESERVE VARIABLES %MATC
HES WON AND TEAM ID BY.9.... * CREATING
DUMMY VARIABLES D1 AND D2.X....H(B$,8);"
.......SORTING.". ....J.1 . NT: D2(J).TN
(J): D1(J).PM(J): .: . SET UP 'SACRIFICI
AL' VARS......J.1 . NT.1......K.J.1 . NT
.V....D1(K).D1(J)..575...&.N1.D1(K):N2.D
2(K)...0.D1(K).D1(J):D2(K).D2(J)...:.D1(
J).N1:D2(J).N2.$.?...*.D...O.I.. I.1 . N
T:TR(I).D2(I):.:. TR(I) IS A TEAM ID, AN
D I IS THE RANK.U.W...A.X.. ** CA
LCULATE REST OF THE TEAM VARIABLES (#LOS
T, %WON) **.R.].N3.100:N4..5...B..
GP(J)..0 . PG(J)..(GW(J).GP(J).N3.N4):
. % GAMES WON.J.L.. MP(J)..0 . PM(J)..(M
W(J).MP(J).N3.N4): . % MATCHES WON...V..
SP(J)..0 . PS(J)..(SW(J).SP(J).N3.N4):
. % SETS WON.....ML(J).MP(J).MW(J): . MA
TCHES LOST.M...SL(J).SP(J).SW(J): . SETS
LOST.....GL(J).GP(J).GW(J): . GAMES LOS
T............ ** DISK ERRORS **.6.A..15,
E1$,E2$,E3$,E4$:. E1$."00" . ..W.F..".."
;H(B$,8);"** ERROR **":.".DISK ERROR ";E
1$;": ";E2$;"."...P..".PRESS .RETURN. FO
R MENU.":..C. ... COMPUTE MATCH, SET, GA
ME .TALS .....%..H(B$,9);"..COMPUTING TO
TALS."...'.. I.1 . 8:T(I).0:....*.. I.1
. NT. .4.T(1).T(1).DW(I).4.>.T(2).T(2).D
L(I).H.H.T(3).T(3).MW(I).\.R.T(4).T(4).M
L(I).P.\.T(5).T(5).SW(I)...F.T(6).T(6).S
L(I)...P.T(7).T(7).GW(I)...Z.T(8).T(8).G
L(I)......:..Z.... DATA ENTRY SUBROUTINE
FOR ALTER.....N9.3:. 915: . STRING ENTR
Y POINT.....N9.2: . NUMERIC ENTRY POINT.
B...LD.10:.9100:.B$;B$;B$;B$:.9100.R....
PR$;H(B$,N9);AN$:.9100:.H(BA$,C(PR$).1);
:.......H(B$,8)"..** ILLEGAL VALUE **.".
.....H(B$,10)"PRESS SPACE BAR".K....AN$:
.AN$."".960.Q.E.....J.LD.15:.9100:." .TO
EXIT THIS ROUTINE NOW ENTER. ..*END..":
..0.T.LD.15:.9100:.B$;B$;B$;B$:..>.... D
ISPLAY.U....(I.1).(I.NT). I.1.N...F$.LN$
." STATISTICS"......".".20.C(F$).2);F$..
...."ID".7)"NAME".14)"MATCH".21)"SETS".2
8)"GAMES".......15)W2$;.21)W2$;.28)"W
L";"."......K.I.I.18......K.NT.." ":.109
0.....J.TR(K).4...F2$.D(J) : N.2 :. 3910
: . TEAM ID._...F$.B3$." ".H(TI$(J).B$,
10) :. ADD NAME...$.F2$.D(MW(J)):N.3:.39
10:F$.F$.B3$: . ADD DEFAULTS WON.N.).F2$
.D(ML(J)):.3910:F$.F$.B3$: . ADD DEFAULT
S LOST.....F2$.D(SW(J)):.3910:F$.F$.B3$:
. ADD MATCHES WON.7.3.F2$.D(SL(J)):.391
0:F$.F$.B3$: . ADD MATCHES LOST.M.8.F2$.
D(GW(J)):N.4:.3910:F$.F$.B3$: . % MATCHE
S WON...=.F2$.D(GL(J)):.3910:F$.F$.B3$:
. SETS WON...?.. F$...B...A.C.F$.H(B$,7)
."TOTALS"...D.. I.3 . 8: N.3: . I.6 . N.
4...E.F2$.D(T(I)):.3910:F$.F$.B3$:....F.
LD.3.NT:.9100:. F$.D.G...5)"PRESS .RETUR
N. TO DISPLAY MENU.".J.O...D.P.. ENTER M
ATCH RESULTS...Z..".".10)"ENTER MATCH RE
SULTS"...... MA.0 . . 2030...... MA..MB
. . 2026......"*** SORRY. NO MORE MATCHE
S MAY BE ADDED ***":. 2999......:.:.MB;"
MATCH RESULTS HAVE BEEN RECORDED.".D....
MA.MB;"MORE CAN BE RECORDED.":. 2045.I..
.MA.2.NT : . LIMIT MATCHES TO ADD......
WI(MA),LO(MA),W(3,MA),L(3,MA)......970:L
D.8:.9100......".WAS THIS MATCH DEFAULTE
D N...";AN$:. AN$."*END"..2177.....MB.
MB.1:.980:. H(AN$,1)."Y" . . 2200.G...LD
.9:.9100:."WINNER(USE ID#) OF MATCH
.....";MB;:. N1.U...WI(MB).N1.T...."NUMB
ER OF SETS PLAYED";N...... I.1.N......"G
AMES WON BY ";TI$(N1):."IN SET";I;:."
6...";W(I,MB).C.........LD.9:.9100:.I.1.
22:.B$;:.:. BLANK OUT AREA FOR LOSER INP
UT.@. .LD.9:.9100:."LOSER (USE ID#) OF M
ATCH .....";MB;:. N2.N.%.LO(MB).N2.Z
.*.. I.1.N.../.."GAMES WON BY ";TI$(N2):
."IN SET";I;:." 6...";L(I,MB)...4.....
9.. ** UPDATE DATA BASE **...>.MP(N1).MP
(N1).1:MW(N1).MW(N1).1:SP(N1).SP(N1).N:S
W(N1).SW(N1).2.6.@.MP(N2).MP(N2).1:SP(N2
).SP(N2).N:SW(N2).SW(N2).(N.2).D.C.. I.1
. 3.F.H.GP(N1).W(I,MB).L(I,MB).GP(N1)..
.J.GP(N2).W(I,MB).L(I,MB).GP(N2)...M.GW(
N1).W(I,MB).GW(N1)...O.GW(N2).L(I,MB).GW
(N2).B.P.....Q.J.N1:. 605 : . CALCULATE
REST...R.J.N2:. 605 : . CALCULATE REST.;
.\.LD.17:.9100:."MORE MATCHES TO REPORT
Y...";AN$.R.Z.. AN$."Y" . . 2000.J...
AN$.."N" . . 2140.|.... 500 : . 805....
.. 6000:....... ** DEFAULTED MATCH ROUTI
NE **...... DEFAULTED MATCHES DO NOT AFF
ECT THE STANDINGS.....LD.9:.9100:."WINNE
R(USE ID#) OF MATCH .....";MB;:. N1.
-...WI(MB).N1.K...LD.9:.9100:."LOSER (US
E ID#) OF MATCH .....";MB;:. N2.Y...
LO(MB).N2.....DL(N2).DL(N2).1:DW(N1).DW(
N1).1:.2140...... 6000:..J.... PRINT SUM
MARY SHEET...B..". ":.H(B$,8);".STATISTI
CS PRINTING.".) L.."..THE DATE ON RECORD
IS ";DA$:.970:LD.5:.9100.K Q..".DO YOU
WANT TO UPDATE IT Y...";AN$:. H(AN$,1)
."N" . 3040.. R.. AN$."*END". 3800.. S..
980:LD.10:.9100:.".THE NEW DATE IS";DA$.
H T.. DA$.""..950:. 3027.. V.. ** PRINT
HEADER **.!!...980:. 4,4,7: F$.LN$." STA
NDINGS": . 3930 :. PRINT CENTERED.C!..F$
."AS OF ".DA$:. 3930 :.4,B$..!..F$.H(B2$
,29)."DEFAULTS MATCHES".H(B$,8)."SETS
".H(B$,8)..!..F$.F$."GAMES": .4,F$:B3$."
% ":. COL. HEADING 1..!..F$.H(B$,5
)."ID".H(B$,9)."NAME".H(B$,11).W$.H(B$,4
).W$.B3$.'"..F$.F$.W$.B3$.W$.B3$:.4,F$:.
COL. HEADING 2.2"... 3940.Q"... ** PRIN
T TEAM RESULTS **.."... J.1 . NT:I.TR(J)
:. ** PRINT OUT TEAMS IN ASCENDING RANK
ORDER **.D"!.F2$.D(TN(I)) : N.7 :. 3910
: . TEAM ID#.."&.F$.B3$." ".H(TI$(I).B$,
19) :. ADD NAME.-#+.F2$.D(DW(I)):N.3:.39
10:F$.F$." ".B3$: . ADD DEFAULTS WON.G#
0.F2$.D(DL(I)):.3910:F$.F$." ".B3$: . AD
D DEFAULTS LOST. #5.F2$.D(MW(I)):.3910:F
$.F$." ".B3$: . ADD MATCHES WON.Y#:.F2$
.D(ML(I)):.3910:F$.F$." ".B3$: . ADD MAT
CHES LOST..$?.F2$.D(PM(I)):.3910:F$.F$."
".B3$: . % MATCHES WON.A$D.F2$.D(SW(I))
:.3910:F$.F$." ".B3$: . SETS WON.S$I.F2
$.D(SL(I)):.3910:F$.F$." ".B3$: . SETS L
OST..$N.F2$.D(PS(I)):.3910:F$.F$." ".B3$
: . % SETS WON.Y$S.F2$.D(GW(I)):.3910:F$
.F$." ".B3$: . GAMES WON..%X.F2$.D(GL(I
)):.3910:F$.F$." ".B3$: . GAMES LOST.E%B
.F2$.D(PG(I)):.3910:F$.F$." ".B3$:.4,F$:
. % GAMES WON.K%G...T%L..3940:F2$."TOTAL
S":N.28:.3910:F$.B3$..%O.F2$.D(T(1)):N.6
:.3910:F$.F$.B3$..%Q.F2$.D(T(2)):N.4:.39
10:F$.F$.B3$..%S.. I.3 . 8: N.4: . I.3 .
N.5..%V.. (I.5).(I.7) . N.9..&{.F2$.D(T
(I)):. 3910:F$.F$.B3$:.:.4,F$.=&... ** P
RINT MATCH RESULTS **.Q&... MB.0 . . 336
0.A&...4,B$:.4,B$..&..F$."* * RECENTLY R
EPORTED MATCH RESULTS * *":. 3930:.4,B$.
C&..F2$."WINNER":N.18:. 3910:F$.B3$..&..
F2$."LOSER":N.20:. 3910:F$.F$.B3$.H(B$,1
1)..'... I.1 . 3.7'..F2$."SET #".I(D(I),
1):N.7:. 3910:F$.F$.B3$:.:.4,F$.B'F.. 39
40.Q'P.. I.1 . MB..'Z.F$.H(B$,4).H(TI$(W
I(I)).B$,20).H(B$,4).H(TI$(LO(I)).B$,20)
..'... K.1 . 3..'... (L(K,I).0).(W(K,I).
0) . . 3340: . IF BOTH GAMES 0 BRANCH..(
..F2$.I(D(W(K,I)),1).C$.I(D(L(K,I)),1):N
.7:.3910..(..F$.F$.B3$.,(...:.4,F$:..C(.
.. ** NEXT MATCH **..( ..".WHEN IS THE N
EXT MATCH SCHEDULED?":."DATE NONE.....
.";AN$..(*.. AN$."NONE". . 3600.Y(4..4,B
$:.4,B$:F$."** NEXT MATCH DATE ".AN$." *
*":. 3930..)>..4,B$:.".NUMBER OF MATCHES
SCHEDULED";AN$:N.E(AN$)..)H.. I.1 . N.L
)R..".TEAM ID'S FOR A MATCH (EG. 4,7)";N
1,N2..)\..".MATCH TIME (MUST BE IN QUOTE
S)";F9$:.F9$..G(13).AN$.F9$..)A.F2$.TI$(
N1):N.30:. 3910.K)F.F$.B3$." VS. ".H(TI$
(N2).B$,20)..)P.F$.F$.H(B$,5).AN$:.4,F$:
...*Z.. ** MATCH COORDINATOR DATA **..*.
..4,B$:.4,B$.]*..F$."DIVISION COORDINATO
R: ".LC$.H(B$,5)."PHONE: ".PN$:. 3930.~*
... ** LEAGUE SPECIFIC DATA **.J*...4,B$
:.4,B$:F$." 1. MATCH COORDINATOR MUST P
ROVIDE TENNIS BALLS, SEE "..+..F$.F$."TH
AT PLAYERS ARE SET,":.4,F$:F$." AND
REPORT MATCH SCORES ".A+..F$.F$."TO THE
DIVISION COORDINATOR.":.4,F$:F$." 2. WI
NNER OF A MATCH "..+..F$.F$."THAT CAUSES
A CHANGE IN THE CHALLENGE LADDER MUST R
ECORD":.4,F$..+..F$." RESULTS ON THE
LOG SHEET IN THE WEILAND RD. CLUBHOUSE.
":.4,F$.F,J.F$." 3. DEFAULTED MATCHES A
RE NOT USED IN CALCULATING THE STANDINGS
. DEF"..,T.F$.F$."AULTS ARE":.4,F$:F$."
REFLECTED ONLY IN THE DEFAULTS W/L".
.,..F$.F$." COLUMNS.":.4,F$..,.. 4..,X..
6000:...-<.. ** RIGHT JUSTIFY A NUMERICA
L STRING (F2$) IN A FIELD OF BLANKS N LO
NG *.'-F.B3$.I(H(B$,N).F2$,N):..D-P.. **
PRINT, CENTERED IN A 80 COL FIELD, THE
STRING F$ **..-Z.N.C(F$):B3$.H(B2$,(40.N
.2)):F$.B3$.F$:.4,F$:..P-D.F$.".":. I.1.
6:F$.F$.F$:.:F$." ".F$.H(F$,12):.4,F$:.
..- .. SAVE FILE......".":.H(B$,10);".SA
VE TENNIS DATA.":.970:LD.4:.9100./...."
FILE NUMBER";F$.;...N.E(F$).R....F$."*EN
D"..6000:..I.H..980: 15:.15,8,15...R.
1: .1,8,2,"0:TENNIS DATA ".F$.",S,W"...W
.. 705:. E1$.."00" . .4999......1,LN$;C$
;LT$;C$;NT;C$;LC$;C$;PN$;C$;DA$...... 70
5:. E1$.."00" . .4999../...I.1 . NT.O/..
.1,TI$(I);C$;TN(I);C$;TR(I);C$;MP(I);C$;
MW(I);C$;SP(I);C$;SW(I).M/... 705:. E1$.
."00" . .4999../...1,GP(I);C$;GW(I);C$;D
W(I);C$;DL(I)../... 705:. E1$.."00" . .4
999../....D/... 6000.Q/.. 1: 15:.../...
** ALTER DATA ROUTINES **..0... ** ALTER
DATA MAIN MENU **.=0...".."H(B$,7);"LEA
GUE DATA ALTERATIONS".L0..LD.4:.9100.O0.
..:."................OPTIONS:."..0....8)
"........========."..0....8)"...F1..-ALT
ER BASIC LEAGUE DATA"..0(...8)"...F3..-A
LTER INDIVIDUAL TEAM DATA"..12...8)"...F
5..-ALTER MATCH DATA".+1<...8)"...F7..-R
ETURN TO MAIN MENU".Z1F..:.:.:.:.H(B$,9)
"** PRESS AN ..F.. KEY **".P1K..Z1$:.Z1$
."".5195..1P..Z1$.G(133) . . 5300:.5110:
. F1..1Z..Z1$.G(134) ..5500:.5110:. F3.X
1D..Z1$.G(135) ..5700:.5110:. F5..2N..Z1
$.G(136) ..605:.510:.6000:.:. F7..2S..95
0:.5110.32... ** ALTER BASIC LEAGUE DATA
**.[2..B3$."ALTER BASIC LEAGUE DATA":.5
815..2H.PR$."LEAGUE NAME":AN$.LN$:.905:.
LN$..2R.PR$."LEAGUE COORDINATOR":AN$.LC$
:.905:.LC$..2..PR$."COORDINATOR PHONE":A
N$.PN$:.905:.PN$..3..PR$."DATE":AN$.DA$:
.905:.DA$..3....)3|.. ** ALTER DATA FOR
A TEAM **.P3..B3$."ALTER DATA FOR A TEAM
":. 5815.`3..LD.10:.9100..3..."ENTER TEA
M ID# OR Q (QUIT) Q...";AN$..3..II.E(A
N$):. AN$."Q". ..L3...(II.1) . (II.NT) .
.950:. 5505..3..PR$."NAME":AN$.TI$(II):
.905:.TI$(II).&4..PR$."MATCHES WON":AN$.
D(MW(II)):.910:.MW(II).X4..PR$."MATCHES
LOST":AN$.D(ML(II)):.910:.ML(II).Q4..MP(
II).MW(II).ML(II)..4..PR$."SETS WON":AN$
.D(SW(II)):.910:.SW(II).N4..PR$."SETS LO
ST":AN$.D(SL(II)):.910:.SL(II)..4..SP(II
).SW(II).SL(II)..5..PR$."GAMES WON":AN$.
D(GW(II)):.910:.GW(II).F5B.PR$."GAMES LO
ST":AN$.D(GL(II)):.910:.GL(II)._5G.GP(II
).GW(II).GL(II)..5Q.PR$."DEFAULTS WON":A
N$.D(DW(II)):.910:.DW(II).D5V.PR$."DEFAU
LTS LOST":AN$.D(DL(II)):.910:.DL(II).J5.
....5D.. ** ALTER MATCH DATA **."6I.."..
.SORRY, THIS FUNCTION NOT YET IMPLEMENTE
D":. 955:..H6... ** ALTER ROUTINE SUBROU
TINES **.T6... ** INSTRUCTIONS FOR ALTER
ROUTINES **..6...".".20.C(B3$).2);B3$:.
.C6K..:."PRESS .RETURN. TO KEEP THE CURR
ENT VALUE."..6P.."TYPE OVER THE DATA AND
PRESS .RETURN. TO"..7U..H(B$,11)"ALTER
THE DATA."..7Z...+7P.. OPTIONS MENU.M7Z.
.".................OPTIONS:.".I7....8)".
.......========."..7....8)"...F1..-CREAT
E NEW LEAGUE FILE"..7....8)"...F2..-LOAD
LEAGUE FILE"..7....8)"...F3..-DISPLAY L
EAGUE STATISTICS"..8....8)"...F4..-ENTER
MATCH RESULTS".+8....8)"...F5..-MODIFY
STATISTICS".Z8....8)"...F6..-PRINT OUT L
EAGUE STATS SHEET".Y8J...8)"...F7..-SAVE
CHANGES"..8T...8)"...F8..-END"..8....8)
"....NOTE..-ENTER ..*END.. TO EXIT A"..8
....5)"FUNCTION ENTERRED ACCIDENTALLY.".
.8W....8@.. END OF JOB.99J..".":.H(B$,10
);".** END OF PROGRAM **":.970:LD.3:.910
0.N9T..".WOULD YOU LIKE TO SAVE (Y/N)
";:."N...";AN$..9^.. AN$."*END"..6000:..
.9H.. AN$."N". .8060..9R..4000..9|..".C'
EST FINI.".R9...".............END".X9...
. :(#N.NT:. TI$(N),TN(N),TR(N),MP(N),MW(
N),SP(N),SW(N),GP(N),GW(N),PM(N).L:2#. P
S(N),DW(N),DL(N),PG(N),D1(N),D2(N):..H:.
#.".": . I.1 . LD: .:.:...:.'. CREATE NE
W LEAGUE FILE..:$'.".":.H(B$,8);".CREATE
NEW LEAGUE FILE.":.970.F:.'LD.5:.9100..
;8'."WHAT IS THE NAME OF THE LEAGUE";LN$
:.LN$."*END"..6000:..@;B'.980:LD.6:.9100
:.".DOUBLES OR SINGLES LEAGUE (D/S)";LT$
.T;L'LT$.H(LT$,1):.(LT$.."D") . (LT$.."S
") . . 10050..;V'.".NUMBER OF TEAMS IN L
EAGUE";NT..;X'.".LEAGUE COORDINATOR NAME
";LC$..;['.".LEAGUE COORDINATOR PHONE";P
N$..<]'.".THE DATE (EG. 3/15/84)";DA$..<
`'LD.17:.9100..<J'."LEAGUE NAME: ";LN$.G
<T'."LEAGUE TYPE: ";LT$.E<~'."NUMBER IN
LEAGUE:";NT:...<.'."LEAGUE COORDINATOR:
";LC$..<.'."COORDINATOR PHONE: ";PN$..<.
'."TODAY'S DATE: ";DA$..<.'.".IS THIS CO
RRECT Y...";AN$..<.'. AN$.."Y" . . 100
20..=.'. 9000 : . DIM VARS.!=.'. I.1 . N
T.O=.'LD.05:.".":."NAME OF TEAM";I;:.":"
;TI$(I).[=.'TN(I).I.A=D'..U=N'.".":LD.5:
.9100..=X'."LEAGUE MEMBERS":...=.'. I.1
. NT..=.'."TEAM";I,TI$(I):.:..Y=.'."ARE
THESE CORRECT Y...";AN$..=.(. AN$."Y"
. . 4000:.6000:...>.(. AN$.."N" . . 1023
0.5>.(.".WHAT TEAM NUMBER IS WRONG";N.U>
.(.".THE CORRECT NAME";TI$(N).A>((. 1019
0...
> CLICK IMAGE PREVIEW FOR FULL MODAL