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