🚀 go-pugleaf

 
The following (short I promise) file is for the auto folder.  It does
the following:
    sets the bios time and date
    turns the verify flag off
    sets step rate to 2ms <--useless really
    checks for february and leap year (i.e. you can't have 29 Feb
     1987, but you can 29 Feb 1988)
    sets the IKBD time if it is less than the BIOS time.
 
The last point means that resets do not force you to re-enter the time
and date because the IKBD keeps track of these for you.  The original
came from a local BBS.  The executable file is 1343 bytes, proving
that the dev pack C can make small programs that do something.
 
PS. about the so-called uemail fiasco.  Could the problem be in a gate
somewhere.   I ask because I checked over my logs, and except for one
file none were sent from here more than once.  Also, the other,
non-atari subscribers, who received the same batch through bitnet did
not get multiples.  About uemail itself new versions will go to
compuserve only and to individuals who request the program directly.
I guess I just wanted to bring this group up to the Amiga set-up which
always seems to have source out the whazoo.  The new uemail has a full
cli with complete command line recall and editing, history, show and
environment variable passing to other processes, and a batch
processor.
 
------------------------------ cut here -------------------------------
 
table
 !"#$%&'()*+
,-./0123456
789:;<=>?@A
BCDEFGHIJKL
MNOPQRSTUVW
XYZ[\]^_
begin 777 CLOCK.PRG
M8!H   2H    1     P                  $*%(&\ !"/(   $\")H !C3a
MZ  <3KD   #N3OD    @2I\_/ !,3D$@;P $,B\ "# O  I(P%. ;P  "!#!a
M4<C__$* 3G4@;P $,"\ "$H09@  !D* 3G6P&&;R( A3@$YU(]\   3L3D$Oa
M.0  !.Q.=2/?   $[$Y-+SD   3L3G4CWP  !.Q.3B\Y   $[$YU3E8  $CGa
M 0PJ;@ (*&X #$)48   %# 4P?P "A(=2('00=!\_] X@ P5 #!L   (0D!@a
M   $< $,%0 Y;P  "$)!8   !'(!P$%FRB -8    DJ?3-\P $Y>3G5.5O^@a
M2.<#!!U\ $;_I'X!+KP   24/SP )DZY    @E2/+KP   2>/SP )DZY    a
M@E2//KP  2\\_____R\\_____S\\  5.N0   (+?_     H^O < /SP  3\\a
M  =.N0   ()8CT)7/SP  S\\  =.N0   ()8CSZ\ C0_/  "/SP !TZY    a
M@EB//KP'=T)G/SP !TZY    @EB/0E<_/  !/SP %4ZY    @EB//KP %3\\a
M  0_/  53KD   ""6(]@  $P+KP   2H/SP "4ZY    8E2/+KP   2\/SP a
M"4ZY    8E2/+HX&E____Z0_/  *3KD   !B5(]*+O^E9P  ]DON_Z8NCEV7a
M+PU.N0   ))8CRI #!T +V8  -0NCEF7+PU.N0   ))8CRI #!T +V8  +PNa
MCE67+PU.N0   ))8CRI #&X  O_\9@  9CU\ !S_H# N__Y(P('\  1(0$I a
M9@  %# N__Y(P('\ &1(0$I 9@  &C N__Y(P('\ 9!(0$I 9P  "$) 8   a
M!' !/4#_HC N_Z+1;O^@,"[_^K!N_Z!O   */B[_H&   #X,;@!6__YM   Pa
M#&X  ?_\;0  )@QN  S__&X  !P,;@ !__IM   2#&X '__Z;@  "$) 8   a
M!' !/@!*1V8 _LXP+O_^T'S_L'()XV R+O_\ZT& 08!N__HSP   !/1*+O^Ea
M9@  $CZ\ !=.N0   ((CP   !/0^N0  !/0_/  K3KD   !B5(]"+O^E?@%@a
M  #$+KP   34/SP "4ZY    8E2/+HX&E____Z0_/  *3KD   !B5(]*+O^Ea
M9P  G$ON_Z8NCE&7+PU.N0   ))8CRI #!T .F8  'HNC@:7____]B\-3KD a
M  "26(\J0 P= #IF   :+HX&E_____0O#4ZY    DEB/*D!@   &0F[_]$INa
M__AM   V#&X &/_X;@  +$IN__9M   D#&X .__V;@  &DIN__1M   2#&X a
M.__T;@  "$) 8   !' !/@!*1V8 _SHP+O_X<@OC8#(N__;K08!!,B[_].)!a
M@$$SP   !/9*+O^E9@  %CZ\ !=.N0   ((CP   !/1@   .3KD   2"(\  a
M  3T/KD   3V/SP +4ZY    8E2/+KD   3T/SP %DZY    @E2/0E=.N0  a
M "!*GTS?((!.7DYU0H P.0  !/1(0# Y   $]DYU,'P$0#"\  ).=3!\!$0Pa
MO   3G4-"BA>0R!T;R!#86YC96PI#0H*  T*16YT97(@9&%T92!D9"]M;2]Ya
M>3H@  T*16YT97(@=&EM92!H:#IM;3IS<SH@      @.!D@(" @("'0*" H<a
F&!(4$A(4# H("A0:&!C2$@8&"A(*%!H<'' 2!@H&!@H("@H2"  (a
 a
end