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