1 ' *** MBBS USER PRINTING LIST *** 2 ' *** JAMES L. TRAYLOR *** 3 ' *** LIST USERS FILE INFO *** 4 ' 5 ' (FIXES BY: KIM LEVITT 05/22/85) 6 ' (CHANGED SOME ASC'S TO CVI'S, SHOWS DELETE FLAG, PRINTS TO 7 ' PRINTER AS A BIG USERS FILE WOULD BE TOO BIG AS A PRINTOUT 8 ' FILE) (Must be run on same disk/user as summary/user files) 9 ' 10 A=0 12 OPEN "R",#1,"SUMMARY.BBS",128 14 GET #1,1 : FIELD #1, 10 AS D$, 2 AS UT$ 16 UT=CVI(UT$) : CLOSE #1 17 PN=0 : TOT=55 : PTOT=INT((UT+51)/55) 18 PRINT : PRINT "MBBSULST: USER FILE LIST PROGRAM" 19 PRINT "(by James L. Traylor/Kim Levitt)" 20 PRINT "================================" : PRINT 21 INPUT "Today's date? (mm/dd/yy)"; TODAY$ : PRINT 22 PRINT "Ready printer and hit return when ready >>> "; 23 LINE INPUT D$ : PRINT : PRINT "Printing users file to printer... "; 29 OPEN "R",#1,"USERS.BBS",64 30 FIELD #1, 42 AS UNAME$,1 AS OT$,6 AS PASS$,2 AS YY$,2 AS MM$,2 AS DD$, 2 AS MO$,2 AS LOGS$,2 AS LMESS$,1 AS USER$,1 AS DRV$,1 AS ACC$ 80 FOR C=4 TO UT 82 IF INKEY$=CHR$(3) THEN PRINT "" : SYSTEM 85 IF TOT=55 THEN GOSUB 350 ELSE TOT=TOT+1 90 GET #1,C 110 FOR X=1 TO 42 120 IF MID$(UNAME$,X,1)=";" THEN MID$(UNAME$,X,1)=" " 130 NEXT X 140 OT=ASC(OT$) 150 MO=CVI(MO$) 160 LMESS=CVI(LMESS$) 170 USER=ASC(USER$) 172 IF (USER AND 128) THEN DF$="-" ELSE IF (USER AND 32) THEN DF$="+" ELSE DF$="#" 174 USER=(USER AND 31) 180 LOGS=CVI(LOGS$) 200 GOSUB 230 210 NEXT C 220 LPRINT CHR$(12); 225 PRINT "done." : SYSTEM 230 REM *** SUBROUTINE: PRINT USER RECORD ON PRINTER *** 240 LPRINT USING "!#### ";DF$,C; 250 LPRINT USING "\ \ ";UNAME$; 260 LPRINT USING "\ \ ";PASS$; 290 LPRINT USING "### ";OT; 310 LPRINT USING "!";DRV$; 320 IF USER>9 THEN LPRINT USING "##: ";USER; ELSE LPRINT USING "0#: ";USER; 325 LPRINT USING "\\/\\/\\ ";MM$,DD$,YY$; 330 LPRINT USING "#####";LOGS 340 RETURN 350 REM *** SUBROUTINE: PRINT PAGE HEADING *** 355 PN=PN+1 : IF PN<>1 THEN LPRINT CHR$(12); 360 LPRINT "MBBS USER FILE LISTING:";TAB(61);"Printed on: ";TODAY$ 365 LPRINT "Total # of user file records =";UT;TAB(64);" Page: "; 370 LPRINT USING "### of ###";PN,PTOT 375 LPRINT "" 380 LPRINT "User User Name "; "Pass- Max Drv Last log #of" 390 LPRINT "Rec # and Location (city, state) "; "word Min User on date Logns" 400 LPRINT "===== ========================================== "; "====== === ==== ======== =====" 410 TOT=1 : RETURN 32767 END