10  REM-BUILDS A FILE OF SNOBOL SOURCE STATEMENTS AND DATA
20  REM-USER SNOBOL AND DATA STATEMENTS BEGIN IN LINE 100
22  REM HP CONTRIBUTED LIBRARY, 2/75; 4 PROGRAMS:  SNOBOL, SNOBEX,
23  REM  SNOBLD, SNOBER.
25  DIM A$[72],B$[72],C$[72],D$[72],E$[72],F$[72],G$[72],H$[72]
27  DIM I$[72],J$[72],K$[72],L$[72],M$[72]
30  FILES *
40  PRINT "FILENAME";
45  INPUT A$
46  PRINT "HOW MANY PIECES OF DATA DO YOU HAVE";
47  INPUT A
48  A=INT(A/13)+1
50  ASSIGN A$,1,N
55  IF N=0 THEN 73
60  PRINT A$;" NOT AVAILABLE... TRY AGAIN"
65  GOTO 50
73  FOR X=1 TO A
75  READ A$,B$,C$,D$,E$,F$,G$,H$,I$,J$,K$,L$,M$
80  PRINT #1,X;A$,B$,C$,D$,E$,F$,G$,H$,I$,J$,K$,L$,M$
85  NEXT X
100  DATA "*  LANGUAGE TRANSLATION PROGRAM TO TEST THE SNOBOL SYSTEM"
110  DATA "DICT SYSPIT *FRENCH* '=' *ENGLISH* ' ' /F(TRANSLATE)"
120  DATA " $FRENCH = ENGLISH /(DICT)"
130  DATA "**** WHEN END OF DATA IS REACHED, PROGRAM BRANCHES TO END"
140  DATA "TRANSLATE SYSPIT *TEXT* '   ' /F(END)"
150  DATA " ENGTXT = "
160  DATA " TEXT = TEXT ' '"
170  DATA "NEXTW TEXT *W* ' ' = /F(PRINT)"
180  DATA " '' $W /S(ERROR)"
190  DATA "SET ENGTXT = ENGTXT $W ' ' /(NEXTW)"
200  DATA "PRINT SYSPOT = ENGTXT /(TRANSLATE)"
210  DATA "ERROR SYSPOT = 'THE WORD ' W ' IS NOT IN DICT'"
220  DATA " $W = W /(SET)"
230  DATA "END DICT"
240  DATA "LE=THE ","ELLE=SHE ","GARCON=BOY "
250  DATA "RIT=LAUGHS ",",,,,,","LE GARCON RIT   ","ELLE RIT   "
260  DATA "LE SOLEIL RIT   "
8999  DATA " "," "," "," "," "," "," "," "," "," "," "," "," "
9990  PRINT "SNOBOL FILE IS BUILT"
9999  END 
