|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 1024 (0x400)
Types: TextFile
Names: »ORD.CMD«
└─⟦7b7460039⟧ Bits:30005889 KnowledgeMan - ACP - dBase II
└─⟦this⟧ »ORD.CMD«
* ord.cmd
erase
store " " to ord,tegn
store " " to txtfil
set talk off
accept "Tast tekst-linie-file-navnet : " to txtfil
if len(trim(txtfil))<2
store "line" to txtfil
endif
use &txtfil
do while .not. eof
? line
? "----------------------------------------------------------------------"
store 1 to xloop
store len(trim(line)) to lgd
do while xloop<=lgd
store $(line,xloop,1) to tegn
if @(tegn," (),.!?`;:/")>0 .or. xloop=lgd ;
.or. rank(tegn)<32 .or. rank(tegn)>127
if xloop=lgd .and. @(tegn," (),.!?`;:/")=0
store ord+tegn to ord
endif
if len(trim(ord))>1
? #," ",ord
store " " to ord
endif
else
store ord+tegn to ord
endif
store xloop+1 to xloop
enddo
skip 1
enddo
«eof»