|
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: 768 (0x300)
Types: TextFile
Names: »PROGRAM4.BAK«
└─⟦49cd49952⟧ Bits:30009431 50004848
└─⟦0c326962c⟧
└─⟦this⟧ »PROGRAM4.BAK«
PROGRAM NEXTDAY (INPUT , OUTPUT );
VAR DAY : 1..31;
MONTH : 1..2 ;
YEAR : 1900..2000;
DAYSINMONTH : 28..31;
BEGIN
READ (MONTH, DAY, YEAR);
WRITE ('THE DAY FOLLOWING',MONTH:3 '/',DAY:2,'/', YEAR:4);
(* FIND NUMBER OF DAYS IN MONTH *)
CASE MONTH OF
1,3,5,7,8,10,12 :DAYSINMONTH:=31;
4,6,9,11 : DAYSINMONTH:=30;
2 : IF (YEAR MOD 4 = 0) AND (YEAR <>1900)
THEN DAYSINMONTH:=29
ELSE DAYSINMONTH:=28
END;
(* update *)
IF DAY=DAYSINMONTH THEN
BEGIN
DAY:=1;
IF MONTH=12 THEN BEGIN MONTH:=1; YEAR:=YEAR+1 END
ELSE MONTH:=MONTH+1
END ELSE DAY:=DAY+1;
WRITELN ('IS', MONTH:3,'/',DAY:2,'/' YEAR:4)
END.
«eof»