Atari BASIC Learning by Using

Download as pdf or txt
Download as pdf or txt
You are on page 1of 84
At a glance
Powered by AI
The document discusses a book about learning Atari BASIC programming through short example programs. It also mentions some other Atari programming books and utilities.

The book 'Atari BASIC Learning By Using' teaches Atari BASIC programming through many short example programs.

The book discusses Atari BASIC programming. It also briefly mentions FORTH and machine language programming.

Thomas E.

Rowley

ATARI BASIC Learning By Using

Carl M. Evans Slave Driver


Assistant Editor: Cindy Hall Right oar
Production: Debbie Cooke Left oar
Graphics: Don Smith Rudder
Editor:

Printed In the USA


IJG, Inc.
1953 W. 11 th Street
Upland, CA. 91786
USA

Thomas E. Rowley

ATARI BASIC Learning By Using

Published simultaneously in the United States of America and Germany


IJG, Inc.
1953 W. 11 th Street
Upland, CA. 91786
USA

ISBN 0-936200-35-9
(previously) ISBN-3-92-1682-86-X

10 9 8 7 6 5 4 3 2 1

Copyright

1983 by IJG

Inc.

All rights reserved. No Part of this book may be reproduced by any


means without the express written permission of the publisher. Example
programs are for personal use only. Every reasonable effort has been
made to ensure accuracy throughout this book, but neither the author or
publisher can assume responsibility for any errors or omissions. No
liability is assumed for any direct, or indirect, damages resulting from the
use of information contained herein.

Credits

This book is a result of a project initiated by Sam Calvin. He has been a


constant source of information and motivation. Much ofthe credit goes to
him for it's completion.
Thanks to Ron Leckron, Larry Cook, David Robinson and Vincent
Senter for their contribution of programs. A special thanks to Melinda,
my wife, for her support and enduring the many hours of work needed to
complete this project.
Reference is made to Atari throughout this book. Atari is a trademark
of Atari Inc., a Warner Communications Company. Ted Kahn of Atari is
recognized for his support.

Preface

This book has been written to provide a supplementary resource for


learning BASIC programming on the "Atari Personal Computer. " Short
programs and learning exercises are intended to motivate and stimulate
learning of Atari BASIC programming. "Hands On" interaction with a
computer is essential.
Some programs in this book use sophisticated programming
techniques, while others are written using simple Atari BASIC
statements. Many of these programs are appropriate for beginners as
well as experienced computer users. It is recommended that the user of
this book has an elementary knowledge of BASIC programming, and an
Atari Basic Reference Manual available.
Though many routines provided will be useful, it is not the intention of
the author to provide a book of finished software products. The routines
can be adapted as subroutines to other programs, or expanded to meet
the needs of the programmer. The programs in this book will work
properly on either an Atari 800 or an Atari 400 computer. 16K of memory
is required for some of the routines.
It is hoped that this book will provide the motivation to grow in BASIC
programming of the "Atari Personal Computer. " Much has been learned
in the process of writing it.

For the Singapore Airlines Group Muslim-workers


c/ o Blk 57, Sims Drive, # 13-1121,
Singapore 1438
(a branch of the Singapore Islamic Missionery Committee)

for the SIA Group Muslim-workers

HAIAH DAKWAH COMMIlTEE

_.

CO

:l

en
_.

c:

'<

CO

:l
:l

CD

rm

rn
o

l>

::Jl

-m

l>

Table of Contents

Introduction ...... . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 1
Chapter 1
Atari .. .. . .... .............. .... .. ............ . . .. . . . . . . . .... 3

Screen Drawings . . . .. ... . . ..... . ...... . ................... .


German Flag ....... . ........ . .... ...... .. . . .. . ..... .. .....
Design . .... . . . ... .... . .. . .... . ..... . . . ..... ... ..... . .. . . ..
Circle . .. .. ......... . . . . .. . ... . ............ ... .. ... ... .. . .
Star .... . . .. .. . .. .... . .. . .. . . .. .... . .... ... .. . .... . . . .....
Title Page .... ... ... .. ..... . . .... ...... . ................. . .
Symbols in GRAPHICS 2 ....... . ...... . . . . .. . . . .. . . .. ... .. .

3
3
4

6
7
8
9

Chapter 2
Special Sounds . . . .... .. . ...... . . . ..... ... . .. .. ... . .. ....... 12

Sound Effects ... .... ...... . ........ . . . .. .. .... . ...... . .. .


Musical Tune ....... .... ....... . .... .. ... .. . .... . . . ..... .
Up and Down Sound ............. . .... . .. .. . . , ..... . . . . ...
Audible Joystick ................ . .. ......... .... .. .. . . .. ..

12
14
16
18

Chapter 3
Keys, Paddles and Joysticks . . .. .. ... . . ... . .... . .............. 2 1

Console Function Key ................... . .......... .. .....


Paddle Motion .. ... . .... .. . .. . ... ... .... ...... . ..... . .. . .
JoystickDrawing ..... . . .... . . ... . . . . ... .. .... . . . ... .. ... .
TAB . . .......... ... . ............... ... . .. .. ....... . .. . ..
Key Control .. . .. ..... ... .. .. . . . ...... ... . . .... ... .. . .. . ..
Pick a Key ......... . .......... .. . .. ...... . . .. . ... ... .. . . .

22
23

25
26
27
28

Chapter 4
Specialized Screen Routines . ..... . . . ........... ......... . ... . 30

Player-Missile Graphics . . .... . ... .. ... .. .. . ...... . .. . .. . ..


German Font . ............ . . .... . .. . . ... . ..... . ... ... .. ...
Mixed Mode Screen ........ .. ... . .... .. .. . . ... .. ..........
Characters in GRAPHICS 4, 6 and 8 ... .... .. . ... . . .. . ...... .

30
33
35
39

Chapter 5
Graphics and Sound Application . .. . ...... ... .... .. . .. . ... . . .. . 42

Duel ............ . ..................... . .. .. . .. ... .. .....


Video Art . .......... . .... . .. .. ..... ... . .. . . . .... . .. ... . ".
Guessing Game . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
Slot Machine . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . ..
Linear X - Y Plot .. .. . .. . .. ................. . . . .... . ......

43
44
45
47
49

Chapter 6
PEEKS, POKES and Special Stuff . ... .. . . . ..................... 53

The Atari Clock 18 ,19,20 .. .......... .. ..... ...... . .... ... 54


Appendix 1
Description of Memory Addresses . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 57
Appendix 2
Player Missile Memory Map . ... . ............... .. ..... . ....... 60
Appendix 3
Building a Display List ...... . .. .. .. .. .. .. ....... . ............ 63

Appendix 4

Calculating Screen Position . ..... .... .... ...... .. . ............ 69

Introduction

This is an "ACTION" book. You do more than read it. You use it,
discover with it and create with it. Learn Atari BASIC through the short
programs provided. The examples challenge you to change and write
programs on your own. They are a great source of instruction for any
teacher or student.
Enough words, let's have some "ACTION." Sit down to your Atari
computer and "Learn by Using."

ATARI400
1

ATARI 800

Atari

Screen Drawings
This set of programs for "Screen Drawings" provides a good starting
point to learn Atari graphics.
Try to become proficient in the use of the following Atari statements
used in this section.
COLOR

SETCOLOR

GRAPHICS

PLOT

DRAWTO

Refer to your Basic Reference Manual for a description of these


statements.

German Flag
This routine provides a short example of using COLOR, PLOT and
DRA WTO in the GRAPHICS 3 MODE. It's simp le because the German
flag is so easy to draw.

1.0.0
11.0
12.0
13.0
14.0
15.0
16.0
17.0
18.0
19.0
2.0.0
21.0
22.0

REM DRAW THE GERMAN FLAG


GRAPHICS 3+16:SETCOLOR 4,7,2
SETCOLOR .0,.0 ,.0
SETCOLOR 1,3,4
SETCOLOR 2,13,1.0
REM DRAW FLAG
FOR C=l TO 3
COLOR C
FOR Y=5*(C-1)+3 TO 5*(C-I)+8
PLOT 7,Y :DRAWTO 35,Y
NEXT Y
NEXT C
GOTO 22.0

SETCOLOR 0,1 and 2 sets COLOR 1, 2 and 3 respectively.


Suggestion:

1.

Try a different background color. Change line 11 0 to

11.0 GRAPHICS 2+16:SETCOLOR 4,13,4


3

2.
3.
4.

Figure 1.1

Change the colors of the flag in lines 120,130 and 140.


Add a nice flag pole with a ball on the top.
Draw the flag in GRAPHICS MODE 7.

German Flag

Design
Take a close look at this one. Colors are produced in GRAPHICS 8 by
selectively drawing lines on the screen. By taking advantage of the
physical separation between color dots on the television screen, the three
primary colors can be individually turned ON and OFF.
The line shown in the diagram would be drawn (red). A series of lines
drawn adjacent to one another would turn on all of the color dots to
produce (white) .

Figure 1.2

Color Dots on the Television Screen

8888888
8 888888
888 8888
8888 888
R=red, B=blue, G=Green

1.0 REM A DESIGN IN GRAPHICS 8


15 GRAPHICS 8+16
2.0 SETCOLOR 2,13,2:SETCOLOR 1,1 3,14
25 REM DRAW ENTIRE SCREEN
3.0 COLOR 1
35 FOR A=.0 TO 319 STEP 3
4.0 PLOT A,.0 :DRAWTO 319-A,191
45 NEXT A
5.0 FOR A=191 TO .0 STEP -2
55 PLOT .0,A :DRAWTO 319,191-A
6.0 NEXT A
65 REM DRAW CENTER OF SCREEN
7.0 COLOR .0
75 FOR A=8.0 TO 239 STEP 3
8.0 PLOT A,122 TO 7.0 STEP -2
85 NEXT A
9.0 FOR A=122 TO 7.0 STEP -2
95 PLOT 8.0,A :DRAWTO 239,191-A
1.0.0 NEXT A
1.05 GOTO 1.05
5

Suggestion:

1.

Change the color in line 20.

SETCOLOR 2,4,2: SETCOLOR 1,4,14


2.

Change the step in line 35 and 50.

35 FOR A=0 TO 319 STEP 3


50 FOR A=191 TO 0 STEP -2
3. Make a new design by drawing a new set of lines. For
example, draw every third vertical line. Horizontal lines will
always draw over red, blue and green. Therefore, the line
ne eds to be broken into segments to get colors other than
white.

Circle
Plot a circle. You choose the radius (size). The trigonometric functions
sine (SIN) and cosine (COS) are used in line 60 to calculate a position on
the circle.
Here is a quick definition of how sine and cosine relate to a position on a
circle.

--

Figure 1 .3

Plot a Circle

ANGLE

SIN(ANGLE) = Yj R OR Y= R*SI N(ANGLE)


COS (ANGLE) = Xj R OR X=R*COS(ANGLE)
10 REM DRAW A CIRCLE
20 R=40: DEG
23 GRAPHICS 7: SETCOLOR 2,4 ,5:COLOR 1
25 REM DRAW AXIS
30 PLOT 20,40:DRAWTO 140,40
40 PLOT 80,0:DRAWTO 80,80
45 REM PLOT CIRCLE
50 FOR ANGLE=0 TO 360 STEP 10
60 X=R*COS(ANGLE) :Y=R*SIN(ANGLE)
70 PLOT X+80,Y+40
80 NEXT ANGLE
85 REM ANOTHER CIRCLE
90 PRINT "ENTER RADIUS(l~-40) ": INPUT R
100 GOTO 50

Suggestions:

1.

Change line 70.

70 PLOT X+60,Y+40
2. You can move the Y axis by changing line 40, try it.
3. How could you fill in between the dots to make the circle a
continuous curve?

Star
This program draws a Star of Solomon. Simple changes have some
interesting effects on the size and shape. See the program "CIRCLE" for
a definition of the SIN and COS functions.

10
15
20
22
25
30
40
50
55
60
70

REM DRAW A PRETTY STAR


DEG :R=50:COLOR 1
GRAPHICS ~:SETCOLOR 4,14,0:SETCOLOR 2,1 2,2
REM DRAW STAR
PLOT R+180,80
FOR T=0 TO 1800 STEP 160
DRAWTO 180+R*COS(T),80+R*SIN(T)
NEXT T
REM ANOTHER STAR
? "ENTER RADIUS(10-80)" :INPUT R
GOTO 25

Figure 1.4

Star of Solomon

Suggestions:
1.

Change line 30.

30 FOR T-0 TO 1800 STEP 100


2. Can you put several stars at different places on the
screen?
3. Draw several stars, each with a different number of points
on the same screen.

Title Page
Put a title page on the front of your programs. It can make a good
program look even better. Try this one for practice with large characters
in different colors.

10
20
30
40
50
60
70

REM MAKE A NICE TITLE PAGE


GRAPHICS 2:SETCOLOR 4,13,2
POSITION 5,1:? #6;"###########"
POSITION 5,2:? #6;"# program #"
POSITION 5,4:? #6;"# title #"
POSITION 5,4:? #6; "###########"
7 "
By the Author"

Figure 1.5

Title Page

Brown background
COVER
PAGE ~_-I--_
Green let ters
By Don Smith

Suggestions:

1.

Add these lines.

25 SETCOLOR 2,13,2
65 POKE 752,1
90 GOTO 90
2. Make the title a different color changing the program title
in lines 40 and 50 to upper-case or inverse video.
3. Try making a Litle page in GRAPHICS l.
4. Make a screen likE' the one to the right. You can change
the color of a character with the SETCOLOR statement.

Symbols in GRAPHICS 2
Make a graphics design on the screen. You can use special symbols in
GRAPHIC MODES 1 and 2. Just change the value in the character base
to 226 (POKE 756,226).

10 REM SYMBOLS IN GRAPHICS 2


20 GRAPHICS 2+16
30 POKE 756,226
40 FOR J=1 TO 80
50 ? #6;CHR$(8);CHR$(10) ;CHR$(10);
60 NEXT J
100 GOTO 100

Figure 1.6

Mak e a Graphic Des ign

Change the color by using inverse video characters. Add 128 to the
numbers inside the CHR$ commands in line 50.
Suggestions:

1.

Change line 50 to

50 7#6;CHR$(8);CHR$(138);CHR$(10);
2. Try it in GRAPHICS 1.
3. If you liked that, try a new design with some other graphic
symbols.

10

Special Sounds

Perhaps you've heard the saying, "A picture is worth a thousand


words." Sound also does more than words. Beyond time, it adds a fifth
dimension. Sound reaches the subconsciousness of the human mind.
Sounds make your programs come alive. Use this section to work with the
Atari "SOUND" statement. Vary tone, distortion and volume to produce
unique and exciting sounds.
Try some sound effects or a musical tune. Try to integrate some sounds
with the "Screen Drawings."

Figure 2.1

Screen Drawings

Sou nd Effects
A variety of sound effects can be created using the SOUND statement.
The changing patterns of pitch and volume determine the special quality
of the sound. Here are some simple sound effects. First, try the "Dropped
Coin."

12

1~~

.REM A DROPPED COIN

1~5 P=6~
11~ FOR J=l~ TO ~ STEP -~.2
115 REM INCREASE VOLUME
12~ FOR V=l TO J :SOUND .P.1~.V:NEXT V
122 REM DECREASE VOLUME
125 FOR V=2*J TO 1 STEP -l:SOUND ~.p.10. V:NEXT V
13~ NEXT J
15~ END

A decreasing pitch, and a random volume produce a little bit of


thunder. Add the lightning and you'll have a real storm.
1~ REM
THUNDER
15 FOR P=5 TO 1~~ STEP RND(~) * 5+~ . 2
2~ SOUND ~.P.8. (RND(~) * 1~+5 ) / ( ~.1 * P)
25 SOUND 1.P+2~.8.(RND(~) * 1~+5 ) / ( ~.1 * P)
3~ NEXT P
5~ GOTO 10

The volume goes UP and DOWN while the length of each cycle
decreases.
Here is a good imitation of a European police siren.

10 REM EUROPEAN SIREN


15 LOW=57 :HIGH=45 :P=45
2~ FOR AGAIN=l TO 2~
3~ SOUND ~.P.l~.14
40 FOR WAIT=l TO l8~ : NEXT WAIT
5~ P=LOW:LOW=HIGH :HIGH=P
6~ NEXT AGAIN
7~ SOUND ~.~.~.~
8~ END
The pitch alternates between a HIGH and LOW value. The length of
each tone is set in line 40.
In this routine a random pitch and volume are generated. Close your
eyes and listen. Does it sound like a swann of flies?

13

1~

REM A SWARM OF FLIES

2~ P=INT(RND(~)*6)+25~
3~ V=INT(RND(~)*4)+6

4~
5~
6~

SOUND ~,P,14,V
FOR X=1 TO 1~:NEXT X
GOTO 1~

Produce a series of intennittent sounds for a noise that sounds like an


engine.
1~ REM
ENGINE
15 SOUND ~ , 25~,1~,1~
2~ FOR J=l TO 5
3~ SOUND ~,~,~,~
4~ NEXT J
511 GOTO 15

You can call this one random noise, or perhaps space age music.
1~

REM RANDOM NOISE

2~ P=INT(RND(~) *256)
3~ V=INT (R ND(~)*16)

4~

5~

SOUND ~,P,I~,V
GOTO 1~

Suggestions:

1. Modify the "Dropped Coin" to sound like three coins are


dropped at once.
2. Make the engine sound like it speeds up.
3. Make a little more thunder.
4. Write a routine for:
Footsteps
Car Race
Machine Gun
Telephone
A rocket at blast-off
Knock on the door

Musical Tune
Listen to the musical tune generated by this routine. A musical note
such as G is assigned a number (G=162) which sets the pitch in the

14

SOUND statement. The data in lines 300 through 320 gives the musical
note and the duration. Run it, and see if you recognize the tune.

10 REM MUSICAL TUNE


20 DIM PITCH(7) ,SCALE$(7),N$(I)
25 REM SET NOTES ON MUSICAL SCALE
30 FOR P=1 TO 7
32 READ PITCH:PITCH(P)=PITCH
36 NEXT P
40 DATA 144,128,121,108,96,91,162
55 REM READ NOTES AND DURATION
57 SCALE$="ABCDEFG"
60 READ N$, T
62 REM "Z" IS END OF TUNE
65 IF N$="Z" THEN 400
70 FOR X=1 TO 7
80 IF N$=SCALE$(X,X) THEN 130
90 NEXT X
120 REM SET DURATION AND PLAY NOTE
130 T=T*20
135 FOR N=l TO T
140 SOUND 0,PITCH(X) ,10,8
150 NEXT N
160 SOUND 0,0,0,0
200 GOTO 60
300 DATA G,1,B,1,C,1,D,4,G,1,B,1,C,1,D,4
305 DATA G,1,B,1,C,1,D,2,B ,2,G,2,B,2,A,4
310 DATA B,1,B,1,A,1 ,G,2,G,1,B,1,D,1,S,1
315 DATA D,1,C,2,C,1,B,1,C,1,D,2,B,2,A,2
320 DATA A,2,G,4,Z,1
400 SOUND 0,0,0,0
410 END
Suggestions:

Add another sound channel for a little harmony. Enter


these lines into your program.

1.

130 T=T*10
145 SOUND I,PITCH(X) +2,10,8
2. Try another song such as Row, Row, Row Your Boat.
Change the notes and the duration in the DATA
statements.

15

3. Make a musical round out of suggestion 2 such that the


melody begins repeating before the fIrst round has
fInished.

Figure 2.2

Musical Tune

Up and Down Sound


In this program a pattern of sound is created as a sine wave is displayed
on the screen. The value of SIN(ANGLE) ranges from-l to +1. Here is a
partial table of some angles and their corresponding sines.

ANGLE

90
180
210

270
360

Figure 2.3

SIN (ANGLE)

0.000
1.000
0.000
-0 .500
-1. 000
0.000

Up and Down Sound

90

270
16

100
200
205
207
210
215
220
230
240

REM UP AND DOWN SOUND


GRAPHICS 7+16:SETCOLOR 4,2,2
DEG :COLOR 2
REM VARY SOUND AND PLOT
FOR ANGLE=0 TO 720 STEP 6
SOUND 0, (SIN(ANGLE)+I)*80,10,10
PLOT ANGLE/5,SIN(ANGLE)*35+45
NEXT ANGLE
END

Suggestions:

1. Change line 215 to make the volume go UP as the curve on


the screen goes UP. As the curve goes DOWN make the
volume go DOWN.
2. Reverse the sound pattern so that the pitch goes DOWN
as the curve goes UP, and the pitch goes UP as the curve goes
DOWN.
3. Draw a line horizontally through the center of the screen.
Make the pitch go UP when drawing away from the center line,
and DOWN when drawing toward the center line.

17

Audible Joystick
Make your programs communicate with both "sight and sound." Listen
as you make the colored square move horizontally. Before using this
program, you need to plug a joystick into the left hand jack of the
computer (STICK (0)).

10 REM AUDIBLE JDYSTICK


15 PAUSE=200 :MOVE=100:PX=20
20 GRAPHICS 3+;16:SETCOLOR 4,8,2:COLOR 1
30 PLOT PX, 10
35 REM CHECK JOYSTICK POSITION
40 IF STICK(0)=11 OR STICK(0)=7 THEN GOSUB MOVE
60 GOTO 40
100 REM MOVE SQUARE ON SCREEN
105 COLOR 0:PLOT PX,10
106 TEMP=(PX-SGN(STICK(0)-9)*2)
107 IF TEMP<l OR TEMP>37 THEN 112
110 PX=PX-SGN(STICK(0)-9)*2
112 COLOR I:PLOT PX,10
115 REM A LITTLE SOUND
120 SOUND 0,15,10,8:GOSUB PAUSE:SOUND 0,0,0,0
130 RETURN
200 REM PAUSE SUBROUTINE
210 FOR T=l TO 100:NEXT T:RETURN

Figure 2.4

Joystick Positions
STICK (0) = 14

The values of several


joystick positions are
shown at the left.
STICK (0)=11

~------~H-r---------

STICK (0

=13

18

Suggestions:

1.

For a different pitch change line 120

120 SOUND 0,200,10,8:GOSUB PAUSE:SOUND 0,0,0 ,0,


2. Make the sound a LOW pitch when going left and a HIGH
pitch when going right.
3. Make the square move vertically as well as horizontally.
Add a different sound for each direction.

Figure 2.5

Joysticks

19

Keys
Paddles and Joysticks

The excitement of using a computer can be enhanced by using various


methods of input. Program interaction can be made easier through the
use of joysticks, paddles and special keys.

Figure 3.1

Screen Drawing

A program like "Joystick Drawing" requires an efficient method of


handling input from a joystick.
In this section, we will work with the following functions:
PADDLE

STICK

PEEK

Refer to your Basic Reference Manual for details.


After you feel comfortable with this section, work on combining the
ideas of the first three sections of this book into a single program.

21

Figure 3.2

Cartoon

Console Function Keys


Spice up your programs by using the function keys. Run this program.
Press the OPTION, SELECTor START key to see the value of address
53279. (PEEK (53279)) .

10
20
30
40
50
70

REM CONSOLE DEMONSTRATION


GRAPHICS 0
PRINT "PRESS THE START KEY TO BEGIN"
IF PEEK(53279) <>6 THEN 40
PRINT "ADDRESS 53279 = ";PEEK(53279)
GOTO 50

You need to know a little about binary numbers to understand this


routine. Each key controls a single bit (binary digit) of address 53279.
The bit is 0 if the key is pressed, and 1 if itis not. A binary to decimal
conversion is shown.

22

Figure 3.3

Binary Numbers

De ci mal
Number

Addr ess 53279


Binary
Nu.ber

811
181
118
III

bit 2

Wx2
[Dx2
OJx2
ITJx2

bit I

+
+
+
+

ITIx2
[]]x2
OJx2
OJx2

bit 0

[Ox

ITIx2
+ []]x2
+ OJx2
+

PEEK (53279)

OPTION
~t'LECf
S TA~T

No Switch pressed

Suggestions:

Press a combination of keys. Does the value of address


53729 change as expected?
2. Change the program to PRINT the correct name keys you
pressed.
3. Write a short program to select a number from 1 to 5. For
example, the first time you press the SELECT key, a 1 is
displayed on the screen. The second time you press SELECT,
a 2 is displayed and so on. This could be used to select game
options.

1.

Paddle Motion
Use the paddle to move a colored square horizontally across the
screen. By turning the paddle, a value from 1 to 228 is produced. For this
program the paddle must be plugged into the left hand jack of the
computer.
23

Figure 3.4

Paddle Movement

PADDLE (.0)

PADDLE (0) = 228

PADDLE (0) increases as the


paddle is turned counterclockwise.

10
20
30
40
50
55
60
65
70
80
90

REM PADDLE DEMONSTRATION


GRAPHICS 3+16
X=0
REM CONVERT PADDLE VALUE TO POSITION
Xl=PADDLE(0) / 6
REM PLOT BACKGROUND COLOR
COLOR 0:PLOT X, 10
REM PLOT COLOR 1
COLOR I:PLOT Xl,10
X=Xl
GOTO 50

Suggestion:

1.

Experiment

with

the

color.

Change

line

70

to

70 COLOR 2:PLOT Xl,10


2.

Try another color change. Change line 60 to

60 COLOR I:PLOT X,10


3. Add some colors with these line changes. Press the
trigger (red) button to get another color.

30
55
60
70

X=0 :C=0
IF PTRIG(0) =0 THEN C=C+l
COLOR C+l :PLOT X,10
COLOR C:PLOT Xl,10

4. Try this program in 2 dimensions by adding another


paddle for vertical movement.

24

Joystick Drawing
Use the joystick to draw on the screen. Here is a diagram ofthe values
the computer returns to STICK(O).

Figure 3.5

Values of STICK(O)
14

)-------7

11--------------;

9
13

10 REM JOYSTICK DRAWING


50 REM SET UP SCREEN
60 GRAPHICS 3+16
70 X=19:Y=9
75 COLOR 1
80 PLOT X,Y
100 REM STICK POSITION
110 Z=STICK(0)
120 REM SCREEN POSITION
130 X=X+Z=5)+(Z=7)+(Z=6))

25

140
150
160
170
180
190

X=X-Z=10)+(Z=11)+(Z=9
IF X<0 OR X>39 THEN X=39*(X>39)
Y=Y-Z=5)+(Z=9)+Z=13
Y=Y-Z=6)+(Z=14)+(Z=10
IF Y<0 OR 7>23 THEN Y=23*(Y>23)
GOTO 80

The stick position is read in line 110. Lines 130 to 180 change the
cursor position.
The cursor position is calculated using a series of Boolean Algebra
statements. A boolean statement is either true or false. Here is a simple
example of a Boolean statement. The statement B=(Z=7) will return a 1
for the value of B if Z is equal to 7, and will return a 0 for the value of B if Z
is not eq ual to 7.
Add several of these together as in line 130 and you have a powerful
statement.
Suggestions:

1.

Add random colors to the drawing by adding this line.

85 IF STRIG(0)=0 THEN COLOR INT(RND(0)*4)


Press the trigger (red) button to change colors.
2. Can you make this program work in GRAPHICS 7? You
will need to change the cursor limits in line 130 to 180
3. Try adding another joystick to the program, with a
different color of course.

TAB
Use the TAB key just as you would on a typewriter. Use it in immediate
mode or build it into your programs. You can clear the old tabs and set
new ones.

10 REM TAB DEMONSTRATION


15 REM CLEAR TABS
20 FOR X=1 TO 6:? CHR$(127);CHR$(8158); :NEXT X
40 REM SET NEW TABS
".
45 PRINT"
";CHR$(159);"
50 PRINT"
"; CHR$ (159);"
55 PRINT CHR$(159)
60 REM DISPLAY RANDOM NUMBERS IN COLUMNS
70 PRINT CHR$(125)
80 FOR X=1 TO 60
90 R=INT(RND(0)*100):? R;CHR$(127);
1.0.0 NEXT X
12.0 END
I

26

".
I

To clear a tab press TAB, then control TAB. Repeat this for as many
tabs as you wish to clear. In program mode you can PRINT
CHR$(127);CHR$(158) .
To set a tab press SHIFT TAB after you have moved the cursor to
desired position on the screen. In program mode the CHR$ function can
be used (ie. PRINT" ";CHR$(159).)
Suggestions:

1.

Change line 45

45 PRINT"

";CHR$(l59);"

";CHR$(l59)

2. The tabs are normally set 10 spaces apart. This can be


changed with a POKE to address 201. Try this.
a) Press SYSTEM RESET
b) Press the TAB key several times and note the
movement.
c) Type POKE 201,18
d) Press the TAB key several times again and note the
movement of the cursor.
3. Write a program that prints random numbers in 3
columns tabbed at positions 15, 30 and 35 .

Key Control
This subroutine is used to convert all key entries to upper-case normal
video. This demonstration is designed to accept one character at a time
by a GET statement. The variable A holds the Atari ASCII value of the
key pressed. This subroutine is especially useful when only normal
upper-case input is desired. As an example, enter a letter between A and
J. Even if the reverse VIDEO key or CAPS lower key is pressed, the
computer will check and reset itself for upper-case normal video.

100 REM KEY CONTROL


110 KEYCHECK=24500
200 CLOSE #1:0PEN #I,4,0,"K:",GET #1,A
205 GOSUB KEYCHECK
210 PRINT CHR$(A);
220 GOTO 200
230 END
24500 REM CHECK AND RESET KEYS
24515 REM CHECK RETURN KEY
24520 IF A=155 THEN 24560
24525 REM CHECK INVERSE VIDEO
24530 IF A>=128 THEN A=A-128
24535 REM CHECK LOWER CASE
24550 IF PEEK(702)=0 AND A>96 THEN A=A-31
27

24555 REM SET INV-VIDED AND CAP-UP


24560 PDKE 702,64:PDKE 694,0
24590 RETURN
Suggestions:

1. Change lines 24530 and 24560, so that inverse video keys


are accepted.
2. Modify this program to get a string of up to 8
alphanumeric entries in "inverse" video only.
3. Make this routine accept the letters A or B only. This
routine could be used to restrict key entry to a specific set of
characters.

Pick a Key
If you are looking for a method to get input from the keyboard while not
stopping the execution of your program, a PEEK to the keyboard might
be your answer. Address 764 holds the keycode of the last key pressed.
The keycode is not the same as the Atal'i ASCII code. Here is a program to
help you find the keycode values.

10
15
20
30
35
40
50
60
70

REM PICK A KEY


GRAPHICS 0
PRINT "PRESS A KEY"
IF PEEK(764)=255 THEN 30
KEY=PEEK (764)
CLOSE #l:OPEN #1,4,0, "K:" :GET #1,A
PRINT "THE KEYCODE VALUE OF ".
PRINT CHR$ (A) ;" IS "; KEY
GOTO 30

Suggestions:

1. Make a table of key names, keycodes and Atari ASCII.


2. Modify the "Musical Tune" program so that it plays
normal, but starts over any time a key is pressed.
3. Modify the "Circle" program so that you can change the
radius of the circle as it is being drawn.

28

Specialized
S'c reen Routines

Give your screen displays something extra. Add more colors, change
the Atari character set or perhaps mix several graphic modes.

Figure 4.1

Graphics

(In MIXED MODE GRAPHICS five graphic modes are displayed on a


single screen.)
These programs all require direct access to memory by using a BASIC
PEEK or POKE. Keep Appendix 1 Description of "Memory Addresses"
handy as you go through these programs.

Player-Missile Graphics
An entirely new dimension in graphics is possible by using players and
missiles. A player, or a missile is a special graphics design which can be
easily moved from one part of the screen to another. Try it.

30

Figure 4.2

1~~~
1~1~
1~15
1~2~
1~25
1~3~

1~4~
1~42
1~45

Graphic Missile

REM PLAYER/ MISSILE DEMONSTRATION


GRAPHICS 8:SETCOLOR 2,3,4
REM SET RESOLUTION
POKE 559,62
REM SET HOR. POS . AND COLOR
POKE 53248,12~
POKE 7~4,2~~
POKE 53256,2
REM ACTIVATE P/ MGRAPHICS

1~5~ I=PEEK(1~6)-8
1~6~
1~7~

POKE 54279,I :POKE 53277,3


REM BUILD PLAYER SHAPE

1~8~ J=I 256+1~24

1~9~
1~95
11~~
111~

12~~
121~

122~
123~
14~~

149~
15~~
151~
152~

16~~

FOR N=1~~ TO 128


READ D
POKE J+N, D
NEXT N
DATA 24,24,24,6~,6~,6~,126,126,126
DATA 255,255,255,24,24,24,24,24,24
DATA 24,24 , 6~,6~,6~ , 1~2,1~2 , 1~2
DATA 195,195,195
REM CHANGE HOR. POSITION
PRINT "PRESS SYSTEM RESET TO EXIT"
PRINT "ENTER POSITION (5~ TO 2~~)"
TRAP 151~ : INPUT P
IF P<5~ OR P>2~~ THEN 151~
POKE 53248,P:GOTO 15~~

31

Line 120 determines the resolution (in this case, single line) . The top
part of memory is used to store the shape of a player. Line 1050 calculates
the beginning of this memory section. A memory map is shown in
Appendix 2. Also, refer to Appendix 1 for a description of "Memory
Addresses. "
Line 1060 is needed to access the player. Lines 1090 to 1110 read the
data and store the player shape in memory. The vertical position on the
screen depends on this data's position in memory. A single POKE in line
1500 changes the horizontal position.
Suggestions:

1.

Change the vertical position of the player


1~9~

2.

FOR

N=5~

TO 78

Change the color in line 1040


1~4~

POKE

7~4,134

Note, to calculate a color, multiply a BASIC color by 16 and add the


luminance value. For example, SETCOLOR 0,12,8 translates to a color
of 12*16+8=200.
3. Change the size of the player.
1~42 POKE 53256,3
2 = normal size, 1 = double width, 3 = quadruple width

4. Change the Data in line 1200 for a different shape.


Note, each player is 8-bits wide, and each line of the player can be
represented by a decimal number from 0 to 255.

Figure 4.3

128

Player

64

32

16

Data of 92 will turn on these segments of a line in the player.


5. Write the word "PLAYER" vertically on the screen by
changing the numbers in the DATA statements.
6. Refer to the Appendices and add another player. Make it
a different color, of course.

32

German Font
This routine is used to modify the Atari character set. Four graphic
characters are changed to represent ii, 0, U, and B .
By pressing CONTROL A, 0, U and S respectively these special German
characters can be generated.

1~

REM GERMAN FONT DEMONSTRATION

2~~ GERMFONT=28~~~

GOSUB GERMFONT
FOR X=97 TO 122 :? CHR$(X); :NEXT X
520 ? CHR$(1);CHR$(15);CHR$(21);CHR$(19)
6~~ END
28~~~ REM GERMAN FONT . . . . . . . .
280~5 REM CONTROL -a,o,u,s PRODUCES
28~~6 REM GERMAN UMLAUT a,o,u &ss
28007 DIM B$(80)
28~1~ POKE 756,224

28~4~ MEMEND=PEEK(1~6)-4:CHSET-MEMEND:256

5~~

51~

POKE 1~6,MEMEND-1 :GRAPHICS 0


REM READ MACHINE LANGUAGE COPY
28~7~ FOR X=1 TO 32
28~75 READ A:B$(X,X)=CHR$(A)
28~8~ NEXT X
28~82 DATA 1~4,1~4,133,213,1~4,133,212
28~83 DATA 1~4,133,215,1~4,133,214,162
28~84 DATA 4,16~,~,177,212,145,214
28~85 DATA 2~~,2~8,249,23~,213,230,215
28~86 DATA 2~2, 2~8, 24~, 96 .
28~88 REM COpy CHARACTER SET
28~9~ I=USR(ADR(B$) ,224*256,CHSET)
281~5 REM MODIFY CHARACTERS
28110 FOR X=1 TO 4
2812~ READ CHAR:N=CHSET+CHR*8
2813~ FOR I=~ TO 7:READ T:POKE N+J,T:NEXT I
2814~ NEXT X
2860~ DATA 79,~,1~2,~,6~,102,102,6~,~
28610 DATA 85,~,1~2,~,1~2,1~2,1~2,62,~
2862~ DATA 65,1~8,~,6~,6,62,1~8,62,~
28630 DATA 83,~,6~,1~2,124,1~2,1~2,124,224
287~~ POKE MEMEND-1,~ : POKE 756,MEMEND
29~~~ RETURN
2806~

28~65

33

o

u

In line 28060 four pages of memory are reserved for a new character
set. This section of memory is determined by PEEKing the top of
memory, PEEK(106) and subtracting 4 from it. A description of
"Memory Addresses" can be found in Appendix 1.
The machine language routine that executes in line 28090 copies the
Atari character setfrom ROM to the new memory location in RAM. Now
the characters can be modified. Line 28120 is used to read new data, and
change a particular character in the new character set. The data can be
interpreted like this.

28600 DATA 79,0,102,0,60,102,102,60.0


The 79 is the internal code for control 0.79 is the Atari ASCII character
code for control 0 plus 64.
Here is a table for finding internal codes from ASCII, see Appendix
4.

Figure 4.4

Internal ASCII Codes

Atari ASCII Value


~

32
96
128
16~

224

Operation
Value + 64
Value - 32
None
Value + 64
Value - 32
None

31
95
127
159
223
255

The next 8 numbers in the data statement form the character. Each
number represents the decimal equivalent of a byte. Each character is
formed on a 8 x 8 matrix.
Parts of a character are turned either ON or OFF depending on the
number POKEd into the memory address representing that character.
After the character set has been modified, change the character set
pointer by POKE 756,MEMEND in line 28700. A graphics command or
the SYSTEM RESET key will change the pointer back, and return the
characters to their original state. Before executing the routine a second
time you must press SYSTEM RESET or POKE 106, MEMEND+4.
This new character set (font), can be used in a running program or in the
immediate mode.

34

Special Screen Display

Figure 4.5

128 64

Character 79 - 0

32 16

Note:

64+32+4+2=102

o
60
102

102
60

o
Each line in the character takes 1 byte.
Suggestions:

1.

Try a new character. Change line 28600

2.
3.
4.

Run the program and press CONTROL O.


Try making some other characters or designs.
Try it in a nother grap hics mode.
Make a Greek character set.

28600 DATA 79,255,195,195,195,195,195,195,255

Mixed Mode Screen


Would you like to see a combination of 5 graphic modes on a single
screen display? This and more can be accomplished by building a custom
display list in memory. Run this program to see an example of a mixed
mode screen.

27000
27010
27020
27025
27027
27030
27035
27040
27045
27050

REM MIXED MODE SCREEN


GRAPHICS 7+16
SETCOLOR 4,8,2:SETCOLOR 2,8,2
REM BUILD CUSTOM DISPLAY LIST
REM FIND START OF DISPLAY LIST
START=PEEK(560)+PEEK(561)*256+4
REM GRAPHICS 0, 2 LINES
POKE START-l,66:POKE START+2,2
REM GRAPHICS 1, 2 LINES
POKE START+3,6:POKE START+4,6
35

27055
27060
27065
27070
27072
27073
27075
27080
27082
27084
27090
27095
27100
27105
27110
27115
27120
27122
27125
27130
27135
27140
27150
27160
27200

REM GRAPHICS 2, 2 LINES


POKE START+5, 7:POKE START+6,7
REM GRAPHICS 3, 4 LINES
FOR X=START+7 TO START+;10
POKE X, 8
NEXT X
REM JUMP TO BEGINNING OF LIST
POKE START+59,65
POKE START+60,PEEK(560)
POKE START+61,PEEK(561)
REM PRINT AND DRAW ON SCREEN
REM POKE 87 WITH GRAPHICS MODE
POKE 752,1 :POKE 87,0
PRINT #6," GRAPHICS 0"
POKE 87,I :POSITION 4,4
PRINT #6; "GRAPHICS I"
POKE 87,2:POSITION 4,6
PRINT #6;"graphics 2"
COLOR 1
POKE 87,3:PLOT 5,16:DRAWTO 30,16
COLOR 2
POKE 87,7:PLOT 20,12:DRAWTO 120,12
DRAWTO 120,40:DRAWTO 20,40
DRAWTO 20,12
GOTO 27200

The computer generates 192 scan lines on the TV screen. A single line
of a particular graphics mode (mode line), is made up of a number of scan
lines. For example, in GRAPHICS MODE 3 eight scan lines are required
to produce 1 mode line. In GRAPHICS MODE 8, only one scan line is
required to produce a mode line.
The computer uses a short sequence of code called the" display list" to
generate these mode lines. To build a custom display list, you need to
modify the existing display list. First, decide on the GRAPHICS MODE S
and their positions on the screen. Then change the mode lines in the
display list to correspond to your screen. This procedure requires several
well planned steps. Refer to Appendix 3 "Building a Display List" for
more details.
Suggestions:

1.

Change the color in line 27020

27020 SETCOLOR 4,8,2:SETCOLOR 2,4,2


2. Drawa line in the GRAPHICS 7 area at the bottom of the
screen.

36

27150 PLOT 40,26:DRAWTO 100,26


3. Changing any part of the display list usually requires the
whole list to be rebuilt. A couple of graphic sections, however,
can be switched without too much trouble.
Change these lines.

27050 POKE START+3,7:POKE START+4,7


27060 POKE START+5,6:POKE START+6,6
4. Refer to Appendix 3 and build a display list to produce
the following screen display.

Figure 4.6

Graphic Character Set


Graphics 2 characters

THE LETTER X

Graphics 7 diagram

Hints:

The LMS byte in line 27040 should be 7l.


Make an even number of GRAPHICS MODE 2
lines.
The display list will contain 82 mode lin es if you
have 2 mode-2 lines and 80 mode-7 lin es.

Characters in GRAPHICS 4,6 and 8


If you are looking for characters in GRAPHIC MODES 4,6 or 8, keep
reading. In the two color modes (4,6,8) characters can be read from the
Atari character set and POKEd to the screen. The character sizes range
from twi~e the GRAPHICS 2 size to the normal GRAPHICS 0 size.

37

38

100 REM GRAPHICS 8 CHARACTERS DEMO


110 GRAPHICS 8:SETCOLOR 2,4,2
200 DIM CHAR$(40)
220 GR8CHAR=20200
250 PRINT "ENTER CHARACTER STRING";
255 INPUT CHAR$
260 PRINT "ENTER CHARACTER STRING";
270 INPUT PX,PY:GOSUB GR8CHAR
280 GOTO 250
20200 REM POKE CHARACTERS ON SCREEN
20205 IF LEN(CHAR$)=0 THEN RETURN
20207 REM CALCULATE SCREEN POSITION
20210 I0=PEEK(560)+PEEK(561)*256
20215 I1=PEEK(I0+4)+PEEK(I0+5)*256
20220 REM FIND POSITION IN CHARACTER SET
20230 FOR U=l TO LEN(CHAR$)
20240 I2=57344+ASC(CHAR$(U,U-32)*8)
20245 I3*I3=PY*40+PX+U-1
20250 REM POKE CHARACTER ON SCREEN
20260 FOR Z=0 TO 7
20265 POKE I3+Z*40,PEEK(I2+Z)
20270 NEXT Z
20275 NEXT U
20280 RETURN
The subroutine to POKE characters to the screen starts at line 20200.
This routine is actually as complicated as it appears. In line 20210 the
variable 11 is the position in memory at the top left-hand corner of the
screen. In line 20240, 12 is a position of a character in the Atari character
generator. 13 is the screen position. In line 20260 characters from the
Atari character set, PEEK (I2+Z), are POKEd to a screen position
12+ Z*40. An e xplanation of the procedure to calculate a screen position
is found in Appendix 4.
Suggestions:

1.

Change the 32 in line 20240 to O.

20240 12=57344+ASC(CHARS(U,U-0) *8)


Rewrite the program to display putting lower-case letters in from the
keyboard. This change will get characters from a different part of the
memory holding the character set.
2. Try it in another graphics mode.

110 GRAPHICS 6 :SETCOLOR 2,4,2

39

3. Try this program in GRAPHICS 4. Only ten bytes of


RAM per line are required for this mode.
4. Set up a screen using GRAPHICS 6 that looks like the
following.

Figure 4.7

Graphics Screen

H
E
I
G

H
T
A

B C 0

40

41

Graphics and
Sound Applications

This is the section that let's you tie all of your programming techniques
together. Playa game like "DUEL" or "SLOT MACHINE." Watch
"VIDEO ART" or plot an equation with "LINEAR X- Y PLOT."

Figure 5.1

Slot Machine

MAC H
S LOT
YOU NOW HAVE 7 DOLLARS
TO PLA Y
PRESS

mIDI

.:::::.

"SLOT MACHINE," a game of luck, puts 3 colored players on a


GRAPHICS 0 screen.
Make a note of how Graphics, Sound and Special Features can be used
together. As you complete this section, you are ready to let your creativity
do it's thing. If you can imagine it, you can do it.

42

Duel
Use the joystick to duel with an opponent. Eat up your opponents
squares faster than yours are eaten and you win. This game takes two
players. Put the joysticks into the first two jacks.
1~

12
13
14
15
16
17
18
19
2~

21
22
23
25
27

REM A GAME OF DUEL


REM GAME LENGTH
GRAPHICS ~:POSITION 4,5
? "HOW LONG OF A GAME?" :?
?" 1,2 OR 4 MINUTE"; : INPUT LENGTH
IF LENGTH<1 OR LENGTH>4 THEN 13
REM SET UP SCREEN
GRAPHICS 3:SETCOLOR ~,~,8:SETCOLOR 1,8,2
SETCOLOR 4,1,6 :SETCOLOR 2,1,6
FOR N=~ TO 19
COLOR 1
PLOT ~,N:DRAWTO 19,N:COLOR 2:DRAWTO 39,N
NEXT N
REM INITIALIZE VARIABLES
DIM PX(2) ,PY (2)

3~ P=~ : PX(~)=39:PX(I)=~ : PY(~)=19 : PY(I)=19

REM POSITION AND COLOR


42 P=(P=~)
45 X=PX(ABS(P-l)) :Y=PY(ABS(P-l))
5~ COLOR P+l:PLOT X,Y
61 REM STICK POSITION
62 Z=STICK(P)
63 REM SCREEN POSITION
65 X=X+((Z=5)+(Z=7)+(Z=6))
70 X=X-((Z=10)+(Z=II)+(Z=9))
75 IF X<0 OR X>39 THE X=39*(X>39)
80 Y=Y+((Z=5)+(Z=9)+(Z=13))
100 Y=Y-((Z=6)+(Z=14)+(Z=10))
110 IF Y<0 OR Y>19 THEN Y=19*(Y>19)
160 COLOR ABS(P-2) :PLOT X,Y
170 PX(ABS(P-l))=X:PY(ABS(P-l))=Y
175 REM POSITION DEPENDENT SOUND
180 SOUND 1,6*(ABS(41-X)+I ) ,10,8
190 SOUND 2,12*(ABS(21-Y )+1) ,10,8
200 SOUND 1,0,0,0:S0UND 2,0,0,0
300 REM LENGTH OF GAME
310 L=L+l :IF L=LENGTH*550 THEN 320
315 GOTO 40
4~

43

317
320
322
325
330
340
350
360
370
390

REM LOCATE SQUARES FOR SCORE


POKE 752,1 :?
PRINT"
ONE MOMENT PLEASE .
FOR 1=0 TO 39
FOR J=0 TO 19
LOCATE I,J,Q
IF Q=2 THEN T=T+l
NEXT J :NEXT I
? :? "SCORE: GRAY 0; 800-T , "BLUE ";T;
END

Suggestions:

For a more difficult game, make this program work in


GRAPHICS 5.
2. Add an option to "Play Again?" to this program.
3. Rewrite the program so one person can play the
computer.

1.

Video Art
Sit back and enjoy this one. Letitrun for several minutes and watch the
screen pattern develop.

10 RAM VIDEO ART


15 GRAPHICS 7+16
17 REM GENERATE 2 RANDOM POINTS
20 Xl=RND(0)*159:X2=RND(0) *159
30 Yl=RND(0) *91 :Y2=RND(0)*91
35 REM GENERATE RANDOM INCREMENTS
40 Al=RND(0) *2: A2=RND(0) *4
50 Bl=0 .5-ABS(Al) :B2=I-ABS(A2)
60 REM A LITTLE COLOR
65 SETCOLOR RND(0) *4 ,RND(0 )*16 ,RND(0)*15
75 COLOR RND(0)*4
77 REM NEW POSITION
80 Xl=Xl+Al:X2=X2+A2
90 Yl=Yl+Bl:YX=Y2+B2
95 REM START AGAIN IF OUT OF RANGE
100 TRAP 20
102 REM DRAW LINES
110 PLOT Xl,Yl:DRAWTO X2 ,Y2
120 GOTO 80

44

Figure 5.2

Video Art

Suggestions:

1.

Change this line for a different pattern.

120 GO TO 65
2.

Add some sound.

105 SOUND 0,X1,10,X2/10


3. Make this program interactive so that the sound and
pattern change when a key is pressed.

GueSSing Game
This is a classic computer game. The computer g~nerates a random
number for you to guess. For a flashy screen, the large characters of
GRAPHICS MODE 2 are used.

10 REM NUMBER GUESSING GAME


200 REM SUBROUTINE VALUES
210 TIME=20000:LOW=21000 :HIGH=22000
220 CORRECT=23000:KEY=24000
1000 REM SET UP SCREEN
1005 TRAP 1000
1010 GRAPHICS 2+16 :SETCOLOR 4,8,2
1100 POSITION 1,2
45

1104 PRINT #6;"I'M THINKING OF A"


1106 PRINT #6;" NUMBER BETWEEN 1&9"
1110 POSITION 1,5:PRINT #6;"YOUR GUESS? "
1112 REM GENERATE NUMBER AND CHECK
1113 TRY=1
1115 R=INT(RNO(0)*9)+1
1120 GOSUB KEY
1125 NUMBER=VAL(CHR$(A))
1130 POSIT ION 14,5:PRINT #6;CHR$(A)
1210 ON SGN(R-NUMBER)+2 GOSUB HIGH,CORRECT,LOW
1220 IF SGN(R-NUMBER)=0 THEN 1300
1230 POSITION 2,7 :PRINT #6;"
1240 TRY=TRY+l
1250 GOTO 1120
1300 POSITION 2,7
1307 POSITION 13,7:GOSUB KEY
1310 IF CHR$(A)="Y" THEN 10
1400 END
20000 REM TIME
20010 FOR T=1 TO 400 :NEXT T
20020 RETURN
21000 REM TOO LOW
21010 POSITION 2,7:PRINT #6;"too low"
21015 GUSUB TIME
21020 RETURN
22000 REM TOO HIGH
22010 POSITION 2,7 :PRINT #6;"too high"
22015 GOSUB TIME
22020 RETURN
23000 REM CORRECT
23010 POSITION 2,7
23015 PRINT #6;"correct in "";TRY;" trys"
23017 GOSUB TIME
23020 RETURN
24000 REM GET KEY
24010 CLOSE #1 :0PEN #1,4,0,"K:";GET #1,A
24020 RETURN
Suggestions:

1. Change these lines to make your game work for numbers


from 10 to 99.

1106 PRINT#6;"NUMBER FROM 10 TO 99"


1115 R=INT (RNO(0) *90)+10

46

2.

Add these lines

1126 GOSUB KEY:NUMBER2=VAL(CHR$(A


1127 NUMBER=NUMBER*10+NUMBER2
3. Make the game work for numbers from 1 to 1000.
4. Add a "buzzer sound" if your guess is wrong, and a
"musical jingle" if your guess is right.

Slot Machine
This game will not cost you a penny to play. You start with 10 do ll ars.
Each time you press the SELECT button a new set of figures appear. If
all three match, you 're a winner. You will, however find it hard to put your
winnings in the bank.

100
200
210
220
400
405
410
412
413
415
417
420
500
540
600
610
620
710
715
720
730
750
800
805
810
812
815
816
820
840
842

REM SLOT MACHINE


REM SET VARIABLES
DIM FRUIT(3)
X=10 :PLAYER=1000 :ERASE=1200
REM SET PM GRAPHICS
GRAPHICS 0
POKE 559,46 :PMBASE=PEEK(106)-8
POKE 54279,PMBASE :POKE 53277,3
POKE 623,1
POSITION 8,1
PRINT "" S LOT MAC H I N E"2
GOTO 800
REM PLAY GAME
REM RANDOM SELECTION
FOR PM=1 TO 3
FRUIT(PM)=INT(RND(0)*3)+I:GOSUB PLAYER
NEXT PM
IF FRUIT(I)<>FRUIT(2) THEN 720
IF FRUIT(2)=FRUIT(3) THEN 750
X=X-l
GOT a 800
X=X+INT(RND(0)*10)+5
POKE 752,I:POSITION 2,2:?
PRINT ""YOU NOW HAVE "";X;" DOLLARS ."
IF X=0 THEN 815
GOT a 820
POSITION 2,5:? ""YOU'RE OUT OF HONEY ."
GOSUB ERASE:PRINT CHR$(125) :END
? :? "PRESS OPTION TO QUIT"
IF PEEK(53279)=5 THEN 850
IF PEEK(53279)=3 THEN 816

47

844 GOTO 840


850 GOSUB ERASE
900 GOTO 500
1000 REM PLAYER
1005 POKE 53247+PM,PM*55
1006 POKE 53255+PM,3
1010 J=PMBASE*256+512+((PM-1)*128)
1015 LINE=FRUIT(PM)*10+1100
1020 RESTORE LINE
1030 READ PIGMENT
1035 POKE 703+PM,PIGMENT
1037 FOR Q=50 TO 80
1040 READ SHAPE
1050 IF SHAPE=999 THEN RETURN
1060 POKE J+Q,SHAPE
1070 NEXT Q
1100 REM PLAYER DATA
1105 REM PLAYER ONE
1110 DATA 234,255,255,255,129,129,129
1111 DATA 129,129,129,129,129,129,129
1112 DATA 129,129,129,129,255,255,999
1115 REM PLAYER TWO
1120 DATA 199,24,24,24,24,36,36,36,36
1121 DATA 66,66,66,66,129,129,129,129
1122 DATA 255,255,255,999
1125 REM PLAYER THREE
1130 DATA 68,24,24,36,36,66,66,66,129
1131 DATA 129,129,129,129,66,66,66,36
1132 DATA 36,24,24,999
1200 REM ERASE PM PLAYERS
1205 FOR M=0 TO 256 STEP 128
1210 FOR Q=50 TO 80
1214 POKE (PEEK(106)-8)*256+512+M+Q,0
1216 NEXT Q
1220 NEXT M
1250 RETURN
Suggestions:

Change the data in lines 1100 through 1132 to get some


different figures.
2. Add some sound as the figures appear on the screen.

1.

48

3. Modify the program so that it keeps displaying new


figures, and it stops only when you press SELECT. You then
press START to continue.

Linear X- Y Plot
This math program draws lines on an X-Y axis. A full understanding
requires you to be familiar with simple linear equation. Here is a brief
introduction to the equation of a straight line. Y=mX + b is a linear
equation in slope intercept form.

Figure 5.3

Slope intercept form

i}

value of b is

I
I

iot''''Pt~

chang e in Y
valu e

-------------~
change in X
valu e

__~~----~~-------------------- X
m = s lope

= change in Y
change in X

The line is a set of X and Y values that fit the equation Y=mX +b. In
line 1072, the values of m and b are entered. In line 1080 Y values are
calculated for the set of X values ranging from-80 to +80. In line 1090 the
point is plotted on the screen.

1000
1014
1017
1018
1020
1030
1035
1038

REM LINEAR X-V PLOT


GR8CHAR=20200
DIM CHAR$(40)
REM SET UP SCREEN
GRAPHICS 8
COLOR I :SETCOLOR 2,12,2:SETCOLOR 4,12,0
REM DRAW BORDER
FOR 1=0 TO 3
49

1040 PLOT I,I:DRAWTO 319-1,1


1041 DRAWTO 319-1,159,1
1042 DRAWTO I,159-I:DRAWTO 1,1
1043 NEXT I
1044 REM CHARACTERS ON GR .8 SCREEN
1045 CHAR$="WHERE:":PX=I:PV=5
1046 GOSUB GR8CHAR
1047 CHAR$="WHERE:":PX=I:PV=12:GOSUB GR8CHAR
1048 CHAR$="M= SLOPE":PX=I:PV=19
1049 GOSUB GR8CHAR
1051 GOSUB GR8CHAR
1052 CHAR$="AND X=-80 TO 80":PX=I:PV=35
1053 GOSUB GR8CHAR
1054 CHAR$="X-AXIS":PX=30:PV=74:GOSUB GR8CHAR
1055 PLOT 100,80 :DRAWTO 220,80
1056 CHAR$=V-AXIS":PX=17:PV=10:GOSUB GR8CHAR
1058 REM DRAW X AND V AXIS
1059 PLOY 100,80:DRAWTO 220,80
1060 PLOT 160,20:DRAWTO 160,140
1065 REM ENTER SLOPE AND INTERCEPT
1070 ? ""FOR V=mX+b enter your values for m,b."
1072 INPUT M,B
1075 REM PLOT LINE WITH SOUND
1077 FOR X=-80 TO 80
1080 V=M*X+B
1082 SOUND I,ABS(V), 10,8
1086 IF ABS(V80 THEN 1100
1090 PLOT X+10,80-V
1100 NEXT X
1105 SOUND 1,0,0,0
1110 GOTO 1070
20200 REM POKE CHARACTERS ON MODE 8 SCREEN
20205 IF LEN(CHAR$)=0 THEN RETURN
20210 10=PEEK(560)+PEEK(561)*256
20220 Il=PEEK(I0+4)+PEEK(I0+5)*256
20230 FOR U=1 TO LEN(CHAR$)
20240 12=57344+((ASC(CHAR$(U,U))-32)*8)
20250 13=Il+PV*40+PX+U-l
20260 FOR Z=0 TO 7
20264 POKE 13+Z*40,PEEK(I2+Z)
20266 NEXT Z
20270 NEXT U
20280 RETURN

50

Suggestions:

Use this program with different values of slope and Y


intercept.
2. Substitute a different equation into line 1080, perhaps an
equation of the form Y= AX2 . You enter the value for A. Try
.Olfor a value of A. Try some negative values as well.
3. Make this program work in another graphics mode.
4. Plot different algebra equations such as those for a
hyperbola, circle or parabola.

1.

51

PEEKS, POKES
and Special Stuff

PEEK and POKE let you unleash a power not available through other
BASIC commands. With these two key words, it is possible to look
directly into a memory address and change the content of many of the
addresses. PEEK is used to "read" the contents of a memory address.
POKE is used to "write" to an address. Because each address contains a
single byte, the decimal value of the contents will always be between 0
and 255.
Refer to Appendix 1 "Description of Memory Addresses" and the
Atari Basic Reference Manual as you go through this section.
Margins 82,83

Change the left margin.

POKE 82,20
Change the right margin.

POKE 83,22
POKE things back to normal or press SYSTEM RESET.
Inverse Video 694

To change the keystrokes to inverse video try this.

10
20
30
40
50
60

DIM Q$(40)
POKE 694,128
INPUT Q$
POKE 694,0
INPUT Q$
END

Run it. Can you figure it out?


CURSOR 752

Get rid of that cursor.

POKE 752,1
Get it back.

POKE 752,0

53

Flip a Character 755

Can you read upside down?

POKE 755,4
I can't either.

POKE 755,0
Loudspeaker 53279

Make the keyboard speaker produce sound.

10 POKE 53279,0 :GOTO 10


Run this one.
Where Are You? 84,85

What row are you on?

PRINT PEEK(B4)
What column are you in?

PRINT PEEK(B5)
Recorder 5401 9

Put a music cassette into your program recorder.


POKE 5401B,52
Enjoy the music while you work. Turn it off.
POKE 5401B, 60
Colors (0-4) 708-712

Change the background color in GRAPHICS 0

POKE 710,12
Change the character luminance.

POKE 709,0
Characters 702

Try this demonstration.

5 DIM Q$(40)
10 POKE 702,0
20 INPUT Q~
30 POKE 70; ,~28
________
40 INPUT Q$--------__=:::; Press some keys

50POKE702~

and hit RETURN

60 INPUT Q$
70 END

The Atari Clock 18, 19, 20


Memory address 18,19 and 20 hold the Atari clock. Address 18 is the
"most" significant byte, and address 20 is the "least" significant byte.
Every 1/60 of a second (known as a jiffy) address 20 incremented by one.
Each time address 20 exceeds 255, it returns to 0 and a 1 is added to
address 19. Likewise, when address 19 exceeds 255, it returns to 0 and a 1
is added to address 18.

54

Try this routine.

10 PRINT PEEK(18), PEEK(19), PEEK(20)


20 GOTO 10
Now translate these to a single decimal number. The time will be in
60ths of a second.

10 PRINT PEEK(18)*256*256+PEEK(10)*256+PEEK(20)
20 GOTO 10
Can you make the time print in seconds?
Try this to RESET the CLOCK to O.

5 POKE18,0:POKE19,0:POKE20 ,0

55

56

Appendix 1

Description of Memory Addresses


Address

Description

18,19,20
65
77
82,83
84
85,86

Clock. Address 20 increses by 1 every 60th second.


Input/Output sound flag:O=quiet
Screen color shift flag: 128=on
Left, Right margin (normally 2,39)
Current cursor row (GRAPHICS 0)
Current cursor column
GRAPHICS MODE number for screen output
Upper-left hand screen corner addre ss
Size of memory in 256 byte pages
Print-tab width (normally 10)
Enable Player Missile DMA control:
62=single line resolution,
46=double line resolution.
Low and High bytes of starting address of display list
Reverse video flag:
O=normal,
128=reverse
Caps-lock flag:
0=1 lower-case,
64=upper-case,
128=control characters
Color of Player 0
Color of Player 1
Color of Player 2
Color of Player 3
Color of PI~yfield 0
Color of Playfield 1
Color of Playfield 2
Color of Playfield 3
Color of Playfield 4

87
88,89
106
201
559

560,561
649

702

704

705
706

707
708
709
710

711
712

57

752

Cursor inhibit:
O=visible,
1 =invisible
Character mode:
755
1 =Blank, 2=Normal, 3=Flip
Character base register:
756
226= lower-case
224=upper-case
Last key pressed (internal code)
764
Horizontal position of Player 0
53248
Horizontal position of Player 1
53249
53250
Horizontal position of Player 2
Horizontal position of Player 3
53251
Horizontal position of Missile 0
53252
Horizontal position of Missile 1
53253
53254
Horizontal position of Missile 2
Horizontal position of Missile 3
53255
53256-53259 Players 0-3 Size:
o or 2 = Normal size
1 = twice normal size
3 = 4x normal size
Missiles 0-3 sizes
53260
Player Missile enable, 3=on
53277
Recorder motor control line:
54018
52=On
60=Off
54279
Holds page number of Player Missile data

58

59

Append ix 2

Player M issi le Memory Map

Figu re 6. 1

MemoryMap
Single li ne
resolution

Double line
reso lut ion

(POKE 559 62)

(POKE 559

~6)

2B~8

Top of lellory

Player 3
1792

Player 2
1536

Player I
128B

Player

e
Player 3

H3

HI

H2

HB

896

Player 2
768

Player I

These add resses are


re lative to the
absolute starti ng
address,

6~B
Play er B
512

H3

H2

HI

HB

38~

Unused

Unused

Ab so lut e sta rt in g

8 bitswide . .

8 bits wide . . .

60

ad dress poi nte d to


by playe r lissile
base . See Note 1. 2

Notes:

1. The player missile base addres s is referenced by page


number. One page equals 256 bytes. The starting address is
the player missile page number times 256 bytes.
2. The player missile starting address must be on a 2K
memory boundary for single line resolution players, and on lK
boundary for double line resolution players.
3. Each player missile section maps directly onto the total
height of the TV screen.
4. Refer to Appendix 1 for a description of "Player Missile
Memory Addresses."

61

Appendix 3

Building a Display List


As a demonstration of the procedure to build a display list, the
following screen display will be produced.
Note: This Is not to scale

Figure 6.2

Display List

(Mode 0 is graphics 0)
Mode
Mode
Mode
Mode

0 - 2 mode lines
I - 2 mode lines
2 - 2 mode lines
3 - 4 mode lines

Mode 7 - 48 mode lines


throughout this procedure.

63

Table 1.

Graphics Mode Byte Codes


mode
byte
0
I

2
3
4
5
6
7
8

sca n li nes
per mode
lin e

mode
byte

RAM per
lin e

8
8

2
6

16

7
8
9

40
20
20
10
10
20
20
40
40

4
4
2

10
11
13
15

Table I. Gr aph ics mod e byte codes

Procedure:

1. Determine the number of mode lines such that t he total


number of scan lines 192. Refer to the scan line requirements
in Table 1.

Figure 6.3

Table l. Graphics mod e byte co de s


Hode

0
1
2
3
7

# of scan
lines/ mode
line

# of mode
lines
2
2
2
4
48

x
x
x
x
x

Total #
of scan
lines

8
8

16
16

16

32
32

8
2

96

Total

64

192

2. Determine the mode byte codes for each graphics mode.


Refer to Table 1.

Figure 6.4

Mode

Mode byte number

2
6
7
8
13

2
3
7

3. Calculate the LMS (Load Memory Scan) byte. Add 64 to


the mode byte number for the graphics mode at the top of the
screen (MODE 0 in this case).

LMS byte = 64

2 = 66

4. The display list is ready to be built. First, execute the


BASIC graphics command that requires the most memory
that you will need. In this example it would be GRAPHICS
7 +16. Here is a table of memory requirements

65

Figure 6.5

Graphics Mode
Mode

REM required

8+16
8
7+ 16
7
6+16
6
5+16
5
4+16
4
3+16
3
2+16
2
1+16

8138 bytes
8112
4200
4190
2184
2174
1176
1174
696
694
432
434
420
424
672
674
992

5.

Calculate the display list pointer.

DLST = PEEK(560)+PEEK(561) *256+4


6.

Poke the LMS byte.

POKE DUST -1,66


7. Poke a mode byte for all corresponding mode lines.
For mode.

o
1
2
3

POKE OLIST+2,2
POKE OLIST+3,6 :POKE OLIST+4,6
POKE OLIST+5,7:POKE OLIST+6,7
FOR X=OLIST+7 TO OLIST+10:POKE X,8:NEXT X

Note: The first line is part of the LMS byte.


The MODE 7 display data is already correct because of the execution
of the GRAPHICS 7 + 16 statement.
8. Since the display list is actually a short machine code
program, the list is finished with a JUMP instruction to the
beginning of the list.

POKE OLIST+59,65
POKE OLIST+60,PEEK(56)
POKE OLIST+61,PEEK(561)
9.

Here is a memory map of the completed display list.

66

Figure 6.6

Display List

DLIST

-I

66

+~

LO

+1
+2
+3
+4
+5
+6
+7
+8
+9

HI
2
6
6
7
7
8
8
8
8
13

+I~

+11

~
+58
DLIST

Mode

Mode 1
Mode 2

Mode 3

Mode 7

+59

13
65

+6~

LO

+61

HI

Dump Instruction

To write to the screen, first POKE the graphics mode being used into
address 87. For example, if you want to print in GRAPHICS MODE 2
Poke 87 ,2

Now you can PRINT or PLOT to the GRAPHICS 2 part of the


screen.
10. You may PRINT or PLOT to a mixed mode screen as
long as you do not exceed the normal cursor range. The
vertical position is found, by counting the number of mode
lines from the top of the screen. The horizontal position is
found in the normal way for the particular graphics mode
being used.
If you want to PRINT or PLOT to a portion of the screen, but the cursor
is out of range for that graphics mode, you will have to calculate a screen
position and POKE the informaton to the screen. See Appendix 4
"Calculating Screen Position" for details.

67

Appendix 4

Calculating Screen Position


1. Calculate the memory address of the upper-left hand
corner of the screen (Tl). Here are two methods.

a) T0=PEEK(560)+PEEK(561)*256
Tl=PEEK (T0+4)+PEEK(T0+5)*256
b) Tl=PEEK(88)+PEEK(89)*256
2. Calculate the amount of screen memory between the
upper-left hand corner and the target position on the screen.
Call this SCRMEM.
To calculate SCRMEM, add up the total memory requirements for
each mode line above the target position and add the horizontal position
of the preceeding value. You will need to know the amount of memory
required for each mode line above the target line. Refer to Table 1 in
Appendix 3.
Example, suppose the entire screen were made of GRAPHICS 2
MODE lines. Suppose you want to print a character 4 lines down, and 2
spaces to the right of the upper-left hand corner. The value for SCRMEM
would be:

SCRHEH = 3 lines x 20 bytes/ line + 2


SCRHEH = 62
3. To find the memory value representing the target
position, add the value from part 1 (upper-left hand corner
address) to the value from part 2 (memory between upper-left
hand corner and target position) .

In our example:

Tl+62

4. Here is an example for you to try in GRAPHICS O. To


POKE a character to the screen, you must POKE the internal
code, not the Atari ASCn code.

69

Example:

5
10
20
30
40
50
60
70

DIM Q$(l)
GRAPHICS 0:REM 40 BYTES/ LINE
T1=PEEK(88)+PEEK(89)*256
PRINT"VERTICAL PDSITIDN" :INPUT V
PRINT"HORIZONTAL POSITION" :INPUT H
PRINT"LETTER TO BE POKED" : INPUT Q$
POKE T1+40*V+H,ASC(Q$)-32
GOTO 30

Here is a Table for finding internal code from ASCII

Figure 6.7

Internal Code form ASCII

Atari ASCII Value

o - 31
32
96
128
160
224

Operation
Value + 64
Value - 32
None
Value + 64
Value - 32
None

95
127
159
223
255

70

DISKPAK'" A program that. frees unUS8d sectors on boot


diske for storage of norma.! OOS rues without disturbing the boot rue.
NOT FOR USE ON PROTECTED SOrrwARE. "'83 00 ussd on all kinds
of boot. files, including the multi-stage boot files.
ISBN 0-936200-25-1. Disk $24.95 ret&1l.

DOWlIrLD ~ DIBkette Download Utility. Allow, sing1e BOOT


russ and Binary OOS mee to 00 transferred from diek to cassette.
I'aet. esey. menu driven. NOT FOR USE ON PROTECTED SOrrwA88.
ISBN 0-936200235. Disk $24.95 NlIall

--- - - -- - - ---,--,..------------

.-

-~~--

v-coa~

c....tte Operallng Utility. Control baud relB. loadsr

_r

1Inls. seresn width. background e.nd letter color. mctor (on/oil);

prov1dss

cassette

rue vsrincatlon. c....lIIll24.95 retail

.Ar.AlU BABIC J'aater &

by Gar! II. Bve.ne.

Progn.mmlng lricke e.nd I8chn1ques. Comps.nion _

.Ar.AlU BABIC, LearD1DC By V.iDC by Thomas B.


RmrIsy. learn ATARI BASIC eaaQy Ihrough the m8l\Y abort prognuns
provided. 73 pages, ISBN 392168282 X $7.96 ",tall

ABI'AB .Aaaembly Diak Companion software to ATAlU


BASIC hater e.nd Better. TSD assemblY ~ source prognuns
and object programe. ISBN 0-938200-30-6. Disk $24.95 NlIall

BOW TO PllOGBAJI YOUll .Ar.AlU Dr 8808


IlACBIlIlII LAlIrGVAG_ by Sam D. Roberta Teach..
mach1ne ~ . UB8 of an ....mblar and call1ng roulln .. from
BASIC. 106 page.. ISBN 3-921682-97-5 $9.96 ",tall

ABI'AB Library Diak Two dieke fUll of BUbroollnes tha.i


can 00 included in your BASIC programs. Includes BASIC e.nd
machine ~ (some programe s.re POKEd into memory).
ISBN 0-93620031-6. DIBk $24.95 l'9Iail

GAlOI8 I'OR TBlI .A!rAlU by Sam D. Rooorts. Prov1des


ideas and examples of computer games tha.t ca.n be written in BASIC.
115 pages, ISBN 391168284-3 $7.95 NlIall

ABI'AB Demo/Applicationa Diak EIB.. n Bjlplication


programs and fourtssn dsmonstralion programs from ATAlU BASIC
l'aster /I Better. ISBN 0936200-324. Disk $24.95 l'9Iail

PORTH ON TBlI .A!rAlU - LearD1DC By V.iDS by


Ekkehard Yloegel fORTH a.ppUcat1on 8X8.IIlplea for the novice and
export programmer. 118 page .. ISBN 388963170-3 $7.96 retall

SlICBETS 0 1' .Ar.AlU I/O by Dr. EMc Verheiden. Theory of


operation and programs for lnput!outpuL to disk. screen, C8.Baette,
e.nd R8232 seMa.! porl "'achine is.nguage with POKE tables for UB8
with BASIC programe. Comps.nion software available on disk (sold
separately). 265 pages. ISBN 0-93620033-2 $29.95 rstall

eassatte Duplication Utility. To copy moot BOOT


and cassette data rues. Includes a. file copier and a. sector

CABDUP~

tapes

copier. ISBN 0938200170. Caseette $24.96 ",tall


CABDI8 ~

available

(sold sspsrately). 300 pages. ISBN 0938200-29-4 $29.95 retail

Upload Utility. To transfer moot BOOT tapee and

a_CBET Library DiU: for the ~ More than a


OOzen I/ Oroutin.., exempll(ying materiaJ in SECRETS of ATARI I/ O
(sold ssps.ral.ely). Includss Super "'snu. Screen Dump. BASIC
AutollUN. Bins.ry Loader. SU1ng 5es.rcb. Disk Copier. c....tte
Copier and mucb. much mora. ISBN 0938200-340. $24.95 l'9Iail

data ru.. to disk. ISBN 0-938200-18-9. Disk $24.95 ret&1l.


I'ULKAP~

BASIC Croos !\eferance UtIlltiea. VMAP: vtuiabIB


reference; CMAP: CQnstantCI'C88 Nlfertlnce (includea1ndirect
address references); l.JL6.P: line number Cl'068 Nlference; FMA.P; al1
of the &bo. Will !lst "unllstable" programs. AlBo worke with
Bdltor/AesambIBr cartridge to &llow editing of eU1ng packed
machine language BUbroollnes. ISBN 0-938200-19-7. c....tte or
Disk $39.95 retail
Cl'088

DIBABKN To disaBsembIB machine language programe.

Worlm with or without Bditor/ AsaembIBr cartridge. "'83 00 usad to


up or down load eingle boot ru... All output can 00 dumped to
printer. ISBN 0-938200-20-0. c....tte or Disk $24.95 retali
DI8DUP ~

I'or diek eector copying of unprolBct.ed dieke. "'83

epocl(y single """tor. range of ssctora. or all Cople. me,y 00 m&dB

without rssd vsrl(y. ISBN 093820021-9. DIBk $24.95 retall

IJG products are sold a t computer dealers and


booksellers world wid e. If your dealer is o ut o f
stOCk. o rd er direct. In c lude $4.00 for s hipping
handling. Fore ign residents inc lude $ I 1.00 in U.S.
funds for Shipping and h an d ling. IJG. Inc. 1953
11th st. Uplan d. Califo rnia 9 1786. (7 14) 946-5805

The Thoughtware CompanYM


71

You might also like