pps hat soeben die NYD2017 auf AtariAge veröffentlicht:

http://atariage.com/forums/topic/258820 ... ?p=3661783

Mein kleiner Screen ist zwar nix besonderes, aber hier der Code zur freien Verfügung. Vielleicht macht ja jemand was cooles draus.

Code: Alles auswählen

10 DIM A$(21),B$(21),C$(21):GRAPHICS 3:POKE 752,1:X=10:Y=5:POS.X,Y
20 ? #6;"AAADDDBBDDDCCCDBDDAAA":POS.X,Y+1:? #6;"ADDADBDDBDCDDDDBDADDD":POS.X,Y+2:? #6;"ADADDBDDBDDCCDDBDADDD"
30 POS.X,Y+3:? #6;"ADDADBBBBDDDDCDBDADDD":POS.X,Y+4:? #6;"AAADDBDDBDCCCDDBDDAAA"
40 ? #6;"":A$="AAAAAAAAAAAAAAAAAAAAAAAA":B$="BBBBBBBBBBBBBBBBBBBBB":C$="CCCCCCCCCCCCCCCCCCCCC"
50 POS.X,Y+6:? #6;A$:POS.X,Y+7:? #6;B$:POS.X,Y+8:? #6;C$:? #6;"":POS.X,Y+10:? #6;C$:POS.X,Y+11:?#6;B$:POS.X,Y+12:? #6;A$
60 ? " *** 10LINERS 2017 ***":? :? " GKANOLD@GMAIL.COM"
70 FOR I=0 TO 255:FOR J=0 TO 16:SE. 0,I,J:SE. 1,I+96,J+4:SE.2,T+128,J+8
80 FOR T=0 TO 9:NEXT T:NEXT J:NEXT I
99 GOTO 70


Hallo Sascha,

ich war mal so frei und habe Deinen Beitrag ein winziges bissl editiert, damit es leichter mit Copy&Paste in den Emulator zu kopieren ist.

Grüße,
Florian

Hallo Leute

Gunnars Mailadresse würde ich in dieser Form in den Program nicht stehen lassen. Es gibt Bots die das Netz abgrasen nach Mailadressen, die dann benutzt werden um Spam hin zu schicken.

Tschüß

Mathy

Kleine Änderung, die Strings für die Linien werden jetzt automatisch mit Buchstaben gefüllt.

Code: Alles auswählen

10 DIM A$(21),B$(21),C$(21):GRAPHICS 3:POKE 752,1:X=10:Y=5:POSITION X,Y
20 ? #6;"AAADDDBBDDDCCCDBDDAAA":POSITION X,Y+1:? #6;"ADDADBDDBDCDDDDBDADDD":POSITION X,Y+2:? #6;"ADADDBDDBDDCCDDBDADDD"
30 POSITION X,Y+3:? #6;"ADDADBBBBDDDDCDBDADDD":POSITION X,Y+4:? #6;"AAADDBDDBDCCCDDBDDAAA"
40 ? #6;"":A$(1)="A":A$(21)="A":A$(2)=A$:B$(1)="B":B$(21)="B":B$(2)=B$:C$(1)="C":C$(21)="C":C$(2)=C$
50 POSITION X,Y+6:? #6;A$:POSITION X,Y+7:? #6;B$:POSITION X,Y+8:? #6;C$:? #6;"":POSITION X,Y+10:? #6;C$:POSITION X,Y+11:? #6;B$:POSITION X,Y+12:? #6;A$
60 ? "        *** 10LINERS 2017 ***":? :? "          GKANOLD@GMAIL.COM"
70 FOR I=0 TO 255:FOR J=0 TO 16:SETCOLOR 0,I,J:SETCOLOR 1,I+96,J+4:SETCOLOR 2,T+128,J+8
80 FOR T=0 TO 9:NEXT T:NEXT J:NEXT I
99 GOTO 70