Has anyone ever seen this type of language?<br>
<br>
:Start_up * Initial program script entry label<br>
WC l * Wait for call and save line #<br>
PR "Call Received ! ",0,0 * Screen display/log<br>
*-----<br>
LOAD b,"001" * bank number to 1<br>
LOAD c,"USD" * currency to US Dollars<br>
LOAD r,"1" * language to English<br>
SL r<br>
RC e * set password valid flag<br>
RC d * set primary accounts corrupt flag<br>
CB<br>
PL #WELCOME * Welcome message<br>
GO :main_menu<br>
*------------------<br>
*==============================================================================<br>
* COMMON ROUTINES SECTION<br>
*==============================================================================<br>
:good_bye<br>
CB<br>
PL #THANKYOU2 * Play "Goodbye"<br>
TC * Reset<br>
GO :start_up * Start over<br>
*==============================================================================<br>
:abort * Hangs Up Phone<br>
CB<br>
PL #HELPUSER * Play 'HELP' voice element<br>
TC * Reset<br>
GO :start_up * Start over<br>
*==============================================================================<br>
:timeoutmsg0 * timeout - no message<br>
IC t<br>
GE t,3,:abort,1 * cancel<br>
CB<br>
RT * return from timeout<br>
*==============================================================================<br>
:timeoutmsg1 * timeout during main menu<br>
IC t * increment counter<br>
GE t,3,:abort,1 * cancel<br>
CB<br>
PL #STOPMSG * Play "Press the 'NUMBER' key, or hangup"<br>
RT * return from timeout<br>
*==============================================================================<br>
:timeoutmsg2 * This timeout returns to Main menu<br>
IC t<br>
GE t,3,:timeoutmsg2a,1<br>
CB<br>
RT<br>
*------------------<br>
:timeoutmsg2a<br>
CB * Clear input key buffer<br>
PL #STOPMSG * Play "Press the 'NUMBER' key, or hangup"<br>
GO :main_menu<br>
*==============================================================================<br>
:user_confused * general purpose-help user after 3 errors<br>
CB<br>
PL #HELPUSER * Play 'HELP' voice element<br>
GO :main_menu<br>
*==============================================================================<br>
:host_timeout<br>
CB<br>
RC e<br>
PL #OFFLINE<br>
GO :main_menu<br>
*==============================================================================<br>
*--------------------------------------<br>
* ACCOUNT LIST ROUTINE<br>
*---------------------------------------<br>
:acc_list * Routine to list user accounts<br>
PR "Account List routine ",0,0<br>
CB<br>
PL #PROCESSING<br>
SH "LST ",2,l,b * Host request for account list<br>
*SF "LST ",L,P<br>
:II1<br>
RH 1,1,o,1,0<br>
GE o,1,:II1,0<br>
RC d<br>
IC d * Set dirty flag<br>
RH 81,2,f,0,0 * Load return flag<br>
CMPS f,"99"<br>
GOEQ :host_timeout * '99' - host not responding<br>
*------------------<br>
:acc_list1<br>
RC t * retry counter<br>
RC g * account type<br>
RC k * account type pointer<br>
RC q * account counter<br>
RC s * account number pointer<br>
ADD k,100 * set type start<br>
ADD s,81 * set acct number start<br>
ADD q,1 * set counter to 1:acc_list2<br>
:acc_list2<br>
* 1 - DDA accounts<br>
* 2 - Savings accounts<br>
* 3 - Loan accounts<br>
* 4 - CD's<br>
* 5 - cancel<br>
*<br>
CB<br>
PL #ACCLIST<br>
GU x,1,:acc_list2,:timeoutmsg0,3<br>
GE x,1,:acc_list3,2 * Say dda accounts<br>
GE x,2,:acc_list3,2 * Say savings accounts<br>
GE x,3,:acc_list3,2 * Say Loan accounts<br>
GE x,4,:acc_list3,2 * Say CD accounts<br>
GE x,5,:acc_list5,2 * return to previous<br>
SET o,10 * return to previous<br>
CMPV x,o<br>
GOEQ :acc_list5<br>
SET o,11 * abort to end this call<br>
CMPV x,o<br>
GOEQ :good_bye<br>
IC t<br>
GE t,3,:timeoutmsg1,1 * Abort if user times out 3 times<br>
GO :acc_list2<br>
*--------------------------------------<br>
:acc_list3<br>
RH 0,2,z,0,0,k * Read account type<br>
CMPS z,"00" * check for last account<br>
GOEQ :acc_list6<br>
CMPS z," " * check for last account<br>
GOEQ :acc_list6<br>
GE x,1,:dda_list,2 * Say dda accounts<br>
GE x,2,:savings_list,2 * Say savings accounts<br>
GE x,3,:loan_list,2 * Say Loan accounts<br>
GE x,4,:cd_list,2 * Say CD accounts<br>
*------------------<br>
<br>
:Start_up * Initial program script entry label<br>
WC l * Wait for call and save line #<br>
PR "Call Received ! ",0,0 * Screen display/log<br>
*-----<br>
LOAD b,"001" * bank number to 1<br>
LOAD c,"USD" * currency to US Dollars<br>
LOAD r,"1" * language to English<br>
SL r<br>
RC e * set password valid flag<br>
RC d * set primary accounts corrupt flag<br>
CB<br>
PL #WELCOME * Welcome message<br>
GO :main_menu<br>
*------------------<br>
*==============================================================================<br>
* COMMON ROUTINES SECTION<br>
*==============================================================================<br>
:good_bye<br>
CB<br>
PL #THANKYOU2 * Play "Goodbye"<br>
TC * Reset<br>
GO :start_up * Start over<br>
*==============================================================================<br>
:abort * Hangs Up Phone<br>
CB<br>
PL #HELPUSER * Play 'HELP' voice element<br>
TC * Reset<br>
GO :start_up * Start over<br>
*==============================================================================<br>
:timeoutmsg0 * timeout - no message<br>
IC t<br>
GE t,3,:abort,1 * cancel<br>
CB<br>
RT * return from timeout<br>
*==============================================================================<br>
:timeoutmsg1 * timeout during main menu<br>
IC t * increment counter<br>
GE t,3,:abort,1 * cancel<br>
CB<br>
PL #STOPMSG * Play "Press the 'NUMBER' key, or hangup"<br>
RT * return from timeout<br>
*==============================================================================<br>
:timeoutmsg2 * This timeout returns to Main menu<br>
IC t<br>
GE t,3,:timeoutmsg2a,1<br>
CB<br>
RT<br>
*------------------<br>
:timeoutmsg2a<br>
CB * Clear input key buffer<br>
PL #STOPMSG * Play "Press the 'NUMBER' key, or hangup"<br>
GO :main_menu<br>
*==============================================================================<br>
:user_confused * general purpose-help user after 3 errors<br>
CB<br>
PL #HELPUSER * Play 'HELP' voice element<br>
GO :main_menu<br>
*==============================================================================<br>
:host_timeout<br>
CB<br>
RC e<br>
PL #OFFLINE<br>
GO :main_menu<br>
*==============================================================================<br>
*--------------------------------------<br>
* ACCOUNT LIST ROUTINE<br>
*---------------------------------------<br>
:acc_list * Routine to list user accounts<br>
PR "Account List routine ",0,0<br>
CB<br>
PL #PROCESSING<br>
SH "LST ",2,l,b * Host request for account list<br>
*SF "LST ",L,P<br>
:II1<br>
RH 1,1,o,1,0<br>
GE o,1,:II1,0<br>
RC d<br>
IC d * Set dirty flag<br>
RH 81,2,f,0,0 * Load return flag<br>
CMPS f,"99"<br>
GOEQ :host_timeout * '99' - host not responding<br>
*------------------<br>
:acc_list1<br>
RC t * retry counter<br>
RC g * account type<br>
RC k * account type pointer<br>
RC q * account counter<br>
RC s * account number pointer<br>
ADD k,100 * set type start<br>
ADD s,81 * set acct number start<br>
ADD q,1 * set counter to 1:acc_list2<br>
:acc_list2<br>
* 1 - DDA accounts<br>
* 2 - Savings accounts<br>
* 3 - Loan accounts<br>
* 4 - CD's<br>
* 5 - cancel<br>
*<br>
CB<br>
PL #ACCLIST<br>
GU x,1,:acc_list2,:timeoutmsg0,3<br>
GE x,1,:acc_list3,2 * Say dda accounts<br>
GE x,2,:acc_list3,2 * Say savings accounts<br>
GE x,3,:acc_list3,2 * Say Loan accounts<br>
GE x,4,:acc_list3,2 * Say CD accounts<br>
GE x,5,:acc_list5,2 * return to previous<br>
SET o,10 * return to previous<br>
CMPV x,o<br>
GOEQ :acc_list5<br>
SET o,11 * abort to end this call<br>
CMPV x,o<br>
GOEQ :good_bye<br>
IC t<br>
GE t,3,:timeoutmsg1,1 * Abort if user times out 3 times<br>
GO :acc_list2<br>
*--------------------------------------<br>
:acc_list3<br>
RH 0,2,z,0,0,k * Read account type<br>
CMPS z,"00" * check for last account<br>
GOEQ :acc_list6<br>
CMPS z," " * check for last account<br>
GOEQ :acc_list6<br>
GE x,1,:dda_list,2 * Say dda accounts<br>
GE x,2,:savings_list,2 * Say savings accounts<br>
GE x,3,:loan_list,2 * Say Loan accounts<br>
GE x,4,:cd_list,2 * Say CD accounts<br>
*------------------<br>