|
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: »JOURNAL.PAS«
└─⟦08ea08c61⟧ Bits:30003924 PolyPascal programmer
└─⟦this⟧ »JOURNAL.PAS«
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
└─⟦this⟧ »JOURNAL.PAS«
└─⟦3702e543b⟧ Bits:30003064 Demoprogrammer A-J til Pascal bog
└─⟦this⟧ »JOURNAL.PAS«
PROGRAM journal;
TYPE
str30 = STRING(.30.);
VAR
tekst : str30;
i, start, slut : INTEGER;
ok : BOOLEAN;
BEGIN
WRITE(CLRHOM);
WRITE('Skriv journalnummer (A-00-000): ');
READLN(tekst);
i := 1;
WHILE tekst(.i.) = ' ' DO
i := i + 1;
start := i;
i := LEN(tekst);
WHILE tekst(.i.) = ' ' DO
i := i - 1;
slut := i;
tekst := COPY(tekst, start, slut - start + 1); (* blanktegn slettes *)
ok := TRUE;
IF LEN(tekst) <> 8
THEN ok := FALSE
ELSE IF (tekst(.1.) < 'A') OR (tekst(.1.) > 'Å')
THEN ok := FALSE
ELSE IF (tekst(.2.) <> '-') OR (tekst(.5.) <> '-')
THEN ok := FALSE
ELSE
FOR i := 3 TO 8 DO
IF i <> 5
THEN
IF (tekst(.i.) < '0') OR (tekst(.i.) > '9')
THEN ok := FALSE;
IF ok
THEN WRITELN(tekst, ' er i orden')
ELSE WRITELN(tekst, ' er ikke korrekt');
END.
«eof»