'===========================================================================
' Subject: WHEEL OF FORTUNE                   Date: 10-07-98 (03:13)       
'  Author: Bill Atkinson                      Code: ASIC                   
'  Origin: Batkin6114@aol.com               Packet: ASIC.ABC
'===========================================================================
DIM AN$(12)
DIM MO$(12)
DIM CA$(14)
DIM TA$(22)
DIM PL$(7)
DIM EL$(4)
DIM CO$(6)
DIM SU$(4)
DIM DY$(7)
DATA "Aquarius","Pisces","Aries","Taurus","Gemini","Cancer","Leo"
DATA "Virgo","Libra","Scorpio","Sagittarius","Capricorn"
DATA "Sun","Moon","Mercury","Mars","Venus","Jupiter","Saturn"
DATA "Fire","Air","Earth","Water"
DATA "Red","Blue","Black","White","Brown","Yellow"
DATA "Ace","King","Queen","Knight","Knave","Ten","Nine","Eight","Seven"
DATA "Six","Five","Four","Three","Two"
DATA "Wands","Cups","Swords","Pentacles"
DATA "The Magician","The High Priestess","The Empress","The Emperor"
DATA "The Hierophant"
DATA "The Lovers","The Chariot","Strength","The Hermit","The Wheel Of Fortune"
DATA "Justice","The Hanged Man","Death"
DATA "Temperance","The Devil","The Tower","The Stars","The Moon","The Sun"
DATA "Judgment","The World","The Fool"
DATA "Sunday","Monday","Tuesday","Wednesday","Thursday","Friday","Saturday"
DATA "January","Febuary","March","April","May","June"
DATA "July","August","September","October","November","December"
REM Modified for the ApBasic Compiler from QBasic
CLS
PRINT
PRINT " ******** WHEEL OF FORTUNE ********"
PRINT
PRINT " Hit any key to spin the wheel"
RANDOMIZE
PRINT
CLS
FOR I = 1 TO 12
READ AN$(I)
NEXT I
Z = RND(0)
Z = Z MOD 12
Z = Z + 1
PRINT
PRINT " Your sign is:             ";
PRINT AN$(Z)
FOR A = 1 TO 7
READ PL$(A)
NEXT A
Z = RND(0)
Z = Z MOD 7
Z = Z + 1
PRINT
PRINT " Your planet is:           ";
PRINT PL$(Z)
FOR B = 1 TO 4
READ EL$(B)
NEXT B
Z = RND(0)
Z = Z MOD 4
Z = Z + 1
PRINT
PRINT " Your element is:          ";
PRINT EL$(Z)
FOR C = 1 TO 6
READ CO$(C)
NEXT C
Z = RND(0)
Z = Z MOD 6
Z = Z + 1
PRINT
PRINT " Your color is:            ";
PRINT CO$(Z)
FOR D = 1 TO 14
READ CA$(D)
NEXT D
FOR E = 1 TO 4
READ SU$(E)
NEXT E
Z = RND(0)
Z = Z MOD 13
Z = Z + 1
X = RND(0)
X = X MOD 4
X = X + 1
PRINT
PRINT " Your card is:             The ";
PRINT CA$(Z);
PRINT " of ";
PRINT SU$(X)
FOR F = 1 TO 22
READ TA$(F)
NEXT F
Z = RND(0)
Z = Z MOD 22
Z = Z + 1
PRINT
PRINT " Your Tarot card is:       ";
PRINT TA$(Z)
FOR G = 1 TO 7
READ DY$(G)
NEXT G
Z = RND(0)
Z = Z MOD 7
Z = Z + 1
PRINT
PRINT " Your day is:              ";
PRINT DY$(Z)
FOR H = 1 TO 12
READ MO$(H)
NEXT H
Z = RND(0)
Z = Z MOD 12
Z = Z + 1
PRINT
PRINT " Your month is:            ";
PRINT MO$(Z)
PRINT
PRINT " Your day of the month is: ";
Z = RND(0)
Z = Z MOD 31
Z = Z + 1
Z$ = STR$(Z)
Z$ = LTRIM$(Z$)
PRINT Z$
PRINT
PRINT " Your numbers are:         ";
Z = RND(0)
Z = Z MOD 9000
Z = Z + 1000
Z$ = STR$(Z)
Z$ = LTRIM$(Z$)
PRINT Z$;
PRINT ",";
PRINT " ";
Z = RND(0)
Z = Z MOD 900
Z = Z + 100
Z$ = STR$(Z)
Z$ = LTRIM$(Z$)
PRINT Z$;
PRINT ",";
PRINT " ";
Z = RND(0)
Z = Z MOD 90
Z = Z + 10
Z$ = STR$(Z)
Z$ = LTRIM$(Z$)
PRINT Z$;
PRINT ",";
PRINT " ";
Z = RND(0)
Z = Z MOD 9
Z = Z + 1
Z$ = STR$(Z)
Z$ = LTRIM$(Z$)
PRINT Z$
LOOP:
A = RND(0)
A = A MOD 9
A = A + 1
B = RND(0)
B = B MOD 9
B = B + 1
C = RND(0)
C = C MOD 9
C = C + 1
IF A = B THEN LOOP:
IF A = C THEN LOOP:
IF B = C THEN LOOP:
LUCKY1 = A * 100
LUCKY2 = B * 10
LUCKY3 = C
LUCKY = LUCKY1 + LUCKY2
LUCKY = LUCKY + LUCKY3
LUCKY$ = STR$(LUCKY)
LUCKY$ = LTRIM$(LUCKY$)
PRINT
PRINT " Your lucky number is:     ";
PRINT LUCKY$
PRINT
PRINT " Hit any key..."
LOOP2:
K$ = INKEY$
IF K$ = "" THEN LOOP2:
CLS
END
RR: