Uncompressed:
hide mouse
randomize timer()
sync on
sync rate 60
set gamma 220,190,120
set text font "edwardian script itc",1
message$ = "Producing rather good programs since the 1900s."
dim liney(5)
DO
inc run
if run > 5
run=0 : oldx = newx : oldy = newy : newx = rnd(8)-4 : newy = rnd(8)-4
for n= 0 to 5
liney(n) = liney(n) + rnd(40) - 20
if liney(n)<0 or liney(n)>480 or rnd(10)=0 then liney(n) = rnd(480)
next n
endif
`oldtext
con = 100+rnd(130)
ink rgb(con,con,con),0
set text size 60
center text 320+oldx,190+oldy,"Dark Basic Classic"
set text size 40
center text 320+oldx,240+oldy,message$
`newtext
con = rnd(60)
ink rgb(con,con,con),0
set text size 60
center text 320+newx,190+newy,"Dark Basic Classic"
set text size 40
center text 320+newx,240+newy,message$
`lines
for n = 0 to rnd(5)
con = rnd(80)
ink rgb(con,con,con),0
line 0,liney(n),639,liney(n)
next n
`dust
for n = 1 to rnd(200)
x = rnd(640)
y = rnd(480)
line x,y,x+rnd(5)-2,y+rnd(5)-2
next n
con= rnd(55)+200
sync:cls rgb(con,con,con)
randomize timer()
LOOP
Compressed:
hide mouse : randomize timer():sync on:sync rate 60:set gamma 220,190,120:set text font "edwardian script itc",1:message$ = "Producing rather good programs since the 1900s.":dim liney(5)
DO:inc run:if run>5:run=0 : oldx = newx : oldy = newy : newx = rnd(8)-4 : newy = rnd(8)-4:for n= 0 to 5: liney(n) = liney(n) + rnd(40) - 20:if liney(n)<0 or liney(n)>480 or rnd(10)=0:liney(n) = rnd(480):endif:next n:endif:con = 100+rnd(130)
ink rgb(con,con,con),0:set text size 60:center text 320+oldx,190+oldy,"Dark Basic Classic":set text size 40:center text 320+oldx,240+oldy,message$:con = rnd(60):ink rgb(con,con,con),0:set text size 60
center text 320+newx,190+newy,"Dark Basic Classic":set text size 40:center text 320+newx,240+newy,message$:for n = 0 to rnd(5):con = rnd(80):ink rgb(con,con,con),0:line 0,liney(n),639,liney(n):next n
for n = 1 to rnd(200):x = rnd(640):y = rnd(480):line x,y,x+rnd(5)-2,y+rnd(5)-2:next n:con= rnd(55)+200:sync:cls rgb(con,con,con):randomize timer():LOOP
"With games, we create these elaborate worlds in our minds, and the computer is there to do the bookkeeping." - Will Wright
