Listing of file='WCPD140A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 177, program filename = 'WCPD140A'
0010 REM . WCPD140A, 00-00 (06/28/75), 12002
: COM N,P
: PRINT " TESTING DATA/READ/RESTORE ...........";
: DATA 11,15.34567890123,.0000000000003,4.678967896789E+99,4.67896789678E-9
9
0140 READ I,J,K,L,M
: IF I<>11THEN 210
: IF J<>15.34567890123THEN 210
: IF K<>3E-13THEN 210
0180 IF L<>4.678967896789E+99THEN 210
: IF M<>4.678967896789E-99THEN 210
: GOTO 220
0210 PRINT TAB(40);"ERROR AT 120"
: GOTO 230
0220 P=1
: LOAD DC T"WCPD150A"
0230 P=0
: E(1)=E(1)+1
: LOAD DC T"WCPD150A"
0240 DEFFN'15
: LOAD DC T"START"50