home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1993 August / 64er_Magazin_93-08_1993_Markt__Technik_de_Side_A.d64 / vlir (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  1KB  |  43 lines
  1. 10 rem ** vlir -> seq wandler **
  2. 20 rem (w) 1992 by claus faerber
  3. 30 dim tr(255),se(255)
  4. 40 poke53280,14:poke53281,14:printchr$(8)chr$(14)
  5. 50 print""spc(10)"[214]lir -> [211]eq [215]andler"
  6. 60 print"      (w) mcmxcii by [195]laus [198]aerber"
  7. 70 print"":input "[209]uelllaufwerk : ? 8[157][157][157]";ql
  8. 80 :input "[218]iellaufwerk :  ? 8[157][157][157]";zl
  9. 90 input"[209]uellfile  :";qi$
  10. 100 input"[218]ielfile   :";z$
  11. 110 q$="":forx=1tolen(qi$):a$=mid$(qi$,x,1):a=asc(a$)
  12. 120 ifa>191anda<234thena$=chr$(a-192+96)
  13. 130 ifa>223anda<255thena$=chr$(a-224+160)
  14. 140 ifa=255thena$=chr$(126)
  15. 150 a=asc(a$)
  16. 160 ifa>64anda<91thena$=chr$(a+32)
  17. 170 ifa>96anda<123thena$=chr$(a-32)
  18. 180 a=asc(a$):ifa>122thena$="?"
  19. 190 q$=q$+a$:next:open15,ql,15,"i":ifql-zlthenopen14,zl,15,"i"
  20. 200 rem *** zeiger in der datei lesen
  21. 210 az=0:open1,ql,2,q$+",u,r":gosub380
  22. 220 get#1,a$,b$:ifa$=""thengoto240
  23. 230 tr(az)=asc(a$+chr$(0)):se(az)=asc(b$+chr$(0)):az=az+1:ifst=0goto220
  24. 240 gosub380:close1
  25. 250 open1,zl,2,z$+",p,w":open2,ql,3,"#":
  26. 260 fory=0toaz-1:tr=tr(y):se=se(y):po=2
  27. 270 print#15,"u1 3 0";tr;se:gosub380
  28. 280 get#2,a$,b$:tr=asc(a$+chr$(0)):se=asc(b$+chr$(0))
  29. 290 print#15,"b-p 3"po
  30. 300 get#2,a$:po=po+1:ifa$=chr$(17)thenpo=po+26:goto340
  31. 310 ifa$=chr$(23)thenpo=po+3:goto340
  32. 320 ifa$=chr$(16)thenpo=po+4:goto340
  33. 330 print#1,a$;
  34. 340 ifpo>255or(tr=0andse<po)thenpo=po-254:onsgn(tr)goto270:goto360
  35. 350 goto290
  36. 360 next:close1:close2:close15:ifql-zlthenclose14
  37. 370 run
  38. 380 print"":
  39. 390 :get#15,a$:printa$;:ifa$<>chr$(13)then390
  40. 400 ifql=zlthenreturn
  41. 410 :get#14,a$:printa$;:ifa$<>chr$(13)then410
  42. 420 return
  43.