|
Here's a small graphics program that used to freak out my friends:
10 cls (Clears screen)
20 s=1 (Sets a value of 1 to variable S)
30 for x=0 to 127 (count to 127, starting at 0)
40 for y = 0 to 47 step s (counts to 47, starting at 0, in steps of the value of S)
50 set (x,y) (Turn on the pixel at that location)
60 let s=s+.1 (add .1 to the value of S)
70 next y (Increment y)
80 next x (increment x)
90 goto 90 (endless loop)
This simple program would produce a really cool (almost 3D) image on the full screen of the TRS-80. It would take about 15 seconds to draw the whole screen. The TRS-80 had only 1 bit graphics (on, off, no color and no shades of grey), and of course only 128 pixels across and 48 pixels down.
I. loved. it.
|