Anonymous user
Calendar - for "REAL" programmers: Difference between revisions
m
→{{header|M2000 Interpreter}}
No edit summary |
|||
Line 1,940:
LOCALE LOCALEID
CURSOR 0,HEIGHT-1 ' LAST LINE, SO EACH NEW LINE SCROLL ALL LINES UP
PRINT OVER $(2),"[SNOOPY]"
PRINT UNDER ' PRINT UNDERLINE
PRINT OVER $(2), YEAR
PRINT
Line 1,953 ⟶ 1,955:
MONTH=I+J*6
IF I>1 THEN PRINT " ";
FOR K=42 TO 48 :PRINT " ";UCASE$(LEFT$(LOCALE$(K),2))
SKIP(I)=SKIPMO(YEAR, MONTH)
COUNT(I)=GETMAX(YEAR, MONTH)
}
PRINT
FOR I=1 TO 6 {
IF I>1 THEN PRINT " ";
Line 1,964 ⟶ 1,966:
IF SKIP(I)>0 THEN PRINT " "; :CONTINUE
COUNT(I)--
PRINT FORMAT$(" {0::-2}
D(I)++
}
Line 1,976 ⟶ 1,978:
COUNT(I)--
IF COUNT(I)<0 THEN PRINT " "; : CONTINUE
PRINT FORMAT$(" {0::-2}
D(I)++
}
Line 1,990 ⟶ 1,992:
</lang>
=={{header|Perl}}==
| |||