Wettbewerb: Bewegte Grafik

150 print"{clr}";:poke53280,9:poke53281,1
160 print"{cyn}{rvon}                        ";
170 print"                          ";
180 print"          {CBM-N}{blu}{CBM-+}{red}{CBM-I}{CBM-I}{cyn}         ";
190 print"                          ";
200 print" {CBM-N}{red}{CBM-I}{CBM-I}{CBM-I}{cyn}                   ";
210 print"                 {CBM-N}        ";
220 print"                          ";
230 print"     {CBM-N}                    ";
240 print" {CBM-I}        {gry1}{rvof}{CBM-Y}{cyn}{rvon}     {gry1}{rvof}{CBM-Y}{cyn}{rvon}{CBM-@}";
250 print"{CBM-P}{SHIFT-@}{CBM-P}{CBM-P}{CBM-@}{gry1}{rvof}{CBM-Y}{cyn}{rvon}     {gry1}{rvof}{CBM-Y}{cyn}{rvon}      ";
260 print"    {gry3}{rvof}{CBM-Y}{CBM-Y}{CBM-Y}{gry2}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-Y}{CBM-T}{CBM-T}{CBM-T}{rght}{rght}{rght}";
270 print"{rght}{rght}{rght}{rght}{rght}{CBM-T}{CBM-T}{CBM-T}{CBM-Y}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{CBM-U}{gry3}{CBM-Y}{CBM-Y}{cyn}{rvon} {gry2}{rvof}";
280 print"{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{$72}{$66}{$60}{$64}{$65}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{$65}{$64}{$60}";
290 print"{$66}{$72}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{grn}{rvon} {gry3}{rvof}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}";
300 print"{$60}{$60}{$60}{$60}{gry2}{rvon}{CBM-U}{rvof}{CBM-N}{rvon}{CBM-Y}{rvof}{CBM-N}{rvon}{CBM-T} {rvof}{CBM-N}{rvon}  {rvof}{CBM-N}{rvon} {CBM-T}";
310 print"{rvof}{CBM-N}{rvon}{CBM-Y}{rvof}{CBM-N}{rvon}{CBM-U}{gry3} {$7f}{rvof}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{$60}{grn}{rvon} {rght}{rght}";
320 print"{gry3} {rght}{rght} {lgrn}{CBM-H}{rght}{gry3} {rght}{rght} {rvof}{CBM-N}{gry2}{CBM-N}{rvon} {rvof}{CBM-N}{rvon}  {rvof}{CBM-N}";
330 print"{rvon}  {rvof}{CBM-N}{gry1}{rvon}  {gry2}{rvof}{CBM-N}{gry1}{rvon} {gry2}{rvof}{CBM-N}{gry3}{rvon} {gry2} {gry3} {rvon} ";
340 print" {rght}{rght} {rght}{rght} {rght}{gry2} {rght}{rght}{gry1} {rght}{rght}{lgrn}{CBM-Y}{CBM-V}{grn}{rvof}{CBM-K}{gry1}{rvon} {rght}";
350 print"{rght} {gry3}{rvof}{CBM-N}{gry2}{CBM-N}{rvon} {rvof}{CBM-N}{rvon}  {rvof}{CBM-N}{gry1}{rvon}  {gry2}{rvof}{CBM-N}{gry1}{rvon} ";
360 print" {gry2}{rvof}{CBM-N}{gry1}{rvon} {gry2}{rvof}{CBM-N}{gry3}{rvon} {gry1} {gry3}  {gry1} {rght}{rght} {rght}{rght} ";
370 print"{rght}{grn} {rght}{rght}{gry2}{rvof}{$66}{rght}{lgrn}{rvon}{CBM-V} {grn}  {CBM-C}{rght}{rght}{gry2}{rvof}{$66}{gry3}{CBM-N}{gry2}{CBM-N}";
380 print"{CBM-I}{CBM-N}{CBM-I}{CBM-I}{CBM-N}{CBM-I}{CBM-I}{CBM-N}{gry1}{rvon}  {gry2}{rvof}{CBM-N}{gry1}{rvon} {gry2}{rvof}{CBM-N}{gry3}{rvon} {$66} ";
390 print" {$66}{$7f}{rght}{gry2}{rvof}{$66}{rght}{rght}{$66}{rght}{rvon} {rght}{rght}{gry3} {lgrn}{CBM-K} {grn} {lgrn} {grn} ";
400 print" {rvof}{CBM-K}{rght}{gry3}{rvon} {rvof}{CBM-N}{gry2}{CBM-N}{gry3}{rvon} {gry2}{rvof}{CBM-N}{gry3}{rvon}  {gry2}{rvof}{CBM-N}{gry3}{rvon}";
410 print"  {gry2}{rvof}{CBM-N}{gry1}{rvon}  {gry2}{rvof}{CBM-N}{gry1}{rvon} {gry2}{rvof}{CBM-N}{gry3}{rvon} {gry2} {gry3}  ";
420 print"{gry2} {lgrn} {grn}{CBM-C}{gry3} {rght}{rght} {rght}{gry2} {rght}{rght}{lgrn} {CBM-V}{grn} {lgrn} {grn}  ";
430 print"  {rght}{gry3} {rvof}{CBM-N}{gry2}{CBM-N}{gry3}{rvon} {gry2}{rvof}{CBM-N}{gry3}{rvon} {gry1} {gry2}{rvof}{CBM-N}{rvon}  ";
440 print"{rvof}{CBM-N}{gry1}{rvon}  {gry2}{rvof}{CBM-N}{gry1}{rvon} {gry2}{rvof}{CBM-N}{gry3}{rvon} {gry2} {gry3}  {gry2} {lgrn}";
450 print" {grn} {CBM-D}{rght}{lgrn}{CBM-B}{gry3} {rght}{gry2} {rght}{lgrn}{CBM-V} {grn} {lgrn} {grn}     ";
460 print"{rvof}{CBM-K}{gry2}{rvon} {gry3}{rvof}{CBM-N}{gry2}{CBM-N}{gry3}{rvon} {gry2}{rvof}{CBM-N}{gry3}{rvon} {gry1} {gry2}{rvof}{CBM-N}{gry1}{rvon}";
470 print"  {gry2}{rvof}{CBM-N}{gry1}{rvon}  {gry2}{rvof}{CBM-N}{gry1}{rvon} {gry2}{rvof}{CBM-N}{gry3}{rvon} {gry1} {gry3}  ";
480 print"{gry1} {lgrn} {grn}  {lgrn}{CBM-V}{grn} {CBM-C}{rght}{gry2} {rght}{rght}{lgrn}{CBM-I}{grn}   {lgrn} {grn}";
490 print"   {rght}{rght}{gry2}{CBM-K}{rght}{gry3}{CBM-N}{rght} {rvof}{$79}{rght}{gry2}{rvon} {CBM-N}{rght}{gry1} {CBM-N}{rght}{CBM-N}{rght}";
500 print"{gry2} {CBM-Y}{gry3}  {lgrn} {grn}    {CBM-V}{CBM-D}{rght}{CBM-T}{CBM-V}{rght}{rght}{lgrn}{CBM-F}{grn}   ";
510 print"    {rght}{rght}{rght}{rght}{rght}{gry1}{rvof}{CBM-F}{rght}{rght}{CBM-D}{rght}{gry2}G{rght}{gry1}{CBM-F}{gry2}G{gry3}{rvon} {gry2}";
520 print"{rvon}   {gry3}{CBM-D} {grn}       {rght}  {SHIFT-@}{rght}{gry2}{rvof}{CBM-@}{rght}{grn}{rvon}";
530 print"{CBM-I} {CBM-P}{CBM-I}{rvof}{CBM-Y}{rght}{CBM-I}{rvon} {rght}{rght}{gry1}{CBM-K} {rght}{rght} {rvof}{CBM-K}{rght}{rvon}{CBM-K} {gry3}{SHIFT-POUND}";
540 print"{rvof}{SHIFT-POUND}{gry2}{rvon}{SHIFT-POUND}{gry3}  {CBM-B}{CBM-K}{grn}   {gry3} {grn}  {rght}{rght} {CBM-N}{gry2}  ";
550 print"{rvof}{CBM-C}{rvon}  {orng}{CBM-H}{gry2}    {grn}{CBM-H}  {rght}{gry1}{CBM-K} {rght}{rght} {rvof}{CBM-K}{rght}";
560 print"{rvon}{CBM-K} {gry3}{rvof}{SHIFT-POUND}{gry1}{rvon}{SHIFT-POUND}   {rvof}{CBM-V}{gry2}{CBM-D}{rvon}  {orng}{CBM-H}{gry2}  {orng}{CBM-G}";
570 print"{gry2}  {grn}{CBM-T}  {CBM-D}{rvof}{CBM-C}{rvon}{CBM-K}    {CBM-@}         ";
580 print"    {CBM-@}    {CBM-D}{rvof}{CBM-J}{CBM-N}{rvon}{CBM-V} {CBM-@}        {CBM-L}";
590 print"{rvof}{CBM-D}{CBM-D}{rvon} {CBM-T} {CBM-@}     {$66}    {CBM-@}       ";
600 print" {CBM-V}{rvof}{CBM-V}{CBM-B}{rvon}          {CBM-C}{rvof}{CBM-G}{CBM-H}{lblu}{CBM-F}{grn}{rvon}  ";
610 print"     {CBM-T}         {$72}     {CBM-F}{rvof}{CBM-V}{lblu}{$67}";
620 print"{grn}{rvon}{CBM-C}     {CBM-T} {gry1}{rvof}{CBM-P}{CBM-P}{CBM-P}{lblu}{$68}{$67}{$79}{gry1}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}";
630 print"{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{CBM-P}{lblu}{$67}{CBM-N}{rght}{gry1}{CBM-P}{CBM-P}{CBM-P}{CBM-P}";
640 print"{CBM-P}{CBM-P}{CBM-P}{CBM-P}{lblu}{rvon}{CBM-@} {CBM-V}{rvof}{CBM-V}{CBM-C}{$74}{rvon}{CBM-V}{CBM-@} {CBM-@}    {CBM-@}   ";
650 print"        {CBM-P}{$65}{$72}{rvof}{CBM-J}{CBM-H}{CBM-V}{rvon}{CBM-J}{$66}{$72}  {CBM-@}  {$66}{CBM-D}";
660 print"{CBM-Y}{rvof}{$67}{CBM-H}{$68}{rvon}{CBM-B}{$64}{$72}{$63}{CBM-@}     {CBM-@} {CBM-T} {CBM-@}  {CBM-T}{CBM-@} ";
670 print"RC {rvof}H{CBM-C}H{CBM-L}{rvon}D{CBM-P}{SHIFT-*}  {CBM-@}{home}";
680 poke2023,160:poke56295,14
690 wait203,63
700 poke53281,(peek(53281)+1)and15
710 goto690

100 rem *******************************
101 rem *                             *
102 rem * andreas koenig              *
103 rem * westerbreite 43             *
104 rem *                             *
105 rem * 3180 wolfsburg 12           *
106 rem *                             *
107 rem *******************************
108 poke53281,0:poke53280,0:poke53272,21
109 print"{clr}"
110 printspc(15)"{red}{CBM-O}{CBM-I}{rvon}{CBM-U}{CBM-U}        {CBM-Y}{CBM-Y}{CBM-U}{CBM-U}{CBM-U}{rvof}{CBM-O}{CBM-O}{CBM-O}"
111 printspc(14)"{rvon}{CBM-B}{lblu}{rvof}{CBM-O}{CBM-I}{CBM-I}{CBM-F} {red}{CBM-T}{CBM-T}{CBM-Y}{CBM-U}{CBM-U}{rvon}{CBM-I}{CBM-F}{CBM-I}{rvof}{CBM-U}PO{CBM-Y} {CBM-Y}{rvon}{CBM-F}{CBM-C}"
112 printspc(13)"{rvon}{CBM-B}{rvof}{lblu}{CBM-D}{rvon}{CBM-D}{rvof}{CBM-V}        {CBM-D}{red}{rvon}{CBM-K}{rvof}   {CBM-J}  {lblu}{CBM-D}{red}{CBM-C}{rvon} {CBM-C}"
113 printspc(12)"{rvon}{CBM-K}{rvof}{CBM-V}{rvon}{lblu}{CBM-D}{rvof}         {CBM-D}{rvon}{CBM-N}{red}{CBM-H}{rvof}{gry3}T{rght}{lblu}{CBM-K}{red}{CBM-B}  {lblu}{CBM-C}{CBM-J}{red}{rvon}{CBM-F} {CBM-C}"
114 printspc(11)"{CBM-D}{CBM-V}{lblu}{rvon}{CBM-B}{rvof}          {rvon}{CBM-V}{rvof}{CBM-K}{red}{CBM-K}{gry3}{SHIFT--} {rvon}{lblu}{CBM-K}{red}{CBM-K}{rvof}   {lblu}{rvon}{CBM-K}{rvof}{red}{CBM-C}{rvon}  {rvof}{CBM-F}"
115 printspc(10)"{CBM-D}{rvon}{CBM-D}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rght}{rvof}{lblu}{CBM-P}{CBM-O}{rvon}{CBM-V} {rvof}{red}{CBM-N}{CBM-H}{gry3}H {lblu}{CBM-N}{red}{CBM-N}{CBM-H}   {lblu}{CBM-V}{red}{rvon}{CBM-K} {CBM-C}"
116 printspc(10)"{rvon}{CBM-V}{rvof}{CBM-I}{CBM-I}{CBM-I}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-O}{CBM-P}{lblu}{CBM-Y}{CBM-U}{rvon}{CBM-I}{CBM-O}{rvof}{CBM-V}{red}{rvon}{CBM-J}{rvof} {gry1}{CBM-D}{CBM-I}{CBM-I}{lblu}{CBM-G}{red}{rvon}{CBM-C}{rvof}{CBM-P}{CBM-I}{CBM-I}{rvon}{CBM-Y}   {rvof}{CBM-H}";
117 printspc(8)"{CBM-I}{rvon}{CBM-Y}            {CBM-Y}{CBM-Y}{CBM-Y} {rvof}{CBM-I}{rvon}{gry1}   {red}{CBM-G}     {CBM-I}  {rvof}{CBM-H}";
118 printspc(5)"{CBM-D}{CBM-I}{rvon}                 {CBM-A}{CBM-X}T{CBM-T}{CBM-T}{CBM-T}{CBM-I}        {rvof}{CBM-H}";
119 print"   {CBM-D}{rvon}{CBM-V}                 RD  {SHIFT--}         {CBM-@}F {rvof}"
120 print"  {red}{CBM-M}{rvon}{CBM-P}{CBM-P}{CBM-P}{CBM-@}{CBM-@}           R{SHIFT-*}{CBM-X}    {CBM-M}     {CBM-@}F{SHIFT-*}EN{CBM-M}{gry1}  {rvof}";
121 print"  {red}B{gry3}{CBM-I}{CBM-F}    {red}{CBM-T}{CBM-T}{CBM-T}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-Y}{CBM-U}{CBM-U}{rvon}     {CBM-@}{CBM-@}{CBM-@}{CBM-@}{CBM-G}{SHIFT-*}{SHIFT-*}E{CBM-T}    {rvof}{gry1}{SHIFT-*}{CBM-S}{rvon} {rvof}{SHIFT-POUND}";
122 print" {red}{CBM-M}{gry3}{CBM-L}{rvon}{CBM--}{CBM-N}{rvof}    Q     {rvon}{CBM-V} {rvof}{CBM--}{rvon}{red}{CBM-J}{SHIFT-*}EE{CBM-T}    {CBM-G}     {CBM-@}R{rvof}{CBM-K}{lred} {CBM-F}{gry1}{CBM-S}"
123 print" {red}{CBM-A}{gry3}{CBM-C}{rvon} {rvof}{CBM-K}          {rvon}{gry3}{CBM-F}{CBM-POUND}{CBM-N}{red}{CBM-J}    {rvof}{CBM-V} {rvon}{CBM-F} {CBM-G} {CBM-@}{CBM-P}{SHIFT-*}E  {rvof}{CBM-K}{lred}{rvon}{CBM-K}{rvof}{CBM-K}{gry1}H"
124 print"{gry3}{CBM-M}EDFREEEDDDFFR{CBM-P}{gry3}{CBM-C}{rvon}{CBM-I}{rvof}{CBM-V}{red}{rvon} {CBM-O}{CBM-I}{CBM-F}{CBM-D}{rvof}{gry1}{SHIFT-*}{CBM-S}{red}{CBM-C}{rvon}{CBM-M}{CBM-Y}{CBM-Y}{CBM-Y}    {CBM-D}{rvof} {lred}{rvon}{CBM-K}{CBM-L}{rvof}{gry1}{CBM-M}"
125 print"{gry3}{CBM-M}{orng}{CBM-U}{rvon}{CBM-I}{rvof}  {gry3}{CBM-Y}{CBM-Y}{CBM-Y}EEEDDDFFFFDE{CBM-Y}{red}{rvon}{CBM-D}{rvof}  {gry1} {CBM-S}{red}{rvon}{CBM-M}    {CBM-P}{CBM-O}{rvof}{CBM-U}{gry1}{CBM-M} {lred}{CBM-C}{gry1} H"
126 print" {red}{CBM-T}{CBM-*}{rvon}{CBM-Y}{CBM-Y}{CBM-U}{wht}{CBM-U}{CBM-U}{CBM-U}{rvof}{CBM-I}{CBM-I}{red}{CBM-P}   {orng}{rvon}{CBM-I}{CBM-I}{rvof} {red}{CBM-@}{CBM-P}{rvon}{CBM-V}{rvof} {gry1}B{lred}{rvon} {rvof}{CBM-F}{gry1}{SHIFT--}{rvon}{red}N{CBM-P}{CBM-O}{rvof}{CBM-U}{CBM-T}{rght}{rght}{rght}{rght}{gry1}{CBM-Z}{CBM-@}{CBM-@}{CBM-X}"
127 print"   {red}{rvon}{SHIFT-POUND}ED{wht}{CBM-I}{CBM-I}{CBM-P}{CBM-P}{CBM-P}{red}   {CBM-Y}{CBM-U}{CBM-U}{rvon}N  {CBM-N}{rvof}{gry1}{CBM-M}{lred}{CBM-L}{rvon} {CBM-N}{rvof}{gry1}{CBM-M}"
128 print"   {gry1}{CBM-N} {red}{CBM-Y}{rvon}{CBM-I}{CBM-P}  {CBM-U}{CBM-U}DCCFN   {rvof}{CBM-J}{gry1}H{lred}{rvon}{CBM-K}  {gry1}{rvof}{CBM-M}"
129 print"    {gry1}{CBM-G}{CBM-G}  {CBM-M}{red}{CBM-T}{CBM-T}{CBM-U}{CBM-U}{rvon}{CBM-O}{CBM-O}{CBM-P}   {CBM-O}{rvof} {gry1}{CBM-M}{lred}{CBM-L}{rvon} {CBM-N}{gry1}{rvof}{CBM-M}"
130 print"    {gry1}{CBM-Z}{CBM-@}{CBM-@}{CBM-@}{CBM-X}"spc(11)"{SHIFT--} {SHIFT--}{lred}{rvon}{CBM-I}{rvof}{CBM-V}{gry1}G"
131 printspc(21)"{gry1}{CBM-Z}RR{CBM-X}"
132 goto132