0 REM Random Pixels Benchmark
1 LET m = 0
2 LET n = 0
3 LET a = 0
4 LET b = 0
5 RESTORE
10 RANDOMIZE TIMER
30 CLS
40 PRINT "Press Enter to continue.";
50 SLEEP 99
55 CLS
56 PRINT "Test 1 Running, Please Wait."
60 a = TIMER
FOR t = 1 TO 9458936
NEXT t
61 j = TIMER
62 CLS
63 PRINT "Test 2 Running, Please Wait."
LET qw2 = 1
65 a2 = TIMER
66 FOR qw = 1 TO 4644034
  LET qw2 = qw2 * qw / 1000
67 NEXT qw
68 j2 = TIMER
69 SCREEN 12
a3 = TIMER
70 FOR w = 1 TO 745712
  LET x = INT(RND * 639) + 1
  LET y = INT(RND * 479) + 1
  LET c = INT(RND * 15) + 1
  PSET (x, y), c
  IF c = 1 THEN GOTO 75 ELSE GOTO 80
75 IF x = 1 THEN CLS
80 NEXT w
90 j3 = TIMER
100 SCREEN 13
110 a4 = TIMER
115 FOR defsg = 1 TO 2
120 DEF SEG = &HA000
130 FOR c% = 1 TO 255
140 FOR a% = 0 TO 320
150 FOR b% = 0 TO 200
160 POKE a% + (b% * 320&), c%
170 NEXT b%
180 NEXT a%
190 NEXT c%
210 DEF SEG
220 NEXT defsg
320 j4 = TIMER
330 SCREEN 12
a5 = TIMER
331 FOR po = 1 TO 920
  LET pg = po
  LET po2 = po
  IF po >= 460 THEN LET pg = 920 - po
  IF po >= 620 THEN LET po2 = 1240 - po
  LINE (5 + po2, 5 + pg)-(5 + po2, 15 + pg), 6
  LINE (5 + po2, 5 + pg)-(15 + po2, 5 + pg), 6
  LINE (15 + po2, 5 + pg)-(15 + po2, 15 + pg), 6
  LINE (5 + po2, 15 + pg)-(15 + po2, 15 + pg), 6
  PAINT (10 + po2, 10 + pg), 6, 6
  LET po3 = po
  LET pg2 = po
  IF po >= 500 THEN LET po3 = 1000 - po
  IF po >= 440 THEN LET pg2 = 880 - po
  LINE (105 + po3, 5 + pg2)-(105 + po3, 35 + pg2), 14
  LINE (105 + po3, 5 + pg2)-(135 + po3, 5 + pg2), 14
  LINE (135 + po3, 5 + pg2)-(135 + po3, 35 + pg2), 14
  LINE (105 + po3, 35 + pg2)-(135 + po3, 35 + pg2), 14
  PAINT (110 + po3, 10 + pg2), 14, 14
  CLS
332 NEXT po
333 j5 = TIMER
340 PRINT TAB(22); "Benchmark Results (Higher = Better)": PRINT
341 LET sc1 = INT(100000 * (1 / ((j - a) + (b - k))))
342 LET sc2 = INT(100000 * (1 / ((j2 - a2) + (s - i))))
343 LET sc3 = INT(100000 * (1 / ((j3 - a3) + (b - k))))
344 LET sc4 = INT(101906 * (1 / ((j4 - a4) + (s - i))))
345 LET sc5 = INT(55450 * (1 / ((j5 - a5) + (b - k))))
350 PRINT "Test 1:"; sc1
351 PRINT "Test 2:"; sc2
352 PRINT "Test 3:"; sc3
353 PRINT "Test 4:"; sc4
354 PRINT "Test 5:"; sc5
370 COLOR 14
371 PRINT "Total Score:"; sc1 + sc2 + sc3 + sc4 + sc5
372 COLOR 7
380 END