$ x-mesh-basic --irc-nick pong_node /tmp/node2_pong.bas
[MOD] Ladataan: IRC-pohjainen DSM (Hajautettu Jaettu Muisti 40000-65535)
[MOD] Ladataan: Asynchronous SLEEP
[MOD] Ladataan: Retro-Compat (Syntaksin lennossa-kC$C$ntC$jC$)
[MOD] Ladataan: VIC-20 Emulator / Hardware Hooks (64KB)
[*] AST REWRITER: Compiling Block IFs to GOTO logic (Stack-based)...
[DSM-IRC] Yhdistetty palvelimeen 127.0.0.1:6667 nimella pong_node
Kuunnellaan tyhjaa MZONE-osoitetta 40000...
[DSM-IRC] Liitytty kanavalle #mzone. Valmiina vastaanottamaan dataa!
[MZONE] IRC vastaanotettu: Osoite 40000 <- Arvo 100 (LC$hde: ping_node)
Havaittiin muutos! PING arvo saapui verkosta: 100
Lahetetaan PONG (arvo 200) osoitteeseen 40001...

===============

$ x-mesh-basic --irc-nick ping_node /tmp/node1_ping.bas
[MOD] Ladataan: IRC-pohjainen DSM (Hajautettu Jaettu Muisti 40000-65535)
[MOD] Ladataan: Asynchronous SLEEP
[MOD] Ladataan: Retro-Compat (Syntaksin lennossa-kC$C$ntC$jC$)
[MOD] Ladataan: VIC-20 Emulator / Hardware Hooks (64KB)
[*] AST REWRITER: Compiling Block IFs to GOTO logic (Stack-based)...
[DSM-IRC] Yhdistetty palvelimeen 127.0.0.1:6667 nimella ping_node
Lahetetaan PING (arvo 100) MZONE-osoitteeseen 40000...
Odotetaan, etta toinen kone vastaa muistiosoitteeseen 40001...
[DSM-IRC] Liitytty kanavalle #mzone. Valmiina vastaanottamaan dataa!
[MZONE] IRC vastaanotettu: Osoite 40001 <- Arvo 200 (LC$hde: pong_node)
Saatiin PONG verkosta! Arvo on 200

===============

                                                            
15:48 -!- KALA [~node@hauki.local] has joined #mzone
15:48 < user> foo
15:49 -!- pong_node [~node@hauki.local] has joined #mzone
15:49 -!- ping_node [~node@hauki.local] has joined #mzone
15:49 < ping_node> MZONE:40000:100
15:49 < pong_node> MZONE:40001:200


===============

cat << 'EOF' > /tmp/node1_ping.bas
10 REM === NODE 1 (PING) ===
20 PRINT "Lahetetaan PING (arvo 100) MZONE-osoitteeseen 40000..."
30 POKE 40000, 100
40 PRINT "Odotetaan, etta toinen kone vastaa muistiosoitteeseen 40001..."
50 LET V = PEEK(40001)
60 IF V == 200 THEN GOTO 100
70 SLEEP 0.2
80 GOTO 50
100 PRINT "Saatiin PONG verkosta! Arvo on " + V
110 HALT
EOF

cat << 'EOF' > /tmp/node2_pong.bas
10 REM === NODE 2 (PONG) ===
20 PRINT "Kuunnellaan tyhjaa MZONE-osoitetta 40000..."
30 LET V = PEEK(40000)
40 IF V == 100 THEN GOTO 80
50 SLEEP 0.2
60 GOTO 30
80 PRINT "Havaittiin muutos! PING arvo saapui verkosta: " + V
90 PRINT "Lahetetaan PONG (arvo 200) osoitteeseen 40001..."
100 POKE 40001, 200
110 HALT
EOF

]===============