TOP
BYTE AA
INT IAA
BYTE BB
INT IBB
BYTE CC
INT ICC
INT IDD
BYTE DD
BYTE NL
BYTE LF
       BEGINMAIN(AC,IAV)
               MS 'BEGIN T04'
NL=+013
LF=+010
GOSUB CR
AA=+003
BB=AA
CC=AA!=BB
IF CC
       MS 'BYTE TRAN'
ENDIF
MS '111111111'
IAA=+12345
IBB=IAA
CC=IAA!=IBB
IF CC
       MS 'INT TRANS'
ENDIF
MS '222222222'
ICC=+00235
BB=ICC
AA=+235
CC=AA!=BB
IF CC
       MS 'INT TO BY'
ENDIF
MS '333333333'
IBB=AA
ICC=+00100
AA=+100
IBB=AA
CC=IBB!=ICC
IF CC
       MS 'BYT TO IN'
ENDIF
MS '444444444'
IAA=+00000
IBB=+00005
IBB=IAA-IBB
CC=IBB<=IAA
IF CC
ELSE
       MS 'INT<=.-<0'
ENDIF
MS '555555555'
CC=IBB<!IAA
IF CC
ELSE
       MS 'INT<!.-<0'
ENDIF
MS '666666666'
IAA=+00005
ICC=-IAA
CC=ICC!=IBB
IF CC
       MS 'INT=-INT.'
ENDIF
MS '777777777'
IAA=+10256
IBB=+00003
ICC=IAA*IBB
IDD=+30768
CC=IDD!=ICC
IF CC
       MS 'INTMUL+*+'
ENDIF

GOSUB CR
MS '888888888'
IBB=-IBB
ICC=IAA*IBB
IDD=-IDD
CC=IDD!=ICC
IF CC
       MS 'INTMUL+*-'
ENDIF
MS '999999999'
IAA=+00030
IBB=+00040
IAA=IAA*IBB
ICC=+01200
AA=ICC!=IAA
IF AA
       MS 'MUL.X=X*.'
ENDIF
MS '000000000'
IAA=+00030
IBB=IAA*IBB
AA=ICC!=IBB
IF AA
       MS 'MUL.X=.*X'
ENDIF
MS 'AAAAAAAAA'
IAA=IAA*IAA
ICC=+00900
AA=IAA!=ICC
IF AA
       MS 'MUL.X=X*X'
ENDIF
MS 'BBBBBBBBB'
IAA=+30003
IBB=+00003
IAA=IAA/IBB
ICC=+10001
AA=IAA!=ICC
IF AA
       MS 'DIV.X=X/.'
ENDIF
MS 'CCCCCCCCC'
IBB=IAA/IBB
ICC=+03703
AA=ICC!=IBB
IF AA
       MS 'DIV.X=./X'
ENDIF
MS 'DDDDDDDDD'
ICC=ICC/ICC
IAA=+00001
AA=IAA!=ICC
IF AA
       MS 'DIV.X=X/X'
ENDIF
GOSUB CR
MS 'EEEEEEEEE'
IAA=+10256
IBB=+00016
ICC=IAA/IBB
IDD=+00641
CC=IDD!=ICC
IF CC
       MS 'INTDIV+/+'
ENDIF
MS 'FFFFFFFFF'
IBB=-IBB
ICC=IAA/IBB
IDD=-IDD
CC=IDD!=ICC
IF CC
       MS 'INTDIV+/-'
ENDIF
MS 'GGGGGGGGG'
IBB=+00017
ICC=IAA/IBB
IDD=+00603
CC=ICC!=IDD
IF CC
       MS 'FRCDIV+/+'
ENDIF
MS 'HHHHHHHHH'
IAA=-IAA
ICC=IAA/IBB
IDD=-IDD
CC=ICC!=IDD
IF CC
       MS 'FRCDIV-/+'
ENDIF
MS 'IIIIIIIII'
AA=+001
BB=+001
CC=AA&BB
IF CC
ELSE
       MS '.&. OR IF'
ENDIF
MS 'JJJJJJJJJ'
BB=+000
CC=AA&BB
IF CC
       MS '.&.(ORIF)'
ENDIF
MS 'KKKKKKKKK'
CC=AA?BB
IF CC
ELSE
       MS '.v....101'
ENDIF
MS 'LLLLLLLLL'
AA=+000
CC=AA?BB
IF CC
       MS '.v....000'
ENDIF
MS 'MMMMMMMMM'
CC=!AA
IF CC
ELSE
       MS '.!.....01'
ENDIF
MS 'NNNNNNNNN'
BB=+001
CC=AA-BB
DD=!CC
IF DD
       MS '.!.....10'
ENDIF
       GOSUB CR
MS 'ENDOF T04'

ENDMAIN
       SUB CR
WRITE NL
WRITE LF
ENDSUB
BOTTOM
FINIS

You are viewing proxied material from gopher.floodgap.com. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.