DFPRINT
FILE INFORMATION
FILENAME(S): DFPRINT
FILE TYPE(S): PRG
FILE SIZE: 14.8K
FIRST SEEN: 2025-11-30 18:12:44
APPEARS ON: 1 disk(s)
FILE HASH
769f75bd88a498bf295c6b793610894cd588919f3eb195a293dd81bf85e4102c
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| RERUN PROD PAK | DFPRINT | PRG | Sailor, Ganheden | 32 | 0 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 22 08 0A 00 8B 46 4C B2 30 A7 46 4C B2 31 |.."....FL.0.FL.1|
00000010: 3A 93 22 44 50 5D 20 44 4F 53 35 2E 31 22 2C 38 |:."DP] DOS5.1",8|
00000020: 2C 31 00 46 08 0B 00 8B 46 4C B2 31 A7 46 4C B2 |,1.F....FL.1.FL.|
00000030: 32 3A 9E 35 32 32 32 34 3A 8F 28 43 29 43 4F 4D |2:.52224:.(C)COM|
00000040: 4D 4F 44 4F 52 45 00 6F 08 58 02 81 45 B2 30 A4 |MODORE.o.X..E.0.|
00000050: 32 34 3A 97 35 34 32 37 32 AA 45 2C 30 3A 82 3A |24:.54272.E,0:.:|
00000060: 97 35 34 32 39 36 2C 31 35 3A 89 31 35 30 30 00 |.54296,15:.1500.|
00000070: 9C 08 5A 02 97 35 34 32 37 37 2C 35 38 3A 97 35 |..Z..54277,58:.5|
00000080: 34 32 37 38 2C 31 36 3A 97 35 34 32 37 33 2C 33 |4278,16:.54273,3|
00000090: 35 3A 97 35 34 32 37 32 2C 31 33 34 00 C1 08 5C |5:.54272,134...\|
000000A0: 02 97 35 34 32 37 36 2C 33 33 3A 81 45 B2 31 A4 |..54276,33:.E.1.|
000000B0: 31 30 30 3A 82 3A 97 35 34 32 37 36 2C 31 36 3A |100:.:.54276,16:|
000000C0: 8E 00 FD 08 DC 05 8F 20 44 46 50 52 49 4E 54 20 |....... DFPRINT |
000000D0: 31 2E 37 20 46 4F 52 20 44 41 54 41 46 49 4C 45 |1.7 FOR DATAFILE|
000000E0: 20 28 43 29 31 39 38 33 2D 31 39 38 36 20 42 59 | (C)1983-1986 BY|
000000F0: 20 4D 49 4B 45 20 4B 4F 4E 53 48 41 4B 00 25 09 | MIKE KONSHAK.%.|
00000100: DE 05 9C 3A 99 22 93 9E 22 3A 97 35 33 32 38 31 |...:."..":.53281|
00000110: 2C 30 3A 97 35 33 32 38 30 2C 30 3A 9F 34 2C 34 |,0:.53280,0:.4,4|
00000120: 3A 9F 33 2C 33 00 63 09 E0 05 44 24 B2 22 22 3A |:.3,3.c...D$."":|
00000130: 42 24 B2 C7 28 33 32 29 3A 81 4A B2 31 A4 38 30 |B$..(32):.J.1.80|
00000140: 3A 53 24 B2 53 24 AA 42 24 3A 82 4A 3A 50 46 B2 |:S$.S$.B$:.J:PF.|
00000150: 34 3A 4D 46 24 B2 44 24 3A 52 46 24 B2 44 24 3A |4:MF$.D$:RF$.D$:|
00000160: 50 B2 30 00 A1 09 E2 05 4E 43 B2 30 3A 4E 4C B2 |P.0.....NC.0:NL.|
00000170: 30 3A 50 4C B2 30 3A 46 31 B2 30 3A 46 32 B2 30 |0:PL.0:F1.0:F2.0|
00000180: 3A 46 33 B2 30 3A 4C 24 B2 44 24 3A 52 4C B2 30 |:F3.0:L$.D$:RL.0|
00000190: 3A 53 42 24 B2 44 24 3A 43 52 24 B2 C7 28 31 33 |:SB$.D$:CR$..(13|
000001A0: 29 00 E1 09 E4 05 41 24 B2 44 24 3A 43 24 B2 44 |).....A$.D$:C$.D|
000001B0: 24 3A 54 25 B2 36 3A 49 B2 30 3A 4A B2 30 3A 4B |$:T%.6:I.0:J.0:K|
000001C0: B2 30 3A 4D B2 30 3A 4E B2 30 3A 52 57 B2 35 3A |.0:M.0:N.0:RW.5:|
000001D0: 53 46 B2 30 3A 5A B2 30 3A 45 24 B2 22 45 4F 46 |SF.0:Z.0:E$."EOF|
000001E0: 22 00 24 0A E6 05 45 4E B2 30 3A 45 4D 24 B2 44 |".$...EN.0:EM$.D|
000001F0: 24 3A 45 54 B2 30 3A 45 53 B2 30 3A 41 31 24 B2 |$:ET.0:ES.0:A1$.|
00000200: 44 24 3A 41 32 24 B2 44 24 3A 41 33 24 B2 44 24 |D$:A2$.D$:A3$.D$|
00000210: 3A 52 57 B2 35 3A 4C 57 B2 33 34 3A 4C 54 B2 31 |:RW.5:LW.34:LT.1|
00000220: 3A 4C B2 30 00 31 0A E8 05 8F 2D 41 52 52 41 59 |:L.0.1....-ARRAY|
00000230: 53 00 6D 0A EA 05 86 20 4D 4C 24 28 31 37 2C 34 |S.m.... ML$(17,4|
00000240: 29 2C 50 43 28 31 38 29 2C 54 54 24 28 35 29 2C |),PC(18),TT$(5),|
00000250: 48 43 24 28 31 37 29 2C 52 50 24 28 31 37 2C 34 |HC$(17),RP$(17,4|
00000260: 29 2C 4C 50 28 35 29 2C 52 24 28 35 29 00 91 0A |),LP(5),R$(5)...|
00000270: EC 05 86 20 46 24 28 33 31 29 2C 54 25 28 33 31 |... F$(31),T%(31|
00000280: 29 2C 4C 25 28 33 31 29 2C 52 45 43 24 28 33 31 |),L%(31),REC$(31|
00000290: 29 00 BF 0A EE 05 4C 50 28 31 29 B2 31 3A 4C 50 |).....LP(1).1:LP|
000002A0: 28 32 29 B2 33 37 3A 4C 50 28 33 29 B2 37 33 3A |(2).37:LP(3).73:|
000002B0: 4C 50 28 34 29 B2 31 30 39 3A 89 31 35 33 30 00 |LP(4).109:.1530.|
000002C0: C9 0A F0 05 8F 2D 47 45 54 00 FD 0A F1 05 99 22 |.....-GET......"|
000002D0: 9E 11 20 12 20 20 20 20 20 20 50 52 45 53 53 20 |.. . PRESS |
000002E0: 54 48 45 20 41 50 50 52 4F 50 52 49 41 54 45 20 |THE APPROPRIATE |
000002F0: 4B 45 59 20 20 20 20 20 20 20 22 3A 8E 00 11 0B |KEY ":....|
00000300: F2 05 A1 41 24 3A 8B 41 24 B2 22 22 A7 31 35 32 |...A$:.A$."".152|
00000310: 32 00 17 0B F4 05 8E 00 23 0B F6 05 8F 2D 53 54 |2.......#....-ST|
00000320: 41 52 54 00 5A 0B F8 05 99 22 93 20 12 20 20 20 |ART.Z....". . |
00000330: 20 20 20 44 41 54 41 46 49 4C 45 20 46 41 53 54 | DATAFILE FAST|
00000340: 20 50 52 49 4E 54 20 50 52 4F 47 52 41 4D 20 20 | PRINT PROGRAM |
00000350: 20 20 20 22 3A 89 31 35 34 38 00 8B 0B FA 05 99 | ":.1548......|
00000360: 22 93 20 12 20 20 20 20 20 20 44 41 54 41 46 49 |". . DATAFI|
00000370: 4C 45 20 46 41 53 54 20 50 52 49 4E 54 20 52 45 |LE FAST PRINT RE|
00000380: 56 20 31 2E 37 20 20 20 20 20 22 00 BB 0B FC 05 |V 1.7 ".....|
00000390: 99 22 20 12 20 20 20 20 20 20 20 20 42 59 20 4D |." . BY M|
000003A0: 49 4B 45 20 4B 4F 4E 53 48 41 4B 20 28 43 29 31 |IKE KONSHAK (C)1|
000003B0: 39 38 36 20 20 20 20 20 20 20 22 00 EA 0B FE 05 |986 ".....|
000003C0: 99 22 99 11 20 54 48 49 53 20 50 52 4F 47 52 41 |.".. THIS PROGRA|
000003D0: 4D 20 57 49 4C 4C 20 46 4F 52 4D 41 54 20 41 4E |M WILL FORMAT AN|
000003E0: 44 20 50 52 49 4E 54 20 41 22 00 1B 0C 00 06 99 |D PRINT A"......|
000003F0: 22 20 12 53 45 51 92 20 46 49 4C 45 2C 20 57 48 |" .SEQ. FILE, WH|
00000400: 49 43 48 20 57 41 53 20 50 52 45 56 49 4F 55 53 |ICH WAS PREVIOUS|
00000410: 4C 59 20 43 52 45 41 54 45 44 22 00 4B 0C 03 06 |LY CREATED".K...|
00000420: 99 22 20 42 59 20 9E 12 44 41 54 41 46 49 4C 45 |." BY ..DATAFILE|
00000430: 99 92 2C 20 44 49 52 45 43 54 4C 59 20 46 52 4F |.., DIRECTLY FRO|
00000440: 4D 20 54 48 45 20 44 49 53 4B 22 00 75 0C 04 06 |M THE DISK".u...|
00000450: 99 22 20 54 4F 20 54 48 45 20 50 52 49 4E 54 45 |." TO THE PRINTE|
00000460: 52 2E 20 20 54 48 45 20 4F 52 44 45 52 20 4F 46 |R. THE ORDER OF|
00000470: 20 54 48 45 22 00 A2 0C 06 06 99 22 20 52 45 43 | THE"......" REC|
00000480: 4F 52 44 53 20 57 49 4C 4C 20 42 45 20 54 48 45 |ORDS WILL BE THE|
00000490: 20 53 41 4D 45 20 41 53 20 54 48 45 20 4D 4F 53 | SAME AS THE MOS|
000004A0: 54 22 00 D0 0C 08 06 99 22 20 52 45 43 45 4E 54 |T"......" RECENT|
000004B0: 20 53 4F 52 54 20 41 53 20 57 52 49 54 54 45 4E | SORT AS WRITTEN|
000004C0: 20 49 4E 20 54 48 45 20 43 55 52 52 45 4E 54 22 | IN THE CURRENT"|
000004D0: 00 02 0D 0A 06 99 22 20 46 49 4C 45 2E 22 3A 99 |......" FILE.":.|
000004E0: 22 9E 11 20 50 52 45 53 53 20 05 12 41 4E 59 20 |".. PRESS ..ANY |
000004F0: 4B 45 59 92 9E 20 54 4F 20 43 4F 4E 54 49 4E 55 |KEY.. TO CONTINU|
00000500: 45 22 00 18 0D 0B 06 8D 31 35 32 32 3A 8D 32 38 |E"......1522:.28|
00000510: 35 36 3A 89 31 35 32 38 00 40 0D 0C 06 99 A3 35 |56:.1528.@.....5|
00000520: 29 22 11 12 05 4F 99 92 50 45 4E 20 52 45 43 4F |)"...O..PEN RECO|
00000530: 52 44 20 46 49 4C 45 20 4F 4E 20 44 49 53 4B 22 |RD FILE ON DISK"|
00000540: 00 73 0D 0E 06 8B 46 4C B1 30 A7 99 A3 35 29 22 |.s....FL.0...5)"|
00000550: 11 12 05 52 99 92 45 50 45 41 54 20 52 45 43 4F |...R..EPEAT RECO|
00000560: 52 44 20 46 49 4C 45 3A 20 92 05 22 4E 46 24 22 |RD FILE: .."NF$"|
00000570: 9E 92 22 00 99 0D 0F 06 99 A3 35 29 22 11 12 05 |..".......5)"...|
00000580: 24 99 92 20 44 49 53 4B 20 44 49 52 45 43 54 4F |$.. DISK DIRECTO|
00000590: 52 59 20 12 05 34 99 92 22 00 B5 0D 10 06 99 A3 |RY ..4..".......|
000005A0: 35 29 22 11 12 05 51 99 92 55 49 54 20 50 52 4F |5)"...Q..UIT PRO|
000005B0: 47 52 41 4D 22 00 CB 0D 11 06 99 22 11 20 54 52 |GRAM"......". TR|
000005C0: 41 4E 53 46 45 52 20 54 4F 3A 22 00 EA 0D 12 06 |ANSFER TO:".....|
000005D0: 99 A3 35 29 22 11 12 05 44 99 92 20 44 41 54 41 |..5)"...D.. DATA|
000005E0: 46 49 4C 45 20 44 42 4D 53 22 00 15 0E 13 06 99 |FILE DBMS"......|
000005F0: A3 35 29 22 11 12 05 43 99 92 20 44 46 43 41 4C |.5)"...C.. DFCAL|
00000600: 43 20 43 41 4C 43 55 4C 41 54 45 44 20 52 45 50 |C CALCULATED REP|
00000610: 4F 52 54 53 22 00 1F 0E 14 06 8D 31 35 32 31 00 |ORTS"......1521.|
00000620: 44 0E 16 06 8D 31 35 32 32 3A 8B 41 24 B2 22 24 |D....1522:.A$."$|
00000630: 22 B0 41 24 B2 22 34 22 A7 8D 31 36 32 38 3A 89 |".A$."4"..1628:.|
00000640: 31 35 32 38 00 78 0E 17 06 8B 41 24 B2 22 44 22 |1528.x....A$."D"|
00000650: A7 99 22 93 90 4C 4F 41 44 22 C7 28 33 34 29 22 |.."..LOAD".(34)"|
00000660: 44 41 54 41 46 49 4C 45 22 C7 28 33 34 29 22 2C |DATAFILE".(34)",|
00000670: 38 22 3A 89 31 35 36 35 00 8F 0E 18 06 8B 41 24 |8":.1565......A$|
00000680: B2 22 4F 22 A7 46 4C B2 31 3A 89 31 35 37 32 00 |."O".FL.1:.1572.|
00000690: C1 0E 19 06 8B 41 24 B2 22 43 22 A7 99 22 93 90 |.....A$."C".."..|
000006A0: 4C 4F 41 44 22 C7 28 33 34 29 22 44 46 43 41 4C |LOAD".(34)"DFCAL|
000006B0: 43 22 C7 28 33 34 29 22 2C 38 22 3A 89 31 35 36 |C".(34)",8":.156|
000006C0: 35 00 D2 0E 1A 06 8B 41 24 B2 22 52 22 A7 31 35 |5......A$."R".15|
000006D0: 38 34 00 ED 0E 1B 06 8B 41 24 B2 22 51 22 A7 A0 |84......A$."Q"..|
000006E0: 35 3A A0 31 35 3A A0 33 3A A0 34 3A 80 00 FC 0E |5:.15:.3:.4:....|
000006F0: 1C 06 8D 36 30 32 3A 89 31 35 35 38 00 10 0F 1D |...602:.1558....|
00000700: 06 99 3A 99 3A 99 3A 99 3A 99 22 52 55 4E 9E 22 |..:.:.:.:."RUN."|
00000710: 00 44 0F 1E 06 97 36 33 31 2C 31 39 3A 97 36 33 |.D....631,19:.63|
00000720: 32 2C 31 33 3A 97 36 33 33 2C 31 33 3A 97 36 33 |2,13:.633,13:.63|
00000730: 34 2C 31 33 3A 97 36 33 35 2C 31 33 3A 97 36 33 |4,13:.635,13:.63|
00000740: 36 2C 31 33 00 53 0F 20 06 97 31 39 38 2C 36 3A |6,13.S. ..198,6:|
00000750: A2 3A 80 00 63 0F 22 06 8F 2D 46 49 4C 45 20 4E |.:..c."..-FILE N|
00000760: 41 4D 45 00 96 0F 24 06 99 22 99 93 20 41 56 41 |AME...$..".. AVA|
00000770: 49 4C 41 42 4C 45 20 52 45 43 4F 52 44 20 46 49 |ILABLE RECORD FI|
00000780: 4C 45 53 20 41 52 45 3A 11 9E 22 3A 40 22 24 30 |LES ARE:..":@"$0|
00000790: 3A 44 46 5D 2A 22 00 C2 0F 25 06 99 22 11 99 4E |:DF]*"...%.."..N|
000007A0: 41 4D 45 20 4F 46 20 52 45 43 4F 52 44 20 46 49 |AME OF RECORD FI|
000007B0: 4C 45 20 54 4F 20 42 45 20 50 52 49 4E 54 45 44 |LE TO BE PRINTED|
000007C0: 9E 22 00 EF 0F 26 06 99 22 20 11 20 20 22 3B 4E |."...&.." . ";N|
000007D0: 46 24 3A 85 22 91 20 22 3B 4E 46 24 3A 8B 4E 46 |F$:.". ";NF$:.NF|
000007E0: 24 B2 22 22 A7 46 4C B2 30 3A 89 31 35 32 38 00 |$."".FL.0:.1528.|
000007F0: FC 0F 28 06 9F 31 35 2C 38 2C 31 35 00 39 10 2A |..(..15,8,15.9.*|
00000800: 06 9F 35 2C 38 2C 35 2C 22 30 3A 44 46 5D 20 22 |..5,8,5,"0:DF] "|
00000810: AA 4E 46 24 AA 22 2C 53 2C 52 22 3A 8D 31 36 31 |.NF$.",S,R":.161|
00000820: 38 3A 8B 45 4E B2 36 32 A7 8D 31 36 32 30 3A 46 |8:.EN.62..1620:F|
00000830: 4C B2 30 3A 89 31 35 32 38 00 75 10 2B 06 84 35 |L.0:.1528.u.+..5|
00000840: 2C 52 2C 46 2C 58 3A 8D 31 36 31 38 3A 8B 45 54 |,R,F,X:.1618:.ET|
00000850: B2 38 A7 31 35 32 38 20 20 20 20 20 20 20 20 20 |.8.1528 |
00000860: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000870: 20 20 20 20 20 00 AB 10 2C 06 81 4E B2 31 A4 46 | ...,..N.1.F|
00000880: 3A 84 35 2C 46 24 28 4E 29 2C 4C 25 28 4E 29 3A |:.5,F$(N),L%(N):|
00000890: 82 4E 3A 8D 31 36 31 38 3A 8B 45 54 B2 38 A7 31 |.N:.1618:.ET.8.1|
000008A0: 35 32 38 20 20 20 20 20 20 20 20 00 EC 10 2E 06 |528 .....|
000008B0: A0 35 3A A0 31 35 20 20 20 20 20 20 20 20 20 20 |.5:.15 |
000008C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008D0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000008E0: 20 20 20 20 20 20 20 20 20 20 20 20 00 FD 10 2F | .../|
000008F0: 06 8F 2D 50 52 49 4E 54 20 4D 45 4E 55 00 2F 11 |..-PRINT MENU./.|
00000900: 30 06 99 22 9E 93 20 12 20 20 20 20 20 20 20 20 |0..".. . |
00000910: 52 45 43 4F 52 44 20 50 52 49 4E 54 4F 55 54 20 |RECORD PRINTOUT |
00000920: 4D 45 4E 55 20 20 20 20 20 20 20 20 20 20 22 00 |MENU ".|
00000930: 57 11 31 06 99 22 99 11 20 50 52 49 4E 54 20 4F |W.1..".. PRINT O|
00000940: 50 54 49 4F 4E 53 3A 22 3B 3A 8B 4B B3 B1 30 A7 |PTIONS:";:.K..0.|
00000950: 99 3A 89 31 35 38 37 00 9C 11 32 06 99 22 96 4E |.:.1587...2..".N|
00000960: 4F 20 46 4F 52 4D 41 54 53 20 50 52 45 53 45 4E |O FORMATS PRESEN|
00000970: 54 9E 22 20 20 20 20 20 20 20 20 20 20 20 20 20 |T." |
00000980: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000990: 20 20 20 20 20 20 20 20 20 20 20 20 00 BC 11 33 | ...3|
000009A0: 06 99 A3 34 29 22 11 12 05 55 99 92 4E 46 4F 52 |...4)"...U..NFOR|
000009B0: 4D 41 54 54 45 44 20 4C 49 53 54 22 00 E0 11 34 |MATTED LIST"...4|
000009C0: 06 99 A3 34 29 22 11 12 05 52 99 92 45 50 4F 52 |...4)"...R..EPOR|
000009D0: 54 20 46 4F 52 4D 41 54 20 20 12 9E 22 52 46 24 |T FORMAT .."RF$|
000009E0: 00 04 12 36 06 99 A3 34 29 22 11 12 05 4D 99 92 |...6...4)"...M..|
000009F0: 41 49 4C 49 4E 47 20 4C 41 42 45 4C 53 20 12 9E |AILING LABELS ..|
00000A00: 22 4D 46 24 00 1A 12 37 06 99 22 11 11 99 20 43 |"MF$...7.."... C|
00000A10: 4F 4E 46 49 47 55 52 45 3A 22 00 53 12 38 06 99 |ONFIGURE:".S.8..|
00000A20: A3 34 29 22 11 12 05 4C 99 92 41 42 45 4C 53 3A |.4)"...L..ABELS:|
00000A30: 9E 22 52 57 22 99 52 4F 57 53 2C 9E 22 4C 57 22 |."RW".ROWS,."LW"|
00000A40: 99 43 48 52 53 2C 9E 22 4C 54 22 99 41 43 52 4F |.CHRS,."LT".ACRO|
00000A50: 53 53 22 00 89 12 3A 06 99 A3 34 29 22 11 12 05 |SS"...:...4)"...|
00000A60: 50 99 92 52 49 4E 54 45 52 3A 20 4F 50 54 49 4F |P..RINTER: OPTIO|
00000A70: 4E 9E 22 50 3B 3A 8B 50 B2 34 A7 99 22 9D 9D 12 |N."P;:.P.4.."...|
00000A80: 53 43 52 45 45 4E 92 22 3B 00 B1 12 3B 06 99 3A |SCREEN.";...;..:|
00000A90: 99 A3 34 29 22 11 12 05 24 99 92 20 44 49 53 4B |..4)"...$.. DISK|
00000AA0: 20 44 49 52 45 43 54 4F 52 59 20 12 05 34 99 92 | DIRECTORY ..4..|
00000AB0: 22 00 D0 12 3C 06 99 A3 34 29 22 11 12 05 45 99 |"...<...4)"...E.|
00000AC0: 92 58 49 54 20 54 4F 20 52 45 53 54 41 52 54 22 |.XIT TO RESTART"|
00000AD0: 00 DA 12 3E 06 8D 31 35 32 31 00 F1 12 40 06 8D |...>..1521...@..|
00000AE0: 31 35 32 32 3A 8B 41 24 B2 22 22 20 A7 31 36 30 |1522:.A$."" .160|
00000AF0: 30 00 07 13 42 06 8B 41 24 B2 22 55 22 A7 4B B2 |0...B..A$."U".K.|
00000B00: 31 3A 89 31 37 33 30 00 1D 13 44 06 8B 41 24 B2 |1:.1730...D..A$.|
00000B10: 22 52 22 A7 4B B2 32 3A 89 33 31 31 38 00 3C 13 |"R".K.2:.3118.<.|
00000B20: 45 06 8B 41 24 B2 22 24 22 B0 41 24 B2 22 34 22 |E..A$."$".A$."4"|
00000B30: A7 8D 31 36 32 38 3A 89 31 35 38 34 00 4D 13 46 |..1628:.1584.M.F|
00000B40: 06 8B 41 24 B2 22 45 22 A7 31 35 32 38 00 63 13 |..A$."E".1528.c.|
00000B50: 48 06 8B 41 24 B2 22 4D 22 A7 4B B2 33 3A 89 33 |H..A$."M".K.3:.3|
00000B60: 31 31 38 00 74 13 4A 06 8B 41 24 B2 22 4C 22 A7 |118.t.J..A$."L".|
00000B70: 31 39 34 30 00 8C 13 4C 06 8B 41 24 B2 22 50 22 |1940...L..A$."P"|
00000B80: A7 8D 32 38 35 36 3A 89 31 35 38 34 00 9B 13 4E |..2856:.1584...N|
00000B90: 06 8D 36 30 32 3A 89 31 36 30 30 00 AC 13 50 06 |..602:.1600...P.|
00000BA0: 8F 2D 44 49 53 4B 20 45 52 52 4F 52 00 D9 13 52 |.-DISK ERROR...R|
00000BB0: 06 84 31 35 2C 45 4E 2C 45 4D 24 2C 45 54 2C 45 |..15,EN,EM$,ET,E|
00000BC0: 53 3A 8B 28 45 4E B3 32 30 29 B0 28 45 4E B2 36 |S:.(EN.20).(EN.6|
00000BD0: 32 29 A7 45 54 B2 30 3A 8E 00 0D 14 54 06 99 22 |2).ET.0:....T.."|
00000BE0: 11 20 12 96 44 49 53 4B 20 45 52 52 4F 52 92 22 |. ..DISK ERROR."|
00000BF0: 45 4E 22 9D 2C 20 22 45 4D 24 22 2C 22 45 54 22 |EN"., "EM$","ET"|
00000C00: 9D 2C 22 45 53 22 9E 22 3A 45 54 B2 38 00 3D 14 |.,"ES".":ET.8.=.|
00000C10: 56 06 99 22 11 99 20 50 52 45 53 53 20 05 12 41 |V..".. PRESS ..A|
00000C20: 4E 59 20 4B 45 59 99 92 20 54 4F 20 52 45 53 54 |NY KEY.. TO REST|
00000C30: 41 52 54 20 50 52 4F 47 52 41 4D 9E 22 00 50 14 |ART PROGRAM.".P.|
00000C40: 58 06 8D 31 35 32 32 3A A0 35 3A A0 31 35 3A 8E |X..1522:.5:.15:.|
00000C50: 00 60 14 5A 06 8F 2D 44 49 52 45 43 54 4F 52 59 |.`.Z..-DIRECTORY|
00000C60: 00 92 14 5C 06 99 22 93 9E 22 3B 3A 40 22 24 22 |...\.."..";:@"$"|
00000C70: 3A 99 A3 32 35 29 22 99 50 52 45 53 53 20 05 12 |:..25)".PRESS ..|
00000C80: 41 4E 59 20 4B 45 59 9E 92 22 3A 8D 31 35 32 32 |ANY KEY..":.1522|
00000C90: 3A 8E 00 A4 14 82 06 8F 2D 4C 4F 41 44 20 52 45 |:.......-LOAD RE|
00000CA0: 50 4F 52 54 00 D7 14 84 06 99 22 99 93 20 41 56 |PORT......".. AV|
00000CB0: 41 49 4C 41 42 4C 45 20 52 45 50 4F 52 54 20 46 |AILABLE REPORT F|
00000CC0: 49 4C 45 53 20 41 52 45 9E 3A 11 22 3A 40 22 24 |ILES ARE.:.":@"$|
00000CD0: 30 3A 52 50 5D 2A 22 00 FE 14 85 06 99 22 11 99 |0:RP]*"......"..|
00000CE0: 20 4E 41 4D 45 20 4F 46 20 52 45 50 4F 52 54 20 | NAME OF REPORT |
00000CF0: 46 4F 52 4D 41 54 20 46 49 4C 45 3F 9E 22 00 26 |FORMAT FILE?.".&|
00000D00: 15 86 06 99 22 20 11 20 20 9E 22 3B 4E 46 24 3A |...." . .";NF$:|
00000D10: 85 22 91 20 22 3B 52 46 24 3A 8B 52 46 24 B2 22 |.". ";RF$:.RF$."|
00000D20: 22 A7 31 35 32 38 00 5F 15 88 06 9F 31 35 2C 38 |".1528._....15,8|
00000D30: 2C 31 35 3A 9F 35 2C 38 2C 35 2C 22 30 3A 52 50 |,15:.5,8,5,"0:RP|
00000D40: 5D 20 22 AA 52 46 24 AA 22 2C 53 2C 52 22 3A 8D |] ".RF$.",S,R":.|
00000D50: 31 36 31 38 3A 8B 45 54 B2 38 A7 31 35 32 38 00 |1618:.ET.8.1528.|
00000D60: 76 15 8A 06 8B 45 4E B2 36 32 A7 8D 31 36 32 30 |v....EN.62..1620|
00000D70: 3A 89 31 35 32 38 00 97 15 8C 06 84 35 2C 50 57 |:.1528......5,PW|
00000D80: 2C 4E 4C 2C 4E 43 3A 8D 31 36 31 38 3A 8B 45 54 |,NL,NC:.1618:.ET|
00000D90: B2 38 A7 31 35 32 38 00 A3 15 8E 06 81 4A B2 31 |.8.1528......J.1|
00000DA0: A4 4E 4C 00 C2 15 90 06 84 35 2C 54 54 24 28 4A |.NL......5,TT$(J|
00000DB0: 29 3A 8D 31 36 31 38 3A 8B 45 54 B2 38 A7 31 35 |):.1618:.ET.8.15|
00000DC0: 32 38 00 C9 15 92 06 82 4A 00 D5 15 94 06 81 49 |28......J......I|
00000DD0: B2 31 A4 4E 43 00 FA 15 96 06 84 35 2C 50 43 28 |.1.NC......5,PC(|
00000DE0: 49 29 2C 48 43 24 28 49 29 3A 8D 31 36 31 38 3A |I),HC$(I):.1618:|
00000DF0: 8B 45 54 B2 38 A7 31 35 32 38 00 05 16 98 06 81 |.ET.8.1528......|
00000E00: 4E B2 31 A4 33 00 41 16 9A 06 84 35 2C 52 50 24 |N.1.3.A....5,RP$|
00000E10: 28 49 2C 4E 29 3A 8D 31 36 31 38 3A 8B 45 54 B2 |(I,N):.1618:.ET.|
00000E20: 38 A7 31 35 32 38 20 20 20 20 20 20 20 20 20 20 |8.1528 |
00000E30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000E40: 20 00 5B 16 9C 06 82 4E 3A 82 49 3A 84 35 2C 41 | .[....N:.I:.5,A|
00000E50: 31 24 3A 5A B2 C5 28 41 31 24 29 00 6F 16 9E 06 |1$:Z..(A1$).o...|
00000E60: 53 B2 53 54 3A 8B 53 B3 B1 30 A7 31 36 39 38 00 |S.ST:.S..0.1698.|
00000E70: 79 16 A0 06 84 35 2C 45 24 00 84 16 A2 06 A0 35 |y....5,E$......5|
00000E80: 3A A0 31 35 00 8E 16 A4 06 89 32 39 38 30 00 9F |:.15......2980..|
00000E90: 16 A6 06 8F 2D 4C 4F 41 44 20 4C 41 42 45 4C 00 |....-LOAD LABEL.|
00000EA0: D1 16 A8 06 99 22 99 93 20 41 56 41 49 4C 41 42 |.....".. AVAILAB|
00000EB0: 4C 45 20 4C 41 42 45 4C 20 46 49 4C 45 53 20 41 |LE LABEL FILES A|
00000EC0: 52 45 3A 9E 11 22 3A 40 22 24 30 3A 4D 4C 5D 2A |RE:..":@"$0:ML]*|
00000ED0: 22 00 FE 16 A9 06 99 22 99 11 20 4E 41 4D 45 20 |"......".. NAME |
00000EE0: 4F 46 20 4D 41 49 4C 49 4E 47 20 4C 41 42 45 4C |OF MAILING LABEL|
00000EF0: 20 46 4F 52 4D 41 54 20 46 49 4C 45 3F 22 00 26 | FORMAT FILE?".&|
00000F00: 17 AA 06 99 22 20 11 20 20 9E 22 3B 4E 46 24 3A |...." . .";NF$:|
00000F10: 85 22 91 20 22 3B 4D 46 24 3A 8B 4D 46 24 B2 22 |.". ";MF$:.MF$."|
00000F20: 22 A7 31 35 32 38 00 5F 17 AC 06 9F 31 35 2C 38 |".1528._....15,8|
00000F30: 2C 31 35 3A 9F 35 2C 38 2C 35 2C 22 30 3A 4D 4C |,15:.5,8,5,"0:ML|
00000F40: 5D 20 22 AA 4D 46 24 AA 22 2C 53 2C 52 22 3A 8D |] ".MF$.",S,R":.|
00000F50: 31 36 31 38 3A 8B 45 54 B2 38 A7 31 35 32 38 00 |1618:.ET.8.1528.|
00000F60: 76 17 AE 06 8B 45 4E B2 36 32 A7 8D 31 36 32 30 |v....EN.62..1620|
00000F70: 3A 89 31 35 32 38 00 80 17 B0 06 84 35 2C 52 57 |:.1528......5,RW|
00000F80: 00 93 17 B2 06 81 49 B2 31 A4 52 57 3A 81 4E B2 |......I.1.RW:.N.|
00000F90: 31 A4 33 00 B4 17 B4 06 84 35 2C 4D 4C 24 28 49 |1.3......5,ML$(I|
00000FA0: 2C 4E 29 3A 8D 31 36 31 38 3A 8B 45 54 B2 38 A7 |,N):.1618:.ET.8.|
00000FB0: 31 35 32 38 00 BB 17 B6 06 82 4E 00 C2 17 B8 06 |1528......N.....|
00000FC0: 82 49 00 D6 17 BA 06 53 B2 53 54 3A 8B 53 B3 B1 |.I.....S.ST:.S..|
00000FD0: 30 A7 31 37 32 36 00 E0 17 BC 06 84 35 2C 45 24 |0.1726......5,E$|
00000FE0: 00 F1 17 BE 06 A0 35 3A A0 31 35 3A 89 33 30 36 |......5:.15:.306|
00000FF0: 38 00 01 18 C0 06 8F 2D 4F 50 45 4E 20 46 49 4C |8......-OPEN FIL|
00001000: 45 00 1F 18 C2 06 99 22 93 20 50 4F 53 49 54 49 |E......". POSITI|
00001010: 4F 4E 49 4E 47 20 44 52 49 56 45 2E 2E 2E 22 00 |ONING DRIVE...".|
00001020: 5A 18 C3 06 9F 31 35 2C 38 2C 31 35 3A 9F 35 2C |Z....15,8,15:.5,|
00001030: 38 2C 35 2C 22 30 3A 44 46 5D 20 22 AA 4E 46 24 |8,5,"0:DF] ".NF$|
00001040: AA 22 2C 53 2C 52 22 3A 8D 31 36 31 38 3A 8B 45 |.",S,R":.1618:.E|
00001050: 54 B2 38 A7 31 35 32 38 20 20 00 71 18 C4 06 8B |T.8.1528 .q....|
00001060: 45 4E B2 36 32 A7 8D 31 36 32 30 3A 89 31 35 32 |EN.62..1620:.152|
00001070: 38 00 8F 18 C6 06 84 35 2C 52 2C 46 2C 58 3A 8D |8......5,R,F,X:.|
00001080: 31 36 31 38 3A 8B 45 54 B2 38 A7 31 35 32 38 00 |1618:.ET.8.1528.|
00001090: BD 18 CA 06 81 4E B2 31 A4 46 3A 84 35 2C 46 24 |.....N.1.F:.5,F$|
000010A0: 28 4E 29 2C 4C 25 28 4E 29 3A 82 4E 3A 8D 31 36 |(N),L%(N):.N:.16|
000010B0: 31 38 3A 8B 45 54 B2 38 A7 31 35 32 38 00 CB 18 |18:.ET.8.1528...|
000010C0: CC 06 8F 2D 4F 50 54 49 4F 4E 53 00 0F 19 CE 06 |...-OPTIONS.....|
000010D0: 41 30 B2 30 3A 50 47 B2 31 3A 50 4C B2 30 3A 4C |A0.0:PG.1:PL.0:L|
000010E0: B2 30 3A 99 22 93 20 9E 12 20 20 20 20 20 20 20 |.0:.". .. |
000010F0: 20 20 20 20 50 52 49 4E 54 20 4F 50 54 49 4F 4E | PRINT OPTION|
00001100: 53 20 4D 45 4E 55 20 20 20 20 20 20 20 20 22 00 |S MENU ".|
00001110: 3B 19 CF 06 99 22 11 99 20 54 48 45 52 45 20 41 |;....".. THERE A|
00001120: 52 45 20 9E 12 22 58 22 92 99 52 45 43 4F 52 44 |RE .."X"..RECORD|
00001130: 53 20 49 4E 20 12 9E 22 4E 46 24 00 5D 19 D0 06 |S IN .."NF$.]...|
00001140: 99 A3 34 29 22 11 12 05 41 99 92 4C 4C 20 52 45 |..4)"...A..LL RE|
00001150: 43 4F 52 44 53 20 49 4E 20 46 49 4C 45 00 8B 19 |CORDS IN FILE...|
00001160: D2 06 99 A3 34 29 22 11 12 05 46 99 92 49 4E 44 |....4)"...F..IND|
00001170: 20 52 45 43 4F 52 44 53 20 57 49 54 48 20 43 4F | RECORDS WITH CO|
00001180: 4D 4D 4F 4E 20 46 49 45 4C 44 53 00 B2 19 D4 06 |MMON FIELDS.....|
00001190: 8B 4B B2 33 AF 50 46 B2 34 A7 99 A3 34 29 22 11 |.K.3.PF.4...4)".|
000011A0: 12 05 54 99 92 45 53 54 20 4C 41 42 45 4C 28 53 |..T..EST LABEL(S|
000011B0: 29 22 00 D4 19 D6 06 99 A3 34 29 22 11 12 05 45 |)".......4)"...E|
000011C0: 99 92 58 49 54 20 42 41 43 4B 20 54 4F 20 53 54 |..XIT BACK TO ST|
000011D0: 41 52 54 22 00 0B 1A D8 06 8B 4B B2 32 A7 99 22 |ART"......K.2.."|
000011E0: 11 99 50 4F 53 49 54 49 4F 4E 20 50 41 50 45 52 |..POSITION PAPER|
000011F0: 20 49 4E 20 50 52 49 4E 54 45 52 20 41 54 20 54 | IN PRINTER AT T|
00001200: 4F 50 20 4F 46 20 50 41 47 45 22 00 15 1A DA 06 |OP OF PAGE".....|
00001210: 8D 31 35 32 31 00 1F 1A DC 06 8D 31 35 32 32 00 |.1521......1522.|
00001220: 30 1A DE 06 8B 41 24 B2 22 41 22 A7 31 38 30 36 |0....A$."A".1806|
00001230: 00 41 1A E2 06 8B 41 24 B2 22 54 22 A7 31 39 31 |.A....A$."T".191|
00001240: 38 00 52 1A E4 06 8B 41 24 B2 22 46 22 A7 31 37 |8.R....A$."F".17|
00001250: 37 32 00 6B 1A E6 06 8B 41 24 B2 22 45 22 A7 A0 |72.k....A$."E"..|
00001260: 35 3A A0 31 35 3A 89 33 31 31 38 00 7A 1A E8 06 |5:.15:.3118.z...|
00001270: 8D 36 30 32 3A 89 31 37 35 36 00 85 1A EA 06 8F |.602:.1756......|
00001280: 2D 46 49 4E 44 00 B8 1A EC 06 99 22 9E 93 20 12 |-FIND......".. .|
00001290: 20 20 20 20 46 49 4E 44 20 52 45 43 4F 52 44 53 | FIND RECORDS|
000012A0: 20 57 49 54 48 20 43 4F 4D 4D 4F 4E 20 49 54 45 | WITH COMMON ITE|
000012B0: 4D 53 20 20 20 20 11 22 00 DB 1A EE 06 81 4E B2 |MS ."......N.|
000012C0: 31 A4 46 3A 99 22 20 12 05 22 3B 4E 3B 22 99 92 |1.F:." ..";N;"..|
000012D0: 20 22 3B 46 24 28 4E 29 3A 82 4E 00 05 1B F0 06 | ";F$(N):.N.....|
000012E0: 85 22 11 20 57 48 49 43 48 20 46 49 45 4C 44 20 |.". WHICH FIELD |
000012F0: 49 53 20 54 4F 20 42 45 20 53 45 41 52 43 48 45 |IS TO BE SEARCHE|
00001300: 44 22 3B 53 46 00 21 1B F2 06 8B 53 46 B3 30 B0 |D";SF.!....SF.0.|
00001310: 53 46 B1 46 A7 99 22 91 91 91 22 3A 89 31 37 37 |SF.F.."...":.177|
00001320: 36 00 69 1B F4 06 99 22 99 20 45 4E 54 45 52 20 |6.i....". ENTER |
00001330: 12 05 43 4F 4D 4D 4F 4E 20 49 54 45 4D 99 92 20 |..COMMON ITEM.. |
00001340: 22 3A 99 22 20 28 54 48 45 20 45 4E 54 49 52 45 |":." (THE ENTIRE|
00001350: 20 53 54 52 49 4E 47 20 49 53 20 4E 4F 54 20 52 | STRING IS NOT R|
00001360: 45 51 55 49 52 45 44 29 22 00 85 1B F6 06 99 22 |EQUIRED)"......"|
00001370: 20 12 22 3B 46 24 28 53 46 29 3B 22 9E 92 20 22 | .";F$(SF);".. "|
00001380: 3B 3A 85 54 24 00 9F 1B F8 06 99 22 93 22 3A 8B |;:.T$......".":.|
00001390: 4B B2 32 A7 8D 31 38 33 38 3A 8D 31 38 35 32 00 |K.2..1838:.1852.|
000013A0: AA 1B FA 06 81 49 B2 31 A4 58 00 EA 1B FC 06 8B |.....I.1.X......|
000013B0: 50 B3 B1 34 A7 99 22 20 11 53 45 41 52 43 48 49 |P..4.." .SEARCHI|
000013C0: 4E 47 20 52 45 43 4F 52 44 22 3B 49 3B 22 91 91 |NG RECORD";I;"..|
000013D0: 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |" |
000013E0: 20 20 20 20 20 20 20 20 20 20 00 19 1C FE 06 81 | ......|
000013F0: 4E B2 31 A4 46 3A 84 35 2C 52 45 43 24 28 4E 29 |N.1.F:.5,REC$(N)|
00001400: 3A 8B 52 45 43 24 28 4E 29 B2 22 3E 22 A7 52 45 |:.REC$(N).">".RE|
00001410: 43 24 28 4E 29 B2 22 20 22 00 31 1C FF 06 82 4E |C$(N)." ".1....N|
00001420: 3A 8D 31 36 31 38 3A 8B 45 54 B2 38 A7 31 35 32 |:.1618:.ET.8.152|
00001430: 38 00 68 1C 00 07 8B 54 24 B2 C8 28 52 45 43 24 |8.h....T$..(REC$|
00001440: 28 53 46 29 2C C3 28 54 24 29 29 A7 91 4B 8D 31 |(SF),.(T$))..K.1|
00001450: 38 32 36 2C 31 38 37 30 2C 31 39 32 38 3A 8B 4B |826,1870,1928:.K|
00001460: B2 32 A7 8D 31 39 30 34 00 6F 1C 04 07 82 49 00 |.2..1904.o....I.|
00001470: 82 1C 05 07 8B 4C B1 30 AF 4B B2 33 A7 8D 31 39 |.....L.0.K.3..19|
00001480: 33 36 00 8D 1C 06 07 A0 35 3A A0 31 35 00 9B 1C |36......5:.15...|
00001490: 08 07 8B 4B B2 32 A7 31 39 30 36 00 C0 1C 09 07 |...K.2.1906.....|
000014A0: 8B 50 B2 34 A7 99 22 99 50 52 45 53 53 20 05 12 |.P.4..".PRESS ..|
000014B0: 41 4E 59 20 4B 45 59 9E 92 22 3A 8D 31 35 32 32 |ANY KEY..":.1522|
000014C0: 00 CA 1C 0A 07 89 31 37 33 30 00 DA 1C 0C 07 8F |......1730......|
000014D0: 2D 50 52 49 4E 54 20 41 4C 4C 00 10 1D 0E 07 8D |-PRINT ALL......|
000014E0: 32 38 39 38 3A 50 4C B2 30 3A 99 22 93 9E 22 3A |2898:PL.0:."..":|
000014F0: 8B 50 B3 B1 34 AF 4B B2 32 A7 99 22 93 11 20 50 |.P..4.K.2..".. P|
00001500: 52 49 4E 54 49 4E 47 20 48 45 41 44 49 4E 47 22 |RINTING HEADING"|
00001510: 00 25 1D 0F 07 8B 4B B2 32 A7 8D 31 38 33 38 3A |.%....K.2..1838:|
00001520: 8D 31 38 35 32 00 5D 1D 10 07 81 49 B2 53 A4 58 |.1852.]....I.S.X|
00001530: 3A 8B 50 B3 B1 34 A7 99 22 91 20 52 45 41 44 49 |:.P..4..". READI|
00001540: 4E 47 20 52 45 43 4F 52 44 20 23 22 C4 28 49 29 |NG RECORD #".(I)|
00001550: 22 20 4F 46 22 C4 28 58 29 20 20 20 20 00 8C 1D |" OF".(X) ...|
00001560: 12 07 81 4E B2 31 A4 46 3A 84 35 2C 52 45 43 24 |...N.1.F:.5,REC$|
00001570: 28 4E 29 3A 8B 52 45 43 24 28 4E 29 B2 22 3E 22 |(N):.REC$(N).">"|
00001580: A7 52 45 43 24 28 4E 29 B2 22 20 22 00 A4 1D 13 |.REC$(N)." "....|
00001590: 07 82 4E 3A 8D 31 36 31 38 3A 8B 45 54 B2 38 A7 |..N:.1618:.ET.8.|
000015A0: 31 35 32 38 00 BA 1D 14 07 91 4B 8D 31 38 32 36 |1528......K.1826|
000015B0: 2C 31 38 37 30 2C 31 39 32 38 00 C9 1D 16 07 8B |,1870,1928......|
000015C0: 4B B2 32 A7 8D 31 39 30 34 00 D0 1D 18 07 82 49 |K.2..1904......I|
000015D0: 00 DB 1D 1A 07 A0 35 3A A0 31 35 00 E9 1D 1C 07 |......5:.15.....|
000015E0: 8B 4B B2 32 A7 31 39 30 36 00 F3 1D 1E 07 89 31 |.K.2.1906......1|
000015F0: 38 30 31 00 06 1E 20 07 8F 2D 4E 4F 4E 46 4F 52 |801... ..-NONFOR|
00001600: 4D 41 54 54 45 44 00 3F 1E 22 07 98 50 46 2C 22 |MATTED.?."..PF,"|
00001610: 5B 20 52 45 43 4F 52 44 20 23 22 3B 49 3B 22 20 |[ RECORD #";I;" |
00001620: 20 20 5D 22 3B 3A 81 4A B2 31 A4 36 31 3A 98 50 | ]";:.J.1.61:.P|
00001630: 46 2C 22 2D 22 3B 3A 82 4A 3A 8D 32 38 38 38 00 |F,"-";:.J:.2888.|
00001640: 52 1E 24 07 50 4C B2 50 4C AA 31 3A 81 4E B2 31 |R.$.PL.PL.1:.N.1|
00001650: A4 46 00 7E 1E 26 07 98 50 46 2C 46 24 28 4E 29 |.F.~.&..PF,F$(N)|
00001660: 3B 3A 81 4A B2 31 A4 32 30 AB C3 28 46 24 28 4E |;:.J.1.20..(F$(N|
00001670: 29 29 3A 98 50 46 2C 22 2E 22 3B 3A 82 4A 00 9B |)):.PF,".";:.J..|
00001680: 1E 27 07 8B 52 45 43 24 28 4E 29 B2 22 3E 22 A7 |.'..REC$(N).">".|
00001690: 52 45 43 24 28 4E 29 B2 22 20 22 00 C4 1E 28 07 |REC$(N)." "...(.|
000016A0: 98 50 46 2C 52 45 43 24 28 4E 29 3A 50 4C B2 50 |.PF,REC$(N):PL.P|
000016B0: 4C AA 31 3A 82 4E 3A 8D 32 38 38 38 3A 50 4C B2 |L.1:.N:.2888:PL.|
000016C0: 50 4C AA 31 00 D4 1E 2A 07 8B 50 4C AA 46 B3 B2 |PL.1...*..PL.F..|
000016D0: 36 30 A7 8E 00 09 1F 2B 07 81 4A B2 31 A4 36 35 |60.....+..J.1.65|
000016E0: AB 50 4C 3A 8D 32 38 38 38 3A 82 4A 3A 50 4C B2 |.PL:.2888:.J:PL.|
000016F0: 30 3A 50 47 B2 50 47 AA 31 3A 98 50 46 2C 22 50 |0:PG.PG.1:.PF,"P|
00001700: 41 47 45 22 50 47 3A 8E 20 00 15 1F 2C 07 8F 2D |AGE"PG:. ...,..-|
00001710: 54 49 54 4C 45 00 53 1F 2E 07 81 4A B2 31 A4 4E |TITLE.S....J.1.N|
00001720: 4C 3A 8B 54 54 24 28 4A 29 B3 B1 22 3E 22 A7 8D |L:.TT$(J)..">"..|
00001730: 31 38 34 36 20 20 20 20 20 20 20 20 20 20 20 20 |1846 |
00001740: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001750: 20 20 20 00 5C 1F 32 07 82 4A 3A 8E 00 81 1F 36 | .\.2..J:....6|
00001760: 07 42 B2 B5 28 28 50 57 AB C3 28 54 54 24 28 4A |.B..((PW..(TT$(J|
00001770: 29 29 29 AD 32 29 3A 8B 50 B3 B1 31 A7 31 38 34 |))).2):.P..1.184|
00001780: 39 00 A7 1F 38 07 98 50 46 2C C8 28 53 24 2C 42 |9...8..PF,.(S$,B|
00001790: 29 AA 54 54 24 28 4A 29 3B 42 31 24 3B 3A 50 4C |).TT$(J);B1$;:PL|
000017A0: B2 50 4C AA 31 3A 8E 00 CC 1F 39 07 98 50 46 2C |.PL.1:....9..PF,|
000017B0: C8 28 53 24 2C 42 29 AA 54 54 24 28 4A 29 3B 42 |.(S$,B).TT$(J);B|
000017C0: 31 24 3A 50 4C B2 50 4C AA 31 3A 8E 00 DB 1F 3A |1$:PL.PL.1:....:|
000017D0: 07 8F 2D 48 45 41 44 49 4E 47 53 00 12 20 3C 07 |..-HEADINGS.. <.|
000017E0: 8D 31 38 36 36 3A 50 43 28 4E 43 AA 31 29 B2 50 |.1866:PC(NC.1).P|
000017F0: 57 AA 33 3A 43 57 B2 50 43 28 32 29 AB 32 AB 50 |W.3:CW.PC(2).2.P|
00001800: 43 28 31 29 3A 8B 50 43 28 31 29 B1 31 A7 31 38 |C(1):.PC(1).1.18|
00001810: 35 36 00 2E 20 3E 07 98 50 46 2C C8 28 48 43 24 |56.. >..PF,.(HC$|
00001820: 28 31 29 2C 43 57 29 3B 3A 89 31 38 35 38 00 52 |(1),CW);:.1858.R|
00001830: 20 40 07 98 50 46 2C C8 28 53 24 2C 50 43 28 31 | @..PF,.(S$,PC(1|
00001840: 29 AB 31 29 AA C8 28 48 43 24 28 31 29 2C 43 57 |).1)..(HC$(1),CW|
00001850: 29 3B 00 61 20 42 07 8B 4E 43 B2 31 A7 31 38 36 |);.a B..NC.1.186|
00001860: 32 00 9C 20 43 07 81 4A B2 32 A4 4E 43 3A 4D B2 |2.. C..J.2.NC:M.|
00001870: 50 43 28 4A 29 AB C3 28 C8 28 48 43 24 28 4A AB |PC(J)..(.(HC$(J.|
00001880: 31 29 2C 50 43 28 4A 29 AB 32 AB 50 43 28 4A AB |1),PC(J).2.PC(J.|
00001890: 31 29 29 29 AB 50 43 28 4A AB 31 29 00 C7 20 44 |1))).PC(J.1).. D|
000018A0: 07 98 50 46 2C C8 28 53 24 2C 4D 29 AA C8 28 48 |..PF,.(S$,M)..(H|
000018B0: 43 24 28 4A 29 2C 50 43 28 4A AA 31 29 AB 32 AB |C$(J),PC(J.1).2.|
000018C0: 50 43 28 4A 29 29 3B 00 CE 20 45 07 82 4A 00 E8 |PC(J));.. E..J..|
000018D0: 20 46 07 8D 32 38 38 38 3A 8D 31 38 36 36 3A 50 | F..2888:.1866:P|
000018E0: 4C B2 50 4C AA 33 3A 8E 00 F5 20 48 07 8F 2D 44 |L.PL.3:... H..-D|
000018F0: 41 53 48 45 53 00 15 21 4A 07 81 4A B2 31 A4 50 |ASHES..!J..J.1.P|
00001900: 57 3A 98 50 46 2C 22 2D 22 3B 3A 82 4A 3A 8D 32 |W:.PF,"-";:.J:.2|
00001910: 38 38 38 3A 8E 00 20 21 4C 07 8F 2D 44 41 54 41 |888:.. !L..-DATA|
00001920: 00 63 21 4E 07 46 31 B2 C5 28 52 50 24 28 31 2C |.c!N.F1..(RP$(1,|
00001930: 31 29 29 3A 46 32 B2 C5 28 52 50 24 28 31 2C 32 |1)):F2..(RP$(1,2|
00001940: 29 29 3A 46 33 B2 C5 28 52 50 24 28 31 2C 33 29 |)):F3..(RP$(1,3)|
00001950: 29 3A 43 57 B2 50 43 28 32 29 AB 32 AB 50 43 28 |):CW.PC(2).2.PC(|
00001960: 31 29 20 00 94 21 4F 07 8B 4E 43 B2 31 AF 5A B2 |1) ..!O..NC.1.Z.|
00001970: 31 A7 43 4C 4D 24 B2 52 45 43 24 28 C5 28 52 50 |1.CLM$.REC$(.(RP|
00001980: 24 28 31 2C 31 29 29 29 3A 8D 33 31 34 38 3A 89 |$(1,1))):.3148:.|
00001990: 31 38 39 36 00 A6 21 50 07 8B 50 43 28 31 29 B1 |1896..!P..PC(1).|
000019A0: 31 A7 31 38 37 38 00 D6 21 52 07 98 50 46 2C C8 |1.1878..!R..PF,.|
000019B0: 28 52 45 43 24 28 46 31 29 AA 42 24 AA 52 45 43 |(REC$(F1).B$.REC|
000019C0: 24 28 46 32 29 AA 42 24 AA 52 45 43 24 28 46 33 |$(F2).B$.REC$(F3|
000019D0: 29 2C 43 57 29 3B 00 E0 21 54 07 89 31 38 38 32 |),CW);..!T..1882|
000019E0: 00 F7 21 56 07 98 50 46 2C C8 28 53 24 2C 50 43 |..!V..PF,.(S$,PC|
000019F0: 28 31 29 AB 31 29 3B 00 27 22 58 07 98 50 46 2C |(1).1);.'"X..PF,|
00001A00: C8 28 52 45 43 24 28 46 31 29 AA 42 24 AA 52 45 |.(REC$(F1).B$.RE|
00001A10: 43 24 28 46 32 29 AA 42 24 AA 52 45 43 24 28 46 |C$(F2).B$.REC$(F|
00001A20: 33 29 2C 43 57 29 3B 00 36 22 5A 07 8B 4E 43 B2 |3),CW);.6"Z..NC.|
00001A30: 31 A7 31 38 39 36 00 55 22 5B 07 81 4A B2 32 A4 |1.1896.U"[..J.2.|
00001A40: 4E 43 3A 43 57 B2 50 43 28 4A 29 AB 32 AB 50 43 |NC:CW.PC(J).2.PC|
00001A50: 28 4A AB 31 29 00 8C 22 5C 07 46 31 B2 C5 28 52 |(J.1).."\.F1..(R|
00001A60: 50 24 28 4A AB 31 2C 31 29 29 3A 46 32 B2 C5 28 |P$(J.1,1)):F2..(|
00001A70: 52 50 24 28 4A AB 31 2C 32 29 29 3A 46 33 B2 C5 |RP$(J.1,2)):F3..|
00001A80: 28 52 50 24 28 4A AB 31 2C 33 29 29 00 BC 22 5E |(RP$(J.1,3)).."^|
00001A90: 07 4D B2 C3 28 C8 28 52 45 43 24 28 46 31 29 AA |.M..(.(REC$(F1).|
00001AA0: 42 24 AA 52 45 43 24 28 46 32 29 AA 42 24 AA 52 |B$.REC$(F2).B$.R|
00001AB0: 45 43 24 28 46 33 29 2C 43 57 29 29 00 E5 22 60 |EC$(F3),CW)).."`|
00001AC0: 07 4D B2 50 43 28 4A 29 AB 4D AB 50 43 28 4A AB |.M.PC(J).M.PC(J.|
00001AD0: 31 29 3A 43 57 B2 50 43 28 4A AA 31 29 AB 32 AB |1):CW.PC(J.1).2.|
00001AE0: 50 43 28 4A 29 00 F6 22 62 07 98 50 46 2C C8 28 |PC(J).."b..PF,.(|
00001AF0: 53 24 2C 4D 29 3B 00 27 23 63 07 8B 4A B2 4E 43 |S$,M);.'#c..J.NC|
00001B00: AF 5A B2 31 A7 43 4C 4D 24 B2 52 45 43 24 28 C5 |.Z.1.CLM$.REC$(.|
00001B10: 28 52 50 24 28 4A 2C 31 29 29 29 3A 8D 33 31 34 |(RP$(J,1))):.314|
00001B20: 38 3A 89 31 38 39 36 00 6A 23 64 07 46 31 B2 C5 |8:.1896.j#d.F1..|
00001B30: 28 52 50 24 28 4A 2C 31 29 29 3A 46 32 B2 C5 28 |(RP$(J,1)):F2..(|
00001B40: 52 50 24 28 4A 2C 32 29 29 3A 46 33 B2 C5 28 52 |RP$(J,2)):F3..(R|
00001B50: 50 24 28 4A 2C 33 29 29 20 20 20 20 20 20 20 20 |P$(J,3)) |
00001B60: 20 20 20 20 20 20 20 20 20 20 00 9A 23 66 07 98 | ..#f..|
00001B70: 50 46 2C C8 28 52 45 43 24 28 46 31 29 AA 42 24 |PF,.(REC$(F1).B$|
00001B80: AA 52 45 43 24 28 46 32 29 AA 42 24 AA 52 45 43 |.REC$(F2).B$.REC|
00001B90: 24 28 46 33 29 2C 43 57 29 3B 00 A1 23 67 07 82 |$(F3),CW);..#g..|
00001BA0: 4A 00 B3 23 68 07 8D 32 38 38 38 3A 50 4C B2 50 |J..#h..2888:PL.P|
00001BB0: 4C AA 31 00 EB 23 6A 07 8B 50 4C B2 36 30 A7 81 |L.1..#j..PL.60..|
00001BC0: 4A B2 31 A4 35 3A 8D 32 38 38 38 3A 82 4A 3A 50 |J.1.5:.2888:.J:P|
00001BD0: 4C B2 30 3A 89 31 39 30 31 20 20 20 20 20 20 20 |L.0:.1901 |
00001BE0: 20 20 20 20 20 20 20 20 20 20 20 00 F1 23 6C 07 | ..#l.|
00001BF0: 8E 00 12 24 6D 07 50 47 B2 50 47 AA 31 3A 98 50 |...$m.PG.PG.1:.P|
00001C00: 46 2C 22 50 41 47 45 22 50 47 3A 8D 31 38 35 32 |F,"PAGE"PG:.1852|
00001C10: 3A 8E 00 1C 24 6E 07 8F 2D 53 55 4D 00 28 24 70 |:...$n..-SUM.($p|
00001C20: 07 8B 5A B3 B1 31 A7 8E 00 68 24 71 07 41 30 B2 |..Z..1...h$q.A0.|
00001C30: 41 30 AA C5 28 52 45 43 24 28 C5 28 52 50 24 28 |A0..(REC$(.(RP$(|
00001C40: 4E 43 2C 31 29 29 29 29 3A 8E 20 20 20 20 20 20 |NC,1)))):. |
00001C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001C60: 20 20 20 20 20 20 20 20 00 77 24 72 07 8B 5A B3 | .w$r..Z.|
00001C70: B1 31 A7 31 39 31 34 00 8F 24 74 07 98 50 46 2C |.1.1914..$t..PF,|
00001C80: C8 28 53 24 2C 50 43 28 4E 43 29 AB 31 29 3B 00 |.(S$,PC(NC).1);.|
00001C90: B6 24 76 07 81 49 B2 31 A4 50 57 AB 50 43 28 4E |.$v..I.1.PW.PC(N|
00001CA0: 43 29 AA 31 3A 98 50 46 2C 22 2D 22 3B 3A 82 49 |C).1:.PF,"-";:.I|
00001CB0: 3A 8D 32 38 38 38 00 C5 24 77 07 8B 4E 43 B2 31 |:.2888..$w..NC.1|
00001CC0: A7 31 39 31 33 00 E8 24 78 07 98 50 46 2C C8 28 |.1913..$x..PF,.(|
00001CD0: 53 24 2C 50 43 28 4E 43 29 AB 39 29 AA 22 54 4F |S$,PC(NC).9)."TO|
00001CE0: 54 41 4C 3D 20 20 22 3B 00 05 25 79 07 43 4C 4D |TAL= ";..%y.CLM|
00001CF0: 24 B2 C4 28 41 30 29 3A 8D 33 31 34 38 3A 50 4C |$..(A0):.3148:PL|
00001D00: B2 50 4C AA 32 00 29 25 7A 07 8D 32 38 38 38 3A |.PL.2.)%z..2888:|
00001D10: 8B 50 46 B2 34 A7 81 49 B2 31 A4 36 36 AB 50 4C |.PF.4..I.1.66.PL|
00001D20: 3A 8D 32 38 38 38 3A 82 49 00 33 25 7B 07 89 31 |:.2888:.I.3%{..1|
00001D30: 38 30 31 00 3E 25 7C 07 8F 2D 54 45 53 54 00 5B |801.>%|..-TEST.[|
00001D40: 25 7E 07 99 22 11 20 50 52 49 4E 54 49 4E 47 20 |%~..". PRINTING |
00001D50: 54 45 53 54 20 4C 41 42 45 4C 22 00 8A 25 80 07 |TEST LABEL"..%..|
00001D60: 81 49 B2 31 A4 52 57 3A 81 4A B2 31 A4 4C 57 3A |.I.1.RW:.J.1.LW:|
00001D70: 98 50 46 2C C9 28 C4 28 4A 29 2C 31 29 3B 3A 82 |.PF,.(.(J),1);:.|
00001D80: 4A 3A 8D 32 38 38 38 3A 82 49 00 A2 25 82 07 81 |J:.2888:.I..%...|
00001D90: 49 B2 31 A4 54 25 AB 52 57 3A 8D 32 38 38 38 3A |I.1.T%.RW:.2888:|
00001DA0: 82 49 00 AC 25 84 07 89 31 37 34 32 00 B9 25 86 |.I..%...1742..%.|
00001DB0: 07 8F 2D 4C 41 42 45 4C 53 00 F8 25 88 07 4C B2 |..-LABELS..%..L.|
00001DC0: 4C AA 31 3A 81 4A B2 31 A4 52 57 3A 46 31 B2 C5 |L.1:.J.1.RW:F1..|
00001DD0: 28 4D 4C 24 28 4A 2C 31 29 29 3A 46 32 B2 C5 28 |(ML$(J,1)):F2..(|
00001DE0: 4D 4C 24 28 4A 2C 32 29 29 3A 46 33 B2 C5 28 4D |ML$(J,2)):F3..(M|
00001DF0: 4C 24 28 4A 2C 33 29 29 00 3D 26 8A 07 52 57 24 |L$(J,3)).=&..RW$|
00001E00: 28 4A 29 B2 52 57 24 28 4A 29 AA C8 28 52 45 43 |(J).RW$(J)..(REC|
00001E10: 24 28 46 31 29 AA 42 24 AA 52 45 43 24 28 46 32 |$(F1).B$.REC$(F2|
00001E20: 29 AA 42 24 AA 52 45 43 24 28 46 33 29 AA 53 24 |).B$.REC$(F3).S$|
00001E30: 2C 4C 57 29 AA 42 24 AA 42 24 3A 82 4A 00 4C 26 |,LW).B$.B$:.J.L&|
00001E40: 8C 07 8B 49 B1 B2 58 A7 31 39 33 36 00 59 26 8E |...I..X.1936.Y&.|
00001E50: 07 8B 4C B3 B1 4C 54 A7 8E 00 8C 26 90 07 81 4A |..L..LT....&...J|
00001E60: B2 31 A4 52 57 3A 98 50 46 2C C8 28 52 57 24 28 |.1.RW:.PF,.(RW$(|
00001E70: 4A 29 2C 4C 50 28 4C 54 29 AA 4C 57 AB 31 29 3A |J),LP(LT).LW.1):|
00001E80: 52 57 24 28 4A 29 B2 22 22 3A 82 4A 00 AA 26 91 |RW$(J)."":.J..&.|
00001E90: 07 81 53 B2 31 A4 54 25 AB 52 57 3A 8D 32 38 38 |..S.1.T%.RW:.288|
00001EA0: 38 3A 82 53 3A 4C B2 30 3A 8E 00 BB 26 92 07 8F |8:.S:L.0:...&...|
00001EB0: 2D 4C 41 42 45 4C 20 53 49 5A 45 00 EE 26 94 07 |-LABEL SIZE..&..|
00001EC0: 99 22 93 9E 20 12 20 20 20 20 20 20 20 20 20 20 |.".. . |
00001ED0: 20 20 20 4C 41 42 45 4C 20 53 49 5A 45 20 20 20 | LABEL SIZE |
00001EE0: 20 20 20 20 20 20 20 20 20 20 20 20 92 22 00 2D | .".-|
00001EF0: 27 95 07 99 22 99 20 12 43 55 52 52 45 4E 54 4C |'...". .CURRENTL|
00001F00: 59 3A 9E 22 52 57 22 99 9D 20 52 4F 57 53 2C 9E |Y:."RW".. ROWS,.|
00001F10: 22 4C 57 22 99 9D 20 43 48 52 53 2C 9E 22 4C 54 |"LW".. CHRS,."LT|
00001F20: 22 99 9D 20 41 43 52 4F 53 53 20 9E 22 00 5D 27 |".. ACROSS .".]'|
00001F30: 96 07 99 A3 33 29 22 11 12 05 53 99 92 54 41 4E |....3)"...S..TAN|
00001F40: 44 41 52 44 20 2D 20 35 20 52 4F 57 53 2C 20 33 |DARD - 5 ROWS, 3|
00001F50: 34 20 43 48 52 53 2C 20 31 20 55 50 22 00 82 27 |4 CHRS, 1 UP"..'|
00001F60: 98 07 99 A3 35 29 22 31 35 2F 31 36 20 49 4E 43 |....5)"15/16 INC|
00001F70: 48 20 42 59 20 33 20 31 2F 32 20 49 4E 43 48 45 |H BY 3 1/2 INCHE|
00001F80: 53 22 00 B2 27 9A 07 99 A3 33 29 22 11 12 05 4C |S"..'....3)"...L|
00001F90: 99 92 41 52 47 45 20 20 20 20 2D 20 38 20 52 4F |..ARGE - 8 RO|
00001FA0: 57 53 2C 20 33 34 20 43 48 52 53 2C 20 31 20 55 |WS, 34 CHRS, 1 U|
00001FB0: 50 22 00 D8 27 9C 07 99 A3 35 29 22 31 20 37 2F |P"..'....5)"1 7/|
00001FC0: 31 36 20 49 4E 43 48 20 42 59 20 33 20 31 2F 32 |16 INCH BY 3 1/2|
00001FD0: 20 49 4E 43 48 45 53 22 00 02 28 9E 07 99 A3 33 | INCHES"..(....3|
00001FE0: 29 22 11 12 05 43 99 92 48 41 4E 47 45 20 4C 41 |)"...C..HANGE LA|
00001FF0: 42 45 4C 20 53 49 5A 45 20 41 4E 44 20 54 59 50 |BEL SIZE AND TYP|
00002000: 45 22 00 17 28 A1 07 99 A3 33 29 22 11 11 12 05 |E"..(....3)"....|
00002010: 45 99 92 58 49 54 22 00 47 28 A2 07 99 22 11 11 |E..XIT".G(..."..|
00002020: 20 4E 4F 54 45 3A 20 4C 41 42 45 4C 53 20 41 52 | NOTE: LABELS AR|
00002030: 45 20 53 45 50 41 52 41 54 45 44 20 42 59 20 4F |E SEPARATED BY O|
00002040: 4E 45 20 52 4F 57 22 00 62 28 A4 07 99 A3 37 29 |NE ROW".b(....7)|
00002050: 22 41 4E 44 20 32 20 43 48 41 52 41 43 54 45 52 |"AND 2 CHARACTER|
00002060: 53 22 00 6C 28 A6 07 8D 31 35 32 31 00 83 28 A8 |S".l(...1521..(.|
00002070: 07 8D 31 35 32 32 3A 8B 41 24 B2 22 45 22 A7 31 |..1522:.A$."E".1|
00002080: 35 38 34 00 A5 28 AA 07 8B 41 24 B2 22 53 22 A7 |584..(...A$."S".|
00002090: 54 25 B2 36 3A 52 57 B2 35 3A 4C 57 B2 33 34 3A |T%.6:RW.5:LW.34:|
000020A0: 89 31 39 34 30 00 C7 28 AC 07 8B 41 24 B2 22 4C |.1940..(...A$."L|
000020B0: 22 A7 54 25 B2 39 3A 52 57 B2 38 3A 4C 57 B2 33 |".T%.9:RW.8:LW.3|
000020C0: 34 3A 89 31 39 34 30 00 D8 28 AE 07 8B 41 24 B2 |4:.1940..(...A$.|
000020D0: 22 43 22 A7 31 39 36 38 00 E7 28 AF 07 8D 36 30 |"C".1968..(...60|
000020E0: 32 3A 89 31 39 36 30 00 0D 29 B0 07 99 22 99 11 |2:.1960..)..."..|
000020F0: 20 4E 55 4D 42 45 52 20 4F 46 20 52 4F 57 53 20 | NUMBER OF ROWS |
00002100: 4F 4E 20 4C 41 42 45 4C 9E 3F 22 52 57 00 27 29 |ON LABEL.?"RW.')|
00002110: B1 07 99 22 91 22 A3 32 34 29 3B 3A 85 52 57 3A |...".".24);:.RW:|
00002120: 54 25 B2 52 57 AA 31 00 4C 29 B2 07 99 22 99 20 |T%.RW.1.L)...". |
00002130: 23 20 4F 46 20 43 48 41 52 41 43 54 45 52 53 20 |# OF CHARACTERS |
00002140: 50 45 52 20 52 4F 57 9E 3F 22 4C 57 00 5E 29 B3 |PER ROW.?"LW.^).|
00002150: 07 99 22 91 22 A3 32 34 29 3B 3A 85 4C 57 00 83 |..".".24);:.LW..|
00002160: 29 B4 07 99 22 99 20 23 20 4C 41 42 45 4C 53 20 |)...". # LABELS |
00002170: 41 43 52 4F 53 53 20 50 41 47 45 20 20 20 9E 3F |ACROSS PAGE .?|
00002180: 22 4C 54 00 B3 29 B5 07 99 22 91 22 A3 32 34 29 |"LT..)...".".24)|
00002190: 3B 3A 85 4C 54 3A 8B 4C 54 B3 31 B0 4C 54 B1 34 |;:.LT:.LT.1.LT.4|
000021A0: A7 99 22 91 22 3A 89 31 39 37 33 20 20 20 20 20 |..".":.1973 |
000021B0: 20 20 20 00 FC 29 B6 07 4C 50 28 31 29 B2 31 3A | ..)..LP(1).1:|
000021C0: 4C 50 28 32 29 B2 4C 57 AA 32 3A 4C 50 28 33 29 |LP(2).LW.2:LP(3)|
000021D0: B2 32 AC 28 4C 57 AA 32 29 3A 4C 50 28 34 29 B2 |.2.(LW.2):LP(4).|
000021E0: 33 AC 28 4C 57 AA 32 29 20 20 20 20 20 20 20 20 |3.(LW.2) |
000021F0: 20 20 20 20 20 20 20 20 20 20 20 20 00 06 2A B7 | ..*.|
00002200: 07 89 31 39 34 30 00 19 2A B8 07 8F 2D 50 52 49 |..1940..*...-PRI|
00002210: 4E 54 45 52 20 43 4D 44 53 00 4C 2A BA 07 99 22 |NTER CMDS.L*..."|
00002220: 9E 93 20 12 20 20 20 20 20 20 20 20 20 20 20 50 |.. . P|
00002230: 52 49 4E 54 45 52 20 43 4F 4D 4D 41 4E 44 20 20 |RINTER COMMAND |
00002240: 20 20 20 20 20 20 20 20 20 20 92 22 00 77 2A BC | .".w*.|
00002250: 07 99 22 99 11 20 54 48 49 53 20 52 4F 55 54 49 |..".. THIS ROUTI|
00002260: 4E 45 20 57 49 4C 4C 20 53 45 4E 44 20 43 48 41 |NE WILL SEND CHA|
00002270: 52 41 43 54 45 52 22 00 A4 2A BE 07 99 22 20 53 |RACTER"..*..." S|
00002280: 54 52 49 4E 47 20 5B 43 48 52 24 28 29 5D 20 43 |TRING [CHR$()] C|
00002290: 4F 4D 4D 41 4E 44 53 20 54 4F 20 41 4E 20 41 53 |OMMANDS TO AN AS|
000022A0: 43 49 49 22 00 D2 2A C0 07 99 22 20 50 52 49 4E |CII"..*..." PRIN|
000022B0: 54 45 52 2E 20 20 43 4F 4D 4D 41 4E 44 53 20 4D |TER. COMMANDS M|
000022C0: 55 53 54 20 42 45 20 45 4E 54 45 52 45 44 20 49 |UST BE ENTERED I|
000022D0: 4E 22 00 F8 2A C2 07 99 22 20 54 48 45 20 46 4F |N"..*..." THE FO|
000022E0: 52 4D 20 4F 46 20 49 4E 54 45 47 45 52 53 20 53 |RM OF INTEGERS S|
000022F0: 55 43 48 20 41 53 3A 22 00 15 2B C4 07 99 22 11 |UCH AS:"..+...".|
00002300: 9E 20 3F 20 32 37 99 20 20 20 20 20 28 43 4F 44 |. ? 27. (COD|
00002310: 45 20 31 29 22 00 31 2B C6 07 99 22 9E 20 3F 20 |E 1)".1+...". ? |
00002320: 36 36 99 20 20 20 20 20 28 43 4F 44 45 20 32 29 |66. (CODE 2)|
00002330: 22 00 4D 2B C8 07 99 22 9E 20 3F 20 32 99 20 20 |".M+...". ? 2. |
00002340: 20 20 20 20 28 43 4F 44 45 20 33 29 22 00 66 2B | (CODE 3)".f+|
00002350: CA 07 99 22 9E 20 3F 20 2A 99 20 20 20 20 20 20 |...". ? *. |
00002360: 28 45 4E 44 29 22 00 94 2B CC 07 99 22 11 20 54 |(END)"..+...". T|
00002370: 48 49 53 20 57 49 4C 4C 20 42 45 20 53 45 4E 54 |HIS WILL BE SENT|
00002380: 20 54 4F 20 54 48 45 20 50 52 49 4E 54 45 52 20 | TO THE PRINTER |
00002390: 41 53 3A 22 00 C1 2B CE 07 99 22 11 9E 20 20 20 |AS:"..+...".. |
000023A0: 50 52 49 4E 54 23 34 2C 43 48 52 24 28 32 37 29 |PRINT#4,CHR$(27)|
000023B0: 43 48 52 24 28 36 36 29 43 48 52 24 28 32 29 99 |CHR$(66)CHR$(2).|
000023C0: 22 00 ED 2B D0 07 99 22 11 20 55 50 20 54 4F 20 |"..+...". UP TO |
000023D0: 46 4F 55 52 28 34 29 20 4E 55 4D 42 45 52 53 20 |FOUR(4) NUMBERS |
000023E0: 4D 41 59 20 42 45 20 53 45 4E 54 2C 22 00 1A 2C |MAY BE SENT,"..,|
000023F0: D2 07 99 22 20 54 48 45 20 46 49 52 53 54 20 4E |..." THE FIRST N|
00002400: 4F 52 4D 41 4C 4C 59 20 42 45 49 4E 47 20 9E 12 |ORMALLY BEING ..|
00002410: 32 37 92 99 2C 20 54 48 45 22 00 46 2C D4 07 99 |27.., THE".F,...|
00002420: 22 20 45 53 43 41 50 45 20 43 48 41 52 41 43 54 |" ESCAPE CHARACT|
00002430: 45 52 2E 20 20 45 4E 44 20 54 48 45 20 53 45 51 |ER. END THE SEQ|
00002440: 55 45 4E 43 45 22 00 77 2C D6 07 99 22 20 42 59 |UENCE".w,..." BY|
00002450: 20 50 52 45 53 53 49 4E 47 20 05 12 52 45 54 55 | PRESSING ..RETU|
00002460: 52 4E 99 92 20 57 48 45 4E 20 54 48 45 20 41 53 |RN.. WHEN THE AS|
00002470: 54 45 52 49 53 4B 22 00 A3 2C D8 07 99 22 20 49 |TERISK"..,..." I|
00002480: 53 20 53 48 4F 57 49 4E 47 2E 20 20 50 52 49 4E |S SHOWING. PRIN|
00002490: 54 45 52 53 20 57 49 4C 4C 20 56 41 52 59 2C 20 |TERS WILL VARY, |
000024A0: 53 4F 22 00 CC 2C DA 07 99 22 20 43 48 45 43 4B |SO"..,..." CHECK|
000024B0: 20 59 4F 55 52 20 4D 41 4E 55 41 4C 20 46 4F 52 | YOUR MANUAL FOR|
000024C0: 20 54 48 45 20 43 4F 44 45 53 2E 22 00 FD 2C DC | THE CODES."..,.|
000024D0: 07 99 22 11 20 20 20 20 05 12 41 4E 59 20 4B 45 |..". ..ANY KE|
000024E0: 59 92 99 20 54 4F 20 43 4F 4E 54 49 4E 55 45 20 |Y.. TO CONTINUE |
000024F0: 4F 52 20 05 12 45 99 92 58 49 54 3F 22 00 14 2D |OR ..E..XIT?"..-|
00002500: DE 07 8D 31 35 32 32 3A 8B 41 24 B2 22 45 22 A7 |...1522:.A$."E".|
00002510: 31 35 38 34 00 47 2D E0 07 99 22 9E 93 20 12 20 |1584.G-...".. . |
00002520: 20 20 20 20 20 20 20 53 45 4E 44 20 50 52 49 4E | SEND PRIN|
00002530: 54 45 52 20 43 4F 4D 4D 41 4E 44 20 20 20 20 20 |TER COMMAND |
00002540: 20 20 20 20 20 92 22 00 73 2D E2 07 99 22 11 99 | .".s-..."..|
00002550: 20 45 4E 54 45 52 20 43 4F 44 45 2C 20 54 48 45 | ENTER CODE, THE|
00002560: 4E 20 50 52 45 53 53 20 05 12 52 45 54 55 52 4E |N PRESS ..RETURN|
00002570: 92 99 22 00 97 2D E4 07 99 22 11 20 05 12 52 45 |.."..-...". ..RE|
00002580: 54 55 52 4E 99 92 20 4F 4E 4C 59 20 54 4F 20 51 |TURN.. ONLY TO Q|
00002590: 55 49 54 11 11 9E 22 00 C2 2D E6 07 81 49 B2 31 |UIT..."..-...I.1|
000025A0: A4 34 3A 99 22 99 43 4F 44 45 9E 22 3B 49 3B 22 |.4:.".CODE.";I;"|
000025B0: 20 3F 20 2A 20 9D 9D 9D 9D 22 3B 3A 85 49 24 28 | ? * ....";:.I$(|
000025C0: 49 29 00 D6 2D E8 07 8B 49 24 28 49 29 B2 22 2A |I)..-...I$(I)."*|
000025D0: 22 A7 32 30 32 38 00 DD 2D EA 07 82 49 00 02 2E |".2028..-...I...|
000025E0: EC 07 91 28 49 AB 31 29 89 32 30 33 30 2C 32 30 |...(I.1).2030,20|
000025F0: 33 32 2C 32 30 33 34 2C 32 30 33 36 3A 89 32 30 |32,2034,2036:.20|
00002600: 33 39 00 1B 2E EE 07 98 34 2C C7 28 C5 28 49 24 |39......4,.(.(I$|
00002610: 28 31 29 29 29 3A 89 32 30 33 38 00 3F 2E F0 07 |(1))):.2038.?...|
00002620: 98 34 2C C7 28 C5 28 49 24 28 31 29 29 29 C7 28 |.4,.(.(I$(1))).(|
00002630: C5 28 49 24 28 32 29 29 29 3A 89 32 30 33 38 00 |.(I$(2))):.2038.|
00002640: 6E 2E F2 07 98 34 2C C7 28 C5 28 49 24 28 31 29 |n....4,.(.(I$(1)|
00002650: 29 29 C7 28 C5 28 49 24 28 32 29 29 29 C7 28 C5 |)).(.(I$(2))).(.|
00002660: 28 49 24 28 33 29 29 29 3A 89 32 30 33 38 00 A2 |(I$(3))):.2038..|
00002670: 2E F4 07 98 34 2C C7 28 C5 28 49 24 28 31 29 29 |....4,.(.(I$(1))|
00002680: 29 C7 28 C5 28 49 24 28 32 29 29 29 C7 28 C5 28 |).(.(I$(2))).(.(|
00002690: 49 24 28 33 29 29 29 C7 28 C5 28 49 24 28 34 29 |I$(3))).(.(I$(4)|
000026A0: 29 29 00 AC 2E F6 07 8D 32 38 38 38 00 CA 2E F7 |))......2888....|
000026B0: 07 99 A3 31 30 29 22 11 11 12 05 41 99 92 4E 4F |...10)"....A..NO|
000026C0: 54 48 45 52 20 43 4F 44 45 22 00 E6 2E F8 07 99 |THER CODE"......|
000026D0: A3 31 30 29 22 11 12 05 54 99 92 45 53 54 20 43 |.10)"...T..EST C|
000026E0: 48 41 4E 47 45 22 00 04 2F FA 07 99 A3 31 30 29 |HANGE"../....10)|
000026F0: 22 11 12 05 45 99 92 58 49 54 20 54 4F 20 53 54 |"...E..XIT TO ST|
00002700: 41 52 54 22 00 0E 2F FC 07 8D 31 35 32 31 00 25 |ART"../...1521.%|
00002710: 2F FE 07 8D 31 35 32 32 3A 8B 41 24 B2 22 41 22 |/...1522:.A$."A"|
00002720: A7 32 30 31 36 00 5D 2F 00 08 8B 41 24 B2 22 54 |.2016.]/...A$."T|
00002730: 22 A7 98 34 2C 22 41 42 43 44 45 46 47 48 49 4A |"..4,"ABCDEFGHIJ|
00002740: 4B 4C 4D 4E 4F 50 51 52 53 54 55 56 57 58 59 5A |KLMNOPQRSTUVWXYZ|
00002750: 22 3A 8D 32 38 38 38 3A 89 32 30 34 36 00 6B 2F |":.2888:.2046.k/|
00002760: 02 08 8B 41 24 B2 22 45 22 A7 8E 00 7A 2F 04 08 |...A$."E"...z/..|
00002770: 8D 36 30 32 3A 89 32 30 34 36 00 86 2F 26 0B 8F |.602:.2046../&..|
00002780: 2D 53 45 54 55 50 00 B8 2F 28 0B 99 22 9E 93 20 |-SETUP../(..".. |
00002790: 12 20 20 20 20 50 52 49 4E 54 45 52 20 4F 52 20 |. PRINTER OR |
000027A0: 49 4E 54 45 52 46 41 43 45 20 43 4F 4E 46 49 47 |INTERFACE CONFIG|
000027B0: 55 52 45 20 20 20 20 22 00 DD 2F 29 0B 8B 50 B3 |URE "../)..P.|
000027C0: B1 30 A7 99 22 99 11 20 43 55 52 52 45 4E 54 20 |.0..".. CURRENT |
000027D0: 4F 50 54 49 4F 4E 20 49 53 3A 9E 22 50 00 03 30 |OPTION IS:."P..0|
000027E0: 2A 0B 99 22 11 20 99 50 52 45 53 53 20 12 05 31 |*..". .PRESS ..1|
000027F0: 99 92 20 20 43 41 52 44 43 4F 20 41 2C 20 31 35 |.. CARDCO A, 15|
00002800: 32 35 22 00 32 30 2C 0B 99 A3 37 29 22 12 05 32 |25".20,...7)"..2|
00002810: 99 92 20 20 50 52 49 4E 54 45 52 53 20 57 2F 20 |.. PRINTERS W/ |
00002820: 47 52 41 50 48 49 43 20 49 4E 54 45 52 46 41 43 |GRAPHIC INTERFAC|
00002830: 45 22 00 58 30 2E 0B 99 A3 37 29 22 12 05 33 99 |E".X0....7)"..3.|
00002840: 92 20 20 31 35 32 36 2C 20 4D 50 53 38 30 31 2F |. 1526, MPS801/|
00002850: 38 30 32 2F 38 30 33 22 00 79 30 2F 0B 99 A3 37 |802/803".y0/...7|
00002860: 29 22 12 05 34 99 92 20 20 50 52 49 4E 54 20 54 |)"..4.. PRINT T|
00002870: 4F 20 53 43 52 45 45 4E 22 00 A9 30 30 0B 8B 50 |O SCREEN"..00..P|
00002880: B3 B1 30 A7 99 22 11 11 20 20 20 4F 52 20 20 12 |..0..".. OR .|
00002890: 05 53 99 92 45 4E 44 20 50 52 49 4E 54 45 52 20 |.S..END PRINTER |
000028A0: 43 4F 4D 4D 41 4E 44 53 22 00 D0 30 32 0B 8B 50 |COMMANDS"..02..P|
000028B0: B3 B1 30 A7 99 A3 37 29 22 11 11 12 05 45 99 92 |..0...7)"....E..|
000028C0: 58 49 54 20 54 4F 20 43 4F 4E 54 49 4E 55 45 22 |XIT TO CONTINUE"|
000028D0: 00 DA 30 34 0B 8D 31 35 32 31 00 E4 30 36 0B 8D |..04..1521..06..|
000028E0: 31 35 32 32 00 F2 30 38 0B 8B 41 24 B2 22 45 22 |1522..08..A$."E"|
000028F0: A7 8E 00 04 31 3A 0B 8B 41 24 B2 22 53 22 A7 89 |....1:..A$."S"..|
00002900: 31 39 37 38 00 15 31 3C 0B 50 B2 C5 28 41 24 29 |1978..1<.P..(A$)|
00002910: 3A 50 46 B2 34 00 2E 31 3E 0B 8B 50 B2 31 A7 42 |:PF.4..1>..P.1.B|
00002920: 31 24 B2 C7 28 31 30 29 3A 89 32 38 35 36 00 46 |1$..(10):.2856.F|
00002930: 31 40 0B 8B 50 B2 32 A7 42 31 24 B2 C7 28 30 29 |1@..P.2.B1$..(0)|
00002940: 3A 89 32 38 35 36 00 5E 31 42 0B 8B 50 B2 33 A7 |:.2856.^1B..P.3.|
00002950: 42 31 24 B2 C7 28 30 29 3A 89 32 38 35 36 00 7B |B1$..(0):.2856.{|
00002960: 31 43 0B 8B 50 B2 34 A7 42 31 24 B2 C7 28 30 29 |1C..P.4.B1$..(0)|
00002970: 3A 50 46 B2 33 3A 89 32 38 35 36 00 8A 31 44 0B |:PF.3:.2856..1D.|
00002980: 8D 36 30 32 3A 89 32 38 37 30 00 9B 31 46 0B 8F |.602:.2870..1F..|
00002990: 2D 54 45 52 4D 49 4E 41 54 4F 52 00 B6 31 48 0B |-TERMINATOR..1H.|
000029A0: 91 50 89 32 38 39 30 2C 32 38 39 32 2C 32 38 39 |.P.2890,2892,289|
000029B0: 34 2C 32 38 39 32 00 C5 31 4A 0B 98 50 46 2C 42 |4,2892..1J..PF,B|
000029C0: 31 24 3B 3A 8E 00 D3 31 4C 0B 98 50 46 2C 42 31 |1$;:...1L..PF,B1|
000029D0: 24 3A 8E 00 DD 31 4E 0B 98 50 46 3A 8E 00 EB 31 |$:...1N..PF:...1|
000029E0: 50 0B 8F 2D 4A 55 4D 50 20 54 4F 00 1F 32 52 0B |P..-JUMP TO..2R.|
000029F0: 85 22 93 99 11 20 53 54 41 52 54 20 41 54 20 52 |."... START AT R|
00002A00: 45 43 4F 52 44 9E 3F 20 31 9D 9D 9D 22 3B 53 3A |ECORD.? 1...";S:|
00002A10: 8B 53 B1 58 20 B0 20 53 B3 31 A7 32 38 39 38 00 |.S.X . S.1.2898.|
00002A20: 2A 32 54 0B 8B 53 B2 31 A7 8E 00 5C 32 56 0B 81 |*2T..S.1...\2V..|
00002A30: 49 B2 31 A4 53 AB 31 3A 99 22 91 20 42 59 50 41 |I.1.S.1:.". BYPA|
00002A40: 53 53 49 4E 47 20 52 45 43 4F 52 44 20 23 22 C4 |SSING RECORD #".|
00002A50: 28 49 29 22 20 4F 46 22 C4 28 58 29 00 86 32 58 |(I)" OF".(X)..2X|
00002A60: 0B 81 4E B2 31 A4 46 3A 84 35 2C 52 45 43 24 28 |..N.1.F:.5,REC$(|
00002A70: 4E 29 3A 82 4E 3A 8D 31 36 31 38 3A 8B 45 54 B2 |N):.N:.1618:.ET.|
00002A80: 38 A7 31 35 32 38 00 8F 32 5A 0B 82 49 3A 8E 00 |8.1528..2Z..I:..|
00002A90: 9C 32 5C 0B 8F 2D 52 45 50 4F 52 54 00 CE 32 5E |.2\..-REPORT..2^|
00002AA0: 0B 99 22 99 93 11 12 52 45 50 4F 52 54 20 53 49 |.."....REPORT SI|
00002AB0: 5A 45 92 20 55 50 20 54 4F 20 31 33 36 20 43 48 |ZE. UP TO 136 CH|
00002AC0: 41 52 41 43 54 45 52 20 57 49 44 45 2E 22 00 FB |ARACTER WIDE."..|
00002AD0: 32 60 0B 99 22 11 4D 4F 44 49 46 59 20 50 52 49 |2`..".MODIFY PRI|
00002AE0: 4E 54 45 52 20 46 4F 52 20 57 49 44 54 48 53 20 |NTER FOR WIDTHS |
00002AF0: 3E 20 38 30 20 43 48 52 53 2E 22 00 30 33 66 0B |> 80 CHRS.".03f.|
00002B00: 99 22 11 4E 55 4D 42 45 52 20 4F 46 20 43 48 41 |.".NUMBER OF CHA|
00002B10: 52 41 43 54 45 52 53 9E 3F 22 3A 99 22 3F 20 20 |RACTERS.?":."? |
00002B20: 20 9D 9D 9D 22 3B 50 57 3A 85 22 91 22 3B 50 57 | ...";PW:.".";PW|
00002B30: 00 41 33 68 0B 8B 50 57 B1 31 33 36 A7 32 39 31 |.A3h..PW.136.291|
00002B40: 38 00 71 33 6A 0B 99 22 93 11 12 99 54 49 54 4C |8.q3j.."....TITL|
00002B50: 45 20 46 4F 52 4D 41 54 92 20 55 50 20 54 4F 20 |E FORMAT. UP TO |
00002B60: 34 20 54 49 54 4C 45 20 4C 49 4E 45 53 20 4F 46 |4 TITLE LINES OF|
00002B70: 22 00 9C 33 6C 0B 99 22 49 4E 46 4F 52 4D 41 54 |"..3l.."INFORMAT|
00002B80: 49 4F 4E 20 41 54 20 54 48 45 20 54 4F 50 20 4F |ION AT THE TOP O|
00002B90: 46 20 54 48 45 20 46 4F 52 4D 2E 22 00 D7 33 6E |F THE FORM."..3n|
00002BA0: 0B 99 22 11 4E 55 4D 42 45 52 20 4F 46 20 4C 49 |..".NUMBER OF LI|
00002BB0: 4E 45 53 9E 3F 22 3A 99 22 3F 20 20 20 9D 9D 9D |NES.?":."? ...|
00002BC0: 22 3B 4E 4C 3A 85 22 91 22 3B 4E 4C 3A 8B 4E 4C |";NL:.".";NL:.NL|
00002BD0: B1 34 A7 32 39 32 36 00 F2 33 6F 0B 8B 4E 4C B2 |.4.2926..3o..NL.|
00002BE0: 30 A7 54 54 24 28 31 29 B2 22 3E 22 3A 89 32 39 |0.TT$(1).">":.29|
00002BF0: 33 36 00 20 34 70 0B 81 4A B2 31 A4 4E 4C 3A 99 |36. 4p..J.1.NL:.|
00002C00: 22 99 54 49 54 4C 45 20 23 22 3B 4A 3A 99 22 9E |".TITLE #";J:.".|
00002C10: 3F 20 3E 20 20 9D 9D 9D 22 3B 54 54 24 28 4A 29 |? > ...";TT$(J)|
00002C20: 00 38 34 72 0B 8B C3 28 54 54 24 28 4A 29 29 B1 |.84r...(TT$(J)).|
00002C30: 33 37 A7 99 22 91 22 3B 00 5E 34 74 0B 85 22 91 |37..".";.^4t..".|
00002C40: 22 3B 54 54 24 28 4A 29 3A 8B 54 54 24 28 4A 29 |";TT$(J):.TT$(J)|
00002C50: B2 22 22 A7 54 54 24 28 4A 29 B2 22 3E 22 00 76 |."".TT$(J).">".v|
00002C60: 34 75 0B 54 54 24 28 4A 29 B2 C8 28 54 54 24 28 |4u.TT$(J)..(TT$(|
00002C70: 4A 29 2C 50 57 29 00 7D 34 76 0B 82 4A 00 AE 34 |J),PW).}4v..J..4|
00002C80: 78 0B 99 22 93 12 99 43 4F 4C 55 4D 4E 20 46 4F |x.."...COLUMN FO|
00002C90: 52 4D 41 54 92 20 55 50 20 54 4F 20 31 36 20 43 |RMAT. UP TO 16 C|
00002CA0: 4F 4C 55 4D 4E 53 20 57 49 54 48 20 32 22 00 CC |OLUMNS WITH 2"..|
00002CB0: 34 79 0B 99 22 53 50 41 43 45 53 20 42 45 54 57 |4y.."SPACES BETW|
00002CC0: 45 45 4E 20 43 4F 4C 55 4D 4E 53 22 00 0A 35 7A |EEN COLUMNS"..5z|
00002CD0: 0B 99 22 11 4E 55 4D 42 45 52 20 4F 46 20 43 4F |..".NUMBER OF CO|
00002CE0: 4C 55 4D 4E 53 9E 3F 22 3A 99 22 3F 20 20 20 9D |LUMNS.?":."? .|
00002CF0: 9D 9D 22 3B 4E 43 3A 85 22 91 22 3B 4E 43 3A 8B |..";NC:.".";NC:.|
00002D00: 4E 43 B1 31 36 A7 32 39 33 38 00 43 35 7C 0B 81 |NC.16.2938.C5|..|
00002D10: 4A B2 31 A4 4E 43 3A 99 22 99 50 4F 53 49 54 49 |J.1.NC:.".POSITI|
00002D20: 4F 4E 20 4F 46 20 43 4F 4C 55 4D 4E 20 23 22 3B |ON OF COLUMN #";|
00002D30: 4A 3A 99 22 9E 3F 20 20 20 9D 9D 9D 22 3B 50 43 |J:.".? ...";PC|
00002D40: 28 4A 29 00 55 35 7E 0B 85 22 91 22 3B 50 43 28 |(J).U5~..".";PC(|
00002D50: 4A 29 3A 82 4A 00 86 35 80 0B 99 22 93 12 99 48 |J):.J..5..."...H|
00002D60: 45 41 44 49 4E 47 20 46 4F 52 4D 41 54 92 20 43 |EADING FORMAT. C|
00002D70: 4F 4C 55 4D 4E 20 48 45 41 44 49 4E 47 53 20 43 |OLUMN HEADINGS C|
00002D80: 41 4E 4E 4F 54 22 00 A7 35 82 0B 99 22 45 58 43 |ANNOT"..5..."EXC|
00002D90: 45 45 44 20 57 49 44 54 48 20 4F 46 20 43 4F 4C |EED WIDTH OF COL|
00002DA0: 55 4D 4E 53 3A 11 22 00 CF 35 84 0B 81 4A B2 31 |UMNS:."..5...J.1|
00002DB0: A4 4E 43 3A 99 22 99 43 4F 4C 55 4D 4E 9E 22 3B |.NC:.".COLUMN.";|
00002DC0: 4A 3B 22 99 20 48 45 41 44 49 4E 47 9E 22 3B 00 |J;". HEADING.";.|
00002DD0: EA 35 86 0B 8B 4A B2 4E 43 A7 99 50 57 AB 50 43 |.5...J.NC..PW.PC|
00002DE0: 28 4A 29 3B 3A 89 32 39 35 34 00 00 36 88 0B 99 |(J);:.2954..6...|
00002DF0: 50 43 28 4A AA 31 29 AB 32 AB 50 43 28 4A 29 3B |PC(J.1).2.PC(J);|
00002E00: 00 19 36 8A 0B 99 22 99 20 43 48 41 52 41 43 54 |..6...". CHARACT|
00002E10: 45 52 53 20 57 49 44 45 22 00 53 36 8C 0B 99 22 |ERS WIDE".S6..."|
00002E20: 9E 3F 20 3E 20 20 9D 9D 9D 22 3B 48 43 24 28 4A |.? > ...";HC$(J|
00002E30: 29 3A 85 22 91 22 3B 48 43 24 28 4A 29 3A 8B 48 |):.".";HC$(J):.H|
00002E40: 43 24 28 4A 29 B2 22 22 A7 48 43 24 28 4A 29 B2 |C$(J)."".HC$(J).|
00002E50: 22 3E 22 00 5A 36 8E 0B 82 4A 00 8C 36 90 0B 99 |">".Z6...J..6...|
00002E60: 22 93 99 43 48 4F 4F 53 45 20 57 48 49 43 48 20 |"..CHOOSE WHICH |
00002E70: 46 49 45 4C 44 53 20 47 4F 20 55 4E 44 45 52 20 |FIELDS GO UNDER |
00002E80: 54 48 45 20 43 4F 4C 55 4D 4E 53 22 00 CA 36 92 |THE COLUMNS"..6.|
00002E90: 0B 99 22 91 45 4E 54 45 52 20 05 12 30 99 92 20 |..".ENTER ..0.. |
00002EA0: 49 46 20 41 44 44 49 54 49 4F 4E 41 4C 20 46 49 |IF ADDITIONAL FI|
00002EB0: 45 4C 44 53 20 41 52 45 22 3A 99 22 4E 4F 54 20 |ELDS ARE":."NOT |
00002EC0: 44 45 53 49 52 45 44 2E 11 22 00 EC 36 94 0B 81 |DESIRED.."..6...|
00002ED0: 4E B2 31 A4 46 3A 99 22 12 05 22 3B 4E 3B 22 92 |N.1.F:."..";N;".|
00002EE0: 99 20 22 3B 46 24 28 4E 29 3A 82 4E 00 17 37 96 |. ";F$(N):.N..7.|
00002EF0: 0B 81 4A B2 31 A4 4E 43 3A 99 22 13 11 11 11 11 |..J.1.NC:.".....|
00002F00: 22 3B A3 32 35 29 22 99 43 4F 4C 55 4D 4E 9E 22 |";.25)".COLUMN."|
00002F10: 3B 4A 3B 22 11 11 22 00 45 37 98 0B 81 4C B2 31 |;J;"..".E7...L.1|
00002F20: A4 33 3A 99 A3 32 35 29 22 91 99 46 49 45 4C 44 |.3:..25)"..FIELD|
00002F30: 9E 22 3B 4C 3B 22 20 30 20 9D 9D 22 3B 52 50 24 |.";L;" 0 ..";RP$|
00002F40: 28 4A 2C 4C 29 00 64 37 9A 0B 99 A3 33 32 29 3B |(J,L).d7....32);|
00002F50: 22 91 22 3B 3A 85 52 50 24 28 4A 2C 4C 29 3A 82 |".";:.RP$(J,L):.|
00002F60: 4C 3A 82 4A 00 9D 37 9C 0B 99 22 93 99 44 4F 20 |L:.J..7..."..DO |
00002F70: 59 4F 55 20 57 49 53 48 20 54 4F 20 53 55 4D 20 |YOU WISH TO SUM |
00002F80: 54 48 45 20 44 41 54 41 20 49 4E 20 43 4F 4C 55 |THE DATA IN COLU|
00002F90: 4D 4E 9E 22 C4 28 4E 43 29 22 99 3F 22 00 CC 37 |MN.".(NC)".?"..7|
00002FA0: 9E 0B 99 22 54 48 49 53 20 43 4F 4C 55 4D 4E 20 |..."THIS COLUMN |
00002FB0: 4D 55 53 54 20 4F 4E 4C 59 20 42 45 20 46 4F 52 |MUST ONLY BE FOR|
00002FC0: 4D 41 54 54 45 44 20 57 49 54 48 22 00 03 38 A0 |MATTED WITH"..8.|
00002FD0: 0B 99 22 4F 4E 4C 59 20 4F 4E 45 20 46 49 45 4C |.."ONLY ONE FIEL|
00002FE0: 44 2E 20 45 4E 54 45 52 20 05 12 31 99 92 20 28 |D. ENTER ..1.. (|
00002FF0: 59 45 53 29 20 4F 52 20 05 12 30 99 92 20 28 4E |YES) OR ..0.. (N|
00003000: 30 29 22 00 17 38 A2 0B 99 22 11 9E 3F 22 3B 5A |0)"..8..."..?";Z|
00003010: 3A 85 22 91 22 3B 5A 00 4B 38 A4 0B 99 22 93 11 |:.".";Z.K8..."..|
00003020: 11 99 44 4F 20 59 4F 55 20 57 49 53 48 20 54 4F |..DO YOU WISH TO|
00003030: 20 52 45 56 49 45 57 20 59 4F 55 52 20 46 4F 52 | REVIEW YOUR FOR|
00003040: 4D 41 54 20 41 4E 44 2F 4F 52 22 00 7A 38 A6 0B |MAT AND/OR".z8..|
00003050: 99 22 4D 41 4B 45 20 43 4F 52 52 45 43 54 49 4F |."MAKE CORRECTIO|
00003060: 4E 53 3F 20 20 50 52 45 53 53 20 12 05 59 99 92 |NS? PRESS ..Y..|
00003070: 20 4F 52 20 12 05 4E 9E 92 22 00 84 38 A8 0B 8D | OR ..N.."..8...|
00003080: 31 35 32 32 00 95 38 AA 0B 8B 41 24 B2 22 59 22 |1522..8...A$."Y"|
00003090: A7 32 39 31 30 00 A6 38 AC 0B 8B 41 24 B2 22 4E |.2910..8...A$."N|
000030A0: 22 A7 32 39 39 34 00 B0 38 AE 0B 89 32 39 38 34 |".2994..8...2984|
000030B0: 00 C2 38 B0 0B 8F 2D 53 41 56 45 20 52 45 50 4F |..8...-SAVE REPO|
000030C0: 52 54 00 FA 38 B2 0B 46 4C B2 32 3A 99 22 11 99 |RT..8..FL.2:."..|
000030D0: 20 12 53 41 56 45 20 52 45 50 4F 52 54 20 46 4F | .SAVE REPORT FO|
000030E0: 52 4D 41 54 92 3F 20 20 20 20 20 12 05 59 99 92 |RMAT.? ..Y..|
000030F0: 20 4F 52 20 12 05 4E 9E 92 22 00 04 39 B4 0B 8D | OR ..N.."..9...|
00003100: 31 35 32 32 00 15 39 B6 0B 8B 41 24 B2 22 4E 22 |1522..9...A$."N"|
00003110: A7 33 31 31 38 00 26 39 B8 0B 8B 41 24 B2 22 59 |.3118.&9...A$."Y|
00003120: 22 A7 33 30 30 34 00 30 39 BA 0B 89 32 39 39 36 |".3004.09...2996|
00003130: 00 6C 39 BC 0B 99 22 11 99 53 41 56 45 20 55 4E |.l9..."..SAVE UN|
00003140: 44 45 52 20 57 48 41 54 20 46 49 4C 45 20 4E 41 |DER WHAT FILE NA|
00003150: 4D 45 9E 3F 22 3A 8B 52 46 24 B2 44 24 B0 52 46 |ME.?":.RF$.D$.RF|
00003160: 24 B2 22 22 A7 52 46 24 B2 4E 46 24 00 91 39 BE |$."".RF$.NF$..9.|
00003170: 0B 99 22 11 20 20 22 3B 52 46 24 3A 85 22 91 22 |..". ";RF$:."."|
00003180: 3B 52 46 24 3A 8B 52 46 24 B2 22 22 A7 33 31 31 |;RF$:.RF$."".311|
00003190: 38 00 C1 39 C0 0B 9F 31 35 2C 38 2C 31 35 3A 98 |8..9...15,8,15:.|
000031A0: 31 35 2C 22 53 30 3A 52 50 5D 20 22 AA 52 46 24 |15,"S0:RP] ".RF$|
000031B0: 3A 8D 31 36 31 38 3A 8B 45 54 B2 38 A7 33 31 31 |:.1618:.ET.8.311|
000031C0: 38 00 F1 39 C2 0B 9F 35 2C 38 2C 35 2C 22 30 3A |8..9...5,8,5,"0:|
000031D0: 52 50 5D 20 22 AA 52 46 24 AA 22 2C 53 2C 57 22 |RP] ".RF$.",S,W"|
000031E0: 3A 8D 31 36 31 38 3A 8B 45 54 B2 38 A7 33 31 31 |:.1618:.ET.8.311|
000031F0: 38 00 1A 3A C4 0B 98 35 2C 50 57 3B 43 52 24 3B |8..:...5,PW;CR$;|
00003200: 4E 4C 3B 43 52 24 3B 4E 43 3A 8D 31 36 31 38 3A |NL;CR$;NC:.1618:|
00003210: 8B 45 54 B2 38 A7 33 31 31 38 00 3C 3A C6 0B 81 |.ET.8.3118.<:...|
00003220: 4A B2 31 A4 4E 4C 3A 8B 54 54 24 28 4A 29 B2 22 |J.1.NL:.TT$(J)."|
00003230: 22 A7 54 54 24 28 4A 29 B2 22 3E 22 00 5B 3A C8 |".TT$(J).">".[:.|
00003240: 0B 98 35 2C 54 54 24 28 4A 29 3A 8D 31 36 31 38 |..5,TT$(J):.1618|
00003250: 3A 8B 45 54 B2 38 A7 33 31 31 38 00 62 3A CA 0B |:.ET.8.3118.b:..|
00003260: 82 4A 00 6E 3A CC 0B 81 49 B2 31 A4 4E 43 00 97 |.J.n:...I.1.NC..|
00003270: 3A CE 0B 98 35 2C 50 43 28 49 29 3B 43 52 24 3B |:...5,PC(I);CR$;|
00003280: 48 43 24 28 49 29 3A 8D 31 36 31 38 3A 8B 45 54 |HC$(I):.1618:.ET|
00003290: B2 38 A7 33 31 31 38 00 A2 3A D0 0B 81 4E B2 31 |.8.3118..:...N.1|
000032A0: A4 33 00 C3 3A D2 0B 98 35 2C 52 50 24 28 49 2C |.3..:...5,RP$(I,|
000032B0: 4E 29 3A 8D 31 36 31 38 3A 8B 45 54 B2 38 A7 33 |N):.1618:.ET.8.3|
000032C0: 31 31 38 00 ED 3A D4 0B 82 4E 3A 82 49 3A 98 35 |118..:...N:.I:.5|
000032D0: 2C C4 28 5A 29 3B 43 52 24 3B 45 24 3A 8D 31 36 |,.(Z);CR$;E$:.16|
000032E0: 31 38 3A 8B 45 54 B2 38 A7 33 31 31 38 00 FE 3A |18:.ET.8.3118..:|
000032F0: D6 0B A0 35 3A A0 31 35 3A 89 33 31 31 38 00 0B |...5:.15:.3118..|
00003300: 3B D8 0B 8F 2D 4C 41 42 45 4C 53 00 3D 3B DA 0B |;...-LABELS.=;..|
00003310: 99 22 9E 93 20 12 20 20 20 20 20 20 20 20 20 20 |.".. . |
00003320: 20 20 20 4C 41 42 45 4C 20 46 4F 52 4D 41 54 20 | LABEL FORMAT |
00003330: 20 20 20 20 20 20 20 20 20 20 20 20 22 00 6C 3B | ".l;|
00003340: DC 0B 99 22 11 99 54 48 49 53 20 46 4F 52 4D 41 |..."..THIS FORMA|
00003350: 54 20 55 53 45 53 20 31 20 54 4F 20 34 20 41 43 |T USES 1 TO 4 AC|
00003360: 52 4F 53 53 20 4C 41 42 45 4C 53 2E 00 9A 3B DE |ROSS LABELS...;.|
00003370: 0B 99 22 45 41 43 48 20 4C 41 42 45 4C 20 43 4F |.."EACH LABEL CO|
00003380: 4E 54 41 49 4E 53 20 55 50 20 54 4F 9E 22 54 25 |NTAINS UP TO."T%|
00003390: AB 31 22 99 20 52 4F 57 53 2E 00 C7 3B E0 0B 99 |.1". ROWS...;...|
000033A0: 22 45 41 43 48 20 52 4F 57 20 43 41 4E 20 43 4F |"EACH ROW CAN CO|
000033B0: 4E 53 49 53 54 20 4F 46 20 31 20 54 4F 20 33 20 |NSIST OF 1 TO 3 |
000033C0: 46 49 45 4C 44 53 2E 00 F5 3B E2 0B 99 22 49 46 |FIELDS...;..."IF|
000033D0: 20 54 48 45 20 4C 45 4E 47 54 48 20 4F 46 20 4D | THE LENGTH OF M|
000033E0: 55 4C 54 49 50 4C 45 20 49 54 45 4D 53 20 45 58 |ULTIPLE ITEMS EX|
000033F0: 43 45 45 44 53 00 28 3C E4 0B 99 22 9D 9E 22 4C |CEEDS.(<...".."L|
00003400: 57 22 99 43 48 41 52 41 43 54 45 52 53 2C 20 53 |W".CHARACTERS, S|
00003410: 4F 4D 45 20 44 41 54 41 20 57 49 4C 4C 20 42 45 |OME DATA WILL BE|
00003420: 20 43 55 54 4F 46 46 22 00 59 3C E6 0B 99 22 11 | CUTOFF".Y<...".|
00003430: 12 99 4E 55 4D 42 45 52 20 4F 46 20 52 4F 57 53 |..NUMBER OF ROWS|
00003440: 9E 3F 22 3A 99 22 3F 20 20 20 9D 9D 9D 22 3B 52 |.?":."? ...";R|
00003450: 57 3A 85 22 91 22 3B 52 57 00 73 3C E8 0B 8B 52 |W:.".";RW.s<...R|
00003460: 57 B1 54 25 AB 31 A7 99 22 91 91 91 22 3A 89 33 |W.T%.1.."...":.3|
00003470: 30 34 36 00 82 3C EA 0B 8B 52 57 B2 30 A7 33 31 |046..<...RW.0.31|
00003480: 31 38 00 AE 3C EC 0B 99 22 93 99 43 48 4F 4F 53 |18..<..."..CHOOS|
00003490: 45 20 57 48 49 43 48 20 46 49 45 4C 44 53 20 47 |E WHICH FIELDS G|
000034A0: 4F 20 49 4E 20 45 41 43 48 20 52 4F 57 22 00 EB |O IN EACH ROW"..|
000034B0: 3C EE 0B 99 22 45 4E 54 45 52 20 05 12 30 99 92 |<..."ENTER ..0..|
000034C0: 20 49 46 20 41 44 44 49 54 49 4F 4E 41 4C 20 46 | IF ADDITIONAL F|
000034D0: 49 45 4C 44 53 20 41 52 45 22 3A 99 22 4E 4F 54 |IELDS ARE":."NOT|
000034E0: 20 44 45 53 49 52 45 44 2E 11 22 00 0D 3D F0 0B | DESIRED.."..=..|
000034F0: 81 4E B2 31 A4 46 3A 99 22 05 12 22 3B 4E 3B 22 |.N.1.F:."..";N;"|
00003500: 99 92 20 22 3B 46 24 28 4E 29 3A 82 4E 00 36 3D |.. ";F$(N):.N.6=|
00003510: F2 0B 81 20 4A B2 31 A4 52 57 3A 99 22 13 11 11 |... J.1.RW:."...|
00003520: 11 11 22 3B A3 32 35 29 22 99 52 4F 57 9E 22 3B |..";.25)".ROW.";|
00003530: 4A 3B 22 11 11 22 00 64 3D F4 0B 81 4C B2 31 A4 |J;"..".d=...L.1.|
00003540: 33 3A 99 A3 32 35 29 22 91 99 46 49 45 4C 44 9E |3:..25)"..FIELD.|
00003550: 22 3B 4C 3B 22 20 30 20 9D 9D 22 3B 4D 4C 24 28 |";L;" 0 ..";ML$(|
00003560: 4A 2C 4C 29 00 7D 3D F6 0B 99 A3 33 32 29 3B 22 |J,L).}=....32);"|
00003570: 91 22 3B 3A 85 4D 4C 24 28 4A 2C 4C 29 00 84 3D |.";:.ML$(J,L)..=|
00003580: F8 0B 82 4C 00 8B 3D FA 0B 82 4A 00 BF 3D FC 0B |...L..=...J..=..|
00003590: 99 22 93 11 11 99 44 4F 20 59 4F 55 20 57 49 53 |."....DO YOU WIS|
000035A0: 48 20 54 4F 20 52 45 56 49 45 57 20 59 4F 55 52 |H TO REVIEW YOUR|
000035B0: 20 46 4F 52 4D 41 54 20 41 4E 44 2F 4F 52 22 00 | FORMAT AND/OR".|
000035C0: EE 3D FE 0B 99 22 4D 41 4B 45 20 43 4F 52 52 45 |.=..."MAKE CORRE|
000035D0: 43 54 49 4F 4E 53 3F 20 20 50 52 45 53 53 20 05 |CTIONS? PRESS .|
000035E0: 12 59 92 99 20 4F 52 20 05 12 4E 9E 92 22 00 F8 |.Y.. OR ..N.."..|
000035F0: 3D 00 0C 8D 31 35 32 32 00 09 3E 02 0C 8B 41 24 |=...1522..>...A$|
00003600: B2 22 59 22 A7 33 30 33 34 00 1A 3E 04 0C 8B 41 |."Y".3034..>...A|
00003610: 24 B2 22 4E 22 A7 33 30 38 32 00 24 3E 06 0C 89 |$."N".3082.$>...|
00003620: 33 30 37 32 00 35 3E 08 0C 8F 2D 53 41 56 45 20 |3072.5>...-SAVE |
00003630: 4C 41 42 45 4C 00 6D 3E 0A 0C 46 4C B2 33 3A 99 |LABEL.m>..FL.3:.|
00003640: 22 11 12 99 53 41 56 45 20 4C 41 42 45 4C 20 46 |"...SAVE LABEL F|
00003650: 4F 52 4D 41 54 92 3F 20 20 20 20 20 20 20 12 05 |ORMAT.? ..|
00003660: 59 99 92 20 4F 52 20 05 12 4E 9E 92 22 00 77 3E |Y.. OR ..N..".w>|
00003670: 0C 0C 8D 31 35 32 32 00 88 3E 0E 0C 8B 41 24 B2 |...1522..>...A$.|
00003680: 22 4E 22 A7 33 31 31 38 00 99 3E 10 0C 8B 41 24 |"N".3118..>...A$|
00003690: B2 22 59 22 A7 33 30 39 32 00 A3 3E 12 0C 89 33 |."Y".3092..>...3|
000036A0: 30 38 34 00 DF 3E 14 0C 99 22 11 99 53 41 56 45 |084..>..."..SAVE|
000036B0: 20 55 4E 44 45 52 20 57 48 41 54 20 46 49 4C 45 | UNDER WHAT FILE|
000036C0: 20 4E 41 4D 45 9E 3F 22 3A 8B 4D 46 24 B2 44 24 | NAME.?":.MF$.D$|
000036D0: B0 4D 46 24 B2 22 22 A7 4D 46 24 B2 4E 46 24 00 |.MF$."".MF$.NF$.|
000036E0: 04 3F 16 0C 99 22 11 20 20 22 3B 4D 46 24 3A 85 |.?...". ";MF$:.|
000036F0: 22 91 22 3B 4D 46 24 3A 8B 4D 46 24 B2 22 22 A7 |".";MF$:.MF$."".|
00003700: 33 31 31 38 00 34 3F 18 0C 9F 31 35 2C 38 2C 31 |3118.4?...15,8,1|
00003710: 35 3A 98 31 35 2C 22 53 30 3A 4D 4C 5D 20 22 AA |5:.15,"S0:ML] ".|
00003720: 4D 46 24 3A 8D 31 36 31 38 3A 8B 45 54 B2 38 A7 |MF$:.1618:.ET.8.|
00003730: 33 31 31 38 00 64 3F 1A 0C 9F 35 2C 38 2C 35 2C |3118.d?...5,8,5,|
00003740: 22 30 3A 4D 4C 5D 20 22 AA 4D 46 24 AA 22 2C 53 |"0:ML] ".MF$.",S|
00003750: 2C 57 22 3A 8D 31 36 31 38 3A 8B 45 54 B2 38 A7 |,W":.1618:.ET.8.|
00003760: 33 31 31 38 00 6E 3F 1C 0C 98 35 2C 52 57 00 81 |3118.n?...5,RW..|
00003770: 3F 1E 0C 81 49 B2 31 A4 52 57 3A 81 4E B2 31 A4 |?...I.1.RW:.N.1.|
00003780: 33 00 A2 3F 20 0C 98 35 2C 4D 4C 24 28 49 2C 4E |3..? ..5,ML$(I,N|
00003790: 29 3A 8D 31 36 31 38 3A 8B 45 54 B2 38 A7 33 31 |):.1618:.ET.8.31|
000037A0: 31 38 00 AC 3F 22 0C 82 4E 3A 82 49 00 CA 3F 26 |18..?"..N:.I..?&|
000037B0: 0C 98 35 2C 22 45 4F 46 22 3A 8D 31 36 31 38 3A |..5,"EOF":.1618:|
000037C0: 8B 45 54 B2 38 A7 33 31 31 38 00 D5 3F 28 0C A0 |.ET.8.3118..?(..|
000037D0: 35 3A A0 31 35 00 E9 3F 2C 0C 8F 2D 50 52 49 4E |5:.15..?,..-PRIN|
000037E0: 54 20 4F 50 54 49 4F 4E 53 00 19 40 2E 0C 99 22 |T OPTIONS..@..."|
000037F0: 9E 93 20 12 20 20 20 20 20 20 20 20 20 50 52 49 |.. . PRI|
00003800: 4E 54 20 4F 50 54 49 4F 4E 53 20 4D 45 4E 55 20 |NT OPTIONS MENU |
00003810: 20 20 20 20 20 20 20 20 22 00 3E 40 2F 0C 99 22 | ".>@/.."|
00003820: 99 11 20 43 55 52 52 45 4E 54 20 52 45 43 4F 52 |.. CURRENT RECOR|
00003830: 44 20 46 49 4C 45 3A 20 9E 12 22 4E 46 24 00 71 |D FILE: .."NF$.q|
00003840: 40 30 0C 99 22 99 20 43 55 52 52 45 4E 54 20 46 |@0..". CURRENT F|
00003850: 4F 52 4D 41 54 20 46 49 4C 45 3A 20 9E 12 22 3B |ORMAT FILE: ..";|
00003860: 3A 8B 4B B2 32 A7 99 52 46 24 3B 3A 89 33 31 32 |:.K.2..RF$;:.312|
00003870: 32 00 80 40 31 0C 8B 4B B2 33 A7 99 4D 46 24 3B |2..@1..K.3..MF$;|
00003880: 00 A1 40 32 0C 99 3A 99 A3 37 29 22 11 12 05 4C |..@2..:..7)"...L|
00003890: 99 92 4F 41 44 20 4F 4C 44 20 46 4F 52 4D 41 54 |..OAD OLD FORMAT|
000038A0: 22 00 C5 40 33 0C 99 A3 37 29 22 11 12 05 43 99 |"..@3...7)"...C.|
000038B0: 92 52 45 41 54 45 2F 43 48 41 4E 47 45 20 46 4F |.REATE/CHANGE FO|
000038C0: 52 4D 41 54 22 00 E8 40 34 0C 99 A3 37 29 22 11 |RMAT"..@4...7)".|
000038D0: 12 05 53 99 92 41 56 45 20 43 55 52 52 45 4E 54 |..S..AVE CURRENT|
000038E0: 20 46 4F 52 4D 41 54 22 00 05 41 35 0C 99 A3 37 | FORMAT"..A5...7|
000038F0: 29 22 11 12 05 50 99 92 52 49 4E 54 20 52 45 43 |)"...P..RINT REC|
00003900: 4F 52 44 53 22 00 2B 41 36 0C 99 A3 37 29 22 11 |ORDS".+A6...7)".|
00003910: 12 05 24 99 92 20 44 49 53 4B 20 44 49 52 45 43 |..$.. DISK DIREC|
00003920: 54 4F 52 59 20 12 05 34 99 92 22 00 3F 41 38 0C |TORY ..4..".?A8.|
00003930: 99 A3 37 29 22 11 12 05 45 99 92 58 49 54 22 00 |..7)"...E..XIT".|
00003940: 49 41 3A 0C 8D 31 35 32 31 00 53 41 3C 0C 8D 31 |IA:..1521.SA<..1|
00003950: 35 32 32 00 71 41 3E 0C 8B 41 24 B2 22 4C 22 A7 |522.qA>..A$."L".|
00003960: 91 4B 89 33 31 33 32 2C 31 36 36 38 2C 31 37 30 |.K.3132,1668,170|
00003970: 34 00 8F 41 40 0C 8B 41 24 B2 22 53 22 A7 91 4B |4..A@..A$."S"..K|
00003980: 89 33 31 33 32 2C 33 30 30 34 2C 33 30 39 32 00 |.3132,3004,3092.|
00003990: AD 41 42 0C 8B 41 24 B2 22 43 22 A7 91 4B 89 33 |.AB..A$."C"..K.3|
000039A0: 31 33 32 2C 32 39 31 30 2C 33 30 33 34 00 CC 41 |132,2910,3034..A|
000039B0: 44 0C 8B 41 24 B2 22 34 22 B0 41 24 B2 22 24 22 |D..A$."4".A$."$"|
000039C0: A7 8D 31 36 32 38 3A 89 33 31 31 38 00 DD 41 45 |..1628:.3118..AE|
000039D0: 0C 8B 41 24 B2 22 50 22 A7 31 37 33 30 00 EE 41 |..A$."P".1730..A|
000039E0: 46 0C 8B 41 24 B2 22 45 22 A7 31 35 38 34 00 FD |F..A$."E".1584..|
000039F0: 41 48 0C 8D 36 30 32 3A 89 33 31 33 32 00 11 42 |AH..602:.3132..B|
00003A00: 4A 0C 8F 2D 52 49 47 48 54 20 4A 55 53 54 49 46 |J..-RIGHT JUSTIF|
00003A10: 59 00 34 42 4C 0C 44 B2 32 3A 43 4C 4D 24 B2 C4 |Y.4BL.D.2:CLM$..|
00003A20: 28 B5 28 C5 28 43 4C 4D 24 29 AC 31 30 AE 32 AA |(.(.(CLM$).10.2.|
00003A30: 2E 35 29 29 00 56 42 4E 0C 8B C8 28 43 4C 4D 24 |.5)).VBN...(CLM$|
00003A40: 2C 31 29 B2 22 20 22 A7 43 4C 4D 24 B2 CA 28 43 |,1)." ".CLM$..(C|
00003A50: 4C 4D 24 2C 44 29 00 7F 42 50 0C 8B 44 B1 C3 28 |LM$,D)..BP..D..(|
00003A60: 43 4C 4D 24 29 A7 43 4C 4D 24 B2 C9 28 22 30 30 |CLM$).CLM$..("00|
00003A70: 30 30 30 30 30 30 22 AA 43 4C 4D 24 2C 44 29 00 |000000".CLM$,D).|
00003A80: AB 42 52 0C 8B 44 A7 43 4C 4D 24 B2 C8 28 43 4C |.BR..D.CLM$..(CL|
00003A90: 4D 24 2C C3 28 43 4C 4D 24 29 AB 44 29 AA 22 2E |M$,.(CLM$).D).".|
00003AA0: 22 AA C9 28 43 4C 4D 24 2C 44 29 00 CE 42 54 0C |"..(CLM$,D)..BT.|
00003AB0: 8B C3 28 43 4C 4D 24 29 B3 43 57 A7 43 4C 4D 24 |..(CLM$).CW.CLM$|
00003AC0: B2 C9 28 53 24 AA 43 4C 4D 24 2C 43 57 29 00 EE |..(S$.CLM$,CW)..|
00003AD0: 42 56 0C 8B C3 28 43 4C 4D 24 29 B1 43 57 A7 43 |BV...(CLM$).CW.C|
00003AE0: 4C 4D 24 B2 C8 28 43 4C 4D 24 2C 43 57 29 00 FE |LM$..(CLM$,CW)..|
00003AF0: 42 58 0C 98 50 46 2C 43 4C 4D 24 3B 3A 8E 00 00 |BX..PF,CLM$;:...|
00003B00: 00 |. |
.."....FL.0.FL.1:."DP] DOS5.1",8,1.F....
FL.1.FL.2:.52224:.(C)COMMODORE.O.X..E.0.
24:.54272.E,0:.:.54296,15:.1500...Z..542
77,58:.54278,16:.54273,35:.54272,134.A.\
..54276,33:.E.1.100:.:.54276,16:.......
DFPRINT 1.7 FOR DATAFILE (C)1983-1986 BY
MIKE KONSHAK.%....:."..":.53281,0:.5328
0,0:.4,4:.3,3.C...D$."":B$.G(32):.J.1.80
:S$.S$.B$:.J:PF.4:MF$.D$:RF$.D$:P.0.....
NC.0:NL.0:PL.0:F1.0:F2.0:F3.0:L$.D$:RL.0
:SB$.D$:CR$.G(13).....A$.D$:C$.D$:T%.6:I
.0:J.0:K.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$:RW.5:LW.34:LT.1:L.0.1....-ARRAY
S.M.... ML$(17,4),PC(18),TT$(5),HC$(17),
RP$(17,4),LP(5),R$(5)...... F$(31),T%(31
),L%(31),REC$(31).....LP(1).1:LP(2).37:L
P(3).73:LP(4).109:.1530.I....-GET......"
.. . PRESS THE APPROPRIATE KEY
":.......A$:.A$."".1522.......#....-ST
ART.Z....". . DATAFILE FAST PRINT P
ROGRAM ":.1548......". . DATAFI
LE FAST PRINT REV 1.7 "......" .
BY MIKE KONSHAK (C)1986 ".....
.".. THIS PROGRAM WILL FORMAT AND PRINT
A"......" .SEQ. FILE, WHICH WAS PREVIOUS
LY CREATED".K...." BY ..DATAFILE.., DIRE
CTLY FROM THE DISK".U...." TO THE PRINTE
R. THE ORDER OF THE"......" RECORDS WIL
L BE THE SAME AS THE MOST".P...." RECENT
SORT AS WRITTEN IN THE CURRENT"......"
FILE.":.".. PRESS ..ANY KEY.. TO CONTINU
E"......1522:.2856:.1528.@.....5)"...O..
PEN RECORD FILE ON DISK".S....FL.0...5)"
...R..EPEAT RECORD FILE: .."NF$"..".....
..5)"...$.. DISK DIRECTORY ..4..".......
5)"...Q..UIT PROGRAM".K....". TRANSFER T
O:".......5)"...D.. DATAFILE DBMS"......
.5)"...C.. DFCALC CALCULATED REPORTS"...
...1521.D....1522:.A$."$".A$."4"..1628:.
1528.X....A$."D".."..LOAD"G(34)"DATAFILE
"G(34)",8":.1565......A$."O".FL.1:.1572.
A....A$."C".."..LOAD"G(34)"DFCALC"G(34)"
,8":.1565.R....A$."R".1584......A$."Q".
5: 15: 3: 4:.......602:.1558......:.:.:.
:."RUN.".D....631,19:.632,13:.633,13:.63
4,13:.635,13:.636,13.S. ..198,6:.:..C.".
.-FILE NAME...$..".. AVAILABLE RECORD FI
LES ARE:..":@"$0:DF]*".B.%.."..NAME OF R
ECORD FILE TO BE PRINTED."...&.." . ";N
F$:.". ";NF$:.NF$."".FL.0:.1528...(..15,
8,15.9.*..5,8,5,"0:DF] ".NF$.",S,R":.161
8:.EN.62..1620:FL.0:.1528.U.+..5,R,F,X:.
1618:.ET.8.1528
...,..N.1.F:.5,F$(N),L%(N):.N:.1618
:.ET.8.1528 ..... 5: 15
.../..-PRINT MENU./.0..".. .
RECORD PRINTOUT MENU ".W.1.."..
PRINT OPTIONS:";:.K..0..:.1587...2..".N
O FORMATS PRESENT."
...3...4)"...U..NFOR
MATTED LIST"...4...4)"...R..EPORT FORMAT
.."RF$...6...4)"...M..AILING LABELS ..
"MF$...7.."... CONFIGURE:".S.8...4)"...L
..ABELS:."RW".ROWS,."LW".CHRS,."LT".ACRO
SS"...:...4)"...P..RINTER: OPTION."P;:.P
.4.."...SCREEN.";...;..:..4)"...$.. DISK
DIRECTORY ..4..".P.<...4)"...E..XIT TO
RESTART".Z.>..1521...@..1522:.A$."" .160
0...B..A$."U".K.1:.1730...D..A$."R".K.2:
.3118.<.E..A$."$".A$."4"..1628:.1584.M.F
..A$."E".1528.C.H..A$."M".K.3:.3118.T.J.
.A$."L".1940...L..A$."P"..2856:.1584...N
..602:.1600...P..-DISK ERROR.Y.R..15,EN,
EM$,ET,ES:.(EN.20).(EN.62).ET.0:....T.."
. ..DISK ERROR."EN"., "EM$","ET".,"ES"."
:ET.8.=.V..".. PRESS ..ANY KEY.. TO REST
ART PROGRAM.".P.X..1522: 5: 15:..`.Z..-D
IRECTORY...\.."..";:@"$":..25)".PRESS ..
ANY KEY..":.1522:.......-LOAD REPORT.W..
..".. AVAILABLE REPORT FILES ARE.:.":@"$
0:RP]*"......".. NAME OF REPORT FORMAT F
ILE?.".&...." . .";NF$:.". ";RF$:.RF$."
".1528._....15,8,15:.5,8,5,"0:RP] ".RF$.
",S,R":.1618:.ET.8.1528.V....EN.62..1620
:.1528......5,PW,NL,NC:.1618:.ET.8.1528.
.....J.1.NL.B....5,TT$(J):.1618:.ET.8.15
28.I....J.U....I.1.NC......5,PC(I),HC$(I
):.1618:.ET.8.1528......N.1.3.A....5,RP$
(I,N):.1618:.ET.8.1528
.[....N:.I:.5,A1$:Z.E(A1$).O...
S.ST:.S..0.1698.Y. ..5,E$..... 5: 15....
..2980......-LOAD LABEL.Q....".. AVAILAB
LE LABEL FILES ARE:..":@"$0:ML]*"......"
.. NAME OF MAILING LABEL FORMAT FILE?".&
...." . .";NF$:.". ";MF$:.MF$."".1528._
....15,8,15:.5,8,5,"0:ML] ".MF$.",S,R":.
1618:.ET.8.1528.V....EN.62..1620:.1528..
....5,RW......I.1.RW:.N.1.3......5,ML$(I
,N):.1618:.ET.8.1528......N.B....I.V...S
.ST:.S..0.1726......5,E$..... 5: 15:.306
8......-OPEN FILE...B..". POSITIONING DR
IVE...".Z.C..15,8,15:.5,8,5,"0:DF] ".NF$
.",S,R":.1618:.ET.8.1528 .Q.D..EN.62..1
620:.1528...F..5,R,F,X:.1618:.ET.8.1528.
..J..N.1.F:.5,F$(N),L%(N):.N:.1618:.ET.8
.1528.K.L..-OPTIONS...N.A0.0:PG.1:PL.0:L
.0:.". .. PRINT OPTIONS MENU
".;.O..".. THERE ARE .."X"..RECORD
S IN .."NF$.].P...4)"...A..LL RECORDS IN
FILE...R...4)"...F..IND RECORDS WITH CO
MMON FIELDS...T..K.3.PF.4...4)"...T..EST
LABEL(S)".T.V...4)"...E..XIT BACK TO ST
ART"...X..K.2.."..POSITION PAPER IN PRIN
TER AT TOP OF PAGE"...Z..1521......1522.
0....A$."A".1806.A....A$."T".1918.R....A
$."F".1772.K....A$."E". 5: 15:.3118.Z...
.602:.1756......-FIND......".. . FIND
RECORDS WITH COMMON ITEMS ."......N.
1.F:." ..";N;".. ";F$(N):.N......". WHIC
H FIELD IS TO BE SEARCHED";SF.!....SF.0.
SF.F.."...":.1776.I....". ENTER ..COMMON
ITEM.. ":." (THE ENTIRE STRING IS NOT R
EQUIRED)"......" .";F$(SF);".. ";:.T$...
...".":.K.2..1838:.1852......I.1.X......
P..4.." .SEARCHING RECORD";I;".."
......N.1.F:.5,REC$(N)
:.REC$(N).">".REC$(N)." ".1....N:.1618:.
ET.8.1528.H....T$.H(REC$(SF),C(T$))..K.1
826,1870,1928:.K.2..1904.O....I......L.0
.K.3..1936..... 5: 15......K.2.1906.....
.P.4..".PRESS ..ANY KEY..":.1522.J....17
30.Z....-PRINT ALL......2898:PL.0:."..":
.P..4.K.2..".. PRINTING HEADING".%....K.
2..1838:.1852.]....I.S.X:.P..4..". READI
NG RECORD #"D(I)" OF"D(X) ......N.1.F
:.5,REC$(N):.REC$(N).">".REC$(N)." "....
..N:.1618:.ET.8.1528......K.1826,1870,19
28.I....K.2..1904.P....I..... 5: 15.....
.K.2.1906......1801... ..-NONFORMATTED.?
."..PF,"[ RECORD #";I;" ]";:.J.1.61:.P
F,"-";:.J:.2888.R.$.PL.PL.1:.N.1.F.~.&..
PF,F$(N);:.J.1.20.C(F$(N)):.PF,".";:.J..
.'..REC$(N).">".REC$(N)." ".D.(..PF,REC$
(N):PL.PL.1:.N:.2888:PL.PL.1.T.*..PL.F..
60.....+..J.1.65.PL:.2888:.J:PL.0:PG.PG.
1:.PF,"PAGE"PG:. ...,..-TITLE.S....J.1.N
L:.TT$(J)..">"..1846
.\.2..J:....6.B..((PW.C(TT$(J
))).2):.P..1.1849...8..PF,H(S$,B).TT$(J)
;B1$;:PL.PL.1:..L.9..PF,H(S$,B).TT$(J);B
1$:PL.PL.1:....:..-HEADINGS.. <..1866:PC
(NC.1).PW.3:CW.PC(2).2.PC(1):.PC(1).1.18
56.. >..PF,H(HC$(1),CW);:.1858.R @..PF,H
(S$,PC(1).1).H(HC$(1),CW);.A B..NC.1.186
2.. C..J.2.NC:M.PC(J).C(H(HC$(J.1),PC(J)
.2.PC(J.1))).PC(J.1).G D..PF,H(S$,M).H(H
C$(J),PC(J.1).2.PC(J));.N E..J.. F..2888
:.1866:PL.PL.3:... H..-DASHES..!J..J.1.P
W:.PF,"-";:.J:.2888:.. !L..-DATA.C!N.F1.
E(RP$(1,1)):F2.E(RP$(1,2)):F3.E(RP$(1,3)
):CW.PC(2).2.PC(1) ..!O..NC.1.Z.1.CLM$.R
EC$(E(RP$(1,1))):.3148:.1896..!P..PC(1).
1.1878.V!R..PF,H(REC$(F1).B$.REC$(F2).B$
.REC$(F3),CW);..!T..1882..!V..PF,H(S$,PC
(1).1);.'"X..PF,H(REC$(F1).B$.REC$(F2).B
$.REC$(F3),CW);.6"Z..NC.1.1896.U"[..J.2.
NC:CW.PC(J).2.PC(J.1).."\.F1.E(RP$(J.1,1
)):F2.E(RP$(J.1,2)):F3.E(RP$(J.1,3)).."^
.M.C(H(REC$(F1).B$.REC$(F2).B$.REC$(F3),
CW)).."`.M.PC(J).M.PC(J.1):CW.PC(J.1).2.
PC(J).."B..PF,H(S$,M);.'#C..J.NC.Z.1.CLM
$.REC$(E(RP$(J,1))):.3148:.1896.J#D.F1.E
(RP$(J,1)):F2.E(RP$(J,2)):F3.E(RP$(J,3))
..#F..PF,H(REC$(F1).B$
.REC$(F2).B$.REC$(F3),CW);..#G..J..#H..2
888:PL.PL.1..#J..PL.60..J.1.5:.2888:.J:P
L.0:.1901 ..#L....$M.PG
.PG.1:.PF,"PAGE"PG:.1852:...$N..-SUM.($P
..Z..1...H$Q.A0.A0.E(REC$(E(RP$(NC,1))))
:. .W$R..Z.
.1.1914..$T..PF,H(S$,PC(NC).1);..$V..I.1
.PW.PC(NC).1:.PF,"-";:.I:.2888.E$W..NC.1
.1913..$X..PF,H(S$,PC(NC).9)."TOTAL= ";
..%Y.CLM$.D(A0):.3148:PL.PL.2.)%Z..2888:
.PF.4..I.1.66.PL:.2888:.I.3%{..1801.>%|.
.-TEST.[%~..". PRINTING TEST LABEL"..%..
.I.1.RW:.J.1.LW:.PF,I(D(J),1);:.J:.2888:
.I..%...I.1.T%.RW:.2888:.I..%...1742..%.
..-LABELS..%..L.L.1:.J.1.RW:F1.E(ML$(J,1
)):F2.E(ML$(J,2)):F3.E(ML$(J,3)).=&..RW$
(J).RW$(J).H(REC$(F1).B$.REC$(F2).B$.REC
$(F3).S$,LW).B$.B$:.J.L&...I..X.1936.Y&.
..L..LT....&...J.1.RW:.PF,H(RW$(J),LP(LT
).LW.1):RW$(J)."":.J..&...S.1.T%.RW:.288
8:.S:L.0:...&...-LABEL SIZE..&...".. .
LABEL SIZE .".-
'...". .CURRENTLY:."RW".. ROWS,."LW".. C
HRS,."LT".. ACROSS .".]'....3)"...S..TAN
DARD - 5 ROWS, 34 CHRS, 1 UP"..'....5)"1
5/16 INCH BY 3 1/2 INCHES"..'....3)"...L
..ARGE - 8 ROWS, 34 CHRS, 1 UP".X'...
.5)"1 7/16 INCH BY 3 1/2 INCHES"..(....3
)"...C..HANGE LABEL SIZE AND TYPE"..(...
.3)"....E..XIT".G(...".. NOTE: LABELS AR
E SEPARATED BY ONE ROW".B(....7)"AND 2 C
HARACTERS".L(...1521..(...1522:.A$."E".1
584..(...A$."S".T%.6:RW.5:LW.34:.1940.G(
...A$."L".T%.9:RW.8:LW.34:.1940.X(...A$.
"C".1968..(...602:.1960..)...".. NUMBER
OF ROWS ON LABEL.?"RW.')...".".24);:.RW:
T%.RW.1.L)...". # OF CHARACTERS PER ROW.
?"LW.^)...".".24);:.LW..)...". # LABELS
ACROSS PAGE .?"LT..)...".".24);:.LT:.L
T.1.LT.4..".":.1973 ..)..LP(1).1:
LP(2).LW.2:LP(3).2.(LW.2):LP(4).3.(LW.2)
..*...1940..*...-PRI
NTER CMDS.L*...".. . PRINTER C
OMMAND .".W*...".. THIS ROUTI
NE WILL SEND CHARACTER"..*..." STRING [C
HR$()] COMMANDS TO AN ASCII".R*..." PRIN
TER. COMMANDS MUST BE ENTERED IN"..*B..
" THE FORM OF INTEGERS SUCH AS:"..+D..".
. ? 27. (CODE 1)".1+F..". ? 66.
(CODE 2)".M+H..". ? 2. (CODE 3)".F+
J..". ? *. (END)"..+L..". THIS WILL
BE SENT TO THE PRINTER AS:".A+N.."..
PRINT#4,CHR$(27)CHR$(66)CHR$(2)."..+P.."
. UP TO FOUR(4) NUMBERS MAY BE SENT,"..,
R.." THE FIRST NORMALLY BEING ..27.., TH
E".F,T.." ESCAPE CHARACTER. END THE SEQ
UENCE".W,V.." BY PRESSING ..RETURN.. WHE
N THE ASTERISK"..,X.." IS SHOWING. PRIN
TERS WILL VARY, SO".L,Z.." CHECK YOUR MA
NUAL FOR THE CODES."..,...". ..ANY KE
Y.. TO CONTINUE OR ..E..XIT?"..-...1522:
.A$."E".1584.G-...".. . SEND PRIN
TER COMMAND .".S-...".. ENTER C
ODE, THEN PRESS ..RETURN.."..-...". ..RE
TURN.. ONLY TO QUIT...".B-...I.1.4:.".CO
DE.";I;" ? * ....";:.I$(I).V-...I$(I)."*
".2028..-...I......(I.1).2030,2032,2034,
2036:.2039......4,G(E(I$(1))):.2038.?...
.4,G(E(I$(1)))G(E(I$(2))):.2038.N....4,G
(E(I$(1)))G(E(I$(2)))G(E(I$(3))):.2038..
....4,G(E(I$(1)))G(E(I$(2)))G(E(I$(3)))G
(E(I$(4)))......2888.J.....10)"....A..NO
THER CODE".......10)"...T..EST CHANGE"..
/....10)"...E..XIT TO START"../...1521.%
/...1522:.A$."A".2016.]/...A$."T"..4,"AB
CDEFGHIJKLMNOPQRSTUVWXYZ":.2888:.2046.K/
...A$."E"...Z/...602:.2046../&..-SETUP..
/(..".. . PRINTER OR INTERFACE CONFIG
URE "../)..P..0..".. CURRENT OPTION I
S:."P..0*..". .PRESS ..1.. CARDCO A, 15
25".20,...7)"..2.. PRINTERS W/ GRAPHIC
INTERFACE".X0....7)"..3.. 1526, MPS801/
802/803".Y0/...7)"..4.. PRINT TO SCREEN
"..00..P..0..".. OR ..S..END PRINTER
COMMANDS".P02..P..0...7)"....E..XIT TO C
ONTINUE".Z04..1521..06..1522..08..A$."E"
....1:..A$."S"..1978..1<.P.E(A$):PF.4..1
>..P.1.B1$.G(10):.2856.F1@..P.2.B1$.G(0)
:.2856.^1B..P.3.B1$.G(0):.2856.{1C..P.4.
B1$.G(0):PF.3:.2856..1D..602:.2870..1F..
-TERMINATOR..1H..P.2890,2892,2894,2892.E
1J..PF,B1$;:..S1L..PF,B1$:...1N..PF:...1
P..-JUMP TO..2R.."... START AT RECORD.?
1...";S:.S.X . S.1.2898.*2T..S.1...\2V..
I.1.S.1:.". BYPASSING RECORD #"D(I)" OF"
D(X)..2X..N.1.F:.5,REC$(N):.N:.1618:.ET.
8.1528..2Z..I:...2\..-REPORT.N2^.."....R
EPORT SIZE. UP TO 136 CHARACTER WIDE."..
2`..".MODIFY PRINTER FOR WIDTHS > 80 CHR
S.".03F..".NUMBER OF CHARACTERS.?":."?
...";PW:.".";PW.A3H..PW.136.2918.Q3J.."
....TITLE FORMAT. UP TO 4 TITLE LINES OF
"..3L.."INFORMATION AT THE TOP OF THE FO
RM.".W3N..".NUMBER OF LINES.?":."? ...
";NL:.".";NL:.NL.4.2926..3O..NL.0.TT$(1)
.">":.2936. 4P..J.1.NL:.".TITLE #";J:.".
? > ...";TT$(J).84R..C(TT$(J)).37..".";
.^4T..".";TT$(J):.TT$(J)."".TT$(J).">".V
4U.TT$(J).H(TT$(J),PW).}4V..J..4X.."...C
OLUMN FORMAT. UP TO 16 COLUMNS WITH 2".L
4Y.."SPACES BETWEEN COLUMNS"..5Z..".NUMB
ER OF COLUMNS.?":."? ...";NC:.".";NC:.
NC.16.2938.C5|..J.1.NC:.".POSITION OF CO
LUMN #";J:.".? ...";PC(J).U5~..".";PC(
J):.J..5..."...HEADING FORMAT. COLUMN HE
ADINGS CANNOT"..5..."EXCEED WIDTH OF COL
UMNS:.".O5...J.1.NC:.".COLUMN.";J;". HEA
DING.";..5...J.NC..PW.PC(J);:.2954..6...
PC(J.1).2.PC(J);..6...". CHARACTERS WIDE
".S6...".? > ...";HC$(J):.".";HC$(J):.H
C$(J)."".HC$(J).">".Z6...J..6..."..CHOOS
E WHICH FIELDS GO UNDER THE COLUMNS".J6.
..".ENTER ..0.. IF ADDITIONAL FIELDS ARE
":."NOT DESIRED.."..6...N.1.F:."..";N;".
. ";F$(N):.N..7...J.1.NC:.".....";.25)".
COLUMN.";J;"..".E7...L.1.3:..25)"..FIELD
.";L;" 0 ..";RP$(J,L).D7....32);".";:.RP
$(J,L):.L:.J..7..."..DO YOU WISH TO SUM
THE DATA IN COLUMN."D(NC)".?".L7..."THIS
COLUMN MUST ONLY BE FORMATTED WITH"..8
.."ONLY ONE FIELD. ENTER ..1.. (YES) OR
..0.. (N0)"..8..."..?";Z:.".";Z.K8..."..
..DO YOU WISH TO REVIEW YOUR FORMAT AND/
OR".Z8..."MAKE CORRECTIONS? PRESS ..Y..
OR ..N.."..8...1522..8...A$."Y".2910..8
...A$."N".2994..8...2984.B8...-SAVE REPO
RT..8..FL.2:.".. .SAVE REPORT FORMAT.?
..Y.. OR ..N.."..9...1522..9...A$."N"
.3118.&9...A$."Y".3004.09...2996.L9...".
.SAVE UNDER WHAT FILE NAME.?":.RF$.D$.RF
$."".RF$.NF$..9...". ";RF$:.".";RF$:.RF
$."".3118.A9...15,8,15:.15,"S0:RP] ".RF$
:.1618:.ET.8.3118..9B..5,8,5,"0:RP] ".RF
$.",S,W":.1618:.ET.8.3118..:D..5,PW;CR$;
NL;CR$;NC:.1618:.ET.8.3118.<:F..J.1.NL:.
TT$(J)."".TT$(J).">".[:H..5,TT$(J):.1618
:.ET.8.3118.B:J..J.N:L..I.1.NC..:N..5,PC
(I);CR$;HC$(I):.1618:.ET.8.3118..:P..N.1
.3.C:R..5,RP$(I,N):.1618:.ET.8.3118..:T.
.N:.I:.5,D(Z);CR$;E$:.1618:.ET.8.3118..:
V. 5: 15:.3118..;X..-LABELS.=;Z..".. .
LABEL FORMAT ".L;
..."..THIS FORMAT USES 1 TO 4 ACROSS LAB
ELS...;..."EACH LABEL CONTAINS UP TO."T%
.1". ROWS..G;..."EACH ROW CAN CONSIST OF
1 TO 3 FIELDS...;..."IF THE LENGTH OF M
ULTIPLE ITEMS EXCEEDS.(<...".."LW".CHARA
CTERS, SOME DATA WILL BE CUTOFF".Y<...".
..NUMBER OF ROWS.?":."? ...";RW:.".";R
W.S<...RW.T%.1.."...":.3046..<...RW.0.31
18..<..."..CHOOSE WHICH FIELDS GO IN EAC
H ROW"..<..."ENTER ..0.. IF ADDITIONAL F
IELDS ARE":."NOT DESIRED.."..=...N.1.F:.
"..";N;".. ";F$(N):.N.6=... J.1.RW:."...
..";.25)".ROW.";J;"..".D=...L.1.3:..25)"
..FIELD.";L;" 0 ..";ML$(J,L).}=....32);"
.";:.ML$(J,L)..=...L..=...J..=..."....DO
YOU WISH TO REVIEW YOUR FORMAT AND/OR".
.=..."MAKE CORRECTIONS? PRESS ..Y.. OR
..N.."..=...1522..>...A$."Y".3034..>...A
$."N".3082.$>...3072.5>...-SAVE LABEL.M>
..FL.3:."...SAVE LABEL FORMAT.? ..
Y.. OR ..N..".W>...1522..>...A$."N".3118
..>...A$."Y".3092..>...3084..>..."..SAVE
UNDER WHAT FILE NAME.?":.MF$.D$.MF$."".
MF$.NF$..?...". ";MF$:.".";MF$:.MF$."".
3118.4?...15,8,15:.15,"S0:ML] ".MF$:.161
8:.ET.8.3118.D?...5,8,5,"0:ML] ".MF$.",S
,W":.1618:.ET.8.3118.N?...5,RW..?...I.1.
RW:.N.1.3..? ..5,ML$(I,N):.1618:.ET.8.31
18..?"..N:.I.J?&..5,"EOF":.1618:.ET.8.31
18.U?(. 5: 15..?,..-PRINT OPTIONS..@..."
.. . PRINT OPTIONS MENU
".>@/..".. CURRENT RECORD FILE: .."NF$.Q
@0..". CURRENT FORMAT FILE: ..";:.K.2..R
F$;:.3122..@1..K.3..MF$;..@2..:..7)"...L
..OAD OLD FORMAT".E@3...7)"...C..REATE/C
HANGE FORMAT"..@4...7)"...S..AVE CURRENT
FORMAT"..A5...7)"...P..RINT RECORDS".+A
6...7)"...$.. DISK DIRECTORY ..4..".?A8.
..7)"...E..XIT".IA:..1521.SA<..1522.QA>.
.A$."L"..K.3132,1668,1704..A@..A$."S"..K
.3132,3004,3092..AB..A$."C"..K.3132,2910
,3034.LAD..A$."4".A$."$"..1628:.3118..AE
..A$."P".1730..AF..A$."E".1584..AH..602:
.3132..BJ..-RIGHT JUSTIFY.4BL.D.2:CLM$.D
(.(E(CLM$).10.2..5)).VBN..H(CLM$,1)." ".
CLM$.J(CLM$,D).BP..D.C(CLM$).CLM$.I("00
000000".CLM$,D)..BR..D.CLM$.H(CLM$,C(CLM
$).D).".".I(CLM$,D).NBT..C(CLM$).CW.CLM$
.I(S$.CLM$,CW)..BV..C(CLM$).CW.CLM$.H(CL
M$,CW)..BX..PF,CLM$;:....
> CLICK IMAGE PREVIEW FOR FULL MODAL