Word Images

   10 REM * WORD IMAGES *"
   15 LET S$=""
   18 LET NOUN=9000
   20 LET VERB=9010
   22 LET ADJECTIVE=9020
   24 LET ADVERB=9030
   26 LET PREP=9040
   28 LET OBJECT=9050
   30 LET P=0
   60 PRINT AT 3,7;"*** WORD IMAGES ***"
   70 PRINT : PRINT "Select the sentence order you   want to produce. EXAMPLE:"
   80 PRINT : PRINT "3/1/2/4 (ENTER)": PRINT "prints a sentence order of      ADJECTIVE, NOUN, VERB, ADVERB"
   90 PRINT : PRINT TAB 1;"1-NOUN";TAB 1;"2-VERB";TAB 1;"3-ADJECTIVE";TAB 1;"4-ADVERB";TAB 1;"5-PREPOSITION";TAB 1;"6-OBJECT"
   95 PRINT AT 20,0;"press ENTER for computer        selections"
  100 INPUT A$
  102 IF A$="" THEN GO TO 8000
  105 CLS 
  110 REM Set-up
  115 RANDOMIZE 
  117 LET C=1
  120 FOR X=C TO LEN A$: IF A$(X)<>"5" THEN NEXT X: GO TO 125
  122 LET A$=A$( TO X)+"/6"+A$(X+1 TO ): LET C=X+4: GO TO 120
  125 FOR X=1 TO LEN A$
  130 IF A$(X)="/" THEN NEXT X
  140 IF A$(X)="1" OR A$(X)="2" OR A$(X)="3" OR A$(X)="4" OR A$(X)="5" OR A$(X)="6" THEN GO SUB 1000*VAL A$(X)
  145 NEXT X
  200 REM print sentence
  202 PAUSE 500: CLS 
  205 FOR X=1 TO LEN S$
  210 IF S$(X)=" " THEN PRINT 
  215 PRINT S$(X);
  220 NEXT X
  225 IF INKEY$=" " THEN RUN 
  230 LET S$="": IF p=0 THEN GO TO 125
  235 GO TO 8001+INT (RND*7)
 1000 REM noun
 1010 RESTORE NOUN
 1015 FOR Y=1 TO 20
 1020 READ W$: IF INT (RND*10)=3 THEN LET S$=S$+" "+W$: RETURN 
 1025 NEXT Y
 1030 GO TO 1001*VAL A$(X)
 2000 REM verb
 2010 RESTORE VERB
 2020 GO TO 1015
 3000 REM adjective
 3010 RESTORE ADJECTIVE
 3020 GO TO 1015
 4000 REM adverb
 4010 RESTORE ADVERB
 4020 GO TO 1015
 5000 REM preposition
 5010 RESTORE PREP
 5020 GO TO 1015
 6000 LET S$=S$+" THE"
 6010 RESTORE OBJECT
 6020 GO TO 1015
 8000 LET P=1
 8001 LET A$="1/2/1/5/6": GO TO 125
 8002 LET A$="3/1/5/6/4/2/1/5/6": GO TO 125
 8003 LET A$="3/1/2/4": GO TO 125
 8004 LET A$="1/2": GO TO 125
 8005 LET A$="1/5/6/2/1": GO TO 125
 8006 LET A$="1/5/6/2/4": GO TO 125
 8007 LET A$="3/1/4/2/1/5/6": GO TO 125
 9000 DATA "CHILDREN","PEOPLE","WORKERS","WARRIORS","WITCHES","LOVERS","BOYS","GIRLS","DOCTORS","BUTCHERS","PROGRAMMERS","ZOMBIES","MAGICIANS","TRUCKERS","ACTORS","POLITICIANS","MANIACS","PRIESTS","SAGES","ANALYSTS"
 9010 DATA "ENCOURAGE","PLUNDER","ATTRACT","WOO","CARESS","TOUCH","WATCH","INSPIRE","BRAINWASH","AMUSE","EVADE","FIGHT","SEDUCE","INSULT","BITE","EAT","PECK","ATTACK","EMULATE","HONOR"
 9020 DATA "BIG","SMALL","SWEET","SOUR","PASSIONATE","SILENT","LOUD","INTIMATE","FAT","SKINNY","SAD","JOYOUS","HUNGRY","THIRSTY","SATISFIED","GREEDY","GENEROUS","PEACEFUL","RAGING","STUFFED"
 9030 DATA "QUESTIONINGLY","SELFISHLY","FEARSOMELY","BRAVELY","AUTHORITAVELY","CARELESSLY","CAREFULLY","CONFIDENTLY","HALFHEARTEDLY","ENTHUSIASTICALLY","STUPIDLY","COLDLY","WARMLY","THOUGHTFULLY","MADLY","BLISSFULLY","GRUDGINGLY","QUICKLY","SLOWLY","WISELY"
 9040 DATA "IN","ABOUT","AROUND","FROM","CLEANING","LEAVING","BENEATH","ABOVE","PACING","WATCHING","BESIDE","NEAR","AT","WRECKING","BEHIND","ABOUT","ACROSS","ALONG","WITHIN","CRITICIZING"
 9050 DATA "HOUSE","OFFICE","STREET","SEWER","YARD","TUNNEL","CASTLE","MAZE","DESERT","SWAMP","FORT","FOREST","HIDEOUT","CITY","BEDROOM","COFFIN","OUTHOUSE","PENTHOUSE","CAVE","GRAVEYARD"
 9998 SAVE "WORDS"