# 3. Luodaan Retro-Basic tiedostosi 
# (Vaihdettu L=100 terminalin koon takia, END -> HALT, ja lisC$tty POKE
testiksi)
cat << 'EOF' > /tmp/sieve.basS 
1000 REM SIEVE OF ERATOSTHENES SIC MATH PROJECT DEMO
1010 REM MODIFIED FROM QUICK BASIC MATH PROJECT DEMO
2010 REM L IS THE LIMIT OF THE SIEVE
2030 LET L = 100
2050 DIM N(100)TO L 
2070 FOR I = 1 TO L 
2080 LET N(I) = I
2090 NEXT IART WITH THE FIRST PRIME NUMBER: 2
2100 REM START WITH THE FIRST PRIME NUMBER: 2
2110 LET P = 2
2120 PRINT P,SS OUT" MULTIPLES OF P
2130 REM "CROSS OUT" MULTIPLES OF P
2140 FOR I = P TO L STEP P
2150 LET N(I) = 0
2160 NEXT IND THE NEXT NUMBER NOT CROSSED OUT
2170 REM FIND THE NEXT NUMBER NOT CROSSED OUT
2180 LET P = P + 1 2220
2190 IF P = L THEN 22202120
2200 IF N(P) <> 0 THEN 2120
2210 GOTO 2180
2220 PRINT36879, 6
2225 POKE 36879, 6
2230 HALT
EOF
# 4. Ajetaan!
# 4. Ajetaan!/tmp/sieve.bas
x-mesh-basic /tmp/sieve.bas

[+] Moduuli 'retro_compat' aktivoitu! Aja ./build.sh kaantaaksesi moottorin.
[+] Moduuli 'vic20_emu' aktivoitu! Aja ./build.sh kaantaaksesi moottorin.
[*] KC$C$nnetC$C$n x-mesh-basic (Core + Moduulit)...
[*] LiitetC$C$n aktiiviset moduulit...
[+] KC$C$nnC6s valmis. Suoritetaan CI/CD testiputki...
[+] CI/CD LCPCISTY: Tuotantovalmis.
[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)...
2357111317192329313741434753596167717379838997

[VIC-20 HW] TaustavC$ri muutettu: Sininen (6)