1 KEY OFF:CLS
10 INPUT "HOW MANY ITEMS WERE IN THE ORIGINAL SCALE? ",I1
20 INPUT "WHAT WAS THE RELIABILITY OF THE ORIGINAL SCALE? ",R1
30 INPUT "HOW MANY ITEMS ARE IN THE NEW SCALE? ",I2
35 I3=I2+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
123 IF I=20 OR I=41 OR I=62 GOTO 155
124 IF I>I2 GOTO 145
125 I3=I3-1
126 RATIO=I3/I1
128 RATIO2=RATIO-1
130 R2=(RATIO*R1)/(1+(RATIO2*R1))
140 PRINT "NEW SCALE WITH";I3;"ITEMS HAS A RELIABILITY OF ";R2
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