Previous Page Single Page Next Page  

* FIG FORTH FOR SERIES-16 MACHINES PAGE 48

1950 01560 -1 05 00002 ERA* 2,1 1951 01561 -1 04 00002 STA* 2,1 1952 ELSE 1953 LDA 2,1 1954 STA T1 1955 LDA 1,1 GET PATTERN 1956 ERA* T1 1957 STA* T1 1958 ENDC 1959 01562 0 01 00112 JMP POP2 1960 EJCT
  Previous Page Single Page Next Page