home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 91 / 64er_Magazin_Sonderheft_91_19xx_Markt__Technik_de_Side_A.d64 / fox-master (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  47 lines
  1. 100 rem        fox-master
  2. 110 rem
  3. 120 rem   02.03.87  by  p.engels
  4. 130 rem   ----------------------
  5. 140 rem
  6. 150 printchr$(14)"[147][208]rint[198]ox -> [205]aster[212]ext"chr$(13)" [212]extkonverter"
  7. 160 input"[209]uell-[212]ext:";qf$:qf$=qf$+",p,r"
  8. 170 input" [218]iel-[212]ext:";zf$:zf$=zf$+",p,w"
  9. 180 open1,8,3,qf$
  10. 190 open2,8,4,zf$:print#2,chr$(0)chr$(08);:rem start-kennung
  11. 200 print:print
  12. 210 get#1,a$:rem text-kennung ueberlesen
  13. 220 get#1,a$:ifa$=""thena$=chr$(0)
  14. 230 a=asc(a$):b=0
  15. 240 if(a>96)and(a<123)thenb=a-96:goto370:rem klein
  16. 250 if(a>31)and(a<91)thenb=a:goto370:rem ziffern,zeichen,grossbuchst.
  17. 260 ifa=2thengoto540:rem formatzeile ignorieren
  18. 270 ifa=127thenb=32:rem shift space
  19. 280 ifa=13thenb=142:rem absatz
  20. 290 ifa=91thenb=91:rem ae
  21. 300 ifa=92thenb=92:rem oe
  22. 310 ifa=93thenb=93:rem ue
  23. 320 ifa=123thenb=27:rem ae
  24. 330 ifa=124thenb=28:rem oe
  25. 340 ifa=125thenb=29:rem ue
  26. 350 ifa=126thenb=30:rem sz
  27. 360 :
  28. 370 if(a>31)or(a=13)thenprintchr$(a);
  29. 380 ifst=2goto440:rem file-ende
  30. 390 ifb=0then220
  31. 400 print#2,chr$(b);
  32. 410 sz=sz+1:rem spaltenzaehler
  33. 420 ifb=142thengosub480:rem zeile auffuellen
  34. 430 goto220
  35. 440 print#2,chr$(0)chr$(0):rem ende
  36. 450 close1:close2
  37. 460 print:print"[212]ext ist konvertiert !![146]":end
  38. 470 :
  39. 480 ifsz> 79thenprint#2," ";
  40. 490 ifsz>159thenprint#2," ";
  41. 500 ifsz>319thenprint#2," ";
  42. 510 ifsz>399thenprint#2," ";
  43. 520 forz=szto79*(int(sz/79)+1):print#2," ";:next:sz=0:return:rem auffuellen
  44. 530 :
  45. 540 get#1,a$:ifasc(a$)<>13goto540:zeile ueberlesen
  46. 550 goto220
  47.