home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 16 / Tiger_Disk_016_19xx_Tiger-Crew-Disk_de_Side_B.d64 / datei_adress-con (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  77 lines
  1. 10 printchr$(14)chr$(8)
  2. 15 dimxf$(200,4),x$(4)
  3. 20 poke53280,0:poke53281,0:poke646,7
  4. 1000 print"[147][195][207][206][214][197][210][212]"
  5. 1010 print"[195][207][206][214][197][210][212] wandelt [196]aten vom [196]atei 64      ins [193]dress 64 [198]ormat ";
  6. 1020 print"und umgekehrt."
  7. 1030 print"1.) [196]atei 64  ---> [193]dress 64"
  8. 1040 print"2.) [193]dress 64 ---> [196]atei 64"
  9. 1045 print"3.) [196]atei 64   laden"
  10. 1047 print"4.) [193]dress 64  laden"
  11. 1050 print"[215]aehlen [211]ie die [213]mwandlungsrichtung:[164][157]";
  12. 1060 gete$:ife$<"1"ore$>"4"thengoto1060
  13. 1070 printe$
  14. 1100 onval(e$)goto2000,3000,5000,6000
  15. 2000 rem datei  --> adress
  16. 2010 input"[215]ie heisst das [209]uellen-[198]ile ";qf$
  17. 2020 open1,8,3,qf$+",s,r"
  18. 2030 open2,8,4,"@:[206]ame [204]ist,s,w"
  19. 2040 input#1,na$,d$,anzahl
  20. 2045 print" "na$,d$,anz
  21. 2050 print#2,d$
  22. 2060 fora=0toanzahl
  23. 2070 : forb=0to4
  24. 2075 :   input#1,x$(b):ifx$(b)=" "then           x$(b)="-"
  25. 2080 : nextb
  26. 2090 : forc=1tolen(x$(0))-1
  27. 2100 :   ifmid$(x$(0),c,1)=";"then2120
  28. 2110 : nextc:na$=x$(0):vo$="-":goto2130
  29. 2120 : na$=left$(x$(0),c-1):vo$=mid$(          x$(0),c+1)
  30. 2130 : print#2,nach$
  31. 2140 : print#2,vo$
  32. 2150 : print#2,"-"
  33. 2160 : print#2,"-"
  34. 2170 : print#2,"-"
  35. 2180 : print#2,x$(1)
  36. 2190 : print#2,x$(2)
  37. 2200 : print#2,"-"
  38. 2210 : print#2,x$(3)
  39. 2220 : print#2,"-"
  40. 2225 : print#2,"\"
  41. 2230 nexta
  42. 2300 close2:close1
  43. 2310 goto20
  44. 3000 rem adress --> datei
  45. 3006 open2,8,4,"[206]ame [204]ist,s,r"
  46. 3007 input#2,d$
  47. 3010 input"[215]ie soll das [193]blage-[198]ile heissen";af$
  48. 3015 open1,8,3,"@0:"+af$+",s,w"
  49. 3020 fors=0to200
  50. 3030 : forx=1to11
  51. 3040 :  gosub4000
  52. 3050 :  onxgoto3060,3070,3200,3200,3200,        3075,3080,3100,3090,3100,3200
  53. 3055 :  goto3100
  54. 3060 :  xf$(s,0)=x$:goto3200
  55. 3070 :  ifx$<>"-"thenxf$(s,0)=xf$(s,0)+         ";"+x$
  56. 3072 :  goto3200
  57. 3075 :  xf$(s,1)=x$:goto3200
  58. 3080 :  xf$(s,2)=x$:goto3200
  59. 3090 :  xf$(s,3)=x$:goto3200
  60. 3100 :  xf$(s,4)=" "
  61. 3200 : ifst=0thennextx
  62. 3210 ifst=0thennexts
  63. 3300 print#1,af$:print#1,d$:print#1,s
  64. 3310 fora=0tos
  65. 3320 : forb=0to4
  66. 3330 :  print#1,xf$(a,b)
  67. 3340 : nextb
  68. 3350 nexta
  69. 3400 close1:close2:goto20
  70. 4000 x$=""
  71. 4010 get#2,xy$:ifst=0andxy$<>chr$(13)        thenx$=x$+xy$:goto4010
  72. 4020 return
  73. 5000 load"datei*",8
  74. 6000 load"adress*",8
  75. 9000 open15,8,15
  76. 9010 input#15,en,em$,et,es:printen,em$,es,et:close15:return
  77.