projects
/
qbasicapps.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
980806a11d169c618882d1e67a9f40dd3be2c462
[qbasicapps.git]
/
graphics
/
presentations
/
KHK Intellektika 2004 demo
/
KHKDEMO6.BAS
1
SCREEN 13
\r
2
\r
3
LOCATE 1, 1
\r
4
PRINT "Tulege meile
\93
ppima!!"
\r
5
\r
6
FOR x = 0 TO 160
\r
7
FOR y = 0 TO 32
\r
8
c = POINT(x, y)
\r
9
x1 = x * 2
\r
10
y1 = y * 2 + 90
\r
11
LINE (x1, y1)-(x1 + 1, y1 + 1), c, BF
\r
12
NEXT y
\r
13
NEXT x
\r
14
\r
15
LOCATE 1, 1
\r
16
PRINT " "
\r
17
\r
18
FOR x = 0 TO 320
\r
19
CIRCLE (x, 130), 10, 9
\r
20
SOUND 0, .1
\r
21
NEXT x
\r
22
\r
23
FOR y = 0 TO 70
\r
24
SOUND 0, .1
\r
25
LINE (160 - 70 + y, y)-(160 + 70 - y, y), 9
\r
26
NEXT y
\r
27
\r
28
FOR a = 1 TO 50
\r
29
SOUND 0, 1
\r
30
NEXT a
\r
31
\r
32
CHAIN "khkdemo.bas"
\r
33
\r