-' Super Mario style game\r
-' by Svjatoslav Agejenko 1999\r
-\r
-DECLARE SUB CL ()\r
-DECLARE SUB esc ()\r
-DECLARE SUB aargh ()\r
-DECLARE SUB die ()\r
-\r
-\r
-DECLARE SUB dead ()\r
-DEFINT A-Z\r
-DECLARE SUB level1 ()\r
-DECLARE SUB nait (zaz%)\r
-DECLARE SUB wiew1 (a1%, b1%, c1%, d1%, a$)\r
-DECLARE SUB level ()\r
-DECLARE SUB save (a$)\r
-DECLARE SUB picedit ()\r
-DECLARE SUB wiew (a1%, b1%, c1%, d1%, a$)\r
-DECLARE SUB intro ()\r
-DECLARE SUB inpur ()\r
-DECLARE SUB mousedriver (AX%, bx%, cx%, dx%, lb%, rb%, EX%)\r
-DECLARE SUB tahed ()\r
-\r
-DIM SHARED sj$\r
-DIM SHARED ekraan\r
-DIM SHARED text$(1 TO 500)\r
-DIM SHARED pikkus\r
-\r
-\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 maailm AS INTEGER\r
-DIM SHARED maailm1 AS INTEGER\r
-DIM SHARED text5(1 TO 15) AS STRING * 15\r
-DIM SHARED pilv(2100)\r
-DIM SHARED kast(202)\r
-DIM SHARED tellis(202)\r
-DIM SHARED poosas(1000)\r
-DIM SHARED puu(2000)\r
-DIM SHARED tuhi(202)\r
-DIM SHARED munt(202)\r
-DIM SHARED munt1(400)\r
-DIM SHARED munt2(200)\r
-DIM SHARED mari0(402)\r
-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 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
-\r
-DIM SHARED raha\r
-DIM SHARED clra, clrb\r
-DIM SHARED a1, b1\r
-\r
-DIM SHARED prog\r
-prog = 1\r
-SCREEN 13\r
-maailm = 1\r
-maailm1 = 1\r
-level1\r
-1\r
-ekraan = 13: zpqf = 4\r
-\r
-FOR a = 0 TO 254\r
-OUT &H3C8, a\r
-OUT &H3C9, 0\r
-OUT &H3C9, 0\r
-OUT &H3C9, 0\r
-NEXT a\r
-OUT &H3C8, 255\r
-OUT &H3C9, 60\r
-OUT &H3C9, 60\r
-OUT &H3C9, 60\r
-LOCATE 20, 3\r
-COLOR 255\r
-PRINT "LOADING "\r
-\r
-\r
-CL\r
-wiew 0, 0, 1, 1, "pilv"\r
-GET (1, 1)-(109, 35), pilv\r
-CL\r
-wiew 0, 0, 1, 1, "kast"\r
-GET (1, 2)-(20, 21), kast\r
-CL\r
-wiew 0, 0, 1, 1, "tellis"\r
-GET (1, 2)-(20, 21), tellis\r
-CL\r
-GET (1, 2)-(20, 21), tuhi\r
-wiew 0, 0, 1, 1, "mario1"\r
-GET (1, 2)-(20, 21), mari(202, 1)\r
-CL\r
-wiew1 0, 0, 1, 1, "mario1"\r
-GET (3, 2)-(22, 21), mari(202, 2)\r
-CL\r
-wiew 0, 0, 1, 1, "mario2"\r
-GET (1, 2)-(20, 21), mari(202, 3)\r
-CL\r
-wiew1 0, 0, 1, 1, "mario2"\r
-GET (3, 2)-(22, 21), mari(202, 4)\r
-CL\r
-wiew 0, 0, 1, 1, "poosas"\r
-GET (1, 1)-(60, 21), poosas\r
-CL\r
-wiew 0, 0, 1, 1, "puu"\r
-GET (1, 1)-(40, 60), puu\r
-CL\r
-wiew 0, 0, 1, 1, "munt"\r
-GET (1, 1)-(10, 11), munt\r
-CL\r
-wiew 0, 0, 1, 1, "munt1"\r
-GET (0, 2)-(20, 11), munt1\r
-CL\r
-wiew 0, 0, 1, 1, "munt2"\r
-GET (0, 2)-(20, 11), munt2\r
-\r
-CL\r
-wiew 0, 0, 1, 1, "0"\r
-GET (0, 2)-(10, 11), number(100, 0)\r
-CL\r
-wiew 0, 0, 1, 1, "1"\r
-GET (0, 2)-(10, 11), number(100, 1)\r
-CL\r
-wiew 0, 0, 1, 1, "2"\r
-GET (0, 2)-(10, 11), number(100, 2)\r
-CL\r
-wiew 0, 0, 1, 1, "3"\r
-GET (0, 2)-(10, 11), number(100, 3)\r
-CL\r
-wiew 0, 0, 1, 1, "4"\r
-GET (0, 2)-(10, 11), number(100, 4)\r
-CL\r
-wiew 0, 0, 1, 1, "5"\r
-GET (0, 2)-(10, 11), number(100, 5)\r
-CL\r
-wiew 0, 0, 1, 1, "6"\r
-GET (0, 2)-(10, 11), number(100, 6)\r
-CL\r
-wiew 0, 0, 1, 1, "7"\r
-GET (0, 2)-(10, 11), number(100, 7)\r
-CL\r
-wiew 0, 0, 1, 1, "8"\r
-GET (0, 2)-(10, 11), number(100, 8)\r
-CL\r
-GET (0, 2)-(10, 11), number(100, 10)\r
-wiew 0, 0, 1, 1, "9"\r
-GET (0, 2)-(10, 11), number(100, 9)\r
-\r
-CL\r
-wiew 0, 0, 1, 1, "tigu"\r
-GET (1, 2)-(20, 21), koll1(202, 1)\r
-CL\r
-wiew 0, 0, 1, 1, "tigu1"\r
-GET (3, 2)-(22, 21), koll1(202, 2)\r
-CL\r
-wiew1 0, 0, 1, 1, "tigu"\r
-GET (1, 2)-(20, 21), koll1(202, 3)\r
-CL\r
-wiew1 0, 0, 1, 1, "tigu1"\r
-GET (3, 2)-(22, 21), koll1(202, 4)\r
-\r
-SCREEN 0\r
-SCREEN 13\r
-level\r
-a1 = 50\r
-b1 = 50\r
-edasi = 0\r
-liig = 1\r
-ov1 = 1\r
-ov2 = 2\r
-raha = 0\r
-elud = 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 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
-END IF\r
-NEXT ox\r
-SOUND 0, .5\r
-z = z + 1\r
-IF z > 3 THEN z = 1\r
-IF z = 1 THEN\r
-zz = zz + 1\r
-IF zz > 5 THEN zz = 0\r
-alla = alla + 1\r
-IF edasi > 0 THEN edasi = edasi - 1: zy = zy + 1\r
-IF edasi < 0 THEN edasi = edasi + 1: zy = zy + 1\r
-IF zy > 2 THEN zy = 1\r
-IF zy = 2 THEN ov1 = 1: ov2 = 2\r
-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
-END IF\r
-NEXT ox\r
-END IF\r
-\r
-IF ruum((a1 + 15) / 20, (b1 + 9) / 20) = "m" THEN alla = -1: ao = 0\r
-IF ruum((a1 + 25) / 20, (b1 + 9) / 20) = "m" THEN alla = -1: ao = 0\r
-IF ruum((a1 + 20) / 20, (b1 - 8) / 20) = "m" THEN alla = 1: ao = 20\r
-IF ruum((a1 + 28) / 20, (b1) / 20) = "m" THEN edasi = -1: qa = 1\r
-IF ruum((a1 + 10) / 20, (b1) / 20) = "m" THEN edasi = 1: qa = 1\r
-\r
-IF ruum1((a1 + 20) / 20, (b1 - 8) / 20) = "o" THEN alla = 1: ruum1((a1 + 20) / 20, (b1 - 8) / 20) = "": ruum((a1 + 20) / 20, (b1 - 8) / 20) = "2": clra = ((a1 + 20) / 20) - 1: clrb = (b1 - 8) / 20: clr = 1: SOUND 50, .5\r
-IF ruum((a1 + 20) / 20, (b1) / 20) = "1" THEN ruum((a1 + 20) / 20, (b1) / 20) = "2": clra = ((a1 + 21) / 20) - 1: clrb = (b1) / 20: clr = 1: raha = raha + 1: nait 1: SOUND 1000, 1: SOUND 2000, 1\r
-ao = ao + 1\r
-a$ = INKEY$\r
-IF a$ = CHR$(0) + "H" AND ao < 10 THEN alla = -6\r
-IF a$ = CHR$(0) + "M" AND qa = 0 THEN edasi = edasi + 3: liig = ov1\r
-IF a$ = CHR$(0) + "K" AND qa = 0 THEN edasi = edasi - 3: liig = ov2\r
-IF a$ = CHR$(27) THEN esc\r
-IF a$ = "+" AND qa = 0 THEN maailm = maailm + 1: level: GOTO 12\r
-IF qa <> 0 THEN qa = 0\r
-IF edasi > 5 THEN edasi = 3\r
-IF edasi < -5 THEN edasi = -3\r
-IF alla > 3 THEN alla = 3\r
-\r
-IF b1 > 0 THEN PUT (a1, b1), mari0, PSET\r
-\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
-NEXT ox\r
-END IF\r
-\r
-\r
-b1 = b1 + alla\r
-a1 = a1 + edasi\r
-IF clr > 0 THEN clr = 0: PUT (clra * 20, clrb * 20), tuhi, PSET\r
-IF a1 > 280 THEN maailm = maailm + 1: level: a1 = 3\r
-IF a1 < 2 THEN maailm = maailm - 1: level: a1 = 279\r
-IF b1 > 170 THEN FOR a = 3000 TO 500 STEP -100: SOUND a, .3: NEXT a: dead\r
-GOTO 12\r
-\r
-SUB aargh\r
-a = 1700\r
-b = 1900\r
-FOR c = 1 TO 50\r
-a = a + 3\r
-b = b - 5\r
-SOUND a, .2\r
-SOUND b, .2\r
-NEXT c\r
-END SUB\r
-\r
-SUB CL\r
-LINE (0, 0)-(319, 150), 0, BF\r
-LOCATE 20, 10 + prog\r
-prog = prog + 1\r
-PRINT "."\r
-END SUB\r
-\r
-SUB dead\r
-IF maailm > 1 THEN maailm = maailm - 1\r
-\r
-level\r
-a1 = 20\r
-b1 = 100\r
-elud = elud - 1\r
-nait 0\r
-END SUB\r
-\r
-SUB die\r
-DIM diep(1 TO 2000)\r
-GET (0, 0)-(150, 20), diep\r
-LOCATE 1, 1\r
-PRINT "You are "\r
-LOCATE 2, 1\r
-PRINT " killed! "\r
-\r
-FOR x = 0 TO 80\r
-FOR y = 0 TO 16\r
-IF POINT(x, y) > 0 THEN LINE (x * 5, y * 5 + 50)-(x * 5 + 4, y * 5 + 54), 4, BF\r
-NEXT y\r
-NEXT x\r
-PUT (0, 0), diep, PSET\r
-\r
-FOR a = 1 TO 100\r
-x = RND * 290 + 4\r
-y = RND * 170 + 4\r
-GET (x, y)-(x + 20, y + 20), diep\r
-x = x + RND * 4 - 2\r
-y = y + RND * 4 - 1\r
-PUT (x, y), diep, PSET\r
-NEXT a\r
-FOR a = 1 TO 50\r
-a$ = INKEY$\r
-NEXT a\r
-a$ = INPUT$(1)\r
-\r
-FOR a = 0 TO 100\r
-SOUND 0, .05\r
-LINE (0, a)-(320, a), 4\r
-LINE (0, 200 - a)-(320, 200 - a), 4\r
-NEXT a\r
-FOR a = 32 TO 0 STEP -1\r
-SOUND 0, .5\r
-OUT &H3C8, 4\r
-OUT &H3C9, a\r
-OUT &H3C9, 0\r
-OUT &H3C9, 0\r
-NEXT a\r
-END\r
-\r
-END SUB\r
-\r
-SUB esc\r
-FOR b = 0 TO 20\r
-FOR a = b TO 200 STEP 20\r
-LINE (0, a)-(320, a), 0\r
-NEXT a\r
-SOUND 0, .5\r
-NEXT b\r
-SYSTEM\r
-\r
-END SUB\r
-\r
-SUB inpur\r
-sj$ = ""\r
-WHILE sj$ = ""\r
-sj$ = INKEY$\r
-WEND\r
-END SUB\r
-\r
-SUB intro\r
-CLS\r
-wiew 2, 2, 10, 1, "win.i01"\r
-END SUB\r
-\r
-SUB level\r
-IF maailm > 10 THEN\r
-CLS\r
-PRINT "Mission complete!"\r
-PRINT "Game over"\r
-END\r
-END IF\r
-\r
-FOR a = 1 TO 10\r
-text5(a + 1) = maa(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
-NEXT b\r
-NEXT a\r
-maailm1 = maailm\r
-\r
-FOR a = -3 TO 20\r
-FOR b = -3 TO 20\r
-ruum(a, b) = ""\r
-ruum1(a, b) = ""\r
-NEXT b\r
-NEXT a\r
-\r
-FOR a = 1 TO 10\r
-kollb(a) = 1000\r
-kolled(a) = 1\r
-kollal(a) = 0\r
-NEXT a\r
-\r
-CLS\r
-PAINT (1, 1), maa1(maailm)\r
-GET (1, 2)-(20, 21), tuhi\r
-FOR a = 2 TO 10\r
-FOR b = 1 TO 15\r
-c$ = RIGHT$(LEFT$(text5(a), b), 1)\r
-IF c$ = "-" THEN PUT ((b - 1) * 20, (a - 2) * 20), pilv, OR\r
-IF c$ = "." THEN PUT ((b - 1) * 20, (a - 2) * 20), poosas, OR\r
-IF c$ = "+" THEN PUT ((b - 1) * 20, (a - 2) * 20), puu, OR\r
-IF c$ = "$" THEN PUT ((b - 1) * 20, (a - 2) * 20), munt, OR: ruum(b, a - 2) = "1"\r
-IF c$ = "m" THEN PUT ((b - 1) * 20, (a - 2) * 20), kast, PSET: ruum(b, a - 2) = "m"\r
-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
-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
-END SUB\r
-\r
-SUB load (a$)\r
-OPEN a$ FOR INPUT AS #2\r
-INPUT #2, pikkus\r
-FOR a = 1 TO pikkus\r
-LINE INPUT #2, text$(a)\r
-NEXT a\r
-CLOSE\r
-END SUB\r
-\r
-SUB nait (zaz)\r
-IF elud < 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
-NEXT b\r
-LOCATE 1, 1\r
-r = 3\r
-FOR a = 1 TO 2\r
-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
-PUT (43, 180), number(100, 10), PSET\r
-PUT (53, 180), munt2, PSET\r
-PUT (73, 180), number(100, elud), PSET\r
-END SUB\r
-\r
-SUB save (a$)\r
-OPEN a$ FOR OUTPUT AS #2\r
-PRINT #2, pikkus\r
-FOR a = 1 TO pikkus\r
-PRINT #2, text$(a)\r
-NEXT a\r
-CLOSE\r
-END SUB\r
-\r
-DEFSNG A-Z\r
-SUB tahed\r
-CLS\r
-t = 13\r
-FOR a = 1 TO 80 STEP 8\r
-FOR b = 1 TO 20\r
-t = t + 1\r
-LOCATE b, a\r
-PRINT CHR$(t); t\r
-NEXT b\r
-NEXT a\r
-\r
-END SUB\r
-\r
-DEFINT A-Z\r
-SUB wiew (a1, b1, c1, d1, a$)\r
-laius1 = c1 - a1\r
-pikkus1 = d1 - b1\r
-OPEN a$ + ".i01" FOR INPUT AS #1\r
-INPUT #1, pikkus\r
-FOR a = 1 TO pikkus\r
-LINE INPUT #1, z$\r
-FOR b = 1 TO LEN(z$)\r
-LINE (a1 + (b * c1), (b1 + (a * d1)) + 1)-(a1 + ((b + 1) * c1) - 1, b1 + ((a + 1) * d1)), ASC(RIGHT$(LEFT$(z$, b), 1)) - 40, BF\r
-NEXT b\r
-NEXT a\r
-CLOSE\r
-END SUB\r
-\r
-SUB wiew1 (a1, b1, c1, d1, a$)\r
-a1 = a1 * 8\r
-b1 = b1 * 8\r
-laius1 = c1 - a1\r
-pikkus1 = d1 - b1\r
-OPEN a$ + ".i01" FOR INPUT AS #1\r
-INPUT #1, pikkus\r
-FOR a = 1 TO pikkus\r
-LINE INPUT #1, z$\r
-FOR b = LEN(z$) TO 1 STEP -1\r
-LINE (a1 + (b * c1), (b1 + (a * d1)) + 1)-(a1 + ((b + 1) * c1), b1 + ((a + 1) * d1)), ASC(LEFT$(RIGHT$(z$, b), 1)) - 40, BF\r
-NEXT b\r
-NEXT a\r
-CLOSE\r
-END SUB\r
projects / qbasicapps.git / commitdiff
