10 PRINT"[147][154]":POKE53280,14:POKE53281,6
5000 REM 64 SCREEN STORE
5010 SS=49152
5020 FOR I=SS TO SS+120:READA:POKEI,A:CK=CK+A:NEXT
5030 IF CK<>14521 THEN PRINT"ERROR IN SCREEN STORE DATA":STOP
5040 PRINT"[147]SYS"SS+3"STORES THE SCREEN":PRINT"SYS"SS"RECALLS IT"
5050 FORI=1TO2000:NEXT
5060 DATA 24,144,54,160,0,185,0,4,153,0,160,185,0,5
5070 DATA 153,0,161,185,0,6,153,0,162,185,232,6,153,232
5080 DATA 162,185,0,216,153,0,164,185,0,217,153,0,165,185
5090 DATA 0,218,153,0,166,185,232,218,153,232,166,200,208,205
5100 DATA 96,165,1,72,41,254,133,1,160,0,185,0,160,153
5110 DATA 0,4,185,0,161,153,0,5,185,0,162,153,0,6
5120 DATA 185,232,162,153,232,6,185,0,164,153,0,216,185,0
5130 DATA 165,153,0,217,185,0,166,153,0,218,185,232,166,153
5140 DATA 232,218,200,208,205,104,133,1,96
5150 REM EXAMPLE
5160 PRINT:FORTT=1TO19:PRINT"ABCDEFGHIJKLMNOPQRSTUVWXYZ":NEXT
5170 PRINT" PRESS ANY KEY TO STORE SCREEN[154]"
5175 GETA$:IFA$=""THEN5175
5180 SYSSS+3:REM STORE IT
5190 PRINT"[147]  PRESS ANY KEY TO RESTORE OLD SCREEN"
5200 GETA$:IFA$=""THEN5200
5210 SYSSS:REM RESTORE OLD SCREEN