Listing of file='WCPD290A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 559, program filename = 'WCPD290A'
0010 REM . WCPD290A, 00-00 (6/28/75), 12002
0100 DIM B$64,C$(2,2)1,D$64
: PRINT " TESTING POS .........................";
: 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 320
: FOR I=64TO 1STEP -1
: STR(B$,I,1)="Z"
0150 STR(D$,I,1)=HEX(0F)
: IF POS(D$<20)<>ITHEN 320
: IF POS(D$<=0F)<>ITHEN 320
: IF POS(D$<=1F)<>ITHEN 320
: IF POS(B$="Z")<>ITHEN 320
: IF POS(B$>="Z")<>ITHEN 320
: IF POS(B$>=21)<>ITHEN 320
: IF POS(B$>" ")<>ITHEN 320
: IF POS(B$<>20)<>ITHEN 320
: NEXT I
: B$="ABCD"
0260 IF POS(B$=" ")<>5THEN 320
: STR(B$,50)="ABCD"
: IF POS(STR(B$,2)="A")<>49THEN 320
: IF E(10)<>0THEN 340
: PRINT "OK"
: GOTO 350
0320 E(10)=E(10)+1
: E9$(P9)="NG"
0340 PRINT TAB(40);E(10);"ERRORS"
0350 LOAD DC T#6,"WCPD500A"
0360 DEFFN'15
: COM CLEAR
: LOAD DC T#6,"START"