DATAFILE
FILE INFORMATION
FILENAME(S): DATAFILE
FILE TYPE(S): PRG
FILE SIZE: 7.3K
FIRST SEEN: 2025-10-19 22:48:24
APPEARS ON: 1 disk(s)
FILE HASH
458a0a4640b86598dc2c5bfd2796079e1a97c4be0dd2fcec47c9ae4bd36d2ad2
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| 64 UTILITY | DATAFILE | PRG | Radd Maxx | 5 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 09 08 01 00 89 31 32 00 31 08 02 00 3A AC |.......12.1...:.| 00000010: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000020: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 00000030: AC 00 56 08 03 00 3A AC 20 20 20 20 20 20 20 20 |..V...:. | 00000040: 20 20 20 83 46 49 4C 45 20 20 20 20 20 20 20 20 | .FILE | 00000050: 20 20 20 20 20 2A 00 7C 08 04 00 3A AC 20 20 20 | *.|...:. | 00000060: 20 20 20 20 20 20 20 20 8A 20 4D 41 47 2E 20 20 | . MAG. | 00000070: 20 20 20 20 20 20 20 20 20 20 20 AC 00 A4 08 05 | .....| 00000080: 00 3A AC 20 20 20 20 20 20 20 20 20 20 20 4E 4F |.:. NO| 00000090: 56 2E 20 38 34 20 20 20 20 20 20 20 20 20 20 20 |V. 84 | 000000A0: 20 20 20 AC 00 CC 08 06 00 3A AC 20 20 20 20 20 | ......:. | 000000B0: 20 20 20 20 20 20 50 41 47 45 20 37 35 20 20 20 | PAGE 75 | 000000C0: 20 20 20 20 20 20 20 20 20 20 20 AC 00 F4 08 07 | .....| 000000D0: 00 3A AC AC AC AC AC AC AC AC AC AC AC AC AC AC |.:..............| 000000E0: AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC AC |................| 000000F0: AC AC AC AC 00 FA 08 08 00 3A 00 23 09 0C 00 97 |.........:.#....| 00000100: 35 33 32 38 30 2C 31 33 3A 97 35 33 32 38 31 2C |53280,13:.53281,| 00000110: 31 31 3A 99 22 9E 22 3A 8D 31 36 3A 8B 58 B2 30 |11:.".":.16:.X.0| 00000120: A7 36 36 00 2B 09 0E 00 89 36 38 00 66 09 10 00 |.66.+....68.f...| 00000130: 44 24 B2 C7 28 30 29 3A 4D 52 24 B2 44 24 3A 44 |D$..(0):MR$.D$:D| 00000140: 52 24 B2 44 24 3A 53 B2 30 3A 42 31 24 B2 C7 28 |R$.D$:S.0:B1$..(| 00000150: 31 30 29 3A 50 57 B2 30 3A 43 57 B2 30 3A 42 24 |10):PW.0:CW.0:B$| 00000160: B2 C7 28 33 32 29 00 B2 09 12 00 4E 43 B2 30 3A |..(32).....NC.0:| 00000170: 4E 4C B2 30 3A 50 47 B2 30 3A 46 31 B2 30 3A 46 |NL.0:PG.0:F1.0:F| 00000180: 32 B2 30 3A 46 33 B2 30 3A 4C 24 B2 44 24 3A 52 |2.0:F3.0:L$.D$:R| 00000190: 4C B2 30 3A 53 42 24 B2 44 24 3A 43 52 24 B2 C7 |L.0:SB$.D$:CR$..| 000001A0: 28 31 33 29 3A 48 4E 24 B2 44 24 3A 49 44 24 B2 |(13):HN$.D$:ID$.| 000001B0: 44 24 00 01 0A 14 00 41 24 B2 44 24 3A 43 24 B2 |D$.....A$.D$:C$.| 000001C0: 44 24 3A 54 25 B2 30 3A 49 24 B2 44 24 3A 43 4B |D$:T%.0:I$.D$:CK| 000001D0: B2 30 3A 49 B2 30 3A 4A B2 30 3A 4B B2 30 3A 4C |.0:I.0:J.0:K.0:L| 000001E0: B2 30 3A 4D B2 30 3A 4E B2 30 3A 52 57 B2 35 3A |.0:M.0:N.0:RW.5:| 000001F0: 53 46 B2 30 3A 5A B2 30 3A 45 24 B2 22 45 4F 46 |SF.0:Z.0:E$."EOF| 00000200: 22 00 3C 0A 16 00 4D 45 4D B2 33 31 30 30 30 3A |".<...MEM.31000:| 00000210: 45 4E B2 30 3A 45 4D 24 B2 44 24 3A 45 54 B2 30 |EN.0:EM$.D$:ET.0| 00000220: 3A 45 53 B2 30 3A 41 31 24 B2 44 24 3A 41 32 24 |:ES.0:A1$.D$:A2$| 00000230: B2 44 24 3A 41 33 24 B2 44 24 3A 8E 00 5B 0A 18 |.D$:A3$.D$:..[..| 00000240: 00 86 46 24 28 46 AA 31 29 2C 54 25 28 46 AA 31 |..F$(F.1),T%(F.1| 00000250: 29 2C 4C 25 28 46 AA 31 29 3A 8E 00 96 0A 1A 00 |),L%(F.1):......| 00000260: 86 52 45 43 24 28 52 AA 31 2C 46 AA 31 29 2C 4D |.REC$(R.1,F.1),M| 00000270: 4C 24 28 39 2C 34 29 2C 50 43 28 31 30 29 2C 54 |L$(9,4),PC(10),T| 00000280: 54 24 28 35 29 2C 48 43 24 28 39 29 2C 4B 25 28 |T$(5),HC$(9),K%(| 00000290: 52 AA 31 29 3A 8E 00 A2 0A 1C 00 8F 20 2D 2D 47 |R.1):....... --G| 000002A0: 45 54 00 B4 0A 1E 00 A1 41 24 3A 8B 41 24 B2 22 |ET......A$:.A$."| 000002B0: 22 A7 33 30 00 BA 0A 20 00 8E 00 C8 0A 22 00 8F |".30... ....."..| 000002C0: 2D 2D 43 52 45 41 54 45 00 D8 0A 24 00 8B 43 4B |--CREATE...$..CK| 000002D0: B3 B1 30 A7 8D 33 39 34 00 08 0B 26 00 99 22 93 |..0..394...&..".| 000002E0: 12 20 20 20 20 20 20 20 20 20 49 4E 49 54 49 41 |. INITIA| 000002F0: 4C 49 5A 45 20 44 41 54 41 46 49 4C 45 20 20 20 |LIZE DATAFILE | 00000300: 20 20 20 20 20 20 20 22 00 47 0B 28 00 9C 3A 8D | ".G.(..:.| 00000310: 31 36 3A 85 22 11 48 4F 57 20 4D 41 4E 59 20 46 |16:.".HOW MANY F| 00000320: 49 45 4C 44 53 20 49 4E 20 45 41 43 48 20 52 45 |IELDS IN EACH RE| 00000330: 43 4F 52 44 3F 20 30 20 9D 9D 9D 9D 22 3B 46 3A |CORD? 0 ....";F:| 00000340: 8B 46 B2 30 A7 36 38 00 56 0B 2A 00 8D 32 34 3A |.F.0.68.V.*..24:| 00000350: 81 49 B2 31 A4 46 00 96 0B 2C 00 99 22 13 11 11 |.I.1.F...,.."...| 00000360: 11 11 12 46 49 45 4C 44 20 23 22 3B 49 3A 99 22 |...FIELD #";I:."| 00000370: 11 54 49 54 4C 45 20 3F 20 20 20 20 20 20 20 20 |.TITLE ? | 00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000390: 20 20 20 20 20 22 00 C3 0B 2E 00 99 22 4C 45 4E | "......"LEN| 000003A0: 47 54 48 3F 20 20 20 20 20 20 20 20 20 20 20 20 |GTH? | 000003B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 000003C0: 20 13 22 00 EC 0B 30 00 99 22 11 11 11 11 11 22 | ."...0.."....."| 000003D0: 3B A3 36 29 3B 3A 85 46 24 28 49 29 3A 99 A3 36 |;.6);:.F$(I):..6| 000003E0: 29 3B 3A 85 4C 25 28 49 29 3A 82 49 00 06 0C 32 |);:.L%(I):.I...2| 000003F0: 00 8F 20 2D 2D 43 4F 4D 50 55 54 45 20 23 20 52 |.. --COMPUTE # R| 00000400: 45 43 4F 52 44 53 00 4C 0C 34 00 81 4A B2 30 A4 |ECORDS.L.4..J.0.| 00000410: 46 3A 52 4C B2 52 4C AA 4C 25 28 4A 29 3A 82 4A |F:RL.RL.L%(J):.J| 00000420: 3A 52 4C B2 52 4C AA 33 AC 28 46 AA 31 29 AA 35 |:RL.RL.3.(F.1).5| 00000430: 3A 52 B2 B5 28 28 4D 45 4D AB 31 32 AC 28 46 AA |:R..((MEM.12.(F.| 00000440: 31 29 AB 32 31 30 30 29 AD 52 4C 29 00 76 0C 36 |1).2100).RL).v.6| 00000450: 00 99 22 11 20 59 4F 55 52 20 53 45 4C 45 43 54 |..". YOUR SELECT| 00000460: 49 4F 4E 53 20 57 49 4C 4C 20 41 4C 4F 57 20 41 |IONS WILL ALOW A| 00000470: 50 50 52 4F 58 22 00 9E 0C 38 00 99 52 3B 22 52 |PPROX"...8..R;"R| 00000480: 45 43 4F 52 44 53 2E 20 20 12 41 92 43 43 45 50 |ECORDS. .A.CCEP| 00000490: 54 20 4F 52 12 52 92 45 4A 45 43 54 3F 22 00 B1 |T OR.R.EJECT?"..| 000004A0: 0C 3A 00 8D 33 30 3A 8B 41 24 B2 22 52 22 A7 33 |.:..30:.A$."R".3| 000004B0: 38 00 CA 0C 3C 00 8B 41 24 B2 22 41 22 A7 8D 32 |8...<..A$."A"..2| 000004C0: 36 3A 43 4B B2 31 3A 89 36 38 00 D2 0C 3E 00 89 |6:CK.1:.68...>..| 000004D0: 35 38 00 E3 0C 40 00 8F 20 2D 2D 20 4D 45 4E 55 |58...@.. -- MENU| 000004E0: 20 2D 2D 00 17 0D 42 00 99 22 93 12 20 44 41 54 | --...B..".. DAT| 000004F0: 41 46 49 4C 45 20 32 2E 36 20 28 43 29 31 39 38 |AFILE 2.6 (C)198| 00000500: 33 20 42 59 20 4D 49 4B 45 20 4B 4F 4E 53 48 41 |3 BY MIKE KONSHA| 00000510: 4B 20 22 3A 89 37 30 00 46 0D 44 00 99 22 93 12 |K ":.70.F.D.."..| 00000520: 20 20 20 20 20 20 20 20 20 20 44 41 54 41 46 49 | DATAFI| 00000530: 4C 45 20 4D 45 4E 55 20 20 20 20 20 20 20 20 20 |LE MENU | 00000540: 20 20 20 20 20 22 00 75 0D 46 00 99 22 11 20 20 | ".u.F..". | 00000550: 20 20 20 12 43 92 52 45 41 54 45 20 4E 45 57 20 | .C.REATE NEW | 00000560: 46 49 4C 45 20 20 12 51 92 55 49 54 20 50 52 4F |FILE .Q.UIT PRO| 00000570: 47 52 41 4D 22 00 9F 0D 48 00 99 22 11 20 20 20 |GRAM"...H..". | 00000580: 20 20 12 41 92 44 44 20 52 45 43 4F 52 44 20 54 | .A.DD RECORD T| 00000590: 4F 20 43 55 52 52 45 4E 54 20 46 49 4C 45 22 00 |O CURRENT FILE".| 000005A0: CC 0D 4A 00 99 22 11 20 20 20 20 20 12 4D 92 4F |..J..". .M.O| 000005B0: 44 49 46 59 20 52 45 43 4F 52 44 20 49 4E 20 43 |DIFY RECORD IN C| 000005C0: 55 52 52 45 4E 54 20 46 49 4C 45 22 00 F9 0D 4C |URRENT FILE"...L| 000005D0: 00 99 22 11 20 20 20 20 20 12 44 92 45 4C 45 54 |..". .D.ELET| 000005E0: 45 20 52 45 43 4F 52 44 20 49 4E 20 43 55 52 52 |E RECORD IN CURR| 000005F0: 45 4E 54 20 46 49 4C 45 22 00 20 0E 4E 00 99 22 |ENT FILE". .N.."| 00000600: 11 20 20 20 20 20 12 52 92 45 41 44 20 4F 4C 44 |. .R.EAD OLD| 00000610: 20 46 49 4C 45 20 46 52 4F 4D 20 44 49 53 4B 22 | FILE FROM DISK"| 00000620: 00 49 0E 50 00 99 22 11 20 20 20 20 20 12 50 92 |.I.P..". .P.| 00000630: 52 49 4E 54 20 52 45 43 4F 52 44 20 42 59 20 53 |RINT RECORD BY S| 00000640: 45 4C 45 43 54 49 4F 4E 22 00 6C 0E 52 00 99 22 |ELECTION".l.R.."| 00000650: 11 20 20 20 20 20 12 56 92 49 45 57 20 46 49 4C |. .V.IEW FIL| 00000660: 45 20 4F 4E 20 53 43 52 45 45 4E 22 00 90 0E 54 |E ON SCREEN"...T| 00000670: 00 99 22 11 20 20 20 20 20 12 53 92 4F 52 54 20 |..". .S.ORT | 00000680: 52 45 43 4F 52 44 20 42 59 20 46 49 45 4C 44 22 |RECORD BY FIELD"| 00000690: 00 B7 0E 56 00 99 22 11 20 20 20 20 20 12 57 92 |...V..". .W.| 000006A0: 52 49 54 45 20 4E 45 57 20 46 49 4C 45 20 54 4F |RITE NEW FILE TO| 000006B0: 4F 20 44 49 53 4B 22 00 E8 0E 58 00 99 22 11 20 |O DISK"...X..". | 000006C0: 20 20 20 20 12 46 92 4F 52 4D 41 54 20 41 20 44 | .F.ORMAT A D| 000006D0: 49 53 4B 20 20 12 24 92 20 44 49 53 4B 20 44 49 |ISK .$. DISK DI| 000006E0: 52 45 43 54 4F 52 59 22 00 18 0F 5A 00 99 22 11 |RECTORY"...Z..".| 000006F0: 12 20 20 20 20 20 20 50 52 45 53 53 20 54 48 45 |. PRESS THE| 00000700: 20 41 50 50 52 4F 50 52 49 41 54 45 20 4B 45 59 | APPROPRIATE KEY| 00000710: 20 20 20 20 20 20 20 22 00 41 0F 5C 00 99 22 20 | ".A.\.." | 00000720: 20 54 48 45 52 45 20 41 52 45 22 3B 58 3B 22 52 | THERE ARE";X;"R| 00000730: 45 43 4F 52 44 53 20 49 4E 20 4D 45 4D 4F 52 59 |ECORDS IN MEMORY| 00000740: 22 00 6D 0F 5E 00 8B 52 B1 30 A7 99 22 20 20 53 |".m.^..R.0.." S| 00000750: 50 41 43 45 20 46 4F 52 22 3B 52 AB 58 3B 22 4D |PACE FOR";R.X;"M| 00000760: 4F 52 45 20 52 45 43 4F 52 44 53 91 22 00 87 0F |ORE RECORDS."...| 00000770: 60 00 8D 33 30 3A 8B 41 24 B2 22 41 22 A7 8D 33 |`..30:.A$."A"..3| 00000780: 35 30 3A 89 31 32 34 00 9D 0F 62 00 8B 41 24 B2 |50:.124...b..A$.| 00000790: 22 4D 22 A7 8D 33 35 30 3A 89 32 34 34 00 B3 0F |"M"..350:.244...| 000007A0: 64 00 8B 41 24 B2 22 44 22 A7 8D 33 35 30 3A 89 |d..A$."D"..350:.| 000007B0: 32 37 32 00 C2 0F 66 00 8B 41 24 B2 22 43 22 A7 |272...f..A$."C".| 000007C0: 33 36 00 D2 0F 68 00 8B 41 24 B2 22 52 22 A7 31 |36...h..A$."R".1| 000007D0: 37 30 00 E8 0F 6A 00 8B 41 24 B2 22 50 22 A7 8D |70...j..A$."P"..| 000007E0: 33 35 34 3A 89 33 35 36 00 FE 0F 6C 00 8B 41 24 |354:.356...l..A$| 000007F0: B2 22 56 22 A7 8D 33 35 30 3A 89 31 39 32 00 14 |."V"..350:.192..| 00000800: 10 6E 00 8B 41 24 B2 22 57 22 A7 8D 33 35 30 3A |.n..A$."W"..350:| 00000810: 89 31 34 34 00 2A 10 70 00 8B 41 24 B2 22 53 22 |.144.*.p..A$."S"| 00000820: A7 8D 33 35 30 3A 89 33 30 34 00 3A 10 72 00 8B |..350:.304.:.r..| 00000830: 41 24 B2 22 51 22 A7 33 34 32 00 4A 10 74 00 8B |A$."Q".342.J.t..| 00000840: 41 24 B2 22 46 22 A7 34 30 32 00 5A 10 76 00 8B |A$."F".402.Z.v..| 00000850: 41 24 B2 22 24 22 A7 34 32 32 00 62 10 78 00 89 |A$."$".422.b.x..| 00000860: 39 36 00 7A 10 7A 00 8F 20 2D 2D 20 41 44 44 20 |96.z.z.. -- ADD | 00000870: 52 45 43 4F 52 44 53 20 2D 2D 00 B5 10 7C 00 81 |RECORDS --...|..| 00000880: 49 B2 58 AA 31 A4 52 3A 99 22 93 11 50 52 45 53 |I.X.1.R:."..PRES| 00000890: 53 20 54 48 45 20 12 52 45 54 55 52 4E 92 20 4B |S THE .RETURN. K| 000008A0: 45 59 20 41 46 54 45 52 20 45 41 43 48 20 45 4E |EY AFTER EACH EN| 000008B0: 54 52 59 11 22 00 E7 10 7E 00 99 22 50 52 45 53 |TRY."...~.."PRES| 000008C0: 53 20 12 52 45 54 55 52 4E 92 20 57 49 54 48 4F |S .RETURN. WITHO| 000008D0: 55 54 20 41 4E 59 20 45 4E 54 52 59 20 54 4F 20 |UT ANY ENTRY TO | 000008E0: 53 54 4F 50 11 11 22 00 04 11 80 00 99 22 12 52 |STOP.."......".R| 000008F0: 45 43 4F 52 44 20 4E 55 4D 42 45 52 20 22 3B 49 |ECORD NUMBER ";I| 00000900: 3B 22 11 22 00 0F 11 82 00 81 4E B2 31 A4 46 00 |;"."......N.1.F.| 00000910: 4C 11 84 00 99 46 24 28 4E 29 3B 22 20 20 20 3E |L....F$(N);" >| 00000920: 9D 9D 9D 22 3B 3A 85 52 45 43 24 28 49 2C 4E 29 |...";:.REC$(I,N)| 00000930: 3A 8B 52 45 43 24 28 49 2C 4E 29 B2 22 22 A7 52 |:.REC$(I,N)."".R| 00000940: 45 43 24 28 49 2C 4E 29 B2 22 3E 22 00 6E 11 86 |EC$(I,N).">".n..| 00000950: 00 8B C3 28 52 45 43 24 28 49 2C 4E 29 29 B1 4C |...(REC$(I,N)).L| 00000960: 25 28 4E 29 A7 8D 31 34 30 3A 89 31 33 32 00 90 |%(N)..140:.132..| 00000970: 11 88 00 8B 52 45 43 24 28 49 2C 31 29 B2 22 3E |....REC$(I,1).">| 00000980: 22 A7 58 B2 49 AB 31 3A 43 4B B2 31 3A 89 36 38 |".X.I.1:CK.1:.68| 00000990: 00 AF 11 8A 00 82 4E 3A 4B 25 28 49 29 B2 49 3A |......N:K%(I).I:| 000009A0: 82 49 3A 58 B2 52 3A 43 4B B2 31 3A 89 36 38 00 |.I:X.R:CK.1:.68.| 000009B0: DB 11 8C 00 99 22 43 41 4E 4E 4F 54 20 45 58 43 |....."CANNOT EXC| 000009C0: 45 45 44 12 22 3B 4C 25 28 4E 29 3B 22 20 43 48 |EED.";L%(N);" CH| 000009D0: 41 52 41 43 54 45 52 53 22 3A 8E 00 EC 11 8E 00 |ARACTERS":......| 000009E0: 8F 20 2D 2D 20 53 41 56 45 20 2D 2D 00 1C 12 90 |. -- SAVE --....| 000009F0: 00 99 22 93 11 45 4E 54 45 52 20 4E 41 4D 45 20 |.."..ENTER NAME | 00000A00: 4F 46 20 43 55 52 52 45 4E 54 20 46 49 4C 45 20 |OF CURRENT FILE | 00000A10: 54 4F 20 42 45 20 53 41 56 45 44 22 00 4B 12 92 |TO BE SAVED".K..| 00000A20: 00 99 22 28 31 32 20 43 48 41 52 41 43 54 45 52 |.."(12 CHARACTER| 00000A30: 53 20 4D 41 58 29 2E 20 20 41 4E 59 20 45 58 49 |S MAX). ANY EXI| 00000A40: 53 54 49 4E 47 20 46 49 4C 45 22 00 7A 12 94 00 |STING FILE".z...| 00000A50: 99 22 57 49 54 48 20 54 48 45 20 53 41 4D 45 20 |."WITH THE SAME | 00000A60: 4E 41 4D 45 20 57 49 4C 4C 20 42 45 20 53 43 52 |NAME WILL BE SCR| 00000A70: 41 54 43 48 45 44 2E 11 11 22 00 9C 12 96 00 99 |ATCHED..."......| 00000A80: 22 20 20 22 3B 4E 46 24 3A 85 22 91 22 3B 4E 46 |" ";NF$:.".";NF| 00000A90: 24 3A 8B 4E 46 24 B2 22 22 A7 36 38 00 CC 12 98 |$:.NF$."".68....| 00000AA0: 00 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 53 |..15,8,15:.15,"S| 00000AB0: 30 3A 44 46 5D 20 22 AA C8 28 4E 46 24 2C 38 29 |0:DF] "..(NF$,8)| 00000AC0: AA 22 21 4F 4C 44 22 3A 8D 34 31 34 00 FC 12 9A |."!OLD":.414....| 00000AD0: 00 98 31 35 2C 22 52 30 3A 44 46 5D 20 22 AA C8 |..15,"R0:DF] "..| 00000AE0: 28 4E 46 24 2C 38 29 AA 22 21 4F 4C 44 3D 44 46 |(NF$,8)."!OLD=DF| 00000AF0: 5D 20 22 AA 4E 46 24 3A 8D 34 31 34 00 20 13 9C |] ".NF$:.414. ..| 00000B00: 00 9F 35 2C 38 2C 35 2C 22 30 3A 44 46 5D 20 22 |..5,8,5,"0:DF] "| 00000B10: AA 4E 46 24 AA 22 2C 53 2C 57 22 3A 8D 34 31 34 |.NF$.",S,W":.414| 00000B20: 00 57 13 9E 00 98 35 2C 52 3B 43 52 24 3B 46 3B |.W....5,R;CR$;F;| 00000B30: 43 52 24 3B 58 3A 8D 34 31 34 3A 81 4E B2 31 A4 |CR$;X:.414:.N.1.| 00000B40: 46 3A 98 35 2C 46 24 28 4E 29 3B 43 52 24 3B 4C |F:.5,F$(N);CR$;L| 00000B50: 25 28 4E 29 3A 82 4E 00 7D 13 A0 00 81 49 B2 31 |%(N):.N.}....I.1| 00000B60: A4 58 3A 99 22 11 53 41 56 49 4E 47 20 52 45 43 |.X:.".SAVING REC| 00000B70: 4F 52 44 20 23 22 3B 49 3B 22 91 91 22 00 A2 13 |ORD #";I;".."...| 00000B80: A2 00 81 4E B2 31 A4 46 3A 98 35 2C 52 45 43 24 |...N.1.F:.5,REC$| 00000B90: 28 49 2C 4E 29 3A 82 4E 3A 8D 34 31 34 3A 82 49 |(I,N):.N:.414:.I| 00000BA0: 3A 99 00 D9 13 A4 00 81 49 B2 31 A4 58 3A 99 22 |:.......I.1.X:."| 00000BB0: 11 53 41 56 49 4E 47 20 50 4F 49 4E 54 45 52 53 |.SAVING POINTERS| 00000BC0: 22 3B 49 3B 22 91 91 22 3A 98 35 2C 4B 25 28 49 |";I;"..":.5,K%(I| 00000BD0: 29 3A 82 49 3A 8D 34 31 34 00 F3 13 A6 00 98 35 |):.I:.414......5| 00000BE0: 2C 45 24 3A A0 35 3A A0 31 35 3A 43 4B B2 30 3A |,E$:.5:.15:CK.0:| 00000BF0: 89 36 38 00 04 14 A8 00 8F 20 2D 2D 20 4C 4F 41 |.68...... -- LOA| 00000C00: 44 20 2D 2D 00 14 14 AA 00 8B 43 4B B3 B1 30 A7 |D --......CK..0.| 00000C10: 8D 33 39 34 00 4A 14 AC 00 9C 3A 8D 31 36 3A 99 |.394.J....:.16:.| 00000C20: 22 93 11 45 4E 54 45 52 20 4E 41 4D 45 20 4F 46 |"..ENTER NAME OF| 00000C30: 20 46 49 4C 45 20 54 4F 20 42 45 20 4C 4F 41 44 | FILE TO BE LOAD| 00000C40: 45 44 11 11 22 3A 85 4E 46 24 00 77 14 AE 00 9F |ED..":.NF$.w....| 00000C50: 31 35 2C 38 2C 31 35 3A 9F 35 2C 38 2C 35 2C 22 |15,8,15:.5,8,5,"| 00000C60: 30 3A 44 46 5D 20 22 AA 4E 46 24 AA 22 2C 53 2C |0:DF] ".NF$.",S,| 00000C70: 52 22 3A 8D 34 31 34 00 AA 14 B0 00 84 35 2C 52 |R":.414......5,R| 00000C80: 2C 46 2C 58 3A 8D 34 31 34 3A 8D 32 34 3A 8D 32 |,F,X:.414:.24:.2| 00000C90: 36 3A 81 4E B2 31 A4 46 3A 84 35 2C 46 24 28 4E |6:.N.1.F:.5,F$(N| 00000CA0: 29 2C 4C 25 28 4E 29 3A 82 4E 00 D1 14 B2 00 81 |),L%(N):.N......| 00000CB0: 49 B2 31 A4 58 3A 99 22 11 52 45 41 44 49 4E 47 |I.1.X:.".READING| 00000CC0: 20 52 45 43 4F 52 44 20 23 22 3B 49 3B 22 91 91 | RECORD #";I;"..| 00000CD0: 22 00 F6 14 B4 00 81 4E B2 31 A4 46 3A 84 35 2C |"......N.1.F:.5,| 00000CE0: 52 45 43 24 28 49 2C 4E 29 3A 82 4E 3A 8D 34 31 |REC$(I,N):.N:.41| 00000CF0: 34 3A 82 49 3A 99 00 29 15 B6 00 81 49 B2 31 A4 |4:.I:..)....I.1.| 00000D00: 58 3A 99 22 11 52 45 41 44 49 4E 47 20 50 4F 49 |X:.".READING POI| 00000D10: 4E 54 45 52 53 22 3B 49 3B 22 91 91 22 3A 84 35 |NTERS";I;"..":.5| 00000D20: 2C 4B 25 28 49 29 3A 82 49 00 41 15 B8 00 8D 34 |,K%(I):.I.A....4| 00000D30: 31 34 3A 53 B2 53 54 3A 8B 53 B3 B1 30 A7 31 38 |14:S.ST:.S..0.18| 00000D40: 38 00 4B 15 BA 00 84 35 2C 45 24 00 5A 15 BC 00 |8.K....5,E$.Z...| 00000D50: A0 35 3A A0 31 35 3A 89 36 38 00 6B 15 BE 00 8F |.5:.15:.68.k....| 00000D60: 20 2D 2D 20 56 49 45 57 20 2D 2D 00 73 15 C0 00 | -- VIEW --.s...| 00000D70: 49 B2 31 00 7F 15 C2 00 8B 49 B2 30 A7 36 38 00 |I.1......I.0.68.| 00000D80: 8B 15 C4 00 8B 49 B1 58 A7 36 38 00 BE 15 C6 00 |.....I.X.68.....| 00000D90: 99 22 93 11 11 12 52 45 43 4F 52 44 20 4E 55 4D |."....RECORD NUM| 00000DA0: 42 45 52 92 22 3B 49 3B 22 20 12 49 4E 20 46 49 |BER.";I;" .IN FI| 00000DB0: 4C 45 92 20 22 3B 4E 46 24 3B 22 11 11 22 00 E7 |LE. ";NF$;".."..| 00000DC0: 15 C8 00 81 4E B2 31 A4 46 3A 99 46 24 28 4E 29 |....N.1.F:.F$(N)| 00000DD0: 3B 22 3A 20 12 22 3B 52 45 43 24 28 4B 25 28 49 |;": .";REC$(K%(I| 00000DE0: 29 2C 4E 29 3A 82 4E 00 1F 16 CA 00 99 22 11 20 |),N):.N......". | 00000DF0: 12 4E 92 45 58 52 2C 20 12 4C 92 41 53 54 2C 20 |.N.EXR, .L.AST, | 00000E00: 12 4A 92 55 4D 50 2C 20 12 46 92 49 4E 44 2C 20 |.J.UMP, .F.IND, | 00000E10: 12 45 92 58 49 54 20 54 4F 20 4D 45 4E 55 22 00 |.E.XIT TO MENU".| 00000E20: 3A 16 CC 00 8D 33 30 3A 8B 41 24 B2 22 4E 22 A7 |:....30:.A$."N".| 00000E30: 49 B2 49 AA 31 3A 89 31 39 34 00 51 16 CE 00 8B |I.I.1:.194.Q....| 00000E40: 41 24 B2 22 4C 22 A7 49 B2 49 AB 31 3A 89 31 39 |A$."L".I.I.1:.19| 00000E50: 34 00 61 16 D0 00 8B 41 24 B2 22 4A 22 A7 32 31 |4.a....A$."J".21| 00000E60: 36 00 71 16 D2 00 8B 41 24 B2 22 46 22 A7 32 31 |6.q....A$."F".21| 00000E70: 38 00 80 16 D4 00 8B 41 24 B2 22 45 22 A7 36 38 |8......A$."E".68| 00000E80: 00 89 16 D6 00 89 32 30 34 00 AE 16 D8 00 85 22 |......204......"| 00000E90: 11 4A 55 4D 50 20 54 4F 20 52 45 43 4F 52 44 20 |.JUMP TO RECORD | 00000EA0: 4E 55 4D 42 45 52 22 3B 49 3A 89 31 39 34 00 DC |NUMBER";I:.194..| 00000EB0: 16 DA 00 99 22 93 20 20 20 20 12 46 49 4E 44 20 |....". .FIND | 00000EC0: 52 45 43 4F 52 44 53 20 57 49 54 48 20 43 4F 4D |RECORDS WITH COM| 00000ED0: 4D 4F 4E 20 49 54 45 4D 53 20 11 22 00 FD 16 DC |MON ITEMS ."....| 00000EE0: 00 81 4E B2 31 A4 46 3A 99 22 20 12 22 3B 4E 3B |..N.1.F:." .";N;| 00000EF0: 22 92 20 22 3B 46 24 28 4E 29 3A 82 4E 00 37 17 |". ";F$(N):.N.7.| 00000F00: DE 00 85 22 11 57 48 49 43 48 20 46 49 45 4C 44 |...".WHICH FIELD| 00000F10: 20 49 53 20 54 4F 20 42 45 20 53 45 41 52 43 48 | IS TO BE SEARCH| 00000F20: 45 44 3F 20 30 20 9D 9D 9D 9D 22 3B 53 46 3A 8B |ED? 0 ....";SF:.| 00000F30: 53 46 B2 30 A7 36 38 00 52 17 E0 00 8B 53 46 B3 |SF.0.68.R....SF.| 00000F40: 31 B0 53 46 B1 46 A7 99 22 91 91 91 22 3A 89 32 |1.SF.F.."...":.2| 00000F50: 32 32 00 97 17 E2 00 99 22 11 45 4E 54 45 52 20 |22......".ENTER | 00000F60: 12 43 4F 4D 4D 4F 4E 20 49 54 45 4D 92 20 22 3A |.COMMON ITEM. ":| 00000F70: 99 22 11 28 54 48 45 20 45 4E 54 49 52 45 20 53 |.".(THE ENTIRE S| 00000F80: 54 52 49 4E 47 20 49 53 20 4E 4F 54 20 52 45 51 |TRING IS NOT REQ| 00000F90: 55 49 52 45 44 29 22 00 B2 17 E4 00 99 22 11 12 |UIRED)"......"..| 00000FA0: 22 3B 46 24 28 53 46 29 3B 22 92 20 22 3B 3A 85 |";F$(SF);". ";:.| 00000FB0: 54 24 00 D9 17 E6 00 81 49 B2 31 A4 58 3A 99 22 |T$......I.1.X:."| 00000FC0: 11 53 45 41 52 43 48 49 4E 47 20 52 45 43 4F 52 |.SEARCHING RECOR| 00000FD0: 44 22 3B 49 3B 22 91 91 22 00 FD 17 E8 00 8B 54 |D";I;".."......T| 00000FE0: 24 B2 C8 28 52 45 43 24 28 4B 25 28 49 29 2C 53 |$..(REC$(K%(I),S| 00000FF0: 46 29 2C C3 28 54 24 29 29 A7 32 33 36 00 06 18 |F),.(T$)).236...| 00001000: EA 00 89 32 34 30 00 43 18 EC 00 99 22 93 20 52 |...240.C....". R| 00001010: 45 43 4F 52 44 20 23 22 3B 49 3B 22 11 22 3A 81 |ECORD #";I;".":.| 00001020: 4E B2 31 A4 46 3A 99 46 24 28 4E 29 3B 22 3A 20 |N.1.F:.F$(N);": | 00001030: 12 22 3B 52 45 43 24 28 4B 25 28 49 29 2C 4E 29 |.";REC$(K%(I),N)| 00001040: 3A 82 4E 00 5E 18 EE 00 99 22 11 20 12 4E 92 45 |:.N.^....". .N.E| 00001050: 58 52 20 52 45 43 4F 52 44 22 3A 8D 33 30 00 69 |XR RECORD":.30.i| 00001060: 18 F0 00 82 49 3A 89 36 38 00 7C 18 F2 00 8F 20 |....I:.68.|.... | 00001070: 2D 2D 20 4D 4F 44 49 46 59 20 2D 2D 00 BF 18 F4 |-- MODIFY --....| 00001080: 00 99 22 93 11 4D 4F 44 49 46 59 20 57 48 49 43 |.."..MODIFY WHIC| 00001090: 48 20 52 45 43 4F 52 44 3F 20 45 4E 54 45 52 20 |H RECORD? ENTER | 000010A0: 12 23 92 20 4F 52 20 12 41 92 4C 4C 11 11 22 3A |.#. OR .A.LL..":| 000010B0: 85 4D 52 24 3A 8B 4D 52 24 B2 44 24 A7 36 38 00 |.MR$:.MR$.D$.68.| 000010C0: D8 18 F6 00 8B 4D 52 24 B2 22 41 22 A7 4D 52 24 |.....MR$."A".MR$| 000010D0: B2 44 24 3A 89 32 35 34 00 EC 18 F8 00 49 B2 C5 |.D$:.254.....I..| 000010E0: 28 4D 52 24 29 3A 4D 52 24 B2 44 24 00 FF 18 FA |(MR$):MR$.D$....| 000010F0: 00 8B 49 B1 58 A7 8D 33 34 38 3A 89 32 34 34 00 |..I.X..348:.244.| 00001100: 0C 19 FC 00 8D 32 35 36 3A 89 36 38 00 23 19 FE |.....256:.68.#..| 00001110: 00 81 49 B2 31 A4 58 3A 8D 32 35 36 3A 82 49 3A |..I.1.X:.256:.I:| 00001120: 89 36 38 00 57 19 00 01 99 22 93 11 54 4F 20 4D |.68.W...."..TO M| 00001130: 4F 44 49 46 59 20 52 45 43 4F 52 44 20 4E 55 4D |ODIFY RECORD NUM| 00001140: 42 45 52 22 3B 49 3B 22 2C 20 4D 41 4B 45 20 43 |BER";I;", MAKE C| 00001150: 48 41 4E 47 45 53 22 00 89 19 02 01 99 22 41 53 |HANGES"......"AS| 00001160: 20 45 41 43 48 20 46 49 45 4C 44 20 49 53 20 44 | EACH FIELD IS D| 00001170: 49 53 50 4C 41 59 45 44 2C 20 54 48 45 4E 20 12 |ISPLAYED, THEN .| 00001180: 52 45 54 55 52 4E 92 11 22 00 B4 19 04 01 81 4E |RETURN.."......N| 00001190: B2 31 A4 46 3A 99 46 24 28 4E 29 22 3A 22 3A 99 |.1.F:.F$(N)":":.| 000011A0: 22 20 20 20 12 22 3B 52 45 43 24 28 4B 25 28 49 |" .";REC$(K%(I| 000011B0: 29 2C 4E 29 00 CE 19 06 01 99 22 91 20 22 3B 3A |),N)......". ";:| 000011C0: 85 52 45 43 24 28 4B 25 28 49 29 2C 4E 29 00 F4 |.REC$(K%(I),N)..| 000011D0: 19 08 01 8B C3 28 52 45 43 24 28 4B 25 28 49 29 |.....(REC$(K%(I)| 000011E0: 2C 4E 29 29 B1 4C 25 28 4E 29 A7 8D 31 34 30 3A |,N)).L%(N)..140:| 000011F0: 89 32 36 30 00 1C 1A 0A 01 8B 52 45 43 24 28 4B |.260......REC$(K| 00001200: 25 28 49 29 2C 4E 29 B2 22 22 A7 52 45 43 24 28 |%(I),N)."".REC$(| 00001210: 4B 25 28 49 29 2C 4E 29 B2 22 3E 22 00 2A 1A 0C |K%(I),N).">".*..| 00001220: 01 82 4E 3A 43 4B B2 31 3A 8E 00 3D 1A 0E 01 8F |..N:CK.1:..=....| 00001230: 20 2D 2D 20 44 45 4C 45 54 45 20 2D 2D 00 70 1A | -- DELETE --.p.| 00001240: 10 01 99 22 93 11 44 45 4C 45 54 45 20 57 48 49 |..."..DELETE WHI| 00001250: 43 48 20 52 45 43 4F 52 44 3F 20 45 4E 54 45 52 |CH RECORD? ENTER| 00001260: 20 12 23 92 20 4F 52 20 12 41 92 4C 4C 11 11 22 | .#. OR .A.LL.."| 00001270: 00 84 1A 12 01 85 44 52 24 3A 8B 44 52 24 B2 44 |......DR$:.DR$.D| 00001280: 24 A7 36 38 00 9D 1A 14 01 8B 44 52 24 B2 22 41 |$.68......DR$."A| 00001290: 22 A7 44 52 24 B2 44 24 3A 89 32 38 32 00 C0 1A |".DR$.D$:.282...| 000012A0: 16 01 49 B2 C5 28 44 52 24 29 3A 44 52 24 B2 44 |..I..(DR$):DR$.D| 000012B0: 24 3A 8B 49 B1 58 A7 8D 33 34 38 3A 89 32 37 34 |$:.I.X..348:.274| 000012C0: 00 CD 1A 18 01 8D 32 38 34 3A 89 36 38 00 E4 1A |......284:.68...| 000012D0: 1A 01 81 49 B2 31 A4 58 3A 8D 32 38 34 3A 82 49 |...I.1.X:.284:.I| 000012E0: 3A 89 36 38 00 11 1B 1C 01 99 22 93 11 54 4F 20 |:.68......"..TO | 000012F0: 44 45 4C 45 54 45 20 52 45 43 4F 52 44 20 4E 55 |DELETE RECORD NU| 00001300: 4D 42 45 52 22 3B 49 3B 22 2C 20 50 52 45 53 53 |MBER";I;", PRESS| 00001310: 22 00 43 1B 1E 01 99 22 12 53 48 49 46 54 92 20 |".C....".SHIFT. | 00001320: 12 44 92 2C 20 50 52 45 53 53 20 12 53 50 41 43 |.D., PRESS .SPAC| 00001330: 45 20 42 41 52 92 20 54 4F 20 41 44 56 41 4E 43 |E BAR. TO ADVANC| 00001340: 45 11 22 00 6D 1B 20 01 81 4E B2 31 A4 46 3A 99 |E.".m. ..N.1.F:.| 00001350: 46 24 28 4E 29 3B 22 20 20 20 12 22 3B 52 45 43 |F$(N);" .";REC| 00001360: 24 28 4B 25 28 49 29 2C 4E 29 3A 82 4E 00 81 1B |$(K%(I),N):.N...| 00001370: 22 01 8D 33 30 3A 8B 41 24 B2 22 C4 22 A7 32 39 |"..30:.A$.".".29| 00001380: 34 00 8C 1B 24 01 43 4B B2 31 3A 8E 00 CC 1B 26 |4...$.CK.1:....&| 00001390: 01 99 22 11 11 44 45 4C 45 54 49 4E 47 20 52 45 |.."..DELETING RE| 000013A0: 43 4F 52 44 22 3B 49 3A 99 22 11 12 52 45 43 4F |CORD";I:."..RECO| 000013B0: 52 44 53 20 4D 41 59 20 4E 4F 57 20 42 45 20 4F |RDS MAY NOW BE O| 000013C0: 55 54 20 4F 46 20 4F 52 44 45 52 22 00 FF 1B 28 |UT OF ORDER"...(| 000013D0: 01 81 4E B2 31 A4 46 3A 52 45 43 24 28 4B 25 28 |..N.1.F:REC$(K%(| 000013E0: 49 29 2C 4E 29 B2 52 45 43 24 28 58 2C 4E 29 3A |I),N).REC$(X,N):| 000013F0: 52 45 43 24 28 58 2C 4E 29 B2 22 22 3A 82 4E 00 |REC$(X,N)."":.N.| 00001400: 32 1C 2A 01 81 4A B2 31 A4 58 3A 8B 4B 25 28 4A |2.*..J.1.X:.K%(J| 00001410: 29 B2 58 A7 4B 25 28 4A 29 B2 4B 25 28 58 29 3A |).X.K%(J).K%(X):| 00001420: 4B 25 28 58 29 B2 30 3A 58 B2 58 AB 31 3A 89 32 |K%(X).0:X.X.1:.2| 00001430: 39 32 00 39 1C 2C 01 82 4A 00 4A 1C 2E 01 8F 20 |92.9.,..J.J.... | 00001440: 2D 2D 20 53 4F 52 54 20 2D 2D 00 7D 1C 30 01 99 |-- SORT --.}.0..| 00001450: 22 93 11 20 12 20 20 20 20 53 4F 52 54 20 52 45 |".. . SORT RE| 00001460: 43 4F 52 44 53 20 49 4E 20 41 53 43 45 4E 44 49 |CORDS IN ASCENDI| 00001470: 4E 47 20 4F 52 44 45 52 20 20 20 11 22 00 9E 1C |NG ORDER ."...| 00001480: 32 01 81 4E B2 31 A4 46 3A 99 22 20 12 22 3B 4E |2..N.1.F:." .";N| 00001490: 3B 22 92 20 22 3B 46 24 28 4E 29 3A 82 4E 00 D6 |;". ";F$(N):.N..| 000014A0: 1C 34 01 85 22 11 57 48 49 43 48 20 46 49 45 4C |.4..".WHICH FIEL| 000014B0: 44 20 49 53 20 54 4F 20 42 45 20 53 4F 52 54 45 |D IS TO BE SORTE| 000014C0: 44 3F 20 30 20 9D 9D 9D 9D 22 3B 53 46 3A 8B 53 |D? 0 ....";SF:.S| 000014D0: 46 B2 30 A7 36 38 00 EC 1C 36 01 8B 53 46 B1 46 |F.0.68...6..SF.F| 000014E0: A7 99 22 91 91 91 22 3A 89 33 30 38 00 08 1D 38 |.."...":.308...8| 000014F0: 01 99 22 11 20 12 50 4C 45 41 53 45 20 57 41 49 |..". .PLEASE WAI| 00001500: 54 92 11 22 3A 4D B2 58 00 23 1D 3A 01 4D B2 B5 |T..":M.X.#.:.M..| 00001510: 28 4D AD 32 29 3A 8B 4D B2 30 A7 43 4B B2 31 3A |(M.2):.M.0.CK.1:| 00001520: 89 36 38 00 31 1D 3C 01 4A B2 31 3A 4B B2 58 AB |.68.1.<.J.1:K.X.| 00001530: 4D 00 39 1D 3E 01 49 B2 4A 00 43 1D 40 01 4C B2 |M.9.>.I.J.C.@.L.| 00001540: 49 AA 4D 00 64 1D 42 01 99 22 53 4F 52 54 49 4E |I.M.d.B.."SORTIN| 00001550: 47 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 22 3B 49 |G .....";I| 00001560: 3B 22 91 22 00 8C 1D 44 01 8B 52 45 43 24 28 4B |;"."...D..REC$(K| 00001570: 25 28 49 29 2C 53 46 29 B3 B2 52 45 43 24 28 4B |%(I),SF)..REC$(K| 00001580: 25 28 4C 29 2C 53 46 29 A7 33 32 38 00 C3 1D 46 |%(L),SF).328...F| 00001590: 01 54 25 28 4E 29 B2 4B 25 28 49 29 3A 4B 25 28 |.T%(N).K%(I):K%(| 000015A0: 49 29 B2 4B 25 28 4C 29 3A 4B 25 28 4C 29 B2 54 |I).K%(L):K%(L).T| 000015B0: 25 28 4E 29 3A 49 B2 49 AB 4D 3A 8B 49 B1 30 A7 |%(N):I.I.M:.I.0.| 000015C0: 33 32 30 00 D6 1D 48 01 4A B2 4A AA 31 3A 8B 4A |320...H.J.J.1:.J| 000015D0: B1 4B A7 33 31 34 00 DF 1D 4A 01 89 33 31 38 00 |.K.314...J..318.| 000015E0: F0 1D 4C 01 8F 20 2D 2D 20 51 55 49 54 20 2D 2D |..L.. -- QUIT --| 000015F0: 00 1D 1E 4E 01 99 22 93 11 11 20 12 59 4F 55 20 |...N.."... .YOU | 00001600: 48 41 56 45 20 4E 4F 54 20 53 41 56 45 44 20 59 |HAVE NOT SAVED Y| 00001610: 4F 55 52 20 43 48 41 4E 47 45 53 21 22 00 4E 1E |OUR CHANGES!".N.| 00001620: 50 01 99 22 11 11 20 44 4F 20 59 4F 55 20 52 45 |P..".. DO YOU RE| 00001630: 41 4C 4C 59 20 57 41 4E 54 20 54 4F 20 51 55 49 |ALLY WANT TO QUI| 00001640: 54 3F 20 12 59 92 20 4F 52 20 12 4E 92 22 00 62 |T? .Y. OR .N.".b| 00001650: 1E 52 01 8D 33 30 3A 8B 41 24 B2 22 59 22 A7 33 |.R..30:.A$."Y".3| 00001660: 34 34 00 6A 1E 54 01 89 36 38 00 79 1E 56 01 8B |44.j.T..68.y.V..| 00001670: 43 4B B3 B1 30 A7 33 33 34 00 99 1E 58 01 99 22 |CK..0.334...X.."| 00001680: 93 11 11 44 41 54 41 46 49 4C 45 20 54 45 52 4D |...DATAFILE TERM| 00001690: 49 4E 41 54 45 44 22 3A 80 00 B1 1E 5A 01 8F 20 |INATED":....Z.. | 000016A0: 2D 2D 20 45 52 52 4F 52 20 43 48 45 43 4B 20 2D |-- ERROR CHECK -| 000016B0: 2D 00 D1 1E 5C 01 99 22 20 4E 4F 20 53 55 43 48 |-...\.." NO SUCH| 000016C0: 20 52 45 43 4F 52 44 20 45 58 49 53 54 53 22 3A | RECORD EXISTS":| 000016D0: 8E 00 DC 1E 5E 01 8B 52 B1 30 A7 8E 00 0A 1F 60 |....^..R.0.....`| 000016E0: 01 99 22 93 11 20 4E 4F 20 46 49 4C 45 53 20 49 |..".. NO FILES I| 000016F0: 4E 20 4D 45 4D 4F 52 59 22 3A 81 49 B2 31 A4 31 |N MEMORY":.I.1.1| 00001700: 30 30 30 3A 82 49 3A 89 36 38 00 1C 1F 62 01 8B |000:.I:.68...b..| 00001710: 58 B3 31 A7 8D 33 35 32 3A 89 36 38 00 33 1F 64 |X.1..352:.68.3.d| 00001720: 01 8F 20 2D 2D 20 4C 4F 41 44 20 50 52 49 4E 54 |.. -- LOAD PRINT| 00001730: 20 2D 2D 00 63 1F 66 01 99 22 93 20 12 20 20 20 | --.c.f..". . | 00001740: 20 20 20 20 20 20 20 20 20 50 52 49 4E 54 45 52 | PRINTER| 00001750: 20 4D 41 49 4E 20 4D 45 4E 55 20 20 20 20 20 20 | MAIN MENU | 00001760: 20 20 22 00 82 1F 68 01 99 22 11 11 20 20 50 52 | "...h..".. PR| 00001770: 49 4E 54 20 52 45 43 4F 52 44 20 55 53 49 4E 47 |INT RECORD USING| 00001780: 3A 22 00 A4 1F 6A 01 99 22 11 20 20 20 20 20 20 |:"...j..". | 00001790: 12 52 92 45 50 4F 52 54 53 20 41 4E 44 20 4C 49 |.R.EPORTS AND LI| 000017A0: 53 54 53 22 00 C3 1F 6C 01 99 22 11 20 20 20 20 |STS"...l..". | 000017B0: 20 20 12 4D 92 41 49 4C 49 4E 47 20 4C 41 42 45 | .M.AILING LABE| 000017C0: 4C 53 22 00 EB 1F 6E 01 99 22 11 20 20 20 20 20 |LS"...n..". | 000017D0: 20 12 55 92 53 45 52 20 44 45 46 49 4E 45 44 20 | .U.SER DEFINED | 000017E0: 53 55 42 50 52 4F 47 52 41 4D 22 00 0D 20 70 01 |SUBPROGRAM".. p.| 000017F0: 99 22 11 20 20 20 20 20 20 12 45 92 58 49 54 20 |.". .E.XIT | 00001800: 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 22 00 3E 20 |TO MAIN MENU".> | 00001810: 72 01 99 22 11 20 12 20 20 20 20 20 20 50 52 45 |r..". . PRE| 00001820: 53 53 20 54 48 45 20 41 50 50 52 4F 50 52 49 41 |SS THE APPROPRIA| 00001830: 54 45 20 4B 45 59 20 20 20 20 20 20 20 22 00 52 |TE KEY ".R| 00001840: 20 74 01 8D 33 30 3A 8B 41 24 B2 22 52 22 A7 33 | t..30:.A$."R".3| 00001850: 38 34 00 61 20 76 01 8B 41 24 B2 22 45 22 A7 36 |84.a v..A$."E".6| 00001860: 38 00 71 20 78 01 8B 41 24 B2 22 55 22 A7 33 38 |8.q x..A$."U".38| 00001870: 36 00 81 20 7A 01 8B 41 24 B2 22 4D 22 A7 33 38 |6.. z..A$."M".38| 00001880: 32 00 8A 20 7C 01 89 33 37 32 00 C5 20 7E 01 99 |2.. |..372.. ~..| 00001890: 22 93 11 11 11 20 20 20 4C 4F 41 44 49 4E 47 20 |".... LOADING | 000018A0: 4D 41 49 4C 49 4E 47 20 4C 41 42 45 4C 20 53 55 |MAILING LABEL SU| 000018B0: 42 50 52 4F 47 52 41 4D 22 3A 93 22 44 46 4D 41 |BPROGRAM":."DFMA| 000018C0: 49 4C 22 2C 38 00 03 21 80 01 99 22 93 11 11 11 |IL",8..!..."....| 000018D0: 20 20 20 4C 4F 41 44 49 4E 47 20 52 45 50 4F 52 | LOADING REPOR| 000018E0: 54 2F 4C 49 53 54 49 4E 47 20 53 55 42 50 52 4F |T/LISTING SUBPRO| 000018F0: 47 52 41 4D 22 3A 93 22 44 46 52 45 50 4F 52 54 |GRAM":."DFREPORT| 00001900: 22 2C 38 00 28 21 82 01 99 22 93 11 11 11 20 45 |",8.(!...".... E| 00001910: 4E 54 45 52 20 4E 41 4D 45 20 4F 46 20 53 55 42 |NTER NAME OF SUB| 00001920: 50 52 4F 47 52 41 4D 22 00 4A 21 84 01 99 22 11 |PROGRAM".J!...".| 00001930: 22 3B 53 42 24 3A 85 22 91 22 3B 53 42 24 3A 8B |";SB$:.".";SB$:.| 00001940: 53 42 24 B2 44 24 A7 33 35 38 00 55 21 86 01 93 |SB$.D$.358.U!...| 00001950: 53 42 24 2C 38 00 69 21 88 01 8F 20 2D 2D 20 57 |SB$,8.i!... -- W| 00001960: 41 52 4E 49 4E 47 20 2D 2D 00 9A 21 8A 01 99 22 |ARNING --..!..."| 00001970: 93 11 20 12 54 48 49 53 20 57 49 4C 4C 20 44 45 |.. .THIS WILL DE| 00001980: 53 54 52 4F 59 20 54 48 45 20 46 49 4C 45 20 49 |STROY THE FILE I| 00001990: 4E 20 4D 45 4D 4F 52 59 21 22 00 D2 21 8C 01 99 |N MEMORY!"..!...| 000019A0: 22 11 11 20 53 41 56 45 20 54 48 45 20 46 49 4C |".. SAVE THE FIL| 000019B0: 45 20 46 49 52 53 54 3F 20 12 59 92 20 4F 52 20 |E FIRST? .Y. OR | 000019C0: 12 4E 92 22 3A 8D 33 30 3A 8B 41 24 B2 22 4E 22 |.N.":.30:.A$."N"| 000019D0: A7 8E 00 DA 21 8E 01 89 36 38 00 EF 21 90 01 8F |....!...68..!...| 000019E0: 20 2D 2D 20 4E 45 57 20 44 49 53 4B 20 2D 2D 00 | -- NEW DISK --.| 000019F0: 12 22 92 01 99 22 93 11 20 41 52 45 20 59 4F 55 |."...".. ARE YOU| 00001A00: 20 53 55 52 45 3F 20 12 59 92 20 4F 52 20 12 4E | SURE? .Y. OR .N| 00001A10: 92 22 00 25 22 94 01 8D 33 30 3A 8B 41 24 B2 22 |.".%"...30:.A$."| 00001A20: 4E 22 A7 36 38 00 35 22 96 01 8B 41 24 B3 B1 22 |N".68.5"...A$.."| 00001A30: 59 22 A7 36 38 00 60 22 98 01 85 22 11 20 12 44 |Y".68.`"...". .D| 00001A40: 49 53 4B 20 4E 41 4D 45 2C 49 44 92 22 3B 48 4E |ISK NAME,ID.";HN| 00001A50: 24 2C 49 44 24 3A 8B 48 4E 24 B2 44 24 A7 36 38 |$,ID$:.HN$.D$.68| 00001A60: 00 92 22 9A 01 9F 31 35 2C 38 2C 31 35 3A 98 31 |.."...15,8,15:.1| 00001A70: 35 2C 22 4E 45 57 30 3A 22 AA 48 4E 24 AA 22 2C |5,"NEW0:".HN$.",| 00001A80: 22 AA 49 44 24 3A 8D 34 31 34 3A A0 31 35 3A 89 |".ID$:.414:.15:.| 00001A90: 36 38 00 A9 22 9C 01 8F 20 2D 2D 20 44 49 53 4B |68.."... -- DISK| 00001AA0: 20 45 52 52 4F 52 20 2D 2D 00 D1 22 9E 01 84 31 | ERROR --.."...1| 00001AB0: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B |5,EN,EM$,ET,ES:.| 00001AC0: 28 45 4E B3 32 30 29 B0 28 45 4E B2 36 32 29 A7 |(EN.20).(EN.62).| 00001AD0: 8E 00 FB 22 A0 01 99 22 12 11 44 49 53 4B 20 45 |..."..."..DISK E| 00001AE0: 52 52 4F 52 92 22 45 4E 22 9D 2C 20 22 45 4D 24 |RROR."EN"., "EM$| 00001AF0: 22 2C 22 45 54 22 9D 2C 22 45 53 00 34 23 A2 01 |","ET".,"ES.4#..| 00001B00: 99 22 11 50 52 45 53 53 20 12 41 4E 59 20 4B 45 |.".PRESS .ANY KE| 00001B10: 59 92 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 |Y. TO RETURN TO | 00001B20: 4D 45 4E 55 22 3A 8D 33 30 3A A0 35 3A A0 31 35 |MENU":.30:.5:.15| 00001B30: 3A 89 36 38 00 4A 23 A4 01 8F 20 2D 2D 20 44 49 |:.68.J#... -- DI| 00001B40: 52 45 43 54 4F 52 59 20 2D 2D 00 6D 23 A6 01 9F |RECTORY --.m#...| 00001B50: 31 35 2C 38 2C 31 35 3A 9F 31 2C 38 2C 30 2C 22 |15,8,15:.1,8,0,"| 00001B60: 24 30 22 3A 99 22 93 22 3A 8D 34 31 34 00 7D 23 |$0":.".":.414.}#| 00001B70: A8 01 A1 23 31 2C 41 31 24 2C 41 32 24 00 8D 23 |...#1,A1$,A2$..#| 00001B80: AA 01 A1 23 31 2C 41 31 24 2C 41 32 24 00 9D 23 |...#1,A1$,A2$..#| 00001B90: AC 01 A1 23 31 2C 41 31 24 2C 41 32 24 00 B4 23 |...#1,A1$,A2$..#| 00001BA0: AE 01 8B 41 31 24 B3 B1 22 22 A7 41 30 B2 C6 28 |...A1$.."".A0..(| 00001BB0: 41 31 24 29 00 D2 23 B0 01 8B 41 32 24 B3 B1 22 |A1$)..#...A2$.."| 00001BC0: 22 A7 41 30 B2 41 30 AA C6 28 41 32 24 29 AC 32 |".A0.A0..(A2$).2| 00001BD0: 35 36 00 E7 23 B2 01 99 CA 28 C4 28 41 30 29 2C |56..#....(.(A0),| 00001BE0: 32 29 3B A3 33 29 3B 00 FE 23 B4 01 A1 23 31 2C |2);.3);..#...#1,| 00001BF0: 41 32 24 3A 8B 53 54 B3 B1 30 A7 34 35 34 00 12 |A2$:.ST..0.454..| 00001C00: 24 B6 01 8B 41 32 24 B3 B1 C7 28 33 34 29 A7 34 |$...A2$...(34).4| 00001C10: 33 36 00 3B 24 B8 01 A1 23 31 2C 41 32 24 3A 8B |36.;$...#1,A2$:.| 00001C20: 41 32 24 B3 B1 C7 28 33 34 29 A7 99 22 12 22 41 |A2$...(34).."."A| 00001C30: 32 24 22 92 22 3B 3A 89 34 34 30 00 56 24 BA 01 |2$".";:.440.V$..| 00001C40: A1 23 31 2C 41 32 24 3A 8B 41 32 24 B2 C7 28 33 |.#1,A2$:.A2$..(3| 00001C50: 32 29 A7 34 34 32 00 68 24 BC 01 99 A3 32 30 29 |2).442.h$....20)| 00001C60: 3B 3A 41 33 24 B2 22 22 00 8D 24 BE 01 41 33 24 |;:A3$.""..$..A3$| 00001C70: B2 41 33 24 AA 41 32 24 3A A1 23 31 2C 41 32 24 |.A3$.A2$:.#1,A2$| 00001C80: 3A 8B 41 32 24 B3 B1 22 22 A7 34 34 36 00 9B 24 |:.A2$.."".446..$| 00001C90: C0 01 99 C8 28 41 33 24 2C 33 29 00 B0 24 C2 01 |....(A3$,3)..$..| 00001CA0: A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 8D 34 35 38 |.A$:.A$..""..458| 00001CB0: 00 BE 24 C4 01 8B 53 54 B2 30 A7 34 32 36 00 D8 |..$...ST.0.426..| 00001CC0: 24 C6 01 99 22 20 42 4C 4F 43 4B 53 20 46 52 45 |$..." BLOCKS FRE| 00001CD0: 45 22 3B 3A 41 30 B2 30 00 02 25 C8 01 A0 31 3A |E";:A0.0..%...1:| 00001CE0: A0 31 35 3A 99 A3 32 35 29 22 50 52 45 53 53 20 |.15:..25)"PRESS | 00001CF0: 12 41 4E 59 20 4B 45 59 92 22 3A 8D 33 30 3A 89 |.ANY KEY.":.30:.| 00001D00: 36 38 00 0C 25 CA 01 8D 33 30 3A 8E 00 00 00 |68..%...30:.... |
.......12.1...:.........................
..........V...:. .FILE
*.|...:. . MAG.
......:. NOV. 84
..L...:. PAGE 75
......:..............................
.........:.#....53280,13:.53281,11:.".":
.16:.X.0.66.+....68.F...D$.G(0):MR$.D$:D
R$.D$:S.0:B1$.G(10):PW.0:CW.0:B$.G(32)..
...NC.0:NL.0:PG.0:F1.0:F2.0:F3.0:L$.D$:R
L.0:SB$.D$:CR$.G(13):HN$.D$:ID$.D$.....A
$.D$:C$.D$:T%.0:I$.D$:CK.0:I.0:J.0:K.0:L
.0:M.0:N.0:RW.5:SF.0:Z.0:E$."EOF".<...ME
M.31000:EN.0:EM$.D$:ET.0:ES.0:A1$.D$:A2$
.D$:A3$.D$:..[....F$(F.1),T%(F.1),L%(F.1
):.......REC$(R.1,F.1),ML$(9,4),PC(10),T
T$(5),HC$(9),K%(R.1):....... --GET......
A$:.A$."".30... ...H."..--CREATE.X.$..CK
..0..394...&..".. INITIALIZE DAT
AFILE ".G.(..:.16:.".HOW MANY F
IELDS IN EACH RECORD? 0 ....";F:.F.0.68.
V.*..24:.I.1.F...,.."......FIELD #";I:."
.TITLE ? ".C
...."LENGTH?
."...0..".....";.6);:.F$(I):..6);:.L%(I
):.I...2.. --COMPUTE # RECORDS.L.4..J.0.
F:RL.RL.L%(J):.J:RL.RL.3.(F.1).5:R..((ME
M.12.(F.1).2100).RL).V.6..". YOUR SELECT
IONS WILL ALOW APPROX"...8..R;"RECORDS.
.A.CCEPT OR.R.EJECT?"...:..30:.A$."R".3
8.J.<..A$."A"..26:CK.1:.68.R.>..58...@..
-- MENU --...B..".. DATAFILE 2.6 (C)198
3 BY MIKE KONSHAK ":.70.F.D.."..
DATAFILE MENU ".U.F..".
.C.REATE NEW FILE .Q.UIT PROGRAM"...
H..". .A.DD RECORD TO CURRENT FILE".
L.J..". .M.ODIFY RECORD IN CURRENT F
ILE"...L..". .D.ELETE RECORD IN CURR
ENT FILE". .N..". .R.EAD OLD FILE FR
OM DISK".I.P..". .P.RINT RECORD BY S
ELECTION".L.R..". .V.IEW FILE ON SCR
EEN"...T..". .S.ORT RECORD BY FIELD"
...V..". .W.RITE NEW FILE TOO DISK".
..X..". .F.ORMAT A DISK .$. DISK DI
RECTORY"...Z..".. PRESS THE APPROPR
IATE KEY ".A.\.." THERE ARE";X;"R
ECORDS IN MEMORY".M.^..R.0.." SPACE FOR
";R.X;"MORE RECORDS."...`..30:.A$."A"..3
50:.124...B..A$."M"..350:.244...D..A$."D
"..350:.272.B.F..A$."C".36.R.H..A$."R".1
70...J..A$."P"..354:.356...L..A$."V"..35
0:.192...N..A$."W"..350:.144.*.P..A$."S"
..350:.304.:.R..A$."Q".342.J.T..A$."F".4
02.Z.V..A$."$".422.B.X..96.Z.Z.. -- ADD
RECORDS --...|..I.X.1.R:."..PRESS THE .R
ETURN. KEY AFTER EACH ENTRY."...~.."PRES
S .RETURN. WITHOUT ANY ENTRY TO STOP..".
.....".RECORD NUMBER ";I;"."......N.1.F.
L....F$(N);" >...";:.REC$(I,N):.REC$(I
,N)."".REC$(I,N).">".N....C(REC$(I,N)).L
%(N)..140:.132......REC$(I,1).">".X.I.1:
CK.1:.68......N:K%(I).I:.I:X.R:CK.1:.68.
....."CANNOT EXCEED.";L%(N);" CHARACTERS
":....... -- SAVE --......"..ENTER NAME
OF CURRENT FILE TO BE SAVED".K...."(12 C
HARACTERS MAX). ANY EXISTING FILE".Z...
."WITH THE SAME NAME WILL BE SCRATCHED..
."......" ";NF$:.".";NF$:.NF$."".68.L..
..15,8,15:.15,"S0:DF] ".H(NF$,8)."!OLD":
.414......15,"R0:DF] ".H(NF$,8)."!OLD=DF
] ".NF$:.414. ....5,8,5,"0:DF] ".NF$.",S
,W":.414.W....5,R;CR$;F;CR$;X:.414:.N.1.
F:.5,F$(N);CR$;L%(N):.N.}. ..I.1.X:.".SA
VING RECORD #";I;".."......N.1.F:.5,REC$
(I,N):.N:.414:.I:..Y....I.1.X:.".SAVING
POINTERS";I;"..":.5,K%(I):.I:.414......5
,E$: 5: 15:CK.0:.68...... -- LOAD --....
..CK..0..394.J....:.16:."..ENTER NAME OF
FILE TO BE LOADED..":.NF$.W....15,8,15:
.5,8,5,"0:DF] ".NF$.",S,R":.414......5,R
,F,X:.414:.24:.26:.N.1.F:.5,F$(N),L%(N):
.N.Q....I.1.X:.".READING RECORD #";I;"..
"......N.1.F:.5,REC$(I,N):.N:.414:.I:..)
....I.1.X:.".READING POINTERS";I;"..":.5
,K%(I):.I.A....414:S.ST:.S..0.188.K....5
,E$.Z... 5: 15:.68.K.... -- VIEW --.S...
I.1..B..I.0.68...D..I.X.68...F.."....RE
CORD NUMBER.";I;" .IN FILE. ";NF$;".."..
.H..N.1.F:.F$(N);": .";REC$(K%(I),N):.N.
..J..". .N.EXR, .L.AST, .J.UMP, .F.IND,
.E.XIT TO MENU".:.L..30:.A$."N".I.I.1:.1
94.Q.N..A$."L".I.I.1:.194.A.P..A$."J".21
6.Q.R..A$."F".218...T..A$."E".68...V..20
4...X..".JUMP TO RECORD NUMBER";I:.194..
.Z..". .FIND RECORDS WITH COMMON ITEM
S ."......N.1.F:." .";N;". ";F$(N):.N.7.
...".WHICH FIELD IS TO BE SEARCHED? 0 ..
..";SF:.SF.0.68.R....SF.1.SF.F.."...":.2
22......".ENTER .COMMON ITEM. ":.".(THE
ENTIRE STRING IS NOT REQUIRED)"......"..
";F$(SF);". ";:.T$.Y....I.1.X:.".SEARCHI
NG RECORD";I;".."......T$.H(REC$(K%(I),S
F),C(T$)).236......240.C....". RECORD #"
;I;".":.N.1.F:.F$(N);": .";REC$(K%(I),N)
:.N.^....". .N.EXR RECORD":.30.I....I:.6
8.|.... -- MODIFY --......"..MODIFY WHIC
H RECORD? ENTER .#. OR .A.LL..":.MR$:.MR
$.D$.68.X....MR$."A".MR$.D$:.254.....I.E
(MR$):MR$.D$......I.X..348:.244......256
:.68.#....I.1.X:.256:.I:.68.W...."..TO M
ODIFY RECORD NUMBER";I;", MAKE CHANGES".
....."AS EACH FIELD IS DISPLAYED, THEN .
RETURN.."......N.1.F:.F$(N)":":." .";R
EC$(K%(I),N).N....". ";:.REC$(K%(I),N)..
....C(REC$(K%(I),N)).L%(N)..140:.260....
..REC$(K%(I),N)."".REC$(K%(I),N).">".*..
..N:CK.1:..=.... -- DELETE --.P...."..DE
LETE WHICH RECORD? ENTER .#. OR .A.LL.."
......DR$:.DR$.D$.68......DR$."A".DR$.D$
:.282.....I.E(DR$):DR$.D$:.I.X..348:.274
.M....284:.68......I.1.X:.284:.I:.68....
.."..TO DELETE RECORD NUMBER";I;", PRESS
".C....".SHIFT. .D., PRESS .SPACE BAR. T
O ADVANCE.".M. ..N.1.F:.F$(N);" .";REC
$(K%(I),N):.N..."..30:.A$."D".294...$.CK
.1:..L.&.."..DELETING RECORD";I:."..RECO
RDS MAY NOW BE OUT OF ORDER"...(..N.1.F:
REC$(K%(I),N).REC$(X,N):REC$(X,N)."":.N.
2.*..J.1.X:.K%(J).X.K%(J).K%(X):K%(X).0:
X.X.1:.292.9.,..J.J.... -- SORT --.}.0..
".. . SORT RECORDS IN ASCENDING ORDER
."...2..N.1.F:." .";N;". ";F$(N):.N.V
.4..".WHICH FIELD IS TO BE SORTED? 0 ...
.";SF:.SF.0.68...6..SF.F.."...":.308...8
..". .PLEASE WAIT..":M.X.#.:.M..(M.2):.M
.0.CK.1:.68.1.<.J.1:K.X.M.9.>.I.J.C.@.L.
I.M.D.B.."SORTING .....";I;"."...D
..REC$(K%(I),SF)..REC$(K%(L),SF).328.C.F
.T%(N).K%(I):K%(I).K%(L):K%(L).T%(N):I.I
.M:.I.0.320.V.H.J.J.1:.J.K.314...J..318.
..L.. -- QUIT --...N.."... .YOU HAVE NOT
SAVED YOUR CHANGES!".N.P..".. DO YOU RE
ALLY WANT TO QUIT? .Y. OR .N.".B.R..30:.
A$."Y".344.J.T..68.Y.V..CK..0.334...X.."
...DATAFILE TERMINATED":....Z.. -- ERROR
CHECK --.Q.\.." NO SUCH RECORD EXISTS":
....^..R.0.....`..".. NO FILES IN MEMORY
":.I.1.1000:.I:.68...B..X.1..352:.68.3.D
.. -- LOAD PRINT --.C.F..". .
PRINTER MAIN MENU "...H..".. PR
INT RECORD USING:"...J..". .R.EPORT
S AND LISTS".C.L..". .M.AILING LABE
LS"...N..". .U.SER DEFINED SUBPROGR
AM".. P..". .E.XIT TO MAIN MENU".>
R..". . PRESS THE APPROPRIATE KEY
".R T..30:.A$."R".384.A V..A$."E".6
8.Q X..A$."U".386.. Z..A$."M".382.. |..3
72.E ~..".... LOADING MAILING LABEL SU
BPROGRAM":."DFMAIL",8..!...".... LOADI
NG REPORT/LISTING SUBPROGRAM":."DFREPORT
",8.(!...".... ENTER NAME OF SUBPROGRAM"
.J!...".";SB$:.".";SB$:.SB$.D$.358.U!...
SB$,8.I!... -- WARNING --..!...".. .THIS
WILL DESTROY THE FILE IN MEMORY!".R!...
".. SAVE THE FILE FIRST? .Y. OR .N.":.30
:.A$."N"...Z!...68..!... -- NEW DISK --.
."...".. ARE YOU SURE? .Y. OR .N.".%"...
30:.A$."N".68.5"...A$.."Y".68.`"...". .D
ISK NAME,ID.";HN$,ID$:.HN$.D$.68.."...15
,8,15:.15,"NEW0:".HN$.",".ID$:.414: 15:.
68.."... -- DISK ERROR --.Q"...15,EN,EM$
,ET,ES:.(EN.20).(EN.62)...." .."..DISK E
RROR."EN"., "EM$","ET".,"ES.4#...".PRESS
.ANY KEY. TO RETURN TO MENU":.30: 5: 15
:.68.J#... -- DIRECTORY --.M#...15,8,15:
.1,8,0,"$0":.".":.414.}#...#1,A1$,A2$..#
...#1,A1$,A2$..#...#1,A1$,A2$..#...A1$..
"".A0.F(A1$).R#...A2$.."".A0.A0.F(A2$).2
56..#...J(D(A0),2);.3);..#...#1,A2$:.ST.
.0.454..$...A2$..G(34).436.;$...#1,A2$:.
A2$..G(34).."."A2$".";:.440.V$...#1,A2$:
.A2$.G(32).442.H$....20);:A3$.""..$..A3$
.A3$.A2$:.#1,A2$:.A2$.."".446..$...H(A3$
,3)..$B..A$:.A$..""..458..$D..ST.0.426.X
$F.." BLOCKS FREE";:A0.0..%H. 1: 15:..25
)"PRESS .ANY KEY.":.30:.68..%J..30:....
> CLICK IMAGE PREVIEW FOR FULL MODAL