demo.bas

2 CURSOR 0
5 COLOR 6,15
7 RSEED(100)
10 CLS
15 FOR A=1 TO 3
16 FOR B=0 TO 16
18 COLOR B,15
20 AT 35,8
30 PRINT "GREETINGS,"
40 AT 35,10
50 PRINT "PROGRAMS!"
55 DELAY 100
60 NEXT B
70 NEXT A
80 CLS
90 DELAY 1000
100 REM SCREEN1
105 COLOR 6,15
110 CLS
120 FOR A= 70 TO 0 STEP -1
140 AT A, 3
150 PRINT "THIS IS "
160 DELAY 10
170 NEXT A
200 FOR A=67 TO 0 STEP -1
230 AT A,4
240 COLOR 9,15
250 PRINT "A NEW VERSION "
260 NEXT A
300 FOR A=68 TO 0 STEP -1
320 COLOR 4,15
325 AT A,5
330 PRINT "OF TINYBASIC "
350 NEXT A
400 FOR A=69 TO 0 STEP -1
420 COLOR 10,15
430 AT A,6
440 PRINT "ON STEROIDS "
450 NEXT A
460 DELAY 1000
500 CLS
600 COLOR 1,15
610 AT 30,10
615 DELAY 1000
620 PRINT "How about graphics ?"
630 COLOR 3,14
640 AT 29,11
645 DELAY 1000
650 PRINT "and text TOGETHER ..."
660 DELAY 1000
700 COLOR 6,15
710 FOR A=1 TO 30000
720 POINT RND(16), RND(600), RND(200)
730 NEXT A
800 DELAY 1000
805 COLOR 15,4
810 AT 26, 13
820 PRINT "30.000 points - FAST, ISNT ?"
830 DELAY 2000
900 COLOR 6,15
910 CLS
1010 AT 36,12
1020 PRINT "Lines"
1025 DELAY 2000
1030 X = RND(640) :  Y = RND(199)
1040 FOR A= 1 TO 200
1043 AT 0,23 : PRINT "   "
1045 AT 0,23: PRINT 200 -A
1050 I = RND(640) : J = RND(199)
1060 LINE RND(16), X, Y, I, J, 1
1070 X = I : Y = J
1075 DELAY 50
1080 NEXT A
1100 DELAY 2000
1105 CLS
1110 COLOR 6,15
1120 AT 35,11
1130 PRINT "Rectangles"
1140 DELAY 2000
1150 FOR A = 1 TO 200
1153 AT 0,23: PRINT "   "
1155 AT 0,23 PRINT 200 -A
1160 RECTANGLE RND(16), RND(16), RND(640), RND (199), RND(630), RND(199), 1
1163 AT 35,11 : PRINT "Rectangles"
1165 DELAY 50
1170 NEXT A
1200 DELAY 2000
1210 COLOR 6,15
1220 CLS
1300 REM ELIPSES
1310 FOR A= 1 TO 200
1320 ELIPSE RND(16), 320, 100, A*2, A, 1
1325 DELAY 50
1330 NEXT A
1340 DELAY 2000
1350 FOR C = 0 TO 15
1360 FOR A= 200 TO 1 STEP -1
1370 ELIPSE C, 320, 100, A*2, A, 1
1380 NEXT A
1390 NEXT C