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

⟦89def1e9b⟧ TextFile

    Length: 512 (0x200)
    Types: TextFile
    Names: »FILEX.CMD«

Derivation

└─⟦7b7460039⟧ Bits:30005889 KnowledgeMan - ACP - dBase II
    └─⟦this⟧ »FILEX.CMD«

TextFile

* filex.cmd
erase
set talk off
use line
goto top
do while .not. eof
   store @("`",line) to i
   if i > 0
      store i+1 to i
      store len(trim(line)) to lgd
      if lgd>i
         if $(line,lgd,lgd)="`"
            store lgd-1 to lgd
         endif
         ? $(line,i,lgd)
      endif
   endif
   skip
enddo
«eof»