|
DataMuseum.dkPresents historical artifacts from the history of: Christian Rovsing CR7, CR8 & CR16 CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 896 (0x380)
Types: TextFile
Names: »RUN.CMD«
└─⟦3fb1c4739⟧ Bits:30005266 dBase II 2.4 og SuperCalc2 m.m.
└─ ⟦this⟧ »RUN.CMD«
└─⟦ea621760d⟧ Bits:30005267 dBase II - uoriginal diskette
└─ ⟦this⟧ »RUN.CMD«
CLEAR
ERASE
SET TALK OFF
STORE " " TO MCOM
DO WHILE T
@ 10,20 SAY "ENTER COMMAND - " GET MCOM PICTURE "!!!!!!!!!!!!!!!!!!!!!!!!!"
READ
STORE !($(MCOM,1,@(" ",MCOM)-1)) TO VERB
IF VERB = "TYPE";
.OR. VERB = "DIR";
.OR. VERB = "SAVE";
.OR. VERB = "ERA";
.OR. VERB = "ZIP";
.OR. VERB = "PIP";
.OR. FILE(VERB+".COM")
DO CASE
CASE VERB = "TYPE"
@ 12,22
@ 12,22 SAY "TYPE CTRL-S TO STOP/START SCROLLING."
WAIT
CASE VERB = "DIR"
@ 12,22
@ 12,22 SAY "TYPE CTRL-S TO STOP/START SCROLLING."
WAIT
ENDCASE
ERASE
STORE TRIM(MCOM) TO TMCOM
QUIT TO "&TMCOM","DBASE DATUM"
ELSE
@ 12,20
@ 12,20 SAY "FILE "+VERB+".COM DOES NOT EXIST."
ENDIF FILE
ENDDO T
«eof»