#!/usr/local/bin/yabasic
for k=1 to 1000
clear screen
print"--------------------------------------"
print color("cyan","red") "Think of a question then press return."
print color("cyan","red")"Notice how the response relates"
print color("cyan","red")"to your question."
input a$
print"--------------------------------------"
z=int(ran(5))
for a=1 to 3
if a=1 then g$="The issue is "
endif
if a=2 then g$="Your denial is "
endif
if a=3 then g$="The outcome is "
endif
print g$;

c=int(ran(47))
if c=0 then f$="Self Trust"
endif
if c=1 then f$="Forgiveness"
endif
if c=2 then f$="Move Forward"
endif
if c=3 then f$="Inevitable"
endif
if c=4 then f$="Community"
endif
if c=5 then f$="Safe"
endif
if c=6 then f$="Work"
endif
if c=7 then f$="Grief"
endif
if c=8 then f$="Congruence"
endif
if c=9 then f$="Worry"
endif
if c=10 then f$="Plenty"
endif
if c=11 then f$="Journey"
endif
if c=12 then f$="Shedding"
endif
if c=13 then f$="Strength"
endif
if c=14 then f$="Self Love"
endif
if c=15 then f$="Fear"
endif
if c=16 then f$="Right Timing"
endif
if c=17 then f$="Gentleness"
endif
if c=18 then f$="Anxiety"
endif
if c=19 then f$="Shame"
endif
if c=20 then f$="Deception"
endif
if c=21 then f$="Bliss"
endif
if c=22 then f$="Action"
endif
if c=23 then f$="Allow"
endif
if c=24 then f$="Pleasure"
endif
if c=25 then f$="Take Your Time"
endif
if c=26 then f$="Love"
endif
if c=27 then f$="Originality"
endif
if c=28 then f$="Eternal"
endif
if c=29 then f$="Expression"
endif
if c=30 then f$="Expanding"
endif
if c=31 then f$="Conflicted"
endif
if c=32 then f$="Power"
endif
if c=33 then f$="Knowing"
endif
if c=34 then f$="Freedom"
endif
if c=35 then f$="Attention"
endif
if c=36 then f$="Leap of Faith"
endif
if c=37 then f$="Balance"
endif
if c=38 then f$="Gratitude"
endif
if c=39 then f$="Pain"
endif
if c=40 then f$="Inner Peace"
endif
if c=41 then f$="Incongruence"
endif
if c=42 then f$="Release"
endif
if c=43 then f$="Faith"
endif
if c=44 then f$="Clarity"
endif
if c=45 then f$="Holding Back"
endif
if c=46 then f$="Joy"
endif

print color("cyan","blue") f$
next a
print"--------------------------------------"
print color("cyan","red")"For adults only.  You are responsible"
print color("cyan","red")"for any choices you make."
print color("cyan","red")"Please visit"
print color("cyan","red")"$9 & Once in a Lifetime Tarot Readings"
print color("cyan","red")"at http://ropi.net/tarot"
print"--------------------------------------"
print
print"Enter 'e' to end."
print"Enter any other key to continue."
input a$
if a$="e" then end
endif
next k

    Source: geocities.com/sunsetstrip/palms/1624/yabasic/contrib

               ( geocities.com/sunsetstrip/palms/1624/yabasic)                   ( geocities.com/sunsetstrip/palms/1624)                   ( geocities.com/sunsetstrip/palms)                   ( geocities.com/sunsetstrip)