1540 IF KY = 141 THEN ON (CX -1)/8 +1 GOTO 1560,1650,1720,1730,220
1550 PRINT CHR$(7);: GOTO 1450
1560 HOME : VTAB 21: PRINT "ENTER FILE NAME-- '?' FOR CATALOG <RET> TO CANCEL:": INPUT "";A$: REM 7 SPACES
1570 IF A$ = "" THEN 1420
1580 IF A$ = "?" OR A$ = "/" THEN 1720
1590 HOME : VTAB 22: INPUT "LOADING WILL ERASE CURRENT PICTURE. DO YOU WANT TO CONTINUE?";B$: IF LEFT$(B$,1) < >"Y" AND LEFT$(B$,1) < > CHR$( ASC("Y") +32) THEN 1420
1600 PRINT CHR$(4);"BLOAD";A$;",A$2000,D";DD
1610 IF BX THEN XDRAW 1 AT X1,Y1: XDRAW 1 AT X1,Y2: XDRAW 1 AT X2,Y1: XDRAW 1 AT X2,Y2: GOSUB 1350
1620 IF NOT BX THEN GOSUB 1080
1630 IF NOT BX AND PN THEN GOSUB 1090
1640 GOTO 1420
1650 HOME : VTAB 21: PRINT "ENTER FILE NAME-- '?' FOR CATALOG <RET> TO CANCEL:": INPUT "";A$: REM 7 SPACES
1660 IF A$ = "" THEN 1420
1670 IF A$ = "?" OR A$ = "/" THEN 1720
1680 IF BX THEN XDRAW 1 AT X1,Y1: XDRAW 1 AT X1,Y2: XDRAW 1 AT X2,Y1: XDRAW 1 AT X2,Y2: GOSUB 1350
2100 IF CF THEN VTAB 23: HTAB 18: PRINT "B/W ";:CF = 0: GOTO 1870
2110 IF NOT CF THEN VTAB 23: HTAB 18: PRINT "COLOR";:CF = 1: GOTO 1870
2120 REM EXECUTE
2130 IF X1 = X2 OR Y1 = Y2 OR JX = HX OR JY = HY THEN VTAB 21: HTAB 1: PRINT "INVALID BOXES-- PRESS RETURN";: GET A$: HTAB 1: PRINT " ";: GOTO 1870: REM 30 SPACES
2140 XDRAW 1 AT X1,Y1: XDRAW 1 AT X1,Y2: XDRAW 1 AT X2,Y1: XDRAW 1 AT X2,Y2: GOSUB 1350