home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / SIMTEL / CPMUG / CPMUG026.ARK / CHAIN.BAS < prev    next >
BASIC Source File  |  1984-04-29  |  264b  |  10 lines
  1. INPUT "COMMAND : "; COMMAND$
  2. IF COMMAND$="STOP" THEN STOP
  3. CREATE "$$$.SUB" RECL 128 AS 1
  4. FORMAT$="!&!!"
  5. PRINT USING FORMAT$, #1,2; CHR$(LEN(COMMAND$)), COMMAND$, CHR$(0), "$"
  6. PRINT USING FORMAT$, #1,1; CHR$(9), "CRUN CHAIN", CHR$(0), "$"
  7. CLOSE 1
  8. STOP
  9. END
  10.