Screen Splitter – Continued

Utility routine that enables you to save a SCREEN$ in one of 30 different ways, combinations of top pixels, middle pixels, bottom pixels, and attributes.

7200 REM RETURN TO MAIN MENU
7210 GO TO 1
8000 REM SAVING LOWER THIRD
8010 CLS: PRINT "SAVING LOWER THIRD"
8020 RANDOMIZE USR 61440: POKE 60003,0: POKE 60004,8: POKE 60007,80: POKE 60008,211: RANDOMIZE USR 60000
8030 PRINT #0;AT 0,1;FLASH 1;"SAVING COMPLETE - PRESS A KEY"
8040 PAUSE 200: RANDOMIZE USR 61440: PAUSE 0: GO TO 1
8200 REM NORMAL ATTRIBUTE SAVE
8220 RANDOMIZE USR 61440: POKE 60003,255: POKE 60004,2: POKE 60007,80: POKE 60008,219: RANDOMIZE USR 60000
8230 PRINT #0;AT 0,1;FLASH 1;"SAVING COMPLETE - PRESS A KEY"
8240 PAUSE 200: RANDOMIZE USR 61440: PAUSE 0: GO TO 1
9000 REM RETURN TO MAIN MENU
9010 GO TO 1
9030 LET MOV=1: GO TO 1
9840 REM RETURN TO MAIN MENU
9850 GO TO 1
9900 FOR F=60000 TO 60012
9910 READ A
9920 POKE F,A: NEXT F
9930 FOR H=61440 TO 61451
9940 READ B
9950 POKE H,B
9954 NEXT H
9960 LET MOV=1: GO TO 1
9997 DATA 62,255,17,0,12,221,33,80,195,205,194,4,201
9998 DATA 33,80,195,17,0,64,1,0,27,237,176,201
9999 SAVE "MENU" LINE 9900