21 lines
388 B
Plaintext
21 lines
388 B
Plaintext
proc main()
|
|
card i ;"cardinal"=unsigned int
|
|
graphics(7+16);set graphics 23
|
|
setcolor(0,4,8) ;color 1 (pink)
|
|
setcolor(1,7,4) ;color 2 (blue)
|
|
setcolor(2,0,14) ;color 3 (white)
|
|
setcolor(100,100,100) ;background
|
|
color=1
|
|
plot(10,10)
|
|
drawto(149,10)
|
|
color=2
|
|
drawto(10,85)
|
|
color=3
|
|
drawto(149,85)
|
|
for i=1 to 60000
|
|
do
|
|
;do nothing
|
|
od
|
|
graphics(0)
|
|
return
|