Filename:MN-LVL1
1->Mat M[9,S]
50->Mat M[10,S]
1->L
0->B
Prog "MN-ADDI"
Lbl 1
ClrText
"Autosi saapuessa     TanaCorp Oyj.:n ylä- hissille tunnet      ikävää kurinaa vat-  sassasi. Jotain on   vinossa."[DISP]
ClrText
"Hissi laskeutuu 56   kerrosta alas aina   yhtä nopeasti, tunne vatsassasi kuitenkin pysyy."[DISP]
ClrText
"Tämä päivä maan uume-nissa on kuitenkin   aivan tavallinen.    Vatsasi vain ei tätä usko."[DISP]
ClrText
"-Hei Visa! toverisi  huikkaa hissin oven  avautuessa. -Olet    myöhässä.            -Joo, oli ruuhkaa.   Kävelet toimistoosi."[DISP]
ClrText
"Toimistosi on melko  kodikas ollakseen 280metriä maanpinnan    alapuolella. Se on   koko kaivoksen siis- teimpiä, ylpeytesi."[DISP]
ClrText
"Istut mustaan nahka- tuoliisi, ja alat    pyöritellä papereita.Itse kaivaminen ta-  pahtuu 350 metriä    alempana,"[DISP]
ClrText
"sinä olet vain kont- torirotta. Räjäytys- ten vaimea kumina    kaikuu käytävillä..."[DISP]
ClrText
"Asetut pöydällesi, jamietit miten päivän  voisi aloittaa."[DISP]
Lbl 2
Do
ClrText
"1. Tee töitä         2. Hae kahvia        3. Lue sanomalehteä"
Prog "MN-MENU"
LpWhile W=0
If W=666
Then Return
IfEnd
If Z=1
Then Prog "MN-LVLWO"
Goto 2
IfEnd
If Z=2
Then Goto 4
IfEnd
If Z=3
Then Goto 3
IfEnd
If W=777
Then If Mat M[L,S]=1
Then ClrText
"Hakkaat pöytääsi va- saralla, mutta sillä ei ole mainittavaa   vaikutusta."[DISP]
Goto 2
IfEnd
Lbl 3
ClrText
"KOTIMAA:             Hallitus suunnitteleeverojen nostamista.  Uusi tekijänoikeus-  lakiehdotus kuohuttaanörttikansaa."[DISP]
ClrText
"ULKOMAAT:            Irakissa 3 kuoli is- kussa USA:n sotilaitavastaan. Putin pyrkiikolmannelle kaudelle."[DISP]
ClrText
"POP-JUORUT:          Matti hakkasi Mervin,Mervi sairaalaan. KaiStenvall naimisiin   Pamela Anderssonin   kanssa."[DISP]
ClrText
"URHEILU:             Suomi tippui jalka-  pallon MM-kisoista.  MM-jääkiekko:        Suomi-Venäjä: 0-3    USA-Tsekki:   1-5"[DISP]
ClrText
"TV:                  Yle 1-20.30-Uutiset  Yle 2-20.00-Kummeli  MTV 3-14.25-TV Shop  Nelon-**.**-Sontaa"[DISP]
Goto 2
Lbl 4
ClrText
"Kävellessäsi käytävänkahvikoneelle tunnet lattian tärisevän    epätavallisen voimak-kaasti. Vatsasi alkaajälleen temppuilla."[DISP]
ClrText
"Kohta tärinä kuiten- kin loppuu ja jatkat matkaasi koneelle.   Mielessäsi tyrmäät   alitajuisen pelon on-nettomuudesta."[DISP]
ClrText
"Kuuma kahvi syöksyy  varomattomuudestasi  johtuen suuhusi lii- ankin nopeasti polt- taen kielesi. Huudat käytävällä."[DISP]
ClrText
"Viereisen toimiston  työntekijä tulee ih- mettelemään huutoasi.-Gievemi bavoi! vas- taat outoon katsee-  seen."[DISP]
ClrText
"Samassa maailmasi    kääntyy ylösalaisin. Ei, toimiston hemai- seva sihteeri ei kä- vele ohi, vaan lattiatärähtää lennättäen"[DISP]
ClrText
"sinut kattoon ja taaslattialle. Ihmetel-  lessäsi lattialla    sähköt katkeavat ja  käytävä pimenee. Alatryömiä eteenpäin."[DISP]
ClrText
"Kaikkialla on säkki- pimeää, et näe sent- tiäkään. Kuulet huu- toja ja juoksuaskeliakaukaa. Kaikki on se-kaisin."[DISP]
ClrText
"Juoksuaskeleet lähe- nevät nopeasti.      -Siellä on vielä yk- si, alkaa kuulua puh-etta. -Vauhtia!"[DISP]
ClrText
"Askeleet saapuvat    viereesi. Samassa    hetkessä tunnet val- tavan kivun päässäsi ja menetät tajuntasi."[DISP]
ClrText
2->W
Return