Hi, habe mal kurz mit ein paar Zahlen gespielt und was nettes entdeckt, also wer was lustiges sehen will, der tippe bitte kurz das Programm mal ab.
VIC-20, mit oder ohne 3K Erweiterung, nach dem Start kurz warten , dann wenn's Bild kommt kann man mit den Tasten 1-9 die Geschwindigkeit erhöhen, nach nem RUN/STOP kommt der lustige Effekt, also viel Spaß
10 FOR I = 0 TO 79 : FOR J=0 TO 7
20 K=I+J:IF K>79 THEN K=K-80
30 A=PEEK(2^15+48*8+K)
40 POKE 6144+I*8+J,A:NEXT:NEXT
50 PRINT "CLR/HOME":POKE 36869,254:POKE56,24
60 L=L+1:IFL>79 THEN L=0
61 M=M+1/10:IF M>=80 THEN M=0
70 LL=L+8:IF LL>79 THEN LL=LL-80
71 MM=M+8:IF MM>=80 THEN MM=MM-80
80 POKE 7680+250,L:POKE 38400+250,2
81 POKE 7680+249,M:POKE 38400+249,2
90 POKE 7680+250+22,LL:POKE 38400+250+22,2
91 POKE 7680+249+22,MM:POKE 38400+249+22,2
100 GET T$:IF T$ <>"" THEN T=2^(9-VAL(T$))
110 FOR I=0 TO T:NEXT:GOTO 60
So, nun viel Spaß, hoffe nur, das ich dieses in das richtige Forum reingeschrieben habe, wenn ned, dann bitte schiebt dies wo anders hin, habe jedoch nichts gefunden.
Also bis dann, schönen Tag noch
euer Toni