POKEing Around The Color Computer

The following is a list of Coco 1 and 2 (should also work on the 3) pokes
which were published in the Saskatoon Color Computer User's Group
newsletter, March 1986. Originally they were taken from The Color 80
Journal newsletter published by the Adirondack Color Computer Club in New
York state. These might work on a Dragon too - please let me know.

Important Ones

POKE 65497,0 on Coco 1 and 2 double speed of RAM and ROM. It will cause
your screen to fill with garbage, and sometimes causes memory to disappear.
Printer, disk and cassette functions won't work.

POKE 65497,0 on Coco 3 double speed of RAM and ROM. Printer, disk and
cassette functions won't work.

POKE 65496,0 puts machine from double speed ROM and RAM back to normal
speed.

POKE 65495,0 doubles speed of ROMs; Basic programs by 1 and a half. Does
not work with all computers, or with disk, cassette or printer operations.

POKE 65494,0 puts ROMs and Basic back to normal speed. Cassette, printer
and disk works normally.

POKE 65315,54 disables cartridge takeover, allows you to put in a Rompack
without it starting up. NOTE: the use of this poke to put in a cartridge
with the machine power on can cause damage to your computer. It's use is
not recommended.

?PEEK(487)*256+PEEK(488) start address of last machine language program
loaded off of cassette

?PEEK(126)*256+PEEK(127) end address of last machine language program
loaded off of cassette

To put a 64K Coco into all RAM mode, where the ROM can be modified:

RESTORE: FOR I=3584 TO 3584+24:READ A:POKE I,A:NEXT:EXEC 3584: DATA
26,80,142,128,0,166,132,183,255,223,167,128,140,224,0,39,5,183,255,222,32,239
8,175,57

POKE &H95C9, &H57: POKE &HFF22, &H50  Coco 3 Green border

POKE &H95C9, &H17: POKE &HFF22, &150  coco 3 Black border

FOR X = 442368 TO 446225: LPOKE X,32: NEXT  Forces lowercase on 32-column mode on the CoCo 3

POKE 149,4:POKE 150,88  Sets printer baud to 50

POKE 149,2:POKE 150,227 Sets printer baud to 75

POKE 149,1:POKE 150,246 Sets printer baud to 110

POKE 149,1:POKE 150,153 Sets printer baud to 134.5

POKE 149,1:POKE 150,110 Sets printer baud to 150

POKE 149,0:POKE 150,180 Sets printer baud to 300

POKE 149,0:POKE 150,87  Sets printer baud to 600

POKE 149,0:POKE 150,40  Sets printer baud to 1200

POKE 149,0:POKE 150,25  Sets printer baud to 1800

POKE 149,0:POKE 150,23  Sets printer baud to 2000

POKE 149,0:POKE 150,18  Sets printer baud to 2400

POKE 149,0:POKE 150,10  Sets printer baud to 3600

POKE 149,0:POKE 150,7   Sets printer baud to 4800

POKE 149,0:POKE 150,3   Sets printer baud to 7200

POKE 149,0:POKE 150,1   Sets printer baud to 9600

POKE 155,X  (16,32,64,132,255) Sets printer width to X

POKE 111,254:DIR        sends directory to printer

PEEK(65314)             returns an even number if printer is on / odd if off

POKE 41382,188          generates a blinking cursor

POKE 41923,0            disables break key on INPUT/LINEINPUT, must be in all RAM

POKE 41923,3            restores break key operation, must be in all RAM

PEEK(25)*256+PEEK(26)   basic program start address

PEEK(106)               comma column width

PEEK(116)               127=32k computer, 63=64k computer

PEEK(170)               0 if trace flag on

PEEK(148)               current cursor color, 1-11

PEEK(182)               current PMODE, ECB only

PEEK(188)               14=disk system, 6=cassette system

PEEK(230)               DLOAD baud rate

PEEK(282)               0 if in lowercase mode

PEEK(32768)             69=ECB computer

POKE 359,57             keeps the computer on the last SCREEN command
                       used, until another SCREEN command is used.
                       example: it will stay on the high-res screen
                       SCREEN 1,1 until SCREEN 0,1 is typed in

POKE 25,6:NEW           PCLEAR 0 in extended Basic

POKE 25,14:POKE 3584,0:NEW   Pclear 0 in Disk Extended Basic

POKE 65314,8            does a SCREEN 0,1 without Extended Basic

POKE 65314,0            does a SCREEN 0,0 without Extended Basic

POKE 178,X              when put before graphics commands in Extended
                       Basic (Except PCLS) it will create different
                       colours and patterns.

POKE 186,X              if X is an even number from 2 to 128, it will
                       move the pointer to the start of the Hi-res
                       screen, and allows viewing in 1/2 pages

POKE 45,0:POKE 46,0     disables the CONT function after BREAK

POKE 113,0              cold start when RESET is pressed

POKE 113,85             regular restart after POKE 113,0

POKE 148,0              stops flashing cursor for 3 seconds

POKE 175,79             same as TRON, ECB only

POKE 280,PEEK(275)      true random numbers

POKE 282,0              enable lowercase

POKE 282,255            enable uppercase

POKE 283,X              slows keyboard response, X=speed, 1 is fastest

POKE 283,4              normal keyboard response

POKE 293,0              disable ECB and CB commands

POKE 293,20             reverses POKE 293,0

POKE 65313,0            motor on

POKE 65313,52           motor off


GAME CHEATS
===========
Replace X with number in range.

3D Brickaway           POKE 13648,X (1-255) # of men

Astro Blast            POKE 17351,X (1-255) # of men

Cashman                POKE 28302,X (1-255) # of men for player A

Donkey King            POKE 12914,X (1-255) # men in Normal game
                      POKE 12904,X (1-255) # men in Practice game

Dunkey Munkey          POKE 15121,X (1-100) # of men

Electron               POKE 14019,X (1-255) # of men

Food War               POKE 10307,X (1-255) # of men

Fury                   POKE 13951,X (1-255) # of men

Galagon                POKE 10250,X (0-255) speed of first wave
                      POKE 15621,X (0-255) speed of second wave

Ghost Gobbler          POKE 9075,X (1-255) # of men
                      POKE 10860,0 9000 pt. bonus shape (v1.5 only)
                      POKE 10870,0 3 ghosts trapped (v1.5 only)
                      POKE 11678,255 black background

Grabber                POKE 16018,10  255 men

Katerpillar Attack     POKE 10793,X (1-255) # of men

Kron                   POKE 16902,4 255 men

LunarRover Patrol      POKE 22369,X (1-255) # of men

Mr. Dig                POKE 21561,X (1-255) # of men

Mudpies                POKE 29679,X (1-100) # of men

Pac-Tac I              POKE 9009,X (1-255) # of men

Planet Invasion        POKE 7446,X (1-40) # of men

Protectors II          POKE 8464,X (1-100) # of men

Space Race             POKE 10605,X (1-100) # of men

The Frog               POKE 12002,X (1-255) # of men

Trapfall               POKE 11452,X (1-255) # of men

Tutankam               POKE 17437,X (1-100) # of men

Whirlybird Run         POKE 8312,X (1-255) # of men

Zaxxon                 POKE 25624,X (1-255) # of men

Zaksund                POKE 16670,X (1-255) # of men