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"