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