TIERABASE 128.80
FILE INFORMATION
FILENAME(S): TIERABASE 128.80
FILE TYPE(S): PRG
FILE SIZE: 28.6K
FIRST SEEN: 2025-10-20 14:31:15
APPEARS ON: 1 disk(s)
FILE HASH
538ba3f5a7b8549f280fa464ed510f5c2db3591f11d87a1a9bbbb5f34e91b8f9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| HACG 11 93 DOM | TIERABASE 128.80 | PRG | Treasure Chest - Klaus Der Suhler | 17 | 17 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
00000000: 01 1C 4F 1C 01 00 8F 20 20 20 2A 2A 20 54 49 45 |..O.... ** TIE|
00000010: 52 52 41 42 41 53 45 20 49 53 20 46 4F 52 20 54 |RRABASE IS FOR T|
00000020: 48 45 20 43 2D 31 32 38 20 41 4E 44 20 57 49 4C |HE C-128 AND WIL|
00000030: 4C 20 52 55 4E 20 49 4E 20 38 30 20 43 4F 4C 55 |L RUN IN 80 COLU|
00000040: 4D 4E 20 4D 4F 44 45 20 4F 4E 4C 59 20 2A 2A 00 |MN MODE ONLY **.|
00000050: 8D 1C 02 00 8F 20 20 20 20 20 20 20 20 20 20 20 |..... |
00000060: 20 20 2A 2A 20 4D 4F 44 45 20 57 49 54 48 20 45 | ** MODE WITH E|
00000070: 49 54 48 45 52 20 41 20 31 35 34 31 20 4F 52 20 |ITHER A 1541 OR |
00000080: 31 35 37 31 20 44 52 49 56 45 20 2A 2A 00 C8 1C |1571 DRIVE **...|
00000090: 03 00 8F 20 20 20 20 20 20 20 20 20 20 20 20 20 |... |
000000A0: 20 20 2A 2A 20 20 20 20 20 20 54 48 49 53 20 49 | ** THIS I|
000000B0: 53 20 56 45 52 53 49 4F 4E 20 32 2E 30 20 20 20 |S VERSION 2.0 |
000000C0: 20 20 20 20 20 20 2A 2A 00 CE 1C 04 00 8F 00 F8 | **........|
000000D0: 1C 0A 00 97 35 33 32 39 36 2C 31 3A DE 35 3A 99 |....53296,1:.5:.|
000000E0: C7 28 31 34 29 3A D7 39 38 30 30 3A 8F 50 4F 4B |.(14):.9800:.POK|
000000F0: 45 38 30 38 2C 31 30 30 00 09 1D 0C 00 E7 36 2C |E808,100......6,|
00000100: 31 3A 8D 31 36 3A 89 36 38 00 41 1D 10 00 44 24 |1:.16:.68.A...D$|
00000110: B2 C7 28 30 29 3A 4D 52 24 B2 44 24 3A 44 52 24 |..(0):MR$.D$:DR$|
00000120: B2 44 24 3A 53 B2 30 3A 42 31 24 B2 44 24 3A 50 |.D$:S.0:B1$.D$:P|
00000130: 57 B2 30 3A 43 57 B2 30 3A 42 24 B2 C7 28 33 32 |W.0:CW.0:B$..(32|
00000140: 29 00 8D 1D 12 00 4E 43 B2 30 3A 4E 4C B2 30 3A |).....NC.0:NL.0:|
00000150: 50 47 B2 30 3A 46 31 B2 30 3A 46 32 B2 30 3A 46 |PG.0:F1.0:F2.0:F|
00000160: 33 B2 30 3A 4C 24 B2 44 24 3A 52 4C B2 30 3A 53 |3.0:L$.D$:RL.0:S|
00000170: 42 24 B2 44 24 3A 43 52 24 B2 C7 28 31 33 29 3A |B$.D$:CR$..(13):|
00000180: 48 4E 24 B2 44 24 3A 49 44 24 B2 44 24 00 DC 1D |HN$.D$:ID$.D$...|
00000190: 14 00 41 24 B2 44 24 3A 43 24 B2 44 24 3A 54 25 |..A$.D$:C$.D$:T%|
000001A0: B2 30 3A 49 24 B2 44 24 3A 43 4B B2 30 3A 49 B2 |.0:I$.D$:CK.0:I.|
000001B0: 30 3A 4A B2 30 3A 4B B2 30 3A 4C B2 30 3A 4D B2 |0:J.0:K.0:L.0:M.|
000001C0: 30 3A 4E B2 30 3A 52 57 B2 35 3A 53 46 B2 30 3A |0:N.0:RW.5:SF.0:|
000001D0: 5A B2 30 3A 45 24 B2 22 45 4F 46 22 00 1C 1E 16 |Z.0:E$."EOF"....|
000001E0: 00 45 4E B2 30 3A 45 4D 24 B2 44 24 3A 45 54 B2 |.EN.0:EM$.D$:ET.|
000001F0: 30 3A 45 53 B2 30 3A 41 31 24 B2 44 24 3A 41 32 |0:ES.0:A1$.D$:A2|
00000200: 24 B2 44 24 3A 41 33 24 B2 44 24 3A 53 31 24 B2 |$.D$:A3$.D$:S1$.|
00000210: 44 24 3A 46 4C B2 30 3A 44 56 B2 38 00 60 1E 17 |D$:FL.0:DV.8.`..|
00000220: 00 FE 0D 23 31 2C 22 54 49 45 52 52 41 2E 43 4F |...#1,"TIERRA.CO|
00000230: 4C 4F 52 53 22 2C 44 30 2C 55 38 3A 84 31 2C 4C |LORS",D0,U8:.1,L|
00000240: 54 24 2C 47 52 24 3A A0 31 3A 8B 44 53 B3 B1 30 |T$,GR$:.1:.DS..0|
00000250: A7 4C 54 24 B2 22 95 22 3A 47 52 24 B2 22 97 22 |.LT$.".":GR$."."|
00000260: 00 6F 1E 18 00 4D 45 4D B2 B8 28 30 29 3A 8E 00 |.o...MEM..(0):..|
00000270: 8F 1E 19 00 86 20 46 24 28 46 AA 31 29 2C 54 25 |..... F$(F.1),T%|
00000280: 28 46 AA 31 29 2C 4C 25 28 46 AA 31 29 3A 8E 00 |(F.1),L%(F.1):..|
00000290: CB 1E 1A 00 86 20 52 45 43 24 28 52 AA 31 2C 46 |..... REC$(R.1,F|
000002A0: AA 31 29 2C 4D 4C 24 28 39 2C 34 29 2C 50 43 28 |.1),ML$(9,4),PC(|
000002B0: 31 30 29 2C 54 54 24 28 35 29 2C 48 43 24 28 39 |10),TT$(5),HC$(9|
000002C0: 29 2C 4B 25 28 52 AA 31 29 3A 8E 00 D6 1E 1C 00 |),K%(R.1):......|
000002D0: 8F 2D 2D 47 45 54 00 E8 1E 1E 00 A1 41 24 3A 8B |.--GET......A$:.|
000002E0: 41 24 B2 22 22 A7 33 30 00 EE 1E 20 00 8E 00 FC |A$."".30... ....|
000002F0: 1E 22 00 8F 2D 2D 43 52 45 41 54 45 00 0C 1F 24 |."..--CREATE...$|
00000300: 00 8B 43 4B B3 B1 30 A7 8D 33 39 34 00 7B 1F 26 |..CK..0..394.{.&|
00000310: 00 99 47 52 24 22 13 13 93 A4 A4 A4 A4 A4 20 D4 |..GR$"........ .|
00000320: 49 45 52 52 41 C2 41 53 45 20 A4 A4 A4 A4 A4 A4 |IERRA.ASE ......|
00000330: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000340: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 20 C9 |.............. .|
00000350: 4E 49 54 49 41 4C 49 5A 45 20 C4 41 54 41 20 C6 |NITIALIZE .ATA .|
00000360: 49 4C 45 20 A4 A4 A4 A4 A4 22 4C 54 24 3A FE 1A |ILE ....."LT$:..|
00000370: 30 2C 32 2C 37 39 2C 32 34 2C 31 00 C2 1F 28 00 |0,2,79,24,1...(.|
00000380: 9C 3A 8D 31 36 3A 99 A3 32 30 29 3B 3A 85 22 11 |.:.16:..20);:.".|
00000390: 11 C8 4F 57 20 4D 41 4E 59 20 46 49 45 4C 44 53 |..OW MANY FIELDS|
000003A0: 20 49 4E 20 45 41 43 48 20 52 45 43 4F 52 44 3F | IN EACH RECORD?|
000003B0: 20 30 20 9D 9D 9D 9D 22 3B 46 3A 8B 46 B2 30 A7 | 0 ....";F:.F.0.|
000003C0: 36 38 00 D1 1F 2A 00 8D 32 34 3A 81 49 B2 31 A4 |68...*..24:.I.1.|
000003D0: 46 00 1B 20 2C 00 99 22 93 22 A3 32 30 29 22 11 |F.. ,..".".20)".|
000003E0: 11 11 11 12 C6 49 45 4C 44 20 23 22 3B 49 3A 99 |.....IELD #";I:.|
000003F0: A3 32 30 29 22 11 D4 49 54 4C 45 20 3F 20 3E 20 |.20)"..ITLE ? > |
00000400: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000410: 20 20 20 20 20 20 20 20 20 20 22 00 4C 20 2E 00 | ".L ..|
00000420: 99 A3 32 30 29 22 CC 45 4E 47 54 48 3F 20 30 20 |..20)".ENGTH? 0 |
00000430: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000440: 20 20 20 20 20 20 20 20 20 20 13 22 00 7A 20 2F | .".z /|
00000450: 00 99 22 11 11 11 11 11 22 3B A3 32 36 29 3B 3A |..".....";.26);:|
00000460: 85 46 24 28 49 29 3A 8B 46 24 28 49 29 B2 22 22 |.F$(I):.F$(I).""|
00000470: A7 46 24 28 49 29 B2 22 3E 22 00 98 20 30 00 99 |.F$(I).">".. 0..|
00000480: A3 32 36 29 3B 3A 85 4C 25 28 49 29 3A 8B 4C 25 |.26);:.L%(I):.L%|
00000490: 28 49 29 B2 30 A7 36 38 00 9F 20 31 00 82 49 00 |(I).0.68.. 1..I.|
000004A0: BC 20 32 00 8F 20 2A 2A 2A 43 4F 4D 50 55 54 45 |. 2.. ***COMPUTE|
000004B0: 20 52 45 43 4F 52 44 53 20 2A 2A 2A 00 F3 20 34 | RECORDS ***.. 4|
000004C0: 00 81 4A B2 30 A4 46 3A 52 4C B2 52 4C AA 4C 25 |..J.0.F:RL.RL.L%|
000004D0: 28 4A 29 3A 82 4A 3A 52 4C B2 52 4C AA 33 AC 28 |(J):.J:RL.RL.3.(|
000004E0: 46 AA 31 29 AA 35 3A 52 B2 B5 28 B8 28 31 29 AD |F.1).5:R..(.(1).|
000004F0: 52 4C 29 00 24 21 36 00 99 A3 32 33 29 4C 54 24 |RL).$!6...23)LT$|
00000500: 22 11 D9 4F 55 52 20 53 45 4C 45 43 54 49 4F 4E |"..OUR SELECTION|
00000510: 53 20 57 49 4C 4C 20 41 4C 4C 4F 57 20 41 50 50 |S WILL ALLOW APP|
00000520: 52 4F 58 22 00 54 21 38 00 99 4C 54 24 A3 32 33 |ROX".T!8..LT$.23|
00000530: 29 52 3B 22 52 45 43 4F 52 44 53 2E 20 20 12 C1 |)R;"RECORDS. ..|
00000540: 92 43 43 45 50 54 20 4F 52 20 12 D2 92 45 4A 45 |.CCEPT OR ...EJE|
00000550: 43 54 3F 22 00 67 21 3A 00 8D 33 30 3A 8B 41 24 |CT?".g!:..30:.A$|
00000560: B2 22 52 22 A7 33 38 00 7C 21 3B 00 8B 41 24 B2 |."R".38.|!;..A$.|
00000570: 22 41 22 A7 8D 32 36 3A 43 4B B2 31 00 A0 21 3C |"A"..26:CK.1..!<|
00000580: 00 81 49 B2 31 A4 46 3A 8B C3 28 46 24 28 49 29 |..I.1.F:..(F$(I)|
00000590: 29 B1 53 31 A7 53 31 B2 C3 28 46 24 28 49 29 29 |).S1.S1..(F$(I))|
000005A0: 00 AB 21 3E 00 82 49 3A 89 36 38 00 B7 21 40 00 |..!>..I:.68..!@.|
000005B0: 8F 2D 2D 4D 45 4E 55 00 2A 22 42 00 99 47 52 24 |.--MENU.*"B..GR$|
000005C0: 22 13 13 93 A4 A4 A4 A4 A4 20 D4 49 45 52 52 41 |"........ .IERRA|
000005D0: C2 41 53 45 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |.ASE ...........|
000005E0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000005F0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000600: A4 A4 A4 A4 20 CD 41 49 4E 20 CD 45 4E 55 20 A4 |.... .AIN .ENU .|
00000610: A4 A4 A4 A4 22 4C 54 24 3A FE 1A 30 2C 32 2C 37 |...."LT$:..0,2,7|
00000620: 39 2C 32 34 2C 31 3A 89 37 30 00 99 22 44 00 99 |9,24,1:.70.."D..|
00000630: 47 52 24 22 13 13 93 A4 A4 A4 A4 A4 20 D4 49 45 |GR$"........ .IE|
00000640: 52 52 41 C2 41 53 45 20 A4 A4 A4 A4 A4 A4 A4 A4 |RRA.ASE ........|
00000650: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000660: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000670: A4 A4 A4 A4 A4 A4 A4 20 CD 41 49 4E 20 CD 45 4E |....... .AIN .EN|
00000680: 55 20 A4 A4 A4 A4 A4 22 4C 54 24 3A FE 1A 30 2C |U ....."LT$:..0,|
00000690: 32 2C 37 39 2C 32 34 2C 31 00 F8 22 46 00 99 4C |2,79,24,1.."F..L|
000006A0: 54 24 22 11 11 20 20 20 20 20 12 CE 92 20 45 57 |T$".. ... EW|
000006B0: 20 46 49 4C 45 20 43 52 45 41 54 49 4F 4E 20 20 | FILE CREATION |
000006C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000006D0: 20 20 20 20 20 20 20 20 20 20 12 C1 92 20 44 44 | ... DD|
000006E0: 20 D2 45 43 4F 52 44 20 D4 4F 20 C3 55 52 52 45 | .ECORD .O .URRE|
000006F0: 4E 54 20 C6 49 4C 45 22 00 47 23 4A 00 99 22 11 |NT .ILE".G#J..".|
00000700: 20 20 20 20 20 12 CD 92 20 4F 44 49 46 59 20 52 | ... ODIFY R|
00000710: 45 43 4F 52 44 20 49 4E 20 43 55 52 52 45 4E 54 |ECORD IN CURRENT|
00000720: 20 46 49 4C 45 20 20 20 20 20 20 20 20 20 20 20 | FILE |
00000730: 20 20 20 20 20 12 C4 92 20 45 4C 45 54 45 20 52 | ... ELETE R|
00000740: 45 43 4F 52 44 20 22 00 9D 23 4E 00 99 22 11 20 |ECORD "..#N..". |
00000750: 20 20 20 20 12 D6 92 20 49 45 57 20 46 49 4C 45 | ... IEW FILE|
00000760: 20 4F 4E 20 53 43 52 45 45 4E 20 20 20 20 20 20 | ON SCREEN |
00000770: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000780: 20 20 20 20 12 D3 92 20 4F 52 54 20 52 45 43 4F | ... ORT RECO|
00000790: 52 44 53 20 42 59 20 46 49 45 4C 44 22 00 F6 23 |RDS BY FIELD"..#|
000007A0: 52 00 99 22 11 20 20 20 20 20 12 D0 92 20 52 49 |R..". ... RI|
000007B0: 4E 54 20 52 45 43 4F 52 44 53 20 42 59 20 53 45 |NT RECORDS BY SE|
000007C0: 4C 45 43 54 49 4F 4E 20 20 20 20 20 20 20 20 20 |LECTION |
000007D0: 20 20 20 20 20 20 20 20 20 20 12 CC 92 20 4F 41 | ... OA|
000007E0: 44 20 C4 41 54 41 20 46 49 4C 45 20 46 52 4F 4D |D .ATA FILE FROM|
000007F0: 20 44 49 53 4B 22 00 4E 24 56 00 99 22 11 20 20 | DISK".N$V..". |
00000800: 20 20 20 12 D7 92 20 52 49 54 45 20 4E 45 57 20 | ... RITE NEW |
00000810: 46 49 4C 45 20 54 4F 20 44 49 53 4B 20 20 20 20 |FILE TO DISK |
00000820: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000830: 20 20 20 12 40 92 20 C4 49 53 4B 20 C3 4F 4D 4D | .@. .ISK .OMM|
00000840: 41 4E 44 53 20 20 20 20 20 20 20 20 20 22 00 9F |ANDS "..|
00000850: 24 59 00 99 22 11 20 20 20 20 20 12 C5 92 20 58 |$Y..". ... X|
00000860: 49 54 20 50 52 4F 47 52 41 4D 20 20 20 20 20 20 |IT PROGRAM |
00000870: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000880: 20 20 20 20 20 20 20 20 20 20 20 12 C3 92 20 55 | ... U|
00000890: 53 54 4F 4D 49 5A 45 20 C3 4F 4C 4F 52 53 22 00 |STOMIZE .OLORS".|
000008A0: E5 24 5C 00 99 47 52 24 A3 32 32 29 22 0F 11 11 |.$\..GR$.22)"...|
000008B0: 12 20 20 20 20 20 20 D0 52 45 53 53 20 54 48 45 |. .RESS THE|
000008C0: 20 41 50 50 52 4F 50 52 49 41 54 45 20 4B 45 59 | APPROPRIATE KEY|
000008D0: 20 20 20 20 20 20 20 92 22 3B 3A 99 C7 28 31 34 | .";:..(14|
000008E0: 33 29 4C 54 24 00 12 25 5D 00 99 A3 32 37 29 22 |3)LT$..%]...27)"|
000008F0: 11 11 D4 48 45 52 45 20 41 52 45 22 3B 58 3B 22 |...HERE ARE";X;"|
00000900: 52 45 43 4F 52 44 53 20 49 4E 20 4D 45 4D 4F 52 |RECORDS IN MEMOR|
00000910: 59 22 00 40 25 5E 00 8B 52 B1 30 A7 99 A3 32 38 |Y".@%^..R.0...28|
00000920: 29 22 D3 50 41 43 45 20 46 4F 52 22 3B 52 AB 58 |)".PACE FOR";R.X|
00000930: 3B 22 4D 4F 52 45 20 52 45 43 4F 52 44 53 91 22 |;"MORE RECORDS."|
00000940: 00 5F 25 60 00 8D 33 30 3A 8B 41 24 B2 22 41 22 |._%`..30:.A$."A"|
00000950: A7 8D 33 35 30 3A 8B 46 4C B2 30 A7 31 32 34 00 |..350:.FL.0.124.|
00000960: 7A 25 62 00 8B 41 24 B2 22 4D 22 A7 8D 33 35 34 |z%b..A$."M"..354|
00000970: 3A 8B 46 4C B2 30 A7 32 34 34 00 95 25 64 00 8B |:.FL.0.244..%d..|
00000980: 41 24 B2 22 44 22 A7 8D 33 35 34 3A 8B 46 4C B2 |A$."D"..354:.FL.|
00000990: 30 A7 32 37 32 00 AB 25 66 00 8B 41 24 B2 22 43 |0.272..%f..A$."C|
000009A0: 22 A7 8D 39 30 30 30 3A 89 36 36 00 BA 25 67 00 |"..9000:.66..%g.|
000009B0: 8B 41 24 B2 22 4E 22 A7 33 36 00 CA 25 68 00 8B |.A$."N".36..%h..|
000009C0: 41 24 B2 22 4C 22 A7 31 37 30 00 E5 25 6A 00 8B |A$."L".170..%j..|
000009D0: 41 24 B2 22 50 22 A7 8D 33 35 34 3A 8B 46 4C B2 |A$."P"..354:.FL.|
000009E0: 30 A7 33 35 38 00 00 26 6C 00 8B 41 24 B2 22 56 |0.358..&l..A$."V|
000009F0: 22 A7 8D 33 35 34 3A 8B 46 4C B2 30 A7 31 39 32 |"..354:.FL.0.192|
00000A00: 00 1B 26 6E 00 8B 41 24 B2 22 57 22 A7 8D 33 35 |..&n..A$."W"..35|
00000A10: 30 3A 8B 46 4C B2 30 A7 31 34 34 00 36 26 70 00 |0:.FL.0.144.6&p.|
00000A20: 8B 41 24 B2 22 53 22 A7 8D 33 35 34 3A 8B 46 4C |.A$."S"..354:.FL|
00000A30: B2 30 A7 33 30 34 00 46 26 72 00 8B 41 24 B2 22 |.0.304.F&r..A$."|
00000A40: 45 22 A7 33 34 32 00 56 26 74 00 8B 41 24 B2 22 |E".342.V&t..A$."|
00000A50: 40 22 A7 34 36 32 00 6A 26 76 00 8B 46 4C B3 B1 |@".462.j&v..FL..|
00000A60: 30 A7 46 4C B2 30 3A 89 36 38 00 72 26 78 00 89 |0.FL.0:.68.r&x..|
00000A70: 39 36 00 85 26 7A 00 8F 2D 2D 41 44 44 20 52 45 |96..&z..--ADD RE|
00000A80: 43 4F 52 44 53 00 F4 26 7C 00 99 47 52 24 22 13 |CORDS..&|..GR$".|
00000A90: 13 93 A4 A4 A4 A4 A4 20 D4 49 45 52 52 41 C2 41 |....... .IERRA.A|
00000AA0: 53 45 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |SE .............|
00000AB0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000AC0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000AD0: A4 20 C6 49 4C 45 20 C5 4E 54 52 59 20 A4 A4 A4 |. .ILE .NTRY ...|
00000AE0: A4 A4 22 4C 54 24 3A FE 1A 30 2C 32 2C 37 39 2C |.."LT$:..0,2,79,|
00000AF0: 32 34 2C 31 00 32 27 7D 00 81 49 B2 58 AA 31 A4 |24,1.2'}..I.X.1.|
00000B00: 52 3A 99 22 93 11 11 11 20 D0 52 45 53 53 20 54 |R:.".... .RESS T|
00000B10: 48 45 20 12 D2 45 54 55 52 4E 92 20 4B 45 59 20 |HE ..ETURN. KEY |
00000B20: 41 46 54 45 52 20 45 41 43 48 20 45 4E 54 52 59 |AFTER EACH ENTRY|
00000B30: 22 3B 00 66 27 7E 00 99 22 20 20 D0 52 45 53 53 |";.f'~.." .RESS|
00000B40: 20 12 D2 45 54 55 52 4E 92 20 57 49 54 48 4F 55 | ..ETURN. WITHOU|
00000B50: 54 20 41 4E 59 20 45 4E 54 52 59 20 54 4F 20 53 |T ANY ENTRY TO S|
00000B60: 54 4F 50 11 11 22 00 87 27 80 00 99 A3 31 33 29 |TOP.."..'....13)|
00000B70: 22 12 D2 45 43 4F 52 44 20 4E 55 4D 42 45 52 20 |"..ECORD NUMBER |
00000B80: 22 3B 49 3B 22 11 22 00 92 27 82 00 81 4E B2 31 |";I;"."..'...N.1|
00000B90: A4 46 00 C4 27 84 00 99 A3 31 35 29 3B 46 24 28 |.F..'....15);F$(|
00000BA0: 4E 29 A6 53 31 AB C3 28 46 24 28 4E 29 29 29 22 |N).S1..(F$(N)))"|
00000BB0: 20 20 20 3E 9D 9D 9D 22 3B 3A 85 52 45 43 24 28 | >...";:.REC$(|
00000BC0: 49 2C 4E 29 00 E4 27 85 00 8B 52 45 43 24 28 49 |I,N)..'...REC$(I|
00000BD0: 2C 4E 29 B2 22 22 A7 52 45 43 24 28 49 2C 4E 29 |,N)."".REC$(I,N)|
00000BE0: B2 22 3E 22 00 06 28 86 00 8B C3 28 52 45 43 24 |.">"..(....(REC$|
00000BF0: 28 49 2C 4E 29 29 B1 4C 25 28 4E 29 A7 8D 31 34 |(I,N)).L%(N)..14|
00000C00: 30 3A 89 31 33 32 00 29 28 88 00 8B 52 45 43 24 |0:.132.)(...REC$|
00000C10: 28 49 2C 31 29 B2 22 3E 22 A7 20 58 B2 49 AB 31 |(I,1).">". X.I.1|
00000C20: 3A 43 4B B2 31 3A 89 36 38 00 48 28 8A 00 82 4E |:CK.1:.68.H(...N|
00000C30: 3A 4B 25 28 49 29 B2 49 3A 82 49 3A 58 B2 52 3A |:K%(I).I:.I:X.R:|
00000C40: 43 4B B2 31 3A 89 36 38 00 80 28 8C 00 99 A3 32 |CK.1:.68..(....2|
00000C50: 37 29 22 12 96 C3 41 4E 4E 4F 54 20 45 58 43 45 |7)"...ANNOT EXCE|
00000C60: 45 44 22 AA C4 28 4C 25 28 4E 29 29 AA 22 20 43 |ED"..(L%(N))." C|
00000C70: 48 41 52 41 43 54 45 52 53 92 22 4C 54 24 3A 8E |HARACTERS."LT$:.|
00000C80: 00 8C 28 8E 00 8F 2D 2D 53 41 56 45 00 FA 28 90 |..(...--SAVE..(.|
00000C90: 00 99 47 52 24 22 13 13 93 A4 A4 A4 A4 A4 20 D4 |..GR$"........ .|
00000CA0: 49 45 52 52 41 C2 41 53 45 20 A4 A4 A4 A4 A4 A4 |IERRA.ASE ......|
00000CB0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000CC0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000CD0: A4 A4 A4 A4 A4 A4 A4 20 D3 41 56 45 20 C6 49 4C |....... .AVE .IL|
00000CE0: 45 53 20 A4 A4 A4 A4 A4 22 4C 54 24 3A FE 1A 30 |ES ....."LT$:..0|
00000CF0: 2C 32 2C 37 39 2C 32 34 2C 31 00 2C 29 91 00 99 |,2,79,24,1.,)...|
00000D00: 22 11 11 20 C5 4E 54 45 52 20 4E 41 4D 45 20 4F |".. .NTER NAME O|
00000D10: 46 20 43 55 52 52 45 4E 54 20 46 49 4C 45 20 54 |F CURRENT FILE T|
00000D20: 4F 20 42 45 20 53 41 56 45 44 22 3B 00 5C 29 92 |O BE SAVED";.\).|
00000D30: 00 99 22 20 28 31 32 20 43 48 41 52 41 43 54 45 |.." (12 CHARACTE|
00000D40: 52 53 20 4D 41 58 29 2E 20 20 C1 4E 59 20 45 58 |RS MAX). .NY EX|
00000D50: 49 53 54 49 4E 47 20 46 49 4C 45 22 00 90 29 94 |ISTING FILE"..).|
00000D60: 00 99 22 20 57 49 54 48 20 54 48 45 20 53 41 4D |.." WITH THE SAM|
00000D70: 45 20 4E 41 4D 45 20 57 49 4C 4C 20 42 45 20 52 |E NAME WILL BE R|
00000D80: 45 4E 41 4D 45 44 20 27 4F 4C 44 27 2E 11 11 22 |ENAMED 'OLD'..."|
00000D90: 00 B9 29 96 00 99 A3 32 36 29 3B 4E 46 24 3A 99 |..)....26);NF$:.|
00000DA0: A3 32 34 29 3B 3A 85 22 91 22 3B 4E 46 24 3A 8B |.24);:.".";NF$:.|
00000DB0: 4E 46 24 B2 22 22 A7 36 38 00 F2 29 98 00 9F 31 |NF$."".68..)...1|
00000DC0: 35 2C 38 2C 31 35 3A 98 31 35 2C 22 53 30 3A 44 |5,8,15:.15,"S0:D|
00000DD0: 46 5D 20 22 AA C8 28 4E 46 24 2C 38 29 AA 22 21 |F] "..(NF$,8)."!|
00000DE0: 4F 4C 44 22 3A 8D 34 31 34 3A 8B 45 54 B2 38 A7 |OLD":.414:.ET.8.|
00000DF0: 36 38 00 2B 2A 9A 00 98 31 35 2C 22 52 30 3A 44 |68.+*...15,"R0:D|
00000E00: 46 5D 20 22 AA C8 28 4E 46 24 2C 38 29 AA 22 21 |F] "..(NF$,8)."!|
00000E10: 4F 4C 44 3D 44 46 5D 20 22 AA 4E 46 24 3A 8D 34 |OLD=DF] ".NF$:.4|
00000E20: 31 34 3A 8B 45 54 B2 38 A7 36 38 00 58 2A 9C 00 |14:.ET.8.68.X*..|
00000E30: 9F 35 2C 38 2C 35 2C 22 30 3A 44 46 5D 20 22 AA |.5,8,5,"0:DF] ".|
00000E40: 4E 46 24 AA 22 2C 53 2C 57 22 3A 8D 34 31 34 3A |NF$.",S,W":.414:|
00000E50: 8B 45 54 B2 38 A7 36 38 00 8A 2A 9E 00 98 35 2C |.ET.8.68..*...5,|
00000E60: 52 3B 43 52 24 3B 46 3B 43 52 24 3B 58 3A 81 4E |R;CR$;F;CR$;X:.N|
00000E70: B2 31 A4 46 3A 98 35 2C 46 24 28 4E 29 3B 43 52 |.1.F:.5,F$(N);CR|
00000E80: 24 3B 4C 25 28 4E 29 3A 82 4E 00 9C 2A 9F 00 8D |$;L%(N):.N..*...|
00000E90: 34 31 34 3A 8B 45 54 B2 38 A7 36 38 00 C6 2A A0 |414:.ET.8.68..*.|
00000EA0: 00 81 49 B2 31 A4 58 3A 99 A3 32 36 29 22 11 D3 |..I.1.X:..26)"..|
00000EB0: 41 56 49 4E 47 20 52 45 43 4F 52 44 20 23 22 3B |AVING RECORD #";|
00000EC0: 49 3B 22 91 91 22 00 F4 2A A2 00 81 4E B2 31 A4 |I;".."..*...N.1.|
00000ED0: 46 3A 98 35 2C 52 45 43 24 28 49 2C 4E 29 3A 82 |F:.5,REC$(I,N):.|
00000EE0: 4E 3A 82 49 3A 99 3A 8D 34 31 34 3A 8B 45 54 B2 |N:.I:.:.414:.ET.|
00000EF0: 38 A7 36 38 00 2A 2B A4 00 81 49 B2 31 A4 58 3A |8.68.*+...I.1.X:|
00000F00: 99 A3 32 36 29 22 11 D3 41 56 49 4E 47 20 50 4F |..26)"..AVING PO|
00000F10: 49 4E 54 45 52 53 22 3B 49 3B 22 91 91 22 3A 98 |INTERS";I;"..":.|
00000F20: 35 2C 4B 25 28 49 29 3A 82 49 00 42 2B A5 00 98 |5,K%(I):.I.B+...|
00000F30: 35 2C 45 24 3A 8D 34 31 34 3A 8B 45 54 B2 38 A7 |5,E$:.414:.ET.8.|
00000F40: 36 38 00 56 2B A6 00 A0 35 3A A0 31 35 3A 43 4B |68.V+...5:.15:CK|
00000F50: B2 30 3A 89 36 38 00 62 2B A8 00 8F 2D 2D 4C 4F |.0:.68.b+...--LO|
00000F60: 41 44 00 72 2B AA 00 8B 43 4B B3 B1 30 A7 8D 33 |AD.r+...CK..0..3|
00000F70: 39 34 00 E0 2B AB 00 99 47 52 24 22 13 13 93 A4 |94..+...GR$"....|
00000F80: A4 A4 A4 A4 20 D4 49 45 52 52 41 C2 41 53 45 20 |.... .IERRA.ASE |
00000F90: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000FA0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00000FB0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 20 CC 4F |............. .O|
00000FC0: 41 44 20 C6 49 4C 45 53 20 A4 A4 A4 A4 A4 22 4C |AD .ILES ....."L|
00000FD0: 54 24 3A FE 1A 30 2C 32 2C 37 39 2C 32 34 2C 31 |T$:..0,2,79,24,1|
00000FE0: 00 26 2C AC 00 8D 31 36 3A 99 A3 32 32 29 22 11 |.&,...16:..22)".|
00000FF0: 11 11 C5 4E 54 45 52 20 CE 41 4D 45 20 4F 46 20 |...NTER .AME OF |
00001000: C6 49 4C 45 20 54 4F 20 42 45 20 CC 4F 41 44 45 |.ILE TO BE .OADE|
00001010: 44 11 11 22 3A 99 A3 32 32 29 3B 3A 85 4E 46 24 |D..":..22);:.NF$|
00001020: 3A 99 22 11 11 22 00 35 2C AD 00 8B 4E 46 24 B2 |:."..".5,...NF$.|
00001030: 22 22 A7 36 38 00 6B 2C AE 00 9F 31 35 2C 38 2C |"".68.k,...15,8,|
00001040: 31 35 3A 9F 35 2C 38 2C 35 2C 22 30 3A 44 46 5D |15:.5,8,5,"0:DF]|
00001050: 20 22 AA 4E 46 24 AA 22 2C 53 2C 52 22 3A 8D 34 | ".NF$.",S,R":.4|
00001060: 31 34 3A 8B 45 54 B2 38 A7 36 38 00 7F 2C AF 00 |14:.ET.8.68..,..|
00001070: 8B 45 4E B2 36 32 A7 8D 34 31 36 3A 89 36 38 00 |.EN.62..416:.68.|
00001080: 9A 2C B0 00 84 35 2C 52 2C 46 2C 58 3A 8D 34 31 |.,...5,R,F,X:.41|
00001090: 34 3A 8B 45 54 B2 38 A7 36 38 00 CD 2C B1 00 8D |4:.ET.8.68..,...|
000010A0: 32 34 3A 8D 32 36 3A 81 4E B2 31 A4 46 3A 84 35 |24:.26:.N.1.F:.5|
000010B0: 2C 46 24 28 4E 29 2C 4C 25 28 4E 29 3A 82 4E 3A |,F$(N),L%(N):.N:|
000010C0: 8D 34 31 34 3A 8B 45 54 B2 38 A7 36 38 00 F8 2C |.414:.ET.8.68..,|
000010D0: B2 00 81 49 B2 31 A4 58 3A 99 A3 32 39 29 22 11 |...I.1.X:..29)".|
000010E0: D2 45 41 44 49 4E 47 20 52 45 43 4F 52 44 20 23 |.EADING RECORD #|
000010F0: 22 3B 49 3B 22 91 91 22 00 26 2D B4 00 81 4E B2 |";I;"..".&-...N.|
00001100: 31 A4 46 3A 84 35 2C 52 45 43 24 28 49 2C 4E 29 |1.F:.5,REC$(I,N)|
00001110: 3A 82 4E 3A 82 49 3A 99 3A 8D 34 31 34 3A 8B 45 |:.N:.I:.:.414:.E|
00001120: 54 B2 38 A7 36 38 00 5D 2D B6 00 81 49 B2 31 A4 |T.8.68.]-...I.1.|
00001130: 58 3A 99 A3 32 39 29 22 11 D2 45 41 44 49 4E 47 |X:..29)"..EADING|
00001140: 20 50 4F 49 4E 54 45 52 53 22 3B 49 3B 22 91 91 | POINTERS";I;"..|
00001150: 22 3A 84 35 2C 4B 25 28 49 29 3A 82 49 00 70 2D |":.5,K%(I):.I.p-|
00001160: B8 00 53 B2 53 54 3A 8B 53 B3 B1 30 A7 31 38 38 |..S.ST:.S..0.188|
00001170: 00 88 2D BA 00 84 35 2C 45 24 3A 8D 34 31 34 3A |..-...5,E$:.414:|
00001180: 8B 45 54 B2 38 A7 36 38 00 97 2D BC 00 A0 35 3A |.ET.8.68..-...5:|
00001190: A0 31 35 3A 89 36 30 00 A3 2D BE 00 8F 2D 2D 56 |.15:.60..-...--V|
000011A0: 49 45 57 00 AB 2D C0 00 49 B2 31 00 B3 2D C1 00 |IEW..-..I.1..-..|
000011B0: 49 B2 31 00 C9 2D C2 00 8B 49 B2 30 A7 8D 33 34 |I.1..-...I.0..34|
000011C0: 38 3A FE 0B 32 3A 89 36 38 00 DF 2D C4 00 8B 49 |8:..2:.68..-...I|
000011D0: B1 58 A7 8D 33 34 38 3A FE 0B 32 3A 89 36 38 00 |.X..348:..2:.68.|
000011E0: 4E 2E C5 00 99 47 52 24 22 13 13 93 A4 A4 A4 A4 |N....GR$".......|
000011F0: A4 20 D4 49 45 52 52 41 C2 41 53 45 20 A4 A4 A4 |. .IERRA.ASE ...|
00001200: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00001210: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 20 D6 |.............. .|
00001220: 49 45 57 20 C9 4E 44 49 56 49 44 55 41 4C 20 D2 |IEW .NDIVIDUAL .|
00001230: 45 43 4F 52 44 53 20 A4 A4 A4 A4 A4 22 4C 54 24 |ECORDS ....."LT$|
00001240: 3A FE 1A 30 2C 32 2C 37 39 2C 32 34 2C 31 00 82 |:..0,2,79,24,1..|
00001250: 2E C6 00 99 A3 32 35 29 22 11 11 12 D2 45 43 4F |.....25)"....ECO|
00001260: 52 44 20 4E 55 4D 42 45 52 3A 22 AA C4 28 49 29 |RD NUMBER:"..(I)|
00001270: AA 22 20 20 C6 49 4C 45 3A 22 AA 4E 46 24 AA 22 |." .ILE:".NF$."|
00001280: 11 22 00 BA 2E C8 00 81 4E B2 31 A4 46 3A 99 A3 |."......N.1.F:..|
00001290: 32 32 29 3B 46 24 28 4E 29 A6 53 31 AB C3 28 46 |22);F$(N).S1..(F|
000012A0: 24 28 4E 29 29 29 22 20 12 22 52 45 43 24 28 4B |$(N)))" ."REC$(K|
000012B0: 25 28 49 29 2C 4E 29 3A 82 4E 00 FC 2E CA 00 99 |%(I),N):.N......|
000012C0: 47 52 24 A3 32 31 29 22 11 11 12 CE 92 45 58 54 |GR$.21)".....EXT|
000012D0: 2C 20 12 CC 92 41 53 54 2C 20 12 CA 92 55 4D 50 |, ...AST, ...UMP|
000012E0: 2C 20 12 C6 92 49 4E 44 2C 20 12 C5 92 58 49 54 |, ...IND, ...XIT|
000012F0: 20 54 4F 20 4D 45 4E 55 22 4C 54 24 00 17 2F CC | TO MENU"LT$../.|
00001300: 00 8D 33 30 3A 8B 41 24 B2 22 4E 22 A7 49 B2 49 |..30:.A$."N".I.I|
00001310: AA 31 3A 89 31 39 34 00 2E 2F CE 00 8B 41 24 B2 |.1:.194../...A$.|
00001320: 22 4C 22 A7 49 B2 49 AB 31 3A 89 31 39 34 00 3E |"L".I.I.1:.194.>|
00001330: 2F D0 00 8B 41 24 B2 22 4A 22 A7 32 31 36 00 4E |/...A$."J".216.N|
00001340: 2F D2 00 8B 41 24 B2 22 46 22 A7 32 31 38 00 5D |/...A$."F".218.]|
00001350: 2F D4 00 8B 41 24 B2 22 45 22 A7 36 38 00 66 2F |/...A$."E".68.f/|
00001360: D6 00 89 32 30 34 00 92 2F D8 00 99 A3 32 38 29 |...204../....28)|
00001370: 3B 3A 85 22 11 CA 55 4D 50 20 54 4F 20 52 45 43 |;:."..UMP TO REC|
00001380: 4F 52 44 20 4E 55 4D 42 45 52 22 3B 49 3A 89 31 |ORD NUMBER";I:.1|
00001390: 39 34 00 03 30 DA 00 99 47 52 24 22 13 13 93 A4 |94..0...GR$"....|
000013A0: A4 A4 A4 A4 20 D4 49 45 52 52 41 C2 41 53 45 20 |.... .IERRA.ASE |
000013B0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000013C0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 20 C6 49 4E 44 20 |.......... .IND |
000013D0: D2 45 43 4F 52 44 53 20 D7 49 54 48 20 C3 4F 4D |.ECORDS .ITH .OM|
000013E0: 4D 4F 4E 20 C9 54 45 4D 53 20 A4 A4 A4 A4 A4 22 |MON .TEMS ....."|
000013F0: 4C 54 24 3A FE 1A 30 2C 32 2C 37 39 2C 32 34 2C |LT$:..0,2,79,24,|
00001400: 31 3A 99 00 27 30 DC 00 81 4E B2 31 A4 46 3A 99 |1:..'0...N.1.F:.|
00001410: A3 32 30 29 22 12 22 3B 4E 3B 22 92 20 22 3B 46 |.20)".";N;". ";F|
00001420: 24 28 4E 29 3A 82 4E 00 69 30 DE 00 99 A3 32 30 |$(N):.N.i0....20|
00001430: 29 3B 3A 85 22 11 11 D7 48 49 43 48 20 46 49 45 |);:."...HICH FIE|
00001440: 4C 44 20 49 53 20 54 4F 20 42 45 20 53 45 41 52 |LD IS TO BE SEAR|
00001450: 43 48 45 44 3F 20 30 20 9D 9D 9D 9D 22 3B 53 46 |CHED? 0 ....";SF|
00001460: 3A 8B 53 46 B2 30 A7 36 38 00 84 30 E0 00 8B 53 |:.SF.0.68..0...S|
00001470: 46 B3 31 B0 53 46 B1 46 A7 99 22 91 91 91 22 3A |F.1.SF.F.."...":|
00001480: 89 32 32 32 00 D9 30 E2 00 99 A3 32 30 29 22 11 |.222..0....20)".|
00001490: C5 4E 54 45 52 20 12 20 C3 4F 4D 4D 4F 4E 20 C9 |.NTER . .OMMON .|
000014A0: 54 45 4D 20 92 20 22 3A 99 A3 32 30 29 22 11 CE |TEM . ":..20)"..|
000014B0: 4F 54 45 3A 20 28 D4 48 45 20 45 4E 54 49 52 45 |OTE: (.HE ENTIRE|
000014C0: 20 53 54 52 49 4E 47 20 49 53 20 4E 4F 54 20 52 | STRING IS NOT R|
000014D0: 45 51 55 49 52 45 44 29 22 00 02 31 E4 00 99 A3 |EQUIRED)"..1....|
000014E0: 32 30 29 22 11 12 22 3B 46 24 28 53 46 29 3B 22 |20)"..";F$(SF);"|
000014F0: 92 20 22 3B 3A 85 54 24 3A 8B 54 24 B2 44 24 A7 |. ";:.T$:.T$.D$.|
00001500: 36 38 00 2D 31 E6 00 81 49 B2 31 A4 58 3A 99 A3 |68.-1...I.1.X:..|
00001510: 32 32 29 22 11 D3 45 41 52 43 48 49 4E 47 20 52 |22)"..EARCHING R|
00001520: 45 43 4F 52 44 22 3B 49 3B 22 91 91 22 00 51 31 |ECORD";I;"..".Q1|
00001530: E8 00 8B 54 24 B2 C8 28 52 45 43 24 28 4B 25 28 |...T$..(REC$(K%(|
00001540: 49 29 2C 53 46 29 2C C3 28 54 24 29 29 A7 32 33 |I),SF),.(T$)).23|
00001550: 36 00 5A 31 EA 00 89 32 34 32 00 7C 31 EC 00 99 |6.Z1...242.|1...|
00001560: 22 93 22 A3 32 30 29 22 11 11 12 20 D2 45 43 4F |".".20)"... .ECO|
00001570: 52 44 20 23 22 3B 49 3B 22 92 11 22 00 B3 31 ED |RD #";I;".."..1.|
00001580: 00 81 4E B2 31 A4 46 3A 99 A3 32 32 29 46 24 28 |..N.1.F:..22)F$(|
00001590: 4E 29 A6 53 31 AB C3 28 46 24 28 4E 29 29 29 22 |N).S1..(F$(N)))"|
000015A0: 20 12 22 52 45 43 24 28 4B 25 28 49 29 2C 4E 29 | ."REC$(K%(I),N)|
000015B0: 3A 82 4E 00 08 32 EE 00 99 47 52 24 22 11 11 20 |:.N..2...GR$".. |
000015C0: 20 20 20 20 20 20 12 CE 92 45 58 54 20 49 4E 43 | ...EXT INC|
000015D0: 49 44 45 4E 43 45 20 4F 46 20 52 45 43 4F 52 44 |IDENCE OF RECORD|
000015E0: 2D 2D 2D 2D 2D C1 4E 59 20 4F 54 48 45 52 20 4B |-----.NY OTHER K|
000015F0: 45 59 20 57 49 4C 4C 20 41 42 4F 52 54 20 53 45 |EY WILL ABORT SE|
00001600: 41 52 43 48 22 4C 54 24 00 1B 32 EF 00 A1 41 24 |ARCH"LT$..2...A$|
00001610: 3A 8B 41 24 B2 22 22 A7 32 33 39 00 2F 32 F1 00 |:.A$."".239./2..|
00001620: 8B 41 24 B2 22 4E 22 A7 32 34 32 3A D5 36 38 00 |.A$."N".242:.68.|
00001630: 3A 32 F2 00 82 49 3A 89 36 38 00 48 32 F3 00 8F |:2...I:.68.H2...|
00001640: 2D 2D 4D 4F 44 49 46 59 00 B7 32 F4 00 99 47 52 |--MODIFY..2...GR|
00001650: 24 22 13 13 93 A4 A4 A4 A4 A4 20 D4 49 45 52 52 |$"........ .IERR|
00001660: 41 C2 41 53 45 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |A.ASE ..........|
00001670: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00001680: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00001690: 20 CD 4F 44 49 46 59 20 D2 45 43 4F 52 44 53 20 | .ODIFY .ECORDS |
000016A0: A4 A4 A4 A4 A4 22 4C 54 24 3A FE 1A 30 2C 32 2C |....."LT$:..0,2,|
000016B0: 37 39 2C 32 34 2C 31 00 43 33 F5 00 99 A3 31 37 |79,24,1.C3....17|
000016C0: 29 22 11 11 11 CD 4F 44 49 46 59 20 57 48 49 43 |)"....ODIFY WHIC|
000016D0: 48 20 52 45 43 4F 52 44 3F 20 45 4E 54 45 52 20 |H RECORD? ENTER |
000016E0: 12 23 92 20 4F 52 20 12 C1 92 4C 4C 11 11 22 3A |.#. OR ...LL..":|
000016F0: 99 22 11 20 20 20 20 20 20 12 20 CE 4F 54 45 20 |.". . .OTE |
00001700: 92 3A 20 C3 48 4F 4F 53 49 4E 47 20 27 C1 4C 4C |.: .HOOSING '.LL|
00001710: 27 20 57 49 4C 4C 20 43 4F 4D 4D 49 54 20 59 4F |' WILL COMMIT YO|
00001720: 55 20 54 4F 20 50 52 4F 43 45 53 53 49 4E 47 20 |U TO PROCESSING |
00001730: 54 48 45 20 45 4E 54 49 52 45 20 46 49 4C 45 2E |THE ENTIRE FILE.|
00001740: 11 11 22 00 5E 33 F6 00 99 A3 31 36 29 3B 3A 85 |..".^3....16);:.|
00001750: 4D 52 24 3A 8B 4D 52 24 B2 44 24 A7 36 38 00 77 |MR$:.MR$.D$.68.w|
00001760: 33 F7 00 8B 4D 52 24 B2 22 41 22 A7 4D 52 24 B2 |3...MR$."A".MR$.|
00001770: 44 24 3A 89 32 35 34 00 8B 33 F8 00 49 B2 C5 28 |D$:.254..3..I..(|
00001780: 4D 52 24 29 3A 4D 52 24 B2 44 24 00 9E 33 FA 00 |MR$):MR$.D$..3..|
00001790: 8B 49 B1 58 A7 8D 33 34 38 3A 89 32 34 34 00 AB |.I.X..348:.244..|
000017A0: 33 FC 00 8D 32 35 36 3A 89 36 38 00 C2 33 FE 00 |3...256:.68..3..|
000017B0: 81 49 B2 31 A4 58 3A 8D 32 35 36 3A 82 49 3A 89 |.I.1.X:.256:.I:.|
000017C0: 36 38 00 F3 33 00 01 99 22 93 11 11 D4 4F 20 4D |68..3..."....O M|
000017D0: 4F 44 49 46 59 20 52 45 43 4F 52 44 20 23 22 3B |ODIFY RECORD #";|
000017E0: 49 3B 22 2C 20 4D 41 4B 45 20 43 48 41 4E 47 45 |I;", MAKE CHANGE|
000017F0: 53 22 3B 00 26 34 02 01 99 22 20 41 53 20 45 41 |S";.&4..." AS EA|
00001800: 43 48 20 46 49 45 4C 44 20 49 53 20 44 49 53 50 |CH FIELD IS DISP|
00001810: 4C 41 59 45 44 2C 20 54 48 45 4E 20 12 D2 45 54 |LAYED, THEN ..ET|
00001820: 55 52 4E 92 11 22 00 58 34 04 01 81 4E B2 31 A4 |URN..".X4...N.1.|
00001830: 46 3A 99 A3 32 30 29 3B 46 24 28 4E 29 22 3A 22 |F:..20);F$(N)":"|
00001840: 3A 99 A3 32 34 29 3B 22 12 22 3B 52 45 43 24 28 |:..24);".";REC$(|
00001850: 4B 25 28 49 29 2C 4E 29 00 7C 34 05 01 8B C3 28 |K%(I),N).|4....(|
00001860: 52 45 43 24 28 4B 25 28 49 29 2C 4E 29 29 B1 33 |REC$(K%(I),N)).3|
00001870: 36 A7 99 A3 32 32 29 3B 22 91 22 3B 00 99 34 06 |6...22);".";..4.|
00001880: 01 99 A3 32 32 29 22 91 22 3B 3A 85 52 45 43 24 |...22)".";:.REC$|
00001890: 28 4B 25 28 49 29 2C 4E 29 00 BF 34 08 01 8B C3 |(K%(I),N)..4....|
000018A0: 28 52 45 43 24 28 4B 25 28 49 29 2C 4E 29 29 B1 |(REC$(K%(I),N)).|
000018B0: 4C 25 28 4E 29 A7 8D 31 34 30 3A 89 32 36 30 00 |L%(N)..140:.260.|
000018C0: E7 34 0A 01 8B 52 45 43 24 28 4B 25 28 49 29 2C |.4...REC$(K%(I),|
000018D0: 4E 29 B2 22 22 A7 52 45 43 24 28 4B 25 28 49 29 |N)."".REC$(K%(I)|
000018E0: 2C 4E 29 B2 22 3E 22 00 04 35 0B 01 8B 52 45 43 |,N).">"..5...REC|
000018F0: 24 28 4B 25 28 49 29 2C 4E 29 B2 C7 28 32 37 29 |$(K%(I),N)..(27)|
00001900: A7 89 36 38 00 12 35 0C 01 82 4E 3A 43 4B B2 31 |..68..5...N:CK.1|
00001910: 3A 8E 00 20 35 0E 01 8F 2D 2D 44 45 4C 45 54 45 |:.. 5...--DELETE|
00001920: 00 8F 35 10 01 99 47 52 24 22 13 13 93 A4 A4 A4 |..5...GR$"......|
00001930: A4 A4 20 D4 49 45 52 52 41 C2 41 53 45 20 A4 A4 |.. .IERRA.ASE ..|
00001940: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00001950: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00001960: A4 A4 A4 A4 A4 A4 A4 A4 20 C4 45 4C 45 54 45 20 |........ .ELETE |
00001970: D2 45 43 4F 52 44 53 20 A4 A4 A4 A4 A4 22 4C 54 |.ECORDS ....."LT|
00001980: 24 3A FE 1A 30 2C 32 2C 37 39 2C 32 34 2C 31 00 |$:..0,2,79,24,1.|
00001990: C7 35 11 01 99 A3 31 39 29 22 11 11 11 C4 45 4C |.5....19)"....EL|
000019A0: 45 54 45 20 D7 48 49 43 48 20 D2 45 43 4F 52 44 |ETE .HICH .ECORD|
000019B0: 3F 20 C5 4E 54 45 52 20 12 23 92 20 4F 52 20 12 |? .NTER .#. OR .|
000019C0: C1 92 4C 4C 11 11 22 00 E2 35 12 01 99 A3 31 38 |..LL.."..5....18|
000019D0: 29 3B 3A 85 44 52 24 3A 8B 44 52 24 B2 44 24 A7 |);:.DR$:.DR$.D$.|
000019E0: 36 38 00 FB 35 14 01 8B 44 52 24 B2 22 41 22 A7 |68..5...DR$."A".|
000019F0: 44 52 24 B2 44 24 3A 89 32 38 32 00 1E 36 16 01 |DR$.D$:.282..6..|
00001A00: 49 B2 C5 28 44 52 24 29 3A 44 52 24 B2 44 24 3A |I..(DR$):DR$.D$:|
00001A10: 8B 49 B1 58 A7 8D 33 34 38 3A 89 32 37 34 00 2B |.I.X..348:.274.+|
00001A20: 36 18 01 8D 32 38 34 3A 89 36 38 00 42 36 1A 01 |6...284:.68.B6..|
00001A30: 81 49 B2 31 A4 58 3A 8D 32 38 34 3A 82 49 3A 89 |.I.1.X:.284:.I:.|
00001A40: 36 38 00 76 36 1C 01 99 22 93 11 11 11 20 20 20 |68.v6...".... |
00001A50: 20 D4 4F 20 C4 45 4C 45 54 45 20 D2 45 43 4F 52 | .O .ELETE .ECOR|
00001A60: 44 20 CE 55 4D 42 45 52 22 3B 49 3B 22 2C 20 D0 |D .UMBER";I;", .|
00001A70: 52 45 53 53 22 3B 00 A9 36 1E 01 99 22 20 12 D3 |RESS";..6..." ..|
00001A80: 48 49 46 54 92 20 12 C4 92 2C 20 D0 52 45 53 53 |HIFT. ..., .RESS|
00001A90: 20 12 D3 50 41 43 45 20 42 41 52 92 20 54 4F 20 | ..PACE BAR. TO |
00001AA0: 41 44 56 41 4E 43 45 11 22 00 E1 36 20 01 81 4E |ADVANCE."..6 ..N|
00001AB0: B2 31 A4 46 3A 99 A3 32 30 29 3B 46 24 28 4E 29 |.1.F:..20);F$(N)|
00001AC0: A6 53 31 AB C3 28 46 24 28 4E 29 29 29 22 20 12 |.S1..(F$(N)))" .|
00001AD0: 22 52 45 43 24 28 4B 25 28 49 29 2C 4E 29 3A 82 |"REC$(K%(I),N):.|
00001AE0: 4E 00 01 37 22 01 8D 33 30 3A 8B 41 24 B2 22 C4 |N..7"..30:.A$.".|
00001AF0: 22 A7 32 39 34 3A 8F 20 53 48 49 46 54 45 44 20 |".294:. SHIFTED |
00001B00: 44 00 0C 37 24 01 43 4B B2 31 3A 8E 00 54 37 26 |D..7$.CK.1:..T7&|
00001B10: 01 99 A3 32 36 29 22 11 11 C4 45 4C 45 54 49 4E |...26)"...ELETIN|
00001B20: 47 20 D2 45 43 4F 52 44 22 3B 49 3A 99 A3 32 32 |G .ECORD";I:..22|
00001B30: 29 22 11 12 D2 45 43 4F 52 44 53 20 4D 41 59 20 |)"...ECORDS MAY |
00001B40: 4E 4F 57 20 42 45 20 4F 55 54 20 4F 46 20 4F 52 |NOW BE OUT OF OR|
00001B50: 44 45 52 22 00 87 37 28 01 81 4E B2 31 A4 46 3A |DER"..7(..N.1.F:|
00001B60: 52 45 43 24 28 4B 25 28 49 29 2C 4E 29 B2 52 45 |REC$(K%(I),N).RE|
00001B70: 43 24 28 58 2C 4E 29 3A 52 45 43 24 28 58 2C 4E |C$(X,N):REC$(X,N|
00001B80: 29 B2 22 22 3A 82 4E 00 BA 37 2A 01 81 4A B2 31 |)."":.N..7*..J.1|
00001B90: A4 58 3A 8B 4B 25 28 4A 29 B2 58 A7 4B 25 28 4A |.X:.K%(J).X.K%(J|
00001BA0: 29 B2 4B 25 28 58 29 3A 4B 25 28 58 29 B2 30 3A |).K%(X):K%(X).0:|
00001BB0: 58 B2 58 AB 31 3A 89 32 39 32 00 C1 37 2C 01 82 |X.X.1:.292..7,..|
00001BC0: 4A 00 CD 37 2E 01 8F 2D 2D 53 4F 52 54 00 3C 38 |J..7...--SORT.<8|
00001BD0: 30 01 99 47 52 24 22 13 13 93 A4 A4 A4 A4 A4 20 |0..GR$"........ |
00001BE0: D4 49 45 52 52 41 C2 41 53 45 20 A4 A4 A4 A4 A4 |.IERRA.ASE .....|
00001BF0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00001C00: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00001C10: A4 A4 A4 A4 A4 20 D2 45 43 4F 52 44 20 D3 4F 52 |..... .ECORD .OR|
00001C20: 54 49 4E 47 20 A4 A4 A4 A4 A4 22 4C 54 24 3A FE |TING ....."LT$:.|
00001C30: 1A 30 2C 32 2C 37 39 2C 32 34 2C 31 00 79 38 32 |.0,2,79,24,1.y82|
00001C40: 01 99 22 11 11 11 22 3A 81 20 4E B2 31 A4 46 3A |.."...":. N.1.F:|
00001C50: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00001C60: 20 20 20 20 20 20 20 12 22 3B 4E 3B 22 92 20 22 | .";N;". "|
00001C70: 3B 46 24 28 4E 29 3A 82 4E 00 B9 38 34 01 99 A3 |;F$(N):.N..84...|
00001C80: 32 32 29 3B 3A 85 22 11 11 D7 48 49 43 48 20 C6 |22);:."...HICH .|
00001C90: 49 45 4C 44 20 C9 53 20 D4 4F 20 C2 45 20 D3 4F |IELD .S .O .E .O|
00001CA0: 52 54 45 44 3F 20 30 20 9D 9D 9D 9D 22 3B 53 46 |RTED? 0 ....";SF|
00001CB0: 3A 8B 53 46 B2 30 A7 36 38 00 D0 38 36 01 8B 53 |:.SF.0.68..86..S|
00001CC0: 46 B1 46 20 A7 99 22 91 91 91 22 3A 89 33 30 38 |F.F .."...":.308|
00001CD0: 00 F0 38 38 01 99 A3 33 30 29 22 11 11 12 D0 4C |..88...30)"....L|
00001CE0: 45 41 53 45 20 57 41 49 54 92 11 22 3A 4D B2 58 |EASE WAIT..":M.X|
00001CF0: 00 0B 39 3A 01 4D B2 B5 28 4D AD 32 29 3A 8B 4D |..9:.M..(M.2):.M|
00001D00: B2 30 A7 43 4B B2 31 3A 89 36 38 00 19 39 3C 01 |.0.CK.1:.68..9<.|
00001D10: 4A B2 31 3A 4B B2 58 AB 4D 00 21 39 3E 01 49 B2 |J.1:K.X.M.!9>.I.|
00001D20: 4A 00 2B 39 40 01 4C B2 49 AA 4D 00 50 39 42 01 |J.+9@.L.I.M.P9B.|
00001D30: 99 A3 33 30 29 22 D3 4F 52 54 49 4E 47 20 20 20 |..30)".ORTING |
00001D40: 20 20 20 20 9D 9D 9D 9D 9D 22 3B 49 3B 22 91 22 | .....";I;"."|
00001D50: 00 7A 39 44 01 8B 20 52 45 43 24 28 4B 25 28 49 |.z9D.. REC$(K%(I|
00001D60: 29 2C 53 46 29 B3 B2 52 45 43 24 28 4B 25 28 4C |),SF)..REC$(K%(L|
00001D70: 29 2C 53 46 29 20 A7 33 32 38 00 B1 39 46 01 54 |),SF) .328..9F.T|
00001D80: 25 28 4E 29 B2 4B 25 28 49 29 3A 4B 25 28 49 29 |%(N).K%(I):K%(I)|
00001D90: B2 4B 25 28 4C 29 3A 4B 25 28 4C 29 B2 54 25 28 |.K%(L):K%(L).T%(|
00001DA0: 4E 29 3A 49 B2 49 AB 4D 3A 8B 49 B1 30 A7 33 32 |N):I.I.M:.I.0.32|
00001DB0: 30 00 C4 39 48 01 4A B2 4A AA 31 3A 8B 4A B1 4B |0..9H.J.J.1:.J.K|
00001DC0: A7 33 31 34 00 CD 39 4A 01 89 33 31 38 00 D9 39 |.314..9J..318..9|
00001DD0: 4C 01 8F 2D 2D 51 55 49 54 00 1B 3A 4E 01 99 22 |L..--QUIT..:N.."|
00001DE0: 13 13 93 22 47 52 24 A3 32 33 29 22 11 11 0F 96 |..."GR$.23)"....|
00001DF0: 12 D9 4F 55 20 48 41 56 45 20 4E 4F 54 20 53 41 |..OU HAVE NOT SA|
00001E00: 56 45 44 20 59 4F 55 52 20 43 48 41 4E 47 45 53 |VED YOUR CHANGES|
00001E10: 21 22 C7 28 31 34 33 29 4C 54 24 00 51 3A 50 01 |!".(143)LT$.Q:P.|
00001E20: 99 4C 54 24 A3 32 33 29 22 11 11 C4 4F 20 59 4F |.LT$.23)"...O YO|
00001E30: 55 20 52 45 41 4C 4C 59 20 57 41 4E 54 20 54 4F |U REALLY WANT TO|
00001E40: 20 51 55 49 54 3F 20 12 D9 92 20 4F 52 20 12 CE | QUIT? ... OR ..|
00001E50: 92 00 66 3A 52 01 8D 33 30 3A 8B 41 24 B2 22 59 |..f:R..30:.A$."Y|
00001E60: 22 20 A7 33 34 34 00 6E 3A 54 01 89 36 38 00 7D |" .344.n:T..68.}|
00001E70: 3A 56 01 8B 43 4B B3 B1 30 A7 33 33 34 00 87 3A |:V..CK..0.334..:|
00001E80: 58 01 89 38 30 30 30 00 9A 3A 5A 01 8F 2D 2D 45 |X..8000..:Z..--E|
00001E90: 52 52 4F 52 20 43 48 45 43 4B 00 C2 3A 5C 01 99 |RROR CHECK..:\..|
00001EA0: A3 32 39 29 22 11 96 CE 4F 20 53 55 43 48 20 52 |.29)"...O SUCH R|
00001EB0: 45 43 4F 52 44 20 45 58 49 53 54 53 22 4C 54 24 |ECORD EXISTS"LT$|
00001EC0: 3A 8E 00 CD 3A 5E 01 8B 52 B1 30 A7 8E 00 07 3B |:...:^..R.0....;|
00001ED0: 60 01 99 A3 32 32 29 22 11 96 12 20 20 20 20 CE |`...22)"... .|
00001EE0: 4F 20 52 45 43 4F 52 44 53 20 4F 52 20 46 49 4C |O RECORDS OR FIL|
00001EF0: 45 53 20 49 4E 20 4D 45 4D 4F 52 59 20 20 20 20 |ES IN MEMORY |
00001F00: 20 92 20 22 4C 54 24 00 1E 3B 61 01 81 49 B2 31 | . "LT$..;a..I.1|
00001F10: A4 35 30 30 3A 82 49 3A 46 4C B2 31 3A 8E 00 29 |.500:.I:FL.1:..)|
00001F20: 3B 62 01 8B 58 B1 30 A7 8E 00 34 3B 63 01 8D 33 |;b..X.0...4;c..3|
00001F30: 35 32 3A 8E 00 46 3B 64 01 8F 2D 2D 4C 4F 41 44 |52:..F;d..--LOAD|
00001F40: 20 50 52 49 4E 54 00 B1 3B 66 01 99 47 52 24 22 | PRINT..;f..GR$"|
00001F50: 13 13 93 A4 A4 A4 A4 A4 20 D4 49 45 52 52 41 C2 |........ .IERRA.|
00001F60: 41 53 45 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |ASE ............|
00001F70: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00001F80: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 20 D0 52 49 4E 54 |.......... .RINT|
00001F90: 20 D2 4F 55 54 49 4E 45 53 20 A4 A4 A4 A4 A4 22 | .OUTINES ....."|
00001FA0: 4C 54 24 3A FE 1A 30 2C 32 2C 37 39 2C 32 34 2C |LT$:..0,2,79,24,|
00001FB0: 31 00 D2 3B 68 01 99 A3 32 33 29 22 11 11 D0 52 |1..;h...23)"...R|
00001FC0: 49 4E 54 20 D2 45 43 4F 52 44 53 20 D5 53 49 4E |INT .ECORDS .SIN|
00001FD0: 47 3A 00 F1 3B 6A 01 99 A3 32 37 29 22 11 12 D2 |G:..;j...27)"...|
00001FE0: 92 45 50 4F 52 54 53 20 41 4E 44 20 4C 49 53 54 |.EPORTS AND LIST|
00001FF0: 53 00 0D 3C 6C 01 99 A3 32 37 29 22 11 12 CD 92 |S..<l...27)"....|
00002000: 41 49 4C 49 4E 47 20 4C 41 42 45 4C 53 00 36 3C |AILING LABELS.6<|
00002010: 6D 01 8F 20 50 52 49 4E 54 54 41 42 28 32 37 29 |m.. PRINTTAB(27)|
00002020: 22 11 12 C3 92 41 4C 43 55 4C 41 54 45 44 20 52 |"....ALCULATED R|
00002030: 45 50 4F 52 54 53 00 5B 3C 6E 01 99 A3 32 37 29 |EPORTS.[<n...27)|
00002040: 22 11 12 D5 92 53 45 52 20 44 45 46 49 4E 45 44 |"....SER DEFINED|
00002050: 20 53 55 42 50 52 4F 47 52 41 4D 00 7A 3C 70 01 | SUBPROGRAM.z<p.|
00002060: 99 A3 32 37 29 22 11 12 C5 92 58 49 54 20 54 4F |..27)"....XIT TO|
00002070: 20 4D 41 49 4E 20 4D 45 4E 55 00 BE 3C 72 01 99 | MAIN MENU..<r..|
00002080: 47 52 24 A3 32 33 29 22 11 0F 12 20 20 20 20 20 |GR$.23)"... |
00002090: 20 D0 52 45 53 53 20 54 48 45 20 41 50 50 52 4F | .RESS THE APPRO|
000020A0: 50 52 49 41 54 45 20 4B 45 59 20 20 20 20 20 20 |PRIATE KEY |
000020B0: 92 22 4C 54 24 3B 3A 99 C7 28 31 34 33 29 00 D3 |."LT$;:..(143)..|
000020C0: 3C 74 01 8D 33 30 3A 8B 41 24 B2 22 52 22 A7 33 |<t..30:.A$."R".3|
000020D0: 30 32 30 00 E3 3C 75 01 8B 41 24 B2 22 43 22 A7 |020..<u..A$."C".|
000020E0: 33 38 35 00 F2 3C 76 01 8B 41 24 B2 22 45 22 A7 |385..<v..A$."E".|
000020F0: 36 38 00 02 3D 78 01 8B 41 24 B2 22 55 22 A7 33 |68..=x..A$."U".3|
00002100: 38 36 00 13 3D 7A 01 8B 41 24 B2 22 4D 22 A7 36 |86..=z..A$."M".6|
00002110: 30 32 30 00 1C 3D 7C 01 89 33 37 32 00 56 3D 81 |020..=|..372.V=.|
00002120: 01 8F 5D 50 52 49 4E 54 22 93 11 11 11 20 20 20 |..]PRINT".... |
00002130: CC 4F 41 44 49 4E 47 20 D0 52 41 43 54 49 43 41 |.OADING .RACTICA|
00002140: 4C 43 22 3A 4C 4F 41 44 22 50 52 41 43 54 49 43 |LC":LOAD"PRACTIC|
00002150: 41 4C 43 22 2C 38 00 7E 3D 82 01 99 A3 32 31 29 |ALC",8.~=....21)|
00002160: 22 93 11 11 11 C5 4E 54 45 52 20 4E 41 4D 45 20 |".....NTER NAME |
00002170: 4F 46 20 53 55 42 50 52 4F 47 52 41 4D 22 00 A4 |OF SUBPROGRAM"..|
00002180: 3D 84 01 99 A3 32 30 29 22 11 22 3B 53 42 24 3A |=....20)".";SB$:|
00002190: 85 22 91 22 3B 53 42 24 3A 8B 53 42 24 B2 44 24 |.".";SB$:.SB$.D$|
000021A0: A7 33 35 38 00 DE 3D 85 01 9F 31 35 2C 38 2C 31 |.358..=...15,8,1|
000021B0: 35 3A 9F 35 2C 38 2C 35 2C 22 30 3A 22 AA 53 42 |5:.5,8,5,"0:".SB|
000021C0: 24 AA 22 2C 50 2C 52 22 3A 8D 34 31 34 3A 8B 45 |$.",P,R":.414:.E|
000021D0: 4E B2 36 32 A7 8D 34 31 36 3A 89 33 35 38 00 F0 |N.62..416:.358..|
000021E0: 3D 86 01 A0 35 3A A0 31 35 3A 93 53 42 24 2C 38 |=...5:.15:.SB$,8|
000021F0: 00 FF 3D 88 01 8F 2D 2D 57 41 52 4E 49 4E 47 00 |..=...--WARNING.|
00002200: 4F 3E 8A 01 99 22 93 22 A3 31 36 29 22 11 0F 96 |O>...".".16)"...|
00002210: D7 C1 D2 CE C9 CE C7 22 C7 28 31 34 33 29 4C 54 |.......".(143)LT|
00002220: 24 22 20 20 20 12 D4 48 49 53 20 57 49 4C 4C 20 |$" ..HIS WILL |
00002230: 44 45 53 54 52 4F 59 20 54 48 45 20 46 49 4C 45 |DESTROY THE FILE|
00002240: 20 49 4E 20 4D 45 4D 4F 52 59 21 22 4C 54 24 00 | IN MEMORY!"LT$.|
00002250: 7C 3E 8B 01 99 A3 32 32 29 22 11 11 D3 41 56 45 ||>....22)"...AVE|
00002260: 20 54 48 45 20 46 49 4C 45 20 46 49 52 53 54 3F | THE FILE FIRST?|
00002270: 20 12 D9 92 20 4F 52 20 12 CE 92 22 00 8F 3E 8C | ... OR ..."..>.|
00002280: 01 A1 41 24 3A 8B 41 24 B2 22 22 A7 33 39 36 00 |..A$:.A$."".396.|
00002290: 9D 3E 8D 01 8B 41 24 B2 22 4E 22 A7 8E 00 AE 3E |.>...A$."N"....>|
000022A0: 8E 01 8B 41 24 B2 22 59 22 A7 89 31 34 34 00 C6 |...A$."Y"..144..|
000022B0: 3E 8F 01 8B 41 24 B3 B1 22 59 22 B0 41 24 B3 B1 |>...A$.."Y".A$..|
000022C0: 22 4E 22 A7 36 38 00 D6 3E 90 01 8F 2D 2D 4E 45 |"N".68..>...--NE|
000022D0: 57 20 44 49 53 4B 00 18 3F 92 01 99 22 93 22 A3 |W DISK..?...".".|
000022E0: 32 32 29 22 11 81 0F D7 C1 D2 CE C9 CE C7 22 C7 |22)"..........".|
000022F0: 28 31 34 33 29 4C 54 24 22 20 20 D4 48 49 53 20 |(143)LT$" .HIS |
00002300: 57 49 4C 4C 20 45 52 41 53 45 20 54 48 45 20 44 |WILL ERASE THE D|
00002310: 49 53 4B 21 22 4C 54 24 00 3D 3F 93 01 99 A3 32 |ISK!"LT$.=?....2|
00002320: 39 29 22 11 11 C1 52 45 20 59 4F 55 20 53 55 52 |9)"...RE YOU SUR|
00002330: 45 3F 20 12 D9 92 20 4F 52 20 12 CE 92 00 50 3F |E? ... OR ....P?|
00002340: 94 01 8D 33 30 3A 8B 41 24 B2 22 4E 22 A7 36 38 |...30:.A$."N".68|
00002350: 00 60 3F 96 01 8B 41 24 B3 B1 22 59 22 A7 36 38 |.`?...A$.."Y".68|
00002360: 00 94 3F 97 01 99 A3 32 37 29 22 11 D0 52 45 53 |..?....27)"..RES|
00002370: 53 20 12 D2 45 54 55 52 4E 92 20 57 49 54 48 4F |S ..ETURN. WITHO|
00002380: 55 54 20 41 4E 20 45 4E 54 52 59 20 54 4F 20 45 |UT AN ENTRY TO E|
00002390: 58 49 54 22 00 C5 3F 98 01 99 A3 32 37 29 3B 3A |XIT"..?....27);:|
000023A0: 85 22 11 12 C4 49 53 4B 20 4E 41 4D 45 2C 49 44 |."...ISK NAME,ID|
000023B0: 92 22 3B 48 4E 24 2C 49 44 24 3A 8B 48 4E 24 B2 |.";HN$,ID$:.HN$.|
000023C0: 44 24 A7 36 38 00 F8 3F 9A 01 9F 31 35 2C 38 2C |D$.68..?...15,8,|
000023D0: 31 35 3A 98 31 35 2C 22 4E 45 57 30 3A 22 AA 48 |15:.15,"NEW0:".H|
000023E0: 4E 24 AA 22 2C 22 49 44 24 3A 8D 34 31 34 3A 8B |N$.","ID$:.414:.|
000023F0: 45 54 B2 38 A7 34 36 32 00 05 40 9B 01 A0 31 35 |ET.8.462..@...15|
00002400: 3A 89 34 36 32 00 17 40 9C 01 8F 2D 2D 44 49 53 |:.462..@...--DIS|
00002410: 4B 20 45 52 52 4F 52 00 44 40 9E 01 84 31 35 2C |K ERROR.D@...15,|
00002420: 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 28 45 |EN,EM$,ET,ES:.(E|
00002430: 4E B3 32 30 29 B0 28 45 4E B2 36 32 29 A7 45 54 |N.20).(EN.62).ET|
00002440: B2 30 3A 8E 00 82 40 A0 01 99 A3 32 33 29 22 11 |.0:...@....23)".|
00002450: 0F 12 96 C4 49 53 4B 20 45 52 52 4F 52 92 22 45 |....ISK ERROR."E|
00002460: 4E 22 9D 2C 20 22 45 4D 24 22 2C 22 45 54 22 9D |N"., "EM$","ET".|
00002470: 2C 22 45 53 4C 54 24 C7 28 31 34 33 29 3A 45 54 |,"ESLT$.(143):ET|
00002480: B2 38 00 C0 40 A2 01 99 A3 32 33 29 4C 54 24 22 |.8..@....23)LT$"|
00002490: 11 D0 52 45 53 53 20 12 C1 4E 59 20 CB 45 59 92 |..RESS ..NY .EY.|
000024A0: 20 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 | TO RETURN TO ME|
000024B0: 4E 55 22 3A 8D 33 30 3A A0 35 3A A0 31 35 3A 8E |NU":.30:.5:.15:.|
000024C0: 00 D1 40 A4 01 8F 2D 2D 44 49 52 45 43 54 4F 52 |..@...--DIRECTOR|
000024D0: 59 00 FE 40 A6 01 9F 31 35 2C 38 2C 31 35 3A 9F |Y..@...15,8,15:.|
000024E0: 35 2C 38 2C 30 2C 22 24 30 22 3A 99 22 93 22 3A |5,8,0,"$0":.".":|
000024F0: 8D 34 31 34 3A 8B 45 54 B2 38 A7 34 36 32 00 0E |.414:.ET.8.462..|
00002500: 41 A8 01 A1 23 35 2C 41 31 24 2C 41 32 24 00 1E |A...#5,A1$,A2$..|
00002510: 41 AA 01 A1 23 35 2C 41 31 24 2C 41 32 24 00 2E |A...#5,A1$,A2$..|
00002520: 41 AC 01 A1 23 35 2C 41 31 24 2C 41 32 24 00 45 |A...#5,A1$,A2$.E|
00002530: 41 AE 01 8B 41 31 24 B3 B1 22 22 A7 41 30 B2 C6 |A...A1$.."".A0..|
00002540: 28 41 31 24 29 00 63 41 B0 01 8B 41 32 24 B3 B1 |(A1$).cA...A2$..|
00002550: 22 22 A7 41 30 B2 41 30 AA C6 28 41 32 24 29 AC |"".A0.A0..(A2$).|
00002560: 32 35 36 00 78 41 B2 01 99 CA 28 C4 28 41 30 29 |256.xA....(.(A0)|
00002570: 2C 32 29 3B A3 33 29 3B 00 8F 41 B4 01 A1 23 35 |,2);.3);..A...#5|
00002580: 2C 41 32 24 3A 8B 53 54 B3 B1 30 A7 34 35 34 00 |,A2$:.ST..0.454.|
00002590: A3 41 B6 01 8B 41 32 24 B3 B1 C7 28 33 34 29 A7 |.A...A2$...(34).|
000025A0: 34 33 36 00 CC 41 B8 01 A1 23 35 2C 41 32 24 3A |436..A...#5,A2$:|
000025B0: 8B 41 32 24 B3 B1 C7 28 33 34 29 A7 99 22 12 22 |.A2$...(34).."."|
000025C0: 41 32 24 22 92 22 3B 3A 89 34 34 30 00 E7 41 BA |A2$".";:.440..A.|
000025D0: 01 A1 23 35 2C 41 32 24 3A 8B 41 32 24 B2 C7 28 |..#5,A2$:.A2$..(|
000025E0: 33 32 29 A7 34 34 32 00 F9 41 BC 01 99 A3 32 30 |32).442..A....20|
000025F0: 29 3B 3A 41 33 24 B2 22 22 00 1E 42 BE 01 41 33 |);:A3$.""..B..A3|
00002600: 24 B2 41 33 24 AA 41 32 24 3A A1 23 35 2C 41 32 |$.A3$.A2$:.#5,A2|
00002610: 24 3A 8B 41 32 24 B3 B1 22 22 A7 34 34 36 00 2C |$:.A2$.."".446.,|
00002620: 42 C0 01 99 C8 28 41 33 24 2C 33 29 00 41 42 C2 |B....(A3$,3).AB.|
00002630: 01 A1 41 24 3A 8B 41 24 B3 B1 22 22 A7 8D 34 35 |..A$:.A$..""..45|
00002640: 38 00 4F 42 C4 01 8B 53 54 B2 30 A7 34 32 36 00 |8.OB...ST.0.426.|
00002650: 68 42 C6 01 99 22 20 42 4C 4F 43 4B 53 20 46 52 |hB..." BLOCKS FR|
00002660: 45 45 22 3A 41 30 B2 30 00 A1 42 C8 01 A0 35 3A |EE":A0.0..B...5:|
00002670: A0 31 35 3A 99 A3 32 37 29 47 52 24 22 12 20 20 |.15:..27)GR$". |
00002680: 20 D0 52 45 53 53 20 12 41 4E 59 20 4B 45 59 20 | .RESS .ANY KEY |
00002690: 20 20 20 92 22 4C 54 24 3A 8D 33 30 3A 89 34 36 | ."LT$:.30:.46|
000026A0: 32 00 AB 42 CA 01 8D 33 30 3A 8E 00 C1 42 CC 01 |2..B...30:...B..|
000026B0: 8F 2D 2D 2D 44 49 53 4B 20 43 4F 4D 4D 41 4E 44 |.---DISK COMMAND|
000026C0: 53 00 2D 43 CE 01 99 47 52 24 22 13 13 93 A4 A4 |S.-C...GR$".....|
000026D0: A4 A4 A4 20 D4 49 45 52 52 41 C2 41 53 45 20 A4 |... .IERRA.ASE .|
000026E0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000026F0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00002700: A4 A4 A4 A4 A4 A4 A4 20 C4 49 53 4B 20 C3 4F 4D |....... .ISK .OM|
00002710: 4D 41 4E 44 53 20 A4 A4 A4 A4 A4 22 4C 54 24 3A |MANDS ....."LT$:|
00002720: FE 1A 30 2C 32 2C 37 39 2C 32 34 2C 31 00 4D 43 |..0,2,79,24,1.MC|
00002730: D0 01 99 A3 32 37 29 22 11 11 11 12 24 92 20 44 |....27)"....$. D|
00002740: 49 53 4B 20 44 49 52 45 43 54 4F 52 59 00 6E 43 |ISK DIRECTORY.nC|
00002750: D2 01 99 A3 32 37 29 22 11 12 C6 92 4F 52 4D 41 |....27)"....ORMA|
00002760: 54 20 41 20 42 4C 41 4E 4B 20 44 49 53 4B 00 8E |T A BLANK DISK..|
00002770: 43 D4 01 99 A3 32 37 29 22 11 12 D3 92 43 52 41 |C....27)"....CRA|
00002780: 54 43 48 20 41 20 53 45 51 20 46 49 4C 45 00 AD |TCH A SEQ FILE..|
00002790: 43 D6 01 99 A3 32 37 29 22 11 12 D2 92 45 4E 41 |C....27)"....ENA|
000027A0: 4D 45 20 41 20 53 45 51 20 46 49 4C 45 00 D1 43 |ME A SEQ FILE..C|
000027B0: D7 01 99 A3 32 37 29 22 11 12 C3 92 52 45 41 54 |....27)"....REAT|
000027C0: 45 20 4E 45 57 20 53 59 53 54 45 4D 20 44 49 53 |E NEW SYSTEM DIS|
000027D0: 4B 00 F0 43 D8 01 99 A3 32 37 29 22 11 12 C5 92 |K..C....27)"....|
000027E0: 58 49 54 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 |XIT TO MAIN MENU|
000027F0: 00 2B 44 DA 01 99 A3 31 37 29 22 11 0F 12 20 20 |.+D....17)"... |
00002800: 20 20 20 20 D0 52 45 53 53 20 54 48 45 20 41 50 | .RESS THE AP|
00002810: 50 52 4F 50 52 49 41 54 45 20 4B 45 59 20 20 20 |PROPRIATE KEY |
00002820: 20 20 20 92 22 C7 28 31 34 33 29 00 4D 44 DC 01 | .".(143).MD..|
00002830: 8D 33 30 3A 4D 52 24 B2 44 24 3A 44 52 24 B2 44 |.30:MR$.D$:DR$.D|
00002840: 24 3A 8B 41 24 B2 22 24 22 A7 34 32 32 00 5D 44 |$:.A$."$".422.]D|
00002850: DE 01 8B 41 24 B2 22 46 22 A7 34 30 32 00 73 44 |...A$."F".402.sD|
00002860: E0 01 8B 41 24 B2 22 53 22 A7 8D 34 39 38 3A 89 |...A$."S"..498:.|
00002870: 34 38 38 00 82 44 E2 01 8B 41 24 B2 22 45 22 A7 |488..D...A$."E".|
00002880: 36 38 00 94 44 E3 01 8B 41 24 B2 22 43 22 A7 89 |68..D...A$."C"..|
00002890: 31 30 30 32 00 AA 44 E4 01 8B 41 24 B2 22 52 22 |1002..D...A$."R"|
000028A0: A7 8D 34 39 38 3A 89 34 39 33 00 B3 44 E6 01 89 |..498:.493..D...|
000028B0: 34 37 36 00 E8 44 E8 01 99 A3 32 31 29 3B 3A 85 |476..D....21);:.|
000028C0: 22 11 11 12 D3 43 52 41 54 43 48 20 46 49 4C 45 |"....CRATCH FILE|
000028D0: 20 4E 41 4D 45 20 92 22 3B 44 52 24 3A 8B 44 52 | NAME .";DR$:.DR|
000028E0: 24 B2 44 24 A7 34 36 32 00 1B 45 EA 01 9F 31 35 |$.D$.462..E...15|
000028F0: 2C 38 2C 31 35 3A 9F 35 2C 38 2C 35 2C 22 30 3A |,8,15:.5,8,5,"0:|
00002900: 22 AA 44 52 24 AA 22 2C 53 2C 52 22 3A 8D 34 31 |".DR$.",S,R":.41|
00002910: 34 3A 8B 45 54 B2 38 A7 34 36 32 00 39 45 EC 01 |4:.ET.8.462.9E..|
00002920: A0 35 3A 98 31 35 2C 22 53 30 3A 22 AA 44 52 24 |.5:.15,"S0:".DR$|
00002930: 3A A0 31 35 3A 89 34 36 32 00 6B 45 ED 01 99 A3 |:.15:.462.kE....|
00002940: 32 31 29 3B 3A 85 22 11 12 D2 45 4E 41 4D 45 20 |21);:."...ENAME |
00002950: 4F 4C 44 20 46 49 4C 45 20 92 22 3B 44 52 24 3A |OLD FILE .";DR$:|
00002960: 8B 44 52 24 B2 44 24 A7 34 36 32 00 9D 45 EE 01 |.DR$.D$.462..E..|
00002970: 99 A3 32 31 29 3B 3A 85 22 11 12 20 20 20 20 D4 |..21);:.".. .|
00002980: 4F 20 4E 45 57 20 46 49 4C 45 20 92 22 3B 4D 52 |O NEW FILE .";MR|
00002990: 24 3A 8B 4D 52 24 B2 44 24 A7 34 36 32 00 D0 45 |$:.MR$.D$.462..E|
000029A0: EF 01 9F 31 35 2C 38 2C 31 35 3A 9F 35 2C 38 2C |...15,8,15:.5,8,|
000029B0: 35 2C 22 30 3A 22 AA 44 52 24 AA 22 2C 53 2C 52 |5,"0:".DR$.",S,R|
000029C0: 22 3A 8D 34 31 34 3A 8B 45 54 B2 38 A7 34 36 32 |":.414:.ET.8.462|
000029D0: 00 03 46 F0 01 A0 35 3A 98 31 35 2C 22 52 30 3A |..F...5:.15,"R0:|
000029E0: 22 AA 4D 52 24 AA 22 3D 22 AA 44 52 24 3A 9F 35 |".MR$."=".DR$:.5|
000029F0: 2C 38 2C 35 3A 8D 34 31 34 3A 8B 45 54 B2 38 A7 |,8,5:.414:.ET.8.|
00002A00: 34 36 32 00 13 46 F1 01 A0 35 3A A0 31 35 3A 89 |462..F...5:.15:.|
00002A10: 34 36 32 00 46 46 F2 01 99 22 93 22 A3 31 31 29 |462.FF...".".11)|
00002A20: 22 11 11 C5 4E 54 45 52 20 46 49 4C 45 20 4E 41 |"...NTER FILE NA|
00002A30: 4D 45 53 20 45 58 41 43 54 4C 59 20 41 53 20 53 |MES EXACTLY AS S|
00002A40: 48 4F 57 4E 22 3B 00 61 46 F3 01 99 22 20 4F 4E |HOWN";.aF..." ON|
00002A50: 20 54 48 45 20 44 49 52 45 43 54 4F 52 59 22 3A | THE DIRECTORY":|
00002A60: 8E 00 7F 46 E8 03 8F 2D 2D 43 52 45 41 54 45 20 |...F...--CREATE |
00002A70: 4E 45 57 20 53 59 53 54 45 4D 20 44 49 53 4B 00 |NEW SYSTEM DISK.|
00002A80: C1 46 EA 03 99 22 93 22 A3 33 29 22 11 11 96 0F |.F...".".3)"....|
00002A90: 20 20 20 20 D7 C1 D2 CE C9 CE C7 22 C7 28 31 34 | .......".(14|
00002AA0: 33 29 4C 54 24 22 20 D4 48 49 53 20 57 49 4C 4C |3)LT$" .HIS WILL|
00002AB0: 20 45 52 41 53 45 20 54 48 45 20 44 49 53 4B 22 | ERASE THE DISK"|
00002AC0: 3B 00 E6 46 EB 03 99 22 20 41 4E 44 20 43 52 45 |;..F..." AND CRE|
00002AD0: 41 54 45 20 41 20 4E 45 57 20 53 59 53 54 45 4D |ATE A NEW SYSTEM|
00002AE0: 20 44 49 53 4B 22 00 0B 47 ED 03 99 A3 32 37 29 | DISK"..G....27)|
00002AF0: 22 11 11 41 52 45 20 59 4F 55 20 53 55 52 45 3F |"..ARE YOU SURE?|
00002B00: 20 12 D9 92 20 4F 52 20 12 CE 92 00 1E 47 EE 03 | ... OR .....G..|
00002B10: 8D 33 30 3A 8B 41 24 B2 22 4E 22 A7 36 38 00 2E |.30:.A$."N".68..|
00002B20: 47 EF 03 8B 41 24 B3 B1 22 59 22 A7 36 38 00 46 |G...A$.."Y".68.F|
00002B30: 47 F0 03 99 22 11 11 11 11 11 20 C6 4F 52 4D 41 |G..."..... .ORMA|
00002B40: 54 54 49 4E 47 22 00 80 47 F2 03 9F 31 35 2C 38 |TTING"..G...15,8|
00002B50: 2C 31 35 3A 98 31 35 2C 22 4E 45 57 30 3A 54 49 |,15:.15,"NEW0:TI|
00002B60: 45 52 52 41 42 41 53 45 20 44 41 54 41 2C 50 5A |ERRABASE DATA,PZ|
00002B70: 22 3A 8D 34 31 34 3A 8B 45 54 B2 38 A7 34 36 32 |":.414:.ET.8.462|
00002B80: 00 88 47 F3 03 A0 31 35 00 A8 47 4C 04 99 A3 32 |..G...15..GL...2|
00002B90: 39 29 22 11 11 C3 52 45 41 54 49 4E 47 20 41 55 |9)"...REATING AU|
00002BA0: 54 4F 20 42 4F 4F 54 22 00 C4 47 60 04 9F 31 35 |TO BOOT"..G`..15|
00002BB0: 2C 38 2C 31 35 2C 22 49 4A 22 3A 20 4E 55 24 B2 |,8,15,"IJ": NU$.|
00002BC0: C7 28 30 29 00 02 48 65 04 3A 20 20 8B 20 44 53 |.(0)..He.: . DS|
00002BD0: 20 A7 20 99 A3 32 39 29 22 0F 2A 2A 2A 20 C4 49 | . ..29)".*** .I|
00002BE0: 53 4B 20 C5 52 52 4F 52 3A 20 22 C7 28 31 34 33 |SK .RROR: ".(143|
00002BF0: 29 3B 44 53 24 3A 20 45 B2 AB 31 3A 20 89 31 34 |);DS$: E..1: .14|
00002C00: 36 30 00 11 48 6A 04 9F 38 2C 38 2C 38 2C 22 23 |60..Hj..8,8,8,"#|
00002C10: 22 00 35 48 6F 04 98 31 35 2C 22 55 31 3A 38 20 |".5Ho..15,"U1:8 |
00002C20: 30 20 31 38 20 30 22 3A 98 31 35 2C 22 42 2D 50 |0 18 0":.15,"B-P|
00002C30: 22 3B 38 3B 35 00 44 48 74 04 3A 20 20 A1 23 38 |";8;5.DHt.: .#8|
00002C40: 2C 42 41 24 00 59 48 79 04 98 31 35 2C 22 55 31 |,BA$.YHy..15,"U1|
00002C50: 3A 38 20 30 20 31 20 30 22 00 85 48 7E 04 3A 20 |:8 0 1 0"..H~.: |
00002C60: 20 81 49 B2 30 A4 32 34 3A 20 A1 23 38 2C 41 24 | .I.0.24: .#8,A$|
00002C70: 3A 20 42 4C 24 B2 42 4C 24 AA C7 28 C6 28 41 24 |: BL$.BL$..(.(A$|
00002C80: 29 29 3A 20 82 00 9C 48 83 04 8B 20 28 C6 28 42 |)): ...H... (.(B|
00002C90: 41 24 29 AF 31 29 B2 30 20 A7 20 B2 00 B8 48 88 |A$).1).0 . ...H.|
00002CA0: 04 3A 20 20 8B 20 C8 28 42 4C 24 2C 33 29 B2 22 |.: . .(BL$,3)."|
00002CB0: 43 42 4D 22 20 A7 20 B2 00 CB 48 A6 04 3A 20 20 |CBM" . ...H..: |
00002CC0: 20 20 20 20 20 20 49 B2 49 AA 31 00 DC 48 B5 04 | I.I.1..H..|
00002CD0: 3A 20 20 20 20 FE 19 3A D5 20 FE 18 00 26 49 BA |: ..:. ...&I.|
00002CE0: 04 3A 20 20 20 20 20 99 47 52 24 A3 31 38 29 22 |.: .GR$.18)"|
00002CF0: 0F 2A 2A 2A 20 C2 4F 4F 54 20 D3 45 43 54 4F 52 |.*** .OOT .ECTOR|
00002D00: 20 D5 53 45 44 20 C2 59 20 C1 4E 4F 54 48 45 52 | .SED .Y .NOTHER|
00002D10: 20 D0 52 4F 47 52 41 4D 20 2A 2A 2A 22 C7 28 31 | .ROGRAM ***".(1|
00002D20: 34 33 29 4C 54 24 00 32 49 BF 04 3A 20 20 20 20 |43)LT$.2I..: |
00002D30: FE 19 00 40 49 CE 04 3A 20 42 41 20 B2 20 AB 31 |...@I..: BA . .1|
00002D40: 00 47 49 D3 04 FE 19 00 5F 49 E2 04 46 24 B2 22 |.GI....._I..F$."|
00002D50: 54 49 45 52 52 41 42 41 53 45 20 31 32 38 22 00 |TIERRABASE 128".|
00002D60: 72 49 EC 04 8B C3 28 46 24 29 B1 31 36 20 A7 20 |rI....(F$).16 . |
00002D70: FE 18 00 99 49 F1 04 3A 20 20 99 A3 33 32 29 22 |....I..: ..32)"|
00002D80: 11 0F D4 48 41 54 27 53 20 54 4F 4F 20 42 49 47 |...HAT'S TOO BIG|
00002D90: 21 22 C7 28 31 34 33 29 3B 00 A4 49 F6 04 3A 20 |!".(143);..I..: |
00002DA0: 20 FE 0B 32 00 B1 49 FB 04 3A 20 20 89 31 32 35 | ..2..I..: .125|
00002DB0: 30 00 BB 49 00 05 3A 20 20 FE 19 00 C8 49 05 05 |0..I..: ....I..|
00002DC0: 8B 46 24 B2 22 22 A7 8E 00 D7 49 19 05 54 24 B2 |.F$.""....I..T$.|
00002DD0: 22 42 41 53 49 43 22 00 03 4A 41 05 8B 20 54 24 |"BASIC"..JA.. T$|
00002DE0: B2 22 42 41 53 49 43 22 20 A7 20 52 4D 24 B2 22 |."BASIC" . RM$."|
00002DF0: 52 55 4E 22 20 3A 20 D5 20 52 4D 24 B2 22 42 4F |RUN" : . RM$."BO|
00002E00: 4F 54 22 00 1D 4A 78 05 41 41 B2 20 C3 28 46 24 |OT"..Jx.AA. .(F$|
00002E10: 29 AA D1 28 22 42 30 30 22 29 AA 31 35 00 3E 4A |)..("B00").15.>J|
00002E20: 7D 05 41 4C B2 20 41 41 20 AF 20 32 35 35 3A 20 |}.AL. AA . 255: |
00002E30: 20 20 41 48 B2 20 41 41 20 AD 20 32 35 36 00 50 | AH. AA . 256.P|
00002E40: 4A 87 05 98 31 35 2C 22 42 2D 50 20 38 20 30 22 |J...15,"B-P 8 0"|
00002E50: 00 7A 4A 8C 05 98 38 2C 20 22 43 42 4D 22 3B 4E |.zJ...8, "CBM";N|
00002E60: 55 24 3B 4E 55 24 3B 4E 55 24 3B 4E 55 24 3B 46 |U$;NU$;NU$;NU$;F|
00002E70: 24 3B 4E 55 24 3B 4E 55 24 3B 00 9D 4A 91 05 98 |$;NU$;NU$;..J...|
00002E80: 38 2C 20 C7 28 31 36 32 29 3B C7 28 41 4C 29 3B |8, .(162);.(AL);|
00002E90: C7 28 31 36 30 29 3B C7 28 41 48 29 3B 00 C2 4A |.(160);.(AH);..J|
00002EA0: 96 05 98 38 2C 20 C7 28 37 36 29 3B C7 28 D1 28 |...8, .(76);.(.(|
00002EB0: 22 41 35 22 29 29 3B C7 28 D1 28 22 41 46 22 29 |"A5"));.(.("AF")|
00002EC0: 29 3B 00 DB 4A 9B 05 98 38 2C 20 52 4D 24 3B C7 |);..J...8, RM$;.|
00002ED0: 28 33 34 29 3B 46 24 3B 4E 55 24 00 F1 4A A0 05 |(34);F$;NU$..J..|
00002EE0: 98 31 35 2C 20 22 55 32 3A 38 20 30 20 31 20 30 |.15, "U2:8 0 1 0|
00002EF0: 22 00 0F 4B A5 05 8B 20 42 41 B2 30 20 A7 20 98 |"..K... BA.0 . .|
00002F00: 31 35 2C 20 22 42 2D 41 20 30 20 31 20 30 22 00 |15, "B-A 0 1 0".|
00002F10: 1A 4B AA 05 41 24 B2 44 53 24 00 3F 4B B4 05 98 |.K..A$.DS$.?K...|
00002F20: 38 2C 20 C7 28 37 36 29 3B C7 28 D1 28 22 41 35 |8, .(76);.(.("A5|
00002F30: 22 29 29 3B C7 28 D1 28 22 41 46 22 29 29 3B 00 |"));.(.("AF"));.|
00002F40: 6E 4B B9 05 8B 20 45 20 A7 20 99 22 11 0F 20 20 |nK... E . .".. |
00002F50: 20 20 20 2A 2A 2A 20 41 42 4F 52 54 45 44 20 2A | *** ABORTED *|
00002F60: 2A 2A 22 C7 28 31 34 33 29 3A 89 34 36 32 00 8E |**".(143):.462..|
00002F70: 4B BE 05 99 22 11 11 20 D3 41 56 49 4E 47 20 D4 |K...".. .AVING .|
00002F80: 49 45 52 52 41 C2 41 53 45 20 31 32 38 22 00 A4 |IERRA.ASE 128"..|
00002F90: 4B C3 05 EF 22 54 49 45 52 52 41 42 41 53 45 20 |K..."TIERRABASE |
00002FA0: 31 32 38 22 00 AB 4B C7 05 FE 0F 00 B4 4B C8 05 |128"..K......K..|
00002FB0: 89 34 36 32 00 CE 4B B8 0B 8F 2D 53 55 42 50 52 |.462..K...-SUBPR|
00002FC0: 4F 47 52 41 4D 20 44 46 52 45 50 4F 52 54 00 17 |OGRAM DFREPORT..|
00002FD0: 4C C2 0B 8F 2D 46 4F 52 20 31 35 32 35 2C 4D 50 |L...-FOR 1525,MP|
00002FE0: 53 38 30 31 2C 47 45 4D 49 4E 49 31 30 58 2C 4F |S801,GEMINI10X,O|
00002FF0: 4B 49 44 41 54 41 39 32 41 2C 45 50 53 4F 4E 52 |KIDATA92A,EPSONR|
00003000: 58 38 30 20 41 4E 44 20 4F 54 48 45 52 53 2F 57 |X80 AND OTHERS/W|
00003010: 20 43 41 52 44 43 4F 00 2E 4C CC 0B 9F 34 2C 34 | CARDCO..L...4,4|
00003020: 2C 37 3A 8B 50 57 B2 30 A7 50 57 B2 38 30 00 38 |,7:.PW.0.PW.80.8|
00003030: 4C D6 0B 89 33 36 30 30 00 52 4C E0 0B 8F 2D 2D |L...3600.RL...--|
00003040: 2D 2D 4C 4F 41 44 20 53 55 42 50 52 4F 47 52 41 |--LOAD SUBPROGRA|
00003050: 4D 53 00 5A 4C EA 0B 89 36 36 00 64 4C FE 0B 89 |MS.ZL...66.dL...|
00003060: 36 30 32 30 00 8E 4C 12 0C 8F 20 50 52 49 4E 54 |6020..L... PRINT|
00003070: 54 41 42 28 33 32 29 22 93 11 11 CC 4F 41 44 49 |TAB(32)"....OADI|
00003080: 4E 47 20 D0 52 41 43 54 49 43 41 4C 43 22 00 A7 |NG .RACTICALC"..|
00003090: 4C 1C 0C 8F 20 4C 4F 41 44 22 50 52 41 43 54 49 |L... LOAD"PRACTI|
000030A0: 43 41 4C 43 22 2C 38 00 BD 4C 26 0C 8F 2D 2D 2D |CALC",8..L&..---|
000030B0: 2D 51 55 49 54 20 52 4F 55 54 49 4E 45 00 F1 4C |-QUIT ROUTINE..L|
000030C0: 30 0C 99 22 93 22 A3 32 33 29 22 11 11 D1 55 49 |0..".".23)"...UI|
000030D0: 54 49 4E 47 20 4E 4F 57 20 57 49 4C 4C 20 45 52 |TING NOW WILL ER|
000030E0: 41 53 45 20 43 55 52 52 45 4E 54 20 44 41 54 41 |ASE CURRENT DATA|
000030F0: 22 00 34 4D 3A 0C 99 A3 31 38 29 22 11 C1 52 45 |".4M:...18)"..RE|
00003100: 20 59 4F 55 20 53 55 52 45 20 59 4F 55 20 57 41 | YOU SURE YOU WA|
00003110: 4E 54 20 54 4F 20 51 55 49 54 3F 20 20 20 20 20 |NT TO QUIT? |
00003120: 20 20 20 20 20 20 20 12 D9 92 20 4F 52 20 12 CE | ... OR ..|
00003130: 92 20 3F 22 00 49 4D 44 0C A1 41 24 3A 8B 41 24 |. ?".IMD..A$:.A$|
00003140: B2 22 22 20 A7 33 31 34 30 00 5A 4D 4E 0C 8B 41 |."" .3140.ZMN..A|
00003150: 24 B2 22 4E 22 A7 33 36 30 30 00 6B 4D 58 0C 8B |$."N".3600.kMX..|
00003160: 41 24 B2 22 59 22 A7 33 31 38 30 00 75 4D 62 0C |A$."Y".3180.uMb.|
00003170: 89 33 31 34 30 00 82 4D 6C 0C A0 34 3A 89 38 30 |.3140..Ml..4:.80|
00003180: 30 30 00 A0 4D 80 0C 8F 2D 2D 2D 2D 53 45 41 52 |00..M...----SEAR|
00003190: 43 48 20 52 4F 55 54 49 4E 45 53 20 4D 45 4E 55 |CH ROUTINES MENU|
000031A0: 00 A9 4D 8A 0C 41 30 B2 30 00 CF 4D 94 0C 99 22 |..M..A0.0..M..."|
000031B0: 93 22 A3 32 37 29 22 11 11 11 12 C1 92 4C 4C 20 |.".27)"......LL |
000031C0: 52 45 43 4F 52 44 53 20 49 4E 20 46 49 4C 45 00 |RECORDS IN FILE.|
000031D0: F6 4D 9E 0C 99 A3 32 37 29 22 11 12 D3 92 45 4C |.M....27)"....EL|
000031E0: 45 43 54 20 49 4E 44 49 56 49 44 55 41 4C 20 52 |ECT INDIVIDUAL R|
000031F0: 45 43 4F 52 44 53 00 23 4E A8 0C 99 A3 32 37 29 |ECORDS.#N....27)|
00003200: 22 11 12 C6 92 49 4E 44 20 52 45 43 4F 52 44 53 |"....IND RECORDS|
00003210: 20 57 49 54 48 20 43 4F 4D 4D 4F 4E 20 46 49 45 | WITH COMMON FIE|
00003220: 4C 44 53 00 42 4E B2 0C 99 A3 32 37 29 22 11 12 |LDS.BN....27)"..|
00003230: C5 92 58 49 54 20 54 4F 20 4D 41 49 4E 20 4D 45 |..XIT TO MAIN ME|
00003240: 4E 55 00 76 4E BC 0C 99 22 11 11 D0 4F 53 49 54 |NU.vN..."...OSIT|
00003250: 49 4F 4E 20 50 41 50 45 52 20 49 4E 20 50 52 49 |ION PAPER IN PRI|
00003260: 4E 54 45 52 20 41 54 20 54 4F 50 20 4F 46 20 50 |NTER AT TOP OF P|
00003270: 41 47 45 20 22 3B 00 A5 4E C6 0C 99 22 D0 52 49 |AGE ";..N...".RI|
00003280: 4E 54 45 52 20 4D 41 59 20 53 54 4F 50 20 44 55 |NTER MAY STOP DU|
00003290: 52 49 4E 47 20 50 52 49 4E 54 49 4E 47 20 49 46 |RING PRINTING IF|
000032A0: 20 54 48 45 22 00 D1 4E D0 0C 99 22 43 4F 4D 50 | THE"..N..."COMP|
000032B0: 55 54 45 52 20 4E 45 45 44 53 20 54 4F 20 52 45 |UTER NEEDS TO RE|
000032C0: 41 4C 4C 4F 43 41 54 45 20 4D 45 4D 4F 52 59 2E |ALLOCATE MEMORY.|
000032D0: 22 00 06 4F DA 0C 99 A3 32 32 29 22 11 12 20 20 |"..O....22)".. |
000032E0: 20 20 20 20 D0 52 45 53 53 20 54 48 45 20 41 50 | .RESS THE AP|
000032F0: 50 52 4F 50 52 49 41 54 45 20 4B 45 59 20 20 20 |PROPRIATE KEY |
00003300: 20 20 20 92 20 22 00 1B 4F E4 0C A1 43 24 3A 8B | . "..O...C$:.|
00003310: 43 24 B2 22 22 20 A7 33 33 30 30 00 2C 4F EE 0C |C$."" .3300.,O..|
00003320: 8B 43 24 B2 22 41 22 A7 33 35 36 30 00 43 4F F8 |.C$."A".3560.CO.|
00003330: 0C 8B 43 24 B2 22 53 22 A7 46 4C B2 30 3A 89 33 |..C$."S".FL.0:.3|
00003340: 33 37 30 00 54 4F 02 0D 8B 43 24 B2 22 46 22 A7 |370.TO...C$."F".|
00003350: 33 34 33 30 00 65 4F 0C 0D 8B 43 24 B2 22 45 22 |3430.eO...C$."E"|
00003360: A7 33 36 30 30 00 6F 4F 16 0D 89 33 33 30 30 00 |.3600.oO...3300.|
00003370: 8A 4F 20 0D 8F 2D 2D 2D 2D 53 45 4C 45 43 54 20 |.O ..----SELECT |
00003380: 4F 4E 45 20 52 45 43 4F 52 44 00 DE 4F 2A 0D 85 |ONE RECORD..O*..|
00003390: 22 93 11 11 20 20 20 20 20 20 20 20 20 20 20 20 |"... |
000033A0: 20 20 20 20 20 20 20 20 D0 52 49 4E 54 20 57 48 | .RINT WH|
000033B0: 49 43 48 20 52 45 43 4F 52 44 20 28 12 30 92 20 |ICH RECORD (.0. |
000033C0: 54 4F 20 45 58 49 54 29 22 3B 49 24 3A 49 B2 C5 |TO EXIT)";I$:I..|
000033D0: 28 49 24 29 3A 8B 49 B2 30 A7 35 30 33 30 00 28 |(I$):.I.0.5030.(|
000033E0: 50 34 0D 8B 49 B1 58 A7 99 22 20 20 20 20 20 20 |P4..I.X.." |
000033F0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 CE 4F | .O|
00003400: 20 53 55 43 48 20 52 45 43 4F 52 44 20 45 58 49 | SUCH RECORD EXI|
00003410: 53 54 53 2C 20 54 52 59 20 41 47 41 49 4E 91 91 |STS, TRY AGAIN..|
00003420: 91 22 3A 89 33 33 37 30 00 59 50 3E 0D 8B 4B B2 |.":.3370.YP>..K.|
00003430: 32 AF 46 4C B2 30 A7 8D 34 36 33 30 3A 8D 34 37 |2.FL.0..4630:.47|
00003440: 30 30 3A 8D 34 37 39 30 3A 8D 35 30 32 30 3A 46 |00:.4790:.5020:F|
00003450: 4C B2 31 3A 89 33 33 37 30 00 7A 50 48 0D 8B 4B |L.1:.3370.zPH..K|
00003460: B2 32 AF 46 4C B2 31 A7 3A 8D 34 37 39 30 3A 8D |.2.FL.1.:.4790:.|
00003470: 35 30 32 30 3A 89 33 33 37 30 00 91 50 52 0D 8D |5020:.3370..PR..|
00003480: 34 35 37 30 3A 98 34 2C 42 31 24 3A 89 33 32 31 |4570:.4,B1$:.321|
00003490: 30 00 AF 50 5C 0D 8F 2D 2D 2D 2D 46 49 4E 44 20 |0..P\..----FIND |
000034A0: 52 45 43 4F 52 44 20 28 53 45 41 52 43 48 29 00 |RECORD (SEARCH).|
000034B0: EE 50 66 0D 99 22 93 22 47 52 24 A3 32 31 29 22 |.Pf.."."GR$.21)"|
000034C0: 11 11 12 20 20 20 20 C6 49 4E 44 20 D2 45 43 4F |... .IND .ECO|
000034D0: 52 44 53 20 D7 49 54 48 20 C3 4F 4D 4D 4F 4E 20 |RDS .ITH .OMMON |
000034E0: C9 54 45 4D 53 20 20 20 20 11 22 4C 54 24 00 23 |.TEMS ."LT$.#|
000034F0: 51 70 0D 81 20 4E B2 31 A4 46 3A 99 22 20 20 20 |Qp.. N.1.F:." |
00003500: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003510: 20 12 22 3B 4E 3B 22 92 20 22 3B 46 24 28 4E 29 | .";N;". ";F$(N)|
00003520: 3A 82 4E 00 60 51 7A 0D 85 22 11 20 20 20 20 20 |:.N.`Qz..". |
00003530: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 D7 | .|
00003540: 48 49 43 48 20 46 49 45 4C 44 20 49 53 20 54 4F |HICH FIELD IS TO|
00003550: 20 42 45 20 53 45 41 52 43 48 45 44 22 3B 53 46 | BE SEARCHED";SF|
00003560: 00 7C 51 84 0D 8B 53 46 B3 30 B0 53 46 B1 46 A7 |.|Q...SF.0.SF.F.|
00003570: 99 22 91 91 91 22 3A 89 33 34 35 30 00 EE 51 8E |."...":.3450..Q.|
00003580: 0D 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |.." |
00003590: 20 20 20 20 20 20 20 C5 4E 54 45 52 20 12 C3 4F | .NTER ..O|
000035A0: 4D 4D 4F 4E 20 C9 54 45 4D 92 20 22 3A 99 22 11 |MMON .TEM. ":.".|
000035B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000035C0: 20 20 20 20 CE 4F 54 45 3A 20 28 54 48 45 20 45 | .OTE: (THE E|
000035D0: 4E 54 49 52 45 20 53 54 52 49 4E 47 20 49 53 20 |NTIRE STRING IS |
000035E0: 4E 4F 54 20 52 45 51 55 49 52 45 44 29 22 00 1C |NOT REQUIRED)"..|
000035F0: 52 98 0D 99 22 20 20 20 20 20 20 20 20 20 20 20 |R..." |
00003600: 20 20 20 20 20 20 20 20 20 12 22 3B 46 24 28 53 | .";F$(S|
00003610: 46 29 3B 22 92 20 22 3B 3A 85 54 24 00 31 52 A2 |F);". ";:.T$.1R.|
00003620: 0D 8B 4B B2 32 A7 8D 34 36 33 30 3A 8D 34 37 30 |..K.2..4630:.470|
00003630: 30 00 3C 52 AC 0D 81 49 B2 31 A4 58 00 70 52 B6 |0.<R...I.1.X.pR.|
00003640: 0D 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00003650: 20 20 20 20 20 20 20 20 D3 45 41 52 43 48 49 4E | .EARCHIN|
00003660: 47 20 52 45 43 4F 52 44 22 3B 49 3B 22 91 91 22 |G RECORD";I;".."|
00003670: 00 A3 52 C0 0D 8B 54 24 B2 C8 28 52 45 43 24 28 |..R...T$..(REC$(|
00003680: 4B 25 28 49 29 2C 53 46 29 2C C3 28 54 24 29 29 |K%(I),SF),.(T$))|
00003690: A7 91 4B 8D 34 35 37 30 2C 34 37 39 30 3A 8D 35 |..K.4570,4790:.5|
000036A0: 30 32 30 00 AA 52 CA 0D 82 49 00 B4 52 D4 0D 89 |020..R...I..R...|
000036B0: 35 30 33 30 00 CF 52 DE 0D 8F 2D 2D 2D 2D 50 52 |5030..R...----PR|
000036C0: 49 4E 54 20 41 4C 4C 20 52 45 43 4F 52 44 53 00 |INT ALL RECORDS.|
000036D0: F8 52 E8 0D 99 22 93 22 47 52 24 A3 33 31 29 22 |.R..."."GR$.31)"|
000036E0: 11 12 C1 4E 59 20 CB 45 59 20 C1 42 4F 52 54 53 |...NY .EY .BORTS|
000036F0: 92 11 11 11 22 4C 54 24 00 26 53 ED 0D 99 A3 32 |...."LT$.&S....2|
00003700: 39 29 22 11 D0 52 49 4E 54 49 4E 47 20 48 45 41 |9)"..RINTING HEA|
00003710: 44 49 4E 47 22 3A 8B 4B B2 32 A7 8D 34 36 33 30 |DING":.K.2..4630|
00003720: 3A 8D 34 37 30 30 00 63 53 F2 0D 81 49 B2 31 A4 |:.4700.cS...I.1.|
00003730: 58 3A 99 A3 32 39 29 22 91 D0 52 49 4E 54 49 4E |X:..29)"..RINTIN|
00003740: 47 20 52 45 43 4F 52 44 20 23 22 3B 49 3A 91 4B |G RECORD #";I:.K|
00003750: 8D 34 35 37 30 2C 34 37 39 30 3A 8D 35 30 32 30 |.4570,4790:.5020|
00003760: 3A 82 49 00 6D 53 FC 0D 89 35 30 33 30 00 89 53 |:.I.mS...5030..S|
00003770: 06 0E 8F 2D 2D 2D 2D 50 52 49 4E 54 20 52 45 43 |...----PRINT REC|
00003780: 4F 52 44 53 20 4D 45 4E 55 00 C1 53 10 0E 99 22 |ORDS MENU..S..."|
00003790: 93 22 A3 31 39 29 22 11 11 12 20 20 20 20 20 20 |.".19)"... |
000037A0: 20 20 D2 45 50 4F 52 54 20 D0 52 49 4E 54 4F 55 | .EPORT .RINTOU|
000037B0: 54 20 CD 45 4E 55 20 20 20 20 20 20 20 20 20 20 |T .ENU |
000037C0: 22 00 E8 53 1A 0E 99 A3 32 37 29 22 11 12 CC 92 |"..S....27)"....|
000037D0: 49 53 54 20 52 45 43 4F 52 44 53 20 55 4E 46 4F |IST RECORDS UNFO|
000037E0: 52 4D 41 54 54 45 44 22 00 0C 54 24 0E 99 A3 32 |RMATTED"..T$...2|
000037F0: 37 29 22 11 12 D0 92 52 45 2D 44 45 46 49 4E 45 |7)"....RE-DEFINE|
00003800: 44 20 46 4F 52 4D 41 54 20 4F 52 22 00 2C 54 2E |D FORMAT OR".,T.|
00003810: 0E 99 A3 32 37 29 22 11 12 C4 92 45 46 49 4E 45 |...27)"....EFINE|
00003820: 20 4E 45 57 20 46 4F 52 4D 41 54 22 00 53 54 38 | NEW FORMAT".ST8|
00003830: 0E 99 A3 32 37 29 22 11 11 12 C5 92 58 49 54 20 |...27)".....XIT |
00003840: 54 4F 20 4D 41 49 4E 20 50 52 4F 47 52 41 4D 20 |TO MAIN PROGRAM |
00003850: 4F 52 22 00 77 54 42 0E 99 A3 32 37 29 22 11 12 |OR".wTB...27)"..|
00003860: CD 92 41 49 4C 49 4E 47 20 4C 41 42 45 4C 20 50 |..AILING LABEL P|
00003870: 52 4F 47 52 41 4D 22 00 A9 54 4C 0E 8F 20 50 52 |ROGRAM"..TL.. PR|
00003880: 49 4E 54 54 41 42 28 32 37 29 22 11 12 C3 92 41 |INTTAB(27)"....A|
00003890: 4C 43 55 4C 41 54 45 44 20 52 45 50 4F 52 54 53 |LCULATED REPORTS|
000038A0: 20 50 52 4F 47 52 41 4D 22 00 C4 54 56 0E 99 A3 | PROGRAM"..TV...|
000038B0: 32 37 29 22 11 12 D1 92 55 49 54 20 50 52 4F 47 |27)"....UIT PROG|
000038C0: 52 41 4D 22 00 F9 54 60 0E 99 A3 31 39 29 22 11 |RAM"..T`...19)".|
000038D0: 11 12 20 20 20 20 20 20 D0 52 45 53 53 20 54 48 |.. .RESS TH|
000038E0: 45 20 41 50 50 52 4F 50 52 49 41 54 45 20 4B 45 |E APPROPRIATE KE|
000038F0: 59 20 20 20 20 20 20 20 22 00 0E 55 6A 0E A1 43 |Y "..Uj..C|
00003900: 24 3A 8B 43 24 B2 22 22 20 A7 33 36 39 30 00 24 |$:.C$."" .3690.$|
00003910: 55 74 0E 8B 43 24 B2 22 4C 22 A7 4B B2 31 3A 89 |Ut..C$."L".K.1:.|
00003920: 33 32 31 30 00 3A 55 7E 0E 8B 43 24 B2 22 50 22 |3210.:U~..C$."P"|
00003930: A7 4B B2 32 3A 89 34 34 30 30 00 4F 55 88 0E 8B |.K.2:.4400.OU...|
00003940: 43 24 B2 22 45 22 A7 A0 34 3A 89 33 30 35 30 00 |C$."E"..4:.3050.|
00003950: 64 55 92 0E 8B 43 24 B2 22 4D 22 A7 A0 34 3A 89 |dU...C$."M"..4:.|
00003960: 33 30 37 30 00 85 55 9C 0E 8F 20 49 46 43 24 3D |3070..U... IFC$=|
00003970: 22 43 22 54 48 45 4E 43 4C 4F 53 45 34 3A 47 4F |"C"THENCLOSE4:GO|
00003980: 54 4F 35 31 36 00 9B 55 A6 0E 8B 43 24 B2 22 44 |TO516..U...C$."D|
00003990: 22 A7 4B B2 32 3A 89 33 37 38 30 00 AC 55 B0 0E |".K.2:.3780..U..|
000039A0: 8B 43 24 B2 22 51 22 A7 33 31 32 30 00 B6 55 BA |.C$."Q".3120..U.|
000039B0: 0E 89 33 36 39 30 00 E8 55 C4 0E 99 22 93 11 12 |..3690..U..."...|
000039C0: D2 45 50 4F 52 54 20 53 49 5A 45 92 20 55 50 20 |.EPORT SIZE. UP |
000039D0: 54 4F 20 31 33 36 20 43 48 41 52 41 43 54 45 52 |TO 136 CHARACTER|
000039E0: 20 57 49 44 45 2E 22 3B 00 17 56 CE 0E 99 22 20 | WIDE.";..V..." |
000039F0: D0 52 49 4E 54 45 52 20 4D 55 53 54 20 42 45 20 |.RINTER MUST BE |
00003A00: 49 4E 49 54 49 41 4C 49 5A 45 44 20 46 4F 52 20 |INITIALIZED FOR |
00003A10: 57 49 44 54 48 53 22 00 46 56 D8 0E 99 22 47 52 |WIDTHS".FV..."GR|
00003A20: 45 41 54 45 52 20 54 48 41 4E 20 38 30 20 43 48 |EATER THAN 80 CH|
00003A30: 41 52 41 43 54 45 52 53 2E 20 C3 48 45 43 4B 20 |ARACTERS. .HECK |
00003A40: 59 4F 55 52 22 3B 00 76 56 E2 0E 99 22 20 50 52 |YOUR";.vV..." PR|
00003A50: 49 4E 54 45 52 20 4D 41 4E 55 41 4C 20 54 4F 20 |INTER MANUAL TO |
00003A60: 48 4F 57 20 54 4F 20 50 52 49 4E 54 20 31 33 36 |HOW TO PRINT 136|
00003A70: 20 43 48 52 53 22 00 BB 56 EC 0E 99 A3 32 30 29 | CHRS"..V....20)|
00003A80: 22 11 11 11 CE 55 4D 42 45 52 20 4F 46 20 43 48 |"....UMBER OF CH|
00003A90: 41 52 41 43 54 45 52 53 3F 22 3A 99 A3 32 32 29 |ARACTERS?":..22)|
00003AA0: 22 3F 20 20 20 9D 9D 9D 22 3B 50 57 3A 99 A3 32 |"? ...";PW:..2|
00003AB0: 32 29 3B 3A 85 22 91 22 3B 50 57 00 CC 56 F6 0E |2);:.".";PW..V..|
00003AC0: 8B 50 57 B1 31 33 36 A7 33 38 32 30 00 01 57 00 |.PW.136.3820..W.|
00003AD0: 0F 99 22 93 11 12 20 20 20 20 20 D4 49 54 4C 45 |.."... .ITLE|
00003AE0: 20 46 4F 52 4D 41 54 92 20 55 50 20 54 4F 20 34 | FORMAT. UP TO 4|
00003AF0: 20 54 49 54 4C 45 20 4C 49 4E 45 53 20 4F 46 22 | TITLE LINES OF"|
00003B00: 3B 00 2D 57 0A 0F 99 22 20 49 4E 46 4F 52 4D 41 |;.-W..." INFORMA|
00003B10: 54 49 4F 4E 20 41 54 20 54 48 45 20 54 4F 50 20 |TION AT THE TOP |
00003B20: 4F 46 20 54 48 45 20 46 4F 52 4D 2E 22 00 96 57 |OF THE FORM."..W|
00003B30: 14 0F 99 22 11 20 20 20 20 20 20 20 20 20 20 20 |...". |
00003B40: 20 20 20 20 20 20 20 20 20 CE 55 4D 42 45 52 20 | .UMBER |
00003B50: 4F 46 20 4C 49 4E 45 53 3F 22 3A 99 22 20 20 20 |OF LINES?":." |
00003B60: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003B70: 20 3F 20 20 20 9D 9D 9D 22 3B 4E 4C 3A 99 A3 32 | ? ...";NL:..2|
00003B80: 30 29 3B 3A 85 22 91 22 3B 4E 4C 3A 8B 4E 4C B1 |0);:.".";NL:.NL.|
00003B90: 34 A7 33 38 36 30 00 EA 57 1E 0F 81 4A B2 31 A4 |4.3860..W...J.1.|
00003BA0: 4E 4C 3A 99 22 20 20 20 20 20 20 20 20 20 20 20 |NL:." |
00003BB0: 20 20 20 20 20 20 20 20 20 54 49 54 4C 45 20 23 | TITLE #|
00003BC0: 22 3B 4A 3A 99 22 20 20 20 20 20 20 20 20 20 20 |";J:." |
00003BD0: 20 20 20 20 20 20 20 20 20 20 3F 20 3E 20 20 9D | ? > .|
00003BE0: 9D 9D 22 3B 54 54 24 28 4A 29 00 02 58 28 0F 8B |..";TT$(J)..X(..|
00003BF0: C3 28 54 54 24 28 4A 29 29 B1 33 37 A7 99 22 91 |.(TT$(J)).37..".|
00003C00: 22 3B 00 2F 58 32 0F 99 A3 32 30 29 3B 3A 85 22 |";./X2...20);:."|
00003C10: 91 22 3B 54 54 24 28 4A 29 3A 8B 54 54 24 28 4A |.";TT$(J):.TT$(J|
00003C20: 29 B2 22 22 A7 54 54 24 28 4A 29 B2 22 3E 22 00 |)."".TT$(J).">".|
00003C30: 36 58 3C 0F 82 4A 00 A0 58 50 0F 99 22 20 20 20 |6X<..J..XP.." |
00003C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003C50: 20 CE 55 4D 42 45 52 20 4F 46 20 43 4F 4C 55 4D | .UMBER OF COLUM|
00003C60: 4E 53 3F 22 3A 99 22 20 20 20 20 20 20 20 20 20 |NS?":." |
00003C70: 20 20 20 20 20 20 20 20 20 20 20 3F 20 20 20 9D | ? .|
00003C80: 9D 9D 22 3B 4E 43 3A 99 A3 32 30 29 3B 3A 85 22 |..";NC:..20);:."|
00003C90: 91 22 3B 4E 43 3A 8B 4E 43 B1 38 A7 33 39 32 30 |.";NC:.NC.8.3920|
00003CA0: 00 FF 58 5A 0F 81 4A B2 31 A4 4E 43 3A 99 22 20 |..XZ..J.1.NC:." |
00003CB0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003CC0: 20 20 20 D0 4F 53 49 54 49 4F 4E 20 4F 46 20 43 | .OSITION OF C|
00003CD0: 4F 4C 55 4D 4E 20 23 22 3B 4A 3A 99 22 20 20 20 |OLUMN #";J:." |
00003CE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003CF0: 20 3F 20 20 20 9D 9D 9D 22 3B 50 43 28 4A 29 00 | ? ...";PC(J).|
00003D00: 18 59 64 0F 99 A3 32 30 29 3B 3A 85 22 91 22 3B |.Yd...20);:.".";|
00003D10: 50 43 28 4A 29 3A 82 4A 00 4F 59 6E 0F 99 22 93 |PC(J):.J.OYn..".|
00003D20: 12 20 20 20 20 20 20 C8 45 41 44 49 4E 47 20 46 |. .EADING F|
00003D30: 4F 52 4D 41 54 92 20 C3 4F 4C 55 4D 4E 20 48 45 |ORMAT. .OLUMN HE|
00003D40: 41 44 49 4E 47 53 20 43 41 4E 4E 4F 54 22 3B 00 |ADINGS CANNOT";.|
00003D50: 71 59 78 0F 99 22 20 45 58 43 45 45 44 20 57 49 |qYx.." EXCEED WI|
00003D60: 44 54 48 20 4F 46 20 43 4F 4C 55 4D 4E 53 3A 11 |DTH OF COLUMNS:.|
00003D70: 22 00 AA 59 82 0F 81 4A B2 31 A4 4E 43 3A 99 22 |"..Y...J.1.NC:."|
00003D80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00003D90: 20 20 20 20 43 4F 4C 55 4D 4E 22 3B 4A 3B 22 20 | COLUMN";J;" |
00003DA0: 48 45 41 44 49 4E 47 20 22 3B 00 C5 59 8C 0F 8B |HEADING ";..Y...|
00003DB0: 4A B2 4E 43 A7 99 38 30 AB 50 43 28 4A 29 3B 3A |J.NC..80.PC(J);:|
00003DC0: 89 34 30 30 30 00 DB 59 96 0F 99 50 43 28 4A AA |.4000..Y...PC(J.|
00003DD0: 31 29 AB 32 AB 50 43 28 4A 29 3B 00 F3 59 A0 0F |1).2.PC(J);..Y..|
00003DE0: 99 22 20 C3 48 41 52 41 43 54 45 52 53 20 57 49 |." .HARACTERS WI|
00003DF0: 44 45 22 00 47 5A AA 0F 99 22 20 20 20 20 20 20 |DE".GZ..." |
00003E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3F 20 | ? |
00003E10: 3E 20 20 9D 9D 9D 22 3B 48 43 24 28 4A 29 3A 99 |> ...";HC$(J):.|
00003E20: A3 32 30 29 3B 3A 85 22 91 22 3B 48 43 24 28 4A |.20);:.".";HC$(J|
00003E30: 29 3A 8B 48 43 24 28 4A 29 B2 22 22 A7 48 43 24 |):.HC$(J)."".HC$|
00003E40: 28 4A 29 B2 22 3E 22 00 4E 5A B4 0F 82 4A 00 84 |(J).">".NZ...J..|
00003E50: 5A BE 0F 99 22 93 11 11 20 20 C3 48 4F 4F 53 45 |Z..."... .HOOSE|
00003E60: 20 57 48 49 43 48 20 46 49 45 4C 44 53 20 47 4F | WHICH FIELDS GO|
00003E70: 20 55 4E 44 45 52 20 54 48 45 20 43 4F 4C 55 4D | UNDER THE COLUM|
00003E80: 4E 53 22 3B 00 BE 5A C8 0F 99 22 20 C5 4E 54 45 |NS";..Z..." .NTE|
00003E90: 52 20 12 30 92 20 49 46 20 41 44 44 49 54 49 4F |R .0. IF ADDITIO|
00003EA0: 4E 41 4C 20 46 49 45 4C 44 53 20 41 52 45 20 4E |NAL FIELDS ARE N|
00003EB0: 4F 54 20 20 20 44 45 53 49 52 45 44 2E 22 00 E2 |OT DESIRED."..|
00003EC0: 5A D2 0F 81 4E B2 31 A4 46 3A 99 A3 32 30 29 22 |Z...N.1.F:..20)"|
00003ED0: 12 22 3B 4E 3B 22 92 20 22 3B 46 24 28 4E 29 3A |.";N;". ";F$(N):|
00003EE0: 82 4E 00 0B 5B DC 0F 81 4A B2 31 A4 4E 43 3A 99 |.N..[...J.1.NC:.|
00003EF0: 22 13 11 11 11 11 22 3B A3 34 35 29 22 43 4F 4C |".....";.45)"COL|
00003F00: 55 4D 4E 22 3B 4A 3B 22 11 11 22 00 37 5B E6 0F |UMN";J;"..".7[..|
00003F10: 81 4C B2 31 A4 33 3A 99 A3 34 35 29 22 91 C6 49 |.L.1.3:..45)"..I|
00003F20: 45 4C 44 22 3B 4C 3B 22 20 30 20 9D 9D 22 3B 4D |ELD";L;" 0 ..";M|
00003F30: 4C 24 28 4A 2C 4C 29 00 56 5B F0 0F 99 A3 35 32 |L$(J,L).V[....52|
00003F40: 29 3B 22 91 22 3B 3A 85 4D 4C 24 28 4A 2C 4C 29 |);".";:.ML$(J,L)|
00003F50: 3A 82 4C 3A 82 4A 00 94 5B FA 0F 99 22 93 22 A3 |:.L:.J..[...".".|
00003F60: 31 35 29 22 C4 4F 20 59 4F 55 20 57 49 53 48 20 |15)".O YOU WISH |
00003F70: 54 4F 20 53 55 4D 20 54 48 45 20 44 41 54 41 20 |TO SUM THE DATA |
00003F80: 49 4E 20 43 4F 4C 55 4D 4E 22 AA C4 28 4E 43 29 |IN COLUMN"..(NC)|
00003F90: AA 22 3F 22 00 C1 5B 04 10 99 22 11 20 20 D4 48 |."?"..[...". .H|
00003FA0: 49 53 20 43 4F 4C 55 4D 4E 20 4D 41 59 20 42 45 |IS COLUMN MAY BE|
00003FB0: 20 46 4F 52 4D 41 54 54 45 44 20 57 49 54 48 22 | FORMATTED WITH"|
00003FC0: 3B 00 F7 5B 0E 10 99 22 20 4F 4E 4C 59 20 4F 4E |;..[..." ONLY ON|
00003FD0: 45 20 46 49 45 4C 44 2E 20 45 4E 54 45 52 20 12 |E FIELD. ENTER .|
00003FE0: 31 92 20 28 D9 45 53 29 20 4F 52 20 12 30 92 20 |1. (.ES) OR .0. |
00003FF0: 28 CE 30 29 11 11 22 00 14 5C 18 10 99 A3 32 36 |(.0).."..\....26|
00004000: 29 22 3F 22 3B 5A 3A 99 A3 32 36 29 3B 3A 85 22 |)"?";Z:..26);:."|
00004010: 91 22 3B 5A 00 4A 5C 22 10 99 22 93 11 11 20 20 |.";Z.J\".."... |
00004020: C4 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 52 |.O YOU WISH TO R|
00004030: 45 56 49 45 57 20 59 4F 55 52 20 46 4F 52 4D 41 |EVIEW YOUR FORMA|
00004040: 54 20 41 4E 44 2F 4F 52 22 3B 00 76 5C 2C 10 99 |T AND/OR";.v\,..|
00004050: 22 20 4D 41 4B 45 20 43 4F 52 52 45 43 54 49 4F |" MAKE CORRECTIO|
00004060: 4E 53 3F 20 20 50 52 45 53 53 20 12 D9 92 20 4F |NS? PRESS ... O|
00004070: 52 20 12 CE 92 22 00 8A 5C 36 10 A1 41 24 3A 8B |R ..."..\6..A$:.|
00004080: 41 24 B2 22 22 A7 34 31 35 30 00 9B 5C 40 10 8B |A$."".4150..\@..|
00004090: 41 24 B2 22 59 22 A7 33 37 38 30 00 AC 5C 4A 10 |A$."Y".3780..\J.|
000040A0: 8B 41 24 B2 22 4E 22 A7 34 32 30 30 00 B6 5C 54 |.A$."N".4200..\T|
000040B0: 10 89 34 31 35 30 00 D2 5C 5E 10 8F 2D 2D 2D 2D |..4150..\^..----|
000040C0: 53 41 56 45 20 52 45 50 4F 52 54 20 46 4F 52 4D |SAVE REPORT FORM|
000040D0: 41 54 00 05 5D 68 10 99 A3 32 33 29 22 11 20 12 |AT..]h...23)". .|
000040E0: 20 D3 41 56 45 20 46 4F 52 4D 41 54 92 3F 20 20 | .AVE FORMAT.? |
000040F0: 20 20 20 20 20 20 20 20 20 20 12 D9 92 20 4F 52 | ... OR|
00004100: 20 12 CE 92 22 00 19 5D 72 10 A1 41 24 3A 8B 41 | ..."..]r..A$:.A|
00004110: 24 B2 22 22 A7 34 32 31 30 00 2A 5D 7C 10 8B 41 |$."".4210.*]|..A|
00004120: 24 B2 22 4E 22 A7 33 32 31 30 00 3B 5D 86 10 8B |$."N".3210.;]...|
00004130: 41 24 B2 22 59 22 A7 34 32 35 30 00 45 5D 90 10 |A$."Y".4250.E]..|
00004140: 89 34 32 31 30 00 6D 5D 9A 10 99 A3 32 34 29 22 |.4210.m]....24)"|
00004150: 11 11 D3 41 56 45 20 55 4E 44 45 52 20 57 48 41 |...AVE UNDER WHA|
00004160: 54 20 46 49 4C 45 20 4E 41 4D 45 3F 22 00 97 5D |T FILE NAME?"..]|
00004170: A4 10 99 A3 32 36 29 4E 46 24 3A 99 A3 32 34 29 |....26)NF$:..24)|
00004180: 3B 3A 85 22 91 22 3B 4E 46 24 3A 8B 4E 46 24 B2 |;:.".";NF$:.NF$.|
00004190: 22 22 A0 75 5C 9F 90 00 B4 0B F0 6F 66 C4 CE 86 |"".u\......of...|
000041A0: CA CB 97 90 CF 23 97 90 CB AC 05 9F 50 0C E0 0B |.....#......P...|
000041B0: CF AA F0 D0 DC CD 50 3B 9D 53 5C 9F 50 36 0E ED |......P;.S\.P6..|
000041C0: 7A 93 F5 55 5C 9F 90 0F 14 0B 62 6F 31 90 CB 93 |z..U\.....bo1...|
000041D0: CB 90 CB AA 9F 50 0C E0 0B CF AA F0 D0 DC CD FF |.....P..........|
000041E0: AA CA 05 CA 05 AA 50 3B 9D 53 5C 9F 50 36 0E ED |......P;.S\.P6..|
000041F0: 7A 93 F5 55 5C 9F 90 0F C0 00 BC 6F 23 90 CA E0 |z..U\......o#...|
00004200: 05 56 D9 0A CD 56 D0 0B 56 D9 0A CD 56 D0 D5 50 |.V...V..V...V..P|
00004210: 3B 9D 53 5C 9F 50 36 0E ED 7A 93 F5 55 5C 9F 90 |;.S\.P6..z..U\..|
00004220: 0F CA 00 AA 60 26 DF 7A 97 00 D0 0A 00 D6 0D B0 |....`&.z........|
00004230: 6F 23 90 CA E0 ED CD C2 DF A3 50 3B 9D 53 5C 9F |o#........P;.S\.|
00004240: 50 36 0E ED 7A 93 F5 55 5C 9F 90 00 0C 0D 00 60 |P6..z..U\......`|
00004250: 3C D0 00 00 0D D0 60 26 D3 7A 97 00 D0 D9 00 34 |<.....`&.z.....4|
00004260: 0D 00 6F 23 90 CA E0 D5 C2 D3 A3 56 D9 0A CD 56 |..o#.......V...V|
00004270: 02 D5 CD C2 D3 A3 50 3B 9D 52 36 30 3A 8B 45 54 |......P;.R60:.ET|
00004280: B2 38 A7 33 36 30 30 00 92 5E FE 10 81 4E B2 31 |.8.3600..^...N.1|
00004290: A4 33 00 B3 5E 08 11 98 35 2C 4D 4C 24 28 49 2C |.3..^...5,ML$(I,|
000042A0: 4E 29 3A 8D 34 39 36 30 3A 8B 45 54 B2 38 A7 33 |N):.4960:.ET.8.3|
000042B0: 36 30 30 00 DD 5E 12 11 82 4E 3A 82 49 3A 98 35 |600..^...N:.I:.5|
000042C0: 2C C4 28 5A 29 3B 43 52 24 3B 45 24 3A 8D 34 39 |,.(Z);CR$;E$:.49|
000042D0: 36 30 3A 8B 45 54 B2 38 A7 33 36 30 30 00 EE 5E |60:.ET.8.3600..^|
000042E0: 1C 11 A0 35 3A A0 31 35 3A 89 33 32 31 30 00 0A |...5:.15:.3210..|
000042F0: 5F 26 11 8F 2D 2D 2D 2D 4C 4F 41 44 20 52 45 50 |_&..----LOAD REP|
00004300: 4F 52 54 20 46 4F 52 4D 41 54 00 36 5F 30 11 99 |ORT FORMAT.6_0..|
00004310: 22 93 22 A3 32 36 29 22 11 11 CC 4F 41 44 20 46 |".".26)"...OAD F|
00004320: 4F 52 4D 41 54 20 46 52 4F 4D 20 57 48 41 54 20 |ORMAT FROM WHAT |
00004330: 46 49 4C 45 3F 22 00 64 5F 3A 11 99 A3 32 37 29 |FILE?".d_:...27)|
00004340: 22 11 22 3B 4E 46 24 3A 99 A3 32 35 29 3B 3A 85 |".";NF$:..25);:.|
00004350: 22 91 22 3B 4E 46 24 3A 8B 4E 46 24 B2 22 22 A7 |".";NF$:.NF$."".|
00004360: 33 36 30 30 00 9D 5F 44 11 9F 31 35 2C 38 2C 31 |3600.._D..15,8,1|
00004370: 35 3A 9F 35 2C 38 2C 35 2C 22 30 3A 52 50 5D 20 |5:.5,8,5,"0:RP] |
00004380: 22 AA 4E 46 24 AA 22 2C 53 2C 52 22 3A 8D 34 39 |".NF$.",S,R":.49|
00004390: 36 30 3A 8B 45 54 B2 38 A7 33 36 30 30 00 B4 5F |60:.ET.8.3600.._|
000043A0: 4E 11 8B 45 4E B2 36 32 A7 8D 34 39 37 30 3A 89 |N..EN.62..4970:.|
000043B0: 33 36 30 30 00 D5 5F 58 11 84 35 2C 50 57 2C 4E |3600.._X..5,PW,N|
000043C0: 4C 2C 4E 43 3A 8D 34 39 36 30 3A 8B 45 54 B2 38 |L,NC:.4960:.ET.8|
000043D0: A7 33 36 30 30 00 E1 5F 62 11 81 4A B2 31 A4 4E |.3600.._b..J.1.N|
000043E0: 4C 00 00 60 6C 11 84 35 2C 54 54 24 28 4A 29 3A |L..`l..5,TT$(J):|
000043F0: 8D 34 39 36 30 3A 8B 45 54 B2 38 A7 33 36 30 30 |.4960:.ET.8.3600|
00004400: 00 07 60 76 11 82 4A 00 13 60 80 11 81 49 B2 31 |..`v..J..`...I.1|
00004410: A4 4E 43 00 38 60 8A 11 84 35 2C 50 43 28 49 29 |.NC.8`...5,PC(I)|
00004420: 2C 48 43 24 28 49 29 3A 8D 34 39 36 30 3A 8B 45 |,HC$(I):.4960:.E|
00004430: 54 B2 38 A7 33 36 30 30 00 43 60 94 11 81 4E B2 |T.8.3600.C`...N.|
00004440: 31 A4 33 00 64 60 9E 11 84 35 2C 4D 4C 24 28 49 |1.3.d`...5,ML$(I|
00004450: 2C 4E 29 3A 8D 34 39 36 30 3A 8B 45 54 B2 38 A7 |,N):.4960:.ET.8.|
00004460: 33 36 30 30 00 7E 60 A8 11 82 4E 3A 82 49 3A 84 |3600.~`...N:.I:.|
00004470: 35 2C 41 31 24 3A 5A B2 C5 28 41 31 24 29 00 92 |5,A1$:Z..(A1$)..|
00004480: 60 B2 11 53 B2 53 54 3A 8B 53 B3 B1 30 A7 34 35 |`..S.ST:.S..0.45|
00004490: 35 30 00 9C 60 BC 11 84 35 2C 45 24 00 AD 60 C6 |50..`...5,E$..`.|
000044A0: 11 A0 35 3A A0 31 35 3A 89 34 31 33 30 00 D1 60 |..5:.15:.4130..`|
000044B0: D0 11 8F 2D 2D 2D 2D 50 52 49 4E 54 20 4E 4F 4E |...----PRINT NON|
000044C0: 46 4F 52 4D 41 54 54 45 44 20 4C 49 53 54 49 4E |FORMATTED LISTIN|
000044D0: 47 00 09 61 DA 11 98 34 2C 22 5B 20 D2 45 43 4F |G..a...4,"[ .ECO|
000044E0: 52 44 20 23 22 3B 49 3B 22 20 20 20 5D 22 3B 3A |RD #";I;" ]";:|
000044F0: 81 4A B2 31 A4 36 32 3A 98 34 2C 22 2D 22 3B 3A |.J.1.62:.4,"-";:|
00004500: 82 4A 3A 98 34 2C 42 31 24 00 4E 61 DF 11 A1 41 |.J:.4,B1$.Na...A|
00004510: 24 3A 8B 41 24 B3 B1 22 22 A7 99 47 52 24 A3 32 |$:.A$..""..GR$.2|
00004520: 39 29 22 11 11 D0 52 49 4E 54 20 D2 4F 55 54 49 |9)"...RINT .OUTI|
00004530: 4E 45 20 C1 42 4F 52 54 45 44 22 4C 54 24 3A FE |NE .BORTED"LT$:.|
00004540: 0B 32 3A 89 33 35 39 30 3A D5 34 35 38 30 00 59 |.2:.3590:.4580.Y|
00004550: 61 E4 11 81 4E B2 31 A4 46 00 83 61 EE 11 98 34 |a...N.1.F..a...4|
00004560: 2C 46 24 28 4E 29 3B 3A 81 4A B2 31 A4 32 30 AB |,F$(N);:.J.1.20.|
00004570: C3 28 46 24 28 4E 29 29 3A 98 34 2C 22 2E 22 3B |.(F$(N)):.4,".";|
00004580: 3A 82 4A 00 98 61 F8 11 98 34 2C 52 45 43 24 28 |:.J..a...4,REC$(|
00004590: 4B 25 28 49 29 2C 4E 29 00 A8 61 02 12 82 4E 3A |K%(I),N)..a...N:|
000045A0: 98 34 2C 42 31 24 3A 8E 00 BE 61 0C 12 8F 2D 2D |.4,B1$:...a...--|
000045B0: 2D 2D 50 52 49 4E 54 20 52 45 50 4F 52 54 00 E1 |--PRINT REPORT..|
000045C0: 61 16 12 50 47 B2 30 3A 53 24 B2 22 22 3A 81 4A |a..PG.0:S$."":.J|
000045D0: B2 31 A4 50 57 3A 53 24 B2 53 24 AA 42 24 3A 82 |.1.PW:S$.S$.B$:.|
000045E0: 4A 00 00 62 20 12 81 4A B2 31 A4 4E 4C 3A 8B 54 |J..b ..J.1.NL:.T|
000045F0: 54 24 28 4A 29 B3 B1 22 3E 22 A7 8D 34 36 37 30 |T$(J)..">"..4670|
00004600: 00 09 62 2A 12 82 4A 3A 8E 00 1F 62 34 12 8F 2D |..b*..J:...b4..-|
00004610: 2D 2D 2D 43 45 4E 54 45 52 20 54 49 54 4C 45 00 |---CENTER TITLE.|
00004620: 39 62 3E 12 42 B2 B5 28 28 50 57 AB C3 28 54 54 |9b>.B..((PW..(TT|
00004630: 24 28 4A 29 29 29 AD 32 29 00 5D 62 48 12 98 34 |$(J))).2).]bH..4|
00004640: 2C C8 28 53 24 2C 42 29 AA 54 54 24 28 4A 29 3B |,.(S$,B).TT$(J);|
00004650: 42 31 24 3A 50 47 B2 50 47 AA 31 3A 8E 00 78 62 |B1$:PG.PG.1:..xb|
00004660: 52 12 8F 2D 2D 2D 2D 50 4F 53 49 54 49 4F 4E 20 |R..----POSITION |
00004670: 48 45 41 44 49 4E 47 53 00 AF 62 5C 12 8D 34 37 |HEADINGS..b\..47|
00004680: 37 30 3A 50 43 28 4E 43 AA 31 29 B2 50 57 AA 33 |70:PC(NC.1).PW.3|
00004690: 3A 43 57 B2 50 43 28 32 29 AB 32 AB 50 43 28 31 |:CW.PC(2).2.PC(1|
000046A0: 29 3A 8B 50 43 28 31 29 B1 31 A7 34 37 32 30 00 |):.PC(1).1.4720.|
000046B0: CA 62 66 12 98 34 2C C8 28 48 43 24 28 31 29 2C |.bf..4,.(HC$(1),|
000046C0: 43 57 29 3B 3A 89 34 37 33 30 00 ED 62 70 12 98 |CW);:.4730..bp..|
000046D0: 34 2C C8 28 53 24 2C 50 43 28 31 29 AB 31 29 AA |4,.(S$,PC(1).1).|
000046E0: C8 28 48 43 24 28 31 29 2C 43 57 29 3B 00 28 63 |.(HC$(1),CW);.(c|
000046F0: 7A 12 81 4A B2 32 A4 4E 43 3A 4D B2 50 43 28 4A |z..J.2.NC:M.PC(J|
00004700: 29 AB C3 28 C8 28 48 43 24 28 4A AB 31 29 2C 50 |)..(.(HC$(J.1),P|
00004710: 43 28 4A 29 AB 32 AB 50 43 28 4A AB 31 29 29 29 |C(J).2.PC(J.1)))|
00004720: AB 50 43 28 4A AB 31 29 00 52 63 84 12 98 34 2C |.PC(J.1).Rc...4,|
00004730: C8 28 53 24 2C 4D 29 AA C8 28 48 43 24 28 4A 29 |.(S$,M)..(HC$(J)|
00004740: 2C 50 43 28 4A AA 31 29 AB 32 AB 50 43 28 4A 29 |,PC(J.1).2.PC(J)|
00004750: 29 3B 00 70 63 8E 12 82 4A 3A 98 34 2C 42 31 24 |);.pc...J:.4,B1$|
00004760: 3A 8D 34 37 37 30 3A 50 47 B2 50 47 AA 33 3A 8E |:.4770:PG.PG.3:.|
00004770: 00 8B 63 98 12 8F 2D 2D 2D 2D 50 52 49 4E 54 20 |..c...----PRINT |
00004780: 44 41 53 48 45 44 20 4C 49 4E 45 00 AB 63 A2 12 |DASHED LINE..c..|
00004790: 81 4A B2 31 A4 50 57 3A 98 34 2C 22 2D 22 3B 3A |.J.1.PW:.4,"-";:|
000047A0: 82 4A 3A 98 34 2C 42 31 24 3A 8E 00 C4 63 AC 12 |.J:.4,B1$:...c..|
000047B0: 8F 2D 2D 2D 2D 50 52 49 4E 54 20 46 49 4C 45 20 |.----PRINT FILE |
000047C0: 44 41 54 41 00 06 64 B6 12 46 31 B2 C5 28 4D 4C |DATA..d..F1..(ML|
000047D0: 24 28 31 2C 31 29 29 3A 46 32 B2 C5 28 4D 4C 24 |$(1,1)):F2..(ML$|
000047E0: 28 31 2C 32 29 29 3A 46 33 B2 C5 28 4D 4C 24 28 |(1,2)):F3..(ML$(|
000047F0: 31 2C 33 29 29 3A 43 57 B2 50 43 28 32 29 AB 32 |1,3)):CW.PC(2).2|
00004800: AB 50 43 28 31 29 00 18 64 C0 12 8B 50 43 28 31 |.PC(1)..d...PC(1|
00004810: 29 B1 31 A7 34 38 33 30 00 59 64 CA 12 98 34 2C |).1.4830.Yd...4,|
00004820: C8 28 52 45 43 24 28 4B 25 28 49 29 2C 46 31 29 |.(REC$(K%(I),F1)|
00004830: AA 42 24 AA 52 45 43 24 28 4B 25 28 49 29 2C 46 |.B$.REC$(K%(I),F|
00004840: 32 29 AA 42 24 AA 52 45 43 24 28 4B 25 28 49 29 |2).B$.REC$(K%(I)|
00004850: 2C 46 33 29 2C 43 57 29 3B 00 63 64 D4 12 89 34 |,F3),CW);.cd...4|
00004860: 38 35 30 00 79 64 DE 12 98 34 2C C8 28 53 24 2C |850.yd...4,.(S$,|
00004870: 50 43 28 31 29 AB 31 29 3B 00 BA 64 E8 12 98 34 |PC(1).1);..d...4|
00004880: 2C C8 28 52 45 43 24 28 4B 25 28 49 29 2C 46 31 |,.(REC$(K%(I),F1|
00004890: 29 AA 42 24 AA 52 45 43 24 28 4B 25 28 49 29 2C |).B$.REC$(K%(I),|
000048A0: 46 32 29 AA 42 24 AA 52 45 43 24 28 4B 25 28 49 |F2).B$.REC$(K%(I|
000048B0: 29 2C 46 33 29 2C 43 57 29 3B 00 D9 64 F2 12 81 |),F3),CW);..d...|
000048C0: 4A B2 32 A4 4E 43 3A 43 57 B2 50 43 28 4A 29 AB |J.2.NC:CW.PC(J).|
000048D0: 32 AB 50 43 28 4A AB 31 29 00 10 65 FC 12 46 31 |2.PC(J.1)..e..F1|
000048E0: B2 C5 28 4D 4C 24 28 4A AB 31 2C 31 29 29 3A 46 |..(ML$(J.1,1)):F|
000048F0: 32 B2 C5 28 4D 4C 24 28 4A AB 31 2C 32 29 29 3A |2..(ML$(J.1,2)):|
00004900: 46 33 B2 C5 28 4D 4C 24 28 4A AB 31 2C 33 29 29 |F3..(ML$(J.1,3))|
00004910: 00 4F 65 01 13 A1 41 24 3A 8B 41 24 B3 B1 22 22 |.Oe...A$:.A$..""|
00004920: A7 99 A3 32 39 29 22 11 11 D0 52 49 4E 54 20 D2 |...29)"...RINT .|
00004930: 4F 55 54 49 4E 45 20 C1 42 4F 52 54 45 44 22 3A |OUTINE .BORTED":|
00004940: FE 0B 32 3A 89 33 35 39 30 3A D5 34 38 37 30 00 |..2:.3590:.4870.|
00004950: 91 65 06 13 4D B2 C3 28 C8 28 52 45 43 24 28 4B |.e..M..(.(REC$(K|
00004960: 25 28 49 29 2C 46 31 29 AA 42 24 AA 52 45 43 24 |%(I),F1).B$.REC$|
00004970: 28 4B 25 28 49 29 2C 46 32 29 AA 42 24 AA 52 45 |(K%(I),F2).B$.RE|
00004980: 43 24 28 4B 25 28 49 29 2C 46 33 29 2C 43 57 29 |C$(K%(I),F3),CW)|
00004990: 29 00 BA 65 10 13 4D B2 50 43 28 4A 29 AB 4D AB |)..e..M.PC(J).M.|
000049A0: 50 43 28 4A AB 31 29 3A 43 57 B2 50 43 28 4A AA |PC(J.1):CW.PC(J.|
000049B0: 31 29 AB 32 AB 50 43 28 4A 29 00 CA 65 1A 13 98 |1).2.PC(J)..e...|
000049C0: 34 2C C8 28 53 24 2C 4D 29 3B 00 FB 65 24 13 46 |4,.(S$,M);..e$.F|
000049D0: 31 B2 C5 28 4D 4C 24 28 4A 2C 31 29 29 3A 46 32 |1..(ML$(J,1)):F2|
000049E0: B2 C5 28 4D 4C 24 28 4A 2C 32 29 29 3A 46 33 B2 |..(ML$(J,2)):F3.|
000049F0: C5 28 4D 4C 24 28 4A 2C 33 29 29 00 3C 66 2E 13 |.(ML$(J,3)).<f..|
00004A00: 98 34 2C C8 28 52 45 43 24 28 4B 25 28 49 29 2C |.4,.(REC$(K%(I),|
00004A10: 46 31 29 AA 42 24 AA 52 45 43 24 28 4B 25 28 49 |F1).B$.REC$(K%(I|
00004A20: 29 2C 46 32 29 AA 42 24 AA 52 45 43 24 28 4B 25 |),F2).B$.REC$(K%|
00004A30: 28 49 29 2C 46 33 29 2C 43 57 29 3B 00 52 66 38 |(I),F3),CW);.Rf8|
00004A40: 13 82 4A 3A 98 34 2C 42 31 24 3A 50 47 B2 50 47 |..J:.4,B1$:PG.PG|
00004A50: AA 31 00 79 66 42 13 8B 50 47 B2 36 30 A7 81 4A |.1.yfB..PG.60..J|
00004A60: B2 31 A4 36 3A 98 34 2C 42 31 24 3A 82 4A 3A 50 |.1.6:.4,B1$:.J:P|
00004A70: 47 B2 30 3A 8D 34 37 30 30 00 7F 66 4C 13 8E 00 |G.0:.4700..fL...|
00004A80: 99 66 56 13 8F 2D 2D 2D 2D 44 49 53 4B 20 45 52 |.fV..----DISK ER|
00004A90: 52 4F 52 20 43 48 45 43 4B 00 C6 66 60 13 84 31 |ROR CHECK..f`..1|
00004AA0: 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B |5,EN,EM$,ET,ES:.|
00004AB0: 28 45 4E B3 32 30 29 B0 28 45 4E B2 36 32 29 A7 |(EN.20).(EN.62).|
00004AC0: 45 54 B2 30 3A 8E 00 F4 66 6A 13 99 A3 32 32 29 |ET.0:...fj...22)|
00004AD0: 22 11 12 C4 49 53 4B 20 C5 52 52 4F 52 92 22 45 |"...ISK .RROR."E|
00004AE0: 4E 22 9D 2C 20 22 45 4D 24 22 2C 22 45 54 22 9D |N"., "EM$","ET".|
00004AF0: 2C 22 45 53 00 22 67 74 13 99 A3 32 34 29 22 11 |,"ES."gt...24)".|
00004B00: D0 52 45 53 53 20 12 C1 4E 59 20 CB 45 59 92 20 |.RESS ..NY .EY. |
00004B10: 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E |TO RETURN TO MEN|
00004B20: 55 22 00 36 67 7E 13 A1 41 24 3A 8B 41 24 B2 22 |U".6g~..A$:.A$."|
00004B30: 22 A7 34 39 39 30 00 48 67 88 13 45 54 B2 38 3A |".4990.Hg..ET.8:|
00004B40: A0 35 3A A0 31 35 3A 8E 00 61 67 92 13 8F 2D 2D |.5:.15:..ag...--|
00004B50: 2D 2D 41 44 44 20 4C 41 53 54 20 43 4F 4C 55 4D |--ADD LAST COLUM|
00004B60: 4E 00 89 67 9C 13 41 30 B2 41 30 AA C5 28 52 45 |N..g..A0.A0..(RE|
00004B70: 43 24 28 4B 25 28 49 29 2C C5 28 4D 4C 24 28 4E |C$(K%(I),.(ML$(N|
00004B80: 43 2C 31 29 29 29 29 3A 8E 00 A0 67 A6 13 8B 5A |C,1)))):...g...Z|
00004B90: B3 B1 31 A7 98 34 2C 42 31 24 3A 89 33 32 31 30 |..1..4,B1$:.3210|
00004BA0: 00 B7 67 B0 13 98 34 2C C8 28 53 24 2C 50 43 28 |..g...4,.(S$,PC(|
00004BB0: 4E 43 29 AB 31 29 3B 00 DE 67 BA 13 81 49 B2 31 |NC).1);..g...I.1|
00004BC0: A4 50 57 AB 50 43 28 4E 43 29 AA 31 3A 98 34 2C |.PW.PC(NC).1:.4,|
00004BD0: 22 2D 22 3B 3A 82 49 3A 98 34 2C 42 31 24 00 04 |"-";:.I:.4,B1$..|
00004BE0: 68 C4 13 98 34 2C C8 28 53 24 2C 50 43 28 4E 43 |h...4,.(S$,PC(NC|
00004BF0: 29 AB 39 29 AA 22 54 4F 54 41 4C 3D 20 22 AA C4 |).9)."TOTAL= "..|
00004C00: 28 41 30 29 00 15 68 CE 13 98 34 2C 42 31 24 3A |(A0)..h...4,B1$:|
00004C10: 89 33 32 31 30 00 45 68 70 17 8F 2D 53 55 42 50 |.3210.Ehp..-SUBP|
00004C20: 52 4F 47 52 41 4D 20 44 46 4D 41 49 4C 20 42 59 |ROGRAM DFMAIL BY|
00004C30: 20 4D 49 4B 45 20 4B 4F 4E 53 48 41 4B 20 28 43 | MIKE KONSHAK (C|
00004C40: 29 31 39 38 33 00 8E 68 7A 17 8F 2D 46 4F 52 31 |)1983..hz..-FOR1|
00004C50: 35 32 35 45 2C 4D 50 53 38 30 31 2C 47 45 4D 49 |525E,MPS801,GEMI|
00004C60: 4E 49 31 30 58 2C 4F 4B 49 44 41 54 41 39 32 41 |NI10X,OKIDATA92A|
00004C70: 2C 45 50 53 4F 4E 52 58 38 30 20 41 4E 44 20 4F |,EPSONRX80 AND O|
00004C80: 54 48 45 52 53 20 57 2F 43 41 52 44 43 4F 00 9D |THERS W/CARDCO..|
00004C90: 68 84 17 8B 54 25 B2 30 A7 54 25 B2 36 00 AD 68 |h...T%.0.T%.6..h|
00004CA0: 8E 17 8B 4C 57 B2 30 A7 4C 57 B2 33 32 00 C2 68 |...LW.0.LW.32..h|
00004CB0: 98 17 9F 34 2C 34 3A 8D 37 34 37 30 3A 89 36 35 |...4,4:.7470:.65|
00004CC0: 33 30 00 DC 68 A2 17 8F 2D 2D 2D 2D 4C 4F 41 44 |30..h...----LOAD|
00004CD0: 20 53 55 42 50 52 4F 47 52 41 4D 53 00 E4 68 AC | SUBPROGRAMS..h.|
00004CE0: 17 89 36 36 00 EE 68 C0 17 89 33 30 30 30 00 13 |..66..h...3000..|
00004CF0: 69 D4 17 8F 20 50 52 49 4E 54 22 93 11 11 20 20 |i... PRINT"... |
00004D00: CC 4F 41 44 49 4E 47 20 D0 52 41 43 54 49 43 41 |.OADING .RACTICA|
00004D10: 4C 43 22 00 2C 69 DE 17 8F 20 4C 4F 41 44 22 50 |LC".,i... LOAD"P|
00004D20: 52 41 43 54 49 43 41 4C 43 22 2C 38 00 42 69 E8 |RACTICALC",8.Bi.|
00004D30: 17 8F 2D 2D 2D 2D 51 55 49 54 20 52 4F 55 54 49 |..----QUIT ROUTI|
00004D40: 4E 45 00 76 69 F2 17 99 22 93 22 A3 31 39 29 22 |NE.vi...".".19)"|
00004D50: 11 11 D1 55 49 54 49 4E 47 20 4E 4F 57 20 57 49 |...UITING NOW WI|
00004D60: 4C 4C 20 45 52 41 53 45 20 43 55 52 52 45 4E 54 |LL ERASE CURRENT|
00004D70: 20 44 41 54 41 22 00 B7 69 FC 17 99 A3 31 37 29 | DATA"..i....17)|
00004D80: 22 11 C1 52 45 20 59 4F 55 20 53 55 52 45 20 59 |"..RE YOU SURE Y|
00004D90: 4F 55 20 57 41 4E 54 20 54 4F 20 51 55 49 54 3F |OU WANT TO QUIT?|
00004DA0: 20 20 20 20 20 20 20 20 20 12 D9 92 20 4F 52 20 | ... OR |
00004DB0: 12 CE 92 20 3F 20 22 00 CC 69 06 18 A1 41 24 3A |... ? "..i...A$:|
00004DC0: 8B 41 24 B2 22 22 20 A7 36 31 35 30 00 DD 69 10 |.A$."" .6150..i.|
00004DD0: 18 8B 41 24 B2 22 4E 22 A7 36 35 33 30 00 EE 69 |..A$."N".6530..i|
00004DE0: 1A 18 8B 41 24 B2 22 59 22 A7 36 31 39 30 00 F8 |...A$."Y".6190..|
00004DF0: 69 24 18 89 36 31 35 30 00 05 6A 2E 18 A0 34 3A |i$..6150..j...4:|
00004E00: 89 38 30 30 30 00 1F 6A 42 18 8F 20 2D 2D 2D 2D |.8000..jB.. ----|
00004E10: 53 45 41 52 43 48 20 52 4F 55 54 49 4E 45 53 00 |SEARCH ROUTINES.|
00004E20: 8B 6A 4C 18 99 47 52 24 22 13 13 93 A4 A4 A4 A4 |.jL..GR$".......|
00004E30: A4 20 D4 49 45 52 52 41 C2 41 53 45 20 A4 A4 A4 |. .IERRA.ASE ...|
00004E40: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00004E50: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00004E60: A4 A4 A4 A4 A4 20 D0 52 49 4E 54 20 CF 50 54 49 |..... .RINT .PTI|
00004E70: 4F 4E 53 20 A4 A4 A4 A4 A4 22 4C 54 24 3A FE 1A |ONS ....."LT$:..|
00004E80: 30 2C 32 2C 37 39 2C 32 34 2C 31 00 AE 6A 56 18 |0,2,79,24,1..jV.|
00004E90: 99 A3 32 37 29 22 11 11 11 12 C1 92 4C 4C 20 52 |..27)"......LL R|
00004EA0: 45 43 4F 52 44 53 20 49 4E 20 46 49 4C 45 00 D4 |ECORDS IN FILE..|
00004EB0: 6A 60 18 99 A3 32 37 29 22 11 12 D3 92 45 4C 45 |j`...27)"....ELE|
00004EC0: 43 54 20 49 4E 44 49 56 49 44 55 41 4C 20 52 45 |CT INDIVIDUAL RE|
00004ED0: 43 4F 52 44 00 01 6B 6A 18 99 A3 32 37 29 22 11 |CORD..kj...27)".|
00004EE0: 12 C6 92 49 4E 44 20 52 45 43 4F 52 44 53 20 57 |...IND RECORDS W|
00004EF0: 49 54 48 20 43 4F 4D 4D 4F 4E 20 46 49 45 4C 44 |ITH COMMON FIELD|
00004F00: 53 00 20 6B 74 18 99 A3 32 37 29 22 11 12 C5 92 |S. kt...27)"....|
00004F10: 58 49 54 20 54 4F 20 4D 41 49 4E 20 4D 45 4E 55 |XIT TO MAIN MENU|
00004F20: 00 5C 6B 7E 18 99 A3 32 35 29 22 11 11 0F 12 20 |.\k~...25)".... |
00004F30: 20 20 20 20 20 D0 52 45 53 53 20 54 48 45 20 41 | .RESS THE A|
00004F40: 50 50 52 4F 50 52 49 41 54 45 20 4B 45 59 20 20 |PPROPRIATE KEY |
00004F50: 20 20 20 20 92 22 C7 28 31 34 33 29 00 71 6B 88 | .".(143).qk.|
00004F60: 18 A1 43 24 3A 8B 43 24 B2 22 22 20 A7 36 32 38 |..C$:.C$."" .628|
00004F70: 30 00 82 6B 92 18 8B 43 24 B2 22 41 22 A7 36 35 |0..k...C$."A".65|
00004F80: 31 30 00 93 6B 9C 18 8B 43 24 B2 22 53 22 A7 36 |10..k...C$."S".6|
00004F90: 33 35 30 00 A4 6B A6 18 8B 43 24 B2 22 46 22 A7 |350..k...C$."F".|
00004FA0: 36 33 39 30 00 B5 6B B0 18 8B 43 24 B2 22 45 22 |6390..k...C$."E"|
00004FB0: A7 36 35 33 30 00 BF 6B BA 18 89 36 32 38 30 00 |.6530..k...6280.|
00004FC0: E1 6B C4 18 8F 2D 2D 2D 2D 53 45 4C 45 43 54 20 |.k...----SELECT |
00004FD0: 49 4E 44 49 56 49 44 55 41 4C 20 52 45 43 4F 52 |INDIVIDUAL RECOR|
00004FE0: 44 00 0F 6C CE 18 99 A3 32 37 29 3B 3A 85 22 11 |D..l....27);:.".|
00004FF0: 11 D0 52 49 4E 54 20 57 48 49 43 48 20 52 45 43 |..RINT WHICH REC|
00005000: 4F 52 44 22 3B 49 24 3A 49 B2 C5 28 49 24 29 00 |ORD";I$:I..(I$).|
00005010: 4D 6C D8 18 8B 49 B1 58 A7 99 A3 32 37 29 22 CE |Ml...I.X...27)".|
00005020: 4F 20 53 55 43 48 20 52 45 43 4F 52 44 20 45 58 |O SUCH RECORD EX|
00005030: 49 53 54 53 2C 20 54 52 59 20 41 47 41 49 4E 91 |ISTS, TRY AGAIN.|
00005040: 91 91 22 3A FE 0B 32 3A 89 36 33 35 30 00 5D 6C |..":..2:.6350.]l|
00005050: E2 18 8D 37 34 31 30 3A 89 36 32 32 30 00 7A 6C |...7410:.6220.zl|
00005060: EC 18 8F 2D 2D 2D 2D 46 49 4E 44 20 43 4F 4D 4D |...----FIND COMM|
00005070: 4F 4E 20 52 45 43 4F 52 44 53 00 B2 6C F6 18 99 |ON RECORDS..l...|
00005080: 22 93 22 A3 32 32 29 22 11 12 20 20 20 20 C6 49 |".".22)".. .I|
00005090: 4E 44 20 D2 45 43 4F 52 44 53 20 D7 49 54 48 20 |ND .ECORDS .ITH |
000050A0: C3 4F 4D 4D 4F 4E 20 C9 54 45 4D 53 20 20 20 20 |.OMMON .TEMS |
000050B0: 11 22 00 D8 6C 00 19 81 20 4E B2 31 A4 46 3A 99 |."..l... N.1.F:.|
000050C0: A3 32 30 29 22 20 12 22 3B 4E 3B 22 92 20 22 3B |.20)" .";N;". ";|
000050D0: 46 24 28 4E 29 3A 82 4E 00 08 6D 0A 19 99 A3 32 |F$(N):.N..m....2|
000050E0: 36 29 3B 3A 85 22 11 D7 48 49 43 48 20 46 49 45 |6);:."..HICH FIE|
000050F0: 4C 44 20 49 53 20 54 4F 20 42 45 20 53 45 41 52 |LD IS TO BE SEAR|
00005100: 43 48 45 44 22 3B 53 46 00 29 6D 14 19 8B 53 46 |CHED";SF.)m...SF|
00005110: B3 30 B0 53 46 B1 46 20 A7 99 A3 32 36 29 22 91 |.0.SF.F ...26)".|
00005120: 91 91 22 3A 89 36 34 31 30 00 7E 6D 1E 19 99 A3 |..":.6410.~m....|
00005130: 32 31 29 22 11 11 C5 4E 54 45 52 20 12 C3 4F 4D |21)"...NTER ..OM|
00005140: 4D 4F 4E 20 C9 54 45 4D 92 20 22 3A 99 A3 32 31 |MON .TEM. ":..21|
00005150: 29 22 11 11 CE 4F 54 45 3A 20 28 54 48 45 20 45 |)"...OTE: (THE E|
00005160: 4E 54 49 52 45 20 53 54 52 49 4E 47 20 49 53 20 |NTIRE STRING IS |
00005170: 4E 4F 54 20 52 45 51 55 49 52 45 44 29 22 00 9D |NOT REQUIRED)"..|
00005180: 6D 28 19 99 A3 32 36 29 22 11 12 22 3B 46 24 28 |m(...26)"..";F$(|
00005190: 53 46 29 3B 22 92 20 22 3B 3A 85 54 24 00 A8 6D |SF);". ";:.T$..m|
000051A0: 32 19 81 49 B2 31 A4 58 00 CC 6D 3C 19 99 A3 32 |2..I.1.X..m<...2|
000051B0: 31 29 22 11 D3 45 41 52 43 48 49 4E 47 20 52 45 |1)"..EARCHING RE|
000051C0: 43 4F 52 44 22 3B 49 3B 22 91 91 22 00 F2 6D 46 |CORD";I;".."..mF|
000051D0: 19 8B 54 24 B2 C8 28 52 45 43 24 28 4B 25 28 49 |..T$..(REC$(K%(I|
000051E0: 29 2C 53 46 29 2C C3 28 54 24 29 29 A7 8D 37 34 |),SF),.(T$))..74|
000051F0: 31 30 00 F9 6D 50 19 82 49 00 03 6E 5A 19 89 36 |10..mP..I..nZ..6|
00005200: 32 32 30 00 1E 6E 64 19 8F 2D 2D 2D 2D 50 52 49 |220..nd..----PRI|
00005210: 4E 54 20 41 4C 4C 20 52 45 43 4F 52 44 53 00 7C |NT ALL RECORDS.||
00005220: 6E 6E 19 99 22 93 22 A3 33 32 29 47 52 24 22 12 |nn..".".32)GR$".|
00005230: C1 4E 59 20 CB 45 59 20 C1 42 4F 52 54 53 92 22 |.NY .EY .BORTS."|
00005240: 4C 54 24 3A 99 22 11 11 22 3A 81 49 B2 31 A4 58 |LT$:."..":.I.1.X|
00005250: 3A 99 A3 32 39 29 22 91 20 D0 52 49 4E 54 49 4E |:..29)". .RINTIN|
00005260: 47 20 52 45 43 4F 52 44 20 23 22 3B 49 3A 8D 37 |G RECORD #";I:.7|
00005270: 34 31 30 3A 82 49 3A 89 36 32 32 30 00 99 6E 78 |410:.I:.6220..nx|
00005280: 19 8F 2D 2D 2D 2D 4D 41 49 4C 49 4E 47 20 4C 41 |..----MAILING LA|
00005290: 42 45 4C 53 20 4D 45 4E 55 00 05 6F 82 19 99 47 |BELS MENU..o...G|
000052A0: 52 24 22 13 13 93 A4 A4 A4 A4 A4 20 D4 49 45 52 |R$"........ .IER|
000052B0: 52 41 C2 41 53 45 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 |RA.ASE .........|
000052C0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
000052D0: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 20 CD |.............. .|
000052E0: 41 49 4C 49 4E 47 20 CC 41 42 45 4C 53 20 A4 A4 |AILING .ABELS ..|
000052F0: A4 A4 A4 22 4C 54 24 3A FE 1A 30 2C 32 2C 37 39 |..."LT$:..0,2,79|
00005300: 2C 32 34 2C 31 00 2A 6F 8C 19 99 A3 32 37 29 22 |,24,1.*o....27)"|
00005310: 11 11 12 D0 92 52 45 2D 44 45 46 49 4E 45 44 20 |.....RE-DEFINED |
00005320: 46 4F 52 4D 41 54 20 4F 52 22 00 4A 6F 96 19 99 |FORMAT OR".Jo...|
00005330: A3 32 37 29 22 11 12 C4 92 45 46 49 4E 45 20 4E |.27)"....EFINE N|
00005340: 45 57 20 46 4F 52 4D 41 54 22 00 6A 6F A0 19 99 |EW FORMAT".jo...|
00005350: A3 32 37 29 22 11 12 C3 92 48 41 4E 47 45 20 4C |.27)"....HANGE L|
00005360: 41 42 45 4C 20 53 49 5A 45 22 00 91 6F AA 19 99 |ABEL SIZE"..o...|
00005370: A3 32 37 29 22 11 11 12 C5 92 58 49 54 20 54 4F |.27)".....XIT TO|
00005380: 20 4D 41 49 4E 20 50 52 4F 47 52 41 4D 20 4F 52 | MAIN PROGRAM OR|
00005390: 22 00 B6 6F B4 19 99 A3 32 37 29 22 11 12 D2 92 |"..o....27)"....|
000053A0: 45 50 4F 52 54 2F 4C 49 53 54 49 4E 47 20 50 52 |EPORT/LISTING PR|
000053B0: 4F 47 52 41 4D 22 00 E8 6F BE 19 8F 20 50 52 49 |OGRAM"..o... PRI|
000053C0: 4E 54 54 41 42 28 32 37 29 22 11 12 C3 92 41 4C |NTTAB(27)"....AL|
000053D0: 43 55 4C 41 54 45 44 20 52 45 50 4F 52 54 53 20 |CULATED REPORTS |
000053E0: 50 52 4F 47 52 41 4D 22 00 03 70 C8 19 99 A3 32 |PROGRAM"..p....2|
000053F0: 37 29 22 11 12 D1 92 55 49 54 20 50 52 4F 47 52 |7)"....UIT PROGR|
00005400: 41 4D 22 00 3F 70 D2 19 99 A3 32 30 29 22 11 11 |AM".?p....20)"..|
00005410: 0F 12 20 20 20 20 20 20 D0 52 45 53 53 20 54 48 |.. .RESS TH|
00005420: 45 20 41 50 50 52 4F 50 52 49 41 54 45 20 4B 45 |E APPROPRIATE KE|
00005430: 59 20 20 20 20 20 20 20 22 C7 28 31 34 33 29 00 |Y ".(143).|
00005440: 54 70 DC 19 A1 43 24 3A 8B 43 24 B2 22 22 20 A7 |Tp...C$:.C$."" .|
00005450: 36 36 32 30 00 65 70 E6 19 8B 43 24 B2 22 50 22 |6620.ep...C$."P"|
00005460: A7 37 31 34 30 00 7D 70 F0 19 8B 43 24 B2 22 43 |.7140.}p...C$."C|
00005470: 22 A7 8D 37 34 37 30 3A 89 36 35 33 30 00 92 70 |"..7470:.6530..p|
00005480: FA 19 8B 43 24 B2 22 45 22 A7 A0 34 3A 89 36 30 |...C$."E"..4:.60|
00005490: 36 30 00 A7 70 04 1A 8B 43 24 B2 22 52 22 A7 A0 |60..p...C$."R"..|
000054A0: 34 3A 89 36 30 38 30 00 C9 70 0E 1A 8F 20 49 46 |4:.6080..p... IF|
000054B0: 43 24 3D 22 43 22 54 48 45 4E 43 4C 4F 53 45 34 |C$="C"THENCLOSE4|
000054C0: 3A 47 4F 54 4F 31 30 31 38 00 DA 70 18 1A 8B 43 |:GOTO1018..p...C|
000054D0: 24 B2 22 44 22 A7 36 37 32 30 00 EB 70 22 1A 8B |$."D".6720..p"..|
000054E0: 43 24 B2 22 51 22 A7 36 31 33 30 00 F5 70 2C 1A |C$."Q".6130..p,.|
000054F0: 89 36 36 32 30 00 14 71 36 1A 8F 2D 2D 2D 2D 2D |.6620..q6..-----|
00005500: 2D 4D 41 49 4C 49 4E 47 20 4C 49 53 54 20 46 4F |-MAILING LIST FO|
00005510: 52 4D 41 54 00 80 71 40 1A 99 47 52 24 22 13 13 |RMAT..q@..GR$"..|
00005520: 93 A4 A4 A4 A4 A4 20 D4 49 45 52 52 41 C2 41 53 |...... .IERRA.AS|
00005530: 45 20 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |E ..............|
00005540: A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 A4 |................|
00005550: A4 A4 A4 A4 20 CD 41 49 4C 49 4E 47 20 CC 49 53 |.... .AILING .IS|
00005560: 54 20 C6 4F 52 4D 41 54 20 A4 A4 A4 A4 A4 22 4C |T .ORMAT ....."L|
00005570: 54 24 3A FE 1A 30 2C 32 2C 37 39 2C 32 34 2C 31 |T$:..0,2,79,24,1|
00005580: 00 AF 71 4A 1A 99 22 11 11 20 D4 48 49 53 20 46 |..qJ..".. .HIS F|
00005590: 4F 52 4D 41 54 20 55 53 45 53 20 53 49 4E 47 4C |ORMAT USES SINGL|
000055A0: 45 20 52 4F 57 20 4C 41 42 45 4C 53 2E 22 3B 00 |E ROW LABELS.";.|
000055B0: DD 71 54 1A 99 22 20 45 41 43 48 20 4C 41 42 45 |.qT.." EACH LABE|
000055C0: 4C 20 43 4F 4E 54 41 49 4E 53 20 55 50 20 54 4F |L CONTAINS UP TO|
000055D0: 22 54 25 AB 31 22 20 52 4F 57 53 2E 22 00 0D 72 |"T%.1" ROWS."..r|
000055E0: 5E 1A 99 22 20 C5 41 43 48 20 52 4F 57 20 43 41 |^.." .ACH ROW CA|
000055F0: 4E 20 43 4F 4E 53 49 53 54 20 4F 46 20 31 20 54 |N CONSIST OF 1 T|
00005600: 4F 20 33 20 46 49 45 4C 44 53 2E 22 3B 00 3E 72 |O 3 FIELDS.";.>r|
00005610: 68 1A 99 22 20 C9 46 20 54 48 45 20 4C 45 4E 47 |h.." .F THE LENG|
00005620: 54 48 20 4F 46 20 4D 55 4C 54 49 50 4C 45 20 49 |TH OF MULTIPLE I|
00005630: 54 45 4D 53 20 45 58 43 45 45 44 53 22 3B 00 59 |TEMS EXCEEDS";.Y|
00005640: 72 72 1A 99 22 20 20 9D 22 4C 57 22 43 48 41 52 |rr.." ."LW"CHAR|
00005650: 41 43 54 45 52 53 2C 22 3B 00 7C 72 73 1A 99 22 |ACTERS,";.|rs.."|
00005660: 20 53 4F 4D 45 20 44 41 54 41 20 57 49 4C 4C 20 | SOME DATA WILL |
00005670: 42 45 20 43 55 54 20 4F 46 46 2E 22 00 D7 72 7C |BE CUT OFF."..r||
00005680: 1A 99 22 11 20 20 20 20 20 20 20 20 20 20 20 20 |..". |
00005690: 20 20 20 20 20 20 12 CE 55 4D 42 45 52 20 4F 46 | ..UMBER OF|
000056A0: 20 52 4F 57 53 3F 22 3A 99 A3 32 34 29 22 20 20 | ROWS?":..24)" |
000056B0: 20 20 20 20 20 20 20 20 20 9D 9D 9D 22 3B 52 57 | ...";RW|
000056C0: 3A 99 A3 32 33 29 3B 3A 85 22 20 20 20 20 20 20 |:..23);:." |
000056D0: 20 20 91 22 3B 52 57 00 F9 72 86 1A 8B 52 57 B1 | .";RW..r...RW.|
000056E0: 54 25 AB 31 A7 99 22 20 20 20 20 20 20 20 20 91 |T%.1.." .|
000056F0: 91 91 22 3A 89 36 37 38 30 00 08 73 90 1A 8B 52 |..":.6780..s...R|
00005700: 57 B2 30 A7 36 35 33 30 00 39 73 9A 1A 99 22 93 |W.0.6530.9s...".|
00005710: 22 A3 32 31 29 22 C3 48 4F 4F 53 45 20 57 48 49 |".21)".HOOSE WHI|
00005720: 43 48 20 46 49 45 4C 44 53 20 47 4F 20 49 4E 20 |CH FIELDS GO IN |
00005730: 45 41 43 48 20 52 4F 57 22 00 76 73 A4 1A 99 A3 |EACH ROW".vs....|
00005740: 31 36 29 22 20 C5 4E 54 45 52 20 12 30 92 20 49 |16)" .NTER .0. I|
00005750: 46 20 41 44 44 49 54 49 4F 4E 41 4C 20 46 49 45 |F ADDITIONAL FIE|
00005760: 4C 44 53 20 41 52 45 20 4E 4F 54 20 44 45 53 49 |LDS ARE NOT DESI|
00005770: 52 45 44 2E 11 22 00 9A 73 AE 1A 81 4E B2 31 A4 |RED.."..s...N.1.|
00005780: 46 3A 99 A3 32 31 29 22 12 22 3B 4E 3B 22 92 20 |F:..21)".";N;". |
00005790: 22 3B 46 24 28 4E 29 3A 82 4E 00 C1 73 B8 1A 81 |";F$(N):.N..s...|
000057A0: 20 4A B2 31 A4 52 57 3A 99 22 13 11 11 11 11 22 | J.1.RW:."....."|
000057B0: 3B A3 34 36 29 22 52 4F 57 22 3B 4A 3B 22 11 11 |;.46)"ROW";J;"..|
000057C0: 22 00 ED 73 C2 1A 81 4C B2 31 A4 33 3A 99 A3 34 |"..s...L.1.3:..4|
000057D0: 36 29 22 91 C6 49 45 4C 44 22 3B 4C 3B 22 20 30 |6)"..IELD";L;" 0|
000057E0: 20 9D 9D 22 3B 4D 4C 24 28 4A 2C 4C 29 00 06 74 | ..";ML$(J,L)..t|
000057F0: CC 1A 99 A3 35 33 29 3B 22 91 22 3B 3A 85 4D 4C |....53);".";:.ML|
00005800: 24 28 4A 2C 4C 29 00 0D 74 D6 1A 82 4C 00 14 74 |$(J,L)..t...L..t|
00005810: E0 1A 82 4A 00 4A 74 EA 1A 99 22 93 11 11 20 C4 |...J.Jt..."... .|
00005820: 4F 20 59 4F 55 20 57 49 53 48 20 54 4F 20 52 45 |O YOU WISH TO RE|
00005830: 56 49 45 57 20 59 4F 55 52 20 46 4F 52 4D 41 54 |VIEW YOUR FORMAT|
00005840: 20 41 4E 44 2F 4F 52 20 22 3B 00 75 74 F4 1A 99 | AND/OR ";.ut...|
00005850: 22 4D 41 4B 45 20 43 4F 52 52 45 43 54 49 4F 4E |"MAKE CORRECTION|
00005860: 53 3F 20 20 50 52 45 53 53 20 12 D9 92 20 4F 52 |S? PRESS ... OR|
00005870: 20 12 CE 92 22 00 89 74 FE 1A A1 41 24 3A 8B 41 | ..."..t...A$:.A|
00005880: 24 B2 22 22 A7 36 39 31 30 00 9A 74 08 1B 8B 41 |$."".6910..t...A|
00005890: 24 B2 22 59 22 A7 36 37 32 30 00 AB 74 12 1B 8B |$."Y".6720..t...|
000058A0: 41 24 B2 22 4E 22 A7 36 39 36 30 00 B5 74 1C 1B |A$."N".6960..t..|
000058B0: 89 36 39 31 30 00 D9 74 26 1B 8F 2D 2D 2D 2D 2D |.6910..t&..-----|
000058C0: 53 41 56 45 20 4D 41 49 4C 49 4E 47 20 4C 41 42 |SAVE MAILING LAB|
000058D0: 45 4C 20 46 4F 52 4D 41 54 00 0B 75 30 1B 99 A3 |EL FORMAT..u0...|
000058E0: 32 34 29 22 11 12 D3 41 56 45 20 46 4F 52 4D 41 |24)"...AVE FORMA|
000058F0: 54 92 3F 20 20 20 20 20 20 20 20 20 20 20 20 20 |T.? |
00005900: 12 D9 92 20 4F 52 20 12 CE 92 22 00 1F 75 3A 1B |... OR ..."..u:.|
00005910: A1 41 24 3A 8B 41 24 B2 22 22 A7 36 39 37 30 00 |.A$:.A$."".6970.|
00005920: 30 75 44 1B 8B 41 24 B2 22 4E 22 A7 37 32 38 30 |0uD..A$."N".7280|
00005930: 00 41 75 4E 1B 8B 41 24 B2 22 59 22 A7 37 30 31 |.AuN..A$."Y".701|
00005940: 30 00 4B 75 58 1B 89 36 39 37 30 00 73 75 62 1B |0.KuX..6970.sub.|
00005950: 99 A3 32 35 29 22 11 20 D3 41 56 45 20 55 4E 44 |..25)". .AVE UND|
00005960: 45 52 20 57 48 41 54 20 46 49 4C 45 20 4E 41 4D |ER WHAT FILE NAM|
00005970: 45 3F 22 00 A1 75 6C 1B 99 A3 32 37 29 22 11 22 |E?"..ul...27)"."|
00005980: 3B 4E 46 24 3A 99 A3 32 35 29 3B 3A 85 22 91 22 |;NF$:..25);:."."|
00005990: 3B 4E 46 24 3A 8B 4E 46 24 B2 22 22 A7 36 35 33 |;NF$:.NF$."".653|
000059A0: 30 00 D1 75 76 1B 9F 31 35 2C 38 2C 31 35 3A 98 |0..uv..15,8,15:.|
000059B0: 31 35 2C 22 53 30 3A 4D 4C 5D 20 22 AA 4E 46 24 |15,"S0:ML] ".NF$|
000059C0: 3A 8D 37 36 35 30 3A 8B 45 54 B2 38 A7 36 35 33 |:.7650:.ET.8.653|
000059D0: 30 00 01 76 80 1B 9F 35 2C 38 2C 35 2C 22 30 3A |0..v...5,8,5,"0:|
000059E0: 4D 4C 5D 20 22 AA 4E 46 24 AA 22 2C 53 2C 57 22 |ML] ".NF$.",S,W"|
000059F0: 3A 8D 37 36 35 30 3A 8B 45 54 B2 38 A7 36 35 33 |:.7650:.ET.8.653|
00005A00: 30 00 0B 76 8A 1B 98 35 2C 52 57 00 1E 76 94 1B |0..v...5,RW..v..|
00005A10: 81 49 B2 31 A4 52 57 3A 81 4E B2 31 A4 33 00 3F |.I.1.RW:.N.1.3.?|
00005A20: 76 9E 1B 98 35 2C 4D 4C 24 28 49 2C 4E 29 3A 8D |v...5,ML$(I,N):.|
00005A30: 37 36 35 30 3A 8B 45 54 B2 38 A7 36 35 33 30 00 |7650:.ET.8.6530.|
00005A40: 46 76 A8 1B 82 4E 00 4D 76 B2 1B 82 49 00 6B 76 |Fv...N.Mv...I.kv|
00005A50: BC 1B 98 35 2C 22 45 4F 46 22 3A 8D 37 36 35 30 |...5,"EOF":.7650|
00005A60: 3A 8B 45 54 B2 38 A7 36 35 33 30 00 76 76 C6 1B |:.ET.8.6530.vv..|
00005A70: A0 35 3A A0 31 35 00 80 76 D0 1B 89 37 32 38 30 |.5:.15..v...7280|
00005A80: 00 A4 76 DA 1B 8F 2D 2D 2D 2D 2D 4C 4F 41 44 20 |..v...-----LOAD |
00005A90: 4D 41 49 4C 49 4E 47 20 4C 41 42 45 4C 20 46 4F |MAILING LABEL FO|
00005AA0: 52 4D 41 54 00 D1 76 E4 1B 99 22 93 22 A3 32 36 |RMAT..v...".".26|
00005AB0: 29 22 11 11 20 CC 4F 41 44 20 46 4F 52 4D 41 54 |)".. .OAD FORMAT|
00005AC0: 20 46 52 4F 4D 20 57 48 41 54 20 46 49 4C 45 3F | FROM WHAT FILE?|
00005AD0: 22 00 FF 76 EE 1B 99 A3 32 37 29 22 11 22 3B 4E |"..v....27)".";N|
00005AE0: 46 24 3A 99 A3 32 35 29 3B 3A 85 22 91 22 3B 4E |F$:..25);:.".";N|
00005AF0: 46 24 3A 8B 4E 46 24 B2 22 22 A7 36 35 33 30 00 |F$:.NF$."".6530.|
00005B00: 38 77 F8 1B 9F 31 35 2C 38 2C 31 35 3A 9F 35 2C |8w...15,8,15:.5,|
00005B10: 38 2C 35 2C 22 30 3A 4D 4C 5D 20 22 AA 4E 46 24 |8,5,"0:ML] ".NF$|
00005B20: AA 22 2C 53 2C 52 22 3A 8D 37 36 35 30 3A 8B 45 |.",S,R":.7650:.E|
00005B30: 54 B2 38 A7 36 35 33 30 00 4F 77 02 1C 8B 45 4E |T.8.6530.Ow...EN|
00005B40: B2 36 32 A7 8D 37 36 36 30 3A 89 36 35 33 30 00 |.62..7660:.6530.|
00005B50: 59 77 0C 1C 84 35 2C 52 57 00 6C 77 16 1C 81 49 |Yw...5,RW.lw...I|
00005B60: B2 31 A4 52 57 3A 81 4E B2 31 A4 33 00 8D 77 20 |.1.RW:.N.1.3..w |
00005B70: 1C 84 35 2C 4D 4C 24 28 49 2C 4E 29 3A 8D 37 36 |..5,ML$(I,N):.76|
00005B80: 35 30 3A 8B 45 54 B2 38 A7 36 35 33 30 00 94 77 |50:.ET.8.6530..w|
00005B90: 2A 1C 82 4E 00 9B 77 34 1C 82 49 00 AF 77 3E 1C |*..N..w4..I..w>.|
00005BA0: 53 B2 53 54 3A 8B 53 B3 B1 30 A7 37 32 35 30 00 |S.ST:.S..0.7250.|
00005BB0: B9 77 48 1C 84 35 2C 45 24 00 C4 77 52 1C A0 35 |.wH..5,E$..wR..5|
00005BC0: 3A A0 31 35 00 CE 77 5C 1C 89 36 38 39 30 00 EC |:.15..w\..6890..|
00005BD0: 77 66 1C 8F 2D 2D 2D 2D 2D 50 52 49 4E 54 20 53 |wf..-----PRINT S|
00005BE0: 41 4D 50 4C 45 20 4C 41 42 45 4C 53 00 1E 78 70 |AMPLE LABELS..xp|
00005BF0: 1C 99 22 93 11 11 20 C9 4E 53 45 52 54 20 53 49 |.."... .NSERT SI|
00005C00: 4E 47 4C 45 20 52 4F 57 20 54 52 41 43 54 4F 52 |NGLE ROW TRACTOR|
00005C10: 20 46 45 45 44 20 4C 41 42 45 4C 53 22 3B 00 4C | FEED LABELS";.L|
00005C20: 78 7A 1C 99 22 20 52 55 4E 20 54 45 53 54 20 4C |xz.." RUN TEST L|
00005C30: 41 42 45 4C 53 20 54 4F 20 48 45 4C 50 20 50 4F |ABELS TO HELP PO|
00005C40: 53 49 54 49 4F 4E 20 54 48 45 4D 22 00 6B 78 84 |SITION THEM".kx.|
00005C50: 1C 99 A3 32 31 29 22 11 11 50 52 45 53 53 20 12 |...21)"..PRESS .|
00005C60: D4 92 45 53 54 20 4C 41 42 45 4C 00 87 78 8E 1C |..EST LABEL..x..|
00005C70: 99 A3 32 37 29 22 11 12 C3 92 48 4F 4F 53 45 20 |..27)"....HOOSE |
00005C80: 52 45 43 4F 52 44 53 00 A1 78 98 1C 99 A3 32 37 |RECORDS..x....27|
00005C90: 29 22 11 12 C5 92 58 49 54 20 54 4F 20 4D 45 4E |)"....XIT TO MEN|
00005CA0: 55 00 B5 78 A2 1C A1 41 24 3A 8B 41 24 B2 22 22 |U..x...A$:.A$.""|
00005CB0: A7 37 33 33 30 00 C6 78 AC 1C 8B 41 24 B2 22 43 |.7330..x...A$."C|
00005CC0: 22 A7 36 32 32 30 00 D7 78 B6 1C 8B 41 24 B2 22 |".6220..x...A$."|
00005CD0: 45 22 A7 36 35 33 30 00 E9 78 C0 1C 8B 41 24 B3 |E".6530..x...A$.|
00005CE0: B1 22 54 22 A7 37 33 33 30 00 18 79 CA 1C 81 49 |."T".7330..y...I|
00005CF0: B2 31 A4 52 57 3A 81 4A B2 31 A4 4C 57 3A 98 34 |.1.RW:.J.1.LW:.4|
00005D00: 2C C9 28 C4 28 4A 29 2C 31 29 3B 3A 82 4A 3A 98 |,.(.(J),1);:.J:.|
00005D10: 34 2C 42 31 24 3A 82 49 00 31 79 D4 1C 81 49 B2 |4,B1$:.I.1y...I.|
00005D20: 31 A4 54 25 AB 52 57 3A 98 34 2C 42 31 24 3A 82 |1.T%.RW:.4,B1$:.|
00005D30: 49 00 3B 79 DE 1C 89 37 32 38 30 00 51 79 E8 1C |I.;y...7280.Qy..|
00005D40: 8F 2D 2D 2D 2D 50 52 49 4E 54 20 4C 41 42 45 4C |.----PRINT LABEL|
00005D50: 53 00 8A 79 F2 1C 81 4A B2 31 A4 52 57 3A 46 31 |S..y...J.1.RW:F1|
00005D60: B2 C5 28 4D 4C 24 28 4A 2C 31 29 29 3A 46 32 B2 |..(ML$(J,1)):F2.|
00005D70: C5 28 4D 4C 24 28 4A 2C 32 29 29 3A 46 33 B2 C5 |.(ML$(J,2)):F3..|
00005D80: 28 4D 4C 24 28 4A 2C 33 29 29 00 CA 79 FC 1C 98 |(ML$(J,3))..y...|
00005D90: 34 2C C8 28 52 45 43 24 28 4B 25 28 49 29 2C 46 |4,.(REC$(K%(I),F|
00005DA0: 31 29 AA 42 24 AA 52 45 43 24 28 4B 25 28 49 29 |1).B$.REC$(K%(I)|
00005DB0: 2C 46 32 29 AA 42 24 AA 52 45 43 24 28 4B 25 28 |,F2).B$.REC$(K%(|
00005DC0: 49 29 2C 46 33 29 2C 4C 57 29 00 21 7A 01 1D A1 |I),F3),LW).!z...|
00005DD0: 41 24 3A 8B 41 24 B3 B1 22 22 A7 99 22 11 11 20 |A$:.A$..""..".. |
00005DE0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00005DF0: 20 20 20 20 20 20 20 20 20 20 20 D0 52 49 4E 54 | .RINT|
00005E00: 20 D2 4F 55 54 49 4E 45 20 C1 42 4F 52 54 45 44 | .OUTINE .BORTED|
00005E10: 22 3A FE 0B 32 3A 89 33 35 39 30 3A D5 37 34 33 |":..2:.3590:.743|
00005E20: 30 00 28 7A 06 1D 82 4A 00 41 7A 10 1D 81 53 B2 |0.(z...J.Az...S.|
00005E30: 31 A4 54 25 AB 52 57 3A 98 34 2C 42 31 24 3A 82 |1.T%.RW:.4,B1$:.|
00005E40: 53 00 47 7A 1A 1D 8E 00 62 7A 24 1D 8F 2D 2D 2D |S.Gz....bz$..---|
00005E50: 2D 43 48 4F 4F 53 45 20 4C 41 42 45 4C 20 53 49 |-CHOOSE LABEL SI|
00005E60: 5A 45 00 9E 7A 2E 1D 99 22 93 22 A3 32 30 29 47 |ZE..z...".".20)G|
00005E70: 52 24 22 12 20 20 20 20 20 20 20 20 20 20 20 20 |R$". |
00005E80: CC 41 42 45 4C 20 D3 49 5A 45 20 20 20 20 20 20 |.ABEL .IZE |
00005E90: 20 20 20 20 20 20 20 20 20 92 22 4C 54 24 00 C8 | ."LT$..|
00005EA0: 7A 38 1D 99 A3 32 33 29 22 11 12 D3 92 54 41 4E |z8...23)"....TAN|
00005EB0: 44 41 52 44 20 2D 20 35 20 52 4F 57 53 20 50 45 |DARD - 5 ROWS PE|
00005EC0: 52 20 4C 41 42 45 4C 22 00 EE 7A 42 1D 99 A3 32 |R LABEL"..zB...2|
00005ED0: 33 29 22 31 35 2F 31 36 20 49 4E 43 48 20 42 59 |3)"15/16 INCH BY|
00005EE0: 20 33 20 31 2F 32 20 49 4E 43 48 45 53 22 00 18 | 3 1/2 INCHES"..|
00005EF0: 7B 4C 1D 99 A3 32 33 29 22 11 12 CC 92 41 52 47 |{L...23)"....ARG|
00005F00: 45 20 20 20 20 2D 20 38 20 52 4F 57 53 20 50 45 |E - 8 ROWS PE|
00005F10: 52 20 4C 41 42 45 4C 22 00 3F 7B 56 1D 99 A3 32 |R LABEL".?{V...2|
00005F20: 33 29 22 31 20 37 2F 31 36 20 49 4E 43 48 20 42 |3)"1 7/16 INCH B|
00005F30: 59 20 33 20 31 2F 32 20 49 4E 43 48 45 53 22 00 |Y 3 1/2 INCHES".|
00005F40: 6D 7B 60 1D 99 A3 32 33 29 22 11 12 CF 92 54 48 |m{`...23)"....TH|
00005F50: 45 52 20 20 20 20 2D 20 43 55 53 54 4F 4D 20 4C |ER - CUSTOM L|
00005F60: 41 42 45 4C 20 53 49 5A 45 20 4F 52 22 00 95 7B |ABEL SIZE OR"..{|
00005F70: 6A 1D 99 A3 32 33 29 22 4E 55 4D 42 45 52 20 4F |j...23)"NUMBER O|
00005F80: 46 20 43 48 41 52 41 43 54 45 52 53 20 50 45 52 |F CHARACTERS PER|
00005F90: 20 52 4F 57 22 00 C8 7B 74 1D 99 A3 32 30 29 22 | ROW"..{t...20)"|
00005FA0: 11 11 CE 4F 54 45 3A 20 CC 41 42 45 4C 53 20 41 |...OTE: .ABELS A|
00005FB0: 52 45 20 53 45 50 41 52 41 54 45 44 20 42 59 20 |RE SEPARATED BY |
00005FC0: 4F 4E 45 20 52 4F 57 22 00 F5 7B 7E 1D 99 A3 32 |ONE ROW"..{~...2|
00005FD0: 32 29 22 33 32 20 43 48 41 52 41 43 54 45 52 53 |2)"32 CHARACTERS|
00005FE0: 20 50 45 52 20 52 4F 57 20 49 53 20 53 54 41 4E | PER ROW IS STAN|
00005FF0: 44 41 52 44 22 00 30 7C 88 1D 99 47 52 24 A3 32 |DARD".0|...GR$.2|
00006000: 30 29 22 11 12 20 20 20 20 20 20 D0 52 45 53 53 |0)".. .RESS|
00006010: 20 54 48 45 20 41 50 50 52 4F 50 52 49 41 54 45 | THE APPROPRIATE|
00006020: 20 4B 45 59 20 20 20 20 20 20 20 92 22 4C 54 24 | KEY ."LT$|
00006030: 00 44 7C 92 1D A1 43 24 3A 8B 43 24 B2 22 22 A7 |.D|...C$:.C$."".|
00006040: 37 35 37 30 00 62 7C 9C 1D 8B 43 24 B2 22 53 22 |7570.b|...C$."S"|
00006050: A7 54 25 B2 36 3A 52 57 B2 35 3A 4C 57 B2 33 32 |.T%.6:RW.5:LW.32|
00006060: 3A 8E 00 80 7C A6 1D 8B 43 24 B2 22 4C 22 A7 54 |:...|...C$."L".T|
00006070: 25 B2 39 3A 52 57 B2 38 3A 4C 57 B2 33 32 3A 8E |%.9:RW.8:LW.32:.|
00006080: 00 91 7C B0 1D 8B 43 24 B2 22 4F 22 A7 37 36 32 |..|...C$."O".762|
00006090: 30 00 9B 7C BA 1D 89 37 35 37 30 00 E0 7C C4 1D |0..|...7570..|..|
000060A0: 85 22 11 20 20 20 20 20 20 20 20 20 20 20 20 20 |.". |
000060B0: 20 20 20 20 20 20 20 C5 4E 54 45 52 20 4E 55 4D | .NTER NUM|
000060C0: 42 45 52 20 4F 46 20 52 4F 57 53 20 4F 4E 20 4C |BER OF ROWS ON L|
000060D0: 41 42 45 4C 22 3B 52 57 3A 54 25 B2 52 57 AA 31 |ABEL";RW:T%.RW.1|
000060E0: 00 1E 7D CE 1D 85 22 20 20 20 20 20 20 20 20 20 |..}..." |
000060F0: 20 20 20 20 20 20 20 20 20 20 20 C5 4E 54 45 52 | .NTER|
00006100: 20 23 20 4F 46 20 43 48 41 52 41 43 54 45 52 53 | # OF CHARACTERS|
00006110: 20 50 45 52 20 52 4F 57 22 3B 4C 57 3A 8E 00 38 | PER ROW";LW:..8|
00006120: 7D D8 1D 8F 2D 2D 2D 2D 44 49 53 4B 20 45 52 52 |}...----DISK ERR|
00006130: 4F 52 20 43 48 45 43 4B 00 65 7D E2 1D 84 31 35 |OR CHECK.e}...15|
00006140: 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 53 3A 8B 28 |,EN,EM$,ET,ES:.(|
00006150: 45 4E B3 32 30 29 B0 28 45 4E B2 36 32 29 A7 45 |EN.20).(EN.62).E|
00006160: 54 B2 30 3A 8E 00 93 7D EC 1D 99 A3 32 30 29 22 |T.0:...}....20)"|
00006170: 11 12 C4 49 53 4B 20 C5 52 52 4F 52 92 22 45 4E |...ISK .RROR."EN|
00006180: 22 9D 2C 20 22 45 4D 24 22 2C 22 45 54 22 9D 2C |"., "EM$","ET".,|
00006190: 22 45 53 00 C2 7D F6 1D 99 A3 32 32 29 22 11 20 |"ES..}....22)". |
000061A0: D0 52 45 53 53 20 12 C1 4E 59 20 CB 45 59 92 20 |.RESS ..NY .EY. |
000061B0: 54 4F 20 52 45 54 55 52 4E 20 54 4F 20 4D 45 4E |TO RETURN TO MEN|
000061C0: 55 22 00 D6 7D 00 1E A1 41 24 3A 8B 41 24 B2 22 |U"..}...A$:.A$."|
000061D0: 22 A7 37 36 38 30 00 E8 7D 0A 1E 45 54 B2 38 3A |".7680..}..ET.8:|
000061E0: A0 35 3A A0 31 35 3A 8E 00 3E 7E 40 1F 99 22 13 |.5:.15:..>~@..".|
000061F0: 13 93 11 D4 49 45 52 52 41 C2 41 53 45 20 49 53 |....IERRA.ASE IS|
00006200: 20 46 4F 52 20 54 48 45 20 C3 4F 4D 4D 4F 44 4F | FOR THE .OMMODO|
00006210: 52 45 20 31 32 38 20 20 41 4E 44 20 55 53 45 53 |RE 128 AND USES|
00006220: 20 45 49 54 48 45 52 20 54 48 45 20 31 35 34 31 | EITHER THE 1541|
00006230: 20 4F 52 20 54 48 45 20 31 35 37 31 2E 22 00 7A | OR THE 1571.".z|
00006240: 7E 4A 1F 99 22 C3 52 45 44 49 54 53 20 46 4F 52 |~J..".REDITS FOR|
00006250: 20 56 41 52 49 4F 55 53 20 50 4F 52 54 49 4F 4E | VARIOUS PORTION|
00006260: 53 20 4F 46 20 54 48 49 53 20 50 52 4F 47 52 41 |S OF THIS PROGRA|
00006270: 4D 20 47 4F 20 54 4F 20 3A 22 00 CC 7E 54 1F 99 |M GO TO :"..~T..|
00006280: 22 11 CD 49 4B 45 20 CB 4F 4E 53 48 41 4B 2C 20 |"..IKE .ONSHAK, |
00006290: 57 48 4F 20 50 55 54 20 54 4F 47 45 54 48 45 52 |WHO PUT TOGETHER|
000062A0: 20 C4 41 54 41 46 49 4C 45 20 28 31 32 38 29 2C | .ATAFILE (128),|
000062B0: 20 C4 41 4E 20 C2 49 43 4B 46 4F 52 44 20 57 48 | .AN .ICKFORD WH|
000062C0: 4F 20 4E 4F 54 20 4F 4E 4C 59 20 22 00 20 7F A4 |O NOT ONLY ". ..|
000062D0: 1F 99 22 54 59 50 45 44 20 54 48 45 20 42 41 53 |.."TYPED THE BAS|
000062E0: 49 53 20 4F 46 20 54 48 49 53 20 50 52 4F 47 52 |IS OF THIS PROGR|
000062F0: 41 4D 20 46 52 4F 4D 20 41 4E 20 41 4E 43 49 45 |AM FROM AN ANCIE|
00006300: 4E 54 20 49 53 53 55 45 20 4F 46 20 27 D2 55 4E |NT ISSUE OF '.UN|
00006310: 27 20 4D 41 47 41 5A 49 4E 45 2C 20 42 55 54 22 |' MAGAZINE, BUT"|
00006320: 00 72 7F AE 1F 99 22 41 4C 53 4F 20 44 49 44 20 |.r...."ALSO DID |
00006330: 4D 55 43 48 20 4F 46 20 54 48 45 20 41 44 41 50 |MUCH OF THE ADAP|
00006340: 54 41 54 49 4F 4E 20 46 4F 52 20 54 48 45 20 C3 |TATION FOR THE .|
00006350: 2D 31 32 38 2E 20 20 CC 41 53 54 4C 59 2C 20 42 |-128. .ASTLY, B|
00006360: 55 54 20 43 45 52 54 41 49 4E 4C 59 20 4E 4F 54 |UT CERTAINLY NOT|
00006370: 20 22 00 C7 7F B8 1F 99 22 4C 45 41 53 54 4C 59 | "......"LEASTLY|
00006380: 2C 20 42 4F 54 48 20 C4 41 4E 20 41 4E 44 20 C6 |, BOTH .AN AND .|
00006390: 52 45 44 20 C2 4F 57 45 4E 20 57 48 4F 20 57 52 |RED .OWEN WHO WR|
000063A0: 4F 54 45 20 4D 41 4E 59 20 4F 46 20 54 48 45 20 |OTE MANY OF THE |
000063B0: 55 54 49 4C 49 54 49 45 53 20 43 4F 4E 54 41 49 |UTILITIES CONTAI|
000063C0: 4E 45 44 20 4F 4E 22 00 1B 80 C2 1F 99 22 54 48 |NED ON"......"TH|
000063D0: 45 20 44 49 53 4B 20 50 41 43 4B 41 47 45 44 20 |E DISK PACKAGED |
000063E0: 57 49 54 48 20 59 4F 55 52 20 31 32 38 20 57 48 |WITH YOUR 128 WH|
000063F0: 49 43 48 20 C9 20 48 41 56 45 20 42 4F 52 52 4F |ICH . HAVE BORRO|
00006400: 57 45 44 20 46 52 4F 4D 20 52 41 54 48 45 52 20 |WED FROM RATHER |
00006410: 46 52 45 45 4C 59 20 46 4F 52 22 00 6C 80 CC 1F |FREELY FOR".l...|
00006420: 99 22 54 48 49 53 20 50 52 4F 47 52 41 4D 2E 20 |."THIS PROGRAM. |
00006430: C2 41 53 49 43 41 4C 4C 59 20 57 48 41 54 20 C9 |.ASICALLY WHAT .|
00006440: 20 48 41 56 45 20 44 4F 4E 45 20 49 53 20 41 53 | HAVE DONE IS AS|
00006450: 53 45 4D 42 4C 45 20 41 20 47 52 45 41 54 20 4D |SEMBLE A GREAT M|
00006460: 41 4E 59 20 50 49 45 43 45 53 2C 22 00 BF 80 D6 |ANY PIECES,"....|
00006470: 1F 99 22 41 55 54 48 4F 52 45 44 20 42 59 20 41 |.."AUTHORED BY A|
00006480: 20 47 52 45 41 54 20 4D 41 4E 59 20 50 45 4F 50 | GREAT MANY PEOP|
00006490: 4C 45 20 41 4E 44 20 48 41 44 20 41 4E 20 45 51 |LE AND HAD AN EQ|
000064A0: 55 41 4C 4C 59 20 47 52 45 41 54 20 44 45 41 4C |UALLY GREAT DEAL|
000064B0: 20 4F 46 20 46 55 4E 20 49 4E 20 54 48 45 22 00 | OF FUN IN THE".|
000064C0: 09 81 E0 1F 99 22 50 52 4F 43 45 53 53 2E 20 20 |....."PROCESS. |
000064D0: C9 20 48 4F 50 45 20 59 4F 55 27 4C 4C 20 46 49 |. HOPE YOU'LL FI|
000064E0: 4E 44 20 54 48 49 53 20 45 46 46 4F 52 54 20 55 |ND THIS EFFORT U|
000064F0: 53 45 46 55 4C 2E 20 20 D0 4C 45 41 53 45 20 45 |SEFUL. .LEASE E|
00006500: 4E 4A 4F 59 20 49 54 2E 22 00 37 81 EA 1F 99 22 |NJOY IT.".7...."|
00006510: 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00006520: 20 20 20 20 20 20 20 20 20 CA 4F 48 4E 20 D7 4F | .OHN .O|
00006530: 4F 4C 43 4F 43 4B 22 00 70 81 F4 1F 99 22 11 11 |OLCOCK".p...."..|
00006540: D0 2E D3 2E 20 C2 45 20 53 55 52 45 20 41 4E 44 |.... .E SURE AND|
00006550: 20 54 52 59 20 27 D4 49 45 52 52 41 D4 45 52 4D | TRY '.IERRA.ERM|
00006560: 20 46 4F 52 20 54 48 45 20 31 32 38 20 21 21 22 | FOR THE 128 !!"|
00006570: 00 80 81 FE 1F 8B 5A 41 B3 B1 31 A7 FE 26 3A 80 |......ZA..1..&:.|
00006580: 00 89 81 08 20 FE 0B 32 30 00 92 81 12 20 5A 41 |.... ..20.... ZA|
00006590: B2 30 00 9A 81 1C 20 89 36 36 00 02 82 28 23 E8 |.0.... .66...(#.|
000065A0: 35 3A 99 22 13 13 93 22 3A 99 47 52 24 22 A3 A3 |5:."...":.GR$"..|
000065B0: A3 A3 A3 20 D4 49 45 52 52 41 C2 41 53 45 20 A3 |... .IERRA.ASE .|
000065C0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000065D0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
000065E0: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 20 D3 45 |............. .E|
000065F0: 54 20 C3 4F 4C 4F 52 53 20 A3 A3 A3 A3 A3 22 4C |T .OLORS ....."L|
00006600: 54 24 00 4C 82 32 23 99 4C 54 24 22 20 20 20 20 |T$.L.2#.LT$" |
00006610: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 D5 53 | .S|
00006620: 45 20 C3 4F 4E 54 52 4F 4C 20 4F 52 20 C3 3D 20 |E .ONTROL OR .= |
00006630: 41 4E 44 20 31 2D 38 20 D4 4F 20 C4 45 53 49 47 |AND 1-8 .O .ESIG|
00006640: 4E 41 54 45 20 C3 4F 4C 4F 52 53 22 00 A7 82 3C |NATE .OLORS"...<|
00006650: 23 99 47 52 24 22 AF AF AF AF AF AF AF AF AF AF |#.GR$"..........|
00006660: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00006670: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00006680: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00006690: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
000066A0: AF AF AF AF AF AF 22 00 BA 82 46 23 FE 1A 20 30 |......"...F#.. 0|
000066B0: 2C 34 2C 37 39 2C 32 34 2C 31 00 DA 82 50 23 99 |,4,79,24,1...P#.|
000066C0: 4C 54 24 22 93 11 11 11 20 20 C3 4F 4C 4F 52 20 |LT$".... .OLOR |
000066D0: C6 4F 52 20 D4 45 58 54 20 22 00 E3 82 5A 23 A1 |.OR .EXT "...Z#.|
000066E0: 49 49 24 00 1A 83 64 23 8B 49 49 24 B2 C7 28 31 |II$...d#.II$..(1|
000066F0: 34 34 29 A7 99 22 20 20 11 D3 4F 52 52 59 2C 20 |44).." ..ORRY, |
00006700: C2 4C 41 43 4B 20 49 53 4E 27 54 20 41 4C 4C 4F |.LACK ISN'T ALLO|
00006710: 57 45 44 22 3A 89 39 30 35 30 00 38 83 6E 23 8B |WED":.9050.8.n#.|
00006720: 49 49 24 B2 C7 28 31 32 39 29 A7 4C 54 24 B2 22 |II$..(129).LT$."|
00006730: 81 22 3A 89 39 34 38 30 00 56 83 78 23 8B 49 49 |.":.9480.V.x#.II|
00006740: 24 B2 C7 28 31 34 39 29 A7 4C 54 24 B2 22 95 22 |$..(149).LT$."."|
00006750: 3A 89 39 34 38 30 00 74 83 82 23 8B 49 49 24 B2 |:.9480.t..#.II$.|
00006760: C7 28 31 35 30 29 A7 4C 54 24 B2 22 96 22 3A 89 |.(150).LT$.".":.|
00006770: 39 34 38 30 00 92 83 8C 23 8B 49 49 24 B2 C7 28 |9480....#.II$..(|
00006780: 31 35 31 29 A7 4C 54 24 B2 22 97 22 3A 89 39 34 |151).LT$.".":.94|
00006790: 38 30 00 B0 83 96 23 8B 49 49 24 B2 C7 28 31 35 |80....#.II$..(15|
000067A0: 32 29 A7 4C 54 24 B2 22 98 22 3A 89 39 34 38 30 |2).LT$.".":.9480|
000067B0: 00 CE 83 A0 23 8B 49 49 24 B2 C7 28 31 35 33 29 |....#.II$..(153)|
000067C0: A7 4C 54 24 B2 22 F9 22 3A 89 3A F0 59 A2 27 30 |.LT$.".":.:.Y.'0|
000067D0: 0E F0 F0 50 07 09 5C 99 B9 C9 F9 7B 42 9A 74 07 |...P..\....{B.t.|
000067E0: 78 5C 98 80 D8 88 DC 09 09 78 09 FA AA CC 7C 78 |x\.......x....|x|
000067F0: 80 D7 07 09 5C 99 B9 C9 F9 79 79 0D 17 97 78 5C |....\....yy...x\|
00006800: 98 80 D9 88 DC 09 09 78 09 FA A8 1C 7C 08 80 D7 |.......x....|...|
00006810: 07 09 5C 99 B9 C9 79 0D 17 97 78 5C 98 8A 59 88 |..\...y...x\..Y.|
00006820: DC 09 09 78 09 FA A5 80 79 09 80 D7 07 0E 24 B2 |...x....y.....$.|
00006830: C7 28 32 38 29 A7 4C 54 24 B2 22 1C 22 3A 89 39 |.(28).LT$.".":.9|
00006840: 34 38 30 00 61 84 D2 23 8B 49 49 24 B2 C7 28 31 |480.a..#.II$..(1|
00006850: 35 39 29 A7 4C 54 24 B2 22 9F 22 3A 89 39 34 38 |59).LT$.".":.948|
00006860: 30 00 7F 84 DC 23 8B 49 49 24 B2 C7 28 31 35 36 |0....#.II$..(156|
00006870: 29 A7 4C 54 24 B2 22 9C 22 3A 89 39 34 38 30 00 |).LT$.".":.9480.|
00006880: 9C 84 E6 23 8B 49 49 24 B2 C7 28 33 30 29 A7 4C |...#.II$..(30).L|
00006890: 54 24 B2 22 1E 22 3A 89 39 34 38 30 00 B9 84 F0 |T$.".":.9480....|
000068A0: 23 8B 49 49 24 B2 C7 28 33 31 29 A7 4C 54 24 B2 |#.II$..(31).LT$.|
000068B0: 22 1F 22 3A 89 39 34 38 30 00 D7 84 FA 23 8B 49 |".":.9480....#.I|
000068C0: 49 24 B2 C7 28 31 35 38 29 A7 4C 54 24 B2 22 9E |I$..(158).LT$.".|
000068D0: 22 3A 89 39 34 38 30 00 F4 84 04 24 8B 49 49 24 |":.9480....$.II$|
000068E0: B2 C7 28 31 33 29 A7 4C 54 24 B2 4C 54 24 3A 89 |..(13).LT$.LT$:.|
000068F0: 39 34 38 30 00 05 85 0E 24 8B 49 49 24 B2 22 22 |9480....$.II$.""|
00006900: A7 39 30 35 30 00 6A 85 18 24 E8 35 3A 99 22 13 |.9050.j..$.5:.".|
00006910: 13 93 22 3A 99 47 52 24 22 A3 A3 A3 A3 A3 20 D4 |..":.GR$"..... .|
00006920: 49 45 52 52 41 C2 41 53 45 20 A3 A3 A3 A3 A3 A3 |IERRA.ASE ......|
00006930: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00006940: A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 A3 |................|
00006950: A3 A3 A3 A3 A3 A3 A3 A3 20 D3 45 54 20 C3 4F 4C |........ .ET .OL|
00006960: 4F 52 53 20 A3 A3 A3 A3 A3 22 00 B5 85 22 24 99 |ORS ....."..."$.|
00006970: 4C 54 24 22 20 20 20 20 20 20 20 20 20 20 20 20 |LT$" |
00006980: 20 20 20 20 20 20 20 D5 53 45 20 C3 4F 4E 54 52 | .SE .ONTR|
00006990: 4F 4C 20 4F 52 20 C3 3D 20 41 4E 44 20 31 2D 38 |OL OR .= AND 1-8|
000069A0: 20 D4 4F 20 C4 45 53 49 47 4E 41 54 45 20 C3 4F | .O .ESIGNATE .O|
000069B0: 4C 4F 52 53 22 00 10 86 2C 24 99 47 52 24 22 AF |LORS"...,$.GR$".|
000069C0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
000069D0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
000069E0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
000069F0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00006A00: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF 22 |..............."|
00006A10: 00 23 86 36 24 FE 1A 20 30 2C 34 2C 37 39 2C 32 |.#.6$.. 0,4,79,2|
00006A20: 34 2C 31 00 46 86 40 24 99 47 52 24 22 93 11 11 |4,1.F.@$.GR$"...|
00006A30: 11 20 20 C3 4F 4C 4F 52 20 C6 4F 52 20 C7 52 41 |. .OLOR .OR .RA|
00006A40: 50 48 49 43 53 22 00 4F 86 4A 24 A1 49 49 24 00 |PHICS".O.J$.II$.|
00006A50: 88 86 54 24 8B 49 49 24 B2 C7 28 31 34 34 29 A7 |..T$.II$..(144).|
00006A60: 99 22 20 20 20 11 11 D3 4F 52 52 59 2C 20 42 4C |." ...ORRY, BL|
00006A70: 41 43 4B 20 49 53 4E 27 54 20 41 4C 4C 4F 57 45 |ACK ISN'T ALLOWE|
00006A80: 44 22 3A 89 39 32 39 30 00 A6 86 5E 24 8B 49 49 |D":.9290...^$.II|
00006A90: 24 B2 C7 28 31 32 39 29 A7 47 52 24 B2 22 81 22 |$..(129).GR$."."|
00006AA0: 3A 89 39 35 32 30 00 C4 86 68 24 8B 49 49 24 B2 |:.9520...h$.II$.|
00006AB0: C7 28 31 34 39 29 A7 47 52 24 B2 22 95 22 3A 89 |.(149).GR$.".":.|
00006AC0: 39 35 32 30 00 E2 86 72 24 8B 49 49 24 B2 C7 28 |9520...r$.II$..(|
00006AD0: 31 35 30 29 A7 47 52 24 B2 22 96 22 3A 89 39 35 |150).GR$.".":.95|
00006AE0: 32 30 00 00 87 7C 24 8B 49 49 24 B2 C7 28 31 35 |20...|$.II$..(15|
00006AF0: 31 29 A7 47 52 24 B2 22 97 22 3A 89 39 35 32 30 |1).GR$.".":.9520|
00006B00: 00 1E 87 86 24 8B 49 49 24 B2 C7 28 31 35 32 29 |....$.II$..(152)|
00006B10: A7 47 52 24 B2 22 98 22 3A 89 39 35 32 30 00 3C |.GR$.".":.9520.<|
00006B20: 87 90 24 8B 49 49 24 B2 C7 28 31 35 33 29 A7 47 |..$.II$..(153).G|
00006B30: 52 24 B2 22 99 22 3A 89 39 35 32 30 00 5A 87 9A |R$.".":.9520.Z..|
00006B40: 24 8B 49 49 24 B2 C7 28 31 35 34 29 A7 47 52 24 |$.II$..(154).GR$|
00006B50: B2 22 9A 22 3A 89 39 35 32 30 00 78 87 A4 24 8B |.".":.9520.x..$.|
00006B60: 49 49 24 B2 C7 28 31 35 35 29 A7 47 52 24 B2 22 |II$..(155).GR$."|
00006B70: 9B 22 3A 89 39 35 32 30 00 94 87 AE 24 8B 49 49 |.":.9520....$.II|
00006B80: 24 B2 C7 28 35 29 A7 47 52 24 B2 22 05 22 3A 89 |$..(5).GR$.".":.|
00006B90: 39 35 32 30 00 B1 87 B8 24 8B 49 49 24 B2 C7 28 |9520....$.II$..(|
00006BA0: 32 38 29 A7 47 52 24 B2 22 1C 22 3A 89 39 35 32 |28).GR$.".":.952|
00006BB0: 30 00 CF 87 C2 24 8B 49 49 24 B2 C7 28 31 35 39 |0....$.II$..(159|
00006BC0: 29 A7 47 52 24 B2 22 9F 22 3A 89 39 35 32 30 00 |).GR$.".":.9520.|
00006BD0: ED 87 CC 24 8B 49 49 24 B2 C7 28 31 35 36 29 A7 |...$.II$..(156).|
00006BE0: 47 52 24 B2 22 9C 22 3A 89 39 35 32 30 00 0A 88 |GR$.".":.9520...|
00006BF0: D6 24 8B 49 49 24 B2 C7 28 33 30 29 A7 47 52 24 |.$.II$..(30).GR$|
00006C00: B2 22 1E 22 3A 89 39 35 32 30 00 27 88 E0 24 8B |.".":.9520.'..$.|
00006C10: 49 49 24 B2 C7 28 33 31 29 A7 47 52 24 B2 22 1F |II$..(31).GR$.".|
00006C20: 22 3A 89 39 35 32 30 00 45 88 EA 24 8B 49 49 24 |":.9520.E..$.II$|
00006C30: B2 C7 28 31 35 38 29 A7 47 52 24 B2 22 9E 22 3A |..(158).GR$.".":|
00006C40: 89 39 35 32 30 00 62 88 F4 24 8B 49 49 24 B2 C7 |.9520.b..$.II$..|
00006C50: 28 31 33 29 A7 47 52 24 B2 47 52 24 3A 89 39 35 |(13).GR$.GR$:.95|
00006C60: 32 30 00 73 88 FE 24 8B 49 49 24 B2 22 22 A7 39 |20.s..$.II$."".9|
00006C70: 32 39 30 00 C6 88 08 25 99 4C 54 24 22 11 11 11 |290....%.LT$"...|
00006C80: 20 20 20 20 20 D4 48 49 53 20 C9 53 20 54 48 45 | .HIS .S THE|
00006C90: 20 D4 45 58 54 20 C3 4F 4C 4F 52 20 D9 4F 55 27 | .EXT .OLOR .OU'|
00006CA0: 56 45 20 C3 48 4F 53 45 4E 2E 20 20 C9 53 20 C9 |VE .HOSEN. .S .|
00006CB0: 54 20 D7 48 41 54 20 D9 4F 55 20 C9 4E 54 45 4E |T .HAT .OU .NTEN|
00006CC0: 44 45 44 3F 22 3B 00 DC 88 12 25 A1 49 49 24 3A |DED?";....%.II$:|
00006CD0: 8B 49 49 24 B2 22 22 A7 39 34 39 30 00 EF 88 1C |.II$."".9490....|
00006CE0: 25 8B 49 49 24 B2 22 59 22 A7 89 39 32 34 30 00 |%.II$."Y"..9240.|
00006CF0: 0D 89 26 25 8B 49 49 24 B3 B1 22 59 22 B0 49 49 |..&%.II$.."Y".II|
00006D00: 24 B3 B1 C7 28 31 33 29 A7 39 30 30 30 00 60 89 |$...(13).9000.`.|
00006D10: 30 25 99 47 52 24 22 11 20 20 20 20 D4 48 49 53 |0%.GR$". .HIS|
00006D20: 20 C9 53 20 54 48 45 20 C7 52 41 50 48 49 43 53 | .S THE .RAPHICS|
00006D30: 20 C3 4F 4C 4F 52 20 D9 4F 55 27 56 45 20 C3 48 | .OLOR .OU'VE .H|
00006D40: 4F 53 45 4E 2E 20 20 C9 53 20 C9 54 20 D7 48 41 |OSEN. .S .T .HA|
00006D50: 54 20 D9 4F 55 20 C9 4E 54 45 4E 44 45 44 3F 22 |T .OU .NTENDED?"|
00006D60: 00 76 89 3A 25 A1 49 49 24 3A 8B 49 49 24 B2 22 |.v.:%.II$:.II$."|
00006D70: 22 A7 39 35 33 30 00 89 89 44 25 8B 49 49 24 B2 |".9530...D%.II$.|
00006D80: 22 59 22 A7 89 39 35 36 30 00 A7 89 4E 25 8B 49 |"Y"..9560...N%.I|
00006D90: 49 24 B3 B1 22 59 22 B0 49 49 24 B3 B1 C7 28 31 |I$.."Y".II$...(1|
00006DA0: 33 29 A7 39 32 34 30 00 F6 89 58 25 E8 35 3A 99 |3).9240...X%.5:.|
00006DB0: 22 13 13 93 22 3B 4C 54 24 3B 22 11 11 11 20 20 |"...";LT$;"... |
00006DC0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006DD0: 20 20 AF AF AF AF AF AF AF AF AF AF AF AF AF AF | ..............|
00006DE0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00006DF0: AF AF AF AF AF 22 00 35 8A 62 25 99 22 20 20 20 |.....".5.b%." |
00006E00: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006E10: 20 B5 20 CF 4B 2E 2E D4 48 49 53 20 C9 53 20 D9 | . .K...HIS .S .|
00006E20: 4F 55 52 20 D4 45 58 54 20 C3 4F 4C 4F 52 20 21 |OUR .EXT .OLOR !|
00006E30: 21 20 20 B6 22 00 73 8A 6C 25 99 22 20 20 20 20 |! .".s.l%." |
00006E40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006E50: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00006E60: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00006E70: B8 B8 B8 00 BA 8A 76 25 99 47 52 24 3B 22 11 11 |......v%.GR$;"..|
00006E80: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006E90: 20 20 20 AF AF AF AF AF AF AF AF AF AF AF AF AF | .............|
00006EA0: AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF AF |................|
00006EB0: AF AF AF AF AF AF AF AF AF 22 00 FB 8A 80 25 99 |........."....%.|
00006EC0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
00006ED0: 20 20 20 20 B4 20 C1 4E 44 20 D4 48 49 53 20 C9 | . .ND .HIS .|
00006EE0: 53 20 D4 48 45 20 C7 52 41 50 48 49 43 53 20 C3 |S .HE .RAPHICS .|
00006EF0: 4F 4C 4F 52 20 21 21 20 20 B6 22 00 3B 8B 8A 25 |OLOR !! .".;..%|
00006F00: 99 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
00006F10: 20 20 20 20 20 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 | ...........|
00006F20: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 |................|
00006F30: B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 B8 00 79 8B 94 25 |............y..%|
00006F40: 99 4C 54 24 22 11 11 20 20 20 20 20 20 20 20 20 |.LT$".. |
00006F50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006F60: C9 46 20 D4 48 45 59 27 52 45 20 D3 55 49 54 41 |.F .HEY'RE .UITA|
00006F70: 42 4C 45 20 D4 48 45 4E 22 00 BD 8B 9E 25 99 22 |BLE .HEN"....%."|
00006F80: 11 11 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |.. |
00006F90: 20 20 20 20 3C D2 45 54 55 52 4E 3E 20 D4 41 4B | <.ETURN> .AK|
00006FA0: 45 53 20 D9 4F 55 20 C2 41 43 4B 20 D4 4F 20 D4 |ES .OU .ACK .O .|
00006FB0: 48 45 20 CD 41 49 4E 20 CD 45 4E 55 22 00 F5 8B |HE .AIN .ENU"...|
00006FC0: A8 25 99 22 11 11 20 20 20 20 20 20 20 20 20 20 |.%.".. |
00006FD0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00006FE0: 20 20 27 D3 27 20 D3 41 56 45 53 20 54 4F 20 C4 | '.' .AVES TO .|
00006FF0: 49 53 4B 20 22 00 37 8C B2 25 99 22 11 20 20 20 |ISK ".7..%.". |
00007000: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00007010: 20 C1 4E 59 20 CF 54 48 45 52 20 CB 45 59 20 D7 | .NY .THER .EY .|
00007020: 49 4C 4C 20 CC 45 54 20 D9 4F 55 20 D4 52 59 20 |ILL .ET .OU .RY |
00007030: C1 47 41 49 4E 2E 22 00 4D 8C BC 25 A1 49 49 24 |.GAIN.".M..%.II$|
00007040: 3A 8B 49 49 24 B2 22 22 A7 39 36 36 30 00 5F 8C |:.II$."".9660._.|
00007050: C6 25 8B 49 49 24 B2 22 53 22 A7 39 37 30 30 00 |.%.II$."S".9700.|
00007060: 70 8C D0 25 8B 49 49 24 B2 C7 28 31 33 29 A7 8E |p..%.II$..(13)..|
00007070: 00 8E 8C DA 25 8B 49 49 24 B3 B1 22 53 22 B0 49 |....%.II$.."S".I|
00007080: 49 24 B3 B1 C7 28 31 33 29 A7 39 30 30 30 00 D3 |I$...(13).9000..|
00007090: 8C E4 25 9F 31 2C 28 44 56 29 2C 31 35 2C 22 53 |..%.1,(DV),15,"S|
000070A0: 30 3A 54 49 45 52 52 41 2E 43 4F 4C 4F 52 53 22 |0:TIERRA.COLORS"|
000070B0: 3A A0 31 3A FE 0D 23 31 2C 22 54 49 45 52 52 41 |:.1:..#1,"TIERRA|
000070C0: 2E 43 4F 4C 4F 52 53 22 2C 44 30 2C 55 28 44 56 |.COLORS",D0,U(DV|
000070D0: 29 2C 57 00 EA 8C EE 25 98 31 2C 4C 54 24 3A 98 |),W....%.1,LT$:.|
000070E0: 31 2C 47 52 24 3A A0 31 3A 8E 00 0C 8D 48 26 E8 |1,GR$:.1:....H&.|
000070F0: 20 35 3A 99 3A 99 22 93 22 C7 28 31 34 29 3A 99 | 5:.:.".".(14):.|
00007100: A3 33 37 29 22 C5 D2 D2 CF D2 21 22 00 67 8D 52 |.37)".....!".g.R|
00007110: 26 99 22 11 11 11 11 20 20 D0 4C 45 41 53 45 20 |&.".... .LEASE |
00007120: CD 41 4B 45 20 D3 55 52 45 20 C1 4C 4C 20 C4 52 |.AKE .URE .LL .R|
00007130: 49 56 45 53 20 C1 4E 44 20 CF 54 48 45 52 20 D0 |IVES .ND .THER .|
00007140: 45 52 49 50 48 45 52 41 4C 53 20 C1 52 45 20 D4 |ERIPHERALS .RE .|
00007150: 55 52 4E 45 44 20 CF 4E 20 41 4E 44 20 C3 4F 4E |URNED .N AND .ON|
00007160: 4E 45 43 54 45 44 22 00 73 8D 5C 26 99 C7 28 31 |NECTED".s.\&..(1|
00007170: 34 33 29 00 B0 8D 66 26 99 3A 99 22 11 20 20 20 |43)...f&.:.". |
00007180: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00007190: 20 20 20 20 C5 52 52 4F 52 20 49 4E 20 4C 49 4E | .RROR IN LIN|
000071A0: 45 20 4E 55 4D 42 45 52 20 20 22 3B 3A 99 45 4C |E NUMBER ";:.EL|
000071B0: 00 E7 8D 70 26 99 22 11 11 20 20 20 20 20 20 20 |...p&.".. |
000071C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000071D0: 20 20 20 20 22 3B D3 28 45 52 29 3A FE 0B 35 3A | ";.(ER):..5:|
000071E0: FE 0F 3A D6 20 36 36 00 57 8E 10 27 99 22 53 43 |..:. 66.W..'."SC|
000071F0: 52 41 54 43 48 49 4E 47 20 54 49 45 52 52 41 42 |RATCHING TIERRAB|
00007200: 41 53 45 20 31 32 38 22 3A F2 22 54 49 45 52 52 |ASE 128":."TIERR|
00007210: 41 42 41 53 45 20 31 32 38 22 3A 99 22 52 45 2D |ABASE 128":."RE-|
00007220: 53 41 56 49 4E 47 20 54 49 45 52 52 41 42 41 53 |SAVING TIERRABAS|
00007230: 45 20 31 32 38 22 3A EF 22 54 49 45 52 52 41 42 |E 128":."TIERRAB|
00007240: 41 53 45 20 31 32 38 22 3A 99 22 41 4C 4C 20 44 |ASE 128":."ALL D|
00007250: 4F 4E 45 21 22 3A 80 00 00 00 4A 00 70 |ONE!":....J.p |
..O.... ** TIERRABASE IS FOR THE C-128
AND WILL RUN IN 80 COLUMN MODE ONLY **.
..... ** MODE WITH EITHER A
1541 OR 1571 DRIVE **.H....
** THIS IS VERSION 2.0 **
.N..........53296,1:.5:.G(14):W9800:.POK
E808,100......6,1:.16:.68.A...D$.G(0):MR
$.D$:DR$.D$:S.0:B1$.D$: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$...
..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$:S1$.D$:FL.0:DV.8.`.....#1,"TIERRA.CO
LORS",D0,U8:.1,LT$,GR$: 1:.DS..0.LT$."."
:GR$.".".O...MEM..(0):....... F$(F.1),T%
(F.1),L%(F.1):..K.... REC$(R.1,F.1),ML$(
9,4),PC(10),TT$(5),HC$(9),K%(R.1):..V...
.--GET......A$:.A$."".30... ....."..--CR
EATE...$..CK..0..394.{.&..GR$"........ T
IERRABASE ..............................
...... INITIALIZE DATA FILE ....."LT$:..
0,2,79,24,1.B.(..:.16:..20);:."..HOW MAN
Y FIELDS IN EACH RECORD? 0 ....";F:.F.0.
68.Q.*..24:.I.1.F.. ,..".".20)".....FIEL
D #";I:..20)".TITLE ? >
".L ....20)"LENGTH? 0
.".Z /..".....";.26);:
.F$(I):.F$(I)."".F$(I).">".. 0...26);:.L
%(I):.L%(I).0.68.. 1..I.. 2.. ***COMPUTE
RECORDS ***.. 4..J.0.F:RL.RL.L%(J):.J:R
L.RL.3.(F.1).5:R..(.(1).RL).$!6...23)LT$
".YOUR SELECTIONS WILL ALLOW APPROX".T!8
..LT$.23)R;"RECORDS. .A.CCEPT OR .R.EJE
CT?".G!:..30:.A$."R".38.|!;..A$."A"..26:
CK.1. !<..I.1.F:.C(F$(I)).S1.S1.C(F$(I))
..!>..I:.68..!@..--MENU.*"B..GR$".......
. TIERRABASE ...........................
.................... MAIN MENU ....."LT$
:..0,2,79,24,1:.70.."D..GR$"........ TIE
RRABASE ................................
............... MAIN MENU ....."LT$:..0,
2,79,24,1.."F..LT$".. .N. EW FILE CR
EATION .A. DD
RECORD TO CURRENT FILE".G#J..". .M.
ODIFY RECORD IN CURRENT FILE
.D. ELETE RECORD "..#N..". .V.
IEW FILE ON SCREEN
.S. ORT RECORDS BY FIELD"..#R..".
.P. RINT RECORDS BY SELECTION
.L. OAD DATA FILE FROM DISK".N
$V..". .W. RITE NEW FILE TO DISK
.@. DISK COMMANDS
"..$Y..". .E. XIT PROGRAM
.C. USTOMIZE
COLORS"..$\..GR$.22)".... PRESS THE
APPROPRIATE KEY .";:.G(143)LT$..%
]...27)"..THERE ARE";X;"RECORDS IN MEMOR
Y".@%^..R.0...28)"SPACE FOR";R.X;"MORE R
ECORDS."._%`..30:.A$."A"..350:.FL.0.124.
Z%B..A$."M"..354:.FL.0.244..%D..A$."D"..
354:.FL.0.272..%F..A$."C"..9000:.66..%G.
.A$."N".36.J%H..A$."L".170..%J..A$."P"..
354:.FL.0.358..&L..A$."V"..354:.FL.0.192
..&N..A$."W"..350:.FL.0.144.6&P..A$."S".
.354:.FL.0.304.F&R..A$."E".342.V&T..A$."
@".462.J&V..FL..0.FL.0:.68.R&X..96..&Z..
--ADD RECORDS..&|..GR$"........ TIERRABA
SE .....................................
......... FILE ENTRY ....."LT$:..0,2,79,
24,1.2'}..I.X.1.R:.".... PRESS THE .RETU
RN. KEY AFTER EACH ENTRY";.F'~.." PRESS
.RETURN. WITHOUT ANY ENTRY TO STOP.."..
'....13)".RECORD NUMBER ";I;"."..'...N.1
.F.D'....15);F$(N).S1.C(F$(N)))" >..."
;:.REC$(I,N)..'...REC$(I,N)."".REC$(I,N)
.">"..(...C(REC$(I,N)).L%(N)..140:.132.)
(...REC$(I,1).">". X.I.1:CK.1:.68.H(...N
:K%(I).I:.I:X.R:CK.1:.68..(....27)"..CAN
NOT EXCEED".D(L%(N))." CHARACTERS."LT$:.
..(...--SAVE..(...GR$"........ TIERRABAS
E ......................................
....... SAVE FILES ....."LT$:..0,2,79,24
,1.,)...".. ENTER NAME OF CURRENT FILE T
O BE SAVED";.\)..." (12 CHARACTERS MAX).
ANY EXISTING FILE"..)..." WITH THE SAM
E NAME WILL BE RENAMED 'OLD'..."..)....2
6);NF$:..24);:.".";NF$:.NF$."".68..)...1
5,8,15:.15,"S0:DF] ".H(NF$,8)."!OLD":.41
4:.ET.8.68.+*...15,"R0:DF] ".H(NF$,8)."!
OLD=DF] ".NF$:.414:.ET.8.68.X*...5,8,5,"
0:DF] ".NF$.",S,W":.414:.ET.8.68..*...5,
R;CR$;F;CR$;X:.N.1.F:.5,F$(N);CR$;L%(N):
.N..*...414:.ET.8.68.F* ..I.1.X:..26)".S
AVING RECORD #";I;".."..*...N.1.F:.5,REC
$(I,N):.N:.I:.:.414:.ET.8.68.*+...I.1.X:
..26)".SAVING POINTERS";I;"..":.5,K%(I):
.I.B+...5,E$:.414:.ET.8.68.V+.. 5: 15:CK
.0:.68.B+...--LOAD.R+...CK..0..394..+...
GR$"........ TIERRABASE ................
............................. LOAD FILES
....."LT$:..0,2,79,24,1.&,...16:..22)".
..ENTER NAME OF FILE TO BE LOADED..":..2
2);:.NF$:."..".5,...NF$."".68.K,...15,8,
15:.5,8,5,"0:DF] ".NF$.",S,R":.414:.ET.8
.68.,...EN.62..416:.68..,...5,R,F,X:.41
4:.ET.8.68.M,...24:.26:.N.1.F:.5,F$(N),L
%(N):.N:.414:.ET.8.68..,...I.1.X:..29)".
READING RECORD #";I;"..".&-...N.1.F:.5,R
EC$(I,N):.N:.I:.:.414:.ET.8.68.]-...I.1.
X:..29)".READING POINTERS";I;"..":.5,K%(
I):.I.P-..S.ST:.S..0.188..-...5,E$:.414:
.ET.8.68..-.. 5: 15:.60..-...--VIEW..-..
I.1..-A.I.1.I-B..I.0..348:..2:.68..-D..I
.X..348:..2:.68.N.E..GR$"........ TIERRA
BASE ................................. V
IEW INDIVIDUAL RECORDS ....."LT$:..0,2,7
9,24,1...F...25)"...RECORD NUMBER:".D(I)
." FILE:".NF$."."...H..N.1.F:..22);F$(N
).S1.C(F$(N)))" ."REC$(K%(I),N):.N...J..
GR$.21)"...N.EXT, .L.AST, .J.UMP, .F.IND
, .E.XIT TO MENU"LT$../L..30:.A$."N".I.I
.1:.194../N..A$."L".I.I.1:.194.>/P..A$."
J".216.N/R..A$."F".218.]/T..A$."E".68.F/
V..204../X...28);:.".JUMP TO RECORD NUMB
ER";I:.194..0Z..GR$"........ TIERRABASE
.......................... FIND RECORDS
WITH COMMON ITEMS ....."LT$:..0,2,79,24,
1:..'0...N.1.F:..20)".";N;". ";F$(N):.N.
I0....20);:."..WHICH FIELD IS TO BE SEAR
CHED? 0 ....";SF:.SF.0.68..0...SF.1.SF.F
.."...":.222.Y0....20)".ENTER . COMMON I
TEM . ":..20)".NOTE: (THE ENTIRE STRING
IS NOT REQUIRED)"..1....20)"..";F$(SF);"
. ";:.T$:.T$.D$.68.-1...I.1.X:..22)".SEA
RCHING RECORD";I;"..".Q1...T$.H(REC$(K%(
I),SF),C(T$)).236.Z1...242.|1...".".20)"
... RECORD #";I;".."..1...N.1.F:..22)F$(
N).S1.C(F$(N)))" ."REC$(K%(I),N):.N..2..
.GR$".. .N.EXT INCIDENCE OF RECORD
-----ANY OTHER KEY WILL ABORT SEARCH"LT$
..2...A$:.A$."".239./2...A$."N".242:U68.
:2...I:.68.H2...--MODIFY..2...GR$"......
.. TIERRABASE ..........................
................ MODIFY RECORDS ....."LT
$:..0,2,79,24,1.C3....17)"...MODIFY WHIC
H RECORD? ENTER .#. OR .A.LL..":.".
. NOTE .: CHOOSING 'ALL' WILL COMMIT YO
U TO PROCESSING THE ENTIRE FILE...".^3..
..16);:.MR$:.MR$.D$.68.W3...MR$."A".MR$.
D$:.254..3..I.E(MR$):MR$.D$..3...I.X..34
8:.244..3...256:.68.B3...I.1.X:.256:.I:.
68..3..."...TO MODIFY RECORD #";I;", MAK
E CHANGES";.&4..." AS EACH FIELD IS DISP
LAYED, THEN .RETURN..".X4...N.1.F:..20);
F$(N)":":..24);".";REC$(K%(I),N).|4...C(
REC$(K%(I),N)).36...22);".";..4....22)".
";:.REC$(K%(I),N)..4...C(REC$(K%(I),N)).
L%(N)..140:.260..4...REC$(K%(I),N)."".RE
C$(K%(I),N).">"..5...REC$(K%(I),N).G(27)
..68..5...N:CK.1:.. 5...--DELETE..5...GR
$"........ TIERRABASE ..................
........................ DELETE RECORDS
....."LT$:..0,2,79,24,1.G5....19)"...DEL
ETE WHICH RECORD? ENTER .#. OR .A.LL..".
.5....18);:.DR$:.DR$.D$.68..5...DR$."A".
DR$.D$:.282..6..I.E(DR$):DR$.D$:.I.X..34
8:.274.+6...284:.68.B6...I.1.X:.284:.I:.
68.V6...".... TO DELETE RECORD NUMBER
";I;", PRESS";..6..." .SHIFT. .D., PRESS
.SPACE BAR. TO ADVANCE."..6 ..N.1.F:..2
0);F$(N).S1.C(F$(N)))" ."REC$(K%(I),N):.
N..7"..30:.A$."D".294:. SHIFTED D..7$.CK
.1:..T7&...26)"..DELETING RECORD";I:..22
)"..RECORDS MAY NOW BE OUT OF ORDER"..7(
..N.1.F:REC$(K%(I),N).REC$(X,N):REC$(X,N
)."":.N..7*..J.1.X:.K%(J).X.K%(J).K%(X):
K%(X).0:X.X.1:.292.A7,..J.M7...--SORT.<8
0..GR$"........ TIERRABASE .............
............................. RECORD SOR
TING ....."LT$:..0,2,79,24,1.Y82.."...":
. N.1.F:." .";N;". "
;F$(N):.N..84...22);:."..WHICH FIELD IS
TO BE SORTED? 0 ....";SF:.SF.0.68.P86..S
F.F .."...":.308..88...30)"...PLEASE WAI
T..":M.X..9:.M..(M.2):.M.0.CK.1:.68..9<.
J.1:K.X.M.!9>.I.J.+9@.L.I.M.P9B...30)"SO
RTING .....";I;".".Z9D.. REC$(K%(I
),SF)..REC$(K%(L),SF) .328..9F.T%(N).K%(
I):K%(I).K%(L):K%(L).T%(N):I.I.M:.I.0.32
0.D9H.J.J.1:.J.K.314.M9J..318.Y9L..--QUI
T..:N.."..."GR$.23)".....YOU HAVE NOT SA
VED YOUR CHANGES!"G(143)LT$.Q:P..LT$.23)
"..DO YOU REALLY WANT TO QUIT? .Y. OR .N
..F:R..30:.A$."Y" .344.N:T..68.}:V..CK..
0.334..:X..8000..:Z..--ERROR CHECK.B:\..
.29)"..NO SUCH RECORD EXISTS"LT$:..M:^..
R.0....;`...22)"... NO RECORDS OR FIL
ES IN MEMORY . "LT$..;A..I.1.500:.I:
FL.1:..);B..X.0...4;C..352:..F;D..--LOAD
PRINT..;F..GR$"........ TIERRABASE ....
.................................. PRINT
ROUTINES ....."LT$:..0,2,79,24,1.R;H...
23)"..PRINT RECORDS USING:..;J...27)"..R
.EPORTS AND LISTS..<L...27)"..M.AILING L
ABELS.6<M.. PRINTTAB(27)"..C.ALCULATED R
EPORTS.[<N...27)"..U.SER DEFINED SUBPROG
RAM.Z<P...27)"..E.XIT TO MAIN MENU..<R..
GR$.23)"... PRESS THE APPROPRIATE K
EY ."LT$;:.G(143).S<T..30:.A$."R".3
020..<U..A$."C".385..<V..A$."E".68..=X..
A$."U".386..=Z..A$."M".6020..=|..372.V=.
..]PRINT".... LOADING PRACTICALC":LOAD
"PRACTICALC",8.~=....21)"....ENTER NAME
OF SUBPROGRAM"..=....20)".";SB$:.".";SB$
:.SB$.D$.358..=...15,8,15:.5,8,5,"0:".SB
$.",P,R":.414:.EN.62..416:.358..=.. 5: 1
5:.SB$,8..=...--WARNING.O>...".".16)"...
WARNING"G(143)LT$" .THIS WILL DESTROY
THE FILE IN MEMORY!"LT$.|>....22)"..SAVE
THE FILE FIRST? .Y. OR .N."..>...A$:.A$
."".396..>...A$."N"....>...A$."Y"..144.F
>...A$.."Y".A$.."N".68.V>...--NEW DISK..
?...".".22)"...WARNING"G(143)LT$" THIS
WILL ERASE THE DISK!"LT$.=?....29)"..ARE
YOU SURE? .Y. OR .N..P?...30:.A$."N".68
.`?...A$.."Y".68..?....27)".PRESS .RETUR
N. WITHOUT AN ENTRY TO EXIT".E?....27);:
."..DISK NAME,ID.";HN$,ID$:.HN$.D$.68..?
...15,8,15:.15,"NEW0:".HN$.","ID$:.414:.
ET.8.462..@.. 15:.462..@...--DISK ERROR.
D@...15,EN,EM$,ET,ES:.(EN.20).(EN.62).ET
.0:...@ ...23)"....DISK ERROR."EN"., "EM
$","ET".,"ESLT$G(143):ET.8..@....23)LT$"
.PRESS .ANY KEY. TO RETURN TO MENU":.30:
5: 15:..Q@...--DIRECTORY..@...15,8,15:.
5,8,0,"$0":.".":.414:.ET.8.462..A...#5,A
1$,A2$..A...#5,A1$,A2$..A...#5,A1$,A2$.E
A...A1$.."".A0.F(A1$).CA...A2$.."".A0.A0
.F(A2$).256.XA...J(D(A0),2);.3);..A...#5
,A2$:.ST..0.454..A...A2$..G(34).436.LA..
.#5,A2$:.A2$..G(34).."."A2$".";:.440..A.
..#5,A2$:.A2$.G(32).442..A....20);:A3$."
"..B..A3$.A3$.A2$:.#5,A2$:.A2$.."".446.,
B...H(A3$,3).ABB..A$:.A$..""..458.OBD..S
T.0.426.HBF.." BLOCKS FREE":A0.0..BH. 5:
15:..27)GR$". PRESS .ANY KEY ."LT$
:.30:.462..BJ..30:..ABL..---DISK COMMAND
S.-CN..GR$"........ TIERRABASE .........
............................... DISK COM
MANDS ....."LT$:..0,2,79,24,1.MCP...27)"
....$. DISK DIRECTORY.NCR...27)"..F.ORMA
T A BLANK DISK..CT...27)"..S.CRATCH A SE
Q FILE..CV...27)"..R.ENAME A SEQ FILE.QC
W...27)"..C.REATE NEW SYSTEM DISK..CX...
27)"..E.XIT TO MAIN MENU.+DZ...17)"...
PRESS THE APPROPRIATE KEY ."G(1
43).MD...30:MR$.D$:DR$.D$:.A$."$".422.]D
...A$."F".402.SD...A$."S"..498:.488..D..
.A$."E".68..D...A$."C"..1002..D...A$."R"
..498:.493..D...476..D....21);:."...SCRA
TCH FILE NAME .";DR$:.DR$.D$.462..E...15
,8,15:.5,8,5,"0:".DR$.",S,R":.414:.ET.8.
462.9E.. 5:.15,"S0:".DR$: 15:.462.KE....
21);:."..RENAME OLD FILE .";DR$:.DR$.D$.
462..E....21);:.".. TO NEW FILE .";MR
$:.MR$.D$.462.PE...15,8,15:.5,8,5,"0:".D
R$.",S,R":.414:.ET.8.462..F.. 5:.15,"R0:
".MR$."=".DR$:.5,8,5:.414:.ET.8.462..F..
5: 15:.462.FF...".".11)"..ENTER FILE NA
MES EXACTLY AS SHOWN";.AF..." ON THE DIR
ECTORY":..F...--CREATE NEW SYSTEM DISK.
AF...".".3)".... WARNING"G(143)LT$" T
HIS WILL ERASE THE DISK";..F..." AND CRE
ATE A NEW SYSTEM DISK"..G....27)"..ARE Y
OU SURE? .Y. OR .N...G...30:.A$."N".68..
G...A$.."Y".68.FG..."..... FORMATTING"..
G...15,8,15:.15,"NEW0:TIERRABASE DATA,PZ
":.414:.ET.8.462..G.. 15..GL...29)"..CRE
ATING AUTO BOOT".DG`..15,8,15,"IJ": NU$.
G(0)..HE.: . DS . ..29)".*** DISK ERROR
: "G(143);DS$: E..1: .1460..HJ..8,8,8,"#
".5HO..15,"U1:8 0 18 0":.15,"B-P";8;5.DH
T.: .#8,BA$.YHY..15,"U1:8 0 1 0"..H~.:
.I.0.24: .#8,A$: BL$.BL$.G(F(A$)): ...H
... (F(BA$).1).0 . ...H..: . H(BL$,3)."
CBM" . ..KH..: I.I.1..H..: ..:
U ...&I..: .GR$.18)".*** BOOT SECTOR
USED BY ANOTHER PROGRAM ***"G(143)LT$.2
I..: ...@IN.: BA . .1.GIS...._I..F$."
TIERRABASE 128".RI...C(F$).16 . ....I..:
..32)"..THAT'S TOO BIG!"G(143);..I..:
..2..I..: .1250..I..: ...HI...F$.""..
.WI..T$."BASIC"..JA.. T$."BASIC" . RM$."
RUN" : U RM$."BOOT"..JX.AA. C(F$).Q("B00
").15.>J}.AL. AA . 255: AH. AA . 256.P
J...15,"B-P 8 0".ZJ...8, "CBM";NU$;NU$;N
U$;NU$;F$;NU$;NU$;..J...8, G(162);G(AL);
G(160);G(AH);.BJ...8, G(76);G(Q("A5"));G
(Q("AF"));..J...8, RM$;G(34);F$;NU$..J .
.15, "U2:8 0 1 0"..K... BA.0 . .15, "B-A
0 1 0"..K..A$.DS$.?K...8, G(76);G(Q("A5
"));G(Q("AF"));.NK... E . .".. *** A
BORTED ***"G(143):.462..K...".. SAVING T
IERRABASE 128"..KC.."TIERRABASE 128"..KG
.....KH..462.NK...-SUBPROGRAM DFREPORT..
LB..-FOR 1525,MPS801,GEMINI10X,OKIDATA92
A,EPSONRX80 AND OTHERS/W CARDCO..LL..4,4
,7:.PW.0.PW.80.8LV..3600.RL...----LOAD S
UBPROGRAMS.ZL...66.DL...6020..L... PRINT
TAB(32)"...LOADING PRACTICALC"..L... LOA
D"PRACTICALC",8..L&..----QUIT ROUTINE..L
0..".".23)"..QUITING NOW WILL ERASE CURR
ENT DATA".4M:...18)".ARE YOU SURE YOU WA
NT TO QUIT? .Y. OR .N. ?".IMD
..A$:.A$."" .3140.ZMN..A$."N".3600.KMX..
A$."Y".3180.UMB..3140..ML. 4:.8000. M...
----SEARCH ROUTINES MENU..M..A0.0.OM..."
.".27)"....A.LL RECORDS IN FILE..M....27
)"..S.ELECT INDIVIDUAL RECORDS.#N....27)
"..F.IND RECORDS WITH COMMON FIELDS.BN..
..27)"..E.XIT TO MAIN MENU.VN..."..POSIT
ION PAPER IN PRINTER AT TOP OF PAGE ";..
NF.."PRINTER MAY STOP DURING PRINTING IF
THE".QNP.."COMPUTER NEEDS TO REALLOCATE
MEMORY."..OZ...22)".. PRESS THE AP
PROPRIATE KEY . "..O...C$:.C$."" .3
300.,O...C$."A".3560.CO...C$."S".FL.0:.3
370.TO...C$."F".3430.EO...C$."E".3600.OO
...3300..O ..----SELECT ONE RECORD..O*..
"... PRINT WHICH RECO
RD (.0. TO EXIT)";I$:I.E(I$):.I.0.5030.(
P4..I.X.." NO SUCH RE
CORD EXISTS, TRY AGAIN...":.3370.YP>..K.
2.FL.0..4630:.4700:.4790:.5020:FL.1:.337
0.ZPH..K.2.FL.1.:.4790:.5020:.3370..PR..
4570:.4,B1$:.3210..P\..----FIND RECORD (
SEARCH)..PF.."."GR$.21)"... FIND RECO
RDS WITH COMMON ITEMS ."LT$.#QP.. N.1
.F:." .";N;". ";F$(N)
:.N.`QZ..". WHICH FIE
LD IS TO BE SEARCHED";SF.|Q...SF.0.SF.F.
."...":.3450..Q..." E
NTER .COMMON ITEM. ":.".
NOTE: (THE ENTIRE STRING IS NOT REQU
IRED)"..R..." .";F$(S
F);". ";:.T$.1R...K.2..4630:.4700.<R...I
.1.X.PR...". SEARCHIN
G RECORD";I;".."..R...T$.H(REC$(K%(I),SF
),C(T$))..K.4570,4790:.5020..RJ..I..RT..
5030.OR...----PRINT ALL RECORDS..R..."."
GR$.31)"..ANY KEY ABORTS...."LT$.&S....2
9)".PRINTING HEADING":.K.2..4630:.4700.C
S...I.1.X:..29)".PRINTING RECORD #";I:.K
.4570,4790:.5020:.I.MS...5030..S...----P
RINT RECORDS MENU.AS...".".19)"...
REPORT PRINTOUT MENU "..S....
27)"..L.IST RECORDS UNFORMATTED"..T$...2
7)"..P.RE-DEFINED FORMAT OR".,T....27)".
.D.EFINE NEW FORMAT".ST8...27)"...E.XIT
TO MAIN PROGRAM OR".WTB...27)"..M.AILING
LABEL PROGRAM"..TL.. PRINTTAB(27)"..C.A
LCULATED REPORTS PROGRAM".DTV...27)"..Q.
UIT PROGRAM"..T`...19)"... PRESS TH
E APPROPRIATE KEY "..UJ..C$:.C$.""
.3690.$UT..C$."L".K.1:.3210.:U~..C$."P"
.K.2:.4400.OU...C$."E". 4:.3050.DU...C$.
"M". 4:.3070..U... IFC$="C"THENCLOSE4:GO
TO516..U...C$."D".K.2:.3780..U...C$."Q".
3120..U...3690..UD.."...REPORT SIZE. UP
TO 136 CHARACTER WIDE.";..VN.." PRINTER
MUST BE INITIALIZED FOR WIDTHS".FVX.."GR
EATER THAN 80 CHARACTERS. CHECK YOUR";.V
V..." PRINTER MANUAL TO HOW TO PRINT 136
CHRS"..V....20)"...NUMBER OF CHARACTERS
?":..22)"? ...";PW:..22);:.".";PW.LV..
.PW.136.3820..W..."... TITLE FORMAT.
UP TO 4 TITLE LINES OF";.-W..." INFORMA
TION AT THE TOP OF THE FORM."..W...".
NUMBER OF LINES?":."
? ...";NL:..20);:."."
;NL:.NL.4.3860..W...J.1.NL:."
TITLE #";J:."
? > ...";TT$(J)..X(..C(TT$(J)).37..".
";./X2...20);:.".";TT$(J):.TT$(J)."".TT$
(J).">".6X<..J. XP.."
NUMBER OF COLUMNS?":."
? ...";NC:..20);:.".";NC:.NC.8.3920
..XZ..J.1.NC:." POSIT
ION OF COLUMN #";J:."
? ...";PC(J)..YD...20);:.".";PC(J):.J
.OYN..".. HEADING FORMAT. COLUMN HE
ADINGS CANNOT";.QYX.." EXCEED WIDTH OF C
OLUMNS:."..Y...J.1.NC:."
COLUMN";J;" HEADING ";.EY...J.NC..80
.PC(J);:.4000..Y...PC(J.1).2.PC(J);..Y .
." CHARACTERS WIDE".GZ..."
? > ...";HC$(J):..20);:.".";HC$(J
):.HC$(J)."".HC$(J).">".NZ...J..Z..."...
CHOOSE WHICH FIELDS GO UNDER THE COLUM
NS";..ZH.." ENTER .0. IF ADDITIONAL FIEL
DS ARE NOT DESIRED."..ZR..N.1.F:..20)"
.";N;". ";F$(N):.N..[...J.1.NC:.".....";
.45)"COLUMN";J;"..".7[...L.1.3:..45)".FI
ELD";L;" 0 ..";ML$(J,L).V[....52);".";:.
ML$(J,L):.L:.J..[...".".15)"DO YOU WISH
TO SUM THE DATA IN COLUMN".D(NC)."?".A[.
..". THIS COLUMN MAY BE FORMATTED WITH"
;..[..." ONLY ONE FIELD. ENTER .1. (YES)
OR .0. (N0).."..\....26)"?";Z:..26);:."
.";Z.J\".."... DO YOU WISH TO REVIEW YO
UR FORMAT AND/OR";.V\,.." MAKE CORRECTIO
NS? PRESS .Y. OR .N."..\6..A$:.A$."".41
50..\@..A$."Y".3780..\J..A$."N".4200..\T
..4150.R\^..----SAVE REPORT FORMAT..]H..
.23)". . SAVE FORMAT.? .Y. OR
.N."..]R..A$:.A$."".4210.*]|..A$."N".32
10.;]...A$."Y".4250.E]...4210.M]....24)"
..SAVE UNDER WHAT FILE NAME?"..]....26)N
F$:..24);:.".";NF$:.NF$."" U\......OFDN.
JK..O#..K...P...O..P.MP;.S\.P6..Z..U\...
..BO1.K.K.K..P...O..P.M..J.J..P;.S\.P6..
Z..U\......O#.J..VY.MVP.VY.MVPUP;.S\.P6.
.Z..U\...J..`&.Z..P..V..O#.J..MB..P;.S\.
P6..Z..U\......`<P...P`&SZ..PY.4..O#.J.U
BS.VY.MV.UMBS.P;.R60:.ET.8.3600..^...N.1
.3..^...5,ML$(I,N):.4960:.ET.8.3600..^..
.N:.I:.5,D(Z);CR$;E$:.4960:.ET.8.3600..^
.. 5: 15:.3210.._&..----LOAD REPORT FORM
AT.6_0..".".26)"..LOAD FORMAT FROM WHAT
FILE?".D_:...27)".";NF$:..25);:.".";NF$:
.NF$."".3600.._D..15,8,15:.5,8,5,"0:RP]
".NF$.",S,R":.4960:.ET.8.3600.._N..EN.62
..4970:.3600.U_X..5,PW,NL,NC:.4960:.ET.8
.3600.._B..J.1.NL..`L..5,TT$(J):.4960:.E
T.8.3600..`V..J..`...I.1.NC.8`...5,PC(I)
,HC$(I):.4960:.ET.8.3600.C`...N.1.3.D`..
.5,ML$(I,N):.4960:.ET.8.3600.~`...N:.I:.
5,A1$:Z.E(A1$)..`..S.ST:.S..0.4550..`...
5,E$..`F. 5: 15:.4130.Q`P..----PRINT NON
FORMATTED LISTING..AZ..4,"[ RECORD #";I;
" ]";:.J.1.62:.4,"-";:.J:.4,B1$.NA...A
$:.A$..""..GR$.29)"..PRINT ROUTINE ABORT
ED"LT$:..2:.3590:U4580.YA...N.1.F..A...4
,F$(N);:.J.1.20.C(F$(N)):.4,".";:.J..A..
.4,REC$(K%(I),N)..A...N:.4,B1$:...A...--
--PRINT REPORT..A..PG.0:S$."":.J.1.PW:S$
.S$.B$:.J..B ..J.1.NL:.TT$(J)..">"..4670
..B*..J:...B4..----CENTER TITLE.9B>.B..(
(PW.C(TT$(J))).2).]BH..4,H(S$,B).TT$(J);
B1$:PG.PG.1:..XBR..----POSITION HEADINGS
..B\..4770:PC(NC.1).PW.3:CW.PC(2).2.PC(1
):.PC(1).1.4720.JBF..4,H(HC$(1),CW);:.47
30..BP..4,H(S$,PC(1).1).H(HC$(1),CW);.(C
Z..J.2.NC:M.PC(J).C(H(HC$(J.1),PC(J).2.P
C(J.1))).PC(J.1).RC...4,H(S$,M).H(HC$(J)
,PC(J.1).2.PC(J));.PC...J:.4,B1$:.4770:P
G.PG.3:...C...----PRINT DASHED LINE..C..
.J.1.PW:.4,"-";:.J:.4,B1$:..DC...----PRI
NT FILE DATA..D..F1.E(ML$(1,1)):F2.E(ML$
(1,2)):F3.E(ML$(1,3)):CW.PC(2).2.PC(1)..
D...PC(1).1.4830.YDJ..4,H(REC$(K%(I),F1)
.B$.REC$(K%(I),F2).B$.REC$(K%(I),F3),CW)
;.CDT..4850.YD...4,H(S$,PC(1).1);..D...4
,H(REC$(K%(I),F1).B$.REC$(K%(I),F2).B$.R
EC$(K%(I),F3),CW);.YD...J.2.NC:CW.PC(J).
2.PC(J.1)..E..F1.E(ML$(J.1,1)):F2.E(ML$(
J.1,2)):F3.E(ML$(J.1,3)).OE...A$:.A$..""
...29)"..PRINT ROUTINE ABORTED":..2:.359
0:U4870..E..M.C(H(REC$(K%(I),F1).B$.REC$
(K%(I),F2).B$.REC$(K%(I),F3),CW))..E..M.
PC(J).M.PC(J.1):CW.PC(J.1).2.PC(J).JE...
4,H(S$,M);..E$.F1.E(ML$(J,1)):F2.E(ML$(J
,2)):F3.E(ML$(J,3)).<F...4,H(REC$(K%(I),
F1).B$.REC$(K%(I),F2).B$.REC$(K%(I),F3),
CW);.RF8..J:.4,B1$:PG.PG.1.YFB..PG.60..J
.1.6:.4,B1$:.J:PG.0:.4700.FL....FV..---
-DISK ERROR CHECK.FF`..15,EN,EM$,ET,ES:.
(EN.20).(EN.62).ET.0:...FJ...22)"..DISK
ERROR."EN"., "EM$","ET".,"ES."GT...24)".
PRESS .ANY KEY. TO RETURN TO MENU".6G~..
A$:.A$."".4990.HG..ET.8: 5: 15:..AG...--
--ADD LAST COLUMN..G..A0.A0.E(REC$(K%(I)
,E(ML$(NC,1)))):.. G...Z..1..4,B1$:.3210
..G...4,H(S$,PC(NC).1);..G...I.1.PW.PC(N
C).1:.4,"-";:.I:.4,B1$..HD..4,H(S$,PC(NC
).9)."TOTAL= ".D(A0)..HN..4,B1$:.3210.EH
P..-SUBPROGRAM DFMAIL BY MIKE KONSHAK (C
)1983..HZ..-FOR1525E,MPS801,GEMINI10X,OK
IDATA92A,EPSONRX80 AND OTHERS W/CARDCO..
H...T%.0.T%.6..H...LW.0.LW.32.BH...4,4:.
7470:.6530..H...----LOAD SUBPROGRAMS..H.
..66..H...3000..IT.. PRINT"... LOADING
PRACTICALC".,I... LOAD"PRACTICALC",8.BI.
..----QUIT ROUTINE.VI...".".19)"..QUITIN
G NOW WILL ERASE CURRENT DATA"..I....17)
".ARE YOU SURE YOU WANT TO QUIT?
.Y. OR .N. ? ".LI...A$:.A$."" .6150..I.
..A$."N".6530..I...A$."Y".6190..I$..6150
..J.. 4:.8000..JB.. ----SEARCH ROUTINES.
.JL..GR$"........ TIERRABASE ...........
............................. PRINT OPTI
ONS ....."LT$:..0,2,79,24,1..JV...27)"..
..A.LL RECORDS IN FILE.TJ`...27)"..S.ELE
CT INDIVIDUAL RECORD..KJ...27)"..F.IND R
ECORDS WITH COMMON FIELDS. KT...27)"..E.
XIT TO MAIN MENU.\K~...25)".... PRE
SS THE APPROPRIATE KEY ."G(143).QK.
..C$:.C$."" .6280..K...C$."A".6510..K...
C$."S".6350..K...C$."F".6390..K...C$."E"
.6530..K...6280..KD..----SELECT INDIVIDU
AL RECORD..LN...27);:."..PRINT WHICH REC
ORD";I$:I.E(I$).MLX..I.X...27)"NO SUCH R
ECORD EXISTS, TRY AGAIN...":..2:.6350.]L
...7410:.6220.ZL...----FIND COMMON RECOR
DS..L...".".22)".. FIND RECORDS WITH
COMMON ITEMS .".XL... N.1.F:..20)" ."
;N;". ";F$(N):.N..M....26);:.".WHICH FIE
LD IS TO BE SEARCHED";SF.)M...SF.0.SF.F
...26)"...":.6410.~M....21)"..ENTER .COM
MON ITEM. ":..21)"..NOTE: (THE ENTIRE ST
RING IS NOT REQUIRED)"..M(...26)"..";F$(
SF);". ";:.T$..M2..I.1.X.LM<...21)".SEAR
CHING RECORD";I;".."..MF..T$.H(REC$(K%(I
),SF),C(T$))..7410..MP..I..NZ..6220..ND.
.----PRINT ALL RECORDS.|NN..".".32)GR$".
ANY KEY ABORTS."LT$:."..":.I.1.X:..29)".
PRINTING RECORD #";I:.7410:.I:.6220..NX
..----MAILING LABELS MENU..O...GR$".....
... TIERRABASE .........................
.............. MAILING LABELS ....."LT$:
..0,2,79,24,1.*O....27)"...P.RE-DEFINED
FORMAT OR".JO....27)"..D.EFINE NEW FORMA
T".JO ...27)"..C.HANGE LABEL SIZE"..O...
.27)"...E.XIT TO MAIN PROGRAM OR"..O....
27)"..R.EPORT/LISTING PROGRAM"..O... PRI
NTTAB(27)"..C.ALCULATED REPORTS PROGRAM"
..PH...27)"..Q.UIT PROGRAM".?PR...20)"..
.. PRESS THE APPROPRIATE KEY
"G(143).TP...C$:.C$."" .6620.EP...C$."P"
.7140.}P...C$."C"..7470:.6530..P...C$."E
". 4:.6060..P...C$."R". 4:.6080.IP... IF
C$="C"THENCLOSE4:GOTO1018.ZP...C$."D".67
20..P"..C$."Q".6130..P,..6620..Q6..-----
-MAILING LIST FORMAT..Q@..GR$"........ T
IERRABASE ..............................
.... MAILING LIST FORMAT ....."LT$:..0,2
,79,24,1..QJ..".. THIS FORMAT USES SINGL
E ROW LABELS.";..QT.." EACH LABEL CONTAI
NS UP TO"T%.1" ROWS."..R^.." EACH ROW CA
N CONSIST OF 1 TO 3 FIELDS.";.>RH.." IF
THE LENGTH OF MULTIPLE ITEMS EXCEEDS";.Y
RR.." ."LW"CHARACTERS,";.|RS.." SOME DA
TA WILL BE CUT OFF.".WR|..".
.NUMBER OF ROWS?":..24)"
...";RW:..23);:." .";RW..R...RW.
T%.1.." ...":.6780..S...RW.0.6530
.9S...".".21)"CHOOSE WHICH FIELDS GO IN
EACH ROW".VS....16)" ENTER .0. IF ADDITI
ONAL FIELDS ARE NOT DESIRED.."..S...N.1.
F:..21)".";N;". ";F$(N):.N.AS... J.1.RW:
.".....";.46)"ROW";J;".."..SB..L.1.3:..4
6)".FIELD";L;" 0 ..";ML$(J,L)..TL...53);
".";:.ML$(J,L)..TV..L..T...J.JT..."... D
O YOU WISH TO REVIEW YOUR FORMAT AND/OR
";.UT..."MAKE CORRECTIONS? PRESS .Y. OR
.N."..T...A$:.A$."".6910..T...A$."Y".67
20..T...A$."N".6960..T...6910.YT&..-----
SAVE MAILING LABEL FORMAT..U0...24)"..SA
VE FORMAT.? .Y. OR .N."..U:.
.A$:.A$."".6970.0UD..A$."N".7280.AUN..A$
."Y".7010.KUX..6970.SUB...25)". SAVE UND
ER WHAT FILE NAME?"..UL...27)".";NF$:..2
5);:.".";NF$:.NF$."".6530.QUV..15,8,15:.
15,"S0:ML] ".NF$:.7650:.ET.8.6530..V...5
,8,5,"0:ML] ".NF$.",S,W":.7650:.ET.8.653
0..V...5,RW..V...I.1.RW:.N.1.3.?V...5,ML
$(I,N):.7650:.ET.8.6530.FV...N.MV...I.KV
...5,"EOF":.7650:.ET.8.6530.VVF. 5: 15..
VP..7280..VZ..-----LOAD MAILING LABEL FO
RMAT.QV...".".26)".. LOAD FORMAT FROM WH
AT FILE?"..V....27)".";NF$:..25);:.".";N
F$:.NF$."".6530.8W...15,8,15:.5,8,5,"0:M
L] ".NF$.",S,R":.7650:.ET.8.6530.OW...EN
.62..7660:.6530.YW...5,RW.LW...I.1.RW:.N
.1.3..W ..5,ML$(I,N):.7650:.ET.8.6530..W
*..N..W4..I..W>.S.ST:.S..0.7250..WH..5,E
$.DWR. 5: 15.NW\..6890..WF..-----PRINT S
AMPLE LABELS..XP.."... INSERT SINGLE ROW
TRACTOR FEED LABELS";.LXZ.." RUN TEST L
ABELS TO HELP POSITION THEM".KX....21)".
.PRESS .T.EST LABEL..X....27)"..C.HOOSE
RECORDS..X....27)"..E.XIT TO MENU..X...A
$:.A$."".7330.FX...A$."C".6220.WX...A$."
E".6530..X...A$.."T".7330..YJ..I.1.RW:.J
.1.LW:.4,I(D(J),1);:.J:.4,B1$:.I.1YT..I.
1.T%.RW:.4,B1$:.I.;Y...7280.QY...----PRI
NT LABELS..Y...J.1.RW:F1.E(ML$(J,1)):F2.
E(ML$(J,2)):F3.E(ML$(J,3)).JY...4,H(REC$
(K%(I),F1).B$.REC$(K%(I),F2).B$.REC$(K%(
I),F3),LW).!Z...A$:.A$.."".."..
PRINT ROUTINE ABORTED
":..2:.3590:U7430.(Z...J.AZ...S.1.T%.RW:
.4,B1$:.S.GZ....BZ$..----CHOOSE LABEL SI
ZE..Z...".".20)GR$". LABEL SI
ZE ."LT$.HZ8...23)"..S.TAN
DARD - 5 ROWS PER LABEL"..ZB...23)"15/16
INCH BY 3 1/2 INCHES"..{L...23)"..L.ARG
E - 8 ROWS PER LABEL".?{V...23)"1 7/1
6 INCH BY 3 1/2 INCHES".M{`...23)"..O.TH
ER - CUSTOM LABEL SIZE OR"..{J...23)"
NUMBER OF CHARACTERS PER ROW".H{T...20)"
..NOTE: LABELS ARE SEPARATED BY ONE ROW"
..{~...22)"32 CHARACTERS PER ROW IS STAN
DARD".0|...GR$.20)".. PRESS THE APP
ROPRIATE KEY ."LT$.D|...C$:.C$."".
7570.B|...C$."S".T%.6:RW.5:LW.32:...|...
C$."L".T%.9:RW.8:LW.32:...|...C$."O".762
0..|...7570..|D..". E
NTER NUMBER OF ROWS ON LABEL";RW:T%.RW.1
..}N.." ENTER # OF CH
ARACTERS PER ROW";LW:..8}X..----DISK ERR
OR CHECK.E}...15,EN,EM$,ET,ES:.(EN.20).(
EN.62).ET.0:...}....20)"..DISK ERROR."EN
"., "EM$","ET".,"ES.B}....22)". PRESS .A
NY KEY. TO RETURN TO MENU".V}...A$:.A$."
".7680..}..ET.8: 5: 15:..>~@.."....TIERR
ABASE IS FOR THE COMMODORE 128 AND USES
EITHER THE 1541 OR THE 1571.".Z~J.."CRE
DITS FOR VARIOUS PORTIONS OF THIS PROGRA
M GO TO :".L~T..".MIKE KONSHAK, WHO PUT
TOGETHER DATAFILE (128), DAN BICKFORD WH
O NOT ONLY ". ..."TYPED THE BASIS OF TH
IS PROGRAM FROM AN ANCIENT ISSUE OF 'RUN
' MAGAZINE, BUT".R..."ALSO DID MUCH OF
THE ADAPTATION FOR THE C-128. LASTLY, B
UT CERTAINLY NOT ".G..."LEASTLY, BOTH D
AN AND FRED BOWEN WHO WROTE MANY OF THE
UTILITIES CONTAINED ON"...B.."THE DISK P
ACKAGED WITH YOUR 128 WHICH I HAVE BORRO
WED FROM RATHER FREELY FOR".L.L.."THIS P
ROGRAM. BASICALLY WHAT I HAVE DONE IS AS
SEMBLE A GREAT MANY PIECES,"...V.."AUTHO
RED BY A GREAT MANY PEOPLE AND HAD AN EQ
UALLY GREAT DEAL OF FUN IN THE"......"PR
OCESS. I HOPE YOU'LL FIND THIS EFFORT U
SEFUL. PLEASE ENJOY IT.".7...."..
JOHN WOOLCOCK".P...."..
P.S. BE SURE AND TRY 'TIERRATERM FOR THE
128 !!"......ZA..1..&:..... ..20.... ZA
.0.... .66...(#.5:."...":.GR$"..... TIER
RABASE .................................
............. SET COLORS ....."LT$.L.2#.
LT$" USE CONTROL OR C=
AND 1-8 TO DESIGNATE COLORS"...<#.GR$"..
........................................
......................................".
..F#.. 0,4,79,24,1.Z.P#.LT$".... COLOR
FOR TEXT "...Z#.II$...D#.II$.G(144).."
.SORRY, BLACK ISN'T ALLOWED":.9050.8.N#.
II$.G(129).LT$.".":.9480.V.X#.II$.G(149)
.LT$.".":.9480.T..#.II$.G(150).LT$.".":.
9480....#.II$.G(151).LT$.".":.9480....#.
II$.G(152).LT$.".":.9480.N. #.II$.G(153)
.LT$.".":.:.Y.'0...P..\..I.{B.T.X\..X...
.X...L|X.W..\..I.YY...X\..Y....X....|..W
..\..IY...X\..Y....X....Y..W..$.G(28).LT
$.".":.9480.A.R#.II$.G(159).LT$.".":.948
0...#.II$.G(156).LT$.".":.9480....#.II$
.G(30).LT$.".":.9480....#.II$.G(31).LT$.
".":.9480.W..#.II$.G(158).LT$.".":.9480.
...$.II$.G(13).LT$.LT$:.9480....$.II$.""
.9050.J..$.5:."...":.GR$"..... TIERRABAS
E ......................................
........ SET COLORS ....."..."$.LT$"
USE CONTROL OR C= AND 1-8
TO DESIGNATE COLORS"...,$.GR$".........
........................................
...............................".#.6$..
0,4,79,24,1.F.@$.GR$".... COLOR FOR GRA
PHICS".O.J$.II$...T$.II$.G(144).." ..S
ORRY, BLACK ISN'T ALLOWED":.9290...^$.II
$.G(129).GR$.".":.9520.D.H$.II$.G(149).G
R$.".":.9520...R$.II$.G(150).GR$.".":.95
20...|$.II$.G(151).GR$.".":.9520....$.II
$.G(152).GR$.".":.9520.<..$.II$.G(153).G
R$.".":.9520.Z..$.II$.G(154).GR$.".":.95
20.X..$.II$.G(155).GR$.".":.9520....$.II
$.G(5).GR$.".":.9520....$.II$.G(28).GR$.
".":.9520.O.B$.II$.G(159).GR$.".":.9520.
..L$.II$.G(156).GR$.".":.9520...V$.II$.G
(30).GR$.".":.9520.'..$.II$.G(31).GR$.".
":.9520.E..$.II$.G(158).GR$.".":.9520.B.
.$.II$.G(13).GR$.GR$:.9520.S..$.II$."".9
290.F..%.LT$"... THIS IS THE TEXT CO
LOR YOU'VE CHOSEN. IS IT WHAT YOU INTEN
DED?";....%.II$:.II$."".9490....%.II$."Y
"..9240...&%.II$.."Y".II$..G(13).9000.`.
0%.GR$". THIS IS THE GRAPHICS COLOR Y
OU'VE CHOSEN. IS IT WHAT YOU INTENDED?"
.V.:%.II$:.II$."".9530...D%.II$."Y"..956
0...N%.II$.."Y".II$..G(13).9240...X%.5:.
"...";LT$;"... ......
.............................".5.B%."
. OK..THIS IS YOUR TEXT
COLOR !! .".S.L%."
......................................V%
.GR$;".. .............
........................."....%."
. AND THIS IS THE GRAPHICS C
OLOR !! .".;..%." ...
....................................Y..%
.LT$".. IF THEY'
RE SUITABLE THEN"....%."..
<RETURN> TAKES YOU BACK TO THE MAIN
MENU"....%."..
'S' SAVES TO DISK ".7..%.".
ANY OTHER KEY WILL LET YOU TRY
AGAIN.".M..%.II$:.II$."".9660._.F%.II$."
S".9700.P.P%.II$.G(13).....Z%.II$.."S".I
I$..G(13).9000.S..%.1,(DV),15,"S0:TIERRA
.COLORS": 1:..#1,"TIERRA.COLORS",D0,U(DV
),W....%.1,LT$:.1,GR$: 1:....H&. 5:.:.".
"G(14):..37)"ERROR!".G.R&.".... PLEASE
MAKE SURE ALL DRIVES AND OTHER PERIPHERA
LS ARE TURNED ON AND CONNECTED".S.\&.G(1
43)...F&.:.". ERRO
R IN LINE NUMBER ";:.EL...P&."..
";S(ER):..5:..:V 66.
W..'."SCRATCHING TIERRABASE 128":."TIERR
ABASE 128":."RE-SAVING TIERRABASE 128":.
"TIERRABASE 128":."ALL DONE!":....J.P
> CLICK IMAGE PREVIEW FOR FULL MODAL