1310 HOME : VTAB 10: PRINT "WHICH WORD LIST DO YOU WANT?": PRINT : PRINT "YOUR CHOICES ARE LIST NUMBERS 1 TO "NL;: INPUT " ";NL$:LI = VAL(NL$): IF LI <1 OR LI >NL THEN 1310
1320 PRINT D$;"OPEN WORDLIST"LI",L26"
1330 PRINT D$;"READ WORDLIST"LI",R0"
1340 INPUT NW
1350 FOR K = 1 TO NW
1360 PRINT D$;"READ WORDLIST"LI",R"K
1370 INPUT S$(K): NEXT K
1380 PRINT D$;"CLOSE"
1390 HOME : VTAB 10: PRINT "ENTER THE NUMBER OF WORDS YOU WANT"
1400 PRINT : PRINT "TO ALPHABETIZE ON THE ELEVATOR.": PRINT
1410 WN = 10
1420 IF NW < = 10 THEN WN = NW
1430 PRINT "ENTER A NUMBER FROM 2 TO "WN;: INPUT " ";N$:N = VAL(N$): IF N <2 OR N >WN THEN VTAB 14: HTAB 1: CALL -868: GOTO 1430
1440 FOR K = 1 TO N
1450 T$ = S$( INT(NW * RND(1)) +1)
1460 IF K = 1 THEN 1500
1470 FOR L = 1 TO K -1
1480 IF T$ = WL$(2,L) THEN 1450
1490 NEXT L
1500 WL$(2,K) = T$
1510 NEXT K
1520 REM ** DRAW ELEVATOR **
1530 HGR2 : HCOLOR= 3
1540 IF PEEK(2051) = 141 THEN 1560
1550 PRINT D$;"BLOAD PRINTER": PRINT D$"BLOADPTABLE": IF PEEK(48896) = 76 THEN POKE 2050,216: PRINT CHR$(4)"PR# A$802": POKE 8,0: GOTO 1570
1560 POKE 54,3: POKE 55,8: POKE 8,0
1570 HPLOT 0,0 TO 279,0 TO 279,191 TO 0,191 TO 0,0: HPLOT 0,159 TO 279,159: HPLOT 0,35 TO 279,35
1580 CL = INT(7 * RND(1)) +1: HCOLOR= CL
1590 FOR Y = 1 TO 34: HPLOT 2,Y TO 277,Y: NEXT Y: HCOLOR= 3
1600 VTAB 2: HTAB 8: PRINT " W O R D E L E V A T O R ": PRINT
1940 PRINT S$(K): NEXT K: PRINT D$;"CLOSE": RETURN
1950 REM ** GAME INSTRUCTIONS **
1960 HOME : INVERSE : HTAB 7: PRINT "WORD ELEVATOR INSTRUCTIONS": NORMAL : PRINT : PRINT
1970 PRINT " THE COMPUTER WILL PUT WORDS ON ONE SIDE OF THE SCREEN. THE WORDS MAY NOT BE IN ALPHABETICAL ORDER.": PRINT
1980 PRINT " IT IS YOUR JOB TO USE THE ELEVATOR TO MOVE THE WORDS TO THE OTHER SIDE OF THE SCREEN. THE WORDS MUST BE PLACED IN ALPHABETICAL ORDER.": PRINT
1990 PRINT " THE COMPUTER WILL KEEP TRACK OF HOW LONG IT TAKES. IF YOU ARE FAST ENOUGH, THE COMPUTER WILL ADD YOUR NAME TO THE 'BEST TEN SCORES'."
2000 POKE 8,0: VTAB 22: PRINT "PRESS <RETURN> KEY ";: GET A$: PRINT : IF ASC(A$) < >13 THEN VTAB 22: HTAB 1: CALL -868: GOTO 2000
2010 N = 3:WL$(2,1) = "COMPUTER":WL$(2,2) = "CHIP":WL$(2,3) = "APPLE"