From 312e55c30b2408814baab240de45756d19bebfea Mon Sep 17 00:00:00 2001
From: Svjatoslav Agejenko <svjatoslav@svjatoslav.eu>
Date: Wed, 20 Aug 2025 00:50:11 +0300
Subject: [PATCH] Better code readability

---
 Games/Pomppu Paavo.bas | 1504 ++++++++++++++++++++--------------------
 1 file changed, 748 insertions(+), 756 deletions(-)

diff --git a/Games/Pomppu Paavo.bas b/Games/Pomppu Paavo.bas
index 7e4949d..2daa06e 100755
--- a/Games/Pomppu Paavo.bas	
+++ b/Games/Pomppu Paavo.bas	
@@ -1,17 +1,21 @@
-' Pomppu Paavo, 1998
-' By: Svjatoslav Agejenko
-' at least 8 MHz 8086 CPU
-' & CGA video card is required
+' Pomppu Paavo
+'
+' This program is free software: released under Creative Commons Zero (CC0) license
+' by Svjatoslav Agejenko.
+' Email: svjatoslav@svjatoslav.eu
+' Homepage: http://www.svjatoslav.eu
+'
+' Changelog:
+' 1998, Initial version
+' 2025, Improved program readability
+
 
-DECLARE SUB norm (nrm%)
 DECLARE SUB displayGameStats ()
-DEFINT A-Z
 DECLARE SUB loadLevel (y%)
 DECLARE SUB drawSprite (p%, o%, m%, fr%, teler%)
-DECLARE SUB wiew (r$, a%, b%)
-DECLARE SUB joonist ()
-DECLARE SUB save (y$)
-DIM SHARED voolual
+
+DEFINT A-Z
+DIM SHARED graphicsMode
 DIM SHARED uun(1 TO 20) AS STRING * 31
 DIM SHARED siib, siia, siib1, siia1
 DIM SHARED elu, raha
@@ -216,7 +220,7 @@ siie1 = 1
 6
 WHILE kbd$ = ""
 kbd$ = INKEY$
-IF voolual = 2 THEN b = b * 2: GOTO 106
+IF graphicsMode = 2 THEN b = b * 2: GOTO 106
 IF b > 0 THEN GET (a, b)-(a + 20, b + 20), mar1
 IF b > 0 THEN IF sipp = 1 THEN PUT (a, b), sipp1, OR
 IF b > 0 THEN IF sipp = 2 THEN PUT (a, b), sipp2, OR
@@ -281,7 +285,7 @@ siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2
 a = a + eda
 b = b + all
 IF a > 297 THEN a = 2: maa = maa + 1: loadLevel maa: siie = 1: siie1 = 1
-IF a < 1 THEN a = 296: IF maa = 1 THEN loadLevel maa:  ELSE maa = maa - 1: loadLevel maa: IF voolual = 2 THEN a = 594
+IF a < 1 THEN a = 296: IF maa = 1 THEN loadLevel maa:  ELSE maa = maa - 1: loadLevel maa: IF graphicsMode = 2 THEN a = 594
 IF b > 179 THEN elu = elu - 1: displayGameStats: maa = maa - 1: loadLevel maa: b = 100: a = 2: displayGameStats
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 10: b = uks4: eda = 0
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 10: b = uks2: eda = 0
@@ -304,7 +308,7 @@ GOTO 6
 106
 WHILE kbd$ = ""
 kbd$ = INKEY$
-IF voolual = 1 THEN b = b / 2: GOTO 6
+IF graphicsMode = 1 THEN b = b / 2: GOTO 6
 IF b > 0 THEN GET (a \ 2, b \ 2)-((a + 20) \ 2, (b + 20) \ 2), marm1
 IF b > 0 THEN IF sipp = 1 THEN PUT (a \ 2, b \ 2), sippm1, OR
 IF b > 0 THEN IF sipp = 2 THEN PUT (a \ 2, b \ 2), sippm2, OR
@@ -369,7 +373,7 @@ siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2
 a = a + eda
 b = b + all
 IF a > 594 THEN a = 2: maa = maa + 1: loadLevel maa: siie = 1: siie1 = 1
-IF a < 1 THEN a = 594: IF maa = 1 THEN loadLevel maa:  ELSE maa = maa - 1: loadLevel maa: IF voolual = 1 THEN a = 297
+IF a < 1 THEN a = 594: IF maa = 1 THEN loadLevel maa:  ELSE maa = maa - 1: loadLevel maa: IF graphicsMode = 1 THEN a = 297
 IF b > 358 THEN elu = elu - 1: displayGameStats: maa = maa - 1: loadLevel maa: b = 100: a = 2: displayGameStats
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "u" THEN a = uks3 + 5: b = uks4: eda = 0
 IF asend((a + 30) \ 20, (b + 30) \ 20) = "U" THEN a = uks1 + 5: b = uks2: eda = 0
@@ -390,7 +394,7 @@ GOTO 106
 
 SUB displayGameStats
 LOCATE 1, 1
-IF voolual = 2 THEN GOTO 12
+IF graphicsMode = 2 THEN GOTO 12
 PRINT "                "
 IF raha > 9 THEN raha = 0: elu = elu + 1
 LOCATE 1, 1
@@ -399,781 +403,769 @@ PRINT "o "; raha; "  Elu "; elu
 IF elu < 0 THEN END
 END SUB
 
-SUB loadLevel (y)
-125
-siia = 0
-siib = 0
-aiia1 = 0
-siib1 = 0
-FOR a1 = 1 TO 32
-FOR b1 = 1 TO 20
-asend(a1, b1) = ""
-asend1(a1, b1) = ""
-NEXT b1
-NEXT a1
-FOR a = 1 TO 10
-uun(a) = ""
-NEXT a
-CLS
-LOCATE 3, 10
-SELECT CASE y
+SUB drawSprite (p, o, m, fr, teler)
+DIM ao(1 TO 100) AS STRING
+SELECT CASE m
 CASE 1
-uun(1) = "             mmm"
-uun(2) = "    -       m mm"
-uun(3) = "        .  - mmm"
-uun(4) = "o   .  .    mymm"
-uun(5) = "o           -mmm"
-uun(6) = "o    t      mxmm"
-uun(7) = "o            mmm"
-uun(8) = "o           1 1 "
-uun(9) = "o  p     p 1 1 1"
-uun(10) = "mmmmmmmmmmmmmmmm"
-voolual = 1
+ao(1) = "00000000000000000000"
+ao(2) = "00111111111111111100"
+ao(3) = "01222222222222222210"
+ao(4) = "01233333333333333210"
+ao(5) = "01232222222222223210"
+ao(6) = "01232111111111123210"
+ao(7) = "01232111111111123210"
+ao(8) = "01232111111111123210"
+ao(9) = "01232111111111123210"
+ao(10) = "01232111111111123210"
+ao(11) = "01232111111111123210"
+ao(12) = "01232111111111123210"
+ao(13) = "01232111111111123210"
+ao(14) = "01232111111111123210"
+ao(15) = "01232111111111123210"
+ao(16) = "01232222222222223210"
+ao(17) = "01233333333333333210"
+ao(18) = "01222222222222222210"
+ao(19) = "00111111111111111100"
+ao(20) = "00000000000000000000"
 CASE 2
-uun(1) = "mmmmmmmmmmmmmmmm"
-uun(2) = "mm   h h        "
-uun(3) = "mmx m    mmmymmm"
-uun(4) = "mmommmmmm  mom m"
-uun(5) = "mo   1 1 1 o1m1m"
-uun(6) = "momm m m m m111m"
-uun(7) = "m      h mmmmoom"
-uun(8) = " mm h          m"
-uun(9) = "        v mmm mm"
-uun(10) = "mmmmmmmmmmmmmmmm"
+ao(1) = "000000022200000222220000002222222200000000000222222000000000"
+ao(2) = "000000022222002222222000222222222222000000222222222220000000"
+ao(3) = "000000222222222222222202222222222222222222222222222222200000"
+ao(4) = "000000222222222222222222222333333222220222222222222221110000"
+ao(5) = "000000222222233333322222223333333322222222222222222221111000"
+ao(6) = "000000022333333333333222233333333333222233322222222221111000"
+ao(7) = "000002222333333333333322233333333333333333333222222221111100"
+ao(8) = "000222222333333333333333333333333333333333333322222221111100"
+ao(9) = "002222223333333333333333333333333333333333333333222221111100"
+ao(10) = "022223333333333333333333333333333333333333333333222221111110"
+ao(11) = "022233333333333333333333333333333333333333333333322222111110"
+ao(12) = "222333333333333333333333333333333333333333333333322222111110"
+ao(13) = "222333333333333333333333323333333323131113333333221221111110"
+ao(14) = "223333333333333333333331112233331121111133333322112211111110"
+ao(15) = "213333333333333333333331111133111111111111111112222111111110"
+ao(16) = "111333313333333333333111111122111111111111111111221111111110"
+ao(17) = "111333311111111333111111111111111111111111111111111111111100"
+ao(18) = "011111111111111111111111111111111111111111111111111111111100"
+ao(19) = "011111111111111111111111111111111111111111111111111111111100"
+ao(20) = "011111111111111111111111111111111111111111111111111111111000"
+ao(21) = "001111111111111111111111111111111111111111111111110111100000"
+ao(22) = "001111111111111100111111111111111111111111111111100000000000"
+ao(23) = "000111111111110000011111111111100011111111111111000000000000"
+ao(24) = "000011111111100000000111111111000000011111111100000000000000"
+ao(25) = "000001111110000000000001111110000000000000000000000000000000"
 CASE 3
-uun(1) = "mmmmmmmmmmmmmmmm"
-uun(2) = " h h h h h  ym11"
-uun(3) = "mm mmmmmmmmmmm1m"
-uun(4) = "m h  m      xm  "
-uun(5) = "mm m m mmmmmmmmm"
-uun(6) = "mmmm     m1m    "
-uun(7) = "m    h   m1moo m"
-uun(8) = "m mmmmmm m1moomm"
-uun(9) = "m 11111m  h h   "
-uun(10) = "mmmmmmmmmmmmmmmm"
+ao(1) = "0000010000"
+ao(2) = "0000010000"
+ao(3) = "0000121000"
+ao(4) = "0000131000"
+ao(5) = "1111232111"
+ao(6) = "0123333210"
+ao(7) = "0123333210"
+ao(8) = "0012332100"
+ao(9) = "0001221000"
+ao(10) = "0012112100"
+ao(11) = "0121001210"
+ao(12) = "0110000110"
+ao(13) = "1100000011"
 CASE 4
-uun(1) = "mmmmmmmmmmmmmmmm"
-uun(2) = "     h1  h1    m"
-uun(3) = "mmm  1 11  1 o1m"
-uun(4) = "  m 1  oo   1o1m"
-uun(5) = "m moo       oo1m"
-uun(6) = "  m      h  o   "
-uun(7) = "mmm  h      o   "
-uun(8) = "m           o   "
-uun(9) = "        x   oy  "
-uun(10) = "mmmmmmmmmmmmmmmm"
+ao(1) = "01111111110111111111"
+ao(2) = "01222222210122222221"
+ao(3) = "01233333210123333321"
+ao(4) = "01233333210123333321"
+ao(5) = "01233333210123333321"
+ao(6) = "01233333210123333321"
+ao(7) = "01233333210123333321"
+ao(8) = "01222222210122222221"
+ao(9) = "01111111110111111111"
+ao(10) = "00000000000000000000"
+ao(11) = "01111111110111111111"
+ao(12) = "01222222210122222221"
+ao(13) = "01233333210123333321"
+ao(14) = "01233333210123333321"
+ao(15) = "01233333210123333321"
+ao(16) = "01233333210123333321"
+ao(17) = "01233333210123333321"
+ao(18) = "01222222210122222221"
+ao(19) = "01111111110111111111"
+ao(20) = "00000000000000000000"
 CASE 5
-uun(1) = "m       . y -   "
-uun(2) = "m      m     moo"
-uun(3) = "m.    mxm    mmo"
-uun(4) = "m  -    m mmmmmm"
-uun(5) = "m .    m     mm "
-uun(6) = "mt  o   o    m  "
-uun(7) = "m   o om o  ooo "
-uun(8) = "m   ooooooooooo "
-uun(9) = "         v    o "
-uun(10) = "oooooooooooooooo"
+ao(1) = "0000333000"
+ao(2) = "0033333300"
+ao(3) = "0332222220"
+ao(4) = "3322222222"
+ao(5) = "3222111112"
+ao(6) = "3111111111"
+ao(7) = "1111111111"
 CASE 6
-CLS
-uun(1) = "    -           "
-uun(2) = "             .  "
-uun(3) = "       oo- oo   "
-uun(4) = "  -    11  11  ."
-uun(5) = "       oo  oo   "
-uun(6) = "   m ym11  11   "
-uun(7) = "   m  m         "
-uun(8) = "   ooom  <>  <> "
-uun(9) = "       xmmm  mmm"
-uun(10) = "mmmmmmmmmmm  mmm"
+ao(1) = "00111100"
+ao(2) = "01222210"
+ao(3) = "12233221"
+ao(4) = "12233221"
+ao(5) = "12233221"
+ao(6) = "12233221"
+ao(7) = "12233221"
+ao(8) = "12233221"
+ao(9) = "01222210"
+ao(10) = "00111100"
 CASE 7
-uun(1) = " oooo           "
-uun(2) = " o111  .        "
-uun(3) = " oooo>    >>>>>>"
-uun(4) = "  .    x v     m"
-uun(5) = "       mym     m"
-uun(6) = "        m      m"
-uun(7) = "            111m"
-uun(8) = "            111m"
-uun(9) = "  v          p  "
-uun(10) = "oooaaaaaaaaaoooo"
+ao(1) = "000000000000000033333300000000"
+ao(2) = "000000000000000333333333000000"
+ao(3) = "000000333300003332222222300000"
+ao(4) = "000003333330333322232222220000"
+ao(5) = "000033322333333222222222222000"
+ao(6) = "003332222223332222322212222200"
+ao(7) = "033222232222222222111211122200"
+ao(8) = "033222222232111111111111112220"
+ao(9) = "332223222111121121111111111222"
+ao(10) = "322222111111111111121111111111"
 CASE 8
-uun(1) = "      .        o"
-uun(2) = "  .    mm      o"
-uun(3) = ".     ommm  t  o"
-uun(4) = "     mom mm    o"
-uun(5) = "   pmmoyxmmm   o"
-uun(6) = "   mmmomammmm  m"
-uun(7) = "p mmmmv   mmmm  "
-uun(8) = "mmmmmmmmm mmmmmm"
-uun(9) = "                "
-uun(10) = ">>>>>>>>>>>>>>>>"
-maa = maa + 1
-CASE 10
-uun(1) = "m.  -          m"
-uun(2) = "m  .           m"
-uun(3) = "m 111     -    m"
-uun(4) = "mmmmm>>>    ammm"
-uun(5) = "a           a  m"
-uun(6) = "mmm  t      a  m"
-uun(7) = "           ma  m"
-uun(8) = ">>>         a  m"
-uun(9) = "       m yx  m m"
-uun(10) = ">>>mmmmmmmmmmm m"
+ao(1) = "0000000002222222000000000"
+ao(2) = "0000000222111112220000000"
+ao(3) = "0000002211131311122000000"
+ao(4) = "0000022113331133112200000"
+ao(5) = "0000022133331333312200000"
+ao(6) = "0000221133331333311220000"
+ao(7) = "0000221333331333331220000"
+ao(8) = "0000221333331333331220000"
+ao(9) = "0000221111111111111220000"
+ao(10) = "0000221333331333331220000"
+ao(11) = "0002211333331333331122000"
+ao(12) = "0002213333331333333122000"
+ao(13) = "0002213333331333333122000"
+ao(14) = "0002213333331333333122000"
+ao(15) = "0002213333331333333122000"
+ao(16) = "0002213333331333333122000"
+ao(17) = "0002213333331333333122000"
+ao(18) = "0002211111111111111122000"
+ao(19) = "2222222222222222222222222"
+ao(20) = "0222222222222222222222220"
 CASE 9
-uun(1) = "mammmmmmmmmmmmm "
-uun(2) = "m1m  y     xmo  "
-uun(3) = "mamooo>>>a>am om"
-uun(4) = "m1m     m1mamo m"
-uun(5) = "mamm    m1mam om"
-uun(6) = "m1m    mm1mamo m"
-uun(7) = "mammm   m1ma  om"
-uun(8) = "m1m   mmm1ma o m"
-uun(9) = "m        amam om"
-uun(10) = "mmmmmmmm<mmammmm"
-maa = maa + 2
-CASE 11
-uun(1) = ">>>>>>>>>>>>>>><"
-uun(2) = "> <x           <"
-uun(3) = "> <         >> <"
-uun(4) = "> <y>>>>>>>    <"
-uun(5) = "> <       <  <<<"
-uun(6) = "> <<<<a<< << < >"
-uun(7) = "> <        < <  "
-uun(8) = "> <m >m>>m <   >"
-uun(9) = ">              <"
-uun(10) = ">>>>m<<<<<<<<mm<"
-maa = maa + 2
+ao(1) = "00000001112220000000"
+ao(2) = "00001112222111120000"
+ao(3) = "00112222111122221100"
+ao(4) = "02222111122221111110"
+ao(5) = "01111122221111122220"
+ao(6) = "11122221111122221111"
+ao(7) = "22221111122221111111"
+ao(8) = "21111122221111112222"
+ao(9) = "11222221111112222111"
+ao(10) = "22221111112222111111"
+CASE 10
+ao(1) = "33333333333333333333333333333333333333333333333333333333333333333333333333333333"
+ao(2) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
+ao(3) = "30000110000111001110011111100011111110011111100000000000000000000000000000000003"
+ao(4) = "30001111100111001110011111110011111110011111110000000000000000002222000000000003"
+ao(5) = "30011001100011001100011100110011100110011100111000000000000000222222220000000003"
+ao(6) = "30011000000011001100011111110011100000011100111000000000000000222222222222000003"
+ao(7) = "30011000000011001100011111100011100110011111110000000000000000330330330002200003"
+ao(8) = "30011111000011001100011100000011111110011111100000000000000000333333330000000003"
+ao(9) = "30001111100011001100011100000011111110011100100000000000000000332222330000000003"
+ao(10) = "30000001100011001100011100000011100000011100110000000000000000033333300000000003"
+ao(11) = "30110001100011001100011100000011100110011100111000000000000030000111000000000003"
+ao(12) = "30111011100011111100011100000011111110011100111000000000000331111111111000000003"
+ao(13) = "30111111000001111000011100000011111110011100111000000000000331111111111100000003"
+ao(14) = "30000000000000000000000000000000000000000000000000000000000000001111101100000003"
+ao(15) = "30000000000000000000000000000000000000000000000000000000000000001111101100000003"
+ao(16) = "30000000000000000000000000000000000000000000000000000000000000001101100000000003"
+ao(17) = "30000000000000000000000000000000000000000000000000000000000000011101110000000003"
+ao(18) = "30000000000000000000000000000000000000000000000000000000000000011101110000000003"
+ao(19) = "30000000000000000000000000000000000000000000000000000000000000333303330000000003"
+ao(20) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
+ao(21) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
+ao(22) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
+ao(23) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
+ao(24) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
+ao(25) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
+ao(26) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
+ao(27) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
+ao(28) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
+ao(29) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
+ao(30) = "33333333333333333333333333333333333333333333333333333333333333333333333333333333"
+CASE 11
+ao(1) = "00000000000111111110000000000000000000000000000000"
+ao(2) = "00000000011111111111000001100000000000000000000000"
+ao(3) = "00000000111111111111110011110000000000000000000000"
+ao(4) = "00000001101111111111111111111000000000000000000000"
+ao(5) = "00000011111111111111111111111111000000000000000000"
+ao(6) = "00000111111111111111111111111111000000000000000000"
+ao(7) = "00000111111111111111111111111111001100000000000000"
+ao(8) = "00000111111111111111111111111111111111100000000000"
+ao(9) = "00000111111111111111111111111111111111100000000000"
+ao(10) = "00000111111111111111111111111111111111110000000000"
+ao(11) = "00000111111111111111111111111111111111111000000000"
+ao(12) = "00000111111111111111111111111111111111111100000000"
+ao(13) = "00000111111111111111111111111111111111111100000000"
+ao(14) = "00000111111111111111111111111111111111111100000000"
+ao(15) = "00000111111111111111111111111111111111111100000000"
+ao(16) = "00000111111111111111111111111111111111111100000000"
+ao(17) = "00011111111111111111111111111111111111111100000000"
+ao(18) = "00011111111111111111111111111111111111111100000000"
+ao(19) = "00111111110111111111111111111111111111111100000000"
+ao(20) = "01110111111111111111111111111111111111111100000000"
+ao(21) = "11111111111111111111111111111111111111111111100000"
+ao(22) = "11111111111111111111111111111111111111111111100000"
+ao(23) = "11111111111111111111111111111111111111111111100000"
+ao(24) = "11111111111111111111111111111111111111111111100000"
+ao(25) = "11111111111111111111111111111111111111111111111110"
+ao(26) = "11111111111111111111111111111111111111111111110111"
+ao(27) = "11111111111111111111111111111111111111111111111111"
+ao(28) = "11011111111111111111111111111111111111111111111101"
+ao(29) = "11111111111111111111111111111111111111111111111111"
+ao(30) = "11111111111111111111111111111111111111111111111111"
+ao(31) = "11111111111111111111111111111111111111111111111011"
+ao(32) = "11111111111111111111111111111111111111111111111100"
+ao(33) = "11111111111111111111111111111111111111111111111000"
+ao(34) = "01111111111111111111111111111111111111111111110000"
+ao(35) = "11111111111111111111111111111111111111111110110000"
+ao(36) = "11111111111111111111111111111111111111111110110000"
+ao(37) = "11111111111111111111111111111111111111111111110000"
+ao(38) = "01111111111111111111111111111111111111111111110000"
+ao(39) = "01111111111111111111111111111111111111111111110000"
+ao(40) = "00011111111111111111111111111111111111111111100000"
+ao(41) = "00111111111111111111111111111111111111111111100000"
+ao(42) = "00011111111111111111111111111111111111111111110000"
+ao(43) = "00001111111111111111111111111111111111111111110000"
+ao(44) = "00001111111111111111111111111111111111111111111000"
+ao(45) = "0000110111111111111111111111111111111111111111100"
+ao(46) = "0000110011111111111111111111011111111111111100000"
+ao(47) = "0000111101101111111111111111111111111110111000000"
+ao(48) = "0000000000001111111111111111111111111111110000000"
+ao(49) = "0000000000000001111111111111111111110111110000000"
+ao(50) = "0000000000000000000011111111111111100111110000000"
+ao(51) = "0000000000000000000001111020111000000000000000000"
+ao(52) = "0000000000000000000001111222200000000000000000000"
+ao(53) = "0000000000000000000000222222220000000000000000000"
+ao(54) = "0000000000000000000000222222020000000000000000000"
+ao(55) = "0000000000000000000000202222220000000000000000000"
+ao(56) = "0000000000000000000000222222220000000000000000000"
+ao(57) = "0000000000000000000000220202220000000000000000000"
+ao(58) = "0000000000000000000000222222220000000000000000000"
+ao(59) = "0000000000000000000000202222220000000000000000000"
+ao(60) = "0000000000000000000000222222220000000000000000000"
+ao(61) = "000000000000000000000022022220000000000"
+ao(62) = "0000000000000000000000222222220000000000000000000"
+ao(63) = "0000000000000000000000220222200000000000000000000"
+ao(64) = "0000000000000000000000222220200000000000000000000"
+ao(65) = "0000000000000000000000220222200000000000000000000"
+ao(66) = "0000000000000000000000222222200000000000000000000"
+ao(67) = "0000000000000000000000222222200000000000000000000"
+ao(68) = "0000000000000000000000202222000000000000000000000"
+ao(69) = "0000000000000000002000222222220000000000000000000"
+ao(70) = "0000000000000000002200222222000000000000000000000"
+ao(71) = "0000000000000000000222222222000000000000000000000"
+ao(72) = "0000000000000000000222222222000000000000000000000"
+ao(73) = "0000000000000000000022222222000000000000000000000"
+ao(74) = "0000000000000000000022222222000000000000000000000"
+ao(75) = "0000000000000000000020222222000000000000000000000"
+ao(76) = "0000000000000000000222222202000000000000000000000"
+ao(77) = "000000000000000000022022222200000000000"
+ao(78) = "0000000000000000022222222222200000000000000000000"
+ao(79) = "0000000000000000220222222222220000"
+ao(80) = "000000000000000022222222222222"
 CASE 12
-uun(1) = "m     aaaaaaaaam"
-uun(2) = "m  -         xmm"
-uun(3) = "m        t. ym 1"
-uun(4) = "m     .     moom"
-uun(5) = "m          am  1"
-uun(6) = "m         mamomm"
-uun(7) = "m      - mmam  1"
-uun(8) = "m       mmmamomm"
-uun(9) = "m p  p mm      1"
-uun(10) = "mmmmmmmmmammmm<<"
+ao(1) = "11111111111111111111"
+ao(2) = "11111111111111111111"
+ao(3) = "11111111112111111111"
+ao(4) = "11111111112211111111"
+ao(5) = "11111111112221111111"
+ao(6) = "11111111112222111111"
+ao(7) = "11111111112222211111"
+ao(8) = "11122222222222221111"
+ao(9) = "11122222222222222111"
+ao(10) = "11122222222222222211"
+ao(11) = "11122222222222222211"
+ao(12) = "11122222222222222111"
+ao(13) = "11122222222222221111"
+ao(14) = "11111111112222211111"
+ao(15) = "11111111112222111111"
+ao(16) = "11111111112221111111"
+ao(17) = "11111111112211111111"
+ao(18) = "11111111112111111111"
+ao(19) = "11111111111111111111"
+ao(20) = "11111111111111111111"
 CASE 13
-uun(1) = "mmmmmmmmmmmmmmmm"
-uun(2) = "m   m          m"
-uun(3) = "  ma   1a1a1a  m"
-uun(4) = "mmma aaaaaaaam m"
-uun(5) = "11maaaaaaaaaam m"
-uun(6) = "mmmaaaaaaaaaam m"
-uun(7) = "11x         ym m"
-uun(8) = "mmmmmmmmmmmmmm m"
-uun(9) = "               m"
-uun(10) = "mmmmmmmmmmmmmmmm"
+ao(1) = "03333333333333333330"
+ao(2) = "33333333222233333333"
+ao(3) = "33333332222223333333"
+ao(4) = "33333332222223333333"
+ao(5) = "33333332222223333333"
+ao(6) = "33333332222223333333"
+ao(7) = "33333332222223333333"
+ao(8) = "33333332222223333333"
+ao(9) = "33333332222223333333"
+ao(10) = "33333332222223333333"
+ao(11) = "33333333222233333333"
+ao(12) = "33333333333333333333"
+ao(13) = "33333333333333333333"
+ao(14) = "33333333222233333333"
+ao(15) = "33333332222223333333"
+ao(16) = "33333332222223333333"
+ao(17) = "33333332222223333333"
+ao(18) = "33333333222233333333"
+ao(19) = "33333333333333333333"
+ao(20) = "03333333333333333330"
 CASE 14
-uun(1) = "mmmmmmmmm-      "
-uun(2) = "mm mmmmmmm  -   "
-uun(3) = "mm       m      "
-uun(4) = "mm >>>>> m  -   "
-uun(5) = "mmv  m   m     ."
-uun(6) = ">><< m <<m  -   "
-uun(7) = "11 m m m   .    "
-uun(8) = ">> m m m    xy    "
-uun(9) = "mm  vm    v     "
-uun(10) = "mm>><m>>>>>mmmmm"
+ao(1) = "00000000000300000000"
+ao(2) = "00000000003300000000"
+ao(3) = "00000000003330000000"
+ao(4) = "00000000033331100000"
+ao(5) = "00000000033331100000"
+ao(6) = "00000000333333000000"
+ao(7) = "00000000331333000000"
+ao(8) = "00000000333111000000"
+ao(9) = "00033333333333333300"
+ao(10) = "03333333333333333333"
+ao(11) = "00333333333333333300"
+ao(12) = "00000033333333330000"
+ao(13) = "00000033333333000000"
+ao(14) = "00000333333333300000"
+ao(15) = "00000333330333330000"
+ao(16) = "00000333300033330000"
+ao(17) = "00000330000033333000"
+ao(18) = "00003300000000333300"
+ao(19) = "00003000000000003330"
+ao(20) = "00003000000000000030"
 CASE 15
-CLS
-uun(1) = "      m        m"
-uun(2) = "mm ymmmmmmmmmaaa"
-uun(3) = "<<oo    1111maaa"
-uun(4) = "       <<111maaa"
-uun(5) = "<<m<     m11maaa"
-uun(6) = "    t  oomm  aaa"
-uun(7) = "      vo    mm1m"
-uun(8) = "       mm<<<mm1m"
-uun(9) = "  m  x <<mmmmm11"
-uun(10) = "mmmmmmmmmmmmmmmm"
-voolual = 1
+ao(1) = "0000000000300000000"
+ao(2) = "0000000003300000000"
+ao(3) = "00000000033000000000"
+ao(4) = "00000000333300000000"
+ao(5) = "00000000333220000000"
+ao(6) = "00000000333220000000"
+ao(7) = "00000003333320000000"
+ao(8) = "00000003313330000000"
+ao(9) = "00000003333330000000"
+ao(10) = "00000333333333000000"
+ao(11) = "00033333333333330000"
+ao(12) = "03333333333333333300"
+ao(13) = "03333303333333333300"
+ao(14) = "33000000333333333333"
+ao(15) = "00000000333330000333"
+ao(16) = "00000000033300000000"
+ao(17) = "00000000033300000000"
+ao(18) = "00000000030300000000"
+ao(19) = "00000000030300000000"
+ao(20) = "00000000030300000000"
 CASE 16
-uun(1) = "m11     aa       m     11111  m"
-uun(2) = "m11    a   a  a    <          m"
-uun(3) = "m11  >aam       v  t  a       m"
-uun(4) = "m11om y o                 a  am"
-uun(5) = "m11  oooo  t                  m"
-uun(6) = ">>>om         p  p        m   m"
-uun(7) = "m     mmm     mamamom     mm  m"
-uun(8) = "m  v mmmmm    mam 11m  mmmmmm m"
-uun(9) = "m  mmmmmmmmm  mam  1mm    mm  m"
-uun(10) = "mm  m1     m  mam111m     m   m"
-uun(11) = "m m  o     m  mam  vm         m"
-uun(12) = "m  m  m1111m vmammmmm  m      m"
-uun(13) = "m   m  mmmmm 11                "
-uun(14) = "mmmmmm   m mamammmmm         mm"
-uun(15) = "m       m  mam1111m       m  >m"
-uun(16) = "m      m   m1m111m     m      m"
-uun(17) = "      m    mammmm  mm>>> <<<>>m"
-uun(18) = "     m     m  x   m      m   m "
-uun(19) = "mmmmm      mmmmmmm       mmm mm"
-voolual = 2
+ao(1) = "00000000003000000000"
+ao(2) = "00000000033300000000"
+ao(3) = "00000000333330000000"
+ao(4) = "00000000333330000000"
+ao(5) = "00000001111111000000"
+ao(6) = "00000001133311000000"
+ao(7) = "00000003333333000000"
+ao(8) = "00000003333333000000"
+ao(9) = "00000003322233000000"
+ao(10) = "00000003333333000000"
+ao(11) = "00000003333333000000"
+ao(12) = "00000003333333000000"
+ao(13) = "00000003333333000000"
+ao(14) = "00000000333330000000"
+ao(15) = "00000000333330000000"
+ao(16) = "00000000330330000000"
+ao(17) = "00000000330330000000"
+ao(18) = "00000000000000000000"
+ao(19) = "00000000000000000000"
+ao(20) = "00000000000000000000"
 CASE 17
-uun(1) = "mu 1111        m"
-uun(2) = "mmmmmmm   <<<<am"
-uun(3) = "m     m  a   mam"
-uun(4) = "m     m    y m1m"
-uun(5) = "m     mm   <xmam"
-uun(6) = "      m  <<<<m1m"
-uun(7) = "      m      ma1"
-uun(8) = "mmmm  m    <<mmm"
-uun(9) = "m111    vU   m  "
-uun(10) = "mmmmmmmaamaaam  "
-voolual = 1
-CASE 18
-uun(1) = "oo            m                "
-uun(2) = "oo     h   h  m                "
-uun(3) = "oo x          m   h      m>>>>>"
-uun(4) = "oo m11111111m m         mm    m"
-uun(5) = "oo m11111111m m  mm  h  m     m"
-uun(6) = "oo mmmmmmmmmm m   m    vm     m"
-uun(7) = "oo            mm  mmmmmmm     m"
-uun(8) = " v                            m"
-uun(9) = "mom    mmmmmm   v             m"
-uun(10) = "m m m  mmmmmm     mm   h  h   m"
-uun(11) = "m                             m"
-uun(12) = "m <<<<<<<<<<<<<<<<<<<<<<<<<<< m"
-uun(13) = "mam                           m"
-uun(14) = "mammooooommaaammm      maaaaavm"
-uun(15) = "mam     oo       a ma  m111111m"
-uun(16) = "mam    oo  <<< h mh h  mma<>amm"
-uun(17) = "mam   moom   <<               m"
-uun(18) = "my   mm         m     m       m"
-uun(19) = "mmmmmmmmmmmm<<mmmaaaaammmmmmmmm"
-voolual = 2
-CASE 19
-CLS
-drawSprite 1, 1, 10, 3, 1
-LOCATE 20, 1
-PRINT "end"
-FOR a = 1 TO 50
-a$ = INKEY$
-NEXT a
-a$ = INPUT$(1)
-CLS
-SCREEN 2
-END
-END
-CASE 100
-uun(1) = "                "
-uun(2) = "                "
-uun(3) = "                "
-uun(4) = "                "
-uun(5) = "                "
-uun(6) = "                "
-uun(7) = "                "
-uun(8) = "                "
-uun(9) = "                "
-uun(10) = "                "
-CASE 101
-uun(1) = "                               "
-uun(2) = "                               "
-uun(3) = "                               "
-uun(4) = "                               "
-uun(5) = "                               "
-uun(6) = "                               "
-uun(7) = "                               "
-uun(8) = "                               "
-uun(9) = "                               "
-uun(10) = "                               "
-uun(11) = "                               "
-uun(12) = "                               "
-uun(13) = "                               "
-uun(14) = "                               "
-uun(15) = "                               "
-uun(16) = "                               "
-uun(17) = "                               "
-uun(18) = "                               "
-uun(19) = "                               "
-voolual = 2
-
-END SELECT
-IF voolual = 2 THEN GOTO 124
-FOR e = 0 TO 9
-FOR D = 0 TO 15
-q$ = RIGHT$(LEFT$(uun(e + 1), D + 1), 1)
-IF q$ = "m" THEN PUT (D * 20, e * 20), ruut, PSET: asend(D + 1, e + 1) = "z"
-IF q$ = "o" THEN PUT (D * 20, e * 20), kast, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "o"
-IF q$ = "." THEN PUT (D * 20, e * 20), taht, PSET
-IF q$ = "-" THEN PUT (D * 20, e * 20), pilv, PSET
-IF q$ = "x" THEN siia = D * 20: siib = (e + 1) * 20
-IF q$ = "y" THEN siia1 = D * 20: siib1 = (e + 1) * 20
-IF q$ = "1" THEN PUT (D * 20, e * 20), munt, PSET: asend(D + 1, e + 1) = "1"
-IF q$ = "p" THEN PUT (D * 20, (e * 20) + 10), poosas, PSET
-IF q$ = "h" THEN PUT (D * 20, e * 20), aken, PSET
-IF q$ = "v" THEN PUT (D * 20, (e * 20) + 10), vedru, PSET: asend(D + 1, e + 1) = "v"
-IF q$ = "t" THEN PUT (D * 20, e * 20), puu, PSET
-IF q$ = ">" THEN PUT (D * 20, e * 20), noolt, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = ">"
-IF q$ = "<" THEN PUT (D * 20, e * 20), noolt1, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "<"
-IF q$ = "a" THEN PUT (D * 20, e * 20), auk, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "a"
-IF q$ = "u" THEN PUT (D * 20, e * 20), uks, PSET: asend(D + 1, e + 1) = "u": uks1 = D * 20: uks2 = e * 20
-IF q$ = "U" THEN PUT (D * 20, e * 20), uks, PSET: asend(D + 1, e + 1) = "U": uks3 = D * 20: uks4 = e * 20
-NEXT D
-NEXT e
-GOTO 123
-124
-FOR e = 0 TO 19
-FOR D = 0 TO 30
-q$ = RIGHT$(LEFT$(uun(e + 1), D + 1), 1)
-IF q$ = "m" THEN PUT (D * 10, e * 10), ruutm, PSET: asend(D + 1, e + 1) = "z"
-IF q$ = "o" THEN PUT (D * 10, e * 10), kastm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "o"
-IF q$ = "." THEN PUT (D * 10, e * 10), tahtm, PSET
-IF q$ = "-" THEN PUT (D * 10, e * 10), pilvm, PSET
-IF q$ = "x" THEN siia = D * 20: siib = (e + 1) * 20
-IF q$ = "y" THEN siia1 = D * 20: siib1 = (e + 1) * 20
-IF q$ = "1" THEN PUT (D * 10, e * 10), muntm, PSET: asend(D + 1, e + 1) = "1"
-IF q$ = "p" THEN PUT (D * 10, (e * 10) + 5), poosasm, PSET
-IF q$ = "h" THEN PUT (D * 10, e * 10), akenm, PSET
-IF q$ = "v" THEN PUT (D * 10, (e * 10) + 5), vedrum, PSET: asend(D + 1, e + 1) = "v"
-IF q$ = "t" THEN PUT (D * 10, e * 10), puum, PSET
-IF q$ = ">" THEN PUT (D * 10, e * 10), nooltm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = ">"
-IF q$ = "<" THEN PUT (D * 10, e * 10), nooltm1, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "<"
-IF q$ = "a" THEN PUT (D * 10, e * 10), aukm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "a"
-IF q$ = "u" THEN PUT (D * 10, e * 10), uksm, PSET: asend(D + 1, e + 1) = "u": uks1 = D * 20: uks2 = e * 20
-IF q$ = "U" THEN PUT (D * 10, e * 10), uksm, PSET: asend(D + 1, e + 1) = "U": uks3 = D * 20: uks4 = e * 20
-NEXT D
-NEXT e
-123
+ao(1) = "00000022222222000000"
+ao(2) = "00002222222222220000"
+ao(3) = "00022220000000222000"
+ao(4) = "00020002222222002000"
+ao(5) = "00202222222222222200"
+ao(6) = "00202222222222220200"
+ao(7) = "00202222222222220200"
+ao(8) = "02202222222222220220"
+ao(9) = "02022222222222220220"
+ao(10) = "02022323232323322020"
+ao(11) = "02022323232323222020"
+ao(12) = "02022323233223332020"
+ao(13) = "22022323232322232022"
+ao(14) = "20222323232322232202"
+ao(15) = "20222232232323332202"
+ao(16) = "20222222222222222202"
+ao(17) = "20222222222222112202"
+ao(18) = "20222222222222112202"
+ao(19) = "20222222222222112202"
+ao(20) = "20222222222222222202"
+ao(21) = "20222222222222222202"
+ao(22) = "20222222222222222202"
+ao(23) = "20222222222222222202"
+ao(24) = "20222222222222222202"
+ao(25) = "20222222222222222202"
+ao(26) = "20222222222222222202"
+ao(27) = "20222222222222222202"
+ao(28) = "20222222222222222202"
+ao(29) = "20000000000000000002"
+ao(30) = "22222222222222222222"
+
+END SELECT
+IF fr = 50 THEN GOTO 8
+IF fr > 1 THEN GOTO 4
+FOR a = 1 TO 100
+IF ao(a) = "" THEN GOTO 1
+FOR b = 1 TO LEN(ao(a))
+PSET ((p + b) \ teler, (o + a) \ teler), ASC(RIGHT$(LEFT$(ao(a), b), 1)) - 48
+NEXT b
+NEXT a
+GOTO 1
+4
+FOR a = 1 TO 100
+IF ao(a) = "" THEN GOTO 1
+FOR b = 1 TO LEN(ao(a))
+c = ASC(RIGHT$(LEFT$(ao(a), b), 1)) - 48
+LINE (p + (b * fr), o + (a * fr))-(p + (b * fr) + fr, o + (a * fr) + fr), c, BF
+NEXT b
+NEXT a
+GOTO 1
+8
+FOR a = 1 TO 100
+IF ao(a) = "" THEN GOTO 1
+FOR b = 1 TO LEN(ao(a))
+PSET ((p + b) \ teler, (o + a) \ teler), ASC(LEFT$(RIGHT$(ao(a), b), 1)) - 48
+NEXT b
+NEXT a
+
+1
+ERASE ao
 END SUB
 
-SUB drawSprite (p, o, m, fr, teler)
-DIM ao(1 TO 100) AS STRING
-SELECT CASE m
+SUB loadLevel (y)
+125
+siia = 0
+siib = 0
+aiia1 = 0
+siib1 = 0
+FOR a1 = 1 TO 32
+FOR b1 = 1 TO 20
+asend(a1, b1) = ""
+asend1(a1, b1) = ""
+NEXT b1
+NEXT a1
+FOR a = 1 TO 10
+uun(a) = ""
+NEXT a
+CLS
+LOCATE 3, 10
+SELECT CASE y
 CASE 1
-ao(1) = "00000000000000000000"
-ao(2) = "00111111111111111100"
-ao(3) = "01222222222222222210"
-ao(4) = "01233333333333333210"
-ao(5) = "01232222222222223210"
-ao(6) = "01232111111111123210"
-ao(7) = "01232111111111123210"
-ao(8) = "01232111111111123210"
-ao(9) = "01232111111111123210"
-ao(10) = "01232111111111123210"
-ao(11) = "01232111111111123210"
-ao(12) = "01232111111111123210"
-ao(13) = "01232111111111123210"
-ao(14) = "01232111111111123210"
-ao(15) = "01232111111111123210"
-ao(16) = "01232222222222223210"
-ao(17) = "01233333333333333210"
-ao(18) = "01222222222222222210"
-ao(19) = "00111111111111111100"
-ao(20) = "00000000000000000000"
+uun(1) = "             mmm"
+uun(2) = "    -       m mm"
+uun(3) = "        .  - mmm"
+uun(4) = "o   .  .    mymm"
+uun(5) = "o           -mmm"
+uun(6) = "o    t      mxmm"
+uun(7) = "o            mmm"
+uun(8) = "o           1 1 "
+uun(9) = "o  p     p 1 1 1"
+uun(10) = "mmmmmmmmmmmmmmmm"
+graphicsMode = 1
 CASE 2
-ao(1) = "000000022200000222220000002222222200000000000222222000000000"
-ao(2) = "000000022222002222222000222222222222000000222222222220000000"
-ao(3) = "000000222222222222222202222222222222222222222222222222200000"
-ao(4) = "000000222222222222222222222333333222220222222222222221110000"
-ao(5) = "000000222222233333322222223333333322222222222222222221111000"
-ao(6) = "000000022333333333333222233333333333222233322222222221111000"
-ao(7) = "000002222333333333333322233333333333333333333222222221111100"
-ao(8) = "000222222333333333333333333333333333333333333322222221111100"
-ao(9) = "002222223333333333333333333333333333333333333333222221111100"
-ao(10) = "022223333333333333333333333333333333333333333333222221111110"
-ao(11) = "022233333333333333333333333333333333333333333333322222111110"
-ao(12) = "222333333333333333333333333333333333333333333333322222111110"
-ao(13) = "222333333333333333333333323333333323131113333333221221111110"
-ao(14) = "223333333333333333333331112233331121111133333322112211111110"
-ao(15) = "213333333333333333333331111133111111111111111112222111111110"
-ao(16) = "111333313333333333333111111122111111111111111111221111111110"
-ao(17) = "111333311111111333111111111111111111111111111111111111111100"
-ao(18) = "011111111111111111111111111111111111111111111111111111111100"
-ao(19) = "011111111111111111111111111111111111111111111111111111111100"
-ao(20) = "011111111111111111111111111111111111111111111111111111111000"
-ao(21) = "001111111111111111111111111111111111111111111111110111100000"
-ao(22) = "001111111111111100111111111111111111111111111111100000000000"
-ao(23) = "000111111111110000011111111111100011111111111111000000000000"
-ao(24) = "000011111111100000000111111111000000011111111100000000000000"
-ao(25) = "000001111110000000000001111110000000000000000000000000000000"
+uun(1) = "mmmmmmmmmmmmmmmm"
+uun(2) = "mm   h h        "
+uun(3) = "mmx m    mmmymmm"
+uun(4) = "mmommmmmm  mom m"
+uun(5) = "mo   1 1 1 o1m1m"
+uun(6) = "momm m m m m111m"
+uun(7) = "m      h mmmmoom"
+uun(8) = " mm h          m"
+uun(9) = "        v mmm mm"
+uun(10) = "mmmmmmmmmmmmmmmm"
 CASE 3
-ao(1) = "0000010000"
-ao(2) = "0000010000"
-ao(3) = "0000121000"
-ao(4) = "0000131000"
-ao(5) = "1111232111"
-ao(6) = "0123333210"
-ao(7) = "0123333210"
-ao(8) = "0012332100"
-ao(9) = "0001221000"
-ao(10) = "0012112100"
-ao(11) = "0121001210"
-ao(12) = "0110000110"
-ao(13) = "1100000011"
+uun(1) = "mmmmmmmmmmmmmmmm"
+uun(2) = " h h h h h  ym11"
+uun(3) = "mm mmmmmmmmmmm1m"
+uun(4) = "m h  m      xm  "
+uun(5) = "mm m m mmmmmmmmm"
+uun(6) = "mmmm     m1m    "
+uun(7) = "m    h   m1moo m"
+uun(8) = "m mmmmmm m1moomm"
+uun(9) = "m 11111m  h h   "
+uun(10) = "mmmmmmmmmmmmmmmm"
 CASE 4
-ao(1) = "01111111110111111111"
-ao(2) = "01222222210122222221"
-ao(3) = "01233333210123333321"
-ao(4) = "01233333210123333321"
-ao(5) = "01233333210123333321"
-ao(6) = "01233333210123333321"
-ao(7) = "01233333210123333321"
-ao(8) = "01222222210122222221"
-ao(9) = "01111111110111111111"
-ao(10) = "00000000000000000000"
-ao(11) = "01111111110111111111"
-ao(12) = "01222222210122222221"
-ao(13) = "01233333210123333321"
-ao(14) = "01233333210123333321"
-ao(15) = "01233333210123333321"
-ao(16) = "01233333210123333321"
-ao(17) = "01233333210123333321"
-ao(18) = "01222222210122222221"
-ao(19) = "01111111110111111111"
-ao(20) = "00000000000000000000"
+uun(1) = "mmmmmmmmmmmmmmmm"
+uun(2) = "     h1  h1    m"
+uun(3) = "mmm  1 11  1 o1m"
+uun(4) = "  m 1  oo   1o1m"
+uun(5) = "m moo       oo1m"
+uun(6) = "  m      h  o   "
+uun(7) = "mmm  h      o   "
+uun(8) = "m           o   "
+uun(9) = "        x   oy  "
+uun(10) = "mmmmmmmmmmmmmmmm"
 CASE 5
-ao(1) = "0000333000"
-ao(2) = "0033333300"
-ao(3) = "0332222220"
-ao(4) = "3322222222"
-ao(5) = "3222111112"
-ao(6) = "3111111111"
-ao(7) = "1111111111"
+uun(1) = "m       . y -   "
+uun(2) = "m      m     moo"
+uun(3) = "m.    mxm    mmo"
+uun(4) = "m  -    m mmmmmm"
+uun(5) = "m .    m     mm "
+uun(6) = "mt  o   o    m  "
+uun(7) = "m   o om o  ooo "
+uun(8) = "m   ooooooooooo "
+uun(9) = "         v    o "
+uun(10) = "oooooooooooooooo"
 CASE 6
-ao(1) = "00111100"
-ao(2) = "01222210"
-ao(3) = "12233221"
-ao(4) = "12233221"
-ao(5) = "12233221"
-ao(6) = "12233221"
-ao(7) = "12233221"
-ao(8) = "12233221"
-ao(9) = "01222210"
-ao(10) = "00111100"
-CASE 7
-ao(1) = "000000000000000033333300000000"
-ao(2) = "000000000000000333333333000000"
-ao(3) = "000000333300003332222222300000"
-ao(4) = "000003333330333322232222220000"
-ao(5) = "000033322333333222222222222000"
-ao(6) = "003332222223332222322212222200"
-ao(7) = "033222232222222222111211122200"
-ao(8) = "033222222232111111111111112220"
-ao(9) = "332223222111121121111111111222"
-ao(10) = "322222111111111111121111111111"
-CASE 8
-ao(1) = "0000000002222222000000000"
-ao(2) = "0000000222111112220000000"
-ao(3) = "0000002211131311122000000"
-ao(4) = "0000022113331133112200000"
-ao(5) = "0000022133331333312200000"
-ao(6) = "0000221133331333311220000"
-ao(7) = "0000221333331333331220000"
-ao(8) = "0000221333331333331220000"
-ao(9) = "0000221111111111111220000"
-ao(10) = "0000221333331333331220000"
-ao(11) = "0002211333331333331122000"
-ao(12) = "0002213333331333333122000"
-ao(13) = "0002213333331333333122000"
-ao(14) = "0002213333331333333122000"
-ao(15) = "0002213333331333333122000"
-ao(16) = "0002213333331333333122000"
-ao(17) = "0002213333331333333122000"
-ao(18) = "0002211111111111111122000"
-ao(19) = "2222222222222222222222222"
-ao(20) = "0222222222222222222222220"
-CASE 9
-ao(1) = "00000001112220000000"
-ao(2) = "00001112222111120000"
-ao(3) = "00112222111122221100"
-ao(4) = "02222111122221111110"
-ao(5) = "01111122221111122220"
-ao(6) = "11122221111122221111"
-ao(7) = "22221111122221111111"
-ao(8) = "21111122221111112222"
-ao(9) = "11222221111112222111"
-ao(10) = "22221111112222111111"
+CLS
+uun(1) = "    -           "
+uun(2) = "             .  "
+uun(3) = "       oo- oo   "
+uun(4) = "  -    11  11  ."
+uun(5) = "       oo  oo   "
+uun(6) = "   m ym11  11   "
+uun(7) = "   m  m         "
+uun(8) = "   ooom  <>  <> "
+uun(9) = "       xmmm  mmm"
+uun(10) = "mmmmmmmmmmm  mmm"
+CASE 7
+uun(1) = " oooo           "
+uun(2) = " o111  .        "
+uun(3) = " oooo>    >>>>>>"
+uun(4) = "  .    x v     m"
+uun(5) = "       mym     m"
+uun(6) = "        m      m"
+uun(7) = "            111m"
+uun(8) = "            111m"
+uun(9) = "  v          p  "
+uun(10) = "oooaaaaaaaaaoooo"
+CASE 8
+uun(1) = "      .        o"
+uun(2) = "  .    mm      o"
+uun(3) = ".     ommm  t  o"
+uun(4) = "     mom mm    o"
+uun(5) = "   pmmoyxmmm   o"
+uun(6) = "   mmmomammmm  m"
+uun(7) = "p mmmmv   mmmm  "
+uun(8) = "mmmmmmmmm mmmmmm"
+uun(9) = "                "
+uun(10) = ">>>>>>>>>>>>>>>>"
+maa = maa + 1
 CASE 10
-ao(1) = "33333333333333333333333333333333333333333333333333333333333333333333333333333333"
-ao(2) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
-ao(3) = "30000110000111001110011111100011111110011111100000000000000000000000000000000003"
-ao(4) = "30001111100111001110011111110011111110011111110000000000000000002222000000000003"
-ao(5) = "30011001100011001100011100110011100110011100111000000000000000222222220000000003"
-ao(6) = "30011000000011001100011111110011100000011100111000000000000000222222222222000003"
-ao(7) = "30011000000011001100011111100011100110011111110000000000000000330330330002200003"
-ao(8) = "30011111000011001100011100000011111110011111100000000000000000333333330000000003"
-ao(9) = "30001111100011001100011100000011111110011100100000000000000000332222330000000003"
-ao(10) = "30000001100011001100011100000011100000011100110000000000000000033333300000000003"
-ao(11) = "30110001100011001100011100000011100110011100111000000000000030000111000000000003"
-ao(12) = "30111011100011111100011100000011111110011100111000000000000331111111111000000003"
-ao(13) = "30111111000001111000011100000011111110011100111000000000000331111111111100000003"
-ao(14) = "30000000000000000000000000000000000000000000000000000000000000001111101100000003"
-ao(15) = "30000000000000000000000000000000000000000000000000000000000000001111101100000003"
-ao(16) = "30000000000000000000000000000000000000000000000000000000000000001101100000000003"
-ao(17) = "30000000000000000000000000000000000000000000000000000000000000011101110000000003"
-ao(18) = "30000000000000000000000000000000000000000000000000000000000000011101110000000003"
-ao(19) = "30000000000000000000000000000000000000000000000000000000000000333303330000000003"
-ao(20) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
-ao(21) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
-ao(22) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
-ao(23) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
-ao(24) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
-ao(25) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
-ao(26) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
-ao(27) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
-ao(28) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
-ao(29) = "30000000000000000000000000000000000000000000000000000000000000000000000000000003"
-ao(30) = "33333333333333333333333333333333333333333333333333333333333333333333333333333333"
+uun(1) = "m.  -          m"
+uun(2) = "m  .           m"
+uun(3) = "m 111     -    m"
+uun(4) = "mmmmm>>>    ammm"
+uun(5) = "a           a  m"
+uun(6) = "mmm  t      a  m"
+uun(7) = "           ma  m"
+uun(8) = ">>>         a  m"
+uun(9) = "       m yx  m m"
+uun(10) = ">>>mmmmmmmmmmm m"
+CASE 9
+uun(1) = "mammmmmmmmmmmmm "
+uun(2) = "m1m  y     xmo  "
+uun(3) = "mamooo>>>a>am om"
+uun(4) = "m1m     m1mamo m"
+uun(5) = "mamm    m1mam om"
+uun(6) = "m1m    mm1mamo m"
+uun(7) = "mammm   m1ma  om"
+uun(8) = "m1m   mmm1ma o m"
+uun(9) = "m        amam om"
+uun(10) = "mmmmmmmm<mmammmm"
+maa = maa + 2
 CASE 11
-ao(1) = "00000000000111111110000000000000000000000000000000"
-ao(2) = "00000000011111111111000001100000000000000000000000"
-ao(3) = "00000000111111111111110011110000000000000000000000"
-ao(4) = "00000001101111111111111111111000000000000000000000"
-ao(5) = "00000011111111111111111111111111000000000000000000"
-ao(6) = "00000111111111111111111111111111000000000000000000"
-ao(7) = "00000111111111111111111111111111001100000000000000"
-ao(8) = "00000111111111111111111111111111111111100000000000"
-ao(9) = "00000111111111111111111111111111111111100000000000"
-ao(10) = "00000111111111111111111111111111111111110000000000"
-ao(11) = "00000111111111111111111111111111111111111000000000"
-ao(12) = "00000111111111111111111111111111111111111100000000"
-ao(13) = "00000111111111111111111111111111111111111100000000"
-ao(14) = "00000111111111111111111111111111111111111100000000"
-ao(15) = "00000111111111111111111111111111111111111100000000"
-ao(16) = "00000111111111111111111111111111111111111100000000"
-ao(17) = "00011111111111111111111111111111111111111100000000"
-ao(18) = "00011111111111111111111111111111111111111100000000"
-ao(19) = "00111111110111111111111111111111111111111100000000"
-ao(20) = "01110111111111111111111111111111111111111100000000"
-ao(21) = "11111111111111111111111111111111111111111111100000"
-ao(22) = "11111111111111111111111111111111111111111111100000"
-ao(23) = "11111111111111111111111111111111111111111111100000"
-ao(24) = "11111111111111111111111111111111111111111111100000"
-ao(25) = "11111111111111111111111111111111111111111111111110"
-ao(26) = "11111111111111111111111111111111111111111111110111"
-ao(27) = "11111111111111111111111111111111111111111111111111"
-ao(28) = "11011111111111111111111111111111111111111111111101"
-ao(29) = "11111111111111111111111111111111111111111111111111"
-ao(30) = "11111111111111111111111111111111111111111111111111"
-ao(31) = "11111111111111111111111111111111111111111111111011"
-ao(32) = "11111111111111111111111111111111111111111111111100"
-ao(33) = "11111111111111111111111111111111111111111111111000"
-ao(34) = "01111111111111111111111111111111111111111111110000"
-ao(35) = "11111111111111111111111111111111111111111110110000"
-ao(36) = "11111111111111111111111111111111111111111110110000"
-ao(37) = "11111111111111111111111111111111111111111111110000"
-ao(38) = "01111111111111111111111111111111111111111111110000"
-ao(39) = "01111111111111111111111111111111111111111111110000"
-ao(40) = "00011111111111111111111111111111111111111111100000"
-ao(41) = "00111111111111111111111111111111111111111111100000"
-ao(42) = "00011111111111111111111111111111111111111111110000"
-ao(43) = "00001111111111111111111111111111111111111111110000"
-ao(44) = "00001111111111111111111111111111111111111111111000"
-ao(45) = "0000110111111111111111111111111111111111111111100"
-ao(46) = "0000110011111111111111111111011111111111111100000"
-ao(47) = "0000111101101111111111111111111111111110111000000"
-ao(48) = "0000000000001111111111111111111111111111110000000"
-ao(49) = "0000000000000001111111111111111111110111110000000"
-ao(50) = "0000000000000000000011111111111111100111110000000"
-ao(51) = "0000000000000000000001111020111000000000000000000"
-ao(52) = "0000000000000000000001111222200000000000000000000"
-ao(53) = "0000000000000000000000222222220000000000000000000"
-ao(54) = "0000000000000000000000222222020000000000000000000"
-ao(55) = "0000000000000000000000202222220000000000000000000"
-ao(56) = "0000000000000000000000222222220000000000000000000"
-ao(57) = "0000000000000000000000220202220000000000000000000"
-ao(58) = "0000000000000000000000222222220000000000000000000"
-ao(59) = "0000000000000000000000202222220000000000000000000"
-ao(60) = "0000000000000000000000222222220000000000000000000"
-ao(61) = "000000000000000000000022022220000000000"
-ao(62) = "0000000000000000000000222222220000000000000000000"
-ao(63) = "0000000000000000000000220222200000000000000000000"
-ao(64) = "0000000000000000000000222220200000000000000000000"
-ao(65) = "0000000000000000000000220222200000000000000000000"
-ao(66) = "0000000000000000000000222222200000000000000000000"
-ao(67) = "0000000000000000000000222222200000000000000000000"
-ao(68) = "0000000000000000000000202222000000000000000000000"
-ao(69) = "0000000000000000002000222222220000000000000000000"
-ao(70) = "0000000000000000002200222222000000000000000000000"
-ao(71) = "0000000000000000000222222222000000000000000000000"
-ao(72) = "0000000000000000000222222222000000000000000000000"
-ao(73) = "0000000000000000000022222222000000000000000000000"
-ao(74) = "0000000000000000000022222222000000000000000000000"
-ao(75) = "0000000000000000000020222222000000000000000000000"
-ao(76) = "0000000000000000000222222202000000000000000000000"
-ao(77) = "000000000000000000022022222200000000000"
-ao(78) = "0000000000000000022222222222200000000000000000000"
-ao(79) = "0000000000000000220222222222220000"
-ao(80) = "000000000000000022222222222222"
+uun(1) = ">>>>>>>>>>>>>>><"
+uun(2) = "> <x           <"
+uun(3) = "> <         >> <"
+uun(4) = "> <y>>>>>>>    <"
+uun(5) = "> <       <  <<<"
+uun(6) = "> <<<<a<< << < >"
+uun(7) = "> <        < <  "
+uun(8) = "> <m >m>>m <   >"
+uun(9) = ">              <"
+uun(10) = ">>>>m<<<<<<<<mm<"
+maa = maa + 2
 CASE 12
-ao(1) = "11111111111111111111"
-ao(2) = "11111111111111111111"
-ao(3) = "11111111112111111111"
-ao(4) = "11111111112211111111"
-ao(5) = "11111111112221111111"
-ao(6) = "11111111112222111111"
-ao(7) = "11111111112222211111"
-ao(8) = "11122222222222221111"
-ao(9) = "11122222222222222111"
-ao(10) = "11122222222222222211"
-ao(11) = "11122222222222222211"
-ao(12) = "11122222222222222111"
-ao(13) = "11122222222222221111"
-ao(14) = "11111111112222211111"
-ao(15) = "11111111112222111111"
-ao(16) = "11111111112221111111"
-ao(17) = "11111111112211111111"
-ao(18) = "11111111112111111111"
-ao(19) = "11111111111111111111"
-ao(20) = "11111111111111111111"
+uun(1) = "m     aaaaaaaaam"
+uun(2) = "m  -         xmm"
+uun(3) = "m        t. ym 1"
+uun(4) = "m     .     moom"
+uun(5) = "m          am  1"
+uun(6) = "m         mamomm"
+uun(7) = "m      - mmam  1"
+uun(8) = "m       mmmamomm"
+uun(9) = "m p  p mm      1"
+uun(10) = "mmmmmmmmmammmm<<"
 CASE 13
-ao(1) = "03333333333333333330"
-ao(2) = "33333333222233333333"
-ao(3) = "33333332222223333333"
-ao(4) = "33333332222223333333"
-ao(5) = "33333332222223333333"
-ao(6) = "33333332222223333333"
-ao(7) = "33333332222223333333"
-ao(8) = "33333332222223333333"
-ao(9) = "33333332222223333333"
-ao(10) = "33333332222223333333"
-ao(11) = "33333333222233333333"
-ao(12) = "33333333333333333333"
-ao(13) = "33333333333333333333"
-ao(14) = "33333333222233333333"
-ao(15) = "33333332222223333333"
-ao(16) = "33333332222223333333"
-ao(17) = "33333332222223333333"
-ao(18) = "33333333222233333333"
-ao(19) = "33333333333333333333"
-ao(20) = "03333333333333333330"
+uun(1) = "mmmmmmmmmmmmmmmm"
+uun(2) = "m   m          m"
+uun(3) = "  ma   1a1a1a  m"
+uun(4) = "mmma aaaaaaaam m"
+uun(5) = "11maaaaaaaaaam m"
+uun(6) = "mmmaaaaaaaaaam m"
+uun(7) = "11x         ym m"
+uun(8) = "mmmmmmmmmmmmmm m"
+uun(9) = "               m"
+uun(10) = "mmmmmmmmmmmmmmmm"
 CASE 14
-ao(1) = "00000000000300000000"
-ao(2) = "00000000003300000000"
-ao(3) = "00000000003330000000"
-ao(4) = "00000000033331100000"
-ao(5) = "00000000033331100000"
-ao(6) = "00000000333333000000"
-ao(7) = "00000000331333000000"
-ao(8) = "00000000333111000000"
-ao(9) = "00033333333333333300"
-ao(10) = "03333333333333333333"
-ao(11) = "00333333333333333300"
-ao(12) = "00000033333333330000"
-ao(13) = "00000033333333000000"
-ao(14) = "00000333333333300000"
-ao(15) = "00000333330333330000"
-ao(16) = "00000333300033330000"
-ao(17) = "00000330000033333000"
-ao(18) = "00003300000000333300"
-ao(19) = "00003000000000003330"
-ao(20) = "00003000000000000030"
+uun(1) = "mmmmmmmmm-      "
+uun(2) = "mm mmmmmmm  -   "
+uun(3) = "mm       m      "
+uun(4) = "mm >>>>> m  -   "
+uun(5) = "mmv  m   m     ."
+uun(6) = ">><< m <<m  -   "
+uun(7) = "11 m m m   .    "
+uun(8) = ">> m m m    xy    "
+uun(9) = "mm  vm    v     "
+uun(10) = "mm>><m>>>>>mmmmm"
 CASE 15
-ao(1) = "0000000000300000000"
-ao(2) = "0000000003300000000"
-ao(3) = "00000000033000000000"
-ao(4) = "00000000333300000000"
-ao(5) = "00000000333220000000"
-ao(6) = "00000000333220000000"
-ao(7) = "00000003333320000000"
-ao(8) = "00000003313330000000"
-ao(9) = "00000003333330000000"
-ao(10) = "00000333333333000000"
-ao(11) = "00033333333333330000"
-ao(12) = "03333333333333333300"
-ao(13) = "03333303333333333300"
-ao(14) = "33000000333333333333"
-ao(15) = "00000000333330000333"
-ao(16) = "00000000033300000000"
-ao(17) = "00000000033300000000"
-ao(18) = "00000000030300000000"
-ao(19) = "00000000030300000000"
-ao(20) = "00000000030300000000"
+CLS
+uun(1) = "      m        m"
+uun(2) = "mm ymmmmmmmmmaaa"
+uun(3) = "<<oo    1111maaa"
+uun(4) = "       <<111maaa"
+uun(5) = "<<m<     m11maaa"
+uun(6) = "    t  oomm  aaa"
+uun(7) = "      vo    mm1m"
+uun(8) = "       mm<<<mm1m"
+uun(9) = "  m  x <<mmmmm11"
+uun(10) = "mmmmmmmmmmmmmmmm"
+graphicsMode = 1
 CASE 16
-ao(1) = "00000000003000000000"
-ao(2) = "00000000033300000000"
-ao(3) = "00000000333330000000"
-ao(4) = "00000000333330000000"
-ao(5) = "00000001111111000000"
-ao(6) = "00000001133311000000"
-ao(7) = "00000003333333000000"
-ao(8) = "00000003333333000000"
-ao(9) = "00000003322233000000"
-ao(10) = "00000003333333000000"
-ao(11) = "00000003333333000000"
-ao(12) = "00000003333333000000"
-ao(13) = "00000003333333000000"
-ao(14) = "00000000333330000000"
-ao(15) = "00000000333330000000"
-ao(16) = "00000000330330000000"
-ao(17) = "00000000330330000000"
-ao(18) = "00000000000000000000"
-ao(19) = "00000000000000000000"
-ao(20) = "00000000000000000000"
+uun(1) = "m11     aa       m     11111  m"
+uun(2) = "m11    a   a  a    <          m"
+uun(3) = "m11  >aam       v  t  a       m"
+uun(4) = "m11om y o                 a  am"
+uun(5) = "m11  oooo  t                  m"
+uun(6) = ">>>om         p  p        m   m"
+uun(7) = "m     mmm     mamamom     mm  m"
+uun(8) = "m  v mmmmm    mam 11m  mmmmmm m"
+uun(9) = "m  mmmmmmmmm  mam  1mm    mm  m"
+uun(10) = "mm  m1     m  mam111m     m   m"
+uun(11) = "m m  o     m  mam  vm         m"
+uun(12) = "m  m  m1111m vmammmmm  m      m"
+uun(13) = "m   m  mmmmm 11                "
+uun(14) = "mmmmmm   m mamammmmm         mm"
+uun(15) = "m       m  mam1111m       m  >m"
+uun(16) = "m      m   m1m111m     m      m"
+uun(17) = "      m    mammmm  mm>>> <<<>>m"
+uun(18) = "     m     m  x   m      m   m "
+uun(19) = "mmmmm      mmmmmmm       mmm mm"
+graphicsMode = 2
 CASE 17
-ao(1) = "00000022222222000000"
-ao(2) = "00002222222222220000"
-ao(3) = "00022220000000222000"
-ao(4) = "00020002222222002000"
-ao(5) = "00202222222222222200"
-ao(6) = "00202222222222220200"
-ao(7) = "00202222222222220200"
-ao(8) = "02202222222222220220"
-ao(9) = "02022222222222220220"
-ao(10) = "02022323232323322020"
-ao(11) = "02022323232323222020"
-ao(12) = "02022323233223332020"
-ao(13) = "22022323232322232022"
-ao(14) = "20222323232322232202"
-ao(15) = "20222232232323332202"
-ao(16) = "20222222222222222202"
-ao(17) = "20222222222222112202"
-ao(18) = "20222222222222112202"
-ao(19) = "20222222222222112202"
-ao(20) = "20222222222222222202"
-ao(21) = "20222222222222222202"
-ao(22) = "20222222222222222202"
-ao(23) = "20222222222222222202"
-ao(24) = "20222222222222222202"
-ao(25) = "20222222222222222202"
-ao(26) = "20222222222222222202"
-ao(27) = "20222222222222222202"
-ao(28) = "20222222222222222202"
-ao(29) = "20000000000000000002"
-ao(30) = "22222222222222222222"
-
-END SELECT
-IF fr = 50 THEN GOTO 8
-IF fr > 1 THEN GOTO 4
-FOR a = 1 TO 100
-IF ao(a) = "" THEN GOTO 1
-FOR b = 1 TO LEN(ao(a))
-PSET ((p + b) \ teler, (o + a) \ teler), ASC(RIGHT$(LEFT$(ao(a), b), 1)) - 48
-NEXT b
-NEXT a
-GOTO 1
-4
-FOR a = 1 TO 100
-IF ao(a) = "" THEN GOTO 1
-FOR b = 1 TO LEN(ao(a))
-c = ASC(RIGHT$(LEFT$(ao(a), b), 1)) - 48
-LINE (p + (b * fr), o + (a * fr))-(p + (b * fr) + fr, o + (a * fr) + fr), c, BF
-NEXT b
-NEXT a
-GOTO 1
-8
-FOR a = 1 TO 100
-IF ao(a) = "" THEN GOTO 1
-FOR b = 1 TO LEN(ao(a))
-PSET ((p + b) \ teler, (o + a) \ teler), ASC(LEFT$(RIGHT$(ao(a), b), 1)) - 48
-NEXT b
+uun(1) = "mu 1111        m"
+uun(2) = "mmmmmmm   <<<<am"
+uun(3) = "m     m  a   mam"
+uun(4) = "m     m    y m1m"
+uun(5) = "m     mm   <xmam"
+uun(6) = "      m  <<<<m1m"
+uun(7) = "      m      ma1"
+uun(8) = "mmmm  m    <<mmm"
+uun(9) = "m111    vU   m  "
+uun(10) = "mmmmmmmaamaaam  "
+graphicsMode = 1
+CASE 18
+uun(1) = "oo            m                "
+uun(2) = "oo     h   h  m                "
+uun(3) = "oo x          m   h      m>>>>>"
+uun(4) = "oo m11111111m m         mm    m"
+uun(5) = "oo m11111111m m  mm  h  m     m"
+uun(6) = "oo mmmmmmmmmm m   m    vm     m"
+uun(7) = "oo            mm  mmmmmmm     m"
+uun(8) = " v                            m"
+uun(9) = "mom    mmmmmm   v             m"
+uun(10) = "m m m  mmmmmm     mm   h  h   m"
+uun(11) = "m                             m"
+uun(12) = "m <<<<<<<<<<<<<<<<<<<<<<<<<<< m"
+uun(13) = "mam                           m"
+uun(14) = "mammooooommaaammm      maaaaavm"
+uun(15) = "mam     oo       a ma  m111111m"
+uun(16) = "mam    oo  <<< h mh h  mma<>amm"
+uun(17) = "mam   moom   <<               m"
+uun(18) = "my   mm         m     m       m"
+uun(19) = "mmmmmmmmmmmm<<mmmaaaaammmmmmmmm"
+graphicsMode = 2
+CASE 19
+CLS
+drawSprite 1, 1, 10, 3, 1
+LOCATE 20, 1
+PRINT "end"
+FOR a = 1 TO 50
+a$ = INKEY$
 NEXT a
+a$ = INPUT$(1)
+CLS
+SCREEN 2
+END
+END
+CASE 100
+uun(1) = "                "
+uun(2) = "                "
+uun(3) = "                "
+uun(4) = "                "
+uun(5) = "                "
+uun(6) = "                "
+uun(7) = "                "
+uun(8) = "                "
+uun(9) = "                "
+uun(10) = "                "
+CASE 101
+uun(1) = "                               "
+uun(2) = "                               "
+uun(3) = "                               "
+uun(4) = "                               "
+uun(5) = "                               "
+uun(6) = "                               "
+uun(7) = "                               "
+uun(8) = "                               "
+uun(9) = "                               "
+uun(10) = "                               "
+uun(11) = "                               "
+uun(12) = "                               "
+uun(13) = "                               "
+uun(14) = "                               "
+uun(15) = "                               "
+uun(16) = "                               "
+uun(17) = "                               "
+uun(18) = "                               "
+uun(19) = "                               "
+graphicsMode = 2
 
-1
-ERASE ao
-END SUB
-
-SUB wiew (r$, a, b)
-OPEN r$ FOR INPUT AS #2
-INPUT #2, pikkus
-FOR e = 1 TO pikkus
-INPUT #2, b$
-FOR D = 1 TO LEN(b$)
-PSET (D + a, b + e), ASC(RIGHT$(LEFT$(b$, D), 1)) - 1
+END SELECT
+IF graphicsMode = 2 THEN GOTO 124
+FOR e = 0 TO 9
+FOR D = 0 TO 15
+q$ = RIGHT$(LEFT$(uun(e + 1), D + 1), 1)
+IF q$ = "m" THEN PUT (D * 20, e * 20), ruut, PSET: asend(D + 1, e + 1) = "z"
+IF q$ = "o" THEN PUT (D * 20, e * 20), kast, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "o"
+IF q$ = "." THEN PUT (D * 20, e * 20), taht, PSET
+IF q$ = "-" THEN PUT (D * 20, e * 20), pilv, PSET
+IF q$ = "x" THEN siia = D * 20: siib = (e + 1) * 20
+IF q$ = "y" THEN siia1 = D * 20: siib1 = (e + 1) * 20
+IF q$ = "1" THEN PUT (D * 20, e * 20), munt, PSET: asend(D + 1, e + 1) = "1"
+IF q$ = "p" THEN PUT (D * 20, (e * 20) + 10), poosas, PSET
+IF q$ = "h" THEN PUT (D * 20, e * 20), aken, PSET
+IF q$ = "v" THEN PUT (D * 20, (e * 20) + 10), vedru, PSET: asend(D + 1, e + 1) = "v"
+IF q$ = "t" THEN PUT (D * 20, e * 20), puu, PSET
+IF q$ = ">" THEN PUT (D * 20, e * 20), noolt, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = ">"
+IF q$ = "<" THEN PUT (D * 20, e * 20), noolt1, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "<"
+IF q$ = "a" THEN PUT (D * 20, e * 20), auk, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "a"
+IF q$ = "u" THEN PUT (D * 20, e * 20), uks, PSET: asend(D + 1, e + 1) = "u": uks1 = D * 20: uks2 = e * 20
+IF q$ = "U" THEN PUT (D * 20, e * 20), uks, PSET: asend(D + 1, e + 1) = "U": uks3 = D * 20: uks4 = e * 20
+NEXT D
+NEXT e
+GOTO 123
+124
+FOR e = 0 TO 19
+FOR D = 0 TO 30
+q$ = RIGHT$(LEFT$(uun(e + 1), D + 1), 1)
+IF q$ = "m" THEN PUT (D * 10, e * 10), ruutm, PSET: asend(D + 1, e + 1) = "z"
+IF q$ = "o" THEN PUT (D * 10, e * 10), kastm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "o"
+IF q$ = "." THEN PUT (D * 10, e * 10), tahtm, PSET
+IF q$ = "-" THEN PUT (D * 10, e * 10), pilvm, PSET
+IF q$ = "x" THEN siia = D * 20: siib = (e + 1) * 20
+IF q$ = "y" THEN siia1 = D * 20: siib1 = (e + 1) * 20
+IF q$ = "1" THEN PUT (D * 10, e * 10), muntm, PSET: asend(D + 1, e + 1) = "1"
+IF q$ = "p" THEN PUT (D * 10, (e * 10) + 5), poosasm, PSET
+IF q$ = "h" THEN PUT (D * 10, e * 10), akenm, PSET
+IF q$ = "v" THEN PUT (D * 10, (e * 10) + 5), vedrum, PSET: asend(D + 1, e + 1) = "v"
+IF q$ = "t" THEN PUT (D * 10, e * 10), puum, PSET
+IF q$ = ">" THEN PUT (D * 10, e * 10), nooltm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = ">"
+IF q$ = "<" THEN PUT (D * 10, e * 10), nooltm1, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "<"
+IF q$ = "a" THEN PUT (D * 10, e * 10), aukm, PSET: asend(D + 1, e + 1) = "z": asend1(D + 1, e + 1) = "a"
+IF q$ = "u" THEN PUT (D * 10, e * 10), uksm, PSET: asend(D + 1, e + 1) = "u": uks1 = D * 20: uks2 = e * 20
+IF q$ = "U" THEN PUT (D * 10, e * 10), uksm, PSET: asend(D + 1, e + 1) = "U": uks3 = D * 20: uks4 = e * 20
 NEXT D
 NEXT e
-CLOSE
+123
 END SUB
 
-- 
2.20.1