home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / simtel / sigm / vols100 / 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.  
  9.      FCB$= CHR$(0)+FCB$+CHR$(&HA0)+CHR$(&HA0)+" "
  10.  
  11.     ELSE
  12.  
  13.      FCB$= CHR$(0)+FCB$+"   "
  14. 2380 CALL SETFMD(FCB$)
  15. 2390 RETURN
  16.