!  APPLE1.BAS
    !  Hobby BASIC Interpreter

    !  Displays an ANSI encoded text file

    path$ = PATH('MEDIA\ANSI\APPLE.ANS')
    if SIZE(path$) = -1 then alert 0,'Not found',path$ : end

    view 11
    screen 80,25,0
    cursor 0
    color 0,7
    cls

    ansi path$

    inkey

    cls
    end
    

    !  APPLE2.BAS
    !  Hobby BASIC Interpreter

    !  Replaces colors on a rectangular area of the screen

    path$ = PATH('MEDIA\ANSI\APPLE.ANS')
    if SIZE(path$) = -1 then alert 0,'Not found',path$ : end

    BLACK = 0
    BLUE = 1
    BRIGHT_BLUE = 9

    A = 700
    B = 701

    view 11
    screen 80,25,0
    cursor 0
    color 0,7
    cls

    ansi path$

    wait 750

    repaint 0,0,80,25,BLUE,BLACK
    repaint 0,0,80,25,BRIGHT_BLUE,BLACK

    wait 750

    bsave 0,0,40,25,A
    bsave 40,0,40,25,B

    bload 0,0,B
    bload 40,0,A

    inkey

    cls
    end
    

        X=0
        Y=0
        COLS=40
        ROWS=25

        VIEW 11
        SCREEN 80,25:CLS
        ANSI 'MEDIA\ANSI\APPLE.ANS'
        REPAINT X,Y,COLS,ROWS,12,13
        INKEY
        CLS