> Jeff.. Can't do attachments here. It the code reasonable length where you > can just included it in the body of an email?
R.PH = GETREADU() P= -1 Y = 25 PRINT @(-1): MAX = COUNT(R.PH,@FM) + (R.PH #'') FOR CNT = 1 TO MAX Y += 1 IF Y > 21 THEN P += 1 IF P > 0 THEN PRINT @(0,23):'RETURN TO CONTINUE :': INPUT CR IF CR[1,1] = 'S' OR CR[1,1] = 'Q' OR CR[1,1] = 'E' THEN PRINT STOP END END Y = 2 PRINT @(-1):' RECORD LOCKS' PRINT ' UID PORT LOGINS... FILE NAME...........': PRINT 'RECORD KEY.......... ..TIME.. ...DATE..' END PORT = FIELD(R.PH<CNT,5>'/',1,1) FPOS = COUNT(R.PH<CNT,6>,'/')+(R.PH<CNT,6>#'') FNAME = FIELD(R.PH<CNT,6>,'/',FPOS,1) PRINT @(0,Y):FMT(R.PH<CNT,3>,'R#5'):' ':FMT(PORT,'R#4'): PRINT ' ':FMT(R.PH<CNT,4>,'L#8'):' ':FMT(FNAME,'L#20'): PRINT ' ':FMT(R.PH<CNT,9>,'L#20'):' ':FMT(R.PH<CNT,11>,'R#8'): PRINT ' ':FMT(R.PH<CNT,12>,'L#12') NEXT CNT ------- u2-users mailing list u2-users@listserver.u2ug.org To unsubscribe please visit http://listserver.u2ug.org/