***************************************************************
* THIS COMMAND FILE WAS CREATED BY THE NEW SCREEN BUILDER ZIP *
***************************************************************
SET TALK OFF
* THIS SECTION DIMENSIONS THE MEMORY VARIABLES NEEDED TO DO ENTRY *
STORE "                              " TO NAME,ADDRESS
STORE "                    " TO CITY
STORE "          " TO STATE,ZIPCODE
* DISPLAY THE FIRST SCREEN *
ERASE
@  1, 0 SAY "+------------------------------------------------------------------------------+"
@  2, 0 SAY "|                                                                              |"
@  3, 0 SAY "|                      WELCOME TO THE WORLD OF ZIP <tm>                        |"
@  4, 0 SAY "|                      ================================                        |"
@  5, 0 SAY "|                                                                              |"
@  6, 0 SAY "|                                                                              |"
@  7, 0 SAY "|         THIS IS THE NEW SCREEN BUILDER YOU HAVE BEEN WAITING FOR             |"
@ 8, 0 SAY "|        FROM ASHTON-TATE.  THIS WILL ALLOW THE EVEN THE HARDEST OF            |"
@  9, 0 SAY "|                    SCREENS TO BE DESIGNED IN MINUTES.                        |"
@ 10, 0 SAY "|                                                                              |"
@ 11, 0 SAY "|         LET US DO A TEST TO SHOW YOU THE POWER OF ZIP.                       |"
@ 12, 0 SAY "|                                                                              |"
@ 13, 0 SAY "+------------------------------------------------------------------------------+"
@ 14, 0 SAY "|                                                                              |"
@ 15, 0 SAY "|  ENTER YOUR:                                                                 |"
@ 16, 0 SAY "|  ===========                                                                 |"
@ 17, 0 SAY "|        NAME"
@ 17,14 GET NAME
@ 17,79 SAY "|"
@ 18, 0 SAY "|     ADDRESS"
@ 18,14 GET ADDRESS
@ 18,79 SAY "|"
@ 19, 0 SAY "|       CITY"
@ 19,14 GET CITY
@ 19,79 SAY "|"
@ 20, 0 SAY "|       STATE"
@ 20,14 GET STATE
@ 20,79 SAY "|"
@ 21, 0 SAY "|     ZIPCODE"
@ 21,14 GET ZIPCODE
@ 21,79 SAY "|"
@ 22, 0 SAY "+------------------------------------------------------------------------------+"
READ
* THIS IS HOW DBASE CALLS ANOTHER PROGRAM  DO (PROGRAM NAME) *
DO ZIPSCRN