%eLJ@@K@<00300 *FLN$*40,IDXN$*40,IKY$*40,FLNAM$*60,WHREC$*20000K@00400 FLNP$*50DK@00500 U$(80)*1 K@00600 L$(80)*1 K@00700 C$(80)*1 ^@I    A@K@01000  INP$(4)*24 L@01100 "10,20,c 40"4L@01200 "11,20,c 40"4L@01300 "12,20,c 40"4L@01400 "13,20,n 5,a,n" T@@@ !a@@   S@@ S@@ S@@ S@@ S@@ S@@  %S@@  %S@@  %S@@ o@@"oo@@ S@@ S@@"oo@@"oo@@!!  A@@!!!d")o@!!#!! A@@ !_@ $% A@@!!!!"B!R1o@@3o@@/h@@ &/o@@ !^@ $' A@ ! A@@3o@@/h@@@ !Z@@ (^@I@ (!"E A@ ):o@@ +*[@@ -,S@@/.6o@@0!"*o@@*o@@Fm@@-!!1(!02!"F!03!Q A@ <o@ 4& A@ 5!"E A@ 5&Co@@ 44! A@@ 55  A@@?o@@/h@@/647 "2 A@/!o/! A@@/h@@( ! Io@ 8( A@Km@@ 8  A@/h@@@99!/!co@@ $'Ro@@ ! A@@!"Foo@!24o@Tm@@!2o@/h@@:;!"D!0!!<!Q A@==!(!ao@@ >>! A@@?==!d!# A@?@:?A;[o@>#==!d A@@]m@@>#" A@@/h@@>#?!!!d A@@>#?BB!d A@@>8oqo@ =Vo@@>&oqo@ 9Mo@@@ )go@@o@@om@@ DCS@@"oo@@"oo@@ >& A@ !a@@ <o@Mo@@/h@@@ Ezo@@ :<o@ <o@ <o@ <o@ (Fyo@@ DGS@@"oo@@/h@@m@@:*o@@*o@@*o@@*o@@/h@@ :H A@HBHBHB@@ >& A@a@@ ^@P@ ^@AI[^@JPCGP1---+---10----+---20----+---30----+---40----+---50----+---60----+---70----+---80@@@@!P@ )o@@I!"*o@@*P@/h@@ DGS@@o@@o@d8, JEd_X~y H`  L   x<7W@_Hao{:ljH4>@B$hB<`  ( <' <2? TW!T m" # $ % 0& 8^' ( 0)H * +,t*-~B .0\/<p!0'1)2h73HC40 Q5&_6HPm7\(y8(9$(:;(<P(=Z>d?L@A#B0&1C:9D|J?E lSFiGD oHI JpKL8 ML N ^ Oz P< Q8 R S8 T 2 UdB #V ~ CW, [X iY ZX [ \ . ]F ^V _Lr `< a bx< c -d@ ;e =f 0 Kgl 0 Sh D [i4!LYiv$):RWclx}%2>JYfw)6:600100(! PRINT FILE-VERT HEX PRTHEX 00200! 00800 C 7,SKIP 0>00900PL=80 (! default print line length 01500MAT INP$P01600! D01700GETNAM: NEWPAGE.01710"18,65,c 15": "F3-Enter Name"(01720"19,65,c 15": "F7-END""001800"10,2,C 20": "ENTER FILE NAME""*01900"11,8,C 20": "INDEX NAME",02000"12,8,C 20": "STARTING KEY"&02100"13,8,C 20": "REC #""02110 INP$(1): FLN$ 02112INP$(2): IDXN$$02114 INP$(3): IKY$@02200GIPT: MAT INP$: FLN$,IDXN$,IKY$,RCNO a2000$02300(CMDKEY=7 l,NORUNHD024003"14,10,c 50": "PRINT ON SCREEN OR PRINTER (S or P)"$02500"14,46,Cu 1": PORS$$02600(CMDKEY=3 l,GETNAM"02700(CMDKEY=7 l,DONE002800!FLNAM$="NAME="&RTRM$(FLN$)&",shr" 02900(IDXN$(1:1)>" " l<03000 ,FLNAM$=RTRM$(FLNAM$)&",kfname="&RTRM$(IDXN$)$803100 # 1: FLNAM$,,, ! keyed 03200  ACTP$="K".03210 ! IF IKY$(1:1)>" " THENN:03220#1,1RPAD$(RTRM$(IKY$),KLN(1)): zGIPTL03230! END IF03300 ,GETLG03400/(03500(RCNO>0 l803600 # 1: FLNAM$,,, ! relativeI03700  ACTP$="R"03710  RCNO=RCNO-103800 ,GETLG03900/(04000! B04100# 1: FLNAM$,,  ! sequential04200 C RCLNF"04300GETL:  RCLN=RLN(1)04400( PORS$= "P" l*04500 #255: "name=prn:/10",,P>04600 ,"16,10,c 50": "Enter # of recs to print xxx""*04700 "16,35,n 3": RPP a4600604800 #255,800: HEX$("2B0205000F1042")0&04900 #255,11100: FLN$105000 m 0b05100 RFLNP$=LPAD$(RTRM$(FLN$)&" recl-"&STR$(RCLN)&" # recs-"&STR$(LREC(1)),50)( 05200 11100: FLNP$105210 LSPR=0T05220 W=RLN(1)W05300SLSPR: (W>0 l05310 LSPR=LSPR+105320W=W-80 05330,SLSPR05340 /("05500 RPP=IP(22/(LSPR*4)) 05510 (RPP<1 lRPP=105600/(05700( RCLNLREC(1) l,DONE606320 #1,4200,4RCNO: WHREC$ xDONE06340 m 4.06400 #1,4200: WHREC$ xDONEC06410 /(<06500 ,RCLN$=LPAD$(RTRM$("Rec # "&STR$(REC(1))),15))06600 "I=1 iRCLN06700R=R+1&06800A$=UNHEX$(WHREC$(I:I))H&06900(A$>"2F" AND A$<"7B" lN 07000C$(R)=WHREC$(I:I)07100m007200 C$(R)=" "07300/(07400 U$(R)=A$(1:1)07500 L$(R)=A$(2:2)"07600(R=PLL l PRTRTNE07700 #I 07800 (R>0 l PRTRTNO07900#N08000! X08100( PORS$="P" lN08200,DONEO08300m0 08400"24,79,c 1": Z$"08500(CMDKEY=7 l,DONE$08600(CMDKEY=3 l,GETNAM08700R=008800NEWPAGE 0890011100: FLNP$009000,LOOPO09100/(09200! D&09300PRTRTN:  ( PORS$="S" lN 0940011000: RCLN$N 0950010900: MAT C$ 0960010900: MAT U$ 0970010900: MAT L$09710( RCLN > 400 l 09720"23,79,c 1": Z$"09722(CMDKEY=7 l,DONE09730/(09800m0&09900#255,11000: RCLN$(10000#255,10900: MAT C$U(10100#255,10900: MAT U$U(10200#255,10900: MAT L$U10300/(10400RCLN$="" 010500C$=(""): U$=(""): L$=("")10600R=010700!010800! 1090080*C 111000 X 65,C 15j11100]CC 80,SKIP,"1---+---10----+---20----+---30----+---40----+---50----+---60----+---70----+---80"11200! 11300! 11400DONE: ! ,11500#1: 11600( PORS$="P" lN611610 #255,800: HEX$("2B0205000A1042")411700 #255: E11702/( 11710"23,79,c 1": Z$11720,GETNAMT11800NORUN: /