Liren Large Software Subsidy 5/05.iso/a/a044/3.ddi/MISC/NEWCUST1.PRG

Text File | 1993-08-31 | 1.1 KB | 39 lines

set talk off
set echo off
set status off
set safety off

clear

sHeading = '* * *  N e w   C u s t o m e r   E n t r y  * * *'

sCustNo = space(8)
lWholeSale = .f.
store space(32) to sCustName, sAddress, sCity
sState = '  '
sZip = space(10)
store space(12) to sVoice, sFax
sExt = '    '

@ 0,0 to 4,77
@ 2,(77 - len(sHeading)) / 2 say sHeading

@  6, 2 say 'Cust Number  :' get sCustNo    picture '!!!!!!!!'
@  6,50 say 'Wholesale Customer:' get lWholeSale picture 'Y'
@  8, 2 say 'Customer Name:' get sCustName picture replicate('X',32)
@ 10, 2 say 'Address      :' get sAddress  picture replicate('X',32)
@ 11, 2 say 'City         :' get sCity     picture replicate('X',32)
@ 11,50 say 'State:'         get sState    picture '!!'
@ 11,60 say 'Zip:'           get sZip      picture '#####-####'
@ 13, 2 say 'Phone (Voice):' get sVoice    picture '###/###-####'
@ 13,50 say 'Ext  :'         get sExt      picture '####'
@ 14, 2 say 'Phone (Fax)  :' get sFax      picture '###/###-####'

@ 22,32 say 'Press ESC to exit'

do while readkey() <> 12
    read save
enddo

return