10 MODE 1
20 GOSUB 1000 
30 GOSUB 2000 
40 GOSUB 3000
50 TAGOFF
60 PRINT CHR$(23)CHR$(0);
70 END
998 REM las areas de solapamiento seran de la tinta 3 que hemos hecho amarilla
999 REM esto equivale a considerar mas cercano el plano del color amarillo
1000 INK 3,24
1010 y=100:color=1
1020 FOR x=100 TO 500 STEP 50
1030   GOSUB 4000
1040 NEXT 
1050 RETURN
2000 SYMBOL 240,0,15,28,124,127,18,12,0
2010 SYMBOL 241,0,255,120,120,255,255,0,0
2020 SYMBOL 242,0,128,192,254,254,72,48,0
2030 SYMBOL 243,0,16,36,132,128,55,20,0
2040 SYMBOL 244,0,0,137,137,0,1,0,0
2050 SYMBOL 245,0,128,64,2,2,216,80,0
2060 coche$=CHR$(240)+CHR$(241)+CHR$(242)
2070 cochexor$=CHR$(243)+CHR$(244)+CHR$(245)
2080 RETURN
3000 PRINT CHR$(23)CHR$(1);
3010 TAG
3020 xprint=0:yprint=116
3030 FOR xcord=xprint TO 550 STEP 2
3040   MOVE xcord,yprint
3050   IF xcord=xprint THEN PRINT coche$; ELSE PRINT cochexor$;
3055   r$="":WHILE r$="":r$=INKEY$:WEND
3060 NEXT 
3070 RETURN
4000 IF color=1 THEN color=2 ELSE color=1
4010 FOR xcord=x TO x+30 STEP 2
4020   MOVE xcord,y
4030   DRAWR 0,100,color
4040 NEXT 
4050 RETURN
