Here's contribution...

SCREEN 12
DIM A(0 TO 23 * 8 - 1, 0 TO 15)
PRINT "PRINT " + CHR$(34) + "www.qbasic.com" + CHR$(34) + "_"

FOR x = 0 TO 23 * 8 - 1
FOR y = 0 TO 15
A(x, y) = POINT(x, y)
NEXT
NEXT

CLS

LINE (0, 0)-(449, 99), 7, BF

LINE (5, 5)-(444, 94), 1, B
LINE (6, 6)-(443, 93), 1, B

FOR x = 0 TO 23 * 8 - 1
FOR y = 0 TO 15
IF A(x, y) THEN LINE (x * 2 + 38, y * 4 + 20)-STEP(2, 4), 1, BF
NEXT
NEXT





(Or in BMP format...) www.autopack.com/aleks/host/qbdotcom.bmp