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
|