home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Misc / PET-LOAD-SETUP (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  384 b   |  11 lines
  1. 5 PRINT"[147]SETUP 64 FOR PET LOADS"
  2. 10 PRINT"THIS PROGRAM RELOCATES SCREEN MEMORY"
  3. 15 PRINT"TO IT'S HIGHEST LOCATION"
  4. 20 PRINT"AND LOWERS THE START OF BASIC TO MATCH  THE PET'S START OF BASIC"
  5. 35 PRINT"PRESS ANY KEY TO DO IT"
  6. 40 GETA$:IFA$=""THEN40
  7. 50 POKE53272,(PEEK(53272)AND15)OR240:POKE648,60
  8. 55 POKE631,13:POKE632,13:POKE198,2
  9. 60 PRINT"[147]POKE43,1:POKE44,4:POKE1024,0:NEW"
  10. 70 POKE631,13:POKE632,13:POKE198,2:END
  11.