1000 IF WD$(J,I) >WD$(J +1,I) THEN T$ = WD$(J,I):WD$(J,I) = WD$(J +1,I):WD$(J +1,I) = T$:CH = 1
1010 NEXT J
1020 IF CH = 0 THEN K = LI
1030 NEXT K
1040 NEXT I
1050 RETURN
1060 REM RESET "0" COUNTS
1070 FOR I = 1 TO NP
1080 FOR J = 1 TO VAL(WD$(0,I))
1090 IF WD$(J,I) = "^^^" THEN WD$(0,I) = STR$(J -1): GOTO 1110
1100 NEXT J
1110 NEXT I
1120 RETURN
1130 REM PICK RANDOM NUMBERS & LETTERS
1140 FOR I = 1 TO 5: FOR J = 1 TO 5
1150 X = INT( RND(1) *6) +1
1160 L$(I,J) = MID$ (CC$(I,J),X,1)
1170 NEXT J,I
1180 RETURN
1190 REM ERROR END
1200 CALL 768: REM ON ERR CLEAR
1210 LI = PEEK(218) + PEEK(219) *256
1220 ER = PEEK(222)
1230 POKE 216,0
1240 PRINT "AN ERROR #";ER;" HAS OCCURRED IN LINE ";LI
1250 END
1260 REM **********************
1270 REM ENTER PLAYERS
1280 REM **********************
1290 TEXT : HOME
1300 Q$ = "ENTER PLAYERS' NAMES": GOSUB 160
1310 VTAB 4: PRINT " (RETURN EXITS)"
1320 VTAB 3: INPUT "HOW MANY PLAYERS (1-4)? ";A$
1330 IF A$ = "" THEN RETURN
1340 IF A$ <"1" OR A$ >"4" THEN PRINT G$;: GOTO 1290
1350 NP = VAL(A$)
1360 FOR I = 1 TO NP
1370 VTAB 5 +I: PRINT "PLAYER "I"'S (10 CHARS): ";: INPUT "";PL$(I): IF LEN(PL$(I)) >10 THEN PL$(I) = LEFT$(PL$(I),10)
1380 SC(I) = 0
1390 NEXT I
1400 VTAB 20: CALL -958: PRINT "IS THE ABOVE OK (Y/N) Y"; CHR$(8);: INPUT "";A$
1410 IF A$ = "N" THEN 1290
1420 U = 2: RETURN
1430 REM **********************
1440 REM PLAY THE GAME
1450 REM **********************
1460 NS = 11000: REM TIME LIMIT = 3 MINUTES
1470 GOSUB 1130: REM GENERATE LETTERS
1480 IF NP = 0 THEN NP = 1
1490 PC = 0
1500 HOME
1510 FOR PN = 1 TO NP
1520 TEXT : HOME : PRINT "PLEASE HAVE ";: INVERSE : PRINT PL$(PN);: NORMAL : PRINT " SIT IN FRONT": PRINT "OF THE APPLE NOW -- ALL OTHER PLAYERS PLEASE DON'T WATCH!!!"
1530 PRINT : PRINT "PRESS RETURN TO CONTINUE": INPUT "";A$