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"