'Date: 8/18/2018
'Use: Create decorative lined paper using the attached printer.

Width% = 80
Length% = 30
Nearbottom = 0
Floor: 'come back for the footer

LPRINT "O"; 'left corner
FOR Roof = 2 TO Width% - 1
    LPRINT "="; 'middle
NEXT
LPRINT "O" 'right corner
IF Nearbottom = 1 THEN END 'if the footer was just completed


FOR Walls = 1 TO Length% - 2
    LPRINT "|";
    FOR Lines = 2 TO Width% - 1
        LPRINT "_";
    NEXT
    LPRINT "|"
NEXT
Roof = 2
Nearbottom = 1
GOTO Floor