|
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: 768 (0x300)
Types: TextFile
Names: »DCF.PAS«
└─⟦cbdf9d390⟧ Bits:30005867/disk19.imd Dokumenter (RCSL m.m.)
└─⟦this⟧ »DCF.PAS«
procedure kat2;
begin
end (* kat2*);
function kod (s: string): char;
var
sp: integer;
k: char;
begin
sp:= 1;
while s(.sp.) = ' ' do sp:= sp + 1;
case s(.sp.) of
'a', 'A': k:= @0;
'b', 'B': k:= @16;
'c', 'C': k:= @32;
'd', 'D', 'e', 'E': k:= @48;
'f', 'F', 'g', 'G': k:= @64;
'h', 'H': k:= @80;
'i', 'I', 'j', 'J': k:= @96;
'k', 'K': k:= @112;
'l', 'L': k:= @128;
'm', 'M': k:= @144;
'n', 'N', 'o', 'O': k:= @160;
'p', 'P': k:= @176;
'q', 'Q', 'r', 'R': k:= @192;
's', 'S': k:= @208;
't', 'T', 'u', 'U': k:= @224;
'v'..'å', 'V'..'Å': k:= @240
end;
sp:= sp + 1;
«eof»