home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c128 / os / cs-dos / 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.