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