|
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: 640 (0x280)
Types: TextFile
Names: »IDENTIFI.HLP«
└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
└─⟦this⟧ »IDENTIFI.HLP«
PROGRAM identifi (* IDENTIFI.HLP *);
TYPE
str10 = STRING(.10.);
fil = FILE OF str10;
VAR
indfil : fil;
identifier : str10;
i : INTEGER;
BEGIN
ASSIGN(indfil, 'IDENTIFI.DAT');
REWRITE(indfil);
WRITE(CLRHOM);
WRITELN('Standardidentifierne indtastes nu i alfabetisk rækkefølge.');
WRITELN('Benyt STORE bogstaver - ''#'' stopper:');
WRITELN;
REPEAT
WRITE(': ');
BUFLEN := 10;
READLN(identifier);
IF identifier <> '#'
THEN WRITE(indfil, identifier);
UNTIL identifier = '#';
CLOSE(indfil);
END.
«eof»