home *** CD-ROM | disk | FTP | other *** search
- 100 POKE 53280,11:POKE 53281,0:POKE 646,1
- 110 PRINT"[147]C64 RLE PICTURE DISPLAYER"
- 120 PRINT"BY KERMIT R. WOODALL (PUBLIC DOMAIN)"
- 130 PRINT"HELLO "CHR$(34)"LARRY, HARV, BOB AND CHARLIE"CHR$(34)
- 140 PRINT"HIT ANY KEY DURING PICTURE FOR PROMPT"
- 150 INPUT"RLE FILENAME";FI$:IF FI$="" GOTO 499
- 160 OPEN 8,8,8,FI$+",M,R"
- 170 GET#8,A$:IF A$<>"H" AND A$<>"[200]" GOTO 170
- 180 :
- 200 POKE 53265,59:POKE 53272,120:POKE 56576,150
- 210 SYS2504::CLOSE 8
- 220 GET A$:IF A$="" GOTO 220
- 230 POKE 53265,27:POKE 53272,21:POKE 56576,199
- 235 RUN
- 240 :
- 499 END
-