home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 31 / 64er_Magazin_Sonderheft_31_19xx_Markt__Technik_de.d64 / master-convert (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  676 b   |  28 lines
  1. 5 close 1:close 2:close 3
  2. 10 print"[147]";chr$(14):input"[206]ame der [212]ext-[196]atei: ";na$
  3. 15 input"[206]ame der [193]usgabe-datei: ";aus$
  4. 20 open 2,8,2,na$+",p,r"
  5. 30 open3,8,3,"@:"+aus$+",s,w"
  6. 35 get#2,a$:get#2,a$:print"[147]"
  7. 36 :
  8. 37 for i = 1to 80:en =0
  9. 40 get#2,a$:ifa$="" then a$=chr$(0)
  10. 50 if st <> 64 then gosub 100:if en=1 then 37
  11. 60 if st = 64 then print#3,chr$(64):close 2:close 3
  12. 65 next i
  13. 70 print "[147][198]ertig!":end
  14. 90 :
  15. 95 :
  16. 100 if asc(a$)=0 then return
  17. 102 if asc(a$) >=1 and asc(a$) <=26 thena$ = chr$(asc(a$)+64):gosub 500:return
  18. 103 if asc(a$) >=32and asc(a$) <=64 then gosub 500:return
  19. 105 if asc(a$) >=65 and asc(a$) <=90 then a$ =chr$(asc(a$)+128):gosub500:return
  20. 111 ifasc(a$)=142then a$=chr$(13)+chr$(10):gosub500:gosub 200: en=1: return
  21. 115 if asc(a$) >=127 and asc(a$) <= 192 then return
  22. 150 return
  23. 160 :
  24. 200 x= 80 - i
  25. 205 for z = 1 to x : get#2,a$::next z:return
  26. 499 :
  27. 500 print#3,a$;:printa$;:return
  28.