home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_87-07_1987_Verlag_Heinz_Weise_de.d64 / vt-konverter (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  4KB  |  132 lines
  1. 100 rem  konverter fuer den vt
  2. 110 rem  ---------------------
  3. 120 rem  wandelt datenfiles in das
  4. 130 rem  format des vt um
  5. 140 rem
  6. 150 rem  achtung:
  7. 160 rem  um das programm nicht unnoetig
  8. 170 rem  zu komplizieren, wurde auf
  9. 180 rem  jegliche fehlerabfrage ver-
  10. 190 rem  zichtet.
  11. 200 rem
  12. 210 rem  geschrieben im dezember 1986
  13. 220 rem  von oliver kraus
  14. 230 rem  (c) by oliver kraus
  15. 240 rem
  16. 1000 rem
  17. 1010 rem initialisierung
  18. 1020 rem ---------------
  19. 1030 gosub6000  :rem datas einlesen
  20. 1040 poke 56,144:rem speicher auf $9000
  21. 1050 clr
  22. 1052 k=51200    :rem konverter routine
  23. 1054 s=51203    :rem save routine
  24. 1060 poke53280,0:rem rahmenfarbe
  25. 1070 poke53281,0:rem hintergrundfarbe
  26. 1071 poke247,0  :rem vokabelstart lo
  27. 1072 poke248,144:rem vokabelstart hi
  28. 1075 :
  29. 1080 printchr$(14) :rem kleinbuchstaben
  30. 1090 printchr$(5)  :rem schrift:weiss
  31. 1110 print"[147][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
  32. 1120 print"    [203]onverter fuer den [214]okabeltrainer   [146]"
  33. 1125 :
  34. 1130 print "[196]atainame des zu konvertierenden"
  35. 1140 input "[208]rogramms";n$
  36. 1150 input "[199]eraeteadresse (1,7,8)";ga
  37. 1160 if ga<>1 and ga<>7 and ga <>8 then goto 1150
  38. 1170 if ga=8 then n$=n$+",s,r"
  39. 1180 if ga=1 or ga=7 then sa=0
  40. 1190 if ga=8 then sa=2
  41. 1200 open1,ga,sa,n$
  42. 2000 rem
  43. 2010 rem  datei einlesen
  44. 2020 rem  --------------
  45. 2030 rem
  46. 2035 print"[196]atei wird eingelesen"
  47. 2040 input#1,n:dim d$(n),e$(n)
  48. 2050 for i=1 to n
  49. 2060 input#1,d$(i)
  50. 2070 input#1,e$(i)
  51. 2080 nexti
  52. 2090 close1
  53. 2100 print"[196]atei wird konvertiert"
  54. 2200 rem
  55. 2210 rem-------------------------------
  56. 2220 rem
  57. 2230 rem  datei konvertieren
  58. 2240 rem  ------------------
  59. 2250 rem  deutsche woerter sortiert
  60. 2260 rem
  61. 2270 rem for i=1 to n
  62. 2280 rem d$=left$(d$(i),len(d$(i))-5)
  63. 2290 rem en=val(right$(d$(i),4))-1000
  64. 2300 rem e$=left$(e$(en),len(e$(en))-5)
  65. 2310 rem sys k,e$,d$,"",""
  66. 2320 rem nexti
  67. 2330 rem
  68. 2400 rem
  69. 2410 rem-------------------------------
  70. 2420 rem
  71. 2430 rem  datei konvertieren
  72. 2440 rem  ------------------
  73. 2450 rem  englische woerter sortiert
  74. 2460 rem
  75. 2470 for i=1 to n
  76. 2480 e$=left$(e$(i),len(e$(i))-5)
  77. 2490 dn=val(right$(e$(i),4))-1000
  78. 2500 d$=left$(d$(dn),len(d$(dn))-5)
  79. 2510 sys k,e$,d$,"",""
  80. 2520 nexti
  81. 2530 rem
  82. 2990 rem-------------------------------
  83. 5000 rem
  84. 5010 rem
  85. 5020 rem  neue datei abspeichern
  86. 5030 rem  ----------------------
  87. 5040 rem
  88. 5050 input"[206]euer [206]ame";n$
  89. 5060 if ga=8 then n$=n$+",s,w"
  90. 5070 if ga=1 or ga=7 then sa=1
  91. 5080 if ga=8 then sa=2
  92. 5090 open1,ga,sa,n$
  93. 5095 print"[196]atei wird abgespeichert"
  94. 5100 sys s   :rem save programm
  95. 5110 close1
  96. 5120 end
  97. 6000 rem
  98. 6010 rem datas
  99. 6020 rem -----
  100. 6030 a=51200:b=51719:print"[147]"
  101. 6040 fori=atob:readq:pokei,q:nexti
  102. 6050 return
  103. 6100 rem----mas.prg.----
  104. 6101 data76,6,200,76,112,200,160,0,140,193,201,140,194,201,32,172,201,32,192
  105. 6102 data200,32,232,200,169,3,145,247,32,192,200,32,242,200,169,4,141,251
  106. 6103 data201,32,253,174,32,158,173,36,13,48,3,76,153,173,32,166,182,170,160
  107. 6104 data0,232,202,240,10,177,34,153,211,201,200,192,36,208,243,169,0,153
  108. 6105 data211,201,32,119,201,206,251,201,208,210,32,232,200,160,0,173,194,201
  109. 6106 data240,6,32,192,200,140,194,201,152,145,247,173,193,201,145,249,32,242
  110. 6107 data200,96,32,154,201,32,242,200,32,192,200,32,172,201,162,1,32,201,255
  111. 6108 data144,8,160,0,32,47,241,76,116,164,32,252,200,32,232,200,160,0,177
  112. 6109 data247,32,242,200,32,210,255,176,230,165,144,41,191,208,224,32,225,255
  113. 6110 data240,219,32,192,200,165,247,197,249,208,221,165,248,197,250,208,215
  114. 6111 data169,0,32,210,255,32,204,255,96,230,247,208,2,230,248,165,248,201
  115. 6112 data192,208,6,169,208,133,248,208,17,165,248,201,255,208,11,165,247,201
  116. 6113 data128,208,5,238,193,201,56,96,238,193,201,24,96,72,165,1,120,41,248
  117. 6114 data133,1,104,96,72,165,1,9,7,133,1,88,104,96,160,0,169,0,133,247,169
  118. 6115 data144,133,248,140,194,201,96,170,32,192,200,202,208,250,96,160,0,140
  119. 6116 data190,201,140,191,201,174,194,201,240,7,10,46,191,201,202,208,249,141
  120. 6117 data190,201,174,194,201,177,247,61,195,201,13,190,201,145,247,224,2,144
  121. 6118 data18,32,192,200,174,194,201,160,0,177,247,61,203,201,13,191,201,145
  122. 6119 data247,173,194,201,24,105,6,41,7,141,194,201,152,96,201,65,144,8,201
  123. 6120 data91,176,4,56,233,54,96,162,11,221,251,201,240,5,202,208,248,240,2
  124. 6121 data138,96,56,233,156,96,32,232,200,162,0,189,211,201,240,17,142,192
  125. 6122 data201,32,89,201,41,63,32,18,201,174,192,201,232,208,234,169,63,32,18
  126. 6123 data201,76,242,200,32,252,200,32,232,200,177,247,240,5,32,10,201,144
  127. 6124 data247,76,242,200,165,247,133,249,165,248,133,250,96,165,249,133,247
  128. 6125 data165,250,133,248,96,0,0,0,0,0,192,129,3,7,15,31,63,127,255,255,255
  129. 6126 data254,252,248,240,224,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
  130. 6127 data0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,32,64,44,46,58,59,45,92,47,33
  131. 6128 data140,170
  132.