home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 24 / 64er_Magazin_Sonderheft_24_19xx_Markt__Technik_de_Side_B.d64 / master-fox (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  959 b   |  40 lines
  1. 100 rem        master-fox
  2. 110 rem
  3. 120 rem   01.03.87  by  p.engels
  4. 130 rem   ----------------------
  5. 140 rem
  6. 150 printchr$(14)"[147][205]astertext -> [208]rint[198]ox"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$(84);:rem text-kennung
  11. 200 print:print
  12. 210 get#1,a$:get#1,a$:rem start adresse ueberlesen
  13. 220 get#1,a$:ifa$=""thena$=chr$(0)
  14. 230 a=asc(a$):b=0
  15. 240 if(a<27)thenb=a+96:goto360:rem klein
  16. 250 if(a>31)and(a<91)thenb=a:goto360:rem ziffern,zeichen,grossbuchst.
  17. 260 ifa=160thenb=127:rem shift space
  18. 270 ifa=142thenb=13:rem absatz
  19. 280 ifa=91thenb=91:rem ae
  20. 290 ifa=92thenb=92:rem oe
  21. 300 ifa=93thenb=93:rem ue
  22. 310 ifa=27thenb=123:rem ae
  23. 320 ifa=28thenb=124:rem oe
  24. 330 ifa=29thenb=125:rem ue
  25. 340 ifa=30thenb=126:rem sz
  26. 350 :
  27. 360 printchr$(b);
  28. 370 ifst=2goto420:rem file-ende
  29. 380 if b=0goto220
  30. 390 print#2,chr$(b);:ifb=13goto460:rem spaces ueberlesen
  31. 400 goto220
  32. 410 :
  33. 420 print#2,chr$(0);chr$(0):rem endekennung
  34. 430 close1:close2
  35. 440 print:print:print"[212]ext ist konvertiert !![146]":end
  36. 450 :
  37. 460 get#1,a$:ifa$=""thena$=chr$(00):goto460
  38. 470 ifa$=chr$(32)then460:spaces ueberlesen
  39. 480 goto230
  40.