100 SYS 700 ;PAL 64
110 .OPT OO
120 ; "BOX"
130 ; DRAWS A BOX GIVEN LEFT EDGE,
140 ; TOP EDGE, WIDTH AND HEIGHT
150 ; IN "XD", "YD", "LX", "HI".
160 ; CHARACTER IN "BOXCHR".
170 ;
180 BOX =*
190 LDA #"[147]"
200 JSR $FFD2 ;OPTIONAL CLEAR
210 BOX1L =*
220 LDX YD
230 LDY XD
240 CLC
250 JSR $FFF0 ;POSITION CURSOR
260 LDX #0
270 BOX3L =*
280 LDA BOXCHR
290 JSR $FFD2 ;PRINT CHAR
300 INX
310 CPX LX
320 BNE BOX3L
330 LDX #1
340 BOX4L =*
350 LDA #"[157]"
360 JSR $FFD2
370 LDA #""
380 JSR $FFD2
390 LDA BOXCHR
400 JSR $FFD2
410 INX
420 CPX HI
430 BNE BOX4L
440 LDX #1
450 BOX5L =*
460 LDA #"[157]"
470 JSR $FFD2
480 INX
490 CPX LX
500 BNE BOX5L
510 LDX #1
520 BOX6L =*
530 LDA #"[145]"
540 JSR $FFD2
550 INX
560 CPX HI
570 BNE BOX6L
580 LDX #1
590 BOX7L =*
600 LDA #"[157]"
610 JSR $FFD2
620 LDA #""
630 JSR $FFD2
640 LDA BOXCHR
650 JSR $FFD2
660 INX
670 CPX HI
680 BNE BOX7L
690 LDX #1
700 BOX8L =*
710 LDA BOXCHR
720 JSR $FFD2
730 INX
740 CPX LX
750 BNE BOX8L
760 RTS
770 LX .BYTE 15 ;WIDTH
790 HI .BYTE 10 ;HEIGHT
800 XD .BYTE 0  ;DISTANCE X FROM SIDE
810 YD .BYTE 0  ;DISTANCE Y FROM TOP
820 BOXCHR .ASC "*";CHAR USED