PRINTER FILE
FILE INFORMATION
FILENAME(S): PRINTER FILE
FILE TYPE(S): PRG
FILE SIZE: 8.9K
FIRST SEEN: 2025-11-30 18:13:11
APPEARS ON: 1 disk(s)
FILE HASH
2b60541ea1bb820f15b8438012b5bb56a36e8320414f1058389f778b9f8f39b9
FOUND ON DISKS (1 DISKS)
| DISK TITLE | FILENAME | FILE TYPE | COLLECTION | TRACK | SECTOR | ACTIONS |
|---|---|---|---|---|---|---|
| PRINTER PROGRAMS | PRINTER FILE | PRG | Sailor, Ganheden | 17 | 3 | DOWNLOAD FILE |
FILE CONTENT & ANALYSIS
> DETECTED: COMMODORE BASIC PROGRAM (LOAD ADDRESS $0801)
00000000: 01 08 46 08 00 00 86 20 46 4C 44 24 28 32 30 29 |..F.... FLD$(20)|
00000010: 2C 4C 4E 28 32 30 29 2C 42 54 28 32 30 29 2C 46 |,LN(20),BT(20),F|
00000020: 46 28 32 30 29 2C 46 50 28 32 30 29 2C 50 52 24 |F(20),FP(20),PR$|
00000030: 28 32 30 2C 32 29 2C 4E 24 28 34 30 29 2C 44 41 |(20,2),N$(40),DA|
00000040: 54 24 28 32 30 29 00 65 08 01 00 A0 31 35 3A A0 |T$(20).e....15:.|
00000050: 36 3A 9F 31 35 2C 38 2C 31 35 3A 9F 36 2C 38 2C |6:.15,8,15:.6,8,|
00000060: 33 2C 22 23 22 00 9F 08 03 00 99 22 90 22 3A 99 |3,"#"......".":.|
00000070: 22 93 11 11 11 12 20 20 20 20 20 20 20 20 20 20 |"..... |
00000080: 20 D0 D2 C9 CE D4 A0 C6 C9 CC C5 A0 D3 C5 C3 D4 | ...............|
00000090: C9 CF CE 20 20 20 20 20 20 20 20 20 20 20 22 00 |... ".|
000000A0: C7 08 05 00 99 3A 99 22 C5 4E 54 45 52 20 46 49 |.....:.".NTER FI|
000000B0: 4C 45 20 4E 41 4D 45 3A 20 22 3B 3A 8D 32 30 30 |LE NAME: ";:.200|
000000C0: 30 3A 47 24 B2 58 24 00 D8 08 06 00 8B 47 24 B2 |0:G$.X$......G$.|
000000D0: 22 5F 22 A7 33 30 30 30 00 04 09 07 00 99 3A 99 |"_".3000......:.|
000000E0: 22 C5 4E 54 45 52 20 54 4F 44 41 59 27 53 20 44 |".NTER TODAY'S D|
000000F0: 41 54 45 3A 20 22 3B 3A 8D 32 30 30 30 3A 44 59 |ATE: ";:.2000:DY|
00000100: 24 B2 58 24 00 1A 09 08 00 8D 32 35 30 30 3A 8D |$.X$......2500:.|
00000110: 36 32 30 30 3A 99 3A 89 31 36 00 55 09 09 00 99 |6200:.:.16.U....|
00000120: 22 D3 4F 52 54 20 46 49 4C 45 20 4E 41 4D 45 20 |".ORT FILE NAME |
00000130: 46 4F 52 20 54 48 49 53 20 50 52 49 4E 54 49 4E |FOR THIS PRINTIN|
00000140: 47 3A 20 22 3B 3A 8D 32 30 30 30 3A 8B 58 24 B2 |G: ";:.2000:.X$.|
00000150: 22 5F 22 A7 33 00 6F 09 0A 00 53 46 24 B2 47 24 |"_".3.o...SF$.G$|
00000160: AA 22 2D 53 2D 22 AA 58 24 3A 8D 36 33 30 30 00 |."-S-".X$:.6300.|
00000170: 75 09 0F 00 8E 00 AA 09 10 00 99 22 93 11 11 11 |u.........."....|
00000180: 12 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000190: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000001A0: 20 20 20 20 20 20 20 20 20 22 00 E4 09 11 00 99 | "......|
000001B0: 3A 99 A3 33 29 22 D0 52 49 4E 54 20 CF 50 54 49 |:..3)".RINT .PTI|
000001C0: 4F 4E 53 3A 22 3A 99 3A 99 A3 33 29 22 31 2E 20 |ONS:":.:..3)"1. |
000001D0: C5 4E 54 49 52 45 20 53 4F 52 54 45 44 20 46 49 |.NTIRE SORTED FI|
000001E0: 4C 45 2E 22 00 07 0A 12 00 99 A3 33 29 22 32 2E |LE.".......3)"2.|
000001F0: 20 C5 4E 54 49 52 45 20 55 4E 53 4F 52 54 45 44 | .NTIRE UNSORTED|
00000200: 20 46 49 4C 45 2E 22 00 2F 0A 13 00 99 A3 33 29 | FILE."./.....3)|
00000210: 22 33 2E 20 D3 4F 52 54 45 44 20 46 49 4C 45 20 |"3. .ORTED FILE |
00000220: 57 49 54 48 49 4E 20 52 41 4E 47 45 53 2E 22 00 |WITHIN RANGES.".|
00000230: 5D 0A 14 00 99 A3 33 29 22 34 2E 20 D3 4F 52 54 |].....3)"4. .ORT|
00000240: 45 44 20 46 49 4C 45 20 42 59 20 4C 49 53 54 20 |ED FILE BY LIST |
00000250: 4F 46 20 43 52 49 54 45 52 49 41 2E 22 00 9D 0A |OF CRITERIA."...|
00000260: 15 00 99 A3 33 29 22 35 2E 20 C3 52 45 41 54 45 |....3)"5. .REATE|
00000270: 20 50 52 49 4E 54 20 46 4F 52 4D 41 54 2E 22 3A | PRINT FORMAT.":|
00000280: 99 A3 33 29 22 36 2E 20 D2 45 54 55 52 4E 20 54 |..3)"6. .ETURN T|
00000290: 4F 20 4D 41 49 4E 20 4D 45 4E 55 2E 22 00 D0 0A |O MAIN MENU."...|
000002A0: 16 00 99 3A 99 22 12 20 20 20 20 20 20 20 20 20 |...:.". |
000002B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000002C0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 | "|
000002D0: 00 FA 0A 17 00 99 3A 99 22 20 20 20 C5 4E 54 45 |......:." .NTE|
000002E0: 52 20 4F 50 54 49 4F 4E 3A 20 22 3B 3A 8D 32 30 |R OPTION: ";:.20|
000002F0: 30 30 3A 41 B2 C5 28 58 24 29 00 1A 0B 18 00 91 |00:A..(X$)......|
00000300: 41 89 33 30 2C 33 30 30 2C 35 30 30 2C 37 30 30 |A.30,300,500,700|
00000310: 2C 31 30 30 30 2C 33 30 30 30 00 32 0B 1E 00 8D |,1000,3000.2....|
00000320: 36 30 30 30 3A 8D 39 3A 8D 32 37 30 30 3A 52 43 |6000:.9:.2700:RC|
00000330: B2 30 00 5B 0B 20 00 48 44 52 24 B2 22 22 3A 99 |.0.[. .HDR$."":.|
00000340: 22 93 20 C8 49 54 20 41 4E 59 20 4B 45 59 20 57 |". .IT ANY KEY W|
00000350: 48 45 4E 20 52 45 41 44 59 2E 22 00 6D 0B 21 00 |HEN READY.".m.!.|
00000360: A1 50 24 3A 8B 50 24 B2 22 22 A7 33 33 00 B8 0B |.P$:.P$."".33...|
00000370: 32 00 81 49 B2 31 A4 54 3A 46 4C 44 24 28 46 46 |2..I.1.T:FLD$(FF|
00000380: 28 49 29 29 B2 46 4C 44 24 28 46 46 28 49 29 29 |(I)).FLD$(FF(I))|
00000390: AA 22 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |." |
000003A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000003B0: 20 20 20 20 20 20 20 22 00 FB 0B 37 00 46 4C 44 | "...7.FLD|
000003C0: 24 28 46 46 28 49 29 29 B2 C8 28 46 4C 44 24 28 |$(FF(I))..(FLD$(|
000003D0: 46 46 28 49 29 29 2C 46 50 28 49 29 29 3A 48 44 |FF(I)),FP(I)):HD|
000003E0: 52 24 B2 48 44 52 24 AA 46 4C 44 24 28 46 46 28 |R$.HDR$.FLD$(FF(|
000003F0: 49 29 29 AA 22 20 20 22 3A 82 49 00 13 0C 38 00 |I))." ":.I...8.|
00000400: 48 44 52 24 B2 22 D2 45 43 20 23 20 20 22 AA 48 |HDR$.".EC # ".H|
00000410: 44 52 24 00 27 0C 3B 00 51 B2 C3 28 48 44 52 24 |DR$.'.;.Q..(HDR$|
00000420: 29 3A 51 B2 51 AB 32 00 4B 0C 3C 00 48 44 52 24 |):Q.Q.2.K.<.HDR$|
00000430: B2 C8 28 48 44 52 24 2C 51 29 3A 48 44 52 24 B2 |..(HDR$,Q):HDR$.|
00000440: C8 28 48 44 52 24 2C 31 33 31 29 00 57 0C 60 00 |.(HDR$,131).W.`.|
00000450: 9F 20 35 2C 34 2C 37 00 72 0C 67 00 98 35 2C 22 |. 5,4,7.r.g..5,"|
00000460: 11 22 48 44 52 24 3A 43 54 B2 30 3A 4C 49 24 B2 |."HDR$:CT.0:LI$.|
00000470: 22 22 00 9E 0C 68 00 81 49 B2 31 A4 C3 28 48 44 |""...h..I.1..(HD|
00000480: 52 24 29 3A 4C 49 24 B2 4C 49 24 AA 22 2A 22 3A |R$):LI$.LI$."*":|
00000490: 82 49 3A 98 35 2C 4C 49 24 C7 28 31 33 29 00 BE |.I:.5,LI$.(13)..|
000004A0: 0C 6E 00 81 4A B2 31 A4 35 37 3A 8F 20 23 20 4F |.n..J.1.57:. # O|
000004B0: 46 20 4C 49 4E 45 53 20 2F 20 50 41 47 45 00 DE |F LINES / PAGE..|
000004C0: 0C 73 00 52 43 B2 52 43 AA 31 3A 8B 52 43 B1 42 |.s.RC.RC.1:.RC.B|
000004D0: 31 AF 54 42 24 B2 22 59 22 A7 8D 39 36 36 00 F2 |1.TB$."Y"..966..|
000004E0: 0C 74 00 A1 50 24 3A 8B 50 24 B2 22 5F 22 A7 31 |.t..P$:.P$."_".1|
000004F0: 37 32 00 01 0D 75 00 8B 52 43 B1 42 31 A7 31 37 |72...u..RC.B1.17|
00000500: 32 00 0E 0D 78 00 52 B2 53 35 28 52 43 29 00 1E |2...x.R.S5(RC)..|
00000510: 0D 79 00 8D 36 35 30 30 3A 8D 36 35 35 30 00 29 |.y..6500:.6550.)|
00000520: 0D 7A 00 50 4F 24 B2 22 22 00 3A 0D 7B 00 8B 54 |.z.PO$."".:.{..T|
00000530: 42 24 B2 22 4E 22 A7 31 33 30 00 61 0D 7C 00 53 |B$."N".130.a.|.S|
00000540: 54 24 B2 44 41 54 24 28 53 46 29 3A 8B 53 54 24 |T$.DAT$(SF):.ST$|
00000550: B2 43 46 24 A7 43 54 B2 43 54 AA 31 3A 89 31 33 |.CF$.CT.CT.1:.13|
00000560: 30 00 6A 0D 7D 00 8D 39 36 36 00 73 0D 7E 00 89 |0.j.}..966.s.~..|
00000570: 31 30 33 00 7E 0D 82 00 81 49 B2 31 A4 54 00 BB |103.~....I.1.T..|
00000580: 0D 8C 00 44 41 54 24 28 49 29 B2 44 41 54 24 28 |...DAT$(I).DAT$(|
00000590: 49 29 AA 22 20 20 20 20 20 20 20 20 20 20 20 20 |I)." |
000005A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000005B0: 20 20 20 20 20 20 20 20 20 20 22 00 F0 0D 8E 00 | ".....|
000005C0: 44 41 54 24 28 49 29 B2 C8 28 44 41 54 24 28 49 |DAT$(I)..(DAT$(I|
000005D0: 29 2C 46 50 28 49 29 29 3A 50 4F 24 B2 50 4F 24 |),FP(I)):PO$.PO$|
000005E0: AA 44 41 54 24 28 49 29 AA 22 20 20 22 3A 82 49 |.DAT$(I)." ":.I|
000005F0: 00 1A 0E 91 00 52 24 B2 C4 28 52 29 3A 52 24 B2 |.....R$..(R):R$.|
00000600: 52 24 AA 22 20 20 20 20 20 20 20 20 20 20 22 3A |R$." ":|
00000610: 52 24 B2 C8 28 52 24 2C 37 29 00 38 0E 92 00 50 |R$..(R$,7).8...P|
00000620: 4F 24 B2 52 24 AA 50 4F 24 3A 50 4F 24 B2 C8 28 |O$.R$.PO$:PO$..(|
00000630: 50 4F 24 2C 31 33 31 29 00 46 0E 96 00 98 35 2C |PO$,131).F....5,|
00000640: 22 11 22 50 4F 24 00 5E 0E A0 00 8B 52 43 B1 42 |"."PO$.^....RC.B|
00000650: 31 AF 54 42 24 B2 22 59 22 A7 8D 39 36 36 00 6D |1.TB$."Y"..966.m|
00000660: 0E A7 00 8B 52 43 B1 42 31 A7 31 37 32 00 74 0E |....RC.B1.172.t.|
00000670: AA 00 82 4A 00 83 0E AB 00 8B 52 43 B3 42 31 A7 |...J......RC.B1.|
00000680: 31 30 33 00 B7 0E AC 00 98 35 2C 22 11 22 C7 28 |103......5,".".(|
00000690: 31 33 29 C7 28 31 29 44 59 24 22 20 20 20 20 20 |13).(1)DY$" |
000006A0: D0 52 49 4E 54 20 C6 4F 52 4D 41 54 20 D5 53 45 |.RINT .ORMAT .SE|
000006B0: 44 3A 20 22 50 5A 24 00 C4 0E AD 00 98 35 2C C7 |D: "PZ$......5,.|
000006C0: 28 31 32 29 00 DB 0E B4 00 A0 35 2C 34 3A 99 C7 |(12)......5,4:..|
000006D0: 28 37 29 C7 28 37 29 3A 89 31 36 00 EA 0E 2C 01 |(7).(7):.16...,.|
000006E0: 8D 32 37 30 30 3A 52 43 B2 30 00 13 0F 31 01 48 |.2700:RC.0...1.H|
000006F0: 44 52 24 B2 22 22 3A 99 22 93 20 C8 49 54 20 41 |DR$."":.". .IT A|
00000700: 4E 59 20 4B 45 59 20 57 48 45 4E 20 52 45 41 44 |NY KEY WHEN READ|
00000710: 59 2E 22 00 26 0F 36 01 A1 50 24 3A 8B 50 24 B2 |Y.".&.6..P$:.P$.|
00000720: 22 22 A7 33 31 30 00 71 0F 3B 01 81 49 B2 31 A4 |"".310.q.;..I.1.|
00000730: 54 3A 46 4C 44 24 28 46 46 28 49 29 29 B2 46 4C |T:FLD$(FF(I)).FL|
00000740: 44 24 28 46 46 28 49 29 29 AA 22 20 20 20 20 20 |D$(FF(I))." |
00000750: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000760: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000770: 22 00 B4 0F 40 01 46 4C 44 24 28 46 46 28 49 29 |"...@.FLD$(FF(I)|
00000780: 29 B2 C8 28 46 4C 44 24 28 46 46 28 49 29 29 2C |)..(FLD$(FF(I)),|
00000790: 46 50 28 49 29 29 3A 48 44 52 24 B2 48 44 52 24 |FP(I)):HDR$.HDR$|
000007A0: AA 46 4C 44 24 28 46 46 28 49 29 29 AA 22 20 20 |.FLD$(FF(I))." |
000007B0: 22 3A 82 49 00 CC 0F 45 01 48 44 52 24 B2 22 D2 |":.I...E.HDR$.".|
000007C0: 45 43 20 23 20 20 22 AA 48 44 52 24 00 E0 0F 4A |EC # ".HDR$...J|
000007D0: 01 51 B2 C3 28 48 44 52 24 29 3A 51 B2 51 AB 32 |.Q..(HDR$):Q.Q.2|
000007E0: 00 04 10 4F 01 48 44 52 24 B2 C8 28 48 44 52 24 |...O.HDR$..(HDR$|
000007F0: 2C 51 29 3A 48 44 52 24 B2 C8 28 48 44 52 24 2C |,Q):HDR$..(HDR$,|
00000800: 31 33 31 29 00 1E 10 5E 01 9F 20 35 2C 34 3A 8B |131)...^.. 5,4:.|
00000810: 53 54 B3 B1 AB 31 32 38 20 A7 20 33 37 30 00 4B |ST...128 . 370.K|
00000820: 10 63 01 99 C7 28 37 29 22 D2 45 41 44 59 20 20 |.c...(7)".EADY |
00000830: 50 52 49 4E 54 45 52 2E 20 D4 48 45 4E 20 48 49 |PRINTER. .HEN HI|
00000840: 54 20 41 4E 59 20 4B 45 59 2E 22 00 5F 10 68 01 |T ANY KEY."._.h.|
00000850: A1 50 24 3A 8B 50 24 B2 22 22 A7 20 33 36 30 00 |.P$:.P$."". 360.|
00000860: 6B 10 6D 01 A0 35 3A 89 33 35 30 00 87 10 72 01 |k.m..5:.350...r.|
00000870: 98 35 2C 22 11 22 48 44 52 24 3A 8D 34 30 30 30 |.5,"."HDR$:.4000|
00000880: 3A 4C 49 24 B2 22 22 00 B3 10 77 01 81 49 B2 31 |:LI$.""...w..I.1|
00000890: A4 C3 28 48 44 52 24 29 3A 4C 49 24 B2 4C 49 24 |..(HDR$):LI$.LI$|
000008A0: AA 22 2A 22 3A 82 49 3A 98 35 2C 4C 49 24 C7 28 |."*":.I:.5,LI$.(|
000008B0: 31 33 29 00 D3 10 7C 01 81 4A B2 31 A4 35 37 3A |13)...|..J.1.57:|
000008C0: 8F 20 23 20 4F 46 20 4C 49 4E 45 53 20 2F 20 50 |. # OF LINES / P|
000008D0: 41 47 45 00 DF 10 81 01 52 43 B2 52 43 AA 31 00 |AGE.....RC.RC.1.|
000008E0: F3 10 82 01 A1 50 24 3A 8B 50 24 B2 22 5F 22 A7 |.....P$:.P$."_".|
000008F0: 34 38 35 00 02 11 86 01 8B 52 43 B1 42 31 A7 34 |485......RC.B1.4|
00000900: 38 35 00 0B 11 8B 01 52 B2 52 43 00 16 11 95 01 |85.....R.RC.....|
00000910: 50 4F 24 B2 22 22 00 26 11 B2 01 8D 36 35 30 30 |PO$."".&....6500|
00000920: 3A 8D 36 35 35 30 00 31 11 B3 01 81 49 B2 31 A4 |:.6550.1....I.1.|
00000930: 54 00 6E 11 B8 01 44 41 54 24 28 49 29 B2 44 41 |T.n...DAT$(I).DA|
00000940: 54 24 28 49 29 AA 22 20 20 20 20 20 20 20 20 20 |T$(I)." |
00000950: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000960: 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 A3 | "..|
00000970: 11 BD 01 44 41 54 24 28 49 29 B2 C8 28 44 41 54 |...DAT$(I)..(DAT|
00000980: 24 28 49 29 2C 46 50 28 49 29 29 3A 50 4F 24 B2 |$(I),FP(I)):PO$.|
00000990: 50 4F 24 AA 44 41 54 24 28 49 29 AA 22 20 20 22 |PO$.DAT$(I)." "|
000009A0: 3A 82 49 00 CD 11 C2 01 52 24 B2 C4 28 52 29 3A |:.I.....R$..(R):|
000009B0: 52 24 B2 52 24 AA 22 20 20 20 20 20 20 20 20 20 |R$.R$." |
000009C0: 20 22 3A 52 24 B2 C8 28 52 24 2C 37 29 00 EB 11 | ":R$..(R$,7)...|
000009D0: C7 01 50 4F 24 B2 52 24 AA 50 4F 24 3A 50 4F 24 |..PO$.R$.PO$:PO$|
000009E0: B2 C8 28 50 4F 24 2C 31 33 31 29 00 F9 11 CC 01 |..(PO$,131).....|
000009F0: 98 35 2C 22 11 22 50 4F 24 00 00 12 DB 01 82 4A |.5,"."PO$......J|
00000A00: 00 0F 12 E0 01 8B 52 43 B3 42 31 A7 33 37 30 00 |......RC.B1.370.|
00000A10: 41 12 E5 01 98 35 2C C7 28 31 33 29 C7 28 31 29 |A....5,.(13).(1)|
00000A20: 44 59 24 22 11 20 20 20 20 20 D0 52 49 4E 54 20 |DY$". .RINT |
00000A30: C6 4F 52 4D 41 54 20 D5 53 45 44 3A 20 22 50 5A |.ORMAT .SED: "PZ|
00000A40: 24 00 4E 12 EA 01 98 35 2C C7 28 31 32 29 00 67 |$.N....5,.(12).g|
00000A50: 12 EF 01 A0 35 2C 34 3A 8D 36 37 30 30 3A 8D 36 |....5,4:.6700:.6|
00000A60: 37 30 30 3A 89 31 36 00 7F 12 F4 01 8D 36 30 30 |700:.16......600|
00000A70: 30 3A 8D 39 3A 8D 32 37 30 30 3A 52 43 B2 30 00 |0:.9:.2700:RC.0.|
00000A80: B1 12 F5 01 99 22 93 12 20 20 20 20 20 20 20 20 |.....".. |
00000A90: 20 20 20 D2 C1 CE C7 C5 A0 D0 D2 C9 CE D4 C9 CE | .............|
00000AA0: C7 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 |. |
00000AB0: 22 00 B7 12 F6 01 99 00 DD 12 F7 01 81 49 B2 31 |"............I.1|
00000AC0: A4 43 3A 99 A3 31 30 29 49 22 2E 20 22 46 4C 44 |.C:..10)I". "FLD|
00000AD0: 24 28 49 29 3A 82 49 3A 99 3A 99 3A 99 00 17 13 |$(I):.I:.:.:....|
00000AE0: F8 01 99 22 91 23 20 4F 46 20 52 45 53 54 52 49 |...".# OF RESTRI|
00000AF0: 43 54 49 4F 4E 53 20 54 48 49 53 20 50 52 49 4E |CTIONS THIS PRIN|
00000B00: 54 49 4E 47 3A 20 22 3B 3A 8D 32 30 30 30 3A 4E |TING: ";:.2000:N|
00000B10: 31 B2 C5 28 58 24 29 00 25 13 F9 01 8B 4E 31 B1 |1..(X$).%....N1.|
00000B20: 43 A7 35 30 34 00 4D 13 FA 01 81 49 B2 31 A4 4E |C.504.M....I.1.N|
00000B30: 31 3A 99 22 D2 45 53 54 52 49 43 54 49 4F 4E 20 |1:.".ESTRICTION |
00000B40: 46 49 45 4C 44 20 22 49 22 2E 20 22 3B 00 63 13 |FIELD "I". ";.c.|
00000B50: FB 01 8D 32 30 30 30 3A 46 52 28 49 29 B2 C5 28 |...2000:FR(I)..(|
00000B60: 58 24 29 00 A3 13 FD 01 99 22 D6 41 4C 55 45 53 |X$)......".ALUES|
00000B70: 20 50 52 49 4E 54 45 44 20 53 48 4F 55 4C 44 20 | PRINTED SHOULD |
00000B80: 42 45 22 3A 99 22 C7 D2 C5 C1 D4 C5 D2 A0 CF D2 |BE":."..........|
00000B90: A0 C5 D1 D5 C1 CC 20 54 4F 3A 20 22 3B 3A 8D 32 |...... TO: ";:.2|
00000BA0: 30 30 30 00 E2 13 FE 01 50 52 24 28 49 2C 31 29 |000.....PR$(I,1)|
00000BB0: B2 58 24 3A 99 22 C2 55 54 20 CC C5 D3 D3 A0 D4 |.X$:.".UT ......|
00000BC0: C8 C1 CE 3A 20 22 3B 3A 8D 32 30 30 30 3A 50 52 |...: ";:.2000:PR|
00000BD0: 24 28 49 2C 32 29 B2 58 24 3A 82 49 3A 99 22 13 |$(I,2).X$:.I:.".|
00000BE0: 13 22 00 08 14 05 02 48 44 52 24 B2 22 22 3A 99 |.".....HDR$."":.|
00000BF0: 22 93 C8 49 54 20 41 4E 59 20 4B 45 59 20 54 4F |"..IT ANY KEY TO|
00000C00: 20 50 52 49 4E 54 2E 22 00 1B 14 06 02 A1 50 24 | PRINT."......P$|
00000C10: 3A 8B 50 24 B2 22 22 A7 35 31 38 00 66 14 07 02 |:.P$."".518.f...|
00000C20: 81 49 B2 31 A4 54 3A 46 4C 44 24 28 46 46 28 49 |.I.1.T:FLD$(FF(I|
00000C30: 29 29 B2 46 4C 44 24 28 46 46 28 49 29 29 AA 22 |)).FLD$(FF(I))."|
00000C40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C50: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000C60: 20 20 20 20 20 22 00 A9 14 08 02 46 4C 44 24 28 | ".....FLD$(|
00000C70: 46 46 28 49 29 29 B2 C8 28 46 4C 44 24 28 46 46 |FF(I))..(FLD$(FF|
00000C80: 28 49 29 29 2C 46 50 28 49 29 29 3A 48 44 52 24 |(I)),FP(I)):HDR$|
00000C90: B2 48 44 52 24 AA 46 4C 44 24 28 46 46 28 49 29 |.HDR$.FLD$(FF(I)|
00000CA0: 29 AA 22 20 20 22 3A 82 49 00 C1 14 0D 02 48 44 |)." ":.I.....HD|
00000CB0: 52 24 B2 22 D2 45 43 20 23 20 20 22 AA 48 44 52 |R$.".EC # ".HDR|
00000CC0: 24 00 D5 14 12 02 51 B2 C3 28 48 44 52 24 29 3A |$.....Q..(HDR$):|
00000CD0: 51 B2 51 AB 32 00 F9 14 17 02 48 44 52 24 B2 C8 |Q.Q.2.....HDR$..|
00000CE0: 28 48 44 52 24 2C 51 29 3A 48 44 52 24 B2 C8 28 |(HDR$,Q):HDR$..(|
00000CF0: 48 44 52 24 2C 31 33 31 29 00 15 15 26 02 9F 20 |HDR$,131)...&.. |
00000D00: 35 2C 34 2C 37 3A 8B 53 54 B3 B1 AB 31 32 38 20 |5,4,7:.ST...128 |
00000D10: A7 20 35 37 30 00 44 15 2B 02 99 22 D2 45 41 44 |. 570.D.+..".EAD|
00000D20: 59 20 20 50 52 49 4E 54 45 52 2E 20 D4 48 45 4E |Y PRINTER. .HEN|
00000D30: 20 48 49 54 20 41 4E 59 20 4B 45 59 2E 22 3A 8D | HIT ANY KEY.":.|
00000D40: 36 37 30 30 00 58 15 30 02 A1 50 24 3A 8B 50 24 |6700.X.0..P$:.P$|
00000D50: B2 22 22 A7 20 35 36 30 00 61 15 35 02 89 35 35 |."". 560.a.5..55|
00000D60: 30 00 82 15 3A 02 98 35 2C 22 11 22 48 44 52 24 |0...:..5,"."HDR$|
00000D70: 3A 8D 34 30 30 30 3A 43 54 B2 30 3A 4C 49 24 B2 |:.4000:CT.0:LI$.|
00000D80: 22 22 00 AE 15 3F 02 81 49 B2 31 A4 C3 28 48 44 |""...?..I.1..(HD|
00000D90: 52 24 29 3A 4C 49 24 B2 4C 49 24 AA 22 2A 22 3A |R$):LI$.LI$."*":|
00000DA0: 82 49 3A 98 35 2C 4C 49 24 C7 28 31 33 29 00 CE |.I:.5,LI$.(13)..|
00000DB0: 15 44 02 81 4A B2 31 A4 35 37 3A 8F 20 23 20 4F |.D..J.1.57:. # O|
00000DC0: 46 20 4C 49 4E 45 53 20 2F 20 50 41 47 45 00 EE |F LINES / PAGE..|
00000DD0: 15 49 02 52 43 B2 52 43 AA 31 3A 8B 52 43 B1 42 |.I.RC.RC.1:.RC.B|
00000DE0: 31 AF 54 42 24 B2 22 59 22 A7 8D 39 36 36 00 02 |1.TB$."Y"..966..|
00000DF0: 16 4A 02 A1 50 24 3A 8B 50 24 B2 22 5F 22 A7 36 |.J..P$:.P$."_".6|
00000E00: 38 30 00 11 16 4E 02 8B 52 43 B1 42 31 A7 36 38 |80...N..RC.B1.68|
00000E10: 30 00 1E 16 53 02 52 B2 53 35 28 52 43 29 00 2E |0...S.R.S5(RC)..|
00000E20: 16 58 02 8D 36 35 30 30 3A 8D 36 36 30 30 00 3A |.X..6500:.6600.:|
00000E30: 16 59 02 81 49 B2 31 A4 4E 31 00 4F 16 5A 02 52 |.Y..I.1.N1.O.Z.R|
00000E40: 53 54 24 B2 44 41 54 24 28 46 52 28 49 29 29 00 |ST$.DAT$(FR(I)).|
00000E50: 66 16 5B 02 8B 52 53 54 24 B2 50 52 24 28 49 2C |f.[..RST$.PR$(I,|
00000E60: 31 29 A7 36 30 38 00 7D 16 5C 02 8B 52 53 54 24 |1).608.}.\..RST$|
00000E70: B2 50 52 24 28 49 2C 32 29 A7 36 30 38 00 94 16 |.PR$(I,2).608...|
00000E80: 5D 02 8B 52 53 54 24 B3 50 52 24 28 49 2C 31 29 |]..RST$.PR$(I,1)|
00000E90: A7 35 38 35 00 AB 16 5E 02 8B 52 53 54 24 B1 50 |.585...^..RST$.P|
00000EA0: 52 24 28 49 2C 32 29 A7 35 38 35 00 B2 16 60 02 |R$(I,2).585...`.|
00000EB0: 82 49 00 C3 16 61 02 50 4F 24 B2 22 22 3A 8D 36 |.I...a.PO$."":.6|
00000EC0: 35 35 30 00 D4 16 62 02 8B 54 42 24 B2 22 4E 22 |550...b..TB$."N"|
00000ED0: A7 36 33 30 00 FB 16 67 02 53 54 24 B2 44 41 54 |.630...g.ST$.DAT|
00000EE0: 24 28 53 46 29 3A 8B 53 54 24 B2 43 46 24 A7 43 |$(SF):.ST$.CF$.C|
00000EF0: 54 B2 43 54 AA 31 3A 89 36 33 30 00 09 17 6E 02 |T.CT.1:.630...n.|
00000F00: 8D 39 36 36 3A 89 35 37 30 00 14 17 76 02 81 49 |.966:.570...v..I|
00000F10: B2 31 A4 54 00 51 17 7B 02 44 41 54 24 28 49 29 |.1.T.Q.{.DAT$(I)|
00000F20: B2 44 41 54 24 28 49 29 AA 22 20 20 20 20 20 20 |.DAT$(I)." |
00000F30: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F40: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00000F50: 22 00 86 17 80 02 44 41 54 24 28 49 29 B2 C8 28 |".....DAT$(I)..(|
00000F60: 44 41 54 24 28 49 29 2C 46 50 28 49 29 29 3A 50 |DAT$(I),FP(I)):P|
00000F70: 4F 24 B2 50 4F 24 AA 44 41 54 24 28 49 29 AA 22 |O$.PO$.DAT$(I)."|
00000F80: 20 20 22 3A 82 49 00 B0 17 85 02 52 24 B2 C4 28 | ":.I.....R$..(|
00000F90: 52 29 3A 52 24 B2 52 24 AA 22 20 20 20 20 20 20 |R):R$.R$." |
00000FA0: 20 20 20 20 22 3A 52 24 B2 C8 28 52 24 2C 37 29 | ":R$..(R$,7)|
00000FB0: 00 CE 17 8A 02 50 4F 24 B2 52 24 AA 50 4F 24 3A |.....PO$.R$.PO$:|
00000FC0: 50 4F 24 B2 C8 28 50 4F 24 2C 31 33 31 29 00 DC |PO$..(PO$,131)..|
00000FD0: 17 8F 02 98 35 2C 22 11 22 50 4F 24 00 F4 17 94 |....5,"."PO$....|
00000FE0: 02 8B 52 43 B1 42 31 AF 54 42 24 B2 22 59 22 A7 |..RC.B1.TB$."Y".|
00000FF0: 8D 39 36 36 00 03 18 99 02 8B 52 43 B1 42 31 A7 |.966......RC.B1.|
00001000: 36 38 30 00 0A 18 9E 02 82 4A 00 19 18 A3 02 8B |680......J......|
00001010: 52 43 B3 42 31 A7 35 37 30 00 4D 18 A8 02 98 35 |RC.B1.570.M....5|
00001020: 2C 22 11 22 C7 28 31 33 29 C7 28 31 29 44 59 24 |,".".(13).(1)DY$|
00001030: 22 20 20 20 20 20 D0 52 49 4E 54 20 C6 4F 52 4D |" .RINT .ORM|
00001040: 41 54 20 D5 53 45 44 3A 20 22 50 5A 24 00 5A 18 |AT .SED: "PZ$.Z.|
00001050: AD 02 98 35 2C C7 28 31 32 29 00 77 18 B2 02 A0 |...5,.(12).w....|
00001060: 35 2C 34 3A 99 22 13 13 22 3A 99 C7 28 37 29 C7 |5,4:."..":..(7).|
00001070: 28 37 29 3A 89 31 36 00 8F 18 BC 02 8D 36 30 30 |(7):.16......600|
00001080: 30 3A 8D 39 3A 8D 32 37 30 30 3A 52 43 B2 30 00 |0:.9:.2700:RC.0.|
00001090: C5 18 BD 02 99 22 93 11 11 12 20 20 20 20 20 20 |.....".... |
000010A0: 20 20 20 20 20 20 D0 D2 C9 CE D4 A0 C2 D9 A0 CC | ..........|
000010B0: C9 D3 D4 C9 CE C7 20 20 20 20 20 20 20 20 20 20 |...... |
000010C0: 20 20 22 3A 99 00 00 19 BF 02 81 49 B2 31 A4 43 | ":.......I.1.C|
000010D0: 3A 99 A3 31 30 29 49 22 2E 20 22 46 4C 44 24 28 |:..10)I". "FLD$(|
000010E0: 49 29 3A 82 49 3A 99 22 C5 4E 54 45 52 20 43 52 |I):.I:.".NTER CR|
000010F0: 49 54 45 52 49 41 20 46 49 45 4C 44 3A 20 22 3B |ITERIA FIELD: ";|
00001100: 00 15 19 C0 02 8D 32 30 30 30 3A 42 46 B2 C5 28 |......2000:BF..(|
00001110: 58 24 29 3A 99 00 51 19 C1 02 99 22 91 C8 4F 57 |X$):..Q...."..OW|
00001120: 20 4D 41 4E 59 20 45 4C 45 4D 45 4E 54 53 20 49 | MANY ELEMENTS I|
00001130: 4E 20 43 52 49 54 45 52 49 41 20 4C 49 53 54 3A |N CRITERIA LIST:|
00001140: 20 22 3B 3A 8D 32 30 30 30 3A 45 B2 C5 28 58 24 | ";:.2000:E..(X$|
00001150: 29 00 5E 19 C2 02 8B 45 B1 43 A7 37 30 35 00 64 |).^....E.C.705.d|
00001160: 19 C4 02 99 00 9B 19 C5 02 81 49 B2 31 A4 45 3A |..........I.1.E:|
00001170: 99 22 C3 52 49 54 45 52 49 41 20 23 22 49 22 3A |.".RITERIA #"I":|
00001180: 20 22 3B 3A 8D 32 30 30 30 3A 4E 24 28 49 29 B2 | ";:.2000:N$(I).|
00001190: 58 24 3A 82 49 3A 99 22 13 13 22 00 C1 19 CC 02 |X$:.I:."..".....|
000011A0: 48 44 52 24 B2 22 22 3A 99 22 93 C8 49 54 20 41 |HDR$."":."..IT A|
000011B0: 4E 59 20 4B 45 59 20 54 4F 20 50 52 49 4E 54 2E |NY KEY TO PRINT.|
000011C0: 22 00 D4 19 CE 02 A1 50 24 3A 8B 50 24 B2 22 22 |"......P$:.P$.""|
000011D0: A7 37 31 38 00 1F 1A CF 02 81 49 B2 31 A4 54 3A |.718......I.1.T:|
000011E0: 46 4C 44 24 28 46 46 28 49 29 29 B2 46 4C 44 24 |FLD$(FF(I)).FLD$|
000011F0: 28 46 46 28 49 29 29 AA 22 20 20 20 20 20 20 20 |(FF(I))." |
00001200: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
00001210: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 22 00 | ".|
00001220: 62 1A D0 02 46 4C 44 24 28 46 46 28 49 29 29 B2 |b...FLD$(FF(I)).|
00001230: C8 28 46 4C 44 24 28 46 46 28 49 29 29 2C 46 50 |.(FLD$(FF(I)),FP|
00001240: 28 49 29 29 3A 48 44 52 24 B2 48 44 52 24 AA 46 |(I)):HDR$.HDR$.F|
00001250: 4C 44 24 28 46 46 28 49 29 29 AA 22 20 20 22 3A |LD$(FF(I))." ":|
00001260: 82 49 00 7A 1A DA 02 48 44 52 24 B2 22 D2 45 43 |.I.z...HDR$.".EC|
00001270: 20 23 20 20 22 AA 48 44 52 24 00 8E 1A E4 02 51 | # ".HDR$.....Q|
00001280: B2 C3 28 48 44 52 24 29 3A 51 B2 51 AB 32 00 B2 |..(HDR$):Q.Q.2..|
00001290: 1A EE 02 48 44 52 24 B2 C8 28 48 44 52 24 2C 51 |...HDR$..(HDR$,Q|
000012A0: 29 3A 48 44 52 24 B2 C8 28 48 44 52 24 2C 31 33 |):HDR$..(HDR$,13|
000012B0: 31 29 00 CE 1A 0C 03 9F 20 35 2C 34 2C 37 3A 8B |1)...... 5,4,7:.|
000012C0: 53 54 B3 B1 AB 31 32 38 20 A7 20 38 32 30 00 FD |ST...128 . 820..|
000012D0: 1A 16 03 99 22 D2 45 41 44 59 20 20 50 52 49 4E |....".EADY PRIN|
000012E0: 54 45 52 2E 20 D4 48 45 4E 20 48 49 54 20 41 4E |TER. .HEN HIT AN|
000012F0: 59 20 4B 45 59 2E 22 3A 8D 36 37 30 30 00 11 1B |Y KEY.":.6700...|
00001300: 20 03 A1 50 24 3A 8B 50 24 B2 22 22 A7 20 38 30 | ..P$:.P$."". 80|
00001310: 30 00 1A 1B 2A 03 89 37 38 30 00 3B 1B 34 03 98 |0...*..780.;.4..|
00001320: 35 2C 22 11 22 48 44 52 24 3A 8D 34 30 30 30 3A |5,"."HDR$:.4000:|
00001330: 43 54 B2 30 3A 4C 49 24 B2 22 22 00 67 1B 3E 03 |CT.0:LI$."".g.>.|
00001340: 81 49 B2 31 A4 C3 28 48 44 52 24 29 3A 4C 49 24 |.I.1..(HDR$):LI$|
00001350: B2 4C 49 24 AA 22 2A 22 3A 82 49 3A 98 35 2C 4C |.LI$."*":.I:.5,L|
00001360: 49 24 C7 28 31 33 29 00 87 1B 48 03 81 4A B2 31 |I$.(13)...H..J.1|
00001370: A4 35 37 3A 8F 20 23 20 4F 46 20 4C 49 4E 45 53 |.57:. # OF LINES|
00001380: 20 2F 20 50 41 47 45 00 A7 1B 52 03 52 43 B2 52 | / PAGE...R.RC.R|
00001390: 43 AA 31 3A 8B 52 43 B1 42 31 AF 54 42 24 B2 22 |C.1:.RC.B1.TB$."|
000013A0: 59 22 A7 8D 39 36 36 00 BB 1B 57 03 A1 50 24 3A |Y"..966...W..P$:|
000013B0: 8B 50 24 B2 22 5F 22 A7 39 34 30 00 CA 1B 5C 03 |.P$."_".940...\.|
000013C0: 8B 52 43 B1 42 31 A7 39 34 30 00 D7 1B 66 03 52 |.RC.B1.940...f.R|
000013D0: B2 53 35 28 52 43 29 00 E7 1B 68 03 8D 36 35 30 |.S5(RC)...h..650|
000013E0: 30 3A 8D 36 36 30 30 00 F9 1B 6B 03 52 53 54 24 |0:.6600...k.RST$|
000013F0: B2 44 41 54 24 28 42 46 29 00 14 1C 6F 03 81 49 |.DAT$(BF)...o..I|
00001400: B2 31 A4 45 3A 8B 52 53 54 24 B2 4E 24 28 49 29 |.1.E:.RST$.N$(I)|
00001410: A7 38 39 35 00 20 1C 75 03 82 49 3A 89 38 35 30 |.895. .u..I:.850|
00001420: 00 31 1C 7F 03 50 4F 24 B2 22 22 3A 8D 36 35 35 |.1...PO$."":.655|
00001430: 30 00 42 1C 84 03 8B 54 42 24 B2 22 4E 22 A7 39 |0.B....TB$."N".9|
00001440: 31 37 00 69 1C 89 03 53 54 24 B2 44 41 54 24 28 |17.i...ST$.DAT$(|
00001450: 53 46 29 3A 8B 53 54 24 B2 43 46 24 A7 43 54 B2 |SF):.ST$.CF$.CT.|
00001460: 43 54 AA 31 3A 89 39 31 37 00 72 1C 8E 03 8D 39 |CT.1:.917.r....9|
00001470: 36 36 00 7B 1C 93 03 89 38 32 30 00 86 1C 95 03 |66.{....820.....|
00001480: 81 49 B2 31 A4 54 00 C3 1C 97 03 44 41 54 24 28 |.I.1.T.....DAT$(|
00001490: 49 29 B2 44 41 54 24 28 49 29 AA 22 20 20 20 20 |I).DAT$(I)." |
000014A0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014B0: 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | |
000014C0: 20 20 22 00 F8 1C 99 03 44 41 54 24 28 49 29 B2 | ".....DAT$(I).|
000014D0: C8 28 44 41 54 24 28 49 29 2C 46 50 28 49 29 29 |.(DAT$(I),FP(I))|
000014E0: 3A 50 4F 24 B2 50 4F 24 AA 44 41 54 24 28 49 29 |:PO$.PO$.DAT$(I)|
000014F0: AA 22 20 20 22 3A 82 49 00 22 1D 9B 03 52 24 B2 |." ":.I."...R$.|
00001500: C4 28 52 29 3A 52 24 B2 52 24 AA 22 20 20 20 20 |.(R):R$.R$." |
00001510: 20 20 20 20 20 20 22 3A 52 24 B2 C8 28 52 24 2C | ":R$..(R$,|
00001520: 37 29 00 40 1D 9D 03 50 4F 24 B2 52 24 AA 50 4F |7).@...PO$.R$.PO|
00001530: 24 3A 50 4F 24 B2 C8 28 50 4F 24 2C 31 33 31 29 |$:PO$..(PO$,131)|
00001540: 00 4E 1D 9F 03 98 35 2C 22 11 22 50 4F 24 00 66 |.N....5,"."PO$.f|
00001550: 1D A1 03 8B 52 43 B1 42 31 AF 54 42 24 B2 22 59 |....RC.B1.TB$."Y|
00001560: 22 A7 8D 39 36 36 00 6D 1D A4 03 82 4A 00 7C 1D |"..966.m....J.|.|
00001570: A7 03 8B 52 43 B3 42 31 A7 31 30 33 00 B0 1D AC |...RC.B1.103....|
00001580: 03 98 35 2C 22 11 22 C7 28 31 33 29 C7 28 31 29 |..5,".".(13).(1)|
00001590: 44 59 24 22 20 20 20 20 20 D0 52 49 4E 54 20 C6 |DY$" .RINT .|
000015A0: 4F 52 4D 41 54 20 D5 53 45 44 3A 20 22 50 5A 24 |ORMAT .SED: "PZ$|
000015B0: 00 BD 1D B1 03 98 35 2C C7 28 31 32 29 00 D6 1D |......5,.(12)...|
000015C0: B6 03 A0 35 2C 34 3A 8D 36 37 30 30 3A 8D 36 37 |...5,4:.6700:.67|
000015D0: 30 30 3A 89 31 36 00 12 1E C6 03 98 35 2C 22 3D |00:.16......5,"=|
000015E0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
000015F0: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001600: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001610: 3D 22 00 3C 1E C7 03 98 35 2C 22 11 22 43 54 22 |=".<....5,"."CT"|
00001620: 20 49 4E 20 22 46 4C 44 24 28 53 46 29 22 20 4F | IN "FLD$(SF)" O|
00001630: 46 20 22 43 46 24 22 20 22 44 59 24 00 78 1E C8 |F "CF$" "DY$.x..|
00001640: 03 98 35 2C 22 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |..5,"===========|
00001650: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001660: 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D 3D |================|
00001670: 3D 3D 3D 3D 3D 3D 3D 22 00 89 1E CA 03 43 46 24 |=======".....CF$|
00001680: B2 53 54 24 3A 43 54 B2 30 00 99 1E CB 03 8B 52 |.ST$:CT.0......R|
00001690: 43 B3 B2 42 31 A7 39 37 34 00 BD 1E CC 03 98 35 |C..B1.974......5|
000016A0: 2C C7 28 31 29 22 D0 52 49 4E 54 20 C6 4F 52 4D |,.(1)".RINT .ORM|
000016B0: 41 54 20 D5 53 45 44 3A 20 22 50 5A 24 00 D3 1E |AT .SED: "PZ$...|
000016C0: CD 03 98 35 2C C7 28 31 32 29 3A A0 35 2C 34 3A |...5,.(12):.5,4:|
000016D0: 89 31 36 00 E8 1E CE 03 52 43 B2 52 43 AB 31 3A |.16.....RC.RC.1:|
000016E0: 98 35 2C C7 28 31 32 29 00 EE 1E CF 03 8E 00 20 |.5,.(12)....... |
000016F0: 1F E8 03 99 22 93 12 20 20 20 20 20 20 20 20 20 |....".. |
00001700: 20 20 C3 52 45 41 54 45 20 D0 52 49 4E 54 20 C6 | .REATE .RINT .|
00001710: 4F 52 4D 41 54 20 20 20 20 20 20 20 20 20 20 22 |ORMAT "|
00001720: 00 26 1F F2 03 8F 00 49 1F FC 03 99 3A 81 49 B2 |.&.....I....:.I.|
00001730: 31 A4 43 3A 99 49 22 2E 20 22 46 4C 44 24 28 49 |1.C:.I". "FLD$(I|
00001740: 29 2C 3A 82 49 3A 99 3A 99 00 72 1F 06 04 99 22 |),:.I:.:..r...."|
00001750: 91 C8 4F 57 20 4D 41 4E 59 20 46 49 45 4C 44 53 |..OW MANY FIELDS|
00001760: 20 57 49 4C 4C 20 42 45 20 49 4E 43 4C 55 44 45 | WILL BE INCLUDE|
00001770: 44 22 00 91 1F 0B 04 99 22 49 4E 20 54 48 49 53 |D"......"IN THIS|
00001780: 20 46 4F 52 4D 41 54 3A 20 22 3B 3A 8D 32 30 30 | FORMAT: ";:.200|
00001790: 30 00 A7 1F 10 04 54 B2 C5 28 58 24 29 3A 8B 54 |0.....T..(X$):.T|
000017A0: B1 43 A7 31 30 33 30 00 AD 1F 15 04 99 00 D7 1F |.C.1030.........|
000017B0: 1A 04 99 22 C6 49 45 4C 44 20 4E 55 4D 42 45 52 |...".IELD NUMBER|
000017C0: 53 20 54 4F 20 42 45 20 50 52 49 4E 54 45 44 20 |S TO BE PRINTED |
000017D0: 41 52 45 3A 22 3A 99 00 E2 1F 1F 04 81 49 B2 31 |ARE:":.......I.1|
000017E0: A4 54 00 11 20 21 04 99 22 91 22 49 22 2E 20 22 |.T.. !.."."I". "|
000017F0: 3B 3A 8D 32 30 30 30 3A 46 46 28 49 29 B2 C5 28 |;:.2000:FF(I)..(|
00001800: 58 24 29 3A 8B 46 46 28 49 29 B1 43 A7 31 30 35 |X$):.FF(I).C.105|
00001810: 37 00 3D 20 24 04 99 22 C3 48 41 52 41 43 54 45 |7.= $..".HARACTE|
00001820: 52 53 20 4E 4F 57 20 41 4C 4C 4F 54 54 45 44 3A |RS NOW ALLOTTED:|
00001830: 20 22 4C 4E 28 46 46 28 49 29 29 3A 99 00 6A 20 | "LN(FF(I)):..j |
00001840: 2E 04 99 22 91 23 20 54 4F 20 42 45 20 50 52 49 |...".# TO BE PRI|
00001850: 4E 54 45 44 3A 20 22 3B 3A 8D 32 30 30 30 3A 46 |NTED: ";:.2000:F|
00001860: 50 28 49 29 B2 C5 28 58 24 29 00 84 20 30 04 8B |P(I)..(X$).. 0..|
00001870: 46 50 28 49 29 B1 4C 4E 28 46 46 28 49 29 29 A7 |FP(I).LN(FF(I)).|
00001880: 31 30 37 30 00 8A 20 33 04 99 00 91 20 38 04 82 |1070.. 3.... 8..|
00001890: 49 00 B7 20 42 04 99 22 C1 52 45 20 54 48 45 53 |I.. B..".RE THES|
000018A0: 45 20 43 4F 52 52 45 43 54 20 28 59 2F 4E 29 22 |E CORRECT (Y/N)"|
000018B0: 3B 3A 8D 32 30 30 30 00 C8 20 43 04 8B 58 24 B2 |;:.2000.. C..X$.|
000018C0: 22 59 22 A7 31 30 39 37 00 F8 20 47 04 99 A3 32 |"Y".1097.. G...2|
000018D0: 30 29 22 D3 54 41 52 54 20 4F 56 45 52 2E 22 3A |0)".TART OVER.":|
000018E0: 81 49 B2 31 A4 31 30 30 30 3A 82 49 3A 99 22 93 |.I.1.1000:.I:.".|
000018F0: 22 3A 89 20 31 30 35 30 00 18 21 49 04 99 A3 32 |":. 1050..!I...2|
00001900: 30 29 22 CE 45 57 20 46 4F 52 4D 41 54 20 23 20 |0)".EW FORMAT # |
00001910: 22 3B 3A 8D 32 30 30 30 00 4A 21 4C 04 50 24 B2 |";:.2000.J!L.P$.|
00001920: 47 24 AA 22 2D 50 2D 22 AA 58 24 3A 98 31 35 2C |G$."-P-".X$:.15,|
00001930: 22 53 30 3A 22 AA 50 24 3A 50 24 B2 22 30 3A 22 |"S0:".P$:P$."0:"|
00001940: AA 50 24 AA 22 2C 53 2C 57 22 00 6F 21 5B 04 9F |.P$.",S,W".o![..|
00001950: 32 2C 38 2C 32 2C 50 24 3A 84 31 35 2C 45 4E 2C |2,8,2,P$:.15,EN,|
00001960: 45 4D 24 3A 8B 45 4E B3 32 30 A7 31 31 31 37 00 |EM$:.EN.20.1117.|
00001970: 90 21 5C 04 99 45 4E 2C 45 4D 24 3A 81 49 B2 A4 |.!\..EN,EM$:.I..|
00001980: 31 30 30 30 3A 82 49 3A A0 32 3A 89 31 30 39 37 |1000:.I:.2:.1097|
00001990: 00 B7 21 5D 04 98 32 2C 28 54 29 3A 81 49 B2 31 |..!]..2,(T):.I.1|
000019A0: A4 54 3A 98 32 2C 46 46 28 49 29 3B C7 28 31 33 |.T:.2,FF(I);.(13|
000019B0: 29 3B 46 50 28 49 29 00 CB 21 60 04 82 49 3A A0 |);FP(I)..!`..I:.|
000019C0: 32 3A 99 22 13 13 22 3A 89 31 36 00 D6 21 D0 07 |2:."..":.16..!..|
000019D0: 97 31 35 38 2C 30 00 E9 21 DC 07 99 C7 28 32 32 |.158,0..!....(22|
000019E0: 38 29 3B 3A 58 24 B2 22 22 00 FC 21 DE 07 8B C3 |8);:X$.""..!....|
000019F0: 28 58 24 29 B1 37 37 A7 32 30 36 35 00 23 22 E4 |(X$).77.2065.#".|
00001A00: 07 A1 51 24 3A 8B 51 24 B2 22 22 B0 51 24 B2 C7 |..Q$:.Q$."".Q$..|
00001A10: 28 31 34 31 29 B0 51 24 B2 C7 28 33 34 29 A7 32 |(141).Q$..(34).2|
00001A20: 30 31 34 00 36 22 E7 07 8B 51 24 B2 22 2C 22 A7 |014.6"...Q$.",".|
00001A30: 51 24 B2 22 3B 22 00 51 22 E9 07 8B 51 24 B2 C7 |Q$.";".Q"...Q$..|
00001A40: 28 31 33 29 AF C3 28 58 24 29 B2 30 A7 32 30 32 |(13)..(X$).0.202|
00001A50: 30 00 69 22 EE 07 8B 51 24 B2 C7 28 31 36 30 29 |0.i"...Q$..(160)|
00001A60: A7 51 24 B2 C7 28 33 32 29 00 84 22 F3 07 8B 51 |.Q$..(32).."...Q|
00001A70: 24 B2 C7 28 32 30 29 AF C3 28 58 24 29 B2 30 A7 |$..(20)..(X$).0.|
00001A80: 32 30 31 34 00 BC 22 F8 07 8B 51 24 B2 C7 28 32 |2014.."...Q$..(2|
00001A90: 30 29 A7 99 22 9D 9D 20 9D 22 C7 28 32 32 38 29 |0)..".. .".(228)|
00001AA0: 22 20 9D 22 3B 3A 58 24 B2 C8 28 58 24 2C C3 28 |" .";:X$..(X$,.(|
00001AB0: 58 24 29 AB 31 29 3A 89 32 30 31 34 00 CF 22 FD |X$).1):.2014..".|
00001AC0: 07 8B 51 24 B2 C7 28 31 33 29 A7 32 30 36 35 00 |..Q$..(13).2065.|
00001AD0: ED 22 02 08 8B C6 28 51 24 29 B1 31 39 32 B0 C6 |."....(Q$).192..|
00001AE0: 28 51 24 29 B3 32 31 39 A7 32 30 36 30 00 13 23 |(Q$).219.2060..#|
00001AF0: 07 08 8B C6 28 51 24 29 B2 35 38 B0 C6 28 51 24 |....(Q$).58..(Q$|
00001B00: 29 B3 33 32 B0 C6 28 51 24 29 B1 31 34 34 A7 32 |).32..(Q$).144.2|
00001B10: 30 31 34 00 3F 23 0C 08 8B 51 24 B3 B1 C7 28 31 |014.?#...Q$...(1|
00001B20: 33 29 A7 99 22 9D 22 51 24 C7 28 32 32 38 29 3B |3).."."Q$.(228);|
00001B30: 3A 58 24 B2 58 24 AA 51 24 3A 89 32 30 31 34 00 |:X$.X$.Q$:.2014.|
00001B40: 4B 23 11 08 99 22 9D 20 22 3A 8E 00 66 23 C4 09 |K#...". ":..f#..|
00001B50: 48 24 B2 22 2E 46 41 43 54 53 22 3A 42 24 B2 47 |H$.".FACTS":B$.G|
00001B60: 24 AA 48 24 3A 99 00 8B 23 CE 09 9F 32 2C 38 2C |$.H$:...#...2,8,|
00001B70: 32 2C 42 24 3A 84 31 35 2C 45 4E 2C 45 4D 24 3A |2,B$:.15,EN,EM$:|
00001B80: 8B 45 4E B3 32 30 A7 32 35 32 30 00 BA 23 D3 09 |.EN.20.2520..#..|
00001B90: 99 22 C5 52 52 4F 52 20 D3 54 41 54 55 53 3A 20 |.".RROR .TATUS: |
00001BA0: 22 45 4E 2C 45 4D 24 3A 81 49 B2 31 A4 31 35 30 |"EN,EM$:.I.1.150|
00001BB0: 30 3A 82 49 3A A0 32 3A 89 33 00 ED 23 D8 09 84 |0:.I:.2:.3..#...|
00001BC0: 32 2C 42 31 3A 84 32 2C 43 3A 81 49 B2 31 A4 43 |2,B1:.2,C:.I.1.C|
00001BD0: 3A 84 32 2C 46 4C 44 24 28 49 29 2C 4C 4E 28 49 |:.2,FLD$(I),LN(I|
00001BE0: 29 3A 54 4C B2 54 4C AA 4C 4E 28 49 29 00 18 24 |):TL.TL.LN(I)..$|
00001BF0: E2 09 42 54 28 49 29 B2 54 4C AB 4C 4E 28 49 29 |..BT(I).TL.LN(I)|
00001C00: AA 49 3A 82 49 3A 84 32 2C 52 42 3A A0 32 3A 54 |.I:.I:.2,RB:.2:T|
00001C10: 4C B2 54 4C AA 43 AA 31 00 32 24 EC 09 86 54 52 |L.TL.C.1.2$...TR|
00001C20: 28 42 31 29 2C 53 45 28 42 31 29 2C 53 35 28 42 |(B1),SE(B1),S5(B|
00001C30: 31 29 00 38 24 F1 09 8E 00 7A 24 8C 0A 99 22 93 |1).8$....z$...".|
00001C40: C5 4E 54 45 52 20 50 52 49 4E 54 20 46 4F 52 4D |.NTER PRINT FORM|
00001C50: 41 54 20 4E 55 4D 42 45 52 3A 20 22 3B 3A 8D 32 |AT NUMBER: ";:.2|
00001C60: 30 30 30 3A 50 46 24 B2 47 24 AA 22 2D 50 2D 22 |000:PF$.G$."-P-"|
00001C70: AA 58 24 3A 50 5A 24 B2 58 24 00 8B 24 91 0A 8B |.X$:PZ$.X$..$...|
00001C80: 58 24 B2 22 31 22 A7 32 37 33 30 00 B1 24 96 0A |X$."1".2730..$..|
00001C90: 9F 32 2C 38 2C 32 2C 50 46 24 3A 84 31 35 2C 45 |.2,8,2,PF$:.15,E|
00001CA0: 4E 2C 45 4D 24 3A 8B 45 4E B3 32 30 A7 32 37 31 |N,EM$:.EN.20.271|
00001CB0: 35 00 E2 24 98 0A 99 22 D0 52 49 4E 54 20 C6 4F |5..$...".RINT .O|
00001CC0: 52 4D 41 54 20 22 45 4E 2C 45 4D 24 3A 81 49 B2 |RMAT "EN,EM$:.I.|
00001CD0: 31 A4 31 35 30 30 3A 82 49 3A A0 32 3A 89 32 37 |1.1500:.I:.2:.27|
00001CE0: 30 30 00 07 25 9B 0A 84 32 2C 54 3A 81 49 B2 31 |00..%...2,T:.I.1|
00001CF0: A4 54 3A 84 32 2C 46 46 28 49 29 2C 46 50 28 49 |.T:.2,FF(I),FP(I|
00001D00: 29 3A 82 49 3A A0 32 00 0D 25 A0 0A 8E 00 35 25 |):.I:.2..%....5%|
00001D10: AA 0A 81 49 B2 31 A4 43 3A 46 46 28 49 29 B2 49 |...I.1.C:FF(I).I|
00001D20: 3A 46 50 28 49 29 B2 4C 4E 28 49 29 3A 82 49 3A |:FP(I).LN(I):.I:|
00001D30: 54 B2 43 3A 8E 00 49 25 F0 0A A1 50 24 3A 8B 50 |T.C:..I%...P$:.P|
00001D40: 24 B2 22 22 A7 32 38 30 30 00 4F 25 F1 0A 8E 00 |$."".2800.O%....|
00001D50: 71 25 B8 0B A0 31 35 3A A0 37 3A A0 32 3A A0 36 |q%...15:.7:.2:.6|
00001D60: 3A A0 35 3A 9C 3A 93 22 30 3A CD 45 4E 55 22 2C |:.5:.:."0:.ENU",|
00001D70: 38 00 A6 25 A0 0F 8B 53 54 B2 AB 31 32 38 A7 99 |8..%...ST..128..|
00001D80: 22 D2 C5 C1 C4 D9 A0 D0 D2 C9 CE D4 C5 D2 2E 20 |".............. |
00001D90: D4 C8 C5 CE A0 C8 C9 D4 A0 C1 A0 CB C5 D9 2E 22 |..............."|
00001DA0: 3A 89 34 30 30 32 00 AC 25 A1 0F 8E 00 B5 25 A2 |:.4002..%.....%.|
00001DB0: 0F CE 3A A0 35 00 C9 25 A3 0F A1 50 24 3A 8B 50 |..:.5..%...P$:.P|
00001DC0: 24 B2 22 22 A7 34 30 30 33 00 D0 25 A5 0F 89 31 |$."".4003..%...1|
00001DD0: 00 E5 25 88 13 8B C5 28 53 51 24 29 B2 30 20 A7 |..%....(SQ$).0 .|
00001DE0: 20 35 30 35 30 00 F5 25 8D 13 53 46 B2 C5 28 53 | 5050..%..SF..(S|
00001DF0: 51 24 29 3A 8E 00 24 26 BA 13 99 22 93 CD 41 49 |Q$):..$&..."..AI|
00001E00: 4E 20 46 49 4C 45 3A 20 22 47 24 22 20 48 41 53 |N FILE: "G$" HAS|
00001E10: 20 42 45 45 4E 20 41 4C 54 45 52 45 44 22 3A 8D | BEEN ALTERED":.|
00001E20: 36 37 30 30 00 49 26 BB 13 99 22 53 49 4E 43 45 |6700.I&..."SINCE|
00001E30: 20 4C 41 53 54 20 53 4F 52 54 49 4E 47 20 4F 46 | LAST SORTING OF|
00001E40: 3A 20 22 53 46 24 22 2E 22 00 81 26 BC 13 99 22 |: "SF$"."..&..."|
00001E50: C9 54 20 4D 55 53 54 20 42 45 20 52 45 53 4F 52 |.T MUST BE RESOR|
00001E60: 54 45 44 20 42 45 46 4F 52 45 20 49 54 20 43 41 |TED BEFORE IT CA|
00001E70: 4E 20 42 45 20 55 53 45 44 20 41 47 41 49 4E 2E |N BE USED AGAIN.|
00001E80: 22 00 97 26 BF 13 81 49 B2 31 A4 34 30 30 30 3A |"..&...I.1.4000:|
00001E90: 82 49 3A CE 3A 89 31 00 BE 26 70 17 99 22 D0 52 |.I:.:.1..&p..".R|
00001EA0: 4F 56 49 44 45 20 53 4F 52 54 20 46 49 4C 45 20 |OVIDE SORT FILE |
00001EB0: 4C 49 53 54 49 4E 47 20 28 59 2F 4E 29 22 00 D2 |LISTING (Y/N)"..|
00001EC0: 26 7A 17 A1 50 24 3A 8B 50 24 B2 22 22 A7 36 30 |&z..P$:.P$."".60|
00001ED0: 31 30 00 EB 26 84 17 8B 50 24 B2 22 4E 22 20 B0 |10..&...P$."N" .|
00001EE0: 20 50 24 B2 22 CE 22 20 A7 20 8E 00 F7 26 8E 17 | P$."." . ...&..|
00001EF0: 99 22 93 11 11 11 22 00 07 27 98 17 59 24 B2 47 |."...."..'..Y$.G|
00001F00: 24 AA 22 2E 53 46 22 00 2C 27 A2 17 9F 32 2C 38 |$.".SF".,'...2,8|
00001F10: 2C 32 2C 59 24 3A 84 31 35 2C 45 4E 2C 45 4D 24 |,2,Y$:.15,EN,EM$|
00001F20: 3A 8B 45 4E B3 32 30 A7 36 30 36 30 00 4E 27 A4 |:.EN.20.6060.N'.|
00001F30: 17 99 45 4E 2C 45 4D 24 3A 81 49 B2 31 A4 31 35 |..EN,EM$:.I.1.15|
00001F40: 30 30 3A 82 49 3A A0 32 3A 89 36 30 30 30 00 77 |00:.I:.2:.6000.w|
00001F50: 27 AC 17 84 32 2C 42 39 3A 81 49 B2 31 A4 42 39 |'...2,B9:.I.1.B9|
00001F60: 3A 84 32 2C 46 49 4C 45 24 3A 99 A3 31 30 29 46 |:.2,FILE$:..10)F|
00001F70: 49 4C 45 24 3A 82 49 00 80 27 B6 17 A0 32 3A 99 |ILE$:.I..'...2:.|
00001F80: 00 A1 27 D4 17 99 3A 99 22 C8 49 54 20 41 4E 59 |..'...:.".IT ANY|
00001F90: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00001FA0: 22 00 B5 27 D5 17 A1 50 24 3A 8B 50 24 B2 22 22 |"..'...P$:.P$.""|
00001FB0: A7 36 31 30 31 00 C0 27 D9 17 99 22 93 22 3A 8E |.6101..'...".":.|
00001FC0: 00 DB 27 37 18 8F 20 52 45 41 44 20 4F 55 54 20 |..'7.. READ OUT |
00001FD0: 49 4E 44 45 58 20 41 52 52 41 59 00 E1 27 38 18 |INDEX ARRAY..'8.|
00001FE0: 8F 00 F2 27 3D 18 42 32 24 B2 47 24 AA 22 2E 49 |...'=.B2$.G$.".I|
00001FF0: 4E 22 00 18 28 42 18 9F 32 2C 38 2C 32 2C 42 32 |N"..(B..2,8,2,B2|
00002000: 24 3A 84 31 35 2C 45 4E 2C 45 4D 24 3A 8B 45 4E |$:.15,EN,EM$:.EN|
00002010: B3 32 30 A7 36 32 32 30 00 34 28 44 18 99 22 C5 |.20.6220.4(D..".|
00002020: 52 52 4F 52 20 D3 54 41 54 55 53 3A 20 22 45 4E |RROR .TATUS: "EN|
00002030: 2C 45 4D 24 00 52 28 45 18 99 22 C8 49 54 20 41 |,EM$.R(E..".IT A|
00002040: 20 4B 45 59 20 54 4F 20 43 4F 4E 54 49 4E 55 45 | KEY TO CONTINUE|
00002050: 2E 22 00 66 28 46 18 A1 50 24 3A 8B 50 24 B2 22 |.".f(F..P$:.P$."|
00002060: 22 A7 36 32 31 34 00 73 28 47 18 A0 32 3A 89 36 |".6214.s(G..2:.6|
00002070: 32 31 30 00 9D 28 4C 18 84 32 2C 44 55 24 3A 81 |210..(L..2,DU$:.|
00002080: 49 B2 31 A4 42 31 3A 84 32 2C 54 52 28 49 29 2C |I.1.B1:.2,TR(I),|
00002090: 53 45 28 49 29 3A 82 49 3A A0 32 3A 8E 00 B6 28 |SE(I):.I:.2:...(|
000020A0: 9B 18 8F 20 52 45 41 44 20 4F 55 54 20 53 4F 52 |... READ OUT SOR|
000020B0: 54 20 46 49 4C 45 00 DC 28 9C 18 9F 32 2C 38 2C |T FILE..(...2,8,|
000020C0: 32 2C 53 46 24 3A 84 31 35 2C 45 4E 2C 45 4D 24 |2,SF$:.15,EN,EM$|
000020D0: 3A 8B 45 4E B3 32 30 A7 36 33 32 30 00 08 29 A1 |:.EN.20.6320..).|
000020E0: 18 99 22 D3 4F 52 54 20 C6 49 4C 45 3A 20 22 45 |..".ORT .ILE: "E|
000020F0: 4E 2C 45 4D 24 3A 81 49 B2 31 A4 31 35 30 30 3A |N,EM$:.I.1.1500:|
00002100: 82 49 3A A0 32 3A 89 39 00 21 29 B0 18 84 32 2C |.I:.2:.9.!)...2,|
00002110: 42 32 2C 53 32 3A 8B 42 32 B2 42 31 A7 36 33 34 |B2,S2:.B2.B1.634|
00002120: 30 00 61 29 B5 18 99 22 CD 41 49 4E 20 46 49 4C |0.a)...".AIN FIL|
00002130: 45 3A 20 22 47 24 22 20 48 41 53 20 42 45 45 4E |E: "G$" HAS BEEN|
00002140: 22 3A 99 22 43 48 41 4E 47 45 44 20 53 49 4E 43 |":."CHANGED SINC|
00002150: 45 20 4C 41 53 54 20 53 4F 52 54 20 57 49 54 48 |E LAST SORT WITH|
00002160: 22 00 77 29 B6 18 99 22 53 4F 52 54 20 46 49 4C |".w)..."SORT FIL|
00002170: 45 3A 20 22 53 46 24 00 97 29 B7 18 99 22 C3 48 |E: "SF$..)...".H|
00002180: 4F 53 45 20 41 4E 4F 54 48 45 52 20 53 4F 52 54 |OSE ANOTHER SORT|
00002190: 20 46 49 4C 45 2C 22 00 C1 29 B8 18 99 22 4F 52 | FILE,"..)..."OR|
000021A0: 20 45 58 49 54 20 54 4F 20 4D 45 4E 55 2E 22 3A | EXIT TO MENU.":|
000021B0: 81 49 B2 31 A4 34 30 30 30 3A 82 49 3A A0 32 3A |.I.1.4000:.I:.2:|
000021C0: 8A 00 D6 29 C4 18 81 49 B2 31 A4 42 31 3A 84 32 |...)...I.1.B1:.2|
000021D0: 2C 53 35 28 49 29 00 E2 29 C9 18 82 49 3A A0 32 |,S5(I)..)...I:.2|
000021E0: 3A 8E 00 F8 29 63 19 8F 20 52 45 41 44 20 4F 55 |:...)c.. READ OU|
000021F0: 54 20 53 45 43 54 4F 52 00 1D 2A 64 19 4C 52 B2 |T SECTOR..*d.LR.|
00002200: 52 AB 31 3A 4D 4F 44 B2 28 28 4C 52 AD 52 42 29 |R.1:MOD.((LR.RB)|
00002210: AB B5 28 4C 52 AD 52 42 29 29 AC 52 42 00 2B 2A |..(LR.RB)).RB.+*|
00002220: 69 19 50 4F B2 4D 4F 44 AC 54 4C 00 48 2A 6E 19 |i.PO.MOD.TL.H*n.|
00002230: 98 31 35 2C 22 55 31 3A 22 33 3B 30 3B 54 52 28 |.15,"U1:"3;0;TR(|
00002240: 52 29 3B 53 45 28 52 29 00 4E 2A 78 19 8E 00 6A |R);SE(R).N*x...j|
00002250: 2A 95 19 8F 20 52 45 41 44 20 44 41 54 41 20 46 |*... READ DATA F|
00002260: 52 4F 4D 20 42 55 46 46 45 52 00 75 2A 96 19 81 |ROM BUFFER.u*...|
00002270: 49 B2 31 A4 54 00 92 2A 9B 19 98 31 35 2C 22 42 |I.1.T..*...15,"B|
00002280: 2D 50 3A 22 33 3B 50 4F AA 42 54 28 46 46 28 49 |-P:"3;PO.BT(FF(I|
00002290: 29 29 00 A6 2A A0 19 84 36 2C 44 41 54 24 28 49 |))..*...6,DAT$(I|
000022A0: 29 3A 82 49 3A 8E 00 C8 2A B3 19 8F 20 52 45 41 |):.I:...*... REA|
000022B0: 44 20 4F 55 54 20 46 4F 52 20 43 4F 4D 50 41 52 |D OUT FOR COMPAR|
000022C0: 49 53 4F 4E 20 54 41 42 00 E2 2A B4 19 98 31 35 |ISON TAB..*...15|
000022D0: 2C 22 42 2D 50 3A 22 33 3B 50 4F AA 42 54 28 53 |,"B-P:"3;PO.BT(S|
000022E0: 32 29 00 EF 2A BE 19 84 36 2C 43 46 24 3A 8E 00 |2)..*...6,CF$:..|
000022F0: 0E 2B C7 19 8F 20 52 45 41 44 20 45 4E 54 49 52 |.+... READ ENTIR|
00002300: 45 20 52 45 43 20 49 4E 54 4F 20 4D 45 4D 00 19 |E REC INTO MEM..|
00002310: 2B C8 19 81 49 B2 31 A4 43 00 32 2B CD 19 98 31 |+...I.1.C.2+...1|
00002320: 35 2C 22 42 2D 50 3A 22 33 3B 50 4F AA 42 54 28 |5,"B-P:"3;PO.BT(|
00002330: 49 29 00 44 2B D2 19 84 36 2C 44 41 54 24 28 49 |I).D+...6,DAT$(I|
00002340: 29 3A 82 49 00 4A 2B D7 19 8E 00 71 2B 2C 1A 97 |):.I.J+....q+,..|
00002350: 35 34 32 39 36 2C 31 35 3A 81 49 49 B2 49 A4 31 |54296,15:.II.I.1|
00002360: 30 30 3A 82 49 49 3A 97 35 34 32 39 36 2C 30 3A |00:.II:.54296,0:|
00002370: 8E 00 00 00 |.... |
..F.... FLD$(20),LN(20),BT(20),FF(20),FP
(20),PR$(20,2),N$(40),DAT$(20).E... 15:
6:.15,8,15:.6,8,3,"#"......".":.".....
PRINT FILE SECTION ".
G....:."ENTER FILE NAME: ";:.2000:G$.X$.
X....G$."_".3000......:."ENTER TODAY'S D
ATE: ";:.2000:DY$.X$......2500:.6200:.:.
16.U...."SORT FILE NAME FOR THIS PRINTIN
G: ";:.2000:.X$."_".3.O...SF$.G$."-S-".X
$:.6300.U..........".....
"......:..3)"PR
INT OPTIONS:":.:..3)"1. ENTIRE SORTED FI
LE.".......3)"2. ENTIRE UNSORTED FILE.".
/.....3)"3. SORTED FILE WITHIN RANGES.".
].....3)"4. SORTED FILE BY LIST OF CRITE
RIA.".......3)"5. CREATE PRINT FORMAT.":
..3)"6. RETURN TO MAIN MENU.".P....:.".
"
......:." ENTER OPTION: ";:.2000:A.E(X
$)......A.30,300,500,700,1000,3000.2....
6000:.9:.2700:RC.0.[. .HDR$."":.". HIT A
NY KEY WHEN READY.".M.!..P$:.P$."".33...
2..I.1.T:FLD$(FF(I)).FLD$(FF(I))."
"...7.FLD
$(FF(I)).H(FLD$(FF(I)),FP(I)):HDR$.HDR$.
FLD$(FF(I))." ":.I...8.HDR$."REC # ".H
DR$.'.;.Q.C(HDR$):Q.Q.2.K.<.HDR$.H(HDR$,
Q):HDR$.H(HDR$,131).W.`.. 5,4,7.R.G..5,"
."HDR$:CT.0:LI$.""...H..I.1.C(HDR$):LI$.
LI$."*":.I:.5,LI$G(13)...N..J.1.57:. # O
F LINES / PAGE...S.RC.RC.1:.RC.B1.TB$."Y
"..966...T..P$:.P$."_".172...U..RC.B1.17
2...X.R.S5(RC)...Y..6500:.6550.).Z.PO$."
".:.{..TB$."N".130.A.|.ST$.DAT$(SF):.ST$
.CF$.CT.CT.1:.130.J.}..966.S.~..103.~...
.I.1.T.....DAT$(I).DAT$(I)."
".....DAT$(I).
H(DAT$(I),FP(I)):PO$.PO$.DAT$(I)." ":.I
.....R$.D(R):R$.R$." ":R$.H(R$,
7).8...PO$.R$.PO$:PO$.H(PO$,131).F....5,
"."PO$.^. ..RC.B1.TB$."Y"..966.M....RC.B
1.172.T....J......RC.B1.103......5,"."G(
13)G(1)DY$" PRINT FORMAT USED: "PZ$.
D....5,G(12)..... 5,4:.G(7)G(7):.16...,.
.2700:RC.0...1.HDR$."":.". HIT ANY KEY W
HEN READY.".&.6..P$:.P$."".310.Q.;..I.1.
T:FLD$(FF(I)).FLD$(FF(I))."
"...@.FLD$(FF(I)
).H(FLD$(FF(I)),FP(I)):HDR$.HDR$.FLD$(FF
(I))." ":.I.L.E.HDR$."REC # ".HDR$...J
.Q.C(HDR$):Q.Q.2...O.HDR$.H(HDR$,Q):HDR$
.H(HDR$,131)...^.. 5,4:.ST...128 . 370.K
.C..G(7)"READY PRINTER. THEN HIT ANY KE
Y."._.H..P$:.P$."". 360.K.M. 5:.350...R.
.5,"."HDR$:.4000:LI$.""...W..I.1.C(HDR$)
:LI$.LI$."*":.I:.5,LI$G(13).S.|..J.1.57:
. # OF LINES / PAGE.....RC.RC.1......P$:
.P$."_".485......RC.B1.485.....R.RC.....
PO$."".&....6500:.6550.1....I.1.T.N...DA
T$(I).DAT$(I)."
".....DAT$(I).H(DAT$(I),FP(
I)):PO$.PO$.DAT$(I)." ":.I.M.B.R$.D(R):
R$.R$." ":R$.H(R$,7)...G.PO$.R$
.PO$:PO$.H(PO$,131)...L..5,"."PO$......J
......RC.B1.370.A....5,G(13)G(1)DY$".
PRINT FORMAT USED: "PZ$.N....5,G(12).G
... 5,4:.6700:.6700:.16.....6000:.9:.27
00:RC.0......".. RANGE PRINTIN
G "............I.1.C:..10)
I". "FLD$(I):.I:.:.:.......".# OF RESTRI
CTIONS THIS PRINTING: ";:.2000:N1.E(X$).
%....N1.C.504.M....I.1.N1:."RESTRICTION
FIELD "I". ";.C....2000:FR(I).E(X$).....
."VALUES PRINTED SHOULD BE":."GREATER OR
EQUAL TO: ";:.2000.....PR$(I,1).X$:."BU
T LESS THAN: ";:.2000:PR$(I,2).X$:.I:.".
.".....HDR$."":.".HIT ANY KEY TO PRINT."
......P$:.P$."".518.F....I.1.T:FLD$(FF(I
)).FLD$(FF(I))."
".....FLD$(FF(I)).H(FLD$(FF
(I)),FP(I)):HDR$.HDR$.FLD$(FF(I))." ":.
I.A...HDR$."REC # ".HDR$.U...Q.C(HDR$):
Q.Q.2.....HDR$.H(HDR$,Q):HDR$.H(HDR$,131
)...&.. 5,4,7:.ST...128 . 570.D.+.."READ
Y PRINTER. THEN HIT ANY KEY.":.6700.X.0
..P$:.P$."". 560.A.5..550...:..5,"."HDR$
:.4000:CT.0:LI$.""...?..I.1.C(HDR$):LI$.
LI$."*":.I:.5,LI$G(13).N.D..J.1.57:. # O
F LINES / PAGE...I.RC.RC.1:.RC.B1.TB$."Y
"..966...J..P$:.P$."_".680...N..RC.B1.68
0...S.R.S5(RC)...X..6500:.6600.:.Y..I.1.
N1.O.Z.RST$.DAT$(FR(I)).F.[..RST$.PR$(I,
1).608.}.\..RST$.PR$(I,2).608...]..RST$.
PR$(I,1).585...^..RST$.PR$(I,2).585...`.
.I.C.A.PO$."":.6550.T.B..TB$."N".630...G
.ST$.DAT$(SF):.ST$.CF$.CT.CT.1:.630...N.
.966:.570...V..I.1.T.Q.{.DAT$(I).DAT$(I)
."
".....DAT$(I).H(DAT$(I),FP(I)):PO$.PO$.D
AT$(I)." ":.I.....R$.D(R):R$.R$."
":R$.H(R$,7).N...PO$.R$.PO$:PO$.H(PO
$,131)......5,"."PO$......RC.B1.TB$."Y".
.966......RC.B1.680......J......RC.B1.57
0.M....5,"."G(13)G(1)DY$" PRINT FORM
AT USED: "PZ$.Z....5,G(12).W... 5,4:."..
":.G(7)G(7):.16......6000:.9:.2700:RC.0.
E....".... PRINT BY LISTING
":.......I.1.C:..10)I". "FLD$(
I):.I:."ENTER CRITERIA FIELD: ";......20
00:BF.E(X$):..Q.A..".HOW MANY ELEMENTS I
N CRITERIA LIST: ";:.2000:E.E(X$).^.B..E
.C.705.D.D.....E..I.1.E:."CRITERIA #"I":
";:.2000:N$(I).X$:.I:."..".A.L.HDR$."":
.".HIT ANY KEY TO PRINT.".T.N..P$:.P$.""
.718...O..I.1.T:FLD$(FF(I)).FLD$(FF(I)).
" ".
B.P.FLD$(FF(I)).H(FLD$(FF(I)),FP(I)):HDR
$.HDR$.FLD$(FF(I))." ":.I.Z.Z.HDR$."REC
# ".HDR$.....Q.C(HDR$):Q.Q.2.....HDR$.
H(HDR$,Q):HDR$.H(HDR$,131).N.... 5,4,7:.
ST...128 . 820......"READY PRINTER. THE
N HIT ANY KEY.":.6700... ..P$:.P$."". 80
0...*..780.;.4..5,"."HDR$:.4000:CT.0:LI$
."".G.>..I.1.C(HDR$):LI$.LI$."*":.I:.5,L
I$G(13)...H..J.1.57:. # OF LINES / PAGE.
..R.RC.RC.1:.RC.B1.TB$."Y"..966...W..P$:
.P$."_".940.J.\..RC.B1.940.W.F.R.S5(RC).
..H..6500:.6600...K.RST$.DAT$(BF)...O..I
.1.E:.RST$.N$(I).895. .U..I:.850.1..PO$
."":.6550.B....TB$."N".917.I...ST$.DAT$(
SF):.ST$.CF$.CT.CT.1:.917.R....966.{....
820......I.1.T.C...DAT$(I).DAT$(I)."
".....
DAT$(I).H(DAT$(I),FP(I)):PO$.PO$.DAT$(I)
." ":.I."...R$.D(R):R$.R$." ":
R$.H(R$,7).@...PO$.R$.PO$:PO$.H(PO$,131)
.N....5,"."PO$.F....RC.B1.TB$."Y"..966.M
....J.|....RC.B1.103......5,"."G(13)G(1)
DY$" PRINT FORMAT USED: "PZ$......5,
G(12).V... 5,4:.6700:.6700:.16...F..5,"=
========================================
=========".<.G..5,"."CT" IN "FLD$(SF)" O
F "CF$" "DY$.X.H..5,"===================
==============================="...J.CF$
.ST$:CT.0...K..RC..B1.974...L..5,G(1)"PR
INT FORMAT USED: "PZ$.S.M..5,G(12): 5,4:
.16...N.RC.RC.1:.5,G(12)...O... ...."..
CREATE PRINT FORMAT "
.&.....I....:.I.1.C:.I". "FLD$(I),:.I:.:
..R....".HOW MANY FIELDS WILL BE INCLUDE
D"......"IN THIS FORMAT: ";:.2000.....T.
E(X$):.T.C.1030.......W...."FIELD NUMBER
S TO BE PRINTED ARE:":.......I.1.T.. !..
"."I". ";:.2000:FF(I).E(X$):.FF(I).C.105
7.= $.."CHARACTERS NOW ALLOTTED: "LN(FF(
I)):..J ...".# TO BE PRINTED: ";:.2000:F
P(I).E(X$).. 0..FP(I).LN(FF(I)).1070.. 3
.... 8..I.. B.."ARE THESE CORRECT (Y/N)"
;:.2000.H C..X$."Y".1097.. G...20)"START
OVER.":.I.1.1000:.I:.".":. 1050..!I...2
0)"NEW FORMAT # ";:.2000.J!L.P$.G$."-P-"
.X$:.15,"S0:".P$:P$."0:".P$.",S,W".O![..
2,8,2,P$:.15,EN,EM$:.EN.20.1117..!\..EN,
EM$:.I..1000:.I: 2:.1097..!]..2,(T):.I.1
.T:.2,FF(I);G(13);FP(I).K!`..I: 2:."..":
.16.V!P..158,0..!...G(228);:X$.""..!...C
(X$).77.2065.#"...Q$:.Q$."".Q$.G(141).Q$
.G(34).2014.6"...Q$.",".Q$.";".Q"...Q$.G
(13).C(X$).0.2020.I"...Q$.G(160).Q$.G(32
).."...Q$.G(20).C(X$).0.2014.."...Q$.G(2
0)..".. ."G(228)" .";:X$.H(X$,C(X$).1):.
2014.O"...Q$.G(13).2065.."...F(Q$).192.F
(Q$).219.2060..#...F(Q$).58.F(Q$).32.F(Q
$).144.2014.?#...Q$..G(13).."."Q$G(228);
:X$.X$.Q$:.2014.K#...". ":..F#D.H$.".FAC
TS":B$.G$.H$:...#N..2,8,2,B$:.15,EN,EM$:
.EN.20.2520..#S.."ERROR STATUS: "EN,EM$:
.I.1.1500:.I: 2:.3..#X..2,B1:.2,C:.I.1.C
:.2,FLD$(I),LN(I):TL.TL.LN(I)..$..BT(I).
TL.LN(I).I:.I:.2,RB: 2:TL.TL.C.1.2$...TR
(B1),SE(B1),S5(B1).8$....Z$...".ENTER PR
INT FORMAT NUMBER: ";:.2000:PF$.G$."-P-"
.X$:PZ$.X$..$...X$."1".2730..$...2,8,2,P
F$:.15,EN,EM$:.EN.20.2715..$..."PRINT FO
RMAT "EN,EM$:.I.1.1500:.I: 2:.2700..%...
2,T:.I.1.T:.2,FF(I),FP(I):.I: 2..% ...5%
...I.1.C:FF(I).I:FP(I).LN(I):.I:T.C:..I%
...P$:.P$."".2800.O%....Q%.. 15: 7: 2: 6
: 5:.:."0:MENU",8..% ..ST..128.."READY P
RINTER. THEN HIT A KEY.":.4002..%.....%.
.N: 5.I%...P$:.P$."".4003.P%...1..%...E(
SQ$).0 . 5050..%..SF.E(SQ$):..$&...".MAI
N FILE: "G$" HAS BEEN ALTERED":.6700.I&.
.."SINCE LAST SORTING OF: "SF$"."..&..."
IT MUST BE RESORTED BEFORE IT CAN BE USE
D AGAIN."..&...I.1.4000:.I:N:.1..&P.."PR
OVIDE SORT FILE LISTING (Y/N)".R&Z..P$:.
P$."".6010..&...P$."N" . P$."N" . ...&..
."...."..'..Y$.G$.".SF".,'...2,8,2,Y$:.1
5,EN,EM$:.EN.20.6060.N'...EN,EM$:.I.1.15
00:.I: 2:.6000.W'...2,B9:.I.1.B9:.2,FILE
$:..10)FILE$:.I..'.. 2:...'T..:."HIT ANY
KEY TO CONTINUE"..'U..P$:.P$."".6101..'
Y..".":...'7.. READ OUT INDEX ARRAY..'8.
...'=.B2$.G$.".IN"..(B..2,8,2,B2$:.15,EN
,EM$:.EN.20.6220.4(D.."ERROR STATUS: "EN
,EM$.R(E.."HIT A KEY TO CONTINUE.".F(F..
P$:.P$."".6214.S(G. 2:.6210..(L..2,DU$:.
I.1.B1:.2,TR(I),SE(I):.I: 2:...(... READ
OUT SORT FILE..(...2,8,2,SF$:.15,EN,EM$
:.EN.20.6320..)..."SORT FILE: "EN,EM$:.I
.1.1500:.I: 2:.9.!)...2,B2,S2:.B2.B1.634
0.A)..."MAIN FILE: "G$" HAS BEEN":."CHAN
GED SINCE LAST SORT WITH".W)..."SORT FIL
E: "SF$..)..."CHOSE ANOTHER SORT FILE,".
A)..."OR EXIT TO MENU.":.I.1.4000:.I: 2:
..V)D..I.1.B1:.2,S5(I)..)I..I: 2:...)C..
READ OUT SECTOR..*D.LR.R.1:MOD.((LR.RB)
..(LR.RB)).RB.+*I.PO.MOD.TL.H*N..15,"U1:
"3;0;TR(R);SE(R).N*X...J*... READ DATA F
ROM BUFFER.U*...I.1.T..*...15,"B-P:"3;PO
.BT(FF(I))..* ..6,DAT$(I):.I:..H*... REA
D OUT FOR COMPARISON TAB..*...15,"B-P:"3
;PO.BT(S2)..*...6,CF$:...+G.. READ ENTIR
E REC INTO MEM..+H..I.1.C.2+M..15,"B-P:"
3;PO.BT(I).D+R..6,DAT$(I):.I.J+W...Q+,..
54296,15:.II.I.100:.II:.54296,0:....
> CLICK IMAGE PREVIEW FOR FULL MODAL