Listing of file='WCPD140A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 754, program filename = 'WCPD140A'
0010 REM . WCPD140A, 00-00 (6/28/75), 12002
0100 COM N,P
: PRINT " TESTING DATA/READ/RESTORE ...........";
: DATA 11,15.34567890123,.0000000000003,4.678967896789E+99,4.67896789678E-9
9
: READ I,J,K,L,M
: IF I<>11THEN 200
: IF J<>15.34567890123THEN 200
0160 IF K<>3E-13THEN 200
: IF L<>4.678967896789E+99THEN 200
: IF M<>4.678967896789E-99THEN 200
: GOTO 220
0200 PRINT TAB(40);"ERROR 1"
: GOTO 240
0220 P=1
: LOAD DC T#6,"WCPD150A"
0240 E9$(P9)="NG"
: P=0
: LOAD DC T#6,"WCPD150A"
0270 DEFFN'15
: COM CLEAR
: LOAD DC T#6,"START"