home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / 2500.ssb < prev    next >
Encoding:
Text File  |  1984-04-29  |  2.9 KB  |  80 lines
  1. 2501 '    display userfile$
  2. 2502 '1.16    #
  3. 2503 GOSUB 3100
  4. 2504 LNCNT%=0: NOPAGE%=0
  5. 2505 PRINT: PRINT
  6. 2506 GOSUB 1400
  7. 2507 PRINT TAB(10); "Press RETURN or type selection information:"
  8. 2508 PRINT TAB(10); "Where:"
  9. 2509 PRINT: PRINT TAB(10);"123p;4"
  10. 2510 PRINT: PRINT TAB(10);"     ^--access level to select
  11. 2511 PRINT TAB(10);"   ^----p to skip paging every";PAGESIZE%;"lines."
  12. 2512 PRINT TAB(10);
  13.     "^^^-----record number to start at (";NEXTUSER-2;"is highest)."
  14. 2513 PRINT: PRINT TAB(10);"All information is optional."
  15. 2514 MAX%=7: GOSUB 500
  16. 2515 IF RIGHT$(ANSWER$,1)="P" THEN NOPAGE%=1:
  17.     IF NKEY% > 1 THEN NKEY%=NKEY%-1: ANSWER$=LEFT$(ANSWER$,NKEY%)
  18. 2516 IF NKEY%=0 THEN INDEX=1 ELSE INDEX=VAL(ANSWER$)
  19. 2517 IF INDEX < 1 THEN INDEX = 1
  20. 2518 IF INDEX => NEXTUSER THEN INDEX = NEXTUSER-10 
  21. 2519 BEGINING% = INDEX - 1
  22. 2520 IF STACKED%<>0 THEN GOSUB 500: SELECTACL%=VAL(ANSWER$): 
  23.     SELMESS$="for access level"+STR$(SELECTACL%)+" "
  24.     ELSE SELECTACL%=-1: SELMESS$=""
  25. 2521 GOSUB 3100
  26. 2522 HEADER$=
  27. "rec    first last, location            acl uses      last use      total time"+CRLF$
  28. 2523 COUNTER%=0
  29. 2524 COUNTER1%=0
  30. 2525 SAVEDACLVL%=ACLVL%
  31. 2526 PRINT TAB(20);"Press ^K to abort listing."
  32. 2527 PRINT HEADER$
  33. 2528 GET #1,INDEX+1
  34. 2529    IF EOF(1) OR INDEX=NEXTUSER-1 THEN GOTO 2542
  35. 2530    GOSUB 1300    'transfer to working vars
  36. 2531    IF RIGHT$(LOCATION$,1)=" " THEN
  37.         LOCATION$ = LEFT$(LOCATION$,LEN(LOCATION$)-1): GOTO 2531
  38. 2532    IF LNCNT%=>PAGESIZE% THEN A$=HEADER$: GOSUB 400:
  39.     A$="[ Press RETURN for more "+SELMESS$+"]": GOSUB 400:
  40.     MAX%=0: GOSUB 500: PRINT CHR$(&HD);: LNCNT%=0
  41. 2533    IF SELECTACL%=ACLVL% OR SELECTACL%=-1 THEN
  42.     IF DELETED%=1 THEN LOCATION$= "**deleted**":
  43.          COUNTER%=COUNTER%+1
  44.         ELSE 
  45.          COUNTER1%=COUNTER1%+1
  46. 2534    ANSWER$="      ": RSET ANSWER$=FNHOURS$(TOTALTIME)
  47. 2535    IF SELECTACL%=ACLVL% OR SELECTACL%=-1 THEN
  48.     PRINT USING "### \                                  \## ###  & &   & ";
  49.         INDEX;FRNAME$+" "+LNAME$+", "+LOCATION$;ACLVL%;
  50.         SIGCNT;FNADDSEP$(LASTDATE$,"/");
  51.         FNADDSEP$(LASTTIME$,":");
  52.         ANSWER$
  53. 2536    KEY$=INKEY$: IF KEY$="S" OR KEY$="s" OR KEY$=CHR$(&H13)
  54.         THEN PAUSE%=1 ELSE PAUSE%=0
  55. 2537    IF KEY$=CHR$(&HB) THEN ABORT%=1: GOTO 2542
  56.         ELSE ABORT%=0
  57. 2538    IF PAUSE%<>0 AND LEN(INKEY$)=0 THEN GOTO 2538
  58. 2539    IF NOPAGE%=0
  59.     AND (SELECTACL%=ACLVL% OR SELECTACL%=-1)
  60.     THEN LNCNT%=LNCNT%+1
  61. 2540    INDEX=INDEX+1
  62. 2541 GOTO 2528
  63. 2542 PRINT
  64. 2543 IF VIEWFILE$="" THEN PRINT "User file reorganized";
  65.     ELSE PRINT "User archive made";: VIEWFILE$=""
  66. 2544 PRINT " on ";FNADDSEP$(UDATE$,"/"); " at ";FNADDSEP$(UTIME$,":");"."
  67. 2545 PRINT
  68. 2546 IF ABORT% THEN PRINT
  69.   TAB(35);"** Aborted **    (totals based on displayed data only)"+CRLF$
  70. 2547 IF BEGINING%<>0 THEN PRINT "For displayed data only:"
  71. 2548 IF SELECTACL%=-1 THEN ANSWER$="" ELSE
  72.     ANSWER$="for access level"+STR$(SELECTACL%)
  73. 2549 PRINT " Active Users: ";COUNTER1%
  74. 2550 PRINT "Deleted Users: ";COUNTER%
  75. 2551 PRINT "Total Entries: ";COUNTER1%+COUNTER%; SELMESS$
  76. 2552 GOSUB 4700
  77. 2553 CLOSE #1
  78. 2554 ACLVL%=SAVEDACLVL%
  79. 2555 RETURN
  80.