1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
|
open window 640,512
zc=12
hm=zc+10
draw=1
setrgb 0, 0, 0, 255
setrgb 3, 255, 0, 0
for xc=-100 to 190 step 10
yc=100
if(200 -xc) > 11 then
zc=200-(xc/2)
hm=zc-10
endif
setdispbuf draw
draw = 1 - draw
setdrawbuf draw
clear window
setrgb 1,110,0,50
setrgb 2,110,0,50
gtriangle 450-xc,50 to 450-xc+200,50 to 450-xc,350
setrgb 1, 255,255,255
text 50,75,"What is the capital of China?"
setrgb 1,30,30,30
setrgb 1,0,0,255
line xc,yc to xc+zc,yc+zc
line xc,yc+zc to xc+zc,yc
setrgb 1,255,255,255
text xc+zc+10,yc+zc,"Pjon-Jang"
yc=yc+hm
setrgb 1,255,0,0
circle xc+(zc/2),yc+(zc/2),(zc/2)+1
setrgb 1,255,255,255
text xc+zc+10,yc+zc,"Peking"
yc=yc+hm
setrgb 1,0,255,0
triangle xc+(zc/2),yc to xc,yc+zc to xc+zc,yc+zc
setrgb 1, 255,255,255
text xc+zc+10,yc+zc,"Bejing"
yc=yc+hm
setrgb 1,255,100,100
rectangle xc,yc to xc+zc,yc+zc
setrgb 1,255,255,255
text xc+zc+10,yc+zc,"Hong-Kong"
pause 0.02
next xc
inkey$
|