' Super mario like game 1998 ' Code by: Svjatoslav Agejenko ' Levels by: Risto Ipsberg, Fred Freimann ' at least 8 MHz 8086 CPU ' & CGA video card is required DECLARE SUB norm (nrm%) DECLARE SUB elud () DEFINT A-Z DECLARE SUB level (y%) DECLARE SUB pildid (p%, o%, m%, fr%, teler%) DECLARE SUB wiew (r$, a%, b%) DECLARE SUB joonist () DECLARE SUB save (y$) DIM SHARED voolual DIM SHARED uun(1 TO 20) AS STRING * 31 DIM SHARED siib, siia, siib1, siia1 DIM SHARED elu, raha DIM SHARED uks1, uks2, uks3, uks4 DIM SHARED maa DIM SHARED text$(1 TO 1000) DIM SHARED pikkus DIM SHARED asend(0 TO 34, -10 TO 20) AS STRING * 1 DIM SHARED asend1(0 TO 34, -10 TO 20) AS STRING * 1 DIM SHARED ruut(51) DIM SHARED tuhi(51) DIM SHARED kast(51) DIM SHARED mar1(70) DIM SHARED pilv(209) DIM SHARED taht(50) DIM SHARED siil(30) DIM SHARED siil1(30) DIM SHARED siil2(30) DIM SHARED munt(30) DIM SHARED poosas(100) DIM SHARED aken(100) DIM SHARED vedru(50) DIM SHARED intro(6000) DIM SHARED puu(3000) DIM SHARED noolt(51) DIM SHARED noolt1(51) DIM SHARED auk(51) DIM SHARED sipp1(51) DIM SHARED sipp2(51) DIM SHARED sipp10(51) DIM SHARED sipp20(51) DIM SHARED sipp3(51) DIM SHARED uks(120) DIM SHARED ruutm(51) DIM SHARED tuhim(51) DIM SHARED kastm(51) DIM SHARED marm1(70) DIM SHARED pilvm(209) DIM SHARED tahtm(50) DIM SHARED siilm(30) DIM SHARED siilm1(30) DIM SHARED siilm2(30) DIM SHARED muntm(30) DIM SHARED poosasm(100) DIM SHARED akenm(100) DIM SHARED vedrum(50) DIM SHARED puum(3000) DIM SHARED nooltm(51) DIM SHARED nooltm1(51) DIM SHARED aukm(51) DIM SHARED sippm1(51) DIM SHARED sippm2(51) DIM SHARED sippm10(51) DIM SHARED sippm20(51) DIM SHARED sippm3(51) DIM SHARED uksm(50) DIM SHARED kuikiir DIM SHARED vas7$ DIM SHARED par7$ DIM SHARED ule7$ DIM SHARED all7$ vas7$ = CHR$(0) + "K" par7$ = CHR$(0) + "M" ule7$ = CHR$(0) + "H" all7$ = CHR$(0) + "P" elu = 10 SCREEN 1 maa = 1 REM joonist REM END GET (1, 1)-(20, 20), tuhi pildid 0, 0, 1, 1, 1 GET (1, 1)-(20, 20), ruut pildid 0, 0, 4, 1, 1 GET (1, 1)-(20, 20), kast PUT (1, 180), ruut, PSET PUT (300, 1), ruut, PSET PUT (300, 180), ruut, PSET pildid 30, 50, 2, 1, 1 GET (31, 51)-(91, 76), pilv PUT (160, 10), pilv, PSET pildid 20, 100, 3, 1, 1 GET (21, 101)-(31, 114), taht CLS pildid 0, 0, 5, 1, 1 GET (1, 1)-(11, 8), siil CLS pildid 0, 0, 6, 1, 1 GET (1, 1)-(8, 10), munt CLS pildid 0, 0, 7, 1, 1 GET (1, 1)-(31, 11), poosas CLS pildid 0, 0, 8, 1, 1 GET (1, 1)-(26, 21), aken CLS pildid 0, 0, 9, 1, 1 GET (1, 1)-(21, 11), vedru CLS pildid 0, 0, 11, 1, 1 GET (1, 1)-(51, 81), puu CLS pildid 0, 0, 12, 1, 1 GET (1, 1)-(20, 20), noolt CLS pildid 0, 0, 12, 50, 1 GET (1, 1)-(20, 20), noolt1 CLS pildid 0, 0, 13, 1, 1 GET (1, 1)-(20, 20), auk CLS pildid 0, 0, 14, 1, 1 GET (1, 1)-(20, 20), sipp1 CLS pildid 0, 0, 15, 1, 1 GET (1, 1)-(20, 20), sipp2 CLS pildid 0, 0, 14, 50, 1 GET (1, 1)-(20, 20), sipp10 CLS pildid 0, 0, 15, 50, 1 GET (1, 1)-(20, 20), sipp20 CLS pildid 0, 0, 16, 1, 1 GET (1, 1)-(20, 20), sipp3 CLS GET (1, 1)-(10, 10), tuhim pildid 0, 0, 1, 1, 2 GET (1, 1)-(10, 10), ruutm pildid 0, 0, 4, 1, 2 GET (1, 1)-(10, 10), kastm PUT (1, 180), ruut, PSET PUT (300, 1), ruut, PSET PUT (300, 180), ruut, PSET pildid 30, 50, 2, 1, 2 GET (16, 26)-(46, 38), pilvm pildid 20, 100, 3, 1, 2 GET (11, 51)-(16, 72), tahtm CLS pildid 0, 0, 5, 1, 2 GET (1, 1)-(6, 4), siilm CLS pildid 0, 0, 6, 1, 2 GET (1, 1)-(4, 5), muntm CLS pildid 0, 0, 7, 1, 2 GET (1, 1)-(16, 6), poosasm CLS pildid 0, 0, 8, 1, 2 GET (1, 1)-(13, 11), akenm CLS pildid 0, 0, 9, 1, 2 GET (1, 1)-(11, 6), vedrum CLS pildid 0, 0, 11, 1, 2 GET (1, 1)-(26, 41), puum CLS pildid 0, 0, 12, 1, 2 GET (1, 1)-(10, 10), nooltm CLS pildid 0, 0, 12, 50, 2 GET (1, 1)-(10, 10), nooltm1 CLS pildid 0, 0, 13, 1, 2 GET (1, 1)-(10, 10), aukm CLS pildid 0, 0, 14, 1, 2 GET (1, 1)-(10, 10), sippm1 CLS pildid 0, 0, 15, 1, 2 GET (1, 1)-(10, 10), sippm2 CLS pildid 0, 0, 14, 50, 2 GET (1, 1)-(10, 10), sippm10 CLS pildid 0, 0, 15, 50, 2 GET (1, 1)-(10, 10), sippm20 CLS pildid 0, 0, 16, 1, 2 GET (1, 1)-(10, 10), sippm3 CLS pildid 0, 0, 17, 1, 1 GET (1, 1)-(21, 31), uks CLS pildid 0, 0, 17, 1, 2 GET (1, 1)-(11, 16), intro CLS GOTO 7 pildid -1, -1, 10, 4, 1 GET (1, 1)-(318, 124), intro CLS SLEEP 1 PUT (1, 1), intro, PSET SLEEP 100 7 level 1 a = 50 b = 50 siie = 1 siie1 = 1 6 WHILE kbd$ = "" kbd$ = INKEY$ IF voolual = 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 IF b > 0 THEN IF sipp = 10 THEN PUT (a, b), sipp10, OR IF b > 0 THEN IF sipp = 20 THEN PUT (a, b), sipp20, OR IF b > 0 THEN IF sipp = 3 THEN PUT (a, b), sipp3, OR GET (siia, siib)-(siia + 10, siib + 10), siil1 PUT (siia, siib), siil, OR GET (siia1, siib1)-(siia1 + 10, siib1 + 10), siil2 PUT (siia1, siib1), siil, OR SOUND 0, .8 IF asend((a + 38) \ 20, (b + 37) \ 20) = "z" THEN eda = -1: r = 9: lke = 0 IF asend((a + 38) \ 20, (b + 22) \ 20) = "z" THEN eda = -1: r = 9: lke = 0 IF asend((a + 21) \ 20, (b + 22) \ 20) = "z" THEN eda = 1: r = 9: lke = 0 IF asend((a + 21) \ 20, (b + 37) \ 20) = "z" THEN eda = 1: r = 9: lke = 0 IF asend((a + 22) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0 IF asend((a + 37) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0 IF asend((a + 22) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0 IF asend((a + 37) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0 qwer = qwer + 1: IF asend1((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: elu = elu - 1: eda = -10: all = -5: elud IF qwer > 100 THEN qwer = 50 IF asend((a + 30) \ 20, (b + 30) \ 20) = "1" THEN raha = raha + 1: kustuta1 = 1: elud: asend((a + 30) \ 20, (b + 30) \ 20) = "" IF asend((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: sipp = 3 IF asend1((a + 30) \ 20, (b + 38) \ 20) = ">" THEN eda = 3 IF asend1((a + 30) \ 20, (b + 38) \ 20) = "<" THEN eda = -3 lke = lke + 1 r = r + 1: IF r > 10 THEN r = 0: IF eda > 0 THEN eda = eda - 1: ELSE IF eda < 0 THEN eda = eda + 1 r1 = r1 + 1: IF r1 > 3 THEN r1 = 0: all = all + 1 lk = lk + 1: cd = cd - 1 IF asend1((a + 30) \ 20, (b + 21) \ 20) = "o" THEN asend((a + 30) \ 20, (b + 21) \ 20) = "": asend1((a + 30) \ 20, (b + 21) \ 20) = "": kustuta = 1 IF asend1((a + 30) \ 20, (b + 38) \ 20) = "a" THEN asend((a + 30) \ 20, (b + 38) \ 20) = "": asend1((a + 30) \ 20, (b + 38) \ 20) = "": kustuta2 = 1 IF asend((siia + 25) \ 20, (siib + 25) \ 20) = "z" THEN siiall = -1 IF asend((siia + 30) \ 20, (siib + 10) \ 20) = "z" THEN siie = -1 IF asend((siia + 20) \ 20, (siib + 10) \ 20) = "z" THEN siie = 1 IF asend((siia1 + 25) \ 20, (siib1 + 25) \ 20) = "z" THEN siiall1 = -1 IF asend((siia1 + 30) \ 20, (siib1 + 10) \ 20) = "z" THEN siie1 = -1 IF asend((siia1 + 20) \ 20, (siib1 + 10) \ 20) = "z" THEN siie1 = 1 IF siia > 300 THEN siie = -1 IF siia < 3 THEN siie = 1 IF siia1 > 300 THEN siie1 = -1 IF siia1 < 3 THEN siie1 = 1 PUT (siia1, siib1), siil2, PSET PUT (siia, siib), siil1, PSET IF b > 0 THEN PUT (a, b), mar1, PSET IF kustuta = 1 THEN kustuta = 0: PUT (((a + 10) \ 20) * 20, (b \ 20) * 20), tuhi, PSET IF kustuta1 = 1 THEN kustuta1 = 0: PUT (((a + 10) \ 20) * 20, ((b + 10) \ 20) * 20), tuhi, PSET IF kustuta2 = 1 THEN kustuta2 = 0: PUT (((a + 10) \ 20) * 20, ((b + 28) \ 20) * 20), tuhi, PSET IF makk = 1 THEN makk = 0: a = a - 20 asend1((siia1 + 25) \ 20, (siib1 + 8) \ 20) = "": asend1((siia + 25) \ 20, (siib + 8) \ 20) = "" siia = siia + siie siib = siib + siiall siia1 = siia1 + siie1 siib1 = siib1 + siiall1 asend1((siia1 + 25) \ 20, (siib1 + 8) \ 20) = "q": asend1((siia + 25) \ 20, (siib + 8) \ 20) = "q" siiall = siiall + 1: IF siiall > 2 THEN siiall = 2 siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2 a = a + eda b = b + all IF a > 297 THEN a = 2: maa = maa + 1: level maa: siie = 1: siie1 = 1 IF a < 1 THEN a = 296: IF maa = 1 THEN level maa: ELSE maa = maa - 1: level maa: IF voolual = 2 THEN a = 594 IF b > 179 THEN elu = elu - 1: elud: maa = maa - 1: level maa: b = 100: a = 2: elud 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 WEND a$ = kbd$: kbd$ = "" IF a$ = par7$ THEN eda = eda + 1: IF eda > 3 THEN eda = 3: r = 0 ELSE IF lke > 10 THEN eda = 5 IF a$ = par7$ THEN IF sipa = 1 THEN sipp = 1: ELSE sipp = 2 IF a$ = vas7$ THEN IF sipa = 1 THEN sipp = 10: ELSE sipp = 20 IF a$ = vas7$ THEN eda = eda - 1: IF eda < -3 THEN eda = -3: r = 0 ELSE IF lke > 10 THEN eda = -5 IF a$ = ule7$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: sipp = 3 IF a$ = all7$ THEN all = all + 1 IF a$ = "/" THEN a = 2: b = 50: maa = maa + 1: level maa: siie = 1: siie1 = 1 IF a$ = "+" THEN a = 2: b = 50: maa = maa + 5: level maa: siie = 1: siie1 = 1 IF a$ = "q" THEN END sipa = sipa + 1 IF sipa = 3 THEN sipa = 1 GOTO 6 106 WHILE kbd$ = "" kbd$ = INKEY$ IF voolual = 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 IF b > 0 THEN IF sipp = 10 THEN PUT (a \ 2, b \ 2), sippm10, OR IF b > 0 THEN IF sipp = 20 THEN PUT (a \ 2, b \ 2), sippm20, OR IF b > 0 THEN IF sipp = 3 THEN PUT (a \ 2, b \ 2), sippm3, OR GET (siia \ 2, siib \ 2)-((siia + 10) \ 2, (siib + 10) \ 2), siilm1 PUT (siia \ 2, siib \ 2), siilm, OR GET (siia1 \ 2, siib1 \ 2)-((siia1 + 10) \ 2, (siib1 + 10) \ 2), siilm2 PUT (siia1 \ 2, siib1 \ 2), siilm, OR SOUND 0, .8 IF asend((a + 38) \ 20, (b + 37) \ 20) = "z" THEN eda = -1: r = 9: lke = 0 IF asend((a + 38) \ 20, (b + 22) \ 20) = "z" THEN eda = -1: r = 9: lke = 0 IF asend((a + 21) \ 20, (b + 22) \ 20) = "z" THEN eda = 1: r = 9: lke = 0 IF asend((a + 21) \ 20, (b + 37) \ 20) = "z" THEN eda = 1: r = 9: lke = 0 IF asend((a + 22) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0 IF asend((a + 37) \ 20, (b + 21) \ 20) = "z" THEN all = 0: cd = 10: lke = 0 IF asend((a + 22) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0 IF asend((a + 37) \ 20, (b + 38) \ 20) = "z" THEN all = -1: r1 = 2: lk = 1: lke = 0 qwer = qwer + 1: IF asend1((a + 30) \ 20, (b + 30) \ 20) = "q" AND qwer > 20 THEN qwer = 1: elu = elu - 1: eda = -5: all = -3: elud IF qwer > 100 THEN qwer = 50 IF asend((a + 30) \ 20, (b + 30) \ 20) = "1" THEN raha = raha + 1: kustuta1 = 1: elud: asend((a + 30) \ 20, (b + 30) \ 20) = "" IF asend((a + 30) \ 20, (b + 30) \ 20) = "v" THEN all = -8: sipp = 3 IF asend1((a + 30) \ 20, (b + 38) \ 20) = ">" THEN eda = 3 IF asend1((a + 30) \ 20, (b + 38) \ 20) = "<" THEN eda = -3 lke = lke + 1 r = r + 1: IF r > 10 THEN r = 0: IF eda > 0 THEN eda = eda - 1: ELSE IF eda < 0 THEN eda = eda + 1 r1 = r1 + 1: IF r1 > 3 THEN r1 = 0: all = all + 1 lk = lk + 1: cd = cd - 1 IF asend1((a + 30) \ 20, (b + 21) \ 20) = "o" THEN asend((a + 30) \ 20, (b + 21) \ 20) = "": asend1((a + 30) \ 20, (b + 21) \ 20) = "": kustuta = 1 IF asend1((a + 30) \ 20, (b + 38) \ 20) = "a" THEN asend((a + 30) \ 20, (b + 38) \ 20) = "": asend1((a + 30) \ 20, (b + 38) \ 20) = "": kustuta2 = 1 IF asend((siia + 25) \ 20, (siib + 25) \ 20) = "z" THEN siiall = -1 IF asend((siia + 30) \ 20, (siib + 10) \ 20) = "z" THEN siie = -1 IF asend((siia + 20) \ 20, (siib + 10) \ 20) = "z" THEN siie = 1 IF asend((siia1 + 25) \ 20, (siib1 + 25) \ 20) = "z" THEN siiall1 = -1 IF asend((siia1 + 30) \ 20, (siib1 + 10) \ 20) = "z" THEN siie1 = -1 IF asend((siia1 + 20) \ 20, (siib1 + 10) \ 20) = "z" THEN siie1 = 1 IF siia > 600 THEN siie = -1 IF siia < 3 THEN siie = 1 IF siia1 > 600 THEN siie1 = -1 IF siia1 < 3 THEN siie1 = 1 PUT (siia1 \ 2, siib1 \ 2), siilm2, PSET PUT (siia \ 2, siib \ 2), siilm1, PSET IF b > 0 THEN PUT (a \ 2, b \ 2), marm1, PSET IF kustuta = 1 THEN kustuta = 0: PUT (((a + 10) \ 20) * 10, (b \ 20) * 10), tuhim, PSET IF kustuta1 = 1 THEN kustuta1 = 0: PUT (((a + 10) \ 20) * 10, ((b + 10) \ 20) * 10), tuhim, PSET IF kustuta2 = 1 THEN kustuta2 = 0: PUT (((a + 10) \ 20) * 10, ((b + 28) \ 20) * 10), tuhim, PSET IF makk = 1 THEN makk = 0: a = a - 20 asend1((siia1 + 25) \ 20, (siib1 + 8) \ 20) = "": asend1((siia + 25) \ 20, (siib + 8) \ 20) = "" siia = siia + siie siib = siib + siiall siia1 = siia1 + siie1 siib1 = siib1 + siiall1 asend1((siia1 + 25) \ 20, (siib1 + 8) \ 20) = "q": asend1((siia + 25) \ 20, (siib + 8) \ 20) = "q" siiall = siiall + 1: IF siiall > 2 THEN siiall = 2 siiall1 = siiall1 + 1: IF siiall1 > 2 THEN siiall1 = 2 a = a + eda b = b + all IF a > 594 THEN a = 2: maa = maa + 1: level maa: siie = 1: siie1 = 1 IF a < 1 THEN a = 594: IF maa = 1 THEN level maa: ELSE maa = maa - 1: level maa: IF voolual = 1 THEN a = 297 IF b > 358 THEN elu = elu - 1: elud: maa = maa - 1: level maa: b = 100: a = 2: elud 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 WEND a$ = kbd$: kbd$ = "" IF a$ = par7$ THEN eda = eda + 1: IF eda > 3 THEN eda = 3: r = 0 ELSE IF lke > 10 THEN eda = 5 IF a$ = par7$ THEN IF sipa = 1 THEN sipp = 1: ELSE sipp = 2 IF a$ = vas7$ THEN IF sipa = 1 THEN sipp = 10: ELSE sipp = 20 IF a$ = vas7$ THEN eda = eda - 1: IF eda < -3 THEN eda = -3: r = 0 ELSE IF lke > 10 THEN eda = -5 IF a$ = ule7$ AND lk < 10 THEN all = all - 5: lk = 20: r1 = 0: sipp = 3 IF a$ = all7$ THEN all = all + 1 IF a$ = "/" THEN a = 2: b = 50: maa = maa + 1: level maa: siie = 1: siie1 = 1 IF a$ = "+" THEN a = 2: b = 50: maa = maa + 5: level maa: siie = 1: siie1 = 1 IF a$ = "q" THEN END sipa = sipa + 1 IF sipa = 3 THEN sipa = 1 GOTO 106 SUB elud LOCATE 1, 1 IF voolual = 2 THEN GOTO 12 PRINT " " IF raha > 9 THEN raha = 0: elu = elu + 1 LOCATE 1, 1 PRINT "o "; raha; " Elu "; elu 12 IF elu < 0 THEN END END SUB SUB joonist tuhi$ = "0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000" CLS INPUT "laius", laius INPUT "pikkus", pikkus FOR a = 1 TO pikkus text$(a) = RIGHT$(tuhi$, laius) NEXT a CLS a = 1 b = 1 z = 3 zx = 1 2 a$ = INPUT$(1) IF zx = 1 THEN CIRCLE (a * 2, b * 2), 1, z po = ASC(RIGHT$(LEFT$(text$(b), a), 1)) - 1 IF zx = -1 THEN CIRCLE (a * 2, b * 2), 1, po IF a$ = "6" THEN a = a + 1 IF a$ = "4" THEN a = a - 1 IF a$ = "8" THEN b = b - 1 IF a$ = "2" THEN b = b + 1 IF a$ = " " THEN zx = zx * -1 IF a$ = "e" THEN GOTO 5 IF a$ = "s" THEN GOTO 3 IF a$ = "z" THEN z = 0 IF a$ = "x" THEN z = 1 IF a$ = "c" THEN z = 2 IF a$ = "v" THEN z = 3 IF a < 1 THEN a = 1 IF b < 1 THEN b = 1 IF b > pikkus THEN b = pikkus IF a > laius THEN a = laius IF z > 3 THEN z = 3 IF z < 0 THEN z = 0 IF zx = 1 THEN MID$(text$(b), a) = CHR$(z + 1) IF zx = 1 THEN CIRCLE (a * 2, b * 2), 1, z IF zx = 1 THEN PAINT (a * 2, b * 2), z o = 0 IF zx = 1 THEN IF z = 0 THEN o = 3 po = ASC(RIGHT$(LEFT$(text$(b), a), 1)) - 1 IF zx = -1 THEN IF po = 0 THEN o = 3 CIRCLE (a * 2, b * 2), 1, o GOTO 2 3 INPUT "fail", a$ save a$ 5 END SUB SUB level (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 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 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" 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" 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" 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" CASE 6 PRINT "1-2 Maailm . Kood: teine": elud a$ = INPUT$(1) 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 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 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 save (y$) OPEN y$ FOR OUTPUT AS #1 PRINT #1, pikkus FOR a = 1 TO pikkus PRINT #1, text$(a) NEXT a CLOSE 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 NEXT D NEXT e CLOSE END SUB