home *** CD-ROM | disk | FTP | other *** search
/ Oakland CPM Archive / oakcpm.iso / cpmug / cpmug026.ark / CHAIN.BAS < prev    next >
Encoding:
BASIC Source File  |  1984-04-29  |  264 b   |  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.