Listing of file='CAL' on disk='vmedia/games.wvd.zip'
# Sector 454, program filename = 'CAL'
0010 REM THIS IS THE 1975 CALENDAR
0015 PRINT HEX(03)
: PRINT
: PRINT
: PRINT
: PRINT
: PRINT
: PRINT
: PRINT TAB(22);"PRINTER ON PLEASE...";
: SELECT PRINT 215(132)
0020 PRINT TAB(30);HEX(0E);"1975"
0030 PRINT HEX(0A0A0A0A0A)
0040 PRINT TAB(28);"JANUARY";TAB(62);"MAY";TAB(95);"SEPTEMBER"
0050 PRINT HEX(0A)
0060 PRINT TAB(22);"S M T W T F S";TAB(56);"S M T W T F
S";TAB(89);"S M T W T F S"
0070 PRINT TAB(22);".. .. .. 1 2 3 4";TAB(56);".. .. .. .. 1
2 3";TAB(89);".. 1 2 3 4 5 6"
0080 PRINT TAB(22);" 5 6 7 8 9 10 11";TAB(56);" 4 5 6 7 8
9 10";TAB(89);" 7 8 9 10 11 12 13"
0090 PRINT TAB(22);"12 13 14 15 16 17 18";TAB(56);"11 12 13 14 15 1
6 17";TAB(89);"14 15 16 17 18 19 20"
0100 PRINT TAB(22);"19 20 21 22 23 24 25";TAB(56);"18 19 20 21 22 2
3 24";TAB(89);"21 22 23 24 25 26 27"
0110 PRINT TAB(22);"26 27 28 29 30 31 ..";TAB(56);"25 26 27 28 29 3
0 31";TAB(89);"28 29 30 .. .. .. .."
0120 PRINT HEX(0A0A0A)
0130 PRINT TAB(28);"FEBRUARY";TAB(61);"JUNE";TAB(96);"OCTOBER"
0140 PRINT HEX(0A)
0145 PRINT TAB(22);"S M T W T F S";TAB(56);"S M T W T F
S";TAB(89);"S M T W T F S"
0150 PRINT TAB(22);".. .. .. .. .. .. 1";TAB(56);" 1 2 3 4 5
6 7";TAB(89);".. .. .. 1 2 3 4"
0160 PRINT TAB(22);" 2 3 4 5 6 7 8";TAB(56);" 8 9 10 11 12 1
3 14";TAB(89);" 5 6 7 8 9 10 11"
0170 PRINT TAB(22);" 9 10 11 12 13 14 15";TAB(56);"15 16 17 18 19 2
0 21";TAB(89);"12 13 14 15 16 17 18"
0180 PRINT TAB(22);"16 17 18 19 20 21 22";TAB(56);"22 23 24 25 26 2
7 28";TAB(89);"19 20 21 22 23 24 25"
0190 PRINT TAB(22);"23 24 25 26 27 28 ..";TAB(56);"29 30 .. .. .. .
. ..";TAB(89);"26 27 28 29 30 31 .."
0200 PRINT HEX(0A0A0A)
0210 PRINT TAB(30);"MARCH";TAB(61);"JULY";TAB(96);"NOVEMBER"
0220 PRINT HEX(0A)
0230 PRINT TAB(22);"S M T W T F S";TAB(56);"S M T W T F
S";TAB(89);"S M T W T F S"
0240 PRINT TAB(22);".. .. .. .. .. .. 1";TAB(56);".. .. 1 2 3
4 5";TAB(89);".. .. .. .. .. .. 1"
0250 PRINT TAB(22);" 2 3 4 5 6 7 8";TAB(56);" 6 7 8 9 10 1
1 12";TAB(89);" 2 3 4 5 6 7 8"
0260 PRINT TAB(22);" 9 10 11 12 13 14 15";TAB(56);"13 14 15 16 17 1
8 19";TAB(89);" 9 10 11 12 13 14 15"
0270 PRINT TAB(22);"16 17 18 19 20 21 22";TAB(56);"20 21 22 23 24 2
5 26";TAB(89);"16 17 18 19 20 21 22"
0280 PRINT TAB(22);"23 24 25 26 27 28 29";TAB(56);"27 28 29 30 31 .
. ..";TAB(89);"23 24 25 26 27 28 29"
0290 PRINT TAB(22);"30 31 .. .. .. .. ..";TAB(56);".. .. .. .. .. .
. ..";TAB(89);"30 .. .. .. .. .. .."
0300 PRINT HEX(0A0A0A)
0310 PRINT TAB(28);"APRIL";TAB(62);"AUGUST";TAB(95);"DECEMBER"
0320 PRINT HEX(0A)
0330 PRINT TAB(22);"S M T W T F S";TAB(56);"S M T W T F
S";TAB(89);"S M T W T F S"
0340 PRINT TAB(22);".. .. 1 2 3 4 5";TAB(56);".. .. .. .. ..
1 2";TAB(89);".. 1 2 3 4 5 6"
0350 PRINT TAB(22);" 6 7 8 9 10 11 12";TAB(56);" 3 4 5 6 7
8 9";TAB(89);" 7 8 9 10 11 12 13"
0360 PRINT TAB(22);"13 14 15 16 17 18 19";TAB(56);"10 11 12 13 14 1
5 16";TAB(89);"14 15 16 17 18 19 20"
0370 PRINT TAB(22);"20 21 22 23 24 25 26";TAB(56);"17 18 19 20 21 2
2 23";TAB(89);"21 22 23 24 25 26 27"
0380 PRINT TAB(22);"27 28 29 30 .. .. ..";TAB(56);"24 25 26 27 28 2
9 30";TAB(89);"28 29 30 31 .. .. .."
0390 PRINT TAB(22);".. .. .. .. .. .. ..";TAB(56);"31 .. .. .. .. .
. ..";TAB(89);".. .. .. .. .. .. .. "
0400 SELECT PRINT 005(64)
: LOAD DC R"GAMEMENU"