DataMuseum.dk

Presents historical artifacts from the history of:

CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦27838d4f8⟧ TextFile

    Length: 896 (0x380)
    Types: TextFile
    Names: »RUN.CMD«

Derivation

└─⟦3fb1c4739⟧ Bits:30005266 dBase II 2.4 og SuperCalc2 m.m.
    └─⟦this⟧ »RUN.CMD« 
└─⟦ea621760d⟧ Bits:30005267 dBase II - uoriginal diskette
    └─⟦this⟧ »RUN.CMD«

TextFile

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»