home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Compute! Gazette 1990 May
/
1990-05.d64
/
fdback64
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-09-20
|
927b
|
25 lines
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