image of READY prompt

Wang2200.org

Listing of file='WCPD060A' on disk='vmedia/701-2046C.wvd.zip'

# Sector 293, program filename = 'WCPD060A'
0010 REM .     WCPD060A,  00-00 (6/28/75),   12002
0100 PRINT " TESTING IF/THEN .....................";
   : COM N
   : A1=-1234567890123
   : A2=+1234567890123
   : B1=-1234567890124
   : B2=-B1
   : C1=987654.3210123E84
   : C2=987654.3210123E-84
   : D=C1+C2
0190 E1=-1.234567890123E-90
   : E2=-1.234567890123E-90
   : F=-0
0220 IF A1<A2THEN 250
   : PRINT TAB(40);"ERROR 1"
   : GOTO 510
0250 IF B1<B2THEN 280
   : PRINT TAB(40);"ERROR 2"
   : GOTO 510
0280 IF B1*(A1+A2)=B1*A1+B1*A2THEN 310
   : PRINT TAB(40);"ERROR 3"
   : GOTO 510
0310 IF D<=C1+C2THEN 340
   : PRINT TAB(40);"ERROR 4"
   : GOTO 510
0340 IF ABS(B1)=-B1THEN 370
   : PRINT TAB(40);"ERROR 5"
   : GOTO 510
0370 IF ABS(E2)+ABS(E1)=ABS(E1+E2)THEN 400
   : PRINT TAB(40);"ERROR 6"
   : GOTO 510
0400 IF ABS(A1)+ABS(A2)>ABS(A1+A2)THEN 430
   : PRINT TAB(40);"ERROR 7"
   : GOTO 510
0430 IF E1=-1.234567890123E-90THEN 460
   : PRINT TAB(40);"ERROR 8"
   : GOTO 220
0460 IF F=0THEN 490
   : PRINT TAB(40);"ERROR 9"
   : GOTO 510
0490 PRINT "OK"
   : LOAD DC T#6,"WCPD070A"
0510 E9$(P9)="NG"
   : LOAD DC T#6,"WCPD070A"
0530 DEFFN'15
   : COM CLEAR
   : LOAD DC T#6,"START"