Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : DBE.ZIP
Filename : TEST.PRG

**** Screen Generation from db3ScreenGen by David W. Terry
*
Clear
@ 1, 0 say [ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿]
@ 2, 0 say [³ Test Input Screen ³]
@ 3, 0 say [³ ³]
@ 4, 0 say [³ ³]
@ 5, 0 say [ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´]
@ 6, 0 say [³ ³]
@ 7, 0 say [³ Record Number: ³]
@ 8, 0 say [³ ³]
@ 9, 0 say [³ ³]
@ 10, 0 say [³ ³]
@ 11, 0 say [³ Enter the following Information: ³]
@ 12, 0 say [³ ³]
@ 13, 0 say [³ Full Name: ³]
@ 14, 0 say [³ Street Address: ³]
@ 15, 0 say [³ City: State: Zip: ³]
@ 16, 0 say [³ ³]
@ 17, 0 say [ÆÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͵]
@ 18, 0 say [³ ³]
@ 19, 0 say [³ - Above, Date(), Time(), and Recno() are dBase III system variables that ³]
@ 20, 0 say [³ are output only. ³]
@ 21, 0 say [³ - MainHeading is a user variable, but here they will be printed only. ³]
@ 22, 0 say [³ - Name, Address, City, State and ZipCode are all field names in a database ³]
@ 23, 0 say [³ and are marked for input (dBase III also shows the current value if any). ³]
@ 24, 0 say [ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ]
@ 4, 2 say Date()
@ 4,34 say MainHeading
@ 4,70 say Time()
@ 7,21 say Recno()
@ 13,22 get Name
@ 14,22 get Address
@ 15,22 get City
@ 15,47 get State
@ 15,61 get ZipCode
Read