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