FILER+

00000000: 01 08 20 08 05 00 9C 3A  97 35 33 32 38 30 2C 30  |.. ....:.53280,0|
00000010: 3A 97 35 33 32 38 31 2C  30 3A 97 36 34 36 2C 35  |:.53281,0:.646,5|
00000020: 00 31 08 0A 00 8F 20 46  49 4C 45 52 20 50 4C 55  |.1.... FILER PLU|
00000030: 53 00 41 08 64 00 8F 20  4D 41 49 4E 20 4D 45 4E  |S.A.d.. MAIN MEN|
00000040: 55 00 55 08 6E 00 99 22  93 12 46 49 4C 45 52 20  |U.U.n.."..FILER |
00000050: 50 4C 55 53 22 00 6E 08  73 00 99 22 3C 43 3E 20  |PLUS".n.s.."<C> |
00000060: 44 2E 4C 41 56 45 52 59  20 31 39 38 36 22 00 84  |D.LAVERY 1986"..|
00000070: 08 78 00 99 22 20 20 20  20 20 4D 41 49 4E 20 4D  |.x.."     MAIN M|
00000080: 45 4E 55 22 00 8C 08 8C  00 99 3A 99 00 A1 08 96  |ENU"......:.....|
00000090: 00 99 22 12 31 92 3A 4C  4F 41 44 20 44 41 54 41  |..".1.:LOAD DATA|
000000A0: 22 00 B8 08 A0 00 99 22  12 32 92 3A 43 52 45 41  |"......".2.:CREA|
000000B0: 54 45 20 46 49 4C 45 22  00 BF 08 AA 00 99 3A 00  |TE FILE"......:.|
000000C0: C7 08 B4 00 85 20 41 00  DE 08 BE 00 8B 20 41 B3  |..... A...... A.|
000000D0: 31 20 B0 20 41 B1 32 20  A7 20 89 31 30 30 00 F2  |1 . A.2 . .100..|
000000E0: 08 C8 00 91 20 41 20 89  20 31 30 30 30 2C 32 30  |.... A . 1000,20|
000000F0: 30 30 00 0A 09 E8 03 8F  20 4C 4F 41 44 20 44 41  |00...... LOAD DA|
00000100: 54 41 20 52 4F 55 54 49  4E 45 00 13 09 F2 03 99  |TA ROUTINE......|
00000110: 22 93 22 00 2F 09 F7 03  99 22 12 4C 4F 41 44 92  |"."./....".LOAD.|
00000120: 20 41 52 45 20 59 4F 55  20 53 55 52 45 3F 22 00  | ARE YOU SURE?".|
00000130: 37 09 F8 03 85 53 24 00  4A 09 F9 03 8B 20 53 24  |7....S$.J.... S$|
00000140: B2 22 59 22 A7 89 31 30  32 30 00 5A 09 FA 03 8B  |."Y"..1020.Z....|
00000150: 20 53 24 B2 22 4E 22 A7  89 35 00 64 09 FB 03 89  | S$."N"..5.d....|
00000160: 31 30 31 30 00 7C 09 FC  03 85 22 4E 41 4D 45 20  |1010.|...."NAME |
00000170: 4F 46 20 46 49 4C 45 22  3B 4E 41 24 00 8C 09 06  |OF FILE";NA$....|
00000180: 04 9F 20 31 2C 31 2C 30  2C 4E 41 24 00 97 09 0B  |.. 1,1,0,NA$....|
00000190: 04 84 31 2C 4E 41 24 00  A0 09 10 04 84 31 2C 46  |..1,NA$......1,F|
000001A0: 00 AB 09 1A 04 81 41 B2  31 A4 46 00 B9 09 24 04  |......A.1.F...$.|
000001B0: 84 31 2C 46 49 24 28 41  29 00 BF 09 2E 04 82 00  |.1,FI$(A).......|
000001C0: C9 09 38 04 84 31 2C 54  52 00 D9 09 42 04 86 20  |..8..1,TR...B.. |
000001D0: 44 41 24 28 54 52 2C 46  29 00 E3 09 4C 04 84 31  |DA$(TR,F)...L..1|
000001E0: 2C 4E 52 00 ED 09 56 04  42 B2 42 AA 31 00 00 0A  |,NR...V.B.B.1...|
000001F0: 60 04 8B 20 42 B1 4E 52  20 A7 20 89 31 31 36 30  |`.. B.NR . .1160|
00000200: 00 0B 0A 6A 04 81 41 B2  31 A4 46 00 1B 0A 74 04  |...j..A.1.F...t.|
00000210: 84 31 2C 44 41 24 28 42  2C 41 29 00 21 0A 79 04  |.1,DA$(B,A).!.y.|
00000220: 82 00 2B 0A 7E 04 89 31  31 31 30 00 32 0A 88 04  |..+.~..1110.2...|
00000230: A0 31 00 3C 0A 92 04 89  32 35 30 30 00 54 0A DC  |.1.<....2500.T..|
00000240: 05 8F 20 53 41 56 45 20  44 41 54 41 20 52 4F 55  |.. SAVE DATA ROU|
00000250: 54 49 4E 45 00 70 0A E6  05 85 22 93 12 53 41 56  |TINE.p...."..SAV|
00000260: 45 92 20 53 55 52 45 28  59 2F 4E 29 22 3B 41 24  |E. SURE(Y/N)";A$|
00000270: 00 82 0A E7 05 8B 41 24  B2 22 59 22 A7 89 31 35  |......A$."Y"..15|
00000280: 32 30 00 94 0A E8 05 8B  41 24 B2 22 4E 22 A7 89  |20......A$."N"..|
00000290: 32 35 30 30 00 9E 0A EB  05 89 31 35 31 30 00 B5  |2500......1510..|
000002A0: 0A F0 05 85 22 50 52 45  53 53 20 52 45 54 55 52  |...."PRESS RETUR|
000002B0: 4E 22 3B 41 24 00 C5 0A  FA 05 9F 20 31 2C 31 2C  |N";A$...... 1,1,|
000002C0: 31 2C 4E 41 24 00 D0 0A  FF 05 98 31 2C 4E 41 24  |1,NA$......1,NA$|
000002D0: 00 D9 0A 04 06 98 31 2C  46 00 E4 0A 0E 06 81 41  |......1,F......A|
000002E0: B2 31 A4 46 00 F2 0A 18  06 98 31 2C 46 49 24 28  |.1.F......1,FI$(|
000002F0: 41 29 00 F8 0A 22 06 82  00 02 0B 2C 06 98 31 2C  |A)...".....,..1,|
00000300: 54 52 00 0C 0B 40 06 98  31 2C 4E 52 00 16 0B 4A  |TR...@..1,NR...J|
00000310: 06 42 B2 42 AA 31 00 29  0B 54 06 8B 20 42 B1 4E  |.B.B.1.).T.. B.N|
00000320: 52 20 A7 20 89 31 36 36  30 00 34 0B 5E 06 81 41  |R . .1660.4.^..A|
00000330: B2 31 A4 46 00 44 0B 68  06 98 31 2C 44 41 24 28  |.1.F.D.h..1,DA$(|
00000340: 42 2C 41 29 00 4A 0B 6D  06 82 00 54 0B 72 06 89  |B,A).J.m...T.r..|
00000350: 31 36 31 30 00 5B 0B 7C  06 A0 31 00 65 0B 86 06  |1610.[.|..1.e...|
00000360: 89 32 35 30 30 00 7F 0B  D0 07 8F 20 43 52 45 41  |.2500...... CREA|
00000370: 54 45 20 44 41 54 41 20  52 4F 55 54 49 4E 45 00  |TE DATA ROUTINE.|
00000380: 8F 0B DA 07 99 22 93 12  43 52 45 41 54 45 22 00  |....."..CREATE".|
00000390: A7 0B E4 07 85 22 4E 41  4D 45 20 4F 46 20 46 49  |....."NAME OF FI|
000003A0: 4C 45 22 3B 4E 41 24 00  C8 0B EE 07 99 22 4E 55  |LE";NA$......"NU|
000003B0: 4D 42 45 52 20 4F 46 20  46 49 45 4C 44 53 28 32  |MBER OF FIELDS(2|
000003C0: 20 54 4F 20 31 30 29 22  00 D0 0B F8 07 85 20 46  | TO 10)"...... F|
000003D0: 00 E8 0B 02 08 8B 20 46  B3 32 20 B0 20 46 B1 31  |...... F.2 . F.1|
000003E0: 30 20 A7 89 32 30 33 30  00 F5 0B 07 08 86 20 46  |0 ..2030...... F|
000003F0: 49 24 28 46 29 00 01 0C  0C 08 81 20 41 B2 31 A4  |I$(F)...... A.1.|
00000400: 46 00 2C 0C 16 08 99 22  4E 41 4D 45 20 4F 46 20  |F.,...."NAME OF |
00000410: 46 49 45 4C 44 20 22 3B  41 3B 22 20 4D 41 58 20  |FIELD ";A;" MAX |
00000420: 4F 46 20 31 36 20 43 48  41 52 53 22 00 34 0C 20  |OF 16 CHARS".4. |
00000430: 08 85 41 24 00 48 0C 2A  08 46 49 24 28 41 29 B2  |..A$.H.*.FI$(A).|
00000440: C8 28 41 24 2C 31 36 29  00 4E 0C 34 08 82 00 62  |.(A$,16).N.4...b|
00000450: 0C 35 08 99 22 41 52 45  20 59 4F 55 20 53 55 52  |.5.."ARE YOU SUR|
00000460: 45 22 00 6A 0C 36 08 A1  41 24 00 7C 0C 37 08 8B  |E".j.6..A$.|.7..|
00000470: 41 24 B2 22 59 22 A7 89  32 31 31 30 00 8E 0C 38  |A$."Y"..2110...8|
00000480: 08 8B 41 24 B2 22 4E 22  A7 89 32 30 36 30 00 98  |..A$."N"..2060..|
00000490: 0C 39 08 89 32 31 30 32  00 A9 0C 3E 08 41 B2 33  |.9..2102...>.A.3|
000004A0: 32 37 36 38 AD 46 AD 31  36 00 B5 0C 48 08 54 52  |2768.F.16...H.TR|
000004B0: B2 B5 28 41 29 00 C5 0C  52 08 86 20 44 41 24 28  |..(A)...R.. DA$(|
000004C0: 54 52 2C 46 29 00 CE 0C  CA 08 99 22 93 22 00 DF  |TR,F)......"."..|
000004D0: 0C D4 08 99 22 46 49 4C  45 3A 22 3B 4E 41 24 00  |...."FILE:";NA$.|
000004E0: 02 0D DE 08 99 22 53 50  41 43 45 20 46 4F 52 20  |....."SPACE FOR |
000004F0: 22 3B 54 52 AB 4E 52 3B  22 20 52 45 43 4F 52 44  |";TR.NR;" RECORD|
00000500: 53 22 00 2E 0D E8 08 99  22 45 4E 54 45 52 20 52  |S"......"ENTER R|
00000510: 45 43 4F 52 44 53 20 54  4F 20 4D 41 58 49 4D 55  |ECORDS TO MAXIMU|
00000520: 4D 20 4F 46 20 31 36 20  43 48 41 52 53 22 00 4E  |M OF 16 CHARS".N|
00000530: 0D F2 08 99 22 4F 54 48  45 52 57 49 53 45 20 54  |...."OTHERWISE T|
00000540: 52 55 4E 43 41 54 45 44  2E 4F 4B 3E 3E 22 00 5A  |RUNCATED.OK>>".Z|
00000550: 0D F7 08 4E 52 B2 4E 52  AA 31 00 66 0D FC 08 81  |...NR.NR.1.f....|
00000560: 20 41 B2 31 A4 46 00 73  0D 06 09 99 20 46 49 24  | A.1.F.s.... FI$|
00000570: 28 41 29 00 7B 0D 10 09  85 41 24 00 92 0D 1A 09  |(A).{....A$.....|
00000580: 44 41 24 28 4E 52 2C 41  29 B2 C8 28 41 24 2C 31  |DA$(NR,A)..(A$,1|
00000590: 36 29 00 98 0D 24 09 82  00 AF 0D 2E 09 85 22 41  |6)...$........"A|
000005A0: 4E 4F 54 48 45 52 28 59  2F 4E 29 22 3B 41 24 00  |NOTHER(Y/N)";A$.|
000005B0: C2 0D 38 09 8B 20 41 24  B2 22 59 22 A7 89 32 33  |..8.. A$."Y"..23|
000005C0: 39 30 00 D4 0D 42 09 8B  41 24 B2 22 4E 22 A7 89  |90...B..A$."N"..|
000005D0: 32 35 30 30 00 DE 0D 4C  09 89 32 33 35 30 00 0B  |2500...L..2350..|
000005E0: 0E 56 09 8B 20 4E 52 B2  54 52 20 A7 20 99 22 4E  |.V.. NR.TR . ."N|
000005F0: 4F 20 4D 4F 52 45 20 53  50 41 43 45 2E 53 4F 52  |O MORE SPACE.SOR|
00000600: 52 59 2E 2E 22 3A 89 32  35 30 30 00 16 0E 60 09  |RY..":.2500...`.|
00000610: 89 20 32 32 35 30 00 29  0E C4 09 99 22 93 4F 50  |. 2250.)....".OP|
00000620: 54 49 4F 4E 53 2E 2E 2E  22 00 40 0E CE 09 99 22  |TIONS...".@...."|
00000630: 20 20 12 31 92 3A 53 41  56 45 20 44 41 54 41 22  |  .1.:SAVE DATA"|
00000640: 00 58 0E D8 09 99 22 20  20 12 32 92 3A 45 52 41  |.X...."  .2.:ERA|
00000650: 53 45 20 44 41 54 41 22  00 71 0E E2 09 99 22 20  |SE DATA".q...." |
00000660: 20 12 33 92 3A 46 49 4E  44 20 52 45 43 4F 52 44  | .3.:FIND RECORD|
00000670: 22 00 87 0E EC 09 99 22  20 20 12 34 92 3A 56 49  |"......"  .4.:VI|
00000680: 45 57 20 41 4C 4C 22 00  9E 0E 0A 0A 85 22 4F 50  |EW ALL"......"OP|
00000690: 54 49 4F 4E 20 50 4C 45  41 53 45 22 3B 41 00 B6  |TION PLEASE";A..|
000006A0: 0E 14 0A 8B 20 41 B3 30  20 B0 20 41 B1 34 20 A7  |.... A.0 . A.4 .|
000006B0: 20 89 32 35 30 30 00 D1  0E 1E 0A 91 20 41 20 89  | .2500...... A .|
000006C0: 20 31 35 30 30 2C 35 2C  33 30 30 30 2C 34 30 30  | 1500,5,3000,400|
000006D0: 30 00 E3 0E B8 0B 8F 20  46 49 4E 44 20 52 45 43  |0...... FIND REC|
000006E0: 4F 52 44 00 F5 0E B9 0B  99 22 93 46 49 4C 45 3A  |ORD......".FILE:|
000006F0: 22 3B 4E 41 24 00 08 0F  BA 0B 99 4E 52 3B 22 20  |";NA$......NR;" |
00000700: 52 45 43 4F 52 44 53 22  00 1D 0F C2 0B 99 22 46  |RECORDS"......"F|
00000710: 49 4E 44 20 41 20 52 45  43 4F 52 44 22 00 3E 0F  |IND A RECORD".>.|
00000720: CC 0B 99 22 54 59 50 45  20 27 2A 27 20 46 4F 52  |..."TYPE '*' FOR|
00000730: 20 57 49 4C 44 20 43 41  52 44 2E 2E 2E 22 00 58  | WILD CARD...".X|
00000740: 0F D6 0B 99 22 31 36 20  43 48 41 52 53 20 50 4C  |...."16 CHARS PL|
00000750: 45 41 53 45 2E 2E 2E 22  00 63 0F EA 0B 81 41 B2  |EASE...".c....A.|
00000760: 31 A4 46 00 6F 0F F4 0B  99 46 49 24 28 41 29 00  |1.F.o....FI$(A).|
00000770: 77 0F FE 0B 85 41 24 00  8A 0F 08 0C 57 24 28 41  |w....A$.....W$(A|
00000780: 29 B2 C8 28 41 24 2C 31  36 29 00 90 0F 12 0C 82  |)..(A$,16)......|
00000790: 00 AA 0F 1C 0C 99 22 53  45 41 52 43 48 49 4E 47  |......"SEARCHING|
000007A0: 2E 2E 2E 2E 2E 2E 2E 2E  2E 22 00 B6 0F 26 0C 41  |........."...&.A|
000007B0: B2 30 3A 42 B2 30 00 BE  0F 30 0C 42 B2 31 00 C8  |.0:B.0...0.B.1..|
000007C0: 0F 3A 0C 41 B2 41 AA 31  00 DA 0F 3F 0C 8B 20 41  |.:.A.A.1...?.. A|
000007D0: B1 46 20 A7 20 89 33 35  30 30 00 09 10 44 0C 8B  |.F . .3500...D..|
000007E0: 20 C8 28 57 24 28 41 29  2C 31 29 B2 22 2A 22 20  | .(W$(A),1)."*" |
000007F0: B0 20 57 24 28 41 29 B2  44 41 24 28 42 2C 41 29  |. W$(A).DA$(B,A)|
00000800: 20 A7 20 89 20 33 31 33  30 00 11 10 4E 0C 41 B2  | . . 3130...N.A.|
00000810: 30 00 1B 10 58 0C 42 B2  42 AA 31 00 2E 10 62 0C  |0...X.B.B.1...b.|
00000820: 8B 20 42 B1 4E 52 20 A7  20 89 33 34 30 30 00 38  |. B.NR . .3400.8|
00000830: 10 6C 0C 89 33 31 33 30  00 5E 10 48 0D 99 22 53  |.l..3130.^.H.."S|
00000840: 4F 52 52 59 2E 2E 4E 4F  20 53 55 43 48 20 52 45  |ORRY..NO SUCH RE|
00000850: 43 4F 52 44 20 46 4F 55  4E 44 2E 2E 2E 22 00 6D  |CORD FOUND...".m|
00000860: 10 52 0D 97 32 30 34 2C  30 3A A1 41 24 00 7F 10  |.R..204,0:.A$...|
00000870: 5C 0D 8B 41 24 B3 B1 22  22 A7 89 32 35 30 30 00  |\..A$..""..2500.|
00000880: 89 10 66 0D 89 33 34 31  30 00 9D 10 AC 0D 99 22  |..f..3410......"|
00000890: 52 45 43 4F 52 44 20 46  4F 55 4E 44 22 00 A8 10  |RECORD FOUND"...|
000008A0: B1 0D 41 24 B2 22 4E 22  00 BD 10 B6 0D 85 22 54  |..A$."N"......"T|
000008B0: 4F 20 50 52 49 4E 54 45  52 22 3B 41 24 00 CF 10  |O PRINTER";A$...|
000008C0: C0 0D 8B 41 24 B2 22 59  22 A7 89 33 37 35 30 00  |...A$."Y"..3750.|
000008D0: E1 10 CA 0D 99 22 93 46  49 4C 45 3A 22 3B 4E 41  |.....".FILE:";NA|
000008E0: 24 00 ED 10 D4 0D 81 20  41 B2 31 A4 46 00 07 11  |$...... A.1.F...|
000008F0: DE 0D 99 20 46 49 24 28  41 29 3B 22 3A 22 3B 44  |... FI$(A);":";D|
00000900: 41 24 28 42 2C 41 29 00  0D 11 E8 0D 82 00 39 11  |A$(B,A).......9.|
00000910: F2 0D 8B 20 42 B3 4E 52  20 A7 20 99 22 11 11 11  |... B.NR . ."...|
00000920: 11 4D 4F 52 45 20 52 45  43 4F 52 44 53 2E 2E 2E  |.MORE RECORDS...|
00000930: 2E 2E 22 3A 89 33 31 35  30 00 52 11 FC 0D 85 22  |..":.3150.R...."|
00000940: 50 52 45 53 53 20 52 45  54 55 52 4E 2E 2E 22 3B  |PRESS RETURN..";|
00000950: 41 24 00 5C 11 06 0E 89  32 35 30 30 00 6D 11 A6  |A$.\....2500.m..|
00000960: 0E 8F 20 54 4F 20 50 52  49 4E 54 45 52 00 8C 11  |.. TO PRINTER...|
00000970: B0 0E 85 22 93 44 45 56  49 43 45 20 4E 55 4D 42  |...".DEVICE NUMB|
00000980: 45 52 28 34 2C 35 2C 36  29 22 3B 44 00 B9 11 BA  |ER(4,5,6)";D....|
00000990: 0E 8B 44 B3 34 20 B0 20  44 B1 36 20 A7 20 99 22  |..D.4 . D.6 . ."|
000009A0: 4E 4F 20 53 55 43 48 20  50 52 49 4E 54 45 52 2E  |NO SUCH PRINTER.|
000009B0: 2E 22 3A 89 20 33 37 36  30 00 C3 11 CE 0E 9F 20  |.":. 3760...... |
000009C0: 34 2C 44 00 D5 11 D8 0E  98 34 2C 22 46 49 4C 45  |4,D......4,"FILE|
000009D0: 22 3B 4E 41 24 00 E2 11  E2 0E 81 20 41 B2 31 A4  |";NA$...... A.1.|
000009E0: 20 46 00 FD 11 EC 0E 98  34 2C 46 49 24 28 41 29  | F......4,FI$(A)|
000009F0: 3B 22 3A 22 3B 44 41 24  28 42 2C 41 29 00 03 12  |;":";DA$(B,A)...|
00000A00: F1 0E 82 00 0D 12 F6 0E  98 34 3A A0 34 00 17 12  |.........4:.4...|
00000A10: 00 0F 89 33 35 37 30 00  2E 12 A0 0F 8F 20 56 49  |...3570...... VI|
00000A20: 45 57 20 41 4C 4C 20 52  45 43 4F 52 44 53 00 4B  |EW ALL RECORDS.K|
00000A30: 12 AA 0F 99 22 93 12 56  49 45 57 92 20 41 52 45  |...."..VIEW. ARE|
00000A40: 20 59 4F 55 20 53 55 52  45 3F 22 00 53 12 B4 0F  | YOU SURE?".S...|
00000A50: 85 53 24 00 6B 12 BE 0F  8B 20 53 24 B2 22 59 22  |.S$.k.... S$."Y"|
00000A60: A7 20 42 B2 31 3A 89 34  30 36 30 00 7E 12 C8 0F  |. B.1:.4060.~...|
00000A70: 8B 20 53 24 B2 22 4E 22  A7 89 32 35 30 30 00 88  |. S$."N"..2500..|
00000A80: 12 D2 0F 89 34 30 32 30  00 9F 12 DC 0F 99 22 93  |....4020......".|
00000A90: 4E 4F 2E 20 52 45 43 4F  52 44 53 22 3B 4E 52 00  |NO. RECORDS";NR.|
00000AA0: B6 12 E6 0F 99 22 53 50  41 43 45 20 46 4F 52 22  |....."SPACE FOR"|
00000AB0: 3B 54 52 AB 4E 52 00 C7  12 FA 0F 99 22 52 45 43  |;TR.NR......"REC|
00000AC0: 4F 52 44 20 22 3B 42 00  CD 12 FF 0F 99 00 D8 12  |ORD ";B.........|
00000AD0: 04 10 81 41 B2 31 A4 46  00 F1 12 0E 10 99 46 49  |...A.1.F......FI|
00000AE0: 24 28 41 29 3B 22 3A 22  3B 44 41 24 28 42 2C 41  |$(A);":";DA$(B,A|
00000AF0: 29 00 F9 12 18 10 82 20  41 00 FF 12 1D 10 99 00  |)...... A.......|
00000B00: 13 13 22 10 99 22 3C 43  3E 20 20 20 43 41 4E 43  |..".."<C>   CANC|
00000B10: 45 4C 22 00 2D 13 2C 10  99 22 3C 50 3E 20 20 20  |EL".-.,.."<P>   |
00000B20: 50 52 49 4E 54 20 52 45  43 4F 52 44 22 00 4D 13  |PRINT RECORD".M.|
00000B30: 36 10 99 22 3C 41 3E 20  20 20 41 4D 4D 45 4E 44  |6.."<A>   AMMEND|
00000B40: 20 54 48 49 53 20 52 45  43 4F 52 44 22 00 6B 13  | THIS RECORD".k.|
00000B50: 40 10 99 22 3C 52 45 54  3E 20 43 4F 4E 54 49 4E  |@.."<RET> CONTIN|
00000B60: 55 45 20 56 49 45 57 49  4E 47 22 00 73 13 4A 10  |UE VIEWING".s.J.|
00000B70: A1 41 24 00 85 13 54 10  8B 41 24 B2 22 43 22 A7  |.A$...T..A$."C".|
00000B80: 89 32 35 30 30 00 A2 13  5E 10 8B 41 24 B2 22 50  |.2500...^..A$."P|
00000B90: 22 A7 89 34 33 30 30 3A  8F 20 50 52 49 4E 54 4F  |"..4300:. PRINTO|
00000BA0: 55 54 00 CB 13 68 10 8B  41 24 B2 22 41 22 A7 89  |UT...h..A$."A"..|
00000BB0: 34 35 30 30 3A 8F 20 41  4D 4D 45 4E 44 20 53 49  |4500:. AMMEND SI|
00000BC0: 4E 47 4C 45 20 52 45 43  4F 52 44 00 E0 13 72 10  |NGLE RECORD...r.|
00000BD0: 8B 41 24 B2 C7 28 31 33  29 20 A7 89 34 32 33 30  |.A$..(13) ..4230|
00000BE0: 00 EA 13 7C 10 89 34 31  37 30 00 F4 13 86 10 42  |...|..4170.....B|
00000BF0: B2 42 AA 31 00 2F 14 90  10 8B 20 42 B1 4E 52 20  |.B.1./.... B.NR |
00000C00: A7 20 99 22 4E 4F 20 4D  4F 52 45 20 52 45 43 4F  |. ."NO MORE RECO|
00000C10: 52 44 53 22 3A 85 22 50  52 45 53 53 20 52 45 54  |RDS":."PRESS RET|
00000C20: 55 52 4E 2E 2E 22 3B 41  24 3A 89 32 35 30 30 00  |URN..";A$:.2500.|
00000C30: 39 14 9A 10 89 34 30 36  30 00 42 14 CC 10 99 22  |9....4060.B...."|
00000C40: 93 22 00 58 14 D6 10 99  22 12 50 52 49 4E 54 20  |.".X....".PRINT |
00000C50: 52 45 43 4F 52 44 92 22  00 71 14 E0 10 99 22 41  |RECORD.".q...."A|
00000C60: 52 45 20 59 4F 55 20 53  55 52 45 28 59 2F 4E 29  |RE YOU SURE(Y/N)|
00000C70: 22 00 79 14 E5 10 A1 41  24 00 8B 14 EA 10 8B 41  |".y....A$......A|
00000C80: 24 B2 22 59 22 A7 89 34  33 36 30 00 9D 14 F4 10  |$."Y"..4360.....|
00000C90: 8B 41 24 B2 22 4E 22 A7  89 34 30 36 30 00 A7 14  |.A$."N"..4060...|
00000CA0: FE 10 89 34 33 32 35 00  C7 14 08 11 85 22 93 50  |...4325......".P|
00000CB0: 52 49 4E 54 45 52 20 44  45 56 49 43 45 20 4E 55  |RINTER DEVICE NU|
00000CC0: 4D 42 45 52 22 3B 44 00  DD 14 12 11 8B 20 44 B3  |MBER";D...... D.|
00000CD0: 34 B0 44 B1 36 20 A7 20  89 34 33 36 30 00 E7 14  |4.D.6 . .4360...|
00000CE0: 1C 11 9F 20 34 2C 44 00  F2 14 26 11 98 34 2C 4E  |... 4,D...&..4,N|
00000CF0: 41 24 00 FD 14 30 11 81  41 B2 31 A4 46 00 18 15  |A$...0..A.1.F...|
00000D00: 3A 11 98 34 2C 46 49 24  28 41 29 3B 22 3A 22 3B  |:..4,FI$(A);":";|
00000D10: 44 41 24 28 42 2C 41 29  00 1E 15 44 11 82 00 25  |DA$(B,A)...D...%|
00000D20: 15 4E 11 98 34 00 2C 15  58 11 A0 34 00 36 15 62  |.N..4.,.X..4.6.b|
00000D30: 11 89 34 30 36 30 00 3F  15 94 11 99 22 93 22 00  |..4060.?....".".|
00000D40: 4E 15 9E 11 99 22 12 41  4D 4D 45 4E 44 22 00 6A  |N....".AMMEND".j|
00000D50: 15 A8 11 85 22 41 52 45  20 59 4F 55 20 53 55 52  |...."ARE YOU SUR|
00000D60: 45 28 59 2F 4E 29 22 3B  53 24 00 7C 15 B2 11 8B  |E(Y/N)";S$.|....|
00000D70: 53 24 B2 22 59 22 A7 89  34 35 36 30 00 8E 15 BC  |S$."Y"..4560....|
00000D80: 11 8B 53 24 B2 22 4E 22  A7 89 34 30 36 30 00 98  |..S$."N"..4060..|
00000D90: 15 C6 11 89 34 35 30 30  00 A1 15 D0 11 99 22 93  |....4500......".|
00000DA0: 22 00 AC 15 DA 11 81 41  B2 31 A4 46 00 C5 15 E4  |"......A.1.F....|
00000DB0: 11 99 46 49 24 28 41 29  3B 22 3A 22 3B 44 41 24  |..FI$(A);":";DA$|
00000DC0: 28 42 2C 41 29 00 CD 15  EE 11 85 41 24 00 E3 15  |(B,A)......A$...|
00000DD0: F8 11 44 41 24 28 42 2C  41 29 B2 C8 28 41 24 2C  |..DA$(B,A)..(A$,|
00000DE0: 31 36 29 00 E9 15 02 12  82 00 FC 15 0C 12 99 22  |16)............"|
00000DF0: 50 52 45 53 53 20 41 20  4B 45 59 22 00 04 16 16  |PRESS A KEY"....|
00000E00: 12 A1 41 24 00 16 16 20  12 8B 41 24 B3 B1 22 22  |..A$... ..A$..""|
00000E10: A7 89 34 30 36 30 00 20  16 2A 12 89 34 36 33 30  |..4060. .*..4630|
00000E20: 00 00 00                                          |...             |

.. ....:.53280,0:.53281,0:.646,5.1.... F
ILER PLUS.A.D.. MAIN MENU.U.N.."..FILER 
PLUS".N.S.."<C> D.LAVERY 1986"...X.."   
  MAIN MENU"......:.......".1.:LOAD DATA
"... ..".2.:CREATE FILE"......:.G.... A.
..... A.1 . A.2 . .100...H.. A . 1000,20
00...... LOAD DATA ROUTINE......"."./...
.".LOAD. ARE YOU SURE?".7....S$.J.... S$
."Y"..1020.Z.... S$."N"..5.D....1010.|..
.."NAME OF FILE";NA$...... 1,1,0,NA$....
..1,NA$. ....1,F......A.1.F...$..1,FI$(A
).......I.8..1,TR.Y.B.. DA$(TR,F)...L..1
,NR...V.B.B.1...`.. B.NR . .1160...J..A.
1.F...T..1,DA$(B,A).!.Y...+.~..1110.2...
 1.<....2500.T.... SAVE DATA ROUTINE.P..
.."..SAVE. SURE(Y/N)";A$......A$."Y"..15
20......A$."N"..2500......1510......"PRE
SS RETURN";A$.E.... 1,1,1,NA$.P....1,NA$
.Y....1,F......A.1.F......1,FI$(A)..."..
...,..1,TR...@..1,NR...J.B.B.1.).T.. B.N
R . .1660.4.^..A.1.F.D.H..1,DA$(B,A).J.M
...T.R..1610.[.|. 1.E....2500..P.. CREA
TE DATA ROUTINE...Z.."..CREATE"......"NA
ME OF FILE";NA$.H...."NUMBER OF FIELDS(2
 TO 10)".P.... F...... F.2 . F.10 ..2030
...... FI$(F)...... A.1.F.,...."NAME OF 
FIELD ";A;" MAX OF 16 CHARS".4. ..A$.H.*
.FI$(A).H(A$,16).N.4...B.5.."ARE YOU SUR
E".J.6..A$.|.7..A$."Y"..2110...8..A$."N"
..2060...9..2102...>.A.32768.F.16...H.TR
..(A).E.R.. DA$(TR,F).N.J.."."...T.."FIL
E:";NA$......"SPACE FOR ";TR.NR;" RECORD
S"......"ENTER RECORDS TO MAXIMUM OF 16 
CHARS".N...."OTHERWISE TRUNCATED.OK>>".Z
...NR.NR.1.F.... A.1.F.S.... FI$(A).{...
.A$.....DA$(NR,A).H(A$,16)...$........"A
NOTHER(Y/N)";A$.B.8.. A$."Y"..2390.T.B..
A$."N"..2500...L..2350...V.. NR.TR . ."N
O MORE SPACE.SORRY..":.2500...`.. 2250.)
.D..".OPTIONS...".@.N.."  .1.:SAVE DATA"
.X.X.."  .2.:ERASE DATA".Q...."  .3.:FIN
D RECORD"......"  .4.:VIEW ALL"......"OP
TION PLEASE";A...... A.0 . A.4 . .2500.Q
.... A . 1500,5,3000,4000...... FIND REC
ORD......".FILE:";NA$......NR;" RECORDS"
...B.."FIND A RECORD".>.L.."TYPE '*' FOR
 WILD CARD...".X.V.."16 CHARS PLEASE..."
.C....A.1.F.O....FI$(A).W....A$.....W$(A
).H(A$,16)............"SEARCHING........
."...&.A.0:B.0...0.B.1.H.:.A.A.1.Z.?.. A
.F . .3500...D.. H(W$(A),1)."*" . W$(A).
DA$(B,A) . . 3130...N.A.0...X.B.B.1...B.
. B.NR . .3400.8.L..3130.^.H.."SORRY..NO
 SUCH RECORD FOUND...".M.R..204,0:.A$..
\..A$..""..2500...F..3410......"RECORD F
OUND".....A$."N"......"TO PRINTER";A$.O.
...A$."Y"..3750...J..".FILE:";NA$...T.. 
A.1.F...... FI$(A);":";DA$(B,A).......9.
... B.NR . ."....MORE RECORDS.....":.315
0.R...."PRESS RETURN..";A$.\....2500.M..
.. TO PRINTER......".DEVICE NUMBER(4,5,6
)";D......D.4 . D.6 . ."NO SUCH PRINTER.
.":. 3760.C.N.. 4,D.U.X..4,"FILE";NA$...
... A.1. F......4,FI$(A);":";DA$(B,A)...
.........4: 4......3570... .. VIEW ALL R
ECORDS.K...."..VIEW. ARE YOU SURE?".S...
.S$.K.... S$."Y". B.1:.4060.~.H.. S$."N"
..2500...R..4020......".NO. RECORDS";NR.
....."SPACE FOR";TR.NR.G...."RECORD ";B.
M.....X....A.1.F......FI$(A);":";DA$(B,A
)...... A.........".."<C>   CANCEL".-.,.
."<P>   PRINT RECORD".M.6.."<A>   AMMEND
 THIS RECORD".K.@.."<RET> CONTINUE VIEWI
NG".S.J..A$...T..A$."C"..2500...^..A$."P
"..4300:. PRINTOUT.K.H..A$."A"..4500:. A
MMEND SINGLE RECORD...R..A$.G(13) ..4230
...|..4170.....B.B.1./.... B.NR . ."NO M
ORE RECORDS":."PRESS RETURN..";A$:.2500.
9....4060.B.L..".".X.V..".PRINT RECORD."
.Q...."ARE YOU SURE(Y/N)".Y....A$......A
$."Y"..4360......A$."N"..4060......4325.
G....".PRINTER DEVICE NUMBER";D...... D.
4.D.6 . .4360...... 4,D...&..4,NA$...0..
A.1.F...:..4,FI$(A);":";DA$(B,A)...D...%
.N..4.,.X. 4.6.B..4060.?....".".N....".A
MMEND".J...."ARE YOU SURE(Y/N)";S$.|....
S$."Y"..4560......S$."N"..4060...F..4500
...P.."."...Z..A.1.F.E....FI$(A);":";DA$
(B,A).M....A$.....DA$(B,A).H(A$,16).....
......."PRESS A KEY"......A$... ..A$..""
..4060. .*..4630...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL