'
' Diese Routine zeigt die Viereckigen Boxen, die immer auf oder zu gehen,
' wenn der Programmierer Eindruck schinden will. (Ist ja eigentlich
' berflssig, nicht?)
'
breit1=10          ! Breite des Vierecks
hoch1=10           ! H”he des Vierecks
xneu=0             ! linke obere Ecke des erzeugten Vierecks (x)
yneu=0             ! linke untere Ecke des erzeugten Vierecks (y)
breit2=639         ! ganzer Schirm
hoch2=399          ! ganzer Schirm
'
GRAPHMODE 3
'
' Growbox aufziehen
'
@growbox(breit1,hoch1,xneu,yneu,breit2,hoch2)
'
' *** Bildschirm schwarz
'
PBOX xneu,yneu,xneu+breit2,yneu+hoch2
'
' *** kleines P„uschen
'
PAUSE 50
'
' *** Bildschirm weiž
'
PBOX xneu,yneu,xneu+breit2,yneu+hoch2
'
' *** die Box wieder schrumpfen lassen
'
@schrumpfbox(breit1,hoch1,xneu,yneu,breit2,hoch2)
'
' *** diese Routine erzeugt die Growbox
'
PROCEDURE growbox(breit1,hoch1,xneu,yneu,breit2,hoch2)
  DPOKE GINTIN+4,breit1
  DPOKE GINTIN+6,hoch1
  DPOKE GINTIN+8,xneu
  DPOKE GINTIN+10,yneu
  DPOKE GINTIN+12,breit2
  DPOKE GINTIN+14,hoch2
  GEMSYS 73+schrumpf%
  schrumpf%=0
RETURN
'
' *** durch diese Routine schrumpft die Box
'
PROCEDURE schrumpfbox(breit1,hoch1,xneu,yneu,breit2,hoch2)
  schrumpf%=1
  @growbox(breit1,hoch1,xneu,yneu,breit2,hoch2)
RETURN