'BASIC converted from Logicator for PICAXE flowsheet:
'N:\Electronics\Initial Ideas Flow Chart.plf
'Converted on 8/10/2014 at 13:10:12
;Symbols
{
symbol varA = b0
symbol varB = b1
symbol varC = b2
symbol varD = b3
symbol varE = b4
symbol varF = b5
symbol varG = b6
symbol varH = b7
symbol varI = b14
symbol varJ = b15
symbol varK = b16
symbol varL = b17
symbol varM = b18
symbol varN = b19
symbol varO = b20
symbol varP = b21
symbol varQ = b22
symbol varR = b23
symbol varS = b24
symbol varT = b25
symbol timer = time
}
 
let dirsB = %11111111
 
main:
label_7: random w6 'store random number in w6 (b13:b12)
let varA = b13 'Random command
if pinC.2 = 1 then label_97 'Decision command
goto label_7
label_97:
if varA <= 28 then label_87 'Compare command
if varA <= 57 then label_88 'Compare command
if varA <= 85 then label_89 'Compare command
if varA <= 113 then label_90 'Compare command
if varA <= 142 then label_91 'Compare command
if varA <= 170 then label_92 'Compare command
if varA <= 198 then label_93 'Compare command
if varA <= 227 then label_94 'Compare command
let varA = 9 'Expression command
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,192,b8,b9,b10," ")
gosub prc_NUMBER1 'Do Procedure
bintoascii varB,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
bintoascii varB,b11,b12,b13
serout 7,N2400_4,(254,192,b8,b9,b10,",",b11,b12,b13," ")
gosub prc_NUMBER2 'Do Procedure
loop0:
goto loop0
prc_NUMBER2:
random w6 'store random number in w6 (b13:b12)
let varC = b13 'Random command
if varC <= 28 then label_135 'Compare command
if varC <= 57 then label_136 'Compare command
if varC <= 85 then label_137 'Compare command
if varC <= 113 then label_138 'Compare command
if varC <= 142 then label_139 'Compare command
if varC <= 170 then label_140 'Compare command
if varC <= 198 then label_141 'Compare command
if varC <= 227 then label_142 'Compare command
let varC = 9 'Expression command
label_144: return 'Return
label_142:
let varC = 8 'Expression command
goto label_144
label_141:
let varC = 7 'Expression command
goto label_144
label_140:
let varC = 6 'Expression command
goto label_144
label_139:
let varC = 5 'Expression command
goto label_144
label_138:
let varC = 4 'Expression command
goto label_144
label_137:
let varC = 3 'Expression command
goto label_144
label_136:
let varC = 2 'Expression command
goto label_144
label_135:
let varC = 1 'Expression command
goto label_144
prc_NUMBER1:
random w6 'store random number in w6 (b13:b12)
let varB = b13 'Random command
if varB <= 28 then label_58 'Compare command
if varB <= 57 then label_59 'Compare command
if varB <= 85 then label_60 'Compare command
if varB <= 113 then label_61 'Compare command
if varB <= 142 then label_62 'Compare command
if varB <= 170 then label_63 'Compare command
if varB <= 198 then label_64 'Compare command
if varB <= 227 then label_65 'Compare command
let varB = 9 'Expression command
label_106: return 'Return
label_65:
let varB = 8 'Expression command
goto label_106
label_64:
let varB = 7 'Expression command
goto label_106
label_63:
let varB = 6 'Expression command
goto label_106
label_62:
let varB = 5 'Expression command
goto label_106
label_61:
let varB = 4 'Expression command
goto label_106
label_60:
let varB = 3 'Expression command
goto label_106
label_59:
let varB = 2 'Expression command
goto label_106
label_58:
let varB = 1 'Expression command
goto label_106
label_94:
let varA = 8 'Expression command
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,192,b8,b9,b10," ")
gosub prc_NUMBER1 'Do Procedure
bintoascii varB,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
bintoascii varB,b11,b12,b13
serout 7,N2400_4,(254,192,b8,b9,b10,",",b11,b12,b13," ")
gosub prc_NUMBER2 'Do Procedure
loop1:
goto loop1
label_93:
let varA = 7 'Expression command
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,192,b8,b9,b10," ")
gosub prc_NUMBER1 'Do Procedure
bintoascii varB,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
bintoascii varB,b11,b12,b13
serout 7,N2400_4,(254,192,b8,b9,b10,",",b11,b12,b13," ")
gosub prc_NUMBER2 'Do Procedure
loop2:
goto loop2
label_92:
let varA = 6 'Expression command
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,192,b8,b9,b10," ")
gosub prc_NUMBER1 'Do Procedure
bintoascii varB,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
bintoascii varB,b11,b12,b13
serout 7,N2400_4,(254,192,b8,b9,b10,",",b11,b12,b13," ")
gosub prc_NUMBER2 'Do Procedure
loop3:
goto loop3
label_91:
let varA = 5 'Expression command
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,192,b8,b9,b10," ")
gosub prc_NUMBER1 'Do Procedure
bintoascii varB,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
bintoascii varB,b11,b12,b13
serout 7,N2400_4,(254,192,b8,b9,b10,",",b11,b12,b13," ")
gosub prc_NUMBER2 'Do Procedure
loop4:
goto loop4
label_90:
let varA = 4 'Expression command
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,192,b8,b9,b10," ")
gosub prc_NUMBER1 'Do Procedure
bintoascii varB,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
bintoascii varB,b11,b12,b13
serout 7,N2400_4,(254,192,b8,b9,b10,",",b11,b12,b13," ")
gosub prc_NUMBER2 'Do Procedure
loop5:
goto loop5
label_89:
let varA = 3 'Expression command
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,192,b8,b9,b10," ")
gosub prc_NUMBER1 'Do Procedure
bintoascii varB,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
bintoascii varB,b11,b12,b13
serout 7,N2400_4,(254,192,b8,b9,b10,",",b11,b12,b13," ")
gosub prc_NUMBER2 'Do Procedure
loop6:
goto loop6
label_88:
let varA = 2 'Expression command
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,192,b8,b9,b10," ")
gosub prc_NUMBER1 'Do Procedure
bintoascii varB,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
bintoascii varB,b11,b12,b13
serout 7,N2400_4,(254,192,b8,b9,b10,",",b11,b12,b13," ")
gosub prc_NUMBER2 'Do Procedure
loop7:
goto loop7
label_87:
let varA = 1 'Expression command
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
serout 7,N2400_4,(254,192,b8,b9,b10," ")
gosub prc_NUMBER1 'Do Procedure
bintoascii varB,b8,b9,b10
serout 7,N2400_4,(254,128,b8,b9,b10," ")
bintoascii varA,b8,b9,b10
bintoascii varB,b11,b12,b13
serout 7,N2400_4,(254,192,b8,b9,b10,",",b11,b12,b13," ")
gosub prc_NUMBER2 'Do Procedure
loop8:
goto loop8
 
#no_data 'reduce download time