Listing of file='OP2D030A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 348, program filename = 'OP2D030A'
0010 REM . OP2D030A, 00-00 (06/28/75), 12002
: DIM A$(3,4)5,B$(1)64,C$64,D$20,D$(102,2)20
: PRINT "TESTING 'A$()<A,B,C>'... ";
: T$="A A"
: $TRAN(A$(),T$)R
: GOSUB 300
: $TRAN(A$()<>,T$)R
: GOSUB 300
0140 $TRAN(A$()<1,>,T$)R
: GOSUB 300
: $TRAN(A$()<,60,>,T$)R
: GOSUB 300
0160 $TRAN(A$()<,60,1>,T$)R
: GOSUB 300
: FOR I=1TO 64
: B$(1)=" "
: $TRAN(B$()<,I,>,T$)R
: IF LEN(B$(1))<>ITHEN 320
: NEXT I
: INIT("A")C$,D$
: E$=HEX(00)
: FOR I=2TO 31
: B$(1)=" "
: BIN(STR(E$,2))=I
0210 $TRAN(B$()<E$,E$>,T$)R
: IF STR(B$(1),1,I-1)<>" "THEN 320
: IF STR(B$(1),I,I)<>STR(C$,1,I)THEN 320
0230 IF STR(B$(1),2*I+1)<>" "THEN 320
: NEXT I
: $TRAN(D$()<100/5+1,20*202,>,T$)R
: IF D$(1,1)<>" "THEN 320
: IF D$(102,2)<>" "THEN 320
: D$(1,1),D$(102,2)=D$
: FOR I=1TO 102
: FOR J=1TO 2
: IF D$(I,J)<>D$THEN 320
: NEXT J
: NEXT I
: GOTO 330
0300 FOR I=1TO 3
: FOR J=1TO 4
: IF A$(I,J)<>"AAAAA"THEN 320
: NEXT J
: NEXT I
: INIT(" ")A$()
: RETURN
0320 E(3)=E(3)+1
: GOTO 340
0330 PRINT "OK"
: GOTO 350
0340 PRINT TAB(40);E(3);"ERRORS"
0350 LOAD DC T"OP2D040A"
0360 DEFFN'15
: LOAD DC T"START"50