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"