'===========================================================================
' Subject: REVERSING SCREEN IMAGE            Date: 02-18-96 (12:41)       
' Author:  Earl L. Montgomery                Code: QB, QBasic, PDS        
' Origin:  FidoNet QUIK_BAS Echo           Packet: GRAPHICS.ABC
'===========================================================================
 'Noticed you were asking about turning the screen upside down. Here
 'is a routine that does a mirror image. I had written a program that
 'will reverse the screen horizontally and vertically. Will have to
 'look for the source code.

DEFINT A-Z
SCREEN 9
DIM bottom(1500)
COLOR 14
LOCATE 12, 30: PRINT "Earl L. Montgomery"
CIRCLE (100, 100), 10
LINE (100, 108)-(100, 114)
LINE (84, 114)-(115, 114)
LINE (84, 114)-(84, 134)
LINE (115, 114)-(115, 134)
LINE (100, 114)-(100, 144)
LINE (100, 144)-(90, 174)
LINE (100, 144)-(110, 174)
COLOR 4
LINE (0, 0)-(639, 50), , BF
v1 = -0: v2 = 350
FOR x = 0 TO 349
v1 = v1 + 1
v2 = v2 - 1
GET (0, v1)-(639, v1), bottom
PUT (0, v2), bottom, PSET
SOUND 32000, .5
NEXT
SLEEP 100