ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng)/ProfitPress-MegaCDROM2.B6I/PROG/PASCAL/UISTRIP.ZIP/MAILLIST.PRG

Text File | 1991-08-06 | 1.3 KB | 50 lines

***
*** MAILLIST.PRG : entry screen program, with dbf & memvar init code
*** Generated August 6, 1991
***


* initialization
SELECT 1
USE MAILLIST ALIAS MAILLIST



* display text
SET COLOR TO W/N
CLEAR
@ 01,28 SAY "╔════════════════════╗"
@ 02,01 SAY "UI Strip demo UI screen    ║Personal Information║             UIStrip - V01.00"
@ 03,00 SAY "┌───────────────────────────╨────────────────────╨─────────────────────────────┐"
@ 04,00 SAY "│ Last name"+space(40)+"Birthday                    │"
@ 05,00 SAY "│ First name"+space(67)+"│"
@ 06,00 SAY "└──────────────────────────────────────────────────────────────────────────────┘"
@ 08,32 SAY "╔═════════╗"
@ 09,32 SAY "║ Kids    ║"
@ 10,32 SAY "╚═════════╝"
@ 12,16 SAY "This is the salary information ---->"
@ 15,00 SAY "╔═════════════════════════════╡Related text file╞══════════════════════════════╗"
@ 16,00 SAY "║"+space(78)+"║"
@ 17,00 SAY "║"+space(78)+"║"
@ 18,00 SAY "║"+space(78)+"║"
@ 19,00 SAY "║"+space(78)+"║"
@ 20,00 SAY "║"+space(78)+"║"
@ 21,00 SAY "║"+space(78)+"║"
@ 22,00 SAY "║"+space(78)+"║"
@ 23,00 SAY "╚══════════════════════════════════════════════════════════════════════════════╝"




* input
SET COLOR TO W/N, N/W

@ 04,19 GET LNAME
@ 04,60 GET BIRTHDAY
@ 05,19 GET FNAME
@ 09,39 GET KIDS
@ 12,53 GET SALARY

READ