Advertisement
•
I
I
I
•
I
I
I
II
I
TRS·80
00 NEXT I
7Q LPRINT
80 NEXT J
90
DATA 224,224,224,224,224,224, 224,224,224,245,224,224
91 DATA 224,224,224,224,224,224, 224,224,252,245,224,224
92 DATA 224,224,224,245,224,224, 224,252,239,245,224,224
93 DATA 224,224,252,245,224,224, 252,239,239,245,224,224
94 DATA 224,252,239,245,224,252, 239,239,239,245,224,224
95 DATA 252,239,239,245,252,239, 239,239,239,245,224,224
Qb
DATA 241,241,241,249,241,241,
241,2~1,241,249,224,224
97 DATA 239,239,239,239,239,239, 239,239,239,239,239,251
98 DATA 253,239,239,239,239,239, 239,239,239,239,251,224
99 lPRINT :NEXT K
100
LPRINT CHR$(27);'@":END
I
Figure F·9 is the boat program (refer to Figure 7-2) amended for the
TRS-BO.
I
I
• •
• •
• •
• •
I
•
10 CLS:PRrNT ":PRINT '":PRIN
T
ft.
20 PRINT "THIS PR06RA" TAKES ABOUT 4 "INUTES TO RUNS
30 PRINT ·PLEASE TURN ON YOUR PRINTER AND STAND BY·
100
DI~
BITk(76,12)
110
~ASKl(li=12B:"ASKI{4)=16
:20
~ASKI(2)=b4
:KASKX(S)=B
130 "ASKi:(3)=32 :KASnW=4
:40
U=20:LY=20
150
XFAC=72fLI:YFAC=75!LY
1000
REI! PLOT CURVE
1010
RAD=Q
10:0
Xl=19:Yl=10
1030 FOR AN6=O TO 360 STEP 10
1040
Rl=AN6l6.28!3bO
1050
X2=RADtCOS(RII+I0:Y2=RADISINIRII+IC
1060 60SUB 3000
1070
NEE
:080 FOR AN6=0 TO 360 STEP 15
1090 Rl=ANGl6.2B/36C
1100 R2=iAN6+150)'b.2B/3bO
1110 Il=RAD*COS(Rl)+lO:Yl=RAOlSINIRIJ+lC
1120 X2=RAD'COS(R2)+10:Y2=RAD*SINIR2)+10
I
213
Advertisement
