Language peer sets for DYSTAL 2: United States↑ United States/1967↑ Designed 1967 ↑ 1960s languages ↑ Third generation↑ High Cold War↑ Genus List ↑ String and List Processing ↑ List↑ Rank 1 unlabelled↑ Rank 1 ↑ List/1967↑ Rank 1 unlabelled/1967↑ Rank 1/1967↑ List/United States↑ Rank 1 unlabelled/United States↑ Rank 1/United States↑ String and List Processing ↑ String and List Processing/1967↑ String and List Processing/us ↑
DYSTAL 2(ID:4040/dys003)
Array-based list-processing for Fortran
alternate simple view
Country: United States
Designed 1967
Genus: List
Sammet category: String and List Processing Evolution of DYSTAL ported to the 1130, while taking advantage of the manipulation techniques presented by EngeliRelated languages
C *** READ IN MOD (WORD TYPE) AND NWD (NUMBER OF WORDS) C *** THEN READ IN THE LIST OF WORDS
READ (NRD,2) MOD, NWD 2 FORMAT (5 114)
LWD = IDUMP (LRD (NRD, 1, NWD, MAPL (MOD, NWD))) C *** CREATE LTREE, THE FIRST LIST OF THE TREE. LTREE = IPUT (3, 0, MAPL (1, 3)) CALL IPUT (ITEM (1, LWD), 3, LTREE) C *** SET UP A DO LOOP TO PROCESS REMAINING WORDS DO 100 1=2, NWD
LIST = LTREE • C *** COMPARE ITH WORD WITH WORD ON LIST USING ALPHA COMPARISON
WD = FITEM (I, LWD)
5 IF (LCOMP (WD, FITEM (3, LIST))) 20, 30, 30 C *** DETERMINE LEFT OR RIGHT BRANCH. LEFT IS LESS THAN. 20 ICELL =1
GO TO 31
30 ICELL =2
31 CONTINUE
C *** IF CELL IS EMPTY CREATE A LIST AND STORE LIST NAME IN THE CELL C *** AND WD IN THE LIST.