Atari 8-bit Source code

0 REM ***************************
1 REM *      BANDERA CON        *
2 REM *    ESTRELLA PERFECTA    *
3 REM *                         *
4 REM * GONZALO CONCHA-LABORDE  *
5 REM *                         *
6 REM ***************************
8 GOTO 200
10 XC=30:YC=24
20 RD=1:YS=0.78
25 REM AHORA LA ESTRELLA
30 COLOR 2
40 DEG : PLOT XC,YC-RD*YS
50 DRAWTO XC-SIN(-144)*RD,YC-COS(-144)*RD*YS
60 DRAWTO XC-SIN(-288)*RD,YC-COS(-288)*RD*YS
70 DRAWTO XC-SIN(-72)*RD,YC-COS(-72)*RD*YS
80 DRAWTO XC-SIN(-216)*RD,YC-COS(-216)*RD*YS
90 DRAWTO XC-SIN(-360)*RD,YC-COS(-360)*RD*YS
100 RD=RD+1: IF RD=18 THEN 300
110 GOTO 30
190 REM LA BANDERA
200 GRAPHICS 7+16: SETCOLOR 1,0,14:C=2
210 FOR I=0 TO 12: COLOR C
220 FOR J=0 TO 6:PLOT 0,I*7+J
230 DRAWTO 159,I*7+J
240 NEXT J
250 IF I>5 THEN C=1
260 NEXT I
270 COLOR 3
280 FOR I=0 TO 48:PLOT 0,I:DRAWTO 60,I:NEXT I
290 GOTO 10
300 GOTO 300
310 REM ************************************
320 REM *       TABLA DE VARIABLES         *
330 REM * XC : COORDENADA CENTRO ESTRELLA  *
340 REM * YC :      "         "      "     *
350 REM * RD : RADIO DEL PENTAGONO         *
360 REM * YS : FACTOR DE ESCALA DEL DIBUJO *
370 REM ************************************	

• Download link 1
• Download link 2