home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / 200.ssb < prev    next >
Encoding:
Text File  |  1984-04-29  |  1018 b   |  41 lines
  1. 202 '    packup user record & put
  2. 206 ' 1.11 (1300.10)
  3. 208 SETUSERNUMBER%=USERNUMBER%: GOSUB 300
  4. 210 FLAGS%(0)=EXPERT%
  5. 216 FLAGS%(8)=OLDUSER%
  6. 217 FLAGS%(9)=NEEDLOC%
  7. 218 FLAGS%(10)=DELETED%
  8. 224 FLAG%=0
  9. 228 FOR INDEX%=14 TO 0 STEP -1
  10. 229    MASK=2^INDEX%
  11. 230    IF FLAGS%(INDEX%) <> 0 THEN FLAG%= FLAG% OR MASK
  12. 234 NEXT INDEX%
  13. 236 ACLVL$=STR$(ACLVL%)
  14. 238 LSET FACLVL$ = ACLVL$
  15. 240 LSET FFNAME$ = FRNAME$
  16. 242 LSET FLNAME$ = LNAME$
  17. 244 LSET FLOCATION$ = LOCATION$
  18. 246 SIGCNT$=STR$(SIGCNT)
  19. 248 LSET FSIGCNT$ = SIGCNT$
  20. 250 LSET FLASTDATE$ = DATE$
  21. 252 LSET FLASTIME$=TIME$
  22. 254 ELAPTIME$=STR$(ELAPTIME%)
  23. 256 LSET FELAPTIME$=ELAPTIME$
  24. 258 TOTALTIME$=STR$(TOTALTIME)
  25. 260 LSET FTOTTIME$=TOTALTIME$
  26. 262 LSET FPWD$ = PWD$
  27. 264 FLAG$=STR$(FLAG%)
  28. 266 LSET FFLAG$ = FLAG$
  29. 268 LSET FCRLF$=CRLF$
  30. 270 PUT #1, REC%
  31. 272 IF ADDREC%=0 THEN CLOSE #1: RETURN
  32. 275 NEXTUSER=NEXTUSER+1
  33. 278 LSET FUEXTUSER$ = STR$(NEXTUSER)
  34. 280 LSET FUSERSIG$ = "*"
  35. 282 LSET FUDATE$=UDATE$
  36. 283 LSET FUTIME$=UTIME$
  37. 286 LSET FUCRLF$=CRLF$
  38. 288 PUT #1,1
  39. 290 CLOSE #1
  40. 292 RETURN
  41.