Listing of file='WCPD130A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 49, program filename = 'WCPD130A'
0010 REM . WCPD130A, 00-00 (06/28/75), 12002
: DIM N$3,A$64,M$1,B$1,C$(16,7)1,D$(3),T$1,E$(2,2)
: N$="BEG"
: M$="E"
: PRINT " TESTING INIT ........................";
: FOR I=1TO 2
: T$="A"
0150 INIT(41)A$,B$,C$(),D$(),E$(2,1),STR(F$,4,8)
: GOSUB 320
: T$="Z"
0180 INIT("Z")E$(2,1),C$(),B$,D$(),A$,STR(F$,4,8)
: GOSUB 320
: T$="*"
: INIT(T$)B$,D$(),A$,STR(F$,4,8),E$(2,1),C$()
: GOSUB 320
: T$="E"
: INIT(STR(N$,2))A$,B$,C$(),D$(),E$(2,1),STR(F$,4,8)
: GOSUB 320
: NEXT I
0270 FOR I=0TO 255
: BIN(B$)=I
: INIT(B$)T$
: IF VAL(T$)<>ITHEN 430
: NEXT I
: IF N$<>"BEG"THEN 430
: PRINT "OK"
: GOTO 450
0320 FOR J=1TO 64
: IF STR(A$,I,1)<>T$THEN 430
: NEXT J
: IF B$<>T$THEN 430
: FOR J=1TO 16
: FOR K=1TO 7
: IF C$(J,K)<>T$THEN 430
: NEXT K
: NEXT J
: FOR J=1TO 3
: FOR K=1TO 16
: IF STR(D$(J),K,1)<>T$THEN 430
: NEXT K
: NEXT J
: FOR I=1TO 16
: IF STR(E$(2,1),I,1)<>T$THEN 430
: NEXT I
0390 IF E$(1,2)<>" "THEN 430
: IF E$(2,2)<>" "THEN 430
: FOR I=4TO 11
: IF STR(F$,I,1)<>T$THEN 430
: NEXT I
0410 IF STR(F$,1,3)<>" "THEN 430
: IF STR(F$,12)<>" "THEN 430
: RETURN
0430 E(1)=E(1)+1
0440 PRINT TAB(40);E(1);"ERRORS"
0450 LOAD DC T"WCPD140A"
0460 DEFFN'15
: LOAD DC T"START"50