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"