20.01.2015 Views

500 POKES for color computer

500 POKES for color computer

500 POKES for color computer

SHOW MORE
SHOW LESS

Transform your PDFs into Flipbooks and boost your revenue!

Leverage SEO-optimized Flipbooks, powerful backlinks, and multimedia content to professionally showcase your products and significantly increase your reach.

<strong>500</strong><br />

PODS<br />

PEEKS 'N EXECS<br />

fORtIIB<br />

TItS - 80 COLOR COMPUTElt<br />

_ ...,. ,


<strong>500</strong><br />

POIO:S<br />

PEEKS 'N EXECS<br />

FOR THE<br />

IRS - 80 COLOR COMPUTER<br />

supru/,{) DY<br />

PI!RlS IUDI(1 EIEI-""'rnO\/C'S<br />

J6/ Bt:N.~· ' '}<br />

P.O. 801 J<br />

l' ~1I1<br />

Rilhore M. Santwani


soo<br />

<strong>POKES</strong><br />

PEEKS "N EXECS<br />

<strong>for</strong> the<br />

lRS-SO COLOR COMPUTER<br />

by<br />

Kishore M. santwani<br />

Copyright (cj198


CONTENTS<br />

Ptel'aoe<br />

HowToU5eTheBook<br />

V<br />

vi<br />

FOR CASSETTE AND DISK SYSTEMS 1<br />

Maximum Memory ...•........................ 1<br />

Baslc Program Merge•••.••.•...................2<br />

Reset Button disable ..•...... _<br />

S<br />

ML Exec Address .....•..•.....................8<br />

Start/End address of hi'rflscreen 11<br />

X/V values in hi-res screen ...........••........12<br />

Slowing keyboard response ...........••...... , .14<br />

All Color Baslc/ECB/Dlsk Basic<br />

Comm"nds/Functions disables 15<br />

ECB DEFUSR/USR Vector Address 15<br />

KeyboiJrd Rollover bits 17<br />

Slowing down printing rate ................••...18<br />

Using Graphics withoot returning<br />

to t!lft screen ...............•....•..•.....•18<br />

Disabling all keys _...••.•......•...........•.. 18<br />

Oouble-Print Mode ......................•.....19<br />

Cnsette lIO .......••..•.................... ZO<br />

Determining Color Basic/ECB version .........••••23<br />

Substitute <strong>for</strong> 'INKEYS' 26<br />

Tuminqon/off motor relay<br />

Z8<br />

Rompak aU~l(ecute disable .......• _•....••••. Z9<br />

Hl-speed IXlkeS<br />

Z9<br />

Craphic/SemigTilphic modes 30<br />

Utility Routines , . . . . . . . . . ....•....3S<br />

Color Basic Commands disables .. . 3S<br />

ECB Comm"nds disables. . . . . . . . . . , . , . 37<br />

Screen·ta-printer mOlle 39<br />

Reset.Motor on/off from keyboard 40<br />

Key Disables 41<br />

Break·key Disable 42


Key-Beep 42<br />

Error·Beep, ., , 43<br />

Starting Basic Programs with<br />

the RESET button<br />

Recovering lost BASIC program .. ,<br />

43<br />

, .......•44<br />

Repeat Key .....•••• " .........•..........44<br />

Autostartlng Basic programs. . .•...•. , 44<br />

Printer. ,<br />

, , .........•........45<br />

Setting baud rates .......•...........•. , • , ..45<br />

line return delay 47<br />

Ilnewidth ..........•. "." .....••••47<br />

Disk directory to printer. .....• , , . , , , , ......••48<br />

Determining printer status 48<br />

FOR DISK SYSTEM DNLY , . ... , , 49<br />

Maximum Memory . 49<br />

Determining Disk Errors ...........•...........SO<br />

All Disk Commands disables.........•...........SO<br />

DiskFlleTypes<br />

, ........•.......51<br />

Disk DEFUSR/USR Vectors .............•.......53<br />

Disk Commands disables .................•..•..58<br />

FOR 64K CASSEnE & DISK SYSTEMS 61<br />

Setting64K All Ram Mode. , .......•..........•.61<br />

setting the Computer to Color Basic 61<br />

Changing Cursor Prompts , 61<br />

Key Disables .........••.......... , 52<br />

Autostarting Basic Programs. . . . . . . . . . . . 63<br />

Changing/Disabllng OK prompt. . . . . . . 63<br />

Break-key disable . ..........•.•• , .. 63<br />

SettingcomptuertoECB ..•• " ..........•.•....64<br />

ROMPAKTAANSFERTOTAPE." 64<br />

GAMES , 65<br />

Increasing the number of plays in 23<br />

different arcade games .......• , . , 65


,<br />

PREFACE<br />

<strong>500</strong> <strong>POKES</strong> PEEKS 'N EXECS FOR THE TRS-80 COLOR COM­<br />

PUTER is a unique book Inasmuch as it contains in<strong>for</strong>mation<br />

which Is of utmost significance to any programmer. This In<strong>for</strong>mation<br />

Is generally not found in one place and the people<br />

who know aft! hesitant to divulge thls valuable arid confidentlal<br />

in<strong>for</strong>mation. It has there<strong>for</strong>e taken a great deal of<br />

research to pre~r. this book.<br />

This book will unravel the POKE. PEEK ana EXEC commands<br />

of the Color <strong>computer</strong> to helpyou gain the power of Assembly<br />

Language thru ~. It includes vanoos comrTllflds relating to<br />

almost all the aspects of the Color COmputer programming. In<br />

order to help you reICh greater heights In successful programming.<br />

a number of Utlllty Routines Uke AUto!tartlng your<br />

Basic programs from cassette, Dlsabllng vanous Color/EeB/Disk<br />

BasIc commands. and Key- and Error-beep IIave<br />

been included.<br />

Besides the utlllzatlon of the bask: knowledge of the inner<br />

WOf1


"<br />

HOW TO USE THE BOOK<br />

SOO <strong>POKES</strong> PEEKS 'N EXECS FOR THE TR5-8O COlOR COM­<br />

PUTER ha been ~MIn a style that can be NSlly followed<br />

by a MOPhyte as well as a proftsSiooal programlMf./t follows<br />

a lOgical wquence of ~ groups ~ on the different<br />

Systems - e-tte and DlsII System,. 0Wt System onl)'.<br />

Pnnt«. and64K cassette 8. Disk S)'sums.<br />

EKfl POKE. PEEK 8. EXEC command is followed by the ensuing<br />

RESULT and detailed REMARt


vii<br />

FOR CAS5ETIE AND DISK SYSTEMS<br />

Most of the commands listed under this section are compati·<br />

ble with 16K/32K/64K Cassette and Disk Systems. However<br />

certain commands are not compatible with disk systems and<br />

are so mentioned in the REMARKS. Similarly. most commands<br />

are compatible with both Color Basic and ECB. While some are<br />

exclusively <strong>for</strong> Color Basic OR ECB OR Disk Basic. These are<br />

specifically mentioned in the RESULT or the REMARKS.<br />

Utility Routines<br />

One of the important features of this book is to help you<br />

utilize various POKE, PEEK and EXEC commands in different<br />

utility functions. These utility routines should have a statement<br />

number and Should be placed in the beginning of your<br />

Basic program.<br />

Certain Color and ECB commands disables have been included<br />

under the utility routines (Disk Commands Disables are listed<br />

under the section 'FOR DISK SYSTEM ONLY'). In order to<br />

disable various Color Basic/ECB/Disk Commands. first type in<br />

the BASE Command Pokes. The BASE Command Pokes <strong>for</strong> Color<br />

Basic/ECB/Disk Basic are given in the BEGINNING of each<br />

group and are followed by individual pokes which disable a<br />

SINGLE command. Once you have typed in the BASE pokes <strong>for</strong><br />

a group (Color Basic/ECB/Disk Basic), you may use ONE or<br />

MORE of the individual pokes to disable various commands.<br />

NOTE, DO NOT REPEAT THE BASE <strong>POKES</strong> FOR EACH IN·<br />

DIVIDUAL COMMAND DISABLE POKE, The same applies to the<br />

KEY·DISABLEs, except that you may use only ONE of the in·<br />

dividual Key·Disable pokes following the BASE pokes.<br />

FOR DISK SYSTEM ONLY<br />

All Commands listed under this section require 16K/32K/64K<br />

Disk System and are only compatible with ECB.


vIII<br />

FOR 64K CASSETTE AND DISK SYSTEMS<br />

All commands llsted under this :>eetlon require a 64K Color<br />

Computer and the 64K All RAM MODE given In the beginning<br />

of the :>eetlon. The command to set the All RAM MODE<br />

should have a statement number and should be 'RUN' to set<br />

the 64K ALL RAM MODE. The command to set the ALL RAM<br />

MODE should preferrably be given in the beginning 01 your<br />

Bask program.<br />

GAMES<br />

The commarnlS listed under thls:>eetlon help you to get more<br />

plays on 23 different arcade games. The individual commands<br />

should be typed In AFTER "(C)LOAOM'lnll the arcadeijame and<br />

BEFORE typing ·EXEC'. The names of the variouS arcadegames<br />

used in this section are Trademarks of different com·<br />

panles. and have been Included <strong>for</strong> the sake of easy comprehension.<br />

ABBREVIATIONS<br />

Certain abbreviations have been used In this book which are<br />

given below:<br />

ABBREVIATION<br />

Coord,<br />

C55<br />

"" For eK.<br />

I/O<br />

'oq.<br />

X.1-255<br />

EXPANDED FORM<br />

Coordinate<br />

""'" SO< EKtended Basic<br />

For eKample<br />

Input/Output<br />

Required<br />

X. 1 to 255.


FOR CASSETIE 8. DISK SYSTEMS<br />

PEEK(O)<br />

Returns a number < 128 if a basic program is haited<br />

by an 'END' statement or "7 =128 if halted by a 'STOP'<br />

statement.<br />

None<br />

PEEK{9)<br />

Returns a < ;. 0 number if data entered by a 'READ'<br />

statement or 0 if data entered by an 'INPUT statement,<br />

None<br />

PEEK(25)· 256 + PEEK(26)<br />

Returns the starting address of .. baSic program in<br />

memory.<br />

None<br />

CO•••ncl.<br />

"'lIlt.<br />

I••uka.<br />

POKE 25.6:POKE 26.1 :POKE 1536.0:NEW<br />

Makes maximum memory available <strong>for</strong> t>asic programs.<br />

Any basic program in memory is cleared. Not compatible<br />

with disk systems. Does not allow the use of<br />

graphics.<br />

POKE 25.12:POKE 26.1 :POKE 3072.0:NEW<br />

sets basic program starting address at the 'PCLEAR l'<br />

page,<br />

Not compatible with the diSK system. Allows limited<br />

use of graphics. Clears any basic program in memory.<br />

lIemark"<br />

POKE 25.1 B:POKE 26,1 :POKE 4608,O:NEW<br />

sets basic program starting address at the 'PCLEAR 2'<br />

page.<br />

Not compatible with diSK systems_ Allows limite


. 2 •<br />

C. ·'MI. POKE 25.Z4:POKE Z6.1 :POKE 6144.D:NEW<br />

"-'t.<br />

Srts Basic pi 0Qi ~ st¥ti~ address ~ the "PO..E.AR<br />

3' Page.<br />

a-ru. Not compatible with Disk Systems. AllOWS limited<br />

use of grapl'llCS. Clears any basic program in rMITiCII,.<br />

e-_.... POXE 2S.30:POKE 26.1 :POKE 7680.0:NEW<br />

"'It.<br />

Sets Basic program starting address ,t the 'PCLEAR<br />

4" Page.<br />

--.,.., Not compatible WIth DIsk Systems. ClNrs any basic<br />

program In memory.<br />

e-..... [CLOAO"f'ROGAAM'''J:POKE 118.PEEK(lS):POKE<br />

119.PEEK(26):X .. (PEEK(21)· 256 + PEEK(28))-2:<br />

A .. lNT(XIZS6):PQKE 25.A:POKE Z6.(X-(A· 256)):<br />

NEW :[CLOAO"PROGRAMZ"j:POKE<br />

25.PEEK(118):F'OKE 26.PEEK(119)<br />

__It. Merges "PRlX>RAM ". and "PROGRAMl",<br />

a-rb. Statement numbers of these two programs should<br />

not overlap. Merge'S BasI, programs only.<br />

CI.. • PEEK(27)· ZS6 + PEEK(28J<br />

• Ito Ret.ums the ending iIKklr~ of the Basic progl1lfTl in<br />

m"""'Y.<br />

a-an. Variable storagt starts at thiS add~.<br />

e-..... (PEEK(27)- 256 + PEEK(28J)-(PEEK(2S)' Z56 +<br />

"_tt.<br />

PEfX(Z6»)<br />

Returns the num~of tlytl"5 in a Basic program In<br />

m"""'Y.<br />

......... Numb« of bytn "'en


·3·<br />

....rtuI.<br />

PEEK(33}' 256 + PEEK(34}<br />

Returns the address of top of free RAM (start of<br />

string storage).<br />

The top of free RAM can De changed by the<br />

'CLEAA xx' command.<br />

e-....., (PEEK(35)' 256 + PEEK(36» .. 1<br />

....It.<br />

....rkl,<br />

Shows place of protected memory.<br />

For example if the protected memory starts at<br />

20000 which is set by 'CLEAR 1O.20eX)(r. the<br />

number returned by the above statement equals<br />

20000.<br />

(PEEK(35)' 256 + PEEK{36»-(PEEK(33)' 256 +<br />

PEEK(34))<br />

Returns the amount of string space reserved by<br />

'CLEAR xx',<br />

For example if string space is reserved by 'CLEAR<br />

200e)" then the above command returns the value<br />

of 2000.<br />

e:e.••aiI. (PEEK{39)' 256 + PEEK(40)) + 1<br />

...It. Shows place of protected memory.<br />

....r1uI, Same as in (PEEK{3S)oZ56+PEEK(36))+ 1.<br />

CO•••H, PEEK(41)oZ56+PEEK(4Z)<br />

•••It,<br />

• _.rks. None.<br />

Returns the statement number where a Basic<br />

program was halted by a 'STOP' command or the<br />

[BREAK KEY).<br />

._It.<br />

c.•••lIl1l'<br />

....rks,<br />

PEEK(43)' 2S6 +PEEK(44}<br />

Retums the most recent statement number<br />

executed.<br />

In case an error occured within a Basic program. it<br />

returns the error tine number.<br />

POKE 45,O:POKE 46.0<br />

Disables 'CONT' Function after break.<br />

'CONT" command after these <strong>POKES</strong> produces a<br />

"7CN ERROR'.


c......,<br />

-~,<br />

....,...<br />

·4 .<br />

PEEK(49)o 256 +PEEK(50)<br />

Returns current data line number.<br />

Non•.<br />

c.."H,<br />

...It•<br />

.........<br />

CHRS(PEEK(55)J + CHRS(PEEK(56))<br />

Last numeric variable used in iI bask: program.<br />

None.<br />

._tt.<br />

c.."H, CHRs(PEEK(SS)) + CHR${PEEK(56)-128)<br />

Returns last string variable used In a basic<br />

program .<br />

....,... None.<br />

PEEK(86)' 256 + PEEK(87)<br />

Returns current address during 'LIST.<br />

None.<br />

e-...., PEEK(104}oZ56+PEEK(105)<br />

....tt, Current line number of basic program.<br />

1_lr1uI, Returns 65535 If this command Is used In Direct<br />

Mod•.<br />

c.••••,. POKE 104.0:POKE 10S.0:CLOAO<br />

....It.<br />

lDads a basic program from cassette without<br />

blinking iI S or a "F In the top left comer of the<br />

screen .<br />

••••rtl.. These commands should be used from Direct<br />

-,<br />

POKE<br />

c.••••IIl,<br />

Mode.<br />

104.255:POKE 105.255:CLOAD<br />

Loads a basic program from cassette With a<br />

blinking '5' Of"F".<br />

These commands shoUld be used with,n a basic<br />

program.<br />

PEEK(l06)<br />

Returns comma column Width.<br />

None.


c:..••••.<br />

•••It,<br />

I_1m,<br />

· 5 .<br />

e:-..... P£EK( 108)<br />

"'It, Returns current prinl position in line.<br />

....,.., Returns number of char;,cters from the I~<br />

margin of the screen. :5o/tme M the "POS(Or<br />

Command of E~tended Basic.<br />

POKE 113.0<br />

Disables the reset button.<br />

Computer coldstarts when the reset button Is<br />

pressed.<br />

e:-....., POKE 113.85<br />

.'.llt, Enables the reset button after POKE 113.0.<br />

....111•• Computer warmstans when the reset button is<br />

pl"~sed.<br />

c...._, POKE 113.0:EXEC 40999<br />

"'It, Produces an immediate coldstan.<br />

....r1I•• Erases 1K(I024 Bytes) of Ram Memory starting at<br />

address O.<br />

e:-••lMl,<br />

"'It,<br />

a••ull••<br />

PEEKp 13}<br />

Tests if the <strong>computer</strong> Is setup <strong>for</strong> iI warmstart or<br />

a caldstart.<br />

Returns 85 If the <strong>computer</strong> IS setup <strong>for</strong> a warm·<br />

start or a < "85 number if the <strong>computer</strong> is setup<br />

<strong>for</strong> a coldstart.<br />

PEEK(114)' 256. PEEK(115)<br />

Returns jump address <strong>for</strong> wilrmstart.<br />

If PEEK(113)_85 and<br />

PEEK{PEEK(114)· 256 + PEEK(11 5)}" 18 then basic<br />

will jump to this address when reset button Is<br />

pressed.<br />

c.._INl. POKE 114.0:POKE 115.0<br />

___It. Disables the reset button.<br />

....r1g, ComP!Jter coldstarts when the rt'5et button is<br />

pressed.<br />

c.._INl, PEEK(116}<br />

"'It. Returns 127 in a 32K/64K System or 63 In a 16K<br />

System.<br />

....rk., Can be used to aSl:ertllln the memory size of a<br />

tomputer.


• ••<br />

e-..... PEEK(1l6)o2S6+PEEK(1I7}<br />

........ Arturns ~lumum I1'M!lTIOtY in System.<br />

....rUe None.<br />

PEEK(l20)<br />

Returns 2 if iI O


· 7 .<br />

COlllllllld,<br />

.,,.It,<br />

Il'.".'t<br />

ce.....di<br />

.....It,<br />

Il,••,k"<br />

(.....,.<br />

....It,<br />

••••rkt,<br />

PEEK(126)' 256 + PEEK(127)<br />

Returns the address at which the data read from<br />

cassette is stored in the <strong>computer</strong> memory.<br />

None.<br />

PEEK(129)<br />

Returns 2 if a cassette file is loaded into NONRAM .<br />

None.<br />

POKE 135,0<br />

Resets INKEYS Value to null.<br />

Resets the most recent IN KEYs Value.<br />

to",•••II, (PEEK(136)· 256 + PEEK( 137})~ 1024<br />

R....lt. Returns cursor position in text screen.<br />

Il••uka, Cursor position is betw~n 0 and 511.<br />

C••••IIIII, POKE 136.X:PQKE 137.Y<br />

JII•••1t, sets cursor position in text screen.<br />

RI.lrill. The above command sets the cursor position at<br />

(X' 256 + Y)-l 024 location in the text screen.<br />

(X' 256 + V) Must be " 1024 & < 1535.<br />

Co•••"d, POKE 136.X:POKE 137,Y:EXEC 8.HA 1A1:OQTO xx•<br />

...llito Flashes the cursor at text screen location<br />

(X· 256 ... Y)~ 1024.<br />

"'IIIUkl. Cannot be used in Oired: Mode. xx Denotes the<br />

Statement No. of the above command. (X· 2S6 ... Y)<br />

Must be ., 1024 aM


-.-<br />

e-..... POKE 140.X:POKE 14I.V:POKE 142.l:EXEC 43J5lI<br />

'11 It, Generates sound wIth tone X S. DuratiOn<br />

{YoZ56+Z)/4.<br />

....... To find the values of Y a Z-- A.DURATION·<br />

4:Y _INT(A/256):Z _(A_(V' 256)).<br />

e-...... POKE 148.0<br />

hRlt. Stops cursor flashlnQ <strong>for</strong> approximately 3 Sl!'CondL<br />

....rIo, None.<br />

c••,•• POKE 148.255<br />

• salt.<br />

....I1UI,<br />

St0p5 cursor nastling <strong>for</strong> approximately :3 seconcb,<br />

None.<br />

C. •.... POKE 148.11<br />

'11111, Restore flashing cu~ after POKE 148.0 Of POKE<br />

".m.<br />

148.255.<br />

None.<br />

.=.~~e PEEK(148)<br />

• It. Returns current cursor <strong>color</strong>.<br />

'Mn'" Cursor <strong>color</strong> Is between 1 and 11.<br />

:<br />

cc:.·::.~·~·... PEEK( I S7) • 2S6 • PEEK! 158)<br />

• I It. Returns the EXEC ADDRESS of a disk, Of cassette<br />

loaded ML PRO.<br />

No'''_<br />

:_=.:.:.~. POKE 157.178:POKE 158.119<br />

• It, Disables 'EXEC Command.<br />

'...... Works only it "EXEC' is not 5uffixiKl by an acldrtsS.<br />

e-..... POKE 175.79<br />

nrrllt. Tumson Trace flag.<br />

'nsrt•• same as the iRON' Command of Extended Basic.


-,-<br />

e-....,<br />

"'tt.<br />

POKE 175.0<br />

Turns off Trace Flag.<br />

....rb. Same as the TROFF command of Extended BasIc.<br />

c._... PEEK(175)<br />

....It, Returns 0 it Trace Flag is off.<br />

I_.n" Works Dilly with Extended Basic.<br />

c.•••••.<br />

-,""<br />

PEEK( 175)<br />

....It, Returns A


. 10 .<br />

Command,<br />

Jltslllt,<br />

lIemarks,<br />

PEEK(181)<br />

Returns current <strong>color</strong> in 2 <strong>color</strong> graphic modes.<br />

legal values <strong>for</strong> <strong>color</strong>s 1-4 are 255.0.255.0,<br />

ReqUires ECB.<br />

Command,<br />

1I"lIlt,<br />

lIemarks,<br />

PEEK( 182)<br />

Returns current ·PMODE·.<br />

ReqUires ECB.<br />

Remarks,<br />

PEEK(183)' 256 + PEEK(l84)<br />

Returns the end address of current HI-RES<br />

Screen.<br />

ReqUires ECB.<br />

Command,<br />

1I"lIlt,<br />

PEEK(185}<br />

Returns the no, of bytes in a horizontal graphic<br />

line.<br />

Requires ECB.<br />

eo••and,<br />

Reslllt,<br />

Remlrks,<br />

PEEK(186)' 256 + PEEK(187)<br />

Returns start address of current HI-RES SCreen.<br />

ReqUires ECB.<br />

COlllmano,<br />

lIeSlllt,<br />

PEEK(188)<br />

Returns 14 with a DisK System or 6 with a<br />

Cassette System.<br />

Helpful to ascertain if disk or cassette system in<br />

operation,<br />

Command,<br />

IInlllt,<br />

lIemarks,<br />

PEEK( 189)' 256 + PEEK(l90)<br />

Returns the starting X COOrdinate. Requires ECB.<br />

For ex, it will return 128 with lINE(128.96)~<br />

(230.1 OO).PSET.<br />

Command,<br />

1I"lIlt,<br />

lIemarks,<br />

PEEK(191)' 256 + PEEK(192)<br />

Returns the starting Y Coordinate. Requires EC8.<br />

For ex, it will return 96 with lINE(128.96}­<br />

(230.1 OO).PSET.


· I I .<br />

c.••••,<br />

• _It.<br />

....ru,<br />

c.......,<br />

•••'t,<br />

c.....1Il,<br />

PEEK(193)<br />

Returns 8 with cotorset I and 0 with <strong>color</strong>set O.<br />

Requires Eca.<br />

PEEK(l94)<br />

Returns I If graphic pl~el set by 'PSET' or 0 If by<br />

'PRESET',<br />

Requires ECa.<br />

PEEK(195)·256 .. PEEK{196}<br />

••,It, Returns the ending X Coordinate value. Requires<br />

ECa.<br />

....ru, <strong>for</strong> e~. It will return 230 with UNE (128.96)­<br />

(23O.100).PSET.<br />

c.....lIl, PEEK( I 91)- 256 .. PEEK(l98)<br />

I_It, Returns the ending Y Coordinate value. Requires<br />

ECe.<br />

••••ru, <strong>for</strong> e~. it will return 100 with UNE(128.96)­<br />

(230. 1OO}.PSET.<br />

c.•••Il., PEEK( 199}" 256 .. PEEK(200)<br />

.,.,It, Returns previous X Coordinate value. Requires<br />

Ece.<br />

•_.rtll, For e~. it returns 230 with L1NE(128.96)­<br />

(230.1oo).PSET. Sets the starting x Coord (230)<br />

<strong>for</strong> UNE-{250.120).PSET.<br />

c......, PEEK{20 1)· 256 .. PEEK(202)<br />

....It, Returns previous Y coordinate value. Requires<br />

EC8.<br />

•, ...,m, For e~. it returns 100 with L1NE(128.96)-<br />

(230. loo).PSET. SetS ttle starting Y Coord(1 (0) <strong>for</strong><br />

L1NE-(250.120).PSET.<br />

c.•••lllll,<br />

....It,<br />

••••rtI.,<br />

PEEK(203)· 256 .. PEEK(204)<br />

Returns circle X Center CoorCl'nate value In MODE<br />

4. Req. ECB.<br />

2 - (PEEK(203)· 256 of PEEK(204)) =Circle Cent. X<br />

Coord in PMOOES 0-3.<br />

c.•••••, PEEK(205)' 256 of PfEK(206)<br />

....It, Returns (IrCle Y Center Coordinate value in<br />

MODES 2~4. Req, ECS.<br />

• '.Jrlll, 2" (PfEK(205)· 256 .. PEEK(206))" Circle Cent, Y<br />

CoorCl in PMODES 0-1.


· 12 -<br />

c....... PEEK(207)' 256 + PEEK(208}<br />

It••,t, Returns CIrcle radius in PMODE 4, Requires ECe,<br />

h"tIu, 2' (PEEK(207)' 256 + PEEK(208)) .. Circle Radius in<br />

PMODES 0-3.<br />

c.......<br />

It••tt.<br />

It_.,..••<br />

--, _...,<br />

c......,<br />

PEEK(207)' 256 + PEEK(208)<br />

Returns 'RENUM' Increment value.<br />

For ex. it will return 5 irl 'RENUM 10.15.5".<br />

Requires ECe.<br />

(PEEK(209)' 256 + PEEK{21 0))/256<br />

Returns the height/width ratio of a circle,<br />

For ex. it returns 2 in ·CIRCLE(9,9),6.4,2..5,.7S·,<br />

c.......<br />

Req. ECe.<br />

PEEK(209)' 256 + PEEK(21 0)<br />

a-tt.<br />

....rtuI.<br />

Returns 'RENUM' start (()Id) Une Numoer.<br />

For ex, it returns lOin 'RENUM 15,10$. Requires<br />

ECe,<br />

PEEK(213)' 256 + PEEK(214)<br />

Returns 'RENUM' new line number.<br />

For ex. it returns 15 in 'RENUM 15.10,5'. Requires<br />

ECe.<br />

c....... PEEK(215)+1<br />

__It. Returns No, of Characters in most recent 'EDIT"ED<br />

Statement.<br />

...... For ex. it returns 7 in '5 Print A". Requires ECe.<br />

e-..... PEEK(222) + 1<br />

It_tt, Returns current octclVe value used in the 'PUlV'<br />

command.<br />

1_'..., OCtave .. 1-5.For ex. it Returns 3 in<br />

·PlAV..03L5A···. Requires ECe.<br />

C...... INT(PEEK(223)-PEEK(224))/8<br />

-'-tt. Returns current volume value in the 'PLAY'<br />

command .<br />

...... Volume .. 1-31. For ex. it returns 6 in<br />

'PlAY·'V6L5A''',Req. ECe.


- 13 .<br />

c.._M, PEEK(225)<br />

__tt,<br />

Returns current note length used in the 'PlAY'<br />

command<br />

.......u, Note LEN. _ l-ZS5. For ex. it Returns 5 In<br />

·Pl.AY··L5A..•. ~. ECB.<br />

CHI_H. PEEK(226}<br />

....It. Returns current tempo ~alue used In the 'PlAY'<br />

command .<br />

....rtu, Tempo _1_2.55. For ex. It returns 9 In<br />

·PlAY·T9L2.5A..·. Req. ECB.<br />

c.._IMI, PEEK(230)<br />

__tt, Returns ·DL.OAO· Baud rate constant. Requlrts<br />

ECB.<br />

......... Returns 44 with 'OLOAO' Baud Rate 1200 3. 176<br />

c:......<br />

With Baud Rate 300.<br />

PEEK(2.32)<br />

-.-It. Returns current angle value used in the 'ORAW'<br />

command.<br />

••••m, Angle = 1-3. For ex. it returns 2 with<br />

·Dfaw..A2.M9.9···. Requlrts £CB.<br />

c....IMI. PEEK(2.33)<br />

__tt. Returns current scale value used in the 'DRAW<br />

Command.<br />

......... Scale _ 1-52.<strong>for</strong> ex. It returns 8 in<br />

·Dfaw··SSM9.9..·. ~. ECB.<br />

c.•••IMII.<br />

....It.<br />

....r..'<br />

PEEK(274)' Z56 +PEEK{2.75)<br />

Returns current TIMER' Value.<br />

Timer Value .0-65535. Requires ECB.<br />

ee•••••• POKE 274.X:POKE 275.Y<br />

....It. sets current timer value to X' Z56 + Y.<br />

......... To nncl the ~alues of X 8. Y -- A _nmer Value<br />

to be set: X -INT{A/256):Y _(A_(X'256).<br />

Requires £CB.<br />

c...... PEEX(274)'2S6+PEEK{275)<br />

1IIMItt,<br />

.......u. Compatible wtth Color Basic only.<br />

Returns Jump Address <strong>for</strong> <strong>color</strong> basic 'USR'<br />

function.


· 14 -<br />

c.._••. POKE 274,X:POKE 275.Y<br />

....It. Sets 'USA' Jump Address <strong>for</strong> Color Basic,<br />

....rQ.<br />

To find the values of X a Y -- A .·USR' Value to<br />

be set, X" INT(Al256j,y.(A-(X' 256)).<br />

Compatible with Color Basic only.<br />

C.•••H. POKE 280.PEEK(275)<br />

....n. Helps COCO Generate TRUE' Random Numbers.<br />

••••rQ. same as the Ext. Basic Statement --<br />

X. RND(-TIMER).<br />

c......, POKE 282.0<br />

....n,<br />

••••rQ.<br />

Turns on lowercase flag.<br />

Coco Generates lowercase characters.<br />

c.._••. POKE 282.255<br />

....It. Turns on uppercase flag,<br />

....rk., Coco Generates uppercase characters.<br />

c.•••••.<br />

....It.<br />

"'ulUh<br />

c......,<br />

....It.<br />

".uk•.<br />

c.•••••,<br />

....It.<br />

".IrQ.<br />

c..••••.<br />

....It.<br />

PEEK(282)<br />

Returns 0 if lowercase flag is on•<br />

None,<br />

PEEK(282)<br />

Aeturns 255 if uppercase flag is on.<br />

None.<br />

POKE 283.X<br />

Slows down keyboard response,<br />

X.5 to 255. 255 ~- slowest.<br />

POKE 283.4<br />

Restores keyboard response to normal after the<br />

preceding poke.<br />

None,


- 15 -<br />

c.•••n•• POKE 293.0<br />

1II...It. Disables all Color Basic 8. Extended Basic funtlons.<br />

1II•••rks, If DisK Basic is present. disK functions are also<br />

disabled.<br />

POKE 293.20<br />

Enables Color Basic 8. ECB Functions disabled by<br />

POKE 293.0.<br />

Also enables DisK Basic Functions if disk basic is<br />

present.<br />

c.•••n.,<br />

III'Slllt,<br />

1II••uk.,<br />

c.•••••,<br />

1II.'lt,<br />

POKE 306. 17B:POKE 307.119.<br />

Disables all ECB 8. Disk Basic Functions.<br />

None.<br />

POKE 306. 129:POKE 307.104<br />

Enables ECB 8. Disk Basic Functions after<br />

prKeding command.<br />

None.<br />

" ••••11,<br />

1II.,lt,<br />

III_uk••<br />

ea•••II.'<br />

1II.lIlt,<br />

ea•••II.'<br />

1II.'lt.<br />

....rll:.,<br />

c.•••M.<br />

1II.,lt,<br />

1II_.rll:s,<br />

POKE 301.. 17B:POKE 302.119<br />

Disables all ECB 8. DisK Basic Commands.<br />

None.<br />

POKE 301.129:POKE 302.60<br />

Enables ECB & Disk Commands after 'POKE<br />

301.18:POKE 302.119'.<br />

None.<br />

PEEK(318)' 256 + PEEK(319)<br />

Returns USRO Vector <strong>for</strong> Extended Basic.<br />

set By -- 'DEFUSRO" xxxx·. Not compatible with<br />

Disk System.<br />

PEEK(320)· 256 + PEEK(321 )<br />

Returns USR1 Vetor <strong>for</strong> Extended Basic.<br />

set by -- 'DEFUSRl .. xxxx·. Not compatible with<br />

Disk System,


-_.<br />

•. IIIt.<br />

••••m.<br />

c......,<br />

.....t,<br />

••••111••<br />

c.••••,l1,<br />

....It.<br />

PEEK(322)" 256 + PEEK(323)<br />

Returns USR2 Vector <strong>for</strong> Extended Basic.<br />

Set by -- 'DEF~2.~ltu',Not compatible with<br />

Disk S~tem,<br />

PEEK(324)' 256 + PEEK(325)<br />

Returns USR3 Vector <strong>for</strong> Extended Basic,<br />

set by -- 'DEFUSR3_~~ltlt',Not compatible with<br />

Oisk System,<br />

PEEK(326j" 256 + PEEK(327)<br />

Returns USR4 Vector <strong>for</strong> ExtenGed Basic,<br />

Not Compatible with<br />

Disk System,<br />

....ro, Set by -- 'DEFUSR4 _ u~~'.<br />

c.....,l1, PEEK(328)" 256 + PEEK(329)<br />

....It, Returns USRS Vector <strong>for</strong> Extem'ed Basic,<br />

....m, set by -- 'DEFUSRS_uu', Not compatible with<br />

Disk System,<br />

c.....,l1, PEEK(330)"256+PEEK(331)<br />

•••It, Returns USR6 Vector ror Extended Basic,<br />

••••m, set by -- 'DEFUSR6 _uu', Not compatible with<br />

Disk System,<br />

Cnt..IMlI. PEEK(332)" 256 + PEEK(333)<br />

...It, Returns USA7 Vector <strong>for</strong> Extended Basic.<br />

....m, set by -- 'OEfUSR7 _uu', Not compatible with<br />

Disk System,<br />

c....IMlI.<br />

....It,<br />

....m,<br />

e-"d,<br />

-~.<br />

-....<br />

PEEK(334)' 2S6 + PEEK(33Sj<br />

Returns USR8 Vector <strong>for</strong> Extended Basic,<br />

set by -- 'DEFUSR8 _ XltltX', Not compatible with<br />

Disk System,<br />

PEEK(336)· 256 + PEEK(337)<br />

Returns USR9 Vector <strong>for</strong> Extended Basic.<br />

Set by -- 'DEFUSR9 _ uU', Not comp,lItlble with<br />

Disk System,


- 17 .<br />

( ........ PEEK(338)<br />

....11, Contains keyboard rolloVer bits @.H.P.X.O.8.<br />

[EI


· 18·<br />

te._IMI. POKE 359,50<br />

-'-tt. Slows oown charact!f printing ran.<br />

__~ 'SCREEN 0.1' after this POKE produc., an orange<br />

scrHn In ECB. Not compatible with Disk System,<br />

c••••••• POKE 359.0<br />

......, Restores normal character println9 rate after<br />

'POKE 359,50'.<br />

a-rb. Not compatible with Disk System.<br />

CeII_IMI, POKE 359.126<br />

.ullt. Restores normal screen after 'POKE<br />

359,60,SCREEN 0,1'.<br />

• ·.·m.. Not compatible with Color Baslc or Disk Bale,<br />

c. __II POKE 359.57<br />

a-tt. Allows the use of graphics scrMn or 'SCREEN 0,1'<br />

without returning to thl normal t.xt scrHn,<br />

1_ rb, Not compatible with COlor Baslc.<br />

'-_.... POKE 359,126<br />

a-tt. Recovers from 'POKE 359.51'.<br />

......... Not compatible with Color BasIc.<br />

c....... POKE 359,255<br />

'-tt, Disables all ke~.<br />

__rb. Any command Is IXICUted without appearing on<br />

scrHn. Rl'qulres ECa,<br />

-_...<br />

-.t.<br />

POKE 359,126<br />

Restores to normal after 'POKE 259,255'.<br />

Requires ECB.<br />

POKE 359.128<br />

Produces different graphic characters <strong>for</strong> different<br />

key'.<br />

ReqUires ECa. Not compatible with Disk System,


• 19·<br />

c....... POKE 359.126<br />

-.-tt. Restores to normal after 'POKE 359.128'.<br />

....rtu. This POKE will appear as graphic characters but<br />

will execute.<br />

c.a..... POKE 359.126:POKE 360.162:POKE 361.133<br />

....tt, Activates double-print mode.<br />

....I'tlI, Anything printed on the screen appears twice.<br />

c....... POKE 359.57<br />

""t, Returns to normal after double-priflt mode <strong>for</strong><br />

Color Basic.<br />

•<br />

....rII., Though this POKE appears double on screen. it will<br />

execute.<br />

c....... POKE 360.8.H82:POKE 361.8.H73<br />

__tt. Returns to normal after double-print mode <strong>for</strong><br />

ECB only.<br />

......-.. Not compatible with Disk System. see remarks <strong>for</strong><br />

'POKE 359.57'.<br />

c....... POKE 360.8.HCB:POKE 361.&H4A<br />

....t, Returns to normal after double-print mode <strong>for</strong><br />

Disk Basic 1.0.<br />

......... see remarks <strong>for</strong> 'POKE 359.57'. For OiSk Basic 1.1<br />

use 'POKE 360.8.HCC:POKE361.&H 1C.<br />

e-..... POKE 359.13<br />

...It, Allows the use of graphics screens and 'SCREEN<br />

0.1' without returning to normal text screen .<br />

.........., Requires ECe. not compatible with Disk System.<br />

POKE 359.126<br />

Returns to normal after 'POKE 359.13'.<br />

Requires ECe.<br />

c....... POKE 359.57:POKE 65480.0<br />

....tt. Oisplays Page O.<br />

....rII.. Page 0 contains System variables.


·20·<br />

e:.-_H, FOAl_ 243 TO 251 :REAOA:POKEI.A:NEXT:POKE416.126:<br />

POKE417.0:POKE418.Z43:0ATASO.98, 189,183.\1.\89.<br />

169.37.57<br />

...tt, 'CLS XJ( Commana producn dltter.nt COlorful clesIgns•<br />

• _ ...... 0:_1_255. Disables some EC8 commands ~ GET/PUT.<br />

RENUM.~.<br />

e-..... PEfK(425)<br />

...tt.o AI1vrns the number of d'laraCten: Input In the most<br />

rtctfltly Utc\lted string INPUT/UNEJNPUT command.<br />

....,.. Not ~icable to variable INPUT commn:ts suc:tl as<br />

"INPUT A",<br />

~c.,~.~... , PEEK(465)<br />

a..tt.<br />

Returns the no. of chafXters In the rue to be Q.OAO(M).<br />

--.... For ex. U..oAOM'lTT1E'· will mum 5 with the i1l:loYe<br />

command.<br />

c. ..... FORI.466 TO 473:~INT CHRS{PEEK(I));:NEXTl<br />

• It. Returns the filename of the ftle to be IoMled by<br />

__<br />

CLOAO(M).<br />

For ex. 'MAD'TITLE'" will return TlTLE',<br />

C.··· FORI- 474 TO 481 :PRINT CHR'(PE£K(lJ);:HEXTl<br />

-.-It, Returns the tliiname of the most recently loaded file.<br />

....rb, None.<br />

c:....... A _ PEEK(482):B. PEEK(483):C. PEEK(484)<br />

It A.B.C. 0 then the most recently 'Cl.OADED' File is<br />

"'11:.<br />

e.,,,.<br />

........, The 5 t1letypes are: BASIC. ASCII. DATA, ML. ML BLOCK<br />

LOAD.<br />

C. 11, A. PEEK(482):B. PEEK(483):C. PE£K(484)<br />

-_.<br />

-...tt. It A_D.S_ 25S IJ, C. 255. the most recent 'ClDADED' tilt<br />

Is ASCII.<br />

e.n<br />

• ' A_PE£)«482):B_PEEX(483);C_PEEK(484)<br />

Ililito If I... 1.8.255 &C_255, the most recent 'CLDADED· file<br />

Is, DATA File.<br />

p•• n.. None.


- 21 .<br />

CD••"'. A .. PEEK(482):B .. PEEK(483}:C .. PEEK(484)<br />

R"lIlt. If A .. 2.B .. 0 8. C .. O. then the most re


· 22 .<br />

CO•••II•• POKE (6144-7679).X<br />

"Hilt. Stores "X" to location (6144-7679) in graphics<br />

page 4.<br />

X. 1-255. For EeB only.<br />

POKE (7680-921S).X<br />

Stores 'X' to location (7680-9215) in graphics<br />

page 5.<br />

X,.1 to 255. For EeB only.<br />

"_It.<br />

c.__a', POKE{9216-10751).X<br />

Stores X to location (92IB-107S!) in graphics<br />

page 6.<br />

X .. 1 to 255. <strong>for</strong> ECB only.<br />

....,...,<br />

to•••••, POKE (10752-12287}.X<br />

1.,lt,<br />

Stores 'X' to location (1075Z-12287) in graphics<br />

page 7.<br />

X.. l to 255. For EeB only.<br />

••••m.<br />

e-••IHl,<br />

".llt,<br />

"_IfU,<br />

POKE (12288-13823),X<br />

Stores "X" to location (12288-13823) in graphics<br />

page 8.<br />

X _1 to 255. For EeB only.<br />

EXEC 32768<br />

Displays ECB coypright 'l"lessage.<br />

Requires ECB. Gives disk copyright message in<br />

DiSk Basic.<br />

CO•••llth PEEK (32768)<br />

••''It. Returns 69 if EeB IS present.<br />

__.rkl, Helps to distingUish EeB from Color Basic.<br />

c:....... EXEC 32944<br />

I_It. Displays ECe copyright message even if Disk Basic<br />

present.<br />

I_.,.go Requires ECB.


e-....,<br />

• It.<br />

_....<br />

FOR 1..33021 to 33OZ3: PRINT CHRS{PEEK(I))::NEXT I<br />

Displays ECB VerSlOO.<br />

!¥quires Eca.<br />

c......,<br />

-~,<br />

_...,<br />

FOR I:33039 TO 3J042,PRINT CHRS(Pf:EKllll:,NEXTl<br />

Oisplays EtB toPyngllt ye¥'.<br />

~uires £CB.<br />

e-...., EXEC 34471<br />

....t. Turns on Trace Flag,<br />

....rQ, Requires ECB. Same as 'TRON' Command.<br />

c.•••n"<br />

'.,It.<br />

....rk.,<br />

EXEC 34472<br />

Turns off Trace Flag.<br />

Requires ECB. Same as 'TROW Command,<br />

e.-..... EXEC 35337<br />

--'t. Renumbers any Basic pro. 10 memory WIth an<br />

Increment of 10.<br />

--.ru, Requires ECB.<br />

c....... EXEC 40999<br />

...tt, Produces a warm start.<br />

'-rtu. POKE I 13.0:EXEC 40999 produces an ,mm~late cold<br />

start.<br />

c.....IIII, EXEC 41175<br />

I ••tt, Displays Color Basic copyright m~e,<br />

1II•••m, Can be used to C1etermine the Color BaSIC<br />

version.<br />

c......,<br />

'_It,<br />

1II_.rk.,<br />

FOR I :41299 TO 41301 ,PRINT CHRS {PEEK(I)}:,NEXT I<br />

Displays the Color Basic verSIon.<br />

Non•.


eo••••e,<br />

....It.<br />

••••rk.,<br />

c.......,<br />

....It,<br />

••••m.<br />

C••••IHII.<br />

•••It,<br />

....,...<br />

c.••••e.<br />

....It,<br />

••••rIlI.<br />

EXEC 41393<br />

Blinks cursor aM walts <strong>for</strong> a keystroke.<br />

None.<br />

EXEC 42060<br />

Saves a basic program in memory to cassette.<br />

Same as 'CSAVE' command<br />

EXEC 42136<br />

Loads a basic program from cassette.<br />

Same as 'CLOAO' command<br />

EXEC 42238<br />

Loads a ML Program from cassette.<br />

Same as 'CLOAOM' command<br />

c. ,<br />

" It.<br />

••••m.<br />

EXEC 42521<br />

Generates an 710 ERROR' Messaoe.<br />

None.<br />

co••••e,<br />

....It,<br />

••••rIlI,<br />

c........<br />

....It,<br />

".......,<br />

co e,<br />

" It,<br />

" rk••<br />

EXEC 42753<br />

ReadS a block from cassette,<br />

None.<br />

EXEC 42954<br />

Turns on tape motor.<br />

Same as 'MOTOR ON' command<br />

EXEC 42961<br />

Generates a 6110th of a second delay.<br />

Can De used within your Basic program as a delay<br />

statement.


. 25 .<br />

EXEC 42963<br />

Generates a 4/IOth of a second delay.<br />

Can be uSl!'d within your Basic program as a delay<br />

statement.<br />

c.••••c,<br />

•••It,<br />

•••.,kl,<br />

EXEC 42985<br />

Turns off tape motor<br />

Same as 'MOTOR OFF" tommand.<br />

e-...., EXEC 43304<br />

._It,<br />

...rtu,<br />

Clears t!lft screen and homes tu~r.<br />

None.<br />

e-...c. EXEC 43319<br />

._It. Clears text screen and prints ·MICROSOFT·.<br />

None.<br />

••••rk.,<br />

c.•••••.<br />

•••It.<br />

•_.m,<br />

e-.....<br />

...It•<br />

•_.m,<br />

c.•••••,<br />

• "1l1t,<br />

•••.,1111'<br />

EXEC 43380<br />

Turns off Audio.<br />

Same as 'AUDIO OFF' command.<br />

EXEC 43421<br />

Turns on AUdio.<br />

Same as 'AUOIO ON' command<br />

EXEC 43486:PRINT PEEK (346)<br />

Returns right joystiCk horizontal value.<br />

Joystick values are between a and 63.<br />

e-...., EXEC 43486:PRINT PEEK (347)<br />

....It, Returns right joy5tltk vertical value.<br />

....m. Joystitk values are between a and 63.


(011111111111,<br />

1t"lIlt.<br />

It.llluk,.<br />

EXEC 43486:PRINT PEEK(348)<br />

Returns left joystick horizontal value.<br />

Joystick values are between 0 8. 63<br />

COIIIIII.IIl11,<br />

It.nlt,<br />

It.m,rkl,<br />

EXEC 43486,PRINT PEEK(349)<br />

Returns left joystick vertical value.<br />

Joystick values are ~tween 08.63.<br />

c.••'llf,<br />

It""lt.<br />

1t.1II.m.<br />

EXEC 44313<br />

Erases any Basic program in memory.<br />

Same as 'NEW' command.<br />

EXEC 44321<br />

Starts the execution of a Basic program in<br />

memory.<br />

Same as 'RUN' commalld.<br />

COIIIIIIIlIlll,<br />

It...lt,<br />

It.muk"<br />

EXEC 44326<br />

Erases all variables and strings.<br />

None.<br />

COmmlll.h<br />

Ituult,<br />

It.mukl,<br />

EXEC 44539<br />

Waits <strong>for</strong> a keystroke.<br />

'EXEC 44539' is used as a substitute <strong>for</strong> the<br />

following: 10 AS =INKEYs:IF As = .." Then 10<br />

Commllllll,<br />

It..ult,<br />

It....r..'<br />

EXEC 44539:PRINT CHRS(PEEK{135})<br />

Waits <strong>for</strong> keystroke and returns the key pressed.<br />

None.<br />

CO••llld,<br />

It...lt,<br />

1t••Ukl,<br />

EXEC 44658<br />

Generates an 'OM ERROR' Message.<br />

None.


• 27 .<br />

( _ .. EXEC 44661<br />

'-It. 'RUN's a baSIC program currently in memory.<br />

.......... same as 'RUN' command,<br />

(. • .... EXEC 44759<br />

Generates an '7SN ERROR' Message.<br />

a..tt.<br />

....ru.<br />

e:-_.,<br />

Kane.<br />

• Ita<br />

"Feru.<br />

EXEC 45045 1\$<br />

Waits <strong>for</strong> an Input al'ld stores the data input in AS.<br />

C


· 28 -<br />

c.._H. PEEK(652BO)<br />

' ••It. Returns 126 or 254 if right Joystick fire button<br />

•_.fIu,<br />

\s pressed .<br />

Requrtes joystick(s).<br />

C•••••IIII, PEEK(652BO)<br />

' ••It, Returns 124 or 252 if both joystick fire buttons<br />

are pressed .<br />

••••m. Requires 2(two) joysticks.<br />

C.._H, PEEK(65282)<br />

•••It, Returns 255 if a key is pressed or 0 if no key is<br />

pressed.<br />

••••m, Can be used as a substitute <strong>for</strong> the 'INKEYS'<br />

command.<br />

to•••••• POKE 65313. (PEEK(65313) OR 8}<br />

•••It,<br />

' ••ark.,<br />

Turns on cassette motor.<br />

same as 'MOTOR ON' command.<br />

to....., POKE 65313.3<br />

' ••It, Turns on motor relay.<br />

••••m. None.<br />

c••••••, POKE 65313.60<br />

".It, Turns on motor relay.<br />

••••m, NOfle.<br />

ee._.•,POKE 65313.52<br />

•••It.<br />

' ••arks,<br />

Turns off motor relay,<br />

None.<br />

eo••••IIII.<br />

FOR 1=1 TO 30,POKE 65313.3,POKE<br />

65313.5Z:NEXT I<br />

Produces a 'CRICKET SOUND' in Coco 1.<br />

This command does not work if printer is on.


eo•••nd, (PEEK(65314) AND 1)<br />

••Iult, Returns 1 if pri'lter is not re"rly,<br />

.'.Ukl, Can be used to aetermlne If the printer is on or off,<br />

eo•••nd, PEEK (65314)<br />

••Iult, Returns an even number if printer is on .<br />

• '.Ukl, Can be used to determine if the printer is on or off.<br />

e.-.'lId,<br />

...It,<br />

__.rkl,<br />

POKE 65315.54<br />

Disables auto execute from ROMPAK.<br />

• Danger' Pluggirlg in rompak with power Orl could<br />

damage the <strong>computer</strong> and/or rompak.<br />

eo•••nd, POKE 65315.55<br />

....Ib Enables auto execute from ROMPAK after 'POKE<br />

65315.54',<br />

__uk., same as 'POKE 65315.54',<br />

eo•••n," POKE 65495.0<br />

....It, Hi·Speed poke. Doubles the speed of all<br />

commands/functions.<br />

• '.Ukl, . Danger' This poke heats up the <strong>computer</strong> chips<br />

and rarely works with disk, Cannot be used during<br />

cassette I/O<br />

eo•••nd,<br />

• "ult,<br />

• '.Ukl,<br />

POKE 65494.0<br />

Restores to rlormal after 'POKE 65495.0'.<br />

None.<br />

POKE 65497.0<br />

HI-Speer! poke. Loss of screen/faster than 'POKE<br />

65495.0<br />

same as <strong>for</strong> 'POKE 65495.0',<br />

eo•••nd,<br />

...ult,<br />

••••rkl,<br />

POKE 65496.0<br />

Restores to normai after 'POKE 65497.0'.<br />

Th'S poke won't appear on the screen. but will<br />

execute.


· 30 .<br />

GAAPHICS/SEMIGRAPHIC MODES<br />

c......, POKE 65314. (PEEK(65314) AND 7J:POKE<br />

65479.0:POKE 65481.0: POKE 65483.0:POKE<br />

Ei547Ei.0:POKE 65474.0·POKE 65472.0<br />

'_tt,<br />

....t1l.t,<br />

setS semigrapnlC 4lT\OdP (32 x 16 -- 8 <strong>color</strong>s).<br />

'POKE' in locatIOns 3584 thru 409Ei to set PlXeI!S).<br />

c......, POKE 65314.(P£EK(65314) AND 7) + S:POKE<br />

65479.0:POKE 65481.0: POKE 6S483.0:POKE<br />

65476.0:POKE 65474.0:POKE 65472.0<br />

' ••It, SMs se1TI'9raptllc 6 modi! (32. x 16 --- CSS O. 4<br />

<strong>color</strong>s).<br />

• _ ....., 'POKE' in locatIons 3584 tnru 409l5 to set plnls.<br />

c......, POKE 65314. (P£EK(65314) AND 7)+24: POKE<br />

65479.0:POKE 65481.0: POKE 6S483.0:POKE<br />

65476.0:POKE 65474.0:I'OK£ 65472.0<br />

,._It, sen sem1llrapnic 6 mode (32 x 16 --- CSS 1.4<br />

<strong>color</strong>s).<br />

• _ ......., 'POKE' in locations 3584 thru 4096 to set pixels.<br />

c.•••••, POKE 65314. (PEEK(65314) ANO 7):POKE<br />

65479.0:POKE 65481.0:POKE 65483.0:POKE<br />

65476.0:POKE 65475.0:POKE 65472.0<br />

'._It,<br />

'_ark.,<br />

seu semigraphic 6 mode (64 x 64 --- 6 <strong>color</strong>s).<br />

'POKE' in locations 3584 thru 5632 to set pixels.<br />

c.•••n.' POKE 65314.(PEEK(55314) ANO 7):POKE<br />

65479.0:POKE 65481.0: POKE 65463.0:POKE<br />

65417.0:I'OKE 65474.0:POKE 65472.0<br />

._.rU,<br />

••_tt, Sets semlgraphic 12 mode (54 x 96--- 8 <strong>color</strong>s).<br />

'POKE' in locations 3584 thru 6656 to set pixels.<br />

e-...., POKE 65314. (PEEK(65314) AND 7):POKE<br />

65479.0·POKE 65481.0: POKE 65483.O:POKE<br />

65477.O:POKE 65475.0:I'OKE 65472.0<br />

'-tt,<br />

Stu semlgraphic 2411'lOde (64 II 192 --- 8 colof's).<br />

.........., 'POKE'in Iocin:ions 3584 thru 9728 to set pixels.


· 31 .<br />

c...... POI"\E 65314. {PEEK(65314} AND 7) + 12B,POI"\E<br />

65479.0'POI"\E 654B 1.0:POI"\E 65483.0:POI"\E<br />

65473.0:POI"\E 65474.0:POI"\E 65476.0<br />

....It. SPIS 64 ~ 64 --- 4 <strong>color</strong> graphics moae with CSS O.<br />

••••rk., 'POKE' In locations 3584 thru 4608 to set pixels.<br />

c...... POI"\E 65314, (pEEK 65314) ANO 7)+ 136:POKE<br />

65479.O:POKE 6548 \ .O:F'OKE 65483.0:POKE<br />

65473.0:POKE 65474.0:POKE 65476.0<br />

....It. Sets 64 ~ 64 --- 4 <strong>color</strong> graphics moae with C55 1.<br />

••••rq, 'POKE' In local Ions 3584 thru 4608 to set pi~els.<br />

c...... POKE 65314. (PEEK(65314) ANO 7) + 144:POI"\E<br />

65479.0:POKE 65481 ,O:POKE 654B3,0:POKE<br />

65473.0:POKE 65474.0:F'OKE 65476.0<br />

....It. sets 128 ~ 64 --- 2 <strong>color</strong> graphiCs mode with C55 O.<br />

1II•••rq, 'POI"\E' In locations 3564 thru 4608 to set pixels.<br />

e-••••. POI"\E 65314.(PEEK(65314) AND 7) + 152:POKE<br />

65479.0:POKE 65481.0:POKE 654S3.0:POI"\E<br />

65473.0:POKE 65474.0:POKE 65476.0<br />

.....t. Sets 128 x 64 --- 2 <strong>color</strong> graphics moae with CSS I.<br />

........ 'POKE' in locations 3564 thru 4608 to set pi~els.<br />

e-.... POKE 65314. (PEEI"\{65314) AND 7)+ 160:POI"\E<br />

65479.0:POI"\E 65481.0,POKE 65483.0,I'QKE<br />

65472.0,POKE 65475.0:POKE 65476,0<br />

I_It. sets 12B x 64 --- 4 <strong>color</strong> graphics mode with C55 O.<br />

....rU. 'POKE' In locations 3564 lhru 4608 to set pixels.<br />

e-...., POI"\E 65314. (P£EK(65314) ANO 7)+ 168:POKE<br />

65479.0:POKE 65481.0: POI"\E 654S3.0:POKE<br />

65472.0:POKE 65475.0:POI"\E 65476.0<br />

.Mllt, SETS 128 x 64 .- 4 <strong>color</strong> graphics mode with CSS 1.<br />

".uk.. 'POKE' in locations 3584 thru 4608 to set pixels.<br />

c...... POKE 65314. (PEEK(65314) AND 7)+ 176:POKE<br />

65479.0:POKE 65481.0:I'OKE 65483.0:POKE<br />

65476.0:POKE 65475,0:I'OI"\E 65473.0<br />

....It. Sets 12B x 96 --- 2 <strong>color</strong> graphics mode with CSS O.<br />

••••rk., 'POKE' In locations 3564 thru 5120 to set pixels.


c.._H, POKE 65314. (PEEK(65314) AND 7)+ 184:POKE<br />

65479.O:POKE 65481.D:POKE 6S483.0:POKE<br />

65476.O:POKE 65475.O:POKE 65473.0<br />

a-tt, Sets 128 x 96 --- 2 COlOr gr~1C'S mode WIth C55 I.<br />

'..s...... .POt


· 33 .<br />

c.•••••. POKE 65314. (PEEK(65314) AND 7) + 224;PQKE<br />

65479.D:POKE 65481.D:POKE 65483.D:POKF.<br />

65477.0:POKE 6547S,O:POKE 65472.0<br />

sets 128 x 192--- 4 <strong>color</strong> graphics mode with<br />

_._tt.<br />

....rIU.<br />

esso.<br />

'POKE" in locations 3584 thru 9728 to set pixels.<br />

c.•••••. POKE 65314. (PEEK 65314) AND 7)+232:POKE<br />

65479.0:POKE 65481.0:POKE 65483.0:POKE<br />

_._tt,<br />

65417.D:POKE 65475.0:POKE 65472.0<br />

sets 128 x 192 --- 4 <strong>color</strong> graphics mode with<br />

C55 1.<br />

....rIU. 'POKE" in locations 3584 thru 9728 to set pixels.<br />

c.•••••, POKE 65314. (PEEK(65314) AND 7) +240:POKE<br />

65479,O:POKE 65481.0:POKE 65483.0:POKE<br />

65477.0:POKE 65475.0:POKE 65472.0<br />

....It,<br />

Sets 256 l( t 92 --- 2 <strong>color</strong> graphics mode with<br />

C55 O.<br />

......0' 'POKE" in locations 3584 thru 9728 to set pixels.<br />

c.•••••. POKE 65314.(PEEK(65314) AND 7) +248:POKE<br />

6S479.0:POKE 65481.0:POKE 65483.0,POKE<br />

6S477.0:POKE 65475.0:POKE 65472.0<br />

•••tt, sets 256 x 192 --- 2 <strong>color</strong> graphics mode with<br />

CSS 1.<br />

....m, 'POKE' in locations 3584 thru 9728 to set pixels.<br />

c.•••IHl, PMODE 3.1 :SCREEN 1.0:POKE 65314.240<br />

....It, Lets you use 4 <strong>color</strong>s from PMOOE 4. Requires ECB.<br />

•••ark., 4 <strong>color</strong>s are Ork. Green. Medium Green. Gray Green &<br />

Light Green.<br />

ea••••ll, PMODE 3.1 :SCREEN 1.1 :POKE 65314.248<br />

I ••It, Lets you use 4 <strong>color</strong>s from PMODE 4. Requires ECB.<br />

4 <strong>color</strong>s are Black. Red. Blue and White.<br />

••••rk.,<br />

C••••lIl1. POKE 65314.200<br />

....It. Returns to PMODE 3.1 :SCREEN 1.1 after the<br />

preceding POKE.<br />

••mlm, Requires ECB.


Co.",•••, POKE 65314.192<br />

....It. Returns to PMODE 3 after 'PMOOE3:SCREEN<br />

1.0:POKE 65314.240'.<br />

•••u"', Reqllires EeB.<br />

c.•••••. PMOOE 1.1 :SCREEN 1.0:POKE 65314.240<br />

....It. Lets you use 4 <strong>color</strong>s from PMODE 1. Reqllires<br />

ECB.<br />

.....,0. 4 <strong>color</strong>s are Drk. Green. Medium Green. Gray Green<br />

8. Light Green.<br />

c......, PMODE 1.1 :SCREEN 1.1 :POKE 65314.248<br />

....It. Lets you use 4 <strong>color</strong>s from PMODE 1. Requires<br />

ECB.<br />

....m. 4 <strong>color</strong>s are Black. Red. Bille and White.<br />

c......., POKE 65314.192<br />

....It, Returns to PMODE 1 after 'PMODE 1.1 :SCREEN 1.<br />

O:POKE 65314.240'.<br />

•••ullo, Requires ECB.<br />

c.•••••. POKE 65314.200<br />

1II...lt, Returns to PMOOE 1 after ·PMOOE1.l :SCREEN 1.<br />

1:POKE 65314.248'.<br />

JIl•••m, Requires ECB.<br />

...., For detailed description of the<br />

GRAPHIC/SEMIGRAPHIC MODES. you may consuit<br />

pages 264 to 266 of 'GETTING STARTED WITH<br />

COLOR BASIC".<br />

'0... COLOR ORA'HIC MODIS.<br />

C55 O=Green. Yellow, Bille and Red.<br />

CSS 1 = Buff. Cyan. Magneta and Orange.<br />

ro. Z COLOII G.A'HIC MODIS,<br />

C55 O=Black and Green,<br />

C55 1 .. Black and Buff.


• 35 .<br />

UTILITY ROUTINES<br />

COlllmand, POKE 288.53:FOR 1=3584 TO 3605:READ A:POKE<br />

I,A:NEXT I,EXEC 3584:CLEAR 200.PEEK(116)' 256<br />

+ PEEK(117)-449:DATA 142.170,102.222.116.<br />

51,201.254.64.255.1,33.166.128,167.192.<br />

140.171.26,37.247.57<br />

Result.<br />

R.marks,<br />

Sets the base <strong>for</strong> Color Basic commands disables.<br />

Anyone or more disables <strong>for</strong> Color Bask commands<br />

may be used following the command given aoove.<br />

Comm.nd,<br />

anult,<br />

a.marks,<br />

POKE 32384.68<br />

Disables 'POKE' command <strong>for</strong> 32K/64K,<br />

Use after Color Basic base <strong>POKES</strong>. For 16K use 'POKE<br />

16000.68',<br />

Cammand,<br />

a••ult.<br />

••••rkl,<br />

POKE 32384.79<br />

Restores 'POKE' command <strong>for</strong> 32K/64K,<br />

Use after Color Basic base <strong>POKES</strong>. For 16K use 'POKE<br />

16000.79',<br />

Camm.nd,<br />

anult,<br />

a.marks,<br />

POKE 32392.68<br />

Disables 'L1ST' command <strong>for</strong> 32K/64K.<br />

Use after Color Basic base <strong>POKES</strong>, For 16K use 'POKE<br />

16008.68'.<br />

to••anel,<br />

R.nlt,<br />

R.mukl'<br />

POKE 32392.73<br />

Restores 'LIST command <strong>for</strong> 32K/64K.<br />

Use after Color Basic base <strong>POKES</strong>. For 16K use 'POKE<br />

16008.73',<br />

Commlnd,<br />

Result,<br />

R.mlrks,<br />

POKE 32401.68<br />

Disables 'NEW command <strong>for</strong> 32K/64K.<br />

Use after Color BaSIC oase <strong>POKES</strong>, For 16K use 'POKE<br />

16017.68'.


. 36 .<br />

(......,<br />

• _It,<br />

.........<br />

c......,<br />

•••It.<br />

_....,<br />

POKE 32401.69<br />

ReStOfes NEW' command <strong>for</strong> 32K/64K.<br />

Use after COlOr BaSIC base <strong>POKES</strong> For 16K uS


· 37 .<br />

Commlnd, POKE 32454.88<br />

•••It. Restores 'EXEC' command tor 32K/64K.<br />

....rb. Use Jitter Color Basic base <strong>POKES</strong>. FOI" 16K use 'POKE<br />

\6070.88'.<br />

11ft..<br />

Once you have typed In the base pokes tor ColO!" Basic<br />

Comruands disables. you may use any ONE or SEVERAL<br />

Command Disable <strong>POKES</strong>.<br />

c..••IMI. FOR I .3584 TO 3605:REAO A:POKE l.A:NEXT I: EXEC<br />

3584: CLEAR 200.PEEK(116)· 256 +PEEK<br />

(117}-561:DATA 142.129.131.222.116.51.201.253.<br />

•••It.<br />

....rUt<br />

208.255.1.43.166.128.167.192.140.129.240.37.247.57<br />

Sets the base <strong>for</strong> ECB Commilnds OiSiltJlts.<br />

RfClulres ECB•<br />

Anyone or more ot the ECB COmmand Disables may be<br />

used following the command given above.<br />

c_.·... POKE 3ZZ07.68<br />

...tt. Olsablts 'DEl' command <strong>for</strong> 32K/64K.<br />

__.rb. Requires ECB. Use atter ECB base <strong>POKES</strong>. For 16K use<br />

'POKE 15823.68'.<br />

c.•••••.<br />

_....<br />

".It.<br />

c.......<br />

•••It.<br />

••••rk••<br />

Commlnd,<br />

_....<br />

•••It.<br />

POKE 32207.69<br />

Restores 'DEL' command <strong>for</strong> 32K/64K. Requires ECB.<br />

Use Jitter ECB base <strong>POKES</strong>. For 16K use 'POKE<br />

15823.69'.<br />

POKE 322:11.68<br />

Disables 'EDIT command <strong>for</strong> 32K/64K. Requires ECe.<br />

Use af'ter ECB base <strong>POKES</strong>. For 16K use 'POKE<br />

15827.68'.<br />

POKE 3221 1.73<br />

Restores 'EDIT" command <strong>for</strong> 32K/64K. Requires ECB.<br />

Use af'ter ECe base <strong>POKES</strong>. For 16K use 'POKE<br />

15827.73'.


· 38 .<br />

..-It.<br />

c....... POKE 32214.68<br />

Disables "TRON" commaml <strong>for</strong> 32K/64K<br />

Requires ECB.<br />

....ru, Use after ECa base <strong>POKES</strong>. For 16K use POKE<br />

15830.68",<br />

c....IMI, POKE 32214.82<br />

I ••tt, Restores "TRON" command <strong>for</strong> 32K/64K.<br />

Requires ECB.<br />

....m' Use after EeB base <strong>POKES</strong>. For 16K use 'POKE<br />

15830.82",<br />

C. n, POKE 32218.68<br />

'[ III Disables ,RaFF" command <strong>for</strong> 32K/64K.<br />

Requires ECB.<br />

....rtg, use after ECB base <strong>POKES</strong>. For 16K use 'POKE<br />

15834.68",<br />

CHI..... POKE 32218.82<br />

I_It, Restores TROFF' command <strong>for</strong> 32K/64K.<br />

Requires ECB.<br />

••••rQ. Use after EeB base <strong>POKES</strong>, For 16K use 'POKE<br />

15834.82"<br />

C....... POKE 32253.68<br />

I ..IIL<br />

Disables 'PClEAR" command <strong>for</strong> 32K/64K.<br />

Requires ECB.<br />

........, Use after EeB base <strong>POKES</strong>. For 16K use POKE<br />

15869.68",<br />

e...... POKE 32253.67<br />

Restores 'PCLEAR' command <strong>for</strong> 32K/64K,<br />

Requires ECB.<br />

••••ru. Use after EeB base <strong>POKES</strong>, For 16K use 'POKE<br />

15869.67'.<br />

c....... POKE 32299.68<br />

-.-tt, Disables 'OLOAO' command <strong>for</strong> 32K/64K. ReqUires<br />

ECB.<br />

......... Use after ECB oase <strong>POKES</strong>. For 16K use ·POKE<br />

15915.68·.<br />

e-..... POKE 32299.76<br />

...It.<br />

__......<br />

Restores ·OLOAO· command <strong>for</strong> 32K/64K.<br />

Requires ITS.<br />

Use after ECB base <strong>POKES</strong>. For 16K use ·POKE<br />

15915.76·.


-39·<br />

eo•••••, POKE 32304.68<br />

Disables 'RENUM' command <strong>for</strong> 32K/64K.<br />

Requires ECB.<br />

....It, U5l:! after ECB base <strong>POKES</strong>. For 16K use 'POKE<br />

••••rb, 15920.68·.<br />

eo•••••, POKE 32304.69<br />

Restores ·RENUM· command <strong>for</strong> 32K/64K.<br />

Requires ECB.<br />

....It, Use after ECB base <strong>POKES</strong>. For 16K use 'POKE<br />

••••rb, 15920.69·.<br />

eo•••••, POKE 32311.68<br />

Disables 'PRINT USING' command <strong>for</strong> 32K/64K.<br />

Requires ECB.<br />

....It, Use after ECe base <strong>POKES</strong>. For 16K use ·POKE<br />

••••rb, 15927.68·.<br />

c....... POKE 32311.83<br />

....It. Restores ·PRINT USING· command <strong>for</strong> 32K/64K.<br />

Requires ECB.<br />

....rkIo U5l:! after ECB base <strong>POKES</strong>. For 16K use 'POKE<br />

15921.83·.<br />

lot..<br />

Once you have typed in the base <strong>POKES</strong> <strong>for</strong> ECB<br />

Commands Disables. you may use any ONE or<br />

SEVERAL ECB Command Oisable <strong>POKES</strong>.<br />

eo•••••, For 1=243 TO 250: READ A:POKE I.A:NEXT I:POKE<br />

359. 126:POKE 360.0:POKE 361.243:0ATA<br />

52.20.189.162.191.53.20.57<br />

....It, Enters SCreen~To-Printer Mode.<br />

••••rb, Everything that is printed on the screen goes to<br />

printer.<br />

c.•••••, POKE 359.57<br />

....It, Returns to normal after Screen-To-Printer<br />

Mode.<br />

••••rb. For Color Basic only.<br />

eo<br />

POKE 360.&H82:POKE 361.&H73<br />

1II lt. Returns to normal after Screen-To-Printer Mode.<br />

••lIIlrtu. For ECB only.


·40·<br />

CHI••••, POKE 360.8HCB:POKE 361.&HAA<br />

....It, Returns to normal aft~r SCreen-lo-Prlnter Mode•<br />

....rtu, For Disk Basic only. For Disk Basic 1.1 use 'POKE<br />

360.&HCC:POKE 361.&-I1C<br />

e-_.... AaPE£K(116)oZS6+PE.EK(117)-600:X .INT(M2S6):<br />

Y_A-{X·2S6):FORI.A TO A+37:REAO B:f'OKE I.B;<br />

NEXn:DATA 50.100.189.161.121.132:.127.129.10.<br />

39.11.129.9.39.18.129.12.38.13.126.160.39.182.<br />

255.33.138.8.183.255.33.134.10.57.189.167.233.32:.<br />

Z48:POKE 362. 126:POKE 363.X:POKE 364.Y:CLfAR 2OO.A<br />

___It, Allows RES€T. MOTOR ON and MOTOR OFF from the<br />

keyboard.<br />

........, For Color Basic only. Use CLEAR-KEY tOf RESET. down<br />

arrow <strong>for</strong> MOTOR ON. and right ilrrow <strong>for</strong> MOTOR OFF.<br />

This commilrld being lengthy can be broken Into 2<br />

statements after the datil.<br />

c:..•••IIl. A. PEEK(116)· 256 + PEEK(117)-602:X .INT(Al256):<br />

Y _A_(X '2S6):FORI_A TO A+40:REAO S:POKE 1.8:<br />

NEXT t:DATA 50.100.189.140.241.189.161.121.132:.<br />

127. 129.1 0.39. 11. '29.9.39.18.129.12.38.13. 126.<br />

160.39.182:.255.33.138.8.183.255.33.134.10.57.<br />

189.167. Z33.3l.248:POKE 363.X:POKE 364.Y: CLEAR<br />

ZOO.A<br />

a.nJt. Allows reset. MOTOR ON iIOd MOTOR OFF from ttle<br />

keyboard.<br />

....,... <strong>for</strong> ECB only. Al50 see remarks <strong>for</strong> ttle preceding<br />

command.<br />

c.•••M. POKE 362.57<br />

....It, Recove~ from Color Basic <strong>POKES</strong> <strong>for</strong> RESET. MOTOR<br />

ON & MOT()fl Off.<br />

....ru, <strong>for</strong> Color Basic only.<br />

c.•••••, POKE 363.llH8C:POKE 364.llHFl<br />

1I...lt, Recovers from ECB <strong>POKES</strong> <strong>for</strong> RESET. MOTOR ON and<br />

MOTOR Off.<br />

••••rk., <strong>for</strong> ECa only.<br />

c......, POKE 363.llHC5:POKE 364.llH8f<br />

I_It. Recovt'rs from &8 <strong>POKES</strong> <strong>for</strong> reset. motor on and<br />

motor off.<br />

......... For Disk Basic only. <strong>for</strong> DIsk BasIC 1.1. use POKE<br />

363.&iC5:POKE 364.llHOC·,


(olll.....d, A_ PEEK(116)· 256 + PEEK(117)-621:X _INT(A/256):<br />

Y_A_(X'256):FOA I_A TO A + 16:AEAD B:POKE<br />

I.B:NEXT I:POKE 362.126:POKE 363.X:POKE 364.Y:<br />

DATA 50.100.18.18,18.189,161,121,132,127,129.<br />

10,38.2,134.10.57:CLEAR 2OO.A<br />

."lIlt, Sets the Base <strong>for</strong> Key Disables, For Color Basic only,<br />

••••rkl. Anyone of the key disables may be used fOllowing the<br />

command given above.<br />

(olll.....d, A _ PEEK(116)' 256 + PfEK(117)-621 ,x_ltIT (Al256)'<br />

Y _ A-(X' 256): FOR I_A TO A + 16:AEAO B:POKE I.B:<br />

NEXT I:POKE 363.X:POKE 364.Y:DATA 50.100.189.140,<br />

241.189.161.121,132.127.129.10.38.2.134.10.57:<br />

CLEAA200,A<br />

."lIlt, Sets the Base <strong>for</strong> Key Disables, For ECB only,<br />

same as to.- preceding command,<br />

••••rkl.<br />

(olll.....d, POKE 32156.3<br />

."lIlt, Disables the Break Key <strong>for</strong> 32K/64K,<br />

••••rkl. Use after Key Disable base <strong>POKES</strong>, For 16K use 'POKE<br />

15772.3',<br />

(olll.....d, POKE 32156.8<br />

."lIlt, Disables the Backspace Key <strong>for</strong> 32K/64K,<br />

••••rkl. Use after Key Oisable Base <strong>POKES</strong>. For 16K use 'POKE<br />

15772.8'.<br />

(olll.....d, POKE 32156.12<br />

."lIlt, Disables the Clear Key to.- 32K/64K,<br />

••••rkl. Use after Key Disable base <strong>POKES</strong>. For 16K use 'POKE<br />

15772.1 Z·.<br />

(olll.....d, POKE 32156.21<br />

."lIlt, Disables the 'SHIFT-BACKSPACE' Key <strong>for</strong> 32K/64K.<br />

••••rkl. Use after Key Disable base <strong>POKES</strong>. For 16K use 'POKE<br />

15772.21'.<br />

(olll.....d,<br />

."lIlt,<br />

••••rkl.<br />

POKE 32156.32<br />

Disables the Space-Bar <strong>for</strong> 32K/64K.<br />

Use after Key DIsable base <strong>POKES</strong>. For 16K use 'POKE<br />

15772,32'.


- 42-<br />

c , POtU: 32156.94<br />

• It. /'llW'1S the of' Key <strong>for</strong> 321V. A-{X' 256): fOR I. A TO A +9:REAO 8:<br />

POKE 1.8:NEXT I:POKE 362.1Zfi:POKE 363.x:f'OKE<br />

364.Y:CLEAR 200.14:014114<br />

52.\ 18.198.1.189.169.81.53.118.57<br />

• t'b Acti'latn tfle Kty-8ftp routine.<br />

• ",. Any key~ produteS. beep. UW 'SOUND u.n" to<br />

crdt. tlftp~.<br />

(I<br />

•<br />

•<br />

• e<br />

It.<br />

-


·43·<br />

c....... POKE 363.&H8C:POKE 364.&HFl<br />

...It. ~ums to normal aft!!" Key Beep <strong>for</strong> EC8 only.<br />

....rU, For Disk Baslc 1.0. use 'POKE 363.aHC5:POKE<br />

364.aHaF'. For Disk BasIc 1.1. use 'POKE<br />

363.&HC5:POKE 364.&HBC',<br />

c....IHI, A. PEEK(116}o 256 +PEEK(117)-644:X .INT<br />

(A/!S6):Y. A-(X' 256): FOR I. A TO A + 9:REAO<br />

B:POKE l.B:NEXT I:POKE 398.126:I"OKE<br />

399.X:P'OKE 4OO,Y:CL.EAR ZOO.A'OATA<br />

52.118.198.1.189.169.81.53.118.57<br />

....tt. Activates the Error-Beep routine.<br />

....r1lI, Any error produces a beep. Use 'SOUND XlI.XX· to<br />

crute beep variations.<br />

c....... POKE 398.57<br />

...It. Rntores to normal after Error-Beep TOutlne.<br />

....rU, None.<br />

c....... A_PEEK(116)oZS6+PEEK(117)_12:X_INT<br />

(A/256):Y _A_(X' 256):POKE 113.85:POKE<br />

114.X:POKE 115.Y:OATA 18.189.173.33.189,<br />

172.239.126,173.158<br />

-...at. Restarts your e.slc Prog~m when till Re~<br />

Button is pressed.<br />

....I'U. For COlor Bask only.<br />

c......, A. PEEK( 116)0 256 + PEEK(117)-20:X _INT<br />

(A/256):Y. A-(X' 256):POKE 113,8S:POKE<br />

114.X:PQKE 115.Y:FOR I_A TO A • 17:REAO<br />

B:POKE I.B:NEXT I:DATA. 18.182.255.3.138.<br />

1.183.255.3.189.173.33.189.172.239.126.173.158<br />

....It, Restarts your Basl, Progr.m when the Reset<br />

Button is pressed.<br />

--.ru, For teB only.<br />

c....1MI. POKE 113.0<br />

'-It,<br />

....111., None.<br />

RKt!ven from th. two prending <strong>POKES</strong>.


- 44-<br />

C.'·llI, FORI_3584 TO 3612:REAO A:POKE I.A:NEXTI: DATA<br />

158.25.51.4.166.192.38.252.239.132.230.192.<br />

38.252.230.1 9Z.38.248.Z30.192.38.Z44.223.27.223.<br />

29.223.31,51:CSAVEM"RECOVER" .3584.3613.3564<br />

__It. Recovers Basic Programs lost by 'NEW Of faulty rnet.<br />

....rb. For ECB only. Insert a blank tape in your cassette<br />

Player. press play II record and 'RUN" the above<br />

program. The 'RECOVER' routine will be saved to tape.<br />

Whenever you lose your Basic Program. 'CLOAOM' the<br />

Recover Routine aM type 'EXEC".<br />

C. "P•• A .. PEEK(115)' 2S6 + PEEK(117)-1 OO:X 'OINT<br />

(A/256):Y. A-(X' 256):FOR I_A TO A+ 72:REAO 8:<br />

POKE I.B:NEXT J: POKE J62.126:POKE 363.X: POKE<br />

364.Y:CLEAR 2OO.A:OATA SO.I00.52.2O.<br />

189.161.121.132.127.52.2.189.161.193.142.4.<br />

254.189.167.21'.182.1.83.129.191.38.37:0ATA<br />

53.22.150.255,129.8.38.7.90.39.31.48.31.32.<br />

15.129.32.37.22.129.123.36.18.193.249,36.14.<br />

167.128.92.189.162.130.52.20.32.201.53.Z2.<br />

151.255.57.198.1.32.251<br />

"'It,<br />

Lets you repeat a key with a single keystroke.<br />

....rUt Tnls command being lengthy can be divided Into 2<br />

statements,t the be


. 45 .<br />

PRINTER<br />

CO••••ll,<br />

• "lIlt,<br />

•••uk.,<br />

POKE 149.4:POKE 150.88<br />

Set$ baud rate SO <strong>for</strong> printer.<br />

Consult the printer manual <strong>for</strong> your printer<br />

baud rates.<br />

c••••••• POKE 149.2:POKE 150.227<br />

....It, Sets baud rate 75 <strong>for</strong> printer.<br />

••muk., Consult the printer manual <strong>for</strong> your printer<br />

baud rates.<br />

Co•••••,<br />

••'lIlt,<br />

•••uk.,<br />

POKE 149.1 :POKE 150.246<br />

Sets baud rate 110 <strong>for</strong> printer,<br />

Consult the printer manual <strong>for</strong> your printer<br />

baud rates.<br />

tolll•••ll,<br />

."lIlt,<br />

•••Ukl'<br />

c.....,•.<br />

....It•<br />

•••Irk.,<br />

c.••••ll,<br />

."lIlt,<br />

•••uk.,<br />

POKE 149.1:POKE 150.153<br />

sets baud rate 134.5 <strong>for</strong> printer.<br />

Consult the printer manual <strong>for</strong> your printer<br />

baUd rates.<br />

POKE 149.1:POKE 150.110<br />

sets baud rate 150 <strong>for</strong> printer.<br />

Consult the printer manual <strong>for</strong> your printer<br />

baud rates.<br />

POKE 149.0:POKE 150.180<br />

sets baud rate 300 <strong>for</strong> printer.<br />

Consult the printer manual <strong>for</strong> your printer<br />

baUd rates,<br />

CO.....ll,<br />

....It,<br />

•••uu.<br />

POKE 149.0:POKE 150.87<br />

sets baud rate 600 <strong>for</strong> printer.<br />

ConSult the printer manual <strong>for</strong> your printer<br />

baud rates.


·


- 47-<br />

( ••••11111,<br />

1II.1.lt,<br />

1II...rtuI,<br />

POKE 151.0:POKE 152.1<br />

sets 0 SKond line return delay <strong>for</strong> printer.<br />

None.<br />

( ••••lIl11, POKE 151.64:POKE 15.2.0<br />

1II.1.lt, sets .288 second line return delay <strong>for</strong> printer.<br />

1II...rtuI, None.<br />

( ••••lIl11,<br />

1II.1.lt,<br />

1II...rtuI,<br />

POKE 151.128:POKE 152.0<br />

sets .576 second line return delay <strong>for</strong> printer.<br />

None.<br />

( ••••lIl11,<br />

1II.1.lt,<br />

1II...rtuI,<br />

POKE 151.255:POKE 152.255<br />

sets 1.15 seconds line return delay <strong>for</strong> printer.<br />

None.<br />

( ••••lIl11,<br />

1II.1.lt,<br />

1II...rtuI,<br />

POKE 155.16<br />

sets printer line width to 16 characters per line.<br />

None.<br />

( ••••lIl11,<br />

1II.1.lt,<br />

1II...rtuI,<br />

POKE 155.32<br />

sets printer line width to 32 characters per line.<br />

None.<br />

( ••••lIl11, POKE 155.64<br />

1II.1.lt, sets printer line width to 64 characters per line.<br />

1II...rtuI, None.<br />

( ••••lIl11, POKE 155.132<br />

1II.1.lt, sets printer line width to 132 characters per<br />

line.<br />

1II...rtuI, 132 is basic default printer line width.


·48·<br />

e-_.., POKE 155.255<br />

"'tt, sets printer line width to 2SS characters per line.<br />

....rb. None<br />

e-_... POKE 111.Z54:PRINT"Tl-l1S IS A TfST'<br />

...tt, Prints the mesSage THIS IS A TEST" to printer.<br />

....,... 254 Is the lSevlce number tot print.....<br />

e-_... POKE 111..254:OIR<br />

__tt, Prints the disk. dir:'''


FOR DISK SYSTEM ONLY<br />

- 49-<br />

Co••and. POKE 25. 14:POKE 26.1 :POKE 3S84.0:NEW<br />

lIIallllt, Makes maximum mefTlOl')' available <strong>for</strong> Basic programs.<br />

lIIa.ukl, Clears any Basic program In memory. Does not allOw<br />

the use of graphics.<br />

Co••and. POKE 2S.20:POKE 26.1 :POKE 5120.0:NEW<br />

lIIallllt, Sets Basic program starting address at the 'PCLEAR r<br />

lIIa.ukl,<br />

""•.<br />

Allows limited use of graphics. Clears any Basic<br />

program in memOf)'.<br />

_.<br />

Co••and. POKE 2S.26:POKE 26.1 :POKE 6656.0:NEW<br />

lIIallllt, sets Basic program starting address at the ·PCLEAR 2·<br />

lIIa.arkl, Same as <strong>for</strong> preceding command.<br />

_.<br />

1II••ukl, same as fOf preceding command.<br />

Co••and. POKE 2S.32:POKE 26.1:POKE B192.0:NEW<br />

lIIallllt, Sets BasIc program starting address at the 'PCLEAR 3·<br />

_.<br />

POKE 25.3B:POKE 26.1 :POKE 972B.O:NEW<br />

Sets Basic program starting address at the 'PCLEAR 4'<br />

PClEAR 4 is BasiC defaUlt moc:Ie.<br />

Co••and.<br />

lIIallllt,<br />

1II....rkl,<br />

PEEK(234)<br />

Returns 2 if a sector is being/was read from disk.<br />

None.<br />

Co••and.<br />

lIIallllt,<br />

1II....rkl,<br />

PEEK(234)<br />

Returns 3 if In<strong>for</strong>mation is being/was written to ttlsk.<br />

Non•.


·50·<br />

Co•••IHII,<br />

....It.<br />

"...111.1,<br />

PEEK(23S}<br />

Returns the current diSk drive in operation.<br />

The number returned is Detween 0 and 3.<br />

C••••IHII,<br />

....It,<br />

••••'1",<br />

c••••••,<br />

....It,<br />

• _ulll••<br />

c......,<br />

Inllt.<br />

••••rIII.,<br />

c ,<br />

....It,<br />

PEEK(236)<br />

Returns current track number.<br />

Track numDer is between 0 and 34.<br />

PEEK(237)<br />

Returns current sector flumber.<br />

sector number is betweefl 1 and 1B.<br />

PEEK(24O)<br />

Returns 0 if no error occurred during disk 1/0.<br />

Memory locatiofl 240 contains the disk status.<br />

PEEK(240)<br />

Returns 128 if disk drive is not ready during<br />

disk 1/0.<br />

Alse returns 128 if an 710ERRQR ocumMl during<br />

disk 1/0.<br />

••••rtI.,<br />

PEEK(24O)<br />

Returns 64 if in<strong>for</strong>mation was being written on<br />

a write-protected disk.<br />

None.<br />

C•••••d,<br />

• "lIlt,<br />

•••ulll.,<br />

POKE 308.0:POKE 313.0<br />

Disables all disk commands and functions.<br />

None.<br />

••••111.1.<br />

POKE 308.1 9:POKE 313.6<br />

Restores all disk commandslfunctions after<br />

preceding command.<br />

Only compatible with DiSk Basic 1,0


· 51 .<br />

e-..M, POKE 308.20:PO~E 313.6<br />

...". Rt'stOf"e') all dIsk commands/funetoons after ·POKE<br />

308.O:POKE 313.0·.<br />

....ru. only compatible with Oisk Basic 1.1.<br />

c..••... FOR 1.. 2048 TO Z048+ 73:PRINT CHRS(PEEKlI)};,NEXT I<br />

...", ~rurns the flle allOCation table fOf" dIsk dnve O.<br />

....rkI:,<br />

TrIe above commal'lCl must be used after tl'lf' ·DIR·<br />

Command.<br />

c....u, FOR I ..2122 TO 2122 + 73:PRINT CHRS(PEE~(Il);,NEXT I<br />

...It. Returns the file allocation table <strong>for</strong> disK drlve 1.<br />

....rk., Same as <strong>for</strong> preceding command.<br />

c......, FOR 1_2196 TO 2196+ 73,PRINT CHRS{PEE~{lll;,NEXT I<br />

...tt, Returns the file allocation table fOf" diSK drive 2.<br />

....rkI:, Same as <strong>for</strong> precedi"'lil command.<br />

e-..M, FOR 1_ ZZ70 TO 2270 + 73:PRINT CHRS(PEEK(I));:NEXT 1<br />

__Ito Returns the file allocation table <strong>for</strong> disk drive 3.<br />

....rkI:, Same as <strong>for</strong> preceding command.<br />

c......, FOR 1_2380 TO 2387,PRINT CHRS(PEEK(lIl;,NEXT I<br />

__tt. Returns the filel'llme of the most recently loaded disk<br />

file.<br />

....rkI:, tble.<br />

....rk.,<br />

FOR 1..2388 TO 2391 ,PRiNT CHRS(PEEK(I));:NEXT I<br />

Returns the extensIon of the most recently lO


- 52-<br />

••••111.,<br />

PEEK(2391)<br />

Returns 1 if the most recently dlSk"loided file is<br />

Data.<br />

None.<br />

C••",.I.,<br />

.'.lIlt,<br />

••••B.'<br />

c••••••,<br />

."Ilt,<br />

• I..ark.,<br />

c.•••Il.,<br />

a..ult,<br />

• I""rk.,<br />

PEEK(2391 )<br />

Returns 2 if the most recenty disk loaded file is ML.<br />

None.<br />

PEEK(2391 )<br />

Returns 3 if the most recently disk loaded file Is a<br />

Text Editor SOurce file"<br />

None.<br />

PEEK(2392}<br />

Returns 0 if the most retently diSk loaded file has a<br />

crunched or a binary <strong>for</strong>mat.<br />

None.<br />

PEEK(2392)<br />

Returns 255 if the most recently disk loaded file has<br />

an ASCII <strong>for</strong>mat.<br />

None.<br />

CO....Il.,<br />

1l1••lt,<br />

Illlll.rk.,<br />

PEEK(2394)<br />

Returns current disk drive in operation.<br />

Set by the 'ORIVE x· Command.<br />

COIII.,n., PEEK(2395)<br />

....It, Returns the number of disk file control buffers<br />

1.",.1'11..,<br />

active.<br />

The no. of file control buffers are between 1 and 15.


· 53 .<br />

e-....., POKE 2396.255<br />

•••tt,<br />

Erases any Basic Plll9ram in memory when reset is<br />

..."...<br />

••••m. AI50 close5 alt til" and shuts all fill! control<br />

buffl!rs.<br />

c.......,<br />

...,.,<br />

....rIlI.<br />

POKE 2396.0<br />

Rl!stores to normal after 'POKE 2396.255'.<br />

None.<br />

e-....., POKE 2397.2S5:LOAO··PRONAME··<br />

"'It,<br />

Clears any Basic program In memory if a load<br />

tn'Of Otturs.<br />

....m. None.<br />

POKE 2397.0<br />

Restores to normal after preceding command,<br />

Nonl!.<br />

PEEK(2398)<br />

Returns 0 if no 'MERGE' COmmand was executed.<br />

Noo•.<br />

••••m.<br />

PEEK(239B)<br />

Returns 2SS If two Basic Plll9rams were combined<br />

by ·MERGE·.<br />

None,<br />

._1.,<br />

eo......, PEEK(2399) 0 256. PEEK(2400)<br />

Returns USRO Vector Address.<br />

....m. Set by 'OEFUSRO_XllllJ(.<br />

c......., PEEK(2401)o2S6+PEEK(2402)<br />

•••,., Returns USRI Vector Address.<br />

....rIlI. Set by ·DEFUSR1_llllU'.


c......,<br />

._It,<br />

"._~,<br />

· S4 .<br />

PEEK{24(3)' 256 + PEEK(2404)<br />

Returns USR2 Vel:tOf Address.<br />

Set by ·DEFUSR2_xxxx'.<br />

Co•••••, PEEK{2405)o 256 + PEEK(2406}<br />

"HIlt, Returns USR3 Vector Address.<br />

........., Set by 'DEFUSR3 .. xxxx·.<br />

c.•••••, PEEK(2407)' 256 + PEEK(24D8)<br />

.Hllt, Returns USR4 Vector Address.<br />

....rb, Set by 'DEFUSR4",xXJlx',<br />

c.•••••,<br />

••lIlt,<br />

••••rk.,<br />

PEEK(2409) 0 256 + PEEK(2410)<br />

Returns USRS Vector Address.<br />

Set by 'OEFUSRS a xxxx·.<br />

C••m•••,<br />

••llt,<br />

••••rk.,<br />

c.•••••,<br />

••llt.<br />

.._....,<br />

PEEK(2411)o 256 + PEEK(2412)<br />

Returns USR6 Vector Address,<br />

Set by ·DEFUSR6. XXJlJl·.<br />

PEEK(2413)' 256 + PEEK(2414)<br />

Returns USR7 Vector Address.<br />

Set by ·DEFUSR7_uxx'.<br />

c......., PEEK(2415)"256+PEEK(2416)<br />

••llt, Returns USR8 Vector Address.<br />

••••rb. Set by 'DEFUSRB .. xxxx·.<br />

c......, PEEK(2417)" 256 + PEEK(241B)<br />

•••It. Returns USR9 Vector Address"<br />

....m. Set by 'OEFU5R9 _ XJlxx',


· ss .<br />

c.._H. PEEK(2428)· 256 + PEEK(2429)<br />

...It.<br />

.._r1t., set by 'OPEN·'D··.·! :'DATA/DAT" q'<br />

c..__.,<br />

.....It,<br />

._arks.<br />

Returns current direct access file record length.<br />

PEEK{2430)<br />

Returns current tr(l("k number <strong>for</strong> drive O.<br />

Track number is betWf!€n 0 and 34<br />

c.._..,<br />

....It.<br />

••_rks.<br />

PEEK(2431}<br />

Returns current track number <strong>for</strong> drive 1.<br />

Same as <strong>for</strong> preceding command.<br />

PEEK(2432)<br />

Returns current track number <strong>for</strong> drive 2,<br />

Same as <strong>for</strong> preceding command .<br />

c.__H,<br />

.....It,<br />

••••rks,<br />

PEEK(2433)<br />

Returns current track number <strong>for</strong> drive 3.<br />

Same as <strong>for</strong> preceding command<br />

toa.alMl,<br />

.....It,<br />

•••uk.,<br />

,..__.,<br />

....It,<br />

••••m,<br />

e-••II"<br />

.....It,<br />

•••uk.,<br />

POKE 2439.255<br />

Turns on verify flag.<br />

Same as VERIFY ON' command.<br />

POKE 2439.0<br />

Turns off verify flag .<br />

Same as VERIFY OFF' command.<br />

PEEK(2439)<br />

Returns 255 if verify flag IS on .<br />

None.


- 56-<br />

COlllllllad,<br />

....It,<br />

....ark.,<br />

PEEK(2439)<br />

Returns 0 if verify flag is off,<br />

None,<br />

c.••I1IlIl,<br />

•••ult,<br />

....arb,<br />

EXEC 49152<br />

Produces the disk copyright message,<br />

Clears any Basic program in memory.<br />

C.......IIII,<br />

...,,It,<br />

.....rk••<br />

PEEK{491 52)<br />

Returns 68 if Disk Basic ROM is present,<br />

can be used to distinguish between a Disk &<br />

Cassette system.<br />

c.lII..l.d,<br />

....It,<br />

....ark.,<br />

PEEK(491 56)· 256 + PEEK(49157)<br />

Returns the address of the 'DSKCON' Routine.<br />

The '05KCON' Routine is used <strong>for</strong> disk 1/0.<br />

c.....lnd,<br />

• "ult,<br />

....arb,<br />

EXEC 49364<br />

Enters the warmstart routine.<br />

Only compatible with Oisk Basic 1.0,<br />

..........<br />

CO....I ••'<br />

••••It,<br />

EXEC 49383<br />

Enters the warmstart routine.<br />

Only compatible with Oisk Basic 1.1 .<br />

Co.....n.'<br />

•••ult,<br />

•••Irk.,<br />

EXEC 52175.<br />

Displays the disk directory on the screen.<br />

Only compatible with Disk Basic 1.0,<br />

C...ralnd,<br />

...ult,<br />

••markl,<br />

EXEC 52393<br />

Displays the disk directory on the screen.<br />

only compatlbie with DiSk Basic \.1 .


c:.••••III,<br />

1I••lt,<br />

11_.,...<br />

c:.••••III,<br />

1I••lt,<br />

11_.,,,.,<br />

POKE 65344.1<br />

Turns on the disk drive 0 light.<br />

Disk drive 0 must be on.<br />

POKE 65344.2<br />

Turns on the disk drive 1<br />

Disk drive 1 must be on.<br />

light.<br />

c:.•••III11.<br />

1I••lt.<br />

II•••, ..,<br />

POKE 65344.4<br />

Turns on disk drive 2 light.<br />

Disk drive 2 must be on.<br />

e•••••III.<br />

1I••lt,<br />

II_.~.<br />

POKE 65344.64<br />

Turns on disk drive 3 light.<br />

Disk drive 3 must be on.<br />

ce••'III11,<br />

1I...lt,<br />

II••.,,,.,<br />

POKE 65344.0<br />

Shuts off all disk drive motors.<br />

Can be used as -- "LDADM··MLPRQ'·:POKE<br />

65344.D:EXEC.<br />

c:.•••III11.<br />

lIulIlt.<br />

PEEK(65353)<br />

Returns the current track no. of the disk drive<br />

In operation.<br />

Track no. Is betw~n 0 and 34.<br />

PEEK(65354)<br />

Returns current sector number of the disk drive<br />

in operation.<br />

sector number Is between 1 and 18.<br />

c:.••••III.<br />

1••lt,<br />

II•••~.<br />

PEEK(65352)<br />

Returns 0 if no error occurred during disk 1/0,<br />

None.


· 58 .<br />

DISK COMMANDS DISABLES<br />

c••••••. A.PEEK(116)'256+PEEK(117)-196,X,.INT<br />

{A/256):Y .. A-(X' 256):8. A:FOR 1.&HC17F TO<br />

&He} DB:PQKE B,PEEK(I);B. B + 1:NEXT I:POKE<br />

309.X:POKE 3tO,Y:CLEAR ZOO,A<br />

....It, sets the base <strong>for</strong> disk commands disables. For<br />

Disk Basic 1.0.<br />

• '.Ukl, Anyone or more disk commands disables may<br />

be used following the ccmand given above.<br />

c.....eI,<br />

c.......<br />

It._It,<br />

1t••'r11I,<br />

c.......,<br />

....It,<br />

••••m.<br />

c ,<br />

1t.._It,<br />

•••.,k•.<br />

to•••.,.<br />

....It.<br />

It_uk.,<br />

A'" PEEK(116)' 256 + PEEK(117)-I96:X .INT<br />

(A/256}:Y '" A-(X' 256):8" A:fOR I.. &He1g2 TO<br />

&He1 Fl :POKE B,PEEK(I):B .. B + 1:NEXT I:POKE<br />

309.X:POKE 310,Y:CLEAR 200.A<br />

Sets the t>ase <strong>for</strong> disk commandS disables. For<br />

Disk Basic 1.1.<br />

Anyone or more diSk commands disables may<br />

be used following the command given above.<br />

POKE 32571.68<br />

Disables 'D1R' Command <strong>for</strong> 32K/64K,<br />

Use after DisK Basic base <strong>POKES</strong>, For 16K Use<br />

'POKE 16187.68',<br />

POKE 32571,73<br />

Restores 'DIR' Command <strong>for</strong> 32K/64K,<br />

Use after Disk Basic base <strong>POKES</strong>, For 16K use<br />

'POKE 16187.73',<br />

POKE 32589.68<br />

Disables 'KILL' Command <strong>for</strong> 32K/64K.<br />

Use after Disk Basic base <strong>POKES</strong>, For 16K use<br />

'POKE 16205.68',<br />

POKE 32589.73<br />

Restores 'KILL' Command <strong>for</strong> 32K/64K,<br />

Use after Disk Basic oase <strong>POKES</strong>, For 16K use<br />

'POKE 16205.73',


to•••nll.<br />

....It,<br />

.'.Ukl,<br />

C••••III1,<br />

....It,<br />

••••rk.,<br />

to••••lI,<br />

....It•<br />

• _.rkl,<br />

C••••lIl1'<br />

....tt,<br />

..•.~.<br />

C•••••lI,<br />

....It,<br />

JI•••rkl,<br />

C......d,<br />

....It,<br />

W.III.nl,<br />

CO••'lIl1,<br />

...lIlt.<br />

•••Ukl,<br />

C•••••lI,<br />

....It.<br />

.'.lrkl,<br />

POKE 32593.68<br />

Disables 'LOAD' Command <strong>for</strong> 32K/64K.<br />

Use after Disk Basic base <strong>POKES</strong>, <strong>for</strong> 16K use<br />

'POKE 16209.68'.<br />

POKE 32593.79<br />

Restores 'LOAD' Command <strong>for</strong> 32K/64K.<br />

Use after Disk Basic base <strong>POKES</strong>, For 16K use<br />

'POKE 16209.79'.<br />

POKE 32601.68<br />

Disables 'MERGE' COmmand <strong>for</strong> 32K/64K.<br />

Use after Disk Basic base <strong>POKES</strong>. For 16K use<br />

'POKE 16217.68'.<br />

POKE 32601.69<br />

Restores 'MERGE' Command <strong>for</strong> 32K/64K.<br />

Use after Disk Basic base <strong>POKES</strong>. For 16K use<br />

'POKE 16217.69'.<br />

POKE 32606.68<br />

Disables 'RENAME' Command <strong>for</strong> 32K/64K.<br />

Use after Disk Basic base <strong>POKES</strong>. For 16K use<br />

'POKE 16222.68'.<br />

POKE 32606.69<br />

Restores 'RENAME' Command <strong>for</strong> 32K/64K.<br />

Use after Disk Basic base <strong>POKES</strong>. For 16K use<br />

'POKE 16222.69',<br />

POKE 32616.68<br />

Disabll!S 'SAVE' Command <strong>for</strong> 32K/64K,<br />

Use after Disk Basic base <strong>POKES</strong>. For 16K use<br />

'POKE 16232.68'.<br />

POKE 32616.65<br />

Restores 'SAVE' Command <strong>for</strong> 32K/64K.<br />

Use after Disk Basic base <strong>POKES</strong>, For 16K use<br />

'<strong>POKES</strong>- 16232.65'.


c_....,<br />

"-It,<br />

._ 'ft••<br />

POKE 32637,68<br />

Di~bleS 'D5KINl' Comm.nd <strong>for</strong> 32K/64K,<br />

USof ,tift' DIsk Basic base <strong>POKES</strong>, For 151< use 'POKE.<br />

16253.68',<br />

( _ ... POKE 32637,83<br />

__tt. Rntores 'DSKJNl' Comm.nd <strong>for</strong> 32K/64K.<br />

__,.., Use aftft' Disk Basic base <strong>POKES</strong>, For 16K UW 'POKE<br />

16253,83'.<br />

(I<br />

_.... • It.<br />

POKE 32643.68<br />

DisabIe5 'BACKUP' Command <strong>for</strong> 32K/64K.<br />

USof aftft' Disk Basic base <strong>POKES</strong>. For 16K Use 'POKE.<br />

16259.68',<br />

.c.;~.~.... POKE 32643.65<br />

~ tt.o Fk3tOle5 'BACKUP' Command <strong>for</strong> 32K/64K.<br />

....rbo<br />

Use 'tiff Disk Basic base <strong>POKES</strong>, For 16K use 'POKE<br />

16259,65',<br />

POKE 32653.68<br />

ObaOIn '05KIS' Comm,rtd <strong>for</strong> 32K/64K.<br />

Use after Disk Basic tlase <strong>POKES</strong>, For 16K uw 'POKE<br />

16269.68',<br />

'"'_... POKE 32653,83<br />

..... Restores '05KIS' Comm,nd tor 32K/64K.<br />

....,.., Use ,tter Disk Basic base <strong>POKES</strong>, For 16K use 'POKE<br />

16269,83',<br />

POKE 32658.68<br />

DIsables 'DSKOS' Comm,nd tor 32K/64K.<br />

Use ,tift' Disk Basic base <strong>POKES</strong>. For 16K use 'POKE<br />

16274.68'.<br />

e-_... POKE 32658.83<br />

.-.tt, Restores 'o5Kos' Comm,nd <strong>for</strong> 32K/54K.<br />

__....., Use ,tift' C'I5k. BasIc base <strong>POKES</strong>. For 16K use 'POKE<br />

16214,83'.<br />

11ft..<br />

Oncl! you hilvl! typI!(I in the BASE <strong>POKES</strong> to!' Disk BasiC<br />

Commancl Disables, you m,y use ONE Of t.4ORE DiSk<br />

BilsM;: CommarKl Disable <strong>POKES</strong>,


. 61 .<br />

FOR 64K CASSElTE & DISK SYSTEMS<br />

(I ..... RfSTORE: FOR 1_ 3584 TO 3584 + 24: READ A:POKE<br />

I.A: NEXT:EXEC 3584: DATA 26.80.142.128.0.166.<br />

132.183.255.223.167.128.140.224.0.39.5.183.<br />

255.222.32.239.28.175.57<br />

• tt, Sets the 64K All RAM MODE.<br />

• n •• Resettin9 the <strong>computer</strong> will oeaetivate this mode.<br />

.....<br />

e-••IMI,<br />

".It,<br />

....riI.,<br />

All commands listed under this Sl'Ction require<br />

the ALL RAM MODE.<br />

POKE ,41165.0:EXEC ,41085<br />

Sets the <strong>computer</strong> to Color Basic.<br />

DISilbies ECB and Oisk BasiC.<br />

e-...... POKE,41 381.1 8<br />

'''It, Generates a steady cursor.<br />

",uk., None.<br />

e-...., POKE,41382,188<br />

"'It, Generates a bl,nklng cursor.<br />

....rill' 'POKE' different values to create vanous cursor<br />

types.<br />

c......, POKE41385.18:POKE41386.18<br />

'_It, Generates an mVlsible (urSOl".<br />

__.1111, None.<br />

POKE ,41593.0<br />

Does not allow uppercasellower(ase flip ttlru<br />

'SHIFT-D',<br />

None,


._.,..,<br />

C••••H,<br />

•••It,<br />

••••rQ'<br />

POKE 41593.18<br />

Restores to normal after 'POKE 41593.0'.<br />

Allows uppercase/lowercase flip thru ·SHIFT·O·.<br />

POKE 41893.0<br />

Disables the Clear Key on INPUTILiNEINPUT<br />

commands.<br />

None.<br />

c.......,<br />

•••It,<br />

JI••srk.,<br />

c.......,<br />

...It,<br />

1II_.rk.,<br />

POKE 41893.129<br />

Restores Clear Key Operation to normal after preceding<br />

POKE.<br />

None.<br />

POKE 41923.0<br />

Disables the Break Key on INPUT/LINEINPUT<br />

commands.<br />

None.<br />

POKE 41923.3<br />

Restores Break Key Operation after preceding POKE.<br />

None.<br />

C.IIIIII••d,<br />

JI...lt,<br />

C.IIIIII••d,<br />

JI...lt,<br />

C.•••H,<br />

•••It,<br />

POKE 41909.0<br />

D,sables 'sHIFT-BACKSPACE' on INPUT/L1NEJNPUT<br />

commands.<br />

None,<br />

POKE 41909.21<br />

Restores ·SHIFT·BACKSPACE· Operation after preceding<br />

POKE.<br />

None.<br />

POKE 41954.255<br />

AllowS you to enter 255 Characters in a slnllie<br />

statement.<br />

Allows you to enter more instructiOns in a single<br />

statement.


CMlmancL. FOR 1.42223 TO 42231 :REAOA:POKEI.A:NEXTI:DATA<br />

189. 173.33.189.172.239.126.173.158<br />

~, Autostarts your basic program from cassette by<br />

"CLOAO·.<br />

• rna. None.<br />

c:........,<br />

.....It,<br />

....rk.,<br />

c........,<br />

.....It,<br />

".uk.,<br />

FOR 1.43288 TO 43302:POKE I. 18:NEXT 1<br />

AllowS you 255 differerlt designs thru 'CLS xx'.<br />

xx", 1 to 255.<br />

POKE 43314.5:POKE 43315.0<br />

'CL5 xx' clears oniy top half of the text screen .<br />

None.<br />

C......d,<br />

• "lIlt,<br />

".ukJ.<br />

POKE 43307.5:POKE 43308.0<br />

'CLS l(l(' Clears or'lly bottom half of the text screen .<br />

NOr'le.<br />

C..",...d,<br />

.....It.<br />

".ukJ.<br />

POKE 44009.ASC{"A"):POKE 4401 O.ASC{'T')<br />

Char'lges 'BREAK IN xx' Prompt to 'BREAK AT xx' .<br />

None,<br />

-.....<br />

(O.",...d,<br />

'''lIlt,<br />

POKE 44014.43:POKE 44015,43<br />

Char'lges the 'OK' Prompt to A . + +'.<br />

'POKE' different values to create different prompts.<br />

_.<br />

FOR 1.. 44150 TO 44155:POKE 1.18:NEXT I<br />

iJi5abjes the 'OK" Prompt.<br />

POKE 444S 1. 18:POKE 44452.18<br />

l)sables the Break ~ 00 all but INPUTIUNfJNPUT<br />

rom"""".<br />

For Color Basic only.


·64·<br />

ceo••••••<br />

....It,<br />

••••rks.<br />

ceo••••••<br />

....It.<br />

••••rks,<br />

Ca••••••<br />

....rQ.<br />

Ca......<br />

....It.<br />

• _artul.<br />

Ca••••••<br />

....It.<br />

••••ril••<br />

POKE 44533.12<br />

F'


·65·<br />

PROGRAM LISTING 1<br />

II a..ENI211I6JlM,a.s'''INT"1Il ~ 1IOII'IIl"PllINT'W l~ ROWIIl'<br />

21 EIl!C ~5i9:rF I'EEXU~Ia49 TIEII JI asl III<br />

JlI'IINT'PllINT'SNoIE fl(fIW( TO llII'E':PllINT'~IN6 IIOI'lfIll ..... ·1'1·(<br />

''£ElU 1361'256+I'EEll( 1371 HI2.<br />

III oWmll"1~l '''I'EEX("15Jl '1>l'EEKl.91~I'O=PEEK1"10;,l :E. PEEl( I_91 ~<br />

bIIFof'EtIl("I51l<br />

51 FOlII-1HC211 10 »fEll STtP IiIl_IPllINT il,I£ISIII:lF /'EEKllloA NCI<br />

pmU[+I)'1 N111'EE1111+21>oC NIl /'EEKll+JJoO NIl PEEKlI+-tlo£ NClI'EEKU<br />

"lof TIEII 91<br />

iii IF PEEKm.IUIIICIJlEEKIl+Il.IU /IIiD pml(I'2J.12~ ~D PEEKll'JJ.12<br />

6 NIII'EEKU+4I.126 NIl PEEKU+5I.126 TIEII 91<br />

11 kElT<br />

91 IF 1"III'FII TIEII 1"llf'EFl'<br />

9111AlT'fllDW("IF1'1~<br />

Flt,.9152,I,~915~<br />

I. i(lTO II<br />

III 1EST0lE::FOlII~TO ~,JOD Al~ I,Aa.tn<br />

121 (I,llA 26, Ill, 1.2, 128. I, lBJ, 25~, 222, 166, 1"32, 183, 255, 223,<br />

161, 128, 1111, m, I, ~, 2~1, 1_2, 1_, 3'0, \9;, 128, I'll, I~, Ill,<br />

121, 1'l2, .. 126, 1111, 161, 1~2, 1'l2, I, 216, 64, I<br />

131 D/lTA 166, 1'l2, 161, 128, 1~ 2Uo ~, 248, m" 1'l2,1<br />

1111 1MI'UT'FIL.ElW£"IFIIIQ.OtdIl flt,~<br />

151 Aof'EEl(t 1261'256+PEEKII21H :,W,+327l>11:M4EXSW 'PM ItFJ,VALl'1iI<br />

"+L£FTSIM, 21):m 'IH,VN..I'IiI'+RI&IT'IM,211<br />

161 ~INT'lDIW\ II[N)Y TO OEWTE':ElEC _29WElEC :1'801<br />

GAMES<br />

Type In these <strong>POKES</strong> AFTER '(ClLOADM'ing your<br />

arcade.game and BEFORE typing ·EXEC.<br />

C.•••H'<br />

1••It,<br />

....r1uI,<br />

c.__•••<br />

_•.<br />

....rk.,<br />

POKE 6415.x<br />

Sets 'x' ships in Astro Blast.<br />

x is any number of ships you want from 1 to 255.<br />

POKE 5872.1(<br />

sets "x" Men in Berserk.<br />

x is any number of men you want from 1 to 255.


·'" .<br />

e-..... POKE tSIZl.ll<br />

......t. Sets 'll' ~ in Duokey' Munkey.<br />

....m' ll;S ion}' number of men you want from 1 to 255.<br />

e.-..... POKE 4329.1.<br />

~ 'x' Itves in OOublebKk.<br />

-...n.<br />

..-.na. .. is any number of lives you WWlt from 1 to 255.<br />

e-..... POKE 12914.11<br />

...It, Sfts "lI' Men in Donkey ./


- 67-<br />

e-_... POKE 10739,x<br />

...tt. Stts 'J( lives In Kattrpi'lar.<br />

....ru, Jl Is any number of riv" you want from I to 255.<br />

e-__• POKE 2111 5,Jl<br />

-.-tt, Stts Y liv" in Ms, Ghost.<br />

....rUo Jl is any number of lives you want trom I to 255.<br />

c.•••IH!, POKE 9OO9,x<br />

•_.rIt.,<br />

....It, Sets ... IIv" In Pac-Tac.<br />

x is any number of lives you want from 1 to 255.<br />

C.•••llth POKE 10489.x<br />

I_It, Sets'" lives In Pac-Tac 2<br />

••_rIt.I, x Is any number of lives you want from 1 to 255.<br />

c:.._H, POKE 13579,90<br />

'._tt, TIle same joystick controls you use tor ftrtiQI rrtOVe·<br />

ment in 'PROTECTORS· also control the w~ you shoot.<br />

....rIt.I, Non'.<br />

c.._.... POKE 7674,x<br />

....It. Sets ·x· Ships in Space Invaders.<br />

••_m, x is any number of ships you want from I to 255.<br />

C'._H, POKE 10000,x<br />

I._It, Sets'" Ships in Space Race.<br />

••••m' x is any number of ships you want from 1 to 255,<br />

CO•••H, POKE 12oo2,x<br />

....It, Sets'" llves in THE FRO(L<br />

••••m, x is any number of lives you want from 1 to 255,


....<br />

'-_Ill, POKE 13951.lt<br />

-.-It. sets ".It' Ships In Fury.<br />

a-m, .It is any number of ships you want from 1 to 255.<br />

c.._''l1, POKE 907S,x<br />

__It, Sets 'x' Lives in GhOSt Gobbler.<br />

....r1uI, .It is any number of lives you want from 1 to 255.<br />

POKE 2414,x<br />

sets 'x: Men in Haunted Treasure.<br />

.It a I to 255. Type in tile aobollt POKE' Be<strong>for</strong>e -loading<br />

program.<br />

POKE 7446••<br />

Sets "lI:" Ships in Invasion.<br />

l( is "oy number of ships you want from I to 40.<br />

c••··ef' POKE 11452.l<br />

a-tt. ~ Y .." in Traptall.<br />

--..... .It Is any number of men you want trom 1 to 255.<br />

(. _tIlL POKE 8312,J1<br />

a-tt> Seu "lI" Slllps in Whlr1ybird Run.<br />

__m, 1I Is any number of ships you want from 1 to 255.<br />

C·.... POKE 16670.)(<br />

a-tt. Sets 'x' Sllips in lakSund.<br />

__11u. II Is any number of stllPS you want from 1 to 255.<br />

(. _ ... f'Ot(£ 25624...<br />

__It. Sets Y Ships in la'"tor'l. For Disk version only.<br />

--...... II Is any number of sniDS YOU WoInt from I to 255.<br />

Morll Uves On "CANYON CUMBER'<br />

_•.<br />

-,.<br />

_..<br />

Tum on Computer.<br />

Type: POKE 6531 S.S4 aocl Press (Enter].<br />

ln~ 'CANYON CUMB£R" Cartridge in cartndge Slot.<br />

Type: EXEC 49222 and press [Enter).<br />

Push the' reset t>uttOfl.<br />

_S.

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!