-' Pomppu Paavo, 1998\r
-' By: Svjatoslav Agejenko\r
-' at least 8 MHz 8086 CPU\r
-' & CGA video card is required\r
+' Pomppu Paavo\r
+'\r
+' This program is free software: released under Creative Commons Zero (CC0) license\r
+' by Svjatoslav Agejenko.\r
+' Email: svjatoslav@svjatoslav.eu\r
+' Homepage: http://www.svjatoslav.eu\r
+'\r
+' Changelog:\r
+' 1998, Initial version\r
+' 2025, Improved program readability\r
+\r
\r
-DECLARE SUB norm (nrm%)\r
DECLARE SUB displayGameStats ()\r
-DEFINT A-Z\r
DECLARE SUB loadLevel (y%)\r
DECLARE SUB drawSprite (p%, o%, m%, fr%, teler%)\r
-DECLARE SUB wiew (r$, a%, b%)\r
-DECLARE SUB joonist ()\r
-DECLARE SUB save (y$)\r
-DIM SHARED voolual\r
+\r
+DEFINT A-Z\r
+DIM SHARED graphicsMode\r
DIM SHARED uun(1 TO 20) AS STRING * 31\r
DIM SHARED siib, siia, siib1, siia1\r
DIM SHARED elu, raha\r
6\r
WHILE kbd$ = ""\r
kbd$ = INKEY$\r
-IF voolual = 2 THEN b = b * 2: GOTO 106\r
+IF graphicsMode = 2 THEN b = b * 2: GOTO 106\r
IF b > 0 THEN GET (a, b)-(a + 20, b + 20), mar1\r
IF b > 0 THEN IF sipp = 1 THEN PUT (a, b), sipp1, OR\r
IF b > 0 THEN IF sipp = 2 THEN PUT (a, b), sipp2, OR\r
a = a + eda\r
b = b + all\r
IF a > 297 THEN a = 2: maa = maa + 1: loadLevel maa: siie = 1: siie1 = 1\r
-IF a < 1 THEN a = 296: IF maa = 1 THEN loadLevel maa: ELSE maa = maa - 1: loadLevel maa: IF voolual = 2 THEN a = 594\r
+IF a < 1 THEN a = 296: IF maa = 1 THEN loadLevel maa: ELSE maa = maa - 1: loadLevel maa: IF graphicsMode = 2 THEN a = 594\r
IF b > 179 THEN elu = elu - 1: displayGameStats: maa = maa - 1: loadLevel maa: b = 100: a = 2: displayGameStats\r
IF asend((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 10: b = uks4: eda = 0\r
IF asend((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 10: b = uks2: eda = 0\r
106\r
WHILE kbd$ = ""\r
kbd$ = INKEY$\r
-IF voolual = 1 THEN b = b / 2: GOTO 6\r
+IF graphicsMode = 1 THEN b = b / 2: GOTO 6\r
IF b > 0 THEN GET (a \ 2, b \ 2)-((a + 20) \ 2, (b + 20) \ 2), marm1\r
IF b > 0 THEN IF sipp = 1 THEN PUT (a \ 2, b \ 2), sippm1, OR\r
IF b > 0 THEN IF sipp = 2 THEN PUT (a \ 2, b \ 2), sippm2, OR\r
a = a + eda\r
b = b + all\r
IF a > 594 THEN a = 2: maa = maa + 1: loadLevel maa: siie = 1: siie1 = 1\r
-IF a < 1 THEN a = 594: IF maa = 1 THEN loadLevel maa: ELSE maa = maa - 1: loadLevel maa: IF voolual = 1 THEN a = 297\r
+IF a < 1 THEN a = 594: IF maa = 1 THEN loadLevel maa: ELSE maa = maa - 1: loadLevel maa: IF graphicsMode = 1 THEN a = 297\r
IF b > 358 THEN elu = elu - 1: displayGameStats: maa = maa - 1: loadLevel maa: b = 100: a = 2: displayGameStats\r
IF asend((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 5: b = uks4: eda = 0\r
IF asend((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 5: b = uks2: eda = 0\r
\r
SUB displayGameStats\r
LOCATE 1, 1\r
-IF voolual = 2 THEN GOTO 12\r
+IF graphicsMode = 2 THEN GOTO 12\r
PRINT " "\r
IF raha > 9 THEN raha = 0: elu = elu + 1\r
LOCATE 1, 1\r
IF elu < 0 THEN END\r
END SUB\r
\r
-SUB loadLevel (y)\r
-125\r
-siia = 0\r
-siib = 0\r
-aiia1 = 0\r
-siib1 = 0\r
-FOR a1 = 1 TO 32\r
-FOR b1 = 1 TO 20\r
-asend(a1, b1) = ""\r
-asend1(a1, b1) = ""\r
-NEXT b1\r
-NEXT a1\r
-FOR a = 1 TO 10\r
-uun(a) = ""\r
-NEXT a\r
-CLS\r
-LOCATE 3, 10\r
-SELECT CASE y\r
+SUB drawSprite (p, o, m, fr, teler)\r
+DIM ao(1 TO 100) AS STRING\r
+SELECT CASE m\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
-voolual = 1\r
+ao(1) = "00000000000000000000"\r
+ao(2) = "00111111111111111100"\r
+ao(3) = "01222222222222222210"\r
+ao(4) = "01233333333333333210"\r
+ao(5) = "01232222222222223210"\r
+ao(6) = "01232111111111123210"\r
+ao(7) = "01232111111111123210"\r
+ao(8) = "01232111111111123210"\r
+ao(9) = "01232111111111123210"\r
+ao(10) = "01232111111111123210"\r
+ao(11) = "01232111111111123210"\r
+ao(12) = "01232111111111123210"\r
+ao(13) = "01232111111111123210"\r
+ao(14) = "01232111111111123210"\r
+ao(15) = "01232111111111123210"\r
+ao(16) = "01232222222222223210"\r
+ao(17) = "01233333333333333210"\r
+ao(18) = "01222222222222222210"\r
+ao(19) = "00111111111111111100"\r
+ao(20) = "00000000000000000000"\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
+ao(1) = "000000022200000222220000002222222200000000000222222000000000"\r
+ao(2) = "000000022222002222222000222222222222000000222222222220000000"\r
+ao(3) = "000000222222222222222202222222222222222222222222222222200000"\r
+ao(4) = "000000222222222222222222222333333222220222222222222221110000"\r
+ao(5) = "000000222222233333322222223333333322222222222222222221111000"\r
+ao(6) = "000000022333333333333222233333333333222233322222222221111000"\r
+ao(7) = "000002222333333333333322233333333333333333333222222221111100"\r
+ao(8) = "000222222333333333333333333333333333333333333322222221111100"\r
+ao(9) = "002222223333333333333333333333333333333333333333222221111100"\r
+ao(10) = "022223333333333333333333333333333333333333333333222221111110"\r
+ao(11) = "022233333333333333333333333333333333333333333333322222111110"\r
+ao(12) = "222333333333333333333333333333333333333333333333322222111110"\r
+ao(13) = "222333333333333333333333323333333323131113333333221221111110"\r
+ao(14) = "223333333333333333333331112233331121111133333322112211111110"\r
+ao(15) = "213333333333333333333331111133111111111111111112222111111110"\r
+ao(16) = "111333313333333333333111111122111111111111111111221111111110"\r
+ao(17) = "111333311111111333111111111111111111111111111111111111111100"\r
+ao(18) = "011111111111111111111111111111111111111111111111111111111100"\r
+ao(19) = "011111111111111111111111111111111111111111111111111111111100"\r
+ao(20) = "011111111111111111111111111111111111111111111111111111111000"\r
+ao(21) = "001111111111111111111111111111111111111111111111110111100000"\r
+ao(22) = "001111111111111100111111111111111111111111111111100000000000"\r
+ao(23) = "000111111111110000011111111111100011111111111111000000000000"\r
+ao(24) = "000011111111100000000111111111000000011111111100000000000000"\r
+ao(25) = "000001111110000000000001111110000000000000000000000000000000"\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
+ao(1) = "0000010000"\r
+ao(2) = "0000010000"\r
+ao(3) = "0000121000"\r
+ao(4) = "0000131000"\r
+ao(5) = "1111232111"\r
+ao(6) = "0123333210"\r
+ao(7) = "0123333210"\r
+ao(8) = "0012332100"\r
+ao(9) = "0001221000"\r
+ao(10) = "0012112100"\r
+ao(11) = "0121001210"\r
+ao(12) = "0110000110"\r
+ao(13) = "1100000011"\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
+ao(1) = "01111111110111111111"\r
+ao(2) = "01222222210122222221"\r
+ao(3) = "01233333210123333321"\r
+ao(4) = "01233333210123333321"\r
+ao(5) = "01233333210123333321"\r
+ao(6) = "01233333210123333321"\r
+ao(7) = "01233333210123333321"\r
+ao(8) = "01222222210122222221"\r
+ao(9) = "01111111110111111111"\r
+ao(10) = "00000000000000000000"\r
+ao(11) = "01111111110111111111"\r
+ao(12) = "01222222210122222221"\r
+ao(13) = "01233333210123333321"\r
+ao(14) = "01233333210123333321"\r
+ao(15) = "01233333210123333321"\r
+ao(16) = "01233333210123333321"\r
+ao(17) = "01233333210123333321"\r
+ao(18) = "01222222210122222221"\r
+ao(19) = "01111111110111111111"\r
+ao(20) = "00000000000000000000"\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
+ao(1) = "0000333000"\r
+ao(2) = "0033333300"\r
+ao(3) = "0332222220"\r
+ao(4) = "3322222222"\r
+ao(5) = "3222111112"\r
+ao(6) = "3111111111"\r
+ao(7) = "1111111111"\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
+ao(1) = "00111100"\r
+ao(2) = "01222210"\r
+ao(3) = "12233221"\r
+ao(4) = "12233221"\r
+ao(5) = "12233221"\r
+ao(6) = "12233221"\r
+ao(7) = "12233221"\r
+ao(8) = "12233221"\r
+ao(9) = "01222210"\r
+ao(10) = "00111100"\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
+ao(1) = "000000000000000033333300000000"\r
+ao(2) = "000000000000000333333333000000"\r
+ao(3) = "000000333300003332222222300000"\r
+ao(4) = "000003333330333322232222220000"\r
+ao(5) = "000033322333333222222222222000"\r
+ao(6) = "003332222223332222322212222200"\r
+ao(7) = "033222232222222222111211122200"\r
+ao(8) = "033222222232111111111111112220"\r
+ao(9) = "332223222111121121111111111222"\r
+ao(10) = "322222111111111111121111111111"\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
-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
+ao(1) = "0000000002222222000000000"\r
+ao(2) = "0000000222111112220000000"\r
+ao(3) = "0000002211131311122000000"\r
+ao(4) = "0000022113331133112200000"\r
+ao(5) = "0000022133331333312200000"\r
+ao(6) = "0000221133331333311220000"\r
+ao(7) = "0000221333331333331220000"\r
+ao(8) = "0000221333331333331220000"\r
+ao(9) = "0000221111111111111220000"\r
+ao(10) = "0000221333331333331220000"\r
+ao(11) = "0002211333331333331122000"\r
+ao(12) = "0002213333331333333122000"\r
+ao(13) = "0002213333331333333122000"\r
+ao(14) = "0002213333331333333122000"\r
+ao(15) = "0002213333331333333122000"\r
+ao(16) = "0002213333331333333122000"\r
+ao(17) = "0002213333331333333122000"\r
+ao(18) = "0002211111111111111122000"\r
+ao(19) = "2222222222222222222222222"\r
+ao(20) = "0222222222222222222222220"\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
-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
-maa = maa + 2\r
+ao(1) = "00000001112220000000"\r
+ao(2) = "00001112222111120000"\r
+ao(3) = "00112222111122221100"\r
+ao(4) = "02222111122221111110"\r
+ao(5) = "01111122221111122220"\r
+ao(6) = "11122221111122221111"\r
+ao(7) = "22221111122221111111"\r
+ao(8) = "21111122221111112222"\r
+ao(9) = "11222221111112222111"\r
+ao(10) = "22221111112222111111"\r
+CASE 10\r
+ao(1) = "33333333333333333333333333333333333333333333333333333333333333333333333333333333"\r
+ao(2) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
+ao(3) = "30000110000111001110011111100011111110011111100000000000000000000000000000000003"\r
+ao(4) = "30001111100111001110011111110011111110011111110000000000000000002222000000000003"\r
+ao(5) = "30011001100011001100011100110011100110011100111000000000000000222222220000000003"\r
+ao(6) = "30011000000011001100011111110011100000011100111000000000000000222222222222000003"\r
+ao(7) = "30011000000011001100011111100011100110011111110000000000000000330330330002200003"\r
+ao(8) = "30011111000011001100011100000011111110011111100000000000000000333333330000000003"\r
+ao(9) = "30001111100011001100011100000011111110011100100000000000000000332222330000000003"\r
+ao(10) = "30000001100011001100011100000011100000011100110000000000000000033333300000000003"\r
+ao(11) = "30110001100011001100011100000011100110011100111000000000000030000111000000000003"\r
+ao(12) = "30111011100011111100011100000011111110011100111000000000000331111111111000000003"\r
+ao(13) = "30111111000001111000011100000011111110011100111000000000000331111111111100000003"\r
+ao(14) = "30000000000000000000000000000000000000000000000000000000000000001111101100000003"\r
+ao(15) = "30000000000000000000000000000000000000000000000000000000000000001111101100000003"\r
+ao(16) = "30000000000000000000000000000000000000000000000000000000000000001101100000000003"\r
+ao(17) = "30000000000000000000000000000000000000000000000000000000000000011101110000000003"\r
+ao(18) = "30000000000000000000000000000000000000000000000000000000000000011101110000000003"\r
+ao(19) = "30000000000000000000000000000000000000000000000000000000000000333303330000000003"\r
+ao(20) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
+ao(21) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
+ao(22) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
+ao(23) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
+ao(24) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
+ao(25) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
+ao(26) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
+ao(27) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
+ao(28) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
+ao(29) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
+ao(30) = "33333333333333333333333333333333333333333333333333333333333333333333333333333333"\r
+CASE 11\r
+ao(1) = "00000000000111111110000000000000000000000000000000"\r
+ao(2) = "00000000011111111111000001100000000000000000000000"\r
+ao(3) = "00000000111111111111110011110000000000000000000000"\r
+ao(4) = "00000001101111111111111111111000000000000000000000"\r
+ao(5) = "00000011111111111111111111111111000000000000000000"\r
+ao(6) = "00000111111111111111111111111111000000000000000000"\r
+ao(7) = "00000111111111111111111111111111001100000000000000"\r
+ao(8) = "00000111111111111111111111111111111111100000000000"\r
+ao(9) = "00000111111111111111111111111111111111100000000000"\r
+ao(10) = "00000111111111111111111111111111111111110000000000"\r
+ao(11) = "00000111111111111111111111111111111111111000000000"\r
+ao(12) = "00000111111111111111111111111111111111111100000000"\r
+ao(13) = "00000111111111111111111111111111111111111100000000"\r
+ao(14) = "00000111111111111111111111111111111111111100000000"\r
+ao(15) = "00000111111111111111111111111111111111111100000000"\r
+ao(16) = "00000111111111111111111111111111111111111100000000"\r
+ao(17) = "00011111111111111111111111111111111111111100000000"\r
+ao(18) = "00011111111111111111111111111111111111111100000000"\r
+ao(19) = "00111111110111111111111111111111111111111100000000"\r
+ao(20) = "01110111111111111111111111111111111111111100000000"\r
+ao(21) = "11111111111111111111111111111111111111111111100000"\r
+ao(22) = "11111111111111111111111111111111111111111111100000"\r
+ao(23) = "11111111111111111111111111111111111111111111100000"\r
+ao(24) = "11111111111111111111111111111111111111111111100000"\r
+ao(25) = "11111111111111111111111111111111111111111111111110"\r
+ao(26) = "11111111111111111111111111111111111111111111110111"\r
+ao(27) = "11111111111111111111111111111111111111111111111111"\r
+ao(28) = "11011111111111111111111111111111111111111111111101"\r
+ao(29) = "11111111111111111111111111111111111111111111111111"\r
+ao(30) = "11111111111111111111111111111111111111111111111111"\r
+ao(31) = "11111111111111111111111111111111111111111111111011"\r
+ao(32) = "11111111111111111111111111111111111111111111111100"\r
+ao(33) = "11111111111111111111111111111111111111111111111000"\r
+ao(34) = "01111111111111111111111111111111111111111111110000"\r
+ao(35) = "11111111111111111111111111111111111111111110110000"\r
+ao(36) = "11111111111111111111111111111111111111111110110000"\r
+ao(37) = "11111111111111111111111111111111111111111111110000"\r
+ao(38) = "01111111111111111111111111111111111111111111110000"\r
+ao(39) = "01111111111111111111111111111111111111111111110000"\r
+ao(40) = "00011111111111111111111111111111111111111111100000"\r
+ao(41) = "00111111111111111111111111111111111111111111100000"\r
+ao(42) = "00011111111111111111111111111111111111111111110000"\r
+ao(43) = "00001111111111111111111111111111111111111111110000"\r
+ao(44) = "00001111111111111111111111111111111111111111111000"\r
+ao(45) = "0000110111111111111111111111111111111111111111100"\r
+ao(46) = "0000110011111111111111111111011111111111111100000"\r
+ao(47) = "0000111101101111111111111111111111111110111000000"\r
+ao(48) = "0000000000001111111111111111111111111111110000000"\r
+ao(49) = "0000000000000001111111111111111111110111110000000"\r
+ao(50) = "0000000000000000000011111111111111100111110000000"\r
+ao(51) = "0000000000000000000001111020111000000000000000000"\r
+ao(52) = "0000000000000000000001111222200000000000000000000"\r
+ao(53) = "0000000000000000000000222222220000000000000000000"\r
+ao(54) = "0000000000000000000000222222020000000000000000000"\r
+ao(55) = "0000000000000000000000202222220000000000000000000"\r
+ao(56) = "0000000000000000000000222222220000000000000000000"\r
+ao(57) = "0000000000000000000000220202220000000000000000000"\r
+ao(58) = "0000000000000000000000222222220000000000000000000"\r
+ao(59) = "0000000000000000000000202222220000000000000000000"\r
+ao(60) = "0000000000000000000000222222220000000000000000000"\r
+ao(61) = "000000000000000000000022022220000000000"\r
+ao(62) = "0000000000000000000000222222220000000000000000000"\r
+ao(63) = "0000000000000000000000220222200000000000000000000"\r
+ao(64) = "0000000000000000000000222220200000000000000000000"\r
+ao(65) = "0000000000000000000000220222200000000000000000000"\r
+ao(66) = "0000000000000000000000222222200000000000000000000"\r
+ao(67) = "0000000000000000000000222222200000000000000000000"\r
+ao(68) = "0000000000000000000000202222000000000000000000000"\r
+ao(69) = "0000000000000000002000222222220000000000000000000"\r
+ao(70) = "0000000000000000002200222222000000000000000000000"\r
+ao(71) = "0000000000000000000222222222000000000000000000000"\r
+ao(72) = "0000000000000000000222222222000000000000000000000"\r
+ao(73) = "0000000000000000000022222222000000000000000000000"\r
+ao(74) = "0000000000000000000022222222000000000000000000000"\r
+ao(75) = "0000000000000000000020222222000000000000000000000"\r
+ao(76) = "0000000000000000000222222202000000000000000000000"\r
+ao(77) = "000000000000000000022022222200000000000"\r
+ao(78) = "0000000000000000022222222222200000000000000000000"\r
+ao(79) = "0000000000000000220222222222220000"\r
+ao(80) = "000000000000000022222222222222"\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
+ao(1) = "11111111111111111111"\r
+ao(2) = "11111111111111111111"\r
+ao(3) = "11111111112111111111"\r
+ao(4) = "11111111112211111111"\r
+ao(5) = "11111111112221111111"\r
+ao(6) = "11111111112222111111"\r
+ao(7) = "11111111112222211111"\r
+ao(8) = "11122222222222221111"\r
+ao(9) = "11122222222222222111"\r
+ao(10) = "11122222222222222211"\r
+ao(11) = "11122222222222222211"\r
+ao(12) = "11122222222222222111"\r
+ao(13) = "11122222222222221111"\r
+ao(14) = "11111111112222211111"\r
+ao(15) = "11111111112222111111"\r
+ao(16) = "11111111112221111111"\r
+ao(17) = "11111111112211111111"\r
+ao(18) = "11111111112111111111"\r
+ao(19) = "11111111111111111111"\r
+ao(20) = "11111111111111111111"\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
+ao(1) = "03333333333333333330"\r
+ao(2) = "33333333222233333333"\r
+ao(3) = "33333332222223333333"\r
+ao(4) = "33333332222223333333"\r
+ao(5) = "33333332222223333333"\r
+ao(6) = "33333332222223333333"\r
+ao(7) = "33333332222223333333"\r
+ao(8) = "33333332222223333333"\r
+ao(9) = "33333332222223333333"\r
+ao(10) = "33333332222223333333"\r
+ao(11) = "33333333222233333333"\r
+ao(12) = "33333333333333333333"\r
+ao(13) = "33333333333333333333"\r
+ao(14) = "33333333222233333333"\r
+ao(15) = "33333332222223333333"\r
+ao(16) = "33333332222223333333"\r
+ao(17) = "33333332222223333333"\r
+ao(18) = "33333333222233333333"\r
+ao(19) = "33333333333333333333"\r
+ao(20) = "03333333333333333330"\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
+ao(1) = "00000000000300000000"\r
+ao(2) = "00000000003300000000"\r
+ao(3) = "00000000003330000000"\r
+ao(4) = "00000000033331100000"\r
+ao(5) = "00000000033331100000"\r
+ao(6) = "00000000333333000000"\r
+ao(7) = "00000000331333000000"\r
+ao(8) = "00000000333111000000"\r
+ao(9) = "00033333333333333300"\r
+ao(10) = "03333333333333333333"\r
+ao(11) = "00333333333333333300"\r
+ao(12) = "00000033333333330000"\r
+ao(13) = "00000033333333000000"\r
+ao(14) = "00000333333333300000"\r
+ao(15) = "00000333330333330000"\r
+ao(16) = "00000333300033330000"\r
+ao(17) = "00000330000033333000"\r
+ao(18) = "00003300000000333300"\r
+ao(19) = "00003000000000003330"\r
+ao(20) = "00003000000000000030"\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
-voolual = 1\r
+ao(1) = "0000000000300000000"\r
+ao(2) = "0000000003300000000"\r
+ao(3) = "00000000033000000000"\r
+ao(4) = "00000000333300000000"\r
+ao(5) = "00000000333220000000"\r
+ao(6) = "00000000333220000000"\r
+ao(7) = "00000003333320000000"\r
+ao(8) = "00000003313330000000"\r
+ao(9) = "00000003333330000000"\r
+ao(10) = "00000333333333000000"\r
+ao(11) = "00033333333333330000"\r
+ao(12) = "03333333333333333300"\r
+ao(13) = "03333303333333333300"\r
+ao(14) = "33000000333333333333"\r
+ao(15) = "00000000333330000333"\r
+ao(16) = "00000000033300000000"\r
+ao(17) = "00000000033300000000"\r
+ao(18) = "00000000030300000000"\r
+ao(19) = "00000000030300000000"\r
+ao(20) = "00000000030300000000"\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
-voolual = 2\r
+ao(1) = "00000000003000000000"\r
+ao(2) = "00000000033300000000"\r
+ao(3) = "00000000333330000000"\r
+ao(4) = "00000000333330000000"\r
+ao(5) = "00000001111111000000"\r
+ao(6) = "00000001133311000000"\r
+ao(7) = "00000003333333000000"\r
+ao(8) = "00000003333333000000"\r
+ao(9) = "00000003322233000000"\r
+ao(10) = "00000003333333000000"\r
+ao(11) = "00000003333333000000"\r
+ao(12) = "00000003333333000000"\r
+ao(13) = "00000003333333000000"\r
+ao(14) = "00000000333330000000"\r
+ao(15) = "00000000333330000000"\r
+ao(16) = "00000000330330000000"\r
+ao(17) = "00000000330330000000"\r
+ao(18) = "00000000000000000000"\r
+ao(19) = "00000000000000000000"\r
+ao(20) = "00000000000000000000"\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
-voolual = 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
-voolual = 2\r
-CASE 19\r
-CLS\r
-drawSprite 1, 1, 10, 3, 1\r
-LOCATE 20, 1\r
-PRINT "end"\r
-FOR a = 1 TO 50\r
-a$ = INKEY$\r
-NEXT a\r
-a$ = INPUT$(1)\r
-CLS\r
-SCREEN 2\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
-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
-voolual = 2\r
-\r
-END SELECT\r
-IF voolual = 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
-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
-IF q$ = "-" THEN PUT (D * 20, e * 20), pilv, PSET\r
-IF q$ = "x" THEN siia = D * 20: siib = (e + 1) * 20\r
-IF q$ = "y" THEN siia1 = D * 20: siib1 = (e + 1) * 20\r
-IF q$ = "1" THEN PUT (D * 20, e * 20), munt, PSET: asend(D + 1, e + 1) = "1"\r
-IF q$ = "p" THEN PUT (D * 20, (e * 20) + 10), poosas, PSET\r
-IF q$ = "h" THEN PUT (D * 20, e * 20), aken, PSET\r
-IF q$ = "v" THEN PUT (D * 20, (e * 20) + 10), vedru, PSET: asend(D + 1, e + 1) = "v"\r
-IF q$ = "t" THEN PUT (D * 20, e * 20), puu, PSET\r
-IF q$ = ">" THEN PUT (D * 20, e * 20), noolt, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = ">"\r
-IF q$ = "<" THEN PUT (D * 20, e * 20), noolt1, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "<"\r
-IF q$ = "a" THEN PUT (D * 20, e * 20), auk, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "a"\r
-IF q$ = "u" THEN PUT (D * 20, e * 20), uks, PSET: asend(D + 1, e + 1) = "u": uks1 = D * 20: uks2 = e * 20\r
-IF q$ = "U" THEN PUT (D * 20, e * 20), uks, PSET: asend(D + 1, e + 1) = "U": uks3 = D * 20: uks4 = e * 20\r
-NEXT D\r
-NEXT e\r
-GOTO 123\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
-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
-IF q$ = "-" THEN PUT (D * 10, e * 10), pilvm, PSET\r
-IF q$ = "x" THEN siia = D * 20: siib = (e + 1) * 20\r
-IF q$ = "y" THEN siia1 = D * 20: siib1 = (e + 1) * 20\r
-IF q$ = "1" THEN PUT (D * 10, e * 10), muntm, PSET: asend(D + 1, e + 1) = "1"\r
-IF q$ = "p" THEN PUT (D * 10, (e * 10) + 5), poosasm, PSET\r
-IF q$ = "h" THEN PUT (D * 10, e * 10), akenm, PSET\r
-IF q$ = "v" THEN PUT (D * 10, (e * 10) + 5), vedrum, PSET: asend(D + 1, e + 1) = "v"\r
-IF q$ = "t" THEN PUT (D * 10, e * 10), puum, PSET\r
-IF q$ = ">" THEN PUT (D * 10, e * 10), nooltm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = ">"\r
-IF q$ = "<" THEN PUT (D * 10, e * 10), nooltm1, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "<"\r
-IF q$ = "a" THEN PUT (D * 10, e * 10), aukm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "a"\r
-IF q$ = "u" THEN PUT (D * 10, e * 10), uksm, PSET: asend(D + 1, e + 1) = "u": uks1 = D * 20: uks2 = e * 20\r
-IF q$ = "U" THEN PUT (D * 10, e * 10), uksm, PSET: asend(D + 1, e + 1) = "U": uks3 = D * 20: uks4 = e * 20\r
-NEXT D\r
-NEXT e\r
-123\r
+ao(1) = "00000022222222000000"\r
+ao(2) = "00002222222222220000"\r
+ao(3) = "00022220000000222000"\r
+ao(4) = "00020002222222002000"\r
+ao(5) = "00202222222222222200"\r
+ao(6) = "00202222222222220200"\r
+ao(7) = "00202222222222220200"\r
+ao(8) = "02202222222222220220"\r
+ao(9) = "02022222222222220220"\r
+ao(10) = "02022323232323322020"\r
+ao(11) = "02022323232323222020"\r
+ao(12) = "02022323233223332020"\r
+ao(13) = "22022323232322232022"\r
+ao(14) = "20222323232322232202"\r
+ao(15) = "20222232232323332202"\r
+ao(16) = "20222222222222222202"\r
+ao(17) = "20222222222222112202"\r
+ao(18) = "20222222222222112202"\r
+ao(19) = "20222222222222112202"\r
+ao(20) = "20222222222222222202"\r
+ao(21) = "20222222222222222202"\r
+ao(22) = "20222222222222222202"\r
+ao(23) = "20222222222222222202"\r
+ao(24) = "20222222222222222202"\r
+ao(25) = "20222222222222222202"\r
+ao(26) = "20222222222222222202"\r
+ao(27) = "20222222222222222202"\r
+ao(28) = "20222222222222222202"\r
+ao(29) = "20000000000000000002"\r
+ao(30) = "22222222222222222222"\r
+\r
+END SELECT\r
+IF fr = 50 THEN GOTO 8\r
+IF fr > 1 THEN GOTO 4\r
+FOR a = 1 TO 100\r
+IF ao(a) = "" THEN GOTO 1\r
+FOR b = 1 TO LEN(ao(a))\r
+PSET ((p + b) \ teler, (o + a) \ teler), ASC(RIGHT$(LEFT$(ao(a), b), 1)) - 48\r
+NEXT b\r
+NEXT a\r
+GOTO 1\r
+4\r
+FOR a = 1 TO 100\r
+IF ao(a) = "" THEN GOTO 1\r
+FOR b = 1 TO LEN(ao(a))\r
+c = ASC(RIGHT$(LEFT$(ao(a), b), 1)) - 48\r
+LINE (p + (b * fr), o + (a * fr))-(p + (b * fr) + fr, o + (a * fr) + fr), c, BF\r
+NEXT b\r
+NEXT a\r
+GOTO 1\r
+8\r
+FOR a = 1 TO 100\r
+IF ao(a) = "" THEN GOTO 1\r
+FOR b = 1 TO LEN(ao(a))\r
+PSET ((p + b) \ teler, (o + a) \ teler), ASC(LEFT$(RIGHT$(ao(a), b), 1)) - 48\r
+NEXT b\r
+NEXT a\r
+\r
+1\r
+ERASE ao\r
END SUB\r
\r
-SUB drawSprite (p, o, m, fr, teler)\r
-DIM ao(1 TO 100) AS STRING\r
-SELECT CASE m\r
+SUB loadLevel (y)\r
+125\r
+siia = 0\r
+siib = 0\r
+aiia1 = 0\r
+siib1 = 0\r
+FOR a1 = 1 TO 32\r
+FOR b1 = 1 TO 20\r
+asend(a1, b1) = ""\r
+asend1(a1, b1) = ""\r
+NEXT b1\r
+NEXT a1\r
+FOR a = 1 TO 10\r
+uun(a) = ""\r
+NEXT a\r
+CLS\r
+LOCATE 3, 10\r
+SELECT CASE y\r
CASE 1\r
-ao(1) = "00000000000000000000"\r
-ao(2) = "00111111111111111100"\r
-ao(3) = "01222222222222222210"\r
-ao(4) = "01233333333333333210"\r
-ao(5) = "01232222222222223210"\r
-ao(6) = "01232111111111123210"\r
-ao(7) = "01232111111111123210"\r
-ao(8) = "01232111111111123210"\r
-ao(9) = "01232111111111123210"\r
-ao(10) = "01232111111111123210"\r
-ao(11) = "01232111111111123210"\r
-ao(12) = "01232111111111123210"\r
-ao(13) = "01232111111111123210"\r
-ao(14) = "01232111111111123210"\r
-ao(15) = "01232111111111123210"\r
-ao(16) = "01232222222222223210"\r
-ao(17) = "01233333333333333210"\r
-ao(18) = "01222222222222222210"\r
-ao(19) = "00111111111111111100"\r
-ao(20) = "00000000000000000000"\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
+graphicsMode = 1\r
CASE 2\r
-ao(1) = "000000022200000222220000002222222200000000000222222000000000"\r
-ao(2) = "000000022222002222222000222222222222000000222222222220000000"\r
-ao(3) = "000000222222222222222202222222222222222222222222222222200000"\r
-ao(4) = "000000222222222222222222222333333222220222222222222221110000"\r
-ao(5) = "000000222222233333322222223333333322222222222222222221111000"\r
-ao(6) = "000000022333333333333222233333333333222233322222222221111000"\r
-ao(7) = "000002222333333333333322233333333333333333333222222221111100"\r
-ao(8) = "000222222333333333333333333333333333333333333322222221111100"\r
-ao(9) = "002222223333333333333333333333333333333333333333222221111100"\r
-ao(10) = "022223333333333333333333333333333333333333333333222221111110"\r
-ao(11) = "022233333333333333333333333333333333333333333333322222111110"\r
-ao(12) = "222333333333333333333333333333333333333333333333322222111110"\r
-ao(13) = "222333333333333333333333323333333323131113333333221221111110"\r
-ao(14) = "223333333333333333333331112233331121111133333322112211111110"\r
-ao(15) = "213333333333333333333331111133111111111111111112222111111110"\r
-ao(16) = "111333313333333333333111111122111111111111111111221111111110"\r
-ao(17) = "111333311111111333111111111111111111111111111111111111111100"\r
-ao(18) = "011111111111111111111111111111111111111111111111111111111100"\r
-ao(19) = "011111111111111111111111111111111111111111111111111111111100"\r
-ao(20) = "011111111111111111111111111111111111111111111111111111111000"\r
-ao(21) = "001111111111111111111111111111111111111111111111110111100000"\r
-ao(22) = "001111111111111100111111111111111111111111111111100000000000"\r
-ao(23) = "000111111111110000011111111111100011111111111111000000000000"\r
-ao(24) = "000011111111100000000111111111000000011111111100000000000000"\r
-ao(25) = "000001111110000000000001111110000000000000000000000000000000"\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
CASE 3\r
-ao(1) = "0000010000"\r
-ao(2) = "0000010000"\r
-ao(3) = "0000121000"\r
-ao(4) = "0000131000"\r
-ao(5) = "1111232111"\r
-ao(6) = "0123333210"\r
-ao(7) = "0123333210"\r
-ao(8) = "0012332100"\r
-ao(9) = "0001221000"\r
-ao(10) = "0012112100"\r
-ao(11) = "0121001210"\r
-ao(12) = "0110000110"\r
-ao(13) = "1100000011"\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
CASE 4\r
-ao(1) = "01111111110111111111"\r
-ao(2) = "01222222210122222221"\r
-ao(3) = "01233333210123333321"\r
-ao(4) = "01233333210123333321"\r
-ao(5) = "01233333210123333321"\r
-ao(6) = "01233333210123333321"\r
-ao(7) = "01233333210123333321"\r
-ao(8) = "01222222210122222221"\r
-ao(9) = "01111111110111111111"\r
-ao(10) = "00000000000000000000"\r
-ao(11) = "01111111110111111111"\r
-ao(12) = "01222222210122222221"\r
-ao(13) = "01233333210123333321"\r
-ao(14) = "01233333210123333321"\r
-ao(15) = "01233333210123333321"\r
-ao(16) = "01233333210123333321"\r
-ao(17) = "01233333210123333321"\r
-ao(18) = "01222222210122222221"\r
-ao(19) = "01111111110111111111"\r
-ao(20) = "00000000000000000000"\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
CASE 5\r
-ao(1) = "0000333000"\r
-ao(2) = "0033333300"\r
-ao(3) = "0332222220"\r
-ao(4) = "3322222222"\r
-ao(5) = "3222111112"\r
-ao(6) = "3111111111"\r
-ao(7) = "1111111111"\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
CASE 6\r
-ao(1) = "00111100"\r
-ao(2) = "01222210"\r
-ao(3) = "12233221"\r
-ao(4) = "12233221"\r
-ao(5) = "12233221"\r
-ao(6) = "12233221"\r
-ao(7) = "12233221"\r
-ao(8) = "12233221"\r
-ao(9) = "01222210"\r
-ao(10) = "00111100"\r
-CASE 7\r
-ao(1) = "000000000000000033333300000000"\r
-ao(2) = "000000000000000333333333000000"\r
-ao(3) = "000000333300003332222222300000"\r
-ao(4) = "000003333330333322232222220000"\r
-ao(5) = "000033322333333222222222222000"\r
-ao(6) = "003332222223332222322212222200"\r
-ao(7) = "033222232222222222111211122200"\r
-ao(8) = "033222222232111111111111112220"\r
-ao(9) = "332223222111121121111111111222"\r
-ao(10) = "322222111111111111121111111111"\r
-CASE 8\r
-ao(1) = "0000000002222222000000000"\r
-ao(2) = "0000000222111112220000000"\r
-ao(3) = "0000002211131311122000000"\r
-ao(4) = "0000022113331133112200000"\r
-ao(5) = "0000022133331333312200000"\r
-ao(6) = "0000221133331333311220000"\r
-ao(7) = "0000221333331333331220000"\r
-ao(8) = "0000221333331333331220000"\r
-ao(9) = "0000221111111111111220000"\r
-ao(10) = "0000221333331333331220000"\r
-ao(11) = "0002211333331333331122000"\r
-ao(12) = "0002213333331333333122000"\r
-ao(13) = "0002213333331333333122000"\r
-ao(14) = "0002213333331333333122000"\r
-ao(15) = "0002213333331333333122000"\r
-ao(16) = "0002213333331333333122000"\r
-ao(17) = "0002213333331333333122000"\r
-ao(18) = "0002211111111111111122000"\r
-ao(19) = "2222222222222222222222222"\r
-ao(20) = "0222222222222222222222220"\r
-CASE 9\r
-ao(1) = "00000001112220000000"\r
-ao(2) = "00001112222111120000"\r
-ao(3) = "00112222111122221100"\r
-ao(4) = "02222111122221111110"\r
-ao(5) = "01111122221111122220"\r
-ao(6) = "11122221111122221111"\r
-ao(7) = "22221111122221111111"\r
-ao(8) = "21111122221111112222"\r
-ao(9) = "11222221111112222111"\r
-ao(10) = "22221111112222111111"\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
+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
+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
+maa = maa + 1\r
CASE 10\r
-ao(1) = "33333333333333333333333333333333333333333333333333333333333333333333333333333333"\r
-ao(2) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
-ao(3) = "30000110000111001110011111100011111110011111100000000000000000000000000000000003"\r
-ao(4) = "30001111100111001110011111110011111110011111110000000000000000002222000000000003"\r
-ao(5) = "30011001100011001100011100110011100110011100111000000000000000222222220000000003"\r
-ao(6) = "30011000000011001100011111110011100000011100111000000000000000222222222222000003"\r
-ao(7) = "30011000000011001100011111100011100110011111110000000000000000330330330002200003"\r
-ao(8) = "30011111000011001100011100000011111110011111100000000000000000333333330000000003"\r
-ao(9) = "30001111100011001100011100000011111110011100100000000000000000332222330000000003"\r
-ao(10) = "30000001100011001100011100000011100000011100110000000000000000033333300000000003"\r
-ao(11) = "30110001100011001100011100000011100110011100111000000000000030000111000000000003"\r
-ao(12) = "30111011100011111100011100000011111110011100111000000000000331111111111000000003"\r
-ao(13) = "30111111000001111000011100000011111110011100111000000000000331111111111100000003"\r
-ao(14) = "30000000000000000000000000000000000000000000000000000000000000001111101100000003"\r
-ao(15) = "30000000000000000000000000000000000000000000000000000000000000001111101100000003"\r
-ao(16) = "30000000000000000000000000000000000000000000000000000000000000001101100000000003"\r
-ao(17) = "30000000000000000000000000000000000000000000000000000000000000011101110000000003"\r
-ao(18) = "30000000000000000000000000000000000000000000000000000000000000011101110000000003"\r
-ao(19) = "30000000000000000000000000000000000000000000000000000000000000333303330000000003"\r
-ao(20) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
-ao(21) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
-ao(22) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
-ao(23) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
-ao(24) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
-ao(25) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
-ao(26) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
-ao(27) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
-ao(28) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
-ao(29) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"\r
-ao(30) = "33333333333333333333333333333333333333333333333333333333333333333333333333333333"\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
+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
+maa = maa + 2\r
CASE 11\r
-ao(1) = "00000000000111111110000000000000000000000000000000"\r
-ao(2) = "00000000011111111111000001100000000000000000000000"\r
-ao(3) = "00000000111111111111110011110000000000000000000000"\r
-ao(4) = "00000001101111111111111111111000000000000000000000"\r
-ao(5) = "00000011111111111111111111111111000000000000000000"\r
-ao(6) = "00000111111111111111111111111111000000000000000000"\r
-ao(7) = "00000111111111111111111111111111001100000000000000"\r
-ao(8) = "00000111111111111111111111111111111111100000000000"\r
-ao(9) = "00000111111111111111111111111111111111100000000000"\r
-ao(10) = "00000111111111111111111111111111111111110000000000"\r
-ao(11) = "00000111111111111111111111111111111111111000000000"\r
-ao(12) = "00000111111111111111111111111111111111111100000000"\r
-ao(13) = "00000111111111111111111111111111111111111100000000"\r
-ao(14) = "00000111111111111111111111111111111111111100000000"\r
-ao(15) = "00000111111111111111111111111111111111111100000000"\r
-ao(16) = "00000111111111111111111111111111111111111100000000"\r
-ao(17) = "00011111111111111111111111111111111111111100000000"\r
-ao(18) = "00011111111111111111111111111111111111111100000000"\r
-ao(19) = "00111111110111111111111111111111111111111100000000"\r
-ao(20) = "01110111111111111111111111111111111111111100000000"\r
-ao(21) = "11111111111111111111111111111111111111111111100000"\r
-ao(22) = "11111111111111111111111111111111111111111111100000"\r
-ao(23) = "11111111111111111111111111111111111111111111100000"\r
-ao(24) = "11111111111111111111111111111111111111111111100000"\r
-ao(25) = "11111111111111111111111111111111111111111111111110"\r
-ao(26) = "11111111111111111111111111111111111111111111110111"\r
-ao(27) = "11111111111111111111111111111111111111111111111111"\r
-ao(28) = "11011111111111111111111111111111111111111111111101"\r
-ao(29) = "11111111111111111111111111111111111111111111111111"\r
-ao(30) = "11111111111111111111111111111111111111111111111111"\r
-ao(31) = "11111111111111111111111111111111111111111111111011"\r
-ao(32) = "11111111111111111111111111111111111111111111111100"\r
-ao(33) = "11111111111111111111111111111111111111111111111000"\r
-ao(34) = "01111111111111111111111111111111111111111111110000"\r
-ao(35) = "11111111111111111111111111111111111111111110110000"\r
-ao(36) = "11111111111111111111111111111111111111111110110000"\r
-ao(37) = "11111111111111111111111111111111111111111111110000"\r
-ao(38) = "01111111111111111111111111111111111111111111110000"\r
-ao(39) = "01111111111111111111111111111111111111111111110000"\r
-ao(40) = "00011111111111111111111111111111111111111111100000"\r
-ao(41) = "00111111111111111111111111111111111111111111100000"\r
-ao(42) = "00011111111111111111111111111111111111111111110000"\r
-ao(43) = "00001111111111111111111111111111111111111111110000"\r
-ao(44) = "00001111111111111111111111111111111111111111111000"\r
-ao(45) = "0000110111111111111111111111111111111111111111100"\r
-ao(46) = "0000110011111111111111111111011111111111111100000"\r
-ao(47) = "0000111101101111111111111111111111111110111000000"\r
-ao(48) = "0000000000001111111111111111111111111111110000000"\r
-ao(49) = "0000000000000001111111111111111111110111110000000"\r
-ao(50) = "0000000000000000000011111111111111100111110000000"\r
-ao(51) = "0000000000000000000001111020111000000000000000000"\r
-ao(52) = "0000000000000000000001111222200000000000000000000"\r
-ao(53) = "0000000000000000000000222222220000000000000000000"\r
-ao(54) = "0000000000000000000000222222020000000000000000000"\r
-ao(55) = "0000000000000000000000202222220000000000000000000"\r
-ao(56) = "0000000000000000000000222222220000000000000000000"\r
-ao(57) = "0000000000000000000000220202220000000000000000000"\r
-ao(58) = "0000000000000000000000222222220000000000000000000"\r
-ao(59) = "0000000000000000000000202222220000000000000000000"\r
-ao(60) = "0000000000000000000000222222220000000000000000000"\r
-ao(61) = "000000000000000000000022022220000000000"\r
-ao(62) = "0000000000000000000000222222220000000000000000000"\r
-ao(63) = "0000000000000000000000220222200000000000000000000"\r
-ao(64) = "0000000000000000000000222220200000000000000000000"\r
-ao(65) = "0000000000000000000000220222200000000000000000000"\r
-ao(66) = "0000000000000000000000222222200000000000000000000"\r
-ao(67) = "0000000000000000000000222222200000000000000000000"\r
-ao(68) = "0000000000000000000000202222000000000000000000000"\r
-ao(69) = "0000000000000000002000222222220000000000000000000"\r
-ao(70) = "0000000000000000002200222222000000000000000000000"\r
-ao(71) = "0000000000000000000222222222000000000000000000000"\r
-ao(72) = "0000000000000000000222222222000000000000000000000"\r
-ao(73) = "0000000000000000000022222222000000000000000000000"\r
-ao(74) = "0000000000000000000022222222000000000000000000000"\r
-ao(75) = "0000000000000000000020222222000000000000000000000"\r
-ao(76) = "0000000000000000000222222202000000000000000000000"\r
-ao(77) = "000000000000000000022022222200000000000"\r
-ao(78) = "0000000000000000022222222222200000000000000000000"\r
-ao(79) = "0000000000000000220222222222220000"\r
-ao(80) = "000000000000000022222222222222"\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
+maa = maa + 2\r
CASE 12\r
-ao(1) = "11111111111111111111"\r
-ao(2) = "11111111111111111111"\r
-ao(3) = "11111111112111111111"\r
-ao(4) = "11111111112211111111"\r
-ao(5) = "11111111112221111111"\r
-ao(6) = "11111111112222111111"\r
-ao(7) = "11111111112222211111"\r
-ao(8) = "11122222222222221111"\r
-ao(9) = "11122222222222222111"\r
-ao(10) = "11122222222222222211"\r
-ao(11) = "11122222222222222211"\r
-ao(12) = "11122222222222222111"\r
-ao(13) = "11122222222222221111"\r
-ao(14) = "11111111112222211111"\r
-ao(15) = "11111111112222111111"\r
-ao(16) = "11111111112221111111"\r
-ao(17) = "11111111112211111111"\r
-ao(18) = "11111111112111111111"\r
-ao(19) = "11111111111111111111"\r
-ao(20) = "11111111111111111111"\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
CASE 13\r
-ao(1) = "03333333333333333330"\r
-ao(2) = "33333333222233333333"\r
-ao(3) = "33333332222223333333"\r
-ao(4) = "33333332222223333333"\r
-ao(5) = "33333332222223333333"\r
-ao(6) = "33333332222223333333"\r
-ao(7) = "33333332222223333333"\r
-ao(8) = "33333332222223333333"\r
-ao(9) = "33333332222223333333"\r
-ao(10) = "33333332222223333333"\r
-ao(11) = "33333333222233333333"\r
-ao(12) = "33333333333333333333"\r
-ao(13) = "33333333333333333333"\r
-ao(14) = "33333333222233333333"\r
-ao(15) = "33333332222223333333"\r
-ao(16) = "33333332222223333333"\r
-ao(17) = "33333332222223333333"\r
-ao(18) = "33333333222233333333"\r
-ao(19) = "33333333333333333333"\r
-ao(20) = "03333333333333333330"\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
CASE 14\r
-ao(1) = "00000000000300000000"\r
-ao(2) = "00000000003300000000"\r
-ao(3) = "00000000003330000000"\r
-ao(4) = "00000000033331100000"\r
-ao(5) = "00000000033331100000"\r
-ao(6) = "00000000333333000000"\r
-ao(7) = "00000000331333000000"\r
-ao(8) = "00000000333111000000"\r
-ao(9) = "00033333333333333300"\r
-ao(10) = "03333333333333333333"\r
-ao(11) = "00333333333333333300"\r
-ao(12) = "00000033333333330000"\r
-ao(13) = "00000033333333000000"\r
-ao(14) = "00000333333333300000"\r
-ao(15) = "00000333330333330000"\r
-ao(16) = "00000333300033330000"\r
-ao(17) = "00000330000033333000"\r
-ao(18) = "00003300000000333300"\r
-ao(19) = "00003000000000003330"\r
-ao(20) = "00003000000000000030"\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
CASE 15\r
-ao(1) = "0000000000300000000"\r
-ao(2) = "0000000003300000000"\r
-ao(3) = "00000000033000000000"\r
-ao(4) = "00000000333300000000"\r
-ao(5) = "00000000333220000000"\r
-ao(6) = "00000000333220000000"\r
-ao(7) = "00000003333320000000"\r
-ao(8) = "00000003313330000000"\r
-ao(9) = "00000003333330000000"\r
-ao(10) = "00000333333333000000"\r
-ao(11) = "00033333333333330000"\r
-ao(12) = "03333333333333333300"\r
-ao(13) = "03333303333333333300"\r
-ao(14) = "33000000333333333333"\r
-ao(15) = "00000000333330000333"\r
-ao(16) = "00000000033300000000"\r
-ao(17) = "00000000033300000000"\r
-ao(18) = "00000000030300000000"\r
-ao(19) = "00000000030300000000"\r
-ao(20) = "00000000030300000000"\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
+graphicsMode = 1\r
CASE 16\r
-ao(1) = "00000000003000000000"\r
-ao(2) = "00000000033300000000"\r
-ao(3) = "00000000333330000000"\r
-ao(4) = "00000000333330000000"\r
-ao(5) = "00000001111111000000"\r
-ao(6) = "00000001133311000000"\r
-ao(7) = "00000003333333000000"\r
-ao(8) = "00000003333333000000"\r
-ao(9) = "00000003322233000000"\r
-ao(10) = "00000003333333000000"\r
-ao(11) = "00000003333333000000"\r
-ao(12) = "00000003333333000000"\r
-ao(13) = "00000003333333000000"\r
-ao(14) = "00000000333330000000"\r
-ao(15) = "00000000333330000000"\r
-ao(16) = "00000000330330000000"\r
-ao(17) = "00000000330330000000"\r
-ao(18) = "00000000000000000000"\r
-ao(19) = "00000000000000000000"\r
-ao(20) = "00000000000000000000"\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
+graphicsMode = 2\r
CASE 17\r
-ao(1) = "00000022222222000000"\r
-ao(2) = "00002222222222220000"\r
-ao(3) = "00022220000000222000"\r
-ao(4) = "00020002222222002000"\r
-ao(5) = "00202222222222222200"\r
-ao(6) = "00202222222222220200"\r
-ao(7) = "00202222222222220200"\r
-ao(8) = "02202222222222220220"\r
-ao(9) = "02022222222222220220"\r
-ao(10) = "02022323232323322020"\r
-ao(11) = "02022323232323222020"\r
-ao(12) = "02022323233223332020"\r
-ao(13) = "22022323232322232022"\r
-ao(14) = "20222323232322232202"\r
-ao(15) = "20222232232323332202"\r
-ao(16) = "20222222222222222202"\r
-ao(17) = "20222222222222112202"\r
-ao(18) = "20222222222222112202"\r
-ao(19) = "20222222222222112202"\r
-ao(20) = "20222222222222222202"\r
-ao(21) = "20222222222222222202"\r
-ao(22) = "20222222222222222202"\r
-ao(23) = "20222222222222222202"\r
-ao(24) = "20222222222222222202"\r
-ao(25) = "20222222222222222202"\r
-ao(26) = "20222222222222222202"\r
-ao(27) = "20222222222222222202"\r
-ao(28) = "20222222222222222202"\r
-ao(29) = "20000000000000000002"\r
-ao(30) = "22222222222222222222"\r
-\r
-END SELECT\r
-IF fr = 50 THEN GOTO 8\r
-IF fr > 1 THEN GOTO 4\r
-FOR a = 1 TO 100\r
-IF ao(a) = "" THEN GOTO 1\r
-FOR b = 1 TO LEN(ao(a))\r
-PSET ((p + b) \ teler, (o + a) \ teler), ASC(RIGHT$(LEFT$(ao(a), b), 1)) - 48\r
-NEXT b\r
-NEXT a\r
-GOTO 1\r
-4\r
-FOR a = 1 TO 100\r
-IF ao(a) = "" THEN GOTO 1\r
-FOR b = 1 TO LEN(ao(a))\r
-c = ASC(RIGHT$(LEFT$(ao(a), b), 1)) - 48\r
-LINE (p + (b * fr), o + (a * fr))-(p + (b * fr) + fr, o + (a * fr) + fr), c, BF\r
-NEXT b\r
-NEXT a\r
-GOTO 1\r
-8\r
-FOR a = 1 TO 100\r
-IF ao(a) = "" THEN GOTO 1\r
-FOR b = 1 TO LEN(ao(a))\r
-PSET ((p + b) \ teler, (o + a) \ teler), ASC(LEFT$(RIGHT$(ao(a), b), 1)) - 48\r
-NEXT b\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
+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
+graphicsMode = 2\r
+CASE 19\r
+CLS\r
+drawSprite 1, 1, 10, 3, 1\r
+LOCATE 20, 1\r
+PRINT "end"\r
+FOR a = 1 TO 50\r
+a$ = INKEY$\r
NEXT a\r
+a$ = INPUT$(1)\r
+CLS\r
+SCREEN 2\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
+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
+graphicsMode = 2\r
\r
-1\r
-ERASE ao\r
-END SUB\r
-\r
-SUB wiew (r$, a, b)\r
-OPEN r$ FOR INPUT AS #2\r
-INPUT #2, pikkus\r
-FOR e = 1 TO pikkus\r
-INPUT #2, b$\r
-FOR D = 1 TO LEN(b$)\r
-PSET (D + a, b + e), ASC(RIGHT$(LEFT$(b$, D), 1)) - 1\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
+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
+IF q$ = "-" THEN PUT (D * 20, e * 20), pilv, PSET\r
+IF q$ = "x" THEN siia = D * 20: siib = (e + 1) * 20\r
+IF q$ = "y" THEN siia1 = D * 20: siib1 = (e + 1) * 20\r
+IF q$ = "1" THEN PUT (D * 20, e * 20), munt, PSET: asend(D + 1, e + 1) = "1"\r
+IF q$ = "p" THEN PUT (D * 20, (e * 20) + 10), poosas, PSET\r
+IF q$ = "h" THEN PUT (D * 20, e * 20), aken, PSET\r
+IF q$ = "v" THEN PUT (D * 20, (e * 20) + 10), vedru, PSET: asend(D + 1, e + 1) = "v"\r
+IF q$ = "t" THEN PUT (D * 20, e * 20), puu, PSET\r
+IF q$ = ">" THEN PUT (D * 20, e * 20), noolt, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = ">"\r
+IF q$ = "<" THEN PUT (D * 20, e * 20), noolt1, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "<"\r
+IF q$ = "a" THEN PUT (D * 20, e * 20), auk, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "a"\r
+IF q$ = "u" THEN PUT (D * 20, e * 20), uks, PSET: asend(D + 1, e + 1) = "u": uks1 = D * 20: uks2 = e * 20\r
+IF q$ = "U" THEN PUT (D * 20, e * 20), uks, PSET: asend(D + 1, e + 1) = "U": uks3 = D * 20: uks4 = e * 20\r
+NEXT D\r
+NEXT e\r
+GOTO 123\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
+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
+IF q$ = "-" THEN PUT (D * 10, e * 10), pilvm, PSET\r
+IF q$ = "x" THEN siia = D * 20: siib = (e + 1) * 20\r
+IF q$ = "y" THEN siia1 = D * 20: siib1 = (e + 1) * 20\r
+IF q$ = "1" THEN PUT (D * 10, e * 10), muntm, PSET: asend(D + 1, e + 1) = "1"\r
+IF q$ = "p" THEN PUT (D * 10, (e * 10) + 5), poosasm, PSET\r
+IF q$ = "h" THEN PUT (D * 10, e * 10), akenm, PSET\r
+IF q$ = "v" THEN PUT (D * 10, (e * 10) + 5), vedrum, PSET: asend(D + 1, e + 1) = "v"\r
+IF q$ = "t" THEN PUT (D * 10, e * 10), puum, PSET\r
+IF q$ = ">" THEN PUT (D * 10, e * 10), nooltm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = ">"\r
+IF q$ = "<" THEN PUT (D * 10, e * 10), nooltm1, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "<"\r
+IF q$ = "a" THEN PUT (D * 10, e * 10), aukm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "a"\r
+IF q$ = "u" THEN PUT (D * 10, e * 10), uksm, PSET: asend(D + 1, e + 1) = "u": uks1 = D * 20: uks2 = e * 20\r
+IF q$ = "U" THEN PUT (D * 10, e * 10), uksm, PSET: asend(D + 1, e + 1) = "U": uks3 = D * 20: uks4 = e * 20\r
NEXT D\r
NEXT e\r
-CLOSE\r
+123\r
END SUB\r
\r
projects / qbasicapps.git / commitdiff