Predict your future (not really), but it makes for a fun time at a party. Another freebasic goodie.

DECLARE SUB Cartomancy ()
DECLARE SUB Oracle ()
'*******************************************************
'* Program title  :
'* Version number :
'* Date started   :
'* Last update    :
'* Authored by    :
'* Written for    :
'* Language       :
'* Program intent :
'* I/O and files  :
'* Data dictionary:
'*------------------------------------------------------

DEFINT A-Z

CONST the.title = "The Oracle."
DO
    VIEW PRINT
    CLS
    PRINT
    PRINT
    PRINT TAB(5); the.title
    PRINT
    PRINT "             A - Oracle"
    PRINT "             B - Cartomancy"
    PRINT "             Q - Quit"
    PRINT
    PRINT "     choice: ";
    Z$ = " "
    DO WHILE INSTR("ABQ", Z$) < 1
        Z$ = ""
        DO WHILE Z$ = ""
            Z$ = UCASE$(INPUT$(1))
        LOOP
    LOOP
    PRINT Z$
    SELECT CASE Z$
        CASE "A"
            CALL Oracle
            GOSUB Pause0
        CASE "B"
            CALL Cartomancy
            GOSUB Pause0
        CASE "Q"
            EXIT DO
        CASE ELSE
            REM
    END SELECT
LOOP
PRINT
PRINT
END

Pause0:
    PRINT
    PRINT "Press any key to continue: ";
    a$ = INPUT$(1)
    PRINT a$
    a$ = ""
RETURN

'==================================================================
Oracledat:
DATA "Yes, if you are creative."
DATA "Yes, if you are receptive."
DATA "Anything is possible, but you will have a difficult start."
DATA "What a youthful folly to ask!"
DATA "You must wait and ask again."
DATA "Only conflict will come of the result, please pray."
DATA "It will take many who are organized to accomplish your request."
DATA "Yes, if you keep it together."
DATA "Be meek and you will get your answer."
DATA "You are lucky to get this far!"
DATA "You must have the fellowship of men."
DATA "In great measure will the possession result."
DATA "One must be modest to attain their goal."
DATA "You will do good to have enthusiasm for your quest."
DATA "Let someone else take the lead to your quest."
DATA "Atone for what has been spoiled, then reask your question."
DATA "You are too far away to get the answer."
DATA "Meditation will lead you to your answer."
DATA "Bite through to your goal."
DATA "If you handle life with grace!"
DATA "There is to be a coming apart for fate to be realized."
DATA "All must return to what is."
DATA "Not knowing the true answer will be better."
DATA "You must tame the power of the great."
DATA "Watch the corners of the mouth."
DATA "The greatest preponderance will be fate."
DATA "It will be the abysmals, sorry!"
DATA "You will be lucky to hold on to what you have."
DATA "Influence will be the steeping stone to your quest."
DATA "Just be patient for a while."
DATA "It is a time for getting away."
DATA "The power of the great is upon you."
DATA "Yes, there is a progression to be attained."
DATA "The crytal ball is losing light and no answer may be attained now."
DATA "Everyone close will be part of your answer."
DATA "No, there is too much opposition."
DATA "Not likely, there are obstructions in the way."
DATA "Yes, deliverance will come."
DATA "Not as much as you might as supposed."
DATA "Yes and more than was planned."
DATA "Yes, if there is a breakthrough."
DATA "Maybe if you come to meet."
DATA "Now is the time to gather together for the answer."
DATA "Yes, only if there is a push upward."
DATA "No, oppression will stop your quest."
DATA "Yes, no, and maybe......."
DATA "What the oracle says is opposite to your true answer."
DATA "The answer will take longer and you will pay for the wait."
DATA "Only through an arousing!"
DATA "It is not time for a move, you must keep still."
DATA "Let fate develop as it will."
DATA "You must see the marrying maiden first."
DATA "More than you ever imagined."
DATA "You may wonder and wander, but it is time to move."
DATA "Only if you act gently."
DATA "Yes, with great joy!"
DATA "No, so you must let go of it to spread out."
DATA "Only with limitations."
DATA "Look within yourself and you can find the answer."
DATA "Only with preponderance of the small."
DATA "It will come to be after completion."
DATA "Only before completion."
DATA "I love Elizabeth!"
DATA "Only God knows..."

Carto:
  DATA R,G,H,M,"The home, love, friendship, and happiness."
  DATA R,G,H,L,"A good natured impetuous, fair-haired man."
  DATA R,G,H,K,"A trustworthy, fair haired woman."
  DATA R,G,H,J,"A close friend."
  DATA R,G,H,I,"Good fortune and happiness."
  DATA P,G,H,H,"Dreams come true from wealth, good luck, and status."
  DATA P,G,H,G,"Invitations and festivities."
  DATA P,B,H,F,"False hopes and broken promises an unreliable person."
  DATA P,G,H,E,"An overgenerous disposition, unexpected good fortune."
  DATA P,B,H,D,"Jealousy and indecisiveness."
  DATA P,B,H,C,"Changes, delays, and postponements."
  DATA P,B,H,B,"Warning for a need of caution."
  DATA P,G,H,A,"Success and prosperity."
  ' data for clubs
  DATA R,G,C,M,"Wealth, health, love, and happiness."
  DATA R,G,C,L,"An honest, generous dark haired man."
  DATA R,G,C,K,"An attractive, self-confident, and dark-haired woman."
  DATA R,G,C,J,"A reliable friend."
  DATA R,G,C,I,"Unexpected money and good luck."
  DATA P,B,C,H,"Friends being stubborn."
  DATA P,B,C,G,"Opposition, dissappointment, and the taking of reckless chances."
  DATA P,G,C,F,"Prosperity - if someone of the opposite sex does not interfere."
  DATA P,G,C,E,"Business Success."
  DATA P,G,C,D,"A new friend or sucessful marriage."
  DATA P,B,C,C,"Fortunes changing for the worse."
  DATA P,G,C,B,"Marriage bringing money or several partnerships."
  DATA P,B,C,A,"Oppositions and disappointments."
  ' data for diamonds
  DATA R,G,D,M,"Money, a letter or a ring."
  DATA R,B,D,L,"A stubborn, quick-tempered, fair-haired man."
  DATA R,B,D,K,"A flirtatious, sophisticated, fair-haired woman."
  DATA R,B,D,J,"A relative, not altogether reliable."
  DATA R,G,D,I,"Marriage, money, journey, or changes."
  DATA P,B,D,H,"Restlesness.  A surprise connected with money."
  DATA P,G,D,G,"A marriage late in life.  New relationship from travel."
  DATA P,B,D,F,"Heavy losses."
  DATA P,B,D,E,"A warning against a second marriage."
  DATA P,G,D,D,"Prosperity, good news, or a happy family."
  DATA P,B,D,C,"An inheritance, changes, and trouble."
  DATA P,B,D,B,"Legal or domestic disputes."
  DATA P,G,D,A,"A serious love affair."
  ' data for spades
  DATA R,B,S,M,"Emotional conflict, unfortunate love affair or the end."
  DATA R,B,S,L,"An ambitious dark-haired man."
  DATA R,G,S,K,"An unscrupuluos dark-haired woman."
  DATA R,B,S,J,"A well meaning, but lazy aquaintance."
  DATA R,B,S,I,"Misfortune and worry."
  DATA P,B,S,H,"Bad luck in all things."
  DATA P,B,S,G,"Trouble and disappointment ahead."
  DATA P,B,S,F,"Sorrow and loss of friendship."
  DATA P,G,S,E,"Some improvement in circumstances."
  DATA P,G,S,D,"Reverses and anxieties, but eventual success."
  DATA P,B,S,C,"Jealousy, illness, and business worries."
  DATA P,B,S,B,"Faithlessness and partings."
  DATA P,B,S,A,"Separation, scandal, and deceit."
  DATA Two
  DATA Three
  DATA Four
  DATA Five
  DATA Six
  DATA Seven
  DATA Eight
  DATA Nine
  DATA Ten
  DATA Jack
  DATA Queen
  DATA King
  DATA Ace
  DATA end
  DATA "Personality and state of mind."
  DATA "Family and home."
  DATA "Present desires."
  DATA "Hopes and expectations."
  DATA "The unexpected."
  DATA "The immediate future."
  DATA "The more distant future."

DEFSNG A-Z
SUB Cartomancy
' ==========================================================================
' program:     carto.bas
' programmer:  computoman
' last update: 01/21/1994
' note:        simple program based on cartomancy
'
' ==========================================================================
' start
RESTORE Carto
Termlines = 25
WIDTH 80, Termlines
GOSUB housevkeeping
WHILE dovfortune
  GOSUB dovcards
WEND
GOSUB endvofvjob1
EXIT SUB
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' housekeeping
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
housevkeeping:
  CLS
  dovfortune = 1
  RANDOMIZE TIMER
  lastvpage = 7
  lastvchoose = 3
  deckvsize = 52
  DIM checkvit(deckvsize), displayvindex(lastvpage * lastvchoose)
  firstvcard = 1
  DIM cardvtype$(deckvsize), cardvgrade$(deckvsize), Cardvinfo$(deckvsize)
  DIM cardvfavor$(deckvsize), cardvclass$(deckvsize)
  FOR cardvnumber = firstvcard TO deckvsize
    READ cardvclass$(cardvnumber)
    READ cardvfavor$(cardvnumber)
    READ cardvtype$(cardvnumber)
    READ cardvgrade$(cardvnumber)
    READ Cardvinfo$(cardvnumber)
  NEXT cardvnumber
  ' ---------------------------------------------------------------------------
  ' data for hearts
  DIM cardvkind$(26), cardvvalue$(14)
  cardvkind$(ASC("H") - 64) = "Hearts"
  cardvkind$(ASC("C") - 64) = "Clubs"
  cardvkind$(ASC("D") - 64) = "Diamonds"
  cardvkind$(ASC("S") - 64) = "Spades"
  FOR numbervofvsuit = 1 TO 14
    READ cardvvalue$(numbervofvsuit)
  NEXT numbervofvsuit
  DIM title$(lastvpage)
  FOR pagevnumber = 1 TO lastvpage
    READ title$(pagevnumber)
  NEXT pagevnumber
  OPEN "lastshow.txt" FOR OUTPUT AS #1
RETURN
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' cartomancy
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
dovcards:
  DO UNTIL UCASE$(done$) = "N"
    CLS
    LOCATE Termlines, 1
    PRINT "Computoman 2009"
    LOCATE 1, 1
    PRINT
    PRINT "   Predict your future with playing cards!"
    PRINT
    PRINT "      There are seven areas of your life that will be considered."
    PRINT "Each area will be considered one at a time.  Advanced versions"
    PRINT "of this program will allow you to record results on disk for"
    PRINT "later use.  For now, plese have a pencil and paper ready!"
    PRINT "Use - to get hardcopy!"
    PRINT
    PRINT "1. Personaily and state of mind."
    PRINT "2. Family and Home."
    PRINT "3. Present desires."
    PRINT "4. Hopes and expectations."
    PRINT "5. The unexpected."
    PRINT "6. The immediate future."
    PRINT "7. The more distant future."
    PRINT
    INPUT "Press return to continue: ", govon$
    combo$ = ""
    done$ = ""
    FOR a = 1 TO deckvsize
      checkvit(a) = 0
    NEXT a
    GOSUB details
    PRINT
    CLS
    LOCATE Termlines, 1
    PRINT "Computoman 2009"
    LOCATE 1, 1
    PRINT
    PRINT "You have seen all of this reading!"
    PRINT
    PRINT "Want a new reading  (Y/N):", done$
    WHILE UCASE$(done$)  "Y" AND UCASE$(done$)  "N"
    done$ = INPUT$(1)
    WEND
    dovfortune = 0
  LOOP
RETURN
' ---------------------------------------------------------------------------
' print details
details:
  FOR pagevnumber = 1 TO lastvpage
    GOSUB pagevheader
    FOR choose = 1 TO lastvchoose
      cardvindex = (((pagevnumber - 1) * lastvchoose) + choose)
      GOSUB choosevcard
      GOSUB calcs
      GOSUB displayvcard
    NEXT choose
    GOSUB footer
    INPUT "Press the return key to continue: ", govon$
  NEXT pagevnumber
RETURN
' ---------------------------------------------------------------------------
' choose a card
choosevcard:
  rem PLAY "l16" + CHR$(INT(RND(1)* 7) + 65)
  choicevit = INT(RND(1) * deckvsize)
  IF checkvit(choicevit) = 1 OR choicevit = 0 THEN
    GOSUB choosevcard
  END IF
RETURN
' ----------------------------------------------------------------------------
' check for special situations
checkvdetails:
  PRINT "Checking ......"
  C$ = ""
  B$ = ""
  a$ = ""
  ' rule  1
  a$ = CHR$(1)
  B$ = "H"
  C$ = "Friendship."
  GOSUB logicalvtwo
  ' rule  2
  a$ = CHR$(1)
  B$ = "H"
  C$ = "Love Affair."
  GOSUB logicalvthree
  ' rule  3
  a$ = CHR$(1)
  B$ = "D"
  C$ = "Money."
  GOSUB logicalvthree
  ' rule  4
  a$ = CHR$(1)
  B$ = "S"
  C$ = "Quarrels."
  GOSUB logicalvthree
  ' rule  5
  a$ = CHR$(27)
  B$ = CHR$(20)
  C$ = "A business proposal."
  GOSUB logicalvone
  ' rule  6
  a$ = CHR$(40)
  B$ = CHR$(23)
  C$ = "A politician."
  GOSUB logicalvone
  ' rule  7
  a$ = CHR$(40)
  B$ = CHR$(44)
  C$ = "A serious undertaking"
  GOSUB logicalvone
  ' rule  8
  a$ = CHR$(40)
  B$ = CHR$(11)
  C$ = "A new baby."
  GOSUB logicalvone
  ' rule  9
  a$ = CHR$(5)
  B$ = ""
  C$ = "Things are better than they seem!"
  GOSUB logicalvfour
  ' rule 10
  a$ = CHR$(31)
  B$ = CHR$(14 - 1)
  C$ = "Marriage bringing money."
  GOSUB logicalvone
  ' rule 11
  a$ = CHR$(44)
  B$ = ""
  C$ = "Things are worse than they seem."
  GOSUB logicalvfour
  ' rule 12
  a$ = CHR$(44)
  B$ = "C"
  C$ = "Business troubles."
  GOSUB logicalvtwo
  ' rule odH
  a$ = CHR$(40)
  B$ = "C"
  C$ = "Theft, forgery, and grave business losses."
  GOSUB logicalvthree
  ' rule 14
  a$ = CHR$(6)
  B$ = "B"
  C$ = "Quarrels and temporary obstacles."
  GOSUB logicalvfive
  ' rule 15
  a$ = CHR$(6)
  B$ = CHR$(49)
  C$ = "Loss of status."
  GOSUB logicalvone
  ' rule 16
  a$ = CHR$(19)
  B$ = CHR$(7)
  C$ = "Gaiety."
  GOSUB logicalvone
  ' rule 17
  a$ = CHR$(32)
  B$ = "R"
  C$ = "Lack of success because of inability to concentrate."
  GOSUB logicalvsix
  ' rule 18
  a$ = CHR$(32)
  B$ = CHR$(46)
  C$ = "A bitter quarrel."
  GOSUB logicalvone
  ' rule 19
  a$ = CHR$(45)
  B$ = CHR$(34)
  C$ = "Loss of money."
  GOSUB logicalvone
  ' rule 20
  a$ = CHR$(7)
  B$ = CHR$(10)
  C$ = "A present of jewelry."
  GOSUB logicalvone
  ' rule 20a
  a$ = CHR$(7)
  B$ = CHR$(33)
  C$ = "A trousseau."
  GOSUB logicalvone
  ' rule 21
  a$ = CHR$(33)
  B$ = CHR$(10)
  C$ = "A present of money."
  GOSUB logicalvone
  ' rule 22
  a$ = CHR$(46)
  IF MID$(combo$, 21, 1) = a$ THEN
    PRINT "Abandon immediate plans!"
  END IF
  ' rule 23
  a$ = CHR$(11)
  B$ = "R"
  C$ = "Many love affairs."
  GOSUB logicalvsix
  ' rule 24
  a$ = CHR$(24)
  B$ = "R"
  C$ = "A loss or injustice to you"
  GOSUB logicalvsix
  ' rule 25
  a$ = CHR$(26)
  B$ = CHR$(39)
  C$ = "An unexpected message."
  GOSUB logicalvone
RETURN
' -------------------------------------------------------------------------
' logic sub  - specific cards
logicalvone:
  IF MID$(combo$, (cardvindex - 1), 1) = a$ THEN
   IF MID$(combo$, (cardvindex), 1) = B$ THEN
      PRINT C$
    END IF
  END IF
  IF MID$(combo$, (cardvindex - 1), 1) = a$ THEN
    IF MID$(combo$, (cardvindex - 2), 1) = B$ THEN
      PRINT C$
    END IF
  END IF
  IF MID$(combo$, (cardvindex), 1) = a$ THEN
    IF MID$(combo$, (cardvindex - 1), 1) = B$ THEN
      PRINT C$
    END IF
  END IF
  IF MID$(combo$, (cardvindex - 2), 1) = a$ THEN
    IF MID$(combo$, (cardvindex - 1), 1) = B$ THEN
      PRINT C$
    END IF
  END IF
RETURN
' -------------------------------------------------------------------------
' logic sub - card types
logicalvtwo:
  IF MID$(combo$, (cardvindex - 1), 1) = a$ THEN
    IF cardvtype$(ASC(MID$(combo$, (cardvindex), 1))) = B$ THEN
      PRINT C$
    END IF
  END IF
  IF MID$(combo$, (cardvindex - 1), 1) = a$ THEN
    IF cardvtype$(ASC(MID$(combo$, (cardvindex - 2), 1))) = B$ THEN
      PRINT C$
    END IF
  END IF
  IF MID$(combo$, (cardvindex), 1) = CHR$(1) THEN
    IF cardvtype$(ASC(MID$(combo$, (cardvindex - 1), 1))) = B$ THEN
      PRINT C$
    END IF
  END IF
  IF MID$(combo$, (cardvindex - 2), 1) = a$ THEN
    IF cardvtype$(ASC(MID$(combo$, (cardvindex - 1), 1))) = B$ THEN
      PRINT C$
    END IF
  END IF
RETURN
' -------------------------------------------------------------------------
' logic sub  - card types both sides
logicalvthree:
  IF MID$(combo$, (cardvindex - 1), 1) = a$ THEN
    IF cardvtype$(ASC(MID$(combo$, (cardvindex - 2), 1))) = B$ THEN
      IF cardvtype$(ASC(MID$(combo$, (cardvindex), 1))) = B$ THEN
        PRINT C$
      END IF
    END IF
  END IF
RETURN
' -------------------------------------------------------------------------
' logic sub  - any specific card
logicalvfour:
  FOR hcds = 0 TO 2
    IF MID$(combo$, (cardvindex - hcds), 1) = a$ THEN
      PRINT C$
    END IF
  NEXT hcds
RETURN
' -------------------------------------------------------------------------
' logic sub  - Card favor
logicalvfive:
  IF MID$(combo$, (cardvindex - 1), 1) = a$ THEN
    IF cardvfavor$(ASC(MID$(combo$, (cardvindex), 1))) = B$ THEN
      PRINT C$
    END IF
  END IF
  IF MID$(combo$, (cardvindex - 1), 1) = a$ THEN
    IF cardvfavor$(ASC(MID$(combo$, (cardvindex - 2), 1))) = B$ THEN
      PRINT C$
    END IF
  END IF
  IF MID$(combo$, (cardvindex), 1) = CHR$(1) THEN
    IF cardvfavor$(ASC(MID$(combo$, (cardvindex - 1), 1))) = B$ THEN
      PRINT C$
    END IF
  END IF
  IF MID$(combo$, (cardvindex - 2), 1) = a$ THEN
    IF cardvfavor$(ASC(MID$(combo$, (cardvindex - 1), 1))) = B$ THEN
      PRINT C$
    END IF
  END IF
RETURN
' -------------------------------------------------------------------------
' logic sub - card regencies
logicalvsix:
  IF MID$(combo$, (cardvindex - 1), 1) = a$ THEN
    IF cardvclass$(ASC(MID$(combo$, (cardvindex), 1))) = B$ THEN
      PRINT C$
    END IF
  END IF
  IF MID$(combo$, (cardvindex - 1), 1) = a$ THEN
    IF cardvclass$(ASC(MID$(combo$, (cardvindex - 2), 1))) = B$ THEN
      PRINT C$
    END IF
  END IF
  IF MID$(combo$, (cardvindex), 1) = CHR$(1) THEN
    IF cardvclass$(ASC(MID$(combo$, (cardvindex - 1), 1))) = B$ THEN
      PRINT C$
    END IF
  END IF
  IF MID$(combo$, (cardvindex - 2), 1) = a$ THEN
    IF cardvclass$(ASC(MID$(combo$, (cardvindex - 1), 1))) = B$ THEN
      PRINT C$
    END IF
  END IF
RETURN
' -----------------------------------------------------------------------------
' Display card
displayvcard:
  PRINT "Card number "; cardvindex; " is the: ";
  PRINT Cardnum$; " of "; Cardsuit$; " and that is "; Favorvresult$
  PRINT
  PRINT "Meaning: "; Cardvinfo$(choicevit)
  PRINT
  PRINT #1, "Card number "; cardvindex; " is the: ";
  PRINT #1, Cardnum$; " of "; Cardsuit$; " and that is "; Favorvresult$
  PRINT #1, ""
  PRINT #1, "Meaning: "; Cardvinfo$(choicevit)
  PRINT #1, ""
RETURN
' ---------------------------------------------------------------------------
' page headers
pagevheader:
  CLS
  LOCATE Termlines, 1
  PRINT "Computoman 2009"
  VIEW PRINT 1 TO 24
  PRINT
  PRINT TAB((80 - LEN(title$(pagevnumber))) / 2); title$(pagevnumber)
  PRINT
  PRINT #1, ""
  PRINT #1, TAB((80 - LEN(title$(pagevnumber))) / 2); title$(pagevnumber)
  PRINT #1, ""
RETURN
' --------------------------------------------------------------------------
' footers
footer:
  PRINT "Other details to consider: ";
  GOSUB checkvdetails
  PRINT
RETURN
' --------------------------------------------------------------------------
' do the calculations
calcs:
  SELECT CASE cardvfavor$(choicevit)
  CASE "G"
    Favorvresult$ = "Good."
  CASE "B"
    Favorvresult$ = "Challenging."
  CASE ELSE
    PRINT "Bad data"
  END SELECT
  combo$ = combo$ + CHR$(choicevit)
  checkvit(choicevit) = 1
  displayvindex(cardvindex) = choicevit
  Cardnum$ = cardvvalue$(ASC(cardvgrade$(choicevit)) - 64)
  Cardsuit$ = cardvkind$(ASC(cardvtype$(choicevit)) - 64)
RETURN
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
' end of job
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
endvofvjob1:
    CLOSE #1
RETURN
END SUB

SUB Oracle
REM **************************************************************************
REM * program:     oracle pc
REM * note   :     random choosing of answer for a question.
REM * programmer:  eddie "clark" kent
REM * last update: 01/16/1995
REM *------------------------------------------------------------------------
RESTORE Oracledat
WIDTH 80, 25
CLS
RANDOMIZE TIMER
DIM x$(64)
To.sound = 1
FOR x = 0 TO 63
  READ x$(x)
NEXT x
m$ = "Not done"
pay = 0
WHILE m$ = "Not done"
  pay = pay + 1
  CLS
  LOCATE 4, 1
  PRINT "                T H E  O R A C L E !"
  LOCATE 5, 1
  PRINT "                Computoman 2009"
  FOR x = 1 TO 1500
  NEXT x
  LOCATE 7, 1
  LINE INPUT "Please enter your question: ", q$
  SELECT CASE LEFT$(q$, 1)
    CASE CHR$(248)
        To.sound = 1
    CASE CHR$(255)
        To.sound = 0
  END SELECT
  LOCATE 10, 1
  PRINT "The Oracle will show you it's thoughts, then summon your answer."
  LOCATE 12, 1
  PRINT "So please be patient!"
  LOCATE 15, 1
  PRINT ""
  LOCATE 16, 1
  PRINT ""
  LOCATE 17, 1
  PRINT ""
  FOR Z = 1 TO 100
    LOCATE 16, 3
    PRINT STRING$(75, " ");
    LOCATE 16, 3
    PRINT x$(RND(1) * 63);
    IF To.sound = 1 THEN
        rem PLAY "l16" + CHR$(INT(RND(1) * 7) + 65)
    END IF
  NEXT Z
  FOR x = 1 TO 5
    PRINT
  NEXT x
  INPUT "Are you done (Y/n)"; d$
  IF UCASE$(d$)  "N" THEN
    m$ = "Done"
  END IF
WEND
PRINT
PRINT "Please pay the cashier "; pay * 5; " dollars!"
zz$ = ""
zz$ = INPUT$(1)
' ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
endvofvjob:
  VIEW PRINT
  LOCATE 25, 1
  PRINT STRING$(79, " ");
  LOCATE 24, 1
  EXIT SUB
END SUB
Advertisements