rem  APPLE1.BAS
    rem  Display an ANSI encoded text file
    rem  Hobby BASIC Interpreter

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

    view 11
    screen 80,25,300
    color 0,0
    cls

    ansi path$

    inkey

    cls
    end
    

    rem  APPLE2.BAS
    rem  Hobby BASIC Interpreter

    BLACK = 0
    BLUE = 1
    BRIGHT_BLUE = 9

    A = 700
    B = 701

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

    view 11
    screen 80,25,300
    color 0,0
    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 'ART\ANSI\APPLE.ANS'
        REPAINT X,Y,COLS,ROWS,12,13
        INKEY
        CLS