koreth@ssyx.ucsc.edu (Steven Grimm) (02/25/89)
Submitted-by: uunet!mcvax!cwi.nl!eddy (Eddy Boeve)
Posting-number: Volume 3, Issue 99
Archive-name: keyfix
Here is a program to fix the 'gulam.prg' binary for non-american
keyboards. You just have to run the program in the directory
containing 'gulam.prg' and it does the rest. The new version of
the gulam is written to 'gulamnew.prg'.
The sources are also being posted in comp.sources.atari.st.
begin 664 keyfix.tos
M8!H``!<,```#2@```%0``````````````````"IO``0@;0`8T>T`'"1M`"Q"
M@")(2A)G4"**)DHD64H:9OPBBDH29SP,&P!!9NP,&P!29N8,&P!'9N`,&P!6
M9MH,&P`]9@I*$V<&(\L``!H$0ID@"2**)DHD64H:9OPBBDH29O(F`&8R0ID@
M"2+\```:)D7M`(`4&DB"0C(@`'(@%!IG%K0!9_A32B+*%!IG"K0!9OA"*O__
M8.9"F2()T_D``!HH(\$``!HH+DDK20`$+PTCR```%Y`O""\`DH#D@5-!/P&3
MS2\)+PU"9S\\`$I.0=[\``Q*@V8N/SP`!#\\``).N0``$`X^@$ZY```07#]\
M``(``D)73KD``!`./H!.N0``$%Q83YS.3KD```."WOP`"C\`3KD```]</SP`
M3$Y!3E8``"\N``@O/```%]I.N0``!0!03S\N``Q.N0``#UQ43TY>3G5.5O_L
M2-<PX#XN``@J;@`**&X`#GH`+RX`"C`'2,#EB"!`T?P``!>4+Q`O/```%^M.
MN0``!0#>_``,?``,1@"`;`XP1M',,D;3S1"14D9@[`Q'``%F`GH@,`4&0`"!
M&4``.S`%!D``@AE``#PP!09``(,90``],`4&0`"$&4``/C`%!D``A1E``#\P
M!09``(890`!`,`4&0`"'&4``03`%!D``B!E``$(P!09``(D90`!#,`4&0`"*
M&4``1#`%!D``BQE``&(P!09``(P90`!A,`4&0`"-&4``4C`%!D``CAE``$<P
M!09``+L90`!(,`4&0`"\&4``4#`%!D``O1E``$LP!09``+X90`!-,`4&0`#`
M&4``8S`%!D``P1E``&0P!09``,<90`!E,`4&0`#"&4``9C`%!D``PQE``$XP
M!09``,090`!R,`4&0`#%&4``2C`%!D``QAE``'$P!09``+`90`!P,`4&0`"Q
M&4``;3`%!D``LAE``&XP!09``+,90`!O,`4&0`"T&4``:C`%!D``M1E``&LP
M!09``+890`!L,`4&0`"W&4``9S`%!D``N!E``&@P!09``+D90`!I3-<PX$Y>
M3G5.5O_H2-<XX"IN``@N+@`,?`"\AVPN(`;0C2A`)GP``!>@>@`,10`0;!`2
M&TB!$!Q(@+!!9@1216#J#$4`$&<64H9@SG#_/P`O/```&!].N0```2)<3R\&
M+SP``!@X3KD```4`4$\@!M"-3-<XX$Y>3G5.5O_D2-<P\"@\``&&H"\$<$@_
M`$Y!7$\J0"`-9A)P_C\`+SP``!A53KD```$B7$]"9R\\```88G`]/P!.05!/
M/@!*1VX2</T_`"\\```8;$ZY```!(EQ/+PTO!#\'<#\_`$Y!WOP`#"P`2H9N
M#'#]/P`O/```&(!@$@R&``&&H&82</T_`"\\```8DTZY```!(EQ//P=P/C\`
M3D%83R\&+PU.N0```Q!03RA`</\O`'#_+P!P_R\`<!`_`$Y.WOP`#BU`__PO
M#"!N__PO$$)G3KD```%(WOP`"DAL`(`@;O_\+R@`!'`!/P!.N0```4C>_``*
M2&P!`"!N__PO*``(<`(_`$ZY```!2-[\``I"9R\\```8K7`\/P!.05!//@!*
M1VX2</T_`"\\```8NDZY```!(EQ/+PTO!C\'<$`_`$Y!WOP`#"H`NH9G$G#]
M/P`O/```&-A.N0```2)<3S\'<#X_`$Y!6$\O/```&.M.N0``!0!83TS7,/!.
M7DYU3E8``$AN``@O/```&31.N0``!1I03TY>3G5.5O^42-<P@"UN``S__"!N
M__PH4%BN__P0'$B`/@`,0``E9QI*1V<``U`O+@`(/P<@;@`((&@`$DZ07$]@
MVG`@/4#_\'#_/4#_['#_/4#_[A`<2(`^``Q'`"UF#G`!/4#_\A`<2(`^`&`$
M0F[_\@Q'`#!F#'`P/4#_\!`<2(`^``Q'`"IF)B!N__Q4KO_\/5#_[&P0<`$]
M0/_R,"[_[$1`/4#_[!`<2(`^`&`J0F[_[`Q'`#!M(`Q'`#EN&C`N_^S!_``*
MT$<$0``P/4#_[!`<2(`^`&#:#$<`+F9*$!Q(@#X`#$<`*F84(&[__%2N__P]
M4/_N$!Q(@#X`8"I";O_N#$<`,&T@#$<`.6X:,"[_[L'\``K01P1``#`]0/_N
M$!Q(@#X`8-H,1P!L9B80'$B`/@`,1P!D9Q(,1P!O9PP,1P!U9P8,1P!X9@@P
M!P)`_]\^`"`.!(````!@+4#_]"I`<`$]0/_H,`<@?```%PPR/``.8`)82+!8
M5\G_^B!03M!@``$T(&[__%2N__P]4/_@2F[_X&P.,"[_X$1`/4#_X'`M&L!P
M"C\`/R[_X"\-3KD```B:4$\J0&```/QP"C\`(&[__%2N__P_$&#@<`A@[G`0
M8.H@;O_\+5#_X%BN__Q*KO_@;`X@+O_@1(`M0/_@<"T:P'`*/P`O+O_@+PU.
MN0``"0;>_``*8*QP"C\`(&[__"\0+PU.N0``"0;>_``**D!8KO_\8```CG`(
M8-YP$&#:+PT_+O_N+R[__#\'3KD```]VWOP`#"I`4*[__&!F0F[_Z"!N__PM
M4/_X9@@M?```&1+_^%BN__P@+O_X+4#_]"I`2AUG$DIN_^YM]B`-D*[_^+!N
M_^YOZE.-8"A";O_H(&[__%2N__PP$!K`8!8@;O_\+Q`O+@`(3KD```4:4$]@
M`/]N("[_]"\`,"[_[$C`T9<@'Y"-/4#_ZFP$0F[_ZDIN__)F3$IN_^AG,`QN
M`##_\&8H(&[_]`P0`"UF'B\N``@@;O_T4J[_]!`02(`_`"!N``@@:``23I!<
M3S`N_^I3;O_J2D!G"B\N``@_+O_P8-X@;O_TL<UD("\N``@@;O_T4J[_]!`0
M2(`_`"!N``@@:``23I!<3V#82F[_\F<`_,8P+O_J4V[_ZDI`9P#\N"\N``@_
M+O_P(&X`""!H`!).D%Q/8-Q,US"`3EY.=4Y6_^I(UR#`/BX`#"I.0B4P!P*`
M``#__X#N``X\`&<B,`<"@```__^`[@`.2$!(0$)`2$`@0-'\```79AL0/@9@
MSC\'0F<@7]'\```79AL02A5G#"!N``A2K@`($)U@\"`N``A,UR#`3EY.=4Y6
M_^)(US"`*FX`"#XN`!!)[O__0B1P`#`'+P`O+@`,3KD``!0&4$\M0/_N9R1P
M`#`'+P`O+@`,3KD``!1,4$\@0-'\```79AD0+6[_[@`,8,0@;@`,T?P``!=F
M&1!*%&<$&MQ@^"`-3-<P@$Y>3G5.5O_\+PTJ;@`(2JT`"&8P$"T`%DB``D``
M`F82/SP"`$ZY```6&%1/*T``"&82*WP```RV``XK?```#=``$F!N$"T`%DB`
M`D```F8R$"T`%TB`/P!.N0``$+143TI`9QZ[_```&31F%BM\```+U``.*WP`
M``YR`!(@+0`(8"8K?```"]0`#BM\```-7@`2$"T`%TB`/P!.N0``"BI43TC`
MT*T`""J`*T``!$)M``PJ7TY>3G5.5O_\+P=P`3\`0J<_+@`(3KD``!#44$\N
M``R`_____V8$0D!@#C`'`H```/__@/P"`$A`+A].7DYU3E;__"\-*FX`""\-
M3KD```EV6$\O#2!M``Y.D%A/*E].7DYU3E;_^$C7((`^+@`(*FX`"B\-3KD`
M``EV6$\O#3\'(&T`$DZ07$],UR"`3EY.=4Y6__PO#2I\```9N%F-($VQ_```
M&6AE$$J59_`O%4ZY```*Y%A/8.0J7TY>3G5.5O_X2-<@@"IN``@0+0`62(`"
M0``!9@1P_V!`+PU.N0``"TA83SX`$"T`%TB`/P!.N0``#\)43TJM``AG&!`M
M`!9(@`)```)F#"\M``A.N0``%C!83T(M`!8P!TS7((!.7DYU3E;_^$C7((`J
M;@`(0FT`#!`M`!9(@`)``!!F9B`5D*T`!#X`;QH_!R\M``00+0`72(`_`$ZY
M```22E!/L$=F)$I';1P@;0`(0>@"`+'59@P@+0`(*H`K0``$8`0K50`$0D!@
M(#`Y```7CDC`#(`````@9@A">0``%XY@!@`M`!``%G#_3-<@@$Y>3G5.5O_X
M2-<@@"IN``A2;0`,;P``DB\-3KD```M(6$]*0&8``+8,N0``#G(``!E&9@XO
M/```&31.N0``"TA83R`M``@&@````@"0K0`$/P`O+0`$$"T`%TB`/P!.N0``
M$/Q03T1`.T``#`Q```%F7C`Y```7CDC`#(`````@9@A">0``%XY@!@`M`!``
M%D)M``Q@1C`M``Q2;0`,(&T`!)#`*T@`!"!54I5"0!`0/@`0+0`62(`"0``@
M9PX,1P`-9P#_3`Q'`!IG"C`'8`Y*;0`,9L``+0`(`!9P_TS7((!.7DYU3E;_
M^B\-*FX`"`RY```.<@``&49F#B\\```9-$ZY```+2%A/0FT`#'`!/P!(;O_^
M$"T`%TB`/P!.N0``$/Q03PQ`__]G-$I`9U`,+@`:__YF#!`M`!9(@`)``"!F
M/`PN``W__F8,$"T`%DB``D``(&:V0D`0+O_^8"@P.0``%XY(P`R`````(&8(
M0GD``!>.8`X`+0`0`!9@!@`M``@`%G#_*E].7DYU3E;_^$C7((`^+@`(*FX`
M"@Q'``IF)!`M`!9(@`)``"!G&"\-<`T_`$ZY```-7EQ/#$#__V8$</]@,%-M
M``QL(B\-3KD```[P6$]*0&;H("T`"`:````"`)"M``130#M```P@55*5,`<0
M@$S7((!.7DYU3E;_]DC7((`^+@`(*FX`"AU'__X,1P`*9B`0+0`62(`"0``@
M9Q0O#7`-/P!.N0``#=!<3PQ`__]G7D)M``P0+0`62(`"0``09DXO#4ZY```.
M\%A/2D!F0'`!/P!(;O_^$"T`%TB`/P!.N0``$DI03PQ```%F!#`'8"`P.0``
M%XY(P`R`````(&8(0GD``!>.8`8`+0`0`!9P_TS7((!.7DYU3E;_^$C7((`^
M+@`(*FX`"@Q'``IF)!`M`!9(@`)``"!G&"\-<`T_`$ZY```.<EQ/#$#__V8$
M</]@/$)M``P@;0`(0>@"`+'59@XO#4ZY```+2%A/2D!FWB!54I4P!Q"`#$``
M"F8.+PU.N0``"TA83TI`9L(P!TS7((!.7DYU3E;__"\-*FX`"!`M`!9(@`)`
M``1G"B\-(&T`#DZ06$\@;0`$L=5B#"\-3KD```M(6$]@,G`!/P`@%9"M``0O
M`!`M`!=(@#\`3KD``!#44$\,@/____]F!'#_8`HK50`$0FT`#$)`*E].7DYU
M3E8``$ZY```*MC\N``A.N0``#ZY43TY>3G5.5@``<$P_`"\\```9N'`"/P!.
MN0``$DI03W`!/P!.N0``#UQ43TY>3G5.5@``3KD```]V3EY.=4Y6```_+@`(
M<$P_`$Y!6$].7DYU3E8```QN``4`"&X2/RX`"$ZY```2L%1/#$``0V<H<#\_
M`#\N``A.N0``$PA83S\N``AP/C\`3D%83R\`3KD``!.D6$]@`D)`3EY.=4Y6
M__PO!S\N``AP13\`3D%83SX`;!`P!TC`+P!.N0``$Z183V`B/RX`"$ZY```2
ML%1//4``"&T./RX`"#\'3KD``!,(6$\P!RX?3EY.=4Y6__PO!S\N``@_+@`*
M<D8_`4Y!7$\^`$I`9B@_+@`(3KD``!*P5$\]0``(;18_+@`(/RX`"DZY```3
M"%A/,"X`"F`.,`=(P"\`3KD``!.D6$\N'TY>3G5.5@``/RX`"$ZY```2L%1/
M#$``0V8$<`%@`D)`3EY.=4Y6```_+@`./RX`""\N``IP0C\`3D'>_``*+P!.
MN0``$Z183TY>3G5.5O_$2-<@X$'N_]0CR```&BPO.0``&BQ.N0``%H983TI`
M9Q1"N0``&BQP(#/````7CG#_8``!$#\N``A.N0``$K!43PQ``$-F``#,?``0
M.0``&E=(@#X`$#D``!I62(!(P`:````:5BI`4VX`#FT``(A31VQ><%$3P```
M&E9".0``&E<O/```&E9P"C\`3D%<3SX`;0``G'`*/P!P`C\`<`,_`$Y-7$]P
M`A/````:5A`Y```:5TB`/@`0.0``&E9(@$C`!H```!I6*D`P1]'-<`H0@!`=
M2(`Z``Q%`!IF!'X`8!0@;@`*4JX`"A"%4D8,10`*9@#_="`-!(```!I6$\``
M`!I6$\<``!I70KD``!HL,`9@,"\N``HP+@`.2,`O`#\N``AP/S\`3D'>_``,
M/@!"N0``&BPP!TC`+P!.N0``$Z183TS7(.!.7DYU3E;_T"\'0>[_U"/(```:
M+"\Y```:+$ZY```6AEA/2D!G$D*Y```:+'`@,\```!>.</]@+"\N``HP+@`.
M2,`O`#\N``AP0#\`3D'>_``,+@!"N0``&BPO!TZY```3I%A/+A].7DYU3E;_
M^$C7((`^+@`(,`=60`Q```)B'.5(,$#1_```%W8@4$[08"IP4&`F<$%@(G!#
M8!Y*1VT.*GD``!H$4T=M"$H=9OAP_V`(2A5G^!`52(!,UR"`3EY.=4Y6__A(
MUR"`/BX`"$I';0XJ>0``&@131VT(2AUF^'#_8`I*%6?X,"X`"AJ`3-<@@$Y>
M3G5.5O_X2-<@@#XN``@P!U9`#$```F)(Y4@P0-'\```7@B!03M`J>0``&@00
M%4B`L$=G#$H59@1PW6`F4HU@["`-D+D``!H$/P!.N0``$`Y43V`.?D-@SGY!
M8,I^4&#&<-M,UR"`3EY.=4Y6``!*K@`(;!`@+@`(1(`SP```%XYP_V`$("X`
M"$Y>3G4B;P`(8`1#[P`((B\`!&H"1($D$6H"1()!^@`&8```?$HO``1J#$J!
M9P)2@$H1:PA@!$H1:@)$@$YU(F\`"&`$0^\`""(O``0D$4'Z``9@``!*3G4B
M;P`(8`1#[P`()!%J`D2"(B\`!$'Z``9@```L(`%G"DHO``1J!)2`(`).=2)O
M``A@!$/O``@D$2(O``1!^@`$8`0@`4YU</]*@F8&<`!.T.*(LH)C!N.*9/;B
MDI*"9`+2@N.09/1&@$[03E;_\$C7.(`N+@`(4(<,AP#__^!B``"&#(<```@`
M9`8N/```"``O!TZY```6I%A/*D`@3;'\_____V=@2KD``!I29A(F32`+(\``
M`!HT(\```!HP8"8@>0``&E*QS68*48U0AR9M``1@$BAY```:4E&,($PF:``$
M*4T`!"`'48``0``!*H`@!]"-(\```!I2*$!1C"!,0I`I2P`$3-<X@$Y>3G5.
M5O_P2-<PP'X`("X`"%R`4X`"0/_^+`"\K@`(9`9"@&```,:9S"IY```:,"`-
M9W(@%2X``H`````!9T@@#&<.(`<"0/_^T90@%"X`*DPH3;Z&8S*>AB`'#(``
M```$9`H@%0)`__XJ@&`4*H8@!M"-(\```!HP('D``!HP((<@#5B`8&29S$J'
M9PP@!P)`__[0C2I`8`0J;0`$N_D``!HP9HX@#&<&(\P``!HP4GD``!HX,#D`
M`!HX#$```F4*4WD``!HX8`#_6"\&3KD``!2$6$\O+@`(3KD``!4H6$\J0%-Y
M```:."`-3-<PP$Y>3G5.5@``<``P+@`(+P!.N0``%2A83TY>3G5.5O_X2-<@
M@"`N``A9@"I`2I5F-'X`,$?1_```&CI*$&<@,`=21S!`T?P``!HZ$!!(@#\`
M<`(_`'`#/P!.35Q/8-1.N0``#ZX`E0````%,UR"`3EY.=2!/)%@B6$C1_/A"
M0$YU(&\`!#`O``A,T/SX+HI.=4Y6__A(UP#`+BX`"$J';`@@//____]@,$J'
M9@@@.?___P1@)%*'(`<"0/_^+@`O!W!(/P!.05Q/+`!GU"`&T(<CP/___P0@
M!DS7`,!.7DYU3E8``#`N``A(P"\`3KD``!:D6$].7DYU`$0```;N`$\```=$
M`%4```<D`%@```=(`&,```>H`&0```:>`&4```=,`&8```=,`&<```=,`&\`
M``;F`'(```>Z`',```=J`'4```;6`'@```;J`$0```5$,#$R,S0U-C<X.4%"
M0T1%1@``$M8``!+:```2W@``$Y8``!.2```3C@``````````%[```!>_```7
MS``;,3(S-#4V-S@Y,"T]"`E5;G-H:69T960@36]D90!3:&EF=&5D($UO9&4`
M0V%P<VQO8VL@36]D90!%<G)O<CH@*BH@)7,@*BH*`$-H86YG:6YG(&ME>6)O
M87)D('1R86YS;&%T:6]N('1A8FQE("@E<RD@870@)3`V;'@N"@!K97D@;6%P
M(&)E9VEN(&YO="!F;W5N9"$`2V5Y(&UA<"!B96=I;G,@870@8GET92`E;&0-
M"@!C86XG="!-86QL;V,`9W5L86TN<')G`&=U;&%M+G!R9R!N;W0@9F]U;F0`
M97)R;W(@<F5A9&EN9R!F:6QE`&=U;&%M+G!R9R!P<F]B86)L>2!B:6=G97(`
M9W5L86UN97<N<')G`&-O=6QD(&YO="!C<F5A=&4@9W5L86UN97<N<')G`&5R
M<F]R('=R:71I;F<@9FEL90!N97<@=F5R<VEO;B!O9B!G=6QA;2!I<R!G=6QA
M;6YE=RYP<F<*"@![3E5,3'T````````````````````````*9```"H@A````
M``````````````````````ID```*B"$!````````````````````````"F0`
M``J((P(`````&1H``!DT```93@``````````````````````````````````
M````````````````````````````````````````````````````````#0I9
M;W4@;75S="!C;VUP:6QE('=I=&@@=&AE("UF(&]P=&EO;B!T;R!I;F-L=61E
M('!R:6YT9B@I(&9L;V%T:6YG('!O:6YT(0H-````&@A#0T%0/S\_/S\_/S\_
M/S\_/S\_/S\_/S\_/S\_````````"````````````````````$)A9"!P;VEN
M=&5R(&EN(&9R964N#0H```````````!,(C(&#C`(#@@*#!0&#"X(!@&V+`8*
M!C8&"A@&(A0&%BX:&@P8!B(&$@88!@%V1E`8*"!,`0X21!@*%#H."!X,"`@.
M"!`N-BHB"@XN$AY*,!`N#@0(!B04$&X$"`8<0A!&&EP@'!(00"0<0!XH"A0*
M#!`N%A8L#A0P%A06-!@&!@P($!(*"A8&!B8&"@HV!@8&)@P:!@8,""8(*!PR
M/@H<"##X%`P&"!0@0$H&)`P&!@P,#`H<)!`:3B0<#`8&!@8&!@8&!@8&!@8&
M%`0$!`0$"@0$`8X$%@06!`@$!)0`!P$4`0H`,`````P7`````````````((`
8``#(`@``5```````````````````````
`
end