home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / TelcomTools / CONVERT (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  1.8 KB  |  52 lines
  1. 100 POKE53280,5:POKE53281,7:POKE56,32:CLR:PRINTCHR$(14)
  2. 110 OPEN15,8,15
  3. 120 PRINT"[147]";TAB(13);"FILE CONVERTER":PRINTTAB(15);"WRITTEN BY"
  4. 130 PRINTTAB(6);"[170][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][180]"
  5. 140 PRINTTAB(6);"[170]        [199]. [204]. [195]OX        [180]"
  6. 150 PRINTTAB(6);"[170]   8 [215]EATHERWOOD [204]ANE    [180]"
  7. 160 PRINTTAB(6);"[170]   [205]AUMELLE, [193][210] 72118    [180]"
  8. 170 PRINTTAB(6);"[170][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][175][180][144]"
  9. 180 PRINT"[212]HIS PROGRAM WILL CONVERT A TRUE [193][211][195][201][201]  FILE TO A [195][194][205] FORMAT FOR USE";
  10. 190 PRINT" IN A WORD  PROCESSOR OR SEQUENTIAL FILE  READER."
  11. 200 IFATHENGOTO230
  12. 210 FORN=828TO925:READA:POKEN,A:CK=CK+A:NEXT
  13. 220 IFCK<>13293THENPRINT"ERROR IN DATA STATEMENTS!":GOTO380
  14. 230 IFBTHENPRINT"[193][211][195][201][201] [198]ILENAME? ";OF$;"":GOTO310
  15. 240 INPUT"[193][211][195][201][201] [198]ILENAME";OF$
  16. 250 OPEN8,8,8,OF$+",S,R"
  17. 260 GOSUB400:IFATHENGOTO120
  18. 270 PRINT"[215]ORKING...[145]"
  19. 280 SYS828:GOSUB400:IFATHENGOTO120
  20. 290 CLOSE8
  21. 300 REM --- WRITE THE CONVERTED FILE
  22. 310 INPUT"[195][194][205] [198]ILENAME";CF$
  23. 320 OPEN8,8,8,CF$+",S,W"
  24. 330 GOSUB400:IFATHENB=1:GOTO120
  25. 340 PRINT"[211]AVING [195]ONVERTED [198]ILE..."
  26. 350 SYS893
  27. 360 GOSUB400:IFATHENB=1:GOTO120
  28. 370 PRINT"[145]...[196][207][206][197]!"
  29. 380 CLOSE8:CLOSE15:POKE56,160:CLR:END
  30. 390 REM --- CHECK DISK ERROR SUB
  31. 400 INPUT#15,A,B$,C,D:IFA=0THENGOTO460
  32. 410 PRINT"   DISK ERROR!   ":PRINT"";A;B$;C;D
  33. 420 PRINT"[196]O YOU WISH TO CONTINUE?"
  34. 430 GETA$:IFA$=""THEN430
  35. 440 IFA$="Y"ORA$="[217]"THENCLOSE8:GOTO460
  36. 450 PRINT"[208]ROGRAM [193]BORTED!":GOTO380
  37. 460 RETURN
  38. 470 DATA 160,0,132    
  39. 12588 69,32,133,140
  40. 480 DATA 162,8,32,198,255,32,228,255
  41. 490 DATA 201,10,240,249,201,65,144,19
  42. 500 DATA 201,91,176,4,9,128,208,11
  43. 510 DATA 201,97,144,7,201,123,176,3
  44. 520 DATA 56,233,32,145,139,200,208,2
  45. 530 DATA 230,140,32,183,255,41,64,240
  46. 540 DATA 212,169,0,145,139,32,204,255
  47. 550 DATA 96,169,0,133,139,169,32,133
  48. 560 DATA 140,162,8,32,201,255,160,0
  49. 570 DATA 177,139,240,10,32,210,255,200
  50. 580 DATA 208,246,230,140,208,242,32,204
  51. 590 DATA 255,96
  52.