SCREEN 13
RANDOMIZE TIMER
DIM R AS INTEGER
DIM C AS INTEGER
FOR R = 0 TO 24
    FOR C = 0 TO 39
        IF INT(RND + .5) = 0 THEN
            LINE (C * 8, R * 8)-(C * 8 + 8, R * 8 + 8)
        ELSE
            LINE (C * 8, R * 8 + 8)-(C * 8 + 8, R * 8)
        END IF
    NEXT C
NEXT R
DEF SEG = &HA000
BSAVE "MAZE.IMG", 0, 65535
DEF SEG
DIM NEXTKEY AS STRING
DO
    NEXTKEY = INKEY$
LOOP UNTIL NEXTKEY <> ""
SCREEN 0