/
newgate.bs2
108 lines (94 loc) · 1.49 KB
/
newgate.bs2
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
' *Stamp Configurations!*
' {$PBASIC 2.5}
' {$STAMP BS2pe}
' {$PORT COM3}
'Variables!
i VAR Nib
a VAR Word(12)
r VAR Byte
'Loop Activations!
a(0) = 1465 ^ 1386
a(1) = 1577 ^ 1386
a(2) = 447 ^ 1386
a(3) = 2691 ^ 1386
a(4) = 3384 ^ 1386
a(5) = 2858 ^ 1386
a(6) = 3919 ^ 1386
a(7) = 2771 ^ 1386
a(8) = 3697 ^ 1386
a(9) = 631 ^ 1386
a(10) = 2328 ^ 1386
a(11) = 1642 ^ 1386
'Loop Repetitions!
PUT 0, 5
PUT 1, 21
PUT 2, 11
PUT 3, 49
PUT 4, 2
PUT 5, 42
PUT 6, 39
PUT 7, 24
PUT 8, 13
PUT 9, 44
PUT 10, 32
PUT 11, 33
PUT 12, 0
'Directions!
DIRS = $FFFF
OUTS = 0
'Start Section!: Total Activations 0
'Loop Section!: Total Activations 315
'Activations Remaining 400
'Loop Section!
GET 12,r
DO WHILE r < 1
r = r + 1
PUT 12, r
FOR i = 0 TO 11
GET i, r
DO WHILE r > 0
OUTS = $FFFF
PULSOUT 12, 300
OUTS = a(i)
PULSOUT 12, 400
OUTS = 0
PAUSE 20
r = r - 1
LOOP
NEXT
GET 12, r
LOOP
'Remaining Loop Genes!: Total Activations 85
FOR r = 1 TO 5
OUTS = $FFFF
PULSOUT 12, 300
OUTS = a(0)
PULSOUT 12, 400
OUTS = 0
PAUSE 20
NEXT
FOR r = 1 TO 21
OUTS = $FFFF
PULSOUT 12, 300
OUTS = a(1)
PULSOUT 12, 400
OUTS = 0
PAUSE 20
NEXT
FOR r = 1 TO 11
OUTS = $FFFF
PULSOUT 12, 300
OUTS = a(2)
PULSOUT 12, 400
OUTS = 0
PAUSE 20
NEXT
FOR r = 1 TO 48
OUTS = $FFFF
PULSOUT 12, 300
OUTS = a(3)
PULSOUT 12, 400
OUTS = 0
PAUSE 20
NEXT
END