image of READY prompt

Wang2200.org

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"