Savonkielen BASIC

Olen kopioinut tämän tekstin kirjasta Siistiä sisätyötä – kopiohuumoria (toimittanut Ulla Lipponen, Suomalaisen kirjallisuuden seura, , sivut 87–88) ja korjannut pari BASIC-komennoissa ollutta virhettä.

Kuopion yliopistossa on kehitetty kansantajuinen tietokonekieli, savonkielen BASIC. Ohjelmointikieli on parannettu versio tutusta BASIC-ohjelmointikielestä. Alla on esitetty ensin muutamia kielen komennoista, ja lopuksi pätkä esimerkkiohjelmaa.

BASIC savo
READY NO?
RUN EEKÖHÄN TUOTA LÄHETÄ KÖLÖKYTTELEMMÄÄ
LET LOJJAATA jottae, OLLAKSEEJ jottae muuta
STOP SEISAATA TOKKIINSA
CAT NÄÄTÄHÄM, MITTEE KAEKKEE SIELLÄ OEKEE ON
FOR A = 1 TO B STEP 2 A ON YHESTÄ ALAKAEN PEEHE ASTI KAHEN VÄLEIN KOEKKELEHTIIN
NEXT A SEOROOVA A
INPUT LUVEHAN PIÄTTEELTÄ
PRINT TÖKKEE PIÄTTEELLE, JOTTA:
GOTO 100 LOEKKOO SATASEE
GOSUB 100 KÄÄHÄN PISTÄÄKSE SATASESSA
RETURN MÄÄ TAKASJ SINNE MISTÄ TULITTII
IF A > B THEN JOSKO LIENÖÖ UA ENÄMPI KU PEE; NII SITTE TIE…
UNSAVE HÄEVYTÄ SIÄLITTÄ
REM REMU UALTONE

esimerkkiohjelma

Ohjelma tekee yhtä sun toista.

10 REMU UALTONE ESIMERKKIOHJELMA
20 TÖKKEE PIÄTTEELLE, JOTTA: "ANNAHA A NIIM MINÄ LASKEJ JOTTA
30 LUVEHAN PIÄTTEELTÄ A Ö LOJJAATA OLLAKSEE A LISÄTTY YHELLÄ
40 LOJJAATA P OLLAKSEE ERINÄESEN KERRAN A
50 REMU UALTONE TÄMÄ LUUPPI TEKKÖÖ TYHJEE REOHTOMISTA
60 A ON YHESTÄ ALAKAEN PEEHE ASTI KAHEN VÄLEIN KOEKKELEHTII
70 TÖKKEE PIÄTTEELLE, JOTTA: US, ".s kerta, kun tökkeen piätteelle tyhjee"
80 KÄÄHÄN PISTÄÄKSE SAASSAKAHESSAKYMMENESSÄ
90 JOSKO LIENÖÖ A ENÄMPI KU P; NII SITTÄ OLOKOON OLEMATA
100 SEOROOVA A
110 LOEKKOO LOPPUU -
120 REMU UALTONE ALJ OHJELMA
130 MÄÄ TAKASJ SINNE MISTÄ TULITTII LOPPU