Calendar - for "REAL" programmers: Difference between revisions
Content added Content deleted
(→{{header|C}}: More notes) |
|||
Line 2,370: | Line 2,370: | ||
<lang M2000 Interpreter> |
<lang M2000 Interpreter> |
||
\\ Calendar - for "REAL" programmers |
|||
\\ All statements in UPPERCASE |
|||
\\ Output to 132 characters console - as a line printer |
|||
\\ USE COURIER NEW (FONT "COURIER NEW") |
|||
\\ CHANGE THE VALUE OF PRINT_IT TO TRUE FOR PRINTING |
|||
GLOBAL CONST PRINT_IT AS BOOLEAN=FALSE |
GLOBAL CONST PRINT_IT AS BOOLEAN=FALSE |
||
MODULE GLOBAL SNOOPY { |
MODULE GLOBAL SNOOPY { |
||
Line 2,451: | Line 2,456: | ||
FOR I=1 TO 6 { |
FOR I=1 TO 6 { |
||
MONTH=I+J*6 |
MONTH=I+J*6 |
||
PRINT PART @((I-1)*22), $(2,21), UCASE$(LOCALE$(55+MONTH)) |
PRINT PART @((I-1)*22+1), $(2,21), UCASE$(LOCALE$(55+MONTH)) |
||
} |
} |
||
PRINT |
PRINT |
||
Line 2,462: | Line 2,467: | ||
COUNT(I)=GETMAX(YEAR, MONTH) |
COUNT(I)=GETMAX(YEAR, MONTH) |
||
} |
} |
||
PRINT |
PRINT |
||
IF PRINT_IT ELSE REFRESH 1000 |
|||
FOR I=1 TO 6 { |
FOR I=1 TO 6 { |
||
IF I>1 THEN PRINT " "; |
IF I>1 THEN PRINT " "; |
||
Line 2,474: | Line 2,480: | ||
} |
} |
||
PRINT |
PRINT |
||
IF PRINT_IT ELSE REFRESH 1000 |
|||
PRINT @(0) |
PRINT @(0) |
||
FOR M=1 TO 5 { |
FOR M=1 TO 5 { |
||
Line 2,485: | Line 2,492: | ||
} |
} |
||
} |
} |
||
PRINT |
PRINT |
||
IF PRINT_IT ELSE REFRESH 1000 |
|||
} |
} |
||
} |
} |
||
} |
} |
||
WHILE INKEY$<>"" : END WHILE |
WHILE INKEY$<>"" : END WHILE |
||
IF PRINT_IT THEN PRINTING ON |
IF PRINT_IT THEN PRINTING ON ELSE REFRESH 1000 |
||
FONT "COURIER NEW" |
FONT "COURIER NEW" |
||
PEN 0 |
PEN 0 |
||
Line 2,497: | Line 2,505: | ||
CALENDAR 1966, 1032 ' GREEK |
CALENDAR 1966, 1032 ' GREEK |
||
GOSUB WAITKEY_OR_MOUSE |
GOSUB WAITKEY_OR_MOUSE |
||
FOR I= |
FOR I=2020 TO 2026 |
||
CALENDAR I, 1033 ' ENGLISH |
CALENDAR I, 1033 ' ENGLISH |
||
GOSUB WAITKEY_OR_MOUSE |
GOSUB WAITKEY_OR_MOUSE |
||
NEXT I |
NEXT I |
||
IF PRINT_IT THEN PRINTING OFF |
IF PRINT_IT THEN PRINTING OFF ELSE REFRESH 50 |
||
CLEAR ' CLEAR VARIABLES FROM THIS MODULE |
CLEAR ' CLEAR VARIABLES FROM THIS MODULE |
||
KEYBOARD "INFO"+CHR$(13) |
KEYBOARD "INFO"+CHR$(13) |
||
Line 2,510: | Line 2,518: | ||
END WHILE |
END WHILE |
||
RETURN |
RETURN |
||
</lang> |
</lang> |
||