DATAFILE4.8.3-80
FILE INFORMATION
FILENAME(S): DATAFILE4.8.3-80
FILE TYPE(S): PRG
FILE SIZE: 21.8K
FIRST SEEN: 2025-10-20 14:30:08
APPEARS ON: 1 disk(s)
FILE HASH
7243095af3ce666c6906fd1d67188fd12932b3b6342d1b571f52196d97dd7d33
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| WOLF S SOFT C001 | DATAFILE4.8.3-80 | PRG | Treasure Chest - Klaus Der Suhler | 28 | 1 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 07 1C 0A 00 9C 00 21 1C 14 00 8F 20 43 31 |........!.... C1|
00000010: 32 38 44 41 54 41 46 49 4C 45 20 56 34 2E 38 2E |28DATAFILE V4.8.|
00000020: 33 00 71 1C 1E 00 8B C2 28 32 31 35 29 B2 30 A7 |3.q.....(215).0.|
00000030: 99 22 93 11 11 11 11 11 11 11 11 11 11 05 53 57 |."............SW|
00000040: 49 54 43 48 20 54 4F 20 38 30 20 43 4F 4C 55 4D |ITCH TO 80 COLUM|
00000050: 4E 20 4D 4F 44 45 22 3A 99 22 41 4E 44 20 54 48 |N MODE":."AND TH|
00000060: 45 4E 20 27 52 55 4E 27 20 41 47 41 49 4E 22 3A |EN 'RUN' AGAIN":|
00000070: 90 00 7E 1C 28 00 97 38 30 38 2C 31 30 30 00 8D |..~.(..808,100..|
00000080: 1C 32 00 99 22 93 22 3A 8D 33 34 34 30 00 DB 1C |.2..".":.3440...|
00000090: 3C 00 99 C7 28 37 29 3B 22 11 11 9E 22 A3 31 33 |<...(7);"...".13|
000000A0: 29 22 B0 AE 20 9C A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |)".. ...........|
000000B0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000000C0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000000D0: A4 A4 A4 A4 A4 A4 20 9E B0 AE 22 00 1D 1D 46 00 |...... ..."...F.|
000000E0: 99 A3 31 33 29 22 AD DB C0 C0 C0 C0 C0 C0 C0 C0 |..13)"..........|
000000F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000100: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000110: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 DB BD 22 00 66 1D |............".f.|
00000120: 50 00 99 A3 31 33 29 22 9C DD 9E DD 20 1E 12 20 |P...13)".... .. |
00000130: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 92 | .|
00000160: 20 9E DD 9C DD 22 00 AF 1D 5A 00 99 A3 31 33 29 | ...."...Z...13)|
00000170: 22 9C DD 9E DD 20 1E 12 20 20 3E 20 3E 20 3E 20 |".... .. > > > |
00000180: 3E 20 3E 20 3E 20 43 31 32 38 20 44 41 54 41 46 |> > > C128 DATAF|
00000190: 49 4C 45 20 56 34 2E 38 2E 33 20 3C 20 3C 20 3C |ILE V4.8.3 < < <|
000001A0: 20 3C 20 3C 20 3C 20 20 92 20 9E DD 9C DD 22 00 | < < < . ....".|
000001B0: F8 1D 64 00 99 A3 31 33 29 22 9C DD 9E DD 20 1E |..d...13)".... .|
000001C0: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
000001D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001F0: 20 92 20 9E DD 9C DD 22 00 41 1E 6E 00 99 A3 31 | . ....".A.n...1|
00000200: 33 29 22 9C DD 9E DD 20 1E 12 20 20 20 20 20 20 |3)".... .. |
00000210: 20 20 20 20 20 20 20 20 20 20 20 38 30 20 43 4F | 80 CO|
00000220: 4C 55 4D 4E 20 4D 4F 44 45 20 20 20 20 20 20 20 |LUMN MODE |
00000230: 20 20 20 20 20 20 20 20 20 20 92 20 9E DD 9C DD | . ....|
00000240: 22 00 8A 1E 78 00 99 A3 31 33 29 22 9C DD 9E DD |"...x...13)"....|
00000250: 20 1E 12 20 20 20 20 20 20 20 20 20 20 20 20 20 | .. |
00000260: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000270: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000280: 20 20 20 92 20 9E DD 9C DD 22 00 D3 1E 82 00 99 | . ...."......|
00000290: A3 31 33 29 22 9C DD 9E DD 20 1E 12 20 20 20 20 |.13)".... .. |
000002A0: 20 20 20 20 20 20 20 43 52 45 41 54 45 44 20 42 | CREATED B|
000002B0: 59 20 4D 49 4B 45 20 44 49 53 53 49 4E 47 45 52 |Y MIKE DISSINGER|
000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 92 20 9E DD | . ..|
000002D0: 9C DD 22 00 1C 1F 8C 00 99 A3 31 33 29 22 9C DD |..".......13)"..|
000002E0: 9E DD 20 1E 12 20 20 20 20 20 20 20 20 20 20 20 |.. .. |
000002F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000300: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000310: 20 20 20 20 20 92 20 9E DD 9C DD 22 00 65 1F 96 | . ....".e..|
00000320: 00 99 A3 31 33 29 22 9C DD 9E DD 20 1E 12 20 20 |...13)".... .. |
00000330: 20 20 20 20 20 20 20 20 43 52 45 41 54 49 4F 4E | CREATION|
00000340: 20 44 41 54 45 20 41 50 52 49 4C 20 31 35 2C 20 | DATE APRIL 15, |
00000350: 31 39 38 36 20 20 20 20 20 20 20 20 20 20 92 20 |1986 . |
00000360: 9E DD 9C DD 22 00 AE 1F A0 00 99 A3 31 33 29 22 |....".......13)"|
00000370: 9C DD 9E DD 20 1E 12 20 20 20 20 20 20 20 20 20 |.... .. |
00000380: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000390: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003A0: 20 20 20 20 20 20 20 92 20 9E DD 9C DD 22 00 F1 | . ...."..|
000003B0: 1F AA 00 99 A3 31 33 29 22 9E B0 DB C0 C0 C0 C0 |.....13)".......|
000003C0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000003E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 DB AE |................|
000003F0: 22 00 36 20 B4 00 99 A3 31 33 29 22 9E AD BD 20 |".6 ....13)"... |
00000400: 9C A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000410: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000420: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00000430: A3 20 9E AD BD 22 00 77 20 BE 00 99 A3 31 33 29 |. ...".w ....13)|
00000440: 22 1C 20 48 49 54 20 54 48 45 20 53 48 49 46 54 |". HIT THE SHIFT|
00000450: 45 44 20 27 48 27 20 4B 45 59 20 41 54 20 4D 41 |ED 'H' KEY AT MA|
00000460: 49 4E 20 4D 45 4E 55 20 46 4F 52 20 48 45 4C 50 |IN MENU FOR HELP|
00000470: 20 53 43 52 45 45 4E 00 B5 20 C8 00 99 C7 28 31 | SCREEN.. ....(1|
00000480: 35 29 3B A3 31 35 29 22 11 1C 20 20 20 20 20 20 |5);.15)".. |
00000490: 20 20 20 20 20 20 20 3E 20 3E 20 3E 20 57 20 41 | > > > W A|
000004A0: 20 49 20 54 20 3C 20 3C 20 3C 20 20 20 22 3B C7 | I T < < < ";.|
000004B0: 28 31 34 33 29 00 C5 20 D2 00 99 C7 28 37 29 3A |(143).. ....(7):|
000004C0: 8D 33 34 39 30 00 CE 20 DC 00 FE 0B 31 30 00 D8 |.3490.. ....10..|
000004D0: 20 E6 00 8D 33 34 36 30 00 DE 20 F0 00 8F 00 ED | ...3460.. .....|
000004E0: 20 FA 00 99 22 93 22 3A 8D 33 34 34 30 00 FB 20 | ...".":.3440.. |
000004F0: 04 01 E7 35 2C 36 3A E7 36 2C 31 00 04 21 0E 01 |...5,6:.6,1..!..|
00000500: 8D 32 39 30 00 0D 21 18 01 89 35 34 30 00 48 21 |.290..!...540.H!|
00000510: 22 01 44 24 B2 C7 28 30 29 3A 4D 52 24 B2 44 24 |".D$..(0):MR$.D$|
00000520: 3A 44 52 24 B2 44 24 3A 53 B2 30 3A 42 31 24 B2 |:DR$.D$:S.0:B1$.|
00000530: C7 28 31 30 29 3A 50 57 B2 30 3A 43 57 B2 30 3A |.(10):PW.0:CW.0:|
00000540: 42 24 B2 C7 28 33 32 29 00 94 21 2C 01 4E 43 B2 |B$..(32)..!,.NC.|
00000550: 30 3A 4E 4C B2 30 3A 50 47 B2 30 3A 46 31 B2 30 |0:NL.0:PG.0:F1.0|
00000560: 3A 46 32 B2 30 3A 46 33 B2 30 3A 4C 24 B2 44 24 |:F2.0:F3.0:L$.D$|
00000570: 3A 52 4C B2 30 3A 53 42 24 B2 44 24 3A 43 52 24 |:RL.0:SB$.D$:CR$|
00000580: B2 C7 28 31 33 29 3A 48 4E 24 B2 44 24 3A 49 44 |..(13):HN$.D$:ID|
00000590: 24 B2 44 24 00 E3 21 36 01 41 24 B2 44 24 3A 43 |$.D$..!6.A$.D$:C|
000005A0: 24 B2 44 24 3A 54 25 B2 30 3A 49 24 B2 44 24 3A |$.D$:T%.0:I$.D$:|
000005B0: 43 4B B2 30 3A 49 B2 30 3A 4A B2 30 3A 4B B2 30 |CK.0:I.0:J.0:K.0|
000005C0: 3A 4C B2 30 3A 4D B2 30 3A 4E B2 30 3A 52 57 B2 |:L.0:M.0:N.0:RW.|
000005D0: 35 3A 53 46 B2 30 3A 5A B2 30 3A 45 24 B2 22 45 |5:SF.0:Z.0:E$."E|
000005E0: 4F 46 22 00 12 22 40 01 45 4E B2 30 3A 45 4D 24 |OF".."@.EN.0:EM$|
000005F0: B2 44 24 3A 45 54 B2 30 3A 45 53 B2 30 3A 41 31 |.D$:ET.0:ES.0:A1|
00000600: 24 B2 44 24 3A 41 32 24 B2 44 24 3A 41 33 24 B2 |$.D$:A2$.D$:A3$.|
00000610: 44 24 00 6B 22 4A 01 4C 31 24 B2 22 20 D5 C0 C0 |D$.k"J.L1$." ...|
00000620: C0 C9 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000630: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000640: C0 C9 D5 C0 C0 C0 C9 D5 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000650: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000660: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 00 C4 22 54 01 |............."T.|
00000670: 4C 32 24 B2 22 20 CA C0 C0 C0 CB CA C0 C0 C0 C0 |L2$." ..........|
00000680: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000690: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB CA C0 C0 C0 CB |................|
000006A0: CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000006B0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000006C0: C0 C0 C0 CB 00 11 23 5E 01 4C 35 24 B2 22 20 20 |......#^.L5$." |
000006D0: 20 20 20 20 20 20 20 D5 C0 C0 C0 C0 C0 C0 C0 C0 | .........|
000006E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000006F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000700: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 |................|
00000710: 22 00 5E 23 68 01 4C 36 24 B2 22 20 20 20 20 20 |".^#h.L6$." |
00000720: 20 20 20 20 CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ............|
00000730: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000740: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000750: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB 22 00 AB |............."..|
00000760: 23 72 01 4C 33 24 B2 22 20 20 20 20 20 20 20 20 |#r.L3$." |
00000770: 20 D5 C0 C0 C0 C9 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 | ...............|
00000780: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000790: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000007A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 FA 23 7C 01 |.........."..#|.|
000007B0: 4C 34 24 B2 22 20 20 20 20 20 20 20 20 20 CA C0 |L4$." ..|
000007C0: C0 C0 CB CA C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000007D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000007E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000007F0: C0 C0 C0 C0 C0 C0 CB 22 3A 8E 00 19 24 86 01 86 |.......":...$...|
00000800: 46 24 28 46 AA 31 29 2C 54 25 28 46 AA 31 29 2C |F$(F.1),T%(F.1),|
00000810: 4C 25 28 46 AA 31 29 3A 8E 00 54 24 90 01 86 52 |L%(F.1):..T$...R|
00000820: 45 43 24 28 52 AA 31 2C 46 AA 31 29 2C 4D 4C 24 |EC$(R.1,F.1),ML$|
00000830: 28 39 2C 34 29 2C 50 43 28 31 30 29 2C 54 54 24 |(9,4),PC(10),TT$|
00000840: 28 35 29 2C 48 43 24 28 39 29 2C 4B 25 28 52 AA |(5),HC$(9),K%(R.|
00000850: 31 29 3A 8E 00 5D 24 9A 01 A1 F9 41 24 00 63 24 |1):..]$....A$.c$|
00000860: A4 01 8E 00 74 24 AE 01 8B 43 4B B3 B1 30 A7 8D |....t$...CK..0..|
00000870: 32 33 37 30 00 D2 24 B8 01 99 22 93 12 20 20 20 |2370..$...".. |
00000880: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000890: 20 20 20 20 20 20 20 20 20 20 43 52 45 41 54 45 | CREATE|
000008A0: 20 20 20 20 20 44 41 54 41 46 49 4C 45 20 20 20 | DATAFILE |
000008B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008C0: 20 20 20 20 20 20 20 20 20 20 20 22 3A 8D 33 34 | ":.34|
000008D0: 39 30 00 3A 25 C2 01 9C 3A 8D 32 39 30 3A 85 22 |90.:%...:.290:."|
000008E0: 11 48 4F 57 20 4D 41 4E 59 20 46 49 45 4C 44 53 |.HOW MANY FIELDS|
000008F0: 20 49 4E 20 45 41 43 48 20 52 45 43 4F 52 44 3F | IN EACH RECORD?|
00000900: 20 28 4E 4F 20 4D 4F 52 45 20 54 48 41 4E 20 32 | (NO MORE THAN 2|
00000910: 30 20 49 53 20 53 55 47 47 45 53 54 45 44 29 20 |0 IS SUGGESTED) |
00000920: 20 30 20 9D 9D 9D 9D 22 3B 46 3A 8B 46 B2 30 A7 | 0 ....";F:.F.0.|
00000930: 8D 33 34 34 30 3A 89 35 34 30 00 87 25 CC 01 8D |.3440:.540..%...|
00000940: 33 39 30 3A 81 49 B2 31 A4 46 3A 99 22 13 11 11 |390:.I.1.F:."...|
00000950: 11 11 12 46 49 45 4C 44 20 23 20 22 3B 49 3A 99 |...FIELD # ";I:.|
00000960: 22 11 54 49 54 4C 45 20 3F 20 20 20 20 20 20 20 |".TITLE ? |
00000970: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000980: 20 20 20 20 20 20 22 00 B7 25 D6 01 99 22 4C 45 | "..%..."LE|
00000990: 4E 47 54 48 3F 20 20 20 20 20 20 20 20 20 20 20 |NGTH? |
000009A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000009B0: 20 20 20 20 20 13 22 00 E0 25 E0 01 99 22 11 11 | ."..%..."..|
000009C0: 11 11 11 22 3B A3 36 29 3B 3A 85 46 24 28 49 29 |...";.6);:.F$(I)|
000009D0: 3A 99 A3 36 29 3B 3A 85 4C 25 28 49 29 3A 82 49 |:..6);:.L%(I):.I|
000009E0: 00 28 26 EA 01 4F 4D B2 B8 28 31 29 3A 81 4A B2 |.(&..OM..(1):.J.|
000009F0: 30 A4 46 3A 52 4C B2 52 4C AA 4C 25 28 4A 29 3A |0.F:RL.RL.L%(J):|
00000A00: 82 4A 3A 52 4C B2 52 4C AA 33 AC 28 46 AA 31 29 |.J:RL.RL.3.(F.1)|
00000A10: AA 35 3A 52 B2 B5 28 28 4F 4D AB 31 32 AC 28 46 |.5:R..((OM.12.(F|
00000A20: AA 31 29 29 AD 52 4C 29 00 77 26 F4 01 99 22 11 |.1)).RL).w&...".|
00000A30: 59 4F 55 52 20 53 45 4C 45 43 54 49 4F 4E 53 20 |YOUR SELECTIONS |
00000A40: 57 49 4C 4C 20 41 4C 4C 4F 57 20 41 50 50 52 4F |WILL ALLOW APPRO|
00000A50: 58 22 3A 99 52 3B 22 52 45 43 4F 52 44 53 2E 20 |X":.R;"RECORDS. |
00000A60: 20 12 41 92 43 43 45 50 54 20 4F 52 20 12 52 92 | .A.CCEPT OR .R.|
00000A70: 45 4A 45 43 54 3F 22 00 8C 26 FE 01 8D 34 31 30 |EJECT?"..&...410|
00000A80: 3A 8B 41 24 B2 22 52 22 A7 34 34 30 00 05 27 08 |:.A$."R".440..'.|
00000A90: 02 8B 41 24 B2 22 41 22 A7 99 22 11 11 11 1C 53 |..A$."A".."....S|
00000AA0: 45 54 54 49 4E 47 20 44 49 4D 45 4E 54 49 4F 4E |ETTING DIMENTION|
00000AB0: 53 2E 2E 2E 2E 4E 4F 57 20 55 53 45 20 27 41 2D |S....NOW USE 'A-|
00000AC0: 44 44 27 20 4F 4E 20 4D 41 49 4E 20 4D 45 4E 55 |DD' ON MAIN MENU|
00000AD0: 20 54 4F 20 45 4E 54 45 52 20 49 4E 46 4F 52 4D | TO ENTER INFORM|
00000AE0: 41 54 49 4F 4E 1E 22 3A 8D 34 30 30 3A FE 0B 34 |ATION.":.400:..4|
00000AF0: 3A 43 4B B2 31 3A 99 22 93 22 3A 8D 33 34 34 30 |:CK.1:.".":.3440|
00000B00: 3A 89 35 34 30 00 0E 27 12 02 89 35 31 30 00 72 |:.540..'...510.r|
00000B10: 27 1C 02 99 C7 28 37 29 3A 99 22 93 12 1E 20 20 |'....(7):."... |
00000B20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B30: 20 20 20 20 20 20 44 41 54 41 46 49 4C 45 20 43 | DATAFILE C|
00000B40: 31 32 38 20 56 34 2E 38 2E 33 2F 38 30 20 43 4F |128 V4.8.3/80 CO|
00000B50: 4C 55 4D 4E 20 4D 4F 44 45 20 20 20 20 20 20 20 |LUMN MODE |
00000B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00000B70: FE 25 00 CD 27 26 02 99 22 12 1C 20 20 20 20 20 |.%..'&..".. |
00000B80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000B90: 20 20 20 20 20 20 20 43 52 45 41 54 45 44 20 42 | CREATED B|
00000BA0: 59 20 4D 49 4B 45 20 44 49 53 53 49 4E 47 45 52 |Y MIKE DISSINGER|
00000BB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000BC0: 20 20 20 20 20 20 20 20 20 20 20 1E 22 00 D3 27 | ."..'|
00000BD0: 30 02 8F 00 DE 27 3A 02 8C 3A 99 4C 31 24 00 58 |0....':..:.L1$.X|
00000BE0: 28 44 02 8B 43 39 B2 30 A7 99 22 20 DD 20 22 3B |(D..C9.0.." . ";|
00000BF0: C7 28 31 35 29 3B 22 43 20 22 3B C7 28 31 34 33 |.(15);"C ";.(143|
00000C00: 29 3B 22 AB B3 52 45 41 54 45 20 41 20 46 49 4C |);"..REATE A FIL|
00000C10: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E |
00000C20: 20 20 20 DD DD 22 3B C7 28 31 35 29 3B 22 20 5E | ..";.(15);" ^|
00000C30: 20 22 3B C7 28 31 34 33 29 3B 22 AB B3 43 55 52 | ";.(143);"..CUR|
00000C40: 54 41 49 4E 20 4F 4E 20 4F 46 46 3A 4F 4E 22 3B |TAIN ON OFF:ON";|
00000C50: A3 37 38 29 3B 22 DD 22 00 D3 28 4E 02 8B 43 39 |.78);"."..(N..C9|
00000C60: B2 39 A7 99 22 20 DD 20 22 3B C7 28 31 35 29 3B |.9.." . ";.(15);|
00000C70: 22 43 20 22 3B C7 28 31 34 33 29 3B 22 AB B3 52 |"C ";.(143);"..R|
00000C80: 45 41 54 45 20 41 20 46 49 4C 45 20 20 20 20 20 |EATE A FILE |
00000C90: 20 20 20 20 20 20 20 20 20 20 20 20 20 DD DD 22 | .."|
00000CA0: 3B C7 28 31 35 29 3B 22 20 5E 20 22 3B C7 28 31 |;.(15);" ^ ";.(1|
00000CB0: 34 33 29 3B 22 AB B3 43 55 52 54 41 49 4E 20 4F |43);"..CURTAIN O|
00000CC0: 4E 20 4F 46 46 3A 4F 46 46 22 3B A3 37 38 29 3B |N OFF:OFF";.78);|
00000CD0: 22 DD 22 00 DC 28 58 02 99 4C 32 24 00 E5 28 62 |"."..(X..L2$..(b|
00000CE0: 02 99 4C 31 24 00 61 29 6C 02 99 22 20 DD 20 22 |..L1$.a)l.." . "|
00000CF0: 3B C7 28 31 35 29 3B 22 44 20 22 3B C7 28 31 34 |;.(15);"D ";.(14|
00000D00: 33 29 3B 22 AB B3 45 4C 45 54 45 20 52 45 43 4F |3);"..ELETE RECO|
00000D10: 52 44 20 49 4E 20 43 55 52 52 45 4E 54 20 46 49 |RD IN CURRENT FI|
00000D20: 4C 45 20 20 DD DD 22 3B C7 28 31 35 29 3B 22 20 |LE ..";.(15);" |
00000D30: 41 20 22 3B C7 28 31 34 33 29 3B 22 AB B3 44 44 |A ";.(143);"..DD|
00000D40: 20 52 45 43 4F 52 44 20 54 4F 20 43 55 52 52 45 | RECORD TO CURRE|
00000D50: 4E 54 2F 43 52 45 41 54 45 44 20 46 49 4C 45 20 |NT/CREATED FILE |
00000D60: DD 00 6A 29 76 02 99 4C 32 24 00 73 29 80 02 99 |..j)v..L2$.s)...|
00000D70: 4C 31 24 00 EF 29 8A 02 99 22 20 DD 20 22 3B C7 |L1$..)..." . ";.|
00000D80: 28 31 35 29 3B 22 52 20 22 3B C7 28 31 34 33 29 |(15);"R ";.(143)|
00000D90: 3B 22 AB B3 45 41 44 20 4F 4C 44 20 46 49 4C 45 |;"..EAD OLD FILE|
00000DA0: 20 46 52 4F 4D 20 44 49 53 4B 20 20 20 20 20 20 | FROM DISK |
00000DB0: 20 20 DD DD 22 3B C7 28 31 35 29 3B 22 20 4D 20 | ..";.(15);" M |
00000DC0: 22 3B C7 28 31 34 33 29 3B 22 AB B3 4F 44 49 46 |";.(143);"..ODIF|
00000DD0: 59 20 52 45 43 4F 52 44 20 49 4E 20 43 55 52 52 |Y RECORD IN CURR|
00000DE0: 45 4E 54 20 46 49 4C 45 20 20 20 20 20 20 DD 00 |ENT FILE ..|
00000DF0: F8 29 94 02 99 4C 32 24 00 01 2A 9E 02 99 4C 31 |.)...L2$..*...L1|
00000E00: 24 00 7D 2A A8 02 99 22 20 DD 20 22 3B C7 28 31 |$.}*..." . ";.(1|
00000E10: 35 29 3B 22 57 20 22 3B C7 28 31 34 33 29 3B 22 |5);"W ";.(143);"|
00000E20: AB B3 52 49 54 45 20 4E 45 57 20 46 49 4C 45 20 |..RITE NEW FILE |
00000E30: 54 4F 20 44 49 53 4B 20 20 20 20 20 20 20 20 20 |TO DISK |
00000E40: DD DD 22 3B C7 28 31 35 29 3B 22 20 50 20 22 3B |..";.(15);" P ";|
00000E50: C7 28 31 34 33 29 3B 22 AB B3 52 49 4E 54 4F 55 |.(143);"..RINTOU|
00000E60: 54 20 46 49 4C 45 20 49 4E 20 4D 45 4D 4F 52 59 |T FILE IN MEMORY|
00000E70: 20 20 20 20 20 20 20 20 20 20 20 20 DD 00 86 2A | ...*|
00000E80: B2 02 99 4C 32 24 00 8F 2A BC 02 99 4C 31 24 00 |...L2$..*...L1$.|
00000E90: 0B 2B C6 02 99 22 20 DD 20 22 3B C7 28 31 35 29 |.+..." . ";.(15)|
00000EA0: 3B 22 56 20 22 3B C7 28 31 34 33 29 3B 22 AB B3 |;"V ";.(143);"..|
00000EB0: 49 45 57 20 46 49 4C 45 20 4F 4E 20 53 43 52 45 |IEW FILE ON SCRE|
00000EC0: 45 4E 20 20 20 20 20 20 20 20 20 20 20 20 DD DD |EN ..|
00000ED0: 22 3B C7 28 31 35 29 3B 22 20 53 20 22 3B C7 28 |";.(15);" S ";.(|
00000EE0: 31 34 33 29 3B 22 AB B3 4F 52 54 20 52 45 43 4F |143);"..ORT RECO|
00000EF0: 52 44 53 20 42 59 20 46 49 45 4C 44 20 20 20 20 |RDS BY FIELD |
00000F00: 20 20 20 20 20 20 20 20 20 20 DD 00 14 2B D0 02 | ...+..|
00000F10: 99 4C 32 24 00 6B 2B DA 02 99 22 20 D5 C0 C0 C0 |.L2$.k+..." ....|
00000F20: C9 D5 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000F30: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000F40: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000F50: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00000F60: C0 C0 C0 C0 C0 C0 C0 C0 C0 C9 22 00 EA 2B E4 02 |.........."..+..|
00000F70: 99 22 20 DD 20 22 3B C7 28 31 35 29 3B 22 2A 20 |." . ";.(15);"* |
00000F80: 22 3B C7 28 31 34 33 29 3B 22 AB B3 44 49 53 4B |";.(143);"..DISK|
00000F90: 20 43 4F 4D 4D 41 4E 44 53 20 20 20 20 20 20 20 | COMMANDS |
00000FA0: 20 20 20 20 20 20 20 20 20 20 20 20 22 3B C7 28 | ";.(|
00000FB0: 31 35 29 3B 22 1C 48 49 54 20 41 20 41 4C 46 41 |15);".HIT A ALFA|
00000FC0: 20 4B 45 59 20 46 4F 52 20 44 45 53 49 52 45 44 | KEY FOR DESIRED|
00000FD0: 20 46 55 4E 43 54 49 4F 4E 20 20 20 20 22 3B C7 | FUNCTION ";.|
00000FE0: 28 31 34 33 29 3B 22 1E DD 22 00 41 2C EE 02 99 |(143);"..".A,...|
00000FF0: 22 20 CA C0 C0 C0 CB CA C0 C0 C0 C0 C0 C0 C0 C0 |" ..............|
00001000: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001010: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001020: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00001030: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 CB |................|
00001040: 22 00 AE 2C F8 02 8B 48 41 B2 31 30 A7 99 22 12 |"..,...HA.10..".|
00001050: 9C 52 2E 53 2E 45 2E 20 20 20 20 20 20 20 20 20 |.R.S.E. |
00001060: 20 20 20 20 20 20 20 20 20 20 54 48 45 52 45 20 | THERE |
00001070: 41 52 45 22 58 3B 22 20 22 3B 22 9D 9D 20 52 45 |ARE"X;" ";".. RE|
00001080: 43 4F 52 44 53 20 49 4E 20 4D 45 4D 4F 52 59 20 |CORDS IN MEMORY |
00001090: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010A0: 20 20 20 20 20 20 20 1E 22 3A 89 37 38 30 00 0F | .":.780..|
000010B0: 2D 02 03 99 22 12 9C 20 20 20 20 20 20 20 20 20 |-...".. |
000010C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000010D0: 54 48 45 52 45 20 41 52 45 22 58 3B 22 20 22 3B |THERE ARE"X;" ";|
000010E0: 22 9D 9D 20 52 45 43 4F 52 44 53 20 49 4E 20 4D |".. RECORDS IN M|
000010F0: 45 4D 4F 52 59 20 20 20 20 20 20 20 20 20 20 20 |EMORY |
00001100: 20 20 20 20 20 20 20 20 20 20 20 20 20 1E 22 00 | .".|
00001110: 7A 2D 0C 03 8B 52 B1 30 A7 99 22 13 11 11 11 11 |z-...R.0..".....|
00001120: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00001130: 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00001140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001150: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001160: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001170: 20 20 20 20 20 20 20 20 91 22 00 DE 2D 16 03 8B | ."..-...|
00001180: 52 B1 30 A7 99 22 12 9C 20 20 20 20 20 20 20 20 |R.0..".. |
00001190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000011A0: 20 20 20 53 50 41 43 45 20 46 4F 52 22 3B 52 AB | SPACE FOR";R.|
000011B0: 58 3B 22 12 9D 20 4D 4F 52 45 20 52 45 43 4F 52 |X;".. MORE RECOR|
000011C0: 44 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |DS |
000011D0: 20 20 20 20 20 20 20 20 20 20 20 91 1E 22 00 E8 | .."..|
000011E0: 2D 20 03 8D 33 34 39 30 00 0A 2E 2A 03 8D 34 31 |- ..3490...*..41|
000011F0: 30 3A 8B 41 24 B2 22 41 22 A7 8D 32 31 31 30 3A |0:.A$."A"..2110:|
00001200: 8D 33 34 34 30 3A 89 39 39 30 00 22 2E 34 03 8B |.3440:.990.".4..|
00001210: 41 24 B2 22 4D 22 A7 8D 32 31 31 30 3A 89 31 36 |A$."M"..2110:.16|
00001220: 34 30 00 3A 2E 3E 03 8B 41 24 B2 22 44 22 A7 8D |40.:.>..A$."D"..|
00001230: 32 31 31 30 3A 89 31 37 35 30 00 51 2E 48 03 8B |2110:.1750.Q.H..|
00001240: 41 24 B2 22 43 22 A7 8D 33 34 34 30 3A 89 34 33 |A$."C"..3440:.43|
00001250: 30 00 62 2E 52 03 8B 41 24 B2 22 52 22 A7 31 31 |0.b.R..A$."R".11|
00001260: 37 30 00 7A 2E 5C 03 8B 41 24 B2 22 50 22 A7 8D |70.z.\..A$."P"..|
00001270: 32 31 33 30 3A 89 32 31 34 30 00 92 2E 66 03 8B |2130:.2140...f..|
00001280: 41 24 B2 22 56 22 A7 8D 32 31 31 30 3A 89 31 33 |A$."V"..2110:.13|
00001290: 39 30 00 C0 2E 70 03 8B 41 24 B2 22 57 22 A7 8D |90...p..A$."W"..|
000012A0: 32 31 31 30 3A 8D 34 30 34 30 3A 8B 52 31 B2 39 |2110:.4040:.R1.9|
000012B0: A7 52 31 B2 30 3A 8D 33 34 34 30 3A 89 35 34 30 |.R1.0:.3440:.540|
000012C0: 00 D1 2E 7A 03 8B 41 24 B2 22 57 22 A7 31 30 37 |...z..A$."W".107|
000012D0: 30 00 E9 2E 84 03 8B 41 24 B2 22 53 22 A7 8D 32 |0......A$."S"..2|
000012E0: 31 31 30 3A 89 31 38 39 30 00 FA 2E 8E 03 8B 41 |110:.1890......A|
000012F0: 24 B2 22 51 22 A7 32 30 35 30 00 0B 2F 98 03 8B |$."Q".2050../...|
00001300: 41 24 B2 22 2A 22 A7 32 36 30 30 00 1C 2F A2 03 |A$."*".2600../..|
00001310: 8B 41 24 B2 22 C8 22 A7 33 35 32 30 00 4B 2F AC |.A$.".".3520.K/.|
00001320: 03 41 48 B2 C6 28 41 24 29 3A 8B 41 48 B2 31 30 |.AH..(A$):.AH.10|
00001330: AF 48 41 B3 B1 31 30 A7 48 41 B2 31 30 3A 97 38 |.HA..10.HA.10:.8|
00001340: 30 38 2C 31 31 30 3A 89 32 37 30 00 6F 2F B6 03 |08,110:.270.o/..|
00001350: 8B 41 48 B2 31 30 AF 48 41 B2 31 30 A7 48 41 B2 |.AH.10.HA.10.HA.|
00001360: 30 3A 97 38 30 38 2C 31 30 30 3A 89 32 37 30 00 |0:.808,100:.270.|
00001370: 90 2F C0 03 8B 41 24 B2 22 5E 22 AF 43 39 B2 30 |./...A$."^".C9.0|
00001380: A7 43 39 B2 39 3A 99 C7 28 37 29 3A 89 32 37 30 |.C9.9:..(7):.270|
00001390: 00 B1 2F CA 03 8B 41 24 B2 22 5E 22 AF 43 39 B2 |../...A$."^".C9.|
000013A0: 39 A7 43 39 B2 30 3A 99 C7 28 37 29 3A 89 32 37 |9.C9.0:..(7):.27|
000013B0: 30 00 BA 2F D4 03 89 38 31 30 00 F3 2F DE 03 81 |0../...810../...|
000013C0: 49 B2 58 AA 31 A4 52 3A 99 22 93 50 52 45 53 53 |I.X.1.R:.".PRESS|
000013D0: 20 54 48 45 20 12 52 45 54 55 52 4E 92 20 4B 45 | THE .RETURN. KE|
000013E0: 59 20 41 46 54 45 52 20 45 41 43 48 20 45 4E 54 |Y AFTER EACH ENT|
000013F0: 52 59 22 00 3F 30 E8 03 99 22 50 52 45 53 53 20 |RY".?0..."PRESS |
00001400: 12 52 45 54 55 52 4E 92 20 57 49 54 48 4F 55 54 |.RETURN. WITHOUT|
00001410: 20 41 4E 59 20 45 4E 54 52 59 20 54 4F 20 53 54 | ANY ENTRY TO ST|
00001420: 4F 50 22 3A 99 22 12 11 52 45 43 4F 52 44 20 4E |OP":."..RECORD N|
00001430: 55 4D 42 45 52 20 22 3B 49 3A 8D 33 34 39 30 00 |UMBER ";I:.3490.|
00001440: 4A 30 F2 03 81 4E B2 31 A4 46 00 87 30 FC 03 99 |J0...N.1.F..0...|
00001450: 46 24 28 4E 29 3B 22 20 20 20 3E 9D 9D 9D 22 3B |F$(N);" >...";|
00001460: 3A 85 52 45 43 24 28 49 2C 4E 29 3A 8B 52 45 43 |:.REC$(I,N):.REC|
00001470: 24 28 49 2C 4E 29 B2 22 22 A7 52 45 43 24 28 49 |$(I,N)."".REC$(I|
00001480: 2C 4E 29 B2 22 3E 22 00 AB 30 06 04 8B C3 28 52 |,N).">"..0....(R|
00001490: 45 43 24 28 49 2C 4E 29 29 B1 4C 25 28 4E 29 A7 |EC$(I,N)).L%(N).|
000014A0: 8D 31 30 36 30 3A 89 31 30 32 30 00 D4 30 10 04 |.1060:.1020..0..|
000014B0: 8B 52 45 43 24 28 49 2C 31 29 B2 22 3E 22 A7 58 |.REC$(I,1).">".X|
000014C0: B2 49 AB 31 3A 43 4B B2 31 3A 8D 33 34 34 30 3A |.I.1:CK.1:.3440:|
000014D0: 89 35 34 30 00 FA 30 1A 04 82 4E 3A 4B 25 28 49 |.540..0...N:K%(I|
000014E0: 29 B2 49 3A 82 49 3A 58 B2 52 3A 43 4B B2 31 3A |).I:.I:X.R:CK.1:|
000014F0: 8D 33 34 34 30 3A 89 35 34 30 00 44 31 24 04 99 |.3440:.540.D1$..|
00001500: 22 43 41 4E 4E 4F 54 20 45 58 43 45 45 44 12 22 |"CANNOT EXCEED."|
00001510: 3B 4C 25 28 4E 29 3B 22 20 43 48 41 52 41 43 54 |;L%(N);" CHARACT|
00001520: 45 52 53 2C 20 41 53 20 59 4F 55 20 50 52 45 56 |ERS, AS YOU PREV|
00001530: 49 4F 55 53 4C 59 20 44 45 53 49 47 4E 41 54 45 |IOUSLY DESIGNATE|
00001540: 44 22 3A 8E 00 64 31 2E 04 8D 33 34 34 30 3A 8D |D":..d1...3440:.|
00001550: 34 30 34 30 3A 8B 52 31 B2 39 A7 52 31 B2 30 3A |4040:.R1.9.R1.0:|
00001560: 89 35 34 30 00 94 31 38 04 99 22 93 11 45 4E 54 |.540..18.."..ENT|
00001570: 45 52 20 4E 41 4D 45 20 4F 46 20 43 55 52 52 45 |ER NAME OF CURRE|
00001580: 4E 54 20 46 49 4C 45 20 54 4F 20 42 45 20 53 41 |NT FILE TO BE SA|
00001590: 56 45 44 22 00 C3 31 42 04 99 22 28 31 32 20 43 |VED"..1B.."(12 C|
000015A0: 48 41 52 41 43 54 45 52 53 20 4D 41 58 29 2E 20 |HARACTERS MAX). |
000015B0: 20 41 4E 59 20 45 58 49 53 54 49 4E 47 20 46 49 | ANY EXISTING FI|
000015C0: 4C 45 22 00 43 32 4C 04 99 22 57 49 54 48 20 54 |LE".C2L.."WITH T|
000015D0: 48 45 20 53 41 4D 45 20 4E 41 4D 45 20 57 49 4C |HE SAME NAME WIL|
000015E0: 4C 20 42 45 20 52 45 2D 4E 41 4D 45 44 2E 20 28 |L BE RE-NAMED. (|
000015F0: 57 49 4C 4C 20 41 44 44 20 27 21 4F 4C 44 27 20 |WILL ADD '!OLD' |
00001600: 54 4F 20 45 4E 44 20 4F 46 20 46 49 4C 45 20 4E |TO END OF FILE N|
00001610: 41 4D 45 29 20 11 11 22 3A 8D 33 34 39 30 3A 99 |AME) ..":.3490:.|
00001620: 22 20 20 22 3B 4E 46 24 3A 8D 33 34 39 30 3A 85 |" ";NF$:.3490:.|
00001630: 22 91 22 3B 4E 46 24 3A 8B 4E 46 24 B2 22 22 A7 |".";NF$:.NF$."".|
00001640: 35 34 30 00 74 32 56 04 9F 31 35 2C 38 2C 31 35 |540.t2V..15,8,15|
00001650: 3A 98 31 35 2C 22 53 30 3A 44 46 5D 20 22 AA C8 |:.15,"S0:DF] "..|
00001660: 28 4E 46 24 2C 38 29 AA 22 21 4F 4C 44 22 3A 8D |(NF$,8)."!OLD":.|
00001670: 32 35 37 30 00 A5 32 60 04 98 31 35 2C 22 52 30 |2570..2`..15,"R0|
00001680: 3A 44 46 5D 20 22 AA C8 28 4E 46 24 2C 38 29 AA |:DF] "..(NF$,8).|
00001690: 22 21 4F 4C 44 3D 44 46 5D 20 22 AA 4E 46 24 3A |"!OLD=DF] ".NF$:|
000016A0: 8D 32 35 37 30 00 CA 32 6A 04 9F 35 2C 38 2C 35 |.2570..2j..5,8,5|
000016B0: 2C 22 30 3A 44 46 5D 20 22 AA 4E 46 24 AA 22 2C |,"0:DF] ".NF$.",|
000016C0: 53 2C 57 22 3A 8D 32 35 37 30 00 02 33 74 04 98 |S,W":.2570..3t..|
000016D0: 35 2C 52 3B 43 52 24 3B 46 3B 43 52 24 3B 58 3A |5,R;CR$;F;CR$;X:|
000016E0: 8D 32 35 37 30 3A 81 4E B2 31 A4 46 3A 98 35 2C |.2570:.N.1.F:.5,|
000016F0: 46 24 28 4E 29 3B 43 52 24 3B 4C 25 28 4E 29 3A |F$(N);CR$;L%(N):|
00001700: 82 4E 00 4A 33 7E 04 81 49 B2 31 A4 58 3A 99 22 |.N.J3~..I.1.X:."|
00001710: 11 53 41 56 49 4E 47 20 52 45 43 4F 52 44 20 23 |.SAVING RECORD #|
00001720: 22 3B 49 3B 22 91 91 22 3A 81 4E B2 31 A4 46 3A |";I;"..":.N.1.F:|
00001730: 98 35 2C 52 45 43 24 28 49 2C 4E 29 3A 82 4E 3A |.5,REC$(I,N):.N:|
00001740: 8D 32 35 37 30 3A 82 49 3A 99 00 9F 33 88 04 81 |.2570:.I:...3...|
00001750: 49 B2 31 A4 58 3A 99 22 11 53 41 56 49 4E 47 20 |I.1.X:.".SAVING |
00001760: 50 4F 49 4E 54 45 52 53 22 3B 49 3B 22 91 91 22 |POINTERS";I;".."|
00001770: 3A 98 35 2C 4B 25 28 49 29 3A 82 49 3A 8D 32 35 |:.5,K%(I):.I:.25|
00001780: 37 30 3A 98 35 2C 45 24 3A A0 35 3A A0 31 35 3A |70:.5,E$:.5:.15:|
00001790: 43 4B B2 30 3A 8D 33 34 34 30 3A 89 35 34 30 00 |CK.0:.3440:.540.|
000017A0: B0 33 92 04 8B 43 4B B3 B1 30 A7 8D 32 33 37 30 |.3...CK..0..2370|
000017B0: 00 D0 33 9C 04 8D 34 30 34 30 3A 8B 52 31 B2 39 |..3...4040:.R1.9|
000017C0: A7 52 31 B2 30 3A 8D 33 34 34 30 3A 89 35 34 30 |.R1.0:.3440:.540|
000017D0: 00 DA 33 A6 04 8D 33 34 34 30 00 59 34 B0 04 9C |..3...3440.Y4...|
000017E0: 3A 57 31 B2 39 3A 8D 32 39 30 3A 99 22 93 11 12 |:W1.9:.290:."...|
000017F0: 45 4E 54 45 52 20 4E 41 4D 45 20 4F 46 20 46 49 |ENTER NAME OF FI|
00001800: 4C 45 20 54 4F 20 42 45 20 4C 4F 41 44 45 44 92 |LE TO BE LOADED.|
00001810: 2D 2D 54 48 45 20 50 52 45 46 49 58 2D 27 44 46 |--THE PREFIX-'DF|
00001820: 5D 27 20 49 53 20 4E 4F 54 20 52 45 51 55 49 52 |]' IS NOT REQUIR|
00001830: 45 44 2E 22 3A 99 22 11 4F 52 20 45 4E 54 45 52 |ED.":.".OR ENTER|
00001840: 20 27 2A 27 20 54 4F 20 45 58 49 54 11 22 3A 8D | '*' TO EXIT.":.|
00001850: 33 34 39 30 3A 85 4E 46 24 00 71 34 BA 04 8B 4E |3490:.NF$.q4...N|
00001860: 46 24 B2 22 2A 22 A7 8D 33 34 34 30 3A 89 35 34 |F$."*"..3440:.54|
00001870: 30 00 E0 34 C4 04 9F 31 35 2C 38 2C 31 35 3A 9F |0..4...15,8,15:.|
00001880: 35 2C 38 2C 35 2C 22 30 3A 44 46 5D 20 22 AA 4E |5,8,5,"0:DF] ".N|
00001890: 46 24 AA 22 2C 53 2C 52 22 3A 8D 32 35 37 30 3A |F$.",S,R":.2570:|
000018A0: 8B 45 4E B2 36 32 A7 FE 18 3A 99 C7 28 37 29 3B |.EN.62...:..(7);|
000018B0: C7 28 31 35 29 3B 22 1C 11 11 54 48 41 54 20 46 |.(15);"...THAT F|
000018C0: 49 4C 45 20 4E 41 4D 45 20 4E 4F 54 20 46 4F 55 |ILE NAME NOT FOU|
000018D0: 4E 44 2D 2D 54 52 59 20 41 47 41 49 4E 21 1E 22 |ND--TRY AGAIN!."|
000018E0: 00 FF 34 CE 04 FE 0B 34 3A 99 C7 28 31 34 33 29 |..4....4:..(143)|
000018F0: 3A FE 19 3A 8D 33 34 34 30 3A 89 31 32 30 30 00 |:..:.3440:.1200.|
00001900: 35 35 D8 04 84 35 2C 52 2C 46 2C 58 3A 8D 32 35 |55...5,R,F,X:.25|
00001910: 37 30 3A 8D 33 39 30 3A 8D 34 30 30 3A 81 4E B2 |70:.390:.400:.N.|
00001920: 31 A4 46 3A 84 35 2C 46 24 28 4E 29 2C 4C 25 28 |1.F:.5,F$(N),L%(|
00001930: 4E 29 3A 82 4E 00 78 35 E2 04 81 49 B2 31 A4 58 |N):.N.x5...I.1.X|
00001940: 3A 99 22 11 52 45 41 44 49 4E 47 20 52 45 43 4F |:.".READING RECO|
00001950: 52 44 20 23 22 3B 49 3B 22 91 91 22 3A 81 4E B2 |RD #";I;"..":.N.|
00001960: 31 A4 46 3A 84 35 2C 52 45 43 24 28 49 2C 4E 29 |1.F:.5,REC$(I,N)|
00001970: 3A 82 4E 3A 82 49 3A 99 00 C1 35 EC 04 81 49 B2 |:.N:.I:...5...I.|
00001980: 31 A4 58 3A 99 22 11 52 45 41 44 49 4E 47 20 50 |1.X:.".READING P|
00001990: 4F 49 4E 54 45 52 53 22 3B 49 3B 22 91 91 22 3A |OINTERS";I;"..":|
000019A0: 84 35 2C 4B 25 28 49 29 3A 82 49 3A 8D 32 35 37 |.5,K%(I):.I:.257|
000019B0: 30 3A 53 B2 53 54 3A 8B 53 B3 B1 30 A7 31 32 38 |0:S.ST:.S..0.128|
000019C0: 30 00 CB 35 F6 04 84 35 2C 45 24 00 F6 35 00 05 |0..5...5,E$..5..|
000019D0: 99 22 11 11 11 1C 1D 1D 1D 20 20 20 20 20 20 20 |."....... |
000019E0: 20 1D 1D 1D 1D 1D 1D 1D 1D 1D 22 3B 4E 46 24 3A | .........";NF$:|
000019F0: A0 35 3A A0 31 35 00 3F 36 0A 05 99 22 1D 1D 1D |.5:.15.?6..."...|
00001A00: 20 20 20 20 20 20 20 20 1D 1D 1D 1D 1D 1D 1D 1D | ........|
00001A10: 1D 46 49 4C 45 20 4E 4F 57 20 49 4E 20 4D 45 4D |.FILE NOW IN MEM|
00001A20: 4F 52 59 22 3A 99 A3 32 30 29 3B 22 A3 A3 A3 A3 |ORY":..20);"....|
00001A30: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 22 00 |..............".|
00001A40: 7E 36 14 05 99 22 20 20 20 20 20 20 20 20 20 20 |~6..." |
00001A50: 20 20 20 20 20 20 20 20 20 20 55 53 45 3A 22 3B | USE:";|
00001A60: C7 28 31 35 29 3B 22 20 27 56 27 22 3B C7 28 31 |.(15);" 'V'";.(1|
00001A70: 34 33 29 3B 22 20 54 4F 20 56 49 45 57 22 00 BF |43);" TO VIEW"..|
00001A80: 36 1E 05 99 22 20 20 20 20 20 20 20 20 20 20 20 |6..." |
00001A90: 20 20 20 20 20 20 20 20 20 55 53 45 3A 22 3B C7 | USE:";.|
00001AA0: 28 31 35 29 3B 22 20 27 4D 27 22 3B C7 28 31 34 |(15);" 'M'";.(14|
00001AB0: 33 29 3B 22 20 54 4F 20 4D 4F 44 49 46 59 22 00 |3);" TO MODIFY".|
00001AC0: 04 37 28 05 99 22 20 20 20 20 20 20 20 20 20 20 |.7(.." |
00001AD0: 20 20 20 20 20 20 20 20 20 20 55 53 45 3A 22 3B | USE:";|
00001AE0: C7 28 31 35 29 3B 22 20 27 41 27 22 3B C7 28 31 |.(15);" 'A'";.(1|
00001AF0: 34 33 29 3B 22 20 54 4F 20 41 44 44 20 54 4F 20 |43);" TO ADD TO |
00001B00: 46 49 4C 45 00 4D 37 32 05 99 22 20 20 20 20 20 |FILE.M72.." |
00001B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 | U|
00001B20: 53 45 3A 22 3B C7 28 31 35 29 3B 22 20 27 44 27 |SE:";.(15);" 'D'|
00001B30: 22 3B C7 28 31 34 33 29 3B 22 20 54 4F 20 44 45 |";.(143);" TO DE|
00001B40: 4C 45 54 45 20 41 20 52 45 43 4F 52 44 00 97 37 |LETE A RECORD..7|
00001B50: 3C 05 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |<.." |
00001B60: 20 20 20 20 20 20 20 20 55 53 45 3A 22 3B C7 28 | USE:";.(|
00001B70: 31 35 29 3B 22 20 27 53 27 22 3B C7 28 31 34 33 |15);" 'S'";.(143|
00001B80: 29 3B 22 20 54 4F 20 53 4F 52 54 20 54 48 45 20 |);" TO SORT THE |
00001B90: 52 45 43 4F 52 44 53 00 E6 37 46 05 99 22 20 20 |RECORDS..7F.." |
00001BA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001BB0: 20 20 55 53 45 3A 22 3B C7 28 31 35 29 3B 22 20 | USE:";.(15);" |
00001BC0: 27 50 27 22 3B C7 28 31 34 33 29 3B 22 20 54 4F |'P'";.(143);" TO|
00001BD0: 20 50 52 49 4E 54 20 4F 55 54 20 54 48 45 20 52 | PRINT OUT THE R|
00001BE0: 45 43 4F 52 44 22 00 16 38 50 05 99 A3 32 30 29 |ECORD"..8P...20)|
00001BF0: 3B 22 11 46 52 4F 4D 20 4D 41 49 4E 20 4D 45 4E |;".FROM MAIN MEN|
00001C00: 55 20 46 55 43 54 49 4F 4E 20 53 45 4C 45 43 54 |U FUCTION SELECT|
00001C10: 49 4F 4E 53 1E 22 00 39 38 5A 05 99 22 11 48 49 |IONS.".98Z..".HI|
00001C20: 54 20 41 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |T A KEY TO CONTI|
00001C30: 4E 55 45 22 3A 8D 34 31 30 00 48 38 64 05 8D 33 |NUE":.410.H8d..3|
00001C40: 34 34 30 3A 89 35 34 30 00 56 38 6E 05 49 B2 31 |440:.540.V8n.I.1|
00001C50: 3A 8D 33 34 34 30 00 6A 38 78 05 8B 49 B2 30 A7 |:.3440.j8x..I.0.|
00001C60: 8D 33 34 34 30 3A 89 35 34 30 00 97 38 82 05 8B |.3440:.540..8...|
00001C70: 49 B1 58 A7 99 22 1C 11 11 11 4F 55 54 20 4F 46 |I.X.."....OUT OF|
00001C80: 20 52 41 4E 47 45 1E 22 3A FE 0B 34 3A 8D 33 34 | RANGE.":..4:.34|
00001C90: 34 30 3A 89 35 34 30 00 D3 38 8C 05 99 22 93 12 |40:.540..8..."..|
00001CA0: 52 45 43 4F 52 44 20 4E 55 4D 42 45 52 92 3A 22 |RECORD NUMBER.:"|
00001CB0: 3B 49 3B 22 20 4F 46 3A 22 3B 58 3B 22 20 12 49 |;I;" OF:";X;" .I|
00001CC0: 4E 20 46 49 4C 45 92 20 22 3B 4E 46 24 3A 8D 33 |N FILE. ";NF$:.3|
00001CD0: 34 39 30 00 FC 38 96 05 81 4E B2 31 A4 46 3A 99 |490..8...N.1.F:.|
00001CE0: 46 24 28 4E 29 3B 22 9E C0 1E 22 3B 52 45 43 24 |F$(N);"...";REC$|
00001CF0: 28 4B 25 28 49 29 2C 4E 29 3A 82 4E 00 45 39 A0 |(K%(I),N):.N.E9.|
00001D00: 05 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00001D10: 20 D5 C0 C9 D5 C0 C0 C0 C9 20 20 20 D5 C0 C9 D5 | ........ ....|
00001D20: C0 C0 C0 C9 20 20 20 D5 C0 C9 D5 C0 C0 C0 C9 20 |.... ........ |
00001D30: 20 20 D5 C0 C9 D5 C0 C0 C0 C9 20 20 20 D5 C0 C9 | ........ ...|
00001D40: D5 C0 C0 C0 C9 00 9D 39 AA 05 99 22 C0 C0 C0 C0 |.......9..."....|
00001D50: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 DD 4E AB B3 45 58 |...........N..EX|
00001D60: 54 DD C0 C0 C0 DD 4C AB B3 41 53 54 DD C0 C0 C0 |T.....L..AST....|
00001D70: DD 4A AB B3 55 4D 50 DD C0 C0 C0 DD 46 AB B3 49 |.J..UMP.....F..I|
00001D80: 4E 44 DD C0 C0 C0 DD 45 AB B3 58 49 54 DD C0 C0 |ND.....E..XIT...|
00001D90: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 22 00 F5 39 |............"..9|
00001DA0: B4 05 99 22 20 20 20 20 20 20 20 20 20 20 20 20 |..." |
00001DB0: 20 20 CA C0 CB CA C0 C0 C0 CB 20 20 20 CA C0 CB | ........ ...|
00001DC0: CA C0 C0 C0 CB 20 20 20 CA C0 CB CA C0 C0 C0 CB |..... ........|
00001DD0: 20 20 20 CA C0 CB CA C0 C0 C0 CB 20 20 20 CA C0 | ........ ..|
00001DE0: CB CA C0 C0 C0 CB 20 20 20 20 20 20 20 20 20 20 |...... |
00001DF0: 20 20 20 20 22 00 12 3A BE 05 8D 34 31 30 3A 8B | "..:...410:.|
00001E00: 41 24 B2 22 4E 22 A7 49 B2 49 AA 31 3A 89 31 34 |A$."N".I.I.1:.14|
00001E10: 30 30 00 2A 3A C8 05 8B 41 24 B2 22 4C 22 A7 49 |00.*:...A$."L".I|
00001E20: B2 49 AB 31 3A 89 31 34 30 30 00 3B 3A D2 05 8B |.I.1:.1400.;:...|
00001E30: 41 24 B2 22 4A 22 A7 31 35 33 30 00 53 3A DC 05 |A$."J".1530.S:..|
00001E40: 8B 41 24 B2 22 46 22 A7 8D 33 34 34 30 3A 89 31 |.A$."F"..3440:.1|
00001E50: 35 34 30 00 6A 3A E6 05 8B 41 24 B2 22 45 22 A7 |540.j:...A$."E".|
00001E60: 8D 33 34 34 30 3A 89 35 34 30 00 74 3A F0 05 89 |.3440:.540.t:...|
00001E70: 31 34 37 30 00 9A 3A FA 05 85 22 11 4A 55 4D 50 |1470..:...".JUMP|
00001E80: 20 54 4F 20 52 45 43 4F 52 44 20 4E 55 4D 42 45 | TO RECORD NUMBE|
00001E90: 52 22 3B 49 3A 89 31 34 30 30 00 0D 3B 04 06 99 |R";I:.1400..;...|
00001EA0: 22 93 12 46 49 4E 44 20 20 52 45 43 4F 52 44 53 |"..FIND RECORDS|
00001EB0: 20 57 49 54 48 20 43 4F 4D 4D 4F 4E 20 49 54 45 | WITH COMMON ITE|
00001EC0: 4D 53 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |MS |
00001ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001EE0: 20 20 20 20 20 20 20 20 20 22 3A 8D 33 34 39 30 | ":.3490|
00001EF0: 3A 81 4E B2 31 A4 46 3A 99 22 12 20 22 3B 4E 3B |:.N.1.F:.". ";N;|
00001F00: 22 92 20 22 3B 46 24 28 4E 29 3A 82 4E 00 4E 3B |". ";F$(N):.N.N;|
00001F10: 0E 06 85 22 57 48 49 43 48 20 46 49 45 4C 44 20 |..."WHICH FIELD |
00001F20: 49 53 20 54 4F 20 42 45 20 53 45 41 52 43 48 45 |IS TO BE SEARCHE|
00001F30: 44 3F 20 30 20 9D 9D 9D 9D 22 3B 53 46 3A 8B 53 |D? 0 ....";SF:.S|
00001F40: 46 B2 30 A7 8D 33 34 34 30 3A 89 35 34 30 00 6A |F.0..3440:.540.j|
00001F50: 3B 18 06 8B 53 46 B3 31 B0 53 46 B1 46 A7 99 22 |;...SF.1.SF.F.."|
00001F60: 91 91 91 22 3A 89 31 35 35 30 00 AD 3B 22 06 99 |...":.1550..;"..|
00001F70: 22 45 4E 54 45 52 20 12 43 4F 4D 4D 4F 4E 20 49 |"ENTER .COMMON I|
00001F80: 54 45 4D 92 20 22 3A 99 22 28 54 48 45 20 45 4E |TEM. ":."(THE EN|
00001F90: 54 49 52 45 20 53 54 52 49 4E 47 20 49 53 20 4E |TIRE STRING IS N|
00001FA0: 4F 54 20 52 45 51 55 49 52 45 44 29 22 00 E8 3B |OT REQUIRED)"..;|
00001FB0: 2C 06 99 22 12 22 3B 46 24 28 53 46 29 3B 22 92 |,..".";F$(SF);".|
00001FC0: 20 22 3B 3A 85 54 24 3A 81 49 B2 31 A4 58 3A 99 | ";:.T$:.I.1.X:.|
00001FD0: 22 53 45 41 52 43 48 49 4E 47 20 52 45 43 4F 52 |"SEARCHING RECOR|
00001FE0: 44 22 3B 49 3B 22 91 22 00 13 3C 36 06 8B 54 24 |D";I;"."..<6..T$|
00001FF0: B2 C8 28 52 45 43 24 28 4B 25 28 49 29 2C 53 46 |..(REC$(K%(I),SF|
00002000: 29 2C C3 28 54 24 29 29 A7 31 36 30 30 3A D5 31 |),.(T$)).1600:.1|
00002010: 36 32 30 00 4F 3C 40 06 99 22 93 20 52 45 43 4F |620.O<@..". RECO|
00002020: 52 44 20 23 22 3B 49 3B 22 11 22 3A 81 4E B2 31 |RD #";I;".":.N.1|
00002030: A4 46 3A 99 46 24 28 4E 29 3B 22 3A 20 22 3B 52 |.F:.F$(N);": ";R|
00002040: 45 43 24 28 4B 25 28 49 29 2C 4E 29 3A 82 4E 00 |EC$(K%(I),N):.N.|
00002050: 6B 3C 4A 06 99 22 11 20 12 4E 92 45 58 54 20 52 |k<J..". .N.EXT R|
00002060: 45 43 4F 52 44 22 3A 8D 34 31 30 00 D5 3C 54 06 |ECORD":.410..<T.|
00002070: 82 49 3A 99 C7 28 31 35 29 3B 22 1C 91 4E 4F 20 |.I:..(15);"..NO |
00002080: 4D 4F 52 45 20 52 45 43 4F 52 44 53 20 49 4E 20 |MORE RECORDS IN |
00002090: 54 48 49 53 20 53 45 4C 45 43 54 45 44 20 46 49 |THIS SELECTED FI|
000020A0: 45 4C 44 2D 2D 2D 2D 22 3A 99 A3 34 32 29 3B 22 |ELD----":..42);"|
000020B0: 91 48 49 54 20 41 20 4B 45 59 20 54 4F 20 43 4F |.HIT A KEY TO CO|
000020C0: 4E 54 49 4E 55 45 1E 22 3A 99 C7 28 37 29 3B C7 |NTINUE.":..(7);.|
000020D0: 28 31 34 33 29 00 E3 3C 5E 06 8D 34 31 30 3A 89 |(143)..<^..410:.|
000020E0: 35 34 30 00 38 3D 68 06 8D 33 34 34 30 3A 99 22 |540.8=h..3440:."|
000020F0: 93 11 4D 4F 44 49 46 59 20 57 48 49 43 48 20 52 |..MODIFY WHICH R|
00002100: 45 43 4F 52 44 3F 20 45 4E 54 45 52 20 12 23 92 |ECORD? ENTER .#.|
00002110: 20 4F 52 20 12 41 92 4C 4C 22 3A 8D 33 34 39 30 | OR .A.LL":.3490|
00002120: 3A 85 4D 52 24 3A 8B 4D 52 24 B2 44 24 A7 8D 33 |:.MR$:.MR$.D$..3|
00002130: 34 34 30 3A 89 35 34 30 00 52 3D 72 06 8B 4D 52 |440:.540.R=r..MR|
00002140: 24 B2 22 41 22 A7 4D 52 24 B2 44 24 3A 89 31 36 |$."A".MR$.D$:.16|
00002150: 38 30 00 77 3D 7C 06 49 B2 C5 28 4D 52 24 29 3A |80.w=|.I..(MR$):|
00002160: 4D 52 24 B2 44 24 3A 8B 49 B1 58 A7 8D 32 31 30 |MR$.D$:.I.X..210|
00002170: 30 3A 89 31 36 34 30 00 86 3D 86 06 8D 31 36 39 |0:.1640..=...169|
00002180: 30 3A 89 35 34 30 00 9F 3D 90 06 81 49 B2 31 A4 |0:.540..=...I.1.|
00002190: 58 3A 8D 31 36 39 30 3A 82 49 3A 89 35 34 30 00 |X:.1690:.I:.540.|
000021A0: D2 3D 9A 06 99 22 93 54 4F 20 4D 4F 44 49 46 59 |.=...".TO MODIFY|
000021B0: 20 52 45 43 4F 52 44 20 4E 55 4D 42 45 52 22 3B | RECORD NUMBER";|
000021C0: 49 3B 22 2C 20 4D 41 4B 45 20 43 48 41 4E 47 45 |I;", MAKE CHANGE|
000021D0: 53 22 00 04 3E A4 06 99 22 41 53 20 45 41 43 48 |S"..>..."AS EACH|
000021E0: 20 46 49 45 4C 44 20 49 53 20 44 49 53 50 4C 41 | FIELD IS DISPLA|
000021F0: 59 45 44 2C 20 54 48 45 4E 20 12 52 45 54 55 52 |YED, THEN .RETUR|
00002200: 4E 92 92 22 00 4A 3E AE 06 81 4E B2 31 A4 46 3A |N..".J>...N.1.F:|
00002210: 99 46 24 28 4E 29 22 3A 22 3A 99 22 20 20 20 12 |.F$(N)":":." .|
00002220: 22 3B 52 45 43 24 28 4B 25 28 49 29 2C 4E 29 3A |";REC$(K%(I),N):|
00002230: 8B C3 28 52 45 43 24 28 4B 25 28 49 29 2C 4E 29 |..(REC$(K%(I),N)|
00002240: 29 B1 33 36 A7 99 22 91 22 3B 00 88 3E B8 06 99 |).36..".";..>...|
00002250: 22 91 20 22 3B 3A 85 52 45 43 24 28 4B 25 28 49 |". ";:.REC$(K%(I|
00002260: 29 2C 4E 29 3A 8B C3 28 52 45 43 24 28 4B 25 28 |),N):..(REC$(K%(|
00002270: 49 29 2C 4E 29 29 B1 4C 25 28 4E 29 A7 8D 31 30 |I),N)).L%(N)..10|
00002280: 36 30 3A 89 31 37 31 30 00 B0 3E C2 06 8B 52 45 |60:.1710..>...RE|
00002290: 43 24 28 4B 25 28 49 29 2C 4E 29 B2 22 22 A7 52 |C$(K%(I),N)."".R|
000022A0: 45 43 24 28 4B 25 28 49 29 2C 4E 29 B2 22 3E 22 |EC$(K%(I),N).">"|
000022B0: 00 BE 3E CC 06 82 4E 3A 43 4B B2 31 3A 8E 00 FA |..>...N:CK.1:...|
000022C0: 3E D6 06 8D 33 34 34 30 3A 99 22 93 44 45 4C 45 |>...3440:.".DELE|
000022D0: 54 45 20 57 48 49 43 48 20 52 45 43 4F 52 44 3F |TE WHICH RECORD?|
000022E0: 20 45 4E 54 45 52 20 12 23 92 20 4F 52 20 12 41 | ENTER .#. OR .A|
000022F0: 92 4C 4C 22 3A 8D 33 34 39 30 00 0F 3F E0 06 85 |.LL":.3490..?...|
00002300: 44 52 24 3A 8B 44 52 24 B2 44 24 A7 35 34 30 00 |DR$:.DR$.D$.540.|
00002310: 29 3F EA 06 8B 44 52 24 B2 22 41 22 A7 44 52 24 |)?...DR$."A".DR$|
00002320: B2 44 24 3A 89 31 38 30 30 00 4E 3F F4 06 49 B2 |.D$:.1800.N?..I.|
00002330: C5 28 44 52 24 29 3A 44 52 24 B2 44 24 3A 8B 49 |.(DR$):DR$.D$:.I|
00002340: B1 58 A7 8D 32 31 30 30 3A 89 31 37 36 30 00 63 |.X..2100:.1760.c|
00002350: 3F FE 06 8D 31 38 31 30 3A 8D 33 34 39 30 3A 89 |?...1810:.3490:.|
00002360: 35 34 30 00 7C 3F 08 07 81 49 B2 31 A4 58 3A 8D |540.|?...I.1.X:.|
00002370: 31 38 31 30 3A 82 49 3A 89 35 34 30 00 A8 3F 12 |1810:.I:.540..?.|
00002380: 07 99 22 93 54 4F 20 44 45 4C 45 54 45 20 52 45 |..".TO DELETE RE|
00002390: 43 4F 52 44 20 4E 55 4D 42 45 52 22 3B 49 3B 22 |CORD NUMBER";I;"|
000023A0: 2C 20 50 52 45 53 53 22 00 EC 3F 1C 07 99 22 12 |, PRESS"..?...".|
000023B0: 53 48 49 46 54 92 20 12 44 92 2C 20 50 52 45 53 |SHIFT. .D., PRES|
000023C0: 53 20 12 53 50 41 43 45 20 42 41 52 92 20 54 4F |S .SPACE BAR. TO|
000023D0: 20 41 44 56 41 4E 43 45 20 28 49 46 20 44 45 4C | ADVANCE (IF DEL|
000023E0: 45 54 49 4E 47 20 41 4C 4C 29 11 22 00 26 40 26 |ETING ALL).".&@&|
000023F0: 07 81 4E B2 31 A4 46 3A 99 46 24 28 4E 29 3B 22 |..N.1.F:.F$(N);"|
00002400: 3A 20 22 3B 52 45 43 24 28 4B 25 28 49 29 2C 4E |: ";REC$(K%(I),N|
00002410: 29 3A 82 4E 3A 8D 34 31 30 3A 8B 41 24 B2 22 C4 |):.N:.410:.A$.".|
00002420: 22 A7 31 38 35 30 00 31 40 30 07 43 4B B2 31 3A |".1850.1@0.CK.1:|
00002430: 8E 00 75 40 3A 07 99 22 1C 11 44 45 4C 45 54 49 |..u@:.."..DELETI|
00002440: 4E 47 20 52 45 43 4F 52 44 22 3B 49 3A 99 22 12 |NG RECORD";I:.".|
00002450: 52 45 43 4F 52 44 53 20 4D 41 59 20 4E 4F 57 20 |RECORDS MAY NOW |
00002460: 42 45 20 4F 55 54 20 4F 46 20 4F 52 44 45 52 1E |BE OUT OF ORDER.|
00002470: 22 3A FE 0B 32 00 A8 40 44 07 81 4E B2 31 A4 46 |":..2..@D..N.1.F|
00002480: 3A 52 45 43 24 28 4B 25 28 49 29 2C 4E 29 B2 52 |:REC$(K%(I),N).R|
00002490: 45 43 24 28 58 2C 4E 29 3A 52 45 43 24 28 58 2C |EC$(X,N):REC$(X,|
000024A0: 4E 29 B2 22 22 3A 82 4E 00 DC 40 4E 07 81 4A B2 |N)."":.N..@N..J.|
000024B0: 31 A4 58 3A 8B 4B 25 28 4A 29 B2 58 A7 4B 25 28 |1.X:.K%(J).X.K%(|
000024C0: 4A 29 B2 4B 25 28 58 29 3A 4B 25 28 58 29 B2 30 |J).K%(X):K%(X).0|
000024D0: 3A 58 B2 58 AB 31 3A 89 31 38 34 30 00 E3 40 58 |:X.X.1:.1840..@X|
000024E0: 07 82 4A 00 58 41 62 07 8D 33 34 34 30 3A 99 22 |..J.XAb..3440:."|
000024F0: 93 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00002500: 20 20 20 20 53 4F 52 54 20 52 45 43 4F 52 44 53 | SORT RECORDS|
00002510: 20 49 4E 20 41 53 43 45 4E 44 49 4E 47 20 4F 52 | IN ASCENDING OR|
00002520: 44 45 52 20 20 20 20 20 20 20 20 20 20 20 20 20 |DER |
00002530: 20 20 20 20 20 22 3A 81 4E B2 31 A4 46 3A 99 22 | ":.N.1.F:."|
00002540: 12 22 3B 4E 3B 22 92 20 22 3B 46 24 28 4E 29 3A |.";N;". ";F$(N):|
00002550: 82 4E 3A 8D 33 34 39 30 00 97 41 6C 07 85 22 57 |.N:.3490..Al.."W|
00002560: 48 49 43 48 20 46 49 45 4C 44 20 49 53 20 54 4F |HICH FIELD IS TO|
00002570: 20 42 45 20 53 4F 52 54 45 44 3F 20 30 20 9D 9D | BE SORTED? 0 ..|
00002580: 9D 9D 22 3B 53 46 3A 8B 53 46 B2 30 A7 8D 33 34 |..";SF:.SF.0..34|
00002590: 34 30 3A 89 35 34 30 00 AE 41 76 07 8B 53 46 B1 |40:.540..Av..SF.|
000025A0: 46 A7 99 22 91 91 91 22 3B 89 31 39 30 30 00 00 |F.."...";.1900..|
000025B0: 42 80 07 99 22 12 50 4C 45 41 53 45 20 57 41 49 |B...".PLEASE WAI|
000025C0: 54 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |T |
000025D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000025E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000025F0: 20 20 20 20 20 20 20 20 20 92 11 22 3A 4D B2 58 | ..":M.X|
00002600: 00 88 42 8A 07 4D B2 B5 28 4D AD 32 29 3A 8B 4D |..B..M..(M.2):.M|
00002610: B2 30 A7 43 4B B2 31 3A 99 22 1C 59 4F 55 20 43 |.0.CK.1:.".YOU C|
00002620: 41 4E 20 4E 4F 57 20 56 2D 49 45 57 20 52 45 43 |AN NOW V-IEW REC|
00002630: 4F 52 44 53 20 49 4E 20 27 41 53 43 45 4E 44 45 |ORDS IN 'ASCENDE|
00002640: 44 20 4F 52 44 45 52 27 20 28 57 49 54 48 20 27 |D ORDER' (WITH '|
00002650: 56 27 20 46 55 4E 43 54 49 4F 4E 20 4F 4E 20 4D |V' FUNCTION ON M|
00002660: 41 49 4E 20 4D 45 4E 55 29 22 3A 99 22 48 49 54 |AIN MENU)":."HIT|
00002670: 20 41 20 4B 45 59 1E 22 3A 8D 34 31 30 3A 8D 33 | A KEY.":.410:.3|
00002680: 34 34 30 3A 89 35 34 30 00 96 42 94 07 4A B2 31 |440:.540..B..J.1|
00002690: 3A 4B B2 58 AB 4D 00 9E 42 9E 07 49 B2 4A 00 EA |:K.X.M..B..I.J..|
000026A0: 42 A8 07 4C B2 49 AA 4D 3A 99 22 53 4F 52 54 49 |B..L.I.M:."SORTI|
000026B0: 4E 47 20 20 20 20 20 20 20 9D 9D 9D 9D 9D 22 3B |NG .....";|
000026C0: 49 3B 22 91 22 3A 8B 52 45 43 24 28 4B 25 28 49 |I;".":.REC$(K%(I|
000026D0: 29 2C 53 46 29 B3 B2 52 45 43 24 28 4B 25 28 4C |),SF)..REC$(K%(L|
000026E0: 29 2C 53 46 29 A7 31 39 38 30 00 22 43 B2 07 54 |),SF).1980."C..T|
000026F0: 25 28 4E 29 B2 4B 25 28 49 29 3A 4B 25 28 49 29 |%(N).K%(I):K%(I)|
00002700: B2 4B 25 28 4C 29 3A 4B 25 28 4C 29 B2 54 25 28 |.K%(L):K%(L).T%(|
00002710: 4E 29 3A 49 B2 49 AB 4D 3A 8B 49 B1 30 A7 31 39 |N):I.I.M:.I.0.19|
00002720: 36 30 00 36 43 BC 07 4A B2 4A AA 31 3A 8B 4A B1 |60.6C..J.J.1:.J.|
00002730: 4B A7 31 39 33 30 00 40 43 C6 07 89 31 39 35 30 |K.1930.@C...1950|
00002740: 00 A8 43 D0 07 99 22 13 11 11 11 11 11 11 11 11 |..C...".........|
00002750: 11 11 11 11 11 11 11 11 11 11 22 3B A3 38 29 3B |..........";.8);|
00002760: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00002770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002780: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002790: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000027A0: 20 20 20 20 20 20 20 22 00 00 44 DA 07 99 C7 28 | "..D....(|
000027B0: 31 35 29 3B 22 13 11 11 11 11 11 11 11 11 11 11 |15);"...........|
000027C0: 11 11 11 11 11 11 11 11 11 22 3B A3 37 29 3B 22 |.........";.7);"|
000027D0: 91 1C 59 4F 55 20 48 41 56 45 20 4E 4F 54 20 53 |..YOU HAVE NOT S|
000027E0: 41 56 45 44 20 59 4F 55 52 20 43 48 41 4E 47 45 |AVED YOUR CHANGE|
000027F0: 53 21 22 3A 81 54 B2 31 A4 31 35 30 30 3A 82 54 |S!":.T.1.1500:.T|
00002800: 00 69 44 E4 07 99 22 13 11 11 11 11 11 11 11 11 |.iD...".........|
00002810: 11 11 11 11 11 11 11 11 11 11 11 1C 22 3B A3 37 |............";.7|
00002820: 29 3B 22 91 20 20 20 20 20 20 20 20 20 20 20 20 |);". |
00002830: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002840: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002850: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002860: 20 20 20 20 20 20 20 20 22 00 CD 44 EE 07 99 C7 | "..D....|
00002870: 28 31 35 29 3B 22 13 11 11 11 11 11 11 11 11 11 |(15);"..........|
00002880: 11 11 11 11 11 11 11 11 11 11 22 3B A3 37 29 3B |..........";.7);|
00002890: 22 91 9C 44 4F 20 59 4F 55 20 52 45 41 4C 4C 59 |"..DO YOU REALLY|
000028A0: 20 57 41 4E 54 20 54 4F 20 51 55 49 54 3F 20 12 | WANT TO QUIT? .|
000028B0: 59 92 20 4F 52 20 12 4E 92 1E 22 3A 8D 34 31 30 |Y. OR .N..":.410|
000028C0: 3A 8B 41 24 B2 22 59 22 A7 32 30 39 30 00 D6 44 |:.A$."Y".2090..D|
000028D0: F8 07 89 35 34 30 00 E6 44 02 08 8B 43 4B B3 B1 |...540..D...CK..|
000028E0: 30 A7 32 30 30 30 00 3B 45 0C 08 99 C7 28 31 35 |0.2000.;E....(15|
000028F0: 29 3B 22 13 11 11 11 11 11 11 11 11 11 11 11 11 |);".............|
00002900: 11 11 11 11 11 11 9C 22 3B A3 33 39 29 3B 22 53 |.......";.39);"S|
00002910: 55 52 45 20 59 4F 55 20 57 41 4E 54 20 54 4F 20 |URE YOU WANT TO |
00002920: 54 45 52 4D 49 4E 41 54 45 3F 20 59 2F 4E 20 20 |TERMINATE? Y/N |
00002930: 20 20 1E 22 3B C7 28 31 34 33 29 00 4F 45 16 08 | .";.(143).OE..|
00002940: A1 41 24 3A 8B 41 24 B2 22 22 A7 32 30 37 30 00 |.A$:.A$."".2070.|
00002950: 67 45 20 08 8B 41 24 B3 B1 22 59 22 A7 8D 33 34 |gE ..A$.."Y"..34|
00002960: 36 30 3A 89 35 34 30 00 76 45 2A 08 44 43 B2 36 |60:.540.vE*.DC.6|
00002970: 3A 89 32 39 32 30 00 96 45 34 08 99 22 20 4E 4F |:.2920..E4.." NO|
00002980: 20 53 55 43 48 20 52 45 43 4F 52 44 20 45 58 49 | SUCH RECORD EXI|
00002990: 53 54 53 22 3A 8E 00 A1 45 3E 08 8B 52 B1 30 A7 |STS":...E>..R.0.|
000029A0: 8E 00 CD 45 48 08 99 22 93 11 20 4E 4F 20 46 49 |...EH..".. NO FI|
000029B0: 4C 45 53 20 49 4E 20 4D 45 4D 4F 52 59 22 3A FE |LES IN MEMORY":.|
000029C0: 0B 33 3A 8D 33 34 36 30 3A 89 35 34 30 00 E1 45 |.3:.3460:.540..E|
000029D0: 52 08 8B 58 B3 31 A7 8D 32 31 32 30 3A 89 35 34 |R..X.1..2120:.54|
000029E0: 30 00 EB 45 5C 08 8D 33 34 34 30 00 F1 45 66 08 |0..E\..3440..Ef.|
000029F0: 8F 00 04 46 70 08 99 22 93 22 3B 4C 35 24 3A 41 |...Fp..".";L5$:A|
00002A00: 24 B2 22 22 00 4E 46 7A 08 99 22 20 20 20 20 20 |$."".NFz.." |
00002A10: 20 20 20 20 DD 20 20 20 20 20 20 20 20 20 20 20 | . |
00002A20: 20 20 20 20 20 20 20 50 52 49 4E 54 45 52 20 4D | PRINTER M|
00002A30: 41 49 4E 20 4D 45 4E 55 20 20 20 20 20 20 20 20 |AIN MENU |
00002A40: 20 20 20 20 20 20 20 20 20 20 20 20 DD 22 00 57 | .".W|
00002A50: 46 84 08 99 4C 36 24 00 60 46 8E 08 99 4C 33 24 |F...L6$.`F...L3$|
00002A60: 00 BD 46 98 08 99 22 20 20 20 20 20 20 20 20 20 |..F..." |
00002A70: DD 22 3B C7 28 31 35 29 3B 22 20 50 20 22 3B C7 |.";.(15);" P ";.|
00002A80: 28 31 34 33 29 3B 22 AB B3 52 49 4E 54 20 4F 55 |(143);"..RINT OU|
00002A90: 54 20 54 48 45 20 46 49 4C 45 20 49 4E 20 4D 45 |T THE FILE IN ME|
00002AA0: 4D 4F 52 59 20 20 20 20 20 20 20 20 20 20 20 20 |MORY |
00002AB0: 20 20 20 20 20 20 20 20 20 20 20 DD 22 00 C6 46 | ."..F|
00002AC0: A2 08 99 4C 34 24 00 CF 46 AC 08 99 4C 33 24 00 |...L4$..F...L3$.|
00002AD0: 2C 47 B6 08 99 22 20 20 20 20 20 20 20 20 20 DD |,G..." .|
00002AE0: 22 3B C7 28 31 35 29 3B 22 20 45 20 22 3B C7 28 |";.(15);" E ";.(|
00002AF0: 31 34 33 29 3B 22 AB B3 58 49 54 20 50 52 49 4E |143);"..XIT PRIN|
00002B00: 54 4F 55 54 20 4D 45 4E 55 20 20 20 20 20 20 20 |TOUT MENU |
00002B10: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002B20: 20 20 20 20 20 20 20 20 20 20 DD 22 00 35 47 C0 | .".5G.|
00002B30: 08 99 4C 34 24 00 42 47 CA 08 99 22 11 22 3B 4C |..L4$.BG...".";L|
00002B40: 35 24 00 9F 47 D4 08 99 22 20 20 20 20 20 20 20 |5$..G..." |
00002B50: 20 20 DD 20 54 55 52 4E 20 54 48 45 20 50 52 49 | . TURN THE PRI|
00002B60: 4E 54 45 52 20 4F 4E 20 46 4F 52 20 54 48 45 20 |NTER ON FOR THE |
00002B70: 22 3B C7 28 31 35 29 3B 22 27 50 27 20 22 3B C7 |";.(15);"'P' ";.|
00002B80: 28 31 34 33 29 3B 22 46 55 4E 43 54 49 4F 4E 20 |(143);"FUNCTION |
00002B90: 20 20 20 20 20 20 20 20 20 20 20 20 20 DD 22 00 | .".|
00002BA0: A8 47 DE 08 99 4C 36 24 00 B1 47 E8 08 99 4C 35 |.G...L6$..G...L5|
00002BB0: 24 00 03 48 F2 08 99 22 20 20 20 20 20 20 20 20 |$..H..." |
00002BC0: 20 DD 20 50 52 49 4E 54 45 52 20 53 54 41 54 55 | . PRINTER STATU|
00002BD0: 53 20 4C 49 4E 45 3A 20 54 48 45 52 45 20 41 52 |S LINE: THERE AR|
00002BE0: 45 1C 22 3B 58 3B 22 20 52 45 43 4F 52 44 53 20 |E.";X;" RECORDS |
00002BF0: 49 4E 20 4D 45 4D 4F 52 59 1E 22 3B A3 36 35 29 |IN MEMORY.";.65)|
00002C00: 22 DD 22 00 0C 48 FC 08 99 4C 36 24 00 6C 48 06 |"."..H...L6$.lH.|
00002C10: 09 99 22 1C 11 20 20 20 20 20 20 20 20 20 20 3E |..".. >|
00002C20: 20 3E 20 3E 20 3E 20 3E 20 3E 20 3E 20 48 4F 4C | > > > > > > HOL|
00002C30: 44 2D 22 3B C7 28 31 35 29 3B 22 20 27 5C 27 22 |D-";.(15);" '\'"|
00002C40: 3B C7 28 31 34 33 29 3B 22 20 54 4F 20 41 42 4F |;.(143);" TO ABO|
00002C50: 52 54 20 50 52 49 4E 54 4F 55 54 20 3C 20 3C 20 |RT PRINTOUT < < |
00002C60: 3C 20 3C 20 3C 20 3C 20 3C 20 1E 22 00 BF 48 10 |< < < < < ."..H.|
00002C70: 09 99 22 1C 11 20 20 20 20 20 20 20 20 20 20 3E |..".. >|
00002C80: 20 3E 20 3E 20 3E 20 3E 20 3E 20 3E 20 50 52 45 | > > > > > > PRE|
00002C90: 53 53 20 54 48 45 20 41 50 50 52 4F 50 52 49 41 |SS THE APPROPRIA|
00002CA0: 54 45 20 4B 45 59 20 3C 20 3C 20 3C 20 3C 20 3C |TE KEY < < < < <|
00002CB0: 20 3C 20 3C 20 3C 20 1E 22 3A 8D 33 34 39 30 00 | < < < .":.3490.|
00002CC0: C8 48 1A 09 8D 34 31 30 00 DF 48 24 09 8B 41 24 |.H...410..H$..A$|
00002CD0: B2 22 45 22 A7 8D 33 34 34 30 3A 89 35 34 30 00 |."E"..3440:.540.|
00002CE0: F0 48 2E 09 8B 41 24 B2 22 50 22 A7 33 33 32 30 |.H...A$."P".3320|
00002CF0: 00 FA 48 38 09 89 32 33 33 30 00 2B 49 42 09 99 |..H8..2330.+IB..|
00002D00: 22 93 11 20 12 54 48 49 53 20 57 49 4C 4C 20 44 |".. .THIS WILL D|
00002D10: 45 53 54 52 4F 59 20 54 48 45 20 46 49 4C 45 20 |ESTROY THE FILE |
00002D20: 49 4E 20 4D 45 4D 4F 52 59 21 22 00 6F 49 4C 09 |IN MEMORY!".oIL.|
00002D30: 99 22 11 11 20 53 41 56 45 20 54 48 45 20 46 49 |.".. SAVE THE FI|
00002D40: 4C 45 20 46 49 52 53 54 3F 20 12 59 92 20 4F 52 |LE FIRST? .Y. OR|
00002D50: 20 12 4E 92 22 3A 8D 33 34 39 30 3A 8D 34 31 30 | .N.":.3490:.410|
00002D60: 3A 8B 41 24 B2 22 4E 22 A7 43 4B B2 30 3A 8E 00 |:.A$."N".CK.0:..|
00002D70: 79 49 56 09 89 31 30 37 30 00 FF 49 60 09 99 22 |yIV..1070..I`.."|
00002D80: 13 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00002D90: 11 12 1C 41 52 45 20 59 4F 55 20 53 55 52 45 3F |...ARE YOU SURE?|
00002DA0: 20 12 46 4F 52 4D 41 54 20 20 20 59 20 20 4F 52 | .FORMAT Y OR|
00002DB0: 20 20 4E 20 20 20 20 20 20 20 20 20 20 20 20 20 | N |
00002DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002DD0: 20 20 20 20 20 20 20 20 20 20 20 92 22 3A 8D 33 | .":.3|
00002DE0: 34 39 30 3A 8D 34 31 30 3A 8B 41 24 B2 22 4E 22 |490:.410:.A$."N"|
00002DF0: A7 97 35 33 32 38 30 2C 30 3A 89 32 36 30 30 00 |..53280,0:.2600.|
00002E00: 1B 4A 6A 09 8B 41 24 B3 B1 22 59 22 A7 97 35 33 |.Jj..A$.."Y"..53|
00002E10: 32 38 30 2C 30 3A 89 32 36 30 30 00 73 4A 74 09 |280,0:.2600.sJt.|
00002E20: 99 22 1C 91 45 4E 54 45 52 20 46 4F 52 4D 41 54 |."..ENTER FORMAT|
00002E30: 54 20 43 4F 44 45 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |T CODE----------|
00002E40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002E50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00002E60: 2D 20 20 20 20 20 20 20 20 20 20 22 3A 46 43 24 |- ":FC$|
00002E70: B2 22 22 00 8D 4A 7E 09 99 A3 36 30 29 3B 22 91 |.""..J~...60);".|
00002E80: 22 3B 3A 85 46 43 24 3A 89 32 34 34 30 00 F9 4A |";:.FC$:.2440..J|
00002E90: 88 09 8B 46 43 24 B3 B1 22 4D 44 22 A7 99 3A 99 |...FC$.."MD"..:.|
00002EA0: 22 12 1C 91 91 49 4E 43 4F 52 52 45 43 54 20 20 |"....INCORRECT |
00002EB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002EC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002ED0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002EE0: 20 20 20 20 20 20 20 20 20 20 20 20 22 3A 81 54 | ":.T|
00002EF0: B2 31 A4 35 30 30 3A 82 54 00 17 4B 92 09 8B 46 |.1.500:.T..K...F|
00002F00: 43 24 B3 B1 22 4D 44 22 A7 97 35 33 32 38 30 2C |C$.."MD"..53280,|
00002F10: 30 3A 89 32 36 30 30 00 70 4B 9C 09 99 3A 99 22 |0:.2600.pK...:."|
00002F20: 1C 91 91 12 43 4F 52 52 45 43 54 20 45 4E 54 52 |....CORRECT ENTR|
00002F30: 59 20 43 4F 44 45 2E 2E 2E 2E 50 52 4F 43 45 45 |Y CODE....PROCEE|
00002F40: 44 21 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |D! |
00002F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002F60: 20 20 20 20 20 20 20 20 20 20 20 22 3A FE 0B 32 | ":..2|
00002F70: 00 C0 4B A6 09 99 22 91 20 20 20 20 20 20 20 20 |..K...". |
00002F80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002F90: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002FA0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00002FB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00002FC0: 00 D9 4B B0 09 85 22 91 12 44 49 53 4B 20 4E 41 |..K..."..DISK NA|
00002FD0: 4D 45 3A 92 22 3B 48 4E 24 00 29 4C BA 09 99 22 |ME:.";HN$.)L..."|
00002FE0: 91 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00002FF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003010: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003020: 20 20 20 20 20 20 20 20 22 00 47 4C C4 09 85 22 | ".GL..."|
00003030: 91 12 4E 4F 2E 92 22 3B 49 44 24 3A 8B 48 4E 24 |..NO..";ID$:.HN$|
00003040: B2 22 22 A7 35 34 30 00 97 4C CE 09 99 22 91 20 |."".540..L...". |
00003050: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003060: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003070: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003080: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003090: 20 20 20 20 20 20 22 00 DE 4C D8 09 99 22 91 12 | "..L..."..|
000030A0: 41 52 45 20 27 22 3B 48 4E 24 3B 22 12 27 20 41 |ARE '";HN$;".' A|
000030B0: 4E 44 20 27 22 3B 49 44 24 3B 22 12 27 20 43 4F |ND '";ID$;".' CO|
000030C0: 52 52 45 43 54 3F 20 59 2F 4E 22 3A 8D 34 31 30 |RRECT? Y/N":.410|
000030D0: 3A 8B 41 24 B3 B1 22 59 22 A7 32 36 30 30 00 42 |:.A$.."Y".2600.B|
000030E0: 4D E2 09 99 22 12 91 48 49 54 20 41 20 4B 45 59 |M..."..HIT A KEY|
000030F0: 20 54 4F 20 53 54 41 52 54 20 54 48 45 20 46 4F | TO START THE FO|
00003100: 52 4D 41 54 2D 2D 2D 2D 2D 4F 52 20 48 49 54 2D |RMAT-----OR HIT-|
00003110: 2D 2D 2D 2D 27 2A 27 20 54 4F 20 41 42 4F 52 54 |----'*' TO ABORT|
00003120: 20 46 4F 52 4D 41 54 20 20 20 20 20 20 20 1E 22 | FORMAT ."|
00003130: 3A 8D 34 31 30 3A 8B 41 24 B2 22 2A 22 A7 32 36 |:.410:.A$."*".26|
00003140: 30 30 00 95 4D EC 09 99 22 12 91 1C 20 57 41 49 |00..M..."... WAI|
00003150: 54 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 46 |T..............F|
00003160: 4F 52 4D 41 54 54 49 4E 47 20 44 49 53 4B 20 20 |ORMATTING DISK |
00003170: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003190: 20 20 20 1E 22 00 C4 4D F6 09 9F 31 35 2C 38 2C | ."..M...15,8,|
000031A0: 31 35 3A 98 31 35 2C 22 4E 45 57 30 3A 22 AA 48 |15:.15,"NEW0:".H|
000031B0: 4E 24 AA 22 2C 22 AA 49 44 24 3A 8D 32 35 37 30 |N$.",".ID$:.2570|
000031C0: 3A A0 31 35 00 21 4E 00 0A 99 22 12 91 1C 20 46 |:.15.!N..."... F|
000031D0: 4F 52 4D 41 54 20 49 53 20 43 4F 4D 50 4C 45 54 |ORMAT IS COMPLET|
000031E0: 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |E |
000031F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003210: 20 20 20 20 20 1E 22 3A FE 0B 32 3A 89 32 36 30 | .":..2:.260|
00003220: 30 00 49 4E 0A 0A 84 31 35 2C 45 4E 2C 45 4D 24 |0.IN...15,EN,EM$|
00003230: 2C 45 54 2C 45 53 3A 8B 28 45 4E B3 32 30 29 B0 |,ET,ES:.(EN.20).|
00003240: 28 45 4E B2 36 32 29 A7 8E 00 73 4E 14 0A 99 22 |(EN.62)...sN..."|
00003250: 12 11 44 49 53 4B 20 45 52 52 4F 52 92 22 45 4E |..DISK ERROR."EN|
00003260: 22 9D 2C 20 22 45 4D 24 22 2C 22 45 54 22 9D 2C |"., "EM$","ET".,|
00003270: 22 45 53 00 BD 4E 1E 0A 99 22 11 50 52 45 53 53 |"ES..N...".PRESS|
00003280: 20 12 41 4E 59 20 4B 45 59 92 20 54 4F 20 52 45 | .ANY KEY. TO RE|
00003290: 54 55 52 4E 20 54 4F 20 4D 45 4E 55 22 3A 8D 34 |TURN TO MENU":.4|
000032A0: 31 30 3A A0 35 3A A0 31 35 3A 97 35 33 32 38 30 |10:.5:.15:.53280|
000032B0: 2C 30 3A 8D 33 34 34 30 3A 89 35 34 30 00 14 4F |,0:.3440:.540..O|
000032C0: 28 0A 8D 33 34 34 30 3A 99 22 93 9C D5 C0 C0 C0 |(..3440:."......|
000032D0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000032E0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000032F0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003300: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003310: C0 C0 C9 22 00 65 4F 32 0A 99 22 DD 20 20 20 20 |...".eO2..". |
00003320: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003330: 20 20 20 20 20 20 20 1E 44 49 53 4B 20 43 4F 4D | .DISK COM|
00003340: 4D 41 4E 44 53 9C 20 20 20 20 20 20 20 20 20 20 |MANDS. |
00003350: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003360: 20 20 20 DD 22 00 B5 4F 3C 0A 99 22 CA C0 C0 C0 | ."..O<.."....|
00003370: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003380: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
00003390: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000033A0: C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 C0 |................|
000033B0: C0 C0 CB 1E 22 00 06 50 46 0A 99 22 11 12 31 2E |...."..PF.."..1.|
000033C0: 20 44 49 53 4B 20 43 4C 45 41 4E 20 55 50 20 28 | DISK CLEAN UP (|
000033D0: 43 4F 4C 4C 45 43 54 29 20 20 20 20 20 20 20 20 |COLLECT) |
000033E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000033F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003400: 20 20 20 20 20 22 00 57 50 50 0A 99 22 11 12 32 | ".WPP.."..2|
00003410: 2E 20 53 43 52 41 54 43 48 20 41 20 46 49 4C 45 |. SCRATCH A FILE|
00003420: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003440: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003450: 20 20 20 20 20 20 22 00 A8 50 5A 0A 99 22 11 12 | "..PZ.."..|
00003460: 33 2E 20 4C 49 53 54 20 44 49 52 45 43 54 4F 52 |3. LIST DIRECTOR|
00003470: 59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |Y |
00003480: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003490: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000034A0: 20 20 20 20 20 20 20 22 00 F9 50 64 0A 99 22 11 | "..Pd..".|
000034B0: 12 34 2E 20 52 45 53 45 54 20 44 52 49 56 45 20 |.4. RESET DRIVE |
000034C0: 27 30 27 20 20 20 20 20 20 20 20 20 20 20 20 20 |'0' |
000034D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000034E0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000034F0: 20 20 20 20 20 20 20 20 22 00 4A 51 6E 0A 99 22 | ".JQn.."|
00003500: 11 12 35 2E 20 45 58 49 54 20 54 4F 20 4D 41 49 |..5. EXIT TO MAI|
00003510: 4E 20 4D 45 4E 55 20 20 20 20 20 20 20 20 20 20 |N MENU |
00003520: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003540: 20 20 20 20 20 20 20 20 20 22 00 9B 51 78 0A 99 | "..Qx..|
00003550: 22 11 12 36 2E 20 54 45 52 4D 49 4E 41 54 45 20 |"..6. TERMINATE |
00003560: 44 41 54 41 46 49 4C 45 20 43 31 32 38 20 56 34 |DATAFILE C128 V4|
00003570: 2E 38 2E 33 20 50 52 4F 47 52 41 4D 20 20 20 20 |.8.3 PROGRAM |
00003580: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003590: 20 20 20 20 20 20 20 20 20 20 22 00 EC 51 82 0A | "..Q..|
000035A0: 99 22 11 12 37 2E 20 46 4F 52 4D 41 54 54 20 44 |."..7. FORMATT D|
000035B0: 49 53 4B C0 C0 45 4E 54 52 59 20 43 4F 44 45 20 |ISK..ENTRY CODE |
000035C0: 52 45 51 55 49 52 45 44 20 20 20 20 20 20 20 20 |REQUIRED |
000035D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000035E0: 20 20 20 20 20 20 20 20 20 20 20 22 00 3D 52 8C | ".=R.|
000035F0: 0A 99 22 11 12 38 2E 20 44 49 53 4B 20 53 54 41 |.."..8. DISK STA|
00003600: 54 55 53 20 20 20 20 20 20 20 20 20 20 20 20 20 |TUS |
00003610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003620: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003630: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 A1 52 | "..R|
00003640: 96 0A 99 22 11 9C 3E 3E 3E 3E 3E 20 44 45 46 41 |..."..>>>>> DEFA|
00003650: 55 4C 54 20 4C 49 53 54 53 20 44 49 52 45 43 54 |ULT LISTS DIRECT|
00003660: 4F 52 59 20 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E 3E |ORY >>>>>>>>>>>>|
00003670: 3E 3E 22 3B 3A 99 C7 28 31 35 29 3B 22 3E 3E 20 |>>";:..(15);">> |
00003680: 45 4E 54 45 52 20 41 20 4E 55 4D 42 45 52 20 3C |ENTER A NUMBER <|
00003690: 3C 3C 3C 3C 3C 3C 3C 3C 91 22 3B C7 28 31 34 33 |<<<<<<<<.";.(143|
000036A0: 29 00 AB 52 A0 0A 8D 33 34 39 30 00 C1 52 AA 0A |)..R...3490..R..|
000036B0: A1 44 43 24 3A 8B 44 43 24 B2 22 22 A7 32 37 33 |.DC$:.DC$."".273|
000036C0: 30 00 DF 52 B4 0A 44 43 B2 C5 28 44 43 24 29 3A |0..R..DC..(DC$):|
000036D0: 8B 44 43 B3 31 B0 44 43 B1 38 A7 33 30 38 30 00 |.DC.1.DC.8.3080.|
000036E0: 03 53 BE 0A 8B 44 43 B2 31 A7 FE 18 3A 8D 34 30 |.S...DC.1...:.40|
000036F0: 34 30 3A 8B 52 31 B2 39 A7 52 31 B2 30 3A 89 32 |40:.R1.9.R1.0:.2|
00003700: 36 30 30 00 41 53 C8 0A 99 C7 28 31 35 29 3B 22 |600.AS....(15);"|
00003710: 13 11 11 11 11 12 1C 44 49 53 4B 20 43 4C 45 41 |.......DISK CLEA|
00003720: 4E 20 55 50 20 49 4E 20 50 52 4F 47 52 45 53 53 |N UP IN PROGRESS|
00003730: 2D 57 41 49 54 2D 22 3A 8D 33 33 31 30 3A F3 44 |-WAIT-":.3310:.D|
00003740: 30 00 B7 53 D2 0A 9F 31 35 2C 38 2C 31 35 3A A0 |0..S...15,8,15:.|
00003750: 31 35 3A 99 22 91 91 12 50 52 4F 43 45 53 53 20 |15:."...PROCESS |
00003760: 49 53 20 43 4F 4D 50 4C 45 54 45 2E 2E 2E 44 49 |IS COMPLETE...DI|
00003770: 53 4B 20 48 41 53 20 42 45 45 4E 20 43 4C 45 41 |SK HAS BEEN CLEA|
00003780: 4E 45 44 20 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |NED ............|
00003790: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 1E |................|
000037A0: 22 3A 81 54 B2 31 A4 32 30 30 30 3A 82 54 3A FE |":.T.1.2000:.T:.|
000037B0: 19 3A 89 32 36 30 30 00 DB 53 DC 0A 8B 44 43 B2 |.:.2600..S...DC.|
000037C0: 32 A7 FE 18 3A 8D 34 30 34 30 3A 8B 52 31 B2 39 |2...:.4040:.R1.9|
000037D0: A7 52 31 B2 30 3A 89 32 36 30 30 00 EE 53 E6 0A |.R1.0:.2600..S..|
000037E0: FE 19 3A 8D 33 33 31 30 3A 89 33 31 32 30 00 12 |..:.3310:.3120..|
000037F0: 54 F0 0A 8B 44 43 B2 33 A7 FE 18 3A 8D 34 30 34 |T...DC.3...:.404|
00003800: 30 3A 8B 52 31 B2 39 A7 52 31 B2 30 3A 89 32 36 |0:.R1.9.R1.0:.26|
00003810: 30 30 00 62 54 FA 0A 99 C7 28 31 35 29 3B 22 13 |00.bT....(15);".|
00003820: 11 11 11 11 22 3B A3 34 39 29 3B 22 91 91 91 12 |....";.49);"....|
00003830: 1C 55 53 45 20 4E 4F 20 53 43 52 4F 4C 4C 20 4B |.USE NO SCROLL K|
00003840: 45 59 1C 22 3A 81 54 B2 31 A4 34 30 30 3A 82 54 |EY.":.T.1.400:.T|
00003850: 3A FE 1A 20 34 34 2C 33 2C 37 30 2C 32 33 2C 31 |:.. 44,3,70,23,1|
00003860: 3A EE 00 88 54 04 0B 99 C7 28 31 35 29 3B 22 11 |:...T....(15);".|
00003870: 12 48 49 54 20 41 20 4B 45 59 20 54 4F 20 43 4F |.HIT A KEY TO CO|
00003880: 4E 54 49 4E 55 45 92 22 00 9E 54 0E 0B A1 5A 58 |NTINUE."..T...ZX|
00003890: 24 3A 8B 5A 58 24 B2 22 22 A7 32 38 33 30 00 C5 |$:.ZX$."".2830..|
000038A0: 54 18 0B 99 22 1E 22 3A FE 1A 20 30 2C 30 2C 37 |T...".":.. 0,0,7|
000038B0: 39 2C 32 33 2C 30 3A FE 19 3A 8D 33 34 34 30 3A |9,23,0:..:.3440:|
000038C0: 89 32 36 30 30 00 E9 54 22 0B 8B 44 43 B2 34 A7 |.2600..T"..DC.4.|
000038D0: FE 18 3A 8D 34 30 34 30 3A 8B 52 31 B2 39 A7 52 |..:.4040:.R1.9.R|
000038E0: 31 B2 30 3A 89 32 36 30 30 00 2D 55 2C 0B 8D 33 |1.0:.2600.-U,..3|
000038F0: 33 31 30 3A 99 22 13 11 11 11 11 11 11 11 11 11 |310:."..........|
00003900: 11 11 22 A3 34 30 29 3B 22 91 12 1C 20 20 20 20 |..".40);"... |
00003910: 20 20 52 45 2D 53 45 54 54 49 4E 47 20 44 52 49 | RE-SETTING DRI|
00003920: 56 45 20 27 30 27 2E 2E 2E 2E 2E 1E 22 00 5D 55 |VE '0'......".]U|
00003930: 36 0B 9F 31 35 2C 38 2C 31 35 3A 98 31 35 2C 22 |6..15,8,15:.15,"|
00003940: 55 4A 22 3A A0 31 35 3A 81 54 B2 31 A4 31 30 30 |UJ":.15:.T.1.100|
00003950: 30 3A 82 54 3A FE 19 3A 89 32 36 30 30 00 77 55 |0:.T:..:.2600.wU|
00003960: 40 0B 8B 44 43 B2 35 A7 4F 45 B2 39 3A 8D 33 34 |@..DC.5.OE.9:.34|
00003970: 34 30 3A 89 35 34 30 00 E1 55 4A 0B 8B 44 43 B2 |40:.540..UJ..DC.|
00003980: 36 A7 FE 18 3A 99 22 13 11 11 11 11 11 11 11 11 |6...:.".........|
00003990: 11 11 11 11 11 11 12 1C 41 52 45 20 59 4F 55 20 |........ARE YOU |
000039A0: 53 55 52 45 20 59 4F 55 20 57 41 4E 54 20 54 4F |SURE YOU WANT TO|
000039B0: 20 54 45 52 4D 49 4E 41 54 45 3F 20 59 2F 4E 20 | TERMINATE? Y/N |
000039C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000039D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 1E | .|
000039E0: 22 00 F5 55 54 0B A1 41 24 3A 8B 41 24 B2 22 22 |"..UT..A$:.A$.""|
000039F0: A7 32 39 30 30 00 07 56 5E 0B 8B 41 24 B3 B1 22 |.2900..V^..A$.."|
00003A00: 59 22 A7 32 36 30 30 00 11 56 68 0B 8D 33 34 34 |Y".2600..Vh..344|
00003A10: 30 00 69 56 72 0B 99 22 93 12 11 11 11 11 11 1C |0.iVr.."........|
00003A20: 20 20 20 20 20 20 20 20 20 20 43 31 32 38 20 44 | C128 D|
00003A30: 41 54 41 46 49 4C 45 20 56 34 2E 38 2E 33 20 C0 |ATAFILE V4.8.3 .|
00003A40: C0 20 54 45 52 4D 49 4E 41 54 49 4E 47 20 41 54 |. TERMINATING AT|
00003A50: 20 55 53 45 52 53 20 52 45 51 55 45 53 54 20 20 | USERS REQUEST |
00003A60: 20 20 20 20 20 20 20 20 22 00 E0 56 7C 0B 99 22 | "..V|.."|
00003A70: 1C 12 20 20 20 20 20 20 20 20 20 20 92 20 43 4C |.. . CL|
00003A80: 4F 53 49 4E 47 20 41 4C 4C 20 31 35 20 46 49 4C |OSING ALL 15 FIL|
00003A90: 45 53 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |ES..............|
00003AA0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00003AB0: 2E 22 3B 3A 99 22 92 12 1C 43 4C 4F 53 49 4E 47 |.";:."...CLOSING|
00003AC0: 20 20 20 22 3A 8D 33 34 39 30 3A FE 0B 33 3A 99 | ":.3490:..3:.|
00003AD0: 22 12 20 20 20 20 20 20 20 20 20 20 92 20 22 3B |". . ";|
00003AE0: 00 29 57 86 0B 81 54 B2 31 A4 31 35 3A A0 54 3A |.)W...T.1.15:.T:|
00003AF0: 99 22 12 1E 22 3B 54 3B 3A 81 53 B2 31 A4 31 35 |."..";T;:.S.1.15|
00003B00: 30 3A 82 53 3A 82 54 3A 99 22 12 1C 43 4F 4E 46 |0:.S:.T:."..CONF|
00003B10: 49 52 4D 49 4E 47 22 3A 99 22 12 20 20 20 20 20 |IRMING":.". |
00003B20: 20 20 20 20 20 92 20 22 3B 00 5E 57 90 0B 81 54 | . ";.^W...T|
00003B30: B2 31 A4 31 35 3A A0 54 3A 99 22 12 1E 22 3B 54 |.1.15:.T:."..";T|
00003B40: 3B 3A 81 53 B2 31 A4 37 35 3A 82 53 3A 82 54 3A |;:.S.1.75:.S:.T:|
00003B50: 99 22 1C 43 4F 4E 46 49 52 4D 45 44 21 22 00 B7 |.".CONFIRMED!"..|
00003B60: 57 9A 0B 99 22 1C 12 20 20 20 20 20 20 20 20 20 |W...".. |
00003B70: 20 92 20 41 4C 4C 20 46 49 4C 45 53 20 43 4C 4F | . ALL FILES CLO|
00003B80: 53 45 44 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |SED.............|
00003B90: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00003BA0: 2E 2E 2E 2E 2E 92 20 22 3B 22 1C 12 53 54 4F 50 |...... ";"..STOP|
00003BB0: 49 4E 47 20 20 20 22 00 CE 57 A4 0B 81 54 B2 31 |ING "..W...T.1|
00003BC0: A4 37 32 3A 99 22 12 1C 20 22 3B 3A 82 54 00 1B |.72:.".. ";:.T..|
00003BD0: 58 AE 0B 99 22 91 1D 1D 1D 1D 1D 1D 1D 1D 1D 1D |X..."...........|
00003BE0: 1D 1D 1D 1D 1D 1D 1D 1D 54 45 52 4D 49 4E 41 54 |........TERMINAT|
00003BF0: 45 44 21 21 22 3B 3A 81 54 B2 31 A4 34 30 3A 99 |ED!!";:.T.1.40:.|
00003C00: 22 12 2A 22 3B 3A 81 53 B2 31 A4 31 35 3A 82 53 |".*";:.S.1.15:.S|
00003C10: 3A 82 54 3A 99 22 53 54 4F 50 22 00 81 58 B8 0B |:.T:."STOP"..X..|
00003C20: 99 C7 28 31 35 29 3B 22 11 11 54 48 41 4E 4B 59 |..(15);"..THANKY|
00003C30: 4F 55 20 46 4F 52 20 55 53 49 4E 47 20 43 31 32 |OU FOR USING C12|
00003C40: 38 20 44 41 54 41 46 49 4C 45 20 56 34 2E 38 2E |8 DATAFILE V4.8.|
00003C50: 33 20 21 21 22 3A 99 22 11 1E 4D 49 4B 45 20 44 |3 !!":."..MIKE D|
00003C60: 49 53 53 49 4E 47 45 52 22 3A 99 22 4C 41 4E 43 |ISSINGER":."LANC|
00003C70: 41 53 54 45 52 2C 20 50 41 11 90 22 3A FE 19 3A |ASTER, PA..":..:|
00003C80: 80 00 A5 58 C2 0B 8B 44 43 B2 37 A7 FE 18 3A 8D |...X...DC.7...:.|
00003C90: 34 30 34 30 3A 8B 52 31 B2 39 A7 52 31 B2 30 3A |4040:.R1.9.R1.0:|
00003CA0: 89 32 36 30 30 00 C1 58 CC 0B 8D 33 33 31 30 3A |.2600..X...3310:|
00003CB0: 97 35 33 32 38 30 2C 32 3A FE 19 3A 89 32 34 30 |.53280,2:..:.240|
00003CC0: 30 00 E5 58 D6 0B 8B 44 43 B2 38 A7 FE 18 3A 8D |0..X...DC.8...:.|
00003CD0: 34 30 34 30 3A 8B 52 31 B2 39 A7 52 31 B2 30 3A |4040:.R1.9.R1.0:|
00003CE0: 89 32 36 30 30 00 EF 58 E0 0B 8D 33 33 31 30 00 |.2600..X...3310.|
00003CF0: 4E 59 EA 0B 9F 31 35 2C 38 2C 31 35 3A 84 31 35 |NY...15,8,15:.15|
00003D00: 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 99 22 |,EN,EM$,ET,ES:."|
00003D10: 91 91 91 1C 12 44 49 53 4B 20 53 54 41 54 55 53 |.....DISK STATUS|
00003D20: 20 49 53 3A 22 45 4E 3B 22 20 22 3B 22 9D 9D 20 | IS:"EN;" ";".. |
00003D30: 22 3B 45 4D 24 3B 45 54 3B 22 20 22 3B 22 9D 9D |";EM$;ET;" ";"..|
00003D40: 22 3B 45 53 3B 22 20 22 3B 22 9D 9D 22 3B 00 99 |";ES;" ";"..";..|
00003D50: 59 F4 0B 99 22 12 20 20 20 20 20 20 20 20 20 20 |Y...". |
00003D60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 48 49 | HI|
00003D70: 54 20 41 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 |T A KEY TO CONTI|
00003D80: 4E 55 45 20 20 1E 92 22 3A 81 54 B2 31 A4 31 30 |NUE ..":.T.1.10|
00003D90: 30 30 3A 82 54 3A A0 31 35 00 AB 59 FE 0B 8D 34 |00:.T:.15..Y...4|
00003DA0: 31 30 3A FE 19 3A 89 32 36 30 30 00 C1 59 08 0C |10:..:.2600..Y..|
00003DB0: 44 43 B2 33 3A 99 22 91 91 91 22 3A 89 32 38 30 |DC.3:."...":.280|
00003DC0: 30 00 E7 59 12 0C 99 22 11 12 48 49 54 20 41 20 |0..Y..."..HIT A |
00003DD0: 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 92 |KEY TO CONTINUE.|
00003DE0: 22 3A 8D 33 33 31 30 00 FD 59 1C 0C A1 48 48 24 |":.3310..Y...HH$|
00003DF0: 3A 8B 48 48 24 B2 22 22 A7 33 31 30 30 00 0C 5A |:.HH$."".3100..Z|
00003E00: 26 0C 99 22 1E 22 3A 89 32 36 30 30 00 62 5A 30 |&..".":.2600.bZ0|
00003E10: 0C 99 22 13 11 11 11 11 11 11 20 20 20 20 20 20 |.."....... |
00003E20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003E50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003E60: 20 22 00 A4 5A 3A 0C 44 46 24 B2 22 22 3A 99 22 | "..Z:.DF$."":."|
00003E70: 1C 13 11 11 11 11 11 11 44 45 4C 45 54 45 20 57 |........DELETE W|
00003E80: 48 41 54 20 46 49 4C 45 20 4F 52 20 45 4E 54 45 |HAT FILE OR ENTE|
00003E90: 52 20 27 5F 27 20 54 4F 20 45 58 49 54 22 3B 3A |R '_' TO EXIT";:|
00003EA0: 85 44 46 24 00 B6 5A 44 0C 8B 44 46 24 B2 22 5F |.DF$..ZD..DF$."_|
00003EB0: 22 A7 32 36 30 30 00 DF 5A 4E 0C 9F 35 2C 38 2C |".2600..ZN..5,8,|
00003EC0: 35 2C 22 30 3A 22 AA 44 46 24 AA 22 2C 50 2C 52 |5,"0:".DF$.",P,R|
00003ED0: 22 3A 8B 44 53 B2 36 32 A7 46 B2 39 3A A0 35 00 |":.DS.62.F.9:.5.|
00003EE0: 52 5B 58 0C 8B 46 B2 39 A7 46 B2 30 3A 99 C7 28 |R[X..F.9.F.0:..(|
00003EF0: 31 35 29 3B 22 91 12 20 4E 4F 20 53 55 43 48 20 |15);".. NO SUCH |
00003F00: 46 49 4C 45 20 4E 41 4D 45 20 4F 4E 20 54 48 49 |FILE NAME ON THI|
00003F10: 53 20 44 49 53 4B 20 2E 2E 2E 2E 2E 54 52 59 20 |S DISK .....TRY |
00003F20: 41 47 41 49 4E 21 20 20 20 20 20 20 20 20 20 20 |AGAIN! |
00003F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 3A | ":|
00003F40: 81 54 B2 31 A4 31 35 30 30 3A 82 54 3A 89 32 36 |.T.1.1500:.T:.26|
00003F50: 30 30 00 8C 5B 62 0C A0 35 3A 99 22 91 12 41 52 |00..[b..5:."..AR|
00003F60: 45 20 59 4F 55 20 53 55 52 45 20 59 4F 55 20 57 |E YOU SURE YOU W|
00003F70: 41 4E 54 20 54 4F 20 44 45 4C 45 54 45 3F 20 59 |ANT TO DELETE? Y|
00003F80: 2F 4E 2D 2D 2D 2D 2D 22 3B 44 46 24 00 A0 5B 6C |/N-----";DF$..[l|
00003F90: 0C A1 41 24 3A 8B 41 24 B2 22 22 A7 33 31 38 30 |..A$:.A$."".3180|
00003FA0: 00 B2 5B 76 0C 8B 41 24 B3 B1 22 59 22 A7 32 36 |..[v..A$.."Y".26|
00003FB0: 30 30 00 03 5C 80 0C 99 22 91 12 4F 4B 2D 2D 2D |00..\..."..OK---|
00003FC0: 2D 2D 44 45 4C 45 54 49 4E 47 2E 2E 2E 2E 2E 2E |--DELETING......|
00003FD0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00003FE0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00003FF0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00004000: 2E 2E 22 00 1D 5C 8A 0C 9F 31 35 2C 38 2C 31 35 |.."..\...15,8,15|
00004010: 3A 98 31 35 2C 22 53 30 3A 22 44 46 24 00 25 5C |:.15,"S0:"DF$.%\|
00004020: 94 0C A0 31 35 00 97 5C 9E 0C 99 C7 28 31 35 29 |...15..\....(15)|
00004030: 3B C7 28 37 29 3B 3A 99 22 91 12 54 48 45 20 46 |;.(7);:."..THE F|
00004040: 49 4C 45 20 48 41 53 20 42 45 45 4E 20 53 55 43 |ILE HAS BEEN SUC|
00004050: 43 45 53 53 46 55 4C 4C 59 20 44 45 4C 45 54 45 |CESSFULLY DELETE|
00004060: 44 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |D...............|
00004070: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00004080: 2E 2E 22 3B C7 28 31 34 33 29 3A 81 54 B2 31 A4 |..";.(143):.T.1.|
00004090: 32 30 30 30 3A 82 54 00 C0 5C A8 0C 99 22 91 12 |2000:.T..\..."..|
000040A0: 50 4C 45 41 53 45 20 43 4F 4E 46 49 52 4D 2E 2E |PLEASE CONFIRM..|
000040B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 3B |..............";|
000040C0: 00 FF 5C B2 0C 99 22 12 20 57 48 45 4E 20 44 49 |..\...". WHEN DI|
000040D0: 52 45 43 54 4F 52 59 20 49 53 20 41 55 54 4F 4D |RECTORY IS AUTOM|
000040E0: 41 54 49 43 41 4C 4C 59 20 4C 49 53 54 45 44 20 |ATICALLY LISTED |
000040F0: 20 22 3A 81 54 B2 31 A4 31 35 30 30 3A 82 54 00 | ":.T.1.1500:.T.|
00004100: 5B 5D BC 0C 99 22 91 12 20 43 4F 4E 46 49 52 4D |[]...".. CONFIRM|
00004110: 20 50 52 4F 47 52 41 4D 20 44 45 4C 45 54 49 4F | PROGRAM DELETIO|
00004120: 4E 20 3E 20 3E 20 3E 20 3E 20 3E 20 3E 20 3E 20 |N > > > > > > > |
00004130: 3E 20 3E 20 20 20 20 20 20 20 20 20 20 20 20 20 |> > |
00004140: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
00004150: 3A 44 43 B2 33 3A 89 32 38 30 30 00 61 5D C6 0C |:DC.3:.2800.a]..|
00004160: 8F 00 67 5D D0 0C 8F 00 6D 5D DA 0C 8F 00 73 5D |..g]....m]....s]|
00004170: E4 0C 8F 00 7F 5D EE 0C 99 C7 28 37 29 3A 8E 00 |.....]....(7):..|
00004180: ED 5D F8 0C 9F 31 35 2C 34 2C 31 35 3A A0 31 35 |.]...15,4,15:.15|
00004190: 3A 8B 53 54 B3 B1 30 A7 99 22 05 13 11 11 11 11 |:.ST..0.."......|
000041A0: 11 11 11 11 11 11 11 11 11 11 22 3A 99 C7 28 31 |..........":..(1|
000041B0: 35 29 3B A3 33 32 29 3B 22 91 44 45 56 49 43 45 |5);.32);".DEVICE|
000041C0: 20 4E 4F 54 20 50 52 45 53 45 4E 54 21 20 20 20 | NOT PRESENT! |
000041D0: 20 20 20 20 20 20 20 20 20 1E 22 3B C7 28 31 34 | .";.(14|
000041E0: 33 29 3B 3A FE 0B 34 3A 89 32 31 34 30 00 25 5E |3);:..4:.2140.%^|
000041F0: 02 0D 99 22 91 91 91 91 91 91 22 3B A3 33 32 29 |..."......";.32)|
00004200: 3B 22 1C 50 52 49 4E 54 4F 55 54 20 49 4E 20 50 |;".PRINTOUT IN P|
00004210: 52 4F 47 52 45 53 53 20 20 20 20 20 20 20 20 20 |ROGRESS |
00004220: 20 20 20 20 22 00 32 5E 0C 0D 9F 34 2C 34 3A 49 | ".2^...4,4:I|
00004230: B2 31 00 6D 5E 16 0D 98 34 2C C7 28 31 34 29 C7 |.1.m^...4,.(14).|
00004240: 28 31 34 29 3B 4E 46 24 3B 22 46 49 4C 45 3C 3C |(14);NF$;"FILE<<|
00004250: 3C 3C 3C 3C 3C 3C 3C 3C 3C 3C 3C 3C 3C 3C 3C 3C |<<<<<<<<<<<<<<<<|
00004260: 3C 3C 22 C7 28 31 35 29 C7 28 31 35 29 00 82 5E |<<".(15).(15)..^|
00004270: 20 0D 8B 49 B2 30 A7 98 34 2C 3A A0 34 3A 89 35 | ..I.0..4,:.4:.5|
00004280: 34 30 00 97 5E 2A 0D 8B 49 B1 58 A7 98 34 2C 3A |40..^*..I.X..4,:|
00004290: A0 34 3A 89 35 34 30 00 C9 5E 34 0D 98 34 2C C7 |.4:.540..^4..4,.|
000042A0: 28 31 34 29 22 52 45 43 4F 52 44 20 4E 55 4D 42 |(14)"RECORD NUMB|
000042B0: 45 52 22 3B 49 3B 22 49 4E 20 46 49 4C 45 20 22 |ER";I;"IN FILE "|
000042C0: 3B 4E 46 24 C7 28 31 35 29 00 EF 5E 3E 0D 81 4E |;NF$.(15)..^>..N|
000042D0: B2 31 A4 46 3A 98 34 2C 46 24 28 4E 29 3B 22 C0 |.1.F:.4,F$(N);".|
000042E0: 22 3B 52 45 43 24 28 4B 25 28 49 29 2C 4E 29 00 |";REC$(K%(I),N).|
000042F0: F8 5E 48 0D A1 41 39 24 00 48 5F 52 0D 8B 41 39 |.^H..A9$.H_R..A9|
00004300: 24 B2 C7 28 39 32 29 A7 98 34 3A A0 34 3A 99 C7 |$..(92)..4:.4:..|
00004310: 28 31 35 29 3B 22 91 1C 22 3B A3 33 32 29 3B 22 |(15);"..";.32);"|
00004320: 9C 50 52 49 4E 54 20 4F 55 54 20 41 42 4F 52 54 |.PRINT OUT ABORT|
00004330: 45 44 20 20 20 1E 22 3B C7 28 31 34 33 29 3A FE |ED .";.(143):.|
00004340: 0B 32 3A 89 32 31 34 30 00 4F 5F 5C 0D 82 4E 00 |.2:.2140.O_\..N.|
00004350: 5F 5F 66 0D 49 B2 49 AA 31 3A 89 33 33 36 30 00 |__f.I.I.1:.3360.|
00004360: 6B 5F 70 0D 8B 43 39 B2 39 A7 8E 00 78 5F 7A 0D |k_p..C9.9...x_z.|
00004370: 8B 57 31 B3 B1 30 A7 8E 00 A6 5F 84 0D 41 B2 D1 |.W1..0...._..A..|
00004380: 28 22 44 36 30 30 22 29 3A 42 B2 41 AA 31 3A 97 |("D600"):B.A.1:.|
00004390: 41 2C 33 34 3A 97 42 2C 34 36 3A 97 41 2C 33 35 |A,34:.B,46:.A,35|
000043A0: 3A 97 42 2C 34 36 00 E8 5F 8E 0D 41 B2 D1 28 22 |:.B,46.._..A..("|
000043B0: 44 36 30 30 22 29 3A 42 B2 41 AA 31 3A 81 50 51 |D600"):B.A.1:.PQ|
000043C0: B2 34 30 A4 30 A9 AB 31 3A 97 41 2C 33 34 3A 97 |.40.0..1:.A,34:.|
000043D0: 42 2C 34 36 AB 50 51 3A 97 41 2C 33 35 3A 97 42 |B,46.PQ:.A,35:.B|
000043E0: 2C 34 36 AA 50 51 3A 82 00 F3 5F 98 0D 57 31 B2 |,46.PQ:..._..W1.|
000043F0: 39 3A 8E 00 FF 5F A2 0D 8B 43 39 B2 39 A7 8E 00 |9:..._...C9.9...|
00004400: 49 60 AC 0D 8B 57 31 B2 39 A7 57 31 B2 30 3A 41 |I`...W1.9.W1.0:A|
00004410: B2 D1 28 22 44 36 30 30 22 29 3A 42 B2 41 AA 31 |..("D600"):B.A.1|
00004420: 3A 81 50 51 B2 30 A4 34 30 3A 97 41 2C 33 34 3A |:.PQ.0.40:.A,34:|
00004430: 97 42 2C 34 36 AB 50 51 3A 97 41 2C 33 35 3A 97 |.B,46.PQ:.A,35:.|
00004440: 42 2C 34 36 AA 50 51 3A 82 00 4F 60 B6 0D 8E 00 |B,46.PQ:..O`....|
00004450: 5F 60 C0 0D 8D 33 34 34 30 3A 99 22 93 9C 22 00 |_`...3440:."..".|
00004460: 68 60 CA 0D 87 58 4A 24 00 AD 60 D4 0D 8B 58 4A |h`...XJ$..`...XJ|
00004470: 24 B2 22 2D 31 22 A7 99 C7 28 37 29 3B 22 1E 48 |$."-1"...(7);".H|
00004480: 49 54 20 41 20 4B 45 59 20 54 4F 20 43 4F 4E 54 |IT A KEY TO CONT|
00004490: 49 4E 55 45 9E 22 3A 8D 33 34 39 30 3A 8D 34 31 |INUE.":.3490:.41|
000044A0: 30 3A 8D 33 34 34 30 3A 89 33 35 32 30 00 F8 60 |0:.3440:.3520..`|
000044B0: DE 0D 8B 58 4A 24 B2 22 2D 39 22 A7 99 C7 28 37 |...XJ$."-9"...(7|
000044C0: 29 3B 22 1E 48 49 54 20 41 20 4B 45 59 2D 2D 45 |);".HIT A KEY--E|
000044D0: 4E 44 20 4F 46 20 48 45 4C 50 20 53 43 52 45 45 |ND OF HELP SCREE|
000044E0: 4E 22 3A 8D 33 34 39 30 3A 8D 34 31 30 3A 8D 33 |N":.3490:.410:.3|
000044F0: 34 34 30 3A 89 35 34 30 00 07 61 E8 0D 99 58 4A |440:.540..a...XJ|
00004500: 24 3A 89 33 35 33 30 00 5F 61 F2 0D 83 22 53 54 |$:.3530._a..."ST|
00004510: 41 52 54 20 4F 55 54 20 42 59 20 45 4E 54 45 52 |ART OUT BY ENTER|
00004520: 49 4E 47 20 41 20 27 43 27 20 4F 4E 20 54 48 45 |ING A 'C' ON THE|
00004530: 20 4D 41 49 4E 20 4D 45 4E 55 2E 20 20 54 48 41 | MAIN MENU. THA|
00004540: 54 20 57 49 4C 4C 20 54 41 4B 45 20 59 4F 55 20 |T WILL TAKE YOU |
00004550: 54 4F 20 41 20 53 45 54 2D 55 50 20 20 20 22 00 |TO A SET-UP ".|
00004560: B7 61 FC 0D 83 22 4D 45 4E 55 2E 20 20 59 4F 55 |.a..."MENU. YOU|
00004570: 20 57 49 4C 4C 20 42 45 20 41 53 4B 45 44 20 46 | WILL BE ASKED F|
00004580: 4F 52 20 54 48 45 20 41 4D 4F 55 4E 54 20 4F 46 |OR THE AMOUNT OF|
00004590: 20 46 49 45 4C 44 53 20 2D 49 4E 20 45 41 43 48 | FIELDS -IN EACH|
000045A0: 20 52 45 43 4F 52 44 2D 54 48 41 54 20 59 4F 55 | RECORD-THAT YOU|
000045B0: 20 57 41 4E 54 20 22 00 0F 62 06 0E 83 22 49 20 | WANT "..b..."I |
000045C0: 53 55 47 47 45 53 54 20 32 30 20 41 53 20 54 48 |SUGGEST 20 AS TH|
000045D0: 45 59 20 4E 4F 52 4D 41 4C 4C 59 20 57 49 4C 4C |EY NORMALLY WILL|
000045E0: 20 46 49 54 20 4F 4E 54 4F 20 54 48 45 20 53 43 | FIT ONTO THE SC|
000045F0: 52 45 45 4E 20 4E 49 43 45 4C 59 21 20 20 54 48 |REEN NICELY! TH|
00004600: 45 20 53 43 52 45 45 4E 20 57 49 4C 4C 20 22 00 |E SCREEN WILL ".|
00004610: 67 62 10 0E 83 22 54 48 45 59 20 53 41 59 2D 59 |gb..."THEY SAY-Y|
00004620: 4F 55 52 20 53 45 4C 45 43 54 49 4F 4E 20 57 49 |OUR SELECTION WI|
00004630: 4C 4C 20 41 4C 4C 4F 57 20 41 50 50 52 4F 58 2E |LL ALLOW APPROX.|
00004640: 2D 58 58 58 2D 52 45 43 4F 52 44 53 2E 20 20 41 |-XXX-RECORDS. A|
00004650: 43 43 45 50 54 20 4F 52 20 52 45 4A 45 43 54 2E |CCEPT OR REJECT.|
00004660: 20 59 4F 55 20 20 22 00 BF 62 1A 0E 83 22 57 49 | YOU "..b..."WI|
00004670: 4C 4C 20 45 49 54 48 45 52 20 45 4E 54 45 52 20 |LL EITHER ENTER |
00004680: 41 4E 20 27 41 27 20 4F 52 20 41 20 27 52 27 2E |AN 'A' OR A 'R'.|
00004690: 20 20 49 46 20 59 4F 55 20 45 4E 54 45 52 20 27 | IF YOU ENTER '|
000046A0: 52 27 20 28 52 45 4A 45 43 54 29 20 59 4F 55 20 |R' (REJECT) YOU |
000046B0: 41 52 45 20 52 45 54 55 52 4E 45 44 20 20 22 00 |ARE RETURNED ".|
000046C0: 17 63 24 0E 83 22 42 41 43 4B 20 54 4F 20 54 48 |.c$.."BACK TO TH|
000046D0: 45 20 4F 52 47 49 4E 41 4C 20 4D 45 4E 55 2D 2D |E ORGINAL MENU--|
000046E0: 41 53 4B 49 4E 47 20 46 4F 52 20 54 48 45 20 53 |ASKING FOR THE S|
000046F0: 45 54 2D 55 50 20 41 47 41 49 4E 2D 49 2E 45 2E |ET-UP AGAIN-I.E.|
00004700: 2D 46 49 45 4C 44 53 20 49 4E 20 45 41 43 48 20 |-FIELDS IN EACH |
00004710: 52 45 43 4F 52 44 22 00 6F 63 2E 0E 83 22 2E 20 |RECORD".oc...". |
00004720: 20 49 46 20 59 4F 55 20 53 45 4C 45 43 54 20 27 | IF YOU SELECT '|
00004730: 41 27 20 28 41 43 43 45 50 54 29 20 59 4F 55 20 |A' (ACCEPT) YOU |
00004740: 41 52 45 20 52 45 54 55 52 4E 45 44 20 54 4F 20 |ARE RETURNED TO |
00004750: 54 48 45 20 4D 41 49 4E 20 4D 45 4E 55 2D 57 48 |THE MAIN MENU-WH|
00004760: 45 52 45 20 59 4F 55 20 57 49 4C 4C 20 20 22 00 |ERE YOU WILL ".|
00004770: C7 63 38 0E 83 22 4E 4F 57 20 45 4E 54 45 52 20 |.c8.."NOW ENTER |
00004780: 41 4E 20 27 41 27 20 28 46 4F 52 20 41 44 44 20 |AN 'A' (FOR ADD |
00004790: 52 45 43 4F 52 44 20 54 4F 20 54 48 45 20 46 49 |RECORD TO THE FI|
000047A0: 4C 45 20 59 4F 55 20 4A 55 53 54 20 43 52 45 41 |LE YOU JUST CREA|
000047B0: 54 45 44 29 20 41 4E 44 20 46 4F 4C 4C 4F 57 20 |TED) AND FOLLOW |
000047C0: 54 48 45 20 20 20 22 00 1F 64 42 0E 83 22 50 52 |THE "..dB.."PR|
000047D0: 4F 4D 50 54 53 2E 20 20 49 46 20 59 4F 55 20 4A |OMPTS. IF YOU J|
000047E0: 55 53 54 20 48 49 54 20 52 45 54 55 52 4E 2D 2D |UST HIT RETURN--|
000047F0: 2D 59 4F 55 20 41 52 45 20 52 45 54 55 52 4E 45 |-YOU ARE RETURNE|
00004800: 44 20 54 4F 20 54 48 45 20 4D 41 49 4E 20 4D 45 |D TO THE MAIN ME|
00004810: 4E 55 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 22 00 |NU............".|
00004820: 77 64 4C 0E 83 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |wdL.."----------|
00004830: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004840: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004850: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004860: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004870: 2D 2D 2D 2D 2D 2D 22 00 CF 64 56 0E 83 22 54 48 |------"..dV.."TH|
00004880: 45 20 46 55 4E 43 54 49 4F 4E 53 2D 44 2D 52 2D |E FUNCTIONS-D-R-|
00004890: 57 2D 56 2D 41 2D 4D 2D 50 2D 53 2D 4F 4E 20 54 |W-V-A-M-P-S-ON T|
000048A0: 48 45 20 4D 41 49 4E 20 4D 45 4E 55 20 57 49 4C |HE MAIN MENU WIL|
000048B0: 4C 20 4E 4F 54 20 57 4F 52 4B 20 55 4E 4C 45 53 |L NOT WORK UNLES|
000048C0: 53 20 59 4F 55 20 48 41 56 45 2D 2D 2D 2D 22 00 |S YOU HAVE----".|
000048D0: 27 65 60 0E 83 22 43 52 45 41 54 45 44 20 41 20 |'e`.."CREATED A |
000048E0: 46 49 4C 45 20 4F 52 20 48 41 56 45 20 52 45 41 |FILE OR HAVE REA|
000048F0: 44 20 41 20 50 52 45 56 49 4F 55 53 4C 59 20 43 |D A PREVIOUSLY C|
00004900: 52 45 41 54 45 44 20 46 49 4C 45 20 49 4E 54 4F |REATED FILE INTO|
00004910: 20 4D 45 4D 4F 52 59 20 57 49 54 48 20 54 48 45 | MEMORY WITH THE|
00004920: 20 27 52 27 20 20 22 00 7F 65 6A 0E 83 22 43 4F | 'R' "..ej.."CO|
00004930: 4D 4D 41 4E 44 2E 20 20 4F 54 48 45 52 20 57 49 |MMAND. OTHER WI|
00004940: 53 45 20 59 4F 55 20 57 49 4C 4C 20 47 45 54 20 |SE YOU WILL GET |
00004950: 41 4E 20 27 4E 4F 20 46 49 4C 45 53 20 49 4E 20 |AN 'NO FILES IN |
00004960: 4D 45 4D 4F 52 59 27 20 53 54 41 54 55 53 20 4C |MEMORY' STATUS L|
00004970: 49 4E 45 20 41 4E 44 20 42 45 20 20 20 20 22 00 |INE AND BE ".|
00004980: D7 65 74 0E 83 22 52 45 54 55 52 4E 45 44 20 54 |.et.."RETURNED T|
00004990: 4F 20 54 48 45 20 4D 41 49 4E 20 4D 45 4E 55 2E |O THE MAIN MENU.|
000049A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000049B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000049C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000049D0: 20 20 20 20 20 20 22 00 2F 66 7E 0E 83 22 2D 2D | "./f~.."--|
000049E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000049F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004A00: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004A10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004A20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00004A30: 87 66 88 0E 83 22 54 48 45 20 46 55 4E 43 54 49 |.f..."THE FUNCTI|
00004A40: 4F 4E 20 27 5E 27 20 49 53 20 54 48 45 20 43 55 |ON '^' IS THE CU|
00004A50: 52 54 41 49 4E 20 43 4F 4E 54 52 4F 4C 2D 2D 54 |RTAIN CONTROL--T|
00004A60: 48 45 20 43 55 52 54 41 49 4E 20 49 53 20 53 45 |HE CURTAIN IS SE|
00004A70: 54 20 54 4F 20 42 45 20 4F 4E 20 57 48 45 4E 20 |T TO BE ON WHEN |
00004A80: 59 4F 55 20 20 20 22 00 DF 66 92 0E 83 22 46 49 |YOU "..f..."FI|
00004A90: 52 53 54 20 52 55 4E 20 54 48 45 20 50 52 4F 47 |RST RUN THE PROG|
00004AA0: 52 41 4D 2D 42 55 54 20 43 41 4E 20 42 45 20 43 |RAM-BUT CAN BE C|
00004AB0: 48 41 4E 47 45 44 20 54 4F 20 2D 4F 46 46 20 42 |HANGED TO -OFF B|
00004AC0: 59 20 48 49 54 54 49 4E 47 20 54 48 45 20 27 5E |Y HITTING THE '^|
00004AD0: 27 20 4B 45 59 2E 20 20 54 48 45 20 20 20 22 00 |' KEY. THE ".|
00004AE0: 37 67 9C 0E 83 22 53 43 52 45 45 4E 20 57 49 4C |7g..."SCREEN WIL|
00004AF0: 4C 20 54 48 45 4E 20 43 4C 45 41 52 20 41 53 20 |L THEN CLEAR AS |
00004B00: 4E 4F 52 4D 41 4C 20 57 49 54 48 4F 55 54 20 54 |NORMAL WITHOUT T|
00004B10: 48 45 20 43 55 52 54 41 49 4E 20 53 43 52 45 45 |HE CURTAIN SCREE|
00004B20: 4E 20 43 4C 45 41 52 49 4E 47 20 45 46 46 45 43 |N CLEARING EFFEC|
00004B30: 54 2E 20 20 20 20 22 00 8F 67 A6 0E 83 22 2D 2D |T. "..g..."--|
00004B40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004B50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004B60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004B70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004B80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 |--------------".|
00004B90: E7 67 B0 0E 83 22 44 49 53 4B 20 46 55 4E 43 54 |.g..."DISK FUNCT|
00004BA0: 49 4F 4E 20 41 52 45 20 41 43 43 45 53 53 45 44 |ION ARE ACCESSED|
00004BB0: 20 46 52 4F 4D 20 54 48 45 20 4D 41 49 4E 20 4D | FROM THE MAIN M|
00004BC0: 45 4E 55 20 42 59 20 45 4E 54 45 52 49 4E 47 20 |ENU BY ENTERING |
00004BD0: 41 20 27 2A 27 20 41 4E 44 20 41 52 45 20 53 45 |A '*' AND ARE SE|
00004BE0: 4C 46 20 20 20 20 22 00 3F 68 BA 0E 83 22 45 58 |LF ".?h..."EX|
00004BF0: 50 4C 41 49 4E 41 54 4F 52 59 2E 20 20 54 48 45 |PLAINATORY. THE|
00004C00: 20 46 4F 52 4D 41 54 20 43 4F 44 45 20 49 53 20 | FORMAT CODE IS |
00004C10: 27 4D 44 27 20 20 20 20 20 20 20 20 20 20 20 20 |'MD' |
00004C20: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004C30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00004C40: 9A 68 C4 0E 83 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |.h..."----------|
00004C50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004C60: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004C70: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004C80: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004C90: 2D 2D 2D 2D 2D 2D 22 2C 2D 31 00 F2 68 CE 0E 83 |------",-1..h...|
00004CA0: 22 54 48 45 20 52 45 53 54 20 4F 46 20 54 48 45 |"THE REST OF THE|
00004CB0: 20 46 55 4E 43 54 49 4F 4E 53 20 41 52 45 20 50 | FUNCTIONS ARE P|
00004CC0: 52 45 54 54 59 20 57 45 4C 4C 20 44 45 46 49 4E |RETTY WELL DEFIN|
00004CD0: 45 44 20 4F 4E 20 54 48 45 49 52 20 4F 57 4E 2E |ED ON THEIR OWN.|
00004CE0: 20 20 54 48 45 52 45 20 49 53 20 41 20 20 20 20 | THERE IS A |
00004CF0: 20 22 00 4A 69 D8 0E 83 22 52 4F 55 54 49 4E 45 | ".Ji..."ROUTINE|
00004D00: 20 54 48 41 54 20 57 49 4C 4C 20 43 48 45 43 4B | THAT WILL CHECK|
00004D10: 20 54 4F 20 53 45 45 20 49 46 20 41 20 50 45 52 | TO SEE IF A PER|
00004D20: 54 49 43 55 4C 41 52 20 44 45 56 49 53 45 20 49 |TICULAR DEVISE I|
00004D30: 53 20 27 4F 4E 20 4C 49 4E 45 27 20 42 45 46 4F |S 'ON LINE' BEFO|
00004D40: 52 45 20 49 54 20 20 20 20 22 00 A2 69 E2 0E 83 |RE IT "..i...|
00004D50: 22 57 49 4C 4C 20 41 43 54 55 41 4C 4C 59 20 41 |"WILL ACTUALLY A|
00004D60: 43 43 45 53 53 20 54 48 45 20 44 45 56 49 53 45 |CCESS THE DEVISE|
00004D70: 20 43 41 4C 4C 45 44 2D 2D 49 2E 45 2E 2D 49 46 | CALLED--I.E.-IF|
00004D80: 20 59 4F 55 20 41 52 45 20 41 54 20 54 48 45 20 | YOU ARE AT THE |
00004D90: 27 50 52 49 4E 54 4F 55 54 27 20 4D 45 4E 55 20 |'PRINTOUT' MENU |
00004DA0: 20 22 00 FA 69 EC 0E 83 22 41 4E 44 20 53 45 4C | "..i..."AND SEL|
00004DB0: 45 43 54 20 27 50 27 20 28 54 4F 20 50 52 49 4E |ECT 'P' (TO PRIN|
00004DC0: 54 20 4F 55 54 20 46 49 4C 45 20 49 4E 20 4D 45 |T OUT FILE IN ME|
00004DD0: 4D 4F 52 59 29 20 54 48 45 20 52 4F 55 54 49 4E |MORY) THE ROUTIN|
00004DE0: 45 20 57 49 4C 4C 20 46 49 52 53 54 20 43 48 45 |E WILL FIRST CHE|
00004DF0: 43 4B 20 54 4F 20 53 45 45 22 00 52 6A F6 0E 83 |CK TO SEE".Rj...|
00004E00: 22 49 46 20 54 48 45 20 50 52 49 4E 54 45 52 20 |"IF THE PRINTER |
00004E10: 49 53 20 4F 4E 20 4C 49 4E 45 2D 2D 49 46 20 4E |IS ON LINE--IF N|
00004E20: 4F 54 2D 2D 41 4E 20 45 52 52 4F 52 20 43 4F 44 |OT--AN ERROR COD|
00004E30: 45 20 27 44 45 56 49 53 45 20 4E 4F 54 20 50 52 |E 'DEVISE NOT PR|
00004E40: 45 53 45 4E 54 27 20 57 49 4C 4C 20 53 48 4F 57 |ESENT' WILL SHOW|
00004E50: 2E 22 00 AA 6A 00 0F 83 22 54 48 45 20 50 52 4F |."..j..."THE PRO|
00004E60: 47 52 41 4D 20 57 49 4C 4C 20 54 48 45 4E 20 43 |GRAM WILL THEN C|
00004E70: 4F 4E 54 49 4E 55 45 2D 2D 55 4E 4C 49 4B 45 20 |ONTINUE--UNLIKE |
00004E80: 53 4F 4D 45 20 50 52 4F 47 52 41 4D 53 20 54 48 |SOME PROGRAMS TH|
00004E90: 41 54 20 57 49 4C 4C 20 53 48 4F 57 20 54 48 45 |AT WILL SHOW THE|
00004EA0: 20 45 52 52 4F 52 20 20 20 22 00 02 6B 0A 0F 83 | ERROR "..k...|
00004EB0: 22 43 4F 44 45 20 4F 46 20 27 44 45 56 49 53 45 |"CODE OF 'DEVISE|
00004EC0: 20 4E 4F 54 20 50 52 45 53 45 4E 54 27 20 41 4E | NOT PRESENT' AN|
00004ED0: 44 20 48 41 4C 54 20 54 48 45 20 50 52 4F 47 52 |D HALT THE PROGR|
00004EE0: 41 4D 53 20 45 58 45 43 55 54 49 4F 4E 2E 20 20 |AMS EXECUTION. |
00004EF0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00004F00: 20 22 00 5A 6B 14 0F 83 22 2D 2D 2D 2D 2D 2D 2D | ".Zk..."-------|
00004F10: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004F20: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004F30: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004F40: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00004F50: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 B2 6B 1E 0F 83 |---------"..k...|
00004F60: 22 57 48 45 4E 20 59 4F 55 20 27 57 52 49 54 45 |"WHEN YOU 'WRITE|
00004F70: 27 20 41 20 46 49 4C 45 20 54 4F 20 44 49 53 4B |' A FILE TO DISK|
00004F80: 2D 2D 27 44 46 5D 27 20 49 53 20 41 44 44 45 44 |--'DF]' IS ADDED|
00004F90: 20 54 4F 20 54 48 45 20 42 45 47 49 4E 4E 49 4E | TO THE BEGINNIN|
00004FA0: 47 20 4F 46 20 54 48 45 20 41 43 54 55 41 4C 20 |G OF THE ACTUAL |
00004FB0: 20 22 00 0A 6C 28 0F 83 22 46 49 4C 45 20 4E 41 | "..l(.."FILE NA|
00004FC0: 4D 45 20 59 4F 55 20 53 45 4C 45 43 54 2D 2D 54 |ME YOU SELECT--T|
00004FD0: 48 49 53 20 49 53 20 4A 55 53 54 20 54 4F 20 53 |HIS IS JUST TO S|
00004FE0: 48 4F 57 20 54 48 41 54 20 54 48 45 20 46 49 4C |HOW THAT THE FIL|
00004FF0: 45 20 49 53 20 46 52 4F 4D 20 54 48 45 20 43 31 |E IS FROM THE C1|
00005000: 32 38 20 20 20 20 20 20 20 22 00 62 6C 32 0F 83 |28 ".bl2..|
00005010: 22 44 41 54 41 46 49 4C 45 20 56 34 2E 38 2E 31 |"DATAFILE V4.8.1|
00005020: 20 50 52 4F 47 52 41 4D 2E 20 20 49 46 20 59 4F | PROGRAM. IF YO|
00005030: 55 20 48 41 56 45 20 52 45 41 44 20 41 20 50 52 |U HAVE READ A PR|
00005040: 45 56 49 4F 55 53 4C 59 20 53 54 4F 52 45 44 20 |EVIOUSLY STORED |
00005050: 46 49 4C 45 20 42 41 43 4B 20 49 4E 54 4F 20 20 |FILE BACK INTO |
00005060: 20 22 00 BA 6C 3C 0F 83 22 4D 45 4D 4F 52 59 2D | "..l<.."MEMORY-|
00005070: 28 55 53 49 4E 47 20 54 48 45 20 27 52 27 20 46 |(USING THE 'R' F|
00005080: 55 4E 43 54 49 4F 4E 29 20 41 4E 44 20 54 48 45 |UNCTION) AND THE|
00005090: 59 20 47 4F 20 54 4F 20 57 52 49 54 45 20 49 54 |Y GO TO WRITE IT|
000050A0: 2D 54 48 45 20 4E 45 57 20 53 41 56 45 44 20 46 |-THE NEW SAVED F|
000050B0: 49 4C 45 20 4E 41 4D 45 20 22 00 12 6D 46 0F 83 |ILE NAME "..mF..|
000050C0: 22 57 49 4C 4C 20 42 45 20 54 48 45 20 4E 41 4D |"WILL BE THE NAM|
000050D0: 45 20 59 4F 55 20 55 53 45 44 20 54 4F 20 4C 4F |E YOU USED TO LO|
000050E0: 41 44 20 54 48 45 20 46 49 4C 45 20 49 4E 54 4F |AD THE FILE INTO|
000050F0: 20 4D 45 4D 4F 52 59 20 41 4E 44 20 54 48 45 20 | MEMORY AND THE |
00005100: 4F 52 47 49 4E 41 4C 20 46 49 4C 45 20 4E 41 4D |ORGINAL FILE NAM|
00005110: 45 22 00 6A 6D 50 0F 83 22 57 49 4C 4C 20 4E 4F |E".jmP.."WILL NO|
00005120: 57 20 48 41 56 45 20 27 21 4F 4C 44 27 20 54 41 |W HAVE '!OLD' TA|
00005130: 43 4B 45 44 20 4F 4E 54 4F 20 54 48 45 20 45 4E |CKED ONTO THE EN|
00005140: 44 20 4F 46 20 49 54 27 53 20 46 49 4C 45 20 4E |D OF IT'S FILE N|
00005150: 41 4D 45 2E 20 20 41 20 4E 49 43 45 20 57 41 59 |AME. A NICE WAY|
00005160: 20 54 4F 20 4B 45 45 50 20 22 00 C2 6D 5A 0F 83 | TO KEEP "..mZ..|
00005170: 22 54 52 41 43 4B 20 4F 46 20 57 48 49 43 48 20 |"TRACK OF WHICH |
00005180: 46 49 4C 45 20 49 53 20 54 48 45 20 4E 45 57 45 |FILE IS THE NEWE|
00005190: 53 54 20 41 4E 44 20 57 48 49 43 48 20 49 53 20 |ST AND WHICH IS |
000051A0: 54 48 45 20 4F 4C 44 45 53 54 21 21 20 20 20 20 |THE OLDEST!! |
000051B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000051C0: 20 22 00 1A 6E 64 0F 83 22 2D 2D 2D 2D 2D 2D 2D | "..nd.."-------|
000051D0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000051E0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000051F0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00005200: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
00005210: 2D 2D 2D 2D 2D 2D 2D 2D 2D 22 00 72 6E 6E 0F 83 |---------".rnn..|
00005220: 22 49 46 20 59 4F 55 20 55 53 45 20 54 48 45 20 |"IF YOU USE THE |
00005230: 27 52 27 20 28 52 45 41 44 29 20 46 55 4E 43 54 |'R' (READ) FUNCT|
00005240: 49 4F 4E 2D 59 4F 55 20 57 49 4C 4C 20 42 45 20 |ION-YOU WILL BE |
00005250: 41 53 4B 45 44 20 46 4F 52 20 49 54 27 53 20 4E |ASKED FOR IT'S N|
00005260: 41 4D 45 2D 54 48 45 20 50 52 45 46 49 58 2D 20 |AME-THE PREFIX- |
00005270: 20 22 00 CA 6E 78 0F 83 22 27 44 46 5D 27 20 49 | "..nx.."'DF]' I|
00005280: 53 20 4E 4F 54 20 52 45 51 55 49 52 45 44 2D 4E |S NOT REQUIRED-N|
00005290: 4F 52 20 49 53 20 49 54 20 4E 45 45 44 45 44 20 |OR IS IT NEEDED |
000052A0: 57 48 45 4E 20 59 4F 55 52 20 53 54 4F 52 45 20 |WHEN YOUR STORE |
000052B0: 41 20 46 49 4C 45 2E 20 20 41 46 54 45 52 20 54 |A FILE. AFTER T|
000052C0: 48 45 20 46 49 4C 45 20 20 22 00 22 6F 82 0F 83 |HE FILE "."o...|
000052D0: 22 48 41 53 20 42 45 45 4E 20 52 45 41 44 20 49 |"HAS BEEN READ I|
000052E0: 4E 54 4F 20 4D 45 4D 4F 52 59 2D 59 4F 55 20 41 |NTO MEMORY-YOU A|
000052F0: 52 45 20 52 45 54 55 52 4E 45 44 20 54 4F 20 54 |RE RETURNED TO T|
00005300: 48 45 20 4D 41 49 4E 20 4D 45 4E 55 2D 57 48 45 |HE MAIN MENU-WHE|
00005310: 52 45 20 59 4F 55 20 43 41 4E 20 54 48 45 4E 20 |RE YOU CAN THEN |
00005320: 20 22 00 7A 6F 8C 0F 83 22 56 2D 49 45 57 20 20 | ".zo..."V-IEW |
00005330: 53 2D 4F 52 54 20 20 44 2D 45 4C 45 54 45 20 20 |S-ORT D-ELETE |
00005340: 41 2D 44 44 20 20 4D 2D 4F 44 49 46 59 20 20 50 |A-DD M-ODIFY P|
00005350: 2D 52 49 4E 54 4F 55 54 20 4F 52 20 20 57 2D 52 |-RINTOUT OR W-R|
00005360: 49 54 45 20 42 41 43 4B 20 54 4F 20 44 49 53 4B |ITE BACK TO DISK|
00005370: 2E 20 20 20 20 20 20 20 20 22 00 D5 6F 96 0F 83 |. "..o...|
00005380: 22 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |"---------------|
00005390: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000053A0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000053B0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000053C0: 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D 2D |----------------|
000053D0: 2D 22 2C 2D 31 00 2D 70 A0 0F 83 22 50 4C 45 41 |-",-1.-p..."PLEA|
000053E0: 53 45 2C 20 41 4C 53 4F 20 42 41 52 45 20 49 4E |SE, ALSO BARE IN|
000053F0: 20 4D 49 4E 45 2C 20 54 48 41 54 20 49 46 20 59 | MINE, THAT IF Y|
00005400: 4F 55 20 54 4F 47 47 4C 45 20 54 48 45 20 43 55 |OU TOGGLE THE CU|
00005410: 52 54 41 49 4E 20 4F 46 46 2C 20 41 4E 44 20 54 |RTAIN OFF, AND T|
00005420: 48 45 59 20 47 4F 20 54 4F 20 20 20 22 00 85 70 |HEY GO TO "..p|
00005430: AA 0F 83 22 52 45 41 44 20 4F 52 20 57 52 49 54 |..."READ OR WRIT|
00005440: 45 20 41 20 46 49 4C 45 2E 2E 2E 2E 54 48 45 20 |E A FILE....THE |
00005450: 43 55 52 54 41 49 4E 20 57 49 4C 4C 20 41 55 54 |CURTAIN WILL AUT|
00005460: 4F 4D 41 54 49 43 41 4C 4C 20 42 45 20 54 55 52 |OMATICALL BE TUR|
00005470: 4E 45 44 20 42 41 43 4B 20 4F 4E 2E 2E 54 48 49 |NED BACK ON..THI|
00005480: 53 20 49 53 22 00 DD 70 B4 0F 83 22 44 55 45 20 |S IS"..p..."DUE |
00005490: 54 4F 20 54 48 45 20 46 41 43 54 20 54 48 41 54 |TO THE FACT THAT|
000054A0: 20 41 20 27 43 4C 52 27 20 49 53 20 50 45 52 46 | A 'CLR' IS PERF|
000054B0: 4F 52 4D 45 44 20 57 49 54 48 20 45 41 43 48 20 |ORMED WITH EACH |
000054C0: 4F 46 20 54 48 4F 53 45 20 46 55 4E 43 54 49 4F |OF THOSE FUNCTIO|
000054D0: 4E 53 2E 20 20 49 54 20 20 20 20 20 22 00 38 71 |NS. IT ".8q|
000054E0: BE 0F 83 22 57 49 4C 4C 20 52 45 53 45 54 20 54 |..."WILL RESET T|
000054F0: 48 45 20 43 55 52 54 41 49 4E 20 46 55 43 54 49 |HE CURTAIN FUCTI|
00005500: 4F 4E 20 54 4F 20 54 48 45 20 44 45 46 41 55 4C |ON TO THE DEFAUL|
00005510: 54 20 53 45 54 54 49 4E 47 2C 20 57 48 49 43 48 |T SETTING, WHICH|
00005520: 20 49 53 20 4F 4E 2E 20 20 20 20 20 20 20 20 20 | IS ON. |
00005530: 20 20 20 20 22 2C 2D 39 00 53 71 C8 0F 9F 31 2C | ",-9.Sq...1,|
00005540: 38 2C 31 3A A0 31 3A 9F 31 35 2C 38 2C 31 35 3A |8,1:.1:.15,8,15:|
00005550: A0 31 35 00 DA 71 D2 0F 8B 53 54 B3 B1 30 AF 41 |.15..q...ST..0.A|
00005560: 24 B2 22 57 22 A7 FE 18 3A 99 C7 28 31 35 29 3B |$."W"...:..(15);|
00005570: 22 1C 13 11 11 11 11 11 11 11 11 11 11 11 11 11 |"...............|
00005580: 11 11 11 11 11 11 11 11 11 44 45 56 49 53 45 20 |.........DEVISE |
00005590: 4E 4F 54 20 50 52 45 53 45 4E 54 21 2E 2E 2E 2E |NOT PRESENT!....|
000055A0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000055B0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000055C0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000055D0: 2E 2E 2E 2E 2E 2E 2E 2E 1E 22 00 EC 71 DC 0F FE |........."..q...|
000055E0: 0B 34 3A 52 31 B2 39 3A FE 19 3A 8E 00 FD 71 E6 |.4:R1.9:..:...q.|
000055F0: 0F 9F 31 35 2C 38 2C 31 35 3A A0 31 35 00 84 72 |..15,8,15:.15..r|
00005600: F0 0F 8B 53 54 B3 B1 30 AF 41 24 B2 22 52 22 A7 |...ST..0.A$."R".|
00005610: FE 18 3A 99 C7 28 31 35 29 3B 22 1C 13 11 11 11 |..:..(15);".....|
00005620: 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 11 |................|
00005630: 11 11 11 44 45 56 49 53 45 20 4E 4F 54 20 50 52 |...DEVISE NOT PR|
00005640: 45 53 45 4E 54 21 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |ESENT!..........|
00005650: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00005660: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00005670: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00005680: 2E 2E 1E 22 00 96 72 FA 0F FE 0B 34 3A FE 19 3A |..."..r....4:..:|
00005690: 52 31 B2 39 3A 8E 00 13 73 04 10 9F 31 35 2C 38 |R1.9:...s...15,8|
000056A0: 2C 31 35 3A A0 31 35 3A 8B 53 54 B3 B1 30 A7 99 |,15:.15:.ST..0..|
000056B0: C7 28 31 35 29 3B 22 1C 13 11 22 3B A3 31 29 3B |.(15);"...";.1);|
000056C0: 22 44 45 56 49 53 45 20 4E 4F 54 20 50 52 45 53 |"DEVISE NOT PRES|
000056D0: 45 4E 54 21 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |ENT!............|
000056E0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
000056F0: 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E 2E |................|
00005700: 2E 2E 2E 2E 2E 2E 1E 22 3A FE 0B 34 3A 52 31 B2 |.......":..4:R1.|
00005710: 39 3A 8E 00 19 73 0E 10 8E 00 00 00 |9:...s...... |
........!.... C128DATAFILE V4.8.3.Q....B
(215).0.."............SWITCH TO 80 COLUM
N MODE":."AND THEN 'RUN' AGAIN":..~.(..8
08,100...2..".":.3440...<..G(7);"...".13
)".. ...................................
.............. ..."...F...13)"..........
........................................
....".F.P...13)".... ..
. ...."..
.Z...13)".... .. > > > > > > C128 DATAF
ILE V4.8.3 < < < < < < . ...."...D...13
)".... ..
. ....".A.N...13)"....
.. 80 COLUMN MODE
. ...."...X...13)".... ..
. ....".S.....13)".... .. C
REATED BY MIKE DISSINGER . ..
..".......13)".... ..
. ....".E..
...13)".... .. CREATION DATE AP
RIL 15, 1986 . ...."... ...13)"
.... ..
. ....".......13)".......
........................................
........".6 ....13)"... ................
................................. ...".W
....13)". HIT THE SHIFTED 'H' KEY AT MA
IN MENU FOR HELP SCREEN.. H..G(15);.15)"
.. > > > W A I T < < < ";G
(143).E R..G(7):.3490.N ....10.X ...3460
.. ..... ...".":.3440.. ...5,6:.6,1..!..
.290..!...540.H!".D$.G(0):MR$.D$:DR$.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$:RL.0:SB
$.D$:CR$.G(13):HN$.D$:ID$.D$..!6.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".."@.EN.0:EM$
.D$:ET.0:ES.0:A1$.D$:A2$.D$:A3$.D$.K"J.L
1$." U...IU.............................
.IU...IU................................
..I.D"T.L2$." J...KJ....................
..........KJ...KJ.......................
...........K..#^.L5$." U........
........................................
.......I".^#H.L6$." J...........
........................................
....K"..#R.L3$." U...IU.........
........................................
.I"..#|.L4$." J...KJ............
......................................K"
:...$...F$(F.1),T%(F.1),L%(F.1):..T$...R
EC$(R.1,F.1),ML$(9,4),PC(10),TT$(5),HC$(
9),K%(R.1):..]$....A$.C$....T$...CK..0..
2370.R$..."..
CREATE DATAFILE
":.3490.:%B..:.290:.".HOW MAN
Y FIELDS IN EACH RECORD? (NO MORE THAN 2
0 IS SUGGESTED) 0 ....";F:.F.0..3440:.5
40..%L..390:.I.1.F:."......FIELD # ";I:.
".TITLE ? ".
.%V.."LENGTH?
."..%...".....";.6);:.F$(I):..6);:.
L%(I):.I.(&..OM..(1):.J.0.F:RL.RL.L%(J):
.J:RL.RL.3.(F.1).5:R..((OM.12.(F.1)).RL)
.W&...".YOUR SELECTIONS WILL ALLOW APPRO
X":.R;"RECORDS. .A.CCEPT OR .R.EJECT?".
.&...410:.A$."R".440..'...A$."A".."....S
ETTING DIMENTIONS....NOW USE 'A-DD' ON M
AIN MENU TO ENTER INFORMATION.":.400:..4
:CK.1:.".":.3440:.540..'...510.R'...G(7)
:."... DATAFILE C
128 V4.8.3/80 COLUMN MODE
":.%.M'&.."..
CREATED BY MIKE DISSINGER
.".S'0....':..:.L1$.X
(D..C9.0.." . ";G(15);"C ";G(143);"..REA
TE A FILE ..";G(15);" ^
";G(143);"..CURTAIN ON OFF:ON";.78);"."
.S(N..C9.9.." . ";G(15);"C ";G(143);"..R
EATE A FILE ..";G(15);"
^ ";G(143);"..CURTAIN ON OFF:OFF";.78);
"."..(X..L2$..(B..L1$.A)L.." . ";G(15);"
D ";G(143);"..ELETE RECORD IN CURRENT FI
LE ..";G(15);" A ";G(143);"..DD RECORD
TO CURRENT/CREATED FILE ..J)V..L2$.S)...
L1$..)..." . ";G(15);"R ";G(143);"..EAD
OLD FILE FROM DISK ..";G(15);" M
";G(143);"..ODIFY RECORD IN CURRENT FILE
...)...L2$..*...L1$.}*..." . ";G(1
5);"W ";G(143);"..RITE NEW FILE TO DISK
..";G(15);" P ";G(143);"..RINTOU
T FILE IN MEMORY ...*...L2$..
*...L1$..+F.." . ";G(15);"V ";G(143);"..
IEW FILE ON SCREEN ..";G(15);
" S ";G(143);"..ORT RECORDS BY FIELD
...+P..L2$.K+Z.." U...IU......
........................................
.........................I"..+..." . ";G
(15);"* ";G(143);"..DISK COMMANDS
";G(15);".HIT A ALFA KEY FOR
DESIRED FUNCTION ";G(143);"..".A,...
" J...KJ................................
.......................................K
"..,...HA.10.."..R.S.E.
THERE ARE"X;" ";".. RECORDS IN MEMORY
.":.780..-..."..
THERE ARE"X;" ";
".. RECORDS IN MEMORY
.".Z-...R.0..".....................
..
."..-...
R.0..".. SPACE
FOR";R.X;".. MORE RECORDS
.."..- ..3490...*..410:.A$."A
"..2110:.3440:.990.".4..A$."M"..2110:.16
40.:.>..A$."D"..2110:.1750.Q.H..A$."C"..
3440:.430.B.R..A$."R".1170.Z.\..A$."P"..
2130:.2140...F..A$."V"..2110:.1390...P..
A$."W"..2110:.4040:.R1.9.R1.0:.3440:.540
.Q.Z..A$."W".1070......A$."S"..2110:.189
0......A$."Q".2050../...A$."*".2600../..
.A$."H".3520.K/..AH.F(A$):.AH.10.HA..10.
HA.10:.808,110:.270.O/...AH.10.HA.10.HA.
0:.808,100:.270../...A$."^".C9.0.C9.9:.G
(7):.270../J..A$."^".C9.9.C9.0:.G(7):.27
0../T..810../...I.X.1.R:.".PRESS THE .RE
TURN. KEY AFTER EACH ENTRY".?0..."PRESS
.RETURN. WITHOUT ANY ENTRY TO STOP":."..
RECORD NUMBER ";I:.3490.J0...N.1.F..0...
F$(N);" >...";:.REC$(I,N):.REC$(I,N)."
".REC$(I,N).">"..0...C(REC$(I,N)).L%(N).
.1060:.1020.T0...REC$(I,1).">".X.I.1:CK.
1:.3440:.540..0...N:K%(I).I:.I:X.R:CK.1:
.3440:.540.D1$.."CANNOT EXCEED.";L%(N);"
CHARACTERS, AS YOU PREVIOUSLY DESIGNATE
D":..D1...3440:.4040:.R1.9.R1.0:.540..18
.."..ENTER NAME OF CURRENT FILE TO BE SA
VED".C1B.."(12 CHARACTERS MAX). ANY EXI
STING FILE".C2L.."WITH THE SAME NAME WIL
L BE RE-NAMED. (WILL ADD '!OLD' TO END O
F FILE NAME) ..":.3490:." ";NF$:.3490:.
".";NF$:.NF$."".540.T2V..15,8,15:.15,"S0
:DF] ".H(NF$,8)."!OLD":.2570..2`..15,"R0
:DF] ".H(NF$,8)."!OLD=DF] ".NF$:.2570.J2
J..5,8,5,"0:DF] ".NF$.",S,W":.2570..3T..
5,R;CR$;F;CR$;X:.2570:.N.1.F:.5,F$(N);CR
$;L%(N):.N.J3~..I.1.X:.".SAVING RECORD #
";I;"..":.N.1.F:.5,REC$(I,N):.N:.2570:.I
:...3...I.1.X:.".SAVING POINTERS";I;".."
:.5,K%(I):.I:.2570:.5,E$: 5: 15:CK.0:.34
40:.540..3...CK..0..2370.P3...4040:.R1.9
.R1.0:.3440:.540.Z3...3440.Y4...:W1.9:.2
90:."...ENTER NAME OF FILE TO BE LOADED.
--THE PREFIX-'DF]' IS NOT REQUIRED.":.".
OR ENTER '*' TO EXIT.":.3490:.NF$.Q4...N
F$."*"..3440:.540..4D..15,8,15:.5,8,5,"0
:DF] ".NF$.",S,R":.2570:.EN.62...:.G(7);
G(15);"...THAT FILE NAME NOT FOUND--TRY
AGAIN!."..4N...4:.G(143):..:.3440:.1200.
55X..5,R,F,X:.2570:.390:.400:.N.1.F:.5,F
$(N),L%(N):.N.X5...I.1.X:.".READING RECO
RD #";I;"..":.N.1.F:.5,REC$(I,N):.N:.I:.
.A5...I.1.X:.".READING POINTERS";I;"..":
.5,K%(I):.I:.2570:S.ST:.S..0.1280.K5...5
,E$..5..."....... .........";NF$:
5: 15.?6..."... .........FILE NO
W IN MEMORY":..20);"..................".
~6..." USE:";G(15);"
'V'";G(143);" TO VIEW"..6..."
USE:";G(15);" 'M'";G(143);" TO
MODIFY"..7(.." USE:";
G(15);" 'A'";G(143);" TO ADD TO FILE.M72
.." USE:";G(15);" 'D'
";G(143);" TO DELETE A RECORD..7<.."
USE:";G(15);" 'S'";G(143
);" TO SORT THE RECORDS..7F.."
USE:";G(15);" 'P'";G(143);" TO
PRINT OUT THE RECORD"..8P...20);".FROM
MAIN MENU FUCTION SELECTIONS.".98Z..".HI
T A KEY TO CONTINUE":.410.H8D..3440:.540
.V8N.I.1:.3440.J8X..I.0..3440:.540..8...
I.X.."....OUT OF RANGE.":..4:.3440:.540.
S8..."..RECORD NUMBER.:";I;" OF:";X;" .I
N FILE. ";NF$:.3490..8...N.1.F:.F$(N);".
..";REC$(K%(I),N):.N.E9 .."
U.IU...I U.IU...I U.IU...I U.IU..
.I U.IU...I..9..."...............N..EX
T.....L..AST.....J..UMP.....F..IND.....E
..XIT..............."..9..."
J.KJ...K J.KJ...K J.KJ...K J.KJ.
..K J.KJ...K "..:...410:.
A$."N".I.I.1:.1400.*:H..A$."L".I.I.1:.14
00.;:R..A$."J".1530.S:...A$."F"..3440:.1
540.J:...A$."E"..3440:.540.T:...1470..:.
..".JUMP TO RECORD NUMBER";I:.1400..;...
"..FIND RECORDS WITH COMMON ITEMS
":.3490
:.N.1.F:.". ";N;". ";F$(N):.N.N;..."WHIC
H FIELD IS TO BE SEARCHED? 0 ....";SF:.S
F.0..3440:.540.J;...SF.1.SF.F.."...":.15
50..;".."ENTER .COMMON ITEM. ":."(THE EN
TIRE STRING IS NOT REQUIRED)"..;,..".";F
$(SF);". ";:.T$:.I.1.X:."SEARCHING RECOR
D";I;"."..<6..T$.H(REC$(K%(I),SF),C(T$))
.1600:U1620.O<@..". RECORD #";I;".":.N.1
.F:.F$(N);": ";REC$(K%(I),N):.N.K<J..".
.N.EXT RECORD":.410.U<T..I:.G(15);"..NO
MORE RECORDS IN THIS SELECTED FIELD----"
:..42);".HIT A KEY TO CONTINUE.":.G(7);G
(143)..<^..410:.540.8=H..3440:."..MODIFY
WHICH RECORD? ENTER .#. OR .A.LL":.3490
:.MR$:.MR$.D$..3440:.540.R=R..MR$."A".MR
$.D$:.1680.W=|.I.E(MR$):MR$.D$:.I.X..210
0:.1640..=...1690:.540..=...I.1.X:.1690:
.I:.540.R=...".TO MODIFY RECORD NUMBER";
I;", MAKE CHANGES"..>..."AS EACH FIELD I
S DISPLAYED, THEN .RETURN..".J>...N.1.F:
.F$(N)":":." .";REC$(K%(I),N):.C(REC$(
K%(I),N)).36..".";..>...". ";:.REC$(K%(I
),N):.C(REC$(K%(I),N)).L%(N)..1060:.1710
..>B..REC$(K%(I),N)."".REC$(K%(I),N).">"
..>L..N:CK.1:...>V..3440:.".DELETE WHICH
RECORD? ENTER .#. OR .A.LL":.3490..?...
DR$:.DR$.D$.540.)?...DR$."A".DR$.D$:.180
0.N?..I.E(DR$):DR$.D$:.I.X..2100:.1760.C
?...1810:.3490:.540.|?...I.1.X:.1810:.I:
.540..?...".TO DELETE RECORD NUMBER";I;"
, PRESS"..?...".SHIFT. .D., PRESS .SPACE
BAR. TO ADVANCE (IF DELETING ALL).".&@&
..N.1.F:.F$(N);": ";REC$(K%(I),N):.N:.41
0:.A$."D".1850.1@0.CK.1:..U@:.."..DELETI
NG RECORD";I:.".RECORDS MAY NOW BE OUT O
F ORDER.":..2..@D..N.1.F:REC$(K%(I),N).R
EC$(X,N):REC$(X,N)."":.N..@N..J.1.X:.K%(
J).X.K%(J).K%(X):K%(X).0:X.X.1:.1840..@X
..J.XAB..3440:.".. SORT
RECORDS IN ASCENDING ORDER
":.N.1.F:.".";N;". ";F$(N):.N:.3490
..AL.."WHICH FIELD IS TO BE SORTED? 0 ..
..";SF:.SF.0..3440:.540..AV..SF.F.."..."
;.1900..B...".PLEASE WAIT
..":M.X..B..M..(M.2):.M.0.CK.1:.".YOU C
AN NOW V-IEW RECORDS IN 'ASCENDED ORDER'
(WITH 'V' FUNCTION ON MAIN MENU)":."HIT
A KEY.":.410:.3440:.540..B..J.1:K.X.M..
B..I.J..B..L.I.M:."SORTING .....";
I;".":.REC$(K%(I),SF)..REC$(K%(L),SF).19
80."C..T%(N).K%(I):K%(I).K%(L):K%(L).T%(
N):I.I.M:.I.0.1960.6C..J.J.1:.J.K.1930.@
CF..1950..CP.."...................";.8);
"
"..DZ..G(
15);"....................";.7);"..YOU HA
VE NOT SAVED YOUR CHANGES!":.T.1.1500:.T
.ID...".....................";.7);".
".MD...G(15);"..
..................";.7);"..DO YOU REALLY
WANT TO QUIT? .Y. OR .N..":.410:.A$."Y"
.2090.VD...540..D...CK..0.2000.;E...G(15
);"....................";.39);"SURE YOU
WANT TO TERMINATE? Y/N .";G(143).OE..
.A$:.A$."".2070.GE ..A$.."Y"..3460:.540.
VE*.DC.6:.2920..E4.." NO SUCH RECORD EXI
STS":...E>..R.0...MEH..".. NO FILES IN M
EMORY":..3:.3460:.540..ER..X.1..2120:.54
0..E\..3440..EF....FP..".";L5$:A$."".NFZ
.." . PRINTER M
AIN MENU .".WF...L6$.
`F...L3$..F..." .";G(15);" P ";G
(143);"..RINT OUT THE FILE IN MEMORY
.".FF...L4$.OF...L3$.
,G..." .";G(15);" E ";G(143);"..
XIT PRINTOUT MENU
.".5G...L4$.BGJ..".";L5$..GT..
" . TURN THE PRINTER ON FOR THE
";G(15);"'P' ";G(143);"FUNCTION
."..G...L6$..G...L5$..H..."
. PRINTER STATUS LINE: THERE ARE.";X;"
RECORDS IN MEMORY.";.65)"."..H...L6$.LH.
..".. > > > > > > > HOLD-";G(15
);" '\'";G(143);" TO ABORT PRINTOUT < <
< < < < < ."..H...".. > > > > >
> > PRESS THE APPROPRIATE KEY < < < < <
< < < .":.3490.HH...410..H$..A$."E"..34
40:.540..H...A$."P".3320..H8..2330.+IB..
".. .THIS WILL DESTROY THE FILE IN MEMOR
Y!".OIL..".. SAVE THE FILE FIRST? .Y. OR
.N.":.3490:.410:.A$."N".CK.0:..YIV..107
0..I`.."...................ARE YOU SURE?
.FORMAT Y OR N
.":.3490:.410:.A$."N"
..53280,0:.2600..JJ..A$.."Y"..53280,0:.2
600.SJT.."..ENTER FORMATT CODE----------
---------------------------------
":FC$.""..J~...60);".";:.FC$:.2440..J
...FC$.."MD"..:."....INCORRECT
":.T.1.500:.T..K...FC$.."MD"
..53280,0:.2600.PK...:."....CORRECT ENTR
Y CODE....PROCEED!
":..2..K...".
".YK..."..DISK NA
ME:.";HN$.)L...".
".GLD.."..NO..";ID$:.HN$."".540.
.LN..".
".
.LX.."..ARE '";HN$;".' AND '";ID$;".' CO
RRECT? Y/N":.410:.A$.."Y".2600.BM..."..H
IT A KEY TO START THE FORMAT-----OR HIT-
----'*' TO ABORT FORMAT .":.410:.A
$."*".2600..M..."... WAIT..............F
ORMATTING DISK
.".DM...15,8,15:.15,"NEW0:".H
N$.",".ID$:.2570: 15.!N..."... FORMAT IS
COMPLETE
.":..2:.2600.IN...1
5,EN,EM$,ET,ES:.(EN.20).(EN.62)...SN..."
..DISK ERROR."EN"., "EM$","ET".,"ES..N..
.".PRESS .ANY KEY. TO RETURN TO MENU":.4
10: 5: 15:.53280,0:.3440:.540..O(..3440:
."..U...................................
..................................I".EO2
..". .DISK COM
MANDS. ."..O
<.."J...................................
..................................K."..P
F.."..1. DISK CLEAN UP (COLLECT)
".W
PP.."..2. SCRATCH A FILE
".
.PZ.."..3. LIST DIRECTORY
"
..PD.."..4. RESET DRIVE '0'
".JQN.."..5. EXIT TO MAIN MENU
"..QX.."..6. TERMINATE DATAFILE C128 V4
.8.3 PROGRAM
"..Q..."..7. FORMATT DISK..ENTRY CODE
REQUIRED
".=R..."..8. DISK STATUS
"..R..."..>>>>> DEFAULT LISTS DIRECT
ORY >>>>>>>>>>>>>>";:.G(15);">> ENTER A
NUMBER <<<<<<<<<.";G(143)..R ..3490.AR..
.DC$:.DC$."".2730..R..DC.E(DC$):.DC.1.DC
.8.3080..S...DC.1...:.4040:.R1.9.R1.0:.2
600.ASH..G(15);".......DISK CLEAN UP IN
PROGRESS-WAIT-":.3310:.D0..SR..15,8,15:
15:."...PROCESS IS COMPLETE...DISK HAS B
EEN CLEANED ............................
":.T.1.2000:.T:..:.2600..S...DC.2...:.40
40:.R1.9.R1.0:.2600..S....:.3310:.3120..
T...DC.3...:.4040:.R1.9.R1.0:.2600.BT...
G(15);".....";.49);".....USE NO SCROLL K
EY.":.T.1.400:.T:.. 44,3,70,23,1:...T...
G(15);"..HIT A KEY TO CONTINUE."..T...ZX
$:.ZX$."".2830.ET...".":.. 0,0,79,23,0:.
.:.3440:.2600..T"..DC.4...:.4040:.R1.9.R
1.0:.2600.-U,..3310:."............".40);
"... RE-SETTING DRIVE '0'......".]U
6..15,8,15:.15,"UJ": 15:.T.1.1000:.T:..:
.2600.WU@..DC.5.OE.9:.3440:.540..UJ..DC.
6...:.".................ARE YOU SURE YOU
WANT TO TERMINATE? Y/N
."..UT..A$:.A$."".2900..V
^..A$.."Y".2600..VH..3440.IVR.."........
C128 DATAFILE V4.8.3 .. TERMIN
ATING AT USERS REQUEST "..V|.."
.. . CLOSING ALL 15 FILES......
.........................";:."...CLOSING
":.3490:..3:.". . ";.)W...T.
1.15: T:."..";T;:.S.1.150:.S:.T:."..CONF
IRMING":.". . ";.^W...T.1.15: T
:."..";T;:.S.1.75:.S:.T:.".CONFIRMED!"..
W...".. . ALL FILES CLOSED.....
.............................. ";"..STOP
ING ".NW...T.1.72:.".. ";:.T..X..."...
................TERMINATED!!";:.T.1.40:.
".*";:.S.1.15:.S:.T:."STOP"..X...G(15);"
..THANKYOU FOR USING C128 DATAFILE V4.8.
3 !!":."..MIKE DISSINGER":."LANCASTER, P
A..":..:...XB..DC.7...:.4040:.R1.9.R1.0:
.2600.AXL..3310:.53280,2:..:.2400..XV..D
C.8...:.4040:.R1.9.R1.0:.2600..X...3310.
NY...15,8,15:.15,EN,EM$,ET,ES:.".....DIS
K STATUS IS:"EN;" ";".. ";EM$;ET;" ";"..
";ES;" ";"..";..Y...".
HIT A KEY TO CONTINUE ..":.T.1.10
00:.T: 15..Y...410:..:.2600.AY..DC.3:.".
..":.2800..Y..."..HIT A KEY TO CONTINUE.
":.3310..Y...HH$:.HH$."".3100..Z&..".":.
2600.BZ0..".......
"..Z:.DF$."":."........DELETE W
HAT FILE OR ENTER '_' TO EXIT";:.DF$..ZD
..DF$."_".2600..ZN..5,8,5,"0:".DF$.",P,R
":.DS.62.F.9: 5.R[X..F.9.F.0:.G(15);"..
NO SUCH FILE NAME ON THIS DISK .....TRY
AGAIN! ":.T.1.150
0:.T:.2600..[B. 5:."..ARE YOU SURE YOU W
ANT TO DELETE? Y/N-----";DF$. [L..A$:.A$
."".3180..[V..A$.."Y".2600..\..."..OK---
--DELETING..............................
.........................."..\...15,8,15
:.15,"S0:"DF$.%\.. 15..\...G(15);G(7);:.
"..THE FILE HAS BEEN SUCCESSFULLY DELETE
D.................................";G(14
3):.T.1.2000:.T..\..."..PLEASE CONFIRM..
..............";..\...". WHEN DIRECTORY
IS AUTOMATICALLY LISTED ":.T.1.1500:.T.
[]...".. CONFIRM PROGRAM DELETION > > >
> > > > > > "
:DC.3:.2800.A]F...G]P...M]Z...S]....]..
.G(7):...]...15,4,15: 15:.ST..0.."......
..........":.G(15);.32);".DEVICE NOT PRE
SENT! .";G(143);:..4:.2140.%^
..."......";.32);".PRINTOUT IN PROGRESS
".2^...4,4:I.1.M^...4,G(14)G
(14);NF$;"FILE<<<<<<<<<<<<<<<<<<<<"G(15)
G(15)..^ ..I.0..4,: 4:.540..^*..I.X..4,:
4:.540.I^4..4,G(14)"RECORD NUMBER";I;"I
N FILE ";NF$G(15)..^>..N.1.F:.4,F$(N);".
";REC$(K%(I),N)..^H..A9$.H_R..A9$.G(92).
.4: 4:.G(15);"..";.32);".PRINT OUT ABORT
ED .";G(143):..2:.2140.O_\..N.__F.I.I.
1:.3360.K_P..C9.9...X_Z..W1..0...._..A.Q
("D600"):B.A.1:.A,34:.B,46:.A,35:.B,46..
_..A.Q("D600"):B.A.1:.PQ.40.0..1:.A,34:.
B,46.PQ:.A,35:.B,46.PQ:..._..W1.9:..._..
.C9.9...I`...W1.9.W1.0:A.Q("D600"):B.A.1
:.PQ.0.40:.A,34:.B,46.PQ:.A,35:.B,46.PQ:
..O`...._`...3440:."..".H`J..XJ$..`T..XJ
$."-1"..G(7);".HIT A KEY TO CONTINUE.":.
3490:.410:.3440:.3520..`...XJ$."-9"..G(7
);".HIT A KEY--END OF HELP SCREEN":.3490
:.410:.3440:.540..A...XJ$:.3530._A..."ST
ART OUT BY ENTERING A 'C' ON THE MAIN ME
NU. THAT WILL TAKE YOU TO A SET-UP ".
.A..."MENU. YOU WILL BE ASKED FOR THE A
MOUNT OF FIELDS -IN EACH RECORD-THAT YOU
WANT "..B..."I SUGGEST 20 AS THEY NORMA
LLY WILL FIT ONTO THE SCREEN NICELY! TH
E SCREEN WILL ".GB..."THEY SAY-YOUR SELE
CTION WILL ALLOW APPROX.-XXX-RECORDS. A
CCEPT OR REJECT. YOU "..B..."WILL EITHE
R ENTER AN 'A' OR A 'R'. IF YOU ENTER '
R' (REJECT) YOU ARE RETURNED "..C$.."BA
CK TO THE ORGINAL MENU--ASKING FOR THE S
ET-UP AGAIN-I.E.-FIELDS IN EACH RECORD".
OC...". IF YOU SELECT 'A' (ACCEPT) YOU
ARE RETURNED TO THE MAIN MENU-WHERE YOU
WILL ".GC8.."NOW ENTER AN 'A' (FOR ADD
RECORD TO THE FILE YOU JUST CREATED) AND
FOLLOW THE "..DB.."PROMPTS. IF YOU J
UST HIT RETURN---YOU ARE RETURNED TO THE
MAIN MENU............".WDL.."----------
----------------------------------------
------------------------------".ODV.."TH
E FUNCTIONS-D-R-W-V-A-M-P-S-ON THE MAIN
MENU WILL NOT WORK UNLESS YOU HAVE----".
'E`.."CREATED A FILE OR HAVE READ A PREV
IOUSLY CREATED FILE INTO MEMORY WITH THE
'R' ".EJ.."COMMAND. OTHER WISE YOU W
ILL GET AN 'NO FILES IN MEMORY' STATUS L
INE AND BE ".WET.."RETURNED TO THE MA
IN MENU.
"./F~.."----------
----------------------------------------
------------------------------"..F..."TH
E FUNCTION '^' IS THE CURTAIN CONTROL--T
HE CURTAIN IS SET TO BE ON WHEN YOU ".
.F..."FIRST RUN THE PROGRAM-BUT CAN BE C
HANGED TO -OFF BY HITTING THE '^' KEY.
THE ".7G..."SCREEN WILL THEN CLEAR AS
NORMAL WITHOUT THE CURTAIN SCREEN CLEARI
NG EFFECT. "..G..."------------------
----------------------------------------
----------------------"..G..."DISK FUNCT
ION ARE ACCESSED FROM THE MAIN MENU BY E
NTERING A '*' AND ARE SELF ".?H..."EX
PLAINATORY. THE FORMAT CODE IS 'MD'
".
.HD.."----------------------------------
----------------------------------------
------",-1..HN.."THE REST OF THE FUNCTIO
NS ARE PRETTY WELL DEFINED ON THEIR OWN.
THERE IS A ".JIX.."ROUTINE THAT WI
LL CHECK TO SEE IF A PERTICULAR DEVISE I
S 'ON LINE' BEFORE IT "..I..."WILL AC
TUALLY ACCESS THE DEVISE CALLED--I.E.-IF
YOU ARE AT THE 'PRINTOUT' MENU "..I...
"AND SELECT 'P' (TO PRINT OUT FILE IN ME
MORY) THE ROUTINE WILL FIRST CHECK TO SE
E".RJ..."IF THE PRINTER IS ON LINE--IF N
OT--AN ERROR CODE 'DEVISE NOT PRESENT' W
ILL SHOW."..J..."THE PROGRAM WILL THEN C
ONTINUE--UNLIKE SOME PROGRAMS THAT WILL
SHOW THE ERROR "..K..."CODE OF 'DEVISE
NOT PRESENT' AND HALT THE PROGRAMS EXEC
UTION. ".ZK..."-------
----------------------------------------
---------------------------------"..K...
"WHEN YOU 'WRITE' A FILE TO DISK--'DF]'
IS ADDED TO THE BEGINNING OF THE ACTUAL
"..L(.."FILE NAME YOU SELECT--THIS IS J
UST TO SHOW THAT THE FILE IS FROM THE C1
28 ".BL2.."DATAFILE V4.8.1 PROGRAM
. IF YOU HAVE READ A PREVIOUSLY STORED
FILE BACK INTO "..L<.."MEMORY-(USING T
HE 'R' FUNCTION) AND THEY GO TO WRITE IT
-THE NEW SAVED FILE NAME "..MF.."WILL BE
THE NAME YOU USED TO LOAD THE FILE INTO
MEMORY AND THE ORGINAL FILE NAME".JMP..
"WILL NOW HAVE '!OLD' TACKED ONTO THE EN
D OF IT'S FILE NAME. A NICE WAY TO KEEP
".BMZ.."TRACK OF WHICH FILE IS THE NEWE
ST AND WHICH IS THE OLDEST!!
"..ND.."-----------------------
----------------------------------------
-----------------".RNN.."IF YOU USE THE
'R' (READ) FUNCTION-YOU WILL BE ASKED FO
R IT'S NAME-THE PREFIX- ".JNX.."'DF]' I
S NOT REQUIRED-NOR IS IT NEEDED WHEN YOU
R STORE A FILE. AFTER THE FILE "."O...
"HAS BEEN READ INTO MEMORY-YOU ARE RETUR
NED TO THE MAIN MENU-WHERE YOU CAN THEN
".ZO..."V-IEW S-ORT D-ELETE A-DD M-
ODIFY P-RINTOUT OR W-RITE BACK TO DISK
. ".UO..."-----------------------
----------------------------------------
-----------------",-1.-P .."PLEASE, ALSO
BARE IN MINE, THAT IF YOU TOGGLE THE CU
RTAIN OFF, AND THEY GO TO "..P..."READ
OR WRITE A FILE....THE CURTAIN WILL AUT
OMATICALL BE TURNED BACK ON..THIS IS"..P
..."DUE TO THE FACT THAT A 'CLR' IS PERF
ORMED WITH EACH OF THOSE FUNCTIONS. IT
".8Q..."WILL RESET THE CURTAIN FUCTI
ON TO THE DEFAULT SETTING, WHICH IS ON.
",-9.SQH..1,8,1: 1:.15,8,15:
15.ZQR..ST..0.A$."W"...:.G(15);".......
.................DEVISE NOT PRESENT!....
........................................
................."..Q....4:R1.9:..:...Q.
..15,8,15: 15..R...ST..0.A$."R"...:.G(15
);"........................DEVISE NOT PR
ESENT!..................................
..........................."..R....4:..:
R1.9:...S...15,8,15: 15:.ST..0..G(15);".
..";.1);"DEVISE NOT PRESENT!............
......................................."
:..4:R1.9:...S......
> CLICK IMAGE PREVIEW FOR FULL MODAL