ATTRACT.I

[Table of Contents]

The ATTRACT.I include file resides on the Kyan Pascal 2.x Utilities Disk 1. It contains two procedures:

• ENABLE_ATTRACT
• DISABLE_ATTRACT

Attract mode is enable by default on the Atari 8-bit. Once the Atari computer is idle for seven to nine minutes (no keyboard input), attract mode rotates colors on the screen to protect the screen from "burn-in" damage. To disable attract mode in your programs, include the ATTRACT.I include file and call the DISABLE_ATTRACT procedure periodically.

For more information on the Atari 8-bit Attract Mode, see page 74 of Mapping The Atari Revised Edition.

PROCEDURE Enable_Attract;
BEGIN
#A
  LDA #$80 ;poke 128 into
  STA $4D  ;ATRACT (77)
#
END;(* Attract On procedure *)

PROCEDURE Disable_Attract;
BEGIN
#A
  LDA #$0 ;poke 0 into
  STA $4D ;ATRACT (77)
#
END;(* Attract Off procedure *)