Listing of file='EXPAN-01' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 721, program filename = 'EXPAN-01'
0010 REM ******* EXPAN-01 ******* RICHARD NICHOLS 12/28/75
0020 DIM A$(4)64,B$(4)64,C$(16),F$64,A$18
: INIT("*")F$
: S2=6
0030 PRINT HEX(03)
: GOSUB 1040
: PRINT HEX(0A0A)
0040 PRINT TAB(12);"THIS DIAGNOSTIC CHECKS OUT THE MOVE"
: PRINT TAB(12);"AND COPY STATEMENTS, IF THE DIAGNOSTIC"
: PRINT TAB(12);"IS IN AN 'F' DRIVE THE CORRESPONDING"
: PRINT TAB(12);"'R' DISK WILL BE ERASED AND VICE VERSA."
0050 PRINT HEX(0A0A0A0A);TAB(3);"KEY 'Y' TO CHECK MOVE / COPY 'N' FOR INITIAL
PROGRAM MENU"
: PRINT F$;HEX(010D0A0A0A0A)
0060 PRINT TAB(21);A$;HEX(0D)
0070 S=S+1
: IF S/2=INT(S/2)THEN 80
: A$="<<< CAUTION >>>"
: S2=S2-1
: GOTO 90
0080 STR(A$,S2,1)=HEX(20)
0090 KEYIN A1$,110,110
: S2=S2+1
: FOR S1=1TO 10
: NEXT S1
: IF S2=13THEN 100
: GOTO 60
0100 S2=6
: GOTO 60
0110 PRINT HEX(03)
: IF A1$="Y"THEN 120
: IF A1$="N"THEN 9000
: GOTO 20
0120 GOSUB 1040
: P=P+1
: PRINT HEX(010A0A0A);"PASS ";P
: M=0
: PRINT "TESTING MOVE ..........";
: M=843
0130 GOSUB 1000
0140 SCRATCH T"DISKS"
: GOSUB 1000
: GOSUB 1100
: E1=E1+E
: E=0
: IF E1=0THEN 150
: PRINT " ";E1;"ERRORS"
: GOTO 160
0150 PRINT "OK"
0160 PRINT "TESTING COPY ..........";
0170 C=0
: C1=C+50
: GOSUB 1200
: FOR X=C TO C1
: DATA LOAD BA R(X,L)A$()
: DATA LOAD BA F(X,L)B$()
: GOSUB 1070
: NEXT X
0180 C=S8-50
: C1=S8
: GOSUB 1200
: FOR X=C TO C1
: DATA LOAD BA R(X,L)A$()
: DATA LOAD BA F(X,L)B$()
: GOSUB 1070
: NEXT X
0190 E2=E2+E
: IF E2=0THEN 200
: PRINT " ";E2; "ERRORS"
: E=0
: GOTO 120
0200 PRINT "OK"
: GOTO 120
1000 GOSUB 1060
1010 FOR X=0TO 15
: GOSUB 1050
1020 NEXT X
1030 X=101
: GOSUB 1050
: X=210
: GOSUB 1050
: X=323
: GOSUB 1050
: X=504
: GOSUB 1050
: X=700
: GOSUB 1050
: RETURN
1040 PRINT HEX(01);F$
: PRINT STR(F$,1,8);TAB(20);"MOVE / COPY DIAGNOSTIC";TAB(56);STR(F$,1,8)
: PRINT F$
: RETURN
1050 DATA LOAD BA R(X,L)A$()
: DATA LOAD BA F(M,M)B$()
: GOSUB 1070
: RETURN
1060 MOVE FR
: RETURN
1070 FOR Y=1TO 4
: IF A$(Y)=B$(Y)THEN 1080
: E=E+1
1080 NEXT Y
: RETURN
1100 DATA LOAD BA T(6,L)C$()
: STR(C$(14),1,1)=HEX(10)
: DATA SAVE BA T$(6,L)C$()
: RETURN
1200 COPY FR(C,C1)
: RETURN
9000 DEFFN'15
: GOSUB 1100
: COM CLEAR
: LOAD DC T"START"