Pascal on the 99/4A

[senior_falcon]

13 hours ago, Vorticon said:

When I initially tried it, the computer crashed until I realized the radians conversion was incorrect. So odd you're getting a usable output...

Don't know why it would not work for you. I just copied and pasted the code above and it works fine.

[+Vorticon]

48 minutes ago, senior_falcon said:

Don't know why it would not work for you. I just copied and pasted the code above and it works fine.

You mean the pascal code I posted? That has the corrected randians conversion.

[senior_falcon]

1 hour ago, Vorticon said:

You mean the pascal code I posted? That has the corrected randians conversion.

No, the XB/TML code with the error that I posted that you said crashed the computer.

 

Here is the program modified to avoid having to use COS. This is compiled and you can see it is a bit less leisurely.This is running at normal speed, not CPU overdrive.

But of course, although it works the same, it is no longer the same program.

100 DIM SINE(11)
110 FOR I=1 TO 11 :: READ SINE(I):: NEXT I
120 CALL SCREEN(2):: PD=1
130 A=0
135 IF PD=1 THEN CALL LINK("PENHUE",3+INT(RND*14),2)
140 FOR I=1 TO 11
150 CALL LINK("PUTPEN",100,120,A)
160 W=A/180*SINE(I)
170 R=9+A/18
180 CALL LINK("PU"):: CALL LINK("FWD",R-W/200)
190 IF PD=1 THEN CALL LINK("PD")ELSE CALL LINK("PE")
195 CALL LINK("FWD",W/100)
200 A=A+3 :: IF A>1453 THEN 230
210 NEXT I :: GOTO 140
230 PD=PD+1 :: PD=PD AND 1 :: GOTO 130
240 DATA 0,51,97,136,164,178,178,164,136,97,51,0

 

Edited Wednesday at 03:19 AM by senior_falcon

[+Vorticon]

Quite impressive I have to say. Your compiler has been a boon to program development in XB on the TI as demonstrated by the sheer number and quality of new games developed with it by the likes of @Retrospect and @Cheung among others.