home *** CD-ROM | disk | FTP | other *** search
- *SAMSCR1-Name & number table SCREEN OVERLAY. REFER TO PUBLIC DOMAIN NOTICE
- *DATE OF LAST UPDATE 05/10/83 DATED 5/20/83 BY DOUGLAS G. COUSE
- *REVISION NUMBER 001.00 PROGRAM # SAM001 OR SAM002 OR SAMMENU
-
- *NOTE----any comment labelled (*P-) is a procedural section numbering reference
- *that should be used in flowcharting and other program documentation.
-
- *P-001-{START}. Initial screen literal display.
- *and execution procedure
- SET INTENSITY OFF
- @ 1,13 SAY "**************************************"
- @ 2,13 SAY "** NAME & NUMBER TABLE "+PROGRAM+" **"
- @ 3,13 SAY "**************************************"
- @ 4, 0 SAY "---------------------------------------------------------------------"
- @ 5, 0 SAY "|Number Name |Number Name |Number Name |Number Name |"
- @ 6, 0 SAY "---------------------------------------------------------------------"
- @ 7, 0 SAY "| - | - | - | - |"
- @ 8, 0 SAY "| - | - | - | - |"
- @ 9, 0 SAY "| - | - | - | - |"
- @ 10, 0 SAY "| - | - | - | - |"
- @ 11, 0 SAY "| - | - | - | - |"
- @ 12, 0 SAY "| - | - | - | - |"
- @ 13, 0 SAY "| - | - | - | - |"
- @ 14, 0 SAY "| - | - | - | - |"
- @ 15, 0 SAY "| - | - | - | - |"
- @ 16, 0 SAY "| - | - | - | - |"
- @ 17, 0 SAY "| - | - | - | - |"
- @ 18, 0 SAY "| - | - | - | - |"
- @ 19, 0 SAY "| - | - | - | - |"
- @ 20, 0 SAY "| - | - | - | - |"
- @ 21, 0 SAY "| - | - | - | - |"
- @ 22, 0 SAY "---------------------------------------------------------------------"
- SET INTENSITY ON
- RETURN
- *P-001-{END}
-