The Rainbow Magazine for the Tandy Color Computer would always include these one line demos, utilities, tools, or amusements in its pages, and as I understand it other computer magazines had similar contests.
You could find graphical demos, games, disk management utilities, music, and more all crammed into just 255 characters of code.
In that tradition, I challenge you. Write a FreeBASIC program with the following restrictions:
- Must fit on one line of code that is no more than 1024 characters long.
Cannot #include or #inclib another source or library. Only core FreeBASIC is allowed.
Balance:
Code: Select all
screen 13:color 0,15:cls:circle(160,96),109:circle(160,141),45,,1.57,4.71,1:circle(160,51),45,,4.71,1.57,1:circle(160,138),20:circle(160,48),20:paint(160,28),0,0:paint(160,138),0,0:sleep
Code: Select all
screen 13:do:cls:for r as integer=1to 10:dim as integer x=rnd*320,y=rnd*240,x1=rnd*320,y1=rnd*200,x2=rnd*320,y2=rnd*240,px=(x+x1+x2)/3,py=(y+y1+y2)/3,pc=rnd(15):line(x,y)-(x1,y1),15:line-(x2,y2),15:line-(x,y),15:paint(px,py),pc,15:next r:sleep 500:loop until len(inkey())