10 REM MULTISCREEN
20 FORZ=51712TO52058:READY:POKEZ,Y:NEXT
30 GOTO63000: REM  END AND LOAD NEXT PRG
40 AD=12*4096+10*256+3
50 :
60 SYSAD,SLOT #,"NAME"  :REM SAVE SLOT TO DISK
70 SYSAD+3,SLOT #,"NAME":REM LOAD SLOT FROM DISK
80 :
90 SYSAD+6,0,SLOT # :REM   SAVE SCREEN TO SLOT IN MEMORY
100 SYSAD+6,1,SLOT # :REM RECALL SCREEN FROM SLOT IN MEMORY
110 :
120 REM SLOT # IS FROM 1 TO 5
130 :
140 REM THE PROGRAM EXISTS
150 REM FROM $CA00 TO $CBFF (51712-52223)
160 :
170 REM THIS WILL NOT INTERFERE WITH DOS 5.1
180 :
190 REM IT WILL USE ALL MEMORY FROM
200 REM $A000 - $C800 (40960-51200)
210 REM
220 REM
230 DATA76,168,202,76,182,202,76,243
240 DATA202,32,253,174,32,235,183,165
250 DATA20,133,2,224,0,240,38,224
260 DATA6,176,34,202,188,80,203,189
270 DATA75,203,170,165,2,208,23,134
280 DATA253,132,254,169,0,133,251,169
290 DATA216,133,252,32,90,202,169,4
300 DATA133,252,32,90,202,96,32,35
310 DATA203,134,251,132,252,169,216,133
320 DATA254,169,0,133,253,32,90,202
330 DATA169,4,133,254,32,90,202,76
340 DATA48,203,160,0,162,3,177,251
350 DATA145,253,200,208,249,230,252,230
360 DATA254,202,208,242,177,251,145,253
370 DATA200,192,232,208,247,230,252,230
380 DATA254,96,147,13,13,67,79,80
390 DATA89,82,73,71,72,84,32,49
400 DATA57,56,52,13,76,79,85,73
410 DATA83,32,87,65,76,76,65,67
420 DATA69,32,38,13,75,69,78,32
430 DATA70,82,69,78,67,72,13,0
440 DATA162,0,189,122,202,240,6,32
450 DATA210,255,232,208,245,96,32,253
460 DATA174,32,158,183,224,0,240,48
470 DATA224,6,176,44,202,188,80,203
480 DATA132,252,188,75,203,132,251,188
490 DATA85,203,132,254,169,232,133,253
500 DATA32,61,203,32,189,255,32,35
510 DATA203,169,8,170,32,186,255,169
520 DATA251,166,253,164,254,32,216,255
530 DATA76,48,203,32,253,174,32,158
540 DATA183,224,0,240,37,224,6,176
550 DATA33,142,90,203,169,8,170,160
560 DATA0,32,186,255,32,61,203,32
570 DATA189,255,174,90,203,202,188,80
580 DATA203,189,75,203,170,169,0,32
590 DATA213,255,96,165,0,9,1,133
600 DATA0,165,1,41,254,133,1,96
610 DATA165,0,9,1,133,0,165,1
620 DATA9,1,133,1,96,32,253,174
630 DATA32,158,173,32,130,183,166,34
640 DATA164,35,96,0,0,0,0,0
650 DATA160,168,176,184,192,167,175,183
660 DATA191,199,0
63000 REM  LOAD THE SCREEN EDITOR
63010 PRINT"[147]LOAD"CHR$(34)"MULTISCREEN.ED"CHR$(34)",8":PRINT"RUN"
63020 POKE631,13:POKE632,13:POKE198,2
63030 END