← Back to branch summary

~amaurycarvalho/msxbas2asm/trunk

« back to all changes in this revision

Viewing changes to test/test20.bas

  • Committer: Amaury Carvalho
  • Date: 2020-06-12 13:08:59 UTC
  • Revision ID: amauryspires@gmail.com-20200612130859-3qm5vl1jiqr2brok
Commit on 12/06/2020 10:08:59  -03 by amaury

Show diffs side-by-side

added added

removed removed

Lines of Context:
test/test20.bas
1
 
10 T = TIME
2
 
20 SCREEN 5
3
 
30 COLOR 6
4
 
40 LOCATE 70, 70
5
 
50 PRINT "GRAPHICAL TEST"
6
 
60 FOR A=0 TO 1000
7
 
70 X = RND(1) * 1000 MOD 256
8
 
80 Y = RND(1) * 1000 MOD 192
9
 
90 C = RND(1) * 1000 MOD 16
10
 
100 PSET (X, Y), C
11
 
110 NEXT A
12
 
120 SCREEN 0
13
 
130 COLOR 15
14
 
140 T = TIME - T
15
 
150 PRINT T
16