1  REM  ****  HP BASIC PROGRAM LIBRARY  ******************************
2  REM
3  REM        WORD:  A WORD GAME
4  REM
5  REM        36660  REV A  --  10/73
6  REM
7  REM  ****  CONTRIBUTED PROGRAM  ***********************************
10  REM PROGRAM BY: CRAIG JENSEN
20  PRINT TAB(15)"A WORD GAME"
30  O=W=R=0
40  DIM A$[72],B$[72],C$[72],A[20]
50  RESTORE 
60  A$=""
70  B$=""
80  C$=""
90  MAT A=ZER
100  A=INT(42*RND(1)+1)
110  FOR B=1 TO A
120  READ A$
130  NEXT B
140  C=LEN(A$)
150  FOR E=1 TO C
160  D=INT(C*RND(1)+1)
170  IF A[D]=1 THEN 160
180  B$[E,E]=A$[D,D]
190  A[D]=1
200  NEXT E
210  IF A$=B$ THEN 150
220  PRINT '10"HOW MANY SECONDS DO YOU NEED TO ANSWER";
230  INPUT F
240  IF F>0 THEN 270
250  PRINT "INPUT A POSITIVE TIME!!"
260  GOTO 220
270  PRINT '10"THE SCRAMBLED WORD IS: "B$
280  ENTER F,G,C$
290  IF G=-256 THEN 320
300  IF A$=C$ THEN 390
310  GOTO 360
320  PRINT '13'10"OVERTIME!!"
330  O=O+1
340  PRINT "THE CORRECT ANSWER IS: "A$
350  GOTO 420
360  PRINT '10"WRONG!!"
370  W=W+1
380  GOTO 340
390  PRINT '10"CORRECT!!"
400  PRINT "YOU ANSWERED IN"G"SECONDS"
410  R=R+1
420  PRINT "TOTALS:"'13'10"CORRECT"R",WRONG"W",OVERTIME"O
430  PRINT '10"ANOTHER";
440  INPUT C$
450  IF C$[1,1]="Y" THEN 40
460  PRINT '10'10'10"YOU ANSWERED:"
470  T=O+W+R
480  X=INT(R/T*100+.5)
490  Y=INT(W/T*100+.5)
500  Z=INT(O/T*100+.5)
510  PRINT '10X"% CORRECT,"Y"% WRONG, AND"Z"% OVERTIME"
520  PRINT '10'10"WHEN THE PAPER STOPS, YOU MAY SAVE THIS GAME IF YOU WISH"
530  PRINT "GOOD-BYE!!!"
540  PRINT '10'10'10'10'10'10'10
550  DATA "OFFICE","LOCAL","CABLE","STATUS","CLOCK","CONTROL"
560  DATA "CURVE","ADDRESS","TITLE","STATE","ORDER","INDEX"
570  DATA "LIBRARY","GROUP","PAPER","SERVICE","MEMORY","SYSTEM"
580  DATA "ALARM","CHAIR","TABLE","SPACE","CEILING","BUSINESS"
590  DATA "FLOOR","LIGHT","WHEEL","GRAPH","ORBIT","START"
600  DATA "GLASS","BRICK","DRIVER","MANUAL","PLAYER","ADULT"
610  DATA "CHILD","VALUE","PLACE","SCORE","FIRST","THIRD"
620  END 
