|
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»