|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2528 (0x9e0)
Notes: Mikados TextFile, Mikados_K
Names: »COMPARES«
└─⟦ca21ef4c0⟧ Bits:30005311 Extended Pascal System Disc v. 04.07.1980 (SPC/1)
└─ ⟦this⟧ »COMPARES«
PROGRAM COMPARESTRINGS;
VAR S: STRING;
T: STRING(.40.);
BEGIN
S := 'SOMETHING';
T := 'SOMETHING BIGGER';
IF S = T THEN WRITELN('Strings don''t work too well')
ELSE IF S>T THEN WRITELN(S,' is greater than ', T)
ELSE IF S<T THEN WRITELN(S,' is less than ', T);
IF S='SOMETHING' THEN WRITELN(S,' equals ',S);
IF S>'SAMETHING' THEN
WRITELN(S,' is greater than SAMETHING');
IF S='SOMETHING ' THEN WRITELN('Blanks don''t count')
ELSE WRITELN('Blanks appear to make a difference');
S := 'XXX';
T := 'ABCDEF';
IF S>T THEN WRITELN(S,' is greater than ',T)
ELSE WRITELN(S,' is less than ', T);
IF 'UPPERCASE'<'lowercase' THEN
WRITELN('lowercase is greater than UPPERCASE')
ELSE WRITELN('Lowercase=uppercase')
END.