home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / dos / grafik / unicorn / ver4 / demoibm.c < prev    next >
Encoding:
Text File  |  1987-05-17  |  19.1 KB  |  844 lines
  1. /*                      Demo4.c
  2. *
  3. *    This program is designed to illustate some of the features contained
  4. *  in the UC4 library.  It uses the 4 color medium resolution mode of the
  5. *  IBM PC and compatibles.  A second version of the library is available
  6. *  to be used with the 16 color medium resolution mode (mode 9) on the
  7. *  Tandy 1000 computer.
  8. */
  9.  
  10. int i;
  11.  
  12. main()
  13. {
  14.  
  15.    int start = 9;
  16.  
  17.    sm(4);
  18.    backclr(1);
  19.  
  20.    gothic('U',10,start+0,3);
  21.    gothic('n',10,start+25,3);
  22.    gothic('i',10,start+45,3);
  23.    gothic('c',10,start+60,3);
  24.    gothic('o',10,start+80,3);
  25.    gothic('r',10,start+100,3);
  26.    gothic('n',10,start+120,3);
  27.  
  28.    gothic('S',10,start+150,3);
  29.    gothic('o',10,start+170,3);
  30.    gothic('f',10,start+190,3);
  31.    gothic('t',10,start+205,3);
  32.    gothic('w',10,start+220,3);
  33.    gothic('a',10,start+240,3);
  34.    gothic('r',10,start+260,3);
  35.    gothic('e',10,start+280,3);
  36.  
  37.    raschar('P', 50, start + 70, 2, 2, 3);
  38.    raschar('r', 50, start + 90, 2, 2, 3);
  39.    raschar('e', 50, start + 110, 2, 2, 3);
  40.    raschar('s', 50, start + 130, 2, 2, 3);
  41.    raschar('e', 50, start + 150, 2, 2, 3);
  42.    raschar('n', 50, start + 170, 2, 2, 3);
  43.    raschar('t', 50, start + 190, 2, 2, 3);
  44.    raschar('s', 50, start + 210, 2, 2, 3);
  45.    victory();
  46.    unicorn();
  47.    greenslv();
  48.    atsay(24, 3, 2, 0,"Copyright (c) 1986 David A. Miller");
  49.    cntue();
  50.    waitkey();
  51.    sm(4);       /* this resets the mode which in effect is a
  52.                    clear screen command.                      */
  53.    backclr(9);
  54.  
  55.    printf("\n\n\n  A demonstration of IBM PC graphics\n");
  56.    printf(" using the 4 color med. resolution mode\n");
  57.    printf(" and the unicorn library of functions.\n");
  58.    printf(" This library is designed to work with \n");
  59.    printf(" the Microsoft C small model. It has\n");
  60.    printf(" been written using Microsoft C 4.0 \n");
  61.    printf(" and the Microsoft Assembler 4.0.\n");
  62.    printf("    Not all library functions are\n");
  63.    printf(" illustrated in this demo.  The\n");
  64.    printf(" library is capable of many graphics\n");
  65.    printf(" concepts including points, lines,\n");
  66.    printf(" circles, ellipses (these may be \n");
  67.    printf(" rotated from the vertical or\n");
  68.    printf(" horizontal and colorful print\n");
  69.    printf(" including different fonts.  We\n");
  70.    printf(" hope you enjoy the Unicorn library!\n\n");
  71.    printf(" Version 4.0 pre-release for Microsoft\n");
  72.    printf(" C small model.\n");
  73.    printf("  Copyright (C) 1986 David A. Miller\n");
  74.    atsay(23,8,2,0,"Press any key to continue");
  75.    waitkey();
  76.    sm(4);       /* this resets the mode which in effect is a
  77.                    clear screen command.                      */
  78.    backclr(14);
  79.  
  80.  
  81.  
  82.    pg1();
  83.    waitkey();
  84.    sm(4);
  85.    backclr(1);
  86.  
  87.  
  88.  
  89.    pg2();
  90.    cntue();
  91.    waitkey();
  92.    sm(4);
  93.    backclr(1);
  94.  
  95.    pg3();
  96.    cntue();
  97.    waitkey();
  98.    sm(4);
  99.    backclr(9);
  100.  
  101.    atom();
  102.    cntue();
  103.    waitkey();
  104.    sm(4);
  105.    backclr(1);
  106.  
  107.    printf("   The next screen will demonstrate\n\n");
  108.    printf("    T U R T L E  F U N C T I O N S");
  109.  
  110.    burble(100, 300); 
  111.  
  112.    printf("\n\n\n\n\n   The delay function is used to");
  113.    printf("\n   slow down the display of lines\n");
  114.    cntue();
  115.    waitkey();
  116.    palette(0,5,8);
  117.  
  118.    pg5();
  119.    cntue();
  120.    waitkey();
  121.    sm(4);
  122.    backclr(1);
  123.  
  124.    script('P', 5, 100, 3);
  125.    script('a', 5, 116, 3);
  126.    script('l', 5, 132, 3);
  127.    script('e', 5, 148, 3);
  128.    script('t', 5, 164, 3);
  129.    script('t', 5, 180, 3);
  130.    script('e', 5, 196, 3);
  131.  
  132.    redalert();
  133.  
  134.    printf("\n\n\n\nThe following page illustrates\n");
  135.    printf("the palette command.  This command\n");
  136.    printf("allows the programmer to control the\n");
  137.    printf("color set and background color with\n");
  138.    printf("one command.  There are a total of 6\n");
  139.    printf("sets of three colors that may be \n");
  140.    printf("displayed.  Three of these are normal;\n");
  141.    printf("while the other three are bright\n");
  142.    printf("versions of the basic three.\n");
  143.    printf("\n\n     Press any key to continue\n");
  144.    waitkey();
  145.  
  146.    pg6();
  147.    cntue();
  148.    waitkey();
  149.    sm(4);
  150.    backclr(9);
  151.  
  152.  
  153.    pg7();
  154.    cntue();
  155.    waitkey();
  156.    sm(4);
  157.    backclr(9);
  158.  
  159.  
  160.    pg8();
  161.    atsay(24,7,3,0, "Press any key to continue");
  162.    waitkey();
  163.    sm(4);
  164.    backclr(9);
  165.  
  166.    pgf();
  167.    greenslv();
  168.    waitkey();
  169.    sm(3);
  170.    backclr(1);
  171.  
  172. }  /*  End of main program */
  173.  
  174.  
  175.  
  176. pg1()
  177. {
  178.    burble(200,300);
  179.  
  180.    atsay(10,5,2,0, "The next page will demonstrate");
  181.    atsay(11,5,2,0, "some of the simple graphics");
  182.    atsay(12,5,2,0, "primitives including dots,");
  183.    atsay(13,5,2,0, "lines, filled boxes and");
  184.    atsay(14,5,2,0, "rectangles. ");
  185.    atsay(20,5,3,0, "Press any key to continue");
  186. }
  187.  
  188. pg2()
  189. {
  190.    int i;
  191.  
  192.    for(i=0; i <= 20; i++)
  193.       point(20, 10+i*2, i % 4);
  194.    box(50,20,80,50,1);
  195.    boxfill(54,24,76,46,2);
  196.    box1(50,80,80,110,2,1);
  197.    box2(50,140,80,170,3,1);
  198.    circle(65,240,50,1,1,3);
  199.    paint(65,240,2,3);
  200.    line(120,20,190,300,1);
  201.    line(190,20,120,300,2);
  202.    line(155,20,155,300,3);
  203. }
  204.  
  205. pg3()
  206. {
  207.    atsay(7,5,3,0, "The following screen will further");
  208.    atsay(8,5,3,0, "demonstrate the circle function");
  209.    atsay(9,5,3,0, "and introduce the rotated ellipse");
  210.    atsay(10,5,3,0, "function.  The latter allows the");
  211.    atsay(11,5,3,0, "user to draw an ellipse with a");
  212.    atsay(12,5,3,0, "specified aspect and angle of");
  213.    atsay(13,5,3,0, "rotation.");
  214. }
  215.  
  216. pg5()
  217. {
  218.  
  219.    turnright(150);     /*  Double Triangle  */
  220.  
  221.    pencolor(1);
  222.  
  223.    forward(50);
  224.  
  225.    delay(500);
  226.    turnright(120);
  227.    forward(50);
  228.    delay(500);
  229.    turnright(120);
  230.    forward(100);
  231.    delay(500);
  232.    turnleft(120);
  233.    forward(50);
  234.    delay(500);
  235.    turnleft(120);
  236.    forward(50);
  237.  
  238.    turnright(180);
  239.    forward(50);
  240.  
  241.    pencolor(0);
  242.    
  243.    forward(50);
  244.    turnright(120);
  245.    pencolor(2);
  246.    delay(500);
  247.    forward(100);
  248.    turnright(60);
  249.    delay(500);
  250.    forward(100);
  251.    turnright(60);
  252.    delay(500);
  253.    forward(100);
  254.    turnright(60);
  255.    delay(500);
  256.    forward(100);
  257.    turnright(60);
  258.    delay(500);
  259.    forward(100);
  260.    turnright(60);
  261.    delay(500);
  262.    forward(97);
  263.  
  264.    turnright(72);
  265.    forward(5);
  266.    pencolor(0);
  267.    forward(48);
  268.    turnright(96);
  269.  
  270.    turnleft(72);
  271.    pencolor(3);
  272.    forward(90);
  273.    turnright(72);
  274.    forward(90);
  275.    turnright(72);
  276.    forward(90);
  277.    turnright(72);
  278.    forward(90);
  279.    turnright(73);
  280.    forward(90);
  281.    pencolor(0);
  282.  
  283.    paint(90,160,3,1);
  284.    paint(110,160,3,1);
  285.  
  286.    burble(300,400);
  287.  
  288.    paint(40,160,2,3);
  289.    paint(182,160,1,2);
  290.  
  291.  }
  292.  
  293.  
  294.  
  295.  
  296. pg6()
  297. {
  298.    palette(2,4,0);
  299.    house();
  300.  
  301.    palette(0,5,0);
  302.    house();
  303.  
  304.    palette(0,4,0);
  305.    palette(0,4,0);
  306.    house();
  307.  
  308. }
  309.  
  310. house()
  311. {
  312.    for(i=0;i<=120;i++)
  313.       point(rand() / 165,rand() / 103, rand() / 8192);
  314.  
  315.    line(180,0,180,319,1);        /* grass line */
  316.    paint(183,10,1,1);            /*   grass */
  317.    line(150,50,120,110,1);
  318.    line(120,110,152,160,1);
  319.  
  320.    line(140,70,180,70,1);
  321.    line(140,140,180,140,1);
  322.    line(180,70,180,140,1);
  323.  
  324.    line(160,80,180,80,1);
  325.    line(160,95,180,95,1);
  326.    line(160,80,160,95,1);
  327.  
  328.  
  329.    line(150,110,170,110,1);       /* Window */
  330.    line(150,120,170,120,1);
  331.    line(150,130,170,130,1);
  332.    line(150,110,150,130,1);
  333.    line(160,110,160,130,1);
  334.    line(170,110,170,130,1);
  335.    paint(155,115,2,1);             /* color the widow panes */
  336.    paint(155,125,2,1);
  337.    paint(165,115,2,1);
  338.    paint(165,125,2,1);
  339.    paint(130,110,3,1);            /* color the house  */
  340.  
  341.    line(130,100,130,120,2);       /* lines in the house */
  342.    line(161,75,161,79,2);
  343.    line(155,86,155,97,2);
  344.    line(165,100,165,107,2);
  345.    line(161,72,161,78,2);
  346.    line(142,70,142,93,2);
  347.    line(147,100,147,116,2);
  348.  
  349.    paint(170,90,2,1);             /*  color the door   */
  350.    circle(170,90,2,1,1,1);        /*    knob           */
  351.    paint(170,90,2,1);             /*   fill it         */
  352.    line(114,124,128,124,2);       /*   chimney         */
  353.    line(114,136,136,136,2);
  354.    line(114,124,114,136,2);
  355.    line(128,124,136,136,2);
  356.    paint(120,130,2,2);            /*  fill chimney       */
  357.    line(116,125,116,135,3);       /*  horizontal bricks  */
  358.    line(118,125,118,135,3);
  359.    line(120,125,120,135,3);
  360.    line(122,125,122,135,3);
  361.    line(124,125,124,135,3);
  362.    line(126,125,126,135,3);
  363.    line(128,125,128,135,3);
  364.    line(130,128,130,135,3);
  365.    line(132,132,132,135,3);
  366.    line(134,134,134,135,3);
  367.  
  368.    line(116,130,118,130,3);       /*  vertical bricks */
  369.    line(118,133,120,133,3);
  370.    line(118,127,120,127,3);
  371.    line(120,130,122,130,3);
  372.    line(122,127,124,127,3);
  373.    line(122,133,124,133,3);
  374.    line(124,130,126,130,3);
  375.    line(126,127,128,127,3);
  376.    line(126,133,128,133,3);
  377.  
  378.    line(128,130,130,130,3);
  379.    line(130,133,132,133,3);
  380.  
  381.    line(132,130,134,130,3);
  382.  
  383.    boxfill(140,190,180,210,3);      /*  Tree Trunk   */
  384.    line(168,190,172,188,3);
  385.    line(172,188,180,177,3);
  386.    line(168,210,172,212,3);
  387.    line(172,212,180,223,3);
  388.    line(180,177,180,223,3);         /*  base line of tree  */
  389.    paint(178,185,3,3);              /*  paint the tree     */
  390.    paint(178,215,3,3);
  391.  
  392.    line(174,190,178,183,2);        /*   root lines in tree */
  393.    line(172,210,178,213,2);
  394.    line(174,198,178,190,2);
  395.    line(176,203,178,207,2);
  396.    circle(150,190,3,3,1,3);
  397.    paint(150,189,3,3);
  398.    circle(160,210,3,1,3,3);
  399.    paint(160,211,3,3);
  400.    point(168,205,2);
  401.    point(171,203,2);
  402.    point(168,193,2);
  403.    point(172,195,2);
  404.  
  405.    circle(135,216,10,1,2,1);
  406.    paint(135,216,1,1);
  407.    circle(105,180,9,1,1,1);
  408.    paint(105,180,1,1);
  409.    circle(128,180,9,1,3,1);
  410.    paint(128,180,1,1);
  411.    circle(125,228,5,1,2,1);
  412.    paint(125,228,1,1);
  413.    circle(94,200,10,1,3,1);
  414.    paint(94,200,1,1);
  415.  
  416.    circle(117,200,30,3,5,1);
  417.    paint(116,200,1,1);
  418.    line(110,190,117,200,3);
  419.    line(120,180,128,197,3);
  420.    line(115,200,125,180,3);
  421.  
  422.    circle(74,100,10,1,1,2);       /*   cloud  */
  423.    paint(74,100,2,2);
  424.    circle(62,130,12,1,2,2);
  425.    paint(62,130,2,2);
  426.    circle(72,70,9,1,2,2);
  427.    paint(72,70,2,2);
  428.    circle(32,58,8,1,2,2);
  429.    paint(32,58,2,2);
  430.    circle(20,68,22,1,2,2);
  431.    paint(20,68,2,2);
  432.    circle(35,130,12,1,2,2);
  433.    paint(35,130,2,2);
  434.    circle(21,95,10,1,2,2);
  435.    paint(21,95,2,2);
  436.    circle(33,125,7,1,2,2);
  437.    paint(33,125,2,2);
  438.  
  439.    circle(50,100,41,3,7,2);            /*   cloud  */
  440.    paint(50,100,2,2);               /*  fill it */
  441.  
  442.  
  443.    line(150,194,167,194,1);
  444.    line(142,197,153,197,1);
  445.    line(165,195,174,195,1);
  446.    line(147,200,153,200,1);
  447.    line(150,205,164,205,1);
  448.    line(153,201,164,201,1);
  449.    line(163,202,172,202,1);
  450.  
  451.  
  452.    circle(50,270,15,1,1,3);      /*  moon */
  453.    paint(50,270,03,03);            /*  fill it  */
  454.    point(52,273,1);
  455.    point(43,260,1);
  456.    point(52,262,1);
  457.    point(53,262,1);
  458.    point(52,261,1);
  459.    point(53,273,1);
  460.    point(40,270,1);
  461.    point(60,268,1);
  462.    point(45,281,1);
  463.    point(45,282,1);
  464.    point(44,281,1);
  465.    point(44,272,0);
  466.    point(43,272,0);
  467.    point(43,271,0);
  468.    point(47,265,0);
  469.    point(46,265,0);
  470.    point(46,264,0);
  471.    point(53,275,0);
  472.    point(54,276,0);
  473.  
  474.    delay(3000);
  475. }
  476.  
  477.  
  478. pg7()
  479. {
  480.  
  481.    hollow('F',15,100,3);
  482.    hollow('O',15,124,3);
  483.    hollow('N',15,148,3);
  484.    hollow('T',15,172,3);
  485.    hollow('S',15,196,3);
  486.  
  487.    gliss(100,1000,300);
  488.  
  489.    atsay(6,2,2,0,"Many different Fonts are Possible");
  490.  
  491.    usrfont('T',80,60,2,2,3,0);
  492.    usrfont('H',80,80,2,2,3,0);
  493.    usrfont('I',80,100,2,2,3,0);
  494.    usrfont('N',80,120,2,2,3,0);
  495.    usrfont('L',88,140,1,1,3,0);
  496.    usrfont('E',88,150,1,1,3,0);
  497.    usrfont('T',88,160,1,1,3,0);
  498.    usrfont('T',88,170,1,1,3,0);
  499.    usrfont('E',88,180,1,1,3,0);
  500.    usrfont('R',88,190,1,1,3,0);
  501.    usrfont('S',88,200,1,1,3,0);
  502.  
  503.    usrfont('S',135,146,1,1,3,1);
  504.    usrfont('U',135,152,1,1,3,1);
  505.    usrfont('B',135,158,1,1,3,1);
  506.    usrfont('/',130,164,1,1,3,0);
  507.    usrfont('S',127,174,1,1,3,1);
  508.    usrfont('U',127,180,1,1,3,1);
  509.    usrfont('P',127,186,1,1,3,1);
  510.    usrfont('E',127,192,1,1,3,1);
  511.    usrfont('R',127,198,1,1,3,1);
  512.    usrfont('S',130,209,1,1,2,0);
  513.    usrfont('C',130,219,1,1,2,0);
  514.    usrfont('R',130,229,1,1,2,0);
  515.    usrfont('I',130,239,1,1,2,0);
  516.    usrfont('P',130,249,1,1,2,0);
  517.    usrfont('T',130,259,1,1,2,0);
  518.    usrfont('S',130,269,1,1,2,0);
  519.  
  520.    
  521.  
  522.    usrfont('X',175,65,3,3,1,0);
  523.    usrfont('2',175,97,2,2,1,1);
  524.    usrfont('+',175,105,3,3,1,0);
  525.    usrfont('X',175,134,3,3,1,0);
  526.    usrfont('-',175,160,3,3,1,0);
  527.    usrfont('4',175,185,3,3,1,0);
  528.    usrfont('=',175,210,3,3,1,0);
  529.    usrfont('0',175,230,3,3,1,0);
  530.  
  531. }
  532.  
  533.  
  534. pg8()
  535. {
  536.    printf("\n   There are many functions available\n");
  537.    printf(" in the Unicorn Library.  Included are\n");
  538.    printf(" mouse, joystick and printer controls,\n");
  539.    printf(" and many more graphics functions. This\n");
  540.    printf(" is a preliminary release of version\n");
  541.    printf(" 4.0 of the library.  The actual \n");
  542.    printf(" version 4.0 will be released by \n");
  543.    printf(" July of 1987.  This is the small\n");
  544.    printf(" model Microsoft C version.  Several\n");
  545.    printf(" other versions will be available. It\n");
  546.    printf(" is anticipated that Lattice & Turbo C\n");
  547.    printf(" versions will be available by July\n");
  548.    printf(" and a Turbo Pascal version will be\n");
  549.    printf(" made available this summer also.\n");
  550.    printf("\n   Those who register their library\n");
  551.    printf(" prior to actual release will recieve\n");
  552.    printf(" the updated version, with all source\n");
  553.    printf(" for the version of their choice.\n");
  554. }
  555.  
  556. pgf()
  557. {
  558.    int start = 9;
  559.  
  560.   
  561.    gothic('U',10,start+0,3);
  562.    gothic('n',10,start+25,3);
  563.    gothic('i',10,start+45,3);
  564.    gothic('c',10,start+65,3);
  565.    gothic('o',10,start+85,3);
  566.    gothic('r',10,start+105,3);
  567.    gothic('n',10,start+125,3);
  568.  
  569.    gothic('S',10,start+155,3);
  570.    gothic('o',10,start+175,3);
  571.    gothic('f',10,start+195,3);
  572.    gothic('t',10,start+215,3);
  573.    gothic('w',10,start+235,3);
  574.    gothic('a',10,start+255,3);
  575.    gothic('r',10,start+275,3);
  576.    gothic('e',10,start+295,3);
  577.  
  578.    atsay(7,5,3,0, "We Hope you have enjoyed seeing");
  579.    atsay(8,5,3,0, "some of the features contained");
  580.    atsay(9,5,3,0, "in the Unicorn library for the");
  581.    atsay(10,5,3,0, "IBM PC medium resolution mode");
  582.    atsay(11,5,3,0, "graphics.");
  583.    atsay(14,5,2,0, "       Developed by");
  584.    atsay(15,5,2,0, "      David A. Miller");
  585.  
  586.    gliss(3000, 200, 100);
  587.  
  588.    atsay(24,4,2,0, " Press any key to return to Dos");
  589. }
  590.  
  591.  
  592.  
  593.  
  594. atom()
  595. {
  596.   ellipser(100,160,0,50,25,2);
  597.   ellipser(100,160,0,25,50,2);
  598.   ellipser(100,160,48,50,25,1);
  599.   ellipser(100,160,48,25,50,1);
  600.                
  601.   circle(100,160,70,1,1,1);
  602.   circle(100,160,66,1,1,1);
  603.   paint(100,228,2,1);
  604.   circle(100,160,4,1,1,3);
  605.   paint(100,160,3,3);
  606. }
  607.  
  608.  
  609. cntue()
  610. {
  611.    atsay(15,1,2,0, "Press any");
  612.    atsay(16,2,2,0, "Key to");
  613.    atsay(17,1,2,0, "continue");
  614. }
  615.  
  616. unicorn()
  617. {
  618.    line(66,100,107,156, 3);      /*   horn  */
  619.    line(66,100,113,148, 3);
  620.  
  621.  
  622.    line(157,170,158,154, 3);
  623.    line(158,154,172,138, 3);
  624.    line(172,138,173,125, 3);
  625.    line(173,125,166,115, 3);
  626.    line(166,115,151,117, 3);
  627.    line(151,117,130,138, 3);
  628.    line(130,138,120,140, 3);
  629.    line(120,140,98,168, 3);     /* this line ends at the ear  */
  630.    line(98,168,85,165,  3);
  631.    line(85,165,89,172, 3);
  632.    line(89,172,97,180, 3);
  633.    line(97,180,121,224, 3);     /* outline after ear      */
  634.    line(121,224,156,255, 3);
  635.    line(156,255,198,266, 3);    /*  very bottom line  */
  636.  
  637.    line(157,170,170,180, 3);     /* part to left going down  */
  638.    line(170,180,198,180, 3);     /* very bottom line */
  639.  
  640.    line(198,180,198,266,3);      /*   line across base of head  */
  641.    paint(188,182,3,3);           /*   fill in the head!!  */
  642.    paint(111,148, 3,3);        /*   fill in the horn    */
  643.    line(148,185,157,170, 2);      /* head starting at bottom  */
  644.  
  645.    line(152,130,140,142, 2);     /* in head near mouth    */
  646.    line(140,142,133,156, 2);
  647.  
  648.    line(103,167,123,173,2);     /* between ear and eye   */
  649.  
  650.    line(173,125,160,138,2);       /*  mouth   */
  651.  
  652.    line(167,145,181,151,3);       /*  goatee   */
  653.    line(181,151,175,141,3);
  654.    line(175,141,183,139,3);
  655.    line(183,139,173,133,3);
  656.    paint(172,141,3,3);             /*  color the goatee  */
  657.  
  658.    line(102,149,107,142, 2);       /* lines across the horn   */
  659.    line(97,140, 100,135, 2);
  660.    line(91,134,94,130, 2);
  661.    line(86,127,88,122, 2);
  662.    line(81,121,83,119, 2);
  663.    line(76,113,77,111, 2);
  664.  
  665.    line(98,180,140,182,2);        /*  mane     */
  666.    line(106,160,118,168,2);
  667.    line(140,182,149,198,2);
  668.    line(130,205,170,208,2);
  669.    line(170,208,180,220,2);
  670.    line(154,232,190,235,2);
  671.    line(190,235,194,245,2);
  672.  
  673.    ellipser(122,158,42,7,3,2);
  674.    paint(122,158,2,2);
  675.    ellipser(156,123,72,4,2,2);
  676.    paint(156,123,2,2);
  677.  
  678.    circle(123,157,2,1,1,1);
  679.    paint(123,157,1,1);
  680.    point(123,157,3);
  681. }
  682.  
  683. greenslv()
  684. {
  685.    playibm(6,3,400);
  686.  
  687. /* 1 */
  688.    playibm(9,3,800);
  689.    playibm(11,3,400);
  690.  
  691. /* 2 */
  692.    playibm(1,4,500);
  693.    playibm(3,4,300);
  694.    playibm(1,4,400);
  695.  
  696. /* 3 */
  697.    playibm(11,3,800);
  698.    playibm(8,3,400);
  699.  
  700. /* 4 */
  701.    playibm(4,3,500);
  702.    playibm(6,3,300);
  703.    playibm(8,3,400);
  704.  
  705. /* 5 */
  706.    playibm(9,3,800);
  707.    playibm(6,3,400);
  708.  
  709. /* 6 */
  710.    playibm(6,3,500);
  711.    playibm(5,3,300);
  712.    playibm(6,3,400);
  713.  
  714. /* 7 */
  715.    playibm(8,3,800);
  716.    playibm(5,3,400);
  717.  
  718. /* 8 */
  719.    playibm(1,3,800);
  720.    playibm(6,3,400);
  721.  
  722. /* 9 */
  723.    playibm(9,3,800);
  724.    playibm(11,3,400);
  725.  
  726. /* 10 */
  727.    playibm(1,4,500);
  728.    playibm(3,4,300);
  729.    playibm(1,4,400);
  730.  
  731. /* 11 */
  732.    playibm(11,3,800);
  733.    playibm(8,3,400);
  734.  
  735. /* 12 */
  736.    playibm(4,3,500);
  737.    playibm(6,3,300);
  738.    playibm(8,3,400);
  739.  
  740. /* 13 */
  741.    playibm(9,3,500);
  742.    playibm(8,3,300);
  743.    playibm(6,3,400);
  744.  
  745. /* 14 */
  746.    playibm(5,3,400);
  747.    playibm(3,3,400);
  748.    playibm(5,3,400);
  749.  
  750. /* 15 */
  751.    playibm(6,3,1200);
  752.    playibm(1,1,1);
  753. /* 16 */
  754.    playibm(6,3,1200);
  755.  
  756. /* 17 */
  757.    playibm(4,4,800);
  758.    playibm(1,1,1);
  759.  
  760. /* 18 */
  761.    playibm(4,4,400);
  762.    playibm(3,4,400);
  763.    playibm(1,4,400);
  764.  
  765. /* 19 */
  766.    playibm(11,3,800);
  767.    playibm(8,3,400);
  768.  
  769. /* 20 */
  770.    playibm(4,3,500);
  771.    playibm(6,3,300);
  772.    playibm(8,3,400);
  773.  
  774. /* 21 */
  775.    playibm(9,3,800);
  776.    playibm(6,3,400);
  777.  
  778. /* 22 */
  779.    playibm(6,3,400);
  780.    playibm(5,3,400);
  781.    playibm(6,3,400);
  782.  
  783. /* 23 */
  784.    playibm(8,3,800);
  785.    playibm(5,3,400);
  786.  
  787. /* 24 */
  788.    playibm(1,3,1600);
  789.    playibm(1,1,1);
  790.  
  791. /* 25 */
  792.    playibm(4,4,1600);
  793.    playibm(1,1,1);
  794.  
  795. /* 26 */
  796.    playibm(4,4,400);
  797.    playibm(3,4,400);
  798.    playibm(1,4,400);
  799.  
  800. /* 27 */
  801.    playibm(11,3,800);
  802.    playibm(8,3,400);
  803.    playibm(1,1,1);
  804.  
  805. /* 28 */
  806.    playibm(4,3,500);
  807.    playibm(6,3,300);
  808.    playibm(8,3,400);
  809.  
  810. /* 29 */
  811.    playibm(9,3,500);
  812.    playibm(8,3,300);
  813.    playibm(6,3,400);
  814.  
  815. /* 30 */
  816.    playibm(5,3,400);
  817.    playibm(3,3,400);
  818.    playibm(5,3,400);
  819.  
  820. /* 31 */
  821.    playibm(6,3,1600);
  822.    playibm(1,1,1);
  823.  
  824. /* 32 */
  825.    playibm(6,3,1200);
  826. }
  827.  
  828. victory()
  829. {
  830.   playibm(7,3,320);
  831.   playibm(1,4,320);
  832.   playibm(4,4,320);
  833.   playibm(7,4,480);
  834.   playibm(7,4,160);
  835.   playibm(7,4,320);
  836.   playibm(4,4,480);
  837.   playibm(4,4,160);
  838.   playibm(4,4,320);
  839.   playibm(12,3,320);
  840.   playibm(4,4,320);
  841.   playibm(12,3,320);
  842.   playibm(7,3,960);
  843. }
  844.