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"