Advertisement
140 CLOSE
14
150
END
200
DATA
224,224,224,224,224~224,224,224,224,245,224,224
210
DATA
224,224,224,224,224~224.224,224,252,245,224.224
220
DATA
224,224,224,245,224,224,224,252,239,245,:24,~24
230 DATA
224,224,252,245,224,224,252,239,239,245,224.
::'4
240
DATA
224,252,239,245,224,252,239,239,239,245,224,224
250 DATA
252,239,239,245,252,239,239~239,239,245,224.224
2bO
DATA 241.241,241,249,241,241,241,241.241.249,224,224
270
DATA
239,239,239,239,239,239,239,239,239,239,239,251
280 DATA 253,239,239,239,239,239,239,239,239,239,251,224
Gemini User's Manual
Figure
8-9
is the boat program (refer to Figure
7-2)
amended for the Atari
computer.
2
6RAPHICS (;
3 PRINT • ":PRINT • ":PRINT • •
4
PRINT • THIS PR06RAM TAKES ABOUT'
5
PRINT •
4
KINUTES TO RUN. PLEASE'
6 PRINT • TURN
O~
YOUR PRINTER AND •
7
PRINT • STAND
By •••••••••••••• •
8
PRINT • ':PRINT • ":PRINT •
8
10
FOR
1=1536
TO
1553
20 READ 0
:0 POKE I,D
40
NEXT I
50 DATA
104,104, 133,20S,104,133,2G4
60 DATA 104,5,205,133,213,104,5,204
70
DATA
133,212,96
100 REI! MICRO-PLOT
110
DIM BITI76,12),I1ASK{b)
120
DIM
AS(76)
130 0111 B'(10)
132 FOR
1=0
TO 11
133
FOR
J=1
TO
76
134 SITIJ,Il=O
135
NEXT
J
136
NEXT
I
1000 REM SET PROGRAM CONSTANT
1010 I1ASk(I)=64:I1ASK(4)=8
1020 I1ASK(2l=32:I1ASK(5)=4
174
• •
• •
•
•
• •
• •
• •
• •
• •
• •
• •
•
• •
Advertisement
