REM PROGRAMMED BY: TRAVIS SCHULTZ
CLS
RANDOMIZE VAL(MID$(TIME$, 7, 2))
FOR I = 1 TO 500: LOCATE (RND * 17) + 5, (RND * 77) + 1: COLOR 3: PRINT "SCRAMBLED EGGS": NEXT
PLAY "MB"
PLAY "O2 L12 D N0 >D l32 E L12 DC+<B>C+ N0 DE< N0"
PLAY "AD N0 >D l32 E l12 D C+<B>C+ N0 DE N0"
PLAY "<AD> N0 FA..GF N0 A >C..< A+A N0 >CEDC+<A+GFE"
PLAY "<D> N0 D l32 E l12 DC+<B>C+ N0 DE< N0"
PLAY "AD N0 >D L32 E L12 DC+<B>C+ N0 DE N0.. F N0 A >C< A+AGF"
PLAY "D+GA+DC+DE N0 F L9 E. L12 D"
PLAY "D+GA+DC+DE N0 F L9 E. L12 D"
10 CLS : KEY OFF: LOCATE 5, 25: PRINT "S C R A M B L E D   E G G S"
15 DEF SEG : POKE 106, 0
20 LOCATE 9, 25: PRINT "DO YOU WISH INSTRUCTIONS";
30 C$ = INKEY$: RANDOMIZE RND * 1000: IF C$ = "" THEN 30 ELSE IF C$ <> "Y" AND C$ <> "y" THEN 140
40 CLS : PRINT "THE OBJECT OF THIS GAME IS TO TRY AND UNSCRAMBLE A FIVE LETTER WORD AS QUICKLY AS POSSIBLE.  THE FASTER YOU ARE THE MORE POINTS YOU SCORE. YOU HAVE ONLY 60 SECONDS FOR EACH WORD."
50 PRINT : PRINT "FOR EXAMPLE:"
60 PRINT "              T M C H A     WOULD BE     M A T C H "
70 PRINT "                               OR"
80 PRINT "              N L A B K     WOULD BE     B L A N K "
90 PRINT : PRINT "THE COMPUTER CONTROLS THE ENTIRE GAME.   YOU   D O   N O T   HIT ENTER - - - MERELY TYPE IN THE WORD YOU BELIEVE TO BE CORRECT."
100 PRINT : PRINT : PRINT : INPUT "PRESS ENTER TO TURN THE PAGE"; E$
110 CLS : PRINT "IF YOU MAKE A MISTAKE TYPING - - - FINISH THE WORD - - - YOU MAYNOT BACKSPACE."
120 PRINT : PRINT "SOME WORDS MAY BE USED MORE THAN ONCE AND SOME MAY EVEN APPEAR  IN CORRECT ORDER.  EACH GAME CONSISTS OF TEN WORDS FOR EACH     PLAYER."
130 PRINT : PRINT "HAVE FUN!": PRINT : PRINT : PRINT : INPUT "PUSH ENTER TO BEGIN"; G$
140 CLS
150 INPUT "1ST PLAYERS NAME"; N$(1)
160 INPUT "2ND PLAYERS NAME"; N$(2)
170 X = 0: CLS : PRINT N$(1); "'S TURN"
180  FOR O = 1 TO 500: NEXT O: GOTO 210
190 X = 0: CLS : PRINT N$(2); "'S TURN"
200  FOR O = 1 TO 500:  NEXT O
210 RESTORE
220 Q = INT(210 * RND) + 1
230 FOR F = 1 TO Q
240 READ A$
250 IF A$ = "END" THEN 210
260 NEXT F
270 A$(1) = MID$(A$, 1, 1)
280 A$(2) = MID$(A$, 2, 1)
290 A$(3) = MID$(A$, 3, 1)
300 A$(4) = MID$(A$, 4, 1)
310 A$(5) = MID$(A$, 5, 1)
320 FOR I = 1 TO 5
330 R = INT(5 * RND) + 1
340 IF A$(R) = "0" THEN 330
350 B$(I) = A$(R)
360 A$(R) = "0"
370 NEXT I
375 T1$ = RIGHT$(TIME$, 2)
377 T$ = RIGHT$(TIME$, 2): IF T$ = T1$ THEN 377
380 LOCATE 5, 24: COLOR 15: FOR I = 1 TO 5
390 PRINT B$(I); "     ";
400 NEXT I: COLOR 7
410 V$ = INKEY$: IF V$ <> "" THEN 410
420 GOSUB 900: V$ = I$
440 LOCATE 9, 28: PRINT V$;
450 GOSUB 900: W$ = I$
470 LOCATE 9, 32: PRINT W$;
480 GOSUB 900: X$ = I$
500 LOCATE 9, 36: PRINT X$;
510 GOSUB 900: Y$ = I$
530 LOCATE 9, 40: PRINT Y$;
540 GOSUB 900: Z$ = I$
560 LOCATE 9, 44: PRINT Z$;
570 IF A$ = (V$ + W$ + X$ + Y$ + Z$) THEN 590
580 LOCATE 9, 20: PRINT TAB(60); : GOTO 410
590 S = S + 1: IF S / 2 = INT(S / 2) THEN 660
600 P1 = P1 + G
610 PRINT : PRINT : PRINT : PRINT TAB(6); "CORRECT!": PRINT
620 PRINT "YOU SCORE "; G; "POINTS"
630 LOCATE 22, 30: PRINT "ROUND"; INT(S / 2) + 1: PRINT
640 PRINT TAB(20); N$(1); P1; "       "; N$(2); P2;
650 FOR V = 1 TO 4000: NEXT V: GOTO 190
660 P2 = P2 + G
670 PRINT : PRINT : PRINT : PRINT TAB(6); "CORRECT!": PRINT
680 PRINT "YOU SCORE"; G; "POINTS"
690 LOCATE 22, 30: PRINT "ROUND"; S / 2: PRINT
700 PRINT TAB(20); N$(1); P1; "        "; N$(2); P2;
710 FOR V = 1 TO 4000: NEXT V
720 IF S = 20 THEN 730 ELSE 170
730 PRINT : PRINT "GAME OVER"; : END
740 PRINT : PRINT "   OUT OF TIME": PRINT : PRINT "THE WORD WAS "; A$
750 S = S + 1: IF S / 2 = INT(S / 2) THEN 690 ELSE 630
760 T$ = RIGHT$(TIME$, 2): IF T1$ <> T$ THEN T1$ = T$: X = X + 1: G = 61 - X
765 LOCATE 9, 65: PRINT G;
770 IF G <= 0 THEN 740
780 RETURN
790 DATA LEASE,FIRST,MONTH,MONEY,TOUCH,BRAND,TRULY,VALUE,RANGE,MUSIC,LEVEL,METER,POINT,TOTAL,PANEL,AMPLE,SOUND,THERE,THREE,ENJOY,BUILT,SHORT,COULD,CLEAN,PROOF,FLOOR,INDEX,PRICE,BOARD
800 DATA CABLE,CLOCK,TABLE,SMOKE,NOISE,LOWER,BASIC,AUDIO,FRONT,WHILE,RATIO,IMAGE
810 DATA FRONT,OTHER,IDEAL,STORE,POWER,WOMEN,TOTAL,MAGIC,GLOBE,MODEL,PRINT,TOWER,COVER,EIGHT,GLIDE,WATER,TODAY,PIZZA,METAL,SHELF,DRIVE,CLASS,GREAT,LIGHT,SCALE,STYLE,BREAD,DRINK,PHONE
820 DATA SHAPE,GREEN,GLASS,SAUCE,SLICE,HEART,LARGE,STEAM,ONION,STACK
830 DATA CREAM,CRUST,SALAD,EXTRA,ORDER,BACON,BLACK,OLIVE,SMALL,SPEAR,SCREW,SEVEN,DOUGH,FLOAT,HEARD,SOLID,HEAVY,CRISP,PINCH,PUNCH,SENSE,SOLID,STAND,EVERY,SHOCK,VINYL,MAPLE,WOVEN,GRAIN
840 DATA SKATE,FORCE,COLOR,PIECE,ANGLE,PITCH,WORTH,ABOUT,WEIGH,CHECK,HANDY,CANDY
850 DATA SWEEP,PATCH,WAGON,TRUCK,POUND,TOWEL,PAPER,QUIET,SPACE,RADIO,THESE,CARRY,ALONG,READY,THERE,WHERE,ALARM,PAUSE,TIMER,CLOTH,SHACK,STICK,ERASE,ALBUM,START,LAPEL,WHITE,DELAY
860 DATA EJECT,SLIDE,IDEAL,MINUS,GRAPH,FLOAT,QUICK,BLANK,SUITE,NYLON
870 DATA PROBE,RELAY,SOLID,SWEET,SLOPE,SLEEP,COUNT,LOGIC,MOUNT,DECAL,SCALE,ORDER,TORCH,SPADE,SCOPE,LABEL,ROUND,WAFER,CARRY,LOWER,TEACH,AGAIN,MOTOR,MAJOR,LEARN,ORGAN,GRIPE,EAGLE
880 DATA GAUGE,MATCH,AWARE,TRUNK,CLAMP,OTHER,WOULD,LIMIT,SWING,WRIST
890 DATA END
900 I$ = INKEY$: IF I$ = "" THEN GOSUB 760: GOTO 900
910 IF LEN(I$) > 1 THEN 900
920 I = ASC(I$): IF I > 96 AND I < 123 THEN I = I - 32
930 I$ = CHR$(I)
940 RETURN



END