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