This is my 2nd 20 liner and another along the retro demo style.
Sin scrolling bars.
I could make this a lot shorter.
Sync on : Sync Rate 0
Type Bar
Y
Direction
EndType
Dim Bars(5) as Bar
For Counter = 1 to 5
Bars(Counter).Direction = 1
Bars(Counter).Y = 100+Counter*50
Next Counter
Do
For Counter = 1 to 5
Inc Bars(Counter).Y,Bars(Counter).Direction
Box 0,(Sin(Bars(Counter).Y)*20)+100,Screen Width(),(Sin(Bars(Counter).Y)*20)+110,200,50,200,50
Box 0,(Sin(Bars(Counter).Y)*20)+110,Screen Width(),(Sin(Bars(Counter).Y)*20)+120,50,200,50,200
If Bars(Counter).Y = 1000 Then Bars(Counter).Direction = -1
If Bars(Counter).Y = 100 Then Bars(Counter).Direction = 1
Next Counter
Sync : Cls
Loop
Giff
1.4Ghz Athlon - 256 Mem - Win 98 - Geforce 2 Ti 400Mhz 64Mb