home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / ART-SHOW (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.8 KB  |  71 lines
  1. 1 REM  ART SHOW FOR DIGITIZED PICTURES
  2. 2 REM  BY STEPHEN MURRI.
  3. 3 REM
  4. 4 REM  SPECIAL THANKS TO FRANK COVITZ
  5. 5 REM  FOR DESIGNING THE DIGITIZER.
  6. 6 REM
  7. 7 REM  PUT TOGETHER BY DAVID BRADLEY
  8. 8 REM
  9. 9 REM
  10. 10 REM  MODIFIED BY GARY W FUNK
  11. 11 REM
  12. 12 REM SPRITES AT $3F80
  13. 13 REM SPRITES AT $3F80
  14. 14 REM DISSOLVE ROUTINES AT $C000
  15. 15 IFX=0THENIFPEEK(34592)=76THENX=3
  16. 17 IFX=0THENPOKE53280,6:POKE53281,6:PRINT"[147]COMMODORE 64 ART SHOW"
  17. 19 IFX=0THENX=1:PRINT"LOADING ..."
  18. 20 IFX=1THENX=2:LOAD"LOGO",8,1
  19. 22 IFX=2THENX=3:LOAD"DISSOLVE",8,1
  20. 25 IFX=3THENPOKE55,0:POKE56,31:CLR:X=4:
  21. 30 IFX=4THENX=5:POKE53280,0:POKE53281,0:GOTO50
  22. 40 IFX=5THEN130
  23. 50 PRINT"[147]            INSERT DISK AND...."
  24. 51 PRINT"          PRESS ANY KEY TO START"
  25. 52 GETA$:IFA$=""THEN52
  26. 53 PRINT"[147]":FORT=0TO50:NEXT:GOTO60
  27. 60 REM MAIN LOOP
  28. 61 GOTO1000:REM TITLE SCREEN
  29. 100 SYS34592:REM SET UP MC BITMAP MODE
  30. 104 POKEVIC+21,0
  31. 105 FORT=0TO100:NEXT
  32. 110 SYS34592+3:REM DISSOLVE IN SCREEN
  33. 120 GOTO2000:REM LOAD NEXT FILE
  34. 130 SYS34592+6:REM DISSOLVE OUT
  35. 140 REM
  36. 150 IFE=1THEN9000:REM END OF STREAM
  37. 160 GOTO100
  38. 1000 SYS34592+9:REM RESTORE TEXT MODE
  39. 1005 POKE2040,254:REM SPRITE POINTER
  40. 1010 POKE2041,255:REM SPRITE POINTER
  41. 1020 VIC=53248
  42. 1030 POKEVIC+39,6:REM COLOR 0
  43. 1040 POKEVIC+40,2:REM COLOR 1
  44. 1050 POKEVIC+29,0:REM X EXPAND OFF
  45. 1060 POKEVIC+28,0:REM MCM OFF    
  46. 38660 VIC+23,0:REM Y EXPAND OFF
  47. 1080 POKEVIC+16,0:REM MSB X OFF
  48. 1090 POKEVIC+1,136:REM Y LOCATION 0
  49. 1100 POKEVIC+3,136:REM Y LOCATION 1
  50. 1110 POKEVIC+0,128:REM X LOCATION 0
  51. 1120 POKEVIC+2,128:REM X LOCATION 1
  52. 1130 POKEVIC+21,3:REM TURN ON
  53. 1150 PRINT"[147] COMMODORE 64"
  54. 1160 PRINT"   ART SHOW"
  55. 1165 GOTO2000
  56. 1166 POKEVIC+21,0:REM SPRITES OFF
  57. 2000 REM
  58. 2100 NN=N+65:F$=CHR$(NN)+"*"
  59. 2200 FI$=CHR$(129)+"PIC "+F$
  60. 2201 N=N+1:IFN>16THEN8000
  61. 2205 OPEN15,8,15:
  62. 2206 OPEN2,8,2,FI$+",P,R"
  63. 2207 INPUT#15,A:IFA<>0THENCLOSE2:CLOSE15:GOTO2000
  64. 2208 CLOSE15:CLOSE2
  65. 2210 LOADFI$,8,1
  66. 2211 IF ST<>0THEN2000
  67. 2220 END
  68. 7936 FORT=0TO9000:NEXT
  69. 9000 SYS34592+9:REM RESTORE TEXT MODE
  70. 9100 CLR:N=0:X=5:GOTO50
  71.