home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh6x / sh68b.d64 / raetsel.mps (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  6.8 KB  |  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.