home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / s85xx / s8504b.d64 / view (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  676b  |  22 lines
  1. 10 REM  "VIEW"   DISPLAY 'IMAGES.PIC'
  2. 20 REM  GRAPHICS PACKAGE NEED NOT BE
  3. 30 REM  INSTALLED FOR THIS PROGRAM.
  4. 40 :
  5. 50 IF A=1 THEN 200
  6. 60 REM SAVE 'VIC' CHIP REGISTERS FOR
  7. 70 REM RETURN TO TEXT DISPLAY LATER.
  8. 80 :
  9. 90 V1=PEEK(53265):V2=PEEK(53272):V3=PEEK(56576)
  10. 100 :
  11. 110 REM INITIALIZE COLOR MAP BYTES FOR DARK GRAY DOTS (11) ON WHITE (1)
  12. 120 CB=16*11+1
  13. 130 FOR I=33792 TO 34791:POKE I,CB:NEXT
  14. 140 :
  15. 150 REM SWITCH TO GRAPHICS DISPLAY AND LOAD 'IMAGES.PIC' FROM DISK
  16. 160 POKE 53265,V1 OR 32:POKE 53272,25:POKE 56576,(V3 AND 252)OR 1
  17. 170 POKE 53280,1:A=1:LOAD"IMAGES.PIC",8,1
  18. 180 :
  19. 200 REM WAIT FOR KEY TO BE PRESSED THEN RETURN TO TEXT SCREEN
  20. 210 POKE 198,0:WAIT 198,1:POKE 198,0
  21. 220 POKE 53265,V1:POKE 53272,V2:POKE 56576,V3:POKE 53280,14
  22.