Listing of file='WCPD110A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 505, program filename = 'WCPD110A' 0010 REM . WCPD110A, 00-00 (06/28/75), 12002 : COM N : PRINT " TESTING DIM, STRING ARRAYS .........."; : DIM A$(3),B0$(2,3) : DIM A1$(3),B1$(3,2) : A$(1)="ABC" : A$(2)="DEF" : A$(3)="GHIJKL" 0160 FOR I=1TO 3 : A1$(I)=A$(I) : NEXT I : IF A1$(1)="ABC"THEN 180 : PRINT TAB(40);"ERROR AT 90" : GOTO 290 0180 IF A1$(2)="DEF"THEN 190 : PRINT TAB(40);"ERROR AT 100" : GOTO 290 0190 IF A1$(3)="GHIJKL"THEN 200 : PRINT TAB(40);"ERROR AT 110" : GOTO 290 0200 B0$(1,1)="+=," : B0$(1,2)="-^;" : B0$(1,3)="*<>" : B0$(2,1)="/()" : B0$(2,2)="%'$" : B0$(2,3)="#: " : FOR I=1TO 2 : FOR J=1TO 3 : B1$(J,I)=B0$(I,J) : NEXT J : NEXT I 0250 IF B1$(1,1)="+=,"THEN 260 : PRINT TAB(40);"ERROR AT 170" : GOTO 290 0260 IF B1$(2,2)="%'$"THEN 270 : PRINT TAB(40);"ERROR AT 180" : GOTO 290 0270 IF B1$(3,1)="*<>"THEN 280 : PRINT TAB(40);"ERROR AT 190" : GOTO 290 0280 P=1 : LOAD DC T"WCPD120A" 0290 P=0 : E(1)=E(1)+1 : LOAD DC T"WCPD120A" 0300 DEFFN'15 : LOAD DC T"START"50