home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / MusGraph / MAC-GIF-FIXER (.txt) < prev    next >
Commodore BASIC  |  2019-04-13  |  512b  |  15 lines
  1. 1 REM THIS PROGRAM ERASES THE HEADER
  2. 2 REM THAT IS LEFT ON A GIF IF IT WAS
  3. 3 REM CONVERTED ON A MAC SYSTEM
  4. 4 REM
  5. 5 REM ON LINE 10 AND 20 CHANGE THE MAC
  6. 6 REM TO THE SOURCE FILE NAME AND
  7. 7 REM THE DESTINATION TO BE ON LINE 20
  8. 8 REM
  9. 10 OPEN 1,9,5,"0:MAC.GIF"
  10. 20 OPEN 2,9,6,"0:MAC2.GIF,P,W"
  11. 30 FOR T=1 TO 128:GET#1,A$:NEXT T
  12. 40 GET#1,A$:U=ST:IF A$="" THEN A$=CHR$(0)
  13. 50 PRINT#2,A$;:IF (UAND64)=0 THEN 40
  14. 60 CLOSE2:CLOSE1:END
  15.