PROGRAM REGISTER

00000000: 01 08 22 08 02 00 99 22  93 22 3A 97 35 33 32 38  |.."....".":.5328|
00000010: 30 2C 30 3A 97 35 33 32  38 31 2C 30 3A 99 C7 28  |0,0:.53281,0:..(|
00000020: 35 29 00 28 08 4B 00 8F  00 46 08 4C 00 99 22 93  |5).(.K...F.L..".|
00000030: 11 2A 52 45 4C 41 54 49  56 45 20 46 49 4C 45 20  |.*RELATIVE FILE |
00000040: 44 45 4D 4F 2A 22 00 8F  08 50 00 4C 4C 24 B2 C7  |DEMO*"...P.LL$..|
00000050: 28 31 33 29 20 20 3A 8F  20 20 54 48 49 53 20 49  |(13)  :.  THIS I|
00000060: 53 20 54 48 45 20 46 49  45 4C 44 20 44 45 4C 49  |S THE FIELD DELI|
00000070: 4D 49 54 45 52 20 55 53  45 44 20 57 48 45 4E 20  |MITER USED WHEN |
00000080: 57 52 49 54 49 4E 47 20  52 45 43 4F 52 44 53 00  |WRITING RECORDS.|
00000090: C5 08 5A 00 9F 31 35 2C  38 2C 31 35 2C 22 49 30  |..Z..15,8,15,"I0|
000000A0: 22 3A A0 31 35 20 3A 20  8F 20 20 49 4E 49 54 49  |":.15 : .  INITI|
000000B0: 41 4C 49 5A 45 20 54 48  45 20 44 49 53 4B 20 44  |ALIZE THE DISK D|
000000C0: 52 49 56 45 2E 00 F3 08  64 00 4E 4D 24 B2 22 47  |RIVE....d.NM$."G|
000000D0: 41 4D 45 53 22 3A 8F 20  20 4D 41 58 49 4D 55 4D  |AMES":.  MAXIMUM|
000000E0: 20 31 36 20 43 48 41 52  41 43 54 45 52 20 4E 41  | 16 CHARACTER NA|
000000F0: 4D 45 2E 00 0F 09 69 00  8B C3 28 4E 4D 24 29 B1  |ME....i...(NM$).|
00000100: 30 AF C3 28 4E 4D 24 29  B3 31 37 A7 31 31 30 00  |0..(NM$).17.110.|
00000110: 1F 09 6A 00 99 22 91 91  91 22 3A 89 31 30 30 00  |..j.."...":.100.|
00000120: 3C 09 6E 00 4C 4E B2 31  30 30 3A 8F 20 20 20 20  |<.n.LN.100:.    |
00000130: 4D 41 58 49 4D 55 4D 20  32 35 34 2E 00 5A 09 6F  |MAXIMUM 254..Z.o|
00000140: 00 4C 4E B2 B5 28 4C 4E  29 3A 8B 4C 4E B1 30 AF  |.LN..(LN):.LN.0.|
00000150: 4C 4E B3 32 35 35 A7 31  31 35 00 6A 09 70 00 99  |LN.255.115.j.p..|
00000160: 22 91 91 91 22 3A 89 31  31 30 00 8E 09 73 00 99  |"...":.110...s..|
00000170: 22 93 22 3A 99 22 20 20  20 20 20 20 20 20 20 20  |".":."          |
00000180: 20 20 20 20 20 2A 20 4D  45 4E 59 20 2A 22 00 A5  |     * MENY *"..|
00000190: 09 78 00 99 22 11 44 4F  20 59 4F 55 20 57 41 4E  |.x..".DO YOU WAN|
000001A0: 54 20 54 4F 22 00 BA 09  7A 00 99 22 12 52 92 45  |T TO"...z..".R.E|
000001B0: 41 44 20 41 20 47 41 4D  45 22 00 D0 09 7C 00 99  |AD A GAME"...|..|
000001C0: 22 12 57 92 52 49 54 45  20 41 20 47 41 4D 45 22  |".W.RITE A GAME"|
000001D0: 00 E8 09 7D 00 99 22 12  47 92 41 4D 45 20 53 45  |...}..".G.AME SE|
000001E0: 41 52 43 48 49 4E 47 22  00 FF 09 7E 00 99 22 12  |ARCHING"...~..".|
000001F0: 53 92 45 54 20 55 50 20  41 20 46 49 4C 45 22 00  |S.ET UP A FILE".|
00000200: 12 0A 7F 00 99 22 12 44  92 49 52 45 43 54 4F 52  |.....".D.IRECTOR|
00000210: 59 22 00 23 0A 80 00 99  22 4F 52 20 12 51 92 55  |Y".#...."OR .Q.U|
00000220: 49 54 22 00 37 0A 81 00  A1 20 41 24 3A 8B 41 24  |IT".7.... A$:.A$|
00000230: B2 22 22 A7 31 32 39 00  4A 0A 82 00 8B 20 41 24  |."".129.J.... A$|
00000240: B2 22 52 22 20 A7 20 32  30 30 00 5D 0A 8C 00 8B  |."R" . 200.]....|
00000250: 20 41 24 B2 22 57 22 20  A7 20 34 30 30 00 70 0A  | A$."W" . 400.p.|
00000260: 96 00 8B 20 41 24 B2 22  53 22 20 A7 20 36 30 30  |... A$."S" . 600|
00000270: 00 83 0A A0 00 8B 20 41  24 B2 22 51 22 20 A7 20  |...... A$."Q" . |
00000280: 38 30 30 00 97 0A A2 00  8B 20 41 24 B2 22 47 22  |800...... A$."G"|
00000290: 20 A7 20 37 31 33 30 00  AA 0A A5 00 8B 20 41 24  | . 7130...... A$|
000002A0: B2 22 44 22 A7 20 36 32  31 30 00 E2 0A AA 00 99  |."D". 6210......|
000002B0: 22 54 59 50 45 20 41 4E  20 27 52 27 20 27 57 27  |"TYPE AN 'R' 'W'|
000002C0: 20 27 53 27 20 27 44 27  20 4F 52 20 27 51 27 20  | 'S' 'D' OR 'Q' |
000002D0: 22 3A 81 41 B2 31 A4 33  30 30 30 3A 82 3A 89 31  |":.A.1.3000:.:.1|
000002E0: 31 35 00 E8 0A BE 00 3A  00 F2 0A C8 00 89 39 30  |15.....:......90|
000002F0: 30 30 00 25 0B D2 00 9F  31 35 2C 38 2C 31 35 20  |00.%....15,8,15 |
00000300: 20 20 20 20 20 20 20 20  20 20 3A 8F 20 4F 50 45  |          :. OPE|
00000310: 4E 20 54 48 45 20 43 4F  4D 4D 41 4E 44 20 43 48  |N THE COMMAND CH|
00000320: 41 4E 4E 45 4C 00 4C 0B  DC 00 8D 20 35 30 30 30  |ANNEL.L.... 5000|
00000330: 20 3A 8F 20 20 43 48 45  43 4B 20 54 48 45 20 45  | :.  CHECK THE E|
00000340: 52 52 4F 52 20 43 48 41  4E 4E 45 4C 00 6E 0B E6  |RROR CHANNEL.n..|
00000350: 00 9F 38 2C 38 2C 38 2C  22 30 3A 22 AA 28 4E 4D  |..8,8,8,"0:".(NM|
00000360: 24 29 AA 22 2C 4C 2C 22  AA C7 28 4C 4E 29 00 95  |$).",L,"..(LN)..|
00000370: 0B F0 00 8D 20 35 30 30  30 20 3A 8F 20 20 43 48  |.... 5000 :.  CH|
00000380: 45 43 4B 20 54 48 45 20  45 52 52 4F 52 20 43 48  |ECK THE ERROR CH|
00000390: 41 4E 4E 45 4C 00 AF 0B  FA 00 85 22 52 45 41 44  |ANNEL......"READ|
000003A0: 20 57 48 41 54 20 47 41  4D 45 22 3B 53 41 24 00  | WHAT GAME";SA$.|
000003B0: BE 0B FF 00 81 52 4E B2  31 A4 31 30 30 30 00 F6  |.....RN.1.1000..|
000003C0: 0B 04 01 8D 31 30 30 30  20 3A 8F 20 20 43 41 4C  |....1000 :.  CAL|
000003D0: 43 55 4C 41 54 45 20 54  48 45 20 4C 4F 57 20 42  |CULATE THE LOW B|
000003E0: 59 54 45 2F 48 49 47 48  20 42 59 54 45 20 50 4F  |YTE/HIGH BYTE PO|
000003F0: 49 4E 54 45 52 2E 00 30  0C 0E 01 98 31 35 2C 22  |INTER..0....15,"|
00000400: 50 22 AA C7 28 39 36 AA  38 29 AA C7 28 52 4C 29  |P"..(96.8)..(RL)|
00000410: AA C7 28 52 48 29 AA C7  28 31 29 20 3A 8F 20 20  |..(RH)..(1) :.  |
00000420: 50 4F 53 49 54 49 4F 4E  20 43 4F 4D 4D 41 4E 44  |POSITION COMMAND|
00000430: 00 57 0C 18 01 8D 20 35  30 30 30 20 3A 8F 20 20  |.W.... 5000 :.  |
00000440: 43 48 45 43 4B 20 54 48  45 20 45 52 52 4F 52 20  |CHECK THE ERROR |
00000450: 43 48 41 4E 4E 45 4C 00  81 0C 1D 01 8B 20 45 B2  |CHANNEL...... E.|
00000460: 31 30 30 30 A7 99 22 54  48 45 20 4E 55 4D 42 45  |1000.."THE NUMBE|
00000470: 52 20 54 4F 4F 20 4C 41  52 47 45 22 3A 89 33 33  |R TOO LARGE":.33|
00000480: 36 00 AB 0C 22 01 84 38  2C 41 41 24 2C 42 42 24  |6..."..8,AA$,BB$|
00000490: 2C 43 43 24 3A 8F 20 20  52 45 41 44 20 49 4E 20  |,CC$:.  READ IN |
000004A0: 54 48 45 20 46 49 45 4C  44 53 2E 00 D2 0C 2C 01  |THE FIELDS....,.|
000004B0: 8D 20 35 30 30 30 20 3A  8F 20 20 43 48 45 43 4B  |. 5000 :.  CHECK|
000004C0: 20 54 48 45 20 45 52 52  4F 52 20 43 48 41 4E 4E  | THE ERROR CHANN|
000004D0: 45 4C 00 E5 0C 2E 01 8B  20 41 41 24 B2 22 22 A7  |EL...... AA$."".|
000004E0: 89 37 30 30 30 00 F8 0C  31 01 8B 20 53 41 24 B3  |.7000...1.. SA$.|
000004F0: B1 41 41 24 A7 82 52 4E  00 17 0D 36 01 99 22 93  |.AA$..RN...6..".|
00000500: 11 4E 55 4D 42 45 52 22  3B 52 4E 3B 22 43 4F 4E  |.NUMBER";RN;"CON|
00000510: 54 41 49 4E 53 3A 22 00  32 0D 3B 01 99 22 20 20  |TAINS:".2.;.."  |
00000520: 20 20 4E 41 4D 4E 20 20  20 20 20 3A 20 22 3B 41  |  NAMN     : ";A|
00000530: 41 24 00 4D 0D 40 01 99  22 20 20 20 20 50 52 49  |A$.M.@.."    PRI|
00000540: 53 20 20 20 20 20 3A 20  22 3B 42 42 24 00 68 0D  |S     : ";BB$.h.|
00000550: 45 01 99 22 20 20 20 54  2F 44 20 4E 52 20 20 20  |E.."   T/D NR   |
00000560: 20 3A 20 22 3B 43 43 24  00 A5 0D 50 01 98 31 35  | : ";CC$...P..15|
00000570: 2C 22 50 22 AA C7 28 39  36 AA 38 29 AA C7 28 52  |,"P"..(96.8)..(R|
00000580: 4C 29 AA C7 28 52 48 29  AA C7 28 31 29 3A 8F 20  |L)..(RH)..(1):. |
00000590: 20 52 45 50 4F 53 49 54  27 4E 20 46 4F 52 20 53  | REPOSIT'N FOR S|
000005A0: 41 46 45 54 59 00 CC 0D  51 01 8D 20 35 30 30 30  |AFETY...Q.. 5000|
000005B0: 20 3A 8F 20 20 43 48 45  43 4B 20 54 48 45 20 45  | :.  CHECK THE E|
000005C0: 52 52 4F 52 20 43 48 41  4E 4E 45 4C 00 EA 0D 54  |RROR CHANNEL...T|
000005D0: 01 85 22 11 52 45 41 44  20 41 4E 4F 54 48 45 52  |..".READ ANOTHER|
000005E0: 20 4E 41 4D 45 20 22 3B  41 24 00 FB 0D 5E 01 8B  | NAME ";A$...^..|
000005F0: 20 41 24 B2 22 59 22 A7  32 35 30 00 1E 0E 68 01  | A$."Y".250...h.|
00000600: A0 38 3A A0 31 35 3A 89  31 31 35 20 3A 8F 20 20  |.8:.15:.115 :.  |
00000610: 47 4F 20 54 4F 20 54 48  45 20 4D 45 4E 55 00 24  |GO TO THE MENU.$|
00000620: 0E 86 01 3A 00 5A 0E 90  01 8F 20 20 54 48 49 53  |...:.Z....  THIS|
00000630: 20 53 45 43 54 49 4F 4E  20 50 4F 53 49 54 49 4F  | SECTION POSITIO|
00000640: 4E 53 20 54 4F 20 41 4E  44 20 57 52 49 54 45 53  |NS TO AND WRITES|
00000650: 20 41 20 52 45 43 4F 52  44 2E 00 8D 0E 9A 01 9F  | A RECORD.......|
00000660: 31 35 2C 38 2C 31 35 20  20 20 20 20 20 20 20 20  |15,8,15         |
00000670: 20 20 3A 8F 20 4F 50 45  4E 20 54 48 45 20 43 4F  |  :. OPEN THE CO|
00000680: 4D 4D 41 4E 44 20 43 48  41 4E 4E 45 4C 00 B4 0E  |MMAND CHANNEL...|
00000690: 9F 01 8D 20 35 30 30 30  20 3A 8F 20 20 43 48 45  |... 5000 :.  CHE|
000006A0: 43 4B 20 54 48 45 20 45  52 52 4F 52 20 43 48 41  |CK THE ERROR CHA|
000006B0: 4E 4E 45 4C 00 FB 0E A4  01 9F 38 2C 38 2C 38 2C  |NNEL......8,8,8,|
000006C0: 22 30 3A 22 AA 28 4E 4D  24 29 AA 22 2C 4C 2C 22  |"0:".(NM$).",L,"|
000006D0: AA C7 28 4C 4E 29 20 3A  8F 20 20 4F 50 45 4E 20  |..(LN) :.  OPEN |
000006E0: 46 49 4C 45 20 57 49 54  48 20 52 45 43 4F 52 44  |FILE WITH RECORD|
000006F0: 20 4C 45 4E 47 54 48 20  4C 4E 2E 00 22 0F AE 01  | LENGTH LN.."...|
00000700: 8D 20 35 30 30 30 20 3A  8F 20 20 43 48 45 43 4B  |. 5000 :.  CHECK|
00000710: 20 54 48 45 20 45 52 52  4F 52 20 43 48 41 4E 4E  | THE ERROR CHANN|
00000720: 45 4C 00 3F 0F B8 01 85  22 11 57 52 49 54 45 20  |EL.?....".WRITE |
00000730: 57 48 41 54 20 4E 55 4D  42 45 52 22 3B 52 4E 00  |WHAT NUMBER";RN.|
00000740: 87 0F BD 01 85 22 4E 41  4D 4E 22 3B 41 41 24 20  |....."NAMN";AA$ |
00000750: 20 20 20 20 20 20 3A 8F  20 20 43 48 41 4E 47 45  |      :.  CHANGE|
00000760: 20 54 48 45 20 50 52 4F  4D 50 54 53 20 54 4F 20  | THE PROMPTS TO |
00000770: 41 53 4B 20 46 4F 52 20  54 48 45 20 44 41 54 41  |ASK FOR THE DATA|
00000780: 20 4E 45 45 44 45 44 00  BE 0F C2 01 85 22 50 52  | NEEDED......"PR|
00000790: 49 53 22 3B 42 42 24 20  20 20 20 3A 8F 20 20 49  |IS";BB$    :.  I|
000007A0: 4E 20 59 4F 55 52 20 50  41 52 54 49 43 55 4C 41  |N YOUR PARTICULA|
000007B0: 52 20 41 50 50 4C 49 43  41 54 49 4F 4E 2E 00 00  |R APPLICATION...|
000007C0: 10 C7 01 85 22 54 2F 44  20 4E 52 22 3B 43 43 24  |...."T/D NR";CC$|
000007D0: 20 20 20 3A 8F 20 41 4E  59 4E 55 4D 42 45 52 20  |   :. ANYNUMBER |
000007E0: 4F 46 20 46 49 45 4C 44  53 20 43 41 4E 20 42 45  |OF FIELDS CAN BE|
000007F0: 20 55 53 45 44 20 41 53  20 4C 4F 4E 47 20 41 53  | USED AS LONG AS|
00000800: 00 1C 10 E0 01 52 43 24  B2 41 41 24 AA 4C 4C 24  |.....RC$.AA$.LL$|
00000810: AA 42 42 24 AA 4C 4C 24  AA 43 43 24 00 5F 10 EA  |.BB$.LL$.CC$._..|
00000820: 01 8F 20 20 52 43 24 20  49 53 20 54 48 45 20 53  |..  RC$ IS THE S|
00000830: 54 52 49 4E 47 20 43 4F  4E 54 41 49 4E 49 4E 47  |TRING CONTAINING|
00000840: 20 41 4C 4C 20 54 48 45  20 46 49 45 4C 44 53 20  | ALL THE FIELDS |
00000850: 46 4F 52 20 54 48 45 20  52 45 43 4F 52 44 2E 00  |FOR THE RECORD..|
00000860: 99 10 F4 01 8F 20 20 52  45 4D 45 4D 42 45 52 20  |.....  REMEMBER |
00000870: 54 48 45 20 4D 41 58 20  4C 45 4E 47 54 48 20 46  |THE MAX LENGTH F|
00000880: 4F 52 20 52 43 24 20 49  53 20 32 35 34 20 43 48  |OR RC$ IS 254 CH|
00000890: 41 52 41 43 54 45 52 53  2E 00 D1 10 FE 01 8D 31  |ARACTERS.......1|
000008A0: 30 30 30 20 3A 8F 20 20  43 41 4C 43 55 4C 41 54  |000 :.  CALCULAT|
000008B0: 45 20 54 48 45 20 4C 4F  57 20 42 59 54 45 2F 48  |E THE LOW BYTE/H|
000008C0: 49 47 48 20 42 59 54 45  20 50 4F 49 4E 54 45 52  |IGH BYTE POINTER|
000008D0: 2E 00 0B 11 08 02 98 31  35 2C 22 50 22 AA C7 28  |.......15,"P"..(|
000008E0: 39 36 AA 38 29 AA C7 28  52 4C 29 AA C7 28 52 48  |96.8)..(RL)..(RH|
000008F0: 29 AA C7 28 31 29 20 3A  8F 20 20 50 4F 53 49 54  |)..(1) :.  POSIT|
00000900: 49 4F 4E 20 43 4F 4D 4D  41 4E 44 00 32 11 12 02  |ION COMMAND.2...|
00000910: 8D 20 35 30 30 30 20 3A  8F 20 20 43 48 45 43 4B  |. 5000 :.  CHECK|
00000920: 20 54 48 45 20 45 52 52  4F 52 20 43 48 41 4E 4E  | THE ERROR CHANN|
00000930: 45 4C 00 62 11 17 02 8B  20 45 B2 35 30 20 A7 99  |EL.b.... E.50 ..|
00000940: 22 54 48 45 20 44 4F 53  20 57 49 4C 4C 20 45 58  |"THE DOS WILL EX|
00000950: 50 41 4E 44 20 54 48 45  20 46 49 4C 45 20 4E 4F  |PAND THE FILE NO|
00000960: 57 22 00 83 11 1C 02 98  38 2C 52 43 24 20 20 3A  |W"......8,RC$  :|
00000970: 8F 20 20 57 52 49 54 45  20 54 48 45 20 52 45 43  |.  WRITE THE REC|
00000980: 4F 52 44 00 AA 11 26 02  8D 20 35 30 30 30 20 3A  |ORD...&.. 5000 :|
00000990: 8F 20 20 43 48 45 43 4B  20 54 48 45 20 45 52 52  |.  CHECK THE ERR|
000009A0: 4F 52 20 43 48 41 4E 4E  45 4C 00 E7 11 2B 02 98  |OR CHANNEL...+..|
000009B0: 31 35 2C 22 50 22 AA C7  28 39 36 AA 38 29 AA C7  |15,"P"..(96.8)..|
000009C0: 28 52 4C 29 AA C7 28 52  48 29 AA C7 28 31 29 20  |(RL)..(RH)..(1) |
000009D0: 3A 8F 20 52 45 50 4F 53  49 54 27 4E 20 46 4F 52  |:. REPOSIT'N FOR|
000009E0: 20 53 41 46 45 54 59 00  0E 12 2C 02 8D 20 35 30  | SAFETY...,.. 50|
000009F0: 30 30 20 3A 8F 20 20 43  48 45 43 4B 20 54 48 45  |00 :.  CHECK THE|
00000A00: 20 45 52 52 4F 52 20 43  48 41 4E 4E 45 4C 00 2B  | ERROR CHANNEL.+|
00000A10: 12 30 02 85 22 57 52 49  54 45 20 41 4E 4F 54 48  |.0.."WRITE ANOTH|
00000A20: 45 52 20 4E 41 4D 45 22  3B 41 24 00 3C 12 3A 02  |ER NAME";A$.<.:.|
00000A30: 8B 20 41 24 B2 22 59 22  A7 34 33 30 00 5F 12 44  |. A$."Y".430._.D|
00000A40: 02 A0 38 3A A0 31 35 3A  89 31 31 35 20 3A 8F 20  |..8:.15:.115 :. |
00000A50: 20 47 4F 20 54 4F 20 54  48 45 20 4D 45 4E 55 00  | GO TO THE MENU.|
00000A60: 65 12 4E 02 3A 00 AC 12  58 02 8F 20 20 54 48 49  |e.N.:...X..  THI|
00000A70: 53 20 53 45 43 54 49 4F  4E 20 50 4F 53 49 54 49  |S SECTION POSITI|
00000A80: 4F 4E 53 20 54 4F 20 41  4E 44 20 57 52 49 54 45  |ONS TO AND WRITE|
00000A90: 53 20 54 48 45 20 48 49  47 48 45 53 54 20 52 45  |S THE HIGHEST RE|
00000AA0: 43 4F 52 44 20 4E 55 4D  42 45 52 2E 00 F4 12 62  |CORD NUMBER....b|
00000AB0: 02 8F 20 20 41 4C 54 48  4F 55 47 48 20 4E 4F 54  |..  ALTHOUGH NOT|
00000AC0: 20 45 4E 54 49 52 45 4C  59 20 4E 45 43 45 53 53  | ENTIRELY NECESS|
00000AD0: 41 52 59 2C 20 57 52 49  54 49 4E 47 20 41 4E 44  |ARY, WRITING AND|
00000AE0: 20 55 50 44 41 54 49 4E  47 20 4C 4F 4E 47 20 46  | UPDATING LONG F|
00000AF0: 49 4C 45 53 00 38 13 6C  02 8F 20 20 49 53 20 53  |ILES.8.l..  IS S|
00000B00: 50 45 45 44 45 44 20 57  48 45 4E 20 54 48 49 53  |PEEDED WHEN THIS|
00000B10: 20 50 52 4F 43 45 44 55  52 45 20 49 53 20 55 53  | PROCEDURE IS US|
00000B20: 45 44 2E 20 20 54 48 49  53 20 57 49 4C 4C 20 43  |ED.  THIS WILL C|
00000B30: 41 55 53 45 20 54 48 45  00 7F 13 76 02 8F 20 20  |AUSE THE...v..  |
00000B40: 44 4F 53 20 53 49 44 45  20 53 45 43 54 4F 52 20  |DOS SIDE SECTOR |
00000B50: 4C 49 53 54 20 54 4F 20  42 45 20 43 52 45 41 54  |LIST TO BE CREAT|
00000B60: 45 44 20 45 4E 54 49 52  45 4C 59 20 41 54 20 54  |ED ENTIRELY AT T|
00000B70: 48 45 20 53 54 41 52 54  20 52 41 54 48 45 52 00  |HE START RATHER.|
00000B80: BD 13 80 02 8F 20 20 54  48 41 4E 20 42 45 49 4E  |.....  THAN BEIN|
00000B90: 47 20 41 50 50 45 4E 44  45 44 20 46 4F 52 20 45  |G APPENDED FOR E|
00000BA0: 41 43 48 20 4E 45 57 20  48 49 47 48 45 52 20 52  |ACH NEW HIGHER R|
00000BB0: 45 43 4F 52 44 20 4E 55  4D 42 45 52 2E 00 F0 13  |ECORD NUMBER....|
00000BC0: 8A 02 9F 31 35 2C 38 2C  31 35 20 20 20 20 20 20  |...15,8,15      |
00000BD0: 20 20 20 20 20 3A 8F 20  4F 50 45 4E 20 54 48 45  |     :. OPEN THE|
00000BE0: 20 43 4F 4D 4D 41 4E 44  20 43 48 41 4E 4E 45 4C  | COMMAND CHANNEL|
00000BF0: 00 17 14 94 02 8D 20 35  30 30 30 20 3A 8F 20 20  |...... 5000 :.  |
00000C00: 43 48 45 43 4B 20 54 48  45 20 45 52 52 4F 52 20  |CHECK THE ERROR |
00000C10: 43 48 41 4E 4E 45 4C 00  5E 14 9E 02 9F 38 2C 38  |CHANNEL.^....8,8|
00000C20: 2C 38 2C 22 30 3A 22 AA  28 4E 4D 24 29 AA 22 2C  |,8,"0:".(NM$).",|
00000C30: 4C 2C 22 AA C7 28 4C 4E  29 20 3A 8F 20 20 4F 50  |L,"..(LN) :.  OP|
00000C40: 45 4E 20 46 49 4C 45 20  57 49 54 48 20 52 45 43  |EN FILE WITH REC|
00000C50: 4F 52 44 20 4C 45 4E 47  54 48 20 4C 4E 2E 00 85  |ORD LENGTH LN...|
00000C60: 14 A8 02 8D 20 35 30 30  30 20 3A 8F 20 20 43 48  |.... 5000 :.  CH|
00000C70: 45 43 4B 20 54 48 45 20  45 52 52 4F 52 20 43 48  |ECK THE ERROR CH|
00000C80: 41 4E 4E 45 4C 00 AD 14  B2 02 99 22 11 57 48 41  |ANNEL......".WHA|
00000C90: 54 20 49 53 20 54 48 45  20 48 49 47 48 45 53 54  |T IS THE HIGHEST|
00000CA0: 20 4E 41 4D 45 20 4E 55  4D 42 45 52 22 00 C7 14  | NAME NUMBER"...|
00000CB0: B7 02 85 22 59 4F 55 20  57 41 4E 54 20 54 4F 20  |..."YOU WANT TO |
00000CC0: 55 53 45 22 3B 52 4E 00  FF 14 BC 02 8D 31 30 30  |USE";RN......100|
00000CD0: 30 20 3A 8F 20 20 43 41  4C 43 55 4C 41 54 45 20  |0 :.  CALCULATE |
00000CE0: 54 48 45 20 4C 4F 57 20  42 59 54 45 2F 48 49 47  |THE LOW BYTE/HIG|
00000CF0: 48 20 42 59 54 45 20 50  4F 49 4E 54 45 52 2E 00  |H BYTE POINTER..|
00000D00: 39 15 C6 02 98 31 35 2C  22 50 22 AA C7 28 39 36  |9....15,"P"..(96|
00000D10: AA 38 29 AA C7 28 52 4C  29 AA C7 28 52 48 29 AA  |.8)..(RL)..(RH).|
00000D20: C7 28 31 29 20 3A 8F 20  20 50 4F 53 49 54 49 4F  |.(1) :.  POSITIO|
00000D30: 4E 20 43 4F 4D 4D 41 4E  44 00 60 15 D0 02 8D 20  |N COMMAND.`.... |
00000D40: 35 30 30 30 20 3A 8F 20  20 43 48 45 43 4B 20 54  |5000 :.  CHECK T|
00000D50: 48 45 20 45 52 52 4F 52  20 43 48 41 4E 4E 45 4C  |HE ERROR CHANNEL|
00000D60: 00 90 15 D5 02 8B 20 45  B2 35 30 20 A7 99 22 54  |...... E.50 .."T|
00000D70: 48 45 20 44 4F 53 20 57  49 4C 4C 20 45 58 50 41  |HE DOS WILL EXPA|
00000D80: 4E 44 20 54 48 45 20 46  49 4C 45 20 4E 4F 57 22  |ND THE FILE NOW"|
00000D90: 00 A1 15 DA 02 98 38 2C  C7 28 32 35 35 29 20 3A  |......8,.(255) :|
00000DA0: 8F 00 C8 15 E4 02 8D 20  35 30 30 30 20 3A 8F 20  |....... 5000 :. |
00000DB0: 20 43 48 45 43 4B 20 54  48 45 20 45 52 52 4F 52  | CHECK THE ERROR|
00000DC0: 20 43 48 41 4E 4E 45 4C  00 05 16 E9 02 98 31 35  | CHANNEL......15|
00000DD0: 2C 22 50 22 AA C7 28 39  36 AA 38 29 AA C7 28 52  |,"P"..(96.8)..(R|
00000DE0: 4C 29 AA C7 28 52 48 29  AA C7 28 31 29 20 3A 8F  |L)..(RH)..(1) :.|
00000DF0: 20 52 45 50 4F 53 49 54  27 4E 20 46 4F 52 20 53  | REPOSIT'N FOR S|
00000E00: 41 46 45 54 59 00 2C 16  EA 02 8D 20 35 30 30 30  |AFETY.,.... 5000|
00000E10: 20 3A 8F 20 20 43 48 45  43 4B 20 54 48 45 20 45  | :.  CHECK THE E|
00000E20: 52 52 4F 52 20 43 48 41  4E 4E 45 4C 00 4F 16 EE  |RROR CHANNEL.O..|
00000E30: 02 A0 38 3A A0 31 35 3A  89 31 32 30 20 3A 8F 20  |..8:.15:.120 :. |
00000E40: 20 47 4F 20 54 4F 20 54  48 45 20 4D 45 4E 55 00  | GO TO THE MENU.|
00000E50: 5C 16 20 03 A0 38 3A A0  31 35 3A 80 00 98 16 E8  |\. ..8:.15:.....|
00000E60: 03 8F 20 20 54 48 49 53  20 53 55 42 52 4F 55 54  |..  THIS SUBROUT|
00000E70: 49 4E 45 20 43 41 4C 43  55 4C 41 54 45 53 20 54  |INE CALCULATES T|
00000E80: 48 45 20 52 45 43 4F 52  44 20 4E 55 4D 42 45 52  |HE RECORD NUMBER|
00000E90: 20 50 4F 49 4E 54 45 52  00 C1 16 F2 03 8F 20 20  | POINTER......  |
00000EA0: 49 4E 20 54 48 45 20 4C  4F 57 20 42 59 54 45 2F  |IN THE LOW BYTE/|
00000EB0: 48 49 47 48 20 42 59 54  45 20 46 4F 52 4D 41 54  |HIGH BYTE FORMAT|
00000EC0: 2E 00 FB 16 FC 03 8F 20  20 52 4E 20 28 52 45 43  |.......  RN (REC|
00000ED0: 4F 52 44 20 4E 55 4D 42  45 52 29 20 49 53 20 55  |ORD NUMBER) IS U|
00000EE0: 53 45 44 20 54 4F 20 43  41 4C 43 55 4C 41 54 45  |SED TO CALCULATE|
00000EF0: 20 52 4C 20 41 4E 44 20  52 48 2E 00 39 17 06 04  | RL AND RH..9...|
00000F00: 52 48 B2 B5 28 52 4E AD  32 35 36 29 3A 52 4C B2  |RH..(RN.256):RL.|
00000F10: 52 4E AB 28 32 35 36 AC  52 48 29 20 3A 20 8F 20  |RN.(256.RH) : . |
00000F20: 20 52 4C 20 49 53 20 4C  4F 57 20 2D 2D 20 52 48  | RL IS LOW -- RH|
00000F30: 20 49 53 20 48 49 47 48  2E 00 3F 17 10 04 8E 00  | IS HIGH..?.....|
00000F40: 79 17 88 13 8F 20 20 20  54 48 49 53 20 49 53 20  |y....   THIS IS |
00000F50: 54 48 45 20 44 49 53 4B  20 44 52 49 56 45 20 45  |THE DISK DRIVE E|
00000F60: 52 52 4F 52 20 43 48 45  43 4B 49 4E 47 20 53 55  |RROR CHECKING SU|
00000F70: 42 52 4F 55 54 49 4E 45  2E 00 A8 17 92 13 84 31  |BROUTINE.......1|
00000F80: 35 2C 45 2C 45 24 2C 41  2C 42 20 20 20 3A 8F 20  |5,E,E$,A,B   :. |
00000F90: 20 52 45 41 44 20 54 48  45 20 45 52 52 4F 52 20  | READ THE ERROR |
00000FA0: 43 48 41 4E 4E 45 4C 2E  00 D5 17 9C 13 8B 20 45  |CHANNEL....... E|
00000FB0: B2 30 20 A7 20 8E 20 20  3A 8F 20 20 54 48 45 52  |.0 . .  :.  THER|
00000FC0: 45 20 49 53 20 4E 4F 20  45 52 52 4F 52 20 49 46  |E IS NO ERROR IF|
00000FD0: 20 45 3D 30 2E 00 1B 18  A6 13 8F 20 20 20 45 3D  | E=0.......   E=|
00000FE0: 35 30 20 28 52 45 43 4F  52 44 20 4E 4F 54 20 50  |50 (RECORD NOT P|
00000FF0: 52 45 53 45 4E 54 29 20  41 4E 59 20 54 49 4D 45  |RESENT) ANY TIME|
00001000: 20 41 20 52 45 43 4F 52  44 20 4E 55 4D 42 45 52  | A RECORD NUMBER|
00001010: 20 50 4F 49 4E 54 45 52  20 49 53 00 58 18 B0 13  | POINTER IS.X...|
00001020: 8F 20 20 20 50 4F 53 49  54 49 4F 4E 45 44 20 42  |.   POSITIONED B|
00001030: 45 59 4F 4E 44 20 54 48  45 20 43 55 52 52 45 4E  |EYOND THE CURREN|
00001040: 54 20 48 49 47 48 45 53  54 20 52 45 43 4F 52 44  |T HIGHEST RECORD|
00001050: 20 4E 55 4D 42 45 52 2E  00 67 18 BA 13 8B 20 45  | NUMBER..g.... E|
00001060: B2 35 30 20 A7 20 8E 00  7A 18 BB 13 8B 20 45 B3  |.50 . ..z.... E.|
00001070: B1 35 31 20 A7 20 35 30  36 30 00 9F 18 BC 13 99  |.51 . 5060......|
00001080: 3A 99 22 45 52 52 4F 52  20 23 35 31 2C 20 52 45  |:."ERROR #51, RE|
00001090: 43 4F 52 44 20 54 4F 4F  20 4C 4F 4E 47 2E 22 00  |CORD TOO LONG.".|
000010A0: C7 18 BD 13 99 22 4D 41  58 49 4D 55 4D 20 4C 45  |....."MAXIMUM LE|
000010B0: 4E 47 54 48 20 49 53 22  4C 4E 22 43 48 41 52 41  |NGTH IS"LN"CHARA|
000010C0: 43 54 45 52 53 2E 22 00  EE 18 BE 13 99 22 52 45  |CTERS."......"RE|
000010D0: 54 55 52 4E 20 43 4F 55  4E 54 53 20 41 53 20 41  |TURN COUNTS AS A|
000010E0: 20 43 48 41 52 41 43 54  45 52 2E 22 3A 8E 00 0D  | CHARACTER.":...|
000010F0: 19 C4 13 99 22 54 48 45  52 45 20 49 53 20 41 4E  |...."THERE IS AN|
00001100: 20 49 2F 4F 20 50 52 4F  42 4C 45 4D 22 00 29 19  | I/O PROBLEM".).|
00001110: CE 13 99 22 45 52 52 4F  52 20 4E 55 4D 42 45 52  |..."ERROR NUMBER|
00001120: 20 49 53 22 3B 45 2C 45  24 00 49 19 D8 13 99 22  | IS";E,E$.I...."|
00001130: 41 54 20 54 52 41 43 4B  22 3B 41 3B 22 20 20 20  |AT TRACK";A;"   |
00001140: 53 45 43 54 4F 52 22 3B  42 00 80 19 E2 13 8B 20  |SECTOR";B...... |
00001150: 45 B2 37 30 20 A7 99 22  11 4D 41 4B 45 20 53 55  |E.70 ..".MAKE SU|
00001160: 52 45 20 59 4F 55 20 49  4E 50 55 54 20 54 48 45  |RE YOU INPUT THE|
00001170: 20 43 4F 52 52 45 43 54  20 52 45 43 4F 52 44 22  | CORRECT RECORD"|
00001180: 00 B1 19 EC 13 8B 20 45  B2 37 30 20 A7 99 22 4C  |...... E.70 .."L|
00001190: 45 4E 47 54 48 20 46 4F  52 20 41 4E 20 45 58 49  |ENGTH FOR AN EXI|
000011A0: 53 54 49 4E 47 20 46 49  4C 45 20 4E 41 4D 45 2E  |STING FILE NAME.|
000011B0: 22 00 BE 19 F6 13 A0 38  3A A0 31 35 3A 80 00 CB  |"......8:.15:...|
000011C0: 19 42 18 9F 31 35 2C 38  2C 31 35 00 EE 19 47 18  |.B..15,8,15...G.|
000011D0: 99 22 93 20 20 20 20 20  20 20 20 20 20 20 20 20  |.".             |
000011E0: 2A 20 44 49 52 45 43 54  4F 52 59 20 2A 22 00 15  |* DIRECTORY *"..|
000011F0: 1A 4C 18 8D 20 35 30 30  30 20 3A 8F 20 20 43 48  |.L.. 5000 :.  CH|
00001200: 45 43 4B 20 54 48 45 20  45 52 52 4F 52 20 43 48  |ECK THE ERROR CH|
00001210: 41 4E 4E 45 4C 00 37 1A  56 18 9F 38 2C 38 2C 38  |ANNEL.7.V..8,8,8|
00001220: 2C 22 30 3A 22 AA 28 4E  4D 24 29 AA 22 2C 4C 2C  |,"0:".(NM$).",L,|
00001230: 22 AA C7 28 4C 4E 29 00  5E 1A 60 18 8D 20 35 30  |"..(LN).^.`.. 50|
00001240: 30 30 20 3A 8F 20 20 43  48 45 43 4B 20 54 48 45  |00 :.  CHECK THE|
00001250: 20 45 52 52 4F 52 20 43  48 41 4E 4E 45 4C 00 70  | ERROR CHANNEL.p|
00001260: 1A 6A 18 81 20 52 4E B2  31 20 A4 20 31 30 30 30  |.j.. RN.1 . 1000|
00001270: 00 A8 1A 74 18 8D 31 30  30 30 20 3A 8F 20 20 43  |...t..1000 :.  C|
00001280: 41 4C 43 55 4C 41 54 45  20 54 48 45 20 4C 4F 57  |ALCULATE THE LOW|
00001290: 20 42 59 54 45 2F 48 49  47 48 20 42 59 54 45 20  | BYTE/HIGH BYTE |
000012A0: 50 4F 49 4E 54 45 52 2E  00 E2 1A 7E 18 98 31 35  |POINTER....~..15|
000012B0: 2C 22 50 22 AA C7 28 39  36 AA 38 29 AA C7 28 52  |,"P"..(96.8)..(R|
000012C0: 4C 29 AA C7 28 52 48 29  AA C7 28 31 29 20 3A 8F  |L)..(RH)..(1) :.|
000012D0: 20 20 50 4F 53 49 54 49  4F 4E 20 43 4F 4D 4D 41  |  POSITION COMMA|
000012E0: 4E 44 00 09 1B 88 18 8D  20 35 30 30 30 20 3A 8F  |ND...... 5000 :.|
000012F0: 20 20 43 48 45 43 4B 20  54 48 45 20 45 52 52 4F  |  CHECK THE ERRO|
00001300: 52 20 43 48 41 4E 4E 45  4C 00 1A 1B 8D 18 8B 20  |R CHANNEL...... |
00001310: 45 B2 52 4E A7 89 36 33  36 30 00 3C 1B 92 18 84  |E.RN..6360.<....|
00001320: 38 2C 41 41 24 3A 8F 20  20 52 45 41 44 20 49 4E  |8,AA$:.  READ IN|
00001330: 20 54 48 45 20 46 49 45  4C 44 53 2E 00 58 1B 9C  | THE FIELDS..X..|
00001340: 18 8D 20 35 30 30 30 20  3A 8B 20 41 41 24 B2 22  |.. 5000 :. AA$."|
00001350: 22 A7 20 89 36 33 36 30  00 72 1B AB 18 99 22 4E  |". .6360.r...."N|
00001360: 52 22 3B 52 4E 3B 22 4E  41 4D 45 3A 20 22 3B 41  |R";RN;"NAME: ";A|
00001370: 41 24 00 8E 1B C1 18 8D  20 35 30 30 30 20 3A 8B  |A$...... 5000 :.|
00001380: 20 41 41 24 B2 22 FF 22  A7 89 36 33 36 30 00 CE  | AA$."."..6360..|
00001390: 1B C4 18 8B 52 4E B2 32  30 B0 52 4E B2 34 30 B0  |....RN.20.RN.40.|
000013A0: 52 4E B2 36 30 B0 52 4E  B2 38 30 B0 52 4E B2 31  |RN.60.RN.80.RN.1|
000013B0: 30 30 B0 52 4E B2 31 32  30 B0 52 4E B2 31 34 30  |00.RN.120.RN.140|
000013C0: B0 52 4E B2 31 36 30 A7  89 20 36 35 30 30 00 11  |.RN.160.. 6500..|
000013D0: 1C C9 18 8B 20 52 4E B2  31 38 30 B0 52 4E B2 32  |.... RN.180.RN.2|
000013E0: 30 30 B0 52 4E B2 32 32  30 B0 52 4E B2 32 34 30  |00.RN.220.RN.240|
000013F0: B0 52 4E B2 32 36 30 B0  52 4E B2 32 38 30 B0 52  |.RN.260.RN.280.R|
00001400: 4E B2 33 30 30 B0 52 4E  B2 33 32 30 A7 36 35 30  |N.300.RN.320.650|
00001410: 30 00 54 1C CB 18 8B 20  52 4E B2 33 34 30 B0 52  |0.T.... RN.340.R|
00001420: 4E B2 33 36 30 B0 52 4E  B2 33 38 30 B0 52 4E B2  |N.360.RN.380.RN.|
00001430: 34 30 30 B0 52 4E B2 34  32 30 B0 52 4E B2 34 34  |400.RN.420.RN.44|
00001440: 30 B0 52 4E B2 34 36 30  B0 52 4E B2 34 38 30 A7  |0.RN.460.RN.480.|
00001450: 36 35 30 30 00 97 1C CC  18 8B 20 52 4E B2 35 30  |6500...... RN.50|
00001460: 30 B0 52 4E B2 35 32 30  B0 52 4E B2 35 34 30 B0  |0.RN.520.RN.540.|
00001470: 52 4E B2 35 36 30 B0 52  4E B2 35 38 30 B0 52 4E  |RN.560.RN.580.RN|
00001480: B2 36 30 30 B0 52 4E B2  36 32 30 B0 52 4E B2 36  |.600.RN.620.RN.6|
00001490: 34 30 A7 36 35 30 30 00  DA 1C CD 18 8B 20 52 4E  |40.6500...... RN|
000014A0: B2 36 36 30 B0 52 4E B2  36 38 30 B0 52 4E B2 37  |.660.RN.680.RN.7|
000014B0: 30 30 B0 52 4E B2 37 32  30 B0 52 4E B2 37 34 30  |00.RN.720.RN.740|
000014C0: B0 52 4E B2 37 36 30 B0  52 4E B2 37 38 30 B0 52  |.RN.760.RN.780.R|
000014D0: 4E B2 38 30 30 A7 36 35  30 30 00 E0 1C CE 18 82  |N.800.6500......|
000014E0: 00 F5 1C D8 18 99 22 50  52 45 53 53 20 41 4E 59  |......"PRESS ANY|
000014F0: 20 4B 45 59 22 00 0D 1D  D9 18 A1 20 41 24 3A 8B  | KEY"...... A$:.|
00001500: 20 41 24 B2 22 22 A7 20  89 36 33 36 31 00 34 1D  | A$."". .6361.4.|
00001510: DA 18 A0 38 3A A0 31 35  3A A1 41 24 3A 89 31 31  |...8:.15:.A$:.11|
00001520: 35 20 3A 8F 20 20 47 4F  20 54 4F 20 54 48 45 20  |5 :.  GO TO THE |
00001530: 4D 45 4E 55 00 5E 1D 64  19 99 22 50 52 45 53 53  |MENU.^.d.."PRESS|
00001540: 20 43 20 54 4F 20 43 4F  4E 54 55 49 4E 45 20 4F  | C TO CONTUINE O|
00001550: 52 20 42 20 46 4F 52 20  42 52 45 41 4B 22 00 67  |R B FOR BREAK".g|
00001560: 1D 65 19 A1 20 47 24 00  80 1D 66 19 8B 20 47 24  |.e.. G$...f.. G$|
00001570: B2 22 43 22 A7 99 22 93  22 3A 89 20 36 33 35 30  |."C"..".":. 6350|
00001580: 00 9A 1D 67 19 8B 20 47  24 B2 22 42 22 A7 A0 31  |...g.. G$."B"..1|
00001590: 35 3A A0 38 3A 89 20 31  31 35 00 A5 1D 68 19 89  |5:.8:. 115...h..|
000015A0: 20 36 35 30 31 00 CD 1D  58 1B 99 22 54 48 45 52  | 6501...X.."THER|
000015B0: 45 20 49 53 4E 27 54 20  41 20 47 41 4D 45 20 57  |E ISN'T A GAME W|
000015C0: 48 4F 45 53 20 4E 41 4D  45 20 49 53 22 00 D6 1D  |HOES NAME IS"...|
000015D0: 62 1B 99 53 41 24 00 DE  1D 6C 1B 89 31 35 00 0A  |b..SA$...l..15..|
000015E0: 1E DA 1B 85 22 93 57 52  49 54 45 20 54 48 45 20  |....".WRITE THE |
000015F0: 4C 45 54 54 45 52 28 53  29 22 3B 47 46 44 24 3A  |LETTER(S)";GFD$:|
00001600: 58 58 B2 C3 28 47 46 44  24 29 00 17 1E 2A 1C 9F  |XX..(GFD$)...*..|
00001610: 31 35 2C 38 2C 31 35 00  3E 1E 34 1C 8D 20 35 30  |15,8,15.>.4.. 50|
00001620: 30 30 20 3A 8F 20 20 43  48 45 43 4B 20 54 48 45  |00 :.  CHECK THE|
00001630: 20 45 52 52 4F 52 20 43  48 41 4E 4E 45 4C 00 60  | ERROR CHANNEL.`|
00001640: 1E 3E 1C 9F 38 2C 38 2C  38 2C 22 30 3A 22 AA 28  |.>..8,8,8,"0:".(|
00001650: 4E 4D 24 29 AA 22 2C 4C  2C 22 AA C7 28 4C 4E 29  |NM$).",L,"..(LN)|
00001660: 00 87 1E 48 1C 8D 20 35  30 30 30 20 3A 8F 20 20  |...H.. 5000 :.  |
00001670: 43 48 45 43 4B 20 54 48  45 20 45 52 52 4F 52 20  |CHECK THE ERROR |
00001680: 43 48 41 4E 4E 45 4C 00  99 1E 52 1C 81 20 52 4E  |CHANNEL...R.. RN|
00001690: B2 31 20 A4 20 31 30 30  30 00 D1 1E 5C 1C 8D 31  |.1 . 1000...\..1|
000016A0: 30 30 30 20 3A 8F 20 20  43 41 4C 43 55 4C 41 54  |000 :.  CALCULAT|
000016B0: 45 20 54 48 45 20 4C 4F  57 20 42 59 54 45 2F 48  |E THE LOW BYTE/H|
000016C0: 49 47 48 20 42 59 54 45  20 50 4F 49 4E 54 45 52  |IGH BYTE POINTER|
000016D0: 2E 00 0B 1F 66 1C 98 31  35 2C 22 50 22 AA C7 28  |....f..15,"P"..(|
000016E0: 39 36 AA 38 29 AA C7 28  52 4C 29 AA C7 28 52 48  |96.8)..(RL)..(RH|
000016F0: 29 AA C7 28 31 29 20 3A  8F 20 20 50 4F 53 49 54  |)..(1) :.  POSIT|
00001700: 49 4F 4E 20 43 4F 4D 4D  41 4E 44 00 32 1F 70 1C  |ION COMMAND.2.p.|
00001710: 8D 20 35 30 30 30 20 3A  8F 20 20 43 48 45 43 4B  |. 5000 :.  CHECK|
00001720: 20 54 48 45 20 45 52 52  4F 52 20 43 48 41 4E 4E  | THE ERROR CHANN|
00001730: 45 4C 00 43 1F 75 1C 8B  20 45 B2 52 4E A7 89 37  |EL.C.u.. E.RN..7|
00001740: 33 36 30 00 4E 1F 7A 1C  84 38 2C 41 41 24 00 60  |360.N.z..8,AA$.`|
00001750: 1F 7F 1C 41 4C 24 B2 C8  28 41 41 24 2C 58 58 29  |...AL$..(AA$,XX)|
00001760: 00 87 1F 84 1C 8D 20 35  30 30 30 20 3A 8F 20 20  |...... 5000 :.  |
00001770: 43 48 45 43 4B 20 54 48  45 20 45 52 52 4F 52 20  |CHECK THE ERROR |
00001780: 43 48 41 4E 4E 45 4C 00  AB 1F 89 1C 8B 47 46 44  |CHANNEL......GFD|
00001790: 24 B2 41 4C 24 A7 99 22  4E 52 22 3B 52 4E 3B 22  |$.AL$.."NR";RN;"|
000017A0: 4E 41 4D 45 3A 20 22 3B  41 41 24 00 C6 1F A9 1C  |NAME: ";AA$.....|
000017B0: 8D 20 35 30 30 30 3A 8B  41 41 24 B2 22 FF 22 A7  |. 5000:.AA$.".".|
000017C0: 20 89 37 35 31 30 00 CC  1F B6 1C 82 00 E1 1F C0  | .7510..........|
000017D0: 1C 99 22 50 52 45 53 53  20 41 4E 59 20 4B 45 59  |.."PRESS ANY KEY|
000017E0: 22 00 F9 1F C1 1C A1 20  41 24 3A 8B 20 41 24 B2  |"...... A$:. A$.|
000017F0: 22 22 A7 20 89 37 33 36  31 00 20 20 C2 1C A0 38  |"". .7361.  ...8|
00001800: 3A A0 31 35 3A A1 41 24  3A 89 31 31 35 20 3A 8F  |:.15:.A$:.115 :.|
00001810: 20 20 47 4F 20 54 4F 20  54 48 45 20 4D 45 4E 55  |  GO TO THE MENU|
00001820: 00 4A 20 4C 1D 99 22 50  52 45 53 53 20 43 20 54  |.J L.."PRESS C T|
00001830: 4F 20 43 4F 4E 54 55 49  4E 45 20 4F 52 20 42 20  |O CONTUINE OR B |
00001840: 46 4F 52 20 42 52 45 41  4B 22 00 53 20 4D 1D A1  |FOR BREAK".S M..|
00001850: 20 47 24 00 6C 20 4E 1D  8B 20 47 24 B2 22 43 22  | G$.l N.. G$."C"|
00001860: A7 99 22 93 22 3A 89 20  37 33 35 30 00 86 20 4F  |..".":. 7350.. O|
00001870: 1D 8B 20 47 24 B2 22 42  22 A7 A0 31 35 3A A0 38  |.. G$."B"..15:.8|
00001880: 3A 89 20 31 31 35 00 91  20 50 1D 89 20 37 35 30  |:. 115.. P.. 750|
00001890: 31 00 B8 20 56 1D 99 22  50 52 45 53 53 20 41 4E  |1.. V.."PRESS AN|
000018A0: 59 20 4B 45 59 20 54 4F  20 52 45 54 55 52 4E 20  |Y KEY TO RETURN |
000018B0: 54 4F 20 4D 45 4E 55 22  00 CD 20 60 1D A1 41 24  |TO MENU".. `..A$|
000018C0: 3A 8B 20 41 24 B2 22 22  A7 37 35 32 30 00 D8 20  |:. A$."".7520.. |
000018D0: 63 1D A0 31 35 3A A0 38  00 E1 20 6A 1D 89 31 31  |c..15:.8.. j..11|
000018E0: 35 00 14 21 B0 1D 9F 31  35 2C 38 2C 31 35 20 20  |5..!...15,8,15  |
000018F0: 20 20 20 20 20 20 20 20  20 3A 8F 20 4F 50 45 4E  |         :. OPEN|
00001900: 20 54 48 45 20 43 4F 4D  4D 41 4E 44 20 43 48 41  | THE COMMAND CHA|
00001910: 4E 4E 45 4C 00 3B 21 C4  1D 8D 20 35 30 30 30 20  |NNEL.;!... 5000 |
00001920: 3A 8F 20 20 43 48 45 43  4B 20 54 48 45 20 45 52  |:.  CHECK THE ER|
00001930: 52 4F 52 20 43 48 41 4E  4E 45 4C 00 5D 21 CE 1D  |ROR CHANNEL.]!..|
00001940: 9F 38 2C 38 2C 38 2C 22  30 3A 22 AA 28 4E 4D 24  |.8,8,8,"0:".(NM$|
00001950: 29 AA 22 2C 4C 2C 22 AA  C7 28 4C 4E 29 00 84 21  |).",L,"..(LN)..!|
00001960: D8 1D 8D 20 35 30 30 30  20 3A 8F 20 20 43 48 45  |... 5000 :.  CHE|
00001970: 43 4B 20 54 48 45 20 45  52 52 4F 52 20 43 48 41  |CK THE ERROR CHA|
00001980: 4E 4E 45 4C 00 9F 21 E2  1D 85 22 52 45 41 44 20  |NNEL..!..."READ |
00001990: 57 48 41 54 20 4E 55 4D  42 45 52 22 3B 52 4E 00  |WHAT NUMBER";RN.|
000019A0: D7 21 EC 1D 8D 31 30 30  30 20 3A 8F 20 20 43 41  |.!...1000 :.  CA|
000019B0: 4C 43 55 4C 41 54 45 20  54 48 45 20 4C 4F 57 20  |LCULATE THE LOW |
000019C0: 42 59 54 45 2F 48 49 47  48 20 42 59 54 45 20 50  |BYTE/HIGH BYTE P|
000019D0: 4F 49 4E 54 45 52 2E 00  11 22 F6 1D 98 31 35 2C  |OINTER..."...15,|
000019E0: 22 50 22 AA C7 28 39 36  AA 38 29 AA C7 28 52 4C  |"P"..(96.8)..(RL|
000019F0: 29 AA C7 28 52 48 29 AA  C7 28 31 29 20 3A 8F 20  |)..(RH)..(1) :. |
00001A00: 20 50 4F 53 49 54 49 4F  4E 20 43 4F 4D 4D 41 4E  | POSITION COMMAN|
00001A10: 44 00 38 22 00 1E 8D 20  35 30 30 30 20 3A 8F 20  |D.8"... 5000 :. |
00001A20: 20 43 48 45 43 4B 20 54  48 45 20 45 52 52 4F 52  | CHECK THE ERROR|
00001A30: 20 43 48 41 4E 4E 45 4C  00 63 22 05 1E 8B 20 45  | CHANNEL.c"... E|
00001A40: B2 31 30 30 30 A7 99 22  54 48 45 20 4E 55 4D 42  |.1000.."THE NUMB|
00001A50: 45 52 20 54 4F 4F 20 4C  41 52 47 45 22 3A 89 37  |ER TOO LARGE":.7|
00001A60: 36 33 36 00 8D 22 0A 1E  84 38 2C 41 41 24 2C 42  |636.."...8,AA$,B|
00001A70: 42 24 2C 43 43 24 3A 8F  20 20 52 45 41 44 20 49  |B$,CC$:.  READ I|
00001A80: 4E 20 54 48 45 20 46 49  45 4C 44 53 2E 00 B4 22  |N THE FIELDS..."|
00001A90: 14 1E 8D 20 35 30 30 30  20 3A 8F 20 20 43 48 45  |... 5000 :.  CHE|
00001AA0: 43 4B 20 54 48 45 20 45  52 52 4F 52 20 43 48 41  |CK THE ERROR CHA|
00001AB0: 4E 4E 45 4C 00 C7 22 16  1E 8B 20 41 41 24 B2 22  |NNEL.."... AA$."|
00001AC0: 22 A7 89 37 30 30 30 00  E6 22 1E 1E 99 22 93 11  |"..7000.."..."..|
00001AD0: 4E 55 4D 42 45 52 22 3B  52 4E 3B 22 43 4F 4E 54  |NUMBER";RN;"CONT|
00001AE0: 41 49 4E 53 3A 22 00 01  23 23 1E 99 22 20 20 20  |AINS:"..##.."   |
00001AF0: 20 4E 41 4D 4E 20 20 20  20 20 3A 20 22 3B 41 41  | NAMN     : ";AA|
00001B00: 24 00 1C 23 28 1E 99 22  20 20 20 20 50 52 49 53  |$..#(.."    PRIS|
00001B10: 20 20 20 20 20 3A 20 22  3B 42 42 24 00 37 23 2D  |     : ";BB$.7#-|
00001B20: 1E 99 22 20 20 20 54 2F  44 20 4E 52 20 20 20 20  |.."   T/D NR    |
00001B30: 3A 20 22 3B 43 43 24 00  74 23 38 1E 98 31 35 2C  |: ";CC$.t#8..15,|
00001B40: 22 50 22 AA C7 28 39 36  AA 38 29 AA C7 28 52 4C  |"P"..(96.8)..(RL|
00001B50: 29 AA C7 28 52 48 29 AA  C7 28 31 29 3A 8F 20 20  |)..(RH)..(1):.  |
00001B60: 52 45 50 4F 53 49 54 27  4E 20 46 4F 52 20 53 41  |REPOSIT'N FOR SA|
00001B70: 46 45 54 59 00 9B 23 39  1E 8D 20 35 30 30 30 20  |FETY..#9.. 5000 |
00001B80: 3A 8F 20 20 43 48 45 43  4B 20 54 48 45 20 45 52  |:.  CHECK THE ER|
00001B90: 52 4F 52 20 43 48 41 4E  4E 45 4C 00 B9 23 3C 1E  |ROR CHANNEL..#<.|
00001BA0: 85 22 11 52 45 41 44 20  41 4E 4F 54 48 45 52 20  |.".READ ANOTHER |
00001BB0: 4E 41 4D 45 20 22 3B 41  24 00 CB 23 46 1E 8B 20  |NAME ";A$..#F.. |
00001BC0: 41 24 B2 22 59 22 A7 37  36 35 30 00 EE 23 50 1E  |A$."Y".7650..#P.|
00001BD0: A0 38 3A A0 31 35 3A 89  31 31 35 20 3A 8F 20 20  |.8:.15:.115 :.  |
00001BE0: 47 4F 20 54 4F 20 54 48  45 20 4D 45 4E 55 00 F4  |GO TO THE MENU..|
00001BF0: 23 6E 1E 3A 00 1C 24 28  23 99 22 28 41 29 20 4E  |#n.:..$(#."(A) N|
00001C00: 41 4D 45 20 4F 52 20 28  42 29 20 4E 55 4D 42 45  |AME OR (B) NUMBE|
00001C10: 52 20 53 45 41 52 43 48  49 4E 47 22 00 30 24 2A  |R SEARCHING".0$*|
00001C20: 23 A1 41 24 3A 8B 41 24  B2 22 22 A7 39 30 30 32  |#.A$:.A$."".9002|
00001C30: 00 42 24 2C 23 8B 20 41  24 B2 22 41 22 A7 89 32  |.B$,#. A$."A"..2|
00001C40: 31 30 00 54 24 32 23 8B  41 24 B2 22 42 22 A7 89  |10.T$2#.A$."B"..|
00001C50: 37 36 30 30 00 5E 24 3C  23 89 39 30 30 32 00 00  |7600.^$<#.9002..|
00001C60: 00                                                |.               |

.."....".":.53280,0:.53281,0:.G(5).(.K..
.F.L.."..*RELATIVE FILE DEMO*"...P.LL$.G
(13)  :.  THIS IS THE FIELD DELIMITER US
ED WHEN WRITING RECORDS.E.Z..15,8,15,"I0
": 15 : .  INITIALIZE THE DISK DRIVE....
D.NM$."GAMES":.  MAXIMUM 16 CHARACTER NA
ME....I..C(NM$).0.C(NM$).17.110...J.."..
.":.100.<.N.LN.100:.    MAXIMUM 254..Z.O
.LN..(LN):.LN.0.LN.255.115.J.P.."...":.1
10...S..".":."               * MENY *"..
.X..".DO YOU WANT TO"...Z..".R.EAD A GAM
E".P.|..".W.RITE A GAME"...}..".G.AME SE
ARCHING"...~..".S.ET UP A FILE".....".D
.IRECTORY".#...."OR .Q.UIT".7.... A$:.A$
."".129.J.... A$."R" . 200.].... A$."W" 
. 400.P.... A$."S" . 600... .. A$."Q" . 
800...... A$."G" . 7130...... A$."D". 62
10......"TYPE AN 'R' 'W' 'S' 'D' OR 'Q' 
":.A.1.3000:.:.115.....:...H..9000.%.R..
15,8,15           :. OPEN THE COMMAND CH
ANNEL.L.... 5000 :.  CHECK THE ERROR CHA
NNEL.N....8,8,8,"0:".(NM$).",L,".G(LN)..
.... 5000 :.  CHECK THE ERROR CHANNEL...
..."READ WHAT GAME";SA$......RN.1.1000..
....1000 :.  CALCULATE THE LOW BYTE/HIGH
 BYTE POINTER..0....15,"P".G(96.8).G(RL)
.G(RH).G(1) :.  POSITION COMMAND.W.... 5
000 :.  CHECK THE ERROR CHANNEL...... E.
1000.."THE NUMBER TOO LARGE":.336..."..8
,AA$,BB$,CC$:.  READ IN THE FIELDS..R.,.
. 5000 :.  CHECK THE ERROR CHANNEL......
 AA$.""..7000...1.. SA$..AA$..RN...6..".
.NUMBER";RN;"CONTAINS:".2.;.."    NAMN  
   : ";AA$.M.@.."    PRIS     : ";BB$.H.
E.."   T/D NR    : ";CC$...P..15,"P".G(9
6.8).G(RL).G(RH).G(1):.  REPOSIT'N FOR S
AFETY.L.Q.. 5000 :.  CHECK THE ERROR CHA
NNEL...T..".READ ANOTHER NAME ";A$...^..
 A$."Y".250...H. 8: 15:.115 :.  GO TO TH
E MENU.$...:.Z....  THIS SECTION POSITIO
NS TO AND WRITES A RECORD.......15,8,15 
          :. OPEN THE COMMAND CHANNEL...
... 5000 :.  CHECK THE ERROR CHANNEL....
..8,8,8,"0:".(NM$).",L,".G(LN) :.  OPEN 
FILE WITH RECORD LENGTH LN..".... 5000 :
.  CHECK THE ERROR CHANNEL.?....".WRITE 
WHAT NUMBER";RN......"NAMN";AA$       :.
  CHANGE THE PROMPTS TO ASK FOR THE DATA
 NEEDED...B.."PRIS";BB$    :.  IN YOUR P
ARTICULAR APPLICATION....G.."T/D NR";CC$
   :. ANYNUMBER OF FIELDS CAN BE USED AS
 LONG AS.....RC$.AA$.LL$.BB$.LL$.CC$._..
..  RC$ IS THE STRING CONTAINING ALL THE
 FIELDS FOR THE RECORD.......  REMEMBER 
THE MAX LENGTH FOR RC$ IS 254 CHARACTERS
..Q....1000 :.  CALCULATE THE LOW BYTE/H
IGH BYTE POINTER.......15,"P".G(96.8).G(
RL).G(RH).G(1) :.  POSITION COMMAND.2...
. 5000 :.  CHECK THE ERROR CHANNEL.B....
 E.50 .."THE DOS WILL EXPAND THE FILE NO
W"......8,RC$  :.  WRITE THE RECORD...&.
. 5000 :.  CHECK THE ERROR CHANNEL...+..
15,"P".G(96.8).G(RL).G(RH).G(1) :. REPOS
IT'N FOR SAFETY...,.. 5000 :.  CHECK THE
 ERROR CHANNEL.+.0.."WRITE ANOTHER NAME"
;A$.<.:.. A$."Y".430._.D. 8: 15:.115 :. 
 GO TO THE MENU.E.N.:...X..  THIS SECTIO
N POSITIONS TO AND WRITES THE HIGHEST RE
CORD NUMBER....B..  ALTHOUGH NOT ENTIREL
Y NECESSARY, WRITING AND UPDATING LONG F
ILES.8.L..  IS SPEEDED WHEN THIS PROCEDU
RE IS USED.  THIS WILL CAUSE THE..V..  
DOS SIDE SECTOR LIST TO BE CREATED ENTIR
ELY AT THE START RATHER......  THAN BEIN
G APPENDED FOR EACH NEW HIGHER RECORD NU
MBER.......15,8,15           :. OPEN THE
 COMMAND CHANNEL...... 5000 :.  CHECK TH
E ERROR CHANNEL.^....8,8,8,"0:".(NM$).",
L,".G(LN) :.  OPEN FILE WITH RECORD LENG
TH LN....... 5000 :.  CHECK THE ERROR CH
ANNEL......".WHAT IS THE HIGHEST NAME NU
MBER".G...."YOU WANT TO USE";RN......100
0 :.  CALCULATE THE LOW BYTE/HIGH BYTE P
OINTER..9.F..15,"P".G(96.8).G(RL).G(RH).
G(1) :.  POSITION COMMAND.`.P.. 5000 :. 
 CHECK THE ERROR CHANNEL...U.. E.50 .."T
HE DOS WILL EXPAND THE FILE NOW"...Z..8,
G(255) :..H.... 5000 :.  CHECK THE ERROR
 CHANNEL......15,"P".G(96.8).G(RL).G(RH)
.G(1) :. REPOSIT'N FOR SAFETY.,.... 5000
 :.  CHECK THE ERROR CHANNEL.O... 8: 15:
.120 :.  GO TO THE MENU.\. . 8: 15:.....
..  THIS SUBROUTINE CALCULATES THE RECOR
D NUMBER POINTER.A....  IN THE LOW BYTE/
HIGH BYTE FORMAT.......  RN (RECORD NUMB
ER) IS USED TO CALCULATE RL AND RH..9...
RH..(RN.256):RL.RN.(256.RH) : .  RL IS L
OW -- RH IS HIGH..?.....Y....   THIS IS 
THE DISK DRIVE ERROR CHECKING SUBROUTINE
.......15,E,E$,A,B   :.  READ THE ERROR 
CHANNEL..U.... E.0 . .  :.  THERE IS NO 
ERROR IF E=0.......   E=50 (RECORD NOT P
RESENT) ANY TIME A RECORD NUMBER POINTER
 IS.X....   POSITIONED BEYOND THE CURREN
T HIGHEST RECORD NUMBER..G.... E.50 . ..
Z.... E..51 . 5060......:."ERROR #51, RE
CORD TOO LONG.".G...."MAXIMUM LENGTH IS"
LN"CHARACTERS."......"RETURN COUNTS AS A
 CHARACTER.":....D.."THERE IS AN I/O PRO
BLEM".).N.."ERROR NUMBER IS";E,E$.I.X.."
AT TRACK";A;"   SECTOR";B...... E.70 .."
.MAKE SURE YOU INPUT THE CORRECT RECORD"
...... E.70 .."LENGTH FOR AN EXISTING FI
LE NAME."..... 8: 15:..K.B..15,8,15...G.
.".             * DIRECTORY *"...L.. 500
0 :.  CHECK THE ERROR CHANNEL.7.V..8,8,8
,"0:".(NM$).",L,".G(LN).^.`.. 5000 :.  C
HECK THE ERROR CHANNEL.P.J.. RN.1 . 1000
...T..1000 :.  CALCULATE THE LOW BYTE/HI
GH BYTE POINTER....~..15,"P".G(96.8).G(R
L).G(RH).G(1) :.  POSITION COMMAND......
 5000 :.  CHECK THE ERROR CHANNEL...... 
E.RN..6360.<....8,AA$:.  READ IN THE FIE
LDS..X.... 5000 :. AA$."". .6360.R...."N
R";RN;"NAME: ";AA$...A.. 5000 :. AA$."."
..6360.N.D..RN.20.RN.40.RN.60.RN.80.RN.1
00.RN.120.RN.140.RN.160.. 6500...I.. RN.
180.RN.200.RN.220.RN.240.RN.260.RN.280.R
N.300.RN.320.6500.T.K.. RN.340.RN.360.RN
.380.RN.400.RN.420.RN.440.RN.460.RN.480.
6500...L.. RN.500.RN.520.RN.540.RN.560.R
N.580.RN.600.RN.620.RN.640.6500.Z.M.. RN
.660.RN.680.RN.700.RN.720.RN.740.RN.760.
RN.780.RN.800.6500...N.....X.."PRESS ANY
 KEY"...Y.. A$:. A$."". .6361.4.Z. 8: 15
:.A$:.115 :.  GO TO THE MENU.^.D.."PRESS
 C TO CONTUINE OR B FOR BREAK".G.E.. G$.
..F.. G$."C"..".":. 6350...G.. G$."B". 1
5: 8:. 115...H.. 6501.M.X.."THERE ISN'T 
A GAME WHOES NAME IS".V.B..SA$...L..15..
.Z..".WRITE THE LETTER(S)";GFD$:XX.C(GFD
$)...*..15,8,15.>.4.. 5000 :.  CHECK THE
 ERROR CHANNEL.`.>..8,8,8,"0:".(NM$).",L
,".G(LN)...H.. 5000 :.  CHECK THE ERROR 
CHANNEL...R.. RN.1 . 1000.Q.\..1000 :.  
CALCULATE THE LOW BYTE/HIGH BYTE POINTER
....F..15,"P".G(96.8).G(RL).G(RH).G(1) :
.  POSITION COMMAND.2.P.. 5000 :.  CHECK
 THE ERROR CHANNEL.C.U.. E.RN..7360.N.Z.
.8,AA$.`..AL$.H(AA$,XX)...... 5000 :.  
CHECK THE ERROR CHANNEL......GFD$.AL$.."
NR";RN;"NAME: ";AA$.F.... 5000:.AA$.".".
 .7510.L.........."PRESS ANY KEY"...A.. 
A$:. A$."". .7361.  B. 8: 15:.A$:.115 :.
  GO TO THE MENU.J L.."PRESS C TO CONTUI
NE OR B FOR BREAK".S M.. G$.L N.. G$."C"
..".":. 7350.. O.. G$."B". 15: 8:. 115..
 P.. 7501.. V.."PRESS ANY KEY TO RETURN 
TO MENU".M `..A$:. A$."".7520.X C. 15: 8
.. J..115..!...15,8,15           :. OPEN
 THE COMMAND CHANNEL.;!D.. 5000 :.  CHEC
K THE ERROR CHANNEL.]!N..8,8,8,"0:".(NM$
).",L,".G(LN)..!X.. 5000 :.  CHECK THE E
RROR CHANNEL..!..."READ WHAT NUMBER";RN.
W!...1000 :.  CALCULATE THE LOW BYTE/HIG
H BYTE POINTER..."...15,"P".G(96.8).G(RL
).G(RH).G(1) :.  POSITION COMMAND.8"... 
5000 :.  CHECK THE ERROR CHANNEL.C"... E
.1000.."THE NUMBER TOO LARGE":.7636.."..
.8,AA$,BB$,CC$:.  READ IN THE FIELDS..."
... 5000 :.  CHECK THE ERROR CHANNEL.G".
.. AA$.""..7000.."..."..NUMBER";RN;"CONT
AINS:"..##.."    NAMN     : ";AA$..#(.."
    PRIS     : ";BB$.7#-.."   T/D NR    
: ";CC$.T#8..15,"P".G(96.8).G(RL).G(RH).
G(1):.  REPOSIT'N FOR SAFETY..#9.. 5000 
:.  CHECK THE ERROR CHANNEL..#<..".READ 
ANOTHER NAME ";A$.K#F.. A$."Y".7650..#P.
 8: 15:.115 :.  GO TO THE MENU..#N.:..$(
#."(A) NAME OR (B) NUMBER SEARCHING".0$*
#.A$:.A$."".9002.B$,#. A$."A"..210.T$2#.
A$."B"..7600.^$<#.9002...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL