Advertisement
~
Gemini User's Manual
---------------------------------------------
9b
DATA 241,241,241,249.241,241, 241,241,241,249,224,224
97 DATA
239.239,~39,239.239,239,
239,239,239,239.239.251
98 DATA
2~3,239,239,239,239,239,
239,239.239,239,251,224
99 PRINT
I
NEXT r.
100 PRINT
CHRS (21);"@"1
PR*
0:
END
Figure A-9 is the boat program (refer to Figure 7-2) amended for the
Apple
/I
computer.
4
HOME, PRINT •• , PRINT
.1
5 PRINT·
I,
PRINT • •
6
PRINT "THIS PROGRAM TAKES ABOUT"
7
PRINT
"3
MINUTES TO RUN. PLEASE"
S PRINT "TURN ON YOUR PRINTER AND"
9 PRINT ·STAND
By ................ •
10 A
= 24576
20
FOR
I
=
A
TO
A
+
1:
30 READ 9
35
POKE I.B
40
NEXT I
50
DATA 32,74,255,165,250,5.251
60 DATA
133,252,32,63,25~,96
100 REM MICRO-PLOT
110 DIM 9IT%(76,12)
1000 REM SET PROGRAM CONSTANTS
1010 MASKX(I) = 64IMASKX(4) =
8
1020 MASKX(2)
=
32IMASK1(5) = 4
1030 MASKX(3) : 16:MASKX(6) :
2
1040 LX : 20;LV
=
20
1050 XFAC
=
72 / LX;YFAC : 75 / LY
2000 REM PLOT CURVE
2010 RAD :
9
2020
XI
=
19;YI = 10
2030 FOR ANG = 0 TO 360 STEP 10
2040 RI • AN6
*
6.28 /
360
2050 X2 • RAD. COS (Rl)
+
10lY2 • RAD. SIN (Rl)
+
10
2060 SOSUB 4000
2070 NEXT ANS
2080 FOR ANS • 0 TO 360 STEP 15
160
•
• •
I
I
• •
• •
• •
I
• •
• •
•
I
I
I
• •
I
Advertisement
