TOP
BYTE AA(100)
BYTE BB(00300)
INT IAA(100)
INT IBB(00300)
BYTE CC
BYTE DD
INT ICC
BYTE SS
BYTE EE
BYTE FF
INT IDD
INT IEE
INT IFF
BEGINMAIN(AC,IAV)
       MS 'BEGIN T05'
GOTO 10
       MS 'GOTOFAILS'
LOC 20
GOTO 30
       MS 'AND AGAIN'
LOC 10
GOTO 20
LOC 30
MS '111111111'
CC=+001
DD=+000
AA(DD)=CC
EE=AA(DD)
FF=EE!=CC
IF FF
       MS 'BYT...BYT'
ENDIF
MS '222222222'
DD=+099
AA(DD)=CC
EE=AA(DD)
FF=EE!=CC
IF FF
       MS 'BYT.99BYT'
ENDIF
MS '333333333'
SS=+000
WHILE
       DD--
       EE=+000
       FF=DD!=EE
ON FF
       AA(DD)=SS
       EE=AA(DD)
       FF=EE!=SS
       IF FF
               MS 'BYT.I.BYT'
               MS ' OR WHILE'
               GOTO 51
       ENDIF
       SS++
ENDWHILE
MS '444444444'
LOC 51
EE=+098
FF=EE!=SS
IF FF
       MS 'WHILE....'
ENDIF
IDD=+00300
ICC=+00000
WHILE
       FF=ICC!=IDD
ON FF
       DD++
       BB(ICC)=DD
       EE=BB(ICC)
       FF=EE!=DD
       IF FF
               MS 'BYT.I.INT'
               GOTO 52
       ENDIF
       ICC++
ENDWHILE
MS '555555555'
LOC 52
ICC=+00000
IEE=+00100
WHILE
       FF=ICC!=IDD
ON FF
       IEE++
       IBB(ICC)=IEE
       ICC++
ENDWHILE
IEE=+00100
ICC=+00000
WHILE
       FF=ICC!=IDD
ON FF
       IEE++
       IFF=IBB(ICC)
       ICC++
       FF=IFF!=IEE
       IF FF
               MS 'INT(INT).'
               GOTO 53
       ENDIF
ENDWHILE
MS '666666666'
LOC 53
DD=+100
CC=+000
IEE=+10000
WHILE
       FF=CC!=DD
ON FF
       IAA(CC)=IEE
       IEE++
       CC++
ENDWHILE
CC=+000
IEE=+10000
WHILE
       FF=CC!=DD
ON FF
       IDD=IAA(CC)
       FF=IDD!=IEE
       IF FF
               MS 'INT(BYTE)'
               GOTO 54
       ENDIF
       IEE++
       CC++
ENDWHILE
MS '777777777'
LOC 54
MS 'ENDOF T05'
ENDMAIN
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.