20 XCEN= 640
30 YCEN= 512
40 VDU29,XCEN;YCEN;
50 INPUT'"Enter width of box ",width
60 CLS
70 INPUT'"Enter height of box ",height
80 CLS
90 MOVE -width/2,-height/2
100 DRAW -width/2,height/2
110 DRAW width/2,height/2
120 DRAW width/2,-height/2
130 DRAW -width/2,-height/2