Illegal function call
Posted: Thu Apr 06, 2006 9:08 pm
I'm not a programmer, but 12 yrs ago, more or less, I needed a program so I wrote it, in QBASIC, I think. Now I need the program again, and when I attempt to run it in Qbasic, or Power BASIC, when it gets to the Circle statement, it stops with the notice, "Illegal Function". I am using an OLD computer with DOS on it, don't know what version, but all the files are dated 1994. Can anyone tell me why I ger this error, and what I need to do to get this program to run?
The following is the program
Any help will be greatly appreciated
'CONCV.BAS (CONCAVE)
MaxD = 2.75 'MAXIMUM DIAMETER
CSC = 0 'CAM SHAFT CLEARANCE
RR = 9 'REDUCTION RATIO
RlD = 3 / 8 'ROLLER DIAMETER
OfSt = RlD / 5 'OFF SET
PI = 3.141593
RD = 180 / PI
CIRCLE (X,Y), 1.125 / 2, 11
CIRCLE (X, Y), MaxD / 2, 12
CIRCLE (X, Y), (MaxD / 2) + RlD, 13
FOR ANG = 0 TO 360 STEP 1
XX = COS(ANG / RD) * (MaxD / 2 + CSC - (RlD / 2) - OfSt)
YY = SIN(ANG / RD) * (MaxD / 2 + CSC - (RlD / 2) - OfSt)
DANG = ANG / RD * (RR + 0)
X = XX + COS(DANG) * OfSt
Y = YY + SIN(DANG) * OfSt
PSET (X, Y), 7
CIRCLE (X, Y), RlD / 2, 9, , , ASP
X$ = MID$(STR$(X), 2): IF X < 0 THEN X$ = STR$(X)
Y$ = MID$(STR$(Y), 2): IF Y < 0 THEN Y$ = STR$(Y)
PRINT #1, X$,",", Y$,",", Z$;
NEXT ANG
The following is the program
Any help will be greatly appreciated
'CONCV.BAS (CONCAVE)
MaxD = 2.75 'MAXIMUM DIAMETER
CSC = 0 'CAM SHAFT CLEARANCE
RR = 9 'REDUCTION RATIO
RlD = 3 / 8 'ROLLER DIAMETER
OfSt = RlD / 5 'OFF SET
PI = 3.141593
RD = 180 / PI
CIRCLE (X,Y), 1.125 / 2, 11
CIRCLE (X, Y), MaxD / 2, 12
CIRCLE (X, Y), (MaxD / 2) + RlD, 13
FOR ANG = 0 TO 360 STEP 1
XX = COS(ANG / RD) * (MaxD / 2 + CSC - (RlD / 2) - OfSt)
YY = SIN(ANG / RD) * (MaxD / 2 + CSC - (RlD / 2) - OfSt)
DANG = ANG / RD * (RR + 0)
X = XX + COS(DANG) * OfSt
Y = YY + SIN(DANG) * OfSt
PSET (X, Y), 7
CIRCLE (X, Y), RlD / 2, 9, , , ASP
X$ = MID$(STR$(X), 2): IF X < 0 THEN X$ = STR$(X)
Y$ = MID$(STR$(Y), 2): IF Y < 0 THEN Y$ = STR$(Y)
PRINT #1, X$,",", Y$,",", Z$;
NEXT ANG