DEB Statements
260 REM sub to display a box of text
270 LOCATE X, Y : PRINT CHR$(201J;
280 FOR I
=
1 TO 29:PRINT CHR$(205J; :NEXT I
290 PRINT CHR$(187J;
300 LOCATEX+1,Y;
305 PRINT CHR$(186J + "This box is on the VDC
screen"
+
CHR$(186J;
310 LOCATE X + 2, Y;
315 PRINT CHR$(186J
+
"This is more text"
+
CHR$(186J;
320 LOCATE X + 3, Y;
325 PRINT CHR$(186J + "This is the last line of text"
+ CHR$(186J;
330 LOCATE X + 4, Y: PRINT CHR$(20OJ;
340 FOR I = 1 TO 29: PRINT CHR$(205J;:NEXT I
350 PRINT CHR$(188J;
360 RETURN
3-29