Programm 9 - CAS PrePro
Dieses Programm hat mein wav2X2cas klaglos konvertiert.
Diesem Basic-Programm zeichnet ein paar Bögen.
Das Listing stammt vermutlich aus einem Buch oder einer Zeitschrift.
10 REM
20 REM
30 GRAPHICS 8+16
40 W=PI/8
50 A=0:B=0:D=0
60 F1=20:F2=5:F3=8
70 V1=160:V2=95
80 CO=COS(W):SI=SIN(W)
90 SY=-0.5:SX=-0.03
100 FOR ZA=1 TO 2
110 FOR YR=3 TO -4 STEP SY
120 FOR XR=3 TO -3 STEP SX
130 ZR=YR*YR-XR*XR
140 X=INT(F1*(A+XR)+F3*(YR+C)*CO+V1)
150 Y=INT(F2*(B+ZR)+F3*(YR+C)*SI+V2)
160 COLOR 1:PLOT X,192-Y
170 NEXT XR:NEXT YR
180 IF ZA=1 THEN SY=-0.04:SX=-0.5
190 NEXT ZA
200 GOTO 200Download der Datei als CAS-File (bitte im Atari mit CLOAD laden):