Path: utzoo!attcan!uunet!mcsun!hp4nl!ruuinf!accucx!plato.phil.ruu.nl!jeroen
From: jeroen@plato.phil.ruu.nl (Jeroen Scheerder)
Newsgroups: comp.sys.atari.st
Subject: Set your clock - NOW!
Message-ID: <893@accucx.cc.ruu.nl>
Date: 29 Oct 90 13:42:52 GMT
Sender: news@accucx.cc.ruu.nl
Reply-To: jeroen@plato.phil.ruu.nl (Jeroen Scheerder)
Organization: Logic section, Department of Philosophy, Utrecht
Lines: 72

TIME: a small and convenient time- and datesetting program.

Features:  - Set date and time with cursor keys (small number of keystrokes);
           - Accept only valid dates and times (leapyears included);
           - 'Remember' date\time by changing program's date\timestamp;
           - Restore date and time after resets;
           - Less than 2 kB in size.

Extras:    - Selects nonblinking TOS-cursor;
           - Resets _shell_p (the command shell pointer);
           - Selects EPSON printer for screendumps;
           - Selects 60 Hz refresh rate for color monitors.

The shown values are changed with the cursor keys, set with the Return key.

Since the program is really tiny I have uuencoded it and enclosed it in this
posting. If you want the 'manual' or the source too: I have posted them to
atari.archive.

I am very interested in your reactions, bug reports and wishes.
I can be reached: - by email:     jeroen@phil.ruu.nl
In case of a bug report please mention the circumstances the bug
occurred: your memory configuration, TOS version, monitor type,
disk type, other AUTO programs, accessories etc.


Hoping you enjoy this program,

                                        Jeroen. (jeroen@phil.ruu.nl)
begin 644 TIME.PRG
M8!H   :2    0   ! H               $  "\*+PLD;P ,1_D   ;8)HH@
M*@ ,T*H %-"J !S0O    0 G0/_\(@ @2D) 3KH%^$ZZ  Q.N@6N)E\D7TYU
M2.<8.D_O__"1R$ZZ!>XF $)X!$A"N 3V($-.N@7>0D%P TZZ!@!P!$ZZ!AI%
M[P ,< )!^0  !L).N@7,-@!M%$)!($I.N@60/U( !C]J  ( !& (+WP4(0  
M  1'[P (3KH%U": L+Q@    9PBPKP $9  "H":O  1-^0  !I)![@ ,3KH%
M1$($2>\  F   6(@2TZZ K).N@3V<A#BH+!\ $MG*&X0D'P '&<:D'P +&=,
M8   ^I!\ $UG  "F5T!G9F   .IX 6   .0P$W()XFC ? !_.( T$^I*Q'P 
M#SZ"(DQ!UW ?P%-R_TZZ ]0"4__@P'P 'X%38   E# 3<@GB:,!\ '\X@"!,
M,!/J2,!\  ]R 4ZZ V8"4_X?P'P #^M(@5-@*# 3<@GB:,!\ '\X@"!,,!/J
M2,!\  ]R_TZZ SP"4_X?P'P #^M(@5,P% )3 ?_ ? !_X4CC2(%38$PP$W()
MXFC ? !_.( T$^I*Q'P #SZ"(DQ!UW ?P%-R 4ZZ SX"4__@P'P 'X%3,!0"
M4P'_P'P ?^%(XTB!4S 7 E/^'\!\  _K2(%3,!-R">)HP'P ?\!\  -G!'0<
M8 )T'1U"  $P$^I(P'P #U- 0D$2-@  =!_$4[)"9 )@!'(?PE,"4__@PGP 
M'X-32@1G /Z<0@1@  $$0>L  DZZ ?A.N@.(<A#BH+!\ $MG*&X0D'P '&<:
MD'P +&="8   W)!\ $UG  "P5T!G9&   ,QX 6   ,9R_S K  )T"^1HP'P 
M'TZZ N(":P?_  + ?  ?X4CG2(%K  )@  ">,"L  G(+XFC ?  ?.( @3# K
M  +J2,!\ #]R 4ZZ LP":_@?  + ?  _ZTB!:P "8# P*P "<@OB:,!\ !\X
M@"!,,"L  NI(P'P /W+_3KH"F@)K^!\  L!\ #_K2(%K  (P% )K!_\  L!\
M !_A2.=(@6L  F D<@$P*P "= OD:,!\ !].N@)" FL'_P "P'P '^%(YTB!
M:P "2@1G /[Z(!-.N@,*0>X #DZZ K@P$TZZ IHP*P "3KH"GDI#;1@TJP "
M-5,  G(!, ,@2DZZ J P TZZ EY/[P 03-]<&$YU+PI/[__P0_D   :C1==P
M#A394<C__# 0<@GB:,!\ '_0? >\=!_$4'( ,@*"_  *TR\ !'( ,@*"_  *
M2$'3+P %-!#J2L1\  ]R #("@OP "M,O  =R #("@OP "DA!TR\ "#0 2,*%
M_ /HU2\ "C( 2,&#_ /H2$%(P8/\ &33+P +- !(PH7\ &1(0DC"A?P "M4O
M  PR $C!@_P "DA!TR\ #4'73KH!V$_O ! D7TYU+PI/[__P0_D   :R1==P
M#Q394<C__# 0<@OB:,!\ !]T #0 A/P "M4O  5R #( @OP "DA!TR\ !C00
MZDK$?  _<  P H#\  K1+P (<@ R H+\  I(0=,O  E!UTZZ 6Y/[P 0)%].
M=;)\  %F!%) 3G5*0&,&<O_20& "0D$P 4YU+P,O"C8 )$BR?  !9ABP?  ,
M9 120V D=@%R 3 23KK_QC2 8!:V?  !8P130V ,=@QR_S 23KK_KC2 , ,D
M7R8?3G5(YQ X-@ F2"A)1?D   :2LGP  68B<O_24$)"%#(0 +!"9 120V Z
M=@%R 2!,,!-.NO^*-H!@*K9\  %C!%-#8" ,4P "909P_M!38 )P"T)#%C( 
M '+_($PP$TZZ_UXV@# #3-\<"$YULGP  68.L'P %V0$4D!.=4) 3G5*0&,$
M4T!.=7 73G4O R\*-@ D2+)\  %F&+!\ #MD!%)#8")"0W(!,!).NO_ -(!@
M%$I#8P130V ,=CMR_S 23KK_JC2 , ,D7R8?3G4_/  (3D%43TYU/P _/  ^
M3D%83TYU/P _/ !,3D%83TYU/P _/  K3D%83TYU/P _/  M3D%83TYU+P@_
M/  )3D%<3TYU/P$_ "\(/SP 5TY!3^\ "DYU+P$O"#\ /SP 2DY!3^\ #$YU
M+P@_/  @3D%<3TYU/P O"#\\ #U.05!/3G4O"B\ /SP %DY.7$\D7TYU+PH_
M 3\ /SP %4Y.7$\D7TYU+PH_/  73DY43R1?3G4O"C\ /SP (4Y.6$\D7TYU
M'S\?'A\>'Q\>'QX?&PP;10 ;62Q#,# M,# M,# P,  @&UDL0R P,#HP,#HP
?,"  7$%55$]<5$E-12Y04D<       IH2 $!V+3,   @
 
end