YHXMHKYHXNHKMM! ENTER.TEC This program has been revised from part of SEARCH.TEC created by M. R. Brown of DCIEM to make new bibliographic entries into a file of the form required for SEARCH.TEC. ! ET#2ETETU6^U8 ---ENTER.TEC--- This program writes new entries into a file of the format required for SEARCH.TEC. Into which file are you writing? [DEV:FILENAME.EXT] HKMN27IHXQHKI:EBGQ@I\"SY<^_;P>PWHK You are adding to an already-existing file. OFF'EW\GQ@I\!FF!\27IHXQHK MQ!START!40ET<*(-1);>Q6#4ET I$ 1 TITLE?  8 1 0u7mnq7"N-S$R.,ZKoEXIT2' 2 AUTHOR?  8 2 ET#4-4ET0u7mnq7"N-S$R.,ZKoEXIT2' 3 AUTHOR'S ADX?  8 3 ET+4ET0u7mnq7"NoEXIT' 4 REPORT #  8 4 0u7mnq7"NoEXIT' 5 SPONSORING AGENCY?  8 5 0u7mnq7"NoEXIT' 6 SPONSORS REPORT NUMBER?  8 6 0u7mnq7"NoEXIT' 7 DATE?  8 7 0u7mnq7"NoEXIT' 8 AD #?  8 8 0u7mnq7"NoEXIT' 9 FLAG?  8 9 0u7mnq7"NoEXIT' 10 KEYWORDS?  8 10 0u7mnq7"NoEXIT' 11 RSU REFERENCE #?  8 11 0u7mnq7"NoEXIT'!EXIT!I 12I40ET<*(-1);>Q6#1ET Are there any errors? (y/n)&1"EPW'!EXIT2!ET#5ETHK Are you finished? (y/n)&1"EOSTART'EFERNL:EWNL:EX ETU0 !START! 1u8 0UH Q0#8ETU9 (Q9-10)"EOSTART' (Q9-13)"EU4 1U5 OEND' (Q9-27)"E 1U7 1U5 OEND' G8Q9I-1A !GETC! u9!ERR! (Q9-13)"EU4 OEND' (q9-127)"EQ8"G(ET&2)-1"G-1D-1%8Q0#1ET8328 Q0#40ET <*(-1);> Q0#8ET OGETC' \2%H <-1A2%H-D-1%8u3(126-Q3);> \ 40ET <*(-1);> Q0#8ET Q3u9OERR' Q8"EQ0#1ETQ0#8ETOGETC'' (Q9-27)"E 1U7 OEND' (Q9-8)"E ET&2"E-2%HET#1ET'' (Q9-21)"EQ8RET#1ETQH%8 Q8<8>Q8<-28*(ET&2)+88>Q8<8> ET&2"E10'0U80UHKOGETC' Q9I-1A%8 (Q8-55)"G -S FRET#1ET(Z-.)<8-28*(ET&2)+888> G8(Z-.)U8V40ET<*(-1);>Q0#8ET ZJ'OGETC!END!Q0ET