1 KEY OFF:CLS
20 INPUT "WHAT WAS THE RELIABILITY OF THE ORIGINAL SCALE? ",R1
30 INPUT "WHAT RELIABILITY ARE YOU AIMING FOR? ",R2
32 I1=1
70 CLS
80 PRINT "SPEARMAN BROWN PROPHECY FORMULA PROGRAM"
90 PRINT "PROGRAMMER: RON HAYS, RAND CORPORATION"
100 PRINT "ORIGINAL SCALE HAD";I1;"ITEMS AND"
110 PRINT "A RELIABILITY OF";R1
120 PRINT "********************"
121 I=0
122 I=I+1
124 IF I>11 GOTO 145
126 I2=R2*(R1-1)/(R1*(R2-1))
140 PRINT "NEW SCALE WITH";I2;"ITEMS HAS A RELIABILITY OF ";R2
142 R2=(R2-.01)
143 GOTO 122
145 PRINT "********************"
150 END
155 PRINT " "
160 INPUT "ADVANCE SCREEN WHEN READY BY PRESSING RETURN",ADVANCE
170 PRINT " "
175 GOTO 124
*****"
150 END
155 PRINT " "
160 INPUT "ADVANCE SCREEN WHEN READY BY PRESSING RETURN",ADVANCE