Skip to content

Instantly share code, notes, and snippets.

@isaacsanders

isaacsanders/RECEIVE_REFUND.bas

Forked from bostonaholic/RECEIVE_REFUND.bas
Created November 17, 2011 22:11
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save isaacsanders/1374710 to your computer and use it in GitHub Desktop.
Save isaacsanders/1374710 to your computer and use it in GitHub Desktop.
Download ZIP
how to receive a refund, basically
Raw
RECEIVE_REFUND.bas
000 SUB RECEIVE_REFUND
010 ASK POLITELY
020 IF REFUND = "YES" THEN
030 GOTO GOODBYE
040 ELSE
050 GOTO ASK_STERNLY
060 END IF
070 ASK_STERNLY:
080 ASK STERNLY
090 IF REFUND = "YES" THEN
100 ASK CUSTOMER SERVICE REP NAME 'THIS ENSURES THEY HOLD TO THEIR PROMISE
110 GOTO GOODBYE
120 ELSE
130 GOTO ASK_FOR_MANAGER
140 END IF
150 ASK_FOR_MANAGER:
160 ASK TO SPEAK WITH MANAGER
170 WHILE MANAGER == "NO": WAIT: WEND
180 ASK POLITELY
190 IF REFUND = "YES"
200 GOTO GOODBYE
210 ELSE
220 ASK STERNLY
230 IF REFUND = "YES"
240 GOTO GOODBYE
250 ELSE
260 'YOU WILL HAVE A REFUND AT THIS POINT
270 'THIS CAN NEVER BE REACHED
280 END IF
290 END IF
300 GOODBYE:
310 SAY "GOODBYE"
320 HANGUP
330 END SUB
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment