Listing of file='PLAYGIRL' on disk='vmedia/games.wvd.zip'
# Sector 30, program filename = 'PLAYGIRL' 0001 SELECT PRINT 005(64) : PRINT HEX(03) : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT : PRINT TAB(22);"PRINTER ON PLEASE..."; 0005 SELECT PRINT 215(131) 0010 REM TIS PROGRAM PRINTS A PLAY GIRL 0020 PRINT TAB(61);"$$$$$$$$$$$$$$$" 0030 PRINT TAB(58);"$$$$$$$$$$$$$$$$$$$$" 0040 PRINT TAB(57);"$$$$$$$$$$$$$$$$$$$$$$$" 0050 PRINT TAB(55);"$$$$$$$$$$$$$$$$$$$$$$$$$$" 0060 PRINT TAB(54);"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 0070 PRINT TAB(53);"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 0080 PRINT TAB(52);"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 0090 PRINT TAB(51);"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 0100 PRINT TAB(50);"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 0110 PRINT TAB(50);"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 0120 PRINT TAB(50);"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 0130 PRINT TAB(50);"$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$" 0140 PRINT TAB(49);"$$$$$$$$$$$$$$$$$$$$$$$$$$$$ $$$$$$$$$$" 0150 PRINT TAB(49);"$$$$$$$$$$$$$$$$$$$$$$$$$$$ $ $$$$$$$$$$$" 0160 PRINT TAB(47);"$*$$$$$$$$$$.*.*$$$ $$ $$$$$$***$$$$$$" 0170 PRINT TAB(46);"$*$$$$$$$$$$$..*.* **$$ ..**$$$$$$$" 0180 PRINT TAB(46);"$$$$$$$$$$$$$$.*.*. *.*$$ ..**$$$$$$$" 0190 PRINT TAB(45);"$$$$$$$$$$$$$$$$.*.* .*$$*$$ * **$$$$$$$" 0200 PRINT TAB(46);"$$$$$$$$$$$$$$$ ***.* *.$$$$$$$$*." 0210 PRINT TAB(47);"$$$$$$$$$$$$$$$*.*. $$$$$$$$$* *.$$$$ $$$$*." 0220 PRINT TAB(48);"$$$$$$$$$$$$$$.*.* $$$$$$$ .*$$$$$ $$$$*." 0230 PRINT TAB(49);"$$$$$$$$$$$$$$$*.***.*.*. *.*.$$$ $$$$$*." 0240 PRINT TAB(50);"$$$$$$$$$$$$$$$*.**----.* $$$$$$$$$$$$$$$" 0250 PRINT TAB(50);"$$$$$$$$$$$$$ $$ *** $$$ $$$ $$$$$$$$$" 0260 PRINT TAB(47);"$$$$$$$$$$$$$$$$$ $$$$$$ $$$ *$$$$$$$$$" 0270 PRINT TAB(45);"$$$$$$$$$$$$$$$$$ $$*.* $$ *$$$$$$$$$$" 0280 PRINT TAB(44);"$$$$$$$$$$$$$$$$$$ $$$*.*.*.* *** *$$$$$$$ $$" 0290 PRINT TAB(44);"$$$$$$$$$$$$$$$$$$ $$.*.*.* **$ *$$$$$$$ $$" 0300 PRINT TAB(44);"$$***** $ *.* ** $$$$$$$$ $" 0310 PRINT TAB(44);"$$$*** $$$$$ $$$$.*.** **$$$$$**$$ $" 0320 PRINT TAB(45);"******* $$ $$$$$$*.*.* $$$$$$$ $ $" 0330 PRINT TAB(45);"******** $$$ $$$$$*.*.*.*** $$$$$ $$ $" 0340 PRINT TAB(44);"********* $$$$******* * $$$$$ * $$$$$ $$ $ $$" 0350 PRINT TAB(44);"******** $$$$$$$ ********** * $$$$$$ $ $$$$$$$" 0360 PRINT TAB(43);"********* $$$ ******* ** $$$$$$ $$$$$$$$" 0370 PRINT TAB(43);"********";TAB(68);"******* ** $$$$$$ $" 0380 PRINT TAB(43);"******** *";TAB(70);"***** ***** $ $$$$$$$" 0390 PRINT TAB(42);"**********.*";TAB(70);"***** ***$$$ $ $$$$" 0400 PRINT TAB(42);"**$*******.* *";TAB(70);".**** $$$" 0410 PRINT TAB(42);"**$******.*. $$... ..** * *" 0420 PRINT TAB(42);"**$******.* *$*.. * *" 0430 PRINT TAB(42);"**$******.*. $$*$... .*... **" 0440 PRINT TAB(42);"**$*****.*.*. $*$*.*... .*... *" 0450 PRINT TAB(42);"**$*****.*.. $$*$*.*.. *.... *" 0460 PRINT TAB(42);".*$*****.*.*. *$*$*.*... *.... ." 0470 PRINT TAB(43);"*$****.*.*.. $$$*.*.*.. *... *" 0480 PRINT TAB(44);"$***.*.*.*. $$*.*.*.*. *.. ." 0490 PRINT TAB(44);"$******.*.. $$$*$*.$$.. *** *.. .*" 0500 PRINT TAB(44);"$******.*.. $$$*.****$$.. ******** *.. .*" 0510 PRINT TAB(44);"$*****.*.* $$*.*.$**$*$*****$** * .. .*" 0520 PRINT TAB(44);"$*****.*.* $$**.*$*$*$*$******** * ... .*" 0530 PRINT TAB(44);"$******.*.. $$*$*$*$*.*.*.* * **** ***" 0540 PRINT TAB(44);"$*****.*.*. $$$*$.**.*.*.*.*. ** * ***** **$" 0550 PRINT TAB(44);"$******.**. $$$$$*$*$$$$$$$$$$ * ***** **" 0560 PRINT TAB(44);"$******..*. $$$$*$*$*$*$$$$ * *****" 0570 PRINT TAB(44);"$******.*. $$$$$*$ * *" 0580 PRINT TAB(44);"$******.* $$$$*****$$$ */*" 0590 PRINT TAB(44);"$*******.* $$$* *$ / *" 0600 PRINT TAB(44);"$*******.* $$$* *$ / *" 0610 PRINT TAB(43);"$$******.*. $$$$$ *$ / *" 0620 PRINT TAB(43);"*********.* *$$$ *$ /*. *" 0630 PRINT TAB(42);"$*$*********. * * **. *" 0640 PRINT TAB(40);"***..$$*********** * $**. *" 0650 PRINT TAB(41);"***$$********.. * /**. *" 0660 PRINT TAB(39);"$***...$$********** * ****. *" 0670 PRINT TAB(38);"$***....*$$*********.";TAB(64);"*";TAB(71);"$$****." 0680 PRINT TAB(36);"$****..*.*****$$*********";TAB(65);"*";TAB(71);"$$***. *" 0690 PRINT TAB(35);"$****.*********$$$*******";TAB(66);"*";TAB(73);"$**. *" 0700 PRINT TAB(34);"$*********.******$$$********";TAB(67);"*";TAB(73);"$**." 0710 PRINT TAB(33);"$****.****.*********$$*********";TAB(68);"*";TAB(73);"$**. *" 0720 PRINT TAB(32);"$****.******.*********$$$*********";TAB(69);"***";TAB(74); "$***." 0730 PRINT TAB(31);"$*******.*.*.************$$$********";TAB(70);"*";TAB(72); "$**..*" 0740 PRINT TAB(30);"$*****.*.****************$$$$$*********";TAB(71);"*";TAB(7 2);"$***.*" 0750 PRINT TAB(30);"******.*****************$$$$$$$$$$******";TAB(71);"$***. * " 0760 PRINT TAB(29);"$******.**.*******************$$$$$$******";TAB(72);"$$* *" 0770 PRINT TAB(28);"*****.**..***********.*.*.*.*.*.$$$$$********";TAB(74);"$ *" 0780 PRINT TAB(28);"$*****.*.*.*.********..*.*.*.*.... $******";TAB(76);" **" 0790 PRINT TAB(28);"$$***.*.*.*.*.********.*.*.*.*..*. $****** *" 0800 PRINT TAB(28);"$****.*.*.*.**********.*.*.*..*.. . $***$$$ ***" 0810 PRINT TAB(28);"*****.* .*.*.***********.*.*.*..... . ***$$ ***** **" 0820 PRINT TAB(28);"*****.*.*.*.*.*************.*.*...... . $$*$$$ *** *****$$$" 0830 PRINT TAB(29);"$****.*.*.*.*.*.**.********.*.*....... . ****$$% $ **** $%" 0840 PRINT TAB(30);"$****.*.*.*.*.*.*************.**........ . $***$$% $% % $$ * *" 0850 PRINT TAB(31);"$****.*.*.*.*.*.************.*.*.*...... . . ***$$ $% $$ $$$ ..*..*.*." 0860 PRINT TAB(32);"$*..*.*.*.*.*****************..*.*......... . **$$ $$ $$ $$%%**.*......*" 0870 PRINT TAB(34);"$.**.*.*.*.*.****************.**.*......... . **$ $$% %$$% $$%.***.*. ....." 0890 PRINT TAB(35);"$.**.****.*.*****************..*.*.......... . $$ $$. $$% $$$$%$$$$.* ...*" 0900 PRINT TAB(37);"$..*.*.*.*.******************.**.*......... . $$ $$ $ $$ %%%*****..*....*" 0910 PRINT TAB(36);"****$..*.*.*.*.****************.**.*........... . %%* *$$ $$$.********..*....." 0920 PRINT TAB(35);"********$..*.*.*.********************.**.*........ . ** $% $.%******.*..*...*" # 30 doesn't look like a program record 0950 PRINT TAB(36);"$..$************$*.****************************. . . $*******.*.*.*.*.." 0960 PRINT TAB(39);"$...$**-********$*************************.**..*...... . $*******.*.*..*" 0970 PRINT TAB(43);"$..C.$..$...$..$******************************..... .. $******.*..." 0980 PRINT TAB(43);"** $..$...$.. $*******************************....... $*****.* *" 0990 PRINT TAB(43);"** $**** $******************************....... ****." 1000 PRINT TAB(42);"$** $**** $*****************************.* .** $****" 1010 PRINT TAB(42);"*** *$** $*************************** ***** **" 1020 PRINT TAB(41);"$*** *$* $$$******************* ******* *" 1030 PRINT TAB(41);"*** $**** $$$*************** *******." 1040 PRINT TAB(40);"$$** $**** $*$$************ ********." 1050 PRINT TAB(40);"*$$* *$*** $**$$.*********** *********" 1060 PRINT TAB(39);"$*$$$***$*******************************$***$.************ ********" 1070 PRINT TAB(39);"**$$$$*********************************$.***************** *******" 1080 PRINT TAB(39);"****$$$**** $***$.************** *****" 1090 PRINT TAB(38);"$*** $$$*** $***$.************* ******" 1100 PRINT TAB(38);"**** *$*** $***$.************** *****" 1110 PRINT TAB(38);"**** $***** $***$.*************** ***.." 1120 PRINT TAB(37);"$*** $**** $**$.*************** ***./" 1130 PRINT TAB(37);"**** *$*** $**$.**************** ****/" 1140 PRINT TAB(36);"$**** *$*** $**.**************** **../" 1150 PRINT TAB(36);"**** $****************************$**$.*.***************. *." 1160 PRINT TAB(36);"**** $****************************$**.*..*************... " 1170 PRINT TAB(35);"$**** *$*** $**$.**.**************. ./" 1180 PRINT TAB(35);"***** *$*** $$**.**.**************./ " 1190 PRINT TAB(35);"**** $***** $**$*.**************.... " 1200 PRINT TAB(34);"$*$** $**** $*$...*.*************.*/ " 1210 PRINT TAB(34);"**$$* *$*** $*$$.*.**************... " 1220 PRINT TAB(33);"$**$$ *$*** $*$$.*.*.**************/ " 1230 PRINT TAB(33);"***$$$ *$*** $**$$..*.*************..* *" 1240 PRINT TAB(33);"****$$ $**** $$*$$****$$.*.*.***********./** *" 1250 PRINT TAB(32);"$****$$$ $**** $$*$$*****$$..*.***********..** ***" 1260 PRINT TAB(32);"***** $$ *$*** $***$*******$$.*.*.**********..** ***" 1270 PRINT TAB(32);"***** $$$*$*** $$*$**$******$$..*..*********.*$** ***" 1280 PRINT TAB(32);"*******$***************$***$*********$$.*.*.*********.*$$* ***" 1290 PRINT TAB(31);"$******$$***************$****.********$$..*.*.*******.**$$ ****" 1300 PRINT TAB(31);"**** *$*** $***.*********$$.*.*. .******. $ $$$$" 1310 PRINT TAB(31);"**** *$*** $************$$..*.*.*.******. * ****" 1320 PRINT TAB(30);"$*** *$*** $***********$$.*.*.******** $****" 1330 PRINT TAB(30);"**** $**** $***********$$..*.*******.*.. ******" 1340 PRINT TAB(30);"**** $**** $************$$...*********.. *****" 1350 PRINT TAB(29);"$*** *$*** $*************$$..*.*****. *.. $****" 1360 PRINT TAB(29);"**** *$*** $*****.********$$ .*******. .*. *****" 1370 PRINT TAB(29);"******************************.*.******$$ *** *** ****** **$****" 1380 PRINT TAB(29);"******************************..*****$$ * * ** ..***** *******" 1390 PRINT TAB(28);"$*** $**** $******.*****$$.*.* *. .* *.. $****" 1400 PRINT TAB(28);"**** $**** $****.*.****$$ * * ******. *. .*.. ***" 1410 PRINT TAB(28);"*** *$** $*********$$$****. *******. * .... *****" 1420 PRINT TAB(28);"*** *$** $$********$$$****.*** * ***. * .* . $****" 1430 PRINT TAB(27);"$** *$$$$ $$$******$*$$$***.*.** ***. . ..*. *****" 1440 PRINT TAB(27);"*** *$$$$ $$$$$$$$ $$*****..** *** .. *.. *****" 1450 PRINT TAB(27);"*** *$** $$$$$ $$****... *. .. *.. $****" 1460 PRINT TAB(26);"$$* *$$$$ $$$$$$ $****.* **. . $$* ****" 1470 PRINT TAB(26);"$$* *$$$$ $$$$$$ $****.* **. . $$* ****" 1480 PRINT TAB(36);"$*** $$$ *****.* **.. .. ** **" 1490 PRINT TAB(36);"*$** $***.*. * . ..* $** **" 1500 PRINT TAB(36);"*$** $******* . .... *** **" 1510 PRINT TAB(35);"$*** $$****** . .... ** ***" 1520 PRINT TAB(35);"$*** $$ **** . . . $* **" 1530 PRINT TAB(35);"*$** $$$***** . ..* ** ***" 1540 PRINT TAB(35);"*$** $$****** . . * ***" 1550 PRINT TAB(34);"$*** $$***** . ...* ****" 1560 PRINT TAB(34);"$*** $$**$** . .... $ ***" 1570 PRINT TAB(34);"*$** $$.$$ * ... * *** " 1580 PRINT TAB(33);"$*** $..$.$* ** * ****" 1590 PRINT TAB(33);"$*** $$$.$$ * * . $***" 1600 PRINT TAB(33);"*$** $$ $$ $$ * * * ***" 1610 PRINT TAB(33);"*$** *$ $$ $ $ $ ***" 1620 PRINT TAB(32);"$$$$ $$ $$ $ $$$$" 1630 PRINT TAB(67);"$$ $$ $" 1640 PRINT TAB(68);"$$$" 1650 LOAD DC R"GAMEMENU"