home *** CD-ROM | disk | FTP | other *** search
/ Input 64 / Input_64_85-02_1985_Verlag_Heinz_Weise_de.d64 / dictionary (.txt) next >
Commodore BASIC  |  2023-02-26  |  7KB  |  233 lines
  1. 10 print"**********************"
  2. 16 ifpeek(50307)<>120then1000
  3. 30 poke50257,16:poke50258,64:poke50255,peek(50255)+1
  4. 35 poke11,076:poke12,000
  5. 40 poke45,134:poke46,035
  6. 50 poke47,225:poke48,035
  7. 60 poke49,163:poke50,047
  8. 70 poke51,088:poke52,056
  9. 80 poke53,088:poke54,056
  10. 90 poke55,000:poke56,090
  11. 100 print"[147]";chr$(14);chr$(8):poke53280,0:poke53281,0:goto1800
  12. 1000 print"[147]";chr$(14);chr$(8):poke53280,0:poke53281,0
  13. 1100 rem********* vokabeln laden *******
  14. 1200 clr
  15. 1205 gosub2100:close1:close15
  16. 1250 print:printtab(10)"vokabeln laden"
  17. 1300 gosub60000:ifefthen1205
  18. 1301 ifsa=1orsa=7thenopen1,sa,0,fi$:goto1315
  19. 1305 open1,sa,2,fi$+",s,r"
  20. 1310 gosub61000:ifefthen1205
  21. 1315 input#1,n
  22. 1600 dimd$(n+53),e$(n+53),d1$(50),e1$(50)
  23. 1700 fori=1ton:input#1,d$(i):input#1,e$(i):nexti:close1:close15
  24. 1800 rem********** hauptmenue **********
  25. 1900 gosub2100:print"[150]              [200]auptmenue:               "
  26. 2000 goto2200
  27. 2100 print"[147]     [196]ictionary von [196]ieter [199]eissler     ";:return
  28. 2200 iffr=0thenprint"[145][146]          [150][196]eutsch -> [197]nglisch":goto2400
  29. 2300 print"[145][146]          [197]nglisch -> [196]eutsch"
  30. 2400 print"[145][149][145][176][192][192][174][157][157][157][157][221][198]1[221][157][157][157][157][173][192][192][189][145] _ [196]eutsch <=> [197]nglisch"
  31. 2500 print"[149][145][176][192][192][174][157][157][157][157][221][198]3[221][157][157][157][157][173][192][192][189][145] _ [197]inzelvokabeln uebersetzen"
  32. 2600 print"[149][145][176][192][192][174][157][157][157][157][221][198]5[221][157][157][157][157][173][192][192][189][145] _ [211]atz uebersetzen"
  33. 2700 print"[149][145][176][192][192][174][157][157][157][157][221][198]7[221][157][157][157][157][173][192][192][189][145] _ [214]okabeln lernen"
  34. 2800 print"[149][145][176][192][192][174][157][157][157][157][221][198]2[221][157][157][157][157][173][192][192][189][145] _ neue [214]okabeln eingeben"
  35. 2900 print"[149][145][176][192][192][174][157][157][157][157][221][198]4[221][157][157][157][157][173][192][192][189][145] _ [214]okabeln laden"
  36. 3000 print"[149][145][176][192][192][174][157][157][157][157][221][198]6[221][157][157][157][157][173][192][192][189][145] _ [214]okabeln saven"
  37. 3100 geti$
  38. 3200 ifi$="[137]"then4100:rem f2
  39. 3300 ifi$="[133]"andfr=1thenfr=0:goto1800
  40. 3400 ifi$="[133]"andfr=0thenfr=1:goto1800
  41. 3500 ifi$="[134]"then8600:rem f3
  42. 3600 ifi$="[135]"then14100:rem f5
  43. 3700 ifi$="[136]"then12100:rem f7
  44. 3800 ifi$="[138]"then1100:rem f4
  45. 3900 ifi$="[139]"then8100:rem f6
  46. 4000 goto3100
  47. 4100 rem********** neue vok. eingeben **
  48. 4200 forz=1to50
  49. 4300 gosub2100
  50. 4400 print"[150]         [206]eue [214]okabeln eingeben:        ";
  51. 4500 op = peek(51)+peek(52)*256-peek(49)-peek(50)*256
  52. 4510 print"[146]         noch freie [194]ytes:";op:ifop<50then6300
  53. 4600 print"[146][149]         '[210][197][212][213][210][206]' _ zum [200]auptmenue"
  54. 4700 print"[156]           deutsche [214]okabel:":wx=39:cf=1:gosub16700:cf=0:d1$(z)=s$
  55. 4800 ifd1$(z)=""andz=1then1800
  56. 4900 ifd1$(z)=""then6300
  57. 5000 d$=d1$(z):gosub10700:ife$="?"then5700
  58. 5100 print:print"      [150][214]okabel ist schon vorhanden:[146]"
  59. 5200 printe$;
  60. 5300 ifleft$(d$(j+1),l+1)=d$+" "thenj=j+1:gosub11200:print", ";:goto5200
  61. 5400 print:print"  [159]w[146]=weitere [194]edeutung   n[146]=neue [214]okabel"
  62. 5500 geta$:ifa$="n"then4300
  63. 5600 ifa$<>"w"then5500
  64. 5700 print:print"[156]           englische [214]okabel:":wx=39:gosub16700:e1$(z)=s$
  65. 5710 ifs$=""then5700
  66. 5800 print"[152]r[146]=richtige [197]ingabe  f[146]=falsche [197]ingabe"
  67. 5900 geta$:ifa$="r"then6200
  68. 6000 ifa$="f"then4300
  69. 6100 goto5900
  70. 6200 nextz
  71. 6300 rem******** einsortieren **********
  72. 6400 print"[147][194]itte warten! [196]ie neuen [214]okabeln werden einsortiert.":z=z-1:n=n+z
  73. 6500 fori=1toz
  74. 6600 ford=nto1step-1:ifd$(d)=""thennextd
  75. 6700 ifd1$(i)>d$(d)then7100
  76. 6800 d$(d+1)=d$(d):en=val(right$(d$(d),4))-1000
  77. 6900 e$(en)=left$(e$(en),len(e$(en))-5)+str$(1001+d)
  78. 7000 nextd
  79. 7100 fore=nto1step-1:ife$(e)=""thennexte
  80. 7200 ife1$(i)>e$(e)then7600
  81. 7300 e$(e+1)=e$(e):dn=val(right$(e$(e),4))-1000
  82. 7400 hh$=d$(dn)
  83. 7410 d$(dn)=left$(hh$,len(hh$)-5)+str$(1001+e)
  84. 7500 nexte
  85. 7600 d$(d+1)=d1$(i)+str$(1000+e+1)
  86. 7700 e$(e+1)=e1$(i)+str$(1000+d+1)
  87. 7800 nexti
  88. 7900 fori=1toz:e1$(i)="":d1$(i)="":nexti
  89. 8000 goto1800
  90. 8100 rem********* vokabeln saven *******
  91. 8110 gosub2100:print:close1:close15
  92. 8150 printtab(10)"[214]okabeln sichern"
  93. 8200 gosub60000:ifefthenclose1:close15:goto1800
  94. 8205 ifsa=1orsa=7thenopen1,sa,1,fi$:goto8230
  95. 8210 open1,sa,2,"@:"+fi$+",s,w"
  96. 8220 gosub61000:ifefthen8110
  97. 8230 print#1,n
  98. 8240 fori=1ton:print#1,d$(i):print#1,e$(i):nexti
  99. 8290 close1:close15:goto1000
  100. 8299 rem
  101. 8500 goto1800
  102. 8600 rem*** einzelvokabel uebersetzen **
  103. 8700 gosub2100
  104. 8800 print"[150]         [197]inzelvokabel uebersetzen.     "
  105. 8900 print"[146][149]        '[210][197][212][213][210][206]' _ zum [200]auptmenue":d$="":e$=""
  106. 9000 iffr=1then9800
  107. 9100 print"               [196]eutsch:":wx=39:gosub16700:d$=s$:ifd$=""then1800
  108. 9200 gosub10700
  109. 9300 print"               [197]nglisch:"
  110. 9400 ife$="?"thenprint"[156]! [196]iese [214]okabel ist nicht gespeichert!!![146]":goto10400
  111. 9500 printe$;
  112. 9600 ifleft$(d$(j+1),l+1)=d$+" "thenj=j+1:gosub11200:print", ";:goto9500
  113. 9700 goto10400
  114. 9800 print"               [197]nglisch:":wx=39:gosub16700:e$=s$:ife$=""then1800
  115. 9900 gosub11400
  116. 10000 print"               [196]eutsch:"
  117. 10100 ifd$="?"thenprint"[156]! [196]iese [214]okabel ist nicht gespeichert!!![146]":goto10400
  118. 10200 printd$;
  119. 10300 ifleft$(e$(j+1),l+1)=e$+" "thenj=j+1:gosub11900:print", ";:goto10200
  120. 10400 print:print"[154][215]eiter = [212]aste druecken"
  121. 10500 geti$:ifi$=""then10500
  122. 10600 goto8700
  123. 10700 rem******* deutscht>englisch ******
  124. 10800 i=1
  125. 10900 ifi+100<nthenifd$>d$(i+100)theni=i+100:goto10900
  126. 11000 forj=itoi+100:ifd$(j)=""thene$="?":return
  127. 11100 l=len(d$(j))-5:ifd$<>left$(d$(j),l)thennextj:e$="?":return
  128. 11200 en=val(right$(d$(j),4))-1000
  129. 11300 e$=left$(e$(en),len(e$(en))-5):return
  130. 11400 rem******* englischt>deutsch *****
  131. 11500 i=1
  132. 11600 ifi+100<nthenife$>e$(i+100)theni=i+100:goto11600
  133. 11700 forj=itoi+100:ife$(j)=""thend$="?":return
  134. 11800 l=len(e$(j))-5:ife$<>left$(e$(j),l)thennextj:d$="?":return
  135. 11900 dn=val(right$(e$(j),4))-1000
  136. 12000 d$=left$(d$(dn),len(d$(dn))-5):return
  137. 12100 rem******* vokabeln lernen *******
  138. 12200 f=0:r=0
  139. 12300 gosub2100:print"[150]            [214]okabeln lernen             "
  140. 12400 print"[146][149]        '[210][197][212][213][210][206]' _ zum [200]auptmenue"
  141. 12500 print"[154][146]         richtige [193]ntworten:";r
  142. 12600 print"         falsche [193]ntworten :";f;""
  143. 12700 iffr=1then13400
  144. 12800 d=int(rnd(1)*n+1)
  145. 12900 print"[196]eutsch: ";left$(d$(d),len(d$(d))-5)
  146. 13000 e1$="":print"[197]nglisch:";:wx=30:gosub16700:e1$=s$::ife1$=""then1800
  147. 13100 j=d:gosub11200
  148. 13200 ife1$<>e$thenprint"[147][198]alsch!!!":print"[210]ichtig ist: ";e$:f=f+1:goto14000
  149. 13300 goto13900
  150. 13400 e=int(rnd(1)*n+1)
  151. 13500 print"[197]nglisch: ";left$(e$(e),len(e$(e))-5)
  152. 13600 d1$="":print"[196]eutsch:";:wx=31:gosub16700:d1$=s$:ifd1$=""then1800
  153. 13700 j=e:gosub11900
  154. 13800 ifd1$<>d$thenprint"[147][198]alsch!!!":print"[210]ichtig ist: ";d$:f=f+1:goto14000
  155. 13900 print"[147]                [210]ichtig!":r=r+1
  156. 14000 fori=1to1500:nexti:goto12300
  157. 14100 rem********** satz uebersetzen ***
  158. 14200 gosub2100:print"[150]            [211]atz uebersetzen            "
  159. 14300 print"[146][149]        '[210][197][212][213][210][206]' _ [211]atz uebersetzen"
  160. 14400 iffr=0thenprint"[154]deutschen [212]ext (max. 6 [218]eilen) eingeben!":goto14600
  161. 14500 print"[154]englischen [212]ext (max. 6 [218]eilen) eingeben"
  162. 14600 print"                                        [145][145][145][145][145][145][145]";
  163. 14700 wx=239:gosub16700
  164. 14800 print""
  165. 14900 print"[150]             [213]ebersetzung:              [146][146]"
  166. 15000 rem*********** uebersetzen *******
  167. 15100 s$=s$+" ":ls=len(s$):an=1:ifs$=" "then1800
  168. 15200 forii=1tols
  169. 15300 ifmid$(s$,ii,1)<>" "then16400
  170. 15400 iffr=1then16000
  171. 15500 d$=mid$(s$,an,ii-an)
  172. 15600 an=ii+1:gosub10700:ife$="?"thenprint"";d$;"[146] ";:goto16400
  173. 15700 printe$;" ";
  174. 15800 ifleft$(d$(j+1),l+1)=d$+" "thenj=j+1:gosub11200:print", ";:goto15700
  175. 15900 goto16400
  176. 16000 e$=mid$(s$,an,ii-an)
  177. 16100 an=ii+1:gosub11400:ifd$="?"thenprint"";e$;"[146] ";:goto16400
  178. 16200 printd$;" ";
  179. 16300 ifleft$(e$(j+1),l+1)=e$+" "thenj=j+1:gosub11900:print", ";:goto16200
  180. 16400 nextii:print:print"[146][149]        '[212]aste' _ naechster [211]atz"
  181. 16500 geti$:ifi$=""then16500
  182. 16600 goto14100
  183. 16700 rem*********** input *************
  184. 16800 pl=0:s$=""
  185. 16900 print" [146][157]";
  186. 17000 geta$:ifa$=""then17000
  187. 17050 ifa$=" "and cf then17000
  188. 17100 ifright$(s$,1)=" "anda$=" "then17000
  189. 17200 ifa$=" "ands$=""then17000
  190. 17300 ifa$=chr$(13)then18000
  191. 17400 ifa$=chr$(20)andpl>0thens$=left$(s$,pl-1):pl=pl-2:a$="[157]  [157][157]":goto17900
  192. 17500 ifpl=wxthen17000
  193. 17600 ifa$=" "then17800
  194. 17700 ifa$<"a"ora$>"z"anda$<"[193]"ora$>"[218]"then17000
  195. 17800 s$=s$+a$
  196. 17900 printa$;:pl=pl+1:goto16900
  197. 18000 ifright$(s$,1)=" "thens$=left$(s$,len(s$)-1)
  198. 18100 print"_":return
  199. 60000 rem
  200. 60001 rem test auf dev.not present
  201. 60002 rem und annahme filename
  202. 60005 rem
  203. 60007 ifi f=1thenopen15,8,15,"i":close15:i f=0
  204. 60010 poke211,6:poke214,6:sys58640
  205. 60015 print"[206]ame des [198]iles : ";
  206. 60020 wx=16:gosub16700:fi$=s$
  207. 60025 print:print:printtab(6)"[199]eraeteadresse : ";
  208. 60030 poke204,0:geta$:ifa$=""then60030
  209. 60031 poke204,1:ad=peek(209)+peek(210)*256+peek(211)
  210. 60035 ifa$<"1"ora$>"9"then60030
  211. 60040 sa=val(a$)
  212. 60045 ifsa=1then60097
  213. 60050 ifsa<3then60030
  214. 60055 ifsa><7then60070
  215. 60060 ifpeek(816)=165then60030
  216. 60065 goto60097
  217. 60070 close1:poke 144,0:open1,sa,1:close1
  218. 60080 ifst<>-128then60097
  219. 60085 print:print:printtab(6)"[199]eraet [206]ummer"sa"nicht vorhanden!"
  220. 60090 fori=1to2000:geta$:ifa$=""thennexti
  221. 60095 ef=1:return
  222. 60097 printa$:print:printtab(6)"[194]itte warten !":ef=0:return
  223. 61000 rem
  224. 61010 rem floppy-fehlerkanal
  225. 61020 rem
  226. 61025 ef=0
  227. 61030 ifsa<8thenreturn
  228. 61035 open15,sa,15:input#15,f,f$
  229. 61040 iff=0thenreturn
  230. 61045 iff=74then i f =1
  231. 61050 print:print:printtab(6)"*** [198]loppyfehler : ";f$
  232. 61060 goto60090
  233.