Filename:MN-LVL2
2->Mat M[9,S]
ClrText
""[DISP]
""[DISP]
""[DISP]
"Et tiedä kuinka kauanolit tajuton, mutta  nyt valot ovat jäl-  leen päällä. Käytävätovat tyhjät, kuuluu  vaimea kumina."[DISP]
ClrText
"Kahvikone on kaatunutkumoon, lattia lai-  nehtii lattea.       -Onko täällä ketään?!Huutosi kaikuu pit-  kään. Ei vastausta."[DISP]
ClrText
"Lähdet takaisin oman toimistosi suuntaan. Ympärilläsi näet vaintyhjiä huoneita. Vie-lä äsken kaikki ne   olivat täynnä."[DISP]
ClrText
"Toimistosi on kuin   norsulauman jäljiltä.Paperit on heitelty  ympäriinsä, hyllyt   kaadettu. Aivan kuin rikoselokuvasta."[DISP]
ClrText
"Täällä ei ole sinullenyt mitään, päällim- mäisenä ajatuksenasi on nyt päästä pois   selvittämään mitä ta-pahtui."[DISP]
Lbl 1
17441->L
Prog "MN-GETIF"
If A=0
Then If F=0
Then ClrText
"Kävelet hissille vainhuomataksesi, ettei  se toimi. Huomaat    maassa taskulampun."[DISP]
IfEnd
ClrText
"1. Ota taskulamppu   2. Palaa takaisin    toimistolle"
1->F
Else If F=0
Then ClrText
"Kävelet hissille vainhuomataksesi, ettei  se toimi."[DISP]
1->F
IfEnd
ClrText
"1. Palaa takaisin    toimistolle"
IfEnd
Prog "MN-MENU"
If W=0
Then Goto 1
IfEnd
If W=666
Then Return
IfEnd
If Z=1
Then 17441->L
Prog "MN-GETIF"
If A=0
Then 17441->L
1->B
Prog "MN-ADDI"
Else Goto 2
IfEnd
IfEnd
If W=777
Then If Mat M[L,S]=1
Then Goto 3
IfEnd
If Mat M[L,S]=17441
Then ClrText
"Lamppu ei nyt auta   tässä tilanteessa."[DISP]
Goto 1
IfEnd
IfEnd
Goto 1
Lbl 2
ClrText
"Lähdet takaisin toi- mistoasi kohti. Juuriovella kuulet kovaa  jyrinää, ja katosta  irronnut lohkare     murskaa ruumiisi."[DISP]
999->W
Return
Lbl 3
ClrText
"Uskollinen Fiskarsisiantaa hissinkutsumis-napille napakan mä-  jäyksen. Ja, ihme    kyllä, hissi alkaa   kulkea!"[DISP]
ClrText