L0CFS4000(C)D B HENSON L=(D-14)*100-86:`hhh`HHHPȱ qsprsɪȱrpqsrpO L D R U N hhh`FE60 15) pK%<>11 TjH z5:29,201;182;:  O:2:1,27,1,120,1,0:1,27,1,58,1,0,1,0,1,0:1,27,1,38,1,0,1,58,1,58 :1,&8B :1,0,1,0,1,0,1,34,1,0,1,0,1,0,1,0,1,34,1,0,1,0:1,27,1,38,1,0,1,59,1,59:1,&8B :1,0,1,170,1,0,1,0,1,0,1,85,1,0,1,0,1,0,1,170,1,0,:1,27,1,38,1,0,1,60,1,60 1,&8B :1,136,1,34,1,136,1,34 D%(26,26),B%(65,4),A%(65,4),C%(65,4),A(4):E%(65,4),A$(26) :?&D0=?&D0+2:X=&80:Z=&81:W=&82:U%=A%:?&FE62=224:D%=0:J=0:O=0:R=0:T=0:_=0:F%=0:H%=0:V%=0:C%=0:J%=0:E%=0:L%=0:U=0:Y=0:M=0:O%=0:E=0:M=0:K=0:Y=0:128:4,1:5:T:U:V:W:Q "%M:Z:F:R:D:F:N:B%(P,Q)=0G rJ<(4*O%)TbA w2I%=14:1,-11,52*I%,4:X%=(25): :B(1):X /B(6):A:K%=?&9F0:K%<12 K%>8: K%=11 S  K%=10 _:tAA  K%=9 E K%=0:tAA T:I=126:A$(I)=132," ") :V=I:H=33:K$="|":m:H=99:m: :V=13:H=4:K$=58,"_"):m:H=70:m :H=2:K$="30":m:H=62:m:H=68:m:H=128:m:H=33:K$="|":m:H=99:m :Q%=14:P%=052:B%(P%,Q%)=99:C%(P%,Q%)=99:P%,Q%:DdO:P%:O%=O%+1 Q%=14:B%(P%,Q%)=100: :P%=65:O%=O%-1 :Q%=14:B%(18,Q%)=8:A%(18,Q%)=20: :dHO:Y%=16 2 -2:X%=2 16 2:N% :U%>40 N%=N%-((U%-40)/10) 6(X%<9Y%>9 E%((Y%-10)*8+(8-X%),1)=N% 7*X%>9Y%>9 E%((Y%-10)*8+(X%-10),2)=N% 8,X%>9Y%<9 E%((8-Y%)*8+(X%-10),3)=N% 9)X%<9Y%<9 E%((8-Y%)*8+(8-X%),4)=N% : X%,Y%: NV X=B(2):?&9F0=16:K%=?&9F0:K%<12K%>8:A:B(1):K%=11d]B { K%=9 E  DXB (W%8)=0dbB +tPO:I%=110:X%,Y%:C%(X%,Y%)=100:I%  zZW:?&9F0=16:B(3):Q=(4):P=18:F:R:F:D:A%(P,Q)=A%(P,Q)+(4*F):A%(P,Q)<4 A%(P,Q)=0 (K%=?&9F0: K%=11 K%=9:A :K%=9 E &I=14:A%(18,I)=20::B(1):B(4): Q:R%=1 Q=3Q=4  tjO P:P=64TdD 3U%<40 A%(P,Q)=20 A%(P,Q)=20-((U%-40)/10) 3Q=3Q=4 Y%=48*(8-(P 8))Y%=48*(10+(P 8)) 6Q=1 Q=4 X%=48*(8-(P 8))X%=48*(10+(P 8)) vX%-50,Y%-18:X%+50,Y%-18:X%,Y%-88:X%,Y%+52:R:D:F=-1DBDX%-50,Y%-18:X%+50,Y%-18:X%,Y%-88:X%,Y%+52:drC $4B(1):B(8) :K%=?&9F0:K%<12 K%>8:A:K%=9 E 8$B(1):B(4):K%=11dhCD`D B#O=P:R=Q:B%(P,Q)=100 J=1:A(Q)=1 N+R=1 R=4 T=8-(O 8) T=10+(O 8) P(R=3R=4 _=8-(O 8) T=10+(O 8) RV=27-Y%/32:H=3+X%/16:K$="*******":m:H=69+X%/16:m : V=(25-Y%/32) (29-Y%/32):H=6+X%/16:K$="*":m:H=72+X%/16:m: :B%(P,Q)=64 ` t&Z:I=(18):I=1O>0 P=O:Q=R:tzD I=(35):I<3O Q=(4):A(Q)>O%-1tRD "P=(26):P=P*2:P<51 P=P+1P=0 B%(P,Q)<64  O:I=1T@E 01000,150:J%;"/";C%:C%=C%+1:D:F=1 J%=J%+1 1000,150:J%;"/";C%:TRE J<10TRE 1000,100:L%;"/";E% Q=(4):A(Q)<2TDE P=(64):P<64 P=P+1P=0  B%(P,Q)=110:A%(P,Q)<6TPE  'F:V%=1:R:V%=0:D:F:F=-1 L%=L%+1  E%=E%+1 1000,100:L%;"/";E%  D:`=+2/300:F=-1 (/?&9F0=2 F=1:1,-9,104,2:A:>`-20 c=(20) 2 <`ThE < P$N:B%(P,Q)=8 G=4*F:B%(P,Q)=4*F dB%(P,Q)=-4F<0 G=-4:dRE n'B%(P,Q)=-4F>0 G=2:B%(P,Q)=2:dRE xB%(P,Q)=4F>0 G=4:dRE (B%(P,Q)=4F<0 G=-2:B%(P,Q)=-2:dRE B%(P,Q)=-2F<0 G=-2:dRE 'B%(P,Q)=-2F>0 G=1:B%(P,Q)=0:dRE B%(P,Q)=2F>0 G=2:dRE 'B%(P,Q)=2F<0 G=-1:B%(P,Q)=0:dRE 3B%(P,Q)=64@%=&2000:1000,50:H%;"/";F%:F%=F%+1 B%(P,Q)=64F=1 H%=H%+1 (B%(P,Q)=641000,50:H%;"/";F%:dfE 4A%(P,Q)=A%(P,Q)+G:A%(P,Q)<0 A%(P,Q)=0:B%(P,Q)=0  >G:(W%16)>0C%(P,Q)=99(A%(P,Q)-E%(P,Q))>4 C%(P,Q)=100 #C%(P,Q)<>100 J=J+1:A(Q)=A(Q)+1 EI:C%(P,Q)=100 C%(P,Q)=A%(P,Q):A%(P,Q)=A%(P,Q)-8:B%(P,Q)=8:DrF "]B%(P,Q)=110:A=(P 8)-2 (P 8)+2 2:B=(P 8)-2 (P 8)+2 2:A<0B<0A>7B>7DhF JA=P 8 B=P 8 DhF TB%(A*8+B,Q)<>100DhF ^'B%(A*8+B,Q)=8:A%(A*8+B,Q)=A%(P,Q)-4 hB,A r T I :V=(18-Y%/48)*3/2: C%(P,Q)=99 C%(P,Q)=100 4,X%,Y% 4,X%,Y%-32:V=V+1 ^H=5+X%/16: A%(P,Q)>9 8,(48+(A%(P,Q) 10)),(48+(A%(P,Q) 10)) 8,(48+A%(P,Q)):H=H+1 -K$=(A%(P,Q)):m : C%(P,Q)=100 tdF ; C%(P,Q)=99 T%=A%(P,Q) T%=(A%(P,Q)+C%(P,Q))/2 %H=71+X%/16: E%(P,Q)-T%<10 H=H+1  E%(P,Q)-T%<0 H=H-1 %V=27-Y%/32:K$=(E%(P,Q)-T%):m  : 9F:Q=3 Q=4 Y%=48*(8-(P 8))Y%=48*(10+(P 8)) 4Q=1 Q=4 X%=48*(8-(P 8))X%=48*(10+(P 8)) 4,X%,Y%:8,243,243: @R:@%=&2000:1000,200:D%:D%=D%+1:I%=14:I%<>Q ?X=0:&C50 I%<>Q ?X=0:&C50 & I%=Q ?X=2^(P 8):&C50 0I%=Q ?X=2^(P 8):&C50 :+I%:V%=0 D=A%(P,Q)/10D=(A%(P,Q)-4)/10 ID>8.5 D=8.5 Nd1000,200:D%:D=(3*10^D)-2:?W=D 256:?Z=D 256:&8C0 : A%(P,Q)<44 ?&FE60=32 ?&FE60=0 bc%=20:?&FE60=0 : M:?&9F0<>11dFG BA:B(1):B(5):K%=?&9F0:K%=11 K%=9:A:B(1):K%=11 B(4)  K%=9 E  څJ(L,M%):D=L /2 /15:S=D:C=(1-S*S) :N%=M% 400 80:G%=N%*S:I%=N%*C :69,G%,I%:69,-G%,-I%:69,-G%,I%:69,G%,-I%::: $S: A B(1):B(7) ttJ  *FX3,10 *27,51,90:27,69:" Patient ..................... Date ../../..":" Number ................... DOB ../../..":" Rx worn at test ................ VA ... " f,:R%=133"RIGHT EYE"33"LEFT EYE" k27,70:27,51,24:@%=00006 :15:27);"Thresholds (db)";93);"Defect (db)" :I=126:A$(I): :23);"0 corresponds to 300 cd/m2";82);"Comparison with age matched norms":1,10,1,10,1,10,1,10,1,10,1,10,1,10,18:B%=2 23 3:A%=2 23 VZ%=((A%-2) 3)*3+2:_%=((A%+1) 3)*3+2 :D%(A%,B%)=((3-(Z%-A%))/3)*D%(Z%,B%)+((3-(_%-A%))/3)*D%(_%,B%):A%,B%:A%=1 24:B%=12 1 -1:H :B%:B%=11 24:H:B% :A%:B%=24 1 -1 :@%=&0000:7;:A%=124 2(A%-12.5)^2+(B%-12.5)^2>132 " ";:dbI /D%(A%,B%) 6<6(63-D%(A%,B%) 6);" "; 7:B%=2215:60)"Mean defect ";(E+.5);:18 HB%=20 @%=&20100:15:60)"Loss Variance ";(10*K+.5)/10;:18 PB%=18(W%8)>0 @%=&20100:15:60)"Fluctuation (RMS) ";(10*Y+.5)/10;:18 UB%=16(W%8)>0 @%=&20100:15:60)"Corrected loss var ";(10*(K-M)+.5)/10;:18 (NB%=735)" ? ";:15:" 0-5 db"72)"Fixation losses ";H%;"/";F%;:18 2,B%=635)" > ";:15:" 6-11 db";:18 (Y%-4)B%<(Y%+2)(X%+6)" | ";33" | ";:13 /B%=1215:" 30";60"30 30";60"30";:18,13 B%=12B$;B$;:13 19"|";37"|": X:P:`:K:c:L : K:Q=14:A%(38,Q)=(A%(36,Q)+A%(22,Q))/2:A%(52,Q)=(A%(50,Q)+A%(36,Q))/2:A%(54,Q)=(A%(52,Q)+A%(38,Q))/2:B%(38,Q)=100:B%(52,Q)=100:B%(54,Q)=100:Q:P%=0 52 2:Q%=1 4:B%(P%,Q%)=99 TvK ,4C%(P%,Q%)<>99 A%(P%,Q%)=(A%(P%,Q%)+C%(P%,Q%))/2 -AA%=(P% 8)*3/2:B%=(P% 8)*3/2 : Q% TpK,TrK,TsK,TtK 0"D%(11-A%,14+B%)=A%(P%,1):TvK 2"D%(14+A%,14+B%)=A%(P%,2):TvK 3"D%(14+A%,11-B%)=A%(P%,3):TvK 4D%(11-A%,11-B%)=A%(P%,4) 6 Q%,P%: T P:T=0 DfK VNX%=(T-1)(T+1):Y%=(_-1)(_+1):X%<9Y%>9 Q%=1:P%=(Y%-10)*8+(X%-8):DbK Z/X%>9Y%>9 Q%=2:P%=(Y%-10)*8+(X%-10):DbK \/X%>9Y%<9 Q%=3:P%=(Y%-8)*8+(X%-10):DbK ^(X%<9Y%<9 Q%=4:P%=(Y%-8)*8+(X%-8) bB%(P%,Q%)=99:Y%,X% f l9c:N=0:P%=0 52 2:Q%=1 4:B%(P%,Q%)<>110tPK "E=E+E%(P%,Q%)-A%(P%,Q%):N=N+1 Q%,P%:E=E/N: 8L:N=0:P%=0 52 2:Q%=1 4:B%(P%,Q%)<>110thK (K=K+(E%(P%,Q%)-A%(P%,Q%)-E)^2:N=N+1 Q%,P%:K=K/N : `:(W%8)=0dHK 7N=0:tPO:I%=110:P%,Q% :C%(P%,Q%)>60 txK GU=(A%(P%,Q%)+C%(P%,Q%))/2:N=N+1:M=M+(A%(P%,Q%)-U)^2+(C%(P%,Q%)-U)^2 I%:M=M/N:Y=(M)  U:5,26,29,640;600;::J(0,80):J(/30,160):J(/60,400):J(3*/60,400):-400,0:400,0:0,-400:0,400:29,201;182;:@%=&2000:805,200:"Questions":805,50:"Fix losses":805,150:"Pos errors":805,100:"Neg errors" v1000,200:D%:1000,50:H%;"/";F%:1000,150:J%;"/";C%:1000,100:L%;"/";E%:4:R%=138,0);"RIGHT"38,0);"LEFT" U0:131:0,0)(16):" FULL THRESHOLD ":" PROGRAM ":(16):3:128:5 : :7B(S%):4:a=:b=:28,0,31,78,26,30:S%=1DbL X0:131:(34) b>S%DlL,DvL,tHL,t^L,thL,dpL,duL,ddL,tKL,tBL,tTL l:(34):dxL v1" Press A to start test ":dvL 1" Transferring data ":dxL Y" Demonstration routine " :" Press A to start testing ":dvL " Waiting for signal from host " :" computer. If not received in 30 ":" secs request cancelled ":dxL ]" Aborting transfer " :" Host computer not ready ":dxL 2" Press A to halt test ":dxL 2" Press A to continue ":dvL ~" Blind spot not found ":" Press A to try again " :" B to continue ":dvL " Press A to print results " :" B to transfer data " :" C to test next eye ":dxL 0" Printing ":dxL -" C to exit " $(34);:3:128 :b,a);:5: "A:(?&FE6016)=0:?&9F0=16: >ݤA:*FX21,3 M2,1,0,1,0,3:=(-4=63): UN m :A$="" :L=(K$) :A$=A$(V),H-1)+K$+A$(V),132-(H+L)) :A$(V)=A$: f_:*FX15,0 h(?&FCC0 32)>0 tXM p B(9) *FX2,1 *FX5,2 *FX3,4 #@%=00003:(?&FCC0 32)>0 dVM G$=3000:G$=""tHN G$<>"H"dJM B(1):B(10):*FX3,7 '`%=0:C(40):(?&FCC0 32)=0 DLN `=(700):(-3)=191 DLN *FX3,0 *FX15,0 "B(1):B(11):7:`=(400):tHN L R%=1 a%=1 a%=0 NC(a%):C(U%):C((E+.5)):C((10*K+.5)):C((10*Y+.5)):C((10*(K-M)+.5)):C(H%):C(F%):C(L%):C(E%):C(J%):C(C%):DdO:I=113:P:Q=14:C(A%(P,Q)):Q,I:a  *FX2,2 @%=&20105:*FX3,0  *FX5,1  "C(b%):`%=`%+b%:b%;",";: ja:(&100-`%)&FF;",": :::"AT LINE ";::"Returning you to display":c%=400:Y:dfE:*FX200,0 (4:I%=11000:?(+I%)=0::23,1,1;0;0;0;:*FX142,1 d 0,2,4,6 n'16,18,20,22,32,34,36,48,50 65 18,1,34,1,18,2,34,2 &0,3,18,3,36,3,0,4,18,4,36,4,65,65 )4,3,5,12,11,13,20,2,6,10,14,19,21,64 31,31,31,31,31,31,31,31 31,31,32,32,32,32,31,31 31,32,33,33,33,33,32,31 31,32,33,34,34,33,32,31 31,32,33,34,34,33,32,31 31,32,33,33,33,33,32,31 31,31,32,32,32,32,31,31 31,31,31,31,31,31,31,31  E:4:0:*FX138,0,42 *FX138,0,83 *FX138,0,13  pr H:Z%=((B%-2) 3)*3+2:_%=((B%+1) 3)*3+2 :D%(A%,B%)=((3-(Z%-B%))/3)*D%(A%,Z%)+((3-(_%-B%))/3)*D%(A%,_%): fect (db)" :I=126:A$(I): :23);"0 corresponds to 300 cd/m2";82);"Comparison with age matched norms":1,10,1,10,1,10,1,10,1,10,1,10,1,10,18:B%=2 23 3:A%=2 23 VZ%=((A%-2) 3)*3+2:_%=((A%+1) 3)*3+2 :D%(A%,B%)=((3-(Z%-A%))/3)*D%(Z%,B%)+((3-(_%-A%))/3)*D%(_%,B%):A%,B%:A%=1 24:B%=12 1 -1:H :B%:B%=11 24:H:B% :A%:B%=24 1 -1 :@%=&0000:7;:A%=124 2(A%-12.5)^2+(B%-12.5)^2>132 " ";:dbI /D%(A%,B%) 6<6(63-D%(A%,B%) 6);" "; 7:B%=2215:60)"Mean defect ";(E+.5);:18 HB%=20 @%=&20100:15:60)"Loss Variance ";(10*K+.5)/10;:18 PB%=18(W%8)>0 @%=&20100:15:60)"Fluctuation (RMS) ";(10*Y+.5)/10;:18 UB%=16(W%8)>0 @%=&20100:15:60)"Corrected loss var ";(10*(K-M)+.5)/10;:18 (NB%=735)" ? ";:15:" 0-5 db"72)"Fixation losses ";H%;"/";F%;:18 2,B%=635)" > ";:15:" 6-11 db";:18 (Y%-4)B%<(Y%+2)(X%+6)" | ";33" | ";:13 /B%=1215:" 30";60"30 30";60"30";:18,13 B%=12B$;B$;:13 19"|";37"|": X:P:`:K:c:L : K:Q=14:A%(38,Q)=(A%(36,Q)+A%(22,Q))/2:A%(52,Q)=(A%(50,Q)+A%(36,Q))/2:A%(54,Q)=(A%(52,Q)+A%(38,Q))/2:B%(38,Q)=100:B%(52,Q)=100:B%(54,Q)=100:Q:P%=0 52 2:Q%=1 4:B%(P%,Q%)=99 TvK ,4C%(P%,Q%)<>99 A%(P%,Q%)=(A%(P%,Q%)+C%(P%,Q%))/2 -AA%=(P% 8)*3/2:B%=(P% 8)*3/2 : Q% TpK,TrK,TsK,TtK 0"D%(11-A%,14+B%)=A%(P%,1):TvK 2"D%(14+A%,14+B%)=A%(P%,2):TvK 3"D%(14+A%,11-B%)=A%(P%,3):TvK 4D%(11-A%,11-B%)=A%(P%,4) 6 Q%,P%: T P:T=0 DfK VNX%=(T-1)(T+1):Y%=(_-1)(_+1):X%<9Y%>9 Q%=1:P%=(Y%-10)*8+(X%-8):DbK Z/X%>9Y%>9 Q%=2:P%=(Y%-10)*8+(X%-10):DbK \/X%>9Y%<9 Q%=3:P%=(Y%-8)*8+(X%-10):DbK ^(X%<9Y%<9 Q%=4:P%=(Y%-8)*8+(X%-8) bB%(P%,Q%)=99:Y%,X% f l9c:N=0:P%=0 52 2:Q%=1 4:B%(P%,Q%)<>110tPK "E=E+E%(P%,Q%)-A%(P%,Q%):N=N+1 Q%,P%:E=E/N: 8L:N=0:P%=0 52 2:Q%=1 4:B%(P%,Q%)<>110thK (K=K+(E%(P%,Q%)-A%(P%,Q%)-E)^2:N=N+1 Q%,P%:K=K/N : `:(W%8)=0dHK 7N=0:tPO:I%=110:P%,Q% :C%(P%,Q%)>60 txK GU=(A%(P%,Q%)+C%(P%,Q%))/2:N=N+1:M=M+(A%(P%,Q%)-U)^2+(C%(P%,Q%)-U)^2 I%:M=M/N:Y=(M)  U:5,26,29,640;600;::J(0,80):J(/30,160):J(/60,400):J(3*/60,400):-400,0:400,0:0,-400:0,400:29,201;182;:@%=&2000:805,200:"Questions":805,50:"Fix losses":805,150:"Pos errors":805,100:"Neg errors" v1000,200:D%:1000,50:H%;"/";F%:1000,150:J%;"/";C%:1000,100:L%;"/";E%:4:R%=138,0);"RIGHT"38,0);"LEFT" U0:131:0,0)(16):" FULL THRESHOLD ":" PROGRAM ":(16):3:128:5 : :7B(S%):4:a=:b=:28,0,31,78,26,30:S%=1DbL X0:131:(34) b>S%DlL,DvL,tHL,t^L,thL,dpL,duL,ddL,tKL,tBL,tTL l:(34):dxL v1" Press A to start test ":dvL 1" Transferring data ":dxL Y" Demonstration routine " :" Press A to start testing ":dvL " Waiting for signal from host " :" computer. If not received in 30 ":" secs request cancelled ":dxL ]" Aborting transfer " :" Host computer not ready ":dxL 2" Press A to halt test ":dxL 2" Press A to continue ":dvL ~" Blind spot not found ":" Press A to try again " :" B to continue ":dvL " Press A to print results " :" B to transfer data " :" C to test next eye ":dxL 0" Printing ":dxL -" C to exit " $(34);:3:128 :b,a);:5: "A:(?&FE6016)=0:?&9F0=16: >ݤA:*FX21,3 M2,1,0,1,0,3:=(-4=63): UN m :A$="" :L=(K$) :A$=A$(V),H-1)+K$+A$(V),132-(H+L)) :A$(V)=A$: f_:*FX15,0 h(?&FCC0 32)>0 tXM p B(9) *FX2,1 *FX5,2 *FX3,4 #@%=00003:(?&FCC0 32)>0 dVM G$=3000:G$=""tHN G$<>"H"dJM B(1):B(10):*FX3,7 '`%=0:C(40):(?&FCC0 32)=0 DLN `=(700):(-3)=191 DLN *FX3,0 *FX15,0 "B(1):B(11):7:`=(400):tHN L R%=1 a%=1 a%=0 NC(a%):C(U%):C((E+.5)):C((10*K+.5)):C((10*Y+.5)):C((10*(K-M)+.5)):C(H%):C(F%):C(L%):C(E%):C(J%):C(C%):DdO:I=113:P:Q=14:C(A%(P,Q)):Q,I:a  *FX2,2 @%=&20105:*FX3,0  *FX5,1  "C(b%):`%=`%+b%:b%;",";: ja:(&100-`%)&FF;",": :::"AT LINE ";::"Returning you to display":c%=400:Y:dfE:*FX200,0 (4:I%=11000:?(+I%)=0::23,1,1;0;0;0;:*FX142,1 d 0,2,4,6 n'16,18,20,22,32,34,36,48,50 65 18,1,34,1,18,2,34,2 &0,3,18,3,36,3,0,4,18,4,36,4,65,65 )4,3,5,12,11,13,20,2,6,10,14,19,21,64 31,31,31,31,31,31,31,31 31,31,32,32,32,32,31,31 31,32,33,33,33,33,32,31 31,32,33,34,34,33,32,31 31,32,33,34,34,33,32,31 31,32,33,33,33,33,32,31 31,3L0CFS3000(C)DB HENSON %=4 A=1 A=2 `hhh`HHHOȱ qsprsɼȱrpqsrpO L D R U N hhh`0*A(R%+1))   C -N:K%=4A(R%+1)>1.2 A(R%+1)=A(R%+1)-.1 *K%=5A(R%+1)<4.8 A(R%+1)=A(R%+1)+.1 6E=A(R%+1):N :e%=(25):I(30):K%=4 K%=5 d{F   G(L,M%) :D=L /2 /15:S=(D):C=(1-S*S) :N%=M%400 80:G%=N%*S:I%=N%*C:69,G%,I%:69,-G%,-I%:69,-G%,I%:69,G%,-I%::: : F:D%(R%+1)<132DmG   *FX200,3 * P%(17,17,2),C%(29,29),X%(4),Y%(4),A%(4),B%(4),G%(17,17) : F%(2),E%(2),A(2),V%(3),D%(2):128:X=&80:Z=&81:W=&82:@%=&20105:?&D0=?&D0+2:h%=0:A(0)=3.2:A(2)=3.2:a%=1:B%=0 :?&FE62=224:E%(2)=0:E%(0)=0:V%(2)=0:V%(0)=0 (S%=241:O%=0:E=0:C%=0:D%(0)=0:D%(2)=0 1A(R%+1)=3.2:4,1: (W% 2)>0 `%=1 `%=0 D%=1:S: D%>1 H TTI%=14:X%(I%)=-800:Y%(I%)=-800::V%=1:A(58,3,79,0,12): (W% 128)>0 g _ `! (W% 1)>0 D%=2:H D%=1 b-1:_%=-1 E K%=0 K%=1 K K%=3 L %K%>7K%<12 U%=12-K%:T(U%):d`A K%=4K%=5 R K%=13 `:d`A K%=14 26,4::t\C K%=15 V:D|A K%=6 P:Y !K%=7 D%=2 D%=3:B:K%=0:K 4K%=7 D%=1 D%=2:H:B:K%=0:K:A(1,31,79,29,9)  D|A 7 M(I%,J%,H%,L%,M%) :@%=&000:4:I%>32 0: 129 L8:(I%);Q%;:J%,8,8,8,11,H%,L%,M%,8,10,8 : 1: 128:5:@%=&20105: 0D T(U%):@%=&20001 :A%(U%)>20 C%(A%(U%),B%(U%))=0 DvB :jM(251,250,255,253,254):X%(U%),Y%(U%): C%(A%(U%),B%(U%))<2 64+U%,8,8,42,S%,S%,429,9,127,127,S%,S% qU v@%=&20105:  K :E:4,9,10,127,11 :F%=F%-(K%*2-1): F%>B D%<4 F%=1  F%>B D%=4 F%=24  D%=4 F%<24 F%=B F%<1 F%=B ƀ D%<4 31,((F%*4-2)80),(1+3*((F%*4-2)80)),10,252,8,11,5 31,(((F%-23)*4-2)80),(1+3*(((F%-23)*4-2)80)),10,252,8,11,5 e (6919+F%):Q%=0 :I%=14:A%(I%),B%(I%):X%(I%)=A%(I%)*48:Y%(I%)=B%(I%)*48 :A%(I%)<20 Q%=Q%+1 )I%:E:I(1): K%=0 K%=1 tTB 1 `:Q%=0:I%=14 :A%(I%)>20 D\C Q%=Q%+1  C%(A%(I%),B%(I%))<2 DWC *GZ%=S%:S%=240:U%=I% :U:X%(I%),Y%(I%):9,9,9,127,127,127,127:S%=Z% WC%(A%(I%),B%(I%))=1 \:0,1:29,640;600;:G(0,80):G(/30,160):G(/60,400):G(3*/60,400):R%*260,-90:R%*260,50:29,201;182;:I%=14:X%(I%),Y%(I%):(64+I%) ::4,1:D%=1 E%(R%+1)=0 D%(R%+1)=26 A(1,31,79,29,10) 7D%=2 E%(R%+1)<11 D%(R%+1)=66 A(1,31,79,29,11) -M(32,32,32,32,32):4,11,246,8,10,5: 6,10)"PRESS"11,12)"A to start new patient/new program":11,14)"B to test second eye" :11,16)"C to repeat same eye" : V%=0 11,18)"D to return":tbC Z (W%128)>0 11,18)"D for auto thresholding" 11,18)"D for manual thresholding" ( (?&FE60 16)>0 K%=(?&FE60 15)  K%<8 K%>11 tbC P:K%<8 K%>11 tcC K%=11 :Z K%=10 :Q:X:tL@ K%=9 :X:D%(R%+1)=0:tV@ K%=8 V%=0 J:D|A "K%=8 V%=1 W%=W% 128:tV@  t`C S X:I%=117:N%=117:C%(I%,N%)=0:N%,I%:V%(R%+1)=0:E%(R%+1)=0:F%(R%+1)=0: ! R:K%=4 S%<243 S%=S%+1 K%=5 S%>241 S%=S%-1 S%=241 E=A(R%+1)-.5 $S%=242 E=A(R%+1)-.8 .S%=243 E=A(R%+1)-1.2 3E<.6 K%=5:TFD 8P:A(58,3,79,0,2): L5 L :(2)>17333 1,-((2)/4333),89,4:e%=(70) [n@%=&2000:948,500:D%(R%+1):G=0:C=0:I%=14 : C%(A%(I%),B%(I%))=0 A%(I%)<20 V%=0 D%(R%+1)=D%(R%+1)+1 e4 C%(A%(I%),B%(I%))=0 V%=0 C%(A%(I%),B%(I%))=1 j B%(I%)>20 ?X=0:DtD o2 B%(I%)>9 ?X=2^(B%(I%)-10) ?X=2^(8-B%(I%)) t &C50: A%(I%)>20 ?X=0:tHD 3 A%(I%)>9 ?X=2^(A%(I%)-10) ?X=2^(8-A%(I%)) ;&C50:A%(I%)<20 C=C+1:G=G+(A%(I%)-9)^2+(B%(I%)-9)^2 I%:G=(G/C):D=E-(G*.55)/9 :948,500:D%(R%+1):@%=&20105 :D=(3*10^D)-2:?W=D 256:?Z=D 256:&8C0 :A%=135:C=(&FFF4):C=C &FFFF:C=C &100:C=0 I%=247 I%=246 !E<4.4 ?&FE60=32 ?&FE60=0 /e%=(20):?&FE60=0 :V%=0 4,11,I%,8,10,5 E D%(R%+1)=26 D%=1 E%(R%+1)=0 A(1,31,79,29,10):1,-9,104,2 F D%(R%+1)=66 D%=2 E%(R%+1)<11 A(1,31,79,29,11):1,-9,104,2   I(T%):K%=-1:T%=+T% +(?&FE60 16)>0 K%=(?&FE60 15):TJE 240 C%=C%+1:dFE S%=240 B%>240 C%=C%-1 R884,500:C%:@%=&20105 :R%=1A%(U%)>12A%(U%)<16B%(U%)>6B%(U%)<11DhF 4R%=-1A%(U%)>2A%(U%)<6B%(U%)>6B%(U%)<11DhF 0E%(R%+1)=E%(R%+1)+S%-B% :B%>240S%>240D@F FP%=A%(U%)-2 A%(U%)+2:N%=B%(U%)-2 B%(U%)+2:P%<0 N%<0 TvF C%(P%,N%)<2 TvF P%=A%(U%)N%=B%(U%)TvF %R%=1P%>12P%<16N%>6N%<11TvF &R%=-1P%>2P%<6N%>6N%<11TvF ,]S%>240 E%(R%+1)=E%(R%+1)+4:V%(R%+1)=V%(R%+1)+4 E%(R%+1)=E%(R%+1)-4:V%(R%+1)=V%(R%+1)-4 6 N%,P% @"D%>1 881,-O%*15+431:248,249 D'D%=1 E%(R%+1)>0 A(1,31,79,29,3) F'D%=1 E%(R%+1)=0 A(1,31,79,29,9) H(D%=2 E%(R%+1)>10 A(1,31,79,29,5) I(D%=2 E%(R%+1)<11 A(1,31,79,29,9) NJE%(R%+1)<25 881,-E%(R%+1)*15+431:O%=E%(R%+1)881,-15*25+431:O%=25 TD%>1 248,249 h w% g :(W% 64)>0 D%=1 D%=4 ~#B: D%=1 D%=4 F%=7 F%=19 K%=0:K:A(1,31,79,29,1) $I(1): K%>-1:K%=4K%=5 C K%=14 26,4::t\C K%=0K%=1 K K%=3 E=A(R%+1):L :K%=7 (D%=1 D%=4) D%=2:B:K%=0:K:A(1,31,79,29,1) K%=12 P tRF  # _:B=30:F%=7:D%=4:A=0:0:131 ִ4,28,0,31,79,26,5:K%=0:K:4:::" Press PRESENT STIMULI | To return to beginning":" and ask patient how many | Press" n" stimuli were seen | RESTART":5:I(1): K%=3 K%=14:K%=14 dgF ۽E=A(R%+1):L:4:::" 1 or more seen | None seen | Repeat presentation | Return to beginning":" Press | Press | Press | Press " " STIM INTENSITY | STIM INTENSITY | PRESENT STIMULI | RESTART ":" ";138;" | ";139;" | |":5:I(1): K%=14 (K%>2 K%<6): K%=3 d[F  K%=5 C:A=1 % K%=4 A=0 C:K%=4:C:K%=4:C  K%=4 A=2 C:doF  K%=4 A=1 A=2  K%=14 26,4:3:128::t\C 4::5:dVF 4:3:128::5: J N :0,70:`%=0 @%=&20105:A(R%+1) @%=&2000:(2);(10*A(R%+1))   C -N:K%=4A(R%+1)>1.2 A(R%+1)=A(R%+1)-.1 *K%=5A(R%+1)<4.8 A(R%+1)=A(R%+1)+.1 6E=A(R%+1):N :e%=(25):I(30):K%=4 K%=5 d{F   G(L,M%) :D=L /2 /15:S=(D):C=(1-S*S) :N%=M%400 80:G%=N%*S:I%=N%*C:69,G%,I%:69,-G%,-I%:69,-G%,I%:69,G%,-I%::: : F:D%(R%+1)<132DmG XC%>100 J=0:DjG ZM=(C%-1)/7:H=(M):I=1/(2):O=.14112821:P=.08864027:Q=.02743349:R=-.00039446:T=.00328975:J=.5+.5*(1-1/(1+O*H*I+P*(H*I)^2+Q*(H*I)^3+R*(H*I)^4+T*(H*I)^5)^8):M>0 J=1-J jKF%(R%+1)=100-(100/372)*(E%(R%+1)-V%(R%+1))-J*V%(R%+1):A(58,3,79,0,7) m q V : A a tEG tR%=-1 Q:J v_E:A(58,3,79,0,4):F:O :Q:J:E:A(58,3,79,0,4):F:O:b:A(58,3,79,0,2):E: (-4=63)  ? a:2,1,27,1,68,1,12,1,0,1,27,1,65,1,30,1,27,1,69:*FX3,10 " Patient ..................... Date ../../.." :" Number ................... DOB ../../.." Z" Rx worn at test R ................ VA ... L ................ VA ...":*FX3 1,10,1,27,1,51,1,24,3 : ) b:2,1,27,1,65,1,55,1,10:*FX3,10 Z" HENSON CFA3000 Tinsley":*FX3 1,27,1,65,1,24,1,12,3 : 3 O :2:D%(R%+1)=0 I%=126:1,10:I% &B90 !1,10,1,10,1,10,1,10,1,10,3:  S:26,29,640;600;::G(0,80):G(/30,160) :G(/60,400):G(3*/60,400):-400,0:400,0:0,-400:0,400:R%*310,-20:R%*210,-20:R%*260,-90:R%*260,50 :4:0,0)" SUPRATHRESHOLD PROGRAM"(14);:R%=1 "RIGHT" "LEFT" 8`%=0 0,7);"DEFECT (log)" 0,7);"DEFECT (db)" 2,9)(243);(243)2,11)(242);(242)2,13)(241);(241):`%=0 6,9)"1.2"6,11)"0.8"6,13)"0.5" 6,9)"12"6,11)" 8"6,13)" 5" k1,23)"Threshold":"Sensitivity =":5,29,201;182;:N:@%=&2000:884,500:C%;" /";D%(R%+1):@%=&20105: 6 B:4,28,0,31,79,26:: D% dNI,dJI,dDI,dPI B=40 :1,1);" 3 4 3 2 3 4 3 4 4 3 4 4 3 4 3 3 3 3 2 4":1,4);" 3 3 2 4 3 3 4 3 4 3 2 3 3 3 4 4 3 4 4 4" :dRI fB=20:1,1);" 3 4 3 2 3 4 3 4 4 3 4 4 3 4 3 3 3 3 2 4":dRI G28,24,31,56,26:B=8 :1,1);" 3 4 3 2 3 4 3 4":dRI <28,24,31,56,26:B=30:1,1);" 4 3 3 4 3 4 3" 5: V%=1 dvI )W: D%=1 E%(R%+1) A(1,31,79,29,3) ) D%=2 E%(R%+1)>10 A(1,31,79,29,5) 6D%=1 E%(R%+1)=0 D%(R%+1)=26 A(1,31,79,29,10) 7D%=2 E%(R%+1)<11 D%(R%+1)=66 A(1,31,79,29,11)  ( H:N%=500:I%=0:5,26,29,640;600;:N%,I%:N%,I%-375:N%-20,I%:N%+20,I%:N%-20,I%-150:N%+20,I%-150:N%-20,I%-315:N%+20,I%-315:N%-20,I%-375:N%+20,I%-375:29,201;182;4:73,15)"NORMAL"73,20)"SUSP"73,24)"DEFECT" Z#5:881,-O%*15+431:248,249,4:  Q:R%=1 R%=-1 R%=1 ]F=a%:a%=D%:D%=F:I%=117:N%=117 :F=C%(N%,I%):C%(N%,I%)=G%(N%,I%):G%(N%,I%)=F:N%,I% : > Y:26,4::6,10)"PRESS"11,12)"A to recall other eyes data":11,14)"B to transfer data to host computer" :11,16)"C to generate isometric plot":11,18)"D to return" f) (?&FE60 16)>0 K%=(?&FE60 15) kK%<8 K%>11 DfM nP::K%=11 Q z K%=10 c K%=9 d:tXM K%=8 tSM :J 5:  P:(?&FE60 16)=0: %> f(N%,I%):5,26,29,640;600;:b%<0 N%-84,I%+16: TpN )%b%>375 N%-84,I%-375+16: TmN +N%-84,I%-b%+16 -248,249,4: 2 c:*FX15,0 4(W% 32)>0 T~N 5:0:131:(45) :" Waiting for signal from host computer ":" If not received within 30 secs the computer " :" will return to main program ":(45):3:128 > R%<>1 Q @&0:R%=-1:F:R%=1:F:3:4:*FX2,1 D *FX5,2 F *FX3,5 V$@%=00002:(W% 32)>0 DlN `G$=(3000): G$="" T^O jG$<>"H" D`N l *FX3,0 n_0:131:0,1)(45):" TRANSFERRING DATA ":(45):3:128:*FX3,7 t'd%=0:D(30):(W% 32)=0 D~N v U=(700):(-3)=191 D~N x *FX3,0 z *FX15,0 |Z0:131:0,2)" ABORTING TRANSFER HOST COMPUTER NOT READY ":3:128:7:U=(400):T^O ~D(A(2)*10+.5):D(F%(2)):D(E%(2)):D(V%(2)):D(A(0)*10+.5):D(F%(0)):D(E%(0)):D(V%(0)):Y%=171 -1:X%=117:D(C%(X%,Y%)):X%,Y% :Y%=171 -1:X%=117:D(G%(X%,Y%)):X%,Y% :e  *FX2,2 #@%=&20105 :*FX3,0 2 *FX5,1 < 5: F$ D(f%):d%=d%+f%: f%;",";: P" e:(&100-d%)&FF;",";:  d :29,151;582;:A%=30:B%=12:: 0,8)"Please wait":X%=117:Y%=117:P%=18-Y% :P%(X%,Y%,1)=A%*(X%+Y%) :C%(X%,P%)>1 E%=C%(X%,P%):D|P r*C%(X%,P%)=1 E%=0:D|P g%=4:E%=0 t5E%=E%+C%(X%,P%+1) :Y%>0 E%=E%+C%(X%,P%-1):g%=3 v@E%=E%+C%(X%-1,P%) :E%=E%+C%(X%+1,P%) :E%=E%/g%: E%<2 E%=0 |P%(X%,Y%,2)=B%*(X%-Y%+E%*2) :Y%,X%::A%*26,B%*-8:A%*28,B%*-10 :A%*10,B%*8:A%*8,B%*10 :A%*26,B%*8:A%*28,B%*10 :A%*10,B%*-8:A%*8,B%*-10 :5:A%*4,B%*-6:"SUP":A%*11,B%*-13:"INF":A%*24,B%*-14: R%=1 "NAS" "TEMP" )A%*30,B%*-8: R%=1 "TEMP" "NAS" ,4: R%=1 41,3)"RIGHT" 41,3)"LEFT" X%=161-1:Y%=217 :0,1 :P%(X%,Y%,1),P%(X%,Y%,2):P%(X%,Y%-1,1),P%(X%,Y%-1,2):85,P%(X%+1,Y%-1,1),P%(X%+1,Y%-1,2):P%(X%+1,Y%,1),P%(X%+1,Y%,2):85,P%(X%,Y%,1),P%(X%,Y%,2):0,2:P%(X%,Y%-1,1),P%(X%,Y%-1,2) 0 P%(X%+1,Y%-1,1),P%(X%+1,Y%-1,2):P%(X%+1,Y%,1),P%(X%+1,Y%,2):P%(X%,Y%,1),P%(X%,Y%,2):Y%,X%:29,201;182;:A(4,31,30,27,6) T'K%=?&FE60 15:K%<10 K%>11 DTQ VK%=11 :J:DZQ XX A a:O::J:E:A(58,3,79,0,4):F:O:b:A(58,3,79,0,2):(-4=63): A DTQ Z ]B J::4,1:C%=0:D%(R%+1)=0:S:A(58,3,79,0,2):5:D%=1 DlQ dMH:5:881,-O%*15+431:248,249:E%(R%+1)>24 881,56:248,249:O%=25:DlQ h/881,-E%(R%+1)*15+431:248,249:O%=E%(R%+1) l*TH[:I%=1160 : A%,B%:A%>20DvQ pJ%=C%(A%,B%):J%<1DvQ r748*A%,48*B%:D%(R%+1)=D%(R%+1)+1:J%=1 244:DvQ t(9,9,127,127,J%+238,J%+238:C%=C%+1 vI%:B:E:K%=1:F%=2:K :@%=&00000:884,500:"0 /0" :884,500:C%:932,500:"/";D%(R%+1):@%=&20105 :4:D%=1 D%(R%+1)<26 A(1,31,79,29,9) (D%=2 D%(R%+1)<66 A(1,31,79,29,9) 'D%=1 E%(R%+1)>0 A(1,31,79,29,3) (D%=2 E%(R%+1)>10 A(1,31,79,29,5) 5: Q W:4:TH[:N%=1B :Q%=0:c%=0:I%=14: A%,B%:A%>20diQ Q%=Q%+1 J%=C%(A%,B%):J%>1 c%=1 I%: J%=0D\R Z31,((N%*4-2)80),(1+3*((N%*4-2)80)) :c%=1 5:M(251,250,255,253,254):4 11,246 \1N%:31,((F%*4-2)80),(1+3*((F%*4-2)80)),5: K A(H%,I%,J%,L%,M%):4:K=:N=:28,H%,I%,J%,L%,30: M%=4 M%=7 tpS  0:131: F M% tzS,dNS,dbS,dvS,T@T,TDT,TLT,dDS,dnS,dZS,dYS,d@S :(2)" Use PRESENT STIMULI, STIMULI INTENSITY and PATTERN | To start again":(2)" keys to establish threshold and then press MODE | Press RESTART": TTT 8:" Establishing":" T'hold Sensitivity":TTT O:" PRESS A to repeat":" B to return": A " C for printout"  TTT E:" Suprathreshold MODE":" at ";S%;S%;" above T'HOLD ":TTT *:(29)"Examination complete": d[S  :(30)"Screening complete" 6(21)"Press RESTART, EXTEND, PRINT or MENU":TTT L:(30)"Screening failure":(24)"Recommend extend to 66 stimuli":TTT :" Use PRESENT STIMULI and PATTERN keys to present all the stimuli":" MISSED STIMULI, STIMULI INTENSITY & ERASE keys to enter/correct misses":TTT  :T^T 4:(24)"Recommend extend to 132 stimuli":TTT 9:" PRESS A to return": A " B for printout"  TTT  @:" Field Survival ":@%=&00000:(8)F%(R%+1);"%":TTT  3:128 1D%=1 D%=4 28,24,31,56,26 28,0,31,79,26 (N,K);:5:  A:*FX21,3 2,1,0,1,0,3 :=(-4=63) " Z:0:*FX138,0,42 6*FX138,0,83 @*FX138,0,13 J 29,29,29,29,29,29,29,29 6,16,15,14,16,7,29,29  3,14,10,16,13,4,2,7  7,13,13,11,29,29,5,8  8,16,16,11,29,29,29,29  2,11,12,16,29,29,5,4  5,14,13,14,13,8,8,5 5,11,11,13,10,5,29,29 7,11,11,11,11,7,7,7 6,15,12,15,15,8,3,8 4,15,11,16,17,8,29,29 7,16,14,15,16,5,1,8 6,14,12,14,14,6,4,6 3,12,10,15,29,29,5,2 8,15,15,12,13,2,2,5 4,10,10,14,29,29,7,4 8,14,14,10,11,4,29,29 6,12,12,12,12,8,29,29 8,12,12,10,29,29,6,8 6,10,10,12,29,29,29,29 8,10,10,10,10,8,8,8 7,10,10,11,29,29,8,7 8,11,11,10,10,7,29,29 8,13,29,29,12,7,29,29 7,12,12,11,11,6,6,7  6,11,11,12,10,6,29,29 !29,29,13,12,11,5,5,7 "5,10,10,13,12,6,7,6 #7,14,12,13,29,29,8,6 $5,12,11,14,13,7,7,5 %6,13,29,29,12,5,6,6 &5,13,13,13,29,29,29,29 '4,11,13,10,29,29,6,5 (29,29,14,13,14,7,4,8 )4,12,29,29,14,8,5,6 *3,10,14,12,13,6,5,5 +4,13,14,11,10,3,4,5 ,29,29,15,10,13,5,4,7 -3,11,15,11,14,5,8,3 .2,13,16,13,15,6,3,6 /1,10,17,10,15,4,3,4 < > " 3,10)"#### #### #### #### ########## #### ####":3,11)"#### #### #### #### ########## #### ####": 16,20)" PRESS 'PATIENT RESPONSE' BUTTON TO RETURN TO MENU" >?&FE62=0:M%=?&FE60:M%=240 72,10)"::::":72,11)"::::" "+M%=241 62,10)"::::":62,11)"::::" 'M%=242 DpW ,7M%=243 44,10)"::::::::::":44,11)"::::::::::" 6)M%=244 72,4)"::::":72,5)"::::" @)M%=245 62,4)"::::":62,5)"::::" J)M%=246 42,4)"::::":42,5)"::::" T)M%=247 52,4)"::::":52,5)"::::" ^+M%=248 33,10)"::::":33,11)"::::" h+M%=249 23,10)"::::":23,11)"::::" r+M%=250 13,10)"::::":13,11)"::::" |)M%=251 3,10)"::::":3,11)"::::" )M%=252 33,4)"::::":33,5)"::::" )M%=253 13,4)"::::":13,5)"::::" 'M%=254 3,4)"::::":3,5)"::::" )M%=255 23,4)"::::":23,5)"::::"  T=1500::t~Y Y : :N%=178:"X";:N%:"X":N%=120:"X";:79,N%)"X":N%:N%=178:"X