|
DataMuseum.dkPresents historical artifacts from the history of: Jet Computer Jet80 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Jet Computer Jet80 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 768 (0x300)
Types: TextFile
Names: »CHECK3.PAS«
└─⟦092727b26⟧ Bits:30005927 Demoprogrammer til Pascal bog (Jet-80)
└─ ⟦this⟧ »CHECK3.PAS«
PROGRAM check3;
TYPE
str40 = STRING(.40.);
charset = SET OF CHAR;
FUNCTION laestegn(ledetekst : str40; gyldigtegn : charset) : CHAR;
VAR
ch : CHAR;
BEGIN (* laestegn *)
WRITE(ledetekst);
REPEAT
READ(KBD, ch);
UNTIL ch IN gyldigtegn;
WRITELN(ch);
laestegn := ch;
END; (* laestegn *)
BEGIN (* check3 *)
WRITELN(laestegn('Vælg et af følgende tegn (4 ^ m k): ',
(.'4', '^', 'm', 'k'.)));
WRITELN(laestegn('Slut (j/n)? ', (.'J', 'j', 'N', 'n'.)));
WRITELN(laestegn('Tast et ciffer: ', (.'0' .. '9'.)));
END. (* check3 *)
«eof»