$ OMNIWRITER FILE TRANSLATOR?—53280,0:—53281,0:™""€…"“DO YOU WANT INSTRUCTIONS";NN$:‹È(NN$,1)²"Y"§1000›† OW$(4100):† AS$(100)¿700: SETUP TRANSLATION TABLESÛ …"“FILENAME";F$èŸ15,8,15Ÿ5,8,5,"0:"ªF$ª",PRG,R"(200: IF ERROR STOPP2300: READ AND DISCARD HEADER AND FORMAT LINEc< I ² 1 ¤ 4100…F¡#5,OW$(I):‹ OW$(I) ² "" § 70¢P‹ ST ² 64 § EOF ² 0:‰500ÎZ‹ ST ³± 0 § ™"SOMETHING SCREWY",ST:‰590Õd‚IÞn‰500÷Ç READ ERROR CHANNEL È„15,A$,B$,C$,D$,Ò‹Å(A$)±0 § ™A$;B$,C$,D$:‰5902ÜŽO+ FIND BEGINNING OF TEXTa, I ² 1 ¤ 130|6¡#5,A$:‹ A$ ² "" § 310@‹ ST ² 0 § 330­E™ST:™"EOF IN HEADER":‰590´J‚IÍT¡#5,A$:‹A$² "" § 340ä^‹ Æ(A$)³±230 § 340h¡#5,A$:‹Æ(A$) ³± 220 § 360 rŽô PRINT SEQ FILE?þŸ6,8,6,"@0:"ªF$ª".ASC,SEQ,W"IK ² 1c‹ EOF ² 0 § I ² I « 1s J ² 1 ¤ I¢‹ Æ(OW$(J))³ 91 § ˜6,AS$(Æ(OW$(J)));:K²Kª1Ç‹Æ(OW$(J)) ² 241 § ˜6,Ç(13):‰590î‹ Æ(OW$(J)) ² 220 § ˜6, Ç(13);:K²1 &‹K²79 § ˜6,Ç(13);:K²1 0‚J N 5: 6: 15# X€; ¼ TRANSLATION TABLEG ÆI²1¤26^ ÐAS$(I) ² Ç(96 ª I)z ÚAS$(I ª 64) ² Ç(I ª 64) ä‚I“ î I ² 32 ¤ 64¥ øAS$(I) ² Ç(I)¬ ‚I¾ AS$(0) ² Ç(0)Ò AS$(31) ² Ç(95)Ø Žá è™"“"!ò™"THIS PROGRAM WILL TRANSLATE AN"5!ü™"OMNIWRITER PRG FILE INTO A CLEAN ASCII"`!™"SEQ FILE WHICH CAN BE UPLOADED WITH"ˆ!™"A TERMINAL PROGRAM. ALL FORMAT "°!™"SYMBOLS EXCEPT WILL BE "Ú!$™"REMOVED. A ($D) WILL BE "".™"INSERTED EVERY 79 CHARACTERS. THE"-"8™"PROGRAM IS LIMITED TO TRANSLATING"K"B™"50 LINES OF 80 COLUMNS"x"L™"THE SEQ FILE WILL BE WRITEN TO DISK"£"V™"AS '.ASC'. THIS PROGRAM "Î"`™"RUNS SLOWER THAN CONTINENTAL DRIFT,"ù"j™"SO DON'T WORRY IF IT TAKES A WHILE."#t™"HIT ANY KEY TO CONTINUE."7#~¡VV$:‹È(VV$,1)²"" §1150=#ˆŽ‰#’ THIS PROGRAM IS IN THE PUBLIC DOMAIN. THAT MEANS YOU CAN DO WHATEVERÓ#œ YOU WANT WITH IT, SAME AS ANY OTHER PROGRAM THAT THE AUTHOR HAS NOT$¦RETAINED THE ôRIGHT ¤. MY HOPE IS THAT YOU WILL TAKE THE TIME ¤6$° WRITE A BETTER VERSION!‚$µ IT ISNT MUCH OF A PROGRAM, BUT IT DOES WORK (WITHOUT PROBLEM SO FAR).Ÿ$º JOHN A. CORTIS 3/17/85