[comp.binaries.atari.st] v13i020: auto -- Three AUTO-folder utilities

koreth@panarthea.ebay.sun.com (Steven Grimm) (12/21/90)

Submitted-by: larserio@ifi.uio.no (Lars-Erik 0sterud)
Posting-number: Volume 13, Issue 20
Archive-name: auto

NORKEY5.PRG     Norwegian keyboard driver and lots of other stuff :-)
		At boot-time this program selects norwegian keyboard,
		Epson 80 col printer, turns off key-click and turns on
Hypercache      GPO-signal on soundchip (used to enable Hypercahce
~~~~~~~~~~      16 MHz cards).  After boot you can use ALTernate keys
		on all OS-versions (nice hack), turn GPO on/off using
		CTRL-ALT + and CTRL-ALT - to control Hypercache, use
Warmboot        CTRL-ALT-DEL to reboot (even on TOS 1.0 and 1.2) and
~~~~~~~~        last but not least use ALT-key and number-pad as on a
All charaters   IBM to select any ASCII-character (ALT down, punch in
~~~~~~~~~~~~~   ASCII value, release ALT, character will be returned).
Norwegian ???   If you don't use norwegian keyboard-layuot but want
~~~~~~~~~~~~~   rest of the functions you can get the source from me!
		Just send me a letter and I will make your own setup.

TIMEDRV5.PRG    At start time this program will syncronize all clocks
		inside the ST (if your ST has a clock-card it will get
		the time there) turns off key-click and installs two
Corner Clock    resident routines.  The first one will put a corner-
~~~~~~~~~~~~    clock in the upper right corner of the screen, and the
Drive Display   second shows if a disk-drive is active by displaying
~~~~~~~~~~~~~   the data-direction and the drive-ID in the corner.
Screen Protect  The programs also has a build-in screen protector
~~~~~~~~~~~~~~  that will blank the screen if no activity in 5 min.
		This protector DOES NOT stop programs running (only
		VBL routines will stop when screen is blanked) and it
		DOES NOT take up more than a couple of extra bytes RAM.

PROTECT5.PRG    Works in the background and checks for boot-viruses.
		If an unprotected disk is used it will be protected.
IBM-readable    A protected disk is also readable on IBM's so you can
~~~~~~~~~~~~    use PROTECT5 to make all your old disks IBM readable !
Text-Display    If an auto-booting disk is detected it will display
~~~~~~~~~~~~    any text in the bootsector (as a scrolline) and ask if
		you want to kill and protect the disk.  IBM boot-disks
		will be left alone (in case they are IBM bootable).

 Lars-Erik  /  ABK-BBS +47 2132659  /   ____ ______ ________________________
  Osterud  /  larserio@ifi.uio.no  /   /___    /            The norwegian ST
__________/ ______________________/   ____/   /   Klubben,  user association

table
 !"#$%&'()*+,-./0123456789:;<=>?
@ABCDEFGHIJKLMNOPQRSTUVWXYZ[\]^_
begin 644 AUTO.LZH
M(;DM;&@Q+6D"  "C P  HW%O%2$ "TY/4DM%634N4%)':?CV:;&8>/!,$V ,z
M;@NQ;L=!>3G=[F]KMW'!C0EK@:+AK8=SW$JJRE[/"^5Y2 <^FU04:KJ<S?1Fy
MAM (+">G9H99@>GXT'H-E-P.?7Q:@!N?;W61^>2[JLUICO^-@BN.\5\AF-XSx
M(00:I9Q8.M+> F;D%7"<;2H\PL?WUU:IJCHG8 >RW3!MLK\D9ZLP7ZS5&=R"w
MU,2;PFXH-0,PA0;/B;W8IIW53]OJ*&\KLY]Y9CW;I*&G#+J 9PC2_AA!@+ Hv
MDVG)</+P@AEERD=Y9NN_=GV*Y=$-,H(^'4%8R9E=L'X2U?WRO'(>!9H$\_L5u
M5BFOH/E"8TWXCPX)61W\?OI2.(]ZI5RVR>J32\:DO("<=METK:*93UG"<")Bt
M6)%'+IZ^))O%/>L\:8R"C_L?-:W\7L(A&<$V;(_QAYS#V7,PT'']%[]:D)R8s
M"^N 4S^8(29J"HV9$ECG+*I/5*2Q5:%YYOF&UV^><^SX?5_BN>'Q(RKI]S^Ar
MJO4)412JI5DH"SNWALSKSGN?^*E#C#GI;A/S0N)E TA8TGFC__7Y?@EX_+M'q
M!>1P;\!I+\2*$OQFGYJ+^2?\L7Z<3_*E_O:\YZ)X^SW>/OK5OE#82A&MCV[Tp
MAB/TNNT^=;@W+4DEIG&K(O$?QVZ*,FQ9B]<>V#NHD$64K1/$4T?1-;$K;M )o
M- JO;3-ZI;TR;VX_N;<=FMU$'I@=/,%[K'A= QJ_;V:@#O*!,16+Y8FCCM4Dn
M%DN:@CB1"J6#&_]Z*/O'^#XQ)7"SZ<%??PNZ%/['?$F_BN:K@'O;<^KEW?X[m
M6%TD@1X+CY\]G<9G)4NVT/>></%- ")#+6QH,2V4 P  \P0  $2B7A4A  Q0l
M4D]414-4-2Y04D==!O9IL9AY!6P38 QN"[%NPASR<[O<WN7/;X,:$NM^[*ORk
MLQV4ZCG%Q7+Y$[VZ,]W1V@IFT50#5M%6 C4]I_:\!.!'05[_N^.T7%><UG\Ej
M\^3Q^6X#5X$?MZO8=V_IFW@%(.R+[1F$6BQ=YU7A=T&7$? 7?[IX"6/S9U#$i
M3)!>>,8#>1F/WQY3Q3,IVIAC<Q$:7%9Y,7F".*QZ.C5,(LCV@F\FP!>E .M]h
MF$G!O@?<$;^1P'P'N5D_TQ(]_>_?A^)IR<C^8V9@>@624/*'&A?QZ.,Q%;HDg
MF/S]Z]5??]=X-PG'>2#3@^\;_\(3Z[F$V5X=D_S18Q\ILU! J]PA',@._^_&f
M>\HKUV3I&OX<FP?72J2W2Y#@*0_@_X*R.OD#>FI-?PFH3AV6R929^3N_A3QZe
MN]9T>:,]YM#G$?@@5>PU^W!30[]2@/RXH3_8E0Y'T#/^T(@Q,$T]N!8'<5+*d
MPYAXLJU4'LT]2==FPY^)L\;SENV\^0.9+%%0\P7SS3OI4:^[QQS:8%U!HPE:c
M[AA/=0AD^ /4#H&'F3C1FP7PKJ,DT+<#(6+OXGY_#4'F>Z@7N<,=P++2$':Xb
MV7^/KB !-$04ZO1#0MN:\/(0-_/@/H.M7WZ<RWY)?=MV<2D:B9$N025=7U _a
M>P/ZE>79WL@C6.VP+2_D3[$5M5V?IW(!B%=+WF^]"M)M>;0W:?T+X*00(D*@z
ME!W ]MI";N\[6"LR:]<&S_?5S'5WYS./_^3;&4TF0L24G6\E^\ CM_4&3>LMy
MI&WJ+DK'O7!_*\+(X/'K!@>_@P>9Q<N\@2B*]\#I8G+OIYY"6))MO*>T2JYTx
MA"@R!UVH ]H:O>1G%04=Q=S7RDBZ4SZ&=(7I+_"JQ[_EE9/(:>*]2F$YQ0NWw
M@V^Y);C@,'A%YT79$TZEN-.$G D8P6EC]:(0GJV>ZYG"[E;+,[(^'\3U]VT v
M&$H\Z2(9^F/>1Q;/,@3FB: H:/=;#J8FO;X#HR'_B ..4E\+G>N2.!O8MDPSu
MI!>^,-!-V;)]8[@)Y']CJS?GL_RT^O'W$+ZUS0-1[/R46@L/Y'+"H/;6WI='t
MB?IS>HJC=&4:$Y.#/F9OZ_OG\@.SH>G_@NYPJ\ILE(>Y+<W;O,NM:0T$[PC^s
MAHTCD$ILKT%-/ZP7_VQG1LT@Y;W3NZG_>P_(9\76V^,0$:1"::FR^BV=43[[r
M@ ?3T$-)!YRPF#_PR=(#TZ2ZO@2KTF*D6  9E)P<^2UL:#$M308  !D/  !Tq
M?)05(  &<F5A9&UE>GB1 '< ?=^/K[]9T/W^?;@?J^Y]Y=V,.YL7]T 6K-:Mp
M>T?_[U_E_K-N;F\[K[FGB]_<3>#Z?&>HK9%3+/: <]W&/:=B <P%S.6Q2/Y-o
M3 %; #.2#[!8M_DJ#YKKKUC'9J/)M]:SX2\V6F9J&;JIG0MPE4)L%4Z29>.Dn
MV;"))-D_/B$ F6"2.)HU\5$<G1985'_D#382L4:_U, (O,M+L^'?4 @)CLKHm
M"E%'?4CBO:(^HD(DA#$ S[_[Y">H$<;].+="*=[%S_].D0FT2Q/W.!0T)O=3l
MWUJC^& .N_A<@P>/'X<C-<ACJ5UWQP [ #ZE;6^#O[CF^$$,[-9*>R:)_^Q#k
MVT4]?;M>E79!OW("YF+U'"TCAHN:*:-IL\7Y:F'J?9'K+/I_N2S=L!</3G76j
M[+ERW*DF_PD#?W:Z H&@QY$6;(.6X0QE$EA.?,".6/\I%Q<A=;N$XNFF>0>Di
M5_-TBW!:+A8X/CPK;/V1:U&ZETXHUWN>W2G,;V%ECGFT>V;>,[/SQJWP=9?Kh
M/JZA36>9V58F6R]9;DQ*G8^WO$DN#V78K#4)WKI3#U>^''&5RTR:^[)Z$L:]g
MJ[@\[@15*V@1HG[Q%KQS2N!/U5&D7:IF\!N#M2&=L^P&UFP J<$^FJN8/ERTf
M.Y'>\KW82TWH'<';0?!Z<-2S">K!X&6BVRW;,FH-U*CAE;BAI9C-U!CM+E.Ge
M).8F^BC:,PW_%II0D=TV!*)4SF3)G%S20]Z@("*9&HM"J2PO_:1S%Q_G5%P,d
M+R0KH@3=U8HKGICYX:R_QY_9.UM=HG]+]*POZJEN8-_?8\%^\Q4!]",4,7Q*c
M\'W)?C\$CWYO()/M\D$\0#^#]"4SU(&Y_GK#"MNH( ;6--$ITJ)Z,<[;Q+&Ab
MXXL)N*IZ%TJ$2KJ="5.(BHBY2_R5)49G@.P4MR NWN)1I^Y8ETG'4@[4.W6Fa
MGQ_I8]E?R=;?G&;Z:N:D3]I(0A=QKZK2','%A27Q8_F(M%13W<1UJ/VK<+/Rz
MB$T(1ITE*%XZ2;\6#K:EKXR'RT.71;V U8E5EUF7OZ%<<DE;W?0)S&HO.&9!y
M].(!KXJE,VH [2<@)?,)]!!6+*JH?TP6=."X.W8Z*[N:69WRP&9O@1Q#^W7Zx
M"8_MJ-Q'T9BF:9.0CP9RP^<1^X#QIK<U<2UKD>7YD]8HI6LDH0D;?&.6G)(=w
MX!H^Y#QF+;%C*@%>5%PQYPC&]@Q9D'$F^E)[QD!N_$GZPHN2DY8VVDW+;]K(v
M^O=&A"I87>+U]ZA?OTSJ_]KM[9@E?9K2%]\TN?!C["WQ15U'8%WE(_Y$^9:1u
M"O8%/&GG+QF%W@JSG_)O+WX/6]4]%)T6\SGA'%)X#>[NA[HX/J9G-S9RLWVOt
MC6EC]%Y[;(5*O/;6CH^:3:7!=V7RM ']&,!$?RPG"@)6E8S9XRQ[E=.9YX"Ys
MJ8HM^:-_N.;J7QF%[J=U:'RY:7(VFMT;M:J;.RZ_'ONJ5,;BOP+8Q>KV(F?>r
MM@]'5\/+U72#B*LA>=WFCDK9/=W] #:G70.7UXGG-;7*D7^L_J\5 6%K%/O@q
M[[N#EI7Y>R"Q'[P=77K;"LPM[GY/<%D9D5R1C8)S-U@7V,T%J>O41^,"S9NNp
M8I.;2/>1'^8+V'Z>UVZ@^WDI_GZASGE%=1W?)\#JCV]NK/'SFC39'-)T^$*\o
MD?.,'1@+<_TGFMAK\[F-V[S/##OUZH>IDGNFW$E/S0[T5^+\42[>UOWV[<J%n
MTA:/YQMFFS+]P9%%OXSG;.U*L54^2U9K7K$T$98HIM\G+RX]](;:'D5KG#FSm
M@3URHZ-^H9AR:,SD9X+1LX-YUHU/MMIU>-YVY!-S[V[3=CVM3#NPS*.UM1/Ul
MW7,?&S)P_BUC!E/UTC911ZB&<'1W(&DU/ME+&4_<6&SSEO)CTVXZ)?S\#,&%k
M_<(68]==P?Y[#>+OL@/GYS9[?O2@B&"EGX89:62,C0V6"(P2Q"'0_B>)/R)^j
M-.9#^F,#XQ2\U18%#J?*[3DQ,JSX[>!YCL$['1<*&'VQ@^R:@N:FZEB+POH-i
M3QO=@'*-7"GT!,<<UE#2.>4\/E!B85Y(_06<4<]UFGT@O)+^"]+]4&HX#!LSh
MT7M_%1>:4\]EG4S_^E?U\LECN)3D[[R/G,W7KX%BZ[63? GSI;-J+EAI.'R#g
M1(QNS39JP")/+6QH,2W/ @  Q0,  /=A714A  Q424U%1%)6-2Y04D>:7_9If
ML9AX\.P38 QN"[%NQQUY.=WN;X.KV>#&A*YXMEEYZ-QR(P%$85K/;.]+.-NYe
M9#*9&4OE0T]5)F1>54A,8A ,4O0=OX89+T4<UDA.4.K=T'_Z91N@7\20;GM>d
MQOD7<=0&?04T%AS#M3!@O<4S/RZN+6;6/[]ARU8\1SFT_FC2QJU9 R10 J@>c
MFRS1F-:</*0OXUFB\&[]&95PD?YF+ V#EF FS+-^:L?MWN6X.@W'2#EKL1"1b
M67SK"0\$ *CJN%![ $Q1 S(X\H$R C?GTH)2T?>P( 4IRQR./PY\)QQ;?T49a
MWXJ?/@H6-GOIQ1*;Q7&-VHLJA@5IYUS,N&0'A3MJ8K>#4_XWR+ZS*M$[@J\[z
M.%?WCP'\*[085'+BOH_ ?9CM"NMY6K?^?OB"P9T43_PZ"GH^W=KU\7F;*8.,y
M#8;++)FU@3!N^K 3 T9HNP*U]DKWD1;,Z^+>55@>M;Z_8&6,6= =?.CJ1021x
M$.XF>["RK5NE)$\M73[O"X1]@CGX.[XC]$>-M^HC%)TN^4$"+JC$[ D[X%O.w
M!&%M=/4IZT2Y:AGR+ ,&YAW7<P*>;B/ S$9LN(\M<!V>>WAJT.^ZF%=]K#$Yv
M2ST;U2@]L\89;L?H^'(^.]7U_OI:V8O/S75F#@LBNZ2A-6?AO[NX6T)7YE3Su
MO,465UW%C@3;;/#0%'$L\A/?ODZXX=1#I[%W6TXM0HM\GT[3E-E=(1E0"81Bt
MCQ[W^P>&A9#F!O8 ?3Y)KV:YT3%UP!;9.OK2Y00'P+7+^"P?V: &\WSPW+R-s
M_HBQ^_T>(I:119TI'W04,Y&CG]9)TZ=I90*-/)3@:G<[=:=C 8;?AVES8P:5r
M:(C?W)@^9[!OS#>W2A\Y$'@+]HHG[_WNXL^<@B.GL0&NW"'& 0/NA0F0^ ]'q
K,ZO9VM$X\,40/I)M6KJ%]@<C+C:+;G[P^\Y< 3X!Z9D,:#-@C-(5TH!^  ]'p
 o
end