Dim s%(2, 2), ainx%(2, 2), ainy%(2, 2), n%(2, 2), t%(512), l%(15) 이건 앎 배열명 정수 자료 선언하는 거...
Dim binx%(2, 2), biny%(2, 2), o%(2, 2)
Dim f%(2, 2)
\'colour map
Dim r%(15), g%(15), b%(15), c&(15)
\' red 0-63
Data 0, 48, 63, 63, 63, 63, 40, 0, 0, 0, 0, 0, 48, 63, 63, 63 : 이 데이터가 어디로 읽혀지는지고 저장되어 활용되는지는 모르겠음
\' green 0-63
Data 0, 16, 24, 0, 0, 0, 0, 0, 40, 63, 63, 63, 63, 63, 63, 63
\' blue 0-63
Data 0, 0, 0, 0, 36, 63, 63, 63, 63, 63, 40, 0, 0, 0, 32, 63
Screen 12 \' 640x490, 256k colours in 16 attributes  :         그래픽 모드 전환 알고있음.
For x = 0 To 15: READ r%(x): Next x                              x값이 0에서 15까지 증가할때 r값을 읽으라는 의미인가? 확실히 모르겠음
For x = 0 To 15: READ g%(x): Next x
For x = 0 To 15: READ b%(x): Next x
For x = 0 To 15: c&(x) = (r%(x) + 256 * g%(x) + 65536 * b%(x)): Next x
PALETTE USING c&\' max 4144959
VIEW (170, 0)-(639, 479)
\' rule to fn translation lookup table
Data 15, 7, 9, 3, 11, 4, 1, 8, 14, 2, 6, 10, 5, 12, 13, 16
For x = 0 To 15: READ l%(x): Next x
begin:
q = 0: ox% = -1: oy% = -1: dl! = 50000: cy% = 0: t% = 0: at% = 0
CLS 0: Color 13
Print "Asychronous Maps V1.0"
Print: Color 15
Print "Function   1=XOR ": Print "  2=EQV    3=NA": Print "  4=NB     5=A"
Print "  6=B      7=NOR": Print "  8=NAND   9=NIF": Print " 10=IMP   11=NIMP": Print " 12=IF    13=OR"
PRINT " 14=AND   -n (<=N)": INPUT " 0=Random (default) "; f%: IF f% < -14 OR f% > 14 THEN f% = 0
Print:  \' PRINT "Display 0=Map (default)": PRINT "1=State or 2=Gate ": INPUT "3=Probability "; d%
If d% < 0 Or d% > 3 Then d% = 0
PRINT : INPUT "Gate Update Probability: 0.001 to 1, -1 for Random (1 of 9, the default) "; pb: IF pb < .001 OR pb > 1 THEN pb = -1
Print
gorun: