Random demo
Random demo
Random game
Entry name:
 Chilean flag 
Publisher/Developer:

Atarionline.pl forum
(Software library)
  • Category:

    Graphics
  • Year:

    1985
  • Code:

    Gonzalo Concha-Laborde
  • Programming language:

    Atari BASIC
Chilean flag Chilean flag Chilean flag Chilean flag Chilean flag
Listing 1
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 ************************************	

This is non-commercial site, its content is based on Atari 8-bit home computer contents and references.
If you feel your rights are violated by showing/using any part of contents of your product represented on this page, please contact me immediatelly so I can remove it!