Table of Contents
Advertisement
,
Apple II Computers
203
110 DIM BIT%(l90,36),A$(36),PCT%(25),TXT$(48),PTXT$(25)
120 ES$ = CHR$ (27):LF$ = CHR$ (10)
130 FF$ = CHR$ (12):VT$ = CHR$ (11)
140 EM$ = ES$ + "E":CE$ = ES$ + "F"
145 RF$ = CHR$ (27) + CHR$ (12)
150 FOR I = 1 TO 148:SP$ = SP$ + CHR$ (0): NEXT I
160 FOR I = 1 TO 79:SS$ = SS$ + " ": NEXT I
1000 REM SET PROGRAM CONSTANTS
1010 MASK%(l) = 64:MASK%(4) = 8
1020 MASK%(2) = 32:MASK%(5) = 4
1030 MASK%(3) = 16:MASK%(6) = 2
1040 Lx = 20:LY = 20
1050 XFAC = 190 / LX:YFAC = 216 / Ly
1060 FOR I = 0 TO 48
1070 TXT$(I) = SS$
1080
NEXT I
1090 GOSUB 7000
1092 HOME : PRINT : PRINT : PRINT : PRINT
1093 PRINT "THIS PROGRAM TAKES ABOUT"
1094 PRINT "2 MINUTES TO RUN. PLEASE"
1095 PRINT "TURN ON YOUR PRINTER AND"
1096 PRINT "STAND BY................"
1097 PRINT : PRINT : PRINT
1098 FOR I = 1 TO 31: PRINT "0";: NEXT
1099 PRINT " ": PRINT " "
1100 FOR I = 1 TO NP%: PRINT "0";: NEXT
1110 PRINT " "
1120 VTAB 12: HTAB 1
2000 REM PLOT CURVE
2010 RAD = 9
2020 Xl = 19:Yl
= 10
2030 FOR ANG = 0 ~0 360 STEP 12
204jiI
Rl = ANG * 6.28 / 360
I
I
2050 X2
= RAD * COS (Rl) + 10:Y2 = RAD * SIN (Rl) + 10
2060
GOSUB 4000
2070
NEXT ANG
2075
VTAB 14: HTAB 1
2080
FOR PI = 1 TO NP%
2090
Xl = 10:Yl = 10
2100 TP% = TP% + PCTX(P1)
2110 ANG = 360 * TP% * .01
2120 Rl = ANG * 6.28 / 360
2130
x2
= RAD * cos (Rl) + 10:Y2 = RAD * SIN (Rl) + 10
Advertisement
Table of Contents
