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.  
  14.     "^^^-----record number to start at (";NEXTUSER-2;"is highest)."
  15. 2513 PRINT: PRINT TAB(10);"All information is optional."
  16. 2514 MAX%=7: GOSUB 500
  17. 2515 IF RIGHT$(ANSWER$,1)="P" THEN NOPAGE%=1:
  18.  
  19.     IF NKEY% > 1 THEN NKEY%=NKEY%-1: ANSWER$=LEFT$(ANSWER$,NKEY%)
  20. 2516 IF NKEY%=0 THEN INDEX=1 ELSE INDEX=VAL(ANSWER$)
  21. 2517 IF INDEX < 1 THEN INDEX = 1
  22. 2518 IF INDEX => NEXTUSER THEN INDEX = NEXTUSER-10 
  23. 2519 BEGINING% = INDEX - 1
  24. 2520 IF STACKED%<>0 THEN GOSUB 500: SELECTACL%=VAL(ANSWER$): 
  25.  
  26.     SELMESS$="for access level"+STR$(SELECTACL%)+" "
  27.  
  28.     ELSE SELECTACL%=-1: SELMESS$=""
  29. 2521 GOSUB 3100
  30. 2522 HEADER$=
  31.  
  32. "rec    first last, location            acl uses      last use      total time"+CRLF$
  33. 2523 COUNTER%=0
  34. 2524 COUNTER1%=0
  35. 2525 SAVEDACLVL%=ACLVL%
  36. 2526 PRINT TAB(20);"Press ^K to abort listing."
  37. 2527 PRINT HEADER$
  38. 2528 GET #1,INDEX+1
  39. 2529    IF EOF(1) OR INDEX=NEXTUSER-1 THEN GOTO 2542
  40. 2530    GOSUB 1300    'transfer to working vars
  41. 2531    IF RIGHT$(LOCATION$,1)=" " THEN
  42.  
  43.         LOCATION$ = LEFT$(LOCATION$,LEN(LOCATION$)-1): GOTO 2531
  44. 2532    IF LNCNT%=>PAGESIZE% THEN A$=HEADER$: GOSUB 400:
  45.  
  46.     A$="[ Press RETURN for more "+SELMESS$+"]": GOSUB 400:
  47.  
  48.     MAX%=0: GOSUB 500: PRINT CHR$(&HD);: LNCNT%=0
  49. 2533    IF SELECTACL%=ACLVL% OR SELECTACL%=-1 THEN
  50.  
  51.     IF DELETED%=1 THEN LOCATION$= "**deleted**":
  52.  
  53.          COUNTER%=COUNTER%+1
  54.  
  55.         ELSE 
  56.  
  57.          COUNTER1%=COUNTER1%+1
  58. 2534    ANSWER$="      ": RSET ANSWER$=FNHOURS$(TOTALTIME)
  59. 2535    IF SELECTACL%=ACLVL% OR SELECTACL%=-1 THEN
  60.  
  61.     PRINT USING "### \                                  \## ###  & &   & ";
  62.  
  63.         INDEX;FRNAME$+" "+LNAME$+", "+LOCATION$;ACLVL%;
  64.  
  65.         SIGCNT;FNADDSEP$(LASTDATE$,"/");
  66.  
  67.         FNADDSEP$(LASTTIME$,":");
  68.  
  69.         ANSWER$
  70. 2536    KEY$=INKEY$: IF KEY$="S" OR KEY$="s" OR KEY$=CHR$(&H13)
  71.  
  72.         THEN PAUSE%=1 ELSE PAUSE%=0
  73. 2537    IF KEY$=CHR$(&HB) THEN ABORT%=1: GOTO 2542
  74.  
  75.         ELSE ABORT%=0
  76. 2538    IF PAUSE%<>0 AND LEN(INKEY$)=0 THEN GOTO 2538
  77. 2539    IF NOPAGE%=0
  78.  
  79.     AND (SELECTACL%=ACLVL% OR SELECTACL%=-1)
  80.  
  81.     THEN LNCNT%=LNCNT%+1
  82. 2540    INDEX=INDEX+1
  83. 2541 GOTO 2528
  84. 2542 PRINT
  85. 2543 IF VIEWFILE$="" THEN PRINT "User file reorganized";
  86.  
  87.     ELSE PRINT "User archive made";: VIEWFILE$=""
  88. 2544 PRINT " on ";FNADDSEP$(UDATE$,"/"); " at ";FNADDSEP$(UTIME$,":");"."
  89. 2545 PRINT
  90. 2546 IF ABORT% THEN PRINT
  91.  
  92.   TAB(35);"** Aborted **    (totals based on displayed data only)"+CRLF$
  93. 2547 IF BEGINING%<>0 THEN PRINT "For displayed data only:"
  94. 2548 IF SELECTACL%=-1 THEN ANSWER$="" ELSE
  95.  
  96.     ANSWER$="for access level"+STR$(SELECTACL%)
  97. 2549 PRINT " Active Users: ";COUNTER1%
  98. 2550 PRINT "Deleted Users: ";COUNTER%
  99. 2551 PRINT "Total Entries: ";COUNTER1%+COUNTER%; SELMESS$
  100. 2552 GOSUB 4700
  101. 2553 CLOSE #1
  102. 2554 ACLVL%=SAVEDACLVL%
  103. 2555 RETURN
  104.