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