|
DataMuseum.dkPresents historical artifacts from the history of: CP/M |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CP/M Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 2048 (0x800) Types: TextFile Names: »ZIPSCRN.CMD«
└─⟦ea621760d⟧ Bits:30005267 dBase II - uoriginal diskette └─ ⟦this⟧ »ZIPSCRN.CMD«
* SCREEN.CMD ERASE @ 1, 0 SAY "********************************************************************************" @ 2, 0 SAY "* INVOICE NO. 000001 *" @ 3, 0 SAY "* *" @ 4, 0 SAY "* TO: FROM: *" @ 5, 0 SAY "* NAME" @ 5,12 SAY NAME @ 5,49 SAY "ASHTON-TATE *" @ 6, 0 SAY "* ADDRESS" @ 6,12 SAY ADDRESS @ 6,49 SAY "9929 W. JEFFERSON BLVD. *" @ 7, 0 SAY "* CITY" @ 7,12 SAY CITY @ 7,49 SAY "CULVER CITY, CA 90230 *" @ 8, 0 SAY "* STATE" @ 8,12 SAY STATE @ 8,79 SAY "*" @ 9, 0 SAY "* ZIPCODE" @ 9,12 SAY ZIPCODE @ 9,79 SAY "*" @ 10, 0 SAY "* *" @ 11, 0 SAY "*==============================================================================*" @ 12, 0 SAY "* QTY. ø DESCRIPTION ø PRICE *" @ 13, 0 SAY "*-------+------------------------------------------------------+---------------*" @ 14, 0 SAY "* 1 ø ZIP <tm> ø $$$$$.00 *" @ 15, 0 SAY "*-------+------------------------------------------------------+---------------*" @ 16, 0 SAY "* ø THE GREAT NEW SCREEN BUILDER FROM ASHTON-TATE ø *" @ 17, 0 SAY "*-------+------------------------------------------------------+---------------*" @ 18, 0 SAY "* ø TAX ø $$.00 *" @ 19, 0 SAY "*-------+------------------------------------------------------+---------------*" @ 20, 0 SAY "* ø TOTAL ø $$,$$$.00 *" @ 21, 0 SAY "********************************************************************************" @ 22,22 SAY "YOU ASKED FOR IT, YOU GOT IT." RETURN«eof»