Path: utzoo!attcan!utgpu!jarvis.csri.toronto.edu!rutgers!tut.cis.ohio-state.edu!ucbvax!agate!saturn!koreth@ssyx.ucsc.edu From: koreth@ssyx.ucsc.edu (Steven Grimm) Newsgroups: comp.binaries.atari.st Subject: v05i070: modedit -- Hardwire an editor into German Modula-2 Keywords: arc, uuencode Message-ID: <8129@saturn.ucsc.edu> Date: 25 Jun 89 16:19:36 GMT Sender: usenet@saturn.ucsc.edu Lines: 228 Approved: koreth@ssyx.ucsc.edu Submitted-by: piet@cs.ruu.nl (Piet van Oostrum) Posting-number: Volume 5, Issue 70 Archive-name: modedit This program can be used to glue your favorite editor into the German Modula-2 system. The program starts the editor named in the environment variable EDITOR, with the cursor enabled. The environment of the parent is passed on as the modula system forgets about it. If more than 1 parameter is given, the first one is the error file, and that file is updated to get the line/char numbers in normal ASCII code. All this wouldn't be necessary if the Modula2 compiler did it right. I compiled this with sozobon. ------------------------------------------------------------------------ table !"#$%&'()*+,-./0123456789:;<=>? @ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_ begin 644 editor.prg M8!H ![> #0 $H "I/*&\ !"/, B'B8L C6z MK ,(\, "(B)BP $-:L !0CPP (B8F+ 8UJP '"/# B*B/# B+B/Ly M "P "(R0>P @! 82( _ "\(3KD 1.7(\F.0 (BXF0T2#UJP !):\ "x M "1\ B&B0*9PXD$FH0U(.TO ! !L!B0\ $ +2#;1@O/ 'MX_/ )w M3D%\C\\ E.05R//SS_t M_S\\ $Q.02\Y B-DYU3KD %"+WQD3&EB0 s M(A[_)B\\ ?2DZY +XEA/2J[_)F@ !"\03KD !A4+4#_(BZ\ ?p M-"!N I!Z $+Q!.N0 "(!03RU _QXO/ 'S O+O\B3KD !B62,#0KO\Bo M5X N@$ZY 8ME!/+SP !\N+R[_(DZY (@%!/+4#_&B\N_QY.N0 #*Y8n M3S8 MGS__V@ !"Z03KD l M !9T(&X "D'H 0ND"\N_R).N0 %I903U-N A*;@ (;RI8K@ *(&X "B\0k M2&[_+4ZY 8]E!/+SP !\L2&[_+4ZY 8]E!/8,Q(;O\M3KD !B6'4#_j M+"ZY B,DAN_RPO+O_\0F<_/ !+3KD #0WOP $#U _RIG'C\N_RHO+O_\i M+SP !\/+SP !]R3KD NBWOP #B\\ ?#$ZY +XEA/,"[_*B8?3EY.h M=4Y6 !(YQ@00D,F? 'TZV? %;" _*P ,3KD <:5$]*0&<& &L " *g M4D/7_ !)@VB\Y B,B\Y ?"#\Y ?!DZY !0M[\ I"9V$*5$],f MWP@83EY.=4Y6 !(YQ@ 0D.V? 4;#HP/ 2P<-(P-"\ ?3B! ."@ "C $e MP'P V<:,#P $L'#2,#0O 'TX@0$A03KD D<6$]20V# /RX "$ZY d MR%1/3-\ &$Y>3G5.5@ 2.<0$#8N @P U) P'S__C8 /P-.N0 '2A43R9 c MM_P 9PH@"TS?" A.7DYU+SP "#4/SP "4ZY T%Q//SS_V4ZY b MR%1/8-A.5@ 2.<<'"\\ @MDZY &MEA/*$"Y_ !G+GH 2A1G)A 4a M2( _ "\\ @NTZY 9REQ/P'P #TC (@7I@8* *@%2C)D6Y_ !Gz M+#\\ 0O/ (+9(4TZY 9C-[\ I*0&82('D "(>("L #K"H "1G $:y M-BX ##\#+RX "# #4D _ &$ _QA43R\ 3KD !C*WOP "BA 2,-!]#@ 0A _x M/ $80#^^%1/*D CS0 'P@JO (-,X/ !+SP "#0+PQ.N0 %]Y03RA w MN?P 9RH_/ $80#^PE1/*D!21"J,+SP "#-0J=.N0 %]Y03RA N?P v M 9M8_/ $80#^F%1/*D!"E3/$ ?!B!Y ?"$J09PP@>0 'P@@4$H0u M9AX@>0 (AXH: DN?P 9A0@>0 'P@@O (,Q,WS@X3EY.=4'L 'PHt M4$'L #8H4"\,3KD !B66$]20#\ 80#^,E1/('D !\((( O#"!Y ?""\0s M3KD !BV4$]@O#@K 0SQ 'P8P!%) Y4 V #\#80#]_"I (\T !\(/H,Or M*P &+PU.N0 &A[>_ *, 3E0$C T(T@0$*0+Q5.N0 &)983U) /P!A /W$q M5$\H0"\5+PQ.N0 &+903RJ 6(U*E6;68 #_'DY6 !(YQ 8)FX ""AY Bp M,KG\ &8*< !,WQ@(3EY.=2\+3KD !B66$\V $H49RI(PT'T. ,$ ]o M9A@_ R\++PQ.N0 &8S>_ *2D!F!" ,8,1*'&?48/IP &"Z3E8 $CG$!PFn M;@ (+PM.N0 &)8V "Z+88183RA N?P 9SHP U) 2,#9P$H49BY+[ !m M2A5F"B ,3-\X"$Y>3G5*%6<*#!4 /6<$4HU@\DH59P0@#&#B( Q2@&#<( Q@l MV$Y6 !(YQ@ -BX "#\\ $_ R\\ 3\\ $).N0 -#>_ ** !*A&\Dk M/SP 3\#+SS_____/SP 0DZY T-[\ I"0$S? !A.7DYU2H17P,!\ %@j M[DY6 !(YQX<)FX #"AN !";S4)%0D9*$V=V($M2BQ 02("P? K9V*P? !Ai M9U*P? !B9T:P? !R9SJP? !T9RZP? !W9QXO/ (.@O/ 'W).N0 #"90h M3W 3-\X>$Y>3G6,? "BGP 8&"HS'S_^V"BC'P 6"_ ,3-\("$Y>3G5P &#T3E8 "\N !!.N0 "1Q83TI 9P9P $Y>a M3G4O+@ 0+RX #"\N AA /Y<8.I.5@ 2.<0$"9N BW_ !F## \__],z MWP@(3EY.=38K HP \!\ -*0&8&,#S__V#D+PM.N0 $6)83PQK! #F<,y M0JL !D*K )":P .0FL "C #P'P "&<$0D!@MC\K Q.N0 "EI43S8 9P@0x M/ #_2(!@GA \ !@]DY6 !(YQP0)FX "#8N PX+@ .0F0 'P17P,!\ $F7TY>3G40/ 78+I.p M5@ 2.< &"9N @H;@ ,0F3G5P_V#X3E8 $AN ! Ol M+@ ,+SP X&+RX "$ZY 26DY>3G5.5@ +RX $"\N PO/ #@8O+@ (k M3KD !):3EY.=4Y6 !(;@ ,+RX ""\\ .!B\\ ?8$ZY 26DY>3G5.j M5@ +RX #"\N @O/ #@8O/ 'V!.N0 $EI.7DYU3E8 $CG$!@F;@ (i M*&X #$)#2A-G*B\,($M2BQ 02( _ $ZY .!EQ/L'S__V8,,#S__TS?& A.h M7DYU4D-@TC #8/!.5@ +P,O/ 'V O+@ (8:I03S8 MGS__V<8+SP !]@g M/SP "DZY .!EQ/L'S__V8*,#S__R8?3EY.=5)#, -@]$Y6 !(YQX0)FX f M"$)& FO_?P *."L "C $P'P 6<(, 3 ?% 9PPP//__3-\(>$Y>3G5*JP &e M9@HO"TZY 1"EA/4U-*4VP *0P!,!\ AG "N+PM.N0 #L)83SH 2D5Nd M?$I%9G(P/! @6L "C8\__\P!,!\ 1F&DI&9RBV? *9Q"V?/__9@X":Z__c M HV/ -, -@D%.K (@:P "$(-24V#JMGP #684, 3 ? (9P8V/ *8-H\b M/ !8(!*0V< _WRV? :9L@ :Q HV//__8+PP/$ 8(PP!5- -H G:P &a M (@*P "4JL B! 0D 0$#8 8 #_=C\K XO*P &/RL #$ZY 7!E!/.@!@z M /](3E8 "\+)FX "C K K ?% 9@H@*P "L*L !F(*,#S__R9?3EY.=5)3y M4ZL B!K (0K@ )0D 0$&#F3E8 $CG'Q 6+@ ))FX "D)& &L @ *."L x M"C $P'P F<(, 3 ?% 9PPP//__3-\(^$Y>3G5*JP &9@HO"TZY 1"EA/w M, 3 ? $9@ZV/ *9@@6/ -/#P 2 K )2JP "($ 0@U)3,!.P:P .;3!"v M4R=K 8 CHK X_!2\K 8_*P ,3KD !=R4$\^ +Y%9PP :T HP//__u M8(Q*1F<,MCP #68&%CP "F"J0D 0 V _W9.5O_^2.<<&"9N @H:P &0D1"t M138K H_/ !2&[__S\K Q.N0 %P903SH 2D5N$DI$9PHP!$S?&#A.7DYUs M, 5@]# #P'P !&<04D08[O__N&L #FW , 1@W# #P'P$ &<>4D0@3%*,$*[_r M_PP0 -FWC\\_^!.N0 YQ43V#0$"[__TB L'P ?V< -*P? 9P @K!\q M -G %:L'P !&< 4BP? (9P LK!\ IG+K!\ UG*+!\ !5G5K!\ !IGp M"%)$&.[__V""/SP #3\\ (_/ #3KD #:7$\8KO__4D0,+@ *__]F(! \o M T0 $B /P _/ "/SP TZY VEQ/, 1@ /\H$#P "F#>2D1O /\V4T13n MC#\\ @_/ "/SP TZY VEQ//SP (#\\ (_/ #3KD #:7$\_/ (m M/SP C\\ -.N0 -I<3V"X2D1O /[N4T13C PN '___V90/SP "#\\ (_l M/ #3KD #:7$\_/ @/SP C\\ -.N0 -I<3S\\ @_/ "/SP TZYk M VEQ//SP "#\\ (_/ #3KD #:7$\_/ @/SP C\\ -.N0 -I$Y>3G4V*P *, / ? (9@@P \!\ -F!$) 8.!*b M4V.CP 6 _U8=4__X8 #_3C8<2F[__&<(/4/__F _SX]t M0__Z8 #_-E.+8+"P? !8;:JP? !X;J20? !82,#E@"![" 1.T %.@ !46s M 5%@ %18 !46 5%@ %18 !46 5%@ %18 !2& 4\@ %"8 r M !46 5%@ %18 !46 4)@ %18 !46 4'@ %18 !46 4R@ q M%-( !46 5%@ %0X !46 4\ %18 !46 4Z& _R0P!$S?.'A.p M7DYU/#P 6 _GX_/ *+PU*1F=0(!0O $ZY 6(M[\ I*1FP !#\No M__X_+O_Z$"[_^4B /P 0+O_X2( _ #\%+PTO+@ ,+RX "$ZY 5&M[\ !;8n M0& _KY)[ "8,8P%$C 8*P=? "__<0+O_W2( _ "\-2D9G*B 4+P!.N0 m M%_ *2D9G!$GL 0,$P!X9I O#2\-3KD !D>4$]@@G ,!Q@TAU\ C_l M]V"Z/#P 1U\ ##_^3U\ ;_^CU\ C__AU\ !#_]V"<8)H@3%2,&J@ 4'Mk M %"$$(N__@=? @__E@ /\Z*E1)[ $8.I@ /X*3E8 $CG'QPF;@ (*&X j M#"IN ! 6+@ 7."X &D)%+PU.N0 &)983SP #!4 +69Z%AT,;O__ !QG"KQNi M !QO!#PN !RX1FP". 8Z!)A&2D1F!$I&9TI*;@ 49C!*1&+@ 94T1@UC %3-\X^$Y>3G5* V>$4D9@@$Y6 !(YQ@8)BX ""9N PXf M+@ 0*$M(Q"\$+P-.N0 'A903]"\ A "! &-!(Q"\$+P-.N0 '?Y03R8 e M2H-BU$(4+PM.N0 &5I83TS?&!A.7DYU3E8 $CG$!@F+@ ()FX #"A+2H-Ld M"AC\ "T@ T2 )@ _+@ 0+PPO V& WOP "B +3-\8"$Y>3G5.5@ /RX #B\Nc M HP+@ (2, O &&R3EY.=4Y6 O+@ (/SP 04ZY T#/ ?!# Y ?b M!$Y>3G5.5@ +RX #"\N A"9S\\ %9.N0 - SP 'P0P.0 'P1.7DYUa M3E8 "\#/RX #C\N @O+@ */SP 0DZY T-[\ HF $J#; 8SPP 'P0@z M R8?3EY.=4Y6 _/ !0J<_+@ (8;Q.7DYU3E8 "\#+RX "G ,"X #B\ y M/RX "#\\ #].N0 -#>_ ,)@!*@VP&,\, !\$, ,F'TY>3G5.5@ +P,Ox M+@ *+RX #C\N @_/ _3KD #0WOP #"8 2H-L!C/# ?!" #)A].7DYUw M3E8 "\#+RX "G ,"X #B\ /RX "#\\ $!.N0 -#>_ ,)@!*@VP&,\, v M !\$, ,F'TY>3G5.5@ +P,O+@ *+RX #C\N @_/ ! 3KD #0WOP #"8 u M2H-L!C/# ?!" #)A].7DYU3E8 $CG !PF;@ (*&X #+?\ &8&)GD t M "$22A-G&! 32( _ "\,3KD !H&7$]*@&<$4HM@Y$H39@IP $S?. !.7DYUs M*DM*$V<8$!-(@#\ +PQ.N0 &@9<3TJ 9@12BV#D2A-G D(;(\L "$2( U@r MRDY6 !(YP 8)FX ""\+3KD !B66$]20#\ 3KD !RD5$\H0+G\ &<,q M+PLO#$ZY 8ME!/( Q,WQ@ 3EY.=4Y6 !(YQ 0)FX "$)#2AMG!%)#8/@Pp M TS?" A.7DYU(F\ !"!O A"@!+89OP@+P $3G5.5@ 2.<0'"9N @H;@ ,o M-BX $"I+, -30TI 9P06W&;T( U,WS@(3EY.=4Y6 !(YP <)FX ""AN PJn M2TH39P12BV#X%MQF_" -3-\X $Y>3G5.5@ 2.< &"9N @H2TH39R 0$TB m M2,#0O (18@0$) $!# ? $9P0*$P @4HM@W" ,3-\8 $Y>3G5.5@ 2.<0l M&"9N @H2TH49Q12C$H49OI3C+G+8P@6%!B3%L-@\B N A,WQ@(3EY.=4Y6k M !(YQ 8)FX ""AN PV+@ 04T-G&A 3L!1F%$H39@I"0$S?& A.7DYU4HM2j MC&#B$!-(@!(42(&006#F3E8 $CG$!@F;@ (%BX #1 #2( _ "\+3KD !H&i M7$\H0+G\ &<,( R0BTS?& A.7DYU,#S__V#R(&\ !# O BP$&8$( A.h M=4H89O1"@$YU(F\ !"!O A"@2(O P@"0@ &<$$MA3@20!XHE@ C+8g M4S__"",( 91z M@"B 0>P !$*00>L !$(0( M@F' 8)0L!6 _T1.5@ 2.<8'"9N @F+@ ,y M*%,H%" #4("X@&\DF(-+]#@ *(,JA$'L 1#[0 $(I FC1B\ ( @#$S?.!A.x M7DYU0>P !":08.I.5@ 2.<>'"8N @L/'____^;S4)$N'P $&PZ, 3E0$C w MT+P "&6($ F4+?\ &8$4D1@WBA3N?P 9_(J%+J#;0BZAFP$+ 4Jv M2T?L 1@XB -3-\X>$Y>3G5.5@ 2.<0$"8N BVO 1N0'8(+P-AAEA/u M)D"W_ !F'"\#80#^1EA/)D"W_ !F"G 3-\("$Y>3G4O R\+80#_t M$%!/)D @"UB 8.8@ UJ P+S____^)@!@M$Y6 !P # N @O &&03EY.=4Y6s M !(YQ 8,"X "DC +P!P # N @O $ZY =OE!/)@ O V$ _V983R9 M_P r M 9PXH2R #4X-*@&<$0AQ@]" +3-\8"$Y>3G4@;P $( BPN0 (BIM"M"\q M ! +_ ;@1P_TYU(\@ "(N0H!.=3 O 1(P")Y B+M")+P!AR%B/2D!Gp M I/)( E.=4Y6 !(YQ@0)FX "#8N PO"S\\ $%.N0 -!<3S@ 9P:X?/_?o M9A@P \!\ \_ "\+/SP /$ZY T%!/. SQ 'P0P.0 'P1,WP@83EY.n M=2 O 1J D2 (B\ "&H(1($*+P" 1A ".2B\ !&H"1(!.=2 O 1J D2 m M(B\ "&H(1($*+P" 1A3DHO 1J D2 3G4@+P $:@)$@"(O AJ D2!84X@l M 4HO 1J D2 3G4@+P $(B\ "&$X3G4@+P $(B\ "&$03G4@+P $(B\ "&$@k M( %.=21#- '$P"8!2$/&P$A P,'0@TA 0D#0@B8*3G5*@68.@/P " \@ j M "( 3G4D0["!8A)G""( 0H F"DYU< %"@28*3G6RO %F!D*!)@I.=;"\i M #__V(0@,%(0$*!,@!"0$A )@I.=;*\ #__V(B) !"0DA"A,%"@S8"2$,Th M (3!(@)"04A!0H P M"#)@I.=70!0H.R@&0&U(+2@6KVLH!B!(:"D('BB>**g M9O(B " #)@I.=4YO="!E;F]U9V@@;65M;W)Y#0H 4W1A8VL@;W9E#A@8'@8&% H** @,"#A2+!H*%@H6!@86!@8L*!8*k M6ARVBDI65&0H*A04*!04%!04&A0&! H*!@2:'&0T8N $! 0$! 0$! 0$! 0$j M! 0$! 0$! 0$! 0$! 0$! 0$!"HV-!R K@@0$FX&!AP&!B 0/! D$"@0)! Fi ;$BP6& P6LJQ^+CX*%AHR$!"LRCH6$"X@"@8 h g end -- Piet van Oostrum, Dept of Computer Science, University of Utrecht Padualaan 14, P.O. Box 80.089, 3508 TB Utrecht, The Netherlands Telephone: +31-30-531806. piet@cs.ruu.nl (mcvax!hp4nl!ruuinf!piet)