Listing of file='WCPD110A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 446, program filename = 'WCPD110A' 0010 REM . WCPD110A, 00-00 (6/28/75), 12002 0100 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" : FOR I=1TO 3 : A1$(I)=A$(I) : NEXT I : IF A1$(1)="ABC"THEN 230 : PRINT TAB(40);"ERROR 1" 0220 GOTO 500 0230 IF A1$(2)="DEF"THEN 260 : PRINT TAB(40);"ERROR 2" : GOTO 500 0260 IF A1$(3)="GHIJKL"THEN 290 : PRINT TAB(40);"ERROR 3" : GOTO 500 0290 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 : IF B1$(1,1)="+=,"THEN 420 : PRINT TAB(40);"ERROR 4" : GOTO 500 0420 IF B1$(2,2)="%'$"THEN 450 : PRINT TAB(40);"ERROR 5" : GOTO 500 0450 IF B1$(3,1)="*<>"THEN 480 : PRINT TAB(40);"ERROR 6" : GOTO 500 0480 P=1 : LOAD DC T#6,"WCPD120A" 0500 E9$(P9)="NG" : P=0 : LOAD DC T#6,"WCPD120A" 0530 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"