image of READY prompt

Wang2200.org

Listing of file='NUDE' on disk='vmedia/games.wvd.zip'

# Sector 739, program filename = 'NUDE'
0010 PRINT HEX(030A0A)
0020 INPUT "HOW MANY NUDE CALENDERS DO YOU WANT",C
0030 FOR X=1TO C
0040 REM THIS PROGRAM IS THE PROPERTY OF BRUCE LUSTIG
0050 SELECT PRINT 215(131)
0060 PRINT TAB(52);". ..."
0070 PRINT TAB(48);".''.' .    '."
0080 PRINT TAB(43);". '' ";HEX(22);".'.:I:.'..   '."
0090 PRINT TAB(41);".'.:.:....:II:'.'.'.. '."
0100 PRINT TAB(39);".':.'::.:::.:II:'.'.'.'.. '."
0110 PRINT TAB(37);".'.'.'.'::.:.:.:I:'.'.'.'. .  '"
0120 PRINT TAB(36);"..'.'.'.:.:I::.:II:.'..'.'..    ."
0130 PRINT TAB(35);"..'.'':.:.::.:.::II::.'.'.'.'..   ."
0140 PRINT TAB(34);"..'.'.'.:.::. .:::II:..'.'.'.'.'.   ."
0150 PRINT TAB(33);".':.''.':'.'.'.:.:I:'.'.'.'.'..  ..  .."
0160 PRINT TAB(33);"':. '.':'. ..:.::.::.:.'..:  ':.'.'.. .."
0170 PRINT TAB(32);".:.:.':'.   '.:':I:.:.. .'.'.  ': .'.. . .."
0180 PRINT TAB(32);"'..:.:'.   .:.II:.:..   . .:.'. '.. '. .  .."
0190 PRINT TAB(31);".. :.:.'.  .:.:I:.:. .  . ..:..:. :..':. .  '."
0200 PRINT TAB(30);".:. :.:.   .:.:I:.:. .    . ..:I::. :: ::  .. .."
0210 PRINT TAB(30);".. :'.'.:. .:.:I:'.        ..:.:I:. :: ::.   .  ."
0220 PRINT TAB(30);"'..:. .:.. .:II:'         ..:IIIM.  ::. ':.      ."
0230 PRINT TAB(29);".:.::'.:::..:.AII:.      .::";HEX(22);"..  :I .::. ':.
        ."
0240 PRINT TAB(29);":..:'.:II:.:I:  ..:'   ' .::PDI";HEX(22);"M:: ..:.. ':.
      . ."
0250 PRINT TAB(28);".. :':III:. :.:A";HEX(22);"PDF:.  . .P.IP::";HEX(22);":: :
     I:..'::. .    .."
0260 PRINT TAB(28);". .:.:II: A.'.':.PP:";HEX(22);" .  . ..'..' .: :.::. ':...
       . .."
0270 PRINT TAB(28);". .: .:IIIM:.   ' '.' .  ... .    .:. :.:.. :..     .'"
0280 PRINT TAB(28);". .I.::I:IIA.        ..   ...    ..::.'.'.'.: ..  . ."
0290 PRINT TAB(29);".:II.'.':IA:.      ..    ..:.  . .:.: .''.'  ..  . ."
0300 PRINT TAB(28);"..::I:.'.'::A:.  . .:'-. .-.:..  .:.::AA.. ..:.' .. ."
0310 PRINT TAB(29);"':II:I:.  ':A:. ..:'   ''.. . : ..:::AMI: ..:..'.'."
0320 PRINT TAB(28);".':III.::.   'II:.:...::::::::";HEX(22);". .:::AMV:: .::''
      .."
0330 PRINT TAB(28);"..";HEX(22);":IIMI::. .  ";HEX(22);"I:..";HEX(22);"::....:
     :";HEX(22);". . .:AII:: :.:'  . ."
0340 PRINT TAB(28);". . IIMMI:..'.'.'V::. ";HEX(22);"::::";HEX(22);"   ...:AII
     V:'.:.'  .. ."
0350 PRINT TAB(29);". . :IIMI:. .:.:.V:.   ' ' . ...:MI:' .:: :. .  ..'"
0360 PRINT TAB(29);". .  ':IMII:: ::.IA..      .. .A ...:::' .:.    ."
0370 PRINT TAB(29);":.  ...'I:I:.: ..AMMA. . .'..AMIV::' . . :      .."
0380 PRINT TAB(29);":. '.::::II:.I:.MIMMIMMMMMIMMIMV:'..:. .I.':. ..  '."
0390 PRINT TAB(26);". . .. '':::I:'.::IMMMMMMMMMMMMIMI. '.'.:IMI..  '  '  '."
0400 PRINT TAB(27);"':... .  ''";HEX(22);" .::'.MMMI:MMMMMMMIMI. :IIMMII:. . .
      .    ."
0410 PRINT TAB(28);":.:.. . ..::.' .IV";HEX(22);".:I:IIIMIMMIM. .:IM::'.': '..
       .  ."
0420 PRINT TAB(26);". .:.:: .. ::'.'.'..':.::I:I:IMMMIA.'.II.:...:' .' ... . '
     .."
0430 PRINT TAB(25);"'..::::' ...::'.IIMII:: .:.:..:..:III:.'::' .'    .    ..
      . ."
0440 PRINT TAB(25);"'::.:' .''     .. :IIMI:.:.. ..: . .:I:";HEX(22);"' ...:.:
     .  ..    .. .."
0450 PRINT TAB(28);".:..::I:.  . . . .IMII:.:'   .. ..";HEX(22);".::.:II:.:. .
       ...   . .."
0460 PRINT TAB(25);".. . .::.:......'::II:.:'    . ...... . .. .:II:.::  ...
     .. .."
0470 PRINT TAB(26);"..:.::.: .    . . .. .:. .... ...:.. . . ..:.::.   :..   .
      .."
0480 PRINT TAB(27);".'.::I:.      . .. ..:.... . ....  .. . ..::. .. .I:. ..'
     ."
0490 PRINT TAB(25);".'':.: I.       . .. ..:.. .  . .. ..... .:. .:.. .:I.'.''
     .."
0500 PRINT TAB(25);". .:::I:.       . . .. .:. .    .. ..  . ... .:.'.'I' .  .
     .."
0510 PRINT TAB(25);". ::.:I:..     . . . ....:. . .   .... ..   .:..:.:.:. ''.
     ''"
0520 PRINT TAB(25);"'.'::'I:.       . .. ....:. .     .. . ..  ..' .'.:..:..
       ."
0530 PRINT TAB(31);":. .     . .. .. .:.... .  .  .... ...  .  .:.:.:..    '."
0540 PRINT TAB(31);":.      .  . . .. .:.... . . ........      .:.:.::. .    .
     "
0550 PRINT TAB(31);":. .     . . . . .. .::..:  . ..:.. .       ::.:.:.. .
     ."
0560 PRINT TAB(31);":.. .    . . .  . .. ..:.:  .. .. .:. ..    ':::.::.:. .
      ."
0570 PRINT TAB(31);"':.. .  . . . .. .. ...::' .. ..  . .:. .    V:I:::::.. .
       :."
0580 PRINT TAB(31);"'::. .  . .. .. ... .:.::  .. .  . .. .. .    VI:I:::::..
       ''B"
0590 PRINT TAB(32);"':.. .   . .. ..:.. ..I:... . .  . .. ... .   VII:I:I:::.
     .'::"
0600 PRINT TAB(32);"':.. . . . .. ..:..:.:I:.:. .  . .. . .:. .    VMIII:I::.:
     ..':"
0610 PRINT TAB(33);"::..   . . .. ..:..:.MI:. .      . . .... .   :MMIMMMI:I::
     ..:"
0620 PRINT TAB(33);"':. .  . .. .. ..:.:.:MI:.    . . .. ..... .   MMMMIMII:I:
     :.'"
0630 PRINT TAB(34);":.. .  . . .. .:.:.:.MI:.      . . .. ... .   IMMMMIMMIMI:
     '"
0640 PRINT TAB(35);":..  .  . . .. ..:..IM:.     . . .. .. ... . 'MMMMMMMMI:'"
0650 PRINT TAB(35);"':..   . . .. ..:.:.:MI..   .  . .. . :::::.  MIM";HEX(222
     222);"'"
0660 PRINT TAB(36);":. . .  . .. ..::.:.VI:.     . . .. .:::'::. MIM"
0670 PRINT TAB(37);":..  .  . .. .:.:.:.V:.    . . . ...::I";HEX(22);"A:. MMV"
0680 PRINT TAB(38);":. .  .  . .. ..:.:.V:.     . . ....::I::'.MV:"
0690 PRINT TAB(39);":. .  . . . .. .:..II:.  . . . ....':::' AV.'"
0700 PRINT TAB(40);":.. . . .. ... .:..VI:. . . .. .:. ..:.AV'."
0710 PRINT TAB(40);"':.. . .  .. ..:.:.:MAI:.:...:.:.:.:.AII:."
0720 PRINT TAB(41);"I:. .  .. ... .:.:.VMMII:..:.:..:A:'.:.."
0730 PRINT TAB(42);"IA..  . . .. ..:.:.:VMMMMIMIMMIMI:'.::."
0740 PRINT TAB(42);"'MA:.  . . .. ..:.:.:MMMIMIMMMIMI:..:."
0750 PRINT TAB(43);"MIA: .  . . .. ...:.VMMMIMIIMI::.:..."
0760 PRINT TAB(43);"MIMI:. .  .. ... .::.MMMIIMIIMI:::.."
0770 PRINT TAB(43);"MII:.:.  .  .. ... .::VMMIMI:I::.:.."
0780 PRINT TAB(43);"AI:..:..  .  . .. ..:.VMIII:I::.:. ."
0790 PRINT TAB(42);"AI:. ..:..  .  . .. ..' VMIII:I:... ."
0800 PRINT TAB(41);"AI:. .  .:.. .  .  . ...  VMII::..  ."
0810 PRINT TAB(39);".A:.  .     :.. .  . .. .:.. VMII::..  ."
0820 PRINT TAB(38);"A:. .  .      ::. .. .. . .:.. ";HEX(22);"VMI::.. ."
0830 PRINT TAB(36);".:.. .   .       :.. .:..... .::.. VMI:.."
0840 PRINT TAB(35);"... . .   .    . . :.:. ..:. . .::.. VI:..  ."
0850 PRINT TAB(34);".. .. .   .   . . ...:... . .. . .:::. V:..  ."
0860 PRINT TAB(33);"'.. ..  .   .  .. ..:::.... .:. . ..::.. V..  ."
0870 PRINT TAB(30);". .. .. .. . .  . ... ..::IA.. .. . .  ..::. :..  ."
0880 PRINT TAB(29);".. .. ... . .  .. .... .:.::IA. . .. . ..:.::. :.  ."
0890 PRINT TAB(28);". . . .. .   . . .. ..:..:.::IIA. . .  .. .:.::. :. ."
0900 PRINT TAB(27);".. . .  .   . . .. ... ..:.::I:IMA. .  . . ..:.::. . ."
0910 PRINT TAB(26);".: ..  .  .   . . ... .:.. .:I:IIMMA. .  . .. .::I:. ."
0920 PRINT TAB(25);".::.  .     . . .. ..:. .::.:IIMIIMMMA.  .  .. ..:I:. . ."
0930 PRINT TAB(25);"A::..      .  .  ...:..:.::I:IMIMIMMMMA.  .  . ..::I:. ."
0940 PRINT TAB(24);":MI:.. .       . .. .:.:.::I:IMIMIIMIMMMA. .   .. .::I:. .
     ."
0950 PRINT TAB(24);"AI:.. .. .    . .. .:.:.::II:IMIIIMIMIMMMA.  .  . ..::I:.
     .."
0960 PRINT TAB(23);":MI:.. . .   .  . .. .::.:I:IMIMIIIMIMIIMMMA..  . .. .::I:
     . .."
0970 PRINT TAB(23);"AI:.:.. .  .. .  ... .::.::I:IMIIMIMIMIMIMIMMA. .  . ..::I
     :. ."
0980 PRINT TAB(23);"MI:. .. . .  .  . .. .:..::IIMIMIMIIIIVMIIMMMVA.  . . .:::
     I:. . ."
0990 PRINT TAB(23);"MI:.. . .  .   . .. ..:.::I:IIMMIIMIMIMIMMMMV";HEX(22);"
      .. . ..:::II: . ."
1000 PRINT TAB(23);"MI::.. .  .   .  .. .:..:::IIMIMIIVIVIIVMVV";HEX(22);" .
       .. . ..::III: .  ."
1010 PRINT TAB(23);"MI::... . . .  . ... ..:.:::IIMIVIVIVMVMVV. .  .   . .. .:
     .:III. .   ."
1020 PRINT TAB(23);"II::.:.. . .  .  .. ......:..IMVMIVVMVMV";HEX(22);".. . .
     . .  ... .:.:IMI:..    ."
1030 PRINT TAB(23);"II:I::.. .  .   .  . .....::.:IMVMVVVMV:.. .  .  . .  .:..
     :::IIMII.."
1040 PRINT TAB(23);":II:.:.:.. .  .   . ......:.:.:IVVMVVV:.:.. .  .  .  . :..
     .:.:IMMI:.."
1050 PRINT TAB(24);"MI::.:. . . .  .  . ...:.::.::.VVMVV::.:.:.. .  . .. . :..
      ..:IMMI::.'-"
1060 PRINT TAB(24);"MII::.:.. .  .  . .. .:..:.'.  'VVVI::.::.:.. . .  . .. ':
     ...:II:IIII::"
1070 PRINT TAB(24);"III::.:... .  .  . ...:.:... .   VII:I::.:.. .  .  .. . .
     :.:::...::.::"
1080 PRINT TAB(25);"VII::.:.. . . . .. ...:....      VMI:I::.:.. .  . ... .. .
     ::.:..:.:..:"
1090 PRINT TAB(26);"VII::.:.. . .  . ..:.::.. .     :MMII:I::.:.. . . .. ..  .
     '::':......"
1100 PRINT TAB(26);"III:I::.. .. . . .. .:.:.. .    :VMIMI:I::.:... . . .. ..
     .':. .. .AM"
1110 PRINT TAB(25);"AAIII:I::.. . . .  .. ..:.. . .  ::MMIMII:I::.:... .. .. .
     .. .:.::AMMM"
1120 PRINT HEX(0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A0A)
1130 REM THIS IS THE 1975 CALENDAR
1140 PRINT TAB(30);HEX(0E);"1975"
1150 PRINT HEX(0A0A0A0A0A)
1160 PRINT TAB(28);"JANUARY";TAB(62);"MAY";TAB(95);"SEPTEMBER"
1170 PRINT HEX(0A)
1180 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"
1190 PRINT TAB(22);"..  ..  ..   1   2   3   4";TAB(56);"..  ..  ..  ..   1
     2   3";TAB(89);"..   1   2   3   4   5   6"
1200 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"
1210 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"
1220 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"
1230 PRINT TAB(22);"26  27  28  29  30  31  ..";TAB(56);"25  26  27  28  29  3
     0  31";TAB(89);"28  29  30  ..  ..  ..  .."
1240 PRINT HEX(0A0A0A)
1250 PRINT TAB(28);"FEBRUARY";TAB(61);"JUNE";TAB(96);"OCTOBER"
1260 PRINT HEX(0A)
1270 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"
1280 PRINT TAB(22);"..  ..  ..  ..  ..  ..   1";TAB(56);" 1   2   3   4   5
     6   7";TAB(89);"..  ..  ..   1   2   3   4"
1290 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"
1300 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"
1310 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"
1320 PRINT TAB(22);"23  24  25  26  27  28  ..";TAB(56);"29  30  ..  ..  ..  .
     .  ..";TAB(89);"26  27  28  29  30  31  .."
1330 PRINT HEX(0A0A0A)
1340 PRINT TAB(30);"MARCH";TAB(61);"JULY";TAB(96);"NOVEMBER"
1350 PRINT HEX(0A)
1360 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"
1370 PRINT TAB(22);"..  ..  ..  ..  ..  ..   1";TAB(56);"..  ..   1   2   3
     4   5";TAB(89);"..  ..  ..  ..  ..  ..   1"
1380 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"
1390 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"
1400 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"
1410 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"
1420 PRINT TAB(22);"30  31  ..  ..  ..  ..  ..";TAB(56);"..  ..  ..  ..  ..  .
     .  ..";TAB(89);"30  ..  ..  ..  ..  ..  .."
1430 PRINT HEX(0A0A0A)
1440 PRINT TAB(28);"APRIL";TAB(62);"AUGUST";TAB(95);"DECEMBER"
1450 PRINT HEX(0A)
1460 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"
1470 PRINT TAB(22);"..  ..   1   2   3   4   5";TAB(56);"..  ..  ..  ..  ..
     1   2";TAB(89);"..   1   2   3   4   5   6"
1480 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"
1490 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"
1500 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"
1510 PRINT TAB(22);"27  28  29  30  ..  ..  ..";TAB(56);"24  25  26  27  28  2
     9  30";TAB(89);"28  29  30  31  ..  ..  .."
1520 PRINT TAB(22);"..  ..  ..  ..  ..  ..  ..";TAB(56);"31  ..  ..  ..  ..  .
     .  ..";TAB(89);"..  ..  ..  ..  ..  ..  .. "
1530 PRINT HEX(0C)
1540 NEXT X
1550 SELECT PRINT 005
1560 STOP
1570 DEFFN'31
   : LOAD DC F"GAMES"