Listing of file='WCPD050A' on disk='vmedia/wcs_diags.wvd.zip'
# Sector 108, program filename = 'WCPD050A' 0010 REM . WCPD050A : PRINT " TESTING LET, IF/THEN ................"; : COM N : LET A=1234567890123 : LET B=9.999999999999E+99 : LET C=1E-99 : LET D=.9999999999999E-98 0170 LET E,F,G=A*C*B*D : IF E<>FTHEN 200 : IF E<>1.234567890123E-85THEN 210 : GOTO 220 0200 PRINT TAB(40);"ERROR AT 120" : E(1)=E(1)+1 : GOTO 320 0210 PRINT TAB(40);"ERROR AT 130" : E(1)=E(1)+1 : GOTO 320 0220 DIM A(3,3),B2(3) : LET A(1,1)=A : LET A(2,1)=B : LET A(3,2)=C : B2(1)=E : B2(2)=F : B2(3)=A(2,1) : IF A(1,1)<>1234567890123THEN 260 : GOTO 270 0260 PRINT TAB(40);"ERROR AT 180" : E(1)=E(1)+1 : GOTO 320 0270 IF B2(1)<>1.234567890123E-85THEN 280 : GOTO 290 0280 PRINT TAB(40);"ERROR AT 200" : E(1)=E(1)+1 : GOTO 320 0290 IF B2(3)<>9.999999999999E+99THEN 300 : GOTO 310 0300 PRINT TAB(40);"ERROR AT 220" : E(1)=E(1)+1 : GOTO 320 0310 PRINT "OK" : LOAD DC T"WCPD060A" 0320 PRINT E(1);" ERRORS" : LOAD DC T"WCPD060A" 0330 DEFFN'15 : LOAD DC T"START"50