05 n = rnd (0-timer)
10 width = 700
20 depth = 502
30 left = screen width / 2 -(width / 2)
40 top = screen height / 2 - (depth / 2)
50 right = screen width / 2 + (width / 2)
60 bottom = screen height / 2 + (depth / 2)
70 resize console left, top, right, bottom
80 set console title to "Abstract By Anthony C. Russo : Press 'Q' to Quit"
90 virtue = init screen (0 ,0 ,width ,depth)
100 cls
200 dim pointw (15)
210 dim pointd (15)
220 pointw (1) = 350
230 pointd (1) = 250
240 pointw (2) = 351
250 pointd (2) = 250
260 pointw (3) = 350
270 pointd (3) = 251
280 pointw (4) = 351
290 pointd (4) = 251
300 pointw (5) = 350
310 pointd (5) = 250
320 pointw (6) = 351
330 pointd (6) = 250
340 pointw (7) = 350
350 pointd (7) = 251
360 pointw (8) = 351
370 pointd (8) = 251
380 pointw (9) = 350
390 pointd (9) = 250
400 pointw (10) = 351
410 pointd (10) = 250
420 pointw (11) = 350
425 pointd (11) = 251
430 pointw (12) = 351
440 pointd (12) = 251
500 for q = 1 to 100000
501 d = rnd * 65500
502 r = rnd * 65500
503 s = rnd * 65500
504 m = rnd * 100
505 if m <= 60 then goto 520
509 forecolor d, r, s
510 c = int ( rnd * 12 ) + 1
520 if c=1 and pointw(1) > 1 then goto 1000
530 if c=2 and pointd(1) > 1 then goto 2000
540 if c=3 and pointd(1) < 250 then goto 3000
550 if c=4 and pointw(1) < 350 then goto 4000
551 if c=5 and pointw(5) > 1 then goto 5000
552 if c=6 and pointd(5) > 1 then goto 6000
553 if c=7 and pointd(5) < 250 then goto 7000
554 if c=8 and pointw(5) < 350 then goto 8000
555 if c=9 and pointw(9) > 1 then goto 9000
556 if c=10 and pointd(9) > 1 then goto 10000
557 if c=11 and pointd(9) < 250 then goto 11000
558 if c=12 and pointw(9) < 350 then goto 12000
580 keymap scan
581 if keymap key ("q") then cls: end
600 for x= 1 to 12
610 plot pointw (x), pointd (x)
620 next x
630 next q
640 cls
650 goto 500
1000 rem movement 1
1100 pointw (1) = pointw (1) - 1
1110 pointw (2) = pointw (2) + 1
1120 pointw (3) = pointw (3) - 1
1130 pointw (4) = pointw (4) + 1
1140 goto 600
2000 rem movement 2
2110 pointd (1) = pointd (1) - 1
2120 pointd (2) = pointd (2) - 1
2130 pointd (3) = pointd (3) + 1
2140 pointd (4) = pointd (4) + 1
2150 goto 600
3000 rem movement 3
3100 pointd (1) = pointd (1) + 1
3110 pointd (2) = pointd (2) + 1
3120 pointd (3) = pointd (3) - 1
3130 pointd (4) = pointd (4) - 1
3140 goto 600
4000 rem movement 4
4100 pointw (1) = pointw (1) + 1
4110 pointw (2) = pointw (2) - 1
4120 pointw (3) = pointw (3) + 1
4130 pointw (4) = pointw (4) - 1
4140 goto 600
5000 rem movement 1
5100 pointw (5) = pointw (5) - 1
5110 pointw (6) = pointw (6) + 1
5120 pointw (7) = pointw (7) - 1
5130 pointw (8) = pointw (8) + 1
5140 goto 600
6000 rem movement 2
6110 pointd (5) = pointd (5) - 1
6120 pointd (6) = pointd (6) - 1
6130 pointd (7) = pointd (7) + 1
6140 pointd (8) = pointd (8) + 1
6150 goto 600
7000 rem movement 3
7100 pointd (5) = pointd (5) + 1
7110 pointd (6) = pointd (6) + 1
7120 pointd (7) = pointd (7) - 1
7130 pointd (8) = pointd (8) - 1
7140 goto 600
8000 rem movement 4
8100 pointw (5) = pointw (5) + 1
8110 pointw (6) = pointw (6) - 1
8120 pointw (7) = pointw (7) + 1
8130 pointw (8) = pointw (8) - 1
8140 goto 600
9000 rem movement 1
9100 pointw (9) = pointw (9) - 1
9110 pointw (10) = pointw (10) + 1
9120 pointw (11) = pointw (11) - 1
9130 pointw (12) = pointw (12) + 1
9140 goto 600
10000 rem movement 2
10110 pointd (9) = pointd (9) - 1
10120 pointd (10) = pointd (10) - 1
10130 pointd (11) = pointd (11) + 1
10140 pointd (12) = pointd (12) + 1
10150 goto 600
11000 rem movement 3
11100 pointd (9) = pointd (9) + 1
11110 pointd (10) = pointd (10) + 1
11120 pointd (11) = pointd (11) - 1
11130 pointd (12) = pointd (12) - 1
11140 goto 600
12000 rem movement 4
12100 pointw (9) = pointw (9) + 1
12110 pointw (10) = pointw (10) - 1
12120 pointw (11) = pointw (11) + 1
12130 pointw (12) = pointw (12) - 1
12140 goto 600