Listing of file='WCPD290A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 336, program filename = 'WCPD290A' 0010 REM . WCPD290A, 00-00 (06/28/75), 12002 : DIM B$64,C$(2,2)1,D$64 : PRINT " TESTING POS ........................."; 0120 IF POS(A$<20)+POS(B$<=1F)+POS(C$(1,2)=22)+POS(STR(A$,3,8)>=21)+POS(STR(C$ (2,1),1)>"A")+POS(A$<>" ")<>0THEN 270 : FOR I=64TO 1STEP -1 : STR(B$,I,1)="Z" : STR(D$,I,1)=HEX(0F) 0150 IF POS(D$<20)<>ITHEN 270 : IF POS(D$<=0F)<>ITHEN 270 : IF POS(D$<=1F)<>ITHEN 270 : IF POS(B$="Z")<>ITHEN 270 : IF POS(B$>="Z")<>ITHEN 270 : IF POS(B$>=21)<>ITHEN 270 : IF POS(B$>" ")<>ITHEN 270 : IF POS(B$<>20)<>ITHEN 270 : NEXT I 0240 B$="ABCD" : IF POS(B$=" ")<>5THEN 270 : STR(B$,50)="ABCD" : IF POS(STR(B$,2)="A")<>49THEN 270 : PRINT "OK" : GOTO 290 0270 E(1)=E(1)+1 0280 PRINT TAB(40);"ERRORS" 0290 LOAD DC T"WCPD500A" 0300 DEFFN'15 : LOAD DC T"START"50