Listing of file='OP2D030A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 349, program filename = 'OP2D030A' 0010 REM . OP2D030A, 00-00 (6/28/75), 12002 0100 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 480 : $TRAN(A$()<>,T$)R : GOSUB 480 : $TRAN(A$()<1,>,T$)R : GOSUB 480 : $TRAN(A$()<,60,>,T$)R 0200 GOSUB 480 : $TRAN(A$()<,60,1>,T$)R : GOSUB 480 : FOR I=1TO 64 : B$(1)=" " : $TRAN(B$()<,I,>,T$)R : IF LEN(B$(1))<>ITHEN 550 : NEXT I : INIT("A")C$,D$ : E$=HEX(00) : FOR I=2TO 31 : B$(1)=" " : BIN(STR(E$,2))=I : $TRAN(B$()<E$,E$>,T$)R 0340 IF STR(B$(1),1,I-1)<>" "THEN 550 : IF STR(B$(1),I,I)<>STR(C$,1,I)THEN 550 : IF STR(B$(1),2*I+1)<>" "THEN 550 : NEXT I : $TRAN(D$()<100/5+1,20*202,>,T$)R : IF D$(1,1)<>" "THEN 550 : IF D$(102,2)<>" "THEN 550 : D$(1,1),D$(102,2)=D$ 0420 FOR I=1TO 102 : FOR J=1TO 2 : IF D$(I,J)<>D$THEN 550 : NEXT J : NEXT I : GOTO 560 0480 FOR I=1TO 3 : FOR J=1TO 4 : IF A$(I,J)<>"AAAAA"THEN 550 : NEXT J : NEXT I : INIT(" ")A$() : RETURN 0550 E(3)=E(3)+1 0560 IF E(3)>0THEN 590 : PRINT "OK" : GOTO 610 0590 PRINT TAB(40);E(3);"ERRORS" : E9$(P9)="NG" 0610 LOAD DC T#6,"OP2D040A" 0620 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"