|
|
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: 256 (0x100)
Types: TextFile
Names: »DEMO.SRC«
└─⟦bb4d5968a⟧ Bits:30008918 MT+ SPP 1/3
└─⟦this⟧ »DEMO.SRC«
PROGRAM DEMO_SOFTBUS;
TYPE
REC = RECORD
I : INTEGER;
B : BOOLEAN
END
VAR
REC1 : REC;
BEGIN
WITH REC2 DO
BEGIN
I = 2;
B := TRUE;
END;
IF REC1.B THEN
WRITELN('TRUE')
ELSE
WRITELN('FALSE')
END.
«eof»