home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / 8000.ssb < prev    next >
Encoding:
Text File  |  1984-04-29  |  1.3 KB  |  49 lines
  1. 8002 '    comment by system
  2. 8004 '    comment in COMMENT$
  3. 8006 '    1.3
  4. 8008 SETUSERNUMBER%=USERNUMBER%: GOSUB 300
  5. 8010 OPEN "R", #3, DEFDRIVE$+COMMENTFILE$, 66
  6. 8012 FIELD #3,
  7.     5 AS COMMENTNUMBER$,
  8.     8 AS TOTCOMMT$,
  9.     1 AS COMSIG$,
  10.     6 AS FCOMDATE$,
  11.     6 AS FCOMTIME$,
  12.     1 AS FINEWCOM$,
  13.     1 AS FSYSCOM$
  14. 8014 GET #3,1
  15. 8016 NEXTCOMMENT%=VAL(COMMENTNUMBER$)
  16. 8018 TOTALCOMMENTS#=VAL(TOTCOMMT$)
  17. 8020 COMTIME$=FCOMTIME$
  18. 8022 COMDATE$=FCOMDATE$
  19. 8024 NEWCOM$=FINEWCOM$
  20. 8026 SYSCOM$=FSYSCOM$
  21. 8028 IF COMSIG$<>"*" THEN 
  22.     NEXTCOMMENT%=2:
  23.     TOTALCOMMENTS#=1:
  24.     GOSUB 1600:
  25.     COMTIME$=TIME$:
  26.     COMDATE$=DATE$
  27. 8030 FIELD #3, 64 AS PCOMMENT$, 2 AS CRLF$: LSET CRLF$=CHR$(13)+CHR$(10)
  28. 8032 GOSUB 1600
  29. 8034 ANSWER$="~"+STR$(TOTALCOMMENTS#)+" while "+FRNAME$+" "+LNAME$
  30.     +" on " +FNADDSEP$(DATE$,"/")+" at "+FNADDSEP$(TIME$,":")
  31.     +" ("+NOTATION$+")"
  32. 8036 GOSUB 8064    'put comment line
  33. 8038 ANSWER$=COMMENT$+" in module: "+MODNAME$
  34. 8040 GOSUB 8064
  35. 8044 LSET COMMENTNUMBER$ = STR$(NEXTCOMMENT%)
  36. 8046 LSET TOTCOMMT$ = STR$(TOTALCOMMENTS#+1)
  37. 8048 LSET COMSIG$="*"
  38. 8050 LSET FCOMDATE$ = COMDATE$
  39. 8052 LSET FCOMTIME$ = COMTIME$
  40. 8054 LSET FINEWCOM$=NEWCOM$
  41. 8056 LSET FSYSCOM$="*"
  42. 8058 PUT #3,1
  43. 8060 CLOSE #3
  44. 8062 RETURN
  45. 8064 LSET PCOMMENT$ = ANSWER$
  46. 8066 PUT #3, NEXTCOMMENT%
  47. 8068 NEXTCOMMENT%=NEXTCOMMENT%+1
  48. 8070 RETURN
  49.