home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HomeWare 14
/
HOMEWARE14.bin
/
prog
/
atedit.arj
/
SAMPLE.PRG
< prev
Wrap
Text File
|
1993-06-07
|
954b
|
41 lines
//.............................................................................
//
// Program Name: SAMPLE.PRG Copyright: Asta Engineering, Inc.
// Date Created: 06/02/93 Language: Clipper 5.0
// Time Created: 15:20:52 Author: John C. Burkhard
//
//.............................................................................
// sample program to demonstrate @...Edit
#include "atedit.ch"
function main( )
local cFld1, cFld2, cFld3
local GetList := { }
cFld1 := space(240)
cFld2 := space(240)
cFld3 := space(1)
clear screen
@ 0,0 to 5,61
@ 0,1 say " Field 1 "
@ 1,1 to 4, 60 edit cFld1
@ 7,0 to 14,41
@ 7,1 say " Field 2 "
@ 8,1 to 13,40 edit cFld2
@ 16,0 say "Field 3:" get cFld3 picture "@S40" scroll
read
return nil