Advertisement
170
DATA 224,224,252,245,224,224,252,239,239,245,224,224
180 DATA 224,252,239,245,224,252,239,239,239,245,224,224
190 DATA 252,239,239,245,252,239,239,239,239,245,224,224
200 DATA 241,241,241,249,241,241,241,241,241,249,224,224
210
DATA 239,239,239,239,239,239,239,239,239,239,239,251
220 DATA 253,239,239,239,239,239,239,239,239,239,251,224
Gemini User's Manual
Figure E-9 is the boat program (refer
to
Figure 7-2) amended for the
Osborne computer.
10 PRINT CHRf(2bl
20 PRINT II:PRJNT I·:PRINT
I .
30 PRINT "THIS
PR06RA~
TAKES ABOUT TWO'
40 PRINT ""INUTES TO RUN, PLEASE TURN"
50 PRINT "ON YOUR PRINTER AND STAND BY"
100 RE" "fCRO-PLOT
110 01" BIT%(75,12}
1000
RE"
SET PROSRAft CONSTANTS
1010 "ASKl(ll=128:"ASKl(4l=16
1020 "ASKX(2)=64 :"ASK%(S)=8
1030 "ASK%(3)=32 :"ASKXlb)=4
1040 LX=20
:LY=20
1050 XFAC=72/LX :YFAC=75/LV
2000 RE" PLOT CURVE
2010 RAD=9
2020 Xl=19 :Yl=10
2030 FOR AN6%=0 TO 360 STEP 10
2040 Rl=AN61'6.28/3bO
2050 X2=RAD' C OS(Rl)+10 :Y2=RADtSIN(Rl)+10
2060 SOSUB 4000
2070 NEXT AN61
2080 FOR AN61=0 TO 360 STEP 15
2090 Rl=ANS%'6.28/360
2100 R2=(AN6%+150)'6.28/360
2110
Xl.RAD.COS(Rl)+10 :Y1=RAD'SINlRl)+10
2120 X2=RAD.COSIR2)+10 :V2=RADtSIN(R2l+10
2130
GOSll8
tooo
2140
NEXT AN6I
3000
RE" SEND BIT l"AGE KAP TO PRINTER
3010 LPRINT CHR$(27)j"A·;CHRS(6)
3020 FOR RON1=0 TO 11
202
•
• •
• •
• •
• •
• •
• •
• •
•
• •
•
• •
•
•
Advertisement
