home *** CD-ROM | disk | FTP | other *** search
- 1 REM THIS PROGRAM ERASES THE HEADER
- 2 REM THAT IS LEFT ON A GIF IF IT WAS
- 3 REM CONVERTED ON A MAC SYSTEM
- 4 REM
- 5 REM ON LINE 10 AND 20 CHANGE THE MAC
- 6 REM TO THE SOURCE FILE NAME AND
- 7 REM THE DESTINATION TO BE ON LINE 20
- 8 REM
- 10 OPEN 1,9,5,"0:MAC.GIF"
- 20 OPEN 2,9,6,"0:MAC2.GIF,P,W"
- 30 FOR T=1 TO 128:GET#1,A$:NEXT T
- 40 GET#1,A$:U=ST:IF A$="" THEN A$=CHR$(0)
- 50 PRINT#2,A$;:IF (UAND64)=0 THEN 40
- 60 CLOSE2:CLOSE1:END
-