\r
DEFINT A-Z\r
DIM SHARED graphicsMode\r
-DIM SHARED uun(1 TO 20) AS STRING * 31\r
+DIM SHARED asciiLevelData(1 TO 20) AS STRING * 31\r
DIM SHARED siib, siia, siib1, siia1\r
DIM SHARED elu, raha\r
DIM SHARED uks1, uks2, uks3, uks4\r
NEXT b1\r
NEXT a1\r
FOR a = 1 TO 10\r
-uun(a) = ""\r
+asciiLevelData(a) = ""\r
NEXT a\r
CLS\r
LOCATE 3, 10\r
SELECT CASE y\r
CASE 1\r
-uun(1) = " mmm"\r
-uun(2) = " - m mm"\r
-uun(3) = " . - mmm"\r
-uun(4) = "o . . mymm"\r
-uun(5) = "o -mmm"\r
-uun(6) = "o t mxmm"\r
-uun(7) = "o mmm"\r
-uun(8) = "o 1 1 "\r
-uun(9) = "o p p 1 1 1"\r
-uun(10) = "mmmmmmmmmmmmmmmm"\r
+asciiLevelData(1) = " mmm"\r
+asciiLevelData(2) = " - m mm"\r
+asciiLevelData(3) = " . - mmm"\r
+asciiLevelData(4) = "o . . mymm"\r
+asciiLevelData(5) = "o -mmm"\r
+asciiLevelData(6) = "o t mxmm"\r
+asciiLevelData(7) = "o mmm"\r
+asciiLevelData(8) = "o 1 1 "\r
+asciiLevelData(9) = "o p p 1 1 1"\r
+asciiLevelData(10) = "mmmmmmmmmmmmmmmm"\r
graphicsMode = 1\r
CASE 2\r
-uun(1) = "mmmmmmmmmmmmmmmm"\r
-uun(2) = "mm h h "\r
-uun(3) = "mmx m mmmymmm"\r
-uun(4) = "mmommmmmm mom m"\r
-uun(5) = "mo 1 1 1 o1m1m"\r
-uun(6) = "momm m m m m111m"\r
-uun(7) = "m h mmmmoom"\r
-uun(8) = " mm h m"\r
-uun(9) = " v mmm mm"\r
-uun(10) = "mmmmmmmmmmmmmmmm"\r
+asciiLevelData(1) = "mmmmmmmmmmmmmmmm"\r
+asciiLevelData(2) = "mm h h "\r
+asciiLevelData(3) = "mmx m mmmymmm"\r
+asciiLevelData(4) = "mmommmmmm mom m"\r
+asciiLevelData(5) = "mo 1 1 1 o1m1m"\r
+asciiLevelData(6) = "momm m m m m111m"\r
+asciiLevelData(7) = "m h mmmmoom"\r
+asciiLevelData(8) = " mm h m"\r
+asciiLevelData(9) = " v mmm mm"\r
+asciiLevelData(10) = "mmmmmmmmmmmmmmmm"\r
CASE 3\r
-uun(1) = "mmmmmmmmmmmmmmmm"\r
-uun(2) = " h h h h h ym11"\r
-uun(3) = "mm mmmmmmmmmmm1m"\r
-uun(4) = "m h m xm "\r
-uun(5) = "mm m m mmmmmmmmm"\r
-uun(6) = "mmmm m1m "\r
-uun(7) = "m h m1moo m"\r
-uun(8) = "m mmmmmm m1moomm"\r
-uun(9) = "m 11111m h h "\r
-uun(10) = "mmmmmmmmmmmmmmmm"\r
+asciiLevelData(1) = "mmmmmmmmmmmmmmmm"\r
+asciiLevelData(2) = " h h h h h ym11"\r
+asciiLevelData(3) = "mm mmmmmmmmmmm1m"\r
+asciiLevelData(4) = "m h m xm "\r
+asciiLevelData(5) = "mm m m mmmmmmmmm"\r
+asciiLevelData(6) = "mmmm m1m "\r
+asciiLevelData(7) = "m h m1moo m"\r
+asciiLevelData(8) = "m mmmmmm m1moomm"\r
+asciiLevelData(9) = "m 11111m h h "\r
+asciiLevelData(10) = "mmmmmmmmmmmmmmmm"\r
CASE 4\r
-uun(1) = "mmmmmmmmmmmmmmmm"\r
-uun(2) = " h1 h1 m"\r
-uun(3) = "mmm 1 11 1 o1m"\r
-uun(4) = " m 1 oo 1o1m"\r
-uun(5) = "m moo oo1m"\r
-uun(6) = " m h o "\r
-uun(7) = "mmm h o "\r
-uun(8) = "m o "\r
-uun(9) = " x oy "\r
-uun(10) = "mmmmmmmmmmmmmmmm"\r
+asciiLevelData(1) = "mmmmmmmmmmmmmmmm"\r
+asciiLevelData(2) = " h1 h1 m"\r
+asciiLevelData(3) = "mmm 1 11 1 o1m"\r
+asciiLevelData(4) = " m 1 oo 1o1m"\r
+asciiLevelData(5) = "m moo oo1m"\r
+asciiLevelData(6) = " m h o "\r
+asciiLevelData(7) = "mmm h o "\r
+asciiLevelData(8) = "m o "\r
+asciiLevelData(9) = " x oy "\r
+asciiLevelData(10) = "mmmmmmmmmmmmmmmm"\r
CASE 5\r
-uun(1) = "m . y - "\r
-uun(2) = "m m moo"\r
-uun(3) = "m. mxm mmo"\r
-uun(4) = "m - m mmmmmm"\r
-uun(5) = "m . m mm "\r
-uun(6) = "mt o o m "\r
-uun(7) = "m o om o ooo "\r
-uun(8) = "m ooooooooooo "\r
-uun(9) = " v o "\r
-uun(10) = "oooooooooooooooo"\r
+asciiLevelData(1) = "m . y - "\r
+asciiLevelData(2) = "m m moo"\r
+asciiLevelData(3) = "m. mxm mmo"\r
+asciiLevelData(4) = "m - m mmmmmm"\r
+asciiLevelData(5) = "m . m mm "\r
+asciiLevelData(6) = "mt o o m "\r
+asciiLevelData(7) = "m o om o ooo "\r
+asciiLevelData(8) = "m ooooooooooo "\r
+asciiLevelData(9) = " v o "\r
+asciiLevelData(10) = "oooooooooooooooo"\r
CASE 6\r
CLS\r
-uun(1) = " - "\r
-uun(2) = " . "\r
-uun(3) = " oo- oo "\r
-uun(4) = " - 11 11 ."\r
-uun(5) = " oo oo "\r
-uun(6) = " m ym11 11 "\r
-uun(7) = " m m "\r
-uun(8) = " ooom <> <> "\r
-uun(9) = " xmmm mmm"\r
-uun(10) = "mmmmmmmmmmm mmm"\r
+asciiLevelData(1) = " - "\r
+asciiLevelData(2) = " . "\r
+asciiLevelData(3) = " oo- oo "\r
+asciiLevelData(4) = " - 11 11 ."\r
+asciiLevelData(5) = " oo oo "\r
+asciiLevelData(6) = " m ym11 11 "\r
+asciiLevelData(7) = " m m "\r
+asciiLevelData(8) = " ooom <> <> "\r
+asciiLevelData(9) = " xmmm mmm"\r
+asciiLevelData(10) = "mmmmmmmmmmm mmm"\r
CASE 7\r
-uun(1) = " oooo "\r
-uun(2) = " o111 . "\r
-uun(3) = " oooo> >>>>>>"\r
-uun(4) = " . x v m"\r
-uun(5) = " mym m"\r
-uun(6) = " m m"\r
-uun(7) = " 111m"\r
-uun(8) = " 111m"\r
-uun(9) = " v p "\r
-uun(10) = "oooaaaaaaaaaoooo"\r
+asciiLevelData(1) = " oooo "\r
+asciiLevelData(2) = " o111 . "\r
+asciiLevelData(3) = " oooo> >>>>>>"\r
+asciiLevelData(4) = " . x v m"\r
+asciiLevelData(5) = " mym m"\r
+asciiLevelData(6) = " m m"\r
+asciiLevelData(7) = " 111m"\r
+asciiLevelData(8) = " 111m"\r
+asciiLevelData(9) = " v p "\r
+asciiLevelData(10) = "oooaaaaaaaaaoooo"\r
CASE 8\r
-uun(1) = " . o"\r
-uun(2) = " . mm o"\r
-uun(3) = ". ommm t o"\r
-uun(4) = " mom mm o"\r
-uun(5) = " pmmoyxmmm o"\r
-uun(6) = " mmmomammmm m"\r
-uun(7) = "p mmmmv mmmm "\r
-uun(8) = "mmmmmmmmm mmmmmm"\r
-uun(9) = " "\r
-uun(10) = ">>>>>>>>>>>>>>>>"\r
+asciiLevelData(1) = " . o"\r
+asciiLevelData(2) = " . mm o"\r
+asciiLevelData(3) = ". ommm t o"\r
+asciiLevelData(4) = " mom mm o"\r
+asciiLevelData(5) = " pmmoyxmmm o"\r
+asciiLevelData(6) = " mmmomammmm m"\r
+asciiLevelData(7) = "p mmmmv mmmm "\r
+asciiLevelData(8) = "mmmmmmmmm mmmmmm"\r
+asciiLevelData(9) = " "\r
+asciiLevelData(10) = ">>>>>>>>>>>>>>>>"\r
maa = maa + 1\r
CASE 10\r
-uun(1) = "m. - m"\r
-uun(2) = "m . m"\r
-uun(3) = "m 111 - m"\r
-uun(4) = "mmmmm>>> ammm"\r
-uun(5) = "a a m"\r
-uun(6) = "mmm t a m"\r
-uun(7) = " ma m"\r
-uun(8) = ">>> a m"\r
-uun(9) = " m yx m m"\r
-uun(10) = ">>>mmmmmmmmmmm m"\r
+asciiLevelData(1) = "m. - m"\r
+asciiLevelData(2) = "m . m"\r
+asciiLevelData(3) = "m 111 - m"\r
+asciiLevelData(4) = "mmmmm>>> ammm"\r
+asciiLevelData(5) = "a a m"\r
+asciiLevelData(6) = "mmm t a m"\r
+asciiLevelData(7) = " ma m"\r
+asciiLevelData(8) = ">>> a m"\r
+asciiLevelData(9) = " m yx m m"\r
+asciiLevelData(10) = ">>>mmmmmmmmmmm m"\r
CASE 9\r
-uun(1) = "mammmmmmmmmmmmm "\r
-uun(2) = "m1m y xmo "\r
-uun(3) = "mamooo>>>a>am om"\r
-uun(4) = "m1m m1mamo m"\r
-uun(5) = "mamm m1mam om"\r
-uun(6) = "m1m mm1mamo m"\r
-uun(7) = "mammm m1ma om"\r
-uun(8) = "m1m mmm1ma o m"\r
-uun(9) = "m amam om"\r
-uun(10) = "mmmmmmmm<mmammmm"\r
+asciiLevelData(1) = "mammmmmmmmmmmmm "\r
+asciiLevelData(2) = "m1m y xmo "\r
+asciiLevelData(3) = "mamooo>>>a>am om"\r
+asciiLevelData(4) = "m1m m1mamo m"\r
+asciiLevelData(5) = "mamm m1mam om"\r
+asciiLevelData(6) = "m1m mm1mamo m"\r
+asciiLevelData(7) = "mammm m1ma om"\r
+asciiLevelData(8) = "m1m mmm1ma o m"\r
+asciiLevelData(9) = "m amam om"\r
+asciiLevelData(10) = "mmmmmmmm<mmammmm"\r
maa = maa + 2\r
CASE 11\r
-uun(1) = ">>>>>>>>>>>>>>><"\r
-uun(2) = "> <x <"\r
-uun(3) = "> < >> <"\r
-uun(4) = "> <y>>>>>>> <"\r
-uun(5) = "> < < <<<"\r
-
uun(6) = "> <<<<a<< << < >"
\r-uun(7) = "> < < < "\r
-uun(8) = "> <m >m>>m < >"\r
-uun(9) = "> <"\r
-uun(10) = ">>>>m<<<<<<<<mm<"\r
+asciiLevelData(1) = ">>>>>>>>>>>>>>><"\r
+asciiLevelData(2) = "> <x <"\r
+asciiLevelData(3) = "> < >> <"\r
+asciiLevelData(4) = "> <y>>>>>>> <"\r
+asciiLevelData(5) = "> < < <<<"\r
+
asciiLevelData(6) = "> <<<<a<< << < >"
\r+asciiLevelData(7) = "> < < < "\r
+asciiLevelData(8) = "> <m >m>>m < >"\r
+asciiLevelData(9) = "> <"\r
+asciiLevelData(10) = ">>>>m<<<<<<<<mm<"\r
maa = maa + 2\r
CASE 12\r
-uun(1) = "m aaaaaaaaam"\r
-uun(2) = "m - xmm"\r
-uun(3) = "m t. ym 1"\r
-uun(4) = "m . moom"\r
-uun(5) = "m am 1"\r
-uun(6) = "m mamomm"\r
-uun(7) = "m - mmam 1"\r
-uun(8) = "m mmmamomm"\r
-uun(9) = "m p p mm 1"\r
-uun(10) = "mmmmmmmmmammmm<<"\r
+asciiLevelData(1) = "m aaaaaaaaam"\r
+asciiLevelData(2) = "m - xmm"\r
+asciiLevelData(3) = "m t. ym 1"\r
+asciiLevelData(4) = "m . moom"\r
+asciiLevelData(5) = "m am 1"\r
+asciiLevelData(6) = "m mamomm"\r
+asciiLevelData(7) = "m - mmam 1"\r
+asciiLevelData(8) = "m mmmamomm"\r
+asciiLevelData(9) = "m p p mm 1"\r
+asciiLevelData(10) = "mmmmmmmmmammmm<<"\r
CASE 13\r
-uun(1) = "mmmmmmmmmmmmmmmm"\r
-uun(2) = "m m m"\r
-uun(3) = " ma 1a1a1a m"\r
-uun(4) = "mmma aaaaaaaam m"\r
-uun(5) = "11maaaaaaaaaam m"\r
-uun(6) = "mmmaaaaaaaaaam m"\r
-uun(7) = "11x ym m"\r
-uun(8) = "mmmmmmmmmmmmmm m"\r
-uun(9) = " m"\r
-uun(10) = "mmmmmmmmmmmmmmmm"\r
+asciiLevelData(1) = "mmmmmmmmmmmmmmmm"\r
+asciiLevelData(2) = "m m m"\r
+asciiLevelData(3) = " ma 1a1a1a m"\r
+asciiLevelData(4) = "mmma aaaaaaaam m"\r
+asciiLevelData(5) = "11maaaaaaaaaam m"\r
+asciiLevelData(6) = "mmmaaaaaaaaaam m"\r
+asciiLevelData(7) = "11x ym m"\r
+asciiLevelData(8) = "mmmmmmmmmmmmmm m"\r
+asciiLevelData(9) = " m"\r
+asciiLevelData(10) = "mmmmmmmmmmmmmmmm"\r
CASE 14\r
-uun(1) = "mmmmmmmmm- "\r
-uun(2) = "mm mmmmmmm - "\r
-uun(3) = "mm m "\r
-uun(4) = "mm >>>>> m - "\r
-uun(5) = "mmv m m ."\r
-uun(6) = ">><< m <<m - "\r
-uun(7) = "11 m m m . "\r
-uun(8) = ">> m m m xy "\r
-uun(9) = "mm vm v "\r
-uun(10) = "mm>><m>>>>>mmmmm"\r
+asciiLevelData(1) = "mmmmmmmmm- "\r
+asciiLevelData(2) = "mm mmmmmmm - "\r
+asciiLevelData(3) = "mm m "\r
+asciiLevelData(4) = "mm >>>>> m - "\r
+asciiLevelData(5) = "mmv m m ."\r
+asciiLevelData(6) = ">><< m <<m - "\r
+asciiLevelData(7) = "11 m m m . "\r
+asciiLevelData(8) = ">> m m m xy "\r
+asciiLevelData(9) = "mm vm v "\r
+asciiLevelData(10) = "mm>><m>>>>>mmmmm"\r
CASE 15\r
CLS\r
-uun(1) = " m m"\r
-uun(2) = "mm ymmmmmmmmmaaa"\r
-uun(3) = "<<oo 1111maaa"\r
-uun(4) = " <<111maaa"\r
-uun(5) = "<<m< m11maaa"\r
-uun(6) = " t oomm aaa"\r
-uun(7) = " vo mm1m"\r
-uun(8) = " mm<<<mm1m"\r
-uun(9) = " m x <<mmmmm11"\r
-uun(10) = "mmmmmmmmmmmmmmmm"\r
+asciiLevelData(1) = " m m"\r
+asciiLevelData(2) = "mm ymmmmmmmmmaaa"\r
+asciiLevelData(3) = "<<oo 1111maaa"\r
+asciiLevelData(4) = " <<111maaa"\r
+asciiLevelData(5) = "<<m< m11maaa"\r
+asciiLevelData(6) = " t oomm aaa"\r
+asciiLevelData(7) = " vo mm1m"\r
+asciiLevelData(8) = " mm<<<mm1m"\r
+asciiLevelData(9) = " m x <<mmmmm11"\r
+asciiLevelData(10) = "mmmmmmmmmmmmmmmm"\r
graphicsMode = 1\r
CASE 16\r
-uun(1) = "m11 aa m 11111 m"\r
-uun(2) = "m11 a a a < m"\r
-uun(3) = "m11 >aam v t a m"\r
-uun(4) = "m11om y o a am"\r
-uun(5) = "m11 oooo t m"\r
-uun(6) = ">>>om p p m m"\r
-uun(7) = "m mmm mamamom mm m"\r
-uun(8) = "m v mmmmm mam 11m mmmmmm m"\r
-uun(9) = "m mmmmmmmmm mam 1mm mm m"\r
-uun(10) = "mm m1 m mam111m m m"\r
-uun(11) = "m m o m mam vm m"\r
-uun(12) = "m m m1111m vmammmmm m m"\r
-uun(13) = "m m mmmmm 11 "\r
-uun(14) = "mmmmmm m mamammmmm mm"\r
-uun(15) = "m m mam1111m m >m"\r
-uun(16) = "m m m1m111m m m"\r
-uun(17) = " m mammmm mm>>> <<<>>m"\r
-uun(18) = " m m x m m m "\r
-uun(19) = "mmmmm mmmmmmm mmm mm"\r
+asciiLevelData(1) = "m11 aa m 11111 m"\r
+asciiLevelData(2) = "m11 a a a < m"\r
+asciiLevelData(3) = "m11 >aam v t a m"\r
+asciiLevelData(4) = "m11om y o a am"\r
+asciiLevelData(5) = "m11 oooo t m"\r
+asciiLevelData(6) = ">>>om p p m m"\r
+asciiLevelData(7) = "m mmm mamamom mm m"\r
+asciiLevelData(8) = "m v mmmmm mam 11m mmmmmm m"\r
+asciiLevelData(9) = "m mmmmmmmmm mam 1mm mm m"\r
+asciiLevelData(10) = "mm m1 m mam111m m m"\r
+asciiLevelData(11) = "m m o m mam vm m"\r
+asciiLevelData(12) = "m m m1111m vmammmmm m m"\r
+asciiLevelData(13) = "m m mmmmm 11 "\r
+asciiLevelData(14) = "mmmmmm m mamammmmm mm"\r
+asciiLevelData(15) = "m m mam1111m m >m"\r
+asciiLevelData(16) = "m m m1m111m m m"\r
+asciiLevelData(17) = " m mammmm mm>>> <<<>>m"\r
+asciiLevelData(18) = " m m x m m m "\r
+asciiLevelData(19) = "mmmmm mmmmmmm mmm mm"\r
graphicsMode = 2\r
CASE 17\r
-uun(1) = "mu 1111 m"\r
-
uun(2) = "mmmmmmm <<<<am"
\r-uun(3) = "m m a mam"\r
-uun(4) = "m m y m1m"\r
-uun(5) = "m mm <xmam"\r
-uun(6) = " m <<<<m1m"\r
-uun(7) = " m ma1"\r
-uun(8) = "mmmm m <<mmm"\r
-uun(9) = "m111 vU m "\r
-uun(10) = "mmmmmmmaamaaam "\r
+asciiLevelData(1) = "mu 1111 m"\r
+
asciiLevelData(2) = "mmmmmmm <<<<am"
\r+asciiLevelData(3) = "m m a mam"\r
+asciiLevelData(4) = "m m y m1m"\r
+asciiLevelData(5) = "m mm <xmam"\r
+asciiLevelData(6) = " m <<<<m1m"\r
+asciiLevelData(7) = " m ma1"\r
+asciiLevelData(8) = "mmmm m <<mmm"\r
+asciiLevelData(9) = "m111 vU m "\r
+asciiLevelData(10) = "mmmmmmmaamaaam "\r
graphicsMode = 1\r
CASE 18\r
-uun(1) = "oo m "\r
-uun(2) = "oo h h m "\r
-uun(3) = "oo x m h m>>>>>"\r
-uun(4) = "oo m11111111m m mm m"\r
-uun(5) = "oo m11111111m m mm h m m"\r
-uun(6) = "oo mmmmmmmmmm m m vm m"\r
-uun(7) = "oo mm mmmmmmm m"\r
-uun(8) = " v m"\r
-uun(9) = "mom mmmmmm v m"\r
-uun(10) = "m m m mmmmmm mm h h m"\r
-uun(11) = "m m"\r
-uun(12) = "m <<<<<<<<<<<<<<<<<<<<<<<<<<< m"\r
-uun(13) = "mam m"\r
-uun(14) = "mammooooommaaammm maaaaavm"\r
-uun(15) = "mam oo a ma m111111m"\r
-uun(16) = "mam oo <<< h mh h mma<>amm"\r
-uun(17) = "mam moom << m"\r
-uun(18) = "my mm m m m"\r
-uun(19) = "mmmmmmmmmmmm<<mmmaaaaammmmmmmmm"\r
+asciiLevelData(1) = "oo m "\r
+asciiLevelData(2) = "oo h h m "\r
+asciiLevelData(3) = "oo x m h m>>>>>"\r
+asciiLevelData(4) = "oo m11111111m m mm m"\r
+asciiLevelData(5) = "oo m11111111m m mm h m m"\r
+asciiLevelData(6) = "oo mmmmmmmmmm m m vm m"\r
+asciiLevelData(7) = "oo mm mmmmmmm m"\r
+asciiLevelData(8) = " v m"\r
+asciiLevelData(9) = "mom mmmmmm v m"\r
+asciiLevelData(10) = "m m m mmmmmm mm h h m"\r
+asciiLevelData(11) = "m m"\r
+asciiLevelData(12) = "m <<<<<<<<<<<<<<<<<<<<<<<<<<< m"\r
+asciiLevelData(13) = "mam m"\r
+asciiLevelData(14) = "mammooooommaaammm maaaaavm"\r
+asciiLevelData(15) = "mam oo a ma m111111m"\r
+asciiLevelData(16) = "mam oo <<< h mh h mma<>amm"\r
+asciiLevelData(17) = "mam moom << m"\r
+asciiLevelData(18) = "my mm m m m"\r
+asciiLevelData(19) = "mmmmmmmmmmmm<<mmmaaaaammmmmmmmm"\r
graphicsMode = 2\r
CASE 19\r
CLS\r
END\r
END\r
CASE 100\r
-uun(1) = " "\r
-uun(2) = " "\r
-uun(3) = " "\r
-uun(4) = " "\r
-uun(5) = " "\r
-uun(6) = " "\r
-uun(7) = " "\r
-uun(8) = " "\r
-uun(9) = " "\r
-uun(10) = " "\r
+asciiLevelData(1) = " "\r
+asciiLevelData(2) = " "\r
+asciiLevelData(3) = " "\r
+asciiLevelData(4) = " "\r
+asciiLevelData(5) = " "\r
+asciiLevelData(6) = " "\r
+asciiLevelData(7) = " "\r
+asciiLevelData(8) = " "\r
+asciiLevelData(9) = " "\r
+asciiLevelData(10) = " "\r
CASE 101\r
-uun(1) = " "\r
-uun(2) = " "\r
-uun(3) = " "\r
-uun(4) = " "\r
-uun(5) = " "\r
-uun(6) = " "\r
-uun(7) = " "\r
-uun(8) = " "\r
-uun(9) = " "\r
-uun(10) = " "\r
-uun(11) = " "\r
-uun(12) = " "\r
-uun(13) = " "\r
-uun(14) = " "\r
-uun(15) = " "\r
-uun(16) = " "\r
-uun(17) = " "\r
-uun(18) = " "\r
-uun(19) = " "\r
+asciiLevelData(1) = " "\r
+asciiLevelData(2) = " "\r
+asciiLevelData(3) = " "\r
+asciiLevelData(4) = " "\r
+asciiLevelData(5) = " "\r
+asciiLevelData(6) = " "\r
+asciiLevelData(7) = " "\r
+asciiLevelData(8) = " "\r
+asciiLevelData(9) = " "\r
+asciiLevelData(10) = " "\r
+asciiLevelData(11) = " "\r
+asciiLevelData(12) = " "\r
+asciiLevelData(13) = " "\r
+asciiLevelData(14) = " "\r
+asciiLevelData(15) = " "\r
+asciiLevelData(16) = " "\r
+asciiLevelData(17) = " "\r
+asciiLevelData(18) = " "\r
+asciiLevelData(19) = " "\r
graphicsMode = 2\r
\r
END SELECT\r
IF graphicsMode = 2 THEN GOTO 124\r
FOR e = 0 TO 9\r
FOR D = 0 TO 15\r
-q$ = RIGHT$(LEFT$(uun(e + 1), D + 1), 1)\r
+q$ = RIGHT$(LEFT$(asciiLevelData(e + 1), D + 1), 1)\r
IF q$ = "m" THEN PUT (D * 20, e * 20), ruut, PSET: asend(D + 1, e + 1) = "z"\r
IF q$ = "o" THEN PUT (D * 20, e * 20), kast, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "o"\r
IF q$ = "." THEN PUT (D * 20, e * 20), taht, PSET\r
124\r
FOR e = 0 TO 19\r
FOR D = 0 TO 30\r
-q$ = RIGHT$(LEFT$(uun(e + 1), D + 1), 1)\r
+q$ = RIGHT$(LEFT$(asciiLevelData(e + 1), D + 1), 1)\r
IF q$ = "m" THEN PUT (D * 10, e * 10), ruutm, PSET: asend(D + 1, e + 1) = "z"\r
IF q$ = "o" THEN PUT (D * 10, e * 10), kastm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "o"\r
IF q$ = "." THEN PUT (D * 10, e * 10), tahtm, PSET\r
projects / qbasicapps.git / commitdiff