DUPE PRINT

00000000: 01 08 31 08 0A 00 8F 20  44 55 50 45 20 53 48 45  |..1.... DUPE SHE|
00000010: 45 54 20 50 52 49 4E 54  49 4E 47 20 50 52 4F 47  |ET PRINTING PROG|
00000020: 52 41 4D 20 28 43 36 34  20 56 45 52 53 49 4F 4E  |RAM (C64 VERSION|
00000030: 29 00 57 08 0F 00 8F 20  4D 4F 44 49 46 49 45 44  |).W.... MODIFIED|
00000040: 20 46 4F 52 20 46 41 53  54 45 52 20 50 45 52 46  | FOR FASTER PERF|
00000050: 4F 52 4D 41 4E 43 45 00  90 08 14 00 8F 20 42 59  |ORMANCE...... BY|
00000060: 20 4B 43 36 41 20 41 4E  44 20 4E 36 4E 42 3B 20  | KC6A AND N6NB; |
00000070: 28 43 29 20 31 39 38 33  20 42 59 20 48 41 59 44  |(C) 1983 BY HAYD|
00000080: 45 4E 20 42 4F 4F 4B 20  43 4F 2E 2C 49 4E 43 2E  |EN BOOK CO.,INC.|
00000090: 00 B1 08 1E 00 9F 20 31  33 2C 34 3A 8F 20 56 49  |...... 13,4:. VI|
000000A0: 43 20 50 52 49 4E 54 45  52 20 43 48 41 4E 4E 45  |C PRINTER CHANNE|
000000B0: 4C 00 BE 08 21 00 9F 31  35 2C 38 2C 31 35 00 F2  |L...!..15,8,15..|
000000C0: 08 32 00 43 37 24 B2 C7  28 31 34 37 29 3A 8F 20  |.2.C7$..(147):. |
000000D0: 50 55 54 20 59 4F 55 52  20 43 4C 45 41 52 20 53  |PUT YOUR CLEAR S|
000000E0: 43 52 45 45 4E 20 43 4F  4D 4D 41 4E 44 20 48 45  |CREEN COMMAND HE|
000000F0: 52 45 00 13 09 46 00 4C  31 B2 36 36 3A 8F 20 4C  |RE...F.L1.66:. L|
00000100: 31 20 53 45 54 53 20 23  20 4C 49 4E 45 53 2F 50  |1 SETS # LINES/P|
00000110: 41 47 45 00 3E 09 50 00  4C 32 B2 36 3A 20 8F 20  |AGE.>.P.L2.6: . |
00000120: 4C 32 20 53 45 54 53 20  54 4F 50 20 41 4E 44 20  |L2 SETS TOP AND |
00000130: 42 4F 54 54 4F 4D 20 4D  41 52 47 49 4E 53 00 75  |BOTTOM MARGINS.u|
00000140: 09 5A 00 4C 33 B2 37 32  3A 8F 20 4C 33 20 53 45  |.Z.L3.72:. L3 SE|
00000150: 54 53 20 54 48 45 20 50  41 50 45 52 20 57 49 44  |TS THE PAPER WID|
00000160: 54 48 20 49 4E 20 50 52  49 4E 54 20 50 4F 53 49  |TH IN PRINT POSI|
00000170: 54 49 4F 4E 53 00 94 09  64 00 4E 31 B2 30 3A 20  |TIONS...d.N1.0: |
00000180: 8F 20 4E 31 20 49 53 20  50 41 47 45 20 43 4F 55  |. N1 IS PAGE COU|
00000190: 4E 54 45 52 00 B8 09 6E  00 4E 32 B2 4C 31 AA 4C  |NTER...n.N2.L1.L|
000001A0: 32 AA 31 3A 8F 20 4E 32  20 49 53 20 4C 49 4E 45  |2.1:. N2 IS LINE|
000001B0: 20 43 4F 55 4E 54 45 52  00 DD 09 78 00 4E 33 B2  | COUNTER...x.N3.|
000001C0: B5 28 4C 33 AD 31 30 29  3A 8F 20 4E 33 20 49 53  |.(L3.10):. N3 IS|
000001D0: 20 43 4F 4C 55 4D 4E 53  2F 50 41 47 45 00 16 0A  | COLUMNS/PAGE...|
000001E0: 82 00 83 20 31 2C 32 2C  33 2C 34 2C 35 2C 36 2C  |... 1,2,3,4,5,6,|
000001F0: 33 36 3A 8F 20 53 4F 52  54 20 4F 52 44 45 52 20  |36:. SORT ORDER |
00000200: 46 4F 52 20 41 4C 50 48  41 42 45 54 49 43 20 53  |FOR ALPHABETIC S|
00000210: 4F 52 54 49 4E 47 00 4E  0A 8C 00 83 20 33 2C 34  |ORTING.N.... 3,4|
00000220: 2C 35 2C 36 2C 31 2C 32  2C 31 30 3A 8F 20 53 4F  |,5,6,1,2,10:. SO|
00000230: 52 54 20 4F 52 44 45 52  20 46 4F 52 20 43 41 4C  |RT ORDER FOR CAL|
00000240: 4C 20 41 52 45 41 20 53  4F 52 54 49 4E 47 00 80  |L AREA SORTING..|
00000250: 0A 96 00 50 53 B2 4E 33  AC 28 4C 31 AB 32 AC 4C  |...PS.N3.(L1.2.L|
00000260: 32 AB 33 AB 34 29 3A 8F  20 50 41 47 45 20 53 49  |2.3.4):. PAGE SI|
00000270: 5A 45 20 49 4E 20 43 41  4C 4C 20 53 49 47 4E 53  |ZE IN CALL SIGNS|
00000280: 00 99 0A A1 00 96 20 A5  4D 28 58 29 B2 58 AB 4C  |...... .M(X).X.L|
00000290: 25 AC B5 28 58 AD 4C 25  29 00 B0 0A A2 00 96 20  |%..(X.L%)...... |
000002A0: A5 58 28 58 29 B2 A5 4D  28 58 AA 46 50 AB 31 29  |.X(X)..M(X.FP.1)|
000002B0: 00 C9 0A AA 00 99 20 43  37 24 3A 8F 20 43 4C 45  |...... C7$:. CLE|
000002C0: 41 52 20 53 43 52 45 45  4E 00 D1 0A B4 00 99 3A  |AR SCREEN......:|
000002D0: 99 00 FB 0A BE 00 99 20  22 20 20 20 20 20 20 44  |....... "      D|
000002E0: 55 50 45 20 53 48 45 45  54 20 50 52 49 4E 54 49  |UPE SHEET PRINTI|
000002F0: 4E 47 20 50 52 4F 47 52  41 4D 22 00 03 0B C8 00  |NG PROGRAM".....|
00000300: 99 3A 99 00 21 0B CC 00  85 20 22 57 48 41 54 20  |.:..!.... "WHAT |
00000310: 49 53 20 59 4F 55 52 20  43 41 4C 4C 22 3B 4D 59  |IS YOUR CALL";MY|
00000320: 24 00 27 0B DC 00 99 00  55 0B E6 00 99 20 22 53  |$.'.....U.... "S|
00000330: 48 4F 55 4C 44 20 43 41  4C 4C 53 20 42 45 20 4C  |HOULD CALLS BE L|
00000340: 49 53 54 45 44 20 41 4C  50 48 41 42 45 54 49 43  |ISTED ALPHABETIC|
00000350: 41 4C 4C 59 22 00 76 0B  E8 00 85 20 22 4F 52 20  |ALLY".v.... "OR |
00000360: 42 59 20 43 41 4C 4C 20  41 52 45 41 20 28 41 2F  |BY CALL AREA (A/|
00000370: 43 29 22 3B 41 24 00 7C  0B F0 00 99 00 A7 0B FA  |C)";A$.|........|
00000380: 00 8B 20 41 24 B2 22 43  22 20 A7 20 8D 20 31 31  |.. A$."C" . . 11|
00000390: 30 30 20 45 4C 53 45 20  8B 20 41 24 B3 B1 22 41  |00 ELSE . A$.."A|
000003A0: 22 20 A7 20 32 32 30 00  B2 0B 04 01 8D 20 31 31  |" . 220...... 11|
000003B0: 30 30 00 DE 0B 0E 01 99  20 22 50 4F 53 49 54 49  |00...... "POSITI|
000003C0: 4F 4E 20 50 41 50 45 52  20 41 54 20 54 4F 50 20  |ON PAPER AT TOP |
000003D0: 4F 46 20 41 20 4E 45 57  20 50 41 47 45 22 00 FF  |OF A NEW PAGE"..|
000003E0: 0B 10 01 85 20 22 49 4E  20 50 52 49 4E 54 45 52  |.... "IN PRINTER|
000003F0: 2E 20 54 48 45 4E 20 3C  43 52 3E 22 3B 47 24 00  |. THEN <CR>";G$.|
00000400: 0A 0C 13 01 8D 20 31 30  30 30 00 2B 0C 18 01 86  |..... 1000.+....|
00000410: 20 51 43 28 53 5A 29 2C  20 58 31 25 28 31 30 30  | QC(SZ), X1%(100|
00000420: 29 2C 20 58 32 25 28 31  30 30 29 00 59 0C 22 01  |), X2%(100).Y.".|
00000430: 41 56 B2 C6 28 22 30 22  29 3A 41 53 B2 32 36 3A  |AV..("0"):AS.26:|
00000440: 8B 20 41 24 B2 22 41 22  20 A7 20 41 56 B2 C6 28  |. A$."A" . AV..(|
00000450: 22 41 22 29 3A 41 53 B2  30 00 69 0C 2C 01 81 20  |"A"):AS.0.i.,.. |
00000460: 42 44 B2 31 20 A4 20 4E  4C 00 93 0C 36 01 99 3A  |BD.1 . NL...6..:|
00000470: 99 20 22 50 52 4F 43 45  53 53 49 4E 47 20 44 55  |. "PROCESSING DU|
00000480: 50 45 53 48 45 45 54 20  22 3B 4C 4E 24 28 42 44  |PESHEET ";LN$(BD|
00000490: 29 3A 99 00 B3 0C 37 01  58 53 B2 30 3A 8B 20 54  |):....7.XS.0:. T|
000004A0: 43 25 28 42 44 29 B2 B3  4D 31 20 A7 20 8D 20 32  |C%(BD)..M1 . . 2|
000004B0: 30 30 30 00 C3 0C 40 01  81 20 4B 4C B2 31 20 A4  |000...@.. KL.1 .|
000004C0: 20 53 5A 00 E7 0C 4A 01  8B 20 4B 4C B2 31 20 A7  | SZ...J.. KL.1 .|
000004D0: 20 81 20 4A B2 31 20 A4  20 53 5A 3A 51 43 28 4A  | . J.1 . SZ:QC(J|
000004E0: 29 B2 30 3A 82 20 4A 00  08 0D 54 01 4D 50 B2 30  |).0:. J...T.MP.0|
000004F0: 3A 4C 50 B2 30 3A 4B 54  B2 4B 4C AA 41 53 3A 46  |:LP.0:KT.KL.AS:F|
00000500: 50 B2 31 3A 4C 52 B2 30  00 37 0D 5E 01 57 24 B2  |P.1:LR.0.7.^.W$.|
00000510: C7 28 4B 4C AA 41 56 AB  31 29 3A 8B 20 4B 4C B1  |.(KL.AV.1):. KL.|
00000520: 32 36 20 A7 20 57 24 B2  C7 28 4B 4C AB 32 37 AA  |26 . W$..(KL.27.|
00000530: C6 28 22 30 22 29 29 00  55 0D 68 01 99 3A 99 20  |.("0")).U.h..:. |
00000540: 22 20 20 20 53 4F 52 54  49 4E 47 20 42 59 2E 2E  |"   SORTING BY..|
00000550: 2E 20 22 57 24 00 73 0D  72 01 8B 20 4B 4C B1 31  |. "W$.s.r.. KL.1|
00000560: 20 A7 20 8B 20 51 43 28  4B 4C 29 B3 31 20 A7 20  | . . QC(KL).1 . |
00000570: 39 30 30 00 82 0D 7C 01  81 20 4B B2 31 20 A4 20  |900...|.. K.1 . |
00000580: 32 36 00 A4 0D 7D 01 8B  20 58 53 B2 31 20 A7 20  |26...}.. XS.1 . |
00000590: 8B 20 4B 4C B1 31 20 A7  20 8B 20 4B B1 31 20 A7  |. KL.1 . . K.1 .|
000005A0: 20 36 35 30 00 AE 0D 7E  01 50 5A 25 B2 31 00 C0  | 650...~.PZ%.1..|
000005B0: 0D 86 01 48 25 B2 42 44  AC 32 36 AB 32 36 AA 4B  |...H%.BD.26.26.K|
000005C0: 00 E3 0D 90 01 8B 20 4B  4C B1 31 20 A7 20 8B 20  |...... KL.1 . . |
000005D0: 58 53 B2 31 20 A7 20 8D  20 32 32 30 30 3A 89 20  |XS.1 . . 2200:. |
000005E0: 34 32 30 00 F4 0D 92 01  52 4E B2 48 25 3A 8D 20  |420.....RN.H%:. |
000005F0: 37 30 30 30 00 0A 0E 9A  01 52 50 B2 31 3A 8D 37  |7000.....RP.1:.7|
00000600: 31 30 30 3A 84 33 2C 45  31 25 00 20 0E 9C 01 52  |100:.3,E1%. ...R|
00000610: 50 B2 39 3A 8D 37 31 30  30 3A 84 33 2C 45 32 25  |P.9:.7100:.3,E2%|
00000620: 00 37 0E 9E 01 52 50 B2  31 37 3A 8D 37 31 30 30  |.7...RP.17:.7100|
00000630: 3A 84 33 2C 50 5A 25 00  59 0E A4 01 4C 52 B2 4C  |:.3,PZ%.Y...LR.L|
00000640: 52 AA 31 3A 8B 20 4C 52  B2 31 30 20 A7 20 4C 52  |R.1:. LR.10 . LR|
00000650: B2 30 3A 99 20 22 2B 22  3B 00 7B 0E AE 01 8B 20  |.0:. "+";.{.... |
00000660: 45 31 25 B2 AB 33 32 30  30 30 20 A7 20 36 35 30  |E1%..32000 . 650|
00000670: 3A 8F 20 4E 4F 20 45 4E  54 52 59 00 A0 0E B8 01  |:. NO ENTRY.....|
00000680: 8B 20 45 31 25 B3 AB 33  32 30 30 30 20 A7 20 36  |. E1%..32000 . 6|
00000690: 34 30 3A 8F 20 42 4C 41  4E 4B 20 45 4E 54 52 59  |40:. BLANK ENTRY|
000006A0: 00 AB 0E C2 01 8D 20 31  31 36 30 00 BF 0E CC 01  |...... 1160.....|
000006B0: 8B 20 41 24 B3 B1 22 41  22 20 A7 20 34 39 30 00  |. A$.."A" . 490.|
000006C0: D3 0E D6 01 8B 20 45 28  31 29 B3 B1 30 20 A7 20  |..... E(1)..0 . |
000006D0: 34 39 30 00 E8 0E E0 01  45 28 31 29 B2 45 28 32  |490.....E(1).E(2|
000006E0: 29 3A 45 28 32 29 B2 30  00 21 0F EA 01 51 43 28  |):E(2).0.!...QC(|
000006F0: 45 28 53 28 31 29 29 AB  41 53 29 B2 31 3A 8B 20  |E(S(1)).AS).1:. |
00000700: 45 28 53 28 31 29 29 B3  B1 4B 54 20 A7 20 8D 20  |E(S(1))..KT . . |
00000710: 32 31 30 30 3A 89 20 36  34 30 3A 8F 20 53 4B 49  |2100:. 640:. SKI|
00000720: 50 00 50 0F F4 01 45 31  25 B2 AB 33 32 30 30 30  |P.P...E1%..32000|
00000730: AA 45 28 53 28 31 29 29  AC 31 33 36 39 AA 45 28  |.E(S(1)).1369.E(|
00000740: 53 28 32 29 29 AC 33 37  AA 45 28 53 28 33 29 29  |S(2)).37.E(S(3))|
00000750: 00 7F 0F FE 01 45 32 25  B2 AB 33 32 30 30 30 AA  |.....E2%..32000.|
00000760: 45 28 53 28 34 29 29 AC  31 33 36 39 AA 45 28 53  |E(S(4)).1369.E(S|
00000770: 28 35 29 29 AC 33 37 AA  45 28 53 28 36 29 29 00  |(5)).37.E(S(6)).|
00000780: 9A 0F 08 02 8F 20 53 4F  52 54 20 49 4E 54 4F 20  |..... SORT INTO |
00000790: 41 52 52 41 59 20 4C 49  53 54 00 A3 0F 12 02 53  |ARRAY LIST.....S|
000007A0: 49 B2 30 00 B6 0F 1C 02  8B 20 53 49 B1 B2 4D 50  |I.0...... SI..MP|
000007B0: 20 A7 20 36 32 30 00 C2  0F 26 02 53 49 B2 53 49  | . 620...&.SI.SI|
000007C0: AA 31 00 DB 0F 30 02 8B  20 45 31 25 B3 20 58 31  |.1...0.. E1%. X1|
000007D0: 25 28 53 49 29 20 A7 20  35 39 30 00 F4 0F 3A 02  |%(SI) . 590...:.|
000007E0: 8B 20 45 31 25 B1 20 58  31 25 28 53 49 29 20 A7  |. E1%. X1%(SI) .|
000007F0: 20 36 31 30 00 0D 10 44  02 8B 20 45 32 25 B1 20  | 610...D.. E2%. |
00000800: 58 32 25 28 53 49 29 20  A7 20 36 31 30 00 33 10  |X2%(SI) . 610.3.|
00000810: 4E 02 44 58 25 B2 20 58  31 25 28 53 49 29 3A 20  |N.DX%. X1%(SI): |
00000820: 58 31 25 28 53 49 29 B2  45 31 25 3A 45 31 25 B2  |X1%(SI).E1%:E1%.|
00000830: 44 58 25 00 59 10 58 02  44 59 25 B2 20 58 32 25  |DX%.Y.X.DY%. X2%|
00000840: 28 53 49 29 3A 20 58 32  25 28 53 49 29 B2 45 32  |(SI): X2%(SI).E2|
00000850: 25 3A 45 32 25 B2 44 59  25 00 63 10 62 02 89 20  |%:E2%.DY%.c.b.. |
00000860: 35 34 30 00 89 10 6C 02  4D 50 B2 4D 50 AA 31 3A  |540...l.MP.MP.1:|
00000870: 20 58 31 25 28 4D 50 29  B2 45 31 25 3A 20 58 32  | X1%(MP).E1%: X2|
00000880: 25 28 4D 50 29 B2 45 32  25 00 A7 10 76 02 8B 20  |%(MP).E2%...v.. |
00000890: 4D 50 B2 31 30 30 20 A7  20 8D 20 31 34 34 30 3A  |MP.100 . . 1440:|
000008A0: 8F 20 4D 45 52 47 45 00  C3 10 80 02 8B 20 50 5A  |. MERGE...... PZ|
000008B0: 25 B3 B1 30 20 A7 20 48  25 B2 50 5A 25 3A 89 20  |%..0 . H%.PZ%:. |
000008C0: 34 30 30 00 CB 10 8A 02  82 20 4B 00 DF 10 94 02  |400...... K.....|
000008D0: 8B 20 4D 50 B1 30 20 A7  20 8D 20 31 34 34 30 00  |. MP.0 . . 1440.|
000008E0: 01 11 9E 02 8F 20 52 45  43 4F 4E 53 54 52 55 43  |..... RECONSTRUC|
000008F0: 54 20 43 41 4C 4C 20 26  20 50 52 49 4E 54 20 49  |T CALL & PRINT I|
00000900: 54 00 23 11 A8 02 8B 20  51 43 28 4B 4C 29 B2 30  |T.#.... QC(KL).0|
00000910: 20 A7 20 39 30 30 3A 8F  20 4C 49 53 54 20 45 4D  | . 900:. LIST EM|
00000920: 50 54 59 00 3B 11 AD 02  99 3A 99 20 22 20 50 52  |PTY.;....:. " PR|
00000930: 49 4E 54 49 4E 47 2E 2E  2E 22 3B 00 5C 11 B2 02  |INTING...";.\...|
00000940: 53 45 B2 4C 50 AB 46 50  AA 31 3A 8B 20 53 45 B3  |SE.LP.FP.1:. SE.|
00000950: 30 20 A7 20 53 45 B2 53  45 AA 4C 25 00 7F 11 BC  |0 . SE.SE.L%....|
00000960: 02 81 20 4A 4A B2 53 45  AA 31 20 A4 20 4E 33 AC  |.. JJ.SE.1 . N3.|
00000970: B5 28 28 53 45 AA 4E 33  AB 31 29 AD 4E 33 29 00  |.((SE.N3.1).N3).|
00000980: B1 11 C6 02 43 31 25 28  A5 58 28 4A 4A 29 29 B2  |....C1%(.X(JJ)).|
00000990: AB 33 32 30 30 30 3A 43  32 25 28 A5 58 28 4A 4A  |.32000:C2%(.X(JJ|
000009A0: 29 29 B2 AB 33 32 30 30  30 3A 53 45 B2 53 45 AA  |))..32000:SE.SE.|
000009B0: 31 00 BA 11 D0 02 82 20  4A 4A 00 DA 11 DA 02 8B  |1...... JJ......|
000009C0: 20 4E 32 AA 33 AA 53 45  AD 4E 33 B1 4C 31 AB 4C  | N2.3.SE.N3.L1.L|
000009D0: 32 20 A7 20 8D 20 31 33  33 30 00 E3 11 E4 02 50  |2 . . 1330.....P|
000009E0: 4C B2 31 00 07 12 EE 02  50 55 B2 53 45 3A 8B 20  |L.1.....PU.SE:. |
000009F0: 53 45 B1 50 53 AA 50 4C  AB 31 20 A7 20 50 55 B2  |SE.PS.PL.1 . PU.|
00000A00: 50 53 AA 50 4C AB 31 00  3B 12 F8 02 98 31 33 2C  |PS.PL.1.;....13,|
00000A10: 22 22 3A 98 31 33 2C 22  22 3B A6 4C 33 AD 32 AB  |"":.13,"";.L3.2.|
00000A20: 31 29 22 2D 22 3B 57 24  3B 22 2D 22 3A 98 31 33  |1)"-";W$;"-":.13|
00000A30: 2C 22 22 3A 4E 32 B2 4E  32 AA 33 00 5B 12 02 03  |,"":N2.N2.3.[...|
00000A40: 81 20 4A 4A B2 50 4C 20  A4 20 50 4C AB 31 AA 28  |. JJ.PL . PL.1.(|
00000A50: 50 55 AB 50 4C AA 31 29  AD 4E 33 00 6D 12 0C 03  |PU.PL.1).N3.m...|
00000A60: 81 20 4B 4B B2 30 20 A4  20 4E 33 AB 31 00 8E 12  |. KK.0 . N3.1...|
00000A70: 16 03 53 53 B2 A5 58 28  B5 28 4A 4A AA 4B 4B AC  |..SS..X(.(JJ.KK.|
00000A80: 28 50 55 AB 50 4C AA 31  29 AD 4E 33 29 29 00 BB  |(PU.PL.1).N3))..|
00000A90: 12 20 03 45 58 B2 43 31  25 28 53 53 29 AA 33 32  |. .EX.C1%(SS).32|
00000AA0: 30 30 30 3A 45 59 B2 43  32 25 28 53 53 29 AA 33  |000:EY.C2%(SS).3|
00000AB0: 32 30 30 30 3A 8D 20 31  31 38 30 00 C6 12 2A 03  |2000:. 1180...*.|
00000AC0: 8D 20 31 32 33 30 00 DC  12 34 03 98 31 33 2C 22  |. 1230...4..13,"|
00000AD0: 20 20 22 3B 50 24 3B 22  20 20 22 3B 00 E5 12 3E  |  ";P$;"  ";...>|
00000AE0: 03 82 20 4B 4B 00 F8 12  48 03 98 31 33 2C 22 22  |.. KK...H..13,""|
00000AF0: 3A 4E 32 B2 4E 32 AA 31  00 01 13 52 03 82 20 4A  |:N2.N2.1...R.. J|
00000B00: 4A 00 14 13 5C 03 8B 20  50 55 B1 B2 53 45 20 A7  |J...\.. PU..SE .|
00000B10: 20 39 30 30 00 20 13 66  03 50 4C B2 50 55 AA 31  | 900. .f.PL.PU.1|
00000B20: 00 2B 13 70 03 8D 20 31  33 33 30 00 35 13 7A 03  |.+.p.. 1330.5.z.|
00000B30: 89 20 37 35 30 00 3E 13  84 03 82 20 4B 4C 00 59  |. 750.>.... KL.Y|
00000B40: 13 8E 03 8F 20 53 50 41  43 45 20 54 4F 20 45 4E  |.... SPACE TO EN|
00000B50: 44 20 4F 46 20 50 41 47  45 00 6E 13 98 03 81 20  |D OF PAGE.n.... |
00000B60: 5A B2 4E 32 AA 31 20 A4  20 4C 32 AA 4C 31 00 79  |Z.N2.1 . L2.L1.y|
00000B70: 13 A2 03 98 31 33 2C 22  22 00 81 13 AC 03 82 20  |....13,""...... |
00000B80: 5A 00 8E 13 B6 03 4E 32  B2 4C 31 AA 4C 32 00 97  |Z.....N2.L1.L2..|
00000B90: 13 C0 03 82 20 42 44 00  AA 13 CA 03 99 3A 99 20  |.... BD......:. |
00000BA0: A3 35 29 22 2D 44 4F 4E  45 22 00 B5 13 D4 03 A0  |.5)"-DONE"......|
00000BB0: 33 3A A0 31 35 00 D3 13  DE 03 81 20 4A B2 31 20  |3:.15...... J.1 |
00000BC0: A4 20 31 35 30 30 3A 99  3B 3A 82 20 4A 3A A0 31  |. 1500:.;:. J:.1|
00000BD0: 33 3A 80 00 E8 13 E8 03  8F 20 4C 4F 41 44 20 44  |3:....... LOAD D|
00000BE0: 55 50 45 20 46 49 4C 45  00 0F 14 ED 03 99 20 22  |UPE FILE...... "|
00000BF0: 53 54 41 4E 44 20 42 59  20 2E 20 2E 20 2E 20 20  |STAND BY . . .  |
00000C00: 43 4F 55 4E 54 49 4E 47  20 46 49 4C 45 53 22 00  |COUNTING FILES".|
00000C10: 31 14 F2 03 9F 34 2C 38  2C 34 2C 22 30 3A 44 55  |1....4,8,4,"0:DU|
00000C20: 50 45 4C 4F 47 41 2C 53  2C 52 22 3A 8D 36 30 30  |PELOGA,S,R":.600|
00000C30: 30 00 53 14 FC 03 84 34  2C 48 43 24 3A 84 34 2C  |0.S....4,HC$:.4,|
00000C40: 54 3A 84 34 2C 59 24 3A  84 34 2C 5A 24 3A 84 34  |T:.4,Y$:.4,Z$:.4|
00000C50: 2C 4E 4C 00 63 14 FD 03  84 34 2C 4C 25 3A 84 34  |,NL.c....4,L%:.4|
00000C60: 2C 4D 31 00 94 14 FE 03  4C 25 B2 30 3A 86 20 54  |,M1.....L%.0:. T|
00000C70: 43 25 28 4E 4C 29 3A 89  20 31 30 37 30 3A 8F 20  |C%(NL):. 1070:. |
00000C80: 54 4F 54 41 4C 20 43 41  4C 4C 53 20 50 45 52 20  |TOTAL CALLS PER |
00000C90: 42 41 4E 44 00 A1 14 06  04 4C 25 B2 4C 25 AA 31  |BAND.....L%.L%.1|
00000CA0: 30 00 BF 14 10 04 86 20  4C 4E 24 28 4E 4C 29 2C  |0...... LN$(NL),|
00000CB0: 43 31 25 28 4C 25 29 2C  43 32 25 28 4C 25 29 00  |C1%(L%),C2%(L%).|
00000CC0: DC 14 1A 04 81 20 4A B2  31 20 A4 20 4E 4C 3A 84  |..... J.1 . NL:.|
00000CD0: 34 2C 4C 4E 24 28 4A 29  3A 82 20 4A 00 FD 14 1B  |4,LN$(J):. J....|
00000CE0: 04 4D 31 B2 B8 28 30 29  3A 8B 20 4D 31 B3 30 20  |.M1..(0):. M1.0 |
00000CF0: A7 20 4D 31 B2 4D 31 AA  36 35 35 33 36 00 13 15  |. M1.M1.65536...|
00000D00: 1C 04 4D 31 B2 B5 28 28  4D 31 AB 32 30 30 30 29  |..M1..((M1.2000)|
00000D10: AD 36 29 00 31 15 1D 04  86 20 43 33 25 28 4D 31  |.6).1.... C3%(M1|
00000D20: 29 2C 43 34 25 28 4D 31  29 2C 50 34 25 28 4D 31  |),C4%(M1),P4%(M1|
00000D30: 29 00 3A 15 24 04 A0 34  3A 8E 00 61 15 2E 04 9F  |).:.$..4:..a....|
00000D40: 33 2C 38 2C 33 2C 22 30  3A 44 55 50 45 4C 4F 47  |3,8,3,"0:DUPELOG|
00000D50: 42 2C 4C 2C 22 AA C7 28  32 33 29 3A 8D 36 30 30  |B,L,"..(23):.600|
00000D60: 30 00 71 15 3A 04 81 20  42 44 B2 31 20 A4 20 4E  |0.q.:.. BD.1 . N|
00000D70: 4C 00 7F 15 3B 04 54 43  25 28 42 44 29 B2 30 00  |L...;.TC%(BD).0.|
00000D80: 8E 15 3C 04 81 20 4B B2  31 20 A4 20 32 36 00 A0  |..<.. K.1 . 26..|
00000D90: 15 3D 04 48 25 B2 42 44  AC 32 36 AB 32 36 AA 4B  |.=.H%.BD.26.26.K|
00000DA0: 00 B1 15 3E 04 52 4E B2  48 25 3A 8D 20 37 30 30  |...>.RN.H%:. 700|
00000DB0: 30 00 C9 15 3F 04 52 50  B2 31 37 3A 8D 20 37 31  |0...?.RP.17:. 71|
00000DC0: 30 30 3A 84 33 2C 50 5A  25 00 E0 15 40 04 52 50  |00:.3,PZ%...@.RP|
00000DD0: B2 31 3A 8D 20 37 31 30  30 3A 84 33 2C 45 31 25  |.1:. 7100:.3,E1%|
00000DE0: 00 F6 15 41 04 54 43 25  28 42 44 29 B2 54 43 25  |...A.TC%(BD).TC%|
00000DF0: 28 42 44 29 AA 31 00 25  16 42 04 8B 20 28 50 5A  |(BD).1.%.B.. (PZ|
00000E00: 25 B3 B1 30 29 20 AF 20  28 43 31 25 B3 B1 AB 33  |%..0) . (C1%...3|
00000E10: 32 30 30 30 29 20 A7 20  48 25 B2 50 5A 25 3A 89  |2000) . H%.PZ%:.|
00000E20: 20 31 30 38 36 00 2D 16  43 04 82 20 4B 00 50 16  | 1086.-.C.. K.P.|
00000E30: 44 04 8B 20 4C 25 B3 54  43 25 28 42 44 29 20 A7  |D.. L%.TC%(BD) .|
00000E40: 20 4C 25 B2 54 43 25 28  42 44 29 3A 82 20 42 44  | L%.TC%(BD):. BD|
00000E50: 00 7C 16 45 04 99 20 22  4C 41 52 47 45 53 54 20  |.|.E.. "LARGEST |
00000E60: 46 49 4C 45 20 3D 22 3B  4C 25 3B 22 20 45 4E 54  |FILE =";L%;" ENT|
00000E70: 52 49 45 53 22 3A 89 20  31 30 33 30 00 8A 16 4C  |RIES":. 1030...L|
00000E80: 04 81 20 4A B2 31 20 A4  20 36 00 95 16 56 04 87  |.. J.1 . 6...V..|
00000E90: 20 53 28 4A 29 00 A3 16  60 04 54 28 53 28 4A 29  | S(J)...`.T(S(J)|
00000EA0: 29 B2 4A 00 AB 16 6A 04  82 20 4A 00 B4 16 74 04  |).J...j.. J...t.|
00000EB0: 87 20 53 5A 00 BA 16 7E  04 8E 00 DA 16 88 04 8F  |. SZ...~........|
00000EC0: 20 44 45 43 4F 44 45 20  43 41 4C 4C 20 49 4E 54  | DECODE CALL INT|
00000ED0: 4F 20 36 20 44 49 47 49  54 53 00 F8 16 92 04 45  |O 6 DIGITS.....E|
00000EE0: 58 B2 45 31 25 AA 33 32  30 30 30 3A 45 59 B2 45  |X.E1%.32000:EY.E|
00000EF0: 32 25 AA 33 32 30 30 30  00 1C 17 9C 04 45 28 31  |2%.32000.....E(1|
00000F00: 29 B2 B5 28 45 58 AD 31  33 36 39 29 3A 45 58 B2  |)..(EX.1369):EX.|
00000F10: 45 58 AB 45 28 31 29 AC  31 33 36 39 00 3E 17 A6  |EX.E(1).1369.>..|
00000F20: 04 45 28 32 29 B2 B5 28  45 58 AD 33 37 29 3A 45  |.E(2)..(EX.37):E|
00000F30: 28 33 29 B2 45 58 AB 45  28 32 29 AC 33 37 00 62  |(3).EX.E(2).37.b|
00000F40: 17 B0 04 45 28 34 29 B2  B5 28 45 59 AD 31 33 36  |...E(4)..(EY.136|
00000F50: 39 29 3A 45 59 B2 45 59  AB 45 28 34 29 AC 31 33  |9):EY.EY.E(4).13|
00000F60: 36 39 00 84 17 BA 04 45  28 35 29 B2 B5 28 45 59  |69.....E(5)..(EY|
00000F70: AD 33 37 29 3A 45 28 36  29 B2 45 59 AB 45 28 35  |.37):E(6).EY.E(5|
00000F80: 29 AC 33 37 00 8A 17 C4  04 8E 00 A6 17 CE 04 8F  |).37............|
00000F90: 20 43 48 41 4E 47 45 20  43 41 4C 4C 53 20 54 4F  | CHANGE CALLS TO|
00000FA0: 20 41 4C 50 48 41 00 D1  17 D8 04 8B 20 41 24 B2  | ALPHA...... A$.|
00000FB0: 22 41 22 20 A7 20 8B 20  45 28 32 29 B2 30 20 A7  |"A" . . E(2).0 .|
00000FC0: 20 45 28 32 29 B2 45 28  31 29 3A 45 28 31 29 B2  | E(2).E(1):E(1).|
00000FD0: 30 00 DC 17 E2 04 50 24  B2 22 20 22 00 EA 17 EC  |0.....P$." "....|
00000FE0: 04 81 20 4C B2 31 20 A4  20 36 00 F9 17 F6 04 4C  |.. L.1 . 6.....L|
00000FF0: 4C B2 45 28 54 28 4C 29  29 00 17 18 00 05 8B 20  |L.E(T(L))...... |
00001000: 4C 4C B2 30 20 A7 20 50  24 B2 50 24 AA 22 20 22  |LL.0 . P$.P$." "|
00001010: 3A 89 20 31 33 31 30 00  44 18 0A 05 8B 20 4C 4C  |:. 1310.D.... LL|
00001020: B3 32 37 20 A7 20 50 24  B2 50 24 AA C7 28 4C 4C  |.27 . P$.P$..(LL|
00001030: AA 36 34 29 3A 89 20 31  33 31 30 3A 8F 20 4C 45  |.64):. 1310:. LE|
00001040: 54 54 45 52 00 60 18 14  05 50 24 B2 50 24 AA C7  |TTER.`...P$.P$..|
00001050: 28 4C 4C AA 32 31 29 3A  8F 20 4E 55 4D 42 45 52  |(LL.21):. NUMBER|
00001060: 00 68 18 1E 05 82 20 4C  00 6E 18 28 05 8E 00 83  |.h.... L.n.(....|
00001070: 18 32 05 8F 20 47 4F 20  54 4F 20 4E 45 57 20 50  |.2.. GO TO NEW P|
00001080: 41 47 45 00 98 18 3C 05  81 20 5A B2 4E 32 AA 31  |AGE...<.. Z.N2.1|
00001090: 20 A4 20 4C 32 AA 4C 31  00 A3 18 46 05 98 31 33  | . L2.L1...F..13|
000010A0: 2C 22 22 00 AB 18 50 05  82 20 5A 00 B7 18 5A 05  |,""...P.. Z...Z.|
000010B0: 4E 31 B2 4E 31 AA 31 00  CB 18 64 05 98 31 33 2C  |N1.N1.1...d..13,|
000010C0: 22 20 20 20 20 20 22 3B  5A 24 3B 00 F2 18 6E 05  |"     ";Z$;...n.|
000010D0: 98 31 33 2C 22 22 3B A6  28 4C 33 AB C3 28 4D 59  |.13,"";.(L3..(MY|
000010E0: 24 29 29 AD 32 AB 35 AB  C3 28 5A 24 29 29 4D 59  |$)).2.5..(Z$))MY|
000010F0: 24 3B 00 19 19 78 05 98  31 33 2C 22 22 3B A6 28  |$;...x..13,"";.(|
00001100: 4C 33 AB C3 28 4D 59 24  29 29 AD 32 AB 31 32 29  |L3..(MY$)).2.12)|
00001110: 22 50 41 47 45 22 3B 4E  31 00 35 19 82 05 98 31  |"PAGE";N1.5....1|
00001120: 33 2C 22 22 3B A6 28 4C  33 AB C3 28 59 24 29 29  |3,"";.(L3..(Y$))|
00001130: AD 32 29 59 24 00 6A 19  8C 05 98 31 33 2C 22 22  |.2)Y$.j....13,""|
00001140: 3B A6 28 4C 33 AB 39 AB  C3 28 4C 4E 24 28 42 44  |;.(L3.9..(LN$(BD|
00001150: 29 29 29 AD 32 29 22 44  55 50 45 53 48 45 45 54  |))).2)"DUPESHEET|
00001160: 20 22 3B 4C 4E 24 28 42  44 29 00 7F 19 96 05 98  | ";LN$(BD)......|
00001170: 31 33 2C 22 22 3A 4E 32  B2 4C 32 AA 34 3A 8E 00  |13,"":N2.L2.4:..|
00001180: 8B 19 A0 05 8F 20 4D 45  52 47 45 00 A0 19 AA 05  |..... MERGE.....|
00001190: 53 49 B2 31 3A 43 50 B2  46 50 3A 4E 50 B2 4C 50  |SI.1:CP.FP:NP.LP|
000011A0: 00 C3 19 B4 05 8B 20 43  50 B2 A5 4D 28 4C 50 AA  |...... CP..M(LP.|
000011B0: 31 29 20 A7 20 8B 20 53  49 B1 4D 50 20 A7 20 31  |1) . . SI.MP . 1|
000011C0: 35 36 30 00 D3 19 BE 05  4E 50 B2 A5 4D 28 4E 50  |560.....NP..M(NP|
000011D0: AA 31 29 00 E6 19 C8 05  8B 20 53 49 B1 4D 50 20  |.1)...... SI.MP |
000011E0: A7 20 31 35 34 30 00 FF  19 D2 05 8B 20 43 50 B2  |. 1540...... CP.|
000011F0: A5 4D 28 4C 50 AA 31 29  20 A7 20 31 35 33 30 00  |.M(LP.1) . 1530.|
00001200: 1C 1A DC 05 8B 20 20 58  31 25 28 53 49 29 B3 43  |.....  X1%(SI).C|
00001210: 31 25 28 43 50 29 A7 20  31 35 33 30 00 3A 1A E6  |1%(CP). 1530.:..|
00001220: 05 8B 20 20 58 31 25 28  53 49 29 B1 43 31 25 28  |..  X1%(SI).C1%(|
00001230: 43 50 29 20 A7 20 31 35  34 30 00 58 1A F0 05 8B  |CP) . 1540.X....|
00001240: 20 20 58 32 25 28 53 49  29 B1 43 32 25 28 43 50  |  X2%(SI).C2%(CP|
00001250: 29 20 A7 20 31 35 34 30  00 8B 1A FA 05 43 31 25  |) . 1540.....C1%|
00001260: 28 4E 50 29 B2 58 31 25  28 53 49 29 3A 43 32 25  |(NP).X1%(SI):C2%|
00001270: 28 4E 50 29 B2 58 32 25  28 53 49 29 3A 53 49 B2  |(NP).X2%(SI):SI.|
00001280: 53 49 AA 31 3A 89 20 31  35 35 30 00 BB 1A 04 06  |SI.1:. 1550.....|
00001290: 43 31 25 28 4E 50 29 B2  43 31 25 28 43 50 29 3A  |C1%(NP).C1%(CP):|
000012A0: 43 32 25 28 4E 50 29 B2  43 32 25 28 43 50 29 3A  |C2%(NP).C2%(CP):|
000012B0: 43 50 B2 A5 4D 28 43 50  AA 31 29 00 C6 1A 0E 06  |CP..M(CP.1).....|
000012C0: 89 20 31 34 36 30 00 D6  1A 18 06 46 50 B2 A5 4D  |. 1460.....FP..M|
000012D0: 28 4C 50 AA 31 29 00 E7  1A 22 06 4C 50 B2 4E 50  |(LP.1)...".LP.NP|
000012E0: 3A 4D 50 B2 30 3A 8E 00  F7 1A D0 07 58 53 B2 31  |:MP.0:......XS.1|
000012F0: 3A 50 35 B2 30 3A 8E 00  06 1B 34 08 8B 20 58 53  |:P5.0:....4.. XS|
00001300: B2 30 20 A7 20 8E 00 15  1B 35 08 8B 20 4B 4C B1  |.0 . ....5.. KL.|
00001310: 31 20 A7 20 8E 00 4B 1B  48 08 50 35 B2 50 35 AA  |1 . ..K.H.P5.P5.|
00001320: 31 3A 43 33 25 28 50 35  29 B2 45 31 25 3A 43 34  |1:C3%(P5).E1%:C4|
00001330: 25 28 50 35 29 B2 45 32  25 3A 50 34 25 28 50 35  |%(P5).E2%:P4%(P5|
00001340: 29 B2 45 28 53 28 31 29  29 3A 8E 00 7C 1B 98 08  |).E(S(1)):..|...|
00001350: 8B 20 50 5A 25 B3 50 35  20 A7 20 8B 20 50 34 25  |. PZ%.P5 . . P4%|
00001360: 28 50 5A 25 29 B3 B1 4B  54 20 A7 20 50 5A 25 B2  |(PZ%)..KT . PZ%.|
00001370: 50 5A 25 AA 31 3A 89 20  32 32 30 30 00 A4 1B 9D  |PZ%.1:. 2200....|
00001380: 08 45 31 25 B2 43 33 25  28 50 5A 25 29 3A 45 32  |.E1%.C3%(PZ%):E2|
00001390: 25 B2 43 34 25 28 50 5A  25 29 3A 50 5A 25 B2 50  |%.C4%(PZ%):PZ%.P|
000013A0: 5A 25 AA 31 00 B9 1B A2  08 8B 20 50 5A 25 B1 50  |Z%.1...... PZ%.P|
000013B0: 35 20 A7 20 50 5A 25 B2  30 00 BF 1B AC 08 8E 00  |5 . PZ%.0.......|
000013C0: F5 1B 70 17 84 31 35 2C  45 41 2C 45 42 24 2C 45  |..p..15,EA,EB$,E|
000013D0: 43 2C 45 44 3A 8B 20 45  41 B3 32 30 20 A7 20 8E  |C,ED:. EA.20 . .|
000013E0: 3A 8F 20 52 45 41 44 20  45 52 52 4F 52 20 43 48  |:. READ ERROR CH|
000013F0: 41 4E 4E 45 4C 00 0C 1C  8E 17 99 20 45 41 3B 45  |ANNEL...... EA;E|
00001400: 42 24 2C 45 43 3B 45 44  3A 90 3A 8E 00 2C 1C 58  |B$,EC;ED:.:..,.X|
00001410: 1B 52 48 B2 B5 28 52 4E  AD 32 35 36 29 3A 52 4C  |.RH..(RN.256):RL|
00001420: B2 52 4E AB 32 35 36 AC  52 48 3A 8E 00 4B 1C BC  |.RN.256.RH:..K..|
00001430: 1B 98 31 35 2C 22 50 22  C7 28 33 29 C7 28 52 4C  |..15,"P".(3).(RL|
00001440: 29 C7 28 52 48 29 C7 28  52 50 29 00 56 1C C6 1B  |).(RH).(RP).V...|
00001450: 89 20 36 30 30 30 00 00  00                       |. 6000...       |

..1.... DUPE SHEET PRINTING PROGRAM (C64
 VERSION).W.... MODIFIED FOR FASTER PERF
ORMANCE...... BY KC6A AND N6NB; (C) 1983
 BY HAYDEN BOOK CO.,INC....... 13,4:. VI
C PRINTER CHANNEL...!..15,8,15...2.C7$.G
(147):. PUT YOUR CLEAR SCREEN COMMAND HE
RE...F.L1.66:. L1 SETS # LINES/PAGE.>.P.
L2.6: . L2 SETS TOP AND BOTTOM MARGINS.U
.Z.L3.72:. L3 SETS THE PAPER WIDTH IN PR
INT POSITIONS...D.N1.0: . N1 IS PAGE COU
NTER...N.N2.L1.L2.1:. N2 IS LINE COUNTER
...X.N3..(L3.10):. N3 IS COLUMNS/PAGE...
... 1,2,3,4,5,6,36:. SORT ORDER FOR ALPH
ABETIC SORTING.N.... 3,4,5,6,1,2,10:. SO
RT ORDER FOR CALL AREA SORTING.....PS.N3
.(L1.2.L2.3.4):. PAGE SIZE IN CALL SIGNS
...... .M(X).X.L%..(X.L%)...... .X(X)..M
(X.FP.1).I.... C7$:. CLEAR SCREEN.Q....:
....... "      DUPE SHEET PRINTING PROGR
AM"...H..:..!.L.. "WHAT IS YOUR CALL";MY
$.'.....U.... "SHOULD CALLS BE LISTED AL
PHABETICALLY".V.... "OR BY CALL AREA (A/
C)";A$.|.......... A$."C" . . 1100 ELSE 
. A$.."A" . 220...... 1100...... "POSITI
ON PAPER AT TOP OF A NEW PAGE"...... "IN
 PRINTER. THEN <CR>";G$...... 1000.+....
 QC(SZ), X1%(100), X2%(100).Y.".AV.F("0"
):AS.26:. A$."A" . AV.F("A"):AS.0.I.,.. 
BD.1 . NL...6..:. "PROCESSING DUPESHEET 
";LN$(BD):....7.XS.0:. TC%(BD)..M1 . . 2
000.C.@.. KL.1 . SZ...J.. KL.1 . . J.1 .
 SZ:QC(J).0:. J...T.MP.0:LP.0:KT.KL.AS:F
P.1:LR.0.7.^.W$.G(KL.AV.1):. KL.26 . W$.
G(KL.27.F("0")).U.H..:. "   SORTING BY..
. "W$.S.R.. KL.1 . . QC(KL).1 . 900...|.
. K.1 . 26...}.. XS.1 . . KL.1 . . K.1 .
 650...~.PZ%.1.....H%.BD.26.26.K...... K
L.1 . . XS.1 . . 2200:. 420.....RN.H%:. 
7000.....RP.1:.7100:.3,E1%. ...RP.9:.710
0:.3,E2%.7...RP.17:.7100:.3,PZ%.Y...LR.L
R.1:. LR.10 . LR.0:. "+";.{.... E1%..320
00 . 650:. NO ENTRY. .... E1%..32000 . 6
40:. BLANK ENTRY...B.. 1160...L.. A$.."A
" . 490.S.V.. E(1)..0 . 490.....E(1).E(2
):E(2).0.!...QC(E(S(1)).AS).1:. E(S(1)).
.KT . . 2100:. 640:. SKIP.P...E1%..32000
.E(S(1)).1369.E(S(2)).37.E(S(3))....E2%
..32000.E(S(4)).1369.E(S(5)).37.E(S(6)).
..... SORT INTO ARRAY LIST.....SI.0.....
. SI..MP . 620.B.&.SI.SI.1...0.. E1%. X1
%(SI) . 590...:.. E1%. X1%(SI) . 610...D
.. E2%. X2%(SI) . 610.3.N.DX%. X1%(SI): 
X1%(SI).E1%:E1%.DX%.Y.X.DY%. X2%(SI): X2
%(SI).E2%:E2%.DY%.C.B.. 540...L.MP.MP.1:
 X1%(MP).E1%: X2%(MP).E2%...V.. MP.100 .
 . 1440:. MERGE.C.... PZ%..0 . H%.PZ%:. 
400.K.... K...... MP.0 . . 1440...... RE
CONSTRUCT CALL & PRINT IT.#.... QC(KL).0
 . 900:. LIST EMPTY.;....:. " PRINTING..
.";.\...SE.LP.FP.1:. SE.0 . SE.SE.L%...
.. JJ.SE.1 . N3..((SE.N3.1).N3)...F.C1%(
.X(JJ))..32000:C2%(.X(JJ))..32000:SE.SE.
1...P.. JJ.Z.Z.. N2.3.SE.N3.L1.L2 . . 13
30.....PL.1.....PU.SE:. SE.PS.PL.1 . PU.
PS.PL.1.;....13,"":.13,"";.L3.2.1)"-";W$
;"-":.13,"":N2.N2.3.[.... JJ.PL . PL.1.(
PU.PL.1).N3.M.... KK.0 . N3.1.....SS..X(
.(JJ.KK.(PU.PL.1).N3))... .EX.C1%(SS).32
000:EY.C2%(SS).32000:. 1180.F.*.. 1230..
.4..13,"  ";P$;"  ";...>.. KK...H..13,""
:N2.N2.1...R.. JJ...\.. PU..SE . 900. .F
.PL.PU.1.+.P.. 1330.5.Z.. 750.>.... KL.Y
.... SPACE TO END OF PAGE.N.... Z.N2.1 .
 L2.L1.Y....13,""...... Z.....N2.L1.L2..
.... BD...J..:. .5)"-DONE"...T. 3: 15.S.
... J.1 . 1500:.;:. J: 13:....... LOAD D
UPE FILE...... "STAND BY . . .  COUNTING
 FILES".1....4,8,4,"0:DUPELOGA,S,R":.600
0.S....4,HC$:.4,T:.4,Y$:.4,Z$:.4,NL.C...
.4,L%:.4,M1.....L%.0:. TC%(NL):. 1070:. 
TOTAL CALLS PER BAND.....L%.L%.10...... 
LN$(NL),C1%(L%),C2%(L%)...... J.1 . NL:.
4,LN$(J):. J.....M1..(0):. M1.0 . M1.M1.
65536.....M1..((M1.2000).6).1.... C3%(M1
),C4%(M1),P4%(M1).:.$. 4:..A....3,8,3,"0
:DUPELOGB,L,".G(23):.6000.Q.:.. BD.1 . N
L..;.TC%(BD).0...<.. K.1 . 26. .=.H%.BD
.26.26.K...>.RN.H%:. 7000.I.?.RP.17:. 71
00:.3,PZ%...@.RP.1:. 7100:.3,E1%...A.TC%
(BD).TC%(BD).1.%.B.. (PZ%..0) . (C1%...3
2000) . H%.PZ%:. 1086.-.C.. K.P.D.. L%.T
C%(BD) . L%.TC%(BD):. BD.|.E.. "LARGEST 
FILE =";L%;" ENTRIES":. 1030...L.. J.1 .
 6...V.. S(J)...`.T(S(J)).J...J.. J...T.
. SZ...~...Z.... DECODE CALL INTO 6 DIGI
TS.....EX.E1%.32000:EY.E2%.32000.....E(1
)..(EX.1369):EX.EX.E(1).1369.>...E(2)..(
EX.37):E(3).EX.E(2).37.B...E(4)..(EY.136
9):EY.EY.E(4).1369.....E(5)..(EY.37):E(6
).EY.E(5).37...D.....N.. CHANGE CALLS TO
 ALPHA.Q.X.. A$."A" . . E(2).0 . E(2).E(
1):E(1).0.....P$." "...... L.1 . 6.....L
L.E(T(L))...... LL.0 . P$.P$." ":. 1310.
D.... LL.27 . P$.P$.G(LL.64):. 1310:. LE
TTER.`...P$.P$.G(LL.21):. NUMBER.H.... L
.N.(.....2.. GO TO NEW PAGE...<.. Z.N2.1
 . L2.L1...F..13,""...P.. Z...Z.N1.N1.1.
K.D..13,"     ";Z$;...N..13,"";.(L3.C(MY
$)).2.5.C(Z$))MY$;...X..13,"";.(L3.C(MY$
)).2.12)"PAGE";N1.5....13,"";.(L3.C(Y$))
.2)Y$.J....13,"";.(L3.9.C(LN$(BD))).2)"D
UPESHEET ";LN$(BD).....13,"":N2.L2.4:..
.. .. MERGE. ...SI.1:CP.FP:NP.LP.C.... C
P..M(LP.1) . . SI.MP . 1560.S...NP..M(NP
.1)...H.. SI.MP . 1540...R.. CP..M(LP.1)
 . 1530......  X1%(SI).C1%(CP). 1530.:..
..  X1%(SI).C1%(CP) . 1540.X....  X2%(SI
).C2%(CP) . 1540.....C1%(NP).X1%(SI):C2%
(NP).X2%(SI):SI.SI.1:. 1550.....C1%(NP).
C1%(CP):C2%(NP).C2%(CP):CP..M(CP.1).F...
. 1460.V...FP..M(LP.1)...".LP.NP:MP.0:..
..P.XS.1:P5.0:....4.. XS.0 . ....5.. KL.
1 . ..K.H.P5.P5.1:C3%(P5).E1%:C4%(P5).E2
%:P4%(P5).E(S(1)):..|.... PZ%.P5 . . P4%
(PZ%)..KT . PZ%.PZ%.1:. 2200.....E1%.C3%
(PZ%):E2%.C4%(PZ%):PZ%.PZ%.1...... PZ%.P
5 . PZ%.0.........P..15,EA,EB$,EC,ED:. E
A.20 . .:. READ ERROR CHANNEL...... EA;E
B$,EC;ED:.:..,.X.RH..(RN.256):RL.RN.256.
RH:..K....15,"P"G(3)G(RL)G(RH)G(RP).V.F.
. 6000...

×

C64 Image

> CLICK IMAGE PREVIEW FOR FULL MODAL