Listing of file='WCPD050A' on disk='vmedia/701-2046C.wvd.zip'
# Sector 749, program filename = 'WCPD050A' 0010 REM . WCPD050A, 00-00 (6/28/75), 12002 0100 PRINT " TESTING LET, IF/THEN ................"; : COM N : LET A=1234567890123 : LET B=9.999999999999E+99 : LET C=1E-99 : LET D=.9999999999999E-98 : LET E,F,G=A*C*B*D : IF E<>FTHEN 200 : IF E<>1.234567890123E-85THEN 220 : GOTO 240 0200 PRINT TAB(40);"ERROR 1" : GOTO 450 0220 PRINT TAB(40);"ERROR 2" : GOTO 450 0240 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 330 : GOTO 350 0330 PRINT TAB(40);"ERROR 3" : GOTO 450 0350 IF B2(1)<>1.234567890123E-85THEN 370 : GOTO 390 0370 PRINT TAB(40);"ERROR 4" : GOTO 450 0390 IF B2(3)<>9.999999999999E+99THEN 410 : GOTO 430 0410 PRINT TAB(40);"ERROR 5" : GOTO 450 0430 PRINT "OK" : LOAD DC T#6,"WCPD060A" 0450 E9$(P9)="NG" : LOAD DC T#6,"WCPD060A" 0470 DEFFN'15 : COM CLEAR : LOAD DC T#6,"START"