home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1990 May / 1990-05.d64 / fdback64 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  927 b   |  25 lines
  1. 10 print"[147][154]":poke53280,14:poke53281,6
  2. 5000 rem 64 screen store
  3. 5010 ss=49152
  4. 5020 for i=ss to ss+120:reada:pokei,a:ck=ck+a:next
  5. 5030 if ck<>14521 then print"error in screen store data":stop
  6. 5040 print"[147]sys"ss+3"stores the screen":print"sys"ss"recalls it"
  7. 5050 fori=1to2000:next
  8. 5060 data 24,144,54,160,0,185,0,4,153,0,160,185,0,5
  9. 5070 data 153,0,161,185,0,6,153,0,162,185,232,6,153,232
  10. 5080 data 162,185,0,216,153,0,164,185,0,217,153,0,165,185
  11. 5090 data 0,218,153,0,166,185,232,218,153,232,166,200,208,205
  12. 5100 data 96,165,1,72,41,254,133,1,160,0,185,0,160,153
  13. 5110 data 0,4,185,0,161,153,0,5,185,0,162,153,0,6
  14. 5120 data 185,232,162,153,232,6,185,0,164,153,0,216,185,0
  15. 5130 data 165,153,0,217,185,0,166,153,0,218,185,232,166,153
  16. 5140 data 232,218,200,208,205,104,133,1,96
  17. 5150 rem example
  18. 5160 print:fortt=1to19:print"abcdefghijklmnopqrstuvwxyz":next
  19. 5170 print" press any key to store screen[154]"
  20. 5175 geta$:ifa$=""then5175
  21. 5180 sysss+3:rem store it
  22. 5190 print"[147]  press any key to restore old screen"
  23. 5200 geta$:ifa$=""then5200
  24. 5210 sysss:rem restore old screen
  25.