DATABASE 128

00000000: 01 08 25 08 64 00 E7 30  2C 32 3A E7 34 2C 39 3A  |..%.d..0,2:.4,9:|
00000010: 99 22 93 95 11 22 3A 8F  20 44 49 53 4B 20 56 45  |."...":. DISK VE|
00000020: 52 53 49 4F 4E 00 47 08  6E 00 99 A6 39 29 22 43  |RSION.G.n...9)"C|
00000030: 4F 4D 4D 4F 44 4F 52 45  20 31 32 38 20 44 41 54  |OMMODORE 128 DAT|
00000040: 41 20 42 41 53 45 22 00  62 08 78 00 99 A6 39 29  |A BASE".b.x...9)|
00000050: 22 11 31 29 20 46 4F 52  4D 41 54 20 46 49 4C 45  |".1) FORMAT FILE|
00000060: 53 22 00 7D 08 82 00 99  A6 39 29 22 11 32 29 20  |S".}.....9)".2) |
00000070: 43 52 45 41 54 45 20 46  49 4C 45 53 22 00 A0 08  |CREATE FILES"...|
00000080: 8C 00 99 A6 39 29 22 11  33 29 20 4C 49 53 54 20  |....9)".3) LIST |
00000090: 46 49 4C 45 53 20 4F 4E  20 53 43 52 45 45 4E 22  |FILES ON SCREEN"|
000000A0: 00 C4 08 96 00 99 A6 39  29 22 11 34 29 20 4C 49  |.......9)".4) LI|
000000B0: 53 54 20 46 49 4C 45 53  20 4F 4E 20 50 52 49 4E  |ST FILES ON PRIN|
000000C0: 54 45 52 22 00 DD 08 A0  00 99 A6 39 29 22 11 35  |TER".......9)".5|
000000D0: 29 20 45 44 49 54 20 46  49 4C 45 53 22 00 04 09  |) EDIT FILES"...|
000000E0: AA 00 99 A6 39 29 22 11  36 29 20 52 45 54 52 49  |....9)".6) RETRI|
000000F0: 45 56 45 20 44 41 54 41  20 46 52 4F 4D 20 46 49  |EVE DATA FROM FI|
00000100: 4C 45 53 22 00 27 09 B4  00 99 A6 39 29 22 11 37  |LES".'.....9)".7|
00000110: 29 20 4C 4F 41 44 20 46  49 4C 45 53 20 46 52 4F  |) LOAD FILES FRO|
00000120: 4D 20 44 49 53 4B 22 00  48 09 BE 00 99 A6 39 29  |M DISK".H.....9)|
00000130: 22 11 38 29 20 53 41 56  45 20 46 49 4C 45 53 20  |".8) SAVE FILES |
00000140: 4F 4E 20 44 49 53 4B 22  00 63 09 C8 00 99 A6 39  |ON DISK".c.....9|
00000150: 29 22 11 39 29 20 45 58  49 54 20 50 52 4F 47 52  |)".9) EXIT PROGR|
00000160: 41 4D 22 00 75 09 D2 00  99 A6 31 37 29 22 11 28  |AM".u.....17)".(|
00000170: 31 2D 39 29 22 00 88 09  DC 00 A1 4D 24 3A 8B 4D  |1-9)"......M$:.M|
00000180: 24 B2 22 22 A7 32 32 30  00 99 09 E6 00 8B 4D 24  |$."".220......M$|
00000190: B2 22 31 22 A7 20 33 33  30 00 AA 09 F0 00 8B 4D  |."1". 330......M|
000001A0: 24 B2 22 32 22 A7 20 37  30 30 00 BB 09 FA 00 8B  |$."2". 700......|
000001B0: 4D 24 B2 22 33 22 A7 20  38 34 30 00 CD 09 04 01  |M$."3". 840.....|
000001C0: 8B 4D 24 B2 22 34 22 A7  20 31 30 30 30 00 DF 09  |.M$."4". 1000...|
000001D0: 0E 01 8B 4D 24 B2 22 35  22 A7 20 31 31 35 30 00  |...M$."5". 1150.|
000001E0: F1 09 18 01 8B 4D 24 B2  22 36 22 A7 20 31 39 30  |.....M$."6". 190|
000001F0: 30 00 03 0A 22 01 8B 4D  24 B2 22 37 22 A7 20 31  |0..."..M$."7". 1|
00000200: 34 30 30 00 15 0A 2C 01  8B 4D 24 B2 22 38 22 A7  |400...,..M$."8".|
00000210: 20 31 36 30 30 00 27 0A  36 01 8B 4D 24 B2 22 39  | 1600.'.6..M$."9|
00000220: 22 A7 20 31 38 30 30 00  30 0A 40 01 89 32 32 30  |". 1800.0.@..220|
00000230: 00 43 0A 4A 01 8B 4D 24  B2 22 31 22 A7 20 4D B2  |.C.J..M$."1". M.|
00000240: 4D AA 31 00 86 0A 54 01  8B 4D B1 31 A7 99 22 93  |M.1...T..M.1..".|
00000250: 11 11 11 11 11 11 20 20  20 20 53 4F 52 52 59 2C  |......    SORRY,|
00000260: 20 59 4F 55 20 43 41 4E  20 46 4F 52 4D 41 54 20  | YOU CAN FORMAT |
00000270: 4F 4E 4C 59 20 4F 4E 43  45 22 3A 81 4A B2 31 A4  |ONLY ONCE":.J.1.|
00000280: 32 30 30 30 3A 82 00 93  0A 5E 01 8B 4D B1 31 A7  |2000:....^..M.1.|
00000290: 31 30 30 00 C4 0A 68 01  99 22 93 11 11 11 11 20  |100...h.."..... |
000002A0: 20 20 20 20 20 48 4F 57  20 4D 41 4E 59 20 46 49  |     HOW MANY FI|
000002B0: 4C 45 53 20 44 4F 20 59  4F 55 20 4E 45 45 44 22  |LES DO YOU NEED"|
000002C0: 3A 85 4E 52 00 D4 0A 6D  01 8B 4E 52 B1 33 30 30  |:.NR...m..NR.300|
000002D0: A7 33 36 30 00 02 0B 72  01 99 22 11 11 20 20 20  |.360...r.."..   |
000002E0: 48 4F 57 20 4D 41 4E 59  20 46 49 45 4C 44 53 20  |HOW MANY FIELDS |
000002F0: 50 45 52 20 46 49 4C 45  20 28 31 30 20 4D 41 58  |PER FILE (10 MAX|
00000300: 29 22 00 0A 0B 7C 01 85  4E 46 00 1A 0B 81 01 8B  |)"...|..NF......|
00000310: 20 4E 46 B1 31 30 A7 33  37 30 00 3E 0B 86 01 99  | NF.10.370.>....|
00000320: A6 38 29 22 11 45 4E 54  45 52 20 54 49 54 4C 45  |.8)".ENTER TITLE|
00000330: 20 4F 46 20 44 41 54 41  20 42 41 53 45 22 00 47  | OF DATA BASE".G|
00000340: 0B 90 01 85 44 42 24 00  53 0B 9A 01 81 49 B2 31  |....DB$.S....I.1|
00000350: A4 4E 46 00 76 0B A4 01  99 A6 39 29 22 11 45 4E  |.NF.v.....9)".EN|
00000360: 54 45 52 20 54 49 54 4C  45 20 4F 46 20 46 49 45  |TER TITLE OF FIE|
00000370: 4C 44 20 22 3B 49 00 82  0B AE 01 85 44 54 24 28  |LD ";I......DT$(|
00000380: 49 29 00 AC 0B B8 01 99  22 11 20 20 20 20 20 20  |I)......".      |
00000390: 20 49 53 20 54 48 49 53  20 46 49 45 4C 44 20 28  | IS THIS FIELD (|
000003A0: 41 29 20 41 4C 50 48 41  20 4F 52 22 00 D2 0B C2  |A) ALPHA OR"....|
000003B0: 01 85 22 20 20 20 20 20  20 20 20 20 20 20 20 28  |.."            (|
000003C0: 4E 29 20 4E 55 4D 45 52  49 43 20 22 3B 41 24 28  |N) NUMERIC ";A$(|
000003D0: 49 29 00 E5 0B CC 01 8B  41 24 28 49 29 B2 22 41  |I)......A$(I)."A|
000003E0: 22 A7 34 39 30 00 F8 0B  D6 01 8B 41 24 28 49 29  |".490......A$(I)|
000003F0: B2 22 4E 22 A7 34 39 30  00 01 0C E0 01 89 34 35  |."N".490......45|
00000400: 30 00 08 0C EA 01 82 49  00 1E 0C F4 01 99 22 93  |0......I......".|
00000410: 11 22 A6 31 37 29 22 46  4F 52 4D 41 54 22 00 34  |.".17)"FORMAT".4|
00000420: 0C FE 01 99 22 11 20 20  54 49 54 4C 45 3A 20 22  |....".  TITLE: "|
00000430: 3B 44 42 24 00 48 0C 08  02 99 22 11 20 20 46 49  |;DB$.H....".  FI|
00000440: 4C 45 53 3D 22 3B 4E 52  00 5C 0C 12 02 99 22 20  |LES=";NR.\...." |
00000450: 20 46 49 45 4C 44 53 3D  22 3B 4E 46 00 68 0C 1C  | FIELDS=";NF.h..|
00000460: 02 81 49 B2 31 A4 4E 46  00 88 0C 26 02 99 22 54  |..I.1.NF...&.."T|
00000470: 49 54 4C 45 20 4F 46 20  46 49 45 4C 44 22 3B 49  |ITLE OF FIELD";I|
00000480: 3B 44 54 24 28 49 29 3B  00 A3 0C 30 02 8B 41 24  |;DT$(I);...0..A$|
00000490: 28 49 29 B2 22 41 22 A7  99 22 20 2D 20 41 4C 50  |(I)."A".." - ALP|
000004A0: 48 41 22 00 C0 0C 3A 02  8B 41 24 28 49 29 B2 22  |HA"...:..A$(I)."|
000004B0: 4E 22 A7 99 22 20 2D 20  4E 55 4D 45 52 49 43 22  |N".." - NUMERIC"|
000004C0: 00 C7 0C 44 02 82 49 00  D4 0C 49 02 8B 4E 41 B2  |...D..I...I..NA.|
000004D0: 31 32 A7 8E 00 F3 0C 4E  02 99 A6 31 31 29 22 11  |12.....N...11)".|
000004E0: 49 53 20 46 4F 52 4D 41  54 20 43 4F 52 52 45 43  |IS FORMAT CORREC|
000004F0: 54 3F 22 00 08 0D 58 02  A1 59 4E 24 3A 8B 59 4E  |T?"...X..YN$:.YN|
00000500: 24 B2 22 22 A7 36 30 30  00 19 0D 62 02 8B 59 4E  |$."".600...b..YN|
00000510: 24 B2 22 59 22 A7 36 34  30 00 2A 0D 6C 02 8B 59  |$."Y".640.*.l..Y|
00000520: 4E 24 B2 22 4E 22 A7 33  36 30 00 33 0D 76 02 89  |N$."N".360.3.v..|
00000530: 36 30 30 00 4E 0D 80 02  86 20 4E 4E 28 4E 52 2C  |600.N.... NN(NR,|
00000540: 4E 46 29 2C 4E 4E 24 28  4E 52 2C 4E 46 29 00 5B  |NF),NN$(NR,NF).[|
00000550: 0D 85 02 8B 51 57 B2 31  A7 20 8E 00 64 0D 8A 02  |....QW.1. ..d...|
00000560: 89 31 30 30 00 6E 0D BC  02 43 B2 43 AA 31 00 83  |.100.n...C.C.1..|
00000570: 0D C6 02 8B 43 B1 4E 52  A7 43 B2 43 AB 31 3A 89  |....C.NR.C.C.1:.|
00000580: 31 30 30 00 A1 0D D0 02  99 22 93 11 11 22 A6 31  |100......"...".1|
00000590: 33 29 22 43 52 45 41 54  45 20 46 49 4C 45 22 3B  |3)"CREATE FILE";|
000005A0: 43 00 D1 0D DA 02 99 22  20 20 11 44 4F 20 4E 4F  |C......"  .DO NO|
000005B0: 54 20 55 53 45 20 43 4F  4D 4D 41 53 20 4F 52 20  |T USE COMMAS OR |
000005C0: 43 4F 4C 4F 4E 53 20 49  4E 20 54 45 58 54 21 11  |COLONS IN TEXT!.|
000005D0: 22 00 DD 0D E4 02 81 49  B2 31 A4 4E 46 00 F1 0D  |"......I.1.NF...|
000005E0: EE 02 99 22 45 4E 54 45  52 20 22 44 54 24 28 49  |..."ENTER "DT$(I|
000005F0: 29 00 0E 0E F8 02 8B 41  24 28 49 29 B2 22 4E 22  |)......A$(I)."N"|
00000600: A7 85 4E 4E 28 43 2C 49  29 3A 89 37 38 30 00 27  |..NN(C,I):.780.'|
00000610: 0E 02 03 8B 41 24 28 49  29 B2 22 41 22 A7 85 4E  |....A$(I)."A"..N|
00000620: 4E 24 28 43 2C 49 29 00  45 0E 07 03 8B 4E 4E 24  |N$(C,I).E....NN$|
00000630: 28 43 2C 49 29 B2 22 22  A7 4E 4E 24 28 43 2C 49  |(C,I)."".NN$(C,I|
00000640: 29 B2 22 58 22 00 4C 0E  0C 03 82 49 00 78 0E 16  |)."X".L....I.x..|
00000650: 03 99 22 20 20 20 44 4F  20 59 4F 55 20 57 41 4E  |.."   DO YOU WAN|
00000660: 54 20 54 4F 20 43 52 45  41 54 45 20 4D 4F 52 45  |T TO CREATE MORE|
00000670: 20 46 49 4C 45 53 3F 22  00 8D 0E 20 03 A1 59 4E  | FILES?"... ..YN|
00000680: 24 3A 8B 59 4E 24 B2 22  22 A7 38 30 30 00 9E 0E  |$:.YN$."".800...|
00000690: 2A 03 8B 59 4E 24 B2 22  59 22 A7 37 30 30 00 AF  |*..YN$."Y".700..|
000006A0: 0E 34 03 8B 59 4E 24 B2  22 4E 22 A7 31 30 30 00  |.4..YN$."N".100.|
000006B0: B8 0E 3E 03 89 38 30 30  00 C8 0E 48 03 99 22 93  |..>..800...H..".|
000006C0: 11 22 A6 39 29 44 42 24  00 D3 0E 52 03 81 4B B2  |.".9)DB$...R..K.|
000006D0: 31 A4 43 00 D9 0E 5C 03  99 00 E0 0E 66 03 99 4B  |1.C...\.....f..K|
000006E0: 00 EC 0E 70 03 81 49 B2  31 A4 4E 46 00 F9 0E 7A  |...p..I.1.NF...z|
000006F0: 03 99 44 54 24 28 49 29  3B 00 11 0F 84 03 8B 41  |..DT$(I);......A|
00000700: 24 28 49 29 B2 22 4E 22  A7 99 4E 4E 28 4B 2C 49  |$(I)."N"..NN(K,I|
00000710: 29 00 2E 0F 8E 03 8B 41  24 28 49 29 B2 22 41 22  |)......A$(I)."A"|
00000720: A7 99 22 20 22 3B 4E 4E  24 28 4B 2C 49 29 00 3E  |.." ";NN$(K,I).>|
00000730: 0F 98 03 81 4A B2 31 A4  32 30 30 3A 82 4A 00 45  |....J.1.200:.J.E|
00000740: 0F A2 03 82 49 00 4C 0F  AC 03 82 4B 00 71 0F B6  |....I.L....K.q..|
00000750: 03 99 A6 37 29 22 11 50  52 45 53 53 20 41 4E 59  |...7)".PRESS ANY|
00000760: 20 4B 45 59 20 54 4F 20  43 4F 4E 54 49 4E 55 45  | KEY TO CONTINUE|
00000770: 22 00 84 0F C0 03 A1 5A  24 3A 8B 5A 24 B2 22 22  |"......Z$:.Z$.""|
00000780: A7 39 36 30 00 8D 0F CA  03 89 31 30 30 00 96 0F  |.960......100...|
00000790: E8 03 9F 31 2C 34 00 A1  0F F2 03 98 31 2C 44 42  |...1,4......1,DB|
000007A0: 24 00 AC 0F FC 03 81 4B  B2 31 A4 43 00 B3 0F 06  |$......K.1.C....|
000007B0: 04 98 31 00 BC 0F 0B 04  98 31 2C 4B 00 C8 0F 10  |..1......1,K....|
000007C0: 04 81 49 B2 31 A4 4E 46  00 D7 0F 1A 04 98 31 2C  |..I.1.NF......1,|
000007D0: 44 54 24 28 49 29 3B 00  F1 0F 24 04 8B 41 24 28  |DT$(I);...$..A$(|
000007E0: 49 29 B2 22 4E 22 A7 98  31 2C 4E 4E 28 4B 2C 49  |I)."N"..1,NN(K,I|
000007F0: 29 00 10 10 2E 04 8B 41  24 28 49 29 B2 22 41 22  |)......A$(I)."A"|
00000800: A7 98 31 2C 22 20 22 3B  4E 4E 24 28 4B 2C 49 29  |..1," ";NN$(K,I)|
00000810: 00 17 10 38 04 82 49 00  1E 10 42 04 82 4B 00 28  |...8..I...B..K.(|
00000820: 10 4C 04 98 31 3A A0 31  00 31 10 56 04 89 31 30  |.L..1:.1.1.V..10|
00000830: 30 00 4D 10 7E 04 99 22  93 22 A6 31 35 29 22 11  |0.M.~..".".15)".|
00000840: 11 11 45 44 49 54 20 46  49 4C 45 53 22 00 7E 10  |..EDIT FILES".~.|
00000850: 88 04 99 22 20 11 11 57  48 49 43 48 20 46 49 4C  |..." ..WHICH FIL|
00000860: 45 20 4E 55 4D 42 45 52  20 44 4F 20 59 4F 55 20  |E NUMBER DO YOU |
00000870: 57 49 53 48 20 54 4F 20  45 44 49 54 3F 22 00 90  |WISH TO EDIT?"..|
00000880: 10 92 04 99 A6 31 37 29  3A 85 22 20 22 3B 57 46  |.....17):." ";WF|
00000890: 00 9F 10 9C 04 8B 57 46  B1 43 A7 31 31 35 30 00  |......WF.C.1150.|
000008A0: AF 10 A6 04 99 22 93 11  22 A6 39 29 44 42 24 00  |....."..".9)DB$.|
000008B0: BB 10 B0 04 81 49 B2 31  A4 4E 46 00 C1 10 BA 04  |.....I.1.NF.....|
000008C0: 99 00 CE 10 C4 04 99 44  54 24 28 49 29 3B 00 E7  |.......DT$(I);..|
000008D0: 10 CE 04 8B 41 24 28 49  29 B2 22 4E 22 A7 99 4E  |....A$(I)."N"..N|
000008E0: 4E 28 57 46 2C 49 29 00  05 11 D8 04 8B 41 24 28  |N(WF,I)......A$(|
000008F0: 49 29 B2 22 41 22 A7 99  22 20 22 3B 4E 4E 24 28  |I)."A".." ";NN$(|
00000900: 57 46 2C 49 29 00 0C 11  E2 04 82 49 00 16 11 EC  |WF,I)......I....|
00000910: 04 99 22 11 11 22 00 22  11 F6 04 81 49 B2 31 A4  |..".."."....I.1.|
00000920: 4E 46 00 28 11 00 05 99  00 34 11 0A 05 99 44 54  |NF.(.....4....DT|
00000930: 24 28 49 29 00 4D 11 14  05 8B 41 24 28 49 29 B2  |$(I).M....A$(I).|
00000940: 22 4E 22 A7 85 4E 4E 28  57 46 2C 49 29 00 67 11  |"N"..NN(WF,I).g.|
00000950: 1E 05 8B 41 24 28 49 29  B2 22 41 22 A7 85 4E 4E  |...A$(I)."A"..NN|
00000960: 24 28 57 46 2C 49 29 00  6E 11 28 05 82 49 00 99  |$(WF,I).n.(..I..|
00000970: 11 32 05 99 22 20 20 20  20 20 44 4F 20 59 4F 55  |.2.."     DO YOU|
00000980: 20 57 41 4E 54 20 54 4F  20 45 44 49 54 20 4D 4F  | WANT TO EDIT MO|
00000990: 52 45 20 46 49 4C 45 53  22 00 AD 11 3C 05 A1 5A  |RE FILES"...<..Z|
000009A0: 24 3A 8B 5A 24 B2 22 22  A7 31 33 34 30 00 BE 11  |$:.Z$."".1340...|
000009B0: 46 05 8B 5A 24 B2 22 59  22 A7 31 31 35 30 00 CE  |F..Z$."Y".1150..|
000009C0: 11 50 05 8B 5A 24 B2 22  4E 22 A7 31 30 30 00 D8  |.P..Z$."N".100..|
000009D0: 11 5A 05 89 31 33 34 30  00 F9 11 78 05 99 22 93  |.Z..1340...x..".|
000009E0: 11 11 11 11 11 22 A6 31  34 29 22 41 52 45 20 59  |.....".14)"ARE Y|
000009F0: 4F 55 20 53 55 52 45 3F  22 00 0F 12 7A 05 A1 59  |OU SURE?"...z..Y|
00000A00: 4E 24 3A 8B 59 4E 24 B2  22 22 A7 31 34 30 32 00  |N$:.YN$."".1402.|
00000A10: 20 12 7C 05 8B 59 4E 24  B2 22 4E 22 A7 31 30 30  | .|..YN$."N".100|
00000A20: 00 26 12 7E 05 9C 00 49  12 80 05 99 22 93 11 11  |.&.~...I...."...|
00000A30: 11 11 22 A6 31 32 29 22  49 4E 53 45 52 54 20 44  |..".12)"INSERT D|
00000A40: 41 54 41 20 44 49 53 4B  22 00 70 12 82 05 85 22  |ATA DISK".p...."|
00000A50: 20 20 20 20 20 45 4E 54  45 52 20 4E 41 4D 45 20  |     ENTER NAME |
00000A60: 4F 46 20 44 41 54 41 42  41 53 45 22 3B 44 42 24  |OF DATABASE";DB$|
00000A70: 00 A9 12 8E 05 99 22 93  11 11 11 11 11 11 11 11  |......".........|
00000A80: 11 11 20 20 53 54 41 4E  44 2D 42 59 2E 2E 2E 44  |..  STAND-BY...D|
00000A90: 41 54 41 20 49 53 20 4C  4F 41 44 49 4E 47 20 46  |ATA IS LOADING F|
00000AA0: 52 4F 4D 20 44 49 53 4B  22 00 B2 12 91 05 51 57  |ROM DISK".....QW|
00000AB0: B2 31 00 CD 12 96 05 9F  32 2C 38 2C 32 2C 22 30  |.1......2,8,2,"0|
00000AC0: 3A 22 AA 44 42 24 AA 22  2C 53 2C 52 22 00 D7 12  |:".DB$.",S,R"...|
00000AD0: A0 05 84 20 32 2C 43 00  E2 12 A5 05 84 20 32 2C  |... 2,C...... 2,|
00000AE0: 4E 52 00 ED 12 AA 05 84  20 32 2C 4E 46 00 F9 12  |NR...... 2,NF...|
00000AF0: B4 05 84 20 32 2C 44 42  24 00 05 13 BE 05 81 42  |... 2,DB$......B|
00000B00: B2 31 A4 4E 46 00 13 13  C0 05 84 20 32 2C 41 24  |.1.NF...... 2,A$|
00000B10: 28 42 29 00 1A 13 C2 05  82 42 00 23 13 C4 05 8D  |(B)......B.#....|
00000B20: 36 34 30 00 2F 13 C8 05  81 4B B2 31 A4 20 43 00  |640./....K.1. C.|
00000B30: 3B 13 D2 05 81 49 B2 31  A4 4E 46 00 56 13 DC 05  |;....I.1.NF.V...|
00000B40: 8B 41 24 28 49 29 B2 22  4E 22 A7 84 20 32 2C 4E  |.A$(I)."N".. 2,N|
00000B50: 4E 28 4B 2C 49 29 00 72  13 E6 05 8B 41 24 28 49  |N(K,I).r....A$(I|
00000B60: 29 B2 22 41 22 A7 84 20  32 2C 4E 4E 24 28 4B 2C  |)."A".. 2,NN$(K,|
00000B70: 49 29 00 79 13 F0 05 82  49 00 80 13 FA 05 82 4B  |I).y....I......K|
00000B80: 00 8C 13 04 06 81 4C B2  31 A4 4E 46 00 9B 13 0E  |......L.1.NF....|
00000B90: 06 84 20 32 2C 44 54 24  28 4C 29 00 A2 13 18 06  |.. 2,DT$(L).....|
00000BA0: 82 4C 00 A9 13 22 06 A0  32 00 B6 13 2C 06 4D B2  |.L..."..2...,.M.|
00000BB0: 32 3A 89 31 30 30 00 D9  13 40 06 99 22 93 11 11  |2:.100...@.."...|
00000BC0: 11 11 22 A6 31 32 29 22  49 4E 53 45 52 54 20 44  |..".12)"INSERT D|
00000BD0: 41 54 41 20 44 49 53 4B  22 00 01 14 4A 06 99 22  |ATA DISK"...J.."|
00000BE0: 20 20 20 20 20 20 20 50  52 45 53 53 20 41 4E 59  |       PRESS ANY|
00000BF0: 20 4B 45 59 20 54 4F 20  43 4F 4E 54 49 4E 55 45  | KEY TO CONTINUE|
00000C00: 22 00 15 14 54 06 A1 5A  24 3A 8B 5A 24 B2 22 22  |"...T..Z$:.Z$.""|
00000C10: A7 31 36 32 30 00 4E 14  56 06 99 22 93 11 11 11  |.1620.N.V.."....|
00000C20: 11 11 11 11 11 11 11 20  20 53 54 41 4E 44 2D 42  |.......  STAND-B|
00000C30: 59 2A 44 41 54 41 20 49  53 20 42 45 49 4E 47 20  |Y*DATA IS BEING |
00000C40: 53 41 56 45 44 20 4F 4E  20 44 49 53 4B 22 00 6A  |SAVED ON DISK".j|
00000C50: 14 5E 06 9F 32 2C 38 2C  32 2C 22 40 30 3A 22 AA  |.^..2,8,2,"@0:".|
00000C60: 44 42 24 AA 22 2C 53 2C  57 22 00 74 14 68 06 98  |DB$.",S,W".t.h..|
00000C70: 20 32 2C 43 00 7F 14 6D  06 98 20 32 2C 4E 52 00  | 2,C...m.. 2,NR.|
00000C80: 8A 14 72 06 98 20 32 2C  4E 46 00 96 14 7C 06 98  |..r.. 2,NF...|..|
00000C90: 20 32 2C 44 42 24 00 A2  14 86 06 81 42 B2 31 A4  | 2,DB$......B.1.|
00000CA0: 4E 46 00 B0 14 88 06 98  20 32 2C 41 24 28 42 29  |NF...... 2,A$(B)|
00000CB0: 00 B7 14 8A 06 82 42 00  C2 14 90 06 81 4B B2 31  |......B......K.1|
00000CC0: A4 43 00 CE 14 9A 06 81  49 B2 31 A4 4E 46 00 E9  |.C......I.1.NF..|
00000CD0: 14 A4 06 8B 41 24 28 49  29 B2 22 4E 22 A7 98 20  |....A$(I)."N".. |
00000CE0: 32 2C 4E 4E 28 4B 2C 49  29 00 05 15 AE 06 8B 41  |2,NN(K,I)......A|
00000CF0: 24 28 49 29 B2 22 41 22  A7 98 20 32 2C 4E 4E 24  |$(I)."A".. 2,NN$|
00000D00: 28 4B 2C 49 29 00 0C 15  B8 06 82 49 00 13 15 C2  |(K,I)......I....|
00000D10: 06 82 4B 00 1F 15 CC 06  81 4C B2 31 A4 4E 46 00  |..K......L.1.NF.|
00000D20: 2E 15 D6 06 98 20 32 2C  44 54 24 28 4C 29 00 35  |..... 2,DT$(L).5|
00000D30: 15 E0 06 82 4C 00 3C 15  EA 06 A0 32 00 45 15 F4  |....L.<....2.E..|
00000D40: 06 89 31 30 30 00 64 15  08 07 99 22 93 22 A6 31  |..100.d....".".1|
00000D50: 34 29 22 11 11 11 11 45  58 49 54 20 50 52 4F 47  |4)"....EXIT PROG|
00000D60: 52 41 4D 22 00 92 15 12  07 99 22 11 11 20 20 49  |RAM"......"..  I|
00000D70: 46 20 59 4F 55 20 45 58  49 54 2D 2D 41 4C 4C 20  |F YOU EXIT--ALL |
00000D80: 44 41 54 41 20 57 49 4C  4C 20 42 45 20 4C 4F 53  |DATA WILL BE LOS|
00000D90: 54 22 00 BB 15 1C 07 99  22 20 20 20 20 20 20 55  |T"......"      U|
00000DA0: 4E 4C 45 53 53 20 59 4F  55 20 53 41 56 45 44 20  |NLESS YOU SAVED |
00000DB0: 49 54 20 4F 4E 20 44 49  53 4B 22 00 E6 15 26 07  |IT ON DISK"...&.|
00000DC0: 99 22 11 11 20 20 20 20  20 20 20 44 4F 20 59 4F  |."..       DO YO|
00000DD0: 55 20 53 54 49 4C 4C 20  57 41 4E 54 20 54 4F 20  |U STILL WANT TO |
00000DE0: 45 58 49 54 3F 22 00 FC  15 30 07 A1 59 4E 24 3A  |EXIT?"...0..YN$:|
00000DF0: 8B 59 4E 24 B2 22 22 A7  31 38 34 30 00 0C 16 3A  |.YN$."".1840...:|
00000E00: 07 8B 59 4E 24 B2 22 59  22 A7 20 80 00 1D 16 44  |..YN$."Y". ....D|
00000E10: 07 8B 59 4E 24 B2 22 4E  22 A7 31 30 30 00 27 16  |..YN$."N".100.'.|
00000E20: 4E 07 89 31 38 34 30 00  47 16 6C 07 99 22 93 22  |N..1840.G.l.."."|
00000E30: A6 31 33 29 22 11 11 11  11 52 45 54 52 49 45 56  |.13)"....RETRIEV|
00000E40: 45 20 44 41 54 41 22 00  72 16 76 07 99 22 20 20  |E DATA".r.v.."  |
00000E50: 20 20 11 31 29 20 4C 4F  43 41 54 45 20 46 49 4C  |  .1) LOCATE FIL|
00000E60: 45 53 20 42 59 20 46 49  4C 45 20 4E 55 4D 42 45  |ES BY FILE NUMBE|
00000E70: 52 22 00 9E 16 80 07 99  22 20 20 20 20 11 32 29  |R"......"    .2)|
00000E80: 20 4C 4F 43 41 54 45 20  46 49 4C 45 53 20 42 59  | LOCATE FILES BY|
00000E90: 20 46 49 45 4C 44 20 53  45 41 52 43 48 22 00 C1  | FIELD SEARCH"..|
00000EA0: 16 9E 07 99 22 20 20 20  20 11 33 29 20 52 45 54  |...."    .3) RET|
00000EB0: 55 52 4E 20 54 4F 20 4D  41 49 4E 20 4D 45 4E 55  |URN TO MAIN MENU|
00000EC0: 22 00 D4 16 A8 07 99 A6  31 37 29 22 11 11 28 31  |".......17)"..(1|
00000ED0: 2D 33 29 22 00 E8 16 B2  07 A1 52 24 3A 8B 52 24  |-3)"......R$:.R$|
00000EE0: B2 22 22 A7 31 39 37 30  00 F9 16 BC 07 8B 52 24  |."".1970......R$|
00000EF0: B2 22 31 22 A7 32 31 30  30 00 0A 17 C6 07 8B 52  |."1".2100......R|
00000F00: 24 B2 22 32 22 A7 33 34  30 30 00 1A 17 D0 07 8B  |$."2".3400......|
00000F10: 52 24 B2 22 33 22 A7 31  30 30 00 24 17 EE 07 89  |R$."3".100.$....|
00000F20: 31 39 37 30 00 52 17 34  08 99 22 93 11 11 11 11  |1970.R.4..".....|
00000F30: 20 20 20 20 20 52 45 54  52 49 45 56 45 20 46 49  |     RETRIEVE FI|
00000F40: 4C 45 20 42 59 20 46 49  4C 45 20 4E 55 4D 42 45  |LE BY FILE NUMBE|
00000F50: 52 22 00 79 17 3E 08 99  22 11 11 11 22 A6 31 30  |R".y.>.."...".10|
00000F60: 29 22 45 4E 54 45 52 20  46 49 4C 45 20 4E 55 4D  |)"ENTER FILE NUM|
00000F70: 42 45 52 22 3B 3A 85 52  4E 00 88 17 43 08 8B 52  |BER";:.RN...C..R|
00000F80: 4E B1 43 A7 32 31 30 30  00 AD 17 48 08 99 A6 38  |N.C.2100...H...8|
00000F90: 29 22 11 11 44 4F 20 59  4F 55 20 57 41 4E 54 20  |)"..DO YOU WANT |
00000FA0: 41 20 48 41 52 44 20 43  4F 50 59 3F 22 00 C3 17  |A HARD COPY?"...|
00000FB0: 52 08 A1 59 59 24 3A 8B  59 59 24 B2 22 22 A7 32  |R..YY$:.YY$."".2|
00000FC0: 31 33 30 00 D6 17 5C 08  8B 59 59 24 B2 22 59 22  |130...\..YY$."Y"|
00000FD0: A7 20 32 31 37 30 00 E9  17 66 08 8B 59 59 24 B2  |. 2170...f..YY$.|
00000FE0: 22 4E 22 A7 20 32 31 38  30 00 F3 17 70 08 89 32  |"N". 2180...p..2|
00000FF0: 31 33 30 00 FC 17 7A 08  9F 31 2C 34 00 09 18 84  |130...z..1,4....|
00001000: 08 99 22 93 11 11 11 11  22 00 11 18 8E 08 99 52  |.."....."......R|
00001010: 4E 00 1D 18 98 08 81 49  B2 31 A4 4E 46 00 2A 18  |N......I.1.NF.*.|
00001020: A2 08 99 44 54 24 28 49  29 3B 00 43 18 AC 08 8B  |...DT$(I);.C....|
00001030: 41 24 28 49 29 B2 22 4E  22 A7 99 4E 4E 28 52 4E  |A$(I)."N"..NN(RN|
00001040: 2C 49 29 00 60 18 B6 08  8B 41 24 28 49 29 B2 22  |,I).`....A$(I)."|
00001050: 41 22 A7 99 22 20 22 4E  4E 24 28 52 4E 2C 49 29  |A".." "NN$(RN,I)|
00001060: 00 72 18 C0 08 8B 59 59  24 B2 22 59 22 A7 32 32  |.r....YY$."Y".22|
00001070: 37 30 00 79 18 CA 08 82  49 00 8B 18 D4 08 8B 59  |70.y....I......Y|
00001080: 59 24 B2 22 4E 22 A7 32  33 34 30 00 99 18 DE 08  |Y$."N".2340.....|
00001090: 8B 49 B1 31 A7 32 32 39  30 00 A3 18 E8 08 98 31  |.I.1.2290......1|
000010A0: 2C 52 4E 00 B2 18 F2 08  98 31 2C 44 54 24 28 49  |,RN......1,DT$(I|
000010B0: 29 3B 00 CD 18 FC 08 8B  41 24 28 49 29 B2 22 4E  |);......A$(I)."N|
000010C0: 22 A7 98 31 2C 4E 4E 28  52 4E 2C 49 29 00 EC 18  |"..1,NN(RN,I)...|
000010D0: 06 09 8B 41 24 28 49 29  B2 22 41 22 A7 98 31 2C  |...A$(I)."A"..1,|
000010E0: 22 20 22 4E 4E 24 28 52  4E 2C 49 29 00 F3 18 10  |" "NN$(RN,I)....|
000010F0: 09 82 49 00 FD 18 1A 09  98 31 3A A0 31 00 26 19  |..I......1:.1.&.|
00001100: 24 09 99 22 11 11 20 20  20 20 20 20 20 20 48 49  |$.."..        HI|
00001110: 54 20 41 4E 59 20 4B 45  59 20 54 4F 20 43 4F 4E  |T ANY KEY TO CON|
00001120: 54 49 4E 55 45 22 00 3A  19 2E 09 A1 5A 24 3A 8B  |TINUE".:....Z$:.|
00001130: 5A 24 B2 22 22 A7 32 33  35 30 00 44 19 38 09 89  |Z$."".2350.D.8..|
00001140: 31 39 30 30 00 77 19 48  0D 99 22 93 11 11 20 20  |1900.w.H.."...  |
00001150: 4C 4F 43 41 54 45 20 41  4E 44 20 52 45 54 52 49  |LOCATE AND RETRI|
00001160: 45 56 45 20 53 45 4C 45  43 54 49 56 45 20 46 49  |EVE SELECTIVE FI|
00001170: 45 4C 44 53 11 11 22 00  A6 19 52 0D 99 22 20 59  |ELDS.."...R.." Y|
00001180: 4F 55 20 4D 41 59 20 53  45 41 52 43 48 20 42 59  |OU MAY SEARCH BY|
00001190: 20 41 4E 59 20 41 4C 50  48 41 20 4F 52 20 4E 55  | ANY ALPHA OR NU|
000011A0: 4D 45 52 49 43 22 00 D6  19 5C 0D 99 22 20 46 49  |MERIC"...\.." FI|
000011B0: 45 4C 44 2E 20 59 4F 55  20 4D 41 59 20 50 52 49  |ELD. YOU MAY PRI|
000011C0: 4E 54 20 41 4E 59 20 4F  52 20 41 4C 4C 20 46 49  |NT ANY OR ALL FI|
000011D0: 45 4C 44 53 11 22 00 E5  19 66 0D 4E 41 B2 31 32  |ELDS."...f.NA.12|
000011E0: 3A 8D 35 34 30 00 0A 1A  70 0D 99 A6 31 30 29 22  |:.540...p...10)"|
000011F0: 11 11 45 4E 54 45 52 20  46 49 45 4C 44 20 4E 55  |..ENTER FIELD NU|
00001200: 4D 42 45 52 22 3B 3A 85  46 33 00 1A 1A 7A 0D 8B  |MBER";:.F3...z..|
00001210: 46 33 B1 4E 46 A7 33 34  33 30 00 4B 1A 84 0D 99  |F3.NF.3430.K....|
00001220: 22 20 11 45 4E 54 45 52  20 57 4F 52 44 20 4F 52  |" .ENTER WORD OR|
00001230: 20 4E 55 4D 42 45 52 20  54 4F 20 42 45 20 53 45  | NUMBER TO BE SE|
00001240: 41 52 43 48 45 44 20 42  59 11 22 00 6E 1A 8E 0D  |ARCHED BY.".n...|
00001250: 8B 41 24 28 46 33 29 B2  22 41 22 A7 99 44 54 24  |.A$(F3)."A"..DT$|
00001260: 28 46 33 29 3B 3A 85 53  46 24 28 46 33 29 00 90  |(F3);:.SF$(F3)..|
00001270: 1A 98 0D 8B 41 24 28 46  33 29 B2 22 4E 22 A7 99  |....A$(F3)."N"..|
00001280: 44 54 24 28 46 33 29 3B  3A 85 53 46 28 46 33 29  |DT$(F3);:.SF(F3)|
00001290: 00 9A 1A A2 0D 8D 34 30  30 30 00 CB 1A AC 0D 99  |......4000......|
000012A0: 22 93 11 11 11 20 20 20  20 44 4F 20 59 4F 55 20  |"....    DO YOU |
000012B0: 57 41 4E 54 20 54 4F 20  50 52 49 4E 54 20 41 4C  |WANT TO PRINT AL|
000012C0: 4C 20 46 49 45 4C 44 53  3F 11 22 00 DF 1A AE 0D  |L FIELDS?.".....|
000012D0: A1 5A 24 3A 8B 5A 24 B2  22 22 A7 33 35 30 32 00  |.Z$:.Z$."".3502.|
000012E0: F0 1A B0 0D 8B 5A 24 B2  22 4E 22 A7 33 35 31 35  |.....Z$."N".3515|
000012F0: 00 01 1B B2 0D 8B 5A 24  B2 22 59 22 A7 33 35 30  |......Z$."Y".350|
00001300: 38 00 0B 1B B3 0D 89 33  35 30 32 00 19 1B B4 0D  |8......3502.....|
00001310: 81 20 49 B2 31 A4 20 4E  46 00 28 1B B5 0D 50 46  |. I.1. NF.(...PF|
00001320: 24 28 49 29 B2 22 59 22  00 30 1B B6 0D 82 20 49  |$(I)."Y".0.... I|
00001330: 00 3A 1B B8 0D 89 33 35  36 30 00 6C 1B BB 0D 99  |.:....3560.l....|
00001340: 22 20 20 20 20 54 59 50  45 20 22 C7 28 33 34 29  |"    TYPE ".(34)|
00001350: 22 59 22 C7 28 33 34 29  22 20 4F 52 20 22 C7 28  |"Y".(34)" OR ".(|
00001360: 33 34 29 22 4E 22 C7 28  33 34 29 3B 00 85 1B C0  |34)"N".(34);....|
00001370: 0D 99 22 20 41 46 54 45  52 20 45 41 43 48 20 46  |.." AFTER EACH F|
00001380: 49 45 4C 44 22 00 91 1B  CA 0D 81 49 B2 31 A4 4E  |IELD"......I.1.N|
00001390: 46 00 A8 1B D4 0D 99 49  3B 44 54 24 28 49 29 3B  |F......I;DT$(I);|
000013A0: 3A 85 50 46 24 28 49 29  00 AF 1B DE 0D 82 49 00  |:.PF$(I)......I.|
000013B0: D9 1B E8 0D 99 22 11 20  20 20 20 20 20 20 20 20  |.....".         |
000013C0: 44 4F 20 59 4F 55 20 57  41 4E 54 20 41 20 48 41  |DO YOU WANT A HA|
000013D0: 52 44 20 43 4F 50 59 3F  22 00 EF 1B F2 0D A1 48  |RD COPY?"......H|
000013E0: 43 24 3A 8B 48 43 24 B2  22 22 A7 33 35 37 30 00  |C$:.HC$."".3570.|
000013F0: F8 1B FC 0D 99 22 93 22  00 03 1C 06 0E 81 4B B2  |....."."......K.|
00001400: 31 A4 43 00 0F 1C 10 0E  81 49 B2 31 A4 4E 46 00  |1.C......I.1.NF.|
00001410: 3E 1C 1A 0E 8B 41 24 28  49 29 B2 22 4E 22 AF 50  |>....A$(I)."N".P|
00001420: 50 24 B2 22 45 22 AF 46  33 B2 49 AF 53 46 28 49  |P$."E".F3.I.SF(I|
00001430: 29 B2 4E 4E 28 4B 2C 49  29 A7 33 37 32 30 00 6D  |).NN(K,I).3720.m|
00001440: 1C 24 0E 8B 41 24 28 49  29 B2 22 4E 22 AF 50 50  |.$..A$(I)."N".PP|
00001450: 24 B2 22 47 22 AF 46 33  B2 49 AF 53 46 28 49 29  |$."G".F3.I.SF(I)|
00001460: B1 4E 4E 28 4B 2C 49 29  A7 33 37 32 30 00 9C 1C  |.NN(K,I).3720...|
00001470: 2E 0E 8B 41 24 28 49 29  B2 22 4E 22 AF 50 50 24  |...A$(I)."N".PP$|
00001480: B2 22 4C 22 AF 46 33 B2  49 AF 53 46 28 49 29 B3  |."L".F3.I.SF(I).|
00001490: 4E 4E 28 4B 2C 49 29 A7  33 37 32 30 00 CD 1C 38  |NN(K,I).3720...8|
000014A0: 0E 8B 41 24 28 49 29 B2  22 41 22 AF 50 50 24 B2  |..A$(I)."A".PP$.|
000014B0: 22 53 22 AF 46 33 B2 49  AF 53 46 24 28 49 29 B2  |"S".F3.I.SF$(I).|
000014C0: 4E 4E 24 28 4B 2C 49 29  A7 33 37 32 30 00 FF 1C  |NN$(K,I).3720...|
000014D0: 42 0E 8B 41 24 28 49 29  B2 22 41 22 AF 50 50 24  |B..A$(I)."A".PP$|
000014E0: B2 22 44 22 AF 46 33 B2  49 AF 53 46 24 28 49 29  |."D".F3.I.SF$(I)|
000014F0: B3 B1 4E 4E 24 28 4B 2C  49 29 A7 33 37 32 30 00  |..NN$(K,I).3720.|
00001500: 06 1D 4C 0E 82 49 00 14  1D 51 0E 8B 4B B2 43 A7  |..L..I...Q..K.C.|
00001510: 33 36 38 30 00 1B 1D 56  0E 82 4B 00 36 1D 60 0E  |3680...V..K.6.`.|
00001520: 99 A6 31 32 29 22 53 45  41 52 43 48 20 43 4F 4D  |..12)"SEARCH COM|
00001530: 50 4C 45 54 45 22 00 59  1D 6A 0E 99 A6 38 29 22  |PLETE".Y.j...8)"|
00001540: 11 48 49 54 20 41 4E 59  20 4B 45 59 20 54 4F 20  |.HIT ANY KEY TO |
00001550: 43 4F 4E 54 49 4E 55 45  22 00 6D 1D 74 0E A1 5A  |CONTINUE".m.t..Z|
00001560: 24 3A 8B 5A 24 B2 22 22  A7 33 37 30 30 00 77 1D  |$:.Z$."".3700.w.|
00001570: 7E 0E 89 31 39 30 30 00  89 1D 88 0E 8B 48 43 24  |~..1900......HC$|
00001580: B2 22 59 22 A7 33 38 30  30 00 95 1D 92 0E 81 42  |."Y".3800......B|
00001590: B2 31 A4 4E 46 00 BF 1D  9C 0E 8B 50 46 24 28 42  |.1.NF......PF$(B|
000015A0: 29 B2 22 59 22 AF 41 24  28 42 29 B2 22 4E 22 A7  |)."Y".A$(B)."N".|
000015B0: 99 44 54 24 28 42 29 3B  4E 4E 28 4B 2C 42 29 00  |.DT$(B);NN(K,B).|
000015C0: ED 1D A6 0E 8B 50 46 24  28 42 29 B2 22 59 22 AF  |.....PF$(B)."Y".|
000015D0: 41 24 28 42 29 B2 22 41  22 A7 99 44 54 24 28 42  |A$(B)."A"..DT$(B|
000015E0: 29 3B 22 20 22 4E 4E 24  28 4B 2C 42 29 00 F4 1D  |);" "NN$(K,B)...|
000015F0: B0 0E 82 42 00 FA 1D BA  0E 99 00 08 1E C4 0E 8B  |...B............|
00001600: 4B B2 43 A7 33 36 38 30  00 0F 1E C9 0E 82 4B 00  |K.C.3680......K.|
00001610: 18 1E D8 0E 9F 31 2C 34  00 24 1E E2 0E 81 42 B2  |.....1,4.$....B.|
00001620: 31 A4 4E 46 00 50 1E EC  0E 8B 50 46 24 28 42 29  |1.NF.P....PF$(B)|
00001630: B2 22 59 22 AF 41 24 28  42 29 B2 22 4E 22 A7 98  |."Y".A$(B)."N"..|
00001640: 31 2C 44 54 24 28 42 29  3B 4E 4E 28 4B 2C 42 29  |1,DT$(B);NN(K,B)|
00001650: 00 80 1E F6 0E 8B 50 46  24 28 42 29 B2 22 59 22  |......PF$(B)."Y"|
00001660: AF 41 24 28 42 29 B2 22  41 22 A7 98 31 2C 44 54  |.A$(B)."A"..1,DT|
00001670: 24 28 42 29 3B 22 20 22  4E 4E 24 28 4B 2C 42 29  |$(B);" "NN$(K,B)|
00001680: 00 87 1E 00 0F 82 42 00  91 1E 0A 0F 98 31 3A A0  |......B......1:.|
00001690: 31 00 9F 1E 0F 0F 8B 4B  B2 43 A7 33 36 38 30 00  |1......K.C.3680.|
000016A0: A6 1E 14 0F 82 4B 00 B0  1E 1E 0F 89 31 39 30 30  |.....K......1900|
000016B0: 00 D8 1E A0 0F 99 22 93  11 11 11 22 A6 31 30 29  |......"....".10)|
000016C0: 22 4C 49 53 54 20 41 4C  4C 20 46 49 4C 45 53 20  |"LIST ALL FILES |
000016D0: 57 48 45 52 45 3A 11 22  00 FF 1E AA 0F 8B 41 24  |WHERE:."......A$|
000016E0: 28 46 33 29 B2 22 4E 22  A7 99 22 20 20 22 53 46  |(F3)."N".."  "SF|
000016F0: 28 46 33 29 22 49 53 3A  22 3A 89 34 30 33 30 00  |(F3)"IS:":.4030.|
00001700: 28 1F B4 0F 8B 41 24 28  46 33 29 B2 22 41 22 A7  |(....A$(F3)."A".|
00001710: 99 22 20 20 22 53 46 24  28 46 33 29 22 20 49 53  |."  "SF$(F3)" IS|
00001720: 3A 22 3A 89 34 30 37 30  00 4B 1F BE 0F 99 A6 37  |:":.4070.K.....7|
00001730: 29 22 11 45 29 20 45 51  55 41 4C 20 54 4F 20 46  |)".E) EQUAL TO F|
00001740: 49 45 4C 44 20 56 41 4C  55 45 22 00 72 1F C8 0F  |IELD VALUE".r...|
00001750: 99 A6 37 29 22 11 47 29  20 47 52 45 41 54 45 52  |..7)".G) GREATER|
00001760: 20 54 48 41 4E 20 46 49  45 4C 44 20 56 41 4C 55  | THAN FIELD VALU|
00001770: 45 22 00 96 1F D2 0F 99  A6 37 29 22 11 4C 29 20  |E".......7)".L) |
00001780: 4C 45 53 53 20 54 48 41  4E 20 46 49 45 4C 44 20  |LESS THAN FIELD |
00001790: 56 41 4C 55 45 22 00 A0  1F DC 0F 89 34 30 39 30  |VALUE"......4090|
000017A0: 00 C1 1F E6 0F 99 A6 37  29 22 11 53 29 20 53 41  |.......7)".S) SA|
000017B0: 4D 45 20 41 53 20 46 49  45 4C 44 20 57 4F 52 44  |ME AS FIELD WORD|
000017C0: 22 00 E9 1F F0 0F 99 A6  37 29 22 11 44 29 20 44  |".......7)".D) D|
000017D0: 49 46 46 45 52 45 4E 54  20 46 52 4F 4D 20 46 49  |IFFERENT FROM FI|
000017E0: 45 4C 44 20 57 4F 52 44  22 00 FF 1F FA 0F A1 50  |ELD WORD"......P|
000017F0: 50 24 3A 8B 50 50 24 B2  22 22 A7 34 30 39 30 00  |P$:.PP$."".4090.|
00001800: 05 20 04 10 8E 00 00 00                           |. ......        |

..%.D..0,2:.4,9:."...":. DISK VERSION.G.
N...9)"COMMODORE 128 DATA BASE".B.X...9)
".1) FORMAT FILES".}.....9)".2) CREATE F
ILES". .....9)".3) LIST FILES ON SCREEN"
.D.....9)".4) LIST FILES ON PRINTER"... 
...9)".5) EDIT FILES".......9)".6) RETRI
EVE DATA FROM FILES".'.....9)".7) LOAD F
ILES FROM DISK".H.....9)".8) SAVE FILES 
ON DISK".C.H...9)".9) EXIT PROGRAM".U.R.
..17)".(1-9)"......M$:.M$."".220......M$
."1". 330......M$."2". 700......M$."3". 
840.M....M$."4". 1000......M$."5". 1150.
.....M$."6". 1900..."..M$."7". 1400...,.
.M$."8". 1600.'.6..M$."9". 1800.0.@..220
.C.J..M$."1". M.M.1...T..M.1..".......  
  SORRY, YOU CAN FORMAT ONLY ONCE":.J.1.
2000:....^..M.1.100.D.H..".....      HOW
 MANY FILES DO YOU NEED":.NR.T.M..NR.300
.360...R.."..   HOW MANY FIELDS PER FILE
 (10 MAX)"...|..NF...... NF.10.370.>....
.8)".ENTER TITLE OF DATA BASE".G....DB$.
S....I.1.NF.V.....9)".ENTER TITLE OF FIE
LD ";I......DT$(I)......".       IS THIS
 FIELD (A) ALPHA OR".R.B.."            (
N) NUMERIC ";A$(I)...L..A$(I)."A".490...
V..A$(I)."N".490......450......I......".
.".17)"FORMAT".4....".  TITLE: ";DB$.H..
..".  FILES=";NR.\...."  FIELDS=";NF.H..
..I.1.NF...&.."TITLE OF FIELD";I;DT$(I);
...0..A$(I)."A".." - ALPHA"...:..A$(I)."
N".." - NUMERIC".G.D..I.T.I..NA.12.....N
...11)".IS FORMAT CORRECT?"...X..YN$:.YN
$."".600...B..YN$."Y".640.*.L..YN$."N".3
60.3.V..600.N.... NN(NR,NF),NN$(NR,NF).[
....QW.1. ..D....100.N...C.C.1...F..C.NR
.C.C.1:.100...P.."...".13)"CREATE FILE";
C.Q.Z.."  .DO NOT USE COMMAS OR COLONS I
N TEXT!."......I.1.NF......"ENTER "DT$(I
)......A$(I)."N"..NN(C,I):.780.'....A$(I
)."A"..NN$(C,I).E....NN$(C,I)."".NN$(C,I
)."X".L....I.X...."   DO YOU WANT TO CRE
ATE MORE FILES?"... ..YN$:.YN$."".800...
*..YN$."Y".700...4..YN$."N".100...>..800
.H.H.."..".9)DB$.S.R..K.1.C.Y.\.....F..K
...P..I.1.NF...Z..DT$(I);......A$(I)."N"
..NN(K,I)......A$(I)."A".." ";NN$(K,I).>
....J.1.200:.J.E....I.L....K.Q.....7)".P
RESS ANY KEY TO CONTINUE"......Z$:.Z$.""
.960...J..100......1,4......1,DB$......K
.1.C......1......1,K.H....I.1.NF.W....1,
DT$(I);...$..A$(I)."N"..1,NN(K,I)......A
$(I)."A"..1," ";NN$(K,I)...8..I...B..K.(
.L..1: 1.1.V..100.M.~..".".15)"...EDIT F
ILES".~...." ..WHICH FILE NUMBER DO YOU 
WISH TO EDIT?".......17):." ";WF......WF
.C.1150......"..".9)DB$......I.1.NF.A...
..N.D..DT$(I);...N..A$(I)."N"..NN(WF,I).
..X..A$(I)."A".." ";NN$(WF,I)......I....
..".."."....I.1.NF.(.....4....DT$(I).M..
..A$(I)."N"..NN(WF,I).G....A$(I)."A"..NN
$(WF,I).N.(..I...2.."     DO YOU WANT TO
 EDIT MORE FILES"...<..Z$:.Z$."".1340...
F..Z$."Y".1150.N.P..Z$."N".100.X.Z..1340
...X.."......".14)"ARE YOU SURE?"...Z..Y
N$:.YN$."".1402. .|..YN$."N".100.&.~...I
....".....".12)"INSERT DATA DISK".P...."
     ENTER NAME OF DATABASE";DB$......".
..........  STAND-BY...DATA IS LOADING F
ROM DISK".....QW.1.M....2,8,2,"0:".DB$."
,S,R".W. .. 2,C...... 2,NR...... 2,NF...
... 2,DB$......B.1.NF...... 2,A$(B)...B.
.B.#.D..640./.H..K.1. C.;.R..I.1.NF.V...
.A$(I)."N".. 2,NN(K,I).R....A$(I)."A".. 
2,NN$(K,I).Y....I......K......L.1.NF....
.. 2,DT$(L)......L...". 2...,.M.2:.100.Y
.@..".....".12)"INSERT DATA DISK"...J.."
       PRESS ANY KEY TO CONTINUE"...T..Z
$:.Z$."".1620.N.V.."...........  STAND-B
Y*DATA IS BEING SAVED ON DISK".J.^..2,8,
2,"@0:".DB$.",S,W".T.H.. 2,C..M.. 2,NR.
..R.. 2,NF...|.. 2,DB$......B.1.NF......
 2,A$(B)......B.B....K.1.C.N....I.1.NF..
....A$(I)."N".. 2,NN(K,I)......A$(I)."A"
.. 2,NN$(K,I)......I...B..K...L..L.1.NF.
..V.. 2,DT$(L).5....L.<... 2.E....100.D.
...".".14)"....EXIT PROGRAM"......"..  I
F YOU EXIT--ALL DATA WILL BE LOST"......
"      UNLESS YOU SAVED IT ON DISK"...&.
."..       DO YOU STILL WANT TO EXIT?"..
.0..YN$:.YN$."".1840...:..YN$."Y". ....D
..YN$."N".100.'.N..1840.G.L..".".13)"...
.RETRIEVE DATA".R.V.."    .1) LOCATE FIL
ES BY FILE NUMBER"......"    .2) LOCATE 
FILES BY FIELD SEARCH".A...."    .3) RET
URN TO MAIN MENU".T.....17)"..(1-3)"....
..R$:.R$."".1970......R$."1".2100...F..R
$."2".3400...P..R$."3".100.$....1970.R.4
..".....     RETRIEVE FILE BY FILE NUMBE
R".Y.>.."...".10)"ENTER FILE NUMBER";:.R
N...C..RN.C.2100...H...8)"..DO YOU WANT 
A HARD COPY?".C.R..YY$:.YY$."".2130.V.\.
.YY$."Y". 2170...F..YY$."N". 2180...P..2
130...Z..1,4......"....."......RN......I
.1.NF.*....DT$(I);.C....A$(I)."N"..NN(RN
,I).`....A$(I)."A".." "NN$(RN,I).R....YY
$."Y".2270.Y.J..I...T..YY$."N".2340.....
.I.1.2290......1,RN......1,DT$(I);.M....
A$(I)."N"..1,NN(RN,I)......A$(I)."A"..1,
" "NN$(RN,I)......I......1: 1.&.$.."..  
      HIT ANY KEY TO CONTINUE".:....Z$:.
Z$."".2350.D.8..1900.W.H.."...  LOCATE A
ND RETRIEVE SELECTIVE FIELDS.."...R.." Y
OU MAY SEARCH BY ANY ALPHA OR NUMERIC".V
.\.." FIELD. YOU MAY PRINT ANY OR ALL FI
ELDS."...F.NA.12:.540...P...10)"..ENTER 
FIELD NUMBER";:.F3...Z..F3.NF.3430.K....
" .ENTER WORD OR NUMBER TO BE SEARCHED B
Y.".N....A$(F3)."A"..DT$(F3);:.SF$(F3)..
....A$(F3)."N"..DT$(F3);:.SF(F3)......40
00.K...."....    DO YOU WANT TO PRINT AL
L FIELDS?."......Z$:.Z$."".3502......Z$.
"N".3515......Z$."Y".3508......3502.....
. I.1. NF.(...PF$(I)."Y".0.... I.:....35
60.L...."    TYPE "G(34)"Y"G(34)" OR "G(
34)"N"G(34);......" AFTER EACH FIELD"...
J..I.1.NF...T..I;DT$(I);:.PF$(I)......I.
Y....".         DO YOU WANT A HARD COPY?
"......HC$:.HC$."".3570......"."......K.
1.C......I.1.NF.>....A$(I)."N".PP$."E".F
3.I.SF(I).NN(K,I).3720.M.$..A$(I)."N".PP
$."G".F3.I.SF(I).NN(K,I).3720......A$(I)
."N".PP$."L".F3.I.SF(I).NN(K,I).3720.M.8
..A$(I)."A".PP$."S".F3.I.SF$(I).NN$(K,I)
.3720...B..A$(I)."A".PP$."D".F3.I.SF$(I)
..NN$(K,I).3720...L..I...Q..K.C.3680...V
..K.6.`...12)"SEARCH COMPLETE".Y.J...8)"
.HIT ANY KEY TO CONTINUE".M.T..Z$:.Z$.""
.3700.W.~..1900......HC$."Y".3800......B
.1.NF......PF$(B)."Y".A$(B)."N"..DT$(B);
NN(K,B)......PF$(B)."Y".A$(B)."A"..DT$(B
);" "NN$(K,B)......B.........D..K.C.3680
...I..K...X..1,4.$....B.1.NF.P....PF$(B)
."Y".A$(B)."N"..1,DT$(B);NN(K,B)......PF
$(B)."Y".A$(B)."A"..1,DT$(B);" "NN$(K,B)
......B......1: 1......K.C.3680......K..
....1900.X. .."....".10)"LIST ALL FILES 
WHERE:."......A$(F3)."N".."  "SF(F3)"IS:
":.4030.(....A$(F3)."A".."  "SF$(F3)" IS
:":.4070.K.....7)".E) EQUAL TO FIELD VAL
UE".R.H...7)".G) GREATER THAN FIELD VALU
E"...R...7)".L) LESS THAN FIELD VALUE". 
....4090.A.....7)".S) SAME AS FIELD WORD
".......7)".D) DIFFERENT FROM FIELD WORD
"......PP$:.PP$."".4090.. ......

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL