home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64utils / rle64 (.txt) < prev    next >
Commodore BASIC  |  1988-12-05  |  1KB  |  17 lines
  1. 100 POKE 53280,11:POKE 53281,0:POKE 646,1
  2. 110 PRINT"[147]C64 RLE PICTURE DISPLAYER"
  3. 120 PRINT"BY KERMIT R. WOODALL (PUBLIC DOMAIN)"
  4. 130 PRINT"HELLO "CHR$(34)"LARRY, HARV, BOB AND CHARLIE"CHR$(34)
  5. 140 PRINT"HIT ANY KEY DURING PICTURE FOR PROMPT"
  6. 150 INPUT"RLE FILENAME";FI$:IF FI$="" GOTO 499
  7. 160 OPEN 8,8,8,FI$+",M,R"
  8. 170 GET#8,A$:IF A$<>"H" AND A$<>"[200]" GOTO 170
  9. 180 :
  10. 200 POKE 53265,59:POKE 53272,120:POKE 56576,150
  11. 210 SYS2504::CLOSE 8
  12. 220 GET A$:IF A$="" GOTO 220
  13. 230 POKE 53265,27:POKE 53272,21:POKE 56576,199
  14. 235 RUN
  15. 240 :
  16. 499 END
  17.