home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 68 / 64er_Magazin_Sonderheft_68_19xx_Markt__Technik_de_Side_B.d64 / raetsel.mps (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  7KB  |  368 lines
  1. 4 sys65409
  2. 5 poke56,152:clr
  3. 10 poke53280,.:poke53281,.
  4. 16 print"[147][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][192][174]
  5. 18 [153]"(NULL)(NULL)reuzwortraetsel (NULL)ersion 1.e (NULL)
  6. 19 print"[221]                             [221]
  7. 20 [153]"(NULL) (NULL)(NULL)(NULL) 801/3 (NULL)ersion     1984-8(NULL)
  8. 21 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][192][189]
  9. 22 [141]5000:[153]"loading...
  10. 23 ifpeek(49152)+peek(49153)<>152thenload"such.obj",8,1
  11. 24 ifpeek(38912)+peek(38914)<>231thenload"print.obj",8,1
  12. 28 clr:print"[147][199]leich...
  13. 30 [141]915:[141]600
  14. 34 t$[178]"(NULL)tartwort
  15. 35 nr=1:gosub654
  16. 37 gosub700
  17. 44 gosub337:poke142,bs:poke26,0:u=usr(dl)
  18. 47 onugoto50,65,70,80
  19. 50 getf$
  20. 51 iff$="[136]"thengosub650:goto59
  21. 52 iff$="[138]"then65
  22. 53 iff$="[134]"thengosub740:goto59
  23. 54 iff$="[133]"thengosub700:goto60
  24. 55 iff$="[135]"thengosub450:goto60
  25. 56 iff$="[140]"thengosub092:goto59
  26. 57 iff$="[137]"thengosub087:goto59
  27. 58 goto50
  28. 59 print"";ll$;ll$
  29. 60 poke53280,0:poke53281,0:gosub337
  30. 61 iffg>0then44
  31. 62 goto50
  32. 65 ifbs=0thengosub110
  33. 66 bs=0:gosub337:goto44
  34. 70 rem
  35. 71 w=peek(25)
  36. 72 fs$(nr)=str$((peek(140)=0))+fw$(w)
  37. 73 gosub300:nr=nr+1:iffg>0then44
  38. 76 print"";ll$;"";tab(17);
  39. 77 print"[159] [215]ortschatz erschoepft "
  40. 78 gosub337:fori=1to100:nexti:goto50
  41. 80 rem
  42. 81 print"";ll$;"[159] [210]aetsel fertig: [146]
  43. 82 [153]"atnusdruck mit  (NULL)val(NULL)(NULL)(NULL)(NULL) "
  44. 83 [146]203,64:[146]203,63
  45. 84 [153]"";ll$;ll$:[141]740
  46. 85 [137]95
  47. 87 [143]
  48. 88 f$[178]"(NULL)aetsel loeschen":[141] 4000
  49. 89 [139]f$[179][177]"j"[167] [142]
  50. 90 [138]30
  51. 92 :
  52. 93 f$[178]"atnbbrechen":[141]4000
  53. 94 [139]f$[179][177]"j"[167] [142]
  54. 95 [158]65409:[128]
  55. 100 [159]1,8,15:[132]1,a,b$:[153]b$
  56. 101 :
  57. 110 :
  58. 115 [153]"open";ll$;"";[163]18);
  59. 116 [153]"(NULL)ortschatz ungenuegend
  60. 117 gosub337
  61. 118 ifright$(nf$,1)="q"then154
  62. 122 dl=int(dm/3)
  63. 125 remifav=0thenav=1:goto154
  64. 127 ifls=0then154
  65. 128 :
  66. 130 :
  67. 132 print"";ll$;"[159] [215]ortschatz ";
  68. 133 print"";nf$;"[146] wird geladen
  69. 136 f$[178]nf$:[141]713
  70. 154 [142]
  71. 300 :
  72. 307 sa[178][194](47)[170][194](48)[172]256[170]7
  73. 315 [141]350
  74. 320 sa[178]sa[170]772
  75. 322 [141]350
  76. 334 fg[178]fg[171]1:[151]2,fg
  77. 337 [153]""nr[171]1;[181](fg[173]og[172]100)"cmd % "bs"cmd "
  78. 341 [142]
  79. 349 :
  80. 350 x[178]sa[170]fg[172]3:y[178]sa[170]w[172]3
  81. 354 [151]y,[194](x)
  82. 355 [151]y[170]1,[194](x[170]1)
  83. 358 [151]y[170]2,[194](x[170]2)
  84. 397 [142]
  85. 450 [143]
  86. 456 [139]ls[178]0[167]ls[178]1:[137]461
  87. 458 [139]ls[178]1[167]ls[178]0
  88. 461 [151]214,13:[151]211,30:[158]58732
  89. 463 [153]"";
  90. 464 [139]ls[178]1[167][153]"valinwait";
  91. 466 [139]ls[178]0[167][153]"atnus";
  92. 497 [142]
  93. 600 [143]
  94. 606 [151]53265,11:[153]"load";[199](14);[199](8);
  95. 610 [153]"open ortantantantantantantantantantantantantantantantantantantantan^"
  96. 612 [129]n[178]1[164]20
  97. 614 [153]"open (NULL)cont                    waitopen(NULL)"
  98. 616 [130]
  99. 618 [153]"open /tantantantantantantantantantantantantantantantantantantantanexp
  100. 621 b$="
  101. 622 [153]"";
  102. 623 a$[178]"(NULL)oerter   einlesen"
  103. 624 f[178]1:[141]639
  104. 625 a$[178]"(NULL)aetsel   drucken "
  105. 626 f[178]3:[141]639
  106. 627 a$[178]"atnutolader aus     "
  107. 628 f[178]5:[141]639
  108. 629 a$[178]"von left$and  eingeben"
  109. 630 f[178]7:[141]639
  110. 631 [153]b$;"f 2waitcmdcmd(NULL)oeschen
  111. 632 printb$;"f 4[146][157][157][194]lau aus
  112. 633 [153]b$;"f 8waitcmdcmdatnbbrechen";
  113. 634 [151]53265,27
  114. 636 [142]
  115. 639 [153]b$;"f";f;"cmdwaittantantantantantantan^"
  116. 640 [143] printb$;"(NULL)         (NULL)
  117. 641 printb$;"[221]";left$(a$,9);"[221]
  118. 642 [153]b$;"(NULL)";[201](a$,9);"(NULL)"
  119. 645 [153]b$;"/tantantantantantantantantanexp
  120. 646 return
  121. 650 rem
  122. 651 print"";ll$;ll$
  123. 653 t$="[203]reuzwort ([193]bbr=q)"
  124. 654 print"
  125. 656 l[178]20:m[178]0:[141]1000:m$[178]f$
  126. 657 [139]m$[178]"q"[175]nr[177]1[167]685
  127. 658 l[178][195](m$):[139]l[179]2[167]656
  128. 660 t$[178]m$:[141]2000
  129. 662 [151]26,[195](m$):m$[178]m$
  130. 663 [146]203,64:u[178][183](0)
  131. 664 [139]u[179][177]3[167]685
  132. 666 t$[178]"ascragestellung"
  133. 667 l[178]36:m[178]1:[141]1000
  134. 680 x$[178][196]([194](140)[178]0)
  135. 681 fs$(nr)[178]x$[170]f$:nr[178]nr[170]1
  136. 682 av[178]0:dl[178]dm
  137. 683 [137] 650
  138. 685 [142]
  139. 700 :
  140. 704 [153]"";ll$;ll$
  141. 705 t$[178]"(NULL)ortschatz (atnbbr=q)"
  142. 706 l[178]14:m[178]1:[141]1000
  143. 707 [139]f$[178]"q"[167][153]"";ll$:[137]733
  144. 708 [139]f$[178]"$"[167]710
  145. 709 f$[178]"+"[170][199](20)[170]f$:[137]712
  146. 710 [141]3000:[139]f$[178]""[167]704
  147. 712 [153]"";ll$;ll$
  148. 713 [159]15,8,15
  149. 714 [159]1,8,2,f$[170]",s,r"
  150. 715 [132]15,en,en$
  151. 716 [139]en[167]728
  152. 718 [132]1,fg
  153. 719 [151]2,fg
  154. 720 [129]n[178]0[164]fg
  155. 721 [132]1,kw$(n),fw$(n):[130]
  156. 724 [132]1,nf$
  157. 725 [132]15,en,en$
  158. 726 av[178]0:dl[178]dm:bs[178]1:og[178]fg
  159. 728 [153]""[200](ll$,40[171][195](en$))""en$
  160. 731 [160]1:[160]15
  161. 733 [142]
  162. 740 [143]
  163. 744 [153]""ll$ll$
  164. 745 [153]"open(NULL)aetsel wird gedruckt !
  165. 747 sys38912:gosub761:sys65418:gosub824
  166. 748 print"[159][204]oesung drucken ? [[202]/[206]]
  167. 749 [151]198,.:[146]198,1:[161]a$:[139]a$[178]"n"[167][142]
  168. 750 [139]a$[178]"j"[167]900
  169. 751 [137]749
  170. 761 [159]1,4:[157]1:[153]:[153]"or";
  171. 762 [129]n[178]0[164]19:[153]"tantantan";:[130]:[153]"^
  172. 765 forze=.to19
  173. 766 d=ze*20:ad=s1+d:as=s2+d:aw=s3+d
  174. 767 ab=s4+ze*40
  175. 772 print" ";
  176. 773 forsp=0to19
  177. 774 c=peek(as+sp)
  178. 775 ifc=0thenprint"   ";:goto777
  179. 776 printright$("  "+str$(c),3);
  180. 777 next
  181. 779 gosub820
  182. 780 forn=1to3
  183. 781 print"[221][146]";
  184. 782 forsp=0to19
  185. 783 a=166:b=a:c=b
  186. 784 ifpeek(ab+sp)=160then790
  187. 785 b=32:c=b:ifsp=19then787
  188. 786 if(peek(ad+sp)and1)thenc=167
  189. 787 a=165:ifsp=0thena=32
  190. 788 if(n=1)andpeek(as+sp)>199thena=32
  191. 789 if(n=3)andpeek(aw+sp)thena=32
  192. 790 printchr$(a)chr$(b)chr$(c);
  193. 791 next
  194. 792 print"[221][146]";:ifn<3thenprint
  195. 793 next
  196. 795 gosub820:print" ";
  197. 796 forsp=0to19
  198. 797 c=peek(aw+sp)
  199. 798 ifc=0thenprint"   ";:goto800
  200. 799 printmid$(str$(c)+"   ",2,3);
  201. 800 next
  202. 802 ifze=19then810
  203. 803 gosub820:print" ";
  204. 804 forsp=0to19
  205. 805 p=ad+sp:c=peek(p)and16
  206. 806 ifpeek(ab+sp+40)=160andpeek(ab+sp)=160thenprint"   ";:goto809
  207. 807 ifcthenprint"[175][175][175]";:goto809
  208. 808 print"[164][164][164]";
  209. 809 next
  210. 810 print:next
  211. 812 print"[173]";
  212. 813 forn=0to19:print"[192][192][192]";:next
  213. 814 print"[189][146]";:print#1:close1
  214. 816 return
  215. 820 printchr$(141);:return
  216. 824 open1,4,7
  217. 829 cmd1:print"[211]enkrecht:
  218. 830 sw[178]0:[141]838:[153]
  219. 832 [153]"(NULL)aagerecht:
  220. 833 sw=-1:gosub838:print#1:close1
  221. 835 return
  222. 838 mz=0:zl=0:f=0:na=1
  223. 839 forn=1tonr-1
  224. 840 ifval(fs$(n))=swthengosub847
  225. 841 nextn
  226. 842 m=0:mr=0:bz=0:gosub881:print
  227. 844 return
  228. 847 nl=len(str$(n))+2
  229. 848 l=zl+nl+len(fs$(n))
  230. 849 ifl<czthenzl=l:goto861
  231. 851 pa=1
  232. 852 forp=3tolen(fs$(n))-2
  233. 853 ifmid$(fs$(n),p,1)<>" "then855
  234. 854 l=zl+nl+p-2:ifl<czthenpa=p
  235. 855 nextp
  236. 857 ifpa=1thenmz=mz-1:l=zl
  237. 858 ifpa>1thenl=zl+nl+pa-2
  238. 859 gosub866:mz=0
  239. 861 mz=mz+1
  240. 863 return
  241. 866 bz=int((cz-l)/mz):mr=cz-(l+bz*mz)
  242. 867 m=-(mr>0):gosub881
  243. 869 na=n+1:l=len(fs$(n)):ifpa>1then873
  244. 870 w=n:print";":gosub892:zl=nl+l+3
  245. 871 printmid$(fs$(n),3,l);:goto878
  246. 873 print"; "left$(ll$,bz);
  247. 874 w=n:gosub892:zl=l-pa+2
  248. 875 printmid$(fs$(n),3,pa-2)
  249. 876 printright$(fs$(n),l-pa);
  250. 878 return
  251. 881 forp=naton-1
  252. 882 ifval(fs$(p))><swthen887
  253. 883 iffthenprint"; "left$(ll$,m+bz);
  254. 884 iffthenmr=mr+(mr>0):m=-(mr>0)
  255. 885 f=1:w=p:gosub892
  256. 886 printright$(fs$(p),len(fs$(p))-2);
  257. 887 nextp
  258. 889 return
  259. 892 nl=len(str$(w))-1:print"(";
  260. 893 printright$(str$(w),nl)") ";
  261. 894 return
  262. 900 open1,4,0:cmd1:cr$=chr$(8)+chr$(13)+chr$(15)
  263. 902 print:print:print:printspc(20)"loesung:
  264. 903 [153][166]20)"ortantantantantantantantantantantantantantantantantantantantan^"cr$;
  265. 904 [129]n[178]s4[164]s4[170]760[169]40
  266. 905 [153][166]20)"(NULL)";:[129]p[178]n[164]19[170]n
  267. 906 [153][199]([194](p));:[130]:[153]"(NULL)"cr$;:[130]
  268. 907 [153][166]20)"/tantantantantantantantantantantantantantantantantantantantanexp
  269. 908 print#1:close1:return
  270. 915 :
  271. 925 dimkw$(254),fw$(254),fs$(255):fg=1:og=fg:poke785,0
  272. 929 poke2,fg:poke786,192:ls=.:bs=1:sys50016
  273. 948 cz=78
  274. 950 forn=1to40
  275. 952 ll$=ll$+" "
  276. 954 next
  277. 956 s1=50176:s2=50576:s3=50976:s4=1186:dm=1e4:return
  278. 1000 :
  279. 1003 x$=chr$(13):y$=chr$(20)
  280. 1004 z$=chr$(34)
  281. 1005 :
  282. 1006 print"[159]";t$;"?[146]  ";:poke198,0
  283. 1008 f$=""
  284. 1009 forn=1tol+1
  285. 1010 print"[157]";f$;"[164]";
  286. 1011 wait198,1:getf$:poke198,0
  287. 1012 iff$=x$then1024
  288. 1013 iff$=y$andn>1thenn=n-1:goto1010
  289. 1014 ifn>lthen1011
  290. 1015 ifm=0then1021
  291. 1016 iff$=","orf$=z$then1011
  292. 1017 iff$>=" "andf$<="9"then1022
  293. 1018 iff$>="[193]"andf$<="[218]"then1022
  294. 1021 iff$<"a"orf$>"z"then1011
  295. 1022 next
  296. 1024 print"[157] [157]"t$;
  297. 1026 poke631,13:poke198,1:inputf$
  298. 1029 iff$=x$then1005
  299. 1030 return
  300. 2000 :
  301. 2004 print"[154] ([211])enkrecht oder";
  302. 2005 print" ([215])aagerecht  ? "
  303. 2006 wait203,63:getf$
  304. 2007 iff$<>"s"andf$<>"w"then2006
  305. 2009 print"[146]";ll$;
  306. 2010 print"[194]itte [208]osition anfahren
  307. 2011 [153]"wait";
  308. 2013 fa[178]1186:p[178]fa:f[178][194](fa)
  309. 2014 x[178]0:y[178]0:s[178](f$[178]"s"):[151]140,[171]s
  310. 2015 mx[178]20[170]l[172](s[178]0)[170](s[178][171]1)
  311. 2016 my[178]20[170]l[172](s[178][171]1)[170](s[178]0)
  312. 2018 [129]n[178]0[164]9999
  313. 2019 [151]p,f:p[178]fa[170]x[170]y[172]40
  314. 2020 f[178][194](p):[151]p,94
  315. 2021 [161]f$:[139]f$[178][199](13)[167]2028
  316. 2022 [139]f$[178]""[167]y[178]y[171]1[172](y[179]my)
  317. 2023 [139]f$[178]""[167]x[178]x[171]1[172](x[179]mx)
  318. 2024 [139]f$[178]"on"[167]y[178]y[170]1[172](y[177]0)
  319. 2025 [139]f$[178]"cmd"[167]x[178]x[170]1[172](x[177]0)
  320. 2026 [130]
  321. 2028 [151]p,f
  322. 2029 [153]"";ll$;ll$;
  323. 2031 [151]211,x
  324. 2032 [151]214,y
  325. 2097 [142]
  326. 2150 %  1                          ok [154]
  327. 3000 [143]
  328. 3004 [153]"";ll$;"open";
  329. 3005 [153]"(NULL)it (NULL)val(NULL)(NULL)(NULL)(NULL)wait auswaehlen
  330. 3006 print"[145][205]it [211][208][193][195][197] [146]     weiter
  331. 3007 :
  332. 3009 [159]15,8,15,"i0":[159]2,8,2,"#
  333. 3012 t=18:s=1:f$="
  334. 3016 [129]w[178]0[164]99
  335. 3020 [152]15,"u1 2 0"t;s
  336. 3022 [152]15,"b-p";2;0
  337. 3026 [161]#2,x$:t[178][198](x$[170][199](0))
  338. 3028 [161]#2,x$:s[178][198](x$[170][199](0))
  339. 3032 [129]x[178]0[164]7
  340. 3034 [152]15,"b-p";2;x[172]32[170]5
  341. 3036 [161]#2,f$
  342. 3038 [139]f$[179][177]"+"[167][130]x:[137]3060
  343. 3042 [129]y[178]1[164]15
  344. 3044 [161]#2,x$:f$[178]f$[170]x$
  345. 3046 [139]x$[178][199](160)[167]y[178]15
  346. 3048 [130]y
  347. 3050 [153]"";[163]24);"";
  348. 3052 [153][201](f$,[195](f$)[171]2)
  349. 3053 [146]203,64:[146]203,63:[161]x$
  350. 3054 [139]x$[178][199](13)[167]3064
  351. 3055 [153]"";[163]24);[200](ll$,14)
  352. 3056 f$[178]"
  353. 3057 nextx
  354. 3060 ift=0thenw=99
  355. 3061 nextw
  356. 3064 close2:close15
  357. 3065 print""ll$;ll$
  358. 3068 return
  359. 4000 print""ll$
  360. 4006 print"[159]"f$":[146][211]icher ([202]/[206]) ?
  361. 4008 [146]203,64:[146]203,63:[161]f$
  362. 4010 [139]f$[179][177]"j"[167][153]"";ll$
  363. 4014 [142]
  364. 5000 [153]"(NULL)rogrammiert von      chr$ert peekuettgenbach
  365. 5001 print"[214]erbessert und angepasst an [205][208][211] [196]rucker
  366. 5002 [153]"von (NULL)ikolaus left$eusler       (NULL)ktober 1986
  367. 5003 return
  368.