home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / sigm / vol130 / 2300.ssb < prev    next >
Encoding:
Text File  |  1984-04-29  |  299 b   |  13 lines
  1. 2310 ' set or kill r/o file attribute
  2. 2320 ' 1.0
  3. 2330 SETFMD=TESTADDRESS+&HC
  4. 2340 FCB$ = STRING$(8," ")
  5. 2350 FCBNAME$=LEFT$(FCBNAME$,8)
  6. 2360 LSET FCB$ = FCBNAME$
  7. 2370 IF RO%=1 THEN
  8.      FCB$= CHR$(0)+FCB$+CHR$(&HA0)+CHR$(&HA0)+" "
  9.     ELSE
  10.      FCB$= CHR$(0)+FCB$+"   "
  11. 2380 CALL SETFMD(FCB$)
  12. 2390 RETURN
  13.