home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / 1300.ssb < prev    next >
Encoding:
Text File  |  1984-04-29  |  765 b   |  30 lines
  1. 1302 ' 1300
  2. 1304 ' unpack user record
  3. 1306 ' 1.10
  4. 1308 ACLVL%=VAL(FACLVL$)
  5. 1310 FRNAME$=FFNAME$
  6. 1312 IF RIGHT$(FRNAME$,1)=" " THEN FRNAME$=LEFT$(FRNAME$,LEN(FRNAME$)-1):
  7.         GOTO 1312
  8. 1314 LNAME$=FLNAME$
  9. 1316 IF RIGHT$(LNAME$,1)=" " THEN LNAME$=LEFT$(LNAME$,LEN(LNAME$)-1):
  10.         GOTO 1316
  11. 1318 LOCATION$=FLOCATION$
  12. 1320 SIGCNT=VAL(FSIGCNT$)
  13. 1322 LASTDATE$=FLASTDATE$
  14. 1324 LASTTIME$=FLASTIME$
  15. 1326 ELAPTIME%=VAL(FELAPTIME$)
  16. 1328 TOTALTIME=VAL(FTOTTIME$)
  17. 1330 PWD$=FPWD$
  18. 1332 FLAG%=VAL(FFLAG$)
  19. 1334 MASK=1
  20. 1336 FOR INDEX% = 14 TO 0 STEP -1
  21. 1337    MASK=2^INDEX%
  22. 1338    IF FLAG% AND MASK THEN FLAGS%(INDEX%)=1 ELSE FLAGS%(INDEX%)=0
  23. 1340    MASK=MASK * 2
  24. 1342 NEXT INDEX%
  25. 1344 EXPERT%=FLAGS%(0)
  26. 1360 OLDUSER%=FLAGS%(8)
  27. 1361 NEEDLOC%=FLAGS%(9)
  28. 1362 DELETED%=FLAGS%(10)
  29. 1374 RETURN
  30.