' This program exported from BASIC Anywhere Machine (Version [5.2.3].[2024.09.09.00.00]) on 2025.07.13 at 18:51 (Coordinated Universal Time)
' This program by Charlie Veniot converts a screen of graphics
' to ASCII graphics

LET d% = 20
DIM s%( 0 TO d%, 0 TO d% )
SCREEN _NEWIMAGE( d% + 1, d% + 1, 13 )
CIRCLE( d%/2, d%/2), d%/2 - 1, 62, , , , T
CIRCLE( d%/2, d%/2), d%/2 - 5, 61, , , , T
CIRCLE( d%/2, d%/2), d%/2 - 8, 60

FOR x = 0 TO d%
    FOR y = 0 TO d%
        LET s%( x, y ) = POINT( x, y )
    NEXT y
NEXT x

SLEEP 1

SCREEN _NEWIMAGE( d% * 8 + 8, d% * 8 + 16, 13 ) 

An_ASCII_Rendition:
    Get_a_Random_ASCII_Character:
       c% = 32
       WHILE c% = 32
             c% = INT( RND * 255 ) + 1
             IF c% = last_c% THEN c% = 32
       WEND
       last_c% = c%
       c$ = CHR$( c% )

    FOR x = 0 TO d%
        FOR y = 0 TO d%
            LOCATE y + 1, x + 1
            COLOR s%( x, y )
            PRINT c$;
        NEXT y
    NEXT x

    SLEEP 2

GOTO An_ASCII_Rendition: