DataMuseum.dk

Presents historical artifacts from the history of:

Christian Rovsing CR7, CR8 & CR16 CP/M

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Christian Rovsing CR7, CR8 & CR16 CP/M

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download

⟦d45e3aa8b⟧ TextFile

    Length: 2560 (0xa00)
    Types: TextFile
    Names: »ZIPTEST.CMD«

Derivation

└─⟦ea621760d⟧ Bits:30005267 dBase II - uoriginal diskette
    └─ ⟦this⟧ »ZIPTEST.CMD«

TextFile

***************************************************************
* 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
«eof»