REL.FILE.DEMO

00000000: 01 04 27 10 28 00 8F 20  20 20 55 53 45 20 54 48  |..'.(..   USE TH|
00000010: 49 53 20 50 52 4F 47 52  41 4D 20 54 4F 20 4C 45  |IS PROGRAM TO LE|
00000020: 41 52 4E 20 48 4F 57 00  4E 10 32 00 8F 20 20 20  |ARN HOW.N.2..   |
00000030: 43 52 45 41 54 45 20 41  4E 44 20 55 53 45 20 52  |CREATE AND USE R|
00000040: 45 4C 41 54 49 56 45 20  46 49 4C 45 53 2E 00 74  |ELATIVE FILES..t|
00000050: 10 3C 00 8F 20 20 20 49  54 20 49 53 20 46 4C 45  |.<..   IT IS FLE|
00000060: 58 49 42 4C 45 20 45 4E  4F 55 47 48 20 46 4F 52  |XIBLE ENOUGH FOR|
00000070: 20 59 4F 55 00 9A 10 46  00 8F 20 20 20 54 4F 20  | YOU...F..   TO |
00000080: 43 55 53 54 4F 4D 49 5A  45 20 49 54 20 46 4F 52  |CUSTOMIZE IT FOR|
00000090: 20 59 4F 55 52 20 55 53  45 2E 00 A0 10 4B 00 8F  | YOUR USE....K..|
000000A0: 00 BE 10 4C 00 99 22 93  11 2A 52 45 4C 41 54 49  |...L.."..*RELATI|
000000B0: 56 45 20 46 49 4C 45 20  44 45 4D 4F 2A 22 00 07  |VE FILE DEMO*"..|
000000C0: 11 50 00 4C 4C 24 B2 C7  28 31 33 29 20 20 3A 8F  |.P.LL$..(13)  :.|
000000D0: 20 20 54 48 49 53 20 49  53 20 54 48 45 20 46 49  |  THIS IS THE FI|
000000E0: 45 4C 44 20 44 45 4C 49  4D 49 54 45 52 20 55 53  |ELD DELIMITER US|
000000F0: 45 44 20 57 48 45 4E 20  57 52 49 54 49 4E 47 20  |ED WHEN WRITING |
00000100: 52 45 43 4F 52 44 53 00  3D 11 5A 00 9F 31 35 2C  |RECORDS.=.Z..15,|
00000110: 38 2C 31 35 2C 22 49 30  22 3A A0 31 35 20 3A 20  |8,15,"I0":.15 : |
00000120: 8F 20 20 49 4E 49 54 49  41 4C 49 5A 45 20 54 48  |.  INITIALIZE TH|
00000130: 45 20 44 49 53 4B 20 44  52 49 56 45 2E 00 7F 11  |E DISK DRIVE....|
00000140: 64 00 85 22 11 57 48 41  54 20 49 53 20 54 48 45  |d..".WHAT IS THE|
00000150: 20 46 49 4C 45 20 4E 41  4D 45 22 3B 4E 4D 24 3A  | FILE NAME";NM$:|
00000160: 20 20 8F 20 20 4D 41 58  49 4D 55 4D 20 31 36 20  |  .  MAXIMUM 16 |
00000170: 43 48 41 52 41 43 54 45  52 20 4E 41 4D 45 2E 00  |CHARACTER NAME..|
00000180: 9B 11 69 00 8B C3 28 4E  4D 24 29 B1 30 AF C3 28  |..i...(NM$).0..(|
00000190: 4E 4D 24 29 B3 31 37 A7  31 31 30 00 AB 11 6A 00  |NM$).17.110...j.|
000001A0: 99 22 91 91 91 22 3A 89  31 30 30 00 ED 11 6E 00  |."...":.100...n.|
000001B0: 85 22 11 48 4F 57 20 4D  41 4E 59 20 43 48 41 52  |.".HOW MANY CHAR|
000001C0: 41 43 54 45 52 53 20 49  4E 20 45 41 43 48 20 52  |ACTERS IN EACH R|
000001D0: 45 43 4F 52 44 22 3B 4C  4E 20 20 3A 8F 20 20 20  |ECORD";LN  :.   |
000001E0: 20 4D 41 58 49 4D 55 4D  20 32 35 34 2E 00 0B 12  | MAXIMUM 254....|
000001F0: 6F 00 4C 4E B2 B5 28 4C  4E 29 3A 8B 4C 4E B1 30  |o.LN..(LN):.LN.0|
00000200: AF 4C 4E B3 32 35 35 A7  31 31 35 00 1B 12 70 00  |.LN.255.115...p.|
00000210: 99 22 91 91 91 22 3A 89  31 31 30 00 21 12 73 00  |."...":.110.!.s.|
00000220: 99 00 38 12 78 00 99 22  11 44 4F 20 59 4F 55 20  |..8.x..".DO YOU |
00000230: 57 41 4E 54 20 54 4F 22  00 4F 12 7A 00 99 22 12  |WANT TO".O.z..".|
00000240: 52 92 45 41 44 20 41 20  52 45 43 4F 52 44 22 00  |R.EAD A RECORD".|
00000250: 67 12 7C 00 99 22 12 57  92 52 49 54 45 20 41 20  |g.|..".W.RITE A |
00000260: 52 45 43 4F 52 44 22 00  7E 12 7E 00 99 22 12 53  |RECORD".~.~..".S|
00000270: 92 45 54 20 55 50 20 41  20 46 49 4C 45 22 00 92  |.ET UP A FILE"..|
00000280: 12 80 00 85 22 4F 52 20  12 51 92 55 49 54 22 3B  |...."OR .Q.UIT";|
00000290: 41 24 00 A5 12 82 00 8B  20 41 24 B2 22 52 22 20  |A$...... A$."R" |
000002A0: A7 20 32 30 30 00 B8 12  8C 00 8B 20 41 24 B2 22  |. 200...... A$."|
000002B0: 57 22 20 A7 20 34 30 30  00 CB 12 96 00 8B 20 41  |W" . 400...... A|
000002C0: 24 B2 22 53 22 20 A7 20  36 30 30 00 DE 12 A0 00  |$."S" . 600.....|
000002D0: 8B 20 41 24 B2 22 51 22  20 A7 20 38 30 30 00 07  |. A$."Q" . 800..|
000002E0: 13 AA 00 99 22 54 59 50  45 20 41 4E 20 27 52 27  |...."TYPE AN 'R'|
000002F0: 20 27 57 27 20 27 53 27  20 4F 52 20 27 51 27 20  | 'W' 'S' OR 'Q' |
00000300: 20 22 3A 89 31 32 30 00  0D 13 BE 00 3A 00 42 13  | ":.120.....:.B.|
00000310: C8 00 8F 20 20 54 48 49  53 20 53 45 43 54 49 4F  |...  THIS SECTIO|
00000320: 4E 20 50 4F 53 49 54 49  4F 4E 53 20 54 4F 20 41  |N POSITIONS TO A|
00000330: 4E 44 20 52 45 41 44 53  20 41 20 52 45 43 4F 52  |ND READS A RECOR|
00000340: 44 2E 00 75 13 D2 00 9F  31 35 2C 38 2C 31 35 20  |D..u....15,8,15 |
00000350: 20 20 20 20 20 20 20 20  20 20 3A 8F 20 4F 50 45  |          :. OPE|
00000360: 4E 20 54 48 45 20 43 4F  4D 4D 41 4E 44 20 43 48  |N THE COMMAND CH|
00000370: 41 4E 4E 45 4C 00 9C 13  DC 00 8D 20 35 30 30 30  |ANNEL...... 5000|
00000380: 20 3A 8F 20 20 43 48 45  43 4B 20 54 48 45 20 45  | :.  CHECK THE E|
00000390: 52 52 4F 52 20 43 48 41  4E 4E 45 4C 00 E3 13 E6  |RROR CHANNEL....|
000003A0: 00 9F 38 2C 38 2C 38 2C  22 30 3A 22 AA 28 4E 4D  |..8,8,8,"0:".(NM|
000003B0: 24 29 AA 22 2C 4C 2C 22  AA C7 28 4C 4E 29 20 3A  |$).",L,"..(LN) :|
000003C0: 8F 20 20 4F 50 45 4E 20  46 49 4C 45 20 57 49 54  |.  OPEN FILE WIT|
000003D0: 48 20 52 45 43 4F 52 44  20 4C 45 4E 47 54 48 20  |H RECORD LENGTH |
000003E0: 4C 4E 2E 00 0A 14 F0 00  8D 20 35 30 30 30 20 3A  |LN....... 5000 :|
000003F0: 8F 20 20 43 48 45 43 4B  20 54 48 45 20 45 52 52  |.  CHECK THE ERR|
00000400: 4F 52 20 43 48 41 4E 4E  45 4C 00 2C 14 FA 00 85  |OR CHANNEL.,....|
00000410: 22 52 45 41 44 20 57 48  41 54 20 52 45 43 4F 52  |"READ WHAT RECOR|
00000420: 44 20 4E 55 4D 42 45 52  22 3B 52 4E 00 64 14 04  |D NUMBER";RN.d..|
00000430: 01 8D 31 30 30 30 20 3A  8F 20 20 43 41 4C 43 55  |..1000 :.  CALCU|
00000440: 4C 41 54 45 20 54 48 45  20 4C 4F 57 20 42 59 54  |LATE THE LOW BYT|
00000450: 45 2F 48 49 47 48 20 42  59 54 45 20 50 4F 49 4E  |E/HIGH BYTE POIN|
00000460: 54 45 52 2E 00 9E 14 0E  01 98 31 35 2C 22 50 22  |TER.......15,"P"|
00000470: AA C7 28 39 36 AA 38 29  AA C7 28 52 4C 29 AA C7  |..(96.8)..(RL)..|
00000480: 28 52 48 29 AA C7 28 31  29 20 3A 8F 20 20 50 4F  |(RH)..(1) :.  PO|
00000490: 53 49 54 49 4F 4E 20 43  4F 4D 4D 41 4E 44 00 C5  |SITION COMMAND..|
000004A0: 14 18 01 8D 20 35 30 30  30 20 3A 8F 20 20 43 48  |.... 5000 :.  CH|
000004B0: 45 43 4B 20 54 48 45 20  45 52 52 4F 52 20 43 48  |ECK THE ERROR CH|
000004C0: 41 4E 4E 45 4C 00 F1 14  1D 01 8B 20 45 B2 35 30  |ANNEL...... E.50|
000004D0: 20 A7 99 22 52 45 43 4F  52 44 20 4E 55 4D 42 45  | .."RECORD NUMBE|
000004E0: 52 20 54 4F 4F 20 4C 41  52 47 45 22 3A 89 33 33  |R TOO LARGE":.33|
000004F0: 36 00 24 15 22 01 84 38  2C 41 41 24 2C 42 42 24  |6.$."..8,AA$,BB$|
00000500: 2C 43 43 24 2C 44 44 24  2C 45 45 24 20 3A 8F 20  |,CC$,DD$,EE$ :. |
00000510: 20 52 45 41 44 20 49 4E  20 54 48 45 20 46 49 45  | READ IN THE FIE|
00000520: 4C 44 53 2E 00 4B 15 2C  01 8D 20 35 30 30 30 20  |LDS..K.,.. 5000 |
00000530: 3A 8F 20 20 43 48 45 43  4B 20 54 48 45 20 45 52  |:.  CHECK THE ER|
00000540: 52 4F 52 20 43 48 41 4E  4E 45 4C 00 70 15 36 01  |ROR CHANNEL.p.6.|
00000550: 99 22 11 52 45 43 4F 52  44 20 4E 55 4D 42 45 52  |.".RECORD NUMBER|
00000560: 22 3B 52 4E 3B 22 43 4F  4E 54 41 49 4E 53 3A 22  |";RN;"CONTAINS:"|
00000570: 00 86 15 3B 01 99 22 20  20 20 20 4E 41 4D 45 3A  |...;.."    NAME:|
00000580: 20 22 3B 41 41 24 00 9C  15 40 01 99 22 20 41 44  | ";AA$...@.." AD|
00000590: 44 52 45 53 53 3A 20 22  3B 42 42 24 00 B2 15 45  |DRESS: ";BB$...E|
000005A0: 01 99 22 20 20 20 20 43  49 54 59 3A 20 22 3B 43  |.."    CITY: ";C|
000005B0: 43 24 00 C8 15 4A 01 99  22 20 20 20 53 54 41 54  |C$...J.."   STAT|
000005C0: 45 3A 20 22 3B 44 44 24  00 DE 15 4F 01 99 22 5A  |E: ";DD$...O.."Z|
000005D0: 49 50 20 43 4F 44 45 3A  20 22 3B 45 45 24 00 1B  |IP CODE: ";EE$..|
000005E0: 16 50 01 98 31 35 2C 22  50 22 AA C7 28 39 36 AA  |.P..15,"P"..(96.|
000005F0: 38 29 AA C7 28 52 4C 29  AA C7 28 52 48 29 AA C7  |8)..(RL)..(RH)..|
00000600: 28 31 29 3A 8F 20 20 52  45 50 4F 53 49 54 27 4E  |(1):.  REPOSIT'N|
00000610: 20 46 4F 52 20 53 41 46  45 54 59 00 42 16 51 01  | FOR SAFETY.B.Q.|
00000620: 8D 20 35 30 30 30 20 3A  8F 20 20 43 48 45 43 4B  |. 5000 :.  CHECK|
00000630: 20 54 48 45 20 45 52 52  4F 52 20 43 48 41 4E 4E  | THE ERROR CHANN|
00000640: 45 4C 00 61 16 54 01 85  22 11 52 45 41 44 20 41  |EL.a.T..".READ A|
00000650: 4E 4F 54 48 45 52 20 52  45 43 4F 52 44 22 3B 41  |NOTHER RECORD";A|
00000660: 24 00 72 16 5E 01 8B 20  41 24 B2 22 59 22 A7 32  |$.r.^.. A$."Y".2|
00000670: 35 30 00 95 16 68 01 A0  38 3A A0 31 35 3A 89 31  |50...h..8:.15:.1|
00000680: 32 30 20 3A 8F 20 20 47  4F 20 54 4F 20 54 48 45  |20 :.  GO TO THE|
00000690: 20 4D 45 4E 55 00 9B 16  86 01 3A 00 D1 16 90 01  | MENU.....:.....|
000006A0: 8F 20 20 54 48 49 53 20  53 45 43 54 49 4F 4E 20  |.  THIS SECTION |
000006B0: 50 4F 53 49 54 49 4F 4E  53 20 54 4F 20 41 4E 44  |POSITIONS TO AND|
000006C0: 20 57 52 49 54 45 53 20  41 20 52 45 43 4F 52 44  | WRITES A RECORD|
000006D0: 2E 00 04 17 9A 01 9F 31  35 2C 38 2C 31 35 20 20  |.......15,8,15  |
000006E0: 20 20 20 20 20 20 20 20  20 3A 8F 20 4F 50 45 4E  |         :. OPEN|
000006F0: 20 54 48 45 20 43 4F 4D  4D 41 4E 44 20 43 48 41  | THE COMMAND CHA|
00000700: 4E 4E 45 4C 00 2B 17 9F  01 8D 20 35 30 30 30 20  |NNEL.+.... 5000 |
00000710: 3A 8F 20 20 43 48 45 43  4B 20 54 48 45 20 45 52  |:.  CHECK THE ER|
00000720: 52 4F 52 20 43 48 41 4E  4E 45 4C 00 72 17 A4 01  |ROR CHANNEL.r...|
00000730: 9F 38 2C 38 2C 38 2C 22  30 3A 22 AA 28 4E 4D 24  |.8,8,8,"0:".(NM$|
00000740: 29 AA 22 2C 4C 2C 22 AA  C7 28 4C 4E 29 20 3A 8F  |).",L,"..(LN) :.|
00000750: 20 20 4F 50 45 4E 20 46  49 4C 45 20 57 49 54 48  |  OPEN FILE WITH|
00000760: 20 52 45 43 4F 52 44 20  4C 45 4E 47 54 48 20 4C  | RECORD LENGTH L|
00000770: 4E 2E 00 99 17 AE 01 8D  20 35 30 30 30 20 3A 8F  |N....... 5000 :.|
00000780: 20 20 43 48 45 43 4B 20  54 48 45 20 45 52 52 4F  |  CHECK THE ERRO|
00000790: 52 20 43 48 41 4E 4E 45  4C 00 BD 17 B8 01 85 22  |R CHANNEL......"|
000007A0: 11 57 52 49 54 45 20 57  48 41 54 20 52 45 43 4F  |.WRITE WHAT RECO|
000007B0: 52 44 20 4E 55 4D 42 45  52 22 3B 52 4E 00 05 18  |RD NUMBER";RN...|
000007C0: BD 01 85 22 4E 41 4D 45  22 3B 41 41 24 20 20 20  |..."NAME";AA$   |
000007D0: 20 20 20 20 3A 8F 20 20  43 48 41 4E 47 45 20 54  |    :.  CHANGE T|
000007E0: 48 45 20 50 52 4F 4D 50  54 53 20 54 4F 20 41 53  |HE PROMPTS TO AS|
000007F0: 4B 20 46 4F 52 20 54 48  45 20 44 41 54 41 20 4E  |K FOR THE DATA N|
00000800: 45 45 44 45 44 00 3F 18  C2 01 85 22 41 44 44 52  |EEDED.?...."ADDR|
00000810: 45 53 53 22 3B 42 42 24  20 20 20 20 3A 8F 20 20  |ESS";BB$    :.  |
00000820: 49 4E 20 59 4F 55 52 20  50 41 52 54 49 43 55 4C  |IN YOUR PARTICUL|
00000830: 41 52 20 41 50 50 4C 49  43 41 54 49 4F 4E 2E 00  |AR APPLICATION..|
00000840: 85 18 C7 01 85 22 43 49  54 59 22 3B 43 43 24 20  |....."CITY";CC$ |
00000850: 20 20 20 20 20 20 3A 8F  20 20 41 4E 59 20 4E 55  |      :.  ANY NU|
00000860: 4D 42 45 52 20 4F 46 20  46 49 45 4C 44 53 20 43  |MBER OF FIELDS C|
00000870: 41 4E 20 42 45 20 55 53  45 44 20 41 53 20 4C 4F  |AN BE USED AS LO|
00000880: 4E 47 20 41 53 00 C5 18  CC 01 85 22 53 54 41 54  |NG AS......"STAT|
00000890: 45 22 3B 44 44 24 20 20  20 20 20 20 3A 8F 20 20  |E";DD$      :.  |
000008A0: 54 48 45 59 20 46 49 54  20 57 49 54 48 49 4E 20  |THEY FIT WITHIN |
000008B0: 54 48 45 20 52 45 43 4F  52 44 20 4C 45 4E 47 54  |THE RECORD LENGT|
000008C0: 48 20 59 4F 55 00 01 19  D6 01 85 22 5A 49 50 20  |H YOU......"ZIP |
000008D0: 43 4F 44 45 22 3B 45 45  24 20 20 20 3A 8F 20 20  |CODE";EE$   :.  |
000008E0: 53 50 45 43 49 46 49 45  44 20 57 48 45 4E 20 43  |SPECIFIED WHEN C|
000008F0: 52 45 41 54 49 4E 47 20  54 48 45 20 46 49 4C 45  |REATING THE FILE|
00000900: 2E 00 2D 19 E0 01 52 43  24 B2 41 41 24 AA 4C 4C  |..-...RC$.AA$.LL|
00000910: 24 AA 42 42 24 AA 4C 4C  24 AA 43 43 24 AA 4C 4C  |$.BB$.LL$.CC$.LL|
00000920: 24 AA 44 44 24 AA 4C 4C  24 AA 45 45 24 00 70 19  |$.DD$.LL$.EE$.p.|
00000930: EA 01 8F 20 20 52 43 24  20 49 53 20 54 48 45 20  |...  RC$ IS THE |
00000940: 53 54 52 49 4E 47 20 43  4F 4E 54 41 49 4E 49 4E  |STRING CONTAININ|
00000950: 47 20 41 4C 4C 20 54 48  45 20 46 49 45 4C 44 53  |G ALL THE FIELDS|
00000960: 20 46 4F 52 20 54 48 45  20 52 45 43 4F 52 44 2E  | FOR THE RECORD.|
00000970: 00 AA 19 F4 01 8F 20 20  52 45 4D 45 4D 42 45 52  |......  REMEMBER|
00000980: 20 54 48 45 20 4D 41 58  20 4C 45 4E 47 54 48 20  | THE MAX LENGTH |
00000990: 46 4F 52 20 52 43 24 20  49 53 20 32 35 34 20 43  |FOR RC$ IS 254 C|
000009A0: 48 41 52 41 43 54 45 52  53 2E 00 E2 19 FE 01 8D  |HARACTERS.......|
000009B0: 31 30 30 30 20 3A 8F 20  20 43 41 4C 43 55 4C 41  |1000 :.  CALCULA|
000009C0: 54 45 20 54 48 45 20 4C  4F 57 20 42 59 54 45 2F  |TE THE LOW BYTE/|
000009D0: 48 49 47 48 20 42 59 54  45 20 50 4F 49 4E 54 45  |HIGH BYTE POINTE|
000009E0: 52 2E 00 1C 1A 08 02 98  31 35 2C 22 50 22 AA C7  |R.......15,"P"..|
000009F0: 28 39 36 AA 38 29 AA C7  28 52 4C 29 AA C7 28 52  |(96.8)..(RL)..(R|
00000A00: 48 29 AA C7 28 31 29 20  3A 8F 20 20 50 4F 53 49  |H)..(1) :.  POSI|
00000A10: 54 49 4F 4E 20 43 4F 4D  4D 41 4E 44 00 43 1A 12  |TION COMMAND.C..|
00000A20: 02 8D 20 35 30 30 30 20  3A 8F 20 20 43 48 45 43  |.. 5000 :.  CHEC|
00000A30: 4B 20 54 48 45 20 45 52  52 4F 52 20 43 48 41 4E  |K THE ERROR CHAN|
00000A40: 4E 45 4C 00 73 1A 17 02  8B 20 45 B2 35 30 20 A7  |NEL.s.... E.50 .|
00000A50: 99 22 54 48 45 20 44 4F  53 20 57 49 4C 4C 20 45  |."THE DOS WILL E|
00000A60: 58 50 41 4E 44 20 54 48  45 20 46 49 4C 45 20 4E  |XPAND THE FILE N|
00000A70: 4F 57 22 00 94 1A 1C 02  98 38 2C 52 43 24 20 20  |OW"......8,RC$  |
00000A80: 3A 8F 20 20 57 52 49 54  45 20 54 48 45 20 52 45  |:.  WRITE THE RE|
00000A90: 43 4F 52 44 00 BB 1A 26  02 8D 20 35 30 30 30 20  |CORD...&.. 5000 |
00000AA0: 3A 8F 20 20 43 48 45 43  4B 20 54 48 45 20 45 52  |:.  CHECK THE ER|
00000AB0: 52 4F 52 20 43 48 41 4E  4E 45 4C 00 F8 1A 2B 02  |ROR CHANNEL...+.|
00000AC0: 98 31 35 2C 22 50 22 AA  C7 28 39 36 AA 38 29 AA  |.15,"P"..(96.8).|
00000AD0: C7 28 52 4C 29 AA C7 28  52 48 29 AA C7 28 31 29  |.(RL)..(RH)..(1)|
00000AE0: 20 3A 8F 20 52 45 50 4F  53 49 54 27 4E 20 46 4F  | :. REPOSIT'N FO|
00000AF0: 52 20 53 41 46 45 54 59  00 1F 1B 2C 02 8D 20 35  |R SAFETY...,.. 5|
00000B00: 30 30 30 20 3A 8F 20 20  43 48 45 43 4B 20 54 48  |000 :.  CHECK TH|
00000B10: 45 20 45 52 52 4F 52 20  43 48 41 4E 4E 45 4C 00  |E ERROR CHANNEL.|
00000B20: 3E 1B 30 02 85 22 57 52  49 54 45 20 41 4E 4F 54  |>.0.."WRITE ANOT|
00000B30: 48 45 52 20 52 45 43 4F  52 44 22 3B 41 24 00 4F  |HER RECORD";A$.O|
00000B40: 1B 3A 02 8B 20 41 24 B2  22 59 22 A7 34 33 30 00  |.:.. A$."Y".430.|
00000B50: 72 1B 44 02 A0 38 3A A0  31 35 3A 89 31 32 30 20  |r.D..8:.15:.120 |
00000B60: 3A 8F 20 20 47 4F 20 54  4F 20 54 48 45 20 4D 45  |:.  GO TO THE ME|
00000B70: 4E 55 00 78 1B 4E 02 3A  00 BF 1B 58 02 8F 20 20  |NU.x.N.:...X..  |
00000B80: 54 48 49 53 20 53 45 43  54 49 4F 4E 20 50 4F 53  |THIS SECTION POS|
00000B90: 49 54 49 4F 4E 53 20 54  4F 20 41 4E 44 20 57 52  |ITIONS TO AND WR|
00000BA0: 49 54 45 53 20 54 48 45  20 48 49 47 48 45 53 54  |ITES THE HIGHEST|
00000BB0: 20 52 45 43 4F 52 44 20  4E 55 4D 42 45 52 2E 00  | RECORD NUMBER..|
00000BC0: 07 1C 62 02 8F 20 20 41  4C 54 48 4F 55 47 48 20  |..b..  ALTHOUGH |
00000BD0: 4E 4F 54 20 45 4E 54 49  52 45 4C 59 20 4E 45 43  |NOT ENTIRELY NEC|
00000BE0: 45 53 53 41 52 59 2C 20  57 52 49 54 49 4E 47 20  |ESSARY, WRITING |
00000BF0: 41 4E 44 20 55 50 44 41  54 49 4E 47 20 4C 4F 4E  |AND UPDATING LON|
00000C00: 47 20 46 49 4C 45 53 00  4B 1C 6C 02 8F 20 20 49  |G FILES.K.l..  I|
00000C10: 53 20 53 50 45 45 44 45  44 20 57 48 45 4E 20 54  |S SPEEDED WHEN T|
00000C20: 48 49 53 20 50 52 4F 43  45 44 55 52 45 20 49 53  |HIS PROCEDURE IS|
00000C30: 20 55 53 45 44 2E 20 20  54 48 49 53 20 57 49 4C  | USED.  THIS WIL|
00000C40: 4C 20 43 41 55 53 45 20  54 48 45 00 92 1C 76 02  |L CAUSE THE...v.|
00000C50: 8F 20 20 44 4F 53 20 53  49 44 45 20 53 45 43 54  |.  DOS SIDE SECT|
00000C60: 4F 52 20 4C 49 53 54 20  54 4F 20 42 45 20 43 52  |OR LIST TO BE CR|
00000C70: 45 41 54 45 44 20 45 4E  54 49 52 45 4C 59 20 41  |EATED ENTIRELY A|
00000C80: 54 20 54 48 45 20 53 54  41 52 54 20 52 41 54 48  |T THE START RATH|
00000C90: 45 52 00 D0 1C 80 02 8F  20 20 54 48 41 4E 20 42  |ER......  THAN B|
00000CA0: 45 49 4E 47 20 41 50 50  45 4E 44 45 44 20 46 4F  |EING APPENDED FO|
00000CB0: 52 20 45 41 43 48 20 4E  45 57 20 48 49 47 48 45  |R EACH NEW HIGHE|
00000CC0: 52 20 52 45 43 4F 52 44  20 4E 55 4D 42 45 52 2E  |R RECORD NUMBER.|
00000CD0: 00 03 1D 8A 02 9F 31 35  2C 38 2C 31 35 20 20 20  |......15,8,15   |
00000CE0: 20 20 20 20 20 20 20 20  3A 8F 20 4F 50 45 4E 20  |        :. OPEN |
00000CF0: 54 48 45 20 43 4F 4D 4D  41 4E 44 20 43 48 41 4E  |THE COMMAND CHAN|
00000D00: 4E 45 4C 00 2A 1D 94 02  8D 20 35 30 30 30 20 3A  |NEL.*.... 5000 :|
00000D10: 8F 20 20 43 48 45 43 4B  20 54 48 45 20 45 52 52  |.  CHECK THE ERR|
00000D20: 4F 52 20 43 48 41 4E 4E  45 4C 00 71 1D 9E 02 9F  |OR CHANNEL.q....|
00000D30: 38 2C 38 2C 38 2C 22 30  3A 22 AA 28 4E 4D 24 29  |8,8,8,"0:".(NM$)|
00000D40: AA 22 2C 4C 2C 22 AA C7  28 4C 4E 29 20 3A 8F 20  |.",L,"..(LN) :. |
00000D50: 20 4F 50 45 4E 20 46 49  4C 45 20 57 49 54 48 20  | OPEN FILE WITH |
00000D60: 52 45 43 4F 52 44 20 4C  45 4E 47 54 48 20 4C 4E  |RECORD LENGTH LN|
00000D70: 2E 00 98 1D A8 02 8D 20  35 30 30 30 20 3A 8F 20  |....... 5000 :. |
00000D80: 20 43 48 45 43 4B 20 54  48 45 20 45 52 52 4F 52  | CHECK THE ERROR|
00000D90: 20 43 48 41 4E 4E 45 4C  00 C2 1D B2 02 99 22 11  | CHANNEL......".|
00000DA0: 57 48 41 54 20 49 53 20  54 48 45 20 48 49 47 48  |WHAT IS THE HIGH|
00000DB0: 45 53 54 20 52 45 43 4F  52 44 20 4E 55 4D 42 45  |EST RECORD NUMBE|
00000DC0: 52 22 00 DC 1D B7 02 85  22 59 4F 55 20 57 41 4E  |R"......"YOU WAN|
00000DD0: 54 20 54 4F 20 55 53 45  22 3B 52 4E 00 14 1E BC  |T TO USE";RN....|
00000DE0: 02 8D 31 30 30 30 20 3A  8F 20 20 43 41 4C 43 55  |..1000 :.  CALCU|
00000DF0: 4C 41 54 45 20 54 48 45  20 4C 4F 57 20 42 59 54  |LATE THE LOW BYT|
00000E00: 45 2F 48 49 47 48 20 42  59 54 45 20 50 4F 49 4E  |E/HIGH BYTE POIN|
00000E10: 54 45 52 2E 00 4E 1E C6  02 98 31 35 2C 22 50 22  |TER..N....15,"P"|
00000E20: AA C7 28 39 36 AA 38 29  AA C7 28 52 4C 29 AA C7  |..(96.8)..(RL)..|
00000E30: 28 52 48 29 AA C7 28 31  29 20 3A 8F 20 20 50 4F  |(RH)..(1) :.  PO|
00000E40: 53 49 54 49 4F 4E 20 43  4F 4D 4D 41 4E 44 00 75  |SITION COMMAND.u|
00000E50: 1E D0 02 8D 20 35 30 30  30 20 3A 8F 20 20 43 48  |.... 5000 :.  CH|
00000E60: 45 43 4B 20 54 48 45 20  45 52 52 4F 52 20 43 48  |ECK THE ERROR CH|
00000E70: 41 4E 4E 45 4C 00 A5 1E  D5 02 8B 20 45 B2 35 30  |ANNEL...... E.50|
00000E80: 20 A7 99 22 54 48 45 20  44 4F 53 20 57 49 4C 4C  | .."THE DOS WILL|
00000E90: 20 45 58 50 41 4E 44 20  54 48 45 20 46 49 4C 45  | EXPAND THE FILE|
00000EA0: 20 4E 4F 57 22 00 B6 1E  DA 02 98 38 2C C7 28 32  | NOW"......8,.(2|
00000EB0: 35 35 29 20 3A 8F 00 DD  1E E4 02 8D 20 35 30 30  |55) :....... 500|
00000EC0: 30 20 3A 8F 20 20 43 48  45 43 4B 20 54 48 45 20  |0 :.  CHECK THE |
00000ED0: 45 52 52 4F 52 20 43 48  41 4E 4E 45 4C 00 1A 1F  |ERROR CHANNEL...|
00000EE0: E9 02 98 31 35 2C 22 50  22 AA C7 28 39 36 AA 38  |...15,"P"..(96.8|
00000EF0: 29 AA C7 28 52 4C 29 AA  C7 28 52 48 29 AA C7 28  |)..(RL)..(RH)..(|
00000F00: 31 29 20 3A 8F 20 52 45  50 4F 53 49 54 27 4E 20  |1) :. REPOSIT'N |
00000F10: 46 4F 52 20 53 41 46 45  54 59 00 41 1F EA 02 8D  |FOR SAFETY.A....|
00000F20: 20 35 30 30 30 20 3A 8F  20 20 43 48 45 43 4B 20  | 5000 :.  CHECK |
00000F30: 54 48 45 20 45 52 52 4F  52 20 43 48 41 4E 4E 45  |THE ERROR CHANNE|
00000F40: 4C 00 64 1F EE 02 A0 38  3A A0 31 35 3A 89 31 32  |L.d....8:.15:.12|
00000F50: 30 20 3A 8F 20 20 47 4F  20 54 4F 20 54 48 45 20  |0 :.  GO TO THE |
00000F60: 4D 45 4E 55 00 71 1F 20  03 A0 38 3A A0 31 35 3A  |MENU.q. ..8:.15:|
00000F70: 80 00 AD 1F E8 03 8F 20  20 54 48 49 53 20 53 55  |.......  THIS SU|
00000F80: 42 52 4F 55 54 49 4E 45  20 43 41 4C 43 55 4C 41  |BROUTINE CALCULA|
00000F90: 54 45 53 20 54 48 45 20  52 45 43 4F 52 44 20 4E  |TES THE RECORD N|
00000FA0: 55 4D 42 45 52 20 50 4F  49 4E 54 45 52 00 D6 1F  |UMBER POINTER...|
00000FB0: F2 03 8F 20 20 49 4E 20  54 48 45 20 4C 4F 57 20  |...  IN THE LOW |
00000FC0: 42 59 54 45 2F 48 49 47  48 20 42 59 54 45 20 46  |BYTE/HIGH BYTE F|
00000FD0: 4F 52 4D 41 54 2E 00 10  20 FC 03 8F 20 20 52 4E  |ORMAT... ...  RN|
00000FE0: 20 28 52 45 43 4F 52 44  20 4E 55 4D 42 45 52 29  | (RECORD NUMBER)|
00000FF0: 20 49 53 20 55 53 45 44  20 54 4F 20 43 41 4C 43  | IS USED TO CALC|
00001000: 55 4C 41 54 45 20 52 4C  20 41 4E 44 20 52 48 2E  |ULATE RL AND RH.|
00001010: 00 4E 20 06 04 52 48 B2  B5 28 52 4E AD 32 35 36  |.N ..RH..(RN.256|
00001020: 29 3A 52 4C B2 52 4E AB  28 32 35 36 AC 52 48 29  |):RL.RN.(256.RH)|
00001030: 20 3A 20 8F 20 20 52 4C  20 49 53 20 4C 4F 57 20  | : .  RL IS LOW |
00001040: 2D 2D 20 52 48 20 49 53  20 48 49 47 48 2E 00 54  |-- RH IS HIGH..T|
00001050: 20 10 04 8E 00 8E 20 88  13 8F 20 20 20 54 48 49  | ..... ...   THI|
00001060: 53 20 49 53 20 54 48 45  20 44 49 53 4B 20 44 52  |S IS THE DISK DR|
00001070: 49 56 45 20 45 52 52 4F  52 20 43 48 45 43 4B 49  |IVE ERROR CHECKI|
00001080: 4E 47 20 53 55 42 52 4F  55 54 49 4E 45 2E 00 BD  |NG SUBROUTINE...|
00001090: 20 92 13 84 31 35 2C 45  2C 45 24 2C 41 2C 42 20  | ...15,E,E$,A,B |
000010A0: 20 20 3A 8F 20 20 52 45  41 44 20 54 48 45 20 45  |  :.  READ THE E|
000010B0: 52 52 4F 52 20 43 48 41  4E 4E 45 4C 2E 00 EA 20  |RROR CHANNEL... |
000010C0: 9C 13 8B 20 45 B2 30 20  A7 20 8E 20 20 3A 8F 20  |... E.0 . .  :. |
000010D0: 20 54 48 45 52 45 20 49  53 20 4E 4F 20 45 52 52  | THERE IS NO ERR|
000010E0: 4F 52 20 49 46 20 45 3D  30 2E 00 30 21 A6 13 8F  |OR IF E=0..0!...|
000010F0: 20 20 20 45 3D 35 30 20  28 52 45 43 4F 52 44 20  |   E=50 (RECORD |
00001100: 4E 4F 54 20 50 52 45 53  45 4E 54 29 20 41 4E 59  |NOT PRESENT) ANY|
00001110: 20 54 49 4D 45 20 41 20  52 45 43 4F 52 44 20 4E  | TIME A RECORD N|
00001120: 55 4D 42 45 52 20 50 4F  49 4E 54 45 52 20 49 53  |UMBER POINTER IS|
00001130: 00 6D 21 B0 13 8F 20 20  20 50 4F 53 49 54 49 4F  |.m!...   POSITIO|
00001140: 4E 45 44 20 42 45 59 4F  4E 44 20 54 48 45 20 43  |NED BEYOND THE C|
00001150: 55 52 52 45 4E 54 20 48  49 47 48 45 53 54 20 52  |URRENT HIGHEST R|
00001160: 45 43 4F 52 44 20 4E 55  4D 42 45 52 2E 00 7C 21  |ECORD NUMBER..|!|
00001170: BA 13 8B 20 45 B2 35 30  20 A7 20 8E 00 8F 21 BB  |... E.50 . ...!.|
00001180: 13 8B 20 45 B3 B1 35 31  20 A7 20 35 30 36 30 00  |.. E..51 . 5060.|
00001190: B4 21 BC 13 99 3A 99 22  45 52 52 4F 52 20 23 35  |.!...:."ERROR #5|
000011A0: 31 2C 20 52 45 43 4F 52  44 20 54 4F 4F 20 4C 4F  |1, RECORD TOO LO|
000011B0: 4E 47 2E 22 00 DC 21 BD  13 99 22 4D 41 58 49 4D  |NG."..!..."MAXIM|
000011C0: 55 4D 20 4C 45 4E 47 54  48 20 49 53 22 4C 4E 22  |UM LENGTH IS"LN"|
000011D0: 43 48 41 52 41 43 54 45  52 53 2E 22 00 03 22 BE  |CHARACTERS."..".|
000011E0: 13 99 22 52 45 54 55 52  4E 20 43 4F 55 4E 54 53  |.."RETURN COUNTS|
000011F0: 20 41 53 20 41 20 43 48  41 52 41 43 54 45 52 2E  | AS A CHARACTER.|
00001200: 22 3A 8E 00 22 22 C4 13  99 22 54 48 45 52 45 20  |":..""..."THERE |
00001210: 49 53 20 41 4E 20 49 2F  4F 20 50 52 4F 42 4C 45  |IS AN I/O PROBLE|
00001220: 4D 22 00 3E 22 CE 13 99  22 45 52 52 4F 52 20 4E  |M".>"..."ERROR N|
00001230: 55 4D 42 45 52 20 49 53  22 3B 45 2C 45 24 00 5E  |UMBER IS";E,E$.^|
00001240: 22 D8 13 99 22 41 54 20  54 52 41 43 4B 22 3B 41  |"..."AT TRACK";A|
00001250: 3B 22 20 20 20 53 45 43  54 4F 52 22 3B 42 00 95  |;"   SECTOR";B..|
00001260: 22 E2 13 8B 20 45 B2 37  30 20 A7 99 22 11 4D 41  |"... E.70 ..".MA|
00001270: 4B 45 20 53 55 52 45 20  59 4F 55 20 49 4E 50 55  |KE SURE YOU INPU|
00001280: 54 20 54 48 45 20 43 4F  52 52 45 43 54 20 52 45  |T THE CORRECT RE|
00001290: 43 4F 52 44 22 00 C6 22  EC 13 8B 20 45 B2 37 30  |CORD".."... E.70|
000012A0: 20 A7 99 22 4C 45 4E 47  54 48 20 46 4F 52 20 41  | .."LENGTH FOR A|
000012B0: 4E 20 45 58 49 53 54 49  4E 47 20 46 49 4C 45 20  |N EXISTING FILE |
000012C0: 4E 41 4D 45 2E 22 00 D3  22 F6 13 A0 38 3A A0 31  |NAME.".."...8:.1|
000012D0: 35 3A 80 00 00 00                                 |5:....          |

..'.(..   USE THIS PROGRAM TO LEARN HOW.
N.2..   CREATE AND USE RELATIVE FILES..T
.<..   IT IS FLEXIBLE ENOUGH FOR YOU...F
..   TO CUSTOMIZE IT FOR YOUR USE.. .K..
...L.."..*RELATIVE FILE DEMO*"...P.LL$.G
(13)  :.  THIS IS THE FIELD DELIMITER US
ED WHEN WRITING RECORDS.=.Z..15,8,15,"I0
": 15 : .  INITIALIZE THE DISK DRIVE...
D..".WHAT IS THE FILE NAME";NM$:  .  MAX
IMUM 16 CHARACTER NAME....I..C(NM$).0.C(
NM$).17.110...J.."...":.100...N..".HOW M
ANY CHARACTERS IN EACH RECORD";LN  :.   
 MAXIMUM 254....O.LN..(LN):.LN.0.LN.255.
115...P.."...":.110.!.S...8.X..".DO YOU 
WANT TO".O.Z..".R.EAD A RECORD".G.|..".W
.RITE A RECORD".~.~..".S.ET UP A FILE"..
...."OR .Q.UIT";A$...... A$."R" . 200...
... A$."W" . 400.K.... A$."S" . 600... .
. A$."Q" . 800......"TYPE AN 'R' 'W' 'S'
 OR 'Q'  ":.120.....:.B.H..  THIS SECTIO
N POSITIONS TO AND READS A RECORD..U.R..
15,8,15           :. OPEN THE COMMAND CH
ANNEL...... 5000 :.  CHECK THE ERROR CHA
NNEL......8,8,8,"0:".(NM$).",L,".G(LN) :
.  OPEN FILE WITH RECORD LENGTH LN......
. 5000 :.  CHECK THE ERROR CHANNEL.,....
"READ WHAT RECORD NUMBER";RN.D....1000 :
.  CALCULATE THE LOW BYTE/HIGH BYTE POIN
TER.......15,"P".G(96.8).G(RL).G(RH).G(1
) :.  POSITION COMMAND.E.... 5000 :.  CH
ECK THE ERROR CHANNEL...... E.50 .."RECO
RD NUMBER TOO LARGE":.336.$."..8,AA$,BB$
,CC$,DD$,EE$ :.  READ IN THE FIELDS..K.,
.. 5000 :.  CHECK THE ERROR CHANNEL.P.6.
.".RECORD NUMBER";RN;"CONTAINS:"...;.." 
   NAME: ";AA$...@.." ADDRESS: ";BB$...E
.."    CITY: ";CC$.H.J.."   STATE: ";DD$
...O.."ZIP CODE: ";EE$...P..15,"P".G(96.
8).G(RL).G(RH).G(1):.  REPOSIT'N FOR SAF
ETY.B.Q.. 5000 :.  CHECK THE ERROR CHANN
EL.A.T..".READ ANOTHER RECORD";A$.R.^.. 
A$."Y".250...H. 8: 15:.120 :.  GO TO THE
 MENU.....:.Q....  THIS SECTION POSITION
S TO AND WRITES A RECORD.......15,8,15  
         :. OPEN THE COMMAND CHANNEL.+..
.. 5000 :.  CHECK THE ERROR CHANNEL.R...
.8,8,8,"0:".(NM$).",L,".G(LN) :.  OPEN F
ILE WITH RECORD LENGTH LN....... 5000 :.
  CHECK THE ERROR CHANNEL......".WRITE W
HAT RECORD NUMBER";RN......"NAME";AA$   
    :.  CHANGE THE PROMPTS TO ASK FOR TH
E DATA NEEDED.?.B.."ADDRESS";BB$    :.  
IN YOUR PARTICULAR APPLICATION....G.."CI
TY";CC$       :.  ANY NUMBER OF FIELDS C
AN BE USED AS LONG AS.E.L.."STATE";DD$  
    :.  THEY FIT WITHIN THE RECORD LENGT
H YOU...V.."ZIP CODE";EE$   :.  SPECIFIE
D WHEN CREATING THE FILE..-...RC$.AA$.LL
$.BB$.LL$.CC$.LL$.DD$.LL$.EE$.P....  RC$
 IS THE STRING CONTAINING ALL THE FIELDS
 FOR THE RECORD.......  REMEMBER THE MAX
 LENGTH FOR RC$ IS 254 CHARACTERS.......
1000 :.  CALCULATE THE LOW BYTE/HIGH BYT
E POINTER.......15,"P".G(96.8).G(RL).G(R
H).G(1) :.  POSITION COMMAND.C.... 5000 
:.  CHECK THE ERROR CHANNEL.S.... E.50 .
."THE DOS WILL EXPAND THE FILE NOW".....
.8,RC$  :.  WRITE THE RECORD...&.. 5000 
:.  CHECK THE ERROR CHANNEL...+..15,"P".
G(96.8).G(RL).G(RH).G(1) :. REPOSIT'N FO
R SAFETY...,.. 5000 :.  CHECK THE ERROR 
CHANNEL.>.0.."WRITE ANOTHER RECORD";A$.O
.:.. A$."Y".430.R.D. 8: 15:.120 :.  GO T
O THE MENU.X.N.:...X..  THIS SECTION POS
ITIONS TO AND WRITES THE HIGHEST RECORD 
NUMBER....B..  ALTHOUGH NOT ENTIRELY NEC
ESSARY, WRITING AND UPDATING LONG FILES.
K.L..  IS SPEEDED WHEN THIS PROCEDURE IS
 USED.  THIS WILL CAUSE THE...V..  DOS S
IDE SECTOR LIST TO BE CREATED ENTIRELY A
T THE START RATHER.P....  THAN BEING APP
ENDED FOR EACH NEW HIGHER RECORD NUMBER.
......15,8,15           :. OPEN THE COMM
AND CHANNEL.*.... 5000 :.  CHECK THE ERR
OR CHANNEL.Q....8,8,8,"0:".(NM$).",L,".G
(LN) :.  OPEN FILE WITH RECORD LENGTH LN
....... 5000 :.  CHECK THE ERROR CHANNEL
.B....".WHAT IS THE HIGHEST RECORD NUMBE
R"......"YOU WANT TO USE";RN......1000 :
.  CALCULATE THE LOW BYTE/HIGH BYTE POIN
TER..N.F..15,"P".G(96.8).G(RL).G(RH).G(1
) :.  POSITION COMMAND.U.P.. 5000 :.  CH
ECK THE ERROR CHANNEL...U.. E.50 .."THE 
DOS WILL EXPAND THE FILE NOW"...Z..8,G(2
55) :....... 5000 :.  CHECK THE ERROR CH
ANNEL......15,"P".G(96.8).G(RL).G(RH).G(
1) :. REPOSIT'N FOR SAFETY.A.... 5000 :.
  CHECK THE ERROR CHANNEL.D... 8: 15:.12
0 :.  GO TO THE MENU.Q. . 8: 15:....... 
 THIS SUBROUTINE CALCULATES THE RECORD N
UMBER POINTER.V....  IN THE LOW BYTE/HIG
H BYTE FORMAT... ...  RN (RECORD NUMBER)
 IS USED TO CALCULATE RL AND RH..N ..RH.
.(RN.256):RL.RN.(256.RH) : .  RL IS LOW 
-- RH IS HIGH..T ..... ...   THIS IS THE
 DISK DRIVE ERROR CHECKING SUBROUTINE...
 ...15,E,E$,A,B   :.  READ THE ERROR CHA
NNEL... ... E.0 . .  :.  THERE IS NO ERR
OR IF E=0..0!...   E=50 (RECORD NOT PRES
ENT) ANY TIME A RECORD NUMBER POINTER IS
.M!...   POSITIONED BEYOND THE CURRENT H
IGHEST RECORD NUMBER..|!... E.50 . ...!.
.. E..51 . 5060..!...:."ERROR #51, RECOR
D TOO LONG."..!..."MAXIMUM LENGTH IS"LN"
CHARACTERS.".."..."RETURN COUNTS AS A CH
ARACTER.":..""D.."THERE IS AN I/O PROBLE
M".>"N.."ERROR NUMBER IS";E,E$.^"X.."AT 
TRACK";A;"   SECTOR";B.."... E.70 ..".MA
KE SURE YOU INPUT THE CORRECT RECORD".F"
... E.70 .."LENGTH FOR AN EXISTING FILE 
NAME.".S".. 8: 15:....

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL