Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199201.adf » January92 » !AWJan92/Goodies/ArcAut/Automatons/Wire
!AWJan92/Goodies/ArcAut/Automatons/Wire
This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.
Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.
| Tape/disk: | Home » Recent acquisitions » Acorn ADFS disks » adfs_ArchimedesWorld_199201.adf » January92 |
| Filename: | !AWJan92/Goodies/ArcAut/Automatons/Wire |
| Read OK: | ✔ |
| File size: | 0AC8 bytes |
| Load address: | 0000 |
| Exec address: | 0000 |
File contents
AUTOMATON*
Wire_World
This is a four state Moore neighbourhood automaton. It simulates the flow
of electrons around a circuit. Although it does not obey similar laws (such
as Kirchoff's) to real electrical current, memorys, clocks & logic gates
can all be built from basic components, thus a computer can be constructed
within the 'wire world' environment. The four states are background, wire,
electron head & electron tail. Background is inert; electron heads become
tails & tails become wire; wire will become electron head if it has one or
two electron head neighbours, otherwise it remains wire. This results in
electron head/tail pairs travelling in the direction of the head, along
stable wires, on an inert background. When executed, you are allowed to
design your own circuit, or load one in (press 'L'); disc space allowing,
two 128x128 screens are provided, called 'trans' & 'wheat'. Clicking select
draws wire from the current point to the pointer; adjust moves the current
point to the pointer & menu erases. The cursors place an electron at the
current point, while the cursors with right Ctrl place a 'diode' into the
circuit. When complete, press return to run the automaton.
INITIALISATION*
10DEF PROCdo
20*SetEval wrap on
30*SetEval eh 22
40*SetEval et 214
50*SetEval back 0
60*SetEval wire 137
70ENDPROC
SCREEN*
10DEF PROCdo
20LOCAL x%,y%,z%,c%,u%,v%,f$
30DIM buf% 256
40SYS "OS_ReadVarVal","wire",buf%,256:wire=!buf%
50SYS "OS_ReadVarVal","back",buf%,256:back=!buf%
60SYS "OS_ReadVarVal","eh",buf%,256:eh=!buf%
70SYS "OS_ReadVarVal","et",buf%,256:et=!buf%
80SYS "OS_ReadVarVal","sux",buf%,256:sux%=!buf%
90SYS "OS_ReadVarVal","suy",buf%,256:suy%=!buf%
100c%=FNacol(wire)
110PROCmouseon
120MOUSE TO 0,0:MOVE 0,0
130REPEAT MOUSE x%,y%,z%
140IF INKEY-87 PROCload:MOVE x%,y%
150CASE z% OF
160WHEN 4:c%=FNacol(wire):GCOL c% AND 63 TINT c%:DRAW x%,y%
170WHEN 2:c%=FNacol(back):GCOL c% AND 63 TINT c%:CIRCLE FILL x%,y%,12
180WHEN 1:MOVE x%,y%
190ENDCASE
200PROCcursors(u%,v%)
210IF u% OR v% THEN
220IF INKEY-8 THEN
230c%=FNacol(wire):GCOL c% AND 63 TINT c%
240DRAW BY -v%,u%:DRAW BY u%,v%:DRAW BY u%+v%,v%-u%
250DRAW BY v%-u%,-v%-u%:DRAW BY -u%,-v%:MOVE BY 2*u%-v%,2*v%+u%
260ELSE
270c%=FNacol(et):GCOL c% AND 63 TINT c%
280DRAW BY u%,v%
290c%=FNacol(eh):GCOL c% AND 63 TINT c%
300PLOT 9,u%,v%
310ENDIF
320REPEAT PROCcursors(u%,v%):UNTIL (u% OR v%)=0
330ENDIF
340UNTIL INKEY-74
350MOUSE OFF
360ENDPROC
CODE*
( CELL <back> = IF (<back> ==)
CELL <eh> = IF ( <et> ==)
CELL <et> = IF (<wire> ==)
READ_NEIG
<eh> SCOUNT_NEIG DUP 1 = IF ( <eh> ==)
2 = IF ( <eh> ==)
<wire> == )
END* 00000000 41 55 54 4f 4d 41 54 4f 4e 2a 0a 0a 20 20 57 69 |AUTOMATON*.. Wi| 00000010 72 65 5f 57 6f 72 6c 64 0a 0a 20 20 54 68 69 73 |re_World.. This| 00000020 20 69 73 20 61 20 66 6f 75 72 20 73 74 61 74 65 | is a four state| 00000030 20 4d 6f 6f 72 65 20 6e 65 69 67 68 62 6f 75 72 | Moore neighbour| 00000040 68 6f 6f 64 20 61 75 74 6f 6d 61 74 6f 6e 2e 20 |hood automaton. | 00000050 49 74 20 73 69 6d 75 6c 61 74 65 73 20 74 68 65 |It simulates the| 00000060 20 66 6c 6f 77 0a 20 20 6f 66 20 65 6c 65 63 74 | flow. of elect| 00000070 72 6f 6e 73 20 61 72 6f 75 6e 64 20 61 20 63 69 |rons around a ci| 00000080 72 63 75 69 74 2e 20 41 6c 74 68 6f 75 67 68 20 |rcuit. Although | 00000090 69 74 20 64 6f 65 73 20 6e 6f 74 20 6f 62 65 79 |it does not obey| 000000a0 20 73 69 6d 69 6c 61 72 20 6c 61 77 73 20 28 73 | similar laws (s| 000000b0 75 63 68 0a 20 20 61 73 20 4b 69 72 63 68 6f 66 |uch. as Kirchof| 000000c0 66 27 73 29 20 74 6f 20 72 65 61 6c 20 65 6c 65 |f's) to real ele| 000000d0 63 74 72 69 63 61 6c 20 63 75 72 72 65 6e 74 2c |ctrical current,| 000000e0 20 6d 65 6d 6f 72 79 73 2c 20 63 6c 6f 63 6b 73 | memorys, clocks| 000000f0 20 26 20 6c 6f 67 69 63 20 67 61 74 65 73 0a 20 | & logic gates. | 00000100 20 63 61 6e 20 61 6c 6c 20 62 65 20 62 75 69 6c | can all be buil| 00000110 74 20 66 72 6f 6d 20 62 61 73 69 63 20 63 6f 6d |t from basic com| 00000120 70 6f 6e 65 6e 74 73 2c 20 74 68 75 73 20 61 20 |ponents, thus a | 00000130 63 6f 6d 70 75 74 65 72 20 63 61 6e 20 62 65 20 |computer can be | 00000140 63 6f 6e 73 74 72 75 63 74 65 64 0a 20 20 77 69 |constructed. wi| 00000150 74 68 69 6e 20 74 68 65 20 27 77 69 72 65 20 77 |thin the 'wire w| 00000160 6f 72 6c 64 27 20 65 6e 76 69 72 6f 6e 6d 65 6e |orld' environmen| 00000170 74 2e 20 54 68 65 20 66 6f 75 72 20 73 74 61 74 |t. The four stat| 00000180 65 73 20 61 72 65 20 62 61 63 6b 67 72 6f 75 6e |es are backgroun| 00000190 64 2c 20 77 69 72 65 2c 0a 20 20 65 6c 65 63 74 |d, wire,. elect| 000001a0 72 6f 6e 20 68 65 61 64 20 26 20 65 6c 65 63 74 |ron head & elect| 000001b0 72 6f 6e 20 74 61 69 6c 2e 20 42 61 63 6b 67 72 |ron tail. Backgr| 000001c0 6f 75 6e 64 20 69 73 20 69 6e 65 72 74 3b 20 65 |ound is inert; e| 000001d0 6c 65 63 74 72 6f 6e 20 68 65 61 64 73 20 62 65 |lectron heads be| 000001e0 63 6f 6d 65 0a 20 20 74 61 69 6c 73 20 26 20 74 |come. tails & t| 000001f0 61 69 6c 73 20 62 65 63 6f 6d 65 20 77 69 72 65 |ails become wire| 00000200 3b 20 77 69 72 65 20 77 69 6c 6c 20 62 65 63 6f |; wire will beco| 00000210 6d 65 20 65 6c 65 63 74 72 6f 6e 20 68 65 61 64 |me electron head| 00000220 20 69 66 20 69 74 20 68 61 73 20 6f 6e 65 20 6f | if it has one o| 00000230 72 0a 20 20 74 77 6f 20 65 6c 65 63 74 72 6f 6e |r. two electron| 00000240 20 68 65 61 64 20 6e 65 69 67 68 62 6f 75 72 73 | head neighbours| 00000250 2c 20 6f 74 68 65 72 77 69 73 65 20 69 74 20 72 |, otherwise it r| 00000260 65 6d 61 69 6e 73 20 77 69 72 65 2e 20 54 68 69 |emains wire. Thi| 00000270 73 20 72 65 73 75 6c 74 73 20 69 6e 0a 20 20 65 |s results in. e| 00000280 6c 65 63 74 72 6f 6e 20 68 65 61 64 2f 74 61 69 |lectron head/tai| 00000290 6c 20 70 61 69 72 73 20 74 72 61 76 65 6c 6c 69 |l pairs travelli| 000002a0 6e 67 20 69 6e 20 74 68 65 20 64 69 72 65 63 74 |ng in the direct| 000002b0 69 6f 6e 20 6f 66 20 74 68 65 20 68 65 61 64 2c |ion of the head,| 000002c0 20 61 6c 6f 6e 67 0a 20 20 73 74 61 62 6c 65 20 | along. stable | 000002d0 77 69 72 65 73 2c 20 6f 6e 20 61 6e 20 69 6e 65 |wires, on an ine| 000002e0 72 74 20 62 61 63 6b 67 72 6f 75 6e 64 2e 20 57 |rt background. W| 000002f0 68 65 6e 20 65 78 65 63 75 74 65 64 2c 20 79 6f |hen executed, yo| 00000300 75 20 61 72 65 20 61 6c 6c 6f 77 65 64 20 74 6f |u are allowed to| 00000310 0a 20 20 64 65 73 69 67 6e 20 79 6f 75 72 20 6f |. design your o| 00000320 77 6e 20 63 69 72 63 75 69 74 2c 20 6f 72 20 6c |wn circuit, or l| 00000330 6f 61 64 20 6f 6e 65 20 69 6e 20 28 70 72 65 73 |oad one in (pres| 00000340 73 20 27 4c 27 29 3b 20 64 69 73 63 20 73 70 61 |s 'L'); disc spa| 00000350 63 65 20 61 6c 6c 6f 77 69 6e 67 2c 0a 20 20 74 |ce allowing,. t| 00000360 77 6f 20 31 32 38 78 31 32 38 20 73 63 72 65 65 |wo 128x128 scree| 00000370 6e 73 20 61 72 65 20 70 72 6f 76 69 64 65 64 2c |ns are provided,| 00000380 20 63 61 6c 6c 65 64 20 27 74 72 61 6e 73 27 20 | called 'trans' | 00000390 26 20 27 77 68 65 61 74 27 2e 20 43 6c 69 63 6b |& 'wheat'. Click| 000003a0 69 6e 67 20 73 65 6c 65 63 74 0a 20 20 64 72 61 |ing select. dra| 000003b0 77 73 20 77 69 72 65 20 66 72 6f 6d 20 74 68 65 |ws wire from the| 000003c0 20 63 75 72 72 65 6e 74 20 70 6f 69 6e 74 20 74 | current point t| 000003d0 6f 20 74 68 65 20 70 6f 69 6e 74 65 72 3b 20 61 |o the pointer; a| 000003e0 64 6a 75 73 74 20 6d 6f 76 65 73 20 74 68 65 20 |djust moves the | 000003f0 63 75 72 72 65 6e 74 0a 20 20 70 6f 69 6e 74 20 |current. point | 00000400 74 6f 20 74 68 65 20 70 6f 69 6e 74 65 72 20 26 |to the pointer &| 00000410 20 6d 65 6e 75 20 65 72 61 73 65 73 2e 20 54 68 | menu erases. Th| 00000420 65 20 63 75 72 73 6f 72 73 20 70 6c 61 63 65 20 |e cursors place | 00000430 61 6e 20 65 6c 65 63 74 72 6f 6e 20 61 74 20 74 |an electron at t| 00000440 68 65 0a 20 20 63 75 72 72 65 6e 74 20 70 6f 69 |he. current poi| 00000450 6e 74 2c 20 77 68 69 6c 65 20 74 68 65 20 63 75 |nt, while the cu| 00000460 72 73 6f 72 73 20 77 69 74 68 20 72 69 67 68 74 |rsors with right| 00000470 20 43 74 72 6c 20 70 6c 61 63 65 20 61 20 27 64 | Ctrl place a 'd| 00000480 69 6f 64 65 27 20 69 6e 74 6f 20 74 68 65 0a 20 |iode' into the. | 00000490 20 63 69 72 63 75 69 74 2e 20 57 68 65 6e 20 63 | circuit. When c| 000004a0 6f 6d 70 6c 65 74 65 2c 20 70 72 65 73 73 20 72 |omplete, press r| 000004b0 65 74 75 72 6e 20 74 6f 20 72 75 6e 20 74 68 65 |eturn to run the| 000004c0 20 61 75 74 6f 6d 61 74 6f 6e 2e 0a 0a 49 4e 49 | automaton...INI| 000004d0 54 49 41 4c 49 53 41 54 49 4f 4e 2a 0a 0a 20 20 |TIALISATION*.. | 000004e0 31 30 44 45 46 20 50 52 4f 43 64 6f 0a 20 20 32 |10DEF PROCdo. 2| 000004f0 30 2a 53 65 74 45 76 61 6c 20 77 72 61 70 20 6f |0*SetEval wrap o| 00000500 6e 0a 20 20 33 30 2a 53 65 74 45 76 61 6c 20 65 |n. 30*SetEval e| 00000510 68 20 32 32 0a 20 20 34 30 2a 53 65 74 45 76 61 |h 22. 40*SetEva| 00000520 6c 20 65 74 20 32 31 34 0a 20 20 35 30 2a 53 65 |l et 214. 50*Se| 00000530 74 45 76 61 6c 20 62 61 63 6b 20 30 0a 20 20 36 |tEval back 0. 6| 00000540 30 2a 53 65 74 45 76 61 6c 20 77 69 72 65 20 31 |0*SetEval wire 1| 00000550 33 37 0a 20 20 37 30 45 4e 44 50 52 4f 43 0a 0a |37. 70ENDPROC..| 00000560 53 43 52 45 45 4e 2a 0a 0a 20 20 31 30 44 45 46 |SCREEN*.. 10DEF| 00000570 20 50 52 4f 43 64 6f 0a 20 20 32 30 4c 4f 43 41 | PROCdo. 20LOCA| 00000580 4c 20 78 25 2c 79 25 2c 7a 25 2c 63 25 2c 75 25 |L x%,y%,z%,c%,u%| 00000590 2c 76 25 2c 66 24 0a 20 20 33 30 44 49 4d 20 62 |,v%,f$. 30DIM b| 000005a0 75 66 25 20 32 35 36 0a 20 20 34 30 53 59 53 20 |uf% 256. 40SYS | 000005b0 22 4f 53 5f 52 65 61 64 56 61 72 56 61 6c 22 2c |"OS_ReadVarVal",| 000005c0 22 77 69 72 65 22 2c 62 75 66 25 2c 32 35 36 3a |"wire",buf%,256:| 000005d0 77 69 72 65 3d 21 62 75 66 25 0a 20 20 35 30 53 |wire=!buf%. 50S| 000005e0 59 53 20 22 4f 53 5f 52 65 61 64 56 61 72 56 61 |YS "OS_ReadVarVa| 000005f0 6c 22 2c 22 62 61 63 6b 22 2c 62 75 66 25 2c 32 |l","back",buf%,2| 00000600 35 36 3a 62 61 63 6b 3d 21 62 75 66 25 0a 20 20 |56:back=!buf%. | 00000610 36 30 53 59 53 20 22 4f 53 5f 52 65 61 64 56 61 |60SYS "OS_ReadVa| 00000620 72 56 61 6c 22 2c 22 65 68 22 2c 62 75 66 25 2c |rVal","eh",buf%,| 00000630 32 35 36 3a 65 68 3d 21 62 75 66 25 0a 20 20 37 |256:eh=!buf%. 7| 00000640 30 53 59 53 20 22 4f 53 5f 52 65 61 64 56 61 72 |0SYS "OS_ReadVar| 00000650 56 61 6c 22 2c 22 65 74 22 2c 62 75 66 25 2c 32 |Val","et",buf%,2| 00000660 35 36 3a 65 74 3d 21 62 75 66 25 0a 20 20 38 30 |56:et=!buf%. 80| 00000670 53 59 53 20 22 4f 53 5f 52 65 61 64 56 61 72 56 |SYS "OS_ReadVarV| 00000680 61 6c 22 2c 22 73 75 78 22 2c 62 75 66 25 2c 32 |al","sux",buf%,2| 00000690 35 36 3a 73 75 78 25 3d 21 62 75 66 25 0a 20 20 |56:sux%=!buf%. | 000006a0 39 30 53 59 53 20 22 4f 53 5f 52 65 61 64 56 61 |90SYS "OS_ReadVa| 000006b0 72 56 61 6c 22 2c 22 73 75 79 22 2c 62 75 66 25 |rVal","suy",buf%| 000006c0 2c 32 35 36 3a 73 75 79 25 3d 21 62 75 66 25 0a |,256:suy%=!buf%.| 000006d0 20 31 30 30 63 25 3d 46 4e 61 63 6f 6c 28 77 69 | 100c%=FNacol(wi| 000006e0 72 65 29 0a 20 31 31 30 50 52 4f 43 6d 6f 75 73 |re). 110PROCmous| 000006f0 65 6f 6e 0a 20 31 32 30 4d 4f 55 53 45 20 54 4f |eon. 120MOUSE TO| 00000700 20 30 2c 30 3a 4d 4f 56 45 20 30 2c 30 0a 20 31 | 0,0:MOVE 0,0. 1| 00000710 33 30 52 45 50 45 41 54 20 4d 4f 55 53 45 20 78 |30REPEAT MOUSE x| 00000720 25 2c 79 25 2c 7a 25 0a 20 31 34 30 49 46 20 49 |%,y%,z%. 140IF I| 00000730 4e 4b 45 59 2d 38 37 20 50 52 4f 43 6c 6f 61 64 |NKEY-87 PROCload| 00000740 3a 4d 4f 56 45 20 78 25 2c 79 25 0a 20 31 35 30 |:MOVE x%,y%. 150| 00000750 43 41 53 45 20 7a 25 20 4f 46 0a 20 31 36 30 57 |CASE z% OF. 160W| 00000760 48 45 4e 20 34 3a 63 25 3d 46 4e 61 63 6f 6c 28 |HEN 4:c%=FNacol(| 00000770 77 69 72 65 29 3a 47 43 4f 4c 20 63 25 20 41 4e |wire):GCOL c% AN| 00000780 44 20 36 33 20 54 49 4e 54 20 63 25 3a 44 52 41 |D 63 TINT c%:DRA| 00000790 57 20 78 25 2c 79 25 0a 20 31 37 30 57 48 45 4e |W x%,y%. 170WHEN| 000007a0 20 32 3a 63 25 3d 46 4e 61 63 6f 6c 28 62 61 63 | 2:c%=FNacol(bac| 000007b0 6b 29 3a 47 43 4f 4c 20 63 25 20 41 4e 44 20 36 |k):GCOL c% AND 6| 000007c0 33 20 54 49 4e 54 20 63 25 3a 43 49 52 43 4c 45 |3 TINT c%:CIRCLE| 000007d0 20 46 49 4c 4c 20 78 25 2c 79 25 2c 31 32 0a 20 | FILL x%,y%,12. | 000007e0 31 38 30 57 48 45 4e 20 31 3a 4d 4f 56 45 20 78 |180WHEN 1:MOVE x| 000007f0 25 2c 79 25 0a 20 31 39 30 45 4e 44 43 41 53 45 |%,y%. 190ENDCASE| 00000800 0a 20 32 30 30 50 52 4f 43 63 75 72 73 6f 72 73 |. 200PROCcursors| 00000810 28 75 25 2c 76 25 29 0a 20 32 31 30 49 46 20 75 |(u%,v%). 210IF u| 00000820 25 20 4f 52 20 76 25 20 54 48 45 4e 0a 20 32 32 |% OR v% THEN. 22| 00000830 30 49 46 20 49 4e 4b 45 59 2d 38 20 54 48 45 4e |0IF INKEY-8 THEN| 00000840 0a 20 32 33 30 63 25 3d 46 4e 61 63 6f 6c 28 77 |. 230c%=FNacol(w| 00000850 69 72 65 29 3a 47 43 4f 4c 20 63 25 20 41 4e 44 |ire):GCOL c% AND| 00000860 20 36 33 20 54 49 4e 54 20 63 25 0a 20 32 34 30 | 63 TINT c%. 240| 00000870 44 52 41 57 20 42 59 20 2d 76 25 2c 75 25 3a 44 |DRAW BY -v%,u%:D| 00000880 52 41 57 20 42 59 20 75 25 2c 76 25 3a 44 52 41 |RAW BY u%,v%:DRA| 00000890 57 20 42 59 20 75 25 2b 76 25 2c 76 25 2d 75 25 |W BY u%+v%,v%-u%| 000008a0 0a 20 32 35 30 44 52 41 57 20 42 59 20 76 25 2d |. 250DRAW BY v%-| 000008b0 75 25 2c 2d 76 25 2d 75 25 3a 44 52 41 57 20 42 |u%,-v%-u%:DRAW B| 000008c0 59 20 2d 75 25 2c 2d 76 25 3a 4d 4f 56 45 20 42 |Y -u%,-v%:MOVE B| 000008d0 59 20 32 2a 75 25 2d 76 25 2c 32 2a 76 25 2b 75 |Y 2*u%-v%,2*v%+u| 000008e0 25 0a 20 32 36 30 45 4c 53 45 0a 20 32 37 30 63 |%. 260ELSE. 270c| 000008f0 25 3d 46 4e 61 63 6f 6c 28 65 74 29 3a 47 43 4f |%=FNacol(et):GCO| 00000900 4c 20 63 25 20 41 4e 44 20 36 33 20 54 49 4e 54 |L c% AND 63 TINT| 00000910 20 63 25 0a 20 32 38 30 44 52 41 57 20 42 59 20 | c%. 280DRAW BY | 00000920 75 25 2c 76 25 0a 20 32 39 30 63 25 3d 46 4e 61 |u%,v%. 290c%=FNa| 00000930 63 6f 6c 28 65 68 29 3a 47 43 4f 4c 20 63 25 20 |col(eh):GCOL c% | 00000940 41 4e 44 20 36 33 20 54 49 4e 54 20 63 25 0a 20 |AND 63 TINT c%. | 00000950 33 30 30 50 4c 4f 54 20 39 2c 75 25 2c 76 25 0a |300PLOT 9,u%,v%.| 00000960 20 33 31 30 45 4e 44 49 46 0a 20 33 32 30 52 45 | 310ENDIF. 320RE| 00000970 50 45 41 54 20 50 52 4f 43 63 75 72 73 6f 72 73 |PEAT PROCcursors| 00000980 28 75 25 2c 76 25 29 3a 55 4e 54 49 4c 20 28 75 |(u%,v%):UNTIL (u| 00000990 25 20 4f 52 20 76 25 29 3d 30 0a 20 33 33 30 45 |% OR v%)=0. 330E| 000009a0 4e 44 49 46 0a 20 33 34 30 55 4e 54 49 4c 20 49 |NDIF. 340UNTIL I| 000009b0 4e 4b 45 59 2d 37 34 0a 20 33 35 30 4d 4f 55 53 |NKEY-74. 350MOUS| 000009c0 45 20 4f 46 46 0a 20 33 36 30 45 4e 44 50 52 4f |E OFF. 360ENDPRO| 000009d0 43 0a 0a 43 4f 44 45 2a 0a 0a 28 20 43 45 4c 4c |C..CODE*..( CELL| 000009e0 20 3c 62 61 63 6b 3e 20 3d 20 49 46 20 28 3c 62 | <back> = IF (<b| 000009f0 61 63 6b 3e 20 3d 3d 29 0a 20 20 43 45 4c 4c 20 |ack> ==). CELL | 00000a00 20 20 3c 65 68 3e 20 3d 20 49 46 20 28 20 20 3c | <eh> = IF ( <| 00000a10 65 74 3e 20 3d 3d 29 0a 20 20 43 45 4c 4c 20 20 |et> ==). CELL | 00000a20 20 3c 65 74 3e 20 3d 20 49 46 20 28 3c 77 69 72 | <et> = IF (<wir| 00000a30 65 3e 20 3d 3d 29 0a 20 20 52 45 41 44 5f 4e 45 |e> ==). READ_NE| 00000a40 49 47 0a 20 20 3c 65 68 3e 20 53 43 4f 55 4e 54 |IG. <eh> SCOUNT| 00000a50 5f 4e 45 49 47 20 44 55 50 20 31 20 3d 20 49 46 |_NEIG DUP 1 = IF| 00000a60 20 28 20 20 3c 65 68 3e 20 3d 3d 29 0a 20 20 20 | ( <eh> ==). | 00000a70 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000a80 20 20 20 20 32 20 3d 20 49 46 20 28 20 20 3c 65 | 2 = IF ( <e| 00000a90 68 3e 20 3d 3d 29 0a 20 20 20 20 20 20 20 20 20 |h> ==). | 00000aa0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 | | 00000ab0 20 20 20 20 20 20 3c 77 69 72 65 3e 20 3d 3d 20 | <wire> == | 00000ac0 20 29 0a 0a 45 4e 44 2a | )..END*| 00000ac8
.