RSTRS.OVL
FILE INFORMATION
FILENAME(S): RSTRS.OVL
FILE TYPE(S): PRG
FILE SIZE: 24.5K
FIRST SEEN: 2025-11-30 16:09:54
APPEARS ON: 1 disk(s)
FILE HASH
aad52676512ed8083efe5ed03f0606e05484430eb78cadfad9581bf735191ccc
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| ABSOLUT | RSTRS.OVL | PRG | BrainSkull, Sammlung | 19 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 29 08 00 00 8F 22 20 20 20 20 20 20 20 C4 |..)...." .|
00000010: 52 45 41 4D D4 45 41 4D 20 C6 41 4E 54 41 53 59 |REAM.EAM .ANTASY|
00000020: 20 C6 4F 4F 54 42 41 4C 4C 00 50 08 01 00 8F 22 | .OOTBALL.P...."|
00000030: 20 20 20 20 20 20 20 20 C3 4F 4D 4D 4F 44 4F 52 | .OMMODOR|
00000040: 45 20 36 34 20 D6 45 52 53 49 4F 4E 20 31 2E 30 |E 64 .ERSION 1.0|
00000050: 00 76 08 02 00 8F 22 20 20 20 20 20 20 20 20 28 |.v...." (|
00000060: C3 29 31 39 38 39 20 42 59 20 CD C2 C9 20 D3 4F |.)1989 BY ... .O|
00000070: 46 54 57 41 52 45 00 97 08 03 00 8F 22 20 20 20 |FTWARE......" |
00000080: 20 20 20 20 20 20 20 20 20 D2 4F 53 54 45 52 53 | .OSTERS|
00000090: 20 CD 4F 44 55 4C 45 00 9D 08 04 00 8F 00 BD 08 | .ODULE.........|
000000A0: 05 00 97 38 30 38 2C C2 28 32 35 32 29 3A 20 8F |...808,.(252): .|
000000B0: 20 44 49 53 41 42 4C 45 20 53 54 4F 50 00 F8 08 | DISABLE STOP...|
000000C0: 06 00 8B C2 28 38 30 38 29 B1 32 30 30 A7 97 34 |....(808).200..4|
000000D0: 35 2C C2 28 31 37 34 29 3A 97 34 36 2C C2 28 31 |5,.(174):.46,.(1|
000000E0: 37 35 29 3A 9C 3A 8F 20 43 36 34 20 2D 20 45 4E |75):.:. C64 - EN|
000000F0: 44 20 4F 46 20 50 52 47 00 1E 09 0A 00 97 35 33 |D OF PRG......53|
00000100: 32 38 31 2C 36 3A 97 35 33 32 38 30 2C 36 3A 99 |281,6:.53280,6:.|
00000110: 22 93 96 22 3B C7 28 31 34 29 C7 28 38 29 00 64 |"..";.(14).(8).d|
00000120: 09 0D 00 43 30 24 B2 C7 28 30 29 3A 20 43 51 24 |...C0$..(0): CQ$|
00000130: B2 C7 28 33 34 29 3A 20 43 53 24 B2 22 05 12 20 |..(34): CS$.".. |
00000140: 92 9D 22 3A 20 8F 20 5A 45 52 4F 2C 20 51 55 4F |..": . ZERO, QUO|
00000150: 54 45 2C 20 41 4E 44 20 57 48 49 54 45 20 43 55 |TE, AND WHITE CU|
00000160: 52 53 4F 52 00 99 09 0E 00 42 4C 24 B2 22 20 20 |RSOR.....BL$." |
00000170: 20 20 22 3A 20 55 53 24 B2 22 A3 A3 A3 A3 A3 22 | ": US$."....."|
00000180: 3A 20 43 44 24 B2 22 11 11 11 11 11 22 3A 20 43 |: CD$.".....": C|
00000190: 52 24 B2 22 1D 1D 1D 1D 22 00 E0 09 0F 00 81 20 |R$."...."...... |
000001A0: 49 B2 31 A4 33 3A 20 42 4C 24 B2 42 4C 24 AA 42 |I.1.3: BL$.BL$.B|
000001B0: 4C 24 3A 20 43 52 24 B2 43 52 24 AA 43 52 24 3A |L$: CR$.CR$.CR$:|
000001C0: 20 82 3A 20 8F 20 33 32 20 42 4C 41 4E 4B 53 20 | .: . 32 BLANKS |
000001D0: 41 4E 44 20 43 55 52 53 4F 52 20 52 49 47 48 54 |AND CURSOR RIGHT|
000001E0: 00 0A 0A 10 00 55 53 24 B2 55 53 24 AA 55 53 24 |.....US$.US$.US$|
000001F0: AA 55 53 24 AA 55 53 24 3A 20 8F 20 32 30 20 55 |.US$.US$: . 20 U|
00000200: 4E 44 45 52 53 43 4F 52 45 53 00 43 0A 11 00 43 |NDERSCORES.C...C|
00000210: 44 24 B2 22 13 11 11 22 AA 43 44 24 AA 43 44 24 |D$."...".CD$.CD$|
00000220: AA 43 44 24 AA 43 44 24 3A 20 8F 20 48 4F 4D 45 |.CD$.CD$: . HOME|
00000230: 20 41 4E 44 20 32 32 20 43 55 52 53 4F 52 20 44 | AND 22 CURSOR D|
00000240: 4F 57 4E 00 52 0A 28 00 5A B2 31 3A 8D 36 30 30 |OWN.R.(.Z.1:.600|
00000250: 30 30 00 82 0A 32 00 99 22 13 11 11 11 11 11 1D |00...2..".......|
00000260: 1D 1D 1D 1D 1D 1D 9F C4 52 45 41 4D D4 45 41 4D |........REAM.EAM|
00000270: 20 C6 41 4E 54 41 53 59 20 C6 4F 4F 54 42 41 4C | .ANTASY .OOTBAL|
00000280: 4C 22 00 A2 0A 3C 00 99 22 1D 1D 1D 1D 1D 1D 1D |L"...<..".......|
00000290: 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D D2 4F 53 54 45 52 |...........OSTER|
000002A0: 53 22 00 EC 0A 6F 00 86 20 54 50 28 32 2C 33 29 |S"...o.. TP(2,3)|
000002B0: 2C 4E 4E 24 28 33 35 29 2C 4E 41 24 28 33 35 29 |,NN$(35),NA$(35)|
000002C0: 2C 50 4C 28 31 30 30 29 2C 50 58 28 33 30 30 29 |,PL(100),PX(300)|
000002D0: 2C 50 4E 24 28 33 30 30 29 2C 53 54 28 33 35 29 |,PN$(300),ST(35)|
000002E0: 2C 50 53 28 39 29 2C 46 57 28 38 29 00 14 0B 70 |,PS(9),FW(8)...p|
000002F0: 00 86 20 44 4E 24 28 31 35 29 2C 54 53 28 31 35 |.. DN$(15),TS(15|
00000300: 29 2C 4D 4B 24 28 31 35 29 2C 53 43 24 28 31 35 |),MK$(15),SC$(15|
00000310: 2C 31 35 29 00 54 0B 71 00 81 20 49 B2 31 A4 31 |,15).T.q.. I.1.1|
00000320: 37 3A 20 53 54 28 49 29 B2 32 31 3A 20 82 3A 20 |7: ST(I).21: .: |
00000330: 81 20 49 B2 31 38 A4 32 34 3A 20 53 54 28 49 29 |. I.18.24: ST(I)|
00000340: B2 31 39 3A 20 82 3A 20 8F 20 53 45 43 54 4F 52 |.19: .: . SECTOR|
00000350: 53 2F 54 4B 00 87 0B 72 00 81 20 49 B2 32 35 A4 |S/TK...r.. I.25.|
00000360: 33 30 3A 20 53 54 28 49 29 B2 31 38 3A 20 82 3A |30: ST(I).18: .:|
00000370: 20 81 20 49 B2 33 31 A4 33 35 3A 20 53 54 28 49 | . I.31.35: ST(I|
00000380: 29 B2 31 37 3A 20 82 00 BE 0B 73 00 81 20 49 B2 |).17: ....s.. I.|
00000390: 30 A4 37 3A 20 46 57 28 49 29 B2 32 3A 20 82 3A |0.7: FW(I).2: .:|
000003A0: 20 8F 20 46 49 45 4C 44 20 57 49 44 54 48 53 20 | . FIELD WIDTHS |
000003B0: 46 4F 52 20 53 54 41 54 49 53 54 49 43 53 00 EA |FOR STATISTICS..|
000003C0: 0B 74 00 46 57 28 31 29 B2 33 3A 46 57 28 33 29 |.t.FW(1).3:FW(3)|
000003D0: B2 33 3A 46 57 28 34 29 B2 34 3A 46 57 28 35 29 |.3:FW(4).4:FW(5)|
000003E0: B2 34 3A 46 57 28 38 29 B2 33 00 1B 0C 75 00 50 |.4:FW(8).3...u.P|
000003F0: 4F 24 B2 22 D5 CE D1 C2 D4 C5 CB 20 D7 D2 D2 C2 |O$."....... ....|
00000400: 22 3A 20 8F 20 50 4F 53 49 54 49 4F 4E 20 41 42 |": . POSITION AB|
00000410: 42 52 45 56 49 41 54 49 4F 4E 53 00 4E 0C 76 00 |BREVIATIONS.N.v.|
00000420: 51 55 24 B2 C7 28 33 34 29 3A 42 41 24 B2 51 55 |QU$..(34):BA$.QU|
00000430: 24 AA 22 5F 22 AA 51 55 24 3A 20 8F 20 51 55 4F |$."_".QU$: . QUO|
00000440: 54 45 44 20 42 41 43 4B 20 41 52 52 4F 57 00 6B |TED BACK ARROW.k|
00000450: 0C 77 00 4E 57 B2 31 36 3A 20 8F 20 4E 55 4D 42 |.w.NW.16: . NUMB|
00000460: 45 52 20 4F 46 20 57 45 45 4B 53 00 7B 0C 78 00 |ER OF WEEKS.{.x.|
00000470: 8D 36 30 31 30 30 3A 20 5A B2 31 00 B4 0C 82 00 |.60100: Z.1.....|
00000480: 8D 36 30 30 30 30 3A 99 C8 28 43 44 24 2C 31 30 |.60000:..(CD$,10|
00000490: 29 3B 22 1D 1D 1D 1D 1D 1D 9E D0 4C 45 41 53 45 |);"........LEASE|
000004A0: 20 C9 4E 53 45 52 54 20 CC 45 41 47 55 45 20 C4 | .NSERT .EAGUE .|
000004B0: 49 53 4B 22 00 C9 0C 8C 00 8D 20 36 30 31 30 30 |ISK"...... 60100|
000004C0: 3A 20 8D 20 36 30 38 30 30 00 09 0D 8E 00 8B 45 |: . 60800......E|
000004D0: B3 B1 30 A7 54 45 24 B2 22 1E 1D 1D 1D 1D C5 D2 |..0.TE$.".......|
000004E0: D2 CF D2 05 20 2D 2D 20 C4 49 53 4B 20 49 53 20 |.... -- .ISK IS |
000004F0: 4E 4F 54 20 41 20 C4 41 54 41 20 C4 49 53 4B 22 |NOT A .ATA .ISK"|
00000500: 3A 5A B2 32 3A 89 31 33 30 00 33 0D C8 00 5A B2 |:Z.2:.130.3...Z.|
00000510: 30 3A 54 45 24 B2 22 D2 4F 53 54 45 52 20 C3 48 |0:TE$.".OSTER .H|
00000520: 41 4E 47 45 53 20 CD 45 4E 55 22 3A 8D 20 36 30 |ANGES .ENU":. 60|
00000530: 30 30 30 00 61 0D DC 00 99 22 11 11 11 11 1D 1D |000.a...."......|
00000540: 1D 1D 1D 1D 9E 31 2E 20 20 C3 48 41 4E 47 45 20 |.....1. .HANGE |
00000550: D3 54 41 52 54 49 4E 47 20 CC 49 4E 45 55 50 53 |.TARTING .INEUPS|
00000560: 22 00 8C 0D E6 00 99 22 11 1D 1D 1D 1D 1D 1D 32 |"......".......2|
00000570: 2E 20 20 C3 48 41 4E 47 45 20 C4 52 45 41 4D D4 |. .HANGE .REAM.|
00000580: 45 41 4D 20 D2 4F 53 54 45 52 53 22 00 B6 0D F0 |EAM .OSTERS"....|
00000590: 00 99 22 11 1D 1D 1D 1D 1D 1D 33 2E 20 20 C3 48 |..".......3. .H|
000005A0: 41 4E 47 45 20 D0 4C 41 59 45 52 53 2F D0 52 4F |ANGE .LAYERS/.RO|
000005B0: D4 45 41 4D 53 22 00 DF 0D FA 00 99 22 11 1D 1D |.EAMS"......"...|
000005C0: 1D 1D 1D 1D 34 2E 20 20 C4 49 53 50 4C 41 59 20 |....4. .ISPLAY |
000005D0: D4 45 41 4D 20 D3 43 48 45 44 55 4C 45 53 22 00 |.EAM .CHEDULES".|
000005E0: 05 0E FF 00 99 22 11 1D 1D 1D 1D 1D 1D 35 2E 20 |.....".......5. |
000005F0: 20 D2 45 54 55 52 4E 20 54 4F 20 CD 41 49 4E 20 | .ETURN TO .AIN |
00000600: CD 45 4E 55 22 00 1C 0E 04 01 99 22 11 1D 1D 1D |.ENU"......"....|
00000610: 1D 1D 1D 36 2E 20 20 C5 58 49 54 22 00 47 0E 0E |...6. .XIT".G..|
00000620: 01 99 22 11 11 1D 1D 1D 1D 1D 1D 1D C5 4E 54 45 |.."..........NTE|
00000630: 52 20 4F 50 54 49 4F 4E 20 4E 55 4D 42 45 52 20 |R OPTION NUMBER |
00000640: 20 28 31 2D 36 29 22 00 68 0E 18 01 A1 58 24 3A | (1-6)".h....X$:|
00000650: 20 8B 20 58 24 B3 22 31 22 20 B0 20 58 24 B1 22 | . X$."1" . X$."|
00000660: 36 22 20 A7 20 32 38 30 00 8E 0E 22 01 91 20 C5 |6" . 280...".. .|
00000670: 28 58 24 29 20 89 20 31 37 30 30 2C 34 34 30 30 |(X$) . 1700,4400|
00000680: 2C 36 30 30 30 2C 31 36 30 30 2C 33 30 30 00 C7 |,6000,1600,300..|
00000690: 0E 24 01 5A B2 31 3A 8D 36 30 30 30 30 3A 99 22 |.$.Z.1:.60000:."|
000006A0: 11 11 11 11 11 1D 1D 1D 1D 05 C5 D8 C9 D4 9E 20 |............... |
000006B0: 2D 20 C1 52 45 20 59 4F 55 20 53 55 52 45 3F 20 |- .RE YOU SURE? |
000006C0: 28 D9 2F CE 29 22 3B 00 E3 0E 26 01 8D 20 36 32 |(./.)";...&.. 62|
000006D0: 35 30 30 3A 20 8B 20 58 24 B2 22 CE 22 20 A7 20 |500: . X$."." . |
000006E0: 32 30 30 00 EE 0E 28 01 89 36 33 39 30 30 00 24 |200...(..63900.$|
000006F0: 0F 2C 01 5A B2 31 3A 8D 36 30 30 30 30 3A 4C 49 |.,.Z.1:.60000:LI|
00000700: B2 31 30 3A 54 43 24 B2 22 05 D0 4C 45 41 53 45 |.10:TC$."..LEASE|
00000710: 20 49 4E 53 45 52 54 20 54 48 45 22 3A 8D 20 36 | INSERT THE":. 6|
00000720: 30 31 35 30 00 4E 0F 36 01 54 43 24 B2 22 C4 52 |0150.N.6.TC$.".R|
00000730: 45 41 4D D4 45 41 4D 20 D0 52 4F 47 52 41 4D 20 |EAM.EAM .ROGRAM |
00000740: C4 49 53 4B 22 3A 20 8D 20 36 30 31 36 30 00 7F |.ISK": . 60160..|
00000750: 0F 40 01 54 43 24 B2 22 41 4E 44 20 50 52 45 53 |.@.TC$."AND PRES|
00000760: 53 20 3C D3 D0 C1 C3 C5 3E 20 54 4F 20 43 4F 4E |S <.....> TO CON|
00000770: 54 49 4E 55 45 22 3A 20 8D 20 36 30 31 36 30 00 |TINUE": . 60160.|
00000780: 98 0F 4A 01 A1 58 24 3A 20 8B 20 58 24 B3 B1 22 |..J..X$: . X$.."|
00000790: 20 22 20 A7 20 33 33 30 00 C0 0F 54 01 54 43 24 | " . 330...T.TC$|
000007A0: B2 22 11 CC 4F 41 44 49 4E 47 20 C6 C6 C2 20 4D |."..OADING ... M|
000007B0: 45 4E 55 2E 2E 2E 22 3A 20 8D 20 36 30 31 36 30 |ENU...": . 60160|
000007C0: 00 F9 0F 5E 01 9F 31 2C 31 35 2C 38 3A 9F 32 2C |...^..1,15,8:.2,|
000007D0: 38 2C 32 2C 22 46 46 42 2E 4D 45 4E 55 2C 50 2C |8,2,"FFB.MENU,P,|
000007E0: 52 22 3A 84 31 2C 45 2C 45 24 3A A0 32 3A A0 31 |R":.1,E,E$:.2:.1|
000007F0: 3A 8B 45 B2 30 A7 33 37 30 00 38 10 68 01 5A B2 |:.E.0.370.8.h.Z.|
00000800: 31 3A 8D 36 30 30 30 30 3A 4C 49 B2 36 3A 54 43 |1:.60000:LI.6:TC|
00000810: 24 B2 22 1E C5 D2 D2 CF D2 05 20 2D 20 46 49 4C |$."....... - FIL|
00000820: 45 20 4E 4F 54 20 46 4F 55 4E 44 22 3A 8D 36 30 |E NOT FOUND":.60|
00000830: 31 36 30 3A 89 33 30 30 00 63 10 72 01 97 38 30 |160:.300.c.r..80|
00000840: 38 2C C2 28 32 35 31 29 3A 20 9C 3A 20 93 22 46 |8,.(251): .: ."F|
00000850: 46 42 2E 4D 45 4E 55 22 2C 38 3A 20 89 20 36 33 |FB.MENU",8: . 63|
00000860: 39 30 30 00 9A 10 40 06 5A B2 30 3A 20 54 45 24 |900...@.Z.0: TE$|
00000870: B2 22 D0 52 49 4E 54 20 D0 4C 41 59 20 D3 43 48 |.".RINT .LAY .CH|
00000880: 45 44 55 4C 45 22 3A 20 8D 36 30 30 30 30 3A 20 |EDULE": .60000: |
00000890: 4E 54 B2 54 50 28 31 2C 30 29 00 C8 10 4A 06 99 |NT.TP(1,0)...J..|
000008A0: 22 9E 13 11 11 11 11 11 11 11 1D 1D 1D 1D 1D 1D |"...............|
000008B0: 31 2E 20 20 CF 4E 45 20 D4 45 41 4D 27 53 20 D3 |1. .NE .EAM'S .|
000008C0: 43 48 45 44 55 4C 45 22 00 EA 10 54 06 99 22 11 |CHEDULE"...T..".|
000008D0: 1D 1D 1D 1D 1D 1D 32 2E 20 20 CC 45 41 47 55 45 |......2. .EAGUE|
000008E0: 20 D3 43 48 45 44 55 4C 45 22 00 12 11 5E 06 4F | .CHEDULE"...^.O|
000008F0: 50 24 B2 22 32 22 3A 20 8D 20 36 32 36 30 30 3A |P$."2": . 62600:|
00000900: 20 91 20 4F 50 20 89 20 33 33 30 30 2C 20 33 36 | . OP . 3300, 36|
00000910: 30 30 00 33 11 68 06 89 20 32 30 30 3A 20 8F 20 |00.3.h.. 200: . |
00000920: 52 45 54 55 52 4E 20 54 4F 20 4D 41 49 4E 20 4D |RETURN TO MAIN M|
00000930: 45 4E 55 00 67 11 A4 06 54 45 24 B2 22 C3 48 41 |ENU.g...TE$.".HA|
00000940: 4E 47 45 20 D3 54 41 52 54 49 4E 47 20 CC 49 4E |NGE .TARTING .IN|
00000950: 45 55 50 53 22 3A 20 8D 20 35 31 37 31 30 3A 20 |EUPS": . 51710: |
00000960: 8D 20 35 30 33 31 30 00 9E 11 AE 06 5A B2 30 3A |. 50310.....Z.0:|
00000970: 20 8D 20 36 30 30 30 30 3A 20 99 C8 28 43 44 24 | . 60000: ..(CD$|
00000980: 2C 35 29 3B C8 28 43 52 24 2C 34 29 3B 22 9E D4 |,5);.(CR$,4);"..|
00000990: 45 41 4D 20 05 22 3B 44 4E 24 28 54 58 29 00 CD |EAM .";DN$(TX)..|
000009A0: 11 B0 06 8B 20 4E 50 B2 30 20 A7 20 99 C8 28 43 |.... NP.0 . ..(C|
000009B0: 52 24 2C 36 29 3B 22 11 9E CE 4F 20 50 4C 41 59 |R$,6);"...O PLAY|
000009C0: 45 52 53 2E 22 3A 20 89 20 31 37 35 30 00 F1 11 |ERS.": . 1750...|
000009D0: B8 06 81 20 50 4C B2 30 A4 4E 50 AB 31 3A 20 50 |... PL.0.NP.1: P|
000009E0: 58 B2 50 4C 28 50 4C 29 3A 20 8D 20 35 30 35 30 |X.PL(PL): . 5050|
000009F0: 30 00 11 12 C2 06 99 C8 28 43 52 24 2C 34 29 3B |0.......(CR$,4);|
00000A00: 22 05 22 3B C9 28 C4 28 50 4C AA 31 29 2C 32 29 |".";.(.(PL.1),2)|
00000A10: 3B 00 43 12 C4 06 99 22 20 9E 22 3B 50 4E 24 28 |;.C...." .";PN$(|
00000A20: 50 58 28 50 58 29 29 3B 22 20 12 22 3B CA 28 50 |PX(PX));" .";.(P|
00000A30: 4F 24 2C 31 AA 32 AC 50 4F 2C 32 29 3B 22 92 20 |O$,1.2.PO,2);". |
00000A40: 05 22 3B 00 6D 12 C6 06 91 20 50 46 20 89 20 31 |.";.m.... PF . 1|
00000A50: 37 33 36 2C 31 37 33 37 2C 31 37 33 38 3A 20 99 |736,1737,1738: .|
00000A60: 22 CE 45 57 22 3A 20 89 20 31 37 34 30 00 84 12 |".EW": . 1740...|
00000A70: C8 06 99 22 D3 54 41 52 54 45 52 22 3A 20 89 20 |...".TARTER": . |
00000A80: 31 37 34 30 00 99 12 C9 06 99 22 C2 45 4E 43 48 |1740......".ENCH|
00000A90: 22 3A 20 89 20 31 37 34 30 00 A8 12 CA 06 99 22 |": . 1740......"|
00000AA0: C9 4E 4A 55 52 45 44 22 00 E5 12 CC 06 82 20 50 |.NJURED"...... P|
00000AB0: 4C 3A 20 54 43 24 B2 22 9E C5 4E 54 45 52 20 4E |L: TC$."..NTER N|
00000AC0: 55 4D 42 45 52 2C 20 4F 52 20 50 52 45 53 53 20 |UMBER, OR PRESS |
00000AD0: 22 AA 42 41 24 3A 20 4C 49 B2 32 33 3A 20 8D 20 |".BA$: LI.23: . |
00000AE0: 36 30 31 35 30 00 26 13 CE 06 99 22 91 91 22 3B |60150.&...."..";|
00000AF0: C8 28 43 52 24 2C 34 29 3B 22 9E C3 48 41 4E 47 |.(CR$,4);"..HANG|
00000B00: 45 20 57 48 49 43 48 20 50 4C 41 59 45 52 3F 20 |E WHICH PLAYER? |
00000B10: 20 22 3B 43 53 24 3B 3A 20 4C 45 B2 32 3A 20 8D | ";CS$;: LE.2: .|
00000B20: 20 36 30 33 30 30 00 5A 13 D0 06 50 4C B2 C5 28 | 60300.Z...PL..(|
00000B30: 59 24 29 AB 31 3A 20 8B 20 50 4C B1 B2 30 20 AF |Y$).1: . PL..0 .|
00000B40: 20 50 4C B3 4E 50 20 A7 20 50 58 B2 50 4C 28 50 | PL.NP . PX.PL(P|
00000B50: 4C 29 3A 20 89 20 31 37 34 38 00 76 13 D2 06 8B |L): . 1748.v....|
00000B60: 20 59 24 B3 B1 22 22 20 A7 20 99 22 11 22 3A 20 | Y$.."" . .".": |
00000B70: 89 20 31 37 34 32 00 A3 13 D4 06 5A B2 30 3A 20 |. 1742.....Z.0: |
00000B80: 8D 20 36 30 30 30 30 3A 20 8B 20 59 24 B3 B1 22 |. 60000: . Y$.."|
00000B90: 22 20 A7 20 8D 20 35 30 35 30 30 3A 20 89 20 31 |" . . 50500: . 1|
00000BA0: 38 30 30 00 E1 13 D6 06 99 C8 28 43 52 24 2C 36 |800.......(CR$,6|
00000BB0: 29 3B 3A 20 99 22 11 11 11 11 11 11 9E C1 4E 4F |);: ."........NO|
00000BC0: 54 48 45 52 20 C4 52 45 41 4D D4 45 41 4D 3F 20 |THER .REAM.EAM? |
00000BD0: 28 D9 2F CE 29 20 22 3B 3A 20 8D 20 36 32 35 30 |(./.) ";: . 6250|
00000BE0: 30 00 F5 13 E0 06 8B 20 58 24 B2 22 D9 22 20 A7 |0...... X$."." .|
00000BF0: 20 31 37 30 30 00 0E 14 EA 06 89 20 32 30 30 3A | 1700...... 200:|
00000C00: 20 8E 20 A4 20 4D 41 49 4E 20 4D 45 4E 55 00 51 | . . MAIN MENU.Q|
00000C10: 14 08 07 99 22 11 11 1D 1D 1D 1D 9E C3 48 41 4E |...."........HAN|
00000C20: 47 45 20 53 54 41 54 55 53 20 4F 46 20 50 4C 41 |GE STATUS OF PLA|
00000C30: 59 45 52 3A 11 05 22 3A 20 54 43 24 B2 50 4E 24 |YER:..": TC$.PN$|
00000C40: 28 50 58 28 50 58 29 29 3A 20 8D 20 36 30 31 36 |(PX(PX)): . 6016|
00000C50: 30 00 77 14 12 07 99 C8 28 43 52 24 2C 36 29 3B |0.w.....(CR$,6);|
00000C60: 22 05 20 31 2E 20 9E D3 54 41 52 54 49 4E 47 20 |". 1. ..TARTING |
00000C70: 4C 49 4E 45 55 50 22 00 9C 14 14 07 99 C8 28 43 |LINEUP".......(C|
00000C80: 52 24 2C 36 29 3B 22 05 20 32 2E 20 9E C2 45 4E |R$,6);". 2. ..EN|
00000C90: 43 48 22 3A 20 4F 50 24 B2 22 32 22 00 D2 14 16 |CH": OP$."2"....|
00000CA0: 07 8B 20 49 52 20 A7 20 4F 50 24 B2 22 33 22 3A |.. IR . OP$."3":|
00000CB0: 20 99 C8 28 43 52 24 2C 36 29 3B 22 05 20 33 2E | ..(CR$,6);". 3.|
00000CC0: 20 9E C9 4E 4A 55 52 45 44 20 D2 45 53 45 52 56 | ..NJURED .ESERV|
00000CD0: 45 22 00 02 15 1C 07 8D 20 36 32 36 30 30 3A 20 |E"...... 62600: |
00000CE0: 8B 20 4F 50 B1 30 20 A7 20 8B 20 4F 50 B3 B1 50 |. OP.0 . . OP..P|
00000CF0: 46 20 A7 20 50 46 B2 4F 50 3A 20 8D 20 35 30 34 |F . PF.OP: . 504|
00000D00: 30 30 00 0D 15 26 07 89 20 31 37 31 30 00 41 15 |00...&.. 1710.A.|
00000D10: 80 0C 8D 20 36 30 30 30 30 3A 20 99 C8 28 43 44 |... 60000: ..(CD|
00000D20: 24 2C 36 29 3B C8 28 43 52 24 2C 34 29 3B 22 9E |$,6);.(CR$,4);".|
00000D30: D4 45 41 4D 20 4E 55 4D 42 45 52 22 3B 54 58 AA |.EAM NUMBER";TX.|
00000D40: 31 00 58 15 82 0C 99 C8 28 43 52 24 2C 34 29 3B |1.X.....(CR$,4);|
00000D50: 22 11 CE 41 4D 45 3A 22 00 71 15 84 0C 99 C8 28 |"..AME:".q.....(|
00000D60: 43 52 24 2C 31 34 29 3B C8 28 55 53 24 2C 32 30 |CR$,14);.(US$,20|
00000D70: 29 00 A2 15 86 0C 99 22 91 91 22 3B C8 28 43 52 |)......"..";.(CR|
00000D80: 24 2C 31 34 29 3B 43 53 24 3B 3A 20 4C 45 B2 32 |$,14);CS$;: LE.2|
00000D90: 30 3A 20 8D 20 36 30 32 30 30 3A 20 54 4E 24 B2 |0: . 60200: TN$.|
00000DA0: 59 24 00 C2 15 88 0C 8B 20 54 4E 24 B2 C8 28 42 |Y$...... TN$..(B|
00000DB0: 4C 24 2C 4C 45 29 20 A7 20 54 4E 24 B2 22 22 3A |L$,LE) . TN$."":|
00000DC0: 20 8E 00 E5 15 94 0C 99 3A 20 99 C8 28 43 52 24 | .......: ..(CR$|
00000DD0: 2C 34 29 3B 22 9E 11 C1 42 42 52 45 56 49 41 54 |,4);"...BBREVIAT|
00000DE0: 49 4F 4E 3A 22 00 FD 15 96 0C 99 C8 28 43 52 24 |ION:".......(CR$|
00000DF0: 2C 32 30 29 3B C8 28 55 53 24 2C 34 29 00 2D 16 |,20);.(US$,4).-.|
00000E00: 98 0C 99 22 91 91 22 3B C8 28 43 52 24 2C 32 30 |..."..";.(CR$,20|
00000E10: 29 3B 43 53 24 3B 3A 20 4C 45 B2 34 3A 20 8D 20 |);CS$;: LE.4: . |
00000E20: 36 30 32 30 30 3A 20 41 42 24 B2 59 24 00 6F 16 |60200: AB$.Y$.o.|
00000E30: 9E 0C 99 22 9E 11 1D 1D 1D 1D C9 53 20 54 48 49 |...".......S THI|
00000E40: 53 20 43 4F 52 52 45 43 54 3F 20 28 D9 2F CE 29 |S CORRECT? (./.)|
00000E50: 20 22 3B 3A 20 8D 20 36 32 35 30 30 3A 20 8B 20 | ";: . 62500: . |
00000E60: 58 24 B2 22 CE 22 20 A7 20 54 4E 24 B2 22 22 00 |X$."." . TN$."".|
00000E70: 75 16 A8 0C 8E 00 9B 16 E4 0C 54 45 24 B2 22 C4 |u.........TE$.".|
00000E80: 49 53 50 4C 41 59 20 CF 4E 45 20 D4 45 41 4D 27 |ISPLAY .NE .EAM'|
00000E90: 53 20 D3 43 48 45 44 55 4C 45 22 00 D5 16 EE 0C |S .CHEDULE".....|
00000EA0: 5A B2 30 3A 20 8D 20 36 30 30 30 30 3A 20 99 22 |Z.0: . 60000: ."|
00000EB0: 11 11 11 9E 1D 1D 1D 1D 1D D7 48 41 54 20 54 45 |..........HAT TE|
00000EC0: 41 4D 27 53 20 53 43 48 45 44 55 4C 45 20 44 4F |AM'S SCHEDULE DO|
00000ED0: 20 59 4F 55 22 00 EF 16 F0 0C 99 22 11 1D 1D 1D | YOU"......"....|
00000EE0: 1D 1D 57 49 53 48 20 54 4F 20 53 45 45 3F 22 00 |..WISH TO SEE?".|
00000EF0: 19 17 F2 0C 99 22 11 11 11 1D 1D 1D 1D 1D 1D 1D |....."..........|
00000F00: 1D 1D 1D 05 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000F10: A3 A3 A3 A3 A3 A3 A3 A3 22 00 48 17 F8 0C 99 22 |........".H...."|
00000F20: 91 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D 12 20 92 9D |............. ..|
00000F30: 22 3B 3A 20 4C 45 B2 32 30 3A 20 8D 36 30 32 30 |";: LE.20: .6020|
00000F40: 30 3A 20 54 24 B2 59 24 00 78 17 02 0D 59 B2 30 |0: T$.Y$.x...Y.0|
00000F50: 3A 20 81 58 B2 30 A4 4E 54 AB 31 3A 20 8B 54 24 |: .X.0.NT.1: .T$|
00000F60: B2 44 4E 24 28 58 29 20 A7 20 59 B2 31 3A 20 54 |.DN$(X) . Y.1: T|
00000F70: B2 58 3A 20 58 B2 4E 54 00 8F 17 0C 0D 82 3A 20 |.X: X.NT......: |
00000F80: 99 3A 20 8B 20 59 B2 31 20 A7 20 33 33 36 30 00 |.: . Y.1 . 3360.|
00000F90: BA 17 16 0D 99 22 11 11 1E 22 3A 20 54 43 24 B2 |....."...": TC$.|
00000FA0: 22 D4 45 41 4D 20 4E 4F 54 20 46 4F 55 4E 44 2E |".EAM NOT FOUND.|
00000FB0: 22 3A 20 8D 20 36 30 31 35 30 00 EA 17 18 0D 99 |": . 60150......|
00000FC0: 22 1D 1D 1D 1D 1D 05 C4 4F 20 59 4F 55 20 57 49 |".......O YOU WI|
00000FD0: 53 48 20 54 4F 20 54 52 59 20 41 47 41 49 4E 3F |SH TO TRY AGAIN?|
00000FE0: 20 20 28 D9 2F CE 29 A0 22 3B 00 07 18 1A 0D 8D | (./.).";......|
00000FF0: 20 36 32 35 30 30 3A 20 8B 20 58 24 B2 22 D9 22 | 62500: . X$."."|
00001000: 20 A7 20 33 33 31 30 00 24 18 1C 0D 89 20 31 36 | . 3310.$.... 16|
00001010: 30 30 3A 20 8F 20 41 4E 53 57 45 52 20 57 41 53 |00: . ANSWER WAS|
00001020: 20 22 CE 22 00 5C 18 20 0D 8D 20 36 32 34 30 30 | ".".\. .. 62400|
00001030: 3A 20 8B 20 58 24 B2 22 D3 22 20 A7 20 33 34 30 |: . X$."." . 340|
00001040: 30 3A 20 8F 20 41 53 4B 20 22 53 43 52 45 45 4E |0: . ASK "SCREEN|
00001050: 20 4F 52 20 50 52 49 4E 54 45 52 22 00 70 18 22 | OR PRINTER".p."|
00001060: 0D 8B 20 58 24 B2 22 D0 22 20 A7 20 33 35 30 30 |.. X$."." . 3500|
00001070: 00 AE 18 24 0D 89 20 31 36 30 30 3A 20 8F 20 41 |...$.. 1600: . A|
00001080: 4E 53 57 45 52 20 57 41 53 20 22 20 22 2C 20 49 |NSWER WAS " ", I|
00001090: 2E 45 2E 20 22 D0 22 20 42 55 54 20 43 41 4E 27 |.E. "." BUT CAN'|
000010A0: 54 20 4F 50 45 4E 20 50 52 49 4E 54 45 52 00 D6 |T OPEN PRINTER..|
000010B0: 18 48 0D 5A B2 30 3A 54 45 24 B2 22 D3 43 48 45 |.H.Z.0:TE$.".CHE|
000010C0: 44 55 4C 45 20 46 4F 52 20 22 AA 54 24 3A 20 8D |DULE FOR ".T$: .|
000010D0: 20 36 30 30 30 30 00 04 19 52 0D 99 22 13 11 11 | 60000...R.."...|
000010E0: 11 11 1D 1D 1D 1D 1D 1D 1D 1D 1D 9E D7 45 45 4B |.............EEK|
000010F0: 20 20 20 CF 50 50 4F 53 49 4E 47 20 D4 45 41 4D | .PPOSING .EAM|
00001100: 22 3A 20 99 00 30 19 5C 0D 81 57 B2 30 A4 31 35 |": ..0.\..W.0.15|
00001110: 3A 20 99 C8 28 43 52 24 2C 31 30 29 3B C9 28 C4 |: ..(CR$,10);.(.|
00001120: 28 57 AA 31 29 2C 32 29 3B 22 1D 1D 1D 1D 22 3B |(W.1),2);"....";|
00001130: 00 49 19 66 0D 58 24 B2 53 43 24 28 57 2C 54 29 |.I.f.X$.SC$(W,T)|
00001140: 3A 20 58 B2 C6 28 58 24 29 00 6C 19 70 0D 8B 20 |: X..(X$).l.p.. |
00001150: 58 24 B2 22 58 22 20 A7 20 99 22 D0 4C 41 59 4F |X$."X" . .".LAYO|
00001160: 46 46 53 22 3A 20 89 20 33 34 38 30 00 93 19 7A |FFS": . 3480...z|
00001170: 0D 8B 20 58 24 B2 22 59 22 20 A7 20 99 22 C6 41 |.. X$."Y" . .".A|
00001180: 4E 54 41 53 59 20 C2 4F 57 4C 22 3A 20 89 20 33 |NTASY .OWL": . 3|
00001190: 34 38 30 00 BA 19 84 0D 8B 20 58 24 B2 22 5A 22 |480...... X$."Z"|
000011A0: 20 A7 20 99 22 C6 52 45 45 20 C6 4F 52 20 C1 4C | . .".REE .OR .L|
000011B0: 4C 22 3A 20 89 20 33 34 38 30 00 C7 19 8E 0D 99 |L": . 3480......|
000011C0: 20 44 4E 24 28 58 29 00 DC 19 98 0D 82 3A 20 8D | DN$(X)......: .|
000011D0: 36 30 31 30 30 3A 20 89 31 36 30 30 00 0D 1A AC |60100: .1600....|
000011E0: 0D 8D 20 36 30 30 30 30 3A 20 99 C8 28 43 44 24 |.. 60000: ..(CD$|
000011F0: 2C 31 30 29 3B C8 28 43 52 24 2C 31 30 29 3B 22 |,10);.(CR$,10);"|
00001200: 9E D0 52 49 4E 54 49 4E 47 2E 2E 2E 22 00 28 1A |..RINTING...".(.|
00001210: AE 0D 8D 20 36 32 37 31 30 3A 20 8F 20 50 41 47 |... 62710: . PAG|
00001220: 45 20 48 45 41 44 45 52 00 53 1A B6 0D 98 34 2C |E HEADER.S....4,|
00001230: C8 28 42 4C 24 2C 31 30 29 3B 22 D3 43 48 45 44 |.(BL$,10);".CHED|
00001240: 55 4C 45 20 46 4F 52 20 22 3B 54 24 3A 20 98 34 |ULE FOR ";T$: .4|
00001250: 2C 22 22 00 7B 1A C0 0D 98 34 2C C8 28 42 4C 24 |,"".{....4,.(BL$|
00001260: 2C 31 30 29 3B 22 D7 45 45 4B 20 20 20 CF 50 50 |,10);".EEK .PP|
00001270: 4F 53 49 4E 47 20 D4 45 41 4D 22 00 A3 1A C2 0D |OSING .EAM".....|
00001280: 98 34 2C C8 28 42 4C 24 2C 31 30 29 3B 22 3D 3D |.4,.(BL$,10);"==|
00001290: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000012A0: 3D 3D 22 00 D1 1A CA 0D 81 57 B2 30 A4 31 35 3A |=="......W.0.15:|
000012B0: 20 98 34 2C C8 28 42 4C 24 2C 31 32 29 3B C9 28 | .4,.(BL$,12);.(|
000012C0: C4 28 57 AA 31 29 2C 32 29 3B 22 20 20 20 20 22 |.(W.1),2);" "|
000012D0: 3B 00 EA 1A D4 0D 58 24 B2 53 43 24 28 57 2C 54 |;.....X$.SC$(W,T|
000012E0: 29 3A 20 58 B2 C6 28 58 24 29 00 0F 1B D6 0D 8B |): X..(X$)......|
000012F0: 20 58 24 B2 22 58 22 20 A7 20 98 34 2C 22 D0 4C | X$."X" . .4,".L|
00001300: 41 59 4F 46 46 53 22 3A 20 89 20 33 35 35 30 00 |AYOFFS": . 3550.|
00001310: 38 1B D8 0D 8B 20 58 24 B2 22 59 22 20 A7 20 98 |8.... X$."Y" . .|
00001320: 34 2C 22 C6 41 4E 54 41 53 59 20 C2 4F 57 4C 22 |4,".ANTASY .OWL"|
00001330: 3A 20 89 20 33 35 35 30 00 61 1B DA 0D 8B 20 58 |: . 3550.a.... X|
00001340: 24 B2 22 5A 22 20 A7 20 98 34 2C 22 C6 52 45 45 |$."Z" . .4,".REE|
00001350: 20 C6 4F 52 20 C1 4C 4C 22 3A 20 89 20 33 35 35 | .OR .LL": . 355|
00001360: 30 00 6F 1B DC 0D 98 34 2C 44 4E 24 28 58 29 00 |0.o....4,DN$(X).|
00001370: A9 1B DE 0D 82 3A 20 4C B2 4C AA 32 30 3A 20 8D |.....: L.L.20: .|
00001380: 20 36 32 37 32 30 3A 20 89 31 36 30 30 3A 20 8F | 62720: .1600: .|
00001390: 20 43 4C 4F 53 45 20 50 52 49 4E 54 45 52 20 41 | CLOSE PRINTER A|
000013A0: 4E 44 20 52 45 54 55 52 4E 00 E5 1B 10 0E 5A B2 |ND RETURN.....Z.|
000013B0: 30 3A 20 54 45 24 B2 22 C4 49 53 50 4C 41 59 20 |0: TE$.".ISPLAY |
000013C0: CC 45 41 47 55 45 20 D3 43 48 45 44 55 4C 45 22 |.EAGUE .CHEDULE"|
000013D0: 3A 20 8D 20 36 30 30 30 30 3A 20 99 C8 28 43 44 |: . 60000: ..(CD|
000013E0: 24 2C 31 30 29 00 1D 1C 1A 0E 8D 20 36 32 34 31 |$,10)...... 6241|
000013F0: 30 3A 20 8B 20 58 24 B2 22 D3 22 20 A7 20 33 37 |0: . X$."." . 37|
00001400: 30 30 3A 20 8F 20 41 53 4B 20 22 53 43 52 45 45 |00: . ASK "SCREE|
00001410: 4E 20 4F 52 20 50 52 49 4E 54 45 52 22 00 31 1C |N OR PRINTER".1.|
00001420: 1C 0E 8B 20 58 24 B2 22 D0 22 20 A7 20 33 38 30 |... X$."." . 380|
00001430: 30 00 6F 1C 1E 0E 89 20 31 36 30 30 3A 20 8F 20 |0.o.... 1600: . |
00001440: 41 4E 53 57 45 52 20 57 41 53 20 22 20 22 2C 20 |ANSWER WAS " ", |
00001450: 49 2E 45 2E 20 22 D0 22 20 42 55 54 20 43 41 4E |I.E. "." BUT CAN|
00001460: 27 54 20 4F 50 45 4E 20 50 52 49 4E 54 45 52 00 |'T OPEN PRINTER.|
00001470: 9B 1C 74 0E 46 B2 30 3A 20 57 B2 30 3A 20 54 45 |..t.F.0: W.0: TE|
00001480: 24 B2 22 C4 49 53 50 4C 41 59 20 CC 45 41 47 55 |$.".ISPLAY .EAGU|
00001490: 45 20 D3 43 48 45 44 55 4C 45 22 00 AC 1C 79 0E |E .CHEDULE"...y.|
000014A0: 5A B2 30 3A 20 8D 20 36 30 30 30 30 00 CE 1C 7E |Z.0: . 60000...~|
000014B0: 0E 99 22 13 11 11 11 11 11 1D 1D 1D 1D 1D 1D CC |..".............|
000014C0: 45 41 47 55 45 20 22 3B 4C 4E 24 3A 20 99 00 04 |EAGUE ";LN$: ...|
000014D0: 1D 83 0E 8B 20 46 B2 30 20 A7 20 99 22 13 11 11 |.... F.0 . ."...|
000014E0: 11 11 11 11 22 3A 20 8B 20 53 43 24 28 57 2C 31 |....": . SC$(W,1|
000014F0: 29 B1 B2 22 58 22 20 A7 20 46 B2 31 3A 20 89 20 |).."X" . F.1: . |
00001500: 33 37 30 35 00 27 1D 88 0E 99 22 11 1D 1D 1D 1D |3705.'....".....|
00001510: 1D 1D 9E D7 45 45 4B 22 3B 57 AA 31 3A 20 8B 20 |....EEK";W.1: . |
00001520: 46 B2 30 20 A7 20 99 00 5F 1D 8A 0E 8B 20 53 43 |F.0 . .._.... SC|
00001530: 24 28 57 2C 31 29 B2 22 58 22 20 A7 20 99 22 1D |$(W,1)."X" . .".|
00001540: 1D 1D 22 3B C8 28 42 4C 24 2C 31 33 29 3B 22 D0 |..";.(BL$,13);".|
00001550: 4C 41 59 4F 46 46 53 22 3A 20 89 33 37 38 30 00 |LAYOFFS": .3780.|
00001560: 9B 1D 8C 0E 8B 20 53 43 24 28 57 2C 31 29 B2 22 |..... SC$(W,1)."|
00001570: 59 22 20 A7 20 99 22 1D 1D 1D 22 3B C8 28 42 4C |Y" . ."...";.(BL|
00001580: 24 2C 31 31 29 3B 22 C6 41 4E 54 41 53 59 20 C2 |$,11);".ANTASY .|
00001590: 4F 57 4C 22 3A 20 89 33 37 38 30 00 D7 1D 8E 0E |OWL": .3780.....|
000015A0: 8B 20 53 43 24 28 57 2C 31 29 B2 22 5A 22 20 A7 |. SC$(W,1)."Z" .|
000015B0: 20 99 22 1D 1D 1D 22 3B C8 28 42 4C 24 2C 31 31 | ."...";.(BL$,11|
000015C0: 29 3B 22 C6 52 45 45 20 C6 4F 52 20 C1 4C 4C 22 |);".REE .OR .LL"|
000015D0: 3A 20 89 33 37 38 30 00 09 1E 92 0E 81 20 4D B2 |: .3780...... M.|
000015E0: 30 A4 4E 54 AB 31 3A 20 4D 4B 24 28 4D 29 B2 22 |0.NT.1: MK$(M)."|
000015F0: 20 22 3A 20 82 3A 20 4D B2 30 3A 20 8F 20 43 4C | ": .: M.0: . CL|
00001600: 45 41 52 20 4D 41 52 4B 53 00 44 1E 9C 0E 8B 20 |EAR MARKS.D.... |
00001610: 4D 4B 24 28 4D 29 B2 22 2A 22 20 A7 20 4D B2 4D |MK$(M)."*" . M.M|
00001620: AA 31 3A 20 8B 20 4D B3 4E 54 20 A7 20 33 37 34 |.1: . M.NT . 374|
00001630: 30 3A 20 8F 20 46 49 4E 44 20 43 4C 45 41 52 20 |0: . FIND CLEAR |
00001640: 4D 41 52 4B 00 78 1E A6 0E 8B 20 4D B2 4E 54 20 |MARK.x.... M.NT |
00001650: A7 20 33 37 37 35 3A 20 8F 20 41 4C 4C 20 54 45 |. 3775: . ALL TE|
00001660: 41 4D 53 20 4D 41 52 4B 45 44 2C 20 57 45 45 4B |AMS MARKED, WEEK|
00001670: 20 49 53 20 44 4F 4E 45 00 BB 1E B0 0E 4D 4B 24 | IS DONE.....MK$|
00001680: 28 4D 29 B2 22 2A 22 3A 20 99 22 1D 1D 1D 22 3B |(M)."*": ."...";|
00001690: C8 28 44 4E 24 28 4D 29 2C 31 35 29 3B 22 20 56 |.(DN$(M),15);" V|
000016A0: 53 20 22 3B 3A 20 8F 20 4D 41 52 4B 20 41 4E 44 |S ";: . MARK AND|
000016B0: 20 50 52 49 4E 54 20 54 45 41 4D 00 FB 1E B5 0E | PRINT TEAM.....|
000016C0: 49 58 B2 C6 28 53 43 24 28 57 2C 4D 29 29 3A 20 |IX..(SC$(W,M)): |
000016D0: 4D 4B 24 28 49 58 29 B2 22 2A 22 3A 20 99 C8 28 |MK$(IX)."*": ..(|
000016E0: 44 4E 24 28 49 58 29 2C 31 35 29 3A 20 8F 20 41 |DN$(IX),15): . A|
000016F0: 4E 44 20 4F 50 50 4F 4E 45 4E 54 00 13 1F BA 0E |ND OPPONENT.....|
00001700: 89 20 33 37 34 30 3A 20 8F 20 4E 45 58 54 20 47 |. 3740: . NEXT G|
00001710: 41 4D 45 00 2F 1F BF 0E 8D 20 36 30 31 30 30 3A |AME./.... 60100:|
00001720: 20 8F 20 57 45 45 4B 20 49 53 20 44 4F 4E 45 00 | . WEEK IS DONE.|
00001730: 48 1F C4 0E 57 B2 57 AA 31 3A 20 8B 20 57 B3 4E |H...W.W.1: . W.N|
00001740: 57 20 A7 20 33 37 31 35 00 70 1F C9 0E 8B 20 46 |W . 3715.p.... F|
00001750: B2 31 20 A7 20 8D 20 36 30 31 30 30 3A 20 8F 20 |.1 . . 60100: . |
00001760: 53 43 48 45 44 55 4C 45 20 49 53 20 44 4F 4E 45 |SCHEDULE IS DONE|
00001770: 00 9E 1F CE 0E 89 20 31 36 30 30 3A 20 8F 20 52 |...... 1600: . R|
00001780: 45 54 55 52 4E 20 54 4F 20 53 43 48 45 44 55 4C |ETURN TO SCHEDUL|
00001790: 45 20 44 49 53 50 4C 41 59 20 4D 45 4E 55 00 CF |E DISPLAY MENU..|
000017A0: 1F D8 0E 8D 20 36 30 30 30 30 3A 20 99 C8 28 43 |.... 60000: ..(C|
000017B0: 44 24 2C 31 30 29 3B C8 28 43 52 24 2C 31 30 29 |D$,10);.(CR$,10)|
000017C0: 3B 22 9E D0 52 49 4E 54 49 4E 47 2E 2E 2E 22 00 |;"..RINTING...".|
000017D0: FA 1F DA 0E 46 B2 30 3A 20 57 B2 30 3A 20 4C B2 |....F.0: W.0: L.|
000017E0: 36 37 3A 20 8F 20 46 4C 41 47 53 20 41 4E 44 20 |67: . FLAGS AND |
000017F0: 4C 49 4E 45 20 43 4F 55 4E 54 00 32 20 E2 0E 8D |LINE COUNT.2 ...|
00001800: 20 36 32 37 30 30 3A 20 98 34 2C C8 28 42 4C 24 | 62700: .4,.(BL$|
00001810: 2C 31 30 29 2C 4C 4E 24 3B 22 20 D3 43 48 45 44 |,10),LN$;" .CHED|
00001820: 55 4C 45 22 3A 20 98 34 2C 22 22 3A 20 4C B2 4C |ULE": .4,"": L.L|
00001830: AA 32 00 54 20 EC 0E 8B 20 46 B2 30 20 A7 20 8B |.2.T ... F.0 . .|
00001840: 20 53 43 24 28 57 2C 31 29 B1 B2 22 58 22 20 A7 | SC$(W,1).."X" .|
00001850: 20 46 B2 31 00 8D 20 EE 0E 8B 20 46 B2 30 20 A7 | F.1.. ... F.0 .|
00001860: 20 8B 20 4C AA 34 AA 4E 47 B1 36 30 20 A7 20 33 | . L.4.NG.60 . 3|
00001870: 38 31 30 3A 20 8F 20 4E 45 57 20 50 41 47 45 20 |810: . NEW PAGE |
00001880: 46 4F 52 20 46 55 4C 4C 20 57 45 45 4B 00 C6 20 |FOR FULL WEEK.. |
00001890: F0 0E 8B 20 46 B2 31 20 A7 20 8B 20 4C AA 34 B1 |... F.1 . . L.4.|
000018A0: 36 30 20 A7 20 33 38 31 30 3A 20 8F 20 4E 45 57 |60 . 3810: . NEW|
000018B0: 20 50 41 47 45 20 46 4F 52 20 50 4C 41 59 4F 46 | PAGE FOR PLAYOF|
000018C0: 46 20 57 45 45 4B 00 F8 20 F6 0E 98 34 2C C8 28 |F WEEK.. ...4,.(|
000018D0: 42 4C 24 2C 31 32 29 3B 22 D7 45 45 4B 22 3B 57 |BL$,12);".EEK";W|
000018E0: AA 31 3A 20 4C B2 4C AA 31 3A 20 8B 20 46 B2 30 |.1: L.L.1: . F.0|
000018F0: 20 A7 20 98 34 2C 22 22 00 2D 21 F8 0E 8B 20 53 | . .4,"".-!... S|
00001900: 43 24 28 57 2C 31 29 B2 22 58 22 20 A7 20 98 34 |C$(W,1)."X" . .4|
00001910: 2C C8 28 42 4C 24 2C 31 34 29 3B 22 D0 4C 41 59 |,.(BL$,14);".LAY|
00001920: 4F 46 46 53 22 3A 20 89 20 33 38 38 30 00 66 21 |OFFS": . 3880.f!|
00001930: FA 0E 8B 20 53 43 24 28 57 2C 31 29 B2 22 59 22 |... SC$(W,1)."Y"|
00001940: 20 A7 20 98 34 2C C8 28 42 4C 24 2C 31 34 29 3B | . .4,.(BL$,14);|
00001950: 22 C6 41 4E 54 41 53 59 20 C2 4F 57 4C 22 3A 20 |".ANTASY .OWL": |
00001960: 89 20 33 38 38 30 00 9F 21 FC 0E 8B 20 53 43 24 |. 3880..!... SC$|
00001970: 28 57 2C 31 29 B2 22 5A 22 20 A7 20 98 34 2C C8 |(W,1)."Z" . .4,.|
00001980: 28 42 4C 24 2C 31 34 29 3B 22 C6 52 45 45 20 C6 |(BL$,14);".REE .|
00001990: 4F 52 20 C1 4C 4C 22 3A 20 89 20 33 38 38 30 00 |OR .LL": . 3880.|
000019A0: D1 21 00 0F 81 20 4D B2 30 A4 4E 54 AB 31 3A 20 |.!... M.0.NT.1: |
000019B0: 4D 4B 24 28 4D 29 B2 22 20 22 3A 20 82 3A 20 4D |MK$(M)." ": .: M|
000019C0: B2 30 3A 20 8F 20 43 4C 45 41 52 20 4D 41 52 4B |.0: . CLEAR MARK|
000019D0: 53 00 0C 22 0A 0F 8B 20 4D 4B 24 28 4D 29 B2 22 |S.."... MK$(M)."|
000019E0: 2A 22 20 A7 20 4D B2 4D AA 31 3A 20 8B 20 4D B3 |*" . M.M.1: . M.|
000019F0: 4E 54 20 A7 20 33 38 35 30 3A 20 8F 20 46 49 4E |NT . 3850: . FIN|
00001A00: 44 20 43 4C 45 41 52 20 4D 41 52 4B 00 40 22 0C |D CLEAR MARK.@".|
00001A10: 0F 8B 20 4D B2 4E 54 20 A7 20 33 38 38 30 3A 20 |.. M.NT . 3880: |
00001A20: 8F 20 41 4C 4C 20 54 45 41 4D 53 20 4D 41 52 4B |. ALL TEAMS MARK|
00001A30: 45 44 2C 20 57 45 45 4B 20 49 53 20 44 4F 4E 45 |ED, WEEK IS DONE|
00001A40: 00 7F 22 14 0F 4D 4B 24 28 4D 29 B2 22 2A 22 3A |.."..MK$(M)."*":|
00001A50: 20 98 34 2C C8 28 42 4C 24 2C 31 34 29 3B 44 4E | .4,.(BL$,14);DN|
00001A60: 24 28 4D 29 3B 22 20 56 53 20 22 3B 3A 20 8F 20 |$(M);" VS ";: . |
00001A70: 4D 41 52 4B 2F 50 52 49 4E 54 20 54 45 41 4D 00 |MARK/PRINT TEAM.|
00001A80: BB 22 16 0F 49 58 B2 C6 28 53 43 24 28 57 2C 4D |."..IX..(SC$(W,M|
00001A90: 29 29 3A 20 4D 4B 24 28 49 58 29 B2 22 2A 22 3A |)): MK$(IX)."*":|
00001AA0: 20 98 34 2C 44 4E 24 28 49 58 29 3A 20 8F 20 41 | .4,DN$(IX): . A|
00001AB0: 4E 44 20 4F 50 50 4F 4E 45 4E 54 00 DC 22 1E 0F |ND OPPONENT.."..|
00001AC0: 4C 49 B2 4C 49 AA 31 3A 20 89 20 33 38 35 30 3A |LI.LI.1: . 3850:|
00001AD0: 20 8F 20 4E 45 58 54 20 47 41 4D 45 00 05 23 28 | . NEXT GAME..#(|
00001AE0: 0F 98 34 2C 22 22 3A 20 4C 49 B2 4C 49 AA 32 3A |..4,"": LI.LI.2:|
00001AF0: 20 57 B2 57 AA 31 3A 20 8B 20 57 B3 4E 57 20 A7 | W.W.1: . W.NW .|
00001B00: 20 33 38 32 30 00 48 23 32 0F 8D 20 36 32 37 32 | 3820.H#2.. 6272|
00001B10: 30 3A 20 89 20 31 36 30 30 3A 20 8F 20 43 4C 4F |0: . 1600: . CLO|
00001B20: 53 45 20 50 52 49 4E 54 45 52 2C 20 52 45 54 55 |SE PRINTER, RETU|
00001B30: 52 4E 20 54 4F 20 53 43 48 45 44 20 44 49 53 50 |RN TO SCHED DISP|
00001B40: 4C 41 59 20 4D 45 4E 55 00 70 23 30 11 5A B2 30 |LAY MENU.p#0.Z.0|
00001B50: 3A 54 45 24 B2 22 C3 48 41 4E 47 45 20 D4 45 41 |:TE$.".HANGE .EA|
00001B60: 4D 20 D2 4F 53 54 45 52 22 3A 8D 36 30 30 30 30 |M .OSTER":.60000|
00001B70: 00 9B 23 3A 11 99 22 13 11 11 11 11 11 11 11 1D |..#:..".........|
00001B80: 1D 1D 1D 1D 1D 9E 31 2E 20 20 CC 49 53 54 20 C1 |......1. .IST .|
00001B90: 4C 4C 20 D0 4C 41 59 45 52 53 22 00 C4 23 3C 11 |LL .LAYERS"..#<.|
00001BA0: 99 22 11 1D 1D 1D 1D 1D 1D 32 2E 20 20 CC 49 53 |.".......2. .IS|
00001BB0: 54 20 CF 4E 45 20 D4 45 41 4D 27 53 20 D2 4F 53 |T .NE .EAM'S .OS|
00001BC0: 54 45 52 22 00 E5 23 3E 11 99 22 11 1D 1D 1D 1D |TER"..#>..".....|
00001BD0: 1D 1D 33 2E 20 20 C4 52 41 46 54 20 41 20 D0 4C |..3. .RAFT A .L|
00001BE0: 41 59 45 52 22 00 06 24 40 11 99 22 11 1D 1D 1D |AYER"..$@.."....|
00001BF0: 1D 1D 1D 34 2E 20 20 D7 41 49 56 45 20 41 20 D0 |...4. .AIVE A .|
00001C00: 4C 41 59 45 52 22 00 37 24 44 11 4F 50 24 B2 22 |LAYER".7$D.OP$."|
00001C10: 34 22 3A 20 8D 20 36 32 36 30 30 3A 20 91 20 4F |4": . 62600: . O|
00001C20: 50 20 89 20 34 34 35 30 2C 34 35 30 30 2C 34 36 |P . 4450,4500,46|
00001C30: 30 30 2C 34 37 30 30 00 58 24 4E 11 89 20 32 30 |00,4700.X$N.. 20|
00001C40: 30 3A 20 8F 20 52 45 54 55 52 4E 20 54 4F 20 4D |0: . RETURN TO M|
00001C50: 41 49 4E 20 4D 45 4E 55 00 9B 24 62 11 5A B2 30 |AIN MENU..$b.Z.0|
00001C60: 3A 20 54 45 24 B2 22 CC 49 53 54 20 C1 4C 4C 20 |: TE$.".IST .LL |
00001C70: D0 4C 41 59 45 52 53 22 3A 20 8D 20 35 31 35 30 |.LAYERS": . 5150|
00001C80: 30 3A 20 89 20 34 34 30 30 3A 20 8F 20 52 45 54 |0: . 4400: . RET|
00001C90: 55 52 4E 20 54 4F 20 4D 45 4E 55 00 D2 24 94 11 |URN TO MENU..$..|
00001CA0: 8D 20 35 31 37 30 30 3A 20 54 45 24 B2 44 4E 24 |. 51700: TE$.DN$|
00001CB0: 28 54 58 29 AA 22 20 D4 45 41 4D 20 D2 4F 53 54 |(TX)." .EAM .OST|
00001CC0: 45 52 22 3A 20 8F 20 53 45 4C 45 43 54 20 54 45 |ER": . SELECT TE|
00001CD0: 41 4D 00 10 25 9E 11 5A B2 30 3A 8D 36 30 30 30 |AM..%..Z.0:.6000|
00001CE0: 30 3A 8D 20 36 32 34 31 30 3A 5A B2 30 3A 8D 20 |0:. 62410:Z.0:. |
00001CF0: 36 30 30 30 30 3A 20 8F 20 41 53 4B 20 22 53 43 |60000: . ASK "SC|
00001D00: 52 45 45 4E 20 4F 52 20 50 52 49 4E 54 45 52 22 |REEN OR PRINTER"|
00001D10: 00 24 25 A8 11 8B 20 58 24 B2 22 D3 22 20 A7 20 |.$%... X$."." . |
00001D20: 34 38 30 30 00 38 25 B2 11 8B 20 58 24 B2 22 D0 |4800.8%... X$.".|
00001D30: 22 20 A7 20 34 39 30 30 00 72 25 BC 11 89 20 34 |" . 4900.r%... 4|
00001D40: 34 30 30 3A 20 8F 20 45 4C 53 45 20 50 52 49 4E |400: . ELSE PRIN|
00001D50: 54 45 52 20 4E 4F 54 20 52 45 53 50 4F 4E 44 49 |TER NOT RESPONDI|
00001D60: 4E 47 2C 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 |NG, RETURN TO ME|
00001D70: 4E 55 00 8B 25 F8 11 54 45 24 B2 22 C4 52 41 46 |NU..%..TE$.".RAF|
00001D80: 54 20 41 20 D0 4C 41 59 45 52 22 00 CB 25 02 12 |T A .LAYER"..%..|
00001D90: 5A B2 30 3A 8D 36 30 30 30 30 3A 8D 35 30 36 30 |Z.0:.60000:.5060|
00001DA0: 30 3A 8B 50 58 B3 4E 50 A7 34 36 33 30 3A 20 8F |0:.PX.NP.4630: .|
00001DB0: 20 47 45 54 20 41 4E 44 20 56 45 52 49 46 59 20 | GET AND VERIFY |
00001DC0: 50 4C 41 59 45 52 20 4E 41 4D 45 00 EE 25 0C 12 |PLAYER NAME..%..|
00001DD0: 99 C8 28 43 52 24 2C 34 29 3B 22 11 1E D0 4C 41 |..(CR$,4);"...LA|
00001DE0: 59 45 52 20 4E 4F 54 20 46 4F 55 4E 44 22 00 12 |YER NOT FOUND"..|
00001DF0: 26 0E 12 99 C8 28 43 52 24 2C 34 29 3B 22 9E D4 |&....(CR$,4);"..|
00001E00: 52 59 20 41 47 41 49 4E 3F 20 28 D9 2F CE 29 20 |RY AGAIN? (./.) |
00001E10: 22 3B 00 2F 26 10 12 8D 20 36 32 35 30 30 3A 20 |";./&... 62500: |
00001E20: 8B 20 58 24 B2 22 D9 22 20 A7 20 34 36 31 30 00 |. X$."." . 4610.|
00001E30: 55 26 16 12 8B 20 50 4E 24 B2 22 22 20 A7 20 34 |U&... PN$."" . 4|
00001E40: 34 30 30 3A 20 8F 20 52 45 54 55 52 4E 20 54 4F |400: . RETURN TO|
00001E50: 20 4D 45 4E 55 00 77 26 20 12 8D 20 35 30 39 30 | MENU.w& .. 5090|
00001E60: 30 3A 20 8B 20 44 58 B1 B2 54 50 28 31 2C 30 29 |0: . DX..TP(1,0)|
00001E70: 20 A7 20 34 36 35 30 00 A4 26 22 12 99 C8 28 43 | . 4650..&"...(C|
00001E80: 52 24 2C 34 29 3B 22 11 1E D0 4C 41 59 45 52 20 |R$,4);"...LAYER |
00001E90: 41 4C 52 45 41 44 59 20 41 53 53 49 47 4E 45 44 |ALREADY ASSIGNED|
00001EA0: 20 54 4F 22 00 DB 26 24 12 99 C8 28 43 52 24 2C | TO"..&$...(CR$,|
00001EB0: 31 30 29 3B 22 11 05 22 3B 44 4E 24 28 44 58 29 |10);"..";DN$(DX)|
00001EC0: 3A 20 8D 20 36 30 31 30 30 3A 20 89 20 34 34 30 |: . 60100: . 440|
00001ED0: 30 3A 20 8E 20 A4 20 4D 45 4E 55 00 07 27 2A 12 |0: . . MENU..'*.|
00001EE0: 54 53 24 B2 54 45 24 3A 20 8D 20 35 31 37 30 30 |TS$.TE$: . 51700|
00001EF0: 3A 20 8F 20 47 45 54 20 44 52 45 41 4D 20 54 45 |: . GET DREAM TE|
00001F00: 41 4D 20 4E 41 4D 45 00 28 27 34 12 54 45 24 B2 |AM NAME.('4.TE$.|
00001F10: 54 53 24 3A 20 8D 20 36 30 30 30 30 3A 20 99 C8 |TS$: . 60000: ..|
00001F20: 28 43 44 24 2C 31 30 29 00 4E 27 36 12 99 C8 28 |(CD$,10).N'6...(|
00001F30: 43 52 24 2C 36 29 3B 22 9E C1 53 53 49 47 4E 20 |CR$,6);"..SSIGN |
00001F40: 05 22 3B 50 4E 24 28 50 58 28 50 58 29 29 00 6E |.";PN$(PX(PX)).n|
00001F50: 27 38 12 99 C8 28 43 52 24 2C 31 30 29 3B 22 11 |'8...(CR$,10);".|
00001F60: 9E 54 4F 20 05 22 3B 44 4E 24 28 54 58 29 00 90 |.TO .";DN$(TX)..|
00001F70: 27 3E 12 8D 20 35 30 35 30 30 3A 20 8D 20 35 30 |'>.. 50500: . 50|
00001F80: 39 30 30 3A 20 44 58 B2 54 58 3A 20 50 46 B2 32 |900: DX.TX: PF.2|
00001F90: 00 C2 27 40 12 8D 20 35 30 38 30 30 3A 20 8D 20 |..'@.. 50800: . |
00001FA0: 35 30 34 30 30 3A 20 8F 20 55 50 44 41 54 45 20 |50400: . UPDATE |
00001FB0: 50 4C 41 59 45 52 20 44 41 54 41 20 46 49 45 4C |PLAYER DATA FIEL|
00001FC0: 44 53 00 FF 27 42 12 8D 20 35 31 32 31 30 3A 20 |DS..'B.. 51210: |
00001FD0: 89 20 34 34 30 30 3A 20 8F 20 55 50 44 41 54 45 |. 4400: . UPDATE|
00001FE0: 20 54 45 41 4D 27 53 20 4C 49 53 54 20 41 4E 44 | TEAM'S LIST AND|
00001FF0: 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E 55 00 | RETURN TO MENU.|
00002000: 18 28 5C 12 54 45 24 B2 22 D7 41 49 56 45 20 41 |.(\.TE$.".AIVE A|
00002010: 20 D0 4C 41 59 45 52 22 00 58 28 66 12 5A B2 30 | .LAYER".X(f.Z.0|
00002020: 3A 8D 36 30 30 30 30 3A 8D 35 30 36 30 30 3A 8B |:.60000:.50600:.|
00002030: 50 58 B3 4E 50 A7 34 37 33 30 3A 20 8F 20 47 45 |PX.NP.4730: . GE|
00002040: 54 20 41 4E 44 20 56 45 52 49 46 59 20 50 4C 41 |T AND VERIFY PLA|
00002050: 59 45 52 20 4E 41 4D 45 00 7B 28 70 12 99 C8 28 |YER NAME.{(p...(|
00002060: 43 52 24 2C 34 29 3B 22 11 1E D0 4C 41 59 45 52 |CR$,4);"...LAYER|
00002070: 20 4E 4F 54 20 46 4F 55 4E 44 22 00 9F 28 72 12 | NOT FOUND"..(r.|
00002080: 99 C8 28 43 52 24 2C 34 29 3B 22 9E D4 52 59 20 |..(CR$,4);"..RY |
00002090: 41 47 41 49 4E 3F 20 28 D9 2F CE 29 20 22 3B 00 |AGAIN? (./.) ";.|
000020A0: BC 28 74 12 8D 20 36 32 35 30 30 3A 20 8B 20 58 |.(t.. 62500: . X|
000020B0: 24 B2 22 D9 22 20 A7 20 34 37 31 30 00 E2 28 7A |$."." . 4710..(z|
000020C0: 12 8B 20 50 4E 24 B2 22 22 20 A7 20 34 34 30 30 |.. PN$."" . 4400|
000020D0: 3A 20 8F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 |: . RETURN TO ME|
000020E0: 4E 55 00 03 29 84 12 8D 20 35 30 39 30 30 3A 20 |NU..)... 50900: |
000020F0: 8B 20 44 58 B3 54 50 28 31 2C 30 29 20 A7 20 34 |. DX.TP(1,0) . 4|
00002100: 37 35 30 00 2F 29 86 12 99 C8 28 43 52 24 2C 34 |750./)....(CR$,4|
00002110: 29 3B 22 11 1E D0 4C 41 59 45 52 20 49 53 20 4E |);"...LAYER IS N|
00002120: 4F 54 20 4F 4E 20 41 4E 59 20 54 45 41 4D 22 00 |OT ON ANY TEAM".|
00002130: 4D 29 88 12 8D 20 36 30 31 30 30 3A 20 89 20 34 |M)... 60100: . 4|
00002140: 34 30 30 3A 20 8E 20 A4 20 4D 45 4E 55 00 75 29 |400: . . MENU.u)|
00002150: 8E 12 99 C8 28 43 52 24 2C 34 29 3B 22 11 9E D0 |....(CR$,4);"...|
00002160: 4C 41 59 45 52 20 49 53 20 41 53 53 49 47 4E 45 |LAYER IS ASSIGNE|
00002170: 44 20 54 4F 22 00 91 29 90 12 99 C8 28 43 52 24 |D TO"..)....(CR$|
00002180: 2C 31 30 29 3B 22 11 05 22 3B 44 4E 24 28 44 58 |,10);"..";DN$(DX|
00002190: 29 00 BD 29 92 12 99 C8 28 43 52 24 2C 34 29 3B |)..)....(CR$,4);|
000021A0: 22 9E CF CB 20 54 4F 20 52 45 4C 45 41 53 45 20 |"... TO RELEASE |
000021B0: 48 49 4D 3F A0 3C D9 2F CE 3E 20 22 3B 00 E4 29 |HIM?.<./.> ";..)|
000021C0: 98 12 8D 20 36 32 35 30 30 3A 20 8B 20 58 24 B2 |... 62500: . X$.|
000021D0: 22 CE 22 20 A7 20 34 34 30 30 3A 20 8F 20 52 45 |"." . 4400: . RE|
000021E0: 54 55 52 4E 00 0E 2A A2 12 8D 20 35 30 35 30 30 |TURN..*... 50500|
000021F0: 3A 20 8D 20 35 30 39 30 30 3A 20 44 48 B2 44 58 |: . 50900: DH.DX|
00002200: 3A 20 44 58 B2 32 35 35 3A 20 50 46 B2 30 00 39 |: DX.255: PF.0.9|
00002210: 2A A4 12 8D 20 35 30 38 30 30 3A 20 8D 20 35 30 |*... 50800: . 50|
00002220: 34 30 30 3A 20 8F 20 55 50 44 41 54 45 20 50 4C |400: . UPDATE PL|
00002230: 41 59 45 52 20 44 41 54 41 00 72 2A AC 12 44 58 |AYER DATA.r*..DX|
00002240: B2 44 48 3A 20 8D 20 35 31 33 31 30 3A 20 89 20 |.DH: . 51310: . |
00002250: 34 34 30 30 3A 20 8F 20 55 50 44 41 54 45 20 54 |4400: . UPDATE T|
00002260: 45 41 4D 27 53 20 4C 49 53 54 2C 20 52 45 54 55 |EAM'S LIST, RETU|
00002270: 52 4E 00 98 2A C0 12 99 C8 28 43 44 24 2C 35 29 |RN..*....(CD$,5)|
00002280: 3A 20 8D 20 35 30 33 31 30 3A 20 8B 20 4E 50 B1 |: . 50310: . NP.|
00002290: 30 20 A7 20 34 38 31 30 00 BD 2A C2 12 99 C8 28 |0 . 4810..*....(|
000022A0: 43 52 24 2C 38 29 3B 22 9E CE 4F 20 50 4C 41 59 |CR$,8);"..O PLAY|
000022B0: 45 52 53 2E 22 3A 20 89 20 34 38 33 30 00 E3 2A |ERS.": . 4830..*|
000022C0: CA 12 81 20 50 50 B2 30 20 A4 20 4E 50 AB 31 3A |... PP.0 . NP.1:|
000022D0: 20 50 58 B2 50 4C 28 50 50 29 3A 20 8D 20 35 30 | PX.PL(PP): . 50|
000022E0: 39 30 30 00 1A 2B D4 12 99 C8 28 43 52 24 2C 38 |900..+....(CR$,8|
000022F0: 29 3B 22 9E 22 3B 50 4E 24 28 50 58 28 50 58 29 |);".";PN$(PX(PX)|
00002300: 29 3B 22 20 20 12 22 3B CA 28 50 4F 24 2C 31 AA |);" .";.(PO$,1.|
00002310: 32 AC 50 4F 2C 32 29 3A 20 82 00 4A 2B DE 12 8D |2.PO,2): ..J+...|
00002320: 20 36 30 31 30 30 3A 20 89 20 34 34 30 30 3A 20 | 60100: . 4400: |
00002330: 8F 20 57 41 49 54 20 46 4F 52 20 3C 53 50 41 43 |. WAIT FOR <SPAC|
00002340: 45 3E 2C 20 52 45 54 55 52 4E 00 71 2B 24 13 4C |E>, RETURN.q+$.L|
00002350: 49 B2 31 30 3A 20 54 43 24 B2 22 9E D0 52 49 4E |I.10: TC$."..RIN|
00002360: 54 49 4E 47 2E 2E 2E 22 3A 20 8D 20 36 30 31 35 |TING...": . 6015|
00002370: 30 00 A3 2B 2E 13 8D 20 36 32 37 31 30 3A 20 98 |0..+... 62710: .|
00002380: 34 2C C8 28 42 4C 24 2C 31 30 29 3B 22 D4 45 41 |4,.(BL$,10);".EA|
00002390: 4D 20 D2 4F 53 54 45 52 3A 20 22 3B 44 4E 24 28 |M .OSTER: ";DN$(|
000023A0: 54 58 29 00 DF 2B 38 13 98 34 2C C8 28 42 4C 24 |TX)..+8..4,.(BL$|
000023B0: 2C 31 30 29 3B 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |,10);"==========|
000023C0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000023D0: 3D 3D 3D 3D 3D 3D 3D 22 3A 20 98 34 2C 22 22 00 |=======": .4,"".|
000023E0: 01 2C 42 13 4C B2 4C AA 33 3A 20 8D 20 35 30 33 |.,B.L.L.3: . 503|
000023F0: 31 30 3A 20 8B 20 4E 50 B1 30 20 A7 20 34 39 34 |10: . NP.0 . 494|
00002400: 30 00 28 2C 44 13 98 34 2C C8 28 42 4C 24 2C 31 |0.(,D..4,.(BL$,1|
00002410: 32 29 3B 22 CE 4F 20 50 4C 41 59 45 52 53 2E 22 |2);".O PLAYERS."|
00002420: 3A 20 89 20 34 38 36 30 00 4E 2C 4C 13 81 20 50 |: . 4860.N,L.. P|
00002430: 50 B2 30 20 A4 20 4E 50 AB 31 3A 20 50 58 B2 50 |P.0 . NP.1: PX.P|
00002440: 4C 28 50 50 29 3A 20 8D 20 35 30 39 30 30 00 8A |L(PP): . 50900..|
00002450: 2C 56 13 98 34 2C C8 28 42 4C 24 2C 31 32 29 3B |,V..4,.(BL$,12);|
00002460: 50 4E 24 28 50 58 28 50 58 29 29 3B 22 20 20 22 |PN$(PX(PX));" "|
00002470: 3B CA 28 50 4F 24 2C 31 AA 32 AC 50 4F 2C 32 29 |;.(PO$,1.2.PO,2)|
00002480: 3A 20 4C B2 4C AA 31 3A 20 82 00 BA 2C 60 13 8D |: L.L.1: ...,`..|
00002490: 20 36 32 37 32 30 3A 20 89 20 34 34 30 30 3A 20 | 62720: . 4400: |
000024A0: 8F 20 43 4C 4F 53 45 20 50 52 49 4E 54 45 52 20 |. CLOSE PRINTER |
000024B0: 41 4E 44 20 52 45 54 55 52 4E 00 DF 2C 70 17 5A |AND RETURN..,p.Z|
000024C0: B2 30 3A 54 45 24 B2 22 C5 44 49 54 20 C4 41 54 |.0:TE$.".DIT .AT|
000024D0: 41 42 41 53 45 53 22 3A 8D 20 36 30 30 30 30 00 |ABASES":. 60000.|
000024E0: 0A 2D 7A 17 99 22 9E 11 11 11 11 22 3B C8 28 43 |.-z..".....";.(C|
000024F0: 52 24 2C 37 29 3B 22 9E 31 2E 20 20 CC 49 53 54 |R$,7);".1. .IST|
00002500: 20 D0 52 4F D4 45 41 4D 53 22 00 2A 2D 7B 17 99 | .RO.EAMS".*-{..|
00002510: C8 28 43 52 24 2C 37 29 3B 22 32 2E 20 20 C1 44 |.(CR$,7);"2. .D|
00002520: 44 20 D0 52 4F D4 45 41 4D 22 00 4B 2D 7C 17 8F |D .RO.EAM".K-|..|
00002530: 20 59 4F 55 20 43 41 4E 27 54 20 44 45 4C 45 54 | YOU CAN'T DELET|
00002540: 45 20 54 45 41 4D 53 21 21 21 21 00 70 2D 7D 17 |E TEAMS!!!!.p-}.|
00002550: 99 22 11 22 3B C8 28 43 52 24 2C 37 29 3B 22 33 |.".";.(CR$,7);"3|
00002560: 2E 20 20 CC 49 53 54 20 D0 4C 41 59 45 52 53 22 |. .IST .LAYERS"|
00002570: 00 8F 2D 7E 17 99 C8 28 43 52 24 2C 37 29 3B 22 |..-~...(CR$,7);"|
00002580: 34 2E 20 20 C1 44 44 20 D0 4C 41 59 45 52 22 00 |4. .DD .LAYER".|
00002590: B1 2D 7F 17 99 C8 28 43 52 24 2C 37 29 3B 22 35 |.-....(CR$,7);"5|
000025A0: 2E 20 20 C4 45 4C 45 54 45 20 D0 4C 41 59 45 52 |. .ELETE .LAYER|
000025B0: 22 00 E2 2D 80 17 99 22 11 22 3B C8 28 43 52 24 |"..-...".";.(CR$|
000025C0: 2C 37 29 3B 22 36 2E 20 20 C1 53 53 49 47 4E 20 |,7);"6. .SSIGN |
000025D0: D0 4C 41 59 45 52 20 54 4F 20 D0 52 4F D4 45 41 |.LAYER TO .RO.EA|
000025E0: 4D 22 00 0B 2E 81 17 99 C8 28 43 52 24 2C 37 29 |M".......(CR$,7)|
000025F0: 3B 22 37 2E 20 20 CC 49 53 54 20 D0 52 4F D4 45 |;"7. .IST .RO.E|
00002600: 41 4D 20 D2 4F 53 54 45 52 53 22 00 3B 2E 84 17 |AM .OSTERS".;...|
00002610: 99 22 11 11 22 3B C8 28 43 52 24 2C 37 29 3B 22 |."..";.(CR$,7);"|
00002620: C5 4E 54 45 52 20 CF 50 54 49 4F 4E 20 CE 55 4D |.NTER .PTION .UM|
00002630: 42 45 52 20 20 28 31 2D 37 29 22 00 71 2E 86 17 |BER (1-7)".q...|
00002640: 99 22 11 22 3B C8 28 43 52 24 2C 35 29 3B 22 4F |.".";.(CR$,5);"O|
00002650: 52 20 22 3B 42 41 24 3B 22 20 54 4F 20 52 45 54 |R ";BA$;" TO RET|
00002660: 55 52 4E 20 54 4F 20 CD 41 49 4E 20 CD 45 4E 55 |URN TO .AIN .ENU|
00002670: 22 00 8A 2E 8E 17 A1 20 58 24 3A 20 8B 20 58 24 |"...... X$: . X$|
00002680: B2 22 5F 22 20 A7 20 32 30 30 00 A7 2E 90 17 8B |."_" . 200......|
00002690: 20 58 24 B3 22 31 22 20 B0 20 58 24 B1 22 37 22 | X$."1" . X$."7"|
000026A0: 20 A7 20 36 30 33 30 00 DE 2E 98 17 91 20 C5 28 | . 6030...... .(|
000026B0: 58 24 29 20 89 20 36 30 38 30 2C 20 36 31 30 30 |X$) . 6080, 6100|
000026C0: 2C 20 36 30 39 30 2C 20 36 35 30 30 2C 20 36 36 |, 6090, 6500, 66|
000026D0: 30 30 2C 20 36 37 30 30 2C 20 36 39 30 30 00 04 |00, 6700, 6900..|
000026E0: 2F C0 17 5A B2 30 3A 20 54 45 24 B2 22 CC 49 53 |/..Z.0: TE$.".IS|
000026F0: 54 20 D0 52 4F D4 45 41 4D 53 22 3A 20 8D 20 36 |T .RO.EAMS": . 6|
00002700: 30 30 30 30 00 2A 2F C5 17 8D 20 36 33 30 30 3A |0000.*/... 6300:|
00002710: 20 8D 20 36 30 31 30 30 3A 20 89 20 36 30 30 30 | . 60100: . 6000|
00002720: 3A 20 8F 20 52 45 54 55 52 4E 00 46 2F CA 17 5A |: . RETURN.F/..Z|
00002730: B2 30 3A 20 54 45 24 B2 22 CC 49 53 54 20 D0 4C |.0: TE$.".IST .L|
00002740: 41 59 45 52 53 22 00 63 2F CF 17 8D 20 36 34 30 |AYERS".c/... 640|
00002750: 30 3A 20 89 20 36 30 30 30 3A 20 8F 20 52 45 54 |0: . 6000: . RET|
00002760: 55 52 4E 00 7E 2F D4 17 5A B2 30 3A 20 54 45 24 |URN.~/..Z.0: TE$|
00002770: B2 22 C1 44 44 20 D0 52 4F D4 45 41 4D 22 00 9D |.".DD .RO.EAM"..|
00002780: 2F DE 17 54 58 B2 54 50 28 30 2C 30 29 3A 20 8B |/..TX.TP(0,0): .|
00002790: 20 54 58 B3 33 36 20 A7 20 36 31 32 30 00 BE 2F | TX.36 . 6120../|
000027A0: E0 17 8D 20 36 30 30 30 30 3A 20 99 C8 28 43 44 |... 60000: ..(CD|
000027B0: 24 2C 36 29 3B C8 28 43 52 24 2C 36 29 3B 00 E4 |$,6);.(CR$,6);..|
000027C0: 2F E2 17 99 22 9E D4 48 45 52 45 20 41 52 45 20 |/..."..HERE ARE |
000027D0: 41 4C 52 45 41 44 59 22 3B 54 58 3B 22 54 45 41 |ALREADY";TX;"TEA|
000027E0: 4D 53 2E 22 00 1C 30 E4 17 99 C8 28 43 52 24 2C |MS."..0....(CR$,|
000027F0: 36 29 3B 22 CE 4F 20 4D 4F 52 45 20 54 45 41 4D |6);".O MORE TEAM|
00002800: 53 20 41 4C 4C 4F 57 45 44 2E 22 3A 20 8D 20 36 |S ALLOWED.": . 6|
00002810: 30 31 30 30 3A 20 89 20 36 30 30 30 00 53 30 E8 |0100: . 6000.S0.|
00002820: 17 8D 20 33 32 30 30 3A 20 8B 20 54 4E 24 B2 22 |.. 3200: . TN$."|
00002830: 22 20 A7 20 89 20 36 30 30 30 3A 20 8F 20 4E 4F |" . . 6000: . NO|
00002840: 20 54 45 41 4D 20 41 44 44 45 44 2C 20 52 45 54 | TEAM ADDED, RET|
00002850: 55 52 4E 00 9A 30 F2 17 4E 4E 24 28 54 58 29 B2 |URN..0..NN$(TX).|
00002860: 54 4E 24 3A 20 4E 41 24 28 54 58 29 B2 41 42 24 |TN$: NA$(TX).AB$|
00002870: 3A 20 8B 20 54 58 B2 30 20 A7 20 36 31 35 30 3A |: . TX.0 . 6150:|
00002880: 20 8F 20 49 46 20 4E 4F 20 54 45 41 4D 53 20 53 | . IF NO TEAMS S|
00002890: 4B 49 50 20 53 45 41 52 43 48 00 CE 30 FC 17 54 |KIP SEARCH..0..T|
000028A0: B2 32 35 35 3A 20 81 20 49 B2 30 A4 54 58 AB 31 |.255: . I.0.TX.1|
000028B0: 3A 20 8B 20 4E 4E 24 28 49 29 B2 4E 4E 24 28 54 |: . NN$(I).NN$(T|
000028C0: 58 29 20 A7 20 54 B2 49 3A 20 49 B2 54 58 00 02 |X) . T.I: I.TX..|
000028D0: 31 FE 17 82 3A 8B 54 B3 49 A7 99 C8 28 43 52 24 |1...:.T.I...(CR$|
000028E0: 2C 34 29 3B 22 1E C4 55 50 4C 49 43 41 54 45 20 |,4);"..UPLICATE |
000028F0: 4E 41 4D 45 22 3A 8D 36 30 31 30 30 3A 89 36 30 |NAME":.60100:.60|
00002900: 30 30 00 46 31 06 18 54 50 28 30 2C 30 29 B2 54 |00.F1..TP(0,0).T|
00002910: 58 AA 31 3A 20 41 50 B2 54 58 3A 20 8F 20 46 49 |X.1: AP.TX: . FI|
00002920: 52 53 54 20 43 55 54 20 2D 20 41 4C 50 48 41 20 |RST CUT - ALPHA |
00002930: 50 54 52 20 53 41 4D 45 20 41 53 20 4C 49 53 54 |PTR SAME AS LIST|
00002940: 20 49 4E 44 45 58 00 6E 31 10 18 8D 20 35 30 32 | INDEX.n1... 502|
00002950: 30 30 3A 20 8F 20 57 52 49 54 45 20 45 4D 50 54 |00: . WRITE EMPT|
00002960: 59 20 54 45 41 4D 20 54 4F 20 44 49 53 4B 00 9A |Y TEAM TO DISK..|
00002970: 31 1A 18 8D 20 35 30 30 30 30 3A 20 89 20 36 30 |1... 50000: . 60|
00002980: 30 30 3A 20 8F 20 55 50 44 41 54 45 20 4C 45 41 |00: . UPDATE LEA|
00002990: 47 55 45 20 53 45 43 54 4F 52 00 D5 31 9C 18 4C |GUE SECTOR..1..L|
000029A0: 45 B2 32 30 3A 20 4E 54 B2 54 50 28 30 2C 30 29 |E.20: NT.TP(0,0)|
000029B0: 3A 20 48 B2 4E 54 3A 20 8B 20 4E 54 B1 31 36 20 |: H.NT: . NT.16 |
000029C0: A7 20 4C 45 B2 31 35 3A 20 48 B2 B5 28 4E 54 AD |. LE.15: H..(NT.|
000029D0: 32 AA 2E 36 29 00 E8 31 A6 18 99 C8 28 43 44 24 |2..6)..1....(CD$|
000029E0: 2C 35 29 3A 20 49 B2 30 00 0D 32 A8 18 8B 20 4E |,5): I.0..2... N|
000029F0: 54 B2 30 20 A7 20 99 22 11 1D 1D 1D 1D 1D 1D 9E |T.0 . ."........|
00002A00: CE 4F 20 54 45 41 4D 53 2E 22 3A 20 8E 00 36 32 |.O TEAMS.": ..62|
00002A10: B0 18 99 22 1D 1D 05 22 3B C9 28 C4 28 49 AA 31 |..."...";.(.(I.1|
00002A20: 29 2C 32 29 3B 22 2E 9E 22 3B C8 28 4E 4E 24 28 |),2);"..";.(NN$(|
00002A30: 49 29 2C 4C 45 29 00 55 32 B2 18 49 B2 49 AA 31 |I),LE).U2..I.I.1|
00002A40: 3A 20 8B 20 49 B3 4E 54 20 AF 20 49 B3 48 20 A7 |: . I.NT . I.H .|
00002A50: 20 36 33 32 30 00 70 32 BA 18 99 C8 28 43 44 24 | 6320.p2....(CD$|
00002A60: 2C 35 29 3A 20 8B 20 49 B1 B2 4E 54 20 A7 20 8E |,5): . I..NT . .|
00002A70: 00 A3 32 C4 18 99 C8 28 43 52 24 2C 4C 45 AA 35 |..2....(CR$,LE.5|
00002A80: 29 3B 22 05 22 3B C9 28 C4 28 49 AA 31 29 2C 32 |);".";.(.(I.1),2|
00002A90: 29 3B 22 2E 9E 22 3B C8 28 4E 4E 24 28 49 29 2C |);"..";.(NN$(I),|
00002AA0: 4C 45 29 00 BC 32 C6 18 49 B2 49 AA 31 3A 20 8B |LE)..2..I.I.1: .|
00002AB0: 20 49 B3 4E 54 20 A7 20 36 33 34 30 00 C2 32 CE | I.NT . 6340..2.|
00002AC0: 18 8E 00 E6 32 00 19 4E 50 B2 54 50 28 32 2C 30 |....2..NP.TP(2,0|
00002AD0: 29 3A 20 50 58 B2 30 3A 20 8B 20 4E 50 B1 30 20 |): PX.0: . NP.0 |
00002AE0: A7 20 36 34 31 30 00 26 33 02 19 8D 20 36 30 30 |. 6410.&3... 600|
00002AF0: 30 30 3A 20 99 22 11 11 11 11 1D 1D 1D 1D 1D 1D |00: ."..........|
00002B00: 9E CE 4F 20 50 4C 41 59 45 52 53 2E 22 3A 20 89 |..O PLAYERS.": .|
00002B10: 20 36 30 31 30 30 3A 20 8F 20 57 41 49 54 2C 20 | 60100: . WAIT, |
00002B20: 52 45 54 55 52 4E 00 43 33 0A 19 8D 20 36 30 30 |RETURN.C3... 600|
00002B30: 30 30 3A 20 99 C8 28 43 44 24 2C 34 29 3A 20 4C |00: ..(CD$,4): L|
00002B40: 49 B2 30 00 85 33 14 19 8B 20 50 4E 24 28 50 58 |I.0..3... PN$(PX|
00002B50: 28 50 58 29 29 B2 22 22 20 A7 20 8D 20 35 30 35 |(PX))."" . . 505|
00002B60: 30 30 3A 20 8F 20 47 45 54 20 50 4C 41 59 45 52 |00: . GET PLAYER|
00002B70: 20 46 52 4F 4D 20 44 49 53 4B 2C 20 49 46 20 4E | FROM DISK, IF N|
00002B80: 45 45 44 45 44 00 B9 33 1E 19 99 C8 28 43 52 24 |EEDED..3....(CR$|
00002B90: 2C 36 29 3B 22 05 22 3B C9 28 22 20 22 AA C4 28 |,6);".";.(" "..(|
00002BA0: 50 58 AA 31 29 2C 33 29 3B 22 2E 9E 22 3B 50 4E |PX.1),3);"..";PN|
00002BB0: 24 28 50 58 28 50 58 29 29 00 E6 33 28 19 50 58 |$(PX(PX))..3(.PX|
00002BC0: B2 50 58 AA 31 3A 20 4C 49 B2 4C 49 AA 31 3A 20 |.PX.1: LI.LI.1: |
00002BD0: 8B 20 50 58 B3 4E 50 20 AF 20 4C 49 B3 31 36 20 |. PX.NP . LI.16 |
00002BE0: A7 20 36 34 32 30 00 21 34 32 19 99 C8 28 43 44 |. 6420.!42...(CD|
00002BF0: 24 2C 32 31 29 3B C8 28 43 52 24 2C 36 29 3B 22 |$,21);.(CR$,6);"|
00002C00: 9E 12 D0 52 45 53 53 20 3C D3 D0 C1 C3 C5 3E 20 |...RESS <.....> |
00002C10: 54 4F 20 43 4F 4E 54 49 4E 55 45 20 4C 49 53 54 |TO CONTINUE LIST|
00002C20: 22 00 5D 34 34 19 99 C8 28 43 52 24 2C 36 29 3B |".]44...(CR$,6);|
00002C30: 22 12 D0 52 45 53 53 20 20 20 22 3B 43 51 24 3B |"..RESS ";CQ$;|
00002C40: 22 5E 22 3B 43 51 24 3B 22 20 20 20 54 4F 20 42 |"^";CQ$;" TO B|
00002C50: 41 43 4B 20 55 50 20 4C 49 53 54 20 22 00 99 34 |ACK UP LIST "..4|
00002C60: 36 19 99 C8 28 43 52 24 2C 36 29 3B 22 12 D0 52 |6...(CR$,6);"..R|
00002C70: 45 53 53 20 20 20 22 3B 43 51 24 3B 22 5F 22 3B |ESS ";CQ$;"_";|
00002C80: 43 51 24 3B 22 20 20 20 54 4F 20 53 54 4F 50 20 |CQ$;" TO STOP |
00002C90: 4C 49 53 54 20 20 20 20 22 00 C8 34 3C 19 A1 20 |LIST "..4<.. |
00002CA0: 58 24 3A 20 8B 20 58 24 B3 B1 22 5F 22 20 AF 20 |X$: . X$.."_" . |
00002CB0: 58 24 B3 B1 22 5E 22 20 AF 20 58 24 B3 B1 22 20 |X$.."^" . X$.." |
00002CC0: 22 20 A7 20 36 34 36 30 00 D9 34 3E 19 8B 20 58 |" . 6460..4>.. X|
00002CD0: 24 B2 22 5F 22 20 A7 20 8E 00 03 35 40 19 8B 20 |$."_" . ...5@.. |
00002CE0: 58 24 B2 22 5E 22 20 A7 20 50 58 B2 50 58 AB 4C |X$."^" . PX.PX.L|
00002CF0: 49 AB 31 36 3A 20 8B 20 50 58 B3 30 20 A7 20 50 |I.16: . PX.0 . P|
00002D00: 58 B2 30 00 26 35 42 19 8B 20 58 24 B2 22 20 22 |X.0.&5B.. X$." "|
00002D10: 20 A7 20 8B 20 50 58 B1 B2 4E 50 20 A7 20 50 58 | . . PX..NP . PX|
00002D20: B2 50 58 AB 4C 49 00 31 35 44 19 89 20 36 34 31 |.PX.LI.15D.. 641|
00002D30: 30 00 54 35 64 19 5A B2 30 3A 20 54 45 24 B2 22 |0.T5d.Z.0: TE$."|
00002D40: C1 44 44 20 D0 4C 41 59 45 52 22 3A 20 8D 20 36 |.DD .LAYER": . 6|
00002D50: 30 30 30 30 00 89 35 6E 19 50 58 B2 54 50 28 32 |0000..5n.PX.TP(2|
00002D60: 2C 30 29 3A 20 99 C8 28 43 44 24 2C 38 29 3B C8 |,0): ..(CD$,8);.|
00002D70: 28 43 52 24 2C 34 29 3B 3A 20 8B 20 50 58 B3 35 |(CR$,4);: . PX.5|
00002D80: 30 30 20 A7 20 36 35 32 30 00 B1 35 70 19 99 22 |00 . 6520..5p.."|
00002D90: 9E D4 48 45 52 45 20 41 52 45 20 41 4C 52 45 41 |..HERE ARE ALREA|
00002DA0: 44 59 22 3B 50 58 3B 22 50 4C 41 59 45 52 53 2E |DY";PX;"PLAYERS.|
00002DB0: 22 00 DA 35 72 19 99 C8 28 43 52 24 2C 36 29 3B |"..5r...(CR$,6);|
00002DC0: 22 CE 4F 20 4D 4F 52 45 20 50 4C 41 59 45 52 53 |".O MORE PLAYERS|
00002DD0: 20 41 4C 4C 4F 57 45 44 2E 22 00 0D 36 74 19 8D | ALLOWED."..6t..|
00002DE0: 20 36 30 31 30 30 3A 20 89 20 36 30 30 30 3A 20 | 60100: . 6000: |
00002DF0: 8F 20 57 41 49 54 20 46 4F 52 20 53 50 41 43 45 |. WAIT FOR SPACE|
00002E00: 2C 20 54 48 45 4E 20 52 45 54 55 52 4E 00 49 36 |, THEN RETURN.I6|
00002E10: 78 19 99 22 9E D0 4C 41 59 45 52 20 4E 55 4D 42 |x.."..LAYER NUMB|
00002E20: 45 52 22 3B 50 58 AA 31 3A 20 50 58 28 50 58 29 |ER";PX.1: PX(PX)|
00002E30: B2 50 58 3A 20 8F 20 4E 4F 20 53 4F 52 54 49 4E |.PX: . NO SORTIN|
00002E40: 47 20 46 4F 52 20 4E 4F 57 00 60 36 82 19 99 C8 |G FOR NOW.`6....|
00002E50: 28 43 52 24 2C 34 29 3B 22 11 CE 41 4D 45 3A 22 |(CR$,4);"..AME:"|
00002E60: 00 79 36 84 19 99 C8 28 43 52 24 2C 31 34 29 3B |.y6....(CR$,14);|
00002E70: C8 28 55 53 24 2C 32 30 29 00 92 36 86 19 99 22 |.(US$,20)..6..."|
00002E80: 91 91 22 3B C8 28 43 52 24 2C 31 34 29 3B 43 53 |..";.(CR$,14);CS|
00002E90: 24 3B 00 B8 36 88 19 4C 45 B2 32 30 3A 20 8D 20 |$;..6..LE.20: . |
00002EA0: 36 30 32 30 30 3A 20 99 3A 20 50 4E 24 28 50 58 |60200: .: PN$(PX|
00002EB0: 28 50 58 29 29 B2 59 24 00 D1 36 8A 19 8B 59 24 |(PX)).Y$..6...Y$|
00002EC0: B2 C8 28 42 4C 24 2C 4C 45 29 20 A7 20 36 30 30 |..(BL$,LE) . 600|
00002ED0: 30 00 FC 36 8C 19 99 C8 28 43 52 24 2C 34 29 3B |0..6....(CR$,4);|
00002EE0: 22 11 9E C9 53 20 54 48 49 53 20 43 4F 52 52 45 |"...S THIS CORRE|
00002EF0: 43 54 3F 20 3C D9 2F CE 3E 20 22 3B 00 2F 37 8E |CT? <./.> ";./7.|
00002F00: 19 8D 20 36 32 35 30 30 3A 20 8B 20 58 24 B2 22 |.. 62500: . X$."|
00002F10: CE 22 20 A7 20 89 20 36 30 30 30 3A 20 8F 20 52 |." . . 6000: . R|
00002F20: 45 4A 45 43 54 45 44 2C 20 52 45 54 55 52 4E 00 |EJECTED, RETURN.|
00002F30: 6C 37 96 19 8B 20 50 58 B2 30 20 A7 20 36 35 36 |l7... PX.0 . 656|
00002F40: 30 3A 20 8F 20 49 46 20 4E 4F 20 50 4C 41 59 45 |0: . IF NO PLAYE|
00002F50: 52 53 20 53 4B 49 50 20 53 45 41 52 43 48 20 46 |RS SKIP SEARCH F|
00002F60: 4F 52 20 44 55 50 4C 49 43 41 54 45 00 A9 37 98 |OR DUPLICATE..7.|
00002F70: 19 50 B2 31 30 30 30 3A 20 81 20 49 B2 30 A4 50 |.P.1000: . I.0.P|
00002F80: 58 AB 31 3A 20 8B 20 50 4E 24 28 50 58 28 49 29 |X.1: . PN$(PX(I)|
00002F90: 29 B2 50 4E 24 28 50 58 28 50 58 29 29 20 A7 20 |).PN$(PX(PX)) . |
00002FA0: 50 B2 49 3A 20 49 B2 50 58 00 DD 37 9A 19 82 3A |P.I: I.PX..7...:|
00002FB0: 8B 50 B3 49 A7 99 C8 28 43 52 24 2C 34 29 3B 22 |.P.I...(CR$,4);"|
00002FC0: 1E C4 55 50 4C 49 43 41 54 45 20 4E 41 4D 45 22 |..UPLICATE NAME"|
00002FD0: 3A 8D 36 30 31 30 30 3A 89 36 30 30 30 00 20 38 |:.60100:.6000. 8|
00002FE0: A0 19 4E 58 B2 32 35 35 3A 20 44 58 B2 32 35 35 |..NX.255: DX.255|
00002FF0: 3A 20 50 57 B2 32 35 35 3A 20 50 46 B2 30 3A 20 |: PW.255: PF.0: |
00003000: 50 4F B2 30 3A 20 81 49 B2 30 A4 39 3A 20 50 53 |PO.0: .I.0.9: PS|
00003010: 28 49 29 B2 30 3A 20 82 3A 20 8F 20 49 4E 49 54 |(I).0: .: . INIT|
00003020: 00 59 38 AA 19 8D 20 35 30 34 30 30 3A 20 8D 20 |.Y8... 50400: . |
00003030: 35 30 38 30 30 3A 20 8F 20 57 52 49 54 45 20 50 |50800: . WRITE P|
00003040: 4C 41 59 45 52 20 4E 41 4D 45 20 26 20 44 41 54 |LAYER NAME & DAT|
00003050: 41 20 54 4F 20 44 49 53 4B 00 99 38 B4 19 54 50 |A TO DISK..8..TP|
00003060: 28 32 2C 30 29 B2 54 50 28 32 2C 30 29 AA 31 3A |(2,0).TP(2,0).1:|
00003070: 20 8D 20 35 30 30 30 30 3A 20 89 20 36 30 30 30 | . 50000: . 6000|
00003080: 3A 20 8F 20 55 50 44 41 54 45 20 4C 45 41 47 55 |: . UPDATE LEAGU|
00003090: 45 2C 20 52 45 54 55 52 4E 00 B1 38 C8 19 54 45 |E, RETURN..8..TE|
000030A0: 24 B2 22 C4 45 4C 45 54 45 20 D0 4C 41 59 45 52 |$.".ELETE .LAYER|
000030B0: 22 00 F0 38 D2 19 5A B2 30 3A 8D 36 30 30 30 30 |"..8..Z.0:.60000|
000030C0: 3A 8D 35 30 36 30 30 3A 8B 50 58 B3 4E 50 A7 36 |:.50600:.PX.NP.6|
000030D0: 36 33 30 3A 8F 20 47 45 54 20 41 4E 44 20 56 45 |630:. GET AND VE|
000030E0: 52 49 46 59 20 50 4C 41 59 45 52 20 4E 41 4D 45 |RIFY PLAYER NAME|
000030F0: 00 13 39 DC 19 99 C8 28 43 52 24 2C 34 29 3B 22 |..9....(CR$,4);"|
00003100: 11 1E D0 4C 41 59 45 52 20 4E 4F 54 20 46 4F 55 |...LAYER NOT FOU|
00003110: 4E 44 22 00 51 39 DE 19 99 C8 28 43 52 24 2C 34 |ND".Q9....(CR$,4|
00003120: 29 3B 22 9E D4 52 59 20 41 47 41 49 4E 3F 20 28 |);"..RY AGAIN? (|
00003130: D9 2F CE 29 20 22 3B 3A 20 8D 20 36 32 35 30 30 |./.) ";: . 62500|
00003140: 3A 20 8B 20 58 24 B2 22 D9 22 20 A7 20 36 36 31 |: . X$."." . 661|
00003150: 30 00 79 39 E6 19 8B 20 50 4E 24 B2 22 22 20 A7 |0.y9... PN$."" .|
00003160: 20 89 20 36 30 30 30 3A 20 8F 20 52 45 54 55 52 | . 6000: . RETUR|
00003170: 4E 20 54 4F 20 4D 45 4E 55 00 A1 39 F0 19 99 C8 |N TO MENU..9....|
00003180: 28 43 52 24 2C 34 29 3B 22 11 9E C1 52 45 20 59 |(CR$,4);"...RE Y|
00003190: 4F 55 20 53 55 52 45 3F 20 3C D9 2F CE 3E 20 22 |OU SURE? <./.> "|
000031A0: 3B 00 C8 39 FA 19 8D 20 36 32 35 30 30 3A 20 8B |;..9... 62500: .|
000031B0: 20 58 24 B2 22 CE 22 20 A7 20 36 30 30 30 3A 20 | X$."." . 6000: |
000031C0: 8F 20 52 45 54 55 52 4E 00 EE 39 04 1A 8D 20 35 |. RETURN..9... 5|
000031D0: 30 39 30 30 3A 20 8F 20 47 45 54 20 50 4C 41 59 |0900: . GET PLAY|
000031E0: 45 52 20 44 41 54 41 20 46 49 45 4C 44 53 00 1D |ER DATA FIELDS..|
000031F0: 3A 06 1A 8B 20 4E 58 B1 B2 54 50 28 30 2C 30 29 |:... NX..TP(0,0)|
00003200: 20 A7 20 36 36 37 30 3A 20 8F 20 4E 4F 20 44 45 | . 6670: . NO DE|
00003210: 4C 45 54 49 4F 4E 20 4E 45 45 44 45 44 00 4F 3A |LETION NEEDED.O:|
00003220: 08 1A 8D 20 35 31 33 30 30 3A 20 8F 20 44 45 4C |... 51300: . DEL|
00003230: 45 54 45 20 50 4C 41 59 45 52 20 46 52 4F 4D 20 |ETE PLAYER FROM |
00003240: 4E 46 4C 20 54 45 41 4D 27 53 20 4C 49 53 54 00 |NFL TEAM'S LIST.|
00003250: 7E 3A 0E 1A 8B 20 44 58 B1 B2 54 50 28 31 2C 30 |~:... DX..TP(1,0|
00003260: 29 20 A7 20 36 36 38 30 3A 20 8F 20 4E 4F 20 44 |) . 6680: . NO D|
00003270: 45 4C 45 54 49 4F 4E 20 4E 45 45 44 45 44 00 B2 |ELETION NEEDED..|
00003280: 3A 10 1A 8D 20 35 31 33 31 30 3A 20 8F 20 44 45 |:... 51310: . DE|
00003290: 4C 45 54 45 20 50 4C 41 59 45 52 20 46 52 4F 4D |LETE PLAYER FROM|
000032A0: 20 44 52 45 41 4D 20 54 45 41 4D 27 53 20 4C 49 | DREAM TEAM'S LI|
000032B0: 53 54 00 F7 3A 18 1A 54 50 28 32 2C 30 29 B2 54 |ST..:..TP(2,0).T|
000032C0: 50 28 32 2C 30 29 AB 31 3A 20 8D 20 35 31 31 30 |P(2,0).1: . 5110|
000032D0: 30 3A 20 8F 20 4D 4F 56 45 20 4C 41 53 54 20 50 |0: . MOVE LAST P|
000032E0: 4C 41 59 45 52 20 54 4F 20 44 45 4C 45 54 45 44 |LAYER TO DELETED|
000032F0: 20 50 4C 41 59 45 52 00 2B 3B 22 1A 8D 20 35 30 | PLAYER.+;".. 50|
00003300: 30 30 30 3A 20 89 20 36 30 30 30 3A 20 8F 20 55 |000: . 6000: . U|
00003310: 50 44 41 54 45 20 4C 45 41 47 55 45 20 53 45 43 |PDATE LEAGUE SEC|
00003320: 54 4F 52 2C 20 52 45 54 55 52 4E 00 4E 3B 2C 1A |TOR, RETURN.N;,.|
00003330: 54 45 24 B2 22 C1 53 53 49 47 4E 20 D0 4C 41 59 |TE$.".SSIGN .LAY|
00003340: 45 52 20 54 4F 20 D0 52 4F D4 45 41 4D 22 00 8E |ER TO .RO.EAM"..|
00003350: 3B 36 1A 5A B2 30 3A 8D 36 30 30 30 30 3A 8D 35 |;6.Z.0:.60000:.5|
00003360: 30 36 30 30 3A 8B 50 58 B3 4E 50 A7 36 37 33 30 |0600:.PX.NP.6730|
00003370: 3A 20 8F 20 47 45 54 20 41 4E 44 20 56 45 52 49 |: . GET AND VERI|
00003380: 46 59 20 50 4C 41 59 45 52 20 4E 41 4D 45 00 B1 |FY PLAYER NAME..|
00003390: 3B 40 1A 99 C8 28 43 52 24 2C 34 29 3B 22 11 1E |;@...(CR$,4);"..|
000033A0: D0 4C 41 59 45 52 20 4E 4F 54 20 46 4F 55 4E 44 |.LAYER NOT FOUND|
000033B0: 22 00 D5 3B 42 1A 99 C8 28 43 52 24 2C 34 29 3B |"..;B...(CR$,4);|
000033C0: 22 9E D4 52 59 20 41 47 41 49 4E 3F 20 28 D9 2F |"..RY AGAIN? (./|
000033D0: CE 29 20 22 3B 00 F2 3B 44 1A 8D 20 36 32 35 30 |.) ";..;D.. 6250|
000033E0: 30 3A 20 8B 20 58 24 B2 22 D9 22 20 A7 20 36 37 |0: . X$."." . 67|
000033F0: 31 30 00 18 3C 4A 1A 8B 20 50 4E 24 B2 22 22 20 |10..<J.. PN$."" |
00003400: A7 20 36 30 30 30 3A 20 8F 20 52 45 54 55 52 4E |. 6000: . RETURN|
00003410: 20 54 4F 20 4D 45 4E 55 00 4F 3C 54 1A 8D 35 30 | TO MENU.O<T..50|
00003420: 37 30 30 3A 20 8B 20 54 58 B3 4E 54 20 A7 20 36 |700: . TX.NT . 6|
00003430: 37 36 30 3A 20 8F 20 47 45 54 20 41 4E 44 20 56 |760: . GET AND V|
00003440: 45 52 49 46 59 20 54 45 41 4D 20 4E 41 4D 45 00 |ERIFY TEAM NAME.|
00003450: 70 3C 5E 1A 99 C8 28 43 52 24 2C 34 29 3B 22 11 |p<^...(CR$,4);".|
00003460: 1E D4 45 41 4D 20 4E 4F 54 20 46 4F 55 4E 44 22 |..EAM NOT FOUND"|
00003470: 00 94 3C 60 1A 99 C8 28 43 52 24 2C 34 29 3B 22 |..<`...(CR$,4);"|
00003480: 9E D4 52 59 20 41 47 41 49 4E 3F 20 28 D9 2F CE |..RY AGAIN? (./.|
00003490: 29 20 22 3B 00 B1 3C 62 1A 8D 20 36 32 35 30 30 |) ";..<b.. 62500|
000034A0: 3A 20 8B 20 58 24 B2 22 CE 22 20 A7 20 36 37 36 |: . X$."." . 676|
000034B0: 30 00 CE 3C 64 1A 99 22 91 91 22 3B C8 28 43 52 |0..<d.."..";.(CR|
000034C0: 24 2C 34 29 3B C8 28 42 4C 24 2C 32 30 29 00 EC |$,4);.(BL$,20)..|
000034D0: 3C 66 1A 99 C8 28 43 52 24 2C 34 29 3B C8 28 42 |<f...(CR$,4);.(B|
000034E0: 4C 24 2C 32 30 29 3A 89 36 37 34 30 00 14 3D 68 |L$,20):.6740..=h|
000034F0: 1A 8B 20 41 42 24 B2 22 22 20 A7 20 89 20 36 30 |.. AB$."" . . 60|
00003500: 30 30 3A 20 8F 20 52 45 54 55 52 4E 20 54 4F 20 |00: . RETURN TO |
00003510: 4D 45 4E 55 00 40 3D 72 1A 54 53 24 B2 54 45 24 |MENU.@=r.TS$.TE$|
00003520: 3A 20 8D 20 36 38 30 30 3A 20 54 45 24 B2 54 53 |: . 6800: TE$.TS|
00003530: 24 3A 20 8B 20 50 4F B2 30 20 A7 20 36 30 30 30 |$: . PO.0 . 6000|
00003540: 00 51 3D 74 1A 5A B2 30 3A 20 8D 20 36 30 30 30 |.Q=t.Z.0: . 6000|
00003550: 30 00 81 3D 7C 1A 99 C8 28 43 44 24 2C 31 30 29 |0..=|...(CD$,10)|
00003560: 3B C8 28 43 52 24 2C 34 29 3B 22 9E C1 53 53 49 |;.(CR$,4);"..SSI|
00003570: 47 4E 20 05 22 3B 50 4E 24 28 50 58 28 50 58 29 |GN .";PN$(PX(PX)|
00003580: 29 00 A4 3D 7E 1A 99 C8 28 43 52 24 2C 34 29 3B |)..=~...(CR$,4);|
00003590: 22 11 9E 20 20 20 20 54 4F 20 05 22 3B 4E 4E 24 |".. TO .";NN$|
000035A0: 28 54 58 29 00 DB 3D 80 1A 99 C8 28 43 52 24 2C |(TX)..=....(CR$,|
000035B0: 34 29 3B 22 11 9E 20 20 20 20 41 54 20 05 22 3B |4);".. AT .";|
000035C0: 3A 20 8D 20 36 32 33 30 30 3A 20 8F 20 50 52 49 |: . 62300: . PRI|
000035D0: 4E 54 20 50 4F 53 49 54 49 4F 4E 00 0C 3E 86 1A |NT POSITION..>..|
000035E0: 54 54 B2 54 58 3A 20 50 50 B2 50 4F 3A 20 8D 20 |TT.TX: PP.PO: . |
000035F0: 35 30 35 30 30 3A 20 8D 20 35 30 39 30 30 3A 20 |50500: . 50900: |
00003600: 8F 20 47 45 54 20 50 4C 41 59 45 52 00 36 3E 87 |. GET PLAYER.6>.|
00003610: 1A 8B 20 4E 58 B1 B2 4E 54 20 A7 20 36 37 39 36 |.. NX..NT . 6796|
00003620: 3A 20 8F 20 4E 4F 20 44 45 4C 45 54 49 4F 4E 20 |: . NO DELETION |
00003630: 4E 45 45 44 45 44 00 60 3E 88 1A 54 58 B2 4E 58 |NEEDED.`>..TX.NX|
00003640: 3A 20 99 C8 28 43 52 24 2C 34 29 3B 22 11 9E 20 |: ..(CR$,4);".. |
00003650: 20 46 52 4F 4D 20 05 22 3B 4E 4E 24 28 54 58 29 | FROM .";NN$(TX)|
00003660: 00 85 3E 89 1A 99 C8 28 43 52 24 2C 34 29 3B 22 |..>....(CR$,4);"|
00003670: 11 9E 20 20 20 20 41 54 20 05 22 3B 3A 20 8D 20 |.. AT .";: . |
00003680: 36 32 33 30 30 00 B7 3E 8A 1A 8D 20 35 31 33 30 |62300..>... 5130|
00003690: 30 3A 20 8F 20 52 45 4D 4F 56 45 20 50 4C 41 59 |0: . REMOVE PLAY|
000036A0: 45 52 20 46 52 4F 4D 20 4F 4C 44 20 54 45 41 4D |ER FROM OLD TEAM|
000036B0: 27 53 20 4C 49 53 54 00 F0 3E 8C 1A 50 4F B2 50 |'S LIST..>..PO.P|
000036C0: 50 3A 20 54 58 B2 54 54 3A 20 4E 58 B2 54 58 3A |P: TX.TT: NX.TX:|
000036D0: 20 8D 20 35 30 38 30 30 3A 20 8D 20 35 30 34 30 | . 50800: . 5040|
000036E0: 30 3A 20 8F 20 53 41 56 45 20 50 4C 41 59 45 52 |0: . SAVE PLAYER|
000036F0: 00 30 3F 8E 1A 8D 20 35 31 32 30 30 3A 20 89 20 |.0?... 51200: . |
00003700: 36 30 30 30 3A 20 8F 20 41 44 44 20 50 4C 41 59 |6000: . ADD PLAY|
00003710: 45 52 20 54 4F 20 4E 45 57 20 54 45 41 4D 27 53 |ER TO NEW TEAM'S|
00003720: 20 4C 49 53 54 20 41 4E 44 20 52 45 54 55 52 4E | LIST AND RETURN|
00003730: 00 51 3F 90 1A 54 45 24 B2 22 D3 45 4C 45 43 54 |.Q?..TE$.".ELECT|
00003740: 20 D0 4C 41 59 45 52 20 D0 4F 53 49 54 49 4F 4E | .LAYER .OSITION|
00003750: 22 00 6D 3F 9A 1A 5A B2 30 3A 20 8D 20 36 30 30 |".m?..Z.0: . 600|
00003760: 30 30 3A 20 99 C8 28 43 44 24 2C 36 29 00 94 3F |00: ..(CD$,6)..?|
00003770: A4 1A 99 C8 28 43 52 24 2C 31 30 29 3B 22 9E 31 |....(CR$,10);".1|
00003780: 2E 20 20 D1 C2 20 20 20 D1 55 41 52 54 45 52 42 |. .. .UARTERB|
00003790: 41 43 4B 22 00 B9 3F A6 1A 99 C8 28 43 52 24 2C |ACK"..?....(CR$,|
000037A0: 31 30 29 3B 22 11 32 2E 20 20 D4 C5 20 20 20 D4 |10);".2. .. .|
000037B0: 49 47 48 54 20 C5 4E 44 22 00 DB 3F A8 1A 99 C8 |IGHT .ND"..?....|
000037C0: 28 43 52 24 2C 31 30 29 3B 22 11 33 2E 20 20 CB |(CR$,10);".3. .|
000037D0: 20 20 20 20 CB 49 43 4B 45 52 22 00 04 40 AA 1A | .ICKER"..@..|
000037E0: 99 C8 28 43 52 24 2C 31 30 29 3B 22 11 34 2E 20 |..(CR$,10);".4. |
000037F0: 20 D7 D2 20 20 20 D7 49 44 45 20 D2 45 43 45 49 | .. .IDE .ECEI|
00003800: 56 45 52 22 00 2D 40 AC 1A 99 C8 28 43 52 24 2C |VER".-@....(CR$,|
00003810: 31 30 29 3B 22 11 35 2E 20 20 D2 C2 20 20 20 D2 |10);".5. .. .|
00003820: 55 4E 4E 49 4E 47 20 C2 41 43 4B 11 22 00 5C 40 |UNNING .ACK.".\@|
00003830: AE 1A 99 3A 99 C8 28 43 52 24 2C 36 29 3B 22 C5 |...:..(CR$,6);".|
00003840: 4E 54 45 52 20 50 4F 53 49 54 49 4F 4E 20 4E 55 |NTER POSITION NU|
00003850: 4D 42 45 52 20 20 28 31 2D 35 29 22 00 8C 40 B0 |MBER (1-5)"..@.|
00003860: 1A 54 43 24 B2 22 4F 52 20 22 AA 42 41 24 AA 22 |.TC$."OR ".BA$."|
00003870: 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 | TO RETURN TO ME|
00003880: 4E 55 22 3A 20 8D 20 36 30 31 36 30 00 A9 40 B8 |NU": . 60160..@.|
00003890: 1A A1 20 58 24 3A 20 8B 20 58 24 B2 22 5F 22 20 |.. X$: . X$."_" |
000038A0: A7 20 50 4F B2 30 3A 20 8E 00 C6 40 BA 1A 8B 20 |. PO.0: ...@... |
000038B0: 58 24 B3 22 31 22 20 B0 20 58 24 B1 22 35 22 20 |X$."1" . X$."5" |
000038C0: A7 20 36 38 34 30 00 F5 40 C2 1A 50 4F B2 C5 28 |. 6840..@..PO..(|
000038D0: 58 24 29 3A 20 99 C8 28 43 52 24 2C 36 29 3B 22 |X$): ..(CR$,6);"|
000038E0: 11 05 12 22 3B CA 28 50 4F 24 2C 31 AA 32 AC 50 |...";.(PO$,1.2.P|
000038F0: 4F 2C 32 29 3B 00 33 41 CC 1A 99 22 92 9E 20 20 |O,2);.3A...".. |
00003900: C9 53 20 54 48 49 53 20 43 4F 52 52 45 43 54 3F |.S THIS CORRECT?|
00003910: 20 3C D9 2F CE 3E 20 22 3B 3A 20 8D 20 36 32 35 | <./.> ";: . 625|
00003920: 30 30 3A 20 8B 20 58 24 B2 22 CE 22 20 A7 20 50 |00: . X$."." . P|
00003930: 4F B2 30 00 39 41 D6 1A 8E 00 6B 41 F4 1A 8D 20 |O.0.9A....kA... |
00003940: 35 31 35 30 30 3A 20 89 20 36 30 30 30 3A 20 8F |51500: . 6000: .|
00003950: 20 50 52 49 4E 54 20 4C 49 53 54 2C 20 52 45 54 | PRINT LIST, RET|
00003960: 55 52 4E 20 54 4F 20 4D 45 4E 55 00 9E 41 50 C3 |URN TO MENU..AP.|
00003970: 58 24 B2 22 22 3A 81 20 49 B2 30 A4 31 3A 20 81 |X$."":. I.0.1: .|
00003980: 20 4A B2 30 A4 33 3A 20 58 24 B2 58 24 AA C7 28 | J.0.3: X$.X$..(|
00003990: 54 50 28 49 2C 4A 29 29 3A 82 20 4A 2C 49 00 DD |TP(I,J)):. J,I..|
000039A0: 41 5A C3 58 B2 54 50 28 32 2C 30 29 3A 20 59 24 |AZ.X.TP(2,0): Y$|
000039B0: B2 C7 28 58 AD 32 35 36 AA 2E 30 30 31 29 AA C7 |..(X.256..001)..|
000039C0: 28 58 AF 32 35 35 29 AA C7 28 54 50 28 32 2C 31 |(X.255)..(TP(2,1|
000039D0: 29 29 AA C7 28 54 50 28 32 2C 32 29 29 00 11 42 |))..(TP(2,2))..B|
000039E0: 64 C3 58 B2 54 50 28 32 2C 33 29 3A 20 59 24 B2 |d.X.TP(2,3): Y$.|
000039F0: 59 24 AA C7 28 58 AD 32 35 36 AA 2E 30 30 31 29 |Y$..(X.256..001)|
00003A00: AA C7 28 58 20 AF 20 32 35 35 29 AA C7 28 50 53 |..(X . 255)..(PS|
00003A10: 29 00 46 42 6E C3 58 24 B2 4C 4E 24 AA 58 24 AA |).FBn.X$.LN$.X$.|
00003A20: 59 24 AA C7 28 50 44 28 30 29 29 AA C7 28 50 44 |Y$..(PD(0))..(PD|
00003A30: 28 31 29 29 AA C7 28 53 4F 29 AA C7 28 49 52 29 |(1))..(SO)..(IR)|
00003A40: AA C7 28 57 4B 29 00 8D 42 78 C3 54 4B B2 31 3A |..(WK)..Bx.TK.1:|
00003A50: 20 53 52 B2 30 3A 20 42 54 B2 30 3A 20 4C 4E B2 | SR.0: BT.0: LN.|
00003A60: 34 30 3A 20 89 20 36 33 33 30 30 3A 20 8F 20 57 |40: . 63300: . W|
00003A70: 52 49 54 45 20 4C 45 41 47 55 45 20 53 45 43 54 |RITE LEAGUE SECT|
00003A80: 4F 52 20 41 4E 44 20 52 45 54 55 52 4E 00 C8 42 |OR AND RETURN..B|
00003A90: B4 C3 54 4B B2 31 3A 20 53 52 B2 30 3A 20 42 54 |..TK.1: SR.0: BT|
00003AA0: B2 30 3A 20 4C 4E B2 34 30 3A 20 8D 20 36 33 32 |.0: LN.40: . 632|
00003AB0: 30 30 3A 20 8F 20 52 45 41 44 20 4C 45 41 47 55 |00: . READ LEAGU|
00003AC0: 45 20 53 45 43 54 4F 52 00 EB 42 BE C3 4C 4E 24 |E SECTOR..B..LN$|
00003AD0: B2 C8 28 58 24 2C 32 30 29 3A 20 50 53 B2 C6 28 |..(X$,20): PS..(|
00003AE0: CA 28 58 24 2C 33 35 2C 31 29 29 00 18 43 C8 C3 |.(X$,35,1))..C..|
00003AF0: 50 44 28 30 29 B2 C6 28 CA 28 58 24 2C 33 36 2C |PD(0)..(.(X$,36,|
00003B00: 31 29 29 3A 20 50 44 28 31 29 B2 C6 28 CA 28 58 |1)): PD(1)..(.(X|
00003B10: 24 2C 33 37 2C 31 29 29 00 3F 43 D2 C3 53 4F B2 |$,37,1)).?C..SO.|
00003B20: C6 28 CA 28 58 24 2C 33 38 2C 31 29 29 3A 20 49 |.(.(X$,38,1)): I|
00003B30: 52 B2 C6 28 CA 28 58 24 2C 33 39 2C 31 29 29 00 |R..(.(X$,39,1)).|
00003B40: 64 43 DC C3 57 4B B2 C6 28 CA 28 58 24 2C 34 30 |dC..WK..(.(X$,40|
00003B50: 2C 31 29 29 3A 20 58 24 B2 CA 28 58 24 2C 32 31 |,1)): X$..(X$,21|
00003B60: 2C 31 34 29 00 A2 43 E6 C3 58 B2 31 3A 20 81 20 |,14)..C..X.1: . |
00003B70: 49 B2 30 A4 31 3A 20 81 20 4A B2 30 A4 33 3A 20 |I.0.1: . J.0.3: |
00003B80: 54 50 28 49 2C 4A 29 B2 C6 28 CA 28 58 24 2C 58 |TP(I,J)..(.(X$,X|
00003B90: 2C 31 29 29 3A 20 58 B2 58 AA 31 3A 20 82 20 4A |,1)): X.X.1: . J|
00003BA0: 2C 49 00 D5 43 F0 C3 54 50 28 32 2C 30 29 B2 C6 |,I..C..TP(2,0)..|
00003BB0: 28 CA 28 58 24 2C 58 2C 31 29 29 AC 32 35 36 AA |(.(X$,X,1)).256.|
00003BC0: C6 28 CA 28 58 24 2C 58 AA 31 2C 31 29 29 3A 20 |.(.(X$,X.1,1)): |
00003BD0: 58 B2 58 AA 32 00 12 44 FA C3 54 50 28 32 2C 31 |X.X.2..D..TP(2,1|
00003BE0: 29 B2 C6 28 CA 28 58 24 2C 58 2C 31 29 29 3A 20 |)..(.(X$,X,1)): |
00003BF0: 58 B2 58 AA 31 3A 20 54 50 28 32 2C 32 29 B2 C6 |X.X.1: TP(2,2)..|
00003C00: 28 CA 28 58 24 2C 58 2C 31 29 29 3A 20 58 B2 58 |(.(X$,X,1)): X.X|
00003C10: AA 31 00 41 44 04 C4 54 50 28 32 2C 33 29 B2 C6 |.1.AD..TP(2,3)..|
00003C20: 28 CA 28 58 24 2C 58 2C 31 29 29 AC 32 35 36 AA |(.(X$,X,1)).256.|
00003C30: C6 28 CA 28 58 24 2C 58 AA 31 2C 31 29 29 3A 20 |.(.(X$,X.1,1)): |
00003C40: 8E 00 7F 44 18 C4 54 4B B2 54 50 28 30 2C 31 29 |...D..TK.TP(0,1)|
00003C50: 3A 20 53 52 B2 54 50 28 30 2C 32 29 3A 20 54 4E |: SR.TP(0,2): TN|
00003C60: 24 B2 4E 4E 24 28 54 58 29 3A 20 41 42 24 B2 4E |$.NN$(TX): AB$.N|
00003C70: 41 24 28 54 58 29 3A 20 89 20 35 30 32 32 30 00 |A$(TX): . 50220.|
00003C80: B5 44 22 C4 54 4B B2 54 50 28 31 2C 31 29 3A 20 |.D".TK.TP(1,1): |
00003C90: 53 52 B2 54 50 28 31 2C 32 29 3A 20 54 4E 24 B2 |SR.TP(1,2): TN$.|
00003CA0: 44 4E 24 28 54 58 29 3A 20 41 42 24 B2 C8 28 42 |DN$(TX): AB$..(B|
00003CB0: 4C 24 2C 34 29 00 DD 44 2C C4 49 58 B2 54 58 3A |L$,4)..D,.IX.TX:|
00003CC0: 20 8D 20 36 33 38 30 30 3A 20 8F 20 47 45 54 20 | . 63800: . GET |
00003CD0: 52 49 47 48 54 20 54 4B 20 26 20 53 52 00 15 45 |RIGHT TK & SR..E|
00003CE0: 36 C4 58 24 B2 22 22 3A 20 81 20 49 B2 30 A4 31 |6.X$."": . I.0.1|
00003CF0: 35 3A 20 58 24 B2 58 24 AA C7 28 54 53 28 49 29 |5: X$.X$..(TS(I)|
00003D00: AD 32 35 36 29 AA C7 28 54 53 28 49 29 AF 32 35 |.256)..(TS(I).25|
00003D10: 35 29 3A 20 82 00 32 45 40 C4 59 24 B2 C7 28 4E |5): ..2E@.Y$..(N|
00003D20: 50 29 3A 20 8B 20 4E 50 B2 30 20 A7 20 35 30 32 |P): . NP.0 . 502|
00003D30: 36 30 00 65 45 4A C4 81 20 49 B2 30 A4 4E 50 AB |60.eEJ.. I.0.NP.|
00003D40: 31 3A 20 59 24 B2 59 24 AA C7 28 50 4C 28 49 29 |1: Y$.Y$..(PL(I)|
00003D50: AD 32 35 36 29 AA C7 28 50 4C 28 49 29 AF 32 35 |.256)..(PL(I).25|
00003D60: 35 29 3A 20 82 00 8C 45 54 C4 58 24 B2 54 4E 24 |5): ...ET.X$.TN$|
00003D70: AA 41 42 24 AA C7 28 54 58 29 AA C7 28 41 50 29 |.AB$..(TX)..(AP)|
00003D80: AA C7 28 44 56 29 AA 58 24 AA 59 24 00 BC 45 5E |..(DV).X$.Y$..E^|
00003D90: C4 42 54 B2 30 3A 20 4C 4E B2 C3 28 58 24 29 3A |.BT.0: LN..(X$):|
00003DA0: 20 89 20 36 33 33 30 30 3A 20 8F 20 57 52 49 54 | . 63300: . WRIT|
00003DB0: 45 20 41 4E 44 20 52 45 54 55 52 4E 00 F9 45 7C |E AND RETURN..E||
00003DC0: C4 54 4B B2 54 50 28 30 2C 31 29 3A 20 53 52 B2 |.TK.TP(0,1): SR.|
00003DD0: 54 50 28 30 2C 32 29 3A 20 89 20 35 30 33 32 30 |TP(0,2): . 50320|
00003DE0: 20 3A 20 8F 20 52 45 41 44 20 50 52 4F 20 54 45 | : . READ PRO TE|
00003DF0: 41 4D 20 53 45 43 54 4F 52 00 22 46 86 C4 54 4B |AM SECTOR."F..TK|
00003E00: B2 54 50 28 31 2C 31 29 3A 20 53 52 B2 54 50 28 |.TP(1,1): SR.TP(|
00003E10: 31 2C 32 29 3A 20 8F 20 44 52 45 41 4D 20 54 45 |1,2): . DREAM TE|
00003E20: 41 4D 00 4A 46 90 C4 49 58 B2 54 58 3A 20 8D 20 |AM.JF..IX.TX: . |
00003E30: 36 33 38 30 30 3A 20 8F 20 47 45 54 20 52 49 47 |63800: . GET RIG|
00003E40: 48 54 20 54 4B 20 26 20 53 52 00 7A 46 95 C4 4C |HT TK & SR.zF..L|
00003E50: 4E B2 36 30 3A 20 8B 20 53 48 B2 31 20 A7 20 4C |N.60: . SH.1 . L|
00003E60: 4E B2 32 34 3A 20 8F 20 43 48 45 43 4B 20 22 53 |N.24: . CHECK "S|
00003E70: 48 4F 52 54 22 20 46 4C 41 47 00 A3 46 9A C4 42 |HORT" FLAG..F..B|
00003E80: 54 B2 30 3A 20 8D 20 36 33 32 30 30 3A 20 8F 20 |T.0: . 63200: . |
00003E90: 52 41 57 20 54 45 41 4D 20 44 41 54 41 20 54 4F |RAW TEAM DATA TO|
00003EA0: 20 58 24 00 C6 46 A4 C4 54 4E 24 B2 CA 28 58 24 | X$..F..TN$..(X$|
00003EB0: 2C 31 2C 32 30 29 3A 20 41 42 24 B2 CA 28 58 24 |,1,20): AB$..(X$|
00003EC0: 2C 32 31 2C 34 29 00 EB 46 A9 C4 8B 20 53 48 B2 |,21,4)..F... SH.|
00003ED0: 31 20 A7 20 8E 3A 20 8F 20 53 48 4F 52 54 20 52 |1 . .: . SHORT R|
00003EE0: 45 41 44 20 49 53 20 44 4F 4E 45 00 12 47 AE C4 |EAD IS DONE..G..|
00003EF0: 41 50 B2 C6 28 CA 28 58 24 2C 32 36 2C 31 29 29 |AP..(.(X$,26,1))|
00003F00: 3A 20 44 56 B2 C6 28 CA 28 58 24 2C 32 37 2C 31 |: DV..(.(X$,27,1|
00003F10: 29 29 00 4C 47 B8 C4 4A B2 32 38 3A 20 81 20 49 |)).LG..J.28: . I|
00003F20: B2 30 A4 31 35 3A 20 54 53 28 49 29 B2 32 35 36 |.0.15: TS(I).256|
00003F30: AC C6 28 CA 28 58 24 2C 4A 2C 31 29 29 AA C6 28 |..(.(X$,J,1))..(|
00003F40: CA 28 58 24 2C 4A AA 31 2C 31 29 29 00 59 47 BD |.(X$,J.1,1)).YG.|
00003F50: C4 4A B2 4A AA 32 3A 20 82 00 84 47 C2 C4 4E 50 |.J.J.2: ...G..NP|
00003F60: B2 C6 28 CA 28 58 24 2C 36 30 2C 31 29 29 3A 20 |..(.(X$,60,1)): |
00003F70: 8B 20 4E 50 B2 30 20 A7 20 8E 3A 20 8F 20 45 4C |. NP.0 . .: . EL|
00003F80: 53 45 20 2D 00 A0 47 CC C4 42 54 B2 36 30 3A 20 |SE -..G..BT.60: |
00003F90: 4C 4E B2 32 AC 4E 50 3A 20 8D 20 36 33 32 30 30 |LN.2.NP: . 63200|
00003FA0: 00 DB 47 D6 C4 4A B2 31 3A 20 81 20 49 B2 30 A4 |..G..J.1: . I.0.|
00003FB0: 4E 50 AB 31 3A 20 50 4C 28 49 29 B2 32 35 36 AC |NP.1: PL(I).256.|
00003FC0: C6 28 CA 28 58 24 2C 4A 2C 31 29 29 AA C6 28 CA |.(.(X$,J,1))..(.|
00003FD0: 28 58 24 2C 4A AA 31 2C 31 29 29 00 EB 47 DB C4 |(X$,J.1,1))..G..|
00003FE0: 4A B2 4A AA 32 3A 20 82 3A 20 8E 00 32 48 E0 C4 |J.J.2: .: ..2H..|
00003FF0: 54 4B B2 50 44 28 30 29 3A 20 53 52 B2 50 44 28 |TK.PD(0): SR.PD(|
00004000: 31 29 3A 20 49 58 B2 50 58 28 50 58 29 3A 20 8D |1): IX.PX(PX): .|
00004010: 20 36 33 38 30 30 3A 20 8F 20 43 4F 52 52 20 54 | 63800: . CORR T|
00004020: 4B 2F 53 52 20 46 4F 52 20 50 4C 59 52 20 44 41 |K/SR FOR PLYR DA|
00004030: 54 41 00 6F 48 EA C4 58 24 B2 C7 28 49 58 AD 32 |TA.oH..X$..(IX.2|
00004040: 35 36 29 AA C7 28 49 58 AF 32 35 35 29 3A 20 8F |56)..(IX.255): .|
00004050: 20 4C 49 53 54 20 49 44 58 20 26 20 28 46 4F 52 | LIST IDX & (FOR|
00004060: 20 4E 4F 57 29 20 41 4C 50 48 41 20 50 54 52 00 | NOW) ALPHA PTR.|
00004070: AB 48 F4 C4 58 24 B2 50 4E 24 28 49 58 29 AA 58 |.H..X$.PN$(IX).X|
00004080: 24 AA 58 24 AA C7 28 54 4B 29 AA C7 28 53 52 29 |$.X$..(TK)..(SR)|
00004090: AA C7 28 50 46 29 AA C7 28 50 4F 29 AA C7 28 50 |..(PF)..(PO)..(P|
000040A0: 57 29 AA C7 28 50 53 28 39 29 29 00 E7 48 FE C4 |W)..(PS(9))..H..|
000040B0: 54 4B B2 54 50 28 32 2C 31 29 3A 20 53 52 B2 54 |TK.TP(2,1): SR.T|
000040C0: 50 28 32 2C 32 29 3A 20 8D 20 36 33 38 31 30 3A |P(2,2): . 63810:|
000040D0: 20 8F 20 43 4F 52 52 45 43 54 20 54 4B 2F 53 52 | . CORRECT TK/SR|
000040E0: 20 41 4E 44 20 49 58 00 20 49 08 C5 42 54 B2 33 | AND IX. I..BT.3|
000040F0: 32 AC 49 58 3A 20 4C 4E B2 33 30 3A 20 89 20 36 |2.IX: LN.30: . 6|
00004100: 33 33 30 30 3A 20 8F 20 57 52 49 54 45 20 54 4F |3300: . WRITE TO|
00004110: 20 44 49 53 4B 20 41 4E 44 20 52 45 54 55 52 4E | DISK AND RETURN|
00004120: 00 61 49 44 C5 54 4B B2 54 50 28 32 2C 31 29 3A |.aID.TK.TP(2,1):|
00004130: 20 53 52 B2 54 50 28 32 2C 32 29 3A 20 49 58 B2 | SR.TP(2,2): IX.|
00004140: 50 58 28 50 58 29 3A 20 8D 20 36 33 38 31 30 3A |PX(PX): . 63810:|
00004150: 20 8F 20 43 4F 52 52 20 54 4B 2F 53 52 2C 20 49 | . CORR TK/SR, I|
00004160: 58 00 8F 49 4E C5 42 54 B2 33 32 AC 49 58 3A 20 |X..IN.BT.32.IX: |
00004170: 4C 4E B2 33 30 3A 20 8D 20 36 33 32 30 30 3A 20 |LN.30: . 63200: |
00004180: 8F 20 4F 50 45 4E 20 41 4E 44 20 52 45 41 44 00 |. OPEN AND READ.|
00004190: CC 49 58 C5 50 4E 24 28 50 58 28 50 58 29 29 B2 |.IX.PN$(PX(PX)).|
000041A0: C8 28 58 24 2C 32 30 29 3A 20 50 46 B2 C6 28 CA |.(X$,20): PF..(.|
000041B0: 28 58 24 2C 32 37 2C 31 29 29 3A 20 50 4F B2 C6 |(X$,27,1)): PO..|
000041C0: 28 CA 28 58 24 2C 32 38 2C 31 29 29 00 F9 49 62 |(.(X$,28,1))..Ib|
000041D0: C5 50 57 B2 C6 28 CA 28 58 24 2C 32 39 2C 31 29 |.PW..(.(X$,29,1)|
000041E0: 29 3A 20 50 53 28 39 29 B2 C6 28 CA 28 58 24 2C |): PS(9)..(.(X$,|
000041F0: 33 30 2C 31 29 29 3A 20 8E 00 26 4A A8 C5 4C 45 |30,1)): ..&J..LE|
00004200: B2 32 30 3A 20 99 C8 28 43 44 24 2C 38 29 3B C8 |.20: ..(CD$,8);.|
00004210: 28 43 52 24 2C 34 29 3B 22 9E D0 4C 41 59 45 52 |(CR$,4);"..LAYER|
00004220: 20 4E 41 4D 45 22 00 3F 4A B2 C5 99 C8 28 43 52 | NAME".?J....(CR|
00004230: 24 2C 31 36 29 3B C8 28 55 53 24 2C 4C 45 29 00 |$,16);.(US$,LE).|
00004240: 6C 4A B4 C5 99 22 91 91 22 3B C8 28 43 52 24 2C |lJ..."..";.(CR$,|
00004250: 31 36 29 3B 43 53 24 3B 3A 20 8D 20 36 30 32 30 |16);CS$;: . 6020|
00004260: 30 3A 20 50 4E 24 B2 59 24 3A 20 99 00 9D 4A B6 |0: PN$.Y$: ...J.|
00004270: C5 8B 20 50 4E 24 B2 C8 28 42 4C 24 2C 4C 45 29 |.. PN$..(BL$,LE)|
00004280: 20 A7 20 50 4E 24 B2 22 22 3A 20 8E 3A 20 8F 20 | . PN$."": .: . |
00004290: 4E 4F 20 4E 41 4D 45 20 47 49 56 45 4E 00 B2 4A |NO NAME GIVEN..J|
000042A0: BC C5 50 58 B2 30 3A 20 4E 50 B2 54 50 28 32 2C |..PX.0: NP.TP(2,|
000042B0: 30 29 00 D8 4A C6 C5 8B 20 50 58 B1 B2 4E 50 20 |0)..J... PX..NP |
000042C0: A7 20 50 4E 24 B2 22 22 3A 20 8E 3A 20 8F 20 4E |. PN$."": .: . N|
000042D0: 4F 54 20 46 4F 55 4E 44 00 19 4B D0 C5 8B 20 50 |OT FOUND..K... P|
000042E0: 4E 24 28 50 58 28 50 58 29 29 B2 22 22 20 A7 20 |N$(PX(PX))."" . |
000042F0: 8D 20 35 30 35 30 30 3A 20 8F 20 47 45 54 20 50 |. 50500: . GET P|
00004300: 4C 41 59 45 52 20 46 52 4F 4D 20 44 49 53 4B 20 |LAYER FROM DISK |
00004310: 49 46 20 4E 45 45 44 45 44 00 3C 4B DA C5 8B 20 |IF NEEDED.<K... |
00004320: 50 4E 24 B2 50 4E 24 28 50 58 28 50 58 29 29 20 |PN$.PN$(PX(PX)) |
00004330: A7 20 8E 3A 20 8F 20 46 4F 55 4E 44 00 51 4B E4 |. .: . FOUND.QK.|
00004340: C5 50 58 B2 50 58 AA 31 3A 20 89 20 35 30 36 33 |.PX.PX.1: . 5063|
00004350: 30 00 8E 4B 0C C6 4C 45 B2 34 3A 20 99 C8 28 43 |0..K..LE.4: ..(C|
00004360: 44 24 2C 31 30 29 3B C8 28 43 52 24 2C 34 29 3B |D$,10);.(CR$,4);|
00004370: 22 9E D4 45 41 4D 20 41 42 42 52 45 56 49 41 54 |"..EAM ABBREVIAT|
00004380: 49 4F 4E 20 20 20 20 20 20 20 20 20 20 22 00 A7 |ION "..|
00004390: 4B 16 C6 99 C8 28 43 52 24 2C 32 35 29 3B C8 28 |K....(CR$,25);.(|
000043A0: 55 53 24 2C 4C 45 29 00 D4 4B 18 C6 99 22 91 91 |US$,LE)..K..."..|
000043B0: 22 3B C8 28 43 52 24 2C 32 35 29 3B 43 53 24 3B |";.(CR$,25);CS$;|
000043C0: 3A 20 8D 20 36 30 32 30 30 3A 20 41 42 24 B2 59 |: . 60200: AB$.Y|
000043D0: 24 3A 20 99 00 05 4C 1A C6 8B 20 41 42 24 B2 C8 |$: ...L... AB$..|
000043E0: 28 42 4C 24 2C 4C 45 29 20 A7 20 41 42 24 B2 22 |(BL$,LE) . AB$."|
000043F0: 22 3A 20 8E 3A 20 8F 20 4E 4F 20 54 45 41 4D 20 |": .: . NO TEAM |
00004400: 47 49 56 45 4E 00 1A 4C 20 C6 54 58 B2 30 3A 20 |GIVEN..L .TX.0: |
00004410: 4E 54 B2 54 50 28 30 2C 30 29 00 40 4C 2A C6 8B |NT.TP(0,0).@L*..|
00004420: 20 54 58 B1 B2 4E 54 20 A7 20 41 42 24 B2 22 22 | TX..NT . AB$.""|
00004430: 3A 20 8E 3A 20 8F 20 4E 4F 54 20 46 4F 55 4E 44 |: .: . NOT FOUND|
00004440: 00 5F 4C 34 C6 8B 20 41 42 24 B2 4E 41 24 28 54 |._L4.. AB$.NA$(T|
00004450: 58 29 20 A7 20 8E 3A 20 8F 20 46 4F 55 4E 44 00 |X) . .: . FOUND.|
00004460: 74 4C 3E C6 54 58 B2 54 58 AA 31 3A 20 89 20 35 |tL>.TX.TX.1: . 5|
00004470: 30 37 33 30 00 BB 4C 70 C6 54 4B B2 50 44 28 30 |0730..Lp.TK.PD(0|
00004480: 29 3A 20 53 52 B2 50 44 28 31 29 3A 20 49 58 B2 |): SR.PD(1): IX.|
00004490: 50 58 28 50 58 29 3A 20 8D 20 36 33 38 30 30 3A |PX(PX): . 63800:|
000044A0: 20 8F 20 43 4F 52 52 20 54 4B 2F 53 52 20 46 4F | . CORR TK/SR FO|
000044B0: 52 20 50 4C 59 52 20 44 41 54 41 00 E1 4C 7A C6 |R PLYR DATA..Lz.|
000044C0: 58 24 B2 22 22 3A 20 81 20 49 B2 30 A4 33 3A 20 |X$."": . I.0.3: |
000044D0: 58 24 B2 58 24 AA C7 28 50 53 28 49 29 29 3A 20 |X$.X$..(PS(I)): |
000044E0: 82 00 11 4D 7C C6 81 20 49 B2 34 A4 35 3A 20 58 |...M|.. I.4.5: X|
000044F0: 24 B2 58 24 AA C7 28 50 53 28 49 29 AD 32 35 36 |$.X$..(PS(I).256|
00004500: 29 AA C7 28 50 53 28 49 29 AF 32 35 35 29 3A 20 |)..(PS(I).255): |
00004510: 82 00 30 4D 7E C6 81 20 49 B2 36 A4 38 3A 20 58 |..0M~.. I.6.8: X|
00004520: 24 B2 58 24 AA C7 28 50 53 28 49 29 29 3A 20 82 |$.X$..(PS(I)): .|
00004530: 00 4C 4D 84 C6 58 24 B2 C7 28 4E 58 29 AA C7 28 |.LM..X$..(NX)..(|
00004540: 44 58 29 AA C7 28 50 4F 29 AA 58 24 00 7D 4D 8E |DX)..(PO).X$.}M.|
00004550: C6 42 54 B2 57 4B AC 31 36 3A 20 4C 4E B2 31 36 |.BT.WK.16: LN.16|
00004560: 3A 20 89 20 36 33 33 30 30 3A 20 8F 20 57 52 49 |: . 63300: . WRI|
00004570: 54 45 20 41 4E 44 20 52 45 54 55 52 4E 00 C4 4D |TE AND RETURN..M|
00004580: D4 C6 54 4B B2 50 44 28 30 29 3A 20 53 52 B2 50 |..TK.PD(0): SR.P|
00004590: 44 28 31 29 3A 20 49 58 B2 50 58 28 50 58 29 3A |D(1): IX.PX(PX):|
000045A0: 20 8D 20 36 33 38 30 30 3A 20 8F 20 43 4F 52 52 | . 63800: . CORR|
000045B0: 20 54 4B 2F 53 52 20 46 4F 52 20 50 4C 59 52 20 | TK/SR FOR PLYR |
000045C0: 44 41 54 41 00 FA 4D DE C6 42 54 B2 57 4B AC 31 |DATA..M..BT.WK.1|
000045D0: 36 3A 20 4C 4E B2 31 36 3A 20 8D 20 36 33 32 30 |6: LN.16: . 6320|
000045E0: 30 3A 20 8F 20 47 45 54 20 50 4C 41 59 45 52 20 |0: . GET PLAYER |
000045F0: 44 41 54 41 20 49 4E 20 58 24 00 30 4E E8 C6 4E |DATA IN X$.0N..N|
00004600: 58 B2 C6 28 CA 28 58 24 2C 31 2C 31 29 29 3A 20 |X..(.(X$,1,1)): |
00004610: 44 58 B2 C6 28 CA 28 58 24 2C 32 2C 31 29 29 3A |DX..(.(X$,2,1)):|
00004620: 20 50 4F B2 C6 28 CA 28 58 24 2C 33 2C 31 29 29 | PO..(.(X$,3,1))|
00004630: 00 5F 4E F2 C6 4A B2 34 3A 20 81 20 49 B2 30 A4 |._N..J.4: . I.0.|
00004640: 33 3A 20 50 53 28 49 29 B2 C6 28 CA 28 58 24 2C |3: PS(I)..(.(X$,|
00004650: 4A 2C 31 29 29 3A 20 4A B2 4A AA 31 3A 20 82 00 |J,1)): J.J.1: ..|
00004660: 9C 4E F4 C6 81 20 49 B2 34 A4 35 3A 20 50 53 28 |.N... I.4.5: PS(|
00004670: 49 29 B2 C6 28 CA 28 58 24 2C 4A 2C 31 29 29 AC |I)..(.(X$,J,1)).|
00004680: 32 35 36 AA C6 28 CA 28 58 24 2C 4A AA 31 2C 31 |256..(.(X$,J.1,1|
00004690: 29 29 3A 20 4A B2 4A AA 31 3A 20 82 00 C6 4E F6 |)): J.J.1: ...N.|
000046A0: C6 81 20 49 B2 36 A4 38 3A 20 50 53 28 49 29 B2 |.. I.6.8: PS(I).|
000046B0: C6 28 CA 28 58 24 2C 4A 2C 31 29 29 3A 20 4A B2 |.(.(X$,J,1)): J.|
000046C0: 4A AA 31 3A 20 82 00 CC 4E FC C6 8E 00 03 4F 9C |J.1: ...N.....O.|
000046D0: C7 8B 20 50 58 B3 30 20 B0 20 50 58 B1 B2 54 50 |.. PX.0 . PX..TP|
000046E0: 28 32 2C 30 29 20 A7 20 8E 3A 20 8F 20 43 48 45 |(2,0) . .: . CHE|
000046F0: 43 4B 20 49 46 20 50 4C 41 59 45 52 20 45 58 49 |CK IF PLAYER EXI|
00004700: 53 54 53 00 37 4F A6 C7 8D 20 35 30 35 30 30 3A |STS.7O... 50500:|
00004710: 20 8F 20 50 4C 41 59 45 52 20 54 4F 20 44 45 4C | . PLAYER TO DEL|
00004720: 45 54 45 20 2D 20 4E 41 4D 45 20 52 45 43 4F 52 |ETE - NAME RECOR|
00004730: 44 20 54 4F 20 58 24 00 74 4F A8 C7 54 31 B2 C6 |D TO X$.tO..T1..|
00004740: 28 CA 28 58 24 2C 32 35 2C 31 29 29 3A 20 53 31 |(.(X$,25,1)): S1|
00004750: B2 C6 28 CA 28 58 24 2C 32 36 2C 31 29 29 3A 20 |..(.(X$,26,1)): |
00004760: 8F 20 50 4C 41 59 45 52 20 44 41 54 41 20 53 45 |. PLAYER DATA SE|
00004770: 43 54 4F 52 00 B5 4F B0 C7 50 50 B2 50 58 3A 20 |CTOR..O..PP.PX: |
00004780: 50 58 B2 54 50 28 32 2C 30 29 3A 20 8D 20 35 30 |PX.TP(2,0): . 50|
00004790: 35 30 30 3A 20 50 58 B2 50 50 3A 20 8F 20 4C 41 |500: PX.PP: . LA|
000047A0: 53 54 20 50 4C 41 59 45 52 20 4E 41 4D 45 20 52 |ST PLAYER NAME R|
000047B0: 45 43 4F 52 44 00 F7 4F B2 C7 54 4B B2 C6 28 CA |ECORD..O..TK..(.|
000047C0: 28 58 24 2C 32 35 2C 31 29 29 3A 20 53 52 B2 C6 |(X$,25,1)): SR..|
000047D0: 28 CA 28 58 24 2C 32 36 2C 31 29 29 3A 20 8F 20 |(.(X$,26,1)): . |
000047E0: 4C 41 53 54 20 50 4C 41 59 45 52 20 44 41 54 41 |LAST PLAYER DATA|
000047F0: 20 53 45 43 54 4F 52 00 2D 50 BA C7 42 54 B2 57 | SECTOR.-P..BT.W|
00004800: 4B AC 31 36 3A 20 8D 20 36 33 30 30 30 3A 20 8F |K.16: . 63000: .|
00004810: 20 4F 50 45 4E 20 4C 41 53 54 20 50 4C 41 59 45 | OPEN LAST PLAYE|
00004820: 52 20 44 41 54 41 20 53 45 43 54 4F 52 00 5C 50 |R DATA SECTOR.\P|
00004830: BC C7 A1 23 32 2C 58 24 3A 20 4E 58 B2 C6 28 58 |...#2,X$: NX..(X|
00004840: 24 AA 43 30 24 29 3A 20 8F 20 47 45 54 20 50 52 |$.C0$): . GET PR|
00004850: 4F 20 54 45 41 4D 20 49 4E 44 45 58 00 8D 50 BE |O TEAM INDEX..P.|
00004860: C7 A1 23 32 2C 58 24 3A 20 44 58 B2 C6 28 58 24 |..#2,X$: DX..(X$|
00004870: AA 43 30 24 29 3A 20 8F 20 41 4E 44 20 44 52 45 |.C0$): . AND DRE|
00004880: 41 4D 20 54 45 41 4D 20 49 4E 44 45 58 00 D0 50 |AM TEAM INDEX..P|
00004890: C4 C7 54 4B B2 54 31 3A 20 53 52 B2 53 31 3A 20 |..TK.T1: SR.S1: |
000048A0: 42 54 B2 30 3A 20 8D 20 36 33 31 30 30 3A 20 8F |BT.0: . 63100: .|
000048B0: 20 4F 56 45 52 57 52 49 54 45 20 44 45 4C 45 54 | OVERWRITE DELET|
000048C0: 45 44 20 50 4C 41 59 45 52 27 53 20 44 41 54 41 |ED PLAYER'S DATA|
000048D0: 00 0C 51 CE C7 50 4E 24 28 50 58 28 50 58 29 29 |..Q..PN$(PX(PX))|
000048E0: B2 50 4E 24 28 50 58 28 54 50 28 32 2C 30 29 29 |.PN$(PX(TP(2,0))|
000048F0: 29 3A 20 8D 20 35 30 34 30 30 3A 20 8F 20 4F 56 |): . 50400: . OV|
00004900: 45 52 57 52 49 54 45 20 4E 41 4D 45 00 3E 51 D8 |ERWRITE NAME.>Q.|
00004910: C7 8B 20 4E 58 B1 B2 54 50 28 30 2C 30 29 20 A7 |.. NX..TP(0,0) .|
00004920: 20 35 31 31 37 30 3A 20 8F 20 43 48 45 43 4B 20 | 51170: . CHECK |
00004930: 49 46 20 4F 4E 20 4E 46 4C 20 54 45 41 4D 00 6F |IF ON NFL TEAM.o|
00004940: 51 DA C7 54 58 B2 4E 58 3A 20 8D 20 35 30 33 30 |Q..TX.NX: . 5030|
00004950: 30 3A 20 8B 20 4E 50 B2 30 20 A7 20 35 31 31 37 |0: . NP.0 . 5117|
00004960: 30 3A 20 8F 20 4E 4F 20 50 4C 41 59 45 52 53 00 |0: . NO PLAYERS.|
00004970: A5 51 DC C7 50 B2 32 35 35 3A 20 81 49 B2 30 A4 |.Q..P.255: .I.0.|
00004980: 4E 50 AB 31 3A 20 8B 20 50 4C 28 49 29 B2 50 58 |NP.1: . PL(I).PX|
00004990: 28 54 50 28 32 2C 30 29 29 20 A7 20 50 B2 49 3A |(TP(2,0)) . P.I:|
000049A0: 20 49 B2 4E 50 00 D0 51 DE C7 82 3A 20 8B 20 50 | I.NP..Q...: . P|
000049B0: B1 B2 4E 50 20 A7 20 35 31 31 37 30 3A 20 8F 20 |..NP . 51170: . |
000049C0: 50 4C 41 59 45 52 20 4E 4F 54 20 46 4F 55 4E 44 |PLAYER NOT FOUND|
000049D0: 00 F4 51 E0 C7 50 4C 28 50 29 B2 50 58 28 50 58 |..Q..PL(P).PX(PX|
000049E0: 29 3A 20 8D 20 35 30 32 30 30 3A 20 8F 20 55 50 |): . 50200: . UP|
000049F0: 44 41 54 45 00 28 52 E2 C7 8B 20 44 58 B1 B2 54 |DATE.(R... DX..T|
00004A00: 50 28 31 2C 30 29 20 A7 20 35 31 31 38 30 3A 20 |P(1,0) . 51180: |
00004A10: 8F 20 43 48 45 43 4B 20 49 46 20 4F 4E 20 44 52 |. CHECK IF ON DR|
00004A20: 45 41 4D 20 54 45 41 4D 00 52 52 E4 C7 8D 20 35 |EAM TEAM.RR... 5|
00004A30: 30 33 31 30 3A 20 8B 20 4E 50 B2 30 20 A7 20 35 |0310: . NP.0 . 5|
00004A40: 31 31 38 30 3A 20 8F 20 4E 4F 20 50 4C 41 59 45 |1180: . NO PLAYE|
00004A50: 52 53 00 8F 52 E6 C7 54 58 B2 44 58 3A 20 50 B2 |RS..R..TX.DX: P.|
00004A60: 32 35 35 3A 20 81 49 B2 30 A4 4E 50 AB 31 3A 20 |255: .I.0.NP.1: |
00004A70: 8B 20 50 4C 28 49 29 B2 50 58 28 54 50 28 32 2C |. PL(I).PX(TP(2,|
00004A80: 30 29 29 20 A7 20 50 B2 49 3A 20 49 B2 4E 50 00 |0)) . P.I: I.NP.|
00004A90: BA 52 E8 C7 82 3A 20 8B 20 50 B1 B2 4E 50 20 A7 |.R...: . P..NP .|
00004AA0: 20 35 31 31 38 30 3A 20 8F 20 50 4C 41 59 45 52 | 51180: . PLAYER|
00004AB0: 20 4E 4F 54 20 46 4F 55 4E 44 00 DE 52 EA C7 50 | NOT FOUND..R..P|
00004AC0: 4C 28 50 29 B2 50 58 28 50 58 29 3A 20 8D 20 35 |L(P).PX(PX): . 5|
00004AD0: 30 32 31 30 3A 20 8F 20 55 50 44 41 54 45 00 E4 |0210: . UPDATE..|
00004AE0: 52 EC C7 8E 00 29 53 00 C8 54 58 B2 4E 58 3A 20 |R....)S..TX.NX: |
00004AF0: 4E 54 B2 54 50 28 30 2C 30 29 3A 20 44 46 B2 31 |NT.TP(0,0): DF.1|
00004B00: 3A 20 89 20 35 31 32 32 30 3A 20 8F 20 50 52 4F |: . 51220: . PRO|
00004B10: 20 54 45 41 4D 2C 20 44 46 20 49 53 20 22 44 52 | TEAM, DF IS "DR|
00004B20: 45 41 4D 2D 46 4C 41 47 22 00 53 53 0A C8 54 58 |EAM-FLAG".SS..TX|
00004B30: B2 44 58 3A 20 4E 54 B2 54 50 28 31 2C 30 29 3A |.DX: NT.TP(1,0):|
00004B40: 20 44 46 B2 32 3A 20 8F 20 44 52 45 41 4D 20 54 | DF.2: . DREAM T|
00004B50: 45 41 4D 00 81 53 14 C8 8B 20 54 58 B3 30 20 B0 |EAM..S... TX.0 .|
00004B60: 20 54 58 B1 4E 54 20 A7 20 8E 3A 20 8F 20 54 45 | TX.NT . .: . TE|
00004B70: 41 4D 20 44 4F 45 53 20 4E 4F 54 20 45 58 49 53 |AM DOES NOT EXIS|
00004B80: 54 00 B1 53 1E C8 91 20 44 46 20 8D 20 35 30 33 |T..S... DF . 503|
00004B90: 30 30 2C 20 35 30 33 31 30 3A 20 50 4C 28 4E 50 |00, 50310: PL(NP|
00004BA0: 29 B2 50 58 28 50 58 29 3A 20 4E 50 B2 4E 50 AA |).PX(PX): NP.NP.|
00004BB0: 31 00 DC 53 28 C8 91 20 44 46 20 89 20 35 30 32 |1..S(.. DF . 502|
00004BC0: 30 30 2C 20 35 30 32 31 30 3A 20 8F 20 55 50 44 |00, 50210: . UPD|
00004BD0: 41 54 45 20 26 20 52 45 54 55 52 4E 00 15 54 64 |ATE & RETURN..Td|
00004BE0: C8 54 58 B2 4E 58 3A 20 44 46 B2 31 3A 20 89 20 |.TX.NX: DF.1: . |
00004BF0: 35 31 33 32 30 3A 20 8F 20 4E 46 4C 20 54 45 41 |51320: . NFL TEA|
00004C00: 4D 2C 20 44 46 20 49 53 20 22 44 52 45 41 4D 2D |M, DF IS "DREAM-|
00004C10: 46 4C 41 47 22 00 33 54 6E C8 54 58 B2 44 58 3A |FLAG".3Tn.TX.DX:|
00004C20: 20 44 46 B2 32 3A 20 8F 20 44 52 45 41 4D 20 54 | DF.2: . DREAM T|
00004C30: 45 41 4D 00 65 54 78 C8 91 20 44 46 20 8D 20 35 |EAM.eTx.. DF . 5|
00004C40: 30 33 30 30 2C 20 35 30 33 31 30 3A 20 8B 20 4E |0300, 50310: . N|
00004C50: 50 B2 30 20 A7 20 8E 3A 20 8F 20 4E 4F 20 50 4C |P.0 . .: . NO PL|
00004C60: 41 59 45 52 53 00 96 54 82 C8 50 B2 32 35 35 3A |AYERS..T..P.255:|
00004C70: 20 81 49 B2 30 A4 4E 50 AB 31 3A 20 8B 20 50 4C | .I.0.NP.1: . PL|
00004C80: 28 49 29 B2 50 58 28 50 58 29 20 A7 20 50 B2 49 |(I).PX(PX) . P.I|
00004C90: 3A 20 49 B2 4E 50 00 C5 54 8C C8 82 3A 20 8B 20 |: I.NP..T...: . |
00004CA0: 50 B1 B2 4E 50 20 A7 20 8E 3A 20 8F 20 50 4C 41 |P..NP . .: . PLA|
00004CB0: 59 45 52 20 4E 4F 54 20 46 4F 55 4E 44 2C 20 52 |YER NOT FOUND, R|
00004CC0: 45 54 55 52 4E 00 07 55 96 C8 4E 50 B2 4E 50 AB |ETURN..U..NP.NP.|
00004CD0: 31 3A 20 50 4C 28 50 29 B2 50 4C 28 4E 50 29 3A |1: PL(P).PL(NP):|
00004CE0: 20 91 20 44 46 20 89 20 35 30 32 30 30 2C 20 35 | . DF . 50200, 5|
00004CF0: 30 32 31 30 3A 20 8F 20 55 50 44 41 54 45 20 26 |0210: . UPDATE &|
00004D00: 20 52 45 54 55 52 4E 00 42 55 2C C9 8B 20 54 50 | RETURN.BU,.. TP|
00004D10: 28 30 2C 30 29 B3 B2 30 20 A7 20 5A B2 31 3A 8D |(0,0)..0 . Z.1:.|
00004D20: 36 30 30 30 30 3A 99 22 11 11 11 1D 1D 1D 1D 9E |60000:."........|
00004D30: CE 4F 20 54 45 41 4D 53 2E 22 3A 89 20 36 30 31 |.O TEAMS.":. 601|
00004D40: 30 30 00 60 55 2E C9 8D 20 36 32 34 30 30 3A 20 |00.`U... 62400: |
00004D50: 8B 20 58 24 B2 22 D0 22 20 A7 20 35 31 36 30 30 |. X$."." . 51600|
00004D60: 00 8A 55 30 C9 8B 20 58 24 B2 22 20 22 20 A7 20 |..U0.. X$." " . |
00004D70: 8E 3A 20 8F 20 50 52 49 4E 54 45 52 20 44 49 44 |.: . PRINTER DID|
00004D80: 4E 27 54 20 41 4E 53 57 45 52 00 C6 55 36 C9 99 |N'T ANSWER..U6..|
00004D90: 22 93 22 3A 20 81 20 54 58 B2 30 20 A4 20 54 50 |".": . TX.0 . TP|
00004DA0: 28 30 2C 30 29 AB 31 3A 20 99 22 05 22 3B 4E 4E |(0,0).1: .".";NN|
00004DB0: 24 28 54 58 29 3B 22 20 12 22 3B 4E 41 24 28 54 |$(TX);" .";NA$(T|
00004DC0: 58 29 3B 22 9E 22 00 F6 55 40 C9 8D 20 35 30 33 |X);"."..U@.. 503|
00004DD0: 30 30 3A 20 8B 20 4E 50 B2 30 20 A7 20 99 22 20 |00: . NP.0 . ." |
00004DE0: 20 CE 4F 20 50 4C 41 59 45 52 53 2E 22 3A 20 89 | .O PLAYERS.": .|
00004DF0: 20 35 31 35 35 30 00 27 56 4A C9 81 20 50 4C B2 | 51550.'VJ.. PL.|
00004E00: 30 20 A4 20 4E 50 AB 31 3A 20 50 58 B2 50 4C 28 |0 . NP.1: PX.PL(|
00004E10: 50 4C 29 3A 20 99 20 22 20 22 3B 50 4E 24 28 50 |PL): . " ";PN$(P|
00004E20: 58 28 50 58 29 29 3B 00 4B 56 54 C9 8D 20 35 30 |X(PX));.KVT.. 50|
00004E30: 39 30 30 3A 20 99 20 22 20 22 3B CA 28 50 4F 24 |900: . " ";.(PO$|
00004E40: 2C 31 AA 32 AC 50 4F 2C 32 29 3B 00 71 56 56 C9 |,1.2.PO,2);.qVV.|
00004E50: 8B 20 44 58 B1 B2 54 50 28 31 2C 30 29 20 A7 20 |. DX..TP(1,0) . |
00004E60: 99 22 20 C6 D2 C5 C5 22 3A 20 89 20 35 31 35 34 |." ....": . 5154|
00004E70: 38 00 80 56 58 C9 99 22 20 C1 C3 D4 C9 D6 C5 22 |8..VX.." ......"|
00004E80: 00 89 56 5C C9 82 20 50 4C 00 AD 56 5E C9 99 22 |..V\.. PL..V^.."|
00004E90: 11 12 D0 52 45 53 53 20 3C D3 D0 C1 C3 C5 3E 20 |...RESS <.....> |
00004EA0: 54 4F 20 43 4F 4E 54 49 4E 55 45 92 22 00 C9 56 |TO CONTINUE."..V|
00004EB0: 68 C9 A1 20 58 24 3A 20 8B 20 58 24 B3 B1 22 20 |h.. X$: . X$.." |
00004EC0: 22 20 A7 20 35 31 35 36 30 00 D8 56 72 C9 99 3A |" . 51560..Vr..:|
00004ED0: 20 82 20 54 58 3A 20 8E 00 0C 57 90 C9 5A B2 30 | . TX: ...W..Z.0|
00004EE0: 3A 20 8D 36 30 30 30 30 3A 20 4C 49 B2 31 30 3A |: .60000: LI.10:|
00004EF0: 20 54 43 24 B2 22 9E D0 52 49 4E 54 49 4E 47 2E | TC$."..RINTING.|
00004F00: 2E 2E 22 3A 20 8D 20 36 30 31 35 30 00 4D 57 92 |..": . 60150.MW.|
00004F10: C9 4C B2 36 37 3A 20 81 20 54 58 B2 30 20 A4 20 |.L.67: . TX.0 . |
00004F20: 54 50 28 30 2C 30 29 AB 31 3A 20 8B 20 4C B1 36 |TP(0,0).1: . L.6|
00004F30: 30 20 A7 20 8D 20 35 31 36 37 30 3A 20 8F 20 43 |0 . . 51670: . C|
00004F40: 48 45 43 4B 20 50 41 47 45 20 45 4E 44 00 83 57 |HECK PAGE END..W|
00004F50: 9A C9 98 34 2C C8 28 42 4C 24 2C 31 32 29 3B 4E |...4,.(BL$,12);N|
00004F60: 4E 24 28 54 58 29 3B 22 20 20 22 3B 4E 41 24 28 |N$(TX);" ";NA$(|
00004F70: 54 58 29 3A 20 98 34 2C 22 22 3A 20 4C 49 B2 4C |TX): .4,"": LI.L|
00004F80: 49 AA 31 00 BD 57 A4 C9 8D 20 35 30 33 30 30 3A |I.1..W... 50300:|
00004F90: 20 8B 20 4E 50 B2 30 20 A7 20 98 34 2C C8 28 42 | . NP.0 . .4,.(B|
00004FA0: 4C 24 2C 31 34 29 3B 22 CE 4F 20 50 4C 41 59 45 |L$,14);".O PLAYE|
00004FB0: 52 53 2E 22 3A 20 89 20 35 31 36 36 30 00 E1 57 |RS.": . 51660..W|
00004FC0: AE C9 81 20 50 4C B2 30 20 A4 20 4E 50 AB 31 3A |... PL.0 . NP.1:|
00004FD0: 20 8B 20 4C B1 36 30 20 A7 20 8D 20 35 31 36 37 | . L.60 . . 5167|
00004FE0: 30 00 0A 58 B8 C9 50 58 B2 50 4C 28 50 4C 29 3A |0..X..PX.PL(PL):|
00004FF0: 20 98 34 2C C8 28 42 4C 24 2C 31 34 29 3B 50 4E | .4,.(BL$,14);PN|
00005000: 24 28 50 58 28 50 58 29 29 3B 00 30 58 C2 C9 8D |$(PX(PX));.0X...|
00005010: 20 35 30 39 30 30 3A 20 98 34 2C 22 20 20 22 3B | 50900: .4," ";|
00005020: CA 28 50 4F 24 2C 31 AA 32 AC 50 4F 2C 32 29 3B |.(PO$,1.2.PO,2);|
00005030: 00 54 58 C4 C9 8B 20 44 58 B3 54 50 28 31 2C 30 |.TX... DX.TP(1,0|
00005040: 29 20 A7 20 98 34 2C 22 20 20 22 3B 44 4E 24 28 |) . .4," ";DN$(|
00005050: 44 58 29 3B 00 6B 58 C6 C9 98 34 2C 22 22 3A 20 |DX);.kX...4,"": |
00005060: 4C B2 4C AA 31 3A 20 82 20 50 4C 00 A7 58 CC C9 |L.L.1: . PL..X..|
00005070: 98 34 2C 22 22 3A 20 4C B2 4C AA 32 3A 20 82 20 |.4,"": L.L.2: . |
00005080: 54 58 3A 20 89 20 36 32 37 32 30 3A 20 8F 20 43 |TX: . 62720: . C|
00005090: 4C 4F 53 45 20 50 52 49 4E 54 45 52 20 41 4E 44 |LOSE PRINTER AND|
000050A0: 20 52 45 54 55 52 4E 00 DB 58 D6 C9 8D 20 36 32 | RETURN..X... 62|
000050B0: 37 30 30 3A 20 98 34 2C C8 28 42 4C 24 2C 31 30 |700: .4,.(BL$,10|
000050C0: 29 3B 22 D0 4C 41 59 45 52 20 CC 49 53 54 22 3A |);".LAYER .IST":|
000050D0: 20 8F 20 4E 45 57 20 50 41 47 45 00 0B 59 D8 C9 | . NEW PAGE..Y..|
000050E0: 98 34 2C C8 28 42 4C 24 2C 31 30 29 3B 3A 20 81 |.4,.(BL$,10);: .|
000050F0: 20 49 B2 31 A4 36 3A 20 98 34 2C 22 3D 3D 3D 3D | I.1.6: .4,"====|
00005100: 3D 3D 3D 3D 3D 3D 22 3B 3A 20 82 00 26 59 DA C9 |======";: ..&Y..|
00005110: 98 34 2C 22 22 3A 20 98 34 2C 22 22 3A 20 4C B2 |.4,"": .4,"": L.|
00005120: 4C AA 33 3A 20 8E 00 41 59 F4 C9 54 45 24 B2 22 |L.3: ..AY..TE$."|
00005130: D3 45 4C 45 43 54 20 C4 52 45 41 4D D4 45 41 4D |.ELECT .REAM.EAM|
00005140: 22 00 52 59 FE C9 5A B2 30 3A 20 8D 20 36 30 30 |".RY..Z.0: . 600|
00005150: 30 30 00 74 59 08 CA 99 C8 28 43 44 24 2C 34 29 |00.tY....(CD$,4)|
00005160: 3A 20 81 20 54 58 B2 30 20 A4 20 54 50 28 31 2C |: . TX.0 . TP(1,|
00005170: 30 29 AB 31 00 A3 59 12 CA 99 C8 28 43 52 24 2C |0).1..Y....(CR$,|
00005180: 36 29 3B 22 05 22 3B C9 28 C4 28 54 58 AA 31 29 |6);".";.(.(TX.1)|
00005190: 2C 32 29 3B 22 20 9E 22 3B 44 4E 24 28 54 58 29 |,2);" .";DN$(TX)|
000051A0: 3A 20 82 00 D7 59 1C CA 99 C8 28 43 52 24 2C 34 |: ...Y....(CR$,4|
000051B0: 29 3B 22 11 9E D3 45 4C 45 43 54 20 54 45 41 4D |);"...ELECT TEAM|
000051C0: 3A 20 20 22 3B 43 53 24 3B 3A 20 4C 45 B2 32 3A |: ";CS$;: LE.2:|
000051D0: 20 8D 36 30 32 30 30 00 0D 5A 1E CA 54 58 B2 C5 | .60200..Z..TX..|
000051E0: 28 59 24 29 AB 31 3A 20 8B 20 54 58 B3 30 20 B0 |(Y$).1: . TX.0 .|
000051F0: 20 54 58 B1 B2 54 50 28 31 2C 30 29 20 A7 20 99 | TX..TP(1,0) . .|
00005200: 22 91 91 22 3A 20 89 20 35 31 37 34 30 00 29 5A |"..": . 51740.)Z|
00005210: 20 CA 99 22 91 22 3A 99 C8 28 43 52 24 2C 31 38 | ..".":..(CR$,18|
00005220: 29 3B 44 4E 24 28 54 58 29 00 53 5A 26 CA 99 C8 |);DN$(TX).SZ&...|
00005230: 28 43 52 24 2C 34 29 3B 22 9E C9 53 20 54 48 49 |(CR$,4);"..S THI|
00005240: 53 20 43 4F 52 52 45 43 54 3F 20 28 D9 2F CE 29 |S CORRECT? (./.)|
00005250: 20 22 3B 00 7E 5A 30 CA 8D 20 36 32 35 30 30 3A | ";.~Z0.. 62500:|
00005260: 20 8B 20 58 24 B2 22 CE 22 20 A7 20 35 31 37 31 | . X$."." . 5171|
00005270: 30 3A 20 8F 20 54 52 59 20 41 47 41 49 4E 00 84 |0: . TRY AGAIN..|
00005280: 5A 3A CA 8E 00 CB 5A 58 CA 54 4B B2 50 44 28 30 |Z:....ZX.TK.PD(0|
00005290: 29 3A 20 53 52 B2 50 44 28 31 29 3A 20 49 58 B2 |): SR.PD(1): IX.|
000052A0: 50 58 28 50 58 29 3A 20 8D 20 36 33 38 30 30 3A |PX(PX): . 63800:|
000052B0: 20 8F 20 43 4F 52 52 20 54 4B 2F 53 52 20 46 4F | . CORR TK/SR FO|
000052C0: 52 20 50 4C 59 52 20 44 41 54 41 00 09 5B 62 CA |R PLYR DATA..[b.|
000052D0: 42 54 B2 30 3A 20 4C 4E B2 32 35 34 3A 20 89 20 |BT.0: LN.254: . |
000052E0: 36 33 32 30 30 3A 20 8F 20 47 45 54 20 50 4C 41 |63200: . GET PLA|
000052F0: 59 45 52 20 44 41 54 41 20 49 4E 20 58 24 20 41 |YER DATA IN X$ A|
00005300: 4E 44 20 52 45 54 55 52 4E 00 3C 5B 60 EA 99 22 |ND RETURN.<[`.."|
00005310: 93 96 20 12 AC A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |.. .............|
00005320: A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 A2 |................|
00005330: A2 A2 A2 A2 A2 A2 A2 A2 A2 BB 22 3B 00 5E 5B 6A |..........";.^[j|
00005340: EA 81 58 B2 31 A4 32 32 3A 99 22 11 9D 12 A1 92 |..X.1.22:.".....|
00005350: 22 3B 3A 82 3A 99 22 9D 11 12 BE 92 22 3B 00 90 |";:.:.".....";..|
00005360: 5B 74 EA 81 58 B2 31 A4 33 36 3A 99 22 9D 9D A2 |[t..X.1.36:."...|
00005370: 22 3B 3A 82 3A 99 22 9D 9D 12 BC 92 22 3B 3A 81 |";:.:.".....";:.|
00005380: 58 B2 31 A4 32 32 3A 99 22 91 9D A1 22 3B 3A 82 |X.1.22:."...";:.|
00005390: 00 CB 5B 7E EA 8B 5A B2 30 A7 99 22 13 11 11 11 |..[~..Z.0.."....|
000053A0: 1D 12 96 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
000053B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000053C0: 20 20 20 20 20 20 20 20 20 92 22 00 F6 5B 88 EA | ."..[..|
000053D0: 8B 5A B2 30 B0 5A B2 32 A7 99 22 13 11 05 22 3B |.Z.0.Z.2.."...";|
000053E0: C8 28 43 52 24 2C 32 30 AB C3 28 54 45 24 29 AD |.(CR$,20..(TE$).|
000053F0: 32 29 3B 54 45 24 00 FC 5B 92 EA 8E 00 38 5C C4 |2);TE$..[....8\.|
00005400: EA 99 22 9E 12 22 3B 3A 20 4C 49 B2 32 33 3A 20 |.."..";: LI.23: |
00005410: 54 43 24 B2 22 D0 52 45 53 53 20 3C D3 D0 C1 C3 |TC$.".RESS <....|
00005420: C5 3E 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 3A |.> TO CONTINUE":|
00005430: 20 8D 20 36 30 31 35 30 00 4F 5C CE EA A1 58 24 | . 60150.O\...X$|
00005440: 3A 8B 58 24 B3 B1 22 20 22 A7 36 30 31 31 30 00 |:.X$.." ".60110.|
00005450: 55 5C D8 EA 8E 00 65 5C F6 EA 99 C8 28 43 44 24 |U\....e\....(CD$|
00005460: 2C 4C 49 29 3B 00 84 5C 00 EB 99 C8 28 43 52 24 |,LI);..\....(CR$|
00005470: 2C 32 30 AB C3 28 54 43 24 29 AD 32 29 3B 54 43 |,20..(TC$).2);TC|
00005480: 24 3A 20 8E 00 96 5C 28 EB 59 24 B2 22 22 3A 20 |$: ...\(.Y$."": |
00005490: 97 31 39 38 2C 30 00 BA 5C 32 EB A1 58 24 3A 20 |.198,0..\2..X$: |
000054A0: 58 B2 C6 28 58 24 AA C7 28 30 29 29 3A 20 8B 58 |X..(X$..(0)): .X|
000054B0: 24 B2 22 22 A7 36 30 32 31 30 00 D4 5C 3C EB 8B |$."".60210..\<..|
000054C0: 58 B1 34 37 AF 58 B3 35 38 A7 5A B2 30 3A 89 36 |X.47.X.58.Z.0:.6|
000054D0: 30 32 34 30 00 F0 5C 3E EB 8B 58 B1 36 34 AF 58 |0240..\>..X.64.X|
000054E0: B3 39 31 A7 5A B2 31 32 38 3A 89 36 30 32 34 30 |.91.Z.128:.60240|
000054F0: 00 0D 5D 40 EB 8B 58 B1 39 36 AF 58 B3 31 32 33 |..]@..X.96.X.123|
00005500: A7 5A B2 31 32 38 3A 89 36 30 32 34 30 00 29 5D |.Z.128:.60240.)]|
00005510: 42 EB 8B 58 B1 31 39 32 AF 58 B3 32 31 39 A7 5A |B..X.192.X.219.Z|
00005520: B2 30 3A 89 36 30 32 34 30 00 43 5D 44 EB 8B 58 |.0:.60240.C]D..X|
00005530: B2 33 32 B0 58 B2 33 39 A7 5A B2 30 3A 89 36 30 |.32.X.39.Z.0:.60|
00005540: 32 34 30 00 6D 5D 46 EB 8B 58 B2 32 30 A7 8B 28 |240.m]F..X.20..(|
00005550: C3 28 59 24 29 B1 30 29 A7 8D 36 30 33 39 30 3A |.(Y$).0)..60390:|
00005560: 89 36 30 32 31 30 3A 20 8F 20 44 45 4C 00 84 5D |.60210: . DEL..]|
00005570: 48 EB 8B 58 B2 31 33 A7 99 22 20 22 3B 3A 89 36 |H..X.13.." ";:.6|
00005580: 30 32 36 30 00 8F 5D 4A EB 89 36 30 32 31 30 00 |0260..]J..60210.|
00005590: A5 5D 50 EB 8B 28 C3 28 59 24 29 B2 4C 45 29 A7 |.]P..(.(Y$).LE).|
000055A0: 36 30 32 31 30 00 CA 5D 5A EB 99 58 24 3B 43 53 |60210..]Z..X$;CS|
000055B0: 24 3B 3A 59 24 B2 59 24 AA C7 28 C6 28 58 24 29 |$;:Y$.Y$..(.(X$)|
000055C0: B0 5A 29 3A 89 36 30 32 31 30 00 E1 5D 64 EB 59 |.Z):.60210..]d.Y|
000055D0: 24 B2 C8 28 59 24 AA 42 4C 24 2C 4C 45 29 3A 20 |$..(Y$.BL$,LE): |
000055E0: 8E 00 F6 5D 8C EB 59 24 B2 22 22 3A 97 31 39 38 |...]..Y$."":.198|
000055F0: 2C 30 3A 59 B2 31 00 16 5E 96 EB A1 58 24 3A 58 |,0:Y.1..^...X$:X|
00005600: B2 C6 28 58 24 AA C7 28 30 29 29 3A 8B 58 B2 30 |..(X$..(0)):.X.0|
00005610: A7 36 30 33 31 30 00 37 5E 98 EB 8B 58 B1 34 37 |.60310.7^...X.47|
00005620: AF 58 B3 35 38 A7 8B 28 C3 28 59 24 29 B3 4C 45 |.X.58..(.(Y$).LE|
00005630: 29 A7 36 30 33 35 30 00 61 5E 9A EB 8B 58 B2 32 |).60350.a^...X.2|
00005640: 30 A7 8B 28 C3 28 59 24 29 B1 30 29 A7 8D 36 30 |0..(.(Y$).0)..60|
00005650: 33 39 30 3A 89 36 30 33 31 30 3A 20 8F 20 44 45 |390:.60310: . DE|
00005660: 4C 00 7E 5E 9C EB 8B 58 B2 31 33 A7 99 22 20 22 |L.~^...X.13.." "|
00005670: 3B 3A 89 36 30 33 34 30 3A 20 8F 20 43 52 00 9A |;:.60340: . CR..|
00005680: 5E 9E EB 8B 58 B2 39 35 A7 59 B2 30 3A 89 36 30 |^...X.95.Y.0:.60|
00005690: 33 33 30 3A 20 8F 20 22 5F 22 00 D5 5E A0 EB 59 |330: . "_"..^..Y|
000056A0: B2 30 AB 28 58 B2 32 39 29 AB 32 AC 28 58 B2 31 |.0.(X.29).2.(X.1|
000056B0: 35 37 29 3A 8B 59 B2 30 A7 59 B2 31 3A 89 36 30 |57):.Y.0.Y.1:.60|
000056C0: 33 31 30 3A 20 8F 20 43 55 52 53 4F 52 20 49 46 |310: . CURSOR IF|
000056D0: 20 59 3C 3E 30 00 FB 5E AA EB 8B 28 C3 28 59 24 | Y<>0..^...(.(Y$|
000056E0: 29 B1 30 29 A7 8D 36 30 33 39 30 3A 89 36 30 33 |).0)..60390:.603|
000056F0: 33 30 3A 20 8F 20 45 52 41 53 45 00 01 5F B4 EB |30: . ERASE.._..|
00005700: 8E 00 28 5F BE EB 99 58 24 3B 43 53 24 3B 3A 59 |..(_...X$;CS$;:Y|
00005710: 24 B2 59 24 AA 58 24 3A 89 36 30 33 31 30 3A 20 |$.Y$.X$:.60310: |
00005720: 8F 20 4E 55 4D 42 45 52 00 4E 5F E6 EB 99 22 9D |. NUMBER.N_...".|
00005730: 20 20 9D 9D 22 3B 43 53 24 3B 3A 59 24 B2 C8 28 | ..";CS$;:Y$..(|
00005740: 59 24 2C C3 28 59 24 29 AB 31 29 3A 20 8E 00 69 |Y$,.(Y$).1): ..i|
00005750: 5F 80 ED 5A B2 30 3A 54 45 24 B2 22 CC 4F 41 44 |_..Z.0:TE$.".OAD|
00005760: 49 4E 47 20 C4 41 54 41 22 00 9F 5F 8A ED 54 4B |ING .ATA".._..TK|
00005770: B2 31 38 3A 20 53 52 B2 30 3A 20 42 54 B2 30 3A |.18: SR.0: BT.0:|
00005780: 20 8D 20 36 33 30 30 30 3A 20 84 31 2C 45 3A 20 | . 63000: .1,E: |
00005790: A1 23 32 2C 58 24 3A 20 8D 20 36 33 31 31 30 00 |.#2,X$: . 63110.|
000057A0: BC 5F 8C ED 8B 20 45 B3 B1 30 20 A7 20 8E 3A 20 |._... E..0 . .: |
000057B0: 8F 20 44 49 53 4B 20 45 52 52 4F 52 00 E8 5F 8E |. DISK ERROR.._.|
000057C0: ED 8B 20 58 24 B3 B1 22 22 20 A7 20 45 B2 39 39 |.. X$.."" . E.99|
000057D0: 3A 20 8E 3A 20 8F 20 4E 4F 54 20 41 20 4C 45 41 |: .: . NOT A LEA|
000057E0: 47 55 45 20 44 49 53 4B 00 19 60 94 ED 8D 20 36 |GUE DISK..`... 6|
000057F0: 30 30 30 30 3A 20 99 22 13 9E 11 11 11 11 11 1D |0000: ."........|
00005800: 1D 1D 1D 1D 1D D2 45 41 44 49 4E 47 20 CC 45 41 |......EADING .EA|
00005810: 47 55 45 20 C4 41 54 41 22 00 44 60 96 ED 8D 20 |GUE .ATA".D`... |
00005820: 35 30 31 30 30 3A 20 8F 20 52 45 41 44 20 41 4E |50100: . READ AN|
00005830: 44 20 55 4E 50 41 43 4B 20 4C 45 41 47 55 45 20 |D UNPACK LEAGUE |
00005840: 44 41 54 41 00 62 60 98 ED 99 22 11 1D 1D 1D 1D |DATA.b`...".....|
00005850: 1D 1D 1D 1D CC 45 41 47 55 45 3A 20 05 22 3B 4C |.....EAGUE: .";L|
00005860: 4E 24 00 7D 60 9A ED 99 22 1D 1D 1D 1D 1D 1D 1D |N$.}`...".......|
00005870: 1D 9E D7 45 45 4B 05 22 3B 57 4B AA 31 00 9F 60 |...EEK.";WK.1..`|
00005880: 9E ED 53 48 B2 31 3A 20 8F 20 4B 45 45 50 20 54 |..SH.1: . KEEP T|
00005890: 45 41 4D 20 52 45 41 44 53 20 53 48 4F 52 54 00 |EAM READS SHORT.|
000058A0: D2 60 A0 ED 4E 54 B2 54 50 28 30 2C 30 29 3A 20 |.`..NT.TP(0,0): |
000058B0: 99 22 11 1D 1D 1D 1D 1D 1D 9E D2 45 41 44 49 4E |.".........EADIN|
000058C0: 47 05 22 3B 4E 54 3B 22 9E D0 52 4F D4 45 41 4D |G.";NT;"..RO.EAM|
000058D0: 53 22 00 FD 60 A2 ED 8B 20 4E 54 B2 30 20 A7 20 |S"..`... NT.0 . |
000058E0: 36 30 38 34 30 3A 20 8F 20 43 48 45 43 4B 20 50 |60840: . CHECK P|
000058F0: 52 4F 20 54 45 41 4D 20 43 4F 55 4E 54 00 3B 61 |RO TEAM COUNT.;a|
00005900: A4 ED 81 54 58 B2 30 A4 4E 54 AB 31 3A 8D 35 30 |...TX.0.NT.1:.50|
00005910: 33 30 30 3A 4E 4E 24 28 54 58 29 B2 54 4E 24 3A |300:NN$(TX).TN$:|
00005920: 4E 41 24 28 54 58 29 B2 41 42 24 3A 82 3A 20 8F |NA$(TX).AB$:.: .|
00005930: 20 54 45 41 4D 20 4E 41 4D 45 53 00 6F 61 A8 ED | TEAM NAMES.oa..|
00005940: 4E 54 B2 54 50 28 31 2C 30 29 3A 20 99 22 11 1D |NT.TP(1,0): ."..|
00005950: 1D 1D 1D 1D 1D D2 45 41 44 49 4E 47 05 22 3B 4E |......EADING.";N|
00005960: 54 3B 22 9E C4 52 45 41 4D D4 45 41 4D 53 22 00 |T;"..REAM.EAMS".|
00005970: A5 61 AA ED 4E 47 B2 4E 54 AD 32 3A 20 8B 20 4E |.a..NG.NT.2: . N|
00005980: 54 B2 30 20 A7 20 36 30 38 35 30 3A 20 8F 20 43 |T.0 . 60850: . C|
00005990: 48 45 43 4B 20 44 52 45 41 4D 20 54 45 41 4D 20 |HECK DREAM TEAM |
000059A0: 43 4F 55 4E 54 00 DC 61 AC ED 81 20 54 58 B2 30 |COUNT..a... TX.0|
000059B0: A4 4E 54 AB 31 3A 20 8D 20 35 30 33 31 30 3A 20 |.NT.1: . 50310: |
000059C0: 44 4E 24 28 54 58 29 B2 54 4E 24 3A 20 82 3A 20 |DN$(TX).TN$: .: |
000059D0: 8F 20 54 45 41 4D 20 4E 41 4D 45 53 00 FB 61 B2 |. TEAM NAMES..a.|
000059E0: ED 99 22 11 1D 1D 1D 1D 1D 1D D2 45 41 44 49 4E |.."........EADIN|
000059F0: 47 20 D3 43 48 45 44 55 4C 45 22 00 1C 62 B4 ED |G .CHEDULE"..b..|
00005A00: 8D 20 36 31 32 30 30 3A 20 8F 20 53 43 48 45 44 |. 61200: . SCHED|
00005A10: 55 4C 45 20 54 4F 20 53 43 24 28 29 00 4D 62 BC |ULE TO SC$().Mb.|
00005A20: ED 4E 50 B2 54 50 28 32 2C 30 29 3A 20 99 22 11 |.NP.TP(2,0): .".|
00005A30: 1D 1D 1D 1D 1D 1D D2 45 41 44 49 4E 47 05 22 3B |.......EADING.";|
00005A40: 4E 50 3B 22 9E D0 4C 41 59 45 52 53 22 00 76 62 |NP;"..LAYERS".vb|
00005A50: BE ED 8B 20 4E 50 B2 30 20 A7 20 36 30 38 37 30 |... NP.0 . 60870|
00005A60: 3A 20 8F 20 43 48 45 43 4B 20 50 4C 41 59 45 52 |: . CHECK PLAYER|
00005A70: 20 43 4F 55 4E 54 00 AD 62 C0 ED 81 20 50 58 B2 | COUNT..b... PX.|
00005A80: 30 A4 4E 50 AB 31 3A 20 50 58 28 50 58 29 B2 50 |0.NP.1: PX(PX).P|
00005A90: 58 3A 20 8D 20 35 30 35 30 30 3A 20 82 3A 20 8F |X: . 50500: .: .|
00005AA0: 20 50 4C 41 59 45 52 20 4E 41 4D 45 53 00 E3 62 | PLAYER NAMES..b|
00005AB0: C2 ED 8F 20 50 58 28 50 58 29 20 57 49 4C 4C 20 |... PX(PX) WILL |
00005AC0: 42 45 20 55 53 45 44 20 46 4F 52 20 41 4C 50 48 |BE USED FOR ALPH|
00005AD0: 41 42 45 54 49 5A 49 4E 47 2C 20 53 4F 4D 45 20 |ABETIZING, SOME |
00005AE0: 44 41 59 00 13 63 C6 ED 53 48 B2 30 3A 20 8E 3A |DAY..c..SH.0: .:|
00005AF0: 20 8F 20 46 55 54 55 52 45 20 52 45 41 44 53 20 | . FUTURE READS |
00005B00: 57 49 4C 4C 20 42 45 20 46 55 4C 4C 20 4C 45 4E |WILL BE FULL LEN|
00005B10: 47 54 48 00 49 63 10 EF 54 4B B2 31 3A 20 53 52 |GTH.Ic..TK.1: SR|
00005B20: B2 31 3A 20 42 54 B2 30 3A 20 8D 20 36 33 30 30 |.1: BT.0: . 6300|
00005B30: 30 3A 20 8F 20 4F 50 45 4E 20 53 43 48 45 44 55 |0: . OPEN SCHEDU|
00005B40: 4C 45 20 53 45 43 54 4F 52 00 85 63 1A EF 81 20 |LE SECTOR..c... |
00005B50: 57 B2 30 A4 31 35 3A 20 81 20 54 B2 30 A4 31 35 |W.0.15: . T.0.15|
00005B60: 3A 20 A1 23 32 2C 58 24 3A 20 53 43 24 28 57 2C |: .#2,X$: SC$(W,|
00005B70: 54 29 B2 C8 28 58 24 AA 43 30 24 2C 31 29 3A 20 |T)..(X$.C0$,1): |
00005B80: 82 20 54 2C 57 00 A5 63 24 EF 89 20 36 33 31 31 |. T,W..c$.. 6311|
00005B90: 30 3A 20 8F 20 43 4C 4F 53 45 20 41 4E 44 20 52 |0: . CLOSE AND R|
00005BA0: 45 54 55 52 4E 00 EB 63 5C F3 91 20 50 4F 20 89 |ETURN..c\.. PO .|
00005BB0: 20 36 32 33 32 30 2C 20 36 32 33 33 30 2C 20 36 | 62320, 62330, 6|
00005BC0: 32 33 34 30 2C 20 36 32 33 35 30 2C 20 36 32 33 |2340, 62350, 623|
00005BD0: 36 30 3A 20 8F 20 50 52 49 4E 54 20 50 4F 53 49 |60: . PRINT POSI|
00005BE0: 54 49 4F 4E 20 50 45 52 20 50 4F 00 06 64 66 F3 |TION PER PO..df.|
00005BF0: 99 22 D5 4E 4B 4E 4F 57 4E 20 D0 4F 53 49 54 49 |.".NKNOWN .OSITI|
00005C00: 4F 4E 22 3A 20 8E 00 1C 64 70 F3 99 22 D1 55 41 |ON": ...dp..".UA|
00005C10: 52 54 45 52 42 41 43 4B 22 3A 20 8E 00 30 64 7A |RTERBACK": ..0dz|
00005C20: F3 99 22 D4 49 47 48 54 20 C5 4E 44 22 3A 20 8E |..".IGHT .ND": .|
00005C30: 00 41 64 84 F3 99 22 CB 49 43 4B 45 52 22 3A 20 |.Ad...".ICKER": |
00005C40: 8E 00 59 64 8E F3 99 22 D7 49 44 45 20 D2 45 43 |..Yd...".IDE .EC|
00005C50: 45 49 56 45 52 22 3A 20 8E 00 70 64 98 F3 99 22 |EIVER": ..pd..."|
00005C60: D2 55 4E 4E 49 4E 47 20 C2 41 43 4B 22 3A 20 8E |.UNNING .ACK": .|
00005C70: 00 81 64 C0 F3 5A B2 31 3A 20 8D 20 36 30 30 30 |..d..Z.1: . 6000|
00005C80: 30 00 B9 64 CA F3 99 C8 28 43 44 24 2C 31 30 29 |0..d....(CD$,10)|
00005C90: 3B C8 28 43 52 24 2C 37 29 3B 22 9E D3 43 52 45 |;.(CR$,7);"..CRE|
00005CA0: 45 4E 20 4F 52 20 D0 52 49 4E 54 45 52 3F 20 20 |EN OR .RINTER? |
00005CB0: 3C D3 2F D0 3E 20 05 22 3B 00 D5 64 CC F3 A1 20 |<./.> .";..d... |
00005CC0: 58 24 3A 20 8B 20 58 24 B2 22 53 22 20 A7 20 58 |X$: . X$."S" . X|
00005CD0: 24 B2 22 D3 22 00 EB 64 CE F3 8B 20 58 24 B2 22 |$."."..d... X$."|
00005CE0: 50 22 20 A7 20 58 24 B2 22 D0 22 00 0B 65 D0 F3 |P" . X$."."..e..|
00005CF0: 8B 20 58 24 B3 B1 22 D3 22 20 AF 20 58 24 B3 B1 |. X$.."." . X$..|
00005D00: 22 D0 22 20 A7 20 36 32 34 31 30 00 33 65 D4 F3 |"." . 62410.3e..|
00005D10: 8B 20 58 24 B2 22 D3 22 20 A7 20 8E 3A 20 8F 20 |. X$."." . .: . |
00005D20: 45 4C 53 45 20 43 48 45 43 4B 20 50 52 49 4E 54 |ELSE CHECK PRINT|
00005D30: 45 52 2D 00 56 65 DE F3 9F 34 2C 34 2C 37 3A 20 |ER-.Ve...4,4,7: |
00005D40: A0 34 3A 20 8B 20 53 54 B2 30 20 A7 20 9F 34 2C |.4: . ST.0 . .4,|
00005D50: 34 2C 37 3A 20 8E 00 83 65 E8 F3 99 3A 20 99 22 |4,7: ...e...: ."|
00005D60: 11 1D 1D 1D 1D 1D 1D 05 D0 52 49 4E 54 45 52 20 |.........RINTER |
00005D70: 49 53 20 4E 4F 54 20 52 45 53 50 4F 4E 44 49 4E |IS NOT RESPONDIN|
00005D80: 47 2E 22 00 AB 65 EA F3 99 22 1D 1D 1D 1D 1D 1D |G."..e..."......|
00005D90: D0 4C 45 41 53 45 20 43 48 45 43 4B 20 59 4F 55 |.LEASE CHECK YOU|
00005DA0: 52 20 48 41 52 44 57 41 52 45 22 00 EC 65 EC F3 |R HARDWARE"..e..|
00005DB0: 99 22 1D 1D 1D 1D 1D 1D 41 4E 44 20 54 52 59 20 |."......AND TRY |
00005DC0: 41 47 41 49 4E 2E 22 3A 20 58 24 B2 22 22 3A 20 |AGAIN.": X$."": |
00005DD0: 89 20 36 30 31 30 30 3A 20 8F 20 57 41 49 54 2C |. 60100: . WAIT,|
00005DE0: 20 54 48 45 4E 20 52 45 54 55 52 4E 00 08 66 24 | THEN RETURN..f$|
00005DF0: F4 A1 20 58 24 3A 20 8B 20 58 24 B2 22 59 22 20 |.. X$: . X$."Y" |
00005E00: A7 20 58 24 B2 22 D9 22 00 1E 66 2E F4 8B 20 58 |. X$."."..f... X|
00005E10: 24 B2 22 4E 22 20 A7 20 58 24 B2 22 CE 22 00 3E |$."N" . X$.".".>|
00005E20: 66 38 F4 8B 20 58 24 B3 B1 22 CE 22 20 AF 20 58 |f8.. X$.."." . X|
00005E30: 24 B3 B1 22 D9 22 20 A7 20 36 32 35 30 30 00 4D |$.."." . 62500.M|
00005E40: 66 42 F4 99 22 05 22 3B 58 24 3A 20 8E 00 87 66 |fB..".";X$: ...f|
00005E50: 88 F4 99 22 9E 22 3B 3A 20 4C 49 B2 32 31 3A 20 |...".";: LI.21: |
00005E60: 54 43 24 B2 22 C5 4E 54 45 52 20 CE 55 4D 42 45 |TC$.".NTER .UMBE|
00005E70: 52 20 28 31 2D 22 AA 4F 50 24 AA 22 29 22 3A 20 |R (1-".OP$.")": |
00005E80: 8D 20 36 30 31 35 30 00 A8 66 92 F4 54 43 24 B2 |. 60150..f..TC$.|
00005E90: 22 CF D2 20 D0 52 45 53 53 20 22 AA 42 41 24 3A |".. .RESS ".BA$:|
00005EA0: 20 8D 20 36 30 31 36 30 00 D7 66 9C F4 54 43 24 | . 60160..f..TC$|
00005EB0: B2 22 20 54 4F 20 D2 45 54 55 52 4E 20 54 4F 20 |." TO .ETURN TO |
00005EC0: D0 52 45 56 49 4F 55 53 20 CD 45 4E 55 22 3A 20 |.REVIOUS .ENU": |
00005ED0: 8D 20 36 30 31 36 30 00 F1 66 A6 F4 A1 58 24 3A |. 60160..f...X$:|
00005EE0: 20 8B 20 58 24 B2 22 5F 22 20 A7 20 36 32 36 35 | . X$."_" . 6265|
00005EF0: 30 00 0F 67 B0 F4 8B 20 58 24 B3 22 31 22 20 B0 |0..g... X$."1" .|
00005F00: 20 58 24 B1 4F 50 24 20 A7 20 36 32 36 33 30 00 | X$.OP$ . 62630.|
00005F10: 1F 67 BA F4 4F 50 B2 C5 28 58 24 29 3A 20 8E 00 |.g..OP..(X$): ..|
00005F20: 3F 67 EC F4 8B 20 4C B3 36 36 20 A7 20 81 20 4C |?g... L.66 . . L|
00005F30: B2 4C A4 36 36 3A 20 98 34 2C 22 22 3A 20 82 00 |.L.66: .4,"": ..|
00005F40: 58 67 F6 F4 81 20 4C B2 31 A4 32 3A 20 98 34 2C |Xg... L.1.2: .4,|
00005F50: 22 22 3A 20 82 3A 20 8E 00 7A 67 00 F5 81 20 4C |"": .: ..zg... L|
00005F60: B2 4C A4 36 36 3A 20 98 34 2C 22 22 3A 20 82 3A |.L.66: .4,"": .:|
00005F70: 20 98 34 3A 20 A0 34 3A 20 8E 00 94 67 50 F5 99 | .4: .4: ...gP..|
00005F80: C9 28 22 20 20 20 22 AA C4 28 58 29 2C 46 57 29 |.(" "..(X),FW)|
00005F90: 3B 3A 20 8E 00 AC 67 18 F6 9F 31 2C 38 2C 31 35 |;: ...g...1,8,15|
00005FA0: 3A 20 9F 32 2C 38 2C 32 2C 22 23 22 00 D3 67 22 |: .2,8,2,"#"..g"|
00005FB0: F6 98 31 2C 22 55 31 22 3B 32 3B 30 3B 54 4B 3B |..1,"U1";2;0;TK;|
00005FC0: 53 52 3A 98 31 2C 22 42 2D 50 22 3B 32 3B 42 54 |SR:.1,"B-P";2;BT|
00005FD0: 3A 20 8E 00 E9 67 7C F6 98 31 2C 22 55 32 22 3B |: ...g|..1,"U2";|
00005FE0: 32 3B 30 3B 54 4B 3B 53 52 00 F7 67 86 F6 A0 32 |2;0;TK;SR..g...2|
00005FF0: 3A 20 A0 31 3A 20 8E 00 1E 68 E0 F6 8D 36 33 30 |: .1: ...h...630|
00006000: 30 30 3A 20 58 24 B2 22 22 3A 20 8F 20 4F 50 45 |00: X$."": . OPE|
00006010: 4E 20 41 4E 44 20 50 4F 53 49 54 49 4F 4E 00 45 |N AND POSITION.E|
00006020: 68 EA F6 81 20 58 B2 31 A4 4C 4E 3A 20 A1 23 32 |h... X.1.LN: .#2|
00006030: 2C 59 24 3A 20 8B 20 59 24 B2 22 22 20 A7 20 59 |,Y$: . Y$."" . Y|
00006040: 24 B2 43 30 24 00 72 68 F4 F6 58 24 B2 58 24 AA |$.C0$.rh..X$.X$.|
00006050: 59 24 3A 20 82 3A 20 89 20 36 33 31 31 30 3A 20 |Y$: .: . 63110: |
00006060: 8F 20 43 4C 4F 53 45 20 41 4E 44 20 52 45 54 55 |. CLOSE AND RETU|
00006070: 52 4E 00 AC 68 44 F7 8D 36 33 30 30 30 3A 20 8B |RN..hD..63000: .|
00006080: 20 C3 28 58 24 29 B1 4C 4E 20 A7 20 58 24 B2 C8 | .(X$).LN . X$..|
00006090: 28 58 24 2C 4C 4E 29 3A 20 8F 20 4F 50 45 4E 20 |(X$,LN): . OPEN |
000060A0: 41 4E 44 20 50 4F 53 49 54 49 4F 4E 00 DB 68 4E |AND POSITION..hN|
000060B0: F7 98 32 2C 58 24 3B 3A 20 89 20 36 33 31 30 30 |..2,X$;: . 63100|
000060C0: 3A 20 8F 20 57 52 49 54 45 2C 20 43 4C 4F 53 45 |: . WRITE, CLOSE|
000060D0: 20 41 4E 44 20 52 45 54 55 52 4E 00 20 69 38 F9 | AND RETURN. i8.|
000060E0: 53 52 B2 53 52 AA 49 58 3A 20 89 20 36 33 38 32 |SR.SR.IX: . 6382|
000060F0: 30 3A 20 8F 20 43 41 4C 43 55 4C 41 54 45 20 54 |0: . CALCULATE T|
00006100: 45 41 4D 20 4E 41 4D 45 20 4F 52 20 50 4C 41 59 |EAM NAME OR PLAY|
00006110: 45 52 20 44 41 54 41 20 4C 4F 43 41 54 49 4F 4E |ER DATA LOCATION|
00006120: 00 67 69 42 F9 58 58 B2 B5 28 49 58 AD 38 29 3A |.giB.XX..(IX.8):|
00006130: 20 53 52 B2 53 52 AA 58 58 3A 20 49 58 B2 49 58 | SR.SR.XX: IX.IX|
00006140: AB 38 AC 58 58 3A 20 8F 20 43 41 4C 43 55 4C 41 |.8.XX: . CALCULA|
00006150: 54 45 20 50 4C 41 59 45 52 20 4E 41 4D 45 20 4C |TE PLAYER NAME L|
00006160: 4F 43 41 54 49 4F 4E 00 99 69 4C F9 8B 20 53 54 |OCATION..iL.. ST|
00006170: 28 54 4B 29 B3 B2 53 52 20 A7 20 53 52 B2 53 52 |(TK)..SR . SR.SR|
00006180: AB 53 54 28 54 4B 29 3A 20 54 4B B2 54 4B AA 31 |.ST(TK): TK.TK.1|
00006190: 3A 20 89 20 36 33 38 32 30 00 CC 69 56 F9 8B 20 |: . 63820..iV.. |
000061A0: 54 4B B1 31 37 20 A7 20 53 52 B2 53 52 AA 31 3A |TK.17 . SR.SR.1:|
000061B0: 20 8B 20 53 52 B1 53 54 28 54 4B 29 20 A7 20 53 | . SR.ST(TK) . S|
000061C0: 52 B2 30 3A 20 54 4B B2 54 4B AA 31 00 D2 69 60 |R.0: TK.TK.1..i`|
000061D0: F9 8E 00 FF 69 9C F9 99 22 93 22 3A 20 97 38 30 |....i...".": .80|
000061E0: 38 2C C2 28 32 35 31 29 3A 20 9C 3A 20 A2 3A 20 |8,.(251): .: .: |
000061F0: 8F 20 45 58 49 54 20 54 4F 20 42 41 53 49 43 00 |. EXIT TO BASIC.|
00006200: 00 00 |.. |
..)...." DREAMTEAM FANTASY FOOTBAL
L.P...." COMMODORE 64 VERSION 1.0
.V...." (C)1989 BY MBI SOFTWARE..
...." ROSTERS MODULE.........
...808,B(252): . DISABLE STOP......B(808
).200..45,B(174):.46,B(175):.:. C64 - EN
D OF PRG......53281,6:.53280,6:."..";G(1
4)G(8).D...C0$.G(0): CQ$.G(34): CS$."..
..": . ZERO, QUOTE, AND WHITE CURSOR....
.BL$." ": US$.".....": CD$.".....": C
R$."...."...... I.1.3: BL$.BL$.BL$: CR$.
CR$.CR$: .: . 32 BLANKS AND CURSOR RIGHT
.....US$.US$.US$.US$.US$: . 20 UNDERSCOR
ES.C...CD$."...".CD$.CD$.CD$.CD$: . HOME
AND 22 CURSOR DOWN.R.(.Z.1:.60000...2..
"..............DREAMTEAM FANTASY FOOTBAL
L"...<..".................ROSTERS"...O..
TP(2,3),NN$(35),NA$(35),PL(100),PX(300)
,PN$(300),ST(35),PS(9),FW(8)...P.. DN$(1
5),TS(15),MK$(15),SC$(15,15).T.Q.. I.1.1
7: ST(I).21: .: . I.18.24: ST(I).19: .:
. SECTORS/TK...R.. I.25.30: ST(I).18: .:
. I.31.35: ST(I).17: ....S.. I.0.7: FW(
I).2: .: . FIELD WIDTHS FOR STATISTICS..
.T.FW(1).3:FW(3).3:FW(4).4:FW(5).4:FW(8)
.3...U.PO$."UNQBTEK WRRB": . POSITION AB
BREVIATIONS.N.V.QU$.G(34):BA$.QU$."_".QU
$: . QUOTED BACK ARROW.K.W.NW.16: . NUMB
ER OF WEEKS.{.X..60100: Z.1......60000:.
H(CD$,10);".......PLEASE INSERT LEAGUE D
ISK".I.... 60100: . 60800......E..0.TE$.
".....ERROR. -- DISK IS NOT A DATA DISK"
:Z.2:.130.3.H.Z.0:TE$."ROSTER CHANGES ME
NU":. 60000.A...."...........1. CHANGE
STARTING LINEUPS"......".......2. CHANG
E DREAMTEAM ROSTERS"......".......3. CH
ANGE PLAYERS/PROTEAMS"......".......4.
DISPLAY TEAM SCHEDULES"......".......5.
RETURN TO MAIN MENU"......".......6. E
XIT".G....".........ENTER OPTION NUMBER
(1-6)".H....X$: . X$."1" . X$."6" . 280
...".. E(X$) . 1700,4400,6000,1600,300.G
.$.Z.1:.60000:."..........EXIT. - ARE YO
U SURE? (Y/N)";...&.. 62500: . X$."N" .
200...(..63900.$.,.Z.1:.60000:LI.10:TC$.
".PLEASE INSERT THE":. 60150.N.6.TC$."DR
EAMTEAM PROGRAM DISK": . 60160..@.TC$."
AND PRESS <SPACE> TO CONTINUE": . 60160.
..J..X$: . X$.." " . 330...T.TC$.".LOADI
NG FFB MENU...": . 60160...^..1,15,8:.2,
8,2,"FFB.MENU,P,R":.1,E,E$: 2: 1:.E.0.37
0.8.H.Z.1:.60000:LI.6:TC$.".ERROR. - FIL
E NOT FOUND":.60160:.300.C.R..808,B(251)
: .: ."FFB.MENU",8: . 63900...@.Z.0: TE$
."PRINT PLAY SCHEDULE": .60000: NT.TP(1,
0).H.J.."...............1. ONE TEAM'S S
CHEDULE"...T..".......2. LEAGUE SCHEDUL
E"...^.OP$."2": . 62600: . OP . 3300, 36
00.3.H.. 200: . RETURN TO MAIN MENU.G...
TE$."CHANGE STARTING LINEUPS": . 51710:
. 50310.....Z.0: . 60000: .H(CD$,5);H(CR
$,4);".TEAM .";DN$(TX).M.... NP.0 . .H(C
R$,6);"..NO PLAYERS.": . 1750...... PL.0
.NP.1: PX.PL(PL): . 50500...B..H(CR$,4);
".";I(D(PL.1),2);.C.D.." .";PN$(PX(PX));
" .";J(PO$,1.2.PO,2);". .";.M.F.. PF . 1
736,1737,1738: ."NEW": . 1740...H.."STAR
TER": . 1740...I.."BENCH": . 1740...J.."
INJURED"...L.. PL: TC$.".ENTER NUMBER, O
R PRESS ".BA$: LI.23: . 60150.&.N.."..";
H(CR$,4);".CHANGE WHICH PLAYER? ";CS$;:
LE.2: . 60300.Z.P.PL.E(Y$).1: . PL..0 .
PL.NP . PX.PL(PL): . 1748.V.R.. Y$..""
. .".": . 1742...T.Z.0: . 60000: . Y$.."
" . . 50500: . 1800...V..H(CR$,6);: ."..
.....ANOTHER DREAMTEAM? (Y/N) ";: . 6250
0...... X$."Y" . 1700...... 200: . . MAI
N MENU.Q....".......CHANGE STATUS OF PLA
YER:..": TC$.PN$(PX(PX)): . 60160.W....H
(CR$,6);". 1. .STARTING LINEUP"......H(C
R$,6);". 2. .BENCH": OP$."2".R.... IR .
OP$."3": .H(CR$,6);". 3. .INJURED RESERV
E"...... 62600: . OP.0 . . OP..PF . PF.O
P: . 50400...&.. 1710.A.... 60000: .H(CD
$,6);H(CR$,4);".TEAM NUMBER";TX.1.X....H
(CR$,4);".NAME:".Q....H(CR$,14);H(US$,20
)......"..";H(CR$,14);CS$;: LE.20: . 602
00: TN$.Y$.B.... TN$.H(BL$,LE) . TN$."":
.......: .H(CR$,4);"..ABBREVIATION:"...
...H(CR$,20);H(US$,4).-...."..";H(CR$,20
);CS$;: LE.4: . 60200: AB$.Y$.O...."....
..IS THIS CORRECT? (Y/N) ";: . 62500: .
X$."N" . TN$."".U.........TE$."DISPLAY O
NE TEAM'S SCHEDULE".U...Z.0: . 60000: ."
.........WHAT TEAM'S SCHEDULE DO YOU"...
..."......WISH TO SEE?"......"..........
........................".H...."........
..... ..";: LE.20: .60200: T$.Y$.X...Y.0
: .X.0.NT.1: .T$.DN$(X) . Y.1: T.X: X.NT
......: .: . Y.1 . 3360......"...": TC$.
"TEAM NOT FOUND.": . 60150......"......D
O YOU WISH TO TRY AGAIN? (Y/N) ";......
62500: . X$."Y" . 3310.$.... 1600: . AN
SWER WAS "N".\. .. 62400: . X$."S" . 340
0: . ASK "SCREEN OR PRINTER".P.".. X$."P
" . 3500...$.. 1600: . ANSWER WAS " ", I
.E. "P" BUT CAN'T OPEN PRINTER.V.H.Z.0:T
E$."SCHEDULE FOR ".T$: . 60000...R.."...
............WEEK OPPOSING TEAM": ..0.\
..W.0.15: .H(CR$,10);I(D(W.1),2);"....";
.I.F.X$.SC$(W,T): X.F(X$).L.P.. X$."X" .
."PLAYOFFS": . 3480...Z.. X$."Y" . ."FA
NTASY BOWL": . 3480...... X$."Z" . ."FRE
E FOR ALL": . 3480.G.... DN$(X)......: .
60100: .1600...... 60000: .H(CD$,10);H(C
R$,10);".PRINTING...".(.... 62710: . PAG
E HEADER.S....4,H(BL$,10);"SCHEDULE FOR
";T$: .4,"".{....4,H(BL$,10);"WEEK OPP
OSING TEAM"...B..4,H(BL$,10);"==========
==========".Q.J..W.0.15: .4,H(BL$,12);I(
D(W.1),2);" ";...T.X$.SC$(W,T): X.F(X
$)...V.. X$."X" . .4,"PLAYOFFS": . 3550.
8.X.. X$."Y" . .4,"FANTASY BOWL": . 3550
.A.Z.. X$."Z" . .4,"FREE FOR ALL": . 355
0.O....4,DN$(X)......: L.L.20: . 62720:
.1600: . CLOSE PRINTER AND RETURN.....Z.
0: TE$."DISPLAY LEAGUE SCHEDULE": . 6000
0: .H(CD$,10)...... 62410: . X$."S" . 37
00: . ASK "SCREEN OR PRINTER".1.... X$."
P" . 3800.O.... 1600: . ANSWER WAS " ",
I.E. "P" BUT CAN'T OPEN PRINTER...T.F.0:
W.0: TE$."DISPLAY LEAGUE SCHEDULE"...Y.
Z.0: . 60000.N.~.."............LEAGUE ";
LN$: ....... F.0 . .".......": . SC$(W,1
).."X" . F.1: . 3705.'...."........WEEK"
;W.1: . F.0 . .._.... SC$(W,1)."X" . .".
..";H(BL$,13);"PLAYOFFS": .3780...... SC
$(W,1)."Y" . ."...";H(BL$,11);"FANTASY B
OWL": .3780.W.... SC$(W,1)."Z" . ."...";
H(BL$,11);"FREE FOR ALL": .3780...... M.
0.NT.1: MK$(M)." ": .: M.0: . CLEAR MARK
S.D.... MK$(M)."*" . M.M.1: . M.NT . 374
0: . FIND CLEAR MARK.X.... M.NT . 3775:
. ALL TEAMS MARKED, WEEK IS DONE.....MK$
(M)."*": ."...";H(DN$(M),15);" VS ";: .
MARK AND PRINT TEAM.....IX.F(SC$(W,M)):
MK$(IX)."*": .H(DN$(IX),15): . AND OPPON
ENT...... 3740: . NEXT GAME./.... 60100:
. WEEK IS DONE.H.D.W.W.1: . W.NW . 3715
.P.I.. F.1 . . 60100: . SCHEDULE IS DONE
...N.. 1600: . RETURN TO SCHEDULE DISPLA
Y MENU.O.X.. 60000: .H(CD$,10);H(CR$,10)
;".PRINTING..."...Z.F.0: W.0: L.67: . FL
AGS AND LINE COUNT.2 ... 62700: .4,H(BL$
,10),LN$;" SCHEDULE": .4,"": L.L.2.T ...
F.0 . . SC$(W,1).."X" . F.1.. ... F.0 .
. L.4.NG.60 . 3810: . NEW PAGE FOR FULL
WEEK.F ... F.1 . . L.4.60 . 3810: . NEW
PAGE FOR PLAYOFF WEEK.. ...4,H(BL$,12);
"WEEK";W.1: L.L.1: . F.0 . .4,"".-!... S
C$(W,1)."X" . .4,H(BL$,14);"PLAYOFFS": .
3880.F!... SC$(W,1)."Y" . .4,H(BL$,14);
"FANTASY BOWL": . 3880..!... SC$(W,1)."Z
" . .4,H(BL$,14);"FREE FOR ALL": . 3880.
Q!... M.0.NT.1: MK$(M)." ": .: M.0: . CL
EAR MARKS.."... MK$(M)."*" . M.M.1: . M.
NT . 3850: . FIND CLEAR MARK.@"... M.NT
. 3880: . ALL TEAMS MARKED, WEEK IS DONE
."..MK$(M)."*": .4,H(BL$,14);DN$(M);" V
S ";: . MARK/PRINT TEAM.."..IX.F(SC$(W,M
)): MK$(IX)."*": .4,DN$(IX): . AND OPPON
ENT.."..LI.LI.1: . 3850: . NEXT GAME..#(
..4,"": LI.LI.2: W.W.1: . W.NW . 3820.H#
2.. 62720: . 1600: . CLOSE PRINTER, RETU
RN TO SCHED DISPLAY MENU.P#0.Z.0:TE$."CH
ANGE TEAM ROSTER":.60000..#:..".........
......1. LIST ALL PLAYERS".D#<.."......
.2. LIST ONE TEAM'S ROSTER"..#>..".....
..3. DRAFT A PLAYER"..$@..".......4. W
AIVE A PLAYER".7$D.OP$."4": . 62600: . O
P . 4450,4500,4600,4700.X$N.. 200: . RET
URN TO MAIN MENU..$B.Z.0: TE$."LIST ALL
PLAYERS": . 51500: . 4400: . RETURN TO M
ENU.R$... 51700: TE$.DN$(TX)." TEAM ROST
ER": . SELECT TEAM..%..Z.0:.60000:. 6241
0:Z.0:. 60000: . ASK "SCREEN OR PRINTER"
.$%... X$."S" . 4800.8%... X$."P" . 4900
.R%... 4400: . ELSE PRINTER NOT RESPONDI
NG, RETURN TO MENU..%..TE$."DRAFT A PLAY
ER".K%..Z.0:.60000:.50600:.PX.NP.4630: .
GET AND VERIFY PLAYER NAME..%...H(CR$,4
);"..PLAYER NOT FOUND"..&...H(CR$,4);".T
RY AGAIN? (Y/N) ";./&... 62500: . X$."Y"
. 4610.U&... PN$."" . 4400: . RETURN TO
MENU.W& .. 50900: . DX..TP(1,0) . 4650.
.&"..H(CR$,4);"..PLAYER ALREADY ASSIGNED
TO"..&$..H(CR$,10);"..";DN$(DX): . 6010
0: . 4400: . . MENU..'*.TS$.TE$: . 51700
: . GET DREAM TEAM NAME.('4.TE$.TS$: . 6
0000: .H(CD$,10).N'6..H(CR$,6);".ASSIGN
.";PN$(PX(PX)).N'8..H(CR$,10);"..TO .";D
N$(TX)..'>.. 50500: . 50900: DX.TX: PF.2
.B'@.. 50800: . 50400: . UPDATE PLAYER D
ATA FIELDS..'B.. 51210: . 4400: . UPDATE
TEAM'S LIST AND RETURN TO MENU..(\.TE$.
"WAIVE A PLAYER".X(F.Z.0:.60000:.50600:.
PX.NP.4730: . GET AND VERIFY PLAYER NAME
.{(P..H(CR$,4);"..PLAYER NOT FOUND"..(R.
.H(CR$,4);".TRY AGAIN? (Y/N) ";..(T.. 62
500: . X$."Y" . 4710..(Z.. PN$."" . 4400
: . RETURN TO MENU..)... 50900: . DX.TP(
1,0) . 4750./)...H(CR$,4);"..PLAYER IS N
OT ON ANY TEAM".M)... 60100: . 4400: . .
MENU.U)...H(CR$,4);"..PLAYER IS ASSIGNE
D TO"..)...H(CR$,10);"..";DN$(DX)..)...H
(CR$,4);".OK TO RELEASE HIM? <Y/N> ";..)
... 62500: . X$."N" . 4400: . RETURN..*.
.. 50500: . 50900: DH.DX: DX.255: PF.0.9
*... 50800: . 50400: . UPDATE PLAYER DAT
A.R*..DX.DH: . 51310: . 4400: . UPDATE T
EAM'S LIST, RETURN..*...H(CD$,5): . 5031
0: . NP.0 . 4810..*B..H(CR$,8);".NO PLAY
ERS.": . 4830..*J.. PP.0 . NP.1: PX.PL(P
P): . 50900..+T..H(CR$,8);".";PN$(PX(PX)
);" .";J(PO$,1.2.PO,2): ..J+... 60100:
. 4400: . WAIT FOR <SPACE>, RETURN.Q+$.L
I.10: TC$.".PRINTING...": . 60150..+...
62710: .4,H(BL$,10);"TEAM ROSTER: ";DN$(
TX)..+8..4,H(BL$,10);"==================
===============": .4,""..,B.L.L.3: . 503
10: . NP.0 . 4940.(,D..4,H(BL$,12);"NO P
LAYERS.": . 4860.N,L.. PP.0 . NP.1: PX.P
L(PP): . 50900..,V..4,H(BL$,12);PN$(PX(P
X));" ";J(PO$,1.2.PO,2): L.L.1: ...,`..
62720: . 4400: . CLOSE PRINTER AND RETU
RN..,P.Z.0:TE$."EDIT DATABASES":. 60000.
.-Z..".....";H(CR$,7);".1. LIST PROTEAM
S".*-{..H(CR$,7);"2. ADD PROTEAM".K-|..
YOU CAN'T DELETE TEAMS!!!!.P-}..".";H(C
R$,7);"3. LIST PLAYERS"..-~..H(CR$,7);"
4. ADD PLAYER"..-..H(CR$,7);"5. DELET
E PLAYER"..-...".";H(CR$,7);"6. ASSIGN
PLAYER TO PROTEAM"......H(CR$,7);"7. LI
ST PROTEAM ROSTERS".;...."..";H(CR$,7);"
ENTER OPTION NUMBER (1-7)".Q....".";H(C
R$,5);"OR ";BA$;" TO RETURN TO MAIN MENU
"...... X$: . X$."_" . 200...... X$."1"
. X$."7" . 6030...... E(X$) . 6080, 6100
, 6090, 6500, 6600, 6700, 6900../..Z.0:
TE$."LIST PROTEAMS": . 60000.*/E.. 6300:
. 60100: . 6000: . RETURN.F/J.Z.0: TE$.
"LIST PLAYERS".C/O.. 6400: . 6000: . RET
URN.~/T.Z.0: TE$."ADD PROTEAM"../..TX.TP
(0,0): . TX.36 . 6120../... 60000: .H(CD
$,6);H(CR$,6);../...".THERE ARE ALREADY"
;TX;"TEAMS."..0...H(CR$,6);"NO MORE TEAM
S ALLOWED.": . 60100: . 6000.S0... 3200:
. TN$."" . . 6000: . NO TEAM ADDED, RET
URN..0..NN$(TX).TN$: NA$(TX).AB$: . TX.0
. 6150: . IF NO TEAMS SKIP SEARCH.N0..T
.255: . I.0.TX.1: . NN$(I).NN$(TX) . T.I
: I.TX..1...:.T.I..H(CR$,4);".DUPLICATE
NAME":.60100:.6000.F1..TP(0,0).TX.1: AP.
TX: . FIRST CUT - ALPHA PTR SAME AS LIST
INDEX.N1... 50200: . WRITE EMPTY TEAM T
O DISK..1... 50000: . 6000: . UPDATE LEA
GUE SECTOR.U1..LE.20: NT.TP(0,0): H.NT:
. NT.16 . LE.15: H..(NT.2..6)..1...H(CD$
,5): I.0..2... NT.0 . ."........NO TEAMS
.": ..62..."...";I(D(I.1),2);"..";H(NN$(
I),LE).U2..I.I.1: . I.NT . I.H . 6320.P2
...H(CD$,5): . I..NT . ...2D..H(CR$,LE.5
);".";I(D(I.1),2);"..";H(NN$(I),LE)..2F.
I.I.1: . I.NT . 6340.B2N....2..NP.TP(2,0
): PX.0: . NP.0 . 6410.&3... 60000: ."..
.........NO PLAYERS.": . 60100: . WAIT,
RETURN.C3... 60000: .H(CD$,4): LI.0..3..
. PN$(PX(PX))."" . . 50500: . GET PLAYER
FROM DISK, IF NEEDED..3...H(CR$,6);".";
I(" ".D(PX.1),3);"..";PN$(PX(PX))..3(.PX
.PX.1: LI.LI.1: . PX.NP . LI.16 . 6420.!
42..H(CD$,21);H(CR$,6);"..PRESS <SPACE>
TO CONTINUE LIST".]44..H(CR$,6);".PRESS
";CQ$;"^";CQ$;" TO BACK UP LIST "..4
6..H(CR$,6);".PRESS ";CQ$;"_";CQ$;"
TO STOP LIST ".H4<.. X$: . X$.."_" .
X$.."^" . X$.." " . 6460.Y4>.. X$."_" .
...5@.. X$."^" . PX.PX.LI.16: . PX.0 . P
X.0.&5B.. X$." " . . PX..NP . PX.PX.LI.1
5D.. 6410.T5D.Z.0: TE$."ADD PLAYER": . 6
0000..5N.PX.TP(2,0): .H(CD$,8);H(CR$,4);
: . PX.500 . 6520..5P..".THERE ARE ALREA
DY";PX;"PLAYERS.".Z5R..H(CR$,6);"NO MORE
PLAYERS ALLOWED."..6T.. 60100: . 6000:
. WAIT FOR SPACE, THEN RETURN.I6X..".PLA
YER NUMBER";PX.1: PX(PX).PX: . NO SORTIN
G FOR NOW.`6...H(CR$,4);".NAME:".Y6...H(
CR$,14);H(US$,20)..6..."..";H(CR$,14);CS
$;..6..LE.20: . 60200: .: PN$(PX(PX)).Y$
.Q6...Y$.H(BL$,LE) . 6000..6...H(CR$,4);
"..IS THIS CORRECT? <Y/N> ";./7... 62500
: . X$."N" . . 6000: . REJECTED, RETURN.
L7... PX.0 . 6560: . IF NO PLAYERS SKIP
SEARCH FOR DUPLICATE..7..P.1000: . I.0.P
X.1: . PN$(PX(I)).PN$(PX(PX)) . P.I: I.P
X..7...:.P.I..H(CR$,4);".DUPLICATE NAME"
:.60100:.6000. 8 .NX.255: DX.255: PW.255
: PF.0: PO.0: .I.0.9: PS(I).0: .: . INIT
.Y8... 50400: . 50800: . WRITE PLAYER NA
ME & DATA TO DISK..8..TP(2,0).TP(2,0).1:
. 50000: . 6000: . UPDATE LEAGUE, RETUR
N..8H.TE$."DELETE PLAYER"..8R.Z.0:.60000
:.50600:.PX.NP.6630:. GET AND VERIFY PLA
YER NAME..9...H(CR$,4);"..PLAYER NOT FOU
ND".Q9...H(CR$,4);".TRY AGAIN? (Y/N) ";:
. 62500: . X$."Y" . 6610.Y9... PN$."" .
. 6000: . RETURN TO MENU..9...H(CR$,4);
"..ARE YOU SURE? <Y/N> ";.H9... 62500: .
X$."N" . 6000: . RETURN..9... 50900: .
GET PLAYER DATA FIELDS..:... NX..TP(0,0)
. 6670: . NO DELETION NEEDED.O:... 5130
0: . DELETE PLAYER FROM NFL TEAM'S LIST.
~:... DX..TP(1,0) . 6680: . NO DELETION
NEEDED..:... 51310: . DELETE PLAYER FROM
DREAM TEAM'S LIST..:..TP(2,0).TP(2,0).1
: . 51100: . MOVE LAST PLAYER TO DELETED
PLAYER.+;".. 50000: . 6000: . UPDATE LE
AGUE SECTOR, RETURN.N;,.TE$."ASSIGN PLAY
ER TO PROTEAM"..;6.Z.0:.60000:.50600:.PX
.NP.6730: . GET AND VERIFY PLAYER NAME..
;@..H(CR$,4);"..PLAYER NOT FOUND".U;B..H
(CR$,4);".TRY AGAIN? (Y/N) ";..;D.. 6250
0: . X$."Y" . 6710..<J.. PN$."" . 6000:
. RETURN TO MENU.O<T..50700: . TX.NT . 6
760: . GET AND VERIFY TEAM NAME.P<^..H(C
R$,4);"..TEAM NOT FOUND"..<`..H(CR$,4);"
.TRY AGAIN? (Y/N) ";..<B.. 62500: . X$."
N" . 6760.N<D.."..";H(CR$,4);H(BL$,20)..
<F..H(CR$,4);H(BL$,20):.6740..=H.. AB$."
" . . 6000: . RETURN TO MENU.@=R.TS$.TE$
: . 6800: TE$.TS$: . PO.0 . 6000.Q=T.Z.0
: . 60000..=|..H(CD$,10);H(CR$,4);".ASSI
GN .";PN$(PX(PX))..=~..H(CR$,4);".. T
O .";NN$(TX)..=...H(CR$,4);".. AT .";
: . 62300: . PRINT POSITION..>..TT.TX: P
P.PO: . 50500: . 50900: . GET PLAYER.6>.
.. NX..NT . 6796: . NO DELETION NEEDED.`
>..TX.NX: .H(CR$,4);".. FROM .";NN$(TX)
..>...H(CR$,4);".. AT .";: . 62300..>
... 51300: . REMOVE PLAYER FROM OLD TEAM
'S LIST..>..PO.PP: TX.TT: NX.TX: . 50800
: . 50400: . SAVE PLAYER.0?... 51200: .
6000: . ADD PLAYER TO NEW TEAM'S LIST AN
D RETURN.Q?..TE$."SELECT PLAYER POSITION
".M?..Z.0: . 60000: .H(CD$,6)..?...H(CR$
,10);".1. QB QUARTERBACK"..?...H(CR$,
10);".2. TE TIGHT END"..?...H(CR$,10)
;".3. K KICKER"..@...H(CR$,10);".4.
WR WIDE RECEIVER".-@...H(CR$,10);".5.
RB RUNNING BACK.".\@...:.H(CR$,6);"E
NTER POSITION NUMBER (1-5)"..@..TC$."OR
".BA$." TO RETURN TO MENU": . 60160..@.
.. X$: . X$."_" . PO.0: ..F@... X$."1" .
X$."5" . 6840..@B.PO.E(X$): .H(CR$,6);"
...";J(PO$,1.2.PO,2);.3AL..".. IS THIS
CORRECT? <Y/N> ";: . 62500: . X$."N" . P
O.0.9AV...KA... 51500: . 6000: . PRINT L
IST, RETURN TO MENU..APCX$."":. I.0.1: .
J.0.3: X$.X$.G(TP(I,J)):. J,I..AZCX.TP(
2,0): Y$.G(X.256..001).G(X.255).G(TP(2,1
)).G(TP(2,2))..BDCX.TP(2,3): Y$.Y$.G(X.2
56..001).G(X . 255).G(PS).FBNCX$.LN$.X$.
Y$.G(PD(0)).G(PD(1)).G(SO).G(IR).G(WK)..
BXCTK.1: SR.0: BT.0: LN.40: . 63300: . W
RITE LEAGUE SECTOR AND RETURN.HB.CTK.1:
SR.0: BT.0: LN.40: . 63200: . READ LEAGU
E SECTOR..B.CLN$.H(X$,20): PS.F(J(X$,35,
1))..CHCPD(0).F(J(X$,36,1)): PD(1).F(J(X
$,37,1)).?CRCSO.F(J(X$,38,1)): IR.F(J(X$
,39,1)).DC.CWK.F(J(X$,40,1)): X$.J(X$,21
,14)..C.CX.1: . I.0.1: . J.0.3: TP(I,J).
F(J(X$,X,1)): X.X.1: . J,I.UC.CTP(2,0).F
(J(X$,X,1)).256.F(J(X$,X.1,1)): X.X.2..D
.CTP(2,1).F(J(X$,X,1)): X.X.1: TP(2,2).F
(J(X$,X,1)): X.X.1.AD.DTP(2,3).F(J(X$,X,
1)).256.F(J(X$,X.1,1)): ..D.DTK.TP(0,1)
: SR.TP(0,2): TN$.NN$(TX): AB$.NA$(TX):
. 50220..D"DTK.TP(1,1): SR.TP(1,2): TN$.
DN$(TX): AB$.H(BL$,4)..D,DIX.TX: . 63800
: . GET RIGHT TK & SR..E6DX$."": . I.0.1
5: X$.X$.G(TS(I).256).G(TS(I).255): ..2E
@DY$.G(NP): . NP.0 . 50260.EEJD. I.0.NP.
1: Y$.Y$.G(PL(I).256).G(PL(I).255): ...E
TDX$.TN$.AB$.G(TX).G(AP).G(DV).X$.Y$..E^
DBT.0: LN.C(X$): . 63300: . WRITE AND RE
TURN..E|DTK.TP(0,1): SR.TP(0,2): . 50320
: . READ PRO TEAM SECTOR."F.DTK.TP(1,1)
: SR.TP(1,2): . DREAM TEAM.JF.DIX.TX: .
63800: . GET RIGHT TK & SR.ZF.DLN.60: .
SH.1 . LN.24: . CHECK "SHORT" FLAG..F.DB
T.0: . 63200: . RAW TEAM DATA TO X$.FF.D
TN$.J(X$,1,20): AB$.J(X$,21,4)..F.D. SH.
1 . .: . SHORT READ IS DONE..G.DAP.F(J(X
$,26,1)): DV.F(J(X$,27,1)).LG.DJ.28: . I
.0.15: TS(I).256.F(J(X$,J,1)).F(J(X$,J.1
,1)).YG.DJ.J.2: ...GBDNP.F(J(X$,60,1)):
. NP.0 . .: . ELSE -. GLDBT.60: LN.2.NP:
. 63200..GVDJ.1: . I.0.NP.1: PL(I).256.
F(J(X$,J,1)).F(J(X$,J.1,1))..G.DJ.J.2: .
: ..2H.DTK.PD(0): SR.PD(1): IX.PX(PX): .
63800: . CORR TK/SR FOR PLYR DATA.OH.DX
$.G(IX.256).G(IX.255): . LIST IDX & (FOR
NOW) ALPHA PTR..H.DX$.PN$(IX).X$.X$.G(T
K).G(SR).G(PF).G(PO).G(PW).G(PS(9))..H.D
TK.TP(2,1): SR.TP(2,2): . 63810: . CORRE
CT TK/SR AND IX. I.EBT.32.IX: LN.30: . 6
3300: . WRITE TO DISK AND RETURN.AIDETK.
TP(2,1): SR.TP(2,2): IX.PX(PX): . 63810:
. CORR TK/SR, IX..INEBT.32.IX: LN.30: .
63200: . OPEN AND READ.LIXEPN$(PX(PX)).
H(X$,20): PF.F(J(X$,27,1)): PO.F(J(X$,28
,1))..IBEPW.F(J(X$,29,1)): PS(9).F(J(X$,
30,1)): ..&J.ELE.20: .H(CD$,8);H(CR$,4);
".PLAYER NAME".?J.E.H(CR$,16);H(US$,LE).
LJ.E."..";H(CR$,16);CS$;: . 60200: PN$.Y
$: ...J.E. PN$.H(BL$,LE) . PN$."": .: .
NO NAME GIVEN..J.EPX.0: NP.TP(2,0).XJFE.
PX..NP . PN$."": .: . NOT FOUND..KPE. P
N$(PX(PX))."" . . 50500: . GET PLAYER FR
OM DISK IF NEEDED.<KZE. PN$.PN$(PX(PX))
. .: . FOUND.QK.EPX.PX.1: . 50630..K.FLE
.4: .H(CD$,10);H(CR$,4);".TEAM ABBREVIAT
ION "..K.F.H(CR$,25);H(US$,LE).
TK.F."..";H(CR$,25);CS$;: . 60200: AB$.Y
$: ...L.F. AB$.H(BL$,LE) . AB$."": .: .
NO TEAM GIVEN..L FTX.0: NT.TP(0,0).@L*F.
TX..NT . AB$."": .: . NOT FOUND._L4F. A
B$.NA$(TX) . .: . FOUND.TL>FTX.TX.1: . 5
0730..LPFTK.PD(0): SR.PD(1): IX.PX(PX):
. 63800: . CORR TK/SR FOR PLYR DATA..LZF
X$."": . I.0.3: X$.X$.G(PS(I)): ...M|F.
I.4.5: X$.X$.G(PS(I).256).G(PS(I).255):
..0M~F. I.6.8: X$.X$.G(PS(I)): ..LM.FX$.
G(NX).G(DX).G(PO).X$.}M.FBT.WK.16: LN.16
: . 63300: . WRITE AND RETURN.DMTFTK.PD(
0): SR.PD(1): IX.PX(PX): . 63800: . CORR
TK/SR FOR PLYR DATA..M.FBT.WK.16: LN.16
: . 63200: . GET PLAYER DATA IN X$.0N.FN
X.F(J(X$,1,1)): DX.F(J(X$,2,1)): PO.F(J(
X$,3,1))._N.FJ.4: . I.0.3: PS(I).F(J(X$,
J,1)): J.J.1: ...N.F. I.4.5: PS(I).F(J(X
$,J,1)).256.F(J(X$,J.1,1)): J.J.1: ..FN.
F. I.6.8: PS(I).F(J(X$,J,1)): J.J.1: ..L
N.F...O.G. PX.0 . PX..TP(2,0) . .: . CHE
CK IF PLAYER EXISTS.7O.G. 50500: . PLAYE
R TO DELETE - NAME RECORD TO X$.TO.GT1.F
(J(X$,25,1)): S1.F(J(X$,26,1)): . PLAYER
DATA SECTOR..O.GPP.PX: PX.TP(2,0): . 50
500: PX.PP: . LAST PLAYER NAME RECORD..O
.GTK.F(J(X$,25,1)): SR.F(J(X$,26,1)): .
LAST PLAYER DATA SECTOR.-P.GBT.WK.16: .
63000: . OPEN LAST PLAYER DATA SECTOR.\P
.G.#2,X$: NX.F(X$.C0$): . GET PRO TEAM I
NDEX..P.G.#2,X$: DX.F(X$.C0$): . AND DRE
AM TEAM INDEX.PPDGTK.T1: SR.S1: BT.0: .
63100: . OVERWRITE DELETED PLAYER'S DATA
..QNGPN$(PX(PX)).PN$(PX(TP(2,0))): . 504
00: . OVERWRITE NAME.>QXG. NX..TP(0,0) .
51170: . CHECK IF ON NFL TEAM.OQZGTX.NX
: . 50300: . NP.0 . 51170: . NO PLAYERS.
.Q.GP.255: .I.0.NP.1: . PL(I).PX(TP(2,0)
) . P.I: I.NP.PQ.G.: . P..NP . 51170: .
PLAYER NOT FOUND..Q.GPL(P).PX(PX): . 502
00: . UPDATE.(R.G. DX..TP(1,0) . 51180:
. CHECK IF ON DREAM TEAM.RR.G. 50310: .
NP.0 . 51180: . NO PLAYERS..R.GTX.DX: P.
255: .I.0.NP.1: . PL(I).PX(TP(2,0)) . P.
I: I.NP..R.G.: . P..NP . 51180: . PLAYER
NOT FOUND..R.GPL(P).PX(PX): . 50210: .
UPDATE..R.G..)S.HTX.NX: NT.TP(0,0): DF.1
: . 51220: . PRO TEAM, DF IS "DREAM-FLAG
".SS.HTX.DX: NT.TP(1,0): DF.2: . DREAM T
EAM..S.H. TX.0 . TX.NT . .: . TEAM DOES
NOT EXIST..S.H. DF . 50300, 50310: PL(NP
).PX(PX): NP.NP.1..S(H. DF . 50200, 5021
0: . UPDATE & RETURN..TDHTX.NX: DF.1: .
51320: . NFL TEAM, DF IS "DREAM-FLAG".3T
NHTX.DX: DF.2: . DREAM TEAM.ETXH. DF . 5
0300, 50310: . NP.0 . .: . NO PLAYERS..T
.HP.255: .I.0.NP.1: . PL(I).PX(PX) . P.I
: I.NP.ET.H.: . P..NP . .: . PLAYER NOT
FOUND, RETURN..U.HNP.NP.1: PL(P).PL(NP):
. DF . 50200, 50210: . UPDATE & RETURN.
BU,I. TP(0,0)..0 . Z.1:.60000:."........
NO TEAMS.":. 60100.`U.I. 62400: . X$."P"
. 51600..U0I. X$." " . .: . PRINTER DID
N'T ANSWER.FU6I.".": . TX.0 . TP(0,0).1:
.".";NN$(TX);" .";NA$(TX);"."..U@I. 503
00: . NP.0 . ." NO PLAYERS.": . 51550.'
VJI. PL.0 . NP.1: PX.PL(PL): . " ";PN$(P
X(PX));.KVTI. 50900: . " ";J(PO$,1.2.PO,
2);.QVVI. DX..TP(1,0) . ." FREE": . 5154
8..VXI." ACTIVE"..V\I. PL..V^I."..PRESS
<SPACE> TO CONTINUE.".IVHI. X$: . X$.."
" . 51560.XVRI.: . TX: ...W.IZ.0: .60000
: LI.10: TC$.".PRINTING...": . 60150.MW.
IL.67: . TX.0 . TP(0,0).1: . L.60 . . 51
670: . CHECK PAGE END..W.I.4,H(BL$,12);N
N$(TX);" ";NA$(TX): .4,"": LI.LI.1..W.I
. 50300: . NP.0 . .4,H(BL$,14);"NO PLAYE
RS.": . 51660..W.I. PL.0 . NP.1: . L.60
. . 51670..X.IPX.PL(PL): .4,H(BL$,14);PN
$(PX(PX));.0XBI. 50900: .4," ";J(PO$,1.
2.PO,2);.TXDI. DX.TP(1,0) . .4," ";DN$(
DX);.KXFI.4,"": L.L.1: . PL..XLI.4,"": L
.L.2: . TX: . 62720: . CLOSE PRINTER AND
RETURN..XVI. 62700: .4,H(BL$,10);"PLAYE
R LIST": . NEW PAGE..YXI.4,H(BL$,10);: .
I.1.6: .4,"==========";: ..&YZI.4,"": .
4,"": L.L.3: ..AY.ITE$."SELECT DREAMTEAM
".RY.IZ.0: . 60000.TY.J.H(CD$,4): . TX.0
. TP(1,0).1..Y.J.H(CR$,6);".";I(D(TX.1)
,2);" .";DN$(TX): ..WY.J.H(CR$,4);"..SEL
ECT TEAM: ";CS$;: LE.2: .60200..Z.JTX.E
(Y$).1: . TX.0 . TX..TP(1,0) . ."..": .
51740.)Z J.".":.H(CR$,18);DN$(TX).SZ&J.H
(CR$,4);".IS THIS CORRECT? (Y/N) ";.~Z0J
. 62500: . X$."N" . 51710: . TRY AGAIN..
Z:J..KZXJTK.PD(0): SR.PD(1): IX.PX(PX):
. 63800: . CORR TK/SR FOR PLYR DATA..[BJ
BT.0: LN.254: . 63200: . GET PLAYER DATA
IN X$ AND RETURN.<[`..".. .............
..........................";.^[J..X.1.22
:.".....";:.:.".....";..[T..X.1.36:."...
";:.:.".....";:.X.1.22:."...";:..K[~..Z.
0..".......
."..[...Z.0.Z.2.."...";H(CR$,20
.C(TE$).2);TE$..[....8\D.."..";: LI.23:
TC$."PRESS <SPACE> TO CONTINUE": . 60150
.O\N..X$:.X$.." ".60110.U\X...E\...H(CD$
,LI);..\...H(CR$,20.C(TC$).2);TC$: ...\(
.Y$."": .198,0..\2..X$: X.F(X$.G(0)): .X
$."".60210.T\<..X.47.X.58.Z.0:.60240..\>
..X.64.X.91.Z.128:.60240..]@..X.96.X.123
.Z.128:.60240.)]B..X.192.X.219.Z.0:.6024
0.C]D..X.32.X.39.Z.0:.60240.M]F..X.20..(
C(Y$).0)..60390:.60210: . DEL..]H..X.13.
." ";:.60260..]J..60210..]P..(C(Y$).LE).
60210.J]Z..X$;CS$;:Y$.Y$.G(F(X$).Z):.602
10..]D.Y$.H(Y$.BL$,LE): ...]..Y$."":.198
,0:Y.1..^...X$:X.F(X$.G(0)):.X.0.60310.7
^...X.47.X.58..(C(Y$).LE).60350.A^...X.2
0..(C(Y$).0)..60390:.60310: . DEL.~^...X
.13.." ";:.60340: . CR..^...X.95.Y.0:.60
330: . "_".U^ .Y.0.(X.29).2.(X.157):.Y.0
.Y.1:.60310: . CURSOR IF Y<>0..^...(C(Y$
).0)..60390:.60330: . ERASE.._....(_...X
$;CS$;:Y$.Y$.X$:.60310: . NUMBER.N_...".
..";CS$;:Y$.H(Y$,C(Y$).1): ..I_..Z.0:T
E$."LOADING DATA".._..TK.18: SR.0: BT.0:
. 63000: .1,E: .#2,X$: . 63110.._... E.
.0 . .: . DISK ERROR.._... X$.."" . E.99
: .: . NOT A LEAGUE DISK..`... 60000: ."
.............READING LEAGUE DATA".D`...
50100: . READ AND UNPACK LEAGUE DATA.B`.
..".........LEAGUE: .";LN$.}`...".......
..WEEK.";WK.1..`..SH.1: . KEEP TEAM READ
S SHORT.R` .NT.TP(0,0): ."........READIN
G.";NT;".PROTEAMS"..`... NT.0 . 60840: .
CHECK PRO TEAM COUNT.;A...TX.0.NT.1:.50
300:NN$(TX).TN$:NA$(TX).AB$:.: . TEAM NA
MES.OA..NT.TP(1,0): .".......READING.";N
T;".DREAMTEAMS"..A..NG.NT.2: . NT.0 . 60
850: . CHECK DREAM TEAM COUNT..A... TX.0
.NT.1: . 50310: DN$(TX).TN$: .: . TEAM N
AMES..A...".......READING SCHEDULE"..B..
. 61200: . SCHEDULE TO SC$().MB..NP.TP(2
,0): .".......READING.";NP;".PLAYERS".VB
... NP.0 . 60870: . CHECK PLAYER COUNT..
B... PX.0.NP.1: PX(PX).PX: . 50500: .: .
PLAYER NAMES..BB.. PX(PX) WILL BE USED
FOR ALPHABETIZING, SOME DAY..CF.SH.0: .:
. FUTURE READS WILL BE FULL LENGTH.IC..
TK.1: SR.1: BT.0: . 63000: . OPEN SCHEDU
LE SECTOR..C... W.0.15: . T.0.15: .#2,X$
: SC$(W,T).H(X$.C0$,1): . T,W..C$.. 6311
0: . CLOSE AND RETURN..C\.. PO . 62320,
62330, 62340, 62350, 62360: . PRINT POSI
TION PER PO..DF.."UNKNOWN POSITION": ...
DP.."QUARTERBACK": ..0DZ.."TIGHT END": .
.AD..."KICKER": ..YD..."WIDE RECEIVER":
..PD..."RUNNING BACK": ...D..Z.1: . 6000
0..DJ..H(CD$,10);H(CR$,7);".SCREEN OR PR
INTER? <S/P> .";.UDL.. X$: . X$."S" . X
$."S"..DN.. X$."P" . X$."P"..EP.. X$.."S
" . X$.."P" . 62410.3ET.. X$."S" . .: .
ELSE CHECK PRINTER-.VE...4,4,7: 4: . ST
.0 . .4,4,7: ...E...: ."........PRINTER
IS NOT RESPONDING."..E..."......PLEASE C
HECK YOUR HARDWARE"..E..."......AND TRY
AGAIN.": X$."": . 60100: . WAIT, THEN RE
TURN..F$.. X$: . X$."Y" . X$."Y"..F... X
$."N" . X$."N".>F8.. X$.."N" . X$.."Y" .
62500.MFB..".";X$: ...F...".";: LI.21:
TC$."ENTER NUMBER (1-".OP$.")": . 60150.
.F..TC$."OR PRESS ".BA$: . 60160.WF..TC$
." TO RETURN TO PREVIOUS MENU": . 60160.
.F...X$: . X$."_" . 62650..G... X$."1" .
X$.OP$ . 62630..G..OP.E(X$): ..?G... L.
66 . . L.L.66: .4,"": ..XG... L.1.2: .4,
"": .: ..ZG... L.L.66: .4,"": .: .4: 4:
...GP..I(" ".D(X),FW);: ...G...1,8,15
: .2,8,2,"#".SG"..1,"U1";2;0;TK;SR:.1,"B
-P";2;BT: ...G|..1,"U2";2;0;TK;SR..G.. 2
: 1: ...H...63000: X$."": . OPEN AND PO
SITION.EH... X.1.LN: .#2,Y$: . Y$."" . Y
$.C0$.RH..X$.X$.Y$: .: . 63110: . CLOSE
AND RETURN..HD..63000: . C(X$).LN . X$.H
(X$,LN): . OPEN AND POSITION..HN..2,X$;:
. 63100: . WRITE, CLOSE AND RETURN. I8.
SR.SR.IX: . 63820: . CALCULATE TEAM NAME
OR PLAYER DATA LOCATION.GIB.XX..(IX.8):
SR.SR.XX: IX.IX.8.XX: . CALCULATE PLAYE
R NAME LOCATION..IL.. ST(TK)..SR . SR.SR
.ST(TK): TK.TK.1: . 63820.LIV.. TK.17 .
SR.SR.1: . SR.ST(TK) . SR.0: TK.TK.1.RI`
....I...".": .808,B(251): .: .: . EXIT T
O BASIC...
> CLICK IMAGE PREVIEW FOR FULL MODAL