Advertisement
• •
• •
• •
• •
• •
• •
• •
• •
•
I
• •
• •
•
Commodore VIC-20 & C-64
1::0 NEXT K
130 PRINT CHR$1271;"@'
140 PRINTt4:ClOSE4
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
22~,224,224,245,224,224.224,252,239,245,224,224
230 DATA 224.224,252,245,224,224,252,239,239,245,224,224
:40 DATA 224,252,239,245,224.252,239,239.239,:45,224,224
250
DATA
252.239,239,245,252,23Q,239,239,239,245,224.224
260 DATA 2
4
1.241.241.249,241,241,241.241,241,249,224,224
270
~ATA 23Q.239,239.239,239,239,239,239,23Q,23~,239,25:
:ao
DATA
253.239,23
g
,239,239,239,239,239,239,23
Q
,251,224
Figure C-g is the boat program (refer to Figure 7-2) amended for the Com-
modore computer.
SO PRINT CHR$(147'
bO FOR 1=1 TO 5:PRINT Ij·:NEXT I
70 PRINT "THIS
PR06RAM TAKES
ABOUT TWO
"INUTES·
80
PRINT "rO
RUN,
SO PLEASE TURN ON YOUR
PRINTER"
90 PRINT "AND STAND By .......................... •
100
REM "ICRO-PLOT
110 DIM BIT%(76,12)
1000
RE" SET PROGRAM CONSTANTS
1010 MASK%(I) : 64
:
"ASKI(4) :
e
[020 "ASKl(2) : 32
: MASKX(S) : 4
1030
"ASKX(31 : 16
: MASKt(61 : 2
1040 LX ::
20
:
LV :
20
1050 XFAC
z
72!LX
: YFAC ::
75/L~
2000 REM PLOT CURVE
2010 RAD :: 9
2020 Xl :: 19
: Yl :: 10
2030
FOR
AN6 ::
0
TO
360 STEP 10
2040 R1 :
AN6.o.28/360
2050 X2 :: RAD*COS(Rl)+10 : Y2 = RADtSIN(Rl)+10
2060 GOSUB 4000
2070 NEXT ANG
187
Advertisement
