home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 December / 64er_Magazin_84-12_1984_Markt__Technik_de.d64 / kreuzwortraetse (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1984-01-01  |  10.7 KB  |  610 lines
  1. 15 print"[147]";
  2. 16 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. 17 [153]"(NULL)kreuzwortraetsel version 1.a(NULL)
  4. 18 print"[221]                            [221]
  5. 19 [153]"(NULL)(c) buettgenbach  hh,30.5.84(NULL)
  6. 20 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]
  7. 22 :
  8. 23 :
  9. 24 [143]" ******** hauptprogramm ********
  10. 25 rem" *******************************
  11. 26 :
  12. 27 [143]" tantantantantantantan vorbereitungen tantantantantantantantan
  13. 28 clr
  14. 29 gosub970 :rem" routinen laden
  15. 30 [141]915 :[143]" vorbereitungen
  16. 32 gosub600 :rem" bild aufbauen
  17. 33 :
  18. 34 t$[178]"(NULL)tartwort" :[143]" 1.wort
  19. 35 nr=1:gosub654  :rem" eintragen
  20. 36 :
  21. 37 [141]700 :[143]" wortschatz einlesen
  22. 38 poke53280,0:poke53281,0
  23. 39 :
  24. 40 rem" ******** hauptschleife ********
  25. 42 :
  26. 44 [151]142,bs:[151]26,0:u[178][183](dl)
  27. 46 :
  28. 47 [145] u [137] 50,64,70,80
  29. 48 :
  30. 49 [143]" tantantantantan taste war gedrueckt tantantantantan
  31. 50 getf$
  32. 51 iff$="[136]"thengosub650:goto59
  33. 52 iff$="[138]"thengosub740:goto59
  34. 53 iff$="[133]"thengosub700:goto60
  35. 54 iff$="[139]"thengosub450:goto60
  36. 55 iff$="[140]"thengosub092:goto59
  37. 56 iff$="[137]"thengosub087:goto59
  38. 57 iffg>0then44
  39. 58 goto50
  40. 59 print"";ll$;ll$
  41. 60 poke53280,0:poke53281,0:gosub337
  42. 61 iffg>0then44
  43. 62 goto50
  44. 63 :
  45. 64 rem" [192][192][192][192] suche war vergeblich [192][192][192][192][192]
  46. 65 [139]bs[178]0[167][141]110
  47. 66 bs[178]0:[137]44
  48. 69 :
  49. 70 [143]" tantantan ein wort wurde gefunden tantantan
  50. 71 w=peek(25)
  51. 72 fs$(nr)=str$((peek(140)=0))+fw$(w)
  52. 73 gosub300:nr=nr+1:iffg>0then44
  53. 75 :
  54. 76 print"";ll$;"";tab(17);
  55. 77 print"[159][215]ortschatz erschoepft !"
  56. 78 gosub337:goto50
  57. 79 :
  58. 80 rem" [192][192][192] max. ordn.zahl erreicht [192][192][192]
  59. 81 [153]"";ll$;"open(NULL)aetsel fertig:wait";
  60. 82 [153]"  atnusdrucken mit (NULL)val(NULL)(NULL)(NULL)(NULL)wait"
  61. 83 [146]203,64:[146]203,63
  62. 84 [153]"";ll$;ll$:[141]740
  63. 85 [137]95
  64. 86 :
  65. 87 [143]" tantantantantantan raetsel loeschen tantantantantantantan
  66. 88 f$="[210]aetsel loeschen":gosub4000
  67. 89 iff$<>"j"thenreturn
  68. 90 run30
  69. 91 :
  70. 92 rem" [192][192][192][192][192] programm abbrechen [192][192][192][192][192][192]
  71. 93 f$[178]"atnbbrechen":[141]4000
  72. 94 [139]f$[179][177]"j"[167][142]
  73. 95 [141]500:[143]" programm-ende
  74. 96 :
  75. 97 end
  76. 98 :
  77. 99 :
  78. 100 rem" ******* unterprogramme *******
  79. 102 [143]" ******************************
  80. 104 :
  81. 106 :
  82. 110 rem" autom. nachladen
  83. 112 [143]" tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  84. 114 :
  85. 115 print"[159]";ll$;"";tab(18);
  86. 116 print"[215]ortschatz ungenuegend"
  87. 117 gosub337
  88. 118 ifright$(nf$,1)="q"then154
  89. 120 :
  90. 122 dl=int(dm/3)
  91. 124 :
  92. 125 ifav=0thenav=1:goto154
  93. 126 ifls=0then154
  94. 127 :
  95. 128 rem" [192][192][192] folge-wortschatz laden [192][192][192]
  96. 130 [151]53280,2:[151]53281,2
  97. 132 [153]"";ll$;"open(NULL)ortschatz ";
  98. 133 [153]"";nf$;"wait wird geladen"
  99. 136 f$[178]nf$:[141]713
  100. 137 [151]53280,0:[151]53281,0
  101. 138 :
  102. 154 [142]
  103. 156 :
  104. 158 :
  105. 300 [143]" wortliste kuerzen
  106. 302 rem" [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][192][192]
  107. 304 :
  108. 307 sa[178][194](47)[170][194](48)[172]256[170]7
  109. 308 :
  110. 315 [141]350 :[143]" woerter kuerzen
  111. 316 :
  112. 320 sa=sa+772
  113. 322 gosub350 :rem" fragen kuerzen
  114. 324 :
  115. 334 fg[178]fg[171]1:[151]2,fg:[143]" feld kuerzen
  116. 336 :
  117. 337 print"";nr;int(fg/og*100);"[157] %  "
  118. 338 :
  119. 341 return
  120. 342 :
  121. 344 :
  122. 349 rem" wortvektoren vertauschen
  123. 350 x[178]sa[170]fg[172]3:y[178]sa[170]w[172]3
  124. 354 [151]y,[194](x)
  125. 356 [151]y[170]1,[194](x[170]1)
  126. 358 [151]y[170]2,[194](x[170]2)
  127. 360 :
  128. 397 [142]
  129. 398 :
  130. 399 :
  131. 450 [143]" autoladen ein/aus
  132. 452 rem" [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][192][192]
  133. 454 :
  134. 456 [139]ls[178]0[167]ls[178]1:[137]461
  135. 458 [139]ls[178]1[167]ls[178]0
  136. 460 :
  137. 461 [151]214,13:[151]211,30:[158]58732
  138. 462 :
  139. 463 [153]"";
  140. 464 [139]ls[178]1[167][153]"valinwait";
  141. 466 [139]ls[178]0[167][153]"atnus";
  142. 472 :
  143. 497 [142]
  144. 498 :
  145. 499 :
  146. 500 [143]" programm-ende
  147. 502 rem" [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][192][192]
  148. 504 :
  149. 505 [153]"loadcont";[199](9);
  150. 506 [151]53280,14:[143]" rahmen hellblau
  151. 508 poke53281,06:rem" grund blau
  152. 510 :
  153. 512 [151]792,71:[143]" restore und
  154. 514 poke788,49:rem" stop moeglich
  155. 594 :
  156. 596 [142]
  157. 598 :
  158. 599 :
  159. 600 [143]" bild aufbauen
  160. 602 rem" [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][192][192]
  161. 604 :
  162. 606 [151]53265,11 :[143]" bild aus
  163. 607 :
  164. 608 rem" [192][192][192][192][192][192] kreuzwortfeld [192][192][192][192][192][192][192][192][192]
  165. 609 [153]"load";[199](14);[199](8);
  166. 610 [153]" openortantantantantantantantantantantantantantantantantantantantan^ "
  167. 612 [129]n[178]1[164]20
  168. 614 [153]" open(NULL)cont                    waitopen(NULL)"
  169. 616 [130]
  170. 618 [153]" open/tantantantantantantantantantantantantantantantantantantantanexp ";
  171. 619 :
  172. 620 [143]" tantantantantan tastenbelegung tantantantantantantantantan
  173. 621 b$=""
  174. 622 print"";
  175. 623 a$="[215]oerter   einlesen"
  176. 624 f=1:gosub639
  177. 625 a$="[210]aetsel   drucken "
  178. 626 f=4:gosub639
  179. 627 a$="[193]utolader [193]us     "
  180. 628 f=6:gosub639
  181. 629 a$="von [200]and  eingeben"
  182. 630 f=7:gosub639
  183. 631 printb$;"f 2[146][157][157][204]oeschen"
  184. 632 printb$;"f 8[146][157][157][193]bbrechen";
  185. 633 :
  186. 634 poke53265,27:rem" bild an
  187. 635 :
  188. 636 [142]
  189. 637 :
  190. 639 [153]b$;"f";f;"waittantantantantantan^
  191. 640 rem    printb$;"[221]         [221]
  192. 641 [153]b$;"(NULL)";[200](a$,9);"(NULL)
  193. 642 printb$;"[221]";right$(a$,9);"[221]"
  194. 643 printb$;"[173][192][192][192][192][192][192][192][192][192][189]
  195. 645 :
  196. 646 [142]
  197. 648 :
  198. 649 :
  199. 650 [143]" kreuzwort v. hand eingeben
  200. 651 rem" [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][192][192]
  201. 652 :
  202. 653 t$[178]"(NULL)reuzwort (atnbbr=q)"
  203. 654 [151]53280,2:[151]53281,2
  204. 655 [153]"";ll$;ll$
  205. 656 l[178]20:m[178]0:[141]1000:m$[178]f$
  206. 657 [139]m$[178]"q"[175]nr[177]1[167]685
  207. 658 l[178][195](m$):[139]l[179]2[167]656
  208. 659 :
  209. 660 t$[178]m$:[141]2000 :[143]" pos. eingeben
  210. 661 :
  211. 662 poke26,len(m$):m$=m$:rem" wort
  212. 663 [146]203,64:u[178][183](0) :[143]" eintragen
  213. 664 ifu<>3then685
  214. 665 :
  215. 666 t$="[198]ragestellung" :rem" frage
  216. 667 l[178]36:m[178]1:[141]1000 :[143]" eingeben
  217. 669 :
  218. 680 x$=str$(peek(140)=0)  :rem" frage
  219. 681 fs$(nr)[178]x$[170]f$:nr[178]nr[170]1 :[143]" merken
  220. 682 av=0:dl=dm
  221. 683 goto650
  222. 684 :
  223. 685 return
  224. 698 :
  225. 699 :
  226. 700 rem" kreuzwoerter einlesen
  227. 701 [143]" tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  228. 702 :
  229. 703 poke53280,2:poke53281,2
  230. 704 print"";ll$;ll$;
  231. 705 t$="[215]ortschatz ([193]bbr=q)"
  232. 706 l=14:m=1:gosub1000
  233. 707 iff$="q"thenprint"";ll$:goto733
  234. 708 iff$="$"then710
  235. 709 f$="[219]"+chr$(20)+f$:goto712
  236. 710 gosub3000:iff$=""then704
  237. 711 :
  238. 712 print"";ll$;ll$
  239. 713 open15,8,15
  240. 714 open1,8,2,"0:"+f$+",s,r"
  241. 715 input#15,en,en$
  242. 716 ifen<>0then728
  243. 717 :
  244. 718 input#1,fg :rem" feldgroesse gleich
  245. 719 [151]2,fg   :[143]" anzahl woerter
  246. 720 forn=0tofg :rem"lese woerter/fragen
  247. 721 :[132]1,kw$(n),fw$(n)
  248. 722 [130]
  249. 723 :
  250. 724 [132]1,nf$:[143]" naechster file
  251. 725 input#15,en,en$
  252. 726 av=0:dl=dm:bs=1:og=fg
  253. 727 :
  254. 728 print"";left$(ll$,40-len(en$));
  255. 729 print"";en$
  256. 730 :
  257. 731 close1:close15
  258. 732 :
  259. 733 return
  260. 734 :
  261. 735 :
  262. 740 rem" raetsel drucken
  263. 741 [143]" tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  264. 742 :
  265. 743 poke53280,2:poke53281,2
  266. 744 print"";ll$;ll$
  267. 745 print"[159][210]aetsel wird ausgedruckt[146]"
  268. 746 :
  269. 747 gosub761:rem" wortfeld ausdrucken
  270. 748 [141]824:[143]" fragen ausdrucken
  271. 749 gosub900:rem" loesung ausdrucken
  272. 750 :
  273. 751 [142]
  274. 752 :
  275. 753 :
  276. 754 [143]" tantan init epson rx-80 drucker tantan
  277. 755 open1,4:print#1,chr$(27);"@";
  278. 756 print#1,chr$(27);"3";chr$(24);
  279. 757 rem print#1,chr$(27);"l";chr$(lr);
  280. 758 print#1: close1:return
  281. 759 :
  282. 760 rem" [192][192][192][192] wortfeld ausdrucken [192][192][192][192][192]
  283. 761 [141]755:[159]1,4,10:[157]1 :[153]:[153]"or";
  284. 762 [129]n[178]0[164]19:[153]"tantantan";:[130]
  285. 763 [153]"^wait"
  286. 764 :
  287. 765 [129]ze[178]0[164]19
  288. 766 :d[178]ze[172]20:ad[178]s1[170]d:as[178]s2[170]d:aw[178]s3[170]d
  289. 767 :ab[178]s4[170]ze[172]40
  290. 768 :
  291. 772 :[153]" ";
  292. 773 :[129]sp[178]0[164]19
  293. 774 : c[178][194](as[170]sp)
  294. 775 : [139]c[178]0[167][153]"   ";:[137]777
  295. 776 : [153][202]([196](c)[170]"   ",2,3);
  296. 777 :[130]sp
  297. 779 :[141]820
  298. 780 :[129]n[178]1[164]3
  299. 781 : [153]"(NULL)wait";
  300. 782 : [129]sp[178]0[164]19
  301. 783 :  a[178]166:b[178]a:c[178]a
  302. 784 :  [139][194](ab[170]sp)[178]160[167]790
  303. 785 :  b[178]32:c[178]b:[139]sp[178]19[167]787
  304. 786 :  [139]([194](ad[170]sp)[175]1)[167]c[178]167
  305. 787 :  a[178]165:[139]sp[178]0[167]a[178]32
  306. 788 :  [139](n[178]1)[175][194](as[170]sp)[167]a[178]32
  307. 789 :  [139](n[178]3)[175][194](aw[170]sp)[167]a[178]32
  308. 790 :  [153][199](a);[199](b);[199](c);
  309. 791 : [130]sp
  310. 792 : [153]"(NULL)wait";:[139]n[179]3[167][153]
  311. 793 :[130]n
  312. 794 :
  313. 795 :[141]820:[153]" ";
  314. 796 :[129]sp[178]0[164]19
  315. 797 : c[178][194](aw[170]sp)
  316. 798 : [139]c[178]0[167][153]"   ";:[137]800
  317. 799 : [153][202]([196](c)[170]"   ",2,3);
  318. 800 :[130]
  319. 801 :
  320. 802 :[139]ze[178]19[167]810
  321. 803 :[141]820:[153]" ";
  322. 804 :[129]sp[178]0[164]19
  323. 805 : p[178]ad[170]sp:c[178]([194](p)[175]16)
  324. 806 : [139]c[167][153]"andandand";:[137]808
  325. 807 : [153]"tototo";
  326. 808 :[130]sp
  327. 809 :
  328. 810 [153]:[130]ze
  329. 811 :
  330. 812 [153]"/";
  331. 813 :[129]n[178]0[164]19:[153]"tantantan";:[130]
  332. 814 [153]"expwait";:[152]1:[160]1
  333. 815 :
  334. 816 [142]
  335. 817 :
  336. 818 :
  337. 820 [153][199](141);:[142]
  338. 821 [143]  printchr$(141);left$(ll$,lr);:return :rem fuer rx80
  339. 822 :
  340. 823 [143]" tantantantantan fragen ausdrucken tantantantantantan
  341. 824 printchr$(14):open1,4
  342. 825 print#1,chr$(27);"0";
  343. 826 print#1,chr$(27);chr$(15);
  344. 827 print#1,chr$(27);"l";chr$(lr*1.7);
  345. 828 :
  346. 829 cmd1:printchr$(14);"[211]enkrecht:"
  347. 830 sw=0:gosub838:print
  348. 831 :
  349. 832 printchr$(14);"[215]aagerecht:"
  350. 833 sw=-1:gosub838:print#1:close1
  351. 834 :
  352. 835 return
  353. 836 :
  354. 837 :
  355. 838 mz=0:zl=0:f=0:na=1
  356. 839 forn=1tonr-1
  357. 840 :ifval(fs$(n))=swthengosub847
  358. 841 nextn
  359. 842 m=0:mr=0:bz=0:gosub881:print
  360. 843 :
  361. 844 return
  362. 845 :
  363. 846 :
  364. 847 nl=len(str$(n))+2
  365. 848 l=zl+nl+len(fs$(n))
  366. 849 ifl<czthenzl=l:goto861
  367. 850 :
  368. 851 pa=1
  369. 852 forp=3tolen(fs$(n))-2
  370. 853 :ifmid$(fs$(n),p,1)<>" "then855
  371. 854 :l=zl+nl+p-2:ifl<czthenpa=p
  372. 855 nextp
  373. 856 :
  374. 857 ifpa=1thenmz=mz-1:l=zl
  375. 858 ifpa>1thenl=zl+nl+pa-2
  376. 859 gosub866:mz=0
  377. 860 :
  378. 861 mz=mz+1
  379. 862 :
  380. 863 return
  381. 864 :
  382. 865 :
  383. 866 bz=int((cz-l)/mz):mr=cz-(l+bz*mz)
  384. 867 m=-(mr>0):gosub881
  385. 868 :
  386. 869 na=n+1:l=len(fs$(n)):ifpa>1then873
  387. 870 w=n:print";":gosub892:zl=nl+l+3
  388. 871 printmid$(fs$(n),3,l);:goto878
  389. 872 :
  390. 873 print"; ";left$(ll$,bz);
  391. 874 w=n:gosub892:zl=l-pa+2
  392. 875 printmid$(fs$(n),3,pa-2)
  393. 876 printright$(fs$(n),l-pa);
  394. 877 :
  395. 878 return
  396. 879 :
  397. 880 :
  398. 881 forp=naton-1
  399. 882 :ifval(fs$(p))<>swthen887
  400. 883 :iffthenprint"; ";left$(ll$,bz+m);
  401. 884 :iffthenmr=mr+(mr>0):m=-(mr>0)
  402. 885 :f=1:w=p:gosub892
  403. 886 :printright$(fs$(p),len(fs$(p))-2);
  404. 887 nextp
  405. 888 :
  406. 889 return
  407. 890 :
  408. 891 :
  409. 892 nl=len(str$(w))-1:print"(";
  410. 893 printright$(str$(w),nl);") ";
  411. 894 return
  412. 895 :
  413. 899 rem" [192][192][192][192][192] loesung ausdrucken [192][192][192][192][192]
  414. 900 [141]755:[153][199](14):[159]1,4,10:[157]1
  415. 901 :
  416. 902 [153]:[153]:[153]:[153]"(NULL)oesung:"
  417. 903 [153]"ortantantantantantantantantantantantantantantantantantantantan^"
  418. 904 [129]n[178]s4[164]s4[170]760[169]40
  419. 905 :[153]"(NULL)";:[129]p[178]n[164]n[170]19
  420. 906 :[153][199]([194](p));
  421. 907 :[130]p:[153]"(NULL)"
  422. 908 [130]n
  423. 909 [153]"/tantantantantantantantantantantantantantantantantantantantanexp"
  424. 910 [152]1:[160]1
  425. 911 :
  426. 912 [142]
  427. 913 :
  428. 914 :
  429. 915 [143]" vorbereitungen
  430. 916 rem" [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][192][192]
  431. 917 :
  432. 919 [151]53280,2:[143]" rahmen grau
  433. 920 poke53281,2:rem" hintergrund grau
  434. 921 :
  435. 922 [143]   poke792,193:rem" restore und
  436. 923 rem poke788,52 :rem" stop verriegeln
  437. 924 :
  438. 925 [134]kw$(254):[143]" kreuzwoerter
  439. 926 dimfw$(254):rem" fragen dazu
  440. 927 [134]fs$(255):[143]" fragestellung
  441. 928 fg=1:og=fg :rem" feldgroesse
  442. 929 [151]2,fg   :[143]" uebergeben
  443. 930 :
  444. 931 poke785,0   :rem" usr-vektor
  445. 932 [151]786,192 :[143]" setzen
  446. 933 :
  447. 934 ls=0:rem" [193]utolader [193]us
  448. 935 bs[178]1:[143]" peeklausperre valin
  449. 936 :
  450. 937 sys50016:rem" matrix loeschen
  451. 938 :
  452. 940 [143] sys 51859 :rem" init. drucktreiber
  453. 942 :
  454. 944 rem" konstanten:
  455. 945 :
  456. 946 lr[178]10  :[143]" linker rand druckausg.
  457. 948 cz=int(130-lr*1.7) :rem" zeillaenge
  458. 949 :
  459. 950 [129]n[178]1[164]40   :[143]" leerstring fuer
  460. 952 :ll$=ll$+" " :rem" formatierte
  461. 954 [130]         :[143]" ausgabe
  462. 955 :
  463. 956 s1=50176 :rem" adressen der
  464. 958 s2[178]50576 :[143]" wortfeld-
  465. 960 s3=50976 :rem" speicher
  466. 962 s4[178]1186
  467. 963 :
  468. 964 dm[178]10000:[143]" max. anz. laeufe
  469. 965 :
  470. 966 return
  471. 967 :
  472. 969 :
  473. 970 rem" routinen laden
  474. 971 [143]" tantantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  475. 972 :
  476. 975 forn=0to3:s1=s1+peek(49152+n):next
  477. 976 forn=0to3:s2=s2+peek(51857+n):next
  478. 977 :
  479. 978 ifs1<>483thenload"such.obj",8,1
  480. 979 rem ifs2<>494thenload"druck.obj",8,1
  481. 980 :
  482. 987 return
  483. 997 :
  484. 998 :
  485. 999 :
  486. 1000 rem" inputform routine
  487. 1001 [143]" tantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  488. 1002 :
  489. 1003 x$=chr$(13):y$=chr$(20)
  490. 1004 z$=chr$(34)
  491. 1005 :
  492. 1006 print"[159]";t$;"?[146]  ";:poke198,0
  493. 1007 :
  494. 1008 f$=""
  495. 1009 forn=1tol+1
  496. 1010 :print"[157]";f$;"[164]";
  497. 1011 :wait198,1:getf$:poke198,0
  498. 1012 :iff$=x$then1024
  499. 1013 :iff$=y$andn>1thenn=n-1:goto1010
  500. 1014 :ifn>lthen1011
  501. 1015 :ifm=0then1021
  502. 1016 :iff$=","orf$=z$then1011
  503. 1017 :iff$>=" "andf$<="9"then1022
  504. 1018 :iff$>="[193]"andf$<="[218]"then1022
  505. 1021 :iff$<"a"orf$>"z"then1011
  506. 1022 next
  507. 1023 :
  508. 1024 print"[157] [157]";t$;
  509. 1026 poke631,13:poke198,1:inputf$
  510. 1029 iff$=x$then1005
  511. 1030 :
  512. 1097 return
  513. 1098 :
  514. 1099 :
  515. 2000 rem" wort positionieren
  516. 2001 [143]" tantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  517. 2002 :
  518. 2004 print"[154] ([211]) enkrecht   oder";
  519. 2005 print"   ([215]) aagerecht  ? "
  520. 2006 wait203,63:getf$
  521. 2007 iff$<>"s"andf$<>"w"then2006
  522. 2008 :
  523. 2009 print"[146]";ll$;
  524. 2010 print"[194]itte [208]osition anfahren!"
  525. 2011 print"[146]";
  526. 2012 :
  527. 2013 fa=1186:p=fa:f=peek(fa)
  528. 2014 x=0:y=0:s=(f$="s"):poke140,abs(s)
  529. 2015 mx=20+l*(s=0)+(s=-1)
  530. 2016 my=20+l*(s=-1)+(s=0)
  531. 2017 :
  532. 2018 forn=0to9999
  533. 2019 pokep,f:p=fa+x+y*40
  534. 2020 f=peek(p):pokep,94:wait198,1
  535. 2021 getf$:iff$=chr$(13)then2028
  536. 2022 iff$=""theny=y-1*(y<my):next
  537. 2023 iff$=""thenx=x-1*(x<mx):next
  538. 2024 iff$="[145]"theny=y+1*(y>0):next
  539. 2025 iff$="[157]"thenx=x+1*(x>0):next
  540. 2026 next
  541. 2027 :
  542. 2028 pokep,f
  543. 2029 print"";ll$;ll$;
  544. 2030 :
  545. 2031 poke211,x :rem" cursor-position
  546. 2032 [151]214,y :[143]" setzen
  547. 2033 :
  548. 2097 return
  549. 2098 :
  550. 2099 :
  551. 3000 rem" directory listen
  552. 3001 [143]" tantantantantantantantantantantantantantantantantantantantantantantantantantantantantan
  553. 3003 :
  554. 3004 print"";ll$;"[159]";
  555. 3005 print"[205]it [210][197][212][213][210][206][146] auswaehlen "
  556. 3006 print"[145][205]it [204][197][197][210][212][193][211][212][197][146]  weiter "
  557. 3007 :
  558. 3008 open15,8,15,"io":open2,8,2,"#"
  559. 3010 :
  560. 3012 t=18:s=1:f$=""
  561. 3014 :
  562. 3016 forw=0to99
  563. 3018 :
  564. 3020 :print#15,"b-r";2;0;t;s
  565. 3022 :print#15,"b-p";2;0
  566. 3024 :
  567. 3026 :get#2,x$:t=asc(x$+chr$(0))
  568. 3028 :get#2,x$:s=asc(x$+chr$(0))
  569. 3030 :
  570. 3032 :forx=0to7
  571. 3034 : print#15,"b-p";2;x*32+5:get#2,f$
  572. 3038 : iff$<>"[219]"thennextx:goto3060
  573. 3042 : fory=1to15
  574. 3044 :  get#2,x$:f$=f$+x$
  575. 3046 :  ifx$=chr$(160)theny=15
  576. 3048 : nexty
  577. 3050 : print"";tab(24);"";
  578. 3052 : printright$(f$,len(f$)-2);"[146]"
  579. 3053 : wait203,64:wait203,63:getx$
  580. 3054 : ifx$=chr$(13)then3064
  581. 3055 : print"";tab(24);left$(ll$,14)
  582. 3056 : f$=""
  583. 3057 :nextx
  584. 3058 :
  585. 3060 :ift=0thenw=99
  586. 3061 nextw
  587. 3062 :
  588. 3064 close2:close15
  589. 3065 print"";ll$;ll$
  590. 3066 :
  591. 3068 return
  592. 3070 :
  593. 3071 :
  594. 4000 rem" sicherheitsabfrage
  595. 4001 [143]" tantantantantantantantantantantantantantantantantantan
  596. 4002 :
  597. 4003 poke53280,2:poke53281,2
  598. 4004 print"";ll$
  599. 4006 print"[159]";f$;":[146] [211]icher ([202]/[206]) ?"
  600. 4008 wait203,64:wait203,63:getf$
  601. 4010 iff$<>"j"thenprint"";ll$
  602. 4012 :
  603. 4014 return
  604. 4016 :
  605. 4018 :
  606. 4020 :
  607. 9000 rem"[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]
  608. 9002 [143]"(NULL)  ende   raetselgenerator   (NULL)
  609. 9004 rem"[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]
  610.