home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
8bitfiles.net/archives
/
archives.tar
/
archives
/
genie-commodore-file-library
/
MusGraph
/
MAC-GIF-FIXER
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2019-04-13
|
512b
|
15 lines
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