REM ==========================================
DIM A$(20)
DIM B$(20)
DIM C$(20)
DIM D$(20)
DIM E$(20)
DIM X1$(10)
REM ==========================================
A$(1) = "INVENT "
A$(2) = "LEARN "
A$(3) = "BUILD "
A$(4) = "EXPLORE "
A$(5) = "IMAGINE "
A$(6) = "CREATE "
A$(7) = "FIND "
A$(8) = "DREAM "
A$(9) = "NEW "
A$(10) = "ATOMIC "
A$(11) = "PURPLE "
A$(12) = "MEGA "
A$(13) = "SHINY "
A$(14) = "CLEAR "
A$(15) = "ORANGE "
A$(16) = "RAINBOW "
A$(17) = "QUICK "
A$(18) = "INSTANT "
A$(19) = "COMPACT "
A$(20) = "KIDS "
REM ==========================================
B$(1) = "TINY "
B$(2) = "INFINITE "
B$(3) = "USEFUL "
B$(4) = "SIMPLE "
B$(5) = "PERFECT "
B$(6) = "MYSTICAL "
B$(7) = "ACCURATE "
B$(8) = "BRIGHT "
B$(9) = "CLEVER "
B$(10) = "ENDLESS "
B$(11) = "MAGIC "
B$(12) = "DATABASE "
B$(13) = "EXACT "
B$(14) = "BEYOND "
B$(15) = "COMPLEX "
B$(16) = "VALUBLE "
B$(17) = "PURE "
B$(18) = "BLACK "
B$(19) = "CUBE "
B$(20) = "SHADOW "
REM ==========================================
C$(1) = "NUMBER "
C$(2) = "MATH FORMULA "
C$(3) = "KEY FINDER "
C$(4) = "PLAN MAP "
C$(5) = "BRAIN "
C$(6) = "VIBRATION "
C$(7) = "BIOS "
C$(8) = "FREQUENCY "
C$(9) = "CLOCK "
C$(10) = "KEYBOARD "
C$(11) = "VORTEX "
C$(12) = "WARPS "
C$(13) = "MICROCHIP "
C$(14) = "CRYSTAL "
C$(15) = "ELECTRICITY "
C$(16) = "NETWORK "
C$(17) = "FUEL "
C$(18) = "TRAINS "
C$(19) = "SHIP "
C$(20) = "THERMOS "
REM ==========================================
D$(1) = "SPIRAL "
D$(2) = "DAZZLE "
D$(3) = "PACKAGED "
D$(4) = "SYSTEM "
D$(5) = "PATTERN "
D$(6) = "SODA "
D$(7) = "COMBO "
D$(8) = "CELL "
D$(9) = "GROWING "
D$(10) = "GLOWING "
D$(11) = "FLAME "
D$(12) = "UNIVERSE "
D$(13) = "COSMIC "
D$(14) = "MONSTER "
D$(15) = "GRAPH "
D$(16) = "POTENT "
D$(17) = "SPACE "
D$(18) = "SWIRLING "
D$(19) = "MUTANT "
D$(20) = "SPINNING "
REM ==========================================
E$(1) = "ORBITS "
E$(2) = "WORMHOLES "
E$(3) = "SOLUTIONS "
E$(4) = "PRODUCTS "
E$(5) = "JUICES "
E$(6) = "ROBOTS "
E$(7) = "ROCKS "
E$(8) = "WORLDS "
E$(9) = "DRUGS "
E$(10) = "SEEDS "
E$(11) = "CALCULATORS "
E$(12) = "RECORDS "
E$(13) = "KITS "
E$(14) = "PLASMA "
E$(15) = "TREES "
E$(16) = "ALPHABETS "
E$(17) = "ROCKETS "
E$(18) = "TUNNELS "
E$(19) = "TUBES "
E$(20) = "TESTS "
REM ==========================================
X1$(1) = "BRANCHES "
X1$(2) = "TRAFFICS "
X1$(3) = "SOLVES "
X1$(4) = "WEAVES "
X1$(5) = "DISCOVERS "
X1$(6) = "DIRECTS "
X1$(7) = "BRINGS "
X1$(8) = "LEADS TO "
X1$(9) = "BECOMES "
X1$(10) = "BEGINS "
REM ==========================================
REM X
REM ==========================================
SYS:
R1 = 1
R2 = 1
R3 = 1
R4 = 1
R5 = 1
EXTRA = 1
SWAP = 1
XON = 1
XR1 = 1
REM ==========================================
MAIN:
CLS
print "============================================"
print "INVENTION LABRATORY IDEA GENERATOR VERSION 3"
print "============================================"
IF SWAP = 1 THEN
PRINT "1>";
PRINT A$(R1)
PRINT "2>";
PRINT B$(R2)
IF WORD$ > "" THEN
PRINT "C>";
PRINT WORD$
ENDIF
PRINT "3>";
PRINT C$(R3)
IF XON = 1 THEN
PRINT "L>";
PRINT X1$(XR1)
ENDIF
IF EXTRA = 1 THEN
PRINT "4>";
PRINT D$(R4)
ENDIF
PRINT "5>";
PRINT E$(R5)
ELSE
PRINT "1>";
PRINT A$(R1)
PRINT "4>";
PRINT D$(R4)
PRINT "3>";
PRINT C$(R3)
IF XON = 1 THEN
PRINT "L>";
PRINT X1$(XR1)
ENDIF
PRINT "2>";
PRINT B$(R2)
IF WORD$ > "" THEN
PRINT "C>";
PRINT WORD$
ENDIF
IF EXTRA = 1 THEN
PRINT "5>";
PRINT E$(R5)
ENDIF
ENDIF
IF SWAP = 1 THEN
PRINT A$(R1);
PRINT B$(R2);
IF WORD$ > "" THEN
PRINT WORD$;
ENDIF
PRINT C$(R3);
print "THAT ";
IF XON = 1 THEN
PRINT X1$(XR1);
ENDIF
IF EXTRA = 1 THEN
PRINT D$(R4);
ENDIF
PRINT E$(R5);
ELSE
PRINT A$(R1);
PRINT D$(R4);
PRINT C$(R3);
IF XON = 1 THEN
PRINT X1$(XR1);
ENDIF
PRINT B$(R2);
IF WORD$ > "" THEN
PRINT WORD$;
ENDIF
IF EXTRA = 1 THEN
PRINT E$(R5);
ENDIF
ENDIF
print ""
print "============================================"
print "1)BEGIN 2)STYLE 3)OBJECT 4)GOAL 5)ACTION    "
print "C)CUSTOM R)RANDOM E)EXTRA L)LEAD S)WAP      "
print "============================================"
print "Select your words by pressing '1' to '5' and"
print "'L'. To swap long/short mode  press 'E'.  To"
print "add your own  word  press 'C'.  To  randomly"
print "create an invention  idea  press 'R'.  Press"
print "'Q' to exit program.                        "
print "============================================"
X$ = ""
WHILE X$ = ""
X$ = INKEY$
WEND
X$ = LCASE$(X$)
if X$ = "q" THEN
END
ENDIF
if X$ = "1" THEN
FOR JKL = 1 to 20
PRINT JKL;
PRINT " ";
PRINT ">";
PRINT A$(JKL)
NEXT JKL
PRINT "Choice?";
INPUT KK$;
KKX = VAL(KK$)
IF KK$ > "" THEN
R1 = KKX
ENDIF
ENDIF
if X$ = "2" THEN
FOR JKL = 1 to 20
PRINT JKL;
PRINT " ";
PRINT ">";
PRINT B$(JKL)
NEXT JKL
PRINT "Choice?";
INPUT KK$;
KKX = VAL(KK$)
IF KK$ > "" THEN
R2 = KKX
ENDIF
ENDIF
if X$ = "3" THEN
FOR JKL = 1 to 20
PRINT JKL;
PRINT " ";
PRINT ">";
PRINT C$(JKL)
NEXT JKL
PRINT "Choice?";
INPUT KK$;
KKX = VAL(KK$)
IF KK$ > "" THEN
R3 = KKX
ENDIF
ENDIF
if X$ = "4" THEN
FOR JKL = 1 to 20
PRINT JKL;
PRINT " ";
PRINT ">";
PRINT D$(JKL)
NEXT JKL
PRINT "Choice?";
INPUT KK$;
KKX = VAL(KK$)
IF KK$ > "" THEN
R4 = KKX
ENDIF
ENDIF
if X$ = "5" THEN
FOR JKL = 1 to 20
PRINT JKL;
PRINT " ";
PRINT ">";
PRINT E$(JKL)
NEXT JKL
PRINT "Choice?";
INPUT KK$;
KKX = VAL(KK$)
IF KK$ > "" THEN
R5 = KKX
ENDIF
ENDIF
if X$ = "l" THEN
FOR JKL = 1 to 10
PRINT JKL;
PRINT " ";
PRINT ">";
PRINT X1$(JKL)
NEXT JKL
PRINT "Choice?";
INPUT KK$;
KKX = VAL(KK$)
IF KK$ > "" THEN
XR1 = KKX
ENDIF
ENDIF
IF X$ = "r" THEN
RANDOMIZE
R1 = RND(0)
R1 = R1 MOD 20
R1 = R1+1
R2 = RND(0)
R2 = R2 MOD 20
R2 = R2+1
R3 = RND(0)
R3 = R3 MOD 20
R3 = R3+1
R4 = RND(0)
R4 = R4 MOD 20
R4 = R4+1
R5 = RND(0)
R5 = R5 MOD 20
R5 = R5+1
XR1 = RND(0)
XR1 = XR1 MOD 10
XR1 = XR1+1
ENDIF
IF X$ = "c" THEN
print "ITEM?";
input WORD$;
IF WORD$ > "" THEN
WORD$ = UCASE$(WORD$)
WORD$ = WORD$ + " "
ENDIF
ENDIF
IF X$ = "e" THEN
IF EXTRA = 0 then
EXTRA = 1
ELSE
EXTRA = 0
ENDIF
ENDIF
IF X$ = "s" THEN
IF SWAP = 0 then
SWAP = 1
ELSE
SWAP = 0
ENDIF
ENDIF
print "============================================"
goto MAIN: