home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c128 / os / cs-dos / csdos.reu.sfx / autoexec next >
Encoding:
Text File  |  1990-02-12  |  483 b   |  16 lines
  1. slow
  2. rem "Set Errorlevel to 1 if 1750 is present or 0 if not present.
  3. bank15:y=peek(57094):poke 57094,y+1:poke 7136,abs(peek(57094)-y)
  4. z:if not errorlevel 1 z:autoexec.no1750
  5. z:setram 16,2
  6. poke 7136,1                                    :rem set error level to 1
  7. if errorlevel 1 goto ramdisk-already-there
  8. z:getram ramdisk
  9. poke 7120,2*16+8     :rem set capture/diskcopy/arc buffer limits
  10. :ramdisk-already-there
  11. if (peek(215) and 128) then fast
  12. poke dec("1bcf"),3*16+8
  13. text
  14. new
  15. rdir/w
  16.