;*; Updated on 22-May-91 at 12:09 PM by John Paiement; edit time: 0:00:27
;
; Draw the calculator window and text on screen
;

DRAWSC:
       CLS
       SCROFF

       DRWBOX  2,27.,<08>
       DRWBOX  2,54.,<(4>

       HORZLN  4,27.,24.
       HORZLN  4,54.,20.
       HORZLN  11.,27.,24.
       HORZLN  13.,27.,24.
       HORZLN  15.,27.,24.
       HORZLN  17.,27.,18.

       PRTTAB  12.,31.
       TYPE            <7     8     9 >
       EVEN
       PRTTAB  14.,31.
       TYPE            <4     5     6 >
       EVEN
       PRTTAB  16.,31.
       TYPE            <1     2     3 >
       EVEN
       PRTTAB  17.,49.
       TYPE            <=>
       EVEN
       PRTTAB  18.,34.
       TYPE            <0        .>
       EVEN

       GRFCHR  12.,34.,47.                     ; Vertical line characters
       GRFCHR  12.,40.,47.
       GRFCHR  12.,46.,47.
       GRFCHR  14.,34.,47.
       GRFCHR  14.,40.,47.
       GRFCHR  14.,46.,47.
       GRFCHR  16.,34.,47.
       GRFCHR  16.,40.,47.
       GRFCHR  16.,46.,47.
       GRFCHR  18.,40.,47.
       GRFCHR  18.,46.,47.

       GRFCHR  11.,34.,42.                     ; Top intersections
       GRFCHR  11.,40.,42.
       GRFCHR  11.,46.,42.
       GRFCHR  13.,34.,48.                     ; Intersections
       GRFCHR  13.,40.,48.
       GRFCHR  13.,46.,48.
       GRFCHR  15.,34.,48.
       GRFCHR  15.,40.,48.
       GRFCHR  15.,46.,48.
       GRFCHR  17.,34.,45.
       GRFCHR  17.,40.,48.
       GRFCHR  19.,40.,45.                     ; Bottom intersections
       GRFCHR  19.,46.,45.

       PRTTAB  3,30.
       TYPE            <Func (    ) Base (   )>
       EVEN
       PRTTAB  3,62.
       TYPE            <Memory>
       EVEN

       PRTTAB  5,3
       TYPE            <  +  Add>
       EVEN
       PRTTAB  5,30.
       TYPE            <Dec>
       EVEN
       PRTTAB  5,34.                           ; To prevent screen flash
       PRTTAB  -1,33.                          ; Set the reverse end characters

       PRTTAB  6,3
       TYPE            <  -  Subt>
       EVEN
       PRTTAB  6,30.
       TYPE            <Hex>
       EVEN
       PRTTAB  6,34.
       PRTTAB  -1,33.

       PRTTAB  7,3
       TYPE            <  *  Mult>
       EVEN
       PRTTAB  7,30.
       TYPE            <Oct>
       EVEN
       PRTTAB  7,34.
       PRTTAB  -1,33.

       PRTTAB  8.,5
       MOVB            #47.,D1
       TTY
       PRTTAB  8.,8.
       TYPE            <Div>
       EVEN
       PRTTAB  8.,30.
       TYPE            <Rad  [   ]>
       EVEN
       PRTTAB  8.,34.
       PRTTAB  -1,33.

       PRTTAB  9.,30.
       TYPE            <Bin>
       EVEN
       PRTTAB  9.,34.
       PRTTAB  -1,33.

       PRTTAB  10.,3
       TYPE            < ^A  And>
       EVEN
       PRTTAB  10.,30.
       TYPE            <Ppn  [   ,   ]>
       EVEN
       PRTTAB  10.,34.
       PRTTAB  -1,33.
       PRTTAB  10.,57.
       TYPE            <[>
       PRTTAB  11.,3
       TYPE            < ^O  Or>
       EVEN

       PRTTAB  12.,3
       TYPE            < ^N  Not>
       EVEN

       PRTTAB  13.,3
       TYPE            < ^X  Xor>
       EVEN

       PRTTAB  14.,58.
       TYPE            <^P +   memory add>
       EVEN

       PRTTAB  15.,3
       TYPE            < ^Y  Clear Display>
       EVEN

       PRTTAB  15.,58.
       TYPE            <^P -   memory minus>
       EVEN

       PRTTAB  16.,3
       TYPE            < ^T  Clear Memory>
       EVEN
       PRTTAB  16.,58.
       TYPE            <^P CR  memory recall>
       EVEN

       PRTTAB  17.,58.
       TYPE            <^P =   memory in>
       EVEN

       PRTTAB  18.,3
       TYPE            <TAB  Change Base>

       PRTTAB  19.,3
       TYPE            <ESC or ^C   Exit>

       SCRON
       RTN

END

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.