home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / enterprs / c128 / util / cs-asst1.sfx / newprg < prev    next >
Encoding:
Text File  |  1990-02-12  |  400 b   |  18 lines
  1. ; NEWPRG  DZ 5/90
  2. IF "%1" = " " GOTO USAGE
  3.  DEL %1
  4.  IFMID$("%1",2,1)<>":"THENSYSDEC("1702"):RREGDR,DV:F$="%1"
  5.  IFMID$("%1",2,1)=":"THENSYSDEC("1703"),ASC(LEFT$("%1",1)):RREGDR,DV
  6.  IFMID$("%1",2,1)=":"THENF$=RIGHT$("%1",LEN("%1")-2)
  7.  DSAVE (F$),U(DV),D(VAL(CHR$(DR)))
  8.  REMOVE %1
  9.  INSTALL %1
  10.  GOTO DONE
  11. :USAGE
  12.  ECHO " "
  13.  ECHO SAVES & INSTALLS BASIC PROGRAMS
  14.  ECHO " "
  15.  ECHO USAGE:  %0 FILENAME
  16. :DONE
  17. ;
  18.