home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 10 Tools
/
10-Tools.zip
/
pds.zip
/
PDSRGSTR.PNL
< prev
next >
Wrap
Text File
|
1994-06-19
|
18KB
|
430 lines
)PANEL NAME=PANEL000 CLS=Y
)END )NOWAIT )NODISPLAY FLDS="<F1=Help Alt-F3=Quit Alt-F4=Save/Exit ESC=Reset Alt-S=Save Alt-C=Clear>"
)PANEL NAME=PANEL001 CLS=N AID=(ZF1,ZENTER,ZF4_A,Z_S_A)
)VARS sGlobal.iBSFctr sGlobal.iRXFctr sGlobal.iHLFctr
)XID ZESC ZF3_A Z_C_A
Rick W. Hodgson
1635 Village Glen Dr.
Raleigh, NC 27612
CIS: 76540,3137
Registration Form for the HSS Panel Display System V1.05:
Name ..........: _sName +
Address .......: _sAddr1 +
: _sAddr2 +
: _sAddr3 +
City ..........: _sCity +
State .........: _sState +
Country .......: _sCountry +
Zip/Postal Code: _sZip +
EMail ID ......: _sEMail +
Component Count Total
PDS Base system ...: _iBS+ X $%* +%iTBS +
PDS REXX API ......: _iRX+ X $%* +%iTRX +
PDS HLL API .......: _iHL+ X $%* +%iTHL +
Total ...: %iTotal +
In order to get a better idea of how to distribute shareware, I would
appreciate knowing the how you acquired this package. I.E. Compuserve,
Internet, OS/2 User's Group, etc..
Acquired via ..: _sHowAcquired +
)PROC
/* The following defines the possible return codes */
Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN'
/* The following defines the additional AID keys */
Call rxPDZVarDefine 'ZENTER', 'ZF1'
/* Test for the "F1" key */
if ZKey = ZF1 then
do
Call rxPDZVarDefine 'ZF4_A'
svid = rxPDSaveScreen(ZBid)
akey = ZENTER
sHelpTitle = CENTER('PDS Registration Help',66)
do while akey = ZENTER
sOverVu = '_'
sFKeys = '_'
sFields = '_'
akey = rxPDDisplay(zBID,'PUPHLP01')
end /* do while akey = ZENTER */
rc = rxPDRestoreScreen(ZBid,svid)
if akey = ZF4_A then return akey
return ZVERIFYPROC_RC_NORETURN
end
/* May be Enter or the KPAD_ENTER */
if ZKey = ZENTER | ZKey = ZENTER_KPAD then
do
return ZENTER
end
/* Must be one of the other AID keys */
return ZKEY
)END
)PANEL NAME=PANELXSYSTEM CLS=N
)COLORS INPUT=GREENHI OUTPUT=YELLOWHI TEXT=WHITEHI
HSS/PDS
)END )NOWAIT FLDS=" X SYSTEM "
)PANEL NAME=PUPDELETEERR XID=(ZESC)
)COLORS TEXT=REDHI
)ROW 22 08 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 23 08 FLDS="║ Unable to delete PDS file %sFlSpec +║"
)ROW 24 08 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC>"
)PANEL NAME=PUPOPENERR XID=(ZESC)
)COLORS TEXT=REDHI
)ROW 22 08 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 23 08 FLDS="║ Unable to open PDS file %sFlSpec +║"
)ROW 24 08 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC>"
)PANEL NAME=PUPWRITEERR XID=(ZESC)
)COLORS TEXT=REDHI
)ROW 22 08 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 23 08 FLDS="║ Error writing PDS file %sFlSpec +║"
)ROW 24 08 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC>"
)PANEL NAME=PUPHLP01 XID=(ZESC,ZF3,ZF4_A) AID=(ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)VARS sOverVu sFKeys sFields
)ROW 14 06 FLDS="╔═══════════════════════════════════════════════════════════════════╗"
)ROW 15 06 FLDS="║ %sHelpTitle +║"
)ROW 16 06 FLDS="║ Select one or more of the following topics: ║"
)ROW 17 06 FLDS="║ _+Overview of the PDS Registration Script. ║"
)ROW 18 06 FLDS="║ _+Function Keys and Command Keys. ║"
)ROW 19 06 FLDS="║ _+Description of the Registration fields. ║"
)ROW 20 06 FLDS="║ ║"
)ROW 21 06 FLDS="╚═══════════════════════════════════════════════════════════════════╝"
)PROC
Call rxPDZVarDefine 'ZENTER', 'ZESC', 'ZF4_A', 'ZF3'
/* The following defines the possible return codes */
Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN'
if 0 = rxPDQueryMDT(ZBid,ZPName) then
do
select
when ZFName = 'sOverVu' then
do
sOverVu = 'S'
end
when ZFName = 'sFKeys' then
do
sFKeys = 'S'
end
when ZFName = 'sFields' then
do
sFields = 'S'
end
otherwise
do
return ZVERIFYPROC_RC_NORETURN
end
end /* End of select */
end
svid = rxPDSaveScreen(ZBid)
if sOverVu <> '_' then
do
sHelpTitle = CENTER('Overview of the PDS Registration Script.',60)
akey = ZENTER
iOV = 1
iOVMax = 1
do while akey = ZENTER & iOV <= iOVMax
akey = rxPDDisplay(zBID,'PUPOVRVU'iOV)
iOV=iOV+1
end /* do while akey = ZENTER */
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sOverVu'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sOverVu'
end
if sFKeys <> '_' then
do
sHelpTitle = CENTER('Function keys and Command keys.',60)
akey = ZENTER
iFK = 1
iFKMax = 1
do while akey = ZENTER & iFK <= iFKMax
sF1 = 'F1'
sF3A = 'Alt_F3'
sF4A = 'Alt_F4'
sENTER = 'ENTER'
sSAVE = 'Alt_S'
sCLEAR = 'Alt_C'
sESC = 'ESC'
akey = rxPDDisplay(zBID,'PUPFKEYS'iFK)
iFK=iFK+1
end /* do while akey = ZENTER */
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sOverVu'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sFKeys'
end
if sFields <> '_' then
do
sHelpTitle = CENTER('PDS Registration Fields.',60)
akey = ZENTER
do while akey = ZENTER
sNameAddr = '_'
sEMail = '_'
sOrdAmts = '_'
sAcqrd = '_'
sMonies = '_'
akey = rxPDDisplay(zBID,'PUPFLDS01')
end /* do while akey = ZENTER */
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sOverVu'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sFields'
end
rc = rxPDRestoreScreen(ZBid,svid)
if akey = ZESC then akey = ZENTER
return akey
)END )BLANK FLDS="<Press ESC to end, F3 to quit or ENTER to select topic>"
)PANEL NAME=PUPOVRVU1 XID=(ZESC,ZF3,ZF4_A) AID=(ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 16 11 FLDS="╔════════════════════════════════════════════════════════════╗"
)ROW 17 11 FLDS="║ %sHelpTitle +║"
)ROW 18 11 FLDS="║ ║"
)ROW 19 11 FLDS="║ The PDSRGSTR.CMD file is a REXX script that can be used ║"
)ROW 20 11 FLDS="║ to generate the PDSRGSTR.TXT registration file. ║"
)ROW 21 11 FLDS="║ ║"
)ROW 22 11 FLDS="║ The PDSRGSTR.TXT file can be EMailed or printed and ║"
)ROW 23 11 FLDS="║ snail mailed in order to register the 'PDS' product. ║"
)ROW 24 11 FLDS="║ ║"
)ROW 25 11 FLDS="╚════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end, F3 to quit or ENTER to see more>"
)PANEL NAME=PUPFKEYS1 XID=(ZESC,ZF3,ZF4_A) AID=(ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)VARS sF1 sF3A sF4A sENTER sSAVE sCLEAR sESC
)ROW 16 11 FLDS="╔════════════════════════════════════════════════════════════╗"
)ROW 17 11 FLDS="║ %sHelpTitle +║"
)COLORS OUTPUT=REDHI
)ROW 18 11 FLDS="║ %* +- Display PDSRGSTR help. ║"
)ROW 19 11 FLDS="║ %* +- Exit without saving the registration form. ║"
)ROW 20 11 FLDS="║ %* +- Exit and save the registration form. ║"
)ROW 21 11 FLDS="║ %* +- Compute the registration totals. ║"
)ROW 22 11 FLDS="║ %* +- Save the PDSRGSTR.TXT file. ║"
)ROW 23 11 FLDS="║ %* +- Clear all of the fields. ║"
)ROW 24 11 FLDS="║ %* +- Reset the fields to their original values. ║"
)ROW 25 11 FLDS="╚════════════════════════════════════════════════════════════╝"
)COLORS TEXT=RED
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPFLDS01 XID=(ZESC,ZF3,ZF4_A) AID=(ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)VARS sNameAddr sEMail sOrdAmts sAcqrd sMonies
)ROW 16 11 FLDS="╔════════════════════════════════════════════════════════════╗"
)ROW 17 11 FLDS="║ %sHelpTitle +║"
)ROW 18 11 FLDS="║ Select one or more of the following topics: ║"
)ROW 19 11 FLDS="║ _+Name, Address, City, State, Country, Zip/Postal code. ║"
)ROW 20 11 FLDS="║ _+EMail ID. ║"
)ROW 21 11 FLDS="║ _+Order Amounts. ║"
)ROW 22 11 FLDS="║ _+How PDS was acquired. ║"
)ROW 23 11 FLDS="║ _+How to pay for PDS. ║"
)ROW 24 11 FLDS="║ ║"
)ROW 25 11 FLDS="╚════════════════════════════════════════════════════════════╝"
)PROC
Call rxPDZVarDefine 'ZENTER', 'ZESC', 'ZF4_A', 'ZF3'
/* The following defines the possible return codes */
Call rxPDZVarDefine 'ZVERIFYPROC_RC_NORETURN'
if 0 = rxPDQueryMDT(ZBid,ZPName) then
do
select
when ZFName = 'sNameAddr' then
do
sNameAddr = 'S'
end
when ZFName = 'sEMail' then
do
sEMail = 'S'
end
when ZFName = 'sOrdAmts' then
do
sOrdAmts = 'S'
end
when ZFName = 'sAcqrd' then
do
sAcqrd = 'S'
end
when ZFName = 'sMonies' then
do
sMonies = 'S'
end
otherwise
do
return ZVERIFYPROC_RC_NORETURN
end
end /* End of select */
end
svid = rxPDSaveScreen(ZBid)
if sNameAddr <> '_' then
do
sHelpTitle=CENTER('Name, Address, City, State, Contry, Zip/Postal code',60)
akey = rxPDDisplay(zBID,'PUPNAMEADDR01')
Call rxPDSetCursorFld ZBid, ZPName, 'sNameAddr'
if akey = ZF3 | akey = ZF4_A then
do
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
end
if sEMail <> '_' then
do
sHelpTitle=CENTER('EMail ID',60)
akey = rxPDDisplay(zBID,'PUPEMAIL01')
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sNameAddr'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sEMail'
end
if sOrdAmts <> '_' then
do
sHelpTitle=CENTER('Order Amounts',60)
akey = rxPDDisplay(zBID,'PUPORDAMTS01')
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sNameAddr'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sOrdAmts'
end
if sAcqrd <> '_' then
do
sHelpTitle=CENTER('How PDS was acquired',60)
akey = rxPDDisplay(zBID,'PUPACQRD01')
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sNameAddr'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sAcqrd'
end
if sMonies <> '_' then
do
sHelpTitle=CENTER('How to pay for PDS',60)
akey = rxPDDisplay(zBID,'PUPMONIES01')
if akey = ZF3 | akey = ZF4_A then
do
Call rxPDSetCursorFld ZBid, ZPName, 'sNameAddr'
rc = rxPDRestoreScreen(ZBid,svid)
return akey
end
Call rxPDSetCursorFld ZBid, ZPName, 'sMonies'
end
rc = rxPDRestoreScreen(ZBid,svid)
if akey = ZESC then akey = ZENTER
return akey
)END )BLANK FLDS="<Press ESC to end, F3 to quit or ENTER to select topic>"
)PANEL NAME=PUPNAMEADDR01 XID=(ZESC,ZF4_A,ZF3,ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 18 16 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 19 16 FLDS="║ %sHelpTitle +║"
)ROW 20 16 FLDS="║ Please enter your name and address as necessary in order ║"
)ROW 21 16 FLDS="║ to be able to receive any mailings which might need to be ║"
)ROW 22 16 FLDS="║ sent to you. For addresses outside of the USA, use these ║"
)ROW 23 16 FLDS="║ fields as are appropriate. Nothing will be mailed to you ║"
)ROW 24 16 FLDS="║ upon receipt of the registration for the product is ║"
)ROW 25 16 FLDS="║ already complete except for the HLL API. Only the PDSAPI, ║"
)ROW 26 16 FLDS="║ if ordered, or subsequent updates will be mailed. ║"
)ROW 27 16 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPEMAIL01 XID=(ZESC,ZF4_A,ZF3,ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 18 16 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 19 16 FLDS="║ %sHelpTitle +║"
)ROW 20 16 FLDS="║ Please enter a Compuserve or Internet ID if you want me ║"
)ROW 21 16 FLDS="║ to send you any correspondance via electronic media. ║"
)ROW 22 16 FLDS="║ ║"
)ROW 23 16 FLDS="║ Please note, this product is supported on Compuserve's ║"
)ROW 24 16 FLDS="║ 'OS/2 ShareWare' forum. ║"
)ROW 25 16 FLDS="║ Just 'GO OS2SHARE' or 'GO OS2BVEN' and leave a message in ║"
)ROW 26 16 FLDS="║ section # 1 of that forum. ║"
)ROW 27 16 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPORDAMTS01 XID=(ZESC,ZF4_A,ZF3,ZENTER)
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 18 16 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 19 16 FLDS="║ %sHelpTitle +║"
)ROW 20 16 FLDS="║ Enter the number of Base Systems which you are purchasing.║"
)ROW 21 16 FLDS="║ This is the number of systems which will be using PDS ║"
)ROW 22 16 FLDS="║ applications. Enter the number of REXX APIs you need. This║"
)ROW 23 16 FLDS="║ is the number of systems being used to develop REXX PDS ║"
)ROW 24 16 FLDS="║ applications. Enter the number of HLL APIs you need. This ║"
)ROW 25 16 FLDS="║ is the number of systems being used to develop High Level ║"
)ROW 26 16 FLDS="║ Language PDS applications with the PDSAPI addon product. ║"
)ROW 27 16 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPACQRD01 XID=(ZESC,ZF4_A,ZF3,ZENTER) ATTR=`%+
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 18 16 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 19 16 FLDS="║ %sHelpTitle +║"
)ROW 20 16 FLDS="║ So that I might be able to provide better services for my ║"
)ROW 21 16 FLDS="║ customers, please tell me how you discovered this PDS ║"
)ROW 22 16 FLDS="║ package. ║"
)ROW 23 16 FLDS="║ I.E. Did you download it from cyberspace? If so, what ║"
)ROW 24 16 FLDS="║ network was it downloaded from? Did you get it at an OS/2 ║"
)ROW 25 16 FLDS="║ users group? ║"
)ROW 26 16 FLDS="║ ║"
)ROW 27 16 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"
)PANEL NAME=PUPMONIES01 XID=(ZESC,ZF4_A,ZF3,ZENTER) ATTR=`%+
)COLORS TEXT=RED INPUT=WHITEHI OUTPUT=WHITEHI
)ROW 18 16 FLDS="╔═════════════════════════════════════════════════════════════╗"
)ROW 19 16 FLDS="║ %sHelpTitle +║"
)ROW 20 16 FLDS="║ ║"
)ROW 21 16 FLDS="║ Please send cash, check or money order in U.S. currency. ║"
)ROW 22 16 FLDS="║ ║"
)ROW 23 16 FLDS="║ I do not support credit cards or the Compuserve SWREG at ║"
)ROW 24 16 FLDS="║ at this time. ║"
)ROW 25 16 FLDS="║ ║"
)ROW 26 16 FLDS="║ ║"
)ROW 27 16 FLDS="╚═════════════════════════════════════════════════════════════╝"
)END )BLANK FLDS="<Press ESC to end or F3 to quit>"