Better code readability

diff --git a/Games/Pomppu Paavo/Pomppu Paavo.bas b/Games/Pomppu Paavo/Pomppu Paavo.bas
index 234281c..75be07a 100755 (executable)
--- a/Games/Pomppu Paavo/Pomppu Paavo.bas
+++ b/Games/Pomppu Paavo/Pomppu Paavo.bas
@@ -36,8 +36,8 @@ DIM SHARED pikkus
 \r
 DIM SHARED ruum(-5 TO 20, -5 TO 20) AS STRING\r
 DIM SHARED ruum1(-5 TO 20, -5 TO 20) AS STRING\r
-DIM SHARED maa(1 TO 11, 1 TO 10) AS STRING * 15\r
-DIM SHARED maa1(1 TO 10) AS INTEGER\r
+DIM SHARED levelData(1 TO 11, 1 TO 10) AS STRING * 15\r
+DIM SHARED levelSkyColor(1 TO 10) AS INTEGER\r
 DIM SHARED maailm AS INTEGER\r
 DIM SHARED maailm1 AS INTEGER\r
 DIM SHARED text5(1 TO 15) AS STRING * 15\r
@@ -54,14 +54,14 @@ DIM SHARED mari0(402)
 DIM SHARED mari(202, 1 TO 5)\r
 DIM SHARED koll(1 TO 230, 1 TO 10)\r
 DIM SHARED koll1(1 TO 202, 1 TO 5)\r
-DIM SHARED kolla(1 TO 10)\r
-DIM SHARED kollb(1 TO 10)\r
+DIM SHARED mobX(1 TO 10)\r
+DIM SHARED mobY(1 TO 10)\r
 DIM SHARED kollal(1 TO 10)\r
 DIM SHARED kolled(1 TO 10)\r
 \r
 DIM SHARED rahaz(1 TO 5)\r
 DIM SHARED number(100, 0 TO 11)\r
-DIM SHARED elud\r
+DIM SHARED lives\r
 \r
 DIM SHARED raha\r
 DIM SHARED clra, clrb\r
@@ -184,20 +184,20 @@ liig = 1
 ov1 = 1\r
 ov2 = 2\r
 raha = 0\r
-elud = 3\r
+lives = 3\r
 z = 1\r
 nait 0\r
 12\r
 IF b1 > 0 THEN GET (a1, b1)-(a1 + 20, b1 + 20), mari0: PUT (a1, b1), mari(202, liig), OR\r
 \r
 FOR ox = 1 TO 10\r
-IF kollb(ox) < 170 AND z = 1 THEN\r
-  kollb(ox) = kollb(ox) + kollal(ox)\r
-  kolla(ox) = kolla(ox) + kolled(ox)\r
-  GET (kolla(ox), kollb(ox))-(kolla(ox) + 20, kollb(ox) + 20), koll(202, ox)\r
+IF mobY(ox) < 170 AND z = 1 THEN\r
+  mobY(ox) = mobY(ox) + kollal(ox)\r
+  mobX(ox) = mobX(ox) + kolled(ox)\r
+  GET (mobX(ox), mobY(ox))-(mobX(ox) + 20, mobY(ox) + 20), koll(202, ox)\r
   IF kolled(ox) <= 0 THEN kolll = 1 ELSE kolll = 3\r
   IF zz > 2 THEN kolll = kolll + 1: IF zz = 3 THEN kollal(ox) = kollal(ox) + 1\r
-  PUT (kolla(ox), kollb(ox)), koll1(202, kolll)\r
+  PUT (mobX(ox), mobY(ox)), koll1(202, kolll)\r
 END IF\r
 NEXT ox\r
 SOUND 0, .5\r
@@ -214,13 +214,13 @@ IF zy = 2 THEN ov1 = 1: ov2 = 2
 IF zy = 1 THEN ov1 = 3: ov2 = 4\r
 \r
 FOR ox = 1 TO 10\r
-IF kollb(ox) < 170 THEN\r
-IF ruum((kolla(ox) + 20) / 20, (kollb(ox) + 9) / 20) = "m" THEN kollal(ox) = -1\r
-IF kolla(ox) > 270 THEN kolled(ox) = -1\r
-IF kolla(ox) < 2 THEN kolled(ox) = 1\r
-IF ruum((kolla(ox) + 28) / 20, kollb(ox) / 20) = "m" THEN kolled(ox) = -1\r
-IF ruum((kolla(ox) + 10) / 20, kollb(ox) / 20) = "m" THEN kolled(ox) = 1\r
-IF kolla(ox) - 20 < a1 AND kolla(ox) + 20 > a1 AND kollb(ox) - 5 < b1 AND kollb(ox) + 20 > b1 THEN aargh: dead: GOTO 12\r
+IF mobY(ox) < 170 THEN\r
+IF ruum((mobX(ox) + 20) / 20, (mobY(ox) + 9) / 20) = "m" THEN kollal(ox) = -1\r
+IF mobX(ox) > 270 THEN kolled(ox) = -1\r
+IF mobX(ox) < 2 THEN kolled(ox) = 1\r
+IF ruum((mobX(ox) + 28) / 20, mobY(ox) / 20) = "m" THEN kolled(ox) = -1\r
+IF ruum((mobX(ox) + 10) / 20, mobY(ox) / 20) = "m" THEN kolled(ox) = 1\r
+IF mobX(ox) - 20 < a1 AND mobX(ox) + 20 > a1 AND mobY(ox) - 5 < b1 AND mobY(ox) + 20 > b1 THEN aargh: dead: GOTO 12\r
 END IF\r
 NEXT ox\r
 END IF\r
@@ -249,7 +249,7 @@ IF b1 > 0 THEN PUT (a1, b1), mari0, PSET
 \r
 IF z = 1 THEN\r
 FOR ox = 10 TO 1 STEP -1\r
-IF kollb(ox) < 170 THEN PUT (kolla(ox), kollb(ox)), koll(202, ox), PSET\r
+IF mobY(ox) < 170 THEN PUT (mobX(ox), mobY(ox)), koll(202, ox), PSET\r
 NEXT ox\r
 END IF\r
 \r
@@ -286,7 +286,7 @@ IF maailm > 1 THEN maailm = maailm - 1
 level\r
 a1 = 20\r
 b1 = 100\r
-elud = elud - 1\r
+lives = lives - 1\r
 nait 0\r
 END SUB\r
 \r
@@ -366,12 +366,12 @@ END
 END IF\r
 \r
 FOR a = 1 TO 10\r
-text5(a + 1) = maa(a, maailm)\r
+text5(a + 1) = levelData(a, maailm)\r
 NEXT a\r
 \r
 FOR a = 1 TO 10\r
 FOR b = 1 TO 15\r
-IF ruum(b, a - 2) = "2" THEN MID$(maa(a, maailm1), b) = " "\r
+IF ruum(b, a - 2) = "2" THEN MID$(levelData(a, maailm1), b) = " "\r
 NEXT b\r
 NEXT a\r
 maailm1 = maailm\r
@@ -384,13 +384,13 @@ NEXT b
 NEXT a\r
 \r
 FOR a = 1 TO 10\r
-kollb(a) = 1000\r
+mobY(a) = 1000\r
 kolled(a) = 1\r
 kollal(a) = 0\r
 NEXT a\r
 \r
 CLS\r
-PAINT (1, 1), maa1(maailm)\r
+PAINT (1, 1), levelSkyColor(maailm)\r
 GET (1, 2)-(20, 21), tuhi\r
 FOR a = 2 TO 10\r
 FOR b = 1 TO 15\r
@@ -403,131 +403,131 @@ IF c$ = "m" THEN PUT ((b - 1) * 20, (a - 2) * 20), kast, PSET: ruum(b, a - 2) =
 IF c$ = "o" THEN PUT ((b - 1) * 20, (a - 2) * 20), tellis, PSET: ruum(b, a - 2) = "m": ruum1(b, a - 2) = "o"\r
 IF c$ = " " THEN ruum(b, a) = " "\r
 \r
-IF c$ = "1" THEN kolla(1) = (b - 1) * 20: kollb(1) = (a - 2) * 20: GET (kolla(1), kollb(1))-(kolla(1) + 20, kollb(1) + 20), koll(202, 1)\r
-IF c$ = "2" THEN kolla(2) = (b - 1) * 20: kollb(2) = (a - 2) * 20: GET (kolla(2), kollb(2))-(kolla(2) + 20, kollb(2) + 20), koll(202, 2)\r
-IF c$ = "3" THEN kolla(3) = (b - 1) * 20: kollb(3) = (a - 2) * 20: GET (kolla(3), kollb(3))-(kolla(3) + 20, kollb(3) + 20), koll(202, 3)\r
-IF c$ = "4" THEN kolla(4) = (b - 1) * 20: kollb(4) = (a - 2) * 20: GET (kolla(4), kollb(4))-(kolla(4) + 20, kollb(4) + 20), koll(202, 4)\r
-IF c$ = "5" THEN kolla(5) = (b - 1) * 20: kollb(5) = (a - 2) * 20: GET (kolla(5), kollb(5))-(kolla(5) + 20, kollb(5) + 20), koll(202, 5)\r
-IF c$ = "6" THEN kolla(6) = (b - 1) * 20: kollb(6) = (a - 2) * 20: GET (kolla(6), kollb(6))-(kolla(6) + 20, kollb(6) + 20), koll(202, 6)\r
-IF c$ = "7" THEN kolla(7) = (b - 1) * 20: kollb(7) = (a - 2) * 20: GET (kolla(7), kollb(7))-(kolla(7) + 20, kollb(7) + 20), koll(202, 7)\r
-IF c$ = "8" THEN kolla(8) = (b - 1) * 20: kollb(8) = (a - 2) * 20: GET (kolla(8), kollb(8))-(kolla(8) + 20, kollb(8) + 20), koll(202, 8)\r
-IF c$ = "9" THEN kolla(9) = (b - 1) * 20: kollb(9) = (a - 2) * 20: GET (kolla(9), kollb(9))-(kolla(9) + 20, kollb(9) + 20), koll(202, 9)\r
-IF c$ = "0" THEN kolla(10) = (b - 1) * 20: kollb(10) = (a - 2) * 20: GET (kolla(10), kollb(10))-(kolla(10) + 20, kollb(10) + 20), koll(202, 10)\r
+IF c$ = "1" THEN mobX(1) = (b - 1) * 20: mobY(1) = (a - 2) * 20: GET (mobX(1), mobY(1))-(mobX(1) + 20, mobY(1) + 20), koll(202, 1)\r
+IF c$ = "2" THEN mobX(2) = (b - 1) * 20: mobY(2) = (a - 2) * 20: GET (mobX(2), mobY(2))-(mobX(2) + 20, mobY(2) + 20), koll(202, 2)\r
+IF c$ = "3" THEN mobX(3) = (b - 1) * 20: mobY(3) = (a - 2) * 20: GET (mobX(3), mobY(3))-(mobX(3) + 20, mobY(3) + 20), koll(202, 3)\r
+IF c$ = "4" THEN mobX(4) = (b - 1) * 20: mobY(4) = (a - 2) * 20: GET (mobX(4), mobY(4))-(mobX(4) + 20, mobY(4) + 20), koll(202, 4)\r
+IF c$ = "5" THEN mobX(5) = (b - 1) * 20: mobY(5) = (a - 2) * 20: GET (mobX(5), mobY(5))-(mobX(5) + 20, mobY(5) + 20), koll(202, 5)\r
+IF c$ = "6" THEN mobX(6) = (b - 1) * 20: mobY(6) = (a - 2) * 20: GET (mobX(6), mobY(6))-(mobX(6) + 20, mobY(6) + 20), koll(202, 6)\r
+IF c$ = "7" THEN mobX(7) = (b - 1) * 20: mobY(7) = (a - 2) * 20: GET (mobX(7), mobY(7))-(mobX(7) + 20, mobY(7) + 20), koll(202, 7)\r
+IF c$ = "8" THEN mobX(8) = (b - 1) * 20: mobY(8) = (a - 2) * 20: GET (mobX(8), mobY(8))-(mobX(8) + 20, mobY(8) + 20), koll(202, 8)\r
+IF c$ = "9" THEN mobX(9) = (b - 1) * 20: mobY(9) = (a - 2) * 20: GET (mobX(9), mobY(9))-(mobX(9) + 20, mobY(9) + 20), koll(202, 9)\r
+IF c$ = "0" THEN mobX(10) = (b - 1) * 20: mobY(10) = (a - 2) * 20: GET (mobX(10), mobY(10))-(mobX(10) + 20, mobY(10) + 20), koll(202, 10)\r
 NEXT b\r
 NEXT a\r
 nait 0\r
 END SUB\r
 \r
 SUB level1\r
-maa1(1) = 1\r
-maa(1, 1) = "m              "\r
-maa(2, 1) = "m  -      -    "\r
-maa(3, 1) = "m              "\r
-maa(4, 1) = "m     $ $ $ $  "\r
-maa(5, 1) = "m    $ $ $ $   "\r
-maa(6, 1) = "m +     momom  "\r
-maa(7, 1) = "m              "\r
-maa(8, 1) = "m    .   .     "\r
-maa(9, 1) = "mmmmmmmmmmmmmmm"\r
-\r
-maa1(2) = 1\r
-maa(1, 2) = " $2-           "\r
-maa(2, 2) = " o$            "\r
-maa(3, 2) = "  o$     -     "\r
-maa(4, 2) = "   o$        3 "\r
-maa(5, 2) = "    o  o1      "\r
-maa(6, 2) = " +         mmom"\r
-maa(7, 2) = "     omom  m   "\r
-maa(8, 2) = "    $ $ $ $ m  "\r
-maa(9, 2) = "mmmm         mm"\r
-\r
-maa1(3) = 1\r
-maa(1, 3) = "          mmmmm"\r
-maa(2, 3) = "-    $ $  mmmmm"\r
-maa(3, 3) = "    $ $ $ mmmmm"\r
-maa(4, 3) = "     $ $  mmmmm"\r
-maa(5, 3) = " .        mmmmm"\r
-maa(6, 3) = "mmmm  1    mmmm"\r
-maa(7, 3) = "     mm       m"\r
-maa(8, 3) = "          mmm  "\r
-maa(9, 3) = "mmm       mmmmm"\r
-\r
-maa1(4) = 0\r
-maa(1, 4) = "mmmmmmmmmmmmmmm"\r
-maa(2, 4) = "m$    $ $ $ $  "\r
-maa(3, 4) = "mm  $m $4$ $ $ "\r
-maa(4, 4) = "m$m  mmmmmommmm"\r
-maa(5, 4) = "m$ 3      2   m"\r
-maa(6, 4) = "m1 ooooooomo  m"\r
-maa(7, 4) = "mooo$$$$$$$m  m"\r
-maa(8, 4) = "              m"\r
-maa(9, 4) = "mmmmmmmmmmmmmmm"\r
-\r
-maa1(5) = 0\r
-maa(1, 5) = "mmmmmmmmmmmmmmm"\r
-maa(2, 5) = "   m           "\r
-maa(3, 5) = "m  m  1 3  mmmm"\r
-maa(4, 5) = "m  m  mmm  o  m"\r
-maa(5, 5) = "m  m4567892o  m"\r
-maa(6, 5) = "m  mooooommo  m"\r
-maa(7, 5) = "m            mm"\r
-maa(8, 5) = "m           mmm"\r
-maa(9, 5) = "mmmm  mmm  mmmm"\r
-\r
-maa1(6) = 1\r
-maa(1, 6) = "m              "\r
-maa(2, 6) = " -     $ -     "\r
-maa(3, 6) = "m   $     $    "\r
-maa(4, 6) = "m    o   o  $  "\r
-maa(5, 6) = "m  o       o   "\r
-maa(6, 6) = "m          +   "\r
-maa(7, 6) = "m              "\r
-maa(8, 6) = "mm 1 m 2  m    "\r
-maa(9, 6) = "mmmmmmmmmmmmmmm"\r
-\r
-maa1(7) = 1\r
-maa(1, 7) = "       -       "\r
-maa(2, 7) = "  -            "\r
-maa(3, 7) = "             1m"\r
-maa(4, 7) = "            2mm"\r
-maa(5, 7) = "           3mmm"\r
-maa(6, 7) = "   o   +  4mmmm"\r
-maa(7, 7) = "  ooo    5mmmmm"\r
-maa(8, 7) = "        6mmmmmm"\r
-maa(9, 7) = "mmmmmmmmmmmmmmm"\r
-\r
-maa1(8) = 1\r
-maa(1, 8) = "  mmmmmmmmmmmmm"\r
-maa(2, 8) = "  m123m456m789 "\r
-maa(3, 8) = "  mm$mmm$mmm$mm"\r
-maa(4, 8) = "  mm$$$$$$$$$$m"\r
-maa(5, 8) = "  mmom$mmm$mmmm"\r
-maa(6, 8) = "   o$$$$$$$$$ o"\r
-maa(7, 8) = "   omooooooo  o"\r
-maa(8, 8) = "        - m    "\r
-maa(9, 8) = "mmmmmmmmmmmmmmm"\r
-\r
-maa1(9) = 0\r
-maa(1, 9) = "          12345"\r
-maa(2, 9) = "          6789 "\r
-maa(3, 9) = "             mm"\r
-maa(4, 9) = "           m   "\r
-maa(5, 9) = "         m     "\r
-maa(6, 9) = "       m       "\r
-maa(7, 9) = "     m         "\r
-maa(8, 9) = "   m           "\r
-maa(9, 9) = "mm             "\r
-\r
-maa1(10) = 1\r
-maa(1, 10) = "m              "\r
-maa(2, 10) = "   -           "\r
-maa(3, 10) = "m      -       "\r
-maa(4, 10) = "m        +     "\r
-maa(5, 10) = "m              "\r
-maa(6, 10) = "m  +     2     "\r
-maa(7, 10) = "m       mmm    "\r
-maa(8, 10) = "m     .   1    "\r
-maa(9, 10) = "mmmmmmmmmmm  mm"\r
+levelSkyColor(1) = 1\r
+levelData(1, 1) = "m              "\r
+levelData(2, 1) = "m  -      -    "\r
+levelData(3, 1) = "m              "\r
+levelData(4, 1) = "m     $ $ $ $  "\r
+levelData(5, 1) = "m    $ $ $ $   "\r
+levelData(6, 1) = "m +     momom  "\r
+levelData(7, 1) = "m              "\r
+levelData(8, 1) = "m    .   .     "\r
+levelData(9, 1) = "mmmmmmmmmmmmmmm"\r
+\r
+levelSkyColor(2) = 1\r
+levelData(1, 2) = " $2-           "\r
+levelData(2, 2) = " o$            "\r
+levelData(3, 2) = "  o$     -     "\r
+levelData(4, 2) = "   o$        3 "\r
+levelData(5, 2) = "    o  o1      "\r
+levelData(6, 2) = " +         mmom"\r
+levelData(7, 2) = "     omom  m   "\r
+levelData(8, 2) = "    $ $ $ $ m  "\r
+levelData(9, 2) = "mmmm         mm"\r
+\r
+levelSkyColor(3) = 1\r
+levelData(1, 3) = "          mmmmm"\r
+levelData(2, 3) = "-    $ $  mmmmm"\r
+levelData(3, 3) = "    $ $ $ mmmmm"\r
+levelData(4, 3) = "     $ $  mmmmm"\r
+levelData(5, 3) = " .        mmmmm"\r
+levelData(6, 3) = "mmmm  1    mmmm"\r
+levelData(7, 3) = "     mm       m"\r
+levelData(8, 3) = "          mmm  "\r
+levelData(9, 3) = "mmm       mmmmm"\r
+\r
+levelSkyColor(4) = 0\r
+levelData(1, 4) = "mmmmmmmmmmmmmmm"\r
+levelData(2, 4) = "m$    $ $ $ $  "\r
+levelData(3, 4) = "mm  $m $4$ $ $ "\r
+levelData(4, 4) = "m$m  mmmmmommmm"\r
+levelData(5, 4) = "m$ 3      2   m"\r
+levelData(6, 4) = "m1 ooooooomo  m"\r
+levelData(7, 4) = "mooo$$$$$$$m  m"\r
+levelData(8, 4) = "              m"\r
+levelData(9, 4) = "mmmmmmmmmmmmmmm"\r
+\r
+levelSkyColor(5) = 0\r
+levelData(1, 5) = "mmmmmmmmmmmmmmm"\r
+levelData(2, 5) = "   m           "\r
+levelData(3, 5) = "m  m  1 3  mmmm"\r
+levelData(4, 5) = "m  m  mmm  o  m"\r
+levelData(5, 5) = "m  m4567892o  m"\r
+levelData(6, 5) = "m  mooooommo  m"\r
+levelData(7, 5) = "m            mm"\r
+levelData(8, 5) = "m           mmm"\r
+levelData(9, 5) = "mmmm  mmm  mmmm"\r
+\r
+levelSkyColor(6) = 1\r
+levelData(1, 6) = "m              "\r
+levelData(2, 6) = " -     $ -     "\r
+levelData(3, 6) = "m   $     $    "\r
+levelData(4, 6) = "m    o   o  $  "\r
+levelData(5, 6) = "m  o       o   "\r
+levelData(6, 6) = "m          +   "\r
+levelData(7, 6) = "m              "\r
+levelData(8, 6) = "mm 1 m 2  m    "\r
+levelData(9, 6) = "mmmmmmmmmmmmmmm"\r
+\r
+levelSkyColor(7) = 1\r
+levelData(1, 7) = "       -       "\r
+levelData(2, 7) = "  -            "\r
+levelData(3, 7) = "             1m"\r
+levelData(4, 7) = "            2mm"\r
+levelData(5, 7) = "           3mmm"\r
+levelData(6, 7) = "   o   +  4mmmm"\r
+levelData(7, 7) = "  ooo    5mmmmm"\r
+levelData(8, 7) = "        6mmmmmm"\r
+levelData(9, 7) = "mmmmmmmmmmmmmmm"\r
+\r
+levelSkyColor(8) = 1\r
+levelData(1, 8) = "  mmmmmmmmmmmmm"\r
+levelData(2, 8) = "  m123m456m789 "\r
+levelData(3, 8) = "  mm$mmm$mmm$mm"\r
+levelData(4, 8) = "  mm$$$$$$$$$$m"\r
+levelData(5, 8) = "  mmom$mmm$mmmm"\r
+levelData(6, 8) = "   o$$$$$$$$$ o"\r
+levelData(7, 8) = "   omooooooo  o"\r
+levelData(8, 8) = "        - m    "\r
+levelData(9, 8) = "mmmmmmmmmmmmmmm"\r
+\r
+levelSkyColor(9) = 0\r
+levelData(1, 9) = "          12345"\r
+levelData(2, 9) = "          6789 "\r
+levelData(3, 9) = "             mm"\r
+levelData(4, 9) = "           m   "\r
+levelData(5, 9) = "         m     "\r
+levelData(6, 9) = "       m       "\r
+levelData(7, 9) = "     m         "\r
+levelData(8, 9) = "   m           "\r
+levelData(9, 9) = "mm             "\r
+\r
+levelSkyColor(10) = 1\r
+levelData(1, 10) = "m              "\r
+levelData(2, 10) = "   -           "\r
+levelData(3, 10) = "m      -       "\r
+levelData(4, 10) = "m        +     "\r
+levelData(5, 10) = "m              "\r
+levelData(6, 10) = "m  +     2     "\r
+levelData(7, 10) = "m       mmm    "\r
+levelData(8, 10) = "m     .   1    "\r
+levelData(9, 10) = "mmmmmmmmmmm  mm"\r
 END SUB\r
 \r
 SUB load (a$)\r
@@ -540,12 +540,12 @@ CLOSE
 END SUB\r
 \r
 SUB nait (zaz)\r
-IF elud < 0 THEN die\r
+IF lives < 0 THEN die\r
 PUT (0, 180), munt1, PSET\r
 rahaz(1) = rahaz(1) + zaz\r
 FOR b = 1 TO 3\r
 IF rahaz(1) > 9 THEN rahaz(1) = rahaz(1) - 10: rahaz(2) = rahaz(2) + 1\r
-IF rahaz(2) > 9 THEN rahaz(1) = 0: rahaz(2) = 0: elud = elud + 1\r
+IF rahaz(2) > 9 THEN rahaz(1) = 0: rahaz(2) = 0: lives = lives + 1\r
 NEXT b\r
 LOCATE 1, 1\r
 r = 3\r
@@ -553,10 +553,10 @@ FOR a = 1 TO 2
 r = r - 1\r
 PUT ((a * 11) + 10, 180), number(100, rahaz(r)), PSET\r
 NEXT a\r
-IF elud > 10 THEN elud = 10\r
+IF lives > 10 THEN lives = 10\r
 PUT (43, 180), number(100, 10), PSET\r
 PUT (53, 180), munt2, PSET\r
-PUT (73, 180), number(100, elud), PSET\r
+PUT (73, 180), number(100, lives), PSET\r
 END SUB\r
 \r
 SUB save (a$)\r