home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / beehive / zcat / grdemo.lbr / GRDEMO.Z80 < prev    next >
Text File  |  1991-01-30  |  19KB  |  732 lines
  1. ;program grdemo
  2. ;version 1.0
  3. ;author dennis l. wright
  4. ;echelon, inc.
  5. ;date 1-23-86
  6. ;
  7. ;assembly and link with ei zas and zlink using
  8. ; syslib, z3lib, vlib, grxlib, grwlib, and pdmlib rel libraries
  9. ;
  10. z3env    equ    0fe00h
  11. ;
  12. CR    EQU    0DH
  13. LF    EQU    0AH
  14. DIM    EQU    1
  15. BRT    EQU    2
  16. ;
  17. ;
  18. ;    external routines used by demo program
  19. ;
  20.     EXT    TINIT,GXYMSG,CLS,EREOL,CRLF,CIN,COUT,AT,VPRINT,PRINT
  21.  
  22.     EXT    DRBOX,ATW,WXYMSG,DRHBAR,DRVBAR
  23.     EXT    DRVERT,DRHORZ,GRXINIT,OPENW,CLOSEW,CLREOS
  24.     EXT    LTISEC,RTISEC,UISEC,LISEC,ISEC,DRFULL,DRHASH
  25.     EXT    ULEFT,URIGHT,LRIGHT,LLEFT,CLEARW,OPENFW
  26.     EXT    PDMINIT,SETPDM,SELPDM,CLRPDM
  27. ;
  28. ;    program to test graphics and window lib functions
  29. ;
  30.     JP    START
  31.     DB    'Z3ENV'
  32.     DB    1
  33. Z3EADR:    DW    Z3ENV
  34. ;
  35. START:    LD    HL,(Z3EADR)
  36.     CALL    GRXINIT        ; Initialize the graphic and Z3 environment
  37.     JR    NZ,START1
  38.     CALL    PRINT
  39.     DB    CR,LF,'*** Extended Z3TCAP not available ***',CR,LF,0
  40.     RET
  41. START1:    CALL    TINIT        ; Initialize users terminal
  42.     CALL    PDMINIT
  43.     JR    Z,START2
  44.     LD    A,-1        ; Pull Down Menus and Windows are supported
  45.     LD    (PDMFLG),A    ; Set Pull Down Menu Window flag
  46. START2:    LD    HL,0
  47.     ADD    HL,SP
  48.     LD    (OLDSTK),HL
  49.     LD    HL,STACK
  50.     LD    SP,HL
  51.     CALL    CLS
  52.     LD    A,(PDMFLG)
  53.     OR    A        ; Pull Down Menus supported?
  54.     JP    Z,LOGON
  55.     CALL    SETPDM        ; Yes setup GRXLIB pull down menu
  56.     DB    1,'GRAPHICS',1
  57.     DB    'GRAPHIC PRIMATIVES',2
  58.     DB    'Graphic Characters',3
  59.     DB    'LINE AND BAR DRAWING',2
  60.     DB    'Vertical Routines',3
  61.     DB    'Horizontal Routines',3
  62.     DB    'ADVANCED GRAPHICS',2
  63.     DB    'Box Routine',3
  64.     DB    'Graph Demo',3
  65.     DB    0
  66.     CALL    SETPDM        ; Setup GRWLIB pull down menu
  67.     DB    2,'WINDOWS',1
  68.     DB    'WINDOW HANDLING',2
  69.     DB    'Introduction',3
  70.     DB    'Window Demo',3
  71.     DB    0
  72.     CALL    SETPDM        ; Setup PDMLIB pull down menu
  73.     DB    3,'PULL-DOWN-MENUS',1
  74.     DB    'PULL DOWN MENU ROUTINES',2
  75.     DB    'SETPDM Routine',3
  76.     DB    'SELPDM Routine',3
  77.     DB    'CLRPDM Routine',3
  78.     DB    0
  79.            CALL    SETPDM        ; Setup a dummy pull down menu
  80.     DB    4,'DUMMY MENU 1',1
  81.     DB    'SUBHEADER 1',2
  82.     DB    'ITEM 1',3
  83.     DB    'ITEM 2',3
  84.     DB    'ITEM 3',3
  85.     DB    'SUBHEADER 2',2
  86.     DB    'ITEM 4',3
  87.     DB    'ITEM 5',3
  88.     DB    0
  89. LOGON:    CALL    GXYMSG
  90.           DB    3,1
  91.     DB    '                   GRXLIB, GRWLIB AND PDMLIB DEMO'
  92.     DB    ' PROGRAM',CR,LF
  93.     DB    CR,LF
  94.     DB    '     This  program demonstrates the use of Graphic,'
  95.     DB    '  Windowing and Pull ',CR,LF
  96.     DB    '     Down  Menu  routines  in the  GRXLIB.REL,'
  97.     DB    '  GRWLIB.REL  and  PDMLIB ',CR,LF
  98.     DB    '     libraries. GRXLIB, GRWLIB and PDMLIB use'
  99.     DB    ' the new Z-System extended ',CR,LF
  100.     DB    '     Z3TCAP information to make them terminal'
  101.     DB    ' independent. ',CR,LF,LF,0
  102.     LD    A,(PDMFLG)
  103.     OR    A
  104.     JP    NZ,PDMOK
  105.     CALL    GXYMSG
  106.     DB    17,7
  107.     DB    'Sorry your Terminal does not support Windows'
  108.      DB    ' or Pull Down Menus',0
  109.     JP    MENU        ; Can't use pull down menus
  110. ;
  111. PDMOK:    CALL    VPRINT
  112.     DB    '          Since  your terminal has the needed'
  113.     DB    ' capabilities for Pull Down ',CR,LF
  114.     DB    '     Menus  you will be able to select the demonstrations'
  115.     DB    ' you  want  to ',CR,LF
  116.     DB    '     see by using the pull down selections you'
  117.     DB    ' see on the top line.',CR,LF
  118.     DB    CR,LF
  119.     DB    '          If  you  look at the top line of your'
  120.     DB    ' screen you will  see  a ',CR,LF
  121.     DB    '     line  of  Pull  Down Menu selections the'
  122.     DB    ' left  most  selection  is ',CR,LF
  123.     DB    '     printed in hi-intensity.  To move to the'
  124.     DB    ' other selections use your ',CR,LF
  125.     DB    '     left  and  right cursor keys or Control-S'
  126.     DB    ' (move  left),  Control-D ',CR,LF
  127.     DB    '     (move right).   Once you reach the desired'
  128.     DB    ' selection press  Return ',CR,LF
  129.     DB    '     and a Pull Down Menu will appear. You can'
  130.     DB    ' escape from this menu by ',CR,LF
  131.     DB    '     pressing  the  escape  key  or  you can move'
  132.     DB    '  to  a  desired  menu ',CR,LF
  133.     DB    '     selection with the up and down cursor keys'
  134.     DB    ' or Control-R (move up), ',CR,LF
  135.     DB    '     Control-C  (move down).  Press Return when'
  136.     DB    ' at desired selection.  ',0
  137.     JP    PDMENU
  138. ;
  139. MENU:    CALL    WAIT
  140.     CALL    CLR9
  141.     CALL    GXYMSG        ; Display a conventional menu
  142.     DB    12,1
  143.     DB    '                 PLEASE SELECT ONE OF THE FOLLOWING'
  144.     DB    ' OPTIONS',CR,LF
  145.     DB    CR,LF
  146.     DB    '                1. Graphic Characters',CR,LF
  147.     DB    '                2. Vertical Routines',CR,LF
  148.     DB    '                3. Horizontal Routines',CR,LF
  149.     DB    '                4. Box Routine',CR,LF
  150.     DB    '                5. Graph Demo',CR,LF
  151.     DB    '                6. Exit Demo Program',0
  152. MENU1:    CALL    CHOICE
  153. MENU2:    LD    (OPT),A
  154.     CP    '1'
  155.     JP    Z,GCHAR
  156.     CP    '2'
  157.     JP    Z,DRV
  158.     CP    '3'
  159.     JP    Z,GRAPHIC
  160.     CP    '4'
  161.     JP    Z,DRBX
  162.     CP    '5'
  163.     JP    Z,GRAF
  164.     CP    '6'
  165.     JP    Z,DONE
  166.     JR    MENU1
  167. ;
  168. PDMENU:    LD    A,(PDMFLG)
  169.     OR    A        ; Pull down menus available?
  170.     JP    Z,MENU
  171.     CALL    PDMC
  172.     CALL    SELPDM        ; Enter Pull down Menu mode
  173.     JP    Z,DONE         ; Done if no selection made
  174.     LD    A,H        ; Else get menu number from (H) reg
  175.     CP    1        ; Menu 1?
  176.     JP    Z,DEMO2
  177.     CP    2        ; Menu 2?
  178.     JP    Z,DEMO3
  179.     CP    3        ; Menu 3?
  180.     JP    Z,DEMO4
  181.     JP    PDMENU
  182. ;
  183. DEMO2:    LD    A,L
  184.     CP    1        ; Menu item 1?
  185.     JP    Z,GCHAR
  186.     CP    2
  187.     JP    Z,DRV
  188.     CP    3
  189.     JP    Z,GRAPHIC
  190.     CP    4
  191.     JP    Z,DRBX
  192.     JP    GRAF
  193. ; 
  194. DEMO3    LD    A,L
  195.     CP    1
  196.     JP    Z,WINDOW1
  197.     JP    WINDOW2
  198. ;
  199. DEMO4:    LD    A,L
  200.     CP    1
  201.     JP    Z,SETDMO
  202.     CP    3
  203.     JP    Z,CLRDMO
  204.     CALL    CLR9
  205.     CALL    GXYMSG
  206.     DB    10,1
  207.     DB    '     PDMLIB  routine SELPDM is used to enter Pull'
  208.     DB    ' Down Menu  Mode.  The ',CR,LF
  209.     DB    '     first  Pull  Down  Selection on the menu'
  210.     DB    ' line at the  top  of  the ',CR,LF
  211.     DB    '     screen  is printed in hi-intensity and user'
  212.     DB    ' input to select a menu ',CR,LF
  213.     DB    '     or  move to another selection is awaited.'
  214.     DB    '  The following code will ',CR,LF
  215.     DB    '     now be used to enter Pull Down Menu Mode.'
  216.     DB    '  The return from  SELPDM ',CR,LF
  217.     DB    '     either contains Zero Status,  in which case'
  218.     DB    ' user exited Pull  Down ',CR,LF
  219.     DB    '     Mode  without making a selection or Non-Zero'
  220.     DB    ' Status in which  case ',CR,LF
  221.     DB    '     the  register  pair (HL) contain the Menu'
  222.     DB    ' number (H) and the  Item ',CR,LF
  223.     DB    '     number (L) selected.',CR,LF
  224.     DB    CR,LF
  225.     DB    '         CALL    SELPDM                  ; Enter'
  226.     DB    ' Pull Down Menu Mode',CR,LF
  227.     DB    '         ...',CR,LF
  228.     DB    '         < Code to interrogate the return status'
  229.     DB    ' and user selection >',0
  230.     JP    PDMENU
  231. ;
  232. CLRDMO:    CALL    CLR9
  233.     CALL    GXYMSG
  234.     DB    12,1
  235.     DB    '     PDMLIB  routine  CLRPDM  is used to clear'
  236.     DB    ' a Pull  Down  Menu.  The ',CR,LF
  237.     DB    '     following code will now be used to clear'
  238.     DB    ' DUMMY MENU 1.',CR,LF
  239.     DB    CR,LF
  240.     DB    CR,LF
  241.     DB    '        LD      A,4                     ; Menu'
  242.     DB    ' number in register (A)',CR,LF
  243.     DB    '        CALL    CLRPDM                  ; Clear'
  244.     DB    ' the menu',CR,LF
  245.     DB    0
  246.     CALL    WAIT
  247.     LD    A,4
  248.     CALL    CLRPDM
  249.     JP    PDMENU
  250. ;
  251. SETDMO:    CALL    CLR9
  252.     CALL    GXYMSG
  253.     DB    10,1
  254.     DB    '     PDMLIB routine SETPDM is used to setup a'
  255.     DB    ' Pull Down Menu.  Up to 10 ',CR,LF
  256.     DB    '     Pull  Down Menus can be present at one time'
  257.     DB    ' as long as the top  of ',CR,LF
  258.     DB    '     screen headers can all fit on the screen.'
  259.     DB    '  The following code will ',CR,LF
  260.     DB    '     now be used to setup a new menu.',CR,LF
  261.     DB    CR,LF
  262.     DB    '       CALL    SETPDM                  ; Setup the'
  263.     DB    ' following menu',CR,LF
  264.     DB    '       DB      5,''DUMMY MENU 2'',1      '
  265.     DB    '; Menu Number, Header String',cr,lf
  266.     DB    '       DB      ''SUBHEADER'',2           '
  267.     DB    '; Subheader String (optional)',cr,lf
  268.     DB    '       DB      ''ITEM 1'',3              ; Item String',cr,lf
  269.     DB    '       DB      ''ITEM 2'',3              ;  "     "',cr,lf
  270.     DB    '       DB      0                       ; End of menu',cr,lf
  271.     DB    0
  272.     CALL    WAIT
  273.     CALL    SETPDM
  274.     DB    5,'DUMMY MENU 2',1
  275.     DB    'SUBHEADER',2
  276.     DB    'ITEM 1',3
  277.     DB    'ITEM 2',3
  278.     DB    0
  279.     JP    PDMENU
  280. ;
  281. GRAPHIC:CALL    CLR9
  282.     CALL    GXYMSG
  283.     DB    12,1
  284.     DB    '     The following is a demonstration of GRXLIB'
  285.     DB    ' graphics routines.  The ',CR,LF
  286.     DB    '     following  routine will draw a horizontal'
  287.     DB    ' line starting at row 17, ',CR,LF
  288.     DB    '     column 10  The line will be 60 columns long'
  289.     DB    ' and will be drawn from ',CR,LF
  290.     DB    '     left to right.                ',CR,LF
  291.     DB    CR,LF
  292.     DB    '     CALL      DRHORZ',CR,LF
  293.     DB    '     DB        17,10,60,0     ; row,col,length,direction',0
  294.     CALL    WAIT
  295.     CALL    CLR9
  296.     CALL    GXYMSG
  297.     DB    14,16
  298.     DB    'Horizontal line created by GRXLIB routine DRHORZ',0
  299.     CALL    DRHORZ
  300.     DB    17,10,60,0    ; Row 22, Col 10, 60 columns long, rt to lt
  301.     CALL    WAIT
  302. DRHB:    CALL    CLR9
  303.     CALL    GXYMSG
  304.     DB    12,1
  305.     DB    '     Horizontal  bars  can  also be created using'
  306.     DB    '  the  GRXLIB  routine ',CR,LF
  307.     DB    '     DRHBAR.   The following  are examples of'
  308.     DB    ' the GRXLIB horizontal bar ',CR,LF
  309.     DB    '     routine:',CR,LF,LF
  310.     DB    '     CALL      DRHBAR',CR,LF
  311.     DB    '     DB        1,16,10,60,0    '
  312.     DB    '; type, row,col,length,left to right',cr,lf
  313.     DB    '     CALL      DRHBAR',CR,LF
  314.     DB    '     DB        2,18,69,60,1    '
  315.     DB    '; type, row,col,length,right to left',0
  316.     CALL    WAIT
  317.     CALL    CLR9
  318.     CALL    GXYMSG
  319.     DB    13,16
  320.     DB    'Horizontal bars created by GRXLIB routine DRHBAR',0
  321.     CALL    GXYMSG
  322.     DB    16,2
  323.     DB    'Type 1',0
  324.     CALL    DRHBAR        ; Draw dark horizontal bar
  325.     DB    1,16,10,60,0    ; Row 16, Col 10, 60 columns long, lt to rt
  326.     CALL    GXYMSG
  327.     DB    18,2
  328.     DB    'Type 2',0
  329.     CALL    DRHBAR        ; Draw light horizontal bar
  330.     DB    2,18,69,60,1    ; Row 18, Col 69, 60 columns long, rt to lt
  331.     JP    PDMENU
  332. ;
  333. DRV:    CALL    CLR9
  334.     CALL    GXYMSG
  335.     DB    12,1
  336.     DB    '     The  following  routine will draw a vertical'
  337.     DB    ' line starting at  row ',CR,LF
  338.     DB    '     16, column 38  The line will be 5 rows long'
  339.     DB    ' and will be drawn from ',CR,LF
  340.     DB    '     top to bottom.',CR,LF
  341.     DB    CR,LF
  342.     DB    '     CALL      DRVERT',CR,LF
  343.     DB    '     DB        16,38,5,0      ; row,col,length,direction',0
  344.     CALL    WAIT
  345.     CALL    CLR9
  346.     CALL    GXYMSG
  347.     DB    13,17
  348.     DB    'Vertical line created by GRXLIB routine DRVERT',0
  349.     CALL    DRVERT        ; Draw vertical line
  350.     DB    16,38,5,0    ; Row 16, Col 40, 5 rows deep, Top down
  351.     CALL    WAIT
  352. DRVB:    CALL    CLR9
  353.     CALL    GXYMSG
  354.     DB    12,1
  355.     DB    '     Vertical  bars  can  also  be  created using'
  356.     DB    '  the  GRXLIB  routine ',CR,LF
  357.     DB    '     DRVBAR as follows:',CR,LF,LF
  358.     DB    '     CALL      DRVBAR',CR,LF
  359.     DB    '     DB        1,16,25,5,0'
  360.         DB    '    ; type,row,col,height,direction',cr,lf
  361.     DB    '     CALL      DRVBAR',CR,LF
  362.     DB    '     DB        2,16,35,5,0'
  363.         DB    '    ; type,row,col,height,direction',cr,lf
  364.     DB    '     CALL      DRVBAR',CR,LF
  365.     DB    '     DB        3,16,45,5,0'
  366.         DB    '    ; type,row,col,height,direction',cr,lf
  367.     DB    '     CALL      DRVBAR',CR,LF
  368.     DB    '     DB        4,16,55,5,0'
  369.         DB    '    ; type,row,col,height,direction',0
  370.     CALL    WAIT
  371.     CALL    CLR9
  372.     CALL    GXYMSG
  373.     DB    12,17
  374.     DB    'Vertical bars created by GRXLIB routine DRVBAR',0
  375.     CALL    GXYMSG
  376.     DB    14,22
  377.     DB    'Type 1',0
  378.     CALL    GXYMSG
  379.     DB    14,32
  380.     DB    'Type 2',0
  381.     CALL    GXYMSG
  382.     DB    14,42
  383.     DB    'Type 3',0
  384.     CALL    GXYMSG
  385.     DB    14,52
  386.     DB    'Type 4',0
  387.     CALL    DRVBAR
  388.     DB    1,16,25,5,0
  389.     CALL    DRVBAR
  390.     DB    2,16,35,5,0
  391.     CALL    DRVBAR
  392.     DB    3,16,45,5,0
  393.     CALL    DRVBAR
  394.     DB    4,16,55,5,0
  395.     JP    PDMENU
  396. ;
  397. GCHAR:    CALL    CLR9
  398.     CALL    GXYMSG
  399.     DB    12,1
  400.     DB    '     GRXLIB  contains routines to draw individual'
  401.     DB    ' graphics  characters. ',CR,LF
  402.     DB    '     The  routines  LTISEC (draw left intersect),'
  403.     DB    '  RTISEC  (draw  right ',CR,LF
  404.     DB    '     intersect),  UISEC  (draw  upper  intersect),'
  405.     DB    '  LISEC  (draw  lower ',CR,LF
  406.     DB    '     intersect),  ISEC (draw intersection),  DRFULL'
  407.     DB    ' (draw full  block), ',CR,LF
  408.     DB    '     DRHASH  (draw hashed block),  and  ULEFT,'
  409.     DB    '  URIGHT,  LRIGHT,  LLEFT ',CR,LF
  410.     DB    '     (corner drawing routines) are demonstrated.',0
  411.     CALL    WAIT
  412.     CALL    CLR9
  413.     CALL    GXYMSG
  414.     DB    13,13
  415.     DB    'Individual graphics characters supported by GRXLIB',0
  416.     CALL    AT
  417.     DB    16,18
  418.     CALL    ULEFT        ; Draw upper left corner
  419.     CALL    AT
  420.     DB    16,38
  421.     CALL    UISEC        ; Draw upper intersect
  422.     CALL    AT
  423.     DB    16,58
  424.     CALL    URIGHT        ; Draw upper right corner
  425.     CALL    AT
  426.     DB    18,18
  427.     CALL    LTISEC        ; Draw left intersect
  428.     CALL    AT
  429.     DB    18,38
  430.     CALL    ISEC        ; Draw intersection
  431.     CALL    AT
  432.     DB    18,58
  433.     CALL    RTISEC        ; Draw right intersect
  434.     CALL    AT
  435.     DB    20,18
  436.     CALL    LLEFT        ; Draw lower left corner
  437.     CALL    AT
  438.     DB    20,38
  439.     CALL    LISEC        ; Draw lower intersect
  440.     CALL    AT
  441.     DB    20,58
  442.     CALL    LRIGHT        ; Draw lower right corner
  443.     CALL    AT
  444.     DB    18,28
  445.     CALL    DRFULL        ; Draw full block
  446.     CALL    AT
  447.     DB    18,48
  448.     CALL    DRHASH        ; Draw hashed block
  449.     JP    PDMENU
  450. ;
  451. DRBX:    CALL    CLR9
  452.     CALL    GXYMSG
  453.     DB    12,1
  454.     DB    '     The  following  is an example of the GRXLIB'
  455.     DB    '  DRBOX  routine.  this ',CR,LF
  456.     DB    '     example  will  draw a box starting at row'
  457.     DB    ' 16,  column 10  The  box ',CR,LF
  458.     DB    '     will be 5 rows high and 20 columns wide.',CR,LF
  459.     DB    CR,LF
  460.     DB    '     CALL      DRBOX',CR,LF
  461.     DB    '     DB        16,10,5,20     ; row,col,height,width',0
  462.     CALL    WAIT
  463.     CALL    CLR9
  464.     CALL    GXYMSG
  465.     DB    13,3
  466.     DB    'Box drawn with GRXLIB routine DRBOX',0
  467.     CALL    DRBOX        ; Draw a box
  468.     DB    16,10,5,20    ; Row 16, col 10, 5 X 20
  469.     JP    PDMENU
  470. ;
  471. GRAF:    CALL    CLR9
  472.          CALL    GXYMSG
  473.     DB    12,1
  474.     DB    '     The  next  demonstration  will show how by'
  475.     DB    '  combining  the  GRXLIB ',CR,LF
  476.     DB    '     routines DRBOX, and DRVBAR a bar graph'
  477.     DB    ' chart can be created.',0
  478.     CALL    WAIT
  479.     CALL    CLR9
  480.     CALL    DRBOX        ; Draw a box
  481.     DB    11,10,11,60    ; Row 12, col 10, 11 X 60
  482.     CALL    GXYMSG
  483.     DB    12,3        ; Vertical descriptors
  484.     DB    '100% - ',0
  485.     CALL    GXYMSG
  486.     DB    16,4
  487.     DB    '50% - ',0
  488.     CALL    GXYMSG
  489.     DB    20,5
  490.     DB    '0% _ ',0
  491.     CALL    GXYMSG
  492.     DB    22,18        ; Horizontal descriptors
  493.     DB    '1976',0
  494.     CALL    GXYMSG
  495.     DB    22,26
  496.     DB    '1977',0
  497.     CALL    GXYMSG
  498.     DB    22,34
  499.     DB    '1978',0
  500.     CALL    GXYMSG
  501.     DB    22,42
  502.     DB    '1979',0
  503.     CALL    GXYMSG
  504.     DB    22,50
  505.     DB    '1980',0
  506.     CALL    GXYMSG
  507.     DB    22,58
  508.     DB    '1981',0
  509.     CALL    DRVBAR        ; Draw dark vertical bar
  510.     DB    2,20,18,5,1    ; Row 19, col 18, 5 rows deep, bottom up
  511.     CALL    DRVBAR        ; Draw light vertical bar
  512.     DB    4,20,20,3,1    ; Row 19, col 20, 3 rows deep, bottom up
  513.     CALL    DRVBAR        ; Draw dark vertical bar
  514.     DB    2,20,26,6,1    ; Row 19, col 26, 6 rows deep, bottom up
  515.     CALL    DRVBAR        ; Draw light vertical bar
  516.     DB    4,20,28,4,1    ; Row 19, col 28, 4 rows deep, bottom up
  517.     CALL    DRVBAR
  518.     DB    2,20,34,7,1
  519.     CALL    DRVBAR
  520.     DB    4,20,36,6,1
  521.     CALL    DRVBAR
  522.     DB    2,20,42,8,1
  523.     CALL    DRVBAR
  524.     DB    4,20,44,8,1
  525.     CALL    DRVBAR
  526.     DB    2,20,50,8,1
  527.     CALL    DRVBAR
  528.     DB    4,20,52,9,1
  529.     CALL    DRVBAR
  530.     DB    2,20,58,7,1
  531.     CALL    DRVBAR
  532.     DB    4,20,60,9,1
  533.     JP    PDMENU
  534. ;
  535. WINDOW1:CALL    CLR9
  536.     CALL    GXYMSG
  537.     DB    12,1
  538.     DB    '                   INTRODUCTION TO GRWLIB WINDOW'
  539.     DB    ' ROUTINES',CR,LF
  540.     DB    CR,LF
  541.     DB    '     GRWLIB  contains routines to create and maintain'
  542.     DB    ' up to 16 separate ',CR,LF
  543.     DB    '     on screen windows.  GRWLIB supports two types'
  544.     DB    ' of  windows,  framed ',CR,LF
  545.     DB    '     windows  (those  which  are  surrounded by'
  546.     DB    '  a  bold  boarder)  and ',CR,LF
  547.     DB    '     standard  windows  (those  which are surrounded'
  548.     DB    ' by a  thin  line). ',CR,LF
  549.     DB    '     Routines are provided to create (OPENW, '
  550.     DB    ' OPENFW),  clear (CLEARW), ',CR,LF
  551.     DB    '     position cursor and print in (ATW,  WXYMSG),'
  552.     DB    '  interrogate (GETCUR, ',CR,LF
  553.     DB    '     GETLEV), and close (CLOSEW), windows.',0
  554.     JP    PDMENU
  555. ;
  556. WINDOW2:CALL    CLR9
  557.          CALL    GXYMSG
  558.     DB    12,1
  559.     DB    '     The  following demonstrations will demonstrate'
  560.     DB    ' the use of some  of ',CR,LF
  561.     DB    '     the  routines  in  the  GRWLIB  window  library.'
  562.     DB    '  GRWLIB  contains ',CR,LF
  563.     DB    '     routines  to  create and maintain up to 16'
  564.     DB    '  separate  windows  the ',CR,LF
  565.     DB    '     following  routine  will open window number'
  566.     DB    ' 1 starting at  row  2, ',CR,LF
  567.     DB    '     column  33  The window will be framed 15'
  568.     DB    ' rows high and 42  columns ',CR,LF
  569.     DB    '     wide.',CR,LF
  570.     DB    CR,LF
  571.     DB    '     LD     DE,SAVBUF        ; Address of buffer'
  572.     DB    ' to save current screen',CR,LF
  573.     DB    '     CALL   OPENFW           ; Open a framed window',cr,lf
  574.     DB    '     DB     1,2,33,15,42     '
  575.     DB    '; window number,row,col,height,width',0
  576.     CALL    WAIT
  577.     LD    DE,SBUFF1
  578.     CALL    OPENFW
  579.          DB    1,2,33,15,42
  580.     LD    A,1
  581.     CALL    CLEARW
  582.      CALL    WXYMSG
  583.     DB    1,2,5
  584.      DB    'THIS IS A GRWLIB FRAMED WINDOW',0
  585.     CALL    WXYMSG
  586.     DB    1,4,2
  587.     DB    'Data was printed in this window  using',0
  588.     CALL    WXYMSG
  589.     DB    1,5,2
  590.     DB    'calls to  GRWLIB  routines  CLEARW and',0
  591.     CALL    WXYMSG
  592.     DB    1,6,2
  593.     DB    'WXYMSG as follows:',0
  594.     CALL    WXYMSG
  595.     DB    1,8,4
  596.     DB    'LD     A,WINDOW  ; Window # in (A)',0
  597.     CALL    WXYMSG
  598.     DB    1,9,4
  599.     DB    'CALL   CLEARW    ; Clear the window',0
  600.     CALL    WXYMSG
  601.     DB    1,10,4
  602.     DB    'CALL   WXYMSG    ; Send the message',0
  603.     CALL    WXYMSG
  604.     DB    1,11,4
  605.     DB    'DB     WINDOW,ROW,COL',0
  606.     CALL    WXYMSG
  607.     DB    1,12,4
  608.     DB    'DB     ''MESSAGE'',0',0
  609.     CALL    WAIT
  610.     LD    DE,SBUFF2
  611.     CALL    OPENW
  612.     DB    2,9,14,10,36
  613.     LD    A,2
  614.     CALL    CLEARW
  615.     CALL    WXYMSG
  616.     DB    2,2,2
  617.     DB    'THIS IS A GRWLIB STANDARD WINDOW',0
  618.     CALL    WXYMSG
  619.     DB    2,4,2
  620.     DB    'This window was created with the',0
  621.     CALL    WXYMSG
  622.     DB    2,5,2
  623.     DB    'GRWLIB routine OPENW.',0
  624.     CALL    WXYMSG
  625.     DB    2,7,2
  626.     DB    'As  can be seen  windows can  be',0
  627.     CALL    WXYMSG
  628.     DB    2,8,2
  629.     DB    'overlayed.',0
  630.     CALL    WAIT
  631.         LD    DE,SBUFF3
  632.     CALL    OPENFW
  633.     DB    3,4,3,11,56
  634.     LD    A,3
  635.     CALL    CLEARW
  636.     CALL    WXYMSG
  637.     DB    3,2,4
  638.     DB    DIM,'To insure that the ',BRT,'original screen',DIM
  639.     DB    ' is properly',0
  640.     CALL    WXYMSG
  641.     DB    3,3,4
  642.     DB    'restored, windows should be closed in the reverse',0
  643.     CALL    WXYMSG
  644.     DB    3,4,4
  645.     DB    'order from which they were opened. The GRXLIB',0
  646.     CALL    WXYMSG
  647.     DB    3,5,4
  648.     DB    'routine ',BRT,'CLOSEW',DIM,' is used as follows:',BRT,0
  649.     CALL    WXYMSG
  650.     DB    3,7,4
  651.     DB    '    LD     A,WINDOW NUMBER',0
  652.     CALL    WXYMSG
  653.     DB    3,8,4
  654.     DB    '    CALL   CLOSEW',0
  655.     CALL    WAIT1
  656.     LD    A,3
  657.     CALL    CLOSEW
  658.     CALL    WAIT2
  659.     LD    A,2
  660.     CALL    CLOSEW
  661.     CALL    WAIT3
  662.     LD    A,1
  663.     CALL    CLOSEW
  664.     JP    PDMENU
  665. ;
  666. DONE:    CALL    CLR9
  667.     XOR    A        ; Clear all pull down menus
  668.     CALL    CLRPDM
  669.     CALL    GXYMSG
  670.     DB    17,12
  671.     DB      ' This concludes the GRXLIB/GRWLIB/PDMLIB demonstration. ',0
  672.     CALL    AT
  673.     DB    23,1
  674.     LD    HL,(OLDSTK)
  675.     LD    SP,HL
  676.     RET
  677. ;
  678. CHOICE:    CALL    GXYMSG
  679.     DB    24,1
  680.     DB    DIM,'     Enter your choice: ',BRT,0
  681.     JP    WCIN
  682. ;
  683. PDMC:    CALL    GXYMSG
  684.     DB    24,1
  685.     DB    DIM,'     Select Pull Down Menu or Press <ESC> '
  686.         DB      'to quit: ',BRT,0
  687.     RET
  688. ;
  689. WAIT:    CALL    GXYMSG
  690.     DB    24,1
  691.     DB    DIM,'     Press any key to continue: ',BRT,0
  692.     JP    WCIN
  693. ;
  694. WAIT1:    CALL    GXYMSG
  695.     DB    24,1
  696.     DB    DIM,'     Press any key to close window 3: ',BRT,0
  697.     JP    WCIN
  698. ;
  699. WAIT2:    CALL    GXYMSG
  700.     DB    24,1
  701.     DB    DIM,'     Press any key to close window 2: ',BRT,0
  702.     JP    WCIN
  703. ;
  704. WAIT3:    CALL    GXYMSG
  705.     DB    24,1
  706.     DB    DIM,'     Press any key to close window 1: ',BRT,0
  707. ;
  708. WCIN:    CALL    CIN
  709.     PUSH    AF
  710.     LD    A,CR
  711.     CALL    COUT
  712.     CALL    EREOL
  713.     POP    AF
  714.     RET
  715. ;
  716. CLR9:    CALL    AT
  717.     DB    9,1
  718.     CALL    CLREOS
  719.     RET
  720. ;
  721. PDMFLG:    DB    0
  722. OPT:    DB    0
  723. SBUFF1:    DS    2000
  724. SBUFF2:    DS    2000
  725. SBUFF3:    DS    2000
  726. OLDSTK:    DW    0
  727.     DS    128
  728. STACK    EQU    $
  729. ;
  730. ;    end test program
  731. ;
  732.