home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 December / 64er_Magazin_84-12_1984_Markt__Technik_de.d64 / editor (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  5KB  |  304 lines
  1. 10 print"[147]";:t=ti+180
  2. 11 print"[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]
  3. 12 [153]"(NULL) lexikon-editor  hh,30.5.84 (NULL)
  4. 18 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]
  5. 19 [139]ti[179]t[167]19
  6. 20 :
  7. 22 :
  8. 24 [143]" hauptprogramm
  9. 26 rem" [192][192][192][192][192][192][192][192][192][192][192][192][192]
  10. 28 :
  11. 30 [141]900:[143]" vorbereitungen
  12. 32 :
  13. 34 gosub600:rem" menue
  14. 36 :
  15. 38 m[178]0
  16. 40 [139]f$[178]"input"[167]    [141]3006:[137]34
  17. 42 [139]f$[178]"dim"[167]    [141]0300:[137]34
  18. 44 [139]f$[178]"read"[167][156]:[141]0500:[137]34
  19. 46 [139]f$[178]"let"[167][153]"load"
  20. 47 :
  21. 48 [153] " (NULL)icher           (j/n) ?"
  22. 50 [146]203,64:[151]198,0:[146]203,63
  23. 52 [161]f$:[139]f$[179][177]"j"[167]34
  24. 53 :
  25. 54 [153][199](9);
  26. 60 [153]" (NULL)aetsel-(NULL)rogramm (j/n) ?"
  27. 62 [146]203,64:[151]198,0:[146]203,63
  28. 63 :
  29. 64 [161]f$:[139]f$[178]"n"[167]90
  30. 66 [139]f$[179][177]"j"[167]62
  31. 68 [153]"loadload"[170][199](34);
  32. 70 [153]"raetsel";[199](34);",8"
  33. 72 [153]"":[153]"run"
  34. 74 [151]198,3:[151]631,19
  35. 76 [151]632,13:[151]633,13
  36. 77 [137]97
  37. 88 :
  38. 90 [151]792,71:[143]" restore und
  39. 92 poke788,49:rem" stop reparieren
  40. 94 :
  41. 97 [128]
  42. 98 :
  43. 99 :
  44. 300 [143]" datei aendern
  45. 302 rem" [192][192][192][192][192][192][192][192][192][192][192][192][192]
  46. 304 :
  47. 306 [141]700:[143]" str$atei einlesen
  48. 307 :
  49. 308 ef=0:print"[147]"
  50. 309 print" [205]it [210][197][212][213][210][206][146] auswaehlen"
  51. 310 print" [205]it [204][197][197][210][212][193][211][212][197][146]  weiter"
  52. 311 print" [205]it q[146]       abbrechen"
  53. 312 gosub2000:rem" [196]atei auflisten
  54. 313 :
  55. 314 [153]"   ascertig ?wait (j/n)"
  56. 316 [146]203,64:[151]198,0:[146]203,63
  57. 318 [161]f$:[139]f$[178]"n"[167]308
  58. 320 [139]f$[179][177]"j"[167]316
  59. 322 :
  60. 323 [139]ef[178]0[167]397
  61. 324 [141]800:[143]" str$atei aufzeichnen
  62. 395 :
  63. 397 return
  64. 398 :
  65. 399 :
  66. 500 rem" datei eingeben
  67. 502 [143]" tantantantantantantantantantantantantantan
  68. 503 :
  69. 504 print"[147]";:gosub900
  70. 505 :
  71. 506 t$="[215]ortschatz-[206]ame:"
  72. 507 l=14:m=1:f$="":gosub1000
  73. 508 af$="[219]"+chr$(20)+f$
  74. 510 :
  75. 519 print
  76. 520 t$="[198]olge-[215]ortschatz (q=keinen):"
  77. 521 l=14:m=1:f$="":gosub1000
  78. 522 nf$="[219]"+chr$(20)+f$
  79. 524 :
  80. 525 print"[147]":nr=0:ef=0
  81. 527 :
  82. 528 rem" woerter eingeben
  83. 529 [141]650
  84. 530 :
  85. 532 [139]f$[178]"q"[167]nr[178]nr[171]1:[137]539
  86. 534 [139]nr[179]254[167]nr[178]nr[170]1
  87. 536 [139][194](210)[178]7[167][153]"load"
  88. 537 [137]529
  89. 538 :
  90. 539 [139]ef[178]0[167]597
  91. 540 [143]" datei auf diskette ablegen
  92. 541 fg=nr:gosub800
  93. 592 :
  94. 597 return
  95. 598 :
  96. 599 :
  97. 600 rem" menue
  98. 602 [143]" tantantantantan
  99. 604 :
  100. 606 print"[147]";:f$=""
  101. 608 print" [198]1[146]  [196]irectory
  102. 610 [153]" asc3wait  str$atei aendern
  103. 612 print" [198]5[146]  [196]atei anlegen
  104. 614 [153]" asc7wait  atnbbrechen
  105. 616 :
  106. 618 wait203,63:getf$
  107. 620 iff$<chr$(133)orf$>chr$(136)then618
  108. 621 print"[147]"
  109. 622 :
  110. 647 return
  111. 648 :
  112. 649 :
  113. 650 rem" kreuzwoerter eingeben
  114. 651 [143]" tantantantantantantantantantantantantantantantantantantantantan
  115. 652 :
  116. 653 n$=str$(nr):n$=right$(n$,len(n$)-1)
  117. 654 t$=""+n$+". [203]reuzwort[146] (q=ende)"
  118. 655 l=20:m=0:f$=kw$(nr):gosub1000
  119. 656 iff$="q"then697
  120. 657 iflen(f$)<2thenprint"[145][145][145]";:goto655
  121. 658 kw$(nr)=f$:print
  122. 659 :
  123. 664 t$="[198]ragestellung[146]"
  124. 666 l=35:m=1:f$=fw$(nr):gosub1000
  125. 681 fw$(nr)=f$:print
  126. 682 :
  127. 683 ef=1
  128. 686 :
  129. 697 return
  130. 698 :
  131. 699 :
  132. 700 rem" datei einlesen
  133. 702 [143]" tantantantantantantantantantantantantantan
  134. 703 :
  135. 705 print"[147]"
  136. 706 t$="[215]ortschatz[146] ($=directory)"
  137. 708 l=14:m=1:f$="":gosub1000
  138. 709 iff$="$"thenm=1:gosub3000
  139. 710 iff$=""then705
  140. 712 :
  141. 713 af$="[219]"+chr$(20)+f$
  142. 714 open1,8,2,"0:"+af$+",s,r"
  143. 716 :
  144. 718 input#1,fg:rem" feldgroesse
  145. 719 :
  146. 720 [143]" woerter/fragen einlesen
  147. 721 forn=0tofg
  148. 722 :input#1,kw$(n),fw$(n)
  149. 724 next
  150. 726 :
  151. 728 input#1,nf$:rem" folge-wortschatz
  152. 730 :
  153. 732 [160]1
  154. 796 :
  155. 797 [142]
  156. 798 :
  157. 799 :
  158. 800 [143]" datei aufzeichnen
  159. 802 rem" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  160. 803 :
  161. 805 [153]"load"
  162. 807 :
  163. 812 [159]15,8,15,"i":[160]15
  164. 813 :
  165. 814 [159]1,8,2,"@0:"[170]af$[170]",s,w"
  166. 816 :
  167. 818 [152]1,fg :[143]" feldgroesse
  168. 819 :
  169. 820 forn=0tofg
  170. 822 :print#1,kw$(n):print#1,fw$(n)
  171. 824 next
  172. 826 :
  173. 828 print#1,nf$:rem" naechster file
  174. 830 :
  175. 832 [160]1
  176. 896 :
  177. 897 [142]
  178. 898 :
  179. 899 :
  180. 900 [143]" vorbereitungen
  181. 902 rem" [192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  182. 904 :
  183. 906 [151]53280,6:[143]" rahmen blau
  184. 908 poke53281,14:rem" grund hellblau
  185. 909 [153][199](14);[199](8);[199](144)
  186. 910 :
  187. 912 [151]792,193:[143]" restore und
  188. 913 poke788,52:rem" stop verriegeln
  189. 914 :
  190. 915 [134]kw$(254):[143]" kreuzwoerter
  191. 916 dimfw$(254):rem" fragen dazu
  192. 986 :
  193. 987 [142]
  194. 988 :
  195. 989 :
  196. 990 :
  197. 1000 [143]" inputform routine
  198. 1001 rem" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  199. 1002 :
  200. 1003 x$[178][199](13):y$[178][199](20)
  201. 1004 z$[178][199](34):[151]198,0
  202. 1005 :
  203. 1006 [153]" ";t$:[153]"on ? ";f$;" ";
  204. 1007 x[178]1:[139]f$[179][177]""[167]x[178][195](f$)[170]1
  205. 1008 :
  206. 1009 f$[178]"":[129]n[178]x[164]l[170]1
  207. 1010 :[153]"cmd";f$;"to";
  208. 1011 :[146]198,1:[161]f$:[151]198,0
  209. 1012 :[139]f$[178]x$[167]1025
  210. 1013 :[139]f$[178]y$[175]n[177]1[167]n[178]n[171]1:[137]1010
  211. 1014 :[139]n[177]l[167]1011
  212. 1015 :[139]m[178]0[167]1021
  213. 1016 :[139]f$[178]","[176]f$[178]z$[167]1011
  214. 1017 :[139]f$[177][178]" "[175]f$[179][178]"9"[167]1022
  215. 1018 :[139]f$[177][178]"atn"[175]f$[179][178]"(NULL)"[167]1022
  216. 1021 :[139]f$[179]"a"[176]f$[177]"z"[167]1011
  217. 1022 [130]
  218. 1023 :
  219. 1025 [153][199](20);:[151]211,1
  220. 1026 [151]631,13:[151]198,1:[133]f$
  221. 1030 [139]f$[178]x$[167][153]"on";:[137]1009
  222. 1036 :
  223. 1097 [142]
  224. 1098 :
  225. 1099 :
  226. 2000 [143]" datei auflisten
  227. 2002 rem" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  228. 2004 :
  229. 2010 [129]nr[178]0[164]fg
  230. 2012 :[153]" ->";kw$(nr);"wait"
  231. 2014 :[153]"   ";fw$(nr)
  232. 2016 :[129]w[178]0[164]60:[130]
  233. 2017 :[146]198,1:[161]f$:[153]"onon   "
  234. 2018 :[139]f$[178]"q"[167]2029
  235. 2019 :[139]f$[179][177][199](13)[167]2024
  236. 2021 :[153]"load":[141]650
  237. 2022 :[153]"load":[146]203,64
  238. 2024 :[139][194](210)[178]7[167][153]"load"
  239. 2026 [130]
  240. 2028 :
  241. 2029 t$[178]"ascolge-(NULL)ortschatz"
  242. 2030 [153]"   ";t$;":":[153]" ->";nf$
  243. 2032 [146]203,64:[151]198,0:[146]203,63
  244. 2034 :
  245. 2036 [161]f$:[139]f$[179][177][199](13)[167]2097
  246. 2037 f$[178][201](nf$,[195](nf$)[171]2)
  247. 2038 t$[178]t$[170]" (q=keinen):"
  248. 2039 [153]"load":[141]1000:ef[178]1
  249. 2040 nf$[178]"(NULL)"[170][199](20)[170]f$
  250. 2096 :
  251. 2097 [142]
  252. 2098 :
  253. 2099 :
  254. 3000 [143]" directory listen
  255. 3002 rem" [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]
  256. 3003 :
  257. 3004 [153]"load"
  258. 3005 [153]" (NULL)it (NULL)val(NULL)(NULL)(NULL)(NULL)wait auswaehlen"
  259. 3006 [153]" (NULL)it (NULL)valval(NULL)(NULL)atn(NULL)(NULL)valwait  weiter"
  260. 3007 [153]
  261. 3008 :
  262. 3009 [159]15,8,15,"io":[159]2,8,2,"#"
  263. 3010 :
  264. 3012 t[178]18:s[178]1:f$[178]""
  265. 3014 :
  266. 3016 [129]w[178]0[164]99
  267. 3018 :
  268. 3020 :[152]15,"b-r";2;0;t;s
  269. 3022 :[152]15,"b-p";2;0
  270. 3024 :
  271. 3026 :[161]#2,x$:t[178][198](x$[170][199](0))
  272. 3028 :[161]#2,x$:s[178][198](x$[170][199](0))
  273. 3030 :
  274. 3032 :[129]x[178]0[164]7
  275. 3034 : [152]15,"b-p";2;x[172]32[170]5
  276. 3036 : [161]#2,x$
  277. 3038 : [139]x$[179][177]"(NULL)"[167][130]x:[137]3060
  278. 3040 : [161]#2,x$
  279. 3042 : [129]y[178]1[164]14
  280. 3044 :  [161]#2,x$:f$[178]f$[170]x$
  281. 3046 :  [139]x$[178][199](160)[167]y[178]15
  282. 3048 : [130]y
  283. 3050 : [153]" -> ";f$;"wait"
  284. 3051 : [139]m[178]0[167]3056
  285. 3053 : [146]203,64:[146]203,63:[161]x$
  286. 3054 : [139]x$[178][199](13)[167]3064
  287. 3055 : [153]"on    "
  288. 3056 : f$[178]""
  289. 3057 :[130]x
  290. 3058 :
  291. 3060 :[139]t[178]0[167]w[178]99
  292. 3061 [130]w
  293. 3062 :
  294. 3064 [160]2:[160]15
  295. 3065 [139]m[178]0[167][146]203,63
  296. 3066 :
  297. 3068 [142]
  298. 3070 :
  299. 3071 :
  300. 3072 :
  301. 9000 [143]"ortantantantantantantantantantantantantantantantantantantantantantantantantantantantan^
  302. 9002 rem"[221] ende     lexikon-editor    [221]
  303. 9004 [143]"/tantantantantantantantantantantantantantantantantantantantantantantantantantantantanexp
  304.