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 >
Wrap
BASIC Source File
|
1984-04-29
|
264b
|
10 lines
INPUT "COMMAND : "; COMMAND$
IF COMMAND$="STOP" THEN STOP
CREATE "$$$.SUB" RECL 128 AS 1
FORMAT$="!&!!"
PRINT USING FORMAT$, #1,2; CHR$(LEN(COMMAND$)), COMMAND$, CHR$(0), "$"
PRINT USING FORMAT$, #1,1; CHR$(9), "CRUN CHAIN", CHR$(0), "$"
CLOSE 1
STOP
END