Keskustelu: Koodit: QB: teksturin alku

DIM teksti(800) AS STRING * 80
WIDTH 80, 50
PRINT "ladataan.."
rivi = 1
paikka = 1
FOR t = 1 TO 800
teksti(t) = SPACE$(80)
NEXT
1 :
CLS
DO
IF rivi > 47 THEN
FOR i = 0 TO 46
COLOR 15, 0: LOCATE i + 1, 1: PRINT teksti(rivi - 46 + i)
NEXT i
ELSE
FOR i = 1 TO 47
COLOR 15, 0: LOCATE i, 1: PRINT teksti(i)
NEXT i

END IF
IF rivi < 48 THEN : IF SCREEN(rivi, paikka) = 32 OR SCREEN(rivi, paikka) = 219 THEN COLOR 4: LOCATE rivi, paikka: PRINT "Û":  ELSE COLOR 15, 4: LOCATE rivi, paikka: PRINT CHR$(SCREEN(rivi, paikka))
IF rivi > 47 THEN : IF SCREEN(47, paikka) = 32 OR SCREEN(47, paikka) = 219 THEN COLOR 4: LOCATE 47, paikka: PRINT "Û":  ELSE COLOR 15, 4: LOCATE 47, paikka: PRINT CHR$(SCREEN(47, paikka))
COLOR 15, 0
LOCATE 48, 1: PRINT "rivi:"; rivi
LOCATE 48, 20: PRINT "paikka:"; paikka
DO: n$ = INKEY$: LOOP UNTIL n$ <> ""
SELECT CASE n$
CASE CHR$(0) + "H"
        IF NOT rivi = 1 THEN rivi = rivi - 1
CASE CHR$(0) + "P"
        IF NOT rivi = 800 THEN rivi = rivi + 1
CASE CHR$(0) + "M"
        IF paikka = 80 THEN
                IF NOT rivi = 800 THEN rivi = rivi + 1: paikka = 1
                ELSE paikka = paikka + 1
        END IF
CASE CHR$(0) + "K"
        IF paikka = 1 THEN
                IF NOT rivi = 1 THEN rivi = rivi - 1: paikka = 80
                ELSE paikka = paikka - 1
        END IF
CASE CHR$(13)
        IF NOT rivi = 800 THEN rivi = rivi + 1: paikka = 1
CASE CHR$(27)
        END
CASE CHR$(8)
        IF paikka = 1 THEN
                IF NOT rivi = 1 THEN rivi = rivi - 1: paikka = 80
                ELSE paikka = paikka - 1
        END IF
        teksti(rivi) = LEFT$(teksti(rivi), paikka - 1) + " " + MID$(teksti(rivi), paikka + 1, 80)
CASE ELSE
        teksti(rivi) = LEFT$(teksti(rivi), paikka - 1) + n$ + MID$(teksti(rivi), paikka + 1, 80)
        IF paikka = 80 THEN
                paikka = 1
                IF NOT rivi = 800 THEN rivi = rivi + 1
        ELSE paikka = paikka + 1
        END IF
END SELECT
LOOP