cQTDW	;TEST DISK WRITE ;cQTDW;
	W !,"Usage: D START^cQTDW(X) will create a database of about X GB"
	W !,"       Default = 1 GB",!
	Q
	;
START(X)	S X=+$G(X,1),M=9496676*X	; database = X GB
	I '$D(F) N M,X X "S Q="""" D ^cA604"
	S K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
	S FP=403 W @F,"This will create a ",X," GB database!"
	S FP=2203 W @F,"Are you sure?   .[] = OK : ·",*8 R K I K'="." G YZ
	S FP=2203 W @F,@F2,"Press CTRL-C to stop"
	S (E,T)=0,N="",XP=500,$ZT="ET^"_$T(+0) B 1 F I=33:1:126 S N=N_$C(I)
	;
	F T=1:1:9999 D  I E S FP=XP+203 W @F,@F1,@F3,"Data error on node ",I,!?2,"Should be : ",N,!?2,"Got : ",X Q
	. S XP=XP+100 I XP>2001 S XP=600
	. S FP=XP+3 W @F,@F2,"Test # .... Node ............"
	. S FP=XP+10 W @F,$J(T,4) H 2 S FP=XP+35 W @F,"creating"
	. K ^disktest H 2 S FLG=1,S=-1
	. F I=1:2:M S ^disktest(I*S)=N,^(I-1*FLG*S)=N,FP=XP+20 W @F,$J($FN(I,"."),12)
	. H 2 S FP=XP+45 W @F,"deleting"
	. F I=2:2:M+1,M+1:-2:1 K ^disktest(I) S FP=XP+20 W @F,$J($FN(I,"."),12)
	. H 2 S FP=XP+55 W @F,"inserting"
	. K ^disktest H 2 S FLG=-1,S=1
	. F I=1:2:M S ^disktest(I*S)=N,^(I-1*FLG*S)=N,FP=XP+20 W @F,$J($FN(I,"."),12)
	. H 2 S FP=XP+65 W @F,"verifying" S J="",I=I+1
	. F  S J=$O(^disktest(J)) Q:J=""  S X=^(J),I=I-1,FP=XP+20 W @F,$J($FN(I,"."),12) I X'=N S E=0 Q
	;
ET	S FP=2203 W @F,@F1
	I $ZE["<INTERRUPT>" W @F,"Gestopt door de gebruiker..."
	E  W @F,"Fout tijdens de uitvoering : ",$ZE
	;
END	K ^disktest W !!?2,"Geef [] om verder te gaan : .",*8 R K
	;
YZ	Q
	;
ZZ	; 17.01.2012 - 15:58 * Cache-r6.4.9