Fixed encoding issues

This commit is contained in:
Mikko Ahlroth 2016-02-19 08:16:58 +02:00
parent caf600f6fa
commit c8847acdc3
10 changed files with 62 additions and 73 deletions

View file

@ -6,17 +6,17 @@ ClrText
ClrText ClrText
"=====GAME-OVER=====" "=====GAME-OVER====="
If Mat M[9,S]=666 If Mat M[9,S]=666
Then "Selvisit ulos kaivok-sesta hengissä, onnittelut!"[DISP] Then "Selvisit ulos kaivok-sesta hengissä, onnittelut!"[DISP]
Else "Et selvinnyt kaivok- sen kauhuista... Ruumiisi löydetään 3vmyöhemmin onnettomuu-den tutkinnassa."[DISP] Else "Et selvinnyt kaivok- sen kauhuista... Ruumiisi löydetään 3vmyöhemmin onnettomuu-den tutkinnassa."[DISP]
IfEnd IfEnd
ClrText ClrText
"Olet nyt kuluttanut turhankin suuren osanelämästäsi tähän pe- liin. Sinäkin aikana olisit voinut tehdä jotain hyödyllistä."[DISP] "Olet nyt kuluttanut turhankin suuren osanelämästäsi tähän pe- liin. Sinäkin aikana olisit voinut tehdä jotain hyödyllistä."[DISP]
ClrText ClrText
"Valitukset sun muut voi osoittaa ->->->->->->->->#Nicd @40 Quakenet"[DISP] "Valitukset sun muut voi osoittaa ->->->->->->->->#Nicd @40 Quakenet"[DISP]
ClrText ClrText
"BEGIN CREDITS"[DISP] "BEGIN CREDITS"[DISP]
ClrText ClrText
"Pelin idea: Nicd Koodaus: Nicd Juoni: Nicd Kenttädesign: Nicd Muu: Nicd"[DISP] "Pelin idea: Nicd Koodaus: Nicd Juoni: Nicd Kenttädesign: Nicd Muu: Nicd"[DISP]
ClrText ClrText
"Betatestaus: Nicd, Re-opener, Nahka-mestari, Latz Aika: Vaajakosken Lukio"[DISP] "Betatestaus: Nicd, Re-opener, Nahka-mestari, Latz Aika: Vaajakosken Lukio"[DISP]
ClrText ClrText
@ -24,6 +24,6 @@ ClrText
ClrText ClrText
"Muut kiitokset: Tihku, pal-lo, IM, middie-, TeMe, #BaFe,NovaReon, xenophics, Virtuoosi, ZarD-..."[DISP] "Muut kiitokset: Tihku, pal-lo, IM, middie-, TeMe, #BaFe,NovaReon, xenophics, Virtuoosi, ZarD-..."[DISP]
ClrText ClrText
"Paina [EXE] palatak- sesi päävalikkoon."[DISP] "Paina [EXE] palatak- sesi päävalikkoon."[DISP]
666->W 666->W
Return Return

View file

@ -7,6 +7,6 @@ Return
IfEnd IfEnd
If A=17441 If A=17441
Then Then
"Erittäin voimakas Krypton®-taskulamppu.Ei paristoja."[DISP] "Erittäin voimakas Krypton®-taskulamppu.Ei paristoja."[DISP]
Return Return
IfEnd IfEnd

View file

@ -1,7 +1,7 @@
Filename:MN-HELP Filename:MN-HELP
Lbl 9 Lbl 9
ClrText ClrText
"1 Mikä tämä peli on? 2 Juoni 3 Valikot 4 Esineet 5 Pois!" "1 Mikä tämä peli on? 2 Juoni 3 Valikot 4 Esineet 5 Pois!"
?->A ?->A
If A=1 If A=1
Then Goto 1 Then Goto 1
@ -25,41 +25,41 @@ ClrText
ClrText ClrText
"ClrText-komentojen jauudenlaisen tekstin- tulostustekniikkansa avulla se tuo teksti-peleihin aivan uuden ulottuvuuden."[DISP] "ClrText-komentojen jauudenlaisen tekstin- tulostustekniikkansa avulla se tuo teksti-peleihin aivan uuden ulottuvuuden."[DISP]
ClrText ClrText
"Eli toisin sanoen Nicd:llä oli hyvin, HYVIN tylsää koulus- sa. Tätä lukiossa tehdään."[DISP] "Eli toisin sanoen Nicd:llä oli hyvin, HYVIN tylsää koulus- sa. Tätä lukiossa tehdään."[DISP]
ClrText ClrText
"Peli on siis simppelitekstiseikkailu. Tekstiä tulostuu ruu-dulle tarinamuodossa ja valikosta valitaantekemiset."[DISP] "Peli on siis simppelitekstiseikkailu. Tekstiä tulostuu ruu-dulle tarinamuodossa ja valikosta valitaantekemiset."[DISP]
ClrText ClrText
"Nauti pelaamisesta sikäli kuin se on mahdollista. -Nicd ---------------------http://nicd.3rror.com#Nicd #Nytsoi @40 Qnet"[DISP] "Nauti pelaamisesta sikäli kuin se on mahdollista. -Nicd ---------------------http://nicd.3rror.com#Nicd #Nytsoi @40 Qnet"[DISP]
Goto 9 Goto 9
Lbl 2 Lbl 2
ClrText ClrText
"Olet Visa, töissä suuressa ja arvos- tetussa kaivosyh- tiössä. Työnantajasi on maailman suurimpia"[DISP] "Olet Visa, töissä suuressa ja arvos- tetussa kaivosyh- tiössä. Työnantajasi on maailman suurimpia"[DISP]
ClrText ClrText
"Yhtiölläsi on valtionja valtaväestön suosio, eikä suotta, tuohan se työpaikan tuhansille."[DISP] "Yhtiölläsi on valtionja valtaväestön suosio, eikä suotta, tuohan se työpaikan tuhansille."[DISP]
ClrText ClrText
"Sinä itse olet aivan tavallinen: parikymppinen intoa täynnä oleva sinkku- mies. Asut yhä äitisiluona."[DISP] "Sinä itse olet aivan tavallinen: parikymppinen intoa täynnä oleva sinkku- mies. Asut yhä äitisiluona."[DISP]
ClrText ClrText
"Perheen perustamista et ole vielä ajatel- lut. Pidät työstäsi ja palkka on hyvä."[DISP] "Perheen perustamista et ole vielä ajatel- lut. Pidät työstäsi ja palkka on hyvä."[DISP]
ClrText ClrText
"Kuitenkin tänään si- nulla on tunne, että jotain on vialla..."[DISP] "Kuitenkin tänään si- nulla on tunne, että jotain on vialla..."[DISP]
Goto 9 Goto 9
Lbl 3 Lbl 3
ClrText ClrText
"Pelin valikot ovat kuin mistä tahansa tekstipelistä. Etenemiskomennot on numeroitu, perusko- mennot kirjaimina."[DISP] "Pelin valikot ovat kuin mistä tahansa tekstipelistä. Etenemiskomennot on numeroitu, perusko- mennot kirjaimina."[DISP]
ClrText ClrText
"Peruskomennot: I Näyttää esineesi T Tallentaa pelin viimeisimmän tallen- nuspisteen kohdalle Q Lopettaa pelin"[DISP] "Peruskomennot: I Näyttää esineesi T Tallentaa pelin viimeisimmän tallen- nuspisteen kohdalle Q Lopettaa pelin"[DISP]
ClrText ClrText
"Esinekomennot: U*n Käyttää esineen n, jos mahdollista D*n Pudottaa esineen n E*n Esineen n kuvaus"[DISP] "Esinekomennot: U*n Käyttää esineen n, jos mahdollista D*n Pudottaa esineen n E*n Esineen n kuvaus"[DISP]
ClrText ClrText
"Muut komennot seli- tetään pelin aikana."[DISP] "Muut komennot seli- tetään pelin aikana."[DISP]
Goto 9 Goto 9
Lbl 4 Lbl 4
ClrText ClrText
"Pelin aikana sinulle kertyy erinäisiä esineitä joita voit tarvita eri asioihin.Voit kantaa mukana vain 8 esinettä."[DISP] "Pelin aikana sinulle kertyy erinäisiä esineitä joita voit tarvita eri asioihin.Voit kantaa mukana vain 8 esinettä."[DISP]
ClrText ClrText
"Voit myös saada rahaajota saattaa tarvita.Rahaa ei lasketa esineeksi, sitä voi olla niin paljon kuinhaluaa."[DISP] "Voit myös saada rahaajota saattaa tarvita.Rahaa ei lasketa esineeksi, sitä voi olla niin paljon kuinhaluaa."[DISP]
ClrText ClrText
"Ole tarkkana esinei- desi kanssa! Peli voipäättyä jos sinulla ei ole tarvittavaa esinettä."[DISP] "Ole tarkkana esinei- desi kanssa! Peli voipäättyä jos sinulla ei ole tarvittavaa esinettä."[DISP]
ClrText ClrText
"Esineitä voi myös tiputtaa. Tiputettujaesineitä ei saa ta- kaisin."[DISP] "Esineitä voi myös tiputtaa. Tiputettujaesineitä ei saa ta- kaisin."[DISP]
Goto 9 Goto 9

View file

@ -1,7 +1,7 @@
Filename:MN-IDROP Filename:MN-IDROP
ClrText ClrText
If Mat M[L,S]=0 If Mat M[L,S]=0
Then "Sinulla ei ole esi- nettä numerolla !" Then "Sinulla ei ole esi- nettä numerolla !"
Locate 17,2,L[DISP] Locate 17,2,L[DISP]
Return Return
Else 0->Mat M[L,S] Else 0->Mat M[L,S]

View file

@ -11,7 +11,7 @@ Then A->S
If Mat M[11,S]=1 If Mat M[11,S]=1
Then Prog "MN-GAMEC" Then Prog "MN-GAMEC"
Else ClrText Else ClrText
"Tässä muistipaikassa ei ole tallennettua peliä."[DISP] "Tässä muistipaikassa ei ole tallennettua peliä."[DISP]
Goto 1 Goto 1
IfEnd IfEnd
Return Return

View file

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

View file

@ -4,29 +4,29 @@ ClrText
""[DISP] ""[DISP]
""[DISP] ""[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] "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 ClrText
"Kahvikone on kaatunutkumoon, lattia lai- nehtii lattea. -Onko täällä ketään?!Huutosi kaikuu pit- kään. Ei vastausta."[DISP] "Kahvikone on kaatunutkumoon, lattia lai- nehtii lattea. -Onko täällä ketään?!Huutosi kaikuu pit- kään. Ei vastausta."[DISP]
ClrText ClrText
"Lähdet takaisin oman toimistosi suuntaan. Ympärilläsi näet vaintyhjiä huoneita. Vie-lä äsken kaikki ne olivat täynnä."[DISP] "Lähdet takaisin oman toimistosi suuntaan. Ympärilläsi näet vaintyhjiä huoneita. Vie-lä äsken kaikki ne olivat täynnä."[DISP]
ClrText ClrText
"Toimistosi on kuin norsulauman jäljiltä.Paperit on heitelty ympäriinsä, hyllyt kaadettu. Aivan kuin rikoselokuvasta."[DISP] "Toimistosi on kuin norsulauman jäljiltä.Paperit on heitelty ympäriinsä, hyllyt kaadettu. Aivan kuin rikoselokuvasta."[DISP]
ClrText 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] "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 Lbl 1
17441->L 17441->L
Prog "MN-GETIF" Prog "MN-GETIF"
If A=0 If A=0
Then If F=0 Then If F=0
Then ClrText Then ClrText
"Kävelet hissille vainhuomataksesi, ettei se toimi. Huomaat maassa taskulampun."[DISP] "Kävelet hissille vainhuomataksesi, ettei se toimi. Huomaat maassa taskulampun."[DISP]
IfEnd IfEnd
ClrText ClrText
"1. Ota taskulamppu 2. Palaa takaisin toimistolle" "1. Ota taskulamppu 2. Palaa takaisin toimistolle"
1->F 1->F
Else If F=0 Else If F=0
Then ClrText Then ClrText
"Kävelet hissille vainhuomataksesi, ettei se toimi."[DISP] "Kävelet hissille vainhuomataksesi, ettei se toimi."[DISP]
1->F 1->F
IfEnd IfEnd
ClrText ClrText
@ -55,17 +55,17 @@ Then Goto 3
IfEnd IfEnd
If Mat M[L,S]=17441 If Mat M[L,S]=17441
Then ClrText Then ClrText
"Lamppu ei nyt auta tässä tilanteessa."[DISP] "Lamppu ei nyt auta tässä tilanteessa."[DISP]
Goto 1 Goto 1
IfEnd IfEnd
IfEnd IfEnd
Goto 1 Goto 1
Lbl 2 Lbl 2
ClrText ClrText
"Lähdet takaisin toi- mistoasi kohti. Juuriovella kuulet kovaa jyrinää, ja katosta irronnut lohkare murskaa ruumiisi."[DISP] "Lähdet takaisin toi- mistoasi kohti. Juuriovella kuulet kovaa jyrinää, ja katosta irronnut lohkare murskaa ruumiisi."[DISP]
999->W 999->W
Return Return
Lbl 3 Lbl 3
ClrText ClrText
"Uskollinen Fiskarsisiantaa hissinkutsumis-napille napakan mä- jäyksen. Ja, ihme kyllä, hissi alkaa kulkea!"[DISP] "Uskollinen Fiskarsisiantaa hissinkutsumis-napille napakan mä- jäyksen. Ja, ihme kyllä, hissi alkaa kulkea!"[DISP]
ClrText ClrText

View file

@ -1,9 +1,9 @@
Filename:MN-LVLWO Filename:MN-LVLWO
Lbl 2 Lbl 2
ClrText ClrText
"Tee töitä hakkaamallanappeja. Saat rahaa sen mukaan kuinka paljon jaksat napu- tella tietyssä aika- määrässä."[DISP] "Tee töitä hakkaamallanappeja. Saat rahaa sen mukaan kuinka paljon jaksat napu- tella tietyssä aika- määrässä."[DISP]
ClrText ClrText
"Pitämällä nappia poh-jassa ei voi huijata;joka kerta pitää pai-naa eri nappia. Aika lähtee heti, ole val-miina!"[DISP] "Pitämällä nappia poh-jassa ei voi huijata;joka kerta pitää pai-naa eri nappia. Aika lähtee heti, ole val-miina!"[DISP]
ClrText ClrText
0->R 0->R
0->L 0->L

View file

@ -3,7 +3,7 @@ ClrText
"Huomio! Uuden pelin aloittaminen poistaa vanhan tallenteen."[DISP] "Huomio! Uuden pelin aloittaminen poistaa vanhan tallenteen."[DISP]
Lbl 2 Lbl 2
ClrText ClrText
"Uusi peli muistipaik-kaan..? [1-6] Muistipaikat 0 Ei uutta peliä" "Uusi peli muistipaik-kaan..? [1-6] Muistipaikat 0 Ei uutta peliä"
?->A ?->A
If A=0 If A=0
Then Return Then Return

View file

@ -1,14 +1,3 @@
Filename:MTRXCLR ???
Locate 1,1,"111111111111111111111"Ù
Locate 1,2,"222222222222222222222"Ù This file seems to be broken for some reason. No idea what it contained originally.
Locate 1,3,"333333333333333333333"Ù
Locate 1,4,"444444444444444444444"Ù
Locate 1,5,"555555555555555555555"Ù
Locate 1,6,"666666666666666666666"Ù
Locate 1,7,"777777777777777777777"Ù
0ãLÙ
DoÙ
L+1ãLÙ
Int (Ran#À7)+1ãQÙ
Locate 1,Q,"AREYOUSURETHISLINEISS"Ù
LpWhile L<7