image of READY prompt

Wang2200.org

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