10REM Picture Shrink Demo 20REM by M.Bobrowski 9'93 30: 40MODE2:IF HIMEM>&3000 PRINT"Will not work with Shadow RAM":END 50FOR I%=0 TO 30 60GCOL 0,RND(7) 70PLOT 85,RND(1279),RND(1023) 80NEXT 90*SA. DemoScr 3000+5000 100: 110*SHRINK 320,256,960,768,DemoScr 120PROCbox(320,256,960,768) 130*SHRINK 32,64,360,960,DemoScr 140PROCbox(32,64,360,960) 150*SHRINK 900,100,1200,400,DemoScr 160PROCbox(900,100,1200,400) 170*SHRINK 700,800,1220,1000,DemoScr 180PROCbox(700,800,1220,1000) 190END 200: 210DEF PROCbox(A%,B%,C%,D%) 220VDU26:GCOL0,7 230MOVE A%-8,B%-4:DRAW A%-8,D%+4 240DRAW C%+8,D%+4:DRAW C%+8,B%-4 250DRAW A%-8,B%-4:ENDPROC