CLS
COLOR 15
PRINT "                 * * * * * * * * * * * * * "
PRINT "                 *   Erkin seikkailut !  * "
PRINT "                 * * * * * * * * * * * * * "
PRINT
COLOR 13
SOUND 400, 2
SOUND 500, 4
SOUND 400, 2
SOUND 300, 2
SOUND 200, 2
SOUND 300, 2
SOUND 400, 4
SOUND 300, 2
SOUND 200, 2
SOUND 0, 2
SOUND 400, 2
SOUND 500, 4
PRINT "       A                      B    "
SOUND 400, 2
SOUND 300, 2
SOUND 200, 2
SOUND 300, 2
SOUND 400, 6
SOUND 0, 4
SOUND 400, 2
SOUND 500, 4
PRINT "               I     I             "
PRINT "     X  X      I     I     K K K K "
PRINT "   X   X  X    I     I     K     K "
PRINT "  X  X     IIIII     IIIIII      K "
SOUND 400, 2
SOUND 300, 2
SOUND 200, 2
SOUND 300, 2
SOUND 400, 4
SOUND 300, 2
SOUND 200, 2
SOUND 0, 2
SOUND 200, 2
SOUND 300, 4
PRINT "   X   X  X    I  Ï  I     K     K "
PRINT "     X  X      I     I     K K K K "
PRINT "               I     I             "
SOUND 400, 2
SOUND 500, 2
SOUND 400, 2
SOUND 300, 2
SOUND 200, 6
COLOR 7
PRINT
PRINT "Erkki on kadulla. Meneek” h„n a) hautausmaalle vai b) kauppaan?"
INPUT "valitse a tai b"; h$
COLOR 13
IF h$ = "b" THEN PRINT
IF h$ = "b" THEN PRINT "                  A           B    "
IF h$ = "b" THEN PRINT "               I     I             "
IF h$ = "b" THEN PRINT "     X  X      I     I     K K K K "
IF h$ = "b" THEN PRINT "   X   X  X    I     I     K     K "
IF h$ = "b" THEN PRINT "  X  X     IIIII     IIIIII   Ï  K "
IF h$ = "b" THEN PRINT "   X   X  X    I     I     K     K "
IF h$ = "b" THEN PRINT "     X  X      I     I     K K K K "
IF h$ = "b" THEN PRINT "               I     I             "
IF h$ = "b" THEN PRINT
COLOR 7
IF h$ = "b" THEN PRINT "Erkki l”yt„„ kaupasta paikallisen sanomalehden, jossa lukee seuraavaa:"
IF h$ = "b" THEN PRINT "Paha noita on saapunut kyl„„n! 8 ihmist„ peloissaan!"
IF h$ = "b" THEN PRINT
IF h$ = "b" THEN PRINT "Kaupassa ei ole muuta mielenkiintoista."
IF h$ = "b" THEN PRINT "Mit„ Erkki tekee seuraavaksi?"
IF h$ = "b" THEN INPUT "Valitse a) palaa kadulle b) j„„ kauppaan loppui„kseen"; k$
COLOR 4
IF k$ = "b" THEN PRINT "           _ _ _        "
IF k$ = "b" THEN PRINT "          |     |       "
IF k$ = "b" THEN PRINT "     _ _ _|     |_ _ _  "
IF k$ = "b" THEN PRINT "    |        E        | "
IF k$ = "b" THEN PRINT "    |_ _ _       _ _ _| "
IF k$ = "b" THEN PRINT "          |     |       "
IF k$ = "b" THEN PRINT "          |     |       "
IF k$ = "b" THEN PRINT "          |     |       "
IF k$ = "b" THEN PRINT "          |_ _ _|       "
IF k$ = "b" THEN PRINT
COLOR 7
IF k$ = "b" THEN PRINT "Kuolit tylsyyteen."
IF k$ = "b" THEN SOUND 300, 8
IF k$ = "b" THEN SOUND 200, 8
IF k$ = "b" THEN SOUND 100, 12
COLOR 13
IF h$ = "a" THEN PRINT
IF h$ = "a" THEN PRINT "               I     I             "
IF h$ = "a" THEN PRINT "     X  X      I     I     K K K K "
IF h$ = "a" THEN PRINT "   X   X  X    I     I     K     K "
IF h$ = "a" THEN PRINT "  X  X  Ï  IIIII     IIIIII      K "
IF h$ = "a" THEN PRINT "   X   X  X    I     I     K     K "
IF h$ = "a" THEN PRINT "     X  X      I     I     K K K K "
IF h$ = "a" THEN PRINT "               I     I             "
IF h$ = "a" THEN PRINT
COLOR 7
IF h$ = "a" THEN PRINT "Hautausmaan keskell„ on puu, johon on naulattu ilmoitus:"
IF h$ = "a" THEN PRINT "Baarissa tarjoillaan t„n„„n ilmaisia drinkkej„, vain 5 puntaa kappale!"
IF h$ = "a" THEN PRINT
IF h$ = "a" THEN PRINT "Luettuaan mielenkiintoisen ilmoituksen, Erkki tuumii..."
IF h$ = "a" THEN INPUT "a) kiipe„isik” h„n puuhun vai b) kaivaisiko hautaa"; r$
COLOR 2
IF k$ = "a" THEN PRINT
IF k$ = "a" THEN PRINT "   _ _ _ _ _ _ _ _ _ _ _  "
IF k$ = "a" THEN PRINT "  |         ___         | "
IF k$ = "a" THEN PRINT "  |  œ    /     \    œ  | "
IF k$ = "a" THEN PRINT "  |      |   5   |      | "
IF k$ = "a" THEN PRINT "  |  œ    \ ___ /    œ  | "
IF k$ = "a" THEN PRINT "  |_ _ _ _ _ _ _ _ _ _ _| "
IF k$ = "a" THEN PRINT
COLOR 7
IF k$ = "a" THEN PRINT "Erkki on taas kadulla. H„n huomaa maassa 5 punnan setelin!"
IF k$ = "a" THEN PRINT
IF k$ = "a" THEN PRINT "Poimiiko Erkki sen taskuunsa?"
IF k$ = "a" THEN INPUT "a) juu b) ei"; o$
COLOR 13
IF o$ = "a" THEN PRINT
IF o$ = "a" THEN PRINT "       A          B                "
IF o$ = "a" THEN PRINT "               I     I             "
IF o$ = "a" THEN PRINT "     X  X      I     I     K K K K "
IF o$ = "a" THEN PRINT "   X   X  X    I     I     K     K "
IF o$ = "a" THEN PRINT "  X  X     IIIII  Ï  IIIIII      K "
IF o$ = "a" THEN PRINT "   X   X  X    I     I     K     K "
IF o$ = "a" THEN PRINT "     X  X      I     I     K K K K "
IF o$ = "a" THEN PRINT "               I     I             "
IF o$ = "a" THEN PRINT
COLOR 7
IF o$ = "a" THEN PRINT "Erkin seisoskellessa keskell„ katua, h„nelle tulee orpo olo."
IF o$ = "a" THEN PRINT
IF o$ = "a" THEN PRINT "Meneek” Erkki nyt hautausmaalle?"
IF o$ = "a" THEN INPUT "a) kyll„ b) ei, h„n j„„ kadulle"; t$
COLOR 13
IF o$ = "b" THEN PRINT
IF o$ = "b" THEN PRINT "       A          B                "
IF o$ = "b" THEN PRINT "               I     I             "
IF o$ = "b" THEN PRINT "     X  X      I     I     K K K K "
IF o$ = "b" THEN PRINT "   X   X  X    I     I     K     K "
IF o$ = "b" THEN PRINT "  X  X     IIIII  Ï  IIIIII      K "
IF o$ = "b" THEN PRINT "   X   X  X    I     I     K     K "
IF o$ = "b" THEN PRINT "     X  X      I     I     K K K K "
IF o$ = "b" THEN PRINT "               I     I             "
IF o$ = "b" THEN PRINT
COLOR 7
IF o$ = "b" THEN PRINT "Erkin seisoskellessa keskell„ katua, h„nelle tulee orpo olo."
IF o$ = "b" THEN PRINT
IF o$ = "b" THEN PRINT "Meneek” Erkki nyt hautausmaalle?"
IF o$ = "b" THEN INPUT "a) kyll„ b) ei, h„n j„„ kadulle"; t$
COLOR 4
IF t$ = "b" THEN PRINT
IF t$ = "b" THEN PRINT "              I  J  I             "
IF t$ = "b" THEN PRINT "    X  X      I |^| I     K K K K "
IF t$ = "b" THEN PRINT "  X   X  X    I |^| I     K     K "
IF t$ = "b" THEN PRINT " X  X     IIIII |õ| IIIIII      K "
IF t$ = "b" THEN PRINT "  X   X  X    I |^| I     K     K "
IF t$ = "b" THEN PRINT "    X  X      I |^| I     K K K K "
IF t$ = "b" THEN PRINT "              I |^| I             "
IF t$ = "b" THEN PRINT
COLOR 7
IF t$ = "b" THEN PRINT "Jyr„ ajaa Erkin littanaksi kuin lettu. Kuolit."
IF t$ = "b" THEN SOUND 300, 8
IF t$ = "b" THEN SOUND 200, 8
IF t$ = "b" THEN SOUND 100, 12
COLOR 13
IF t$ = "a" THEN PRINT
IF t$ = "a" THEN PRINT "               I     I             "
IF t$ = "a" THEN PRINT "     X  X      I     I     K K K K "
IF t$ = "a" THEN PRINT "   X   X  X    I     I     K     K "
IF t$ = "a" THEN PRINT "  X  X  Ï  IIIII     IIIIII      K "
IF t$ = "a" THEN PRINT "   X   X  X    I     I     K     K "
IF t$ = "a" THEN PRINT "     X  X      I     I     K K K K "
IF t$ = "a" THEN PRINT "               I     I             "
IF t$ = "a" THEN PRINT
COLOR 7
IF t$ = "a" THEN PRINT "Erkki saapuu hautausmaalle."
IF t$ = "a" THEN PRINT
IF t$ = "a" THEN PRINT "Hautausmaan keskell„ on puu, johon on naulattu ilmoitus:"
IF t$ = "a" THEN PRINT "Baarissa tarjoillaan t„n„„n ilmaisia drinkkej„, vain 5 puntaa kappale!"
IF t$ = "a" THEN PRINT
IF t$ = "a" THEN PRINT "Luettuaan mielenkiintoisen ilmoituksen, Erkki tuumii..."
IF t$ = "a" THEN INPUT "a) kiipe„isik” h„n puuhun vai b) kaivaisiko hautaa"; r$
COLOR 6
IF r$ = "a" THEN PRINT "            _ _ _ _                   "
IF r$ = "a" THEN PRINT "          /         \          /@@@\  "
IF r$ = "a" THEN PRINT "        /  o      o   \       |@@@@@| "
IF r$ = "a" THEN PRINT "       |      o        |       \@@@/  "
IF r$ = "a" THEN PRINT "       |  o      Ï  o  |              "
IF r$ = "a" THEN PRINT "        \      o      /               "
IF r$ = "a" THEN PRINT "          \ _ _ _ _ /                 "
IF r$ = "a" THEN PRINT "             |   |                    "
IF r$ = "a" THEN PRINT "             |   |                    "
COLOR 2
IF r$ = "a" THEN PRINT "     ////////|///|/////////////////// "
IF r$ = "a" THEN PRINT
COLOR 7
IF r$ = "a" THEN PRINT "Erkki p„„tt„„ kiivet„ puuhun ja nousee oksalle."
IF r$ = "a" THEN PRINT "Mit„ h„n tekee seuraavaksi?"
IF r$ = "a" THEN INPUT "a) katselee kuuta vai b) pelaa pasianssia"; I$
COLOR 4
IF I$ = "a" THEN PRINT "           _ _ _        "
IF I$ = "a" THEN PRINT "          |     |       "
IF I$ = "a" THEN PRINT "     _ _ _|     |_ _ _  "
IF I$ = "a" THEN PRINT "    |        E        | "
IF I$ = "a" THEN PRINT "    |_ _ _       _ _ _| "
IF I$ = "a" THEN PRINT "          |     |       "
IF I$ = "a" THEN PRINT "          |     |       "
IF I$ = "a" THEN PRINT "          |     |       "
COLOR 2
IF I$ = "a" THEN PRINT "    //////|/////|////// "
IF I$ = "a" THEN PRINT
COLOR 7
IF I$ = "a" THEN PRINT "Erkki alkaa katsella kuuta ja huomaa sen olevan py”re„."
IF I$ = "a" THEN PRINT "Samassa oksa katkeaa h„nen altaan ja Erkki putoaa maahan."
IF I$ = "a" THEN PRINT "Kuolit."
IF I$ = "a" THEN SOUND 300, 8
IF I$ = "a" THEN SOUND 200, 8
IF I$ = "a" THEN SOUND 100, 12
COLOR 4
IF I$ = "b" THEN PRINT "           _ _ _        "
IF I$ = "b" THEN PRINT "          |     |       "
IF I$ = "b" THEN PRINT "     _ _ _|     |_ _ _  "
IF I$ = "b" THEN PRINT "    |        E        | "
IF I$ = "b" THEN PRINT "    |_ _ _       _ _ _| "
IF I$ = "b" THEN PRINT "          |     |       "
IF I$ = "b" THEN PRINT "          |     |       "
IF I$ = "b" THEN PRINT "          |     |       "
COLOR 2
IF I$ = "b" THEN PRINT "    //////|/////|////// "
IF I$ = "b" THEN PRINT
COLOR 7
IF I$ = "b" THEN PRINT "Erkki onkii korttipakan taskustaan ja alkaa pelaamaan."
IF I$ = "b" THEN PRINT "Samassa oksa katkeaa ja Erkki putoaa maahan."
IF I$ = "b" THEN PRINT "Kuolit."
IF I$ = "b" THEN SOUND 300, 8
IF I$ = "b" THEN SOUND 200, 8
IF I$ = "b" THEN SOUND 100, 12
COLOR 6
IF r$ = "b" THEN PRINT
IF r$ = "b" THEN PRINT "                         B                             "
IF r$ = "b" THEN PRINT "          A            _ _ _                           "
IF r$ = "b" THEN PRINT "      _ _ _ _ _       |     |                          "
IF r$ = "b" THEN PRINT "     |         |   _ _| the |_ _          C            "
IF r$ = "b" THEN PRINT "     |   S.C   |  |   k i n g   |   _ _ _ _ _ _ _      "
IF r$ = "b" THEN PRINT "     |         |  |_ _       _ _|  |     OO7     |     "
IF r$ = "b" THEN PRINT "     | * 1282  |      |*1935|      |             |     "
IF r$ = "b" THEN PRINT "     | + 2488  |      |+ ?  |      |   * 1962    |     "
IF r$ = "b" THEN PRINT "     |         |      |     |      |   + 1998    |     "
COLOR 2
IF r$ = "b" THEN PRINT " ////|/////////|//////|/////|//////|/////////////|//// "
IF r$ = "b" THEN PRINT
COLOR 7
IF r$ = "b" THEN PRINT "Erkki p„„tt„„ kaivaa hautaa..."
IF r$ = "b" THEN PRINT
IF r$ = "b" THEN PRINT "...mutta kenen hautaa h„n kaivaisi?"
IF r$ = "b" THEN INPUT "a) Joulupukin b) Elviksen vai c) James Bondin"; p$
COLOR 4
IF p$ = "a" THEN PRINT
IF p$ = "a" THEN PRINT "      A            B             C          "
IF p$ = "a" THEN PRINT "                                            "
IF p$ = "a" THEN PRINT "   KKKK          CCCCC        Hyv„„         "
IF p$ = "a" THEN PRINT "  KKKKKK K     CC     CC     ___joulua!_    "
IF p$ = "a" THEN PRINT "  KKKKKK K    C   @@@   C   |     #     |   "
IF p$ = "a" THEN PRINT "  KKKKKKKK     CC     CC    |###########|   "
IF p$ = "a" THEN PRINT "   KKKKK         CCCCC      |_____#_____|   "
IF p$ = "a" THEN PRINT
COLOR 7
IF p$ = "a" THEN PRINT "Erkki kaivaa hautaa ja l”yt„„ Joulupukin."
IF p$ = "a" THEN PRINT "Erkin yll„tykseksi Oiva Ukki onkin yh„ hengiss„!"
IF p$ = "a" THEN PRINT
IF p$ = "a" THEN INPUT "Pyyt„„k” Erkki Pukilta a) k„den b) silm„n vai c) joululahjan"; u$
COLOR 14
IF p$ = "b" THEN PRINT
IF p$ = "b" THEN PRINT "        |\    _ _ _      "
IF p$ = "b" THEN PRINT "        ||  /       \    "
IF p$ = "b" THEN PRINT "        ||/           \  "
IF p$ = "b" THEN PRINT "        ||   Elvis ?   | "
IF p$ = "b" THEN PRINT "        ||\           /  "
IF p$ = "b" THEN PRINT "        || \         /   "
IF p$ = "b" THEN PRINT "        ||  \       /    "
IF p$ = "b" THEN PRINT "        ||   \     /     "
IF p$ = "b" THEN PRINT "        |/    \_ _/      "
IF p$ = "b" THEN PRINT
COLOR 7
IF p$ = "b" THEN PRINT "Erkki kaivaa hautaa ja l”yt„„ Elviksen arkun."
IF p$ = "b" THEN PRINT "Erkin yll„tykseksi arkku onkin tyhj„!"
IF p$ = "b" THEN PRINT
IF p$ = "b" THEN PRINT "Mit„ Erkki tekee seuraavaksi?"
IF p$ = "b" THEN INPUT "a) sulkeutuu arkkuun b) juoksee maailman „„riin vai c) kapsahtaa katajaan"; z$
COLOR 12
IF z$ = "a" THEN PRINT "            _ _ _      "
IF z$ = "a" THEN PRINT "          /       \    "
IF z$ = "a" THEN PRINT "        /   __|__   \  "
IF z$ = "a" THEN PRINT "       |      |      | "
IF z$ = "a" THEN PRINT "        \     |     /  "
IF z$ = "a" THEN PRINT "         \         /   "
IF z$ = "a" THEN PRINT "          \       /    "
IF z$ = "a" THEN PRINT "           \     /     "
IF z$ = "a" THEN PRINT "            \_ _/      "
IF z$ = "a" THEN PRINT
COLOR 7
IF z$ = "a" THEN PRINT "Erkki sulkeutuu arkkuun ikuisiksi ajoiksi."
IF z$ = "a" THEN PRINT "Pelin loppu."
IF z$ = "a" THEN SOUND 300, 8
IF z$ = "a" THEN SOUND 200, 8
IF z$ = "a" THEN SOUND 100, 12
COLOR 12
IF z$ = "b" THEN PRINT
IF z$ = "b" THEN PRINT "        *-------------------*      "
IF z$ = "b" THEN PRINT "        |  MAAILMAN  ŽŽRET  |      "
IF z$ = "b" THEN PRINT "        *-------------------*      "
COLOR 14
IF z$ = "b" THEN PRINT "                  Ï                "
COLOR 4
IF z$ = "b" THEN PRINT "                  |                "
IF z$ = "b" THEN PRINT "               I  |  I             "
IF z$ = "b" THEN PRINT "     X  X      I  |  I     K K K K "
IF z$ = "b" THEN PRINT "   X   X  X    I  |  I     K     K "
IF z$ = "b" THEN PRINT "  X  X     IIIII /   IIIIII      K "
IF z$ = "b" THEN PRINT "   X   X  X    I     I     K     K "
IF z$ = "b" THEN PRINT "     X  X      I     I     K K K K "
IF z$ = "b" THEN PRINT "               I     I             "
IF z$ = "b" THEN PRINT
COLOR 7
IF z$ = "b" THEN PRINT "Erkki juoksee maailman „„riin ja j„„ sinne."
IF z$ = "b" THEN PRINT "Pelin loppu."
IF z$ = "b" THEN SOUND 300, 8
IF z$ = "b" THEN SOUND 200, 8
IF z$ = "b" THEN SOUND 100, 12
COLOR 10
IF z$ = "c" THEN PRINT
IF z$ = "c" THEN PRINT "                 |        "
IF z$ = "c" THEN PRINT "            / \  |        "
IF z$ = "c" THEN PRINT "          /  |  \|        "
IF z$ = "c" THEN PRINT "        /   / \  Ï\       "
IF z$ = "c" THEN PRINT "          / | | \         "
IF z$ = "c" THEN PRINT "        /   / \   \       "
IF z$ = "c" THEN PRINT "          / | | \         "
IF z$ = "c" THEN PRINT "        /   / \   \       "
IF z$ = "c" THEN PRINT "          / | | \         "
IF z$ = "c" THEN PRINT "        /   | |   \       "
IF z$ = "c" THEN PRINT "            | |           "
COLOR 2
IF z$ = "c" THEN PRINT "  //////////|/|////////// "
IF z$ = "c" THEN PRINT
COLOR 7
IF z$ = "c" THEN PRINT "Erkki kapsahtaa katajaan ja tekee sinne pes„n."
IF z$ = "c" THEN PRINT "Pelin loppu."
IF z$ = "c" THEN SOUND 300, 8
IF z$ = "c" THEN SOUND 200, 8
IF z$ = "c" THEN SOUND 100, 12
COLOR 4
IF p$ = "c" THEN PRINT
IF p$ = "c" THEN PRINT "      A            B             C          "
IF p$ = "c" THEN PRINT "                                            "
IF p$ = "c" THEN PRINT "   KKKK          CCCCC        Paljon        "
IF p$ = "c" THEN PRINT "  KKKKKK K     CC     CC     ____onnea!_    "
IF p$ = "c" THEN PRINT "  KKKKKK K    C   @@@   C   |     #     |   "
IF p$ = "c" THEN PRINT "  KKKKKKKK     CC     CC    |###########|   "
IF p$ = "c" THEN PRINT "   KKKKK         CCCCC      |_____#_____|   "
IF p$ = "c" THEN PRINT
COLOR 7
IF p$ = "c" THEN PRINT "Erkki kaivaa hautaa ja l”yt„„ Bondin. James Bondin."
IF p$ = "c" THEN PRINT "Erkin yll„tykseksi James pit„„ syliss„„ lahjapakettia."
IF p$ = "c" THEN PRINT
IF p$ = "c" THEN PRINT "Mit„ Erkki kiskaisee salaiselta agentilta?"
IF p$ = "c" THEN INPUT "a) k„den b) silm„n vai c) lahjan"; u$
IF u$ = "a" THEN PRINT
IF u$ = "a" THEN PRINT "Kunne Erkki l„htee nyt?"
IF u$ = "a" THEN INPUT "a) kadulle b) baariin c) kotiin "; w$
IF w$ = "a" THEN PRINT "           _ _ _        "
IF w$ = "a" THEN PRINT "          |     |       "
IF w$ = "a" THEN PRINT "     _ _ _|     |_ _ _  "
IF w$ = "a" THEN PRINT "    |        E        | "
IF w$ = "a" THEN PRINT "    |_ _ _       _ _ _| "
IF w$ = "a" THEN PRINT "          |     |       "
IF w$ = "a" THEN PRINT "          |     |       "
IF w$ = "a" THEN PRINT "          |     |       "
IF w$ = "a" THEN PRINT "          |_ _ _|       "
IF w$ = "a" THEN PRINT
IF w$ = "a" THEN PRINT "Erkki harhailee kadulla ja kuolee n„lk„„n."
IF w$ = "a" THEN SOUND 300, 8
IF w$ = "a" THEN SOUND 200, 8
IF w$ = "a" THEN SOUND 100, 12
IF w$ = "c" THEN PRINT "           _ _ _        "
IF w$ = "c" THEN PRINT "          |     |       "
IF w$ = "c" THEN PRINT "     _ _ _|     |_ _ _  "
IF w$ = "c" THEN PRINT "    |        E        | "
IF w$ = "c" THEN PRINT "    |_ _ _       _ _ _| "
IF w$ = "c" THEN PRINT "          |     |       "
IF w$ = "c" THEN PRINT "          |     |       "
IF w$ = "c" THEN PRINT "          |     |       "
IF w$ = "c" THEN PRINT "          |_ _ _|       "
IF w$ = "c" THEN PRINT
IF w$ = "c" THEN PRINT "Erkki menee kotiin, pieraisee ja kuolee hajuun."
IF w$ = "c" THEN SOUND 300, 8
IF w$ = "c" THEN SOUND 200, 8
IF w$ = "c" THEN SOUND 100, 12
IF w$ = "b" THEN PRINT "Baarissa on noita, joka pyyt„„ Erkilt„ ruumiin k„tt„."
IF w$ = "b" THEN INPUT "Antaako Erkki sen h„nelle a) kyll„ b) ei "; f$
IF f$ = "b" THEN PRINT "           _ _ _        "
IF f$ = "b" THEN PRINT "          |     |       "
IF f$ = "b" THEN PRINT "     _ _ _|     |_ _ _  "
IF f$ = "b" THEN PRINT "    |        E        | "
IF f$ = "b" THEN PRINT "    |_ _ _       _ _ _| "
IF f$ = "b" THEN PRINT "          |     |       "
IF f$ = "b" THEN PRINT "          |     |       "
IF f$ = "b" THEN PRINT "          |     |       "
IF f$ = "b" THEN PRINT "          |_ _ _|       "
IF f$ = "b" THEN PRINT
IF f$ = "b" THEN PRINT "Noita tappaa Erkin. Kuolit."
IF f$ = "b" THEN SOUND 300, 8
IF f$ = "b" THEN SOUND 200, 8
IF f$ = "b" THEN SOUND 100, 12
IF f$ = "a" THEN PRINT "           _ _ _        "
IF f$ = "a" THEN PRINT "          |     |       "
IF f$ = "a" THEN PRINT "     _ _ _|     |_ _ _  "
IF f$ = "a" THEN PRINT "    |        E        | "
IF f$ = "a" THEN PRINT "    |_ _ _       _ _ _| "
IF f$ = "a" THEN PRINT "          |     |       "
IF f$ = "a" THEN PRINT "          |     |       "
IF f$ = "a" THEN PRINT "          |     |       "
IF f$ = "a" THEN PRINT "          |_ _ _|       "
IF f$ = "a" THEN PRINT
IF f$ = "a" THEN PRINT "Noita katselee k„tt„, heitt„„ sen kasvoillesi ja tappaa sinut."
IF f$ = "a" THEN PRINT "Kuolit."
IF f$ = "a" THEN SOUND 300, 8
IF f$ = "a" THEN SOUND 200, 8
IF f$ = "a" THEN SOUND 100, 12
IF u$ = "b" THEN PRINT
IF u$ = "b" THEN PRINT "Kunne Erkki l„htee nyt?"
IF u$ = "b" THEN INPUT "a) kadulle b) baariin c) kotiin "; s$
IF s$ = "a" THEN PRINT "           _ _ _        "
IF s$ = "a" THEN PRINT "          |     |       "
IF s$ = "a" THEN PRINT "     _ _ _|     |_ _ _  "
IF s$ = "a" THEN PRINT "    |        E        | "
IF s$ = "a" THEN PRINT "    |_ _ _       _ _ _| "
IF s$ = "a" THEN PRINT "          |     |       "
IF s$ = "a" THEN PRINT "          |     |       "
IF s$ = "a" THEN PRINT "          |     |       "
IF s$ = "a" THEN PRINT "          |_ _ _|       "
IF s$ = "a" THEN PRINT
IF s$ = "a" THEN PRINT "Erkki harhailee kadulla ja kuolee n„lk„„n."
IF s$ = "a" THEN SOUND 300, 8
IF s$ = "a" THEN SOUND 200, 8
IF s$ = "a" THEN SOUND 100, 12
IF s$ = "c" THEN PRINT "           _ _ _        "
IF s$ = "c" THEN PRINT "          |     |       "
IF s$ = "c" THEN PRINT "     _ _ _|     |_ _ _  "
IF s$ = "c" THEN PRINT "    |        E        | "
IF s$ = "c" THEN PRINT "    |_ _ _       _ _ _| "
IF s$ = "c" THEN PRINT "          |     |       "
IF s$ = "c" THEN PRINT "          |     |       "
IF s$ = "c" THEN PRINT "          |     |       "
IF s$ = "c" THEN PRINT "          |_ _ _|       "
IF s$ = "c" THEN PRINT
IF s$ = "c" THEN PRINT "Erkki menee kotiin, pieraisee ja kuolee hajuun."
IF s$ = "c" THEN SOUND 300, 8
IF s$ = "c" THEN SOUND 200, 8
IF s$ = "c" THEN SOUND 100, 12
IF s$ = "b" THEN PRINT "Baarissa on paha noita, joka pyyt„„ Erkilt„ ruumiin silm„„."
IF s$ = "b" THEN INPUT "Antaako Erkki sen h„nelle a) kyll„ b) ei "; j$
IF j$ = "b" THEN PRINT "           _ _ _        "
IF j$ = "b" THEN PRINT "          |     |       "
IF j$ = "b" THEN PRINT "     _ _ _|     |_ _ _  "
IF j$ = "b" THEN PRINT "    |        E        | "
IF j$ = "b" THEN PRINT "    |_ _ _       _ _ _| "
IF j$ = "b" THEN PRINT "          |     |       "
IF j$ = "b" THEN PRINT "          |     |       "
IF j$ = "b" THEN PRINT "          |     |       "
IF j$ = "b" THEN PRINT "          |_ _ _|       "
IF j$ = "b" THEN PRINT
IF j$ = "b" THEN PRINT "Noita tappaa Erkin. Kuolit."
IF j$ = "b" THEN SOUND 300, 8
IF j$ = "b" THEN SOUND 200, 8
IF j$ = "b" THEN SOUND 100, 12
IF j$ = "a" THEN PRINT "           _ _ _        "
IF j$ = "a" THEN PRINT "          |     |       "
IF j$ = "a" THEN PRINT "     _ _ _|     |_ _ _  "
IF j$ = "a" THEN PRINT "    |        E        | "
IF j$ = "a" THEN PRINT "    |_ _ _       _ _ _| "
IF j$ = "a" THEN PRINT "          |     |       "
IF j$ = "a" THEN PRINT "          |     |       "
IF j$ = "a" THEN PRINT "          |     |       "
IF j$ = "a" THEN PRINT "          |_ _ _|       "
IF j$ = "a" THEN PRINT
IF j$ = "a" THEN PRINT "Noita katselee silm„„, heitt„„ sen kasvoillesi ja tappaa sinut."
IF j$ = "a" THEN PRINT "Kuolit."
IF j$ = "a" THEN SOUND 300, 8
IF j$ = "a" THEN SOUND 200, 8
IF j$ = "a" THEN SOUND 100, 12
IF u$ = "c" THEN PRINT
IF u$ = "c" THEN PRINT "Kunne Erkki l„htee nyt?"
IF u$ = "c" THEN INPUT "a) kadulle b) baariin c) kotiin "; e$
IF e$ = "a" THEN PRINT "           _ _ _        "
IF e$ = "a" THEN PRINT "          |     |       "
IF e$ = "a" THEN PRINT "     _ _ _|     |_ _ _  "
IF e$ = "a" THEN PRINT "    |        E        | "
IF e$ = "a" THEN PRINT "    |_ _ _       _ _ _| "
IF e$ = "a" THEN PRINT "          |     |       "
IF e$ = "a" THEN PRINT "          |     |       "
IF e$ = "a" THEN PRINT "          |     |       "
IF e$ = "a" THEN PRINT "          |_ _ _|       "
IF e$ = "a" THEN PRINT
IF e$ = "a" THEN PRINT "Erkki harhailee kadulla ja kuolee n„lk„„n."
IF e$ = "a" THEN SOUND 300, 8
IF e$ = "a" THEN SOUND 200, 8
IF e$ = "a" THEN SOUND 100, 12
IF e$ = "c" THEN PRINT "           _ _ _        "
IF e$ = "c" THEN PRINT "          |     |       "
IF e$ = "c" THEN PRINT "     _ _ _|     |_ _ _  "
IF e$ = "c" THEN PRINT "    |        E        | "
IF e$ = "c" THEN PRINT "    |_ _ _       _ _ _| "
IF e$ = "c" THEN PRINT "          |     |       "
IF e$ = "c" THEN PRINT "          |     |       "
IF e$ = "c" THEN PRINT "          |     |       "
IF e$ = "c" THEN PRINT "          |_ _ _|       "
IF e$ = "c" THEN PRINT
IF e$ = "c" THEN PRINT "Erkki menee kotiin, pieraisee ja kuolee hajuun."
IF e$ = "c" THEN SOUND 300, 8
IF e$ = "c" THEN SOUND 200, 8
IF e$ = "c" THEN SOUND 100, 12
IF e$ = "b" THEN PRINT "Baarissa on paha noita, joka pyyt„„ Erkilt„ lahjaa."
IF e$ = "b" THEN INPUT "Antaako Erkki sen h„nelle a) kyll„ b) ei "; v$
IF v$ = "b" THEN PRINT "           _ _ _        "
IF v$ = "b" THEN PRINT "          |     |       "
IF v$ = "b" THEN PRINT "     _ _ _|     |_ _ _  "
IF v$ = "b" THEN PRINT "    |        E        | "
IF v$ = "b" THEN PRINT "    |_ _ _       _ _ _| "
IF v$ = "b" THEN PRINT "          |     |       "
IF v$ = "b" THEN PRINT "          |     |       "
IF v$ = "b" THEN PRINT "          |     |       "
IF v$ = "b" THEN PRINT "          |_ _ _|       "
IF v$ = "b" THEN PRINT
IF v$ = "b" THEN PRINT "Noita tappaa Erkin. Kuolit."
IF v$ = "b" THEN SOUND 300, 8
IF v$ = "b" THEN SOUND 200, 8
IF v$ = "b" THEN SOUND 100, 12
IF v$ = "a" THEN PRINT
IF v$ = "a" THEN PRINT "Noita katselee lahjaa ja avaa sen sitten."
IF v$ = "a" THEN PRINT "Laatikosta ponnahtaa vieteriukko! Noita pel„styy ja juoksee maailman „„riin!"
IF v$ = "a" THEN PRINT "Erkki on saanut pahan noidan karkoitetuksi ja koko kyl„ on iloinen!"
IF v$ = "a" THEN PRINT "JIHUU!"
IF v$ = "a" THEN PRINT
IF v$ = "a" THEN PRINT "Pelin loppu....................................................................?"
IF v$ = "a" THEN SOUND 600, 10
IF v$ = "a" THEN SOUND 800, 40