TOP; BYTE XX BYTE AA BYTE BB BYTE CC BYTE DD BYTE EE BEGINMAIN(AC,IAV); MS 'BEGIN T02' AA=+001 BB=+002 XX=AA==BB IF XX MS '==FAILS!=' MS 'OR IF OR' MS 'DEFINITIN' ELSE MS '111111111' ENDIF BB=+001 XX=AA==BB; IF XX MS '222222222' ELSE MS '==FAILS==' ENDIF XX=AA!=BB IF XX MS '!=FAILS==' ENDIF MS '333333333' BB=+005 XX=AA!=BB IF XX ELSE MS '!=FAILS!=' ENDIF MS '444444444' BB=+001 XX=AA!' ENDIF MS '666666666' XX=AA!' ENDIF MS '888888888' BB=+001 XX=AA<=BB IF XX ELSE MS '<=FAILS==' ENDIF MS '999999999' BB=+002 XX=AA<=BB IF XX ELSE MS '<=FAILS+' ENDIF MS 'FFFFFFFFF' BB=DD-CC AA=+000 CC=AA-EE XX=BB!=CC IF XX MS 'SUB---=>-' ENDIF MS 'GGGGGGGGG' AA=+001 BB=+003 AA=AA+BB CC=+004 XX=CC!=AA IF XX MS 'ADD.X=X+.' ENDIF MS 'HHHHHHHHH' BB=AA+BB CC=+007 XX=CC!=BB IF XX MS 'ADD.X=.+X' ENDIF MS 'IIIIIIIII' CC=CC+CC BB=+014 XX=BB!=CC IF XX MS 'ADD.X=X+X' ENDIF MS 'JJJJJJJJJ' AA=+009 BB=+005 AA=AA-BB CC=+004 XX=CC!=AA IF XX MS 'SUB.X=X-.' ENDIF MS 'KKKKKKKKK' AA=+009 BB=AA-BB XX=CC!=BB IF XX MS 'SUB.X=.-X' ENDIF MS 'LLLLLLLLL' AA=AA-AA BB=+000 XX=AA!=BB IF XX MS 'SUB.X=X-X' ENDIF MS 'END OF BY' MS 'TE ARITH ' MS 'TEST 2. ' ENDMAIN BOTTOM