🚀 go-pugleaf

[]

The recently posted version of IDLE had three bugs.  Two could cause
occasional crashes (due to interrupts overlapping: now the code
disables interrupts during the critical times), and the third bug
prevented the reverse video from being activated.

Here is a corrected version, uuencoded.
The source code is being posted to comp.sources.atari.st.

All IDLE does is zero the palette AND shift the video RAM pointer 32K
below the normal location.  Since that area is normally all zeros,
zeroing the video palette will display it as all black.  IDLE checks
to see that that piece of RAM is all zeros, and if it is not, it leaves
the video pointer as it was, but still zeros the palette.  This has the
effect of blanking the screen in color mode, but only reversing black
and white in monochrome mode.  The check for nonzeros is done slowly,
so strange things _might_ show on the screen for up to 20 seconds.
But not to worry: IDLE does _not_ write to the video RAM.

I have only tested IDLE with a monochrome monitor, but it is supposed
to work with color too, as described.

- Moshe Braner

---------------------- cut here --------------------
begin 644 idle.prg
M8!H   )X                             &   7Y)1$Q%     $CG@,! a
MYP!\!P!*>0   4YF5$'Z 3!3D&I,0?B"0$/Z 31P!R+00IA1R/_Z,_P  @  a
M 4Y*>0   59F*C/\  $   %.0?B" ! H  'A2! H  ,SP    5@P.@#T$4  a
M ^!($4   4'Z . P$&H*0GD   %6,#Q] %% ,( @>@#22K   &8&2K  !&<Pa
M,#H M Q   %F%C Z +01P((#X$@1P((!,_P  @   4XS_'T    !5#/\  $ a
M  %61M],WP,!+SK_.$YU241,10    !(YX# ,"\ "@Q   -F F$B3-\# 2\Za
M_^9.=4E$3$4     2.> P&$*3-\# 2\Z__!.=4#G 'P' $IY   !3F<D,#H a
M.A' @@/@2!' @@%!^() 0_H ,' '(-E1R/_\0GD   %.(_P  (R@   !4$;?a
M3G4     C*                                                  a
M         $AZ #0_/  F3DY<CTAZ )P_/  )3D%<CW(*</]1R/_^4<G_^$'Za
M_]J1[P $0F<O"#\\ #%.04* 0?B" ! H  'A0! H  ,$0 " ,\    %:X8 Ca
MP    5P@> $8#*A)1$Q%__AG'G "DH%!^@ :(G 8 "1P& PF<!@8))$BBUB!a
M4<C_[$YU    M    1@   $4    V    /H    (    W    /X    ,#0H)a
M241,13H@=&AE($-25"!P<F]T96-T;W(-"@D@(" @8GD@36]S:&4@0G)A;F5Ra
M#0H)=F5R<VEO;B Q+C$@+2!I;G-T86QL960-"@H     &"0&"A0<. @(4B8*a
)A@@^! 0$! 0 a
 a
end