Text Editor

SCREEN _NEWIMAGE(800, 600, 32)
DIM y AS INTEGER
DIM text(100) AS STRING
DIM tox AS INTEGER
DO
    CLS
    WHILE _MOUSEINPUT
        IF _MOUSEWHEEL THEN
            y = y - _MOUSEWHEEL * 15
        END IF
    WEND
    _PRINTSTRING (0, y), text(tox)
    k$ = INKEY$
    IF k$ = CHR$(8) THEN
        text = LEFT$(text, LEN(text) - 1)
    ELSEIF k$ = CHR$(19) THEN
        OPEN "outputfile.bas" FOR OUTPUT AS #1
        PRINT #1, text
        CLOSE #1
    ELSEIF k$ = CHR$(13) THEN
        tox = tox + 1
    ELSE
        text = text + k$
    END IF
    _DISPLAY
LOOP