Listing of file='WCPD130A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 653, program filename = 'WCPD130A' 0010 REM . WCPD130A, 00-00 (6/28/75), 12002 0100 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" : INIT(41)A$,B$,C$(),D$(),E$(2,1),STR(F$,4,8) : GOSUB 370 : T$="Z" 0190 INIT("Z")E$(2,1),C$(),B$,D$(),A$,STR(F$,4,8) : GOSUB 370 : T$="*" : INIT(T$)B$,D$(),A$,STR(F$,4,8),E$(2,1),C$() : GOSUB 370 : T$="E" : INIT(STR(N$,2))A$,B$,C$(),D$(),E$(2,1),STR(F$,4,8) : GOSUB 370 : NEXT I : FOR I=0TO 255 : BIN(B$)=I : INIT(B$)T$ 0310 IF VAL(T$)<>ITHEN 620 : NEXT I : IF N$<>"BEG"THEN 620 : IF E(11)<>0THEN 630 : PRINT "OK" : GOTO 650 0370 FOR J=1TO 64 : IF STR(A$,I,1)<>T$THEN 620 : NEXT J : IF B$<>T$THEN 620 : FOR J=1TO 16 : FOR K=1TO 7 : IF C$(J,K)<>T$THEN 620 : NEXT K : NEXT J : FOR J=1TO 3 : FOR K=1TO 16 : IF STR(D$(J),K,1)<>T$THEN 620 : NEXT K : NEXT J : FOR I=1TO 16 : IF STR(E$(2,1),I,1)<>T$THEN 620 : NEXT I : IF E$(1,2)<>" "THEN 620 0550 IF E$(2,2)<>" "THEN 620 : FOR I=4TO 11 : IF STR(F$,I,1)<>T$THEN 620 : NEXT I : IF STR(F$,1,3)<>" "THEN 620 : IF STR(F$,12)<>" "THEN 620 : RETURN 0620 E(11)=E(11)+1 0630 PRINT TAB(40);E(11);"ERRORS" : E9$(P9)="NG" 0650 LOAD DC T#6,"WCPD140A" 0660 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"