home *** CD-ROM | disk | FTP | other *** search
- 2 PRINT"[193][211][195][201][201] [195]ONVERSION64 V1.0 BY [194]OB [203]OBER"
- 3 OPEN15,8,15
- 4 INPUT"[201]NPUT FILENAME";FI$
- 5 OPEN1,8,2,FI$:GOSUB14 :IFETHENCLOSE1:GOTO4
- 6 INPUT"[207]UTPUT FILENAME";FO$
- 7 PRINT"[195]ONVERT TO ([208])ET, OR ([212])RUE [193][211][195][201][201]?";
- 8 GETC$:ON-(C$=""OR(C$<>"P"ANDC$<>"T"))GOTO8 :PRINT" "C$:C=1:IFC$="P"THENC=0
- 9 POKE2480,C
- 10 OPEN2,8,1,FO$+",S":GOSUB14 :IFETHENCLOSE2:GOTO6
- 11 SYS2481:CLOSE15
- 12 PRINT:PRINT"[195]ONVERT ANOTHER? ([217]/[206])"
- 13 POKE198,0:WAIT198,1:GETC$:POKE198,0:ON-(C$="Y")GOTO2 :END
- 14 INPUT#15,E,ER$:IFETHENPRINT"[207][207][208][211]!"ER$
- 15 RETURN
-