image of READY prompt

Wang2200.org

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"