Listing of file='WCPD160A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 510, program filename = 'WCPD160A' 0010 REM . WCPD160A, 00-00 (06/20/7528 12002 : COM N,P : IF P=0THEN 290 : DIM Z$20,X$(1,2)26,C(2) : DATA "ABC",150,"DEF",.06E+5 : DATA "12345678901234567890",3,4 : DATA "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 0170 DATA "ABCDEFGHIJKLMNOPQRSTUVWXYZ" : READ A$,A,B$,B : READ Z$,C(1),C(2) 0200 FOR I=1TO 2 : READ X$(1,I) : NEXT I : IF A$="ABC"THEN 220 : GOTO 270 0220 IF B$="DEF"THEN 230 : GOTO 270 0230 IF A+B=6150THEN 240 : GOTO 270 0240 IF Z$="12345678901234567890"THEN 250 : GOTO 270 0250 IF C(1)+C(2)=7THEN 260 : GOTO 270 0260 IF X$(1,1)=X$(1,2)THEN 280 0270 PRINT TAB(40);"ERROR AT 190" : E(1)=E(1)+1 : LOAD DC T"WCPD170A" 0280 PRINT "OK" 0290 LOAD DC T"WCPD170A" 0300 DEFFN'15 : LOAD DC T"START"50