home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 53 / Commodore_Disc_53_19xx_-_de.d64 / edit (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  9KB  |  271 lines
  1. 10 dim kt$(9):dim be$(350)                :na$="keines":nb$="keines":mp=0
  2. 50 poke54272+24,15:poke54272+5,25:poke54272+6,15
  3. 55 poke54272,0:poke54273,15
  4. 90 poke53280,0:poke53281,0:poke788,52     :goto100
  5. 95 rem                                         --- ton ---
  6. 96 poke54276,33:forx=0to600:next          :poke54276,0 :return
  7. 97 rem                                              ---------
  8. 99 rem                                         --- menue ---
  9. 100 print"[147]-------------super--quiz----------------             e d";
  10. 101 print" i t o r":print"          [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
  11. 102 print"          [221][157][221][157][171][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][171][157][221][157][221][157][173]";
  12. 103 print"[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  13. 104 print"                          [221][157][221][157][179][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][221][157][179]";
  14. 105 print"[157][221][157][221]"
  15. 106 print"          [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  16. 107 print"          [192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
  17. 109 ifna$="_"thenna$=nb$
  18. 110 print"[154]          file : ":print""na$"[154]"
  19. 115 me$(0)="  neu eingeben  "
  20. 120 me$(1)="   ergaenzen    "
  21. 125 me$(2)="    ansehen     "
  22. 130 me$(3)="  korrigieren   "
  23. 140 me$(4)="    loeschen    "
  24. 142 me$(5)="   sortieren    "
  25. 143 me$(6)="     laden      "
  26. 144 me$(7)="  abspeichern   "
  27. 145 me$(8)=" spiel starten  "
  28. 146 me$(9)="programm beenden"
  29. 147 forx=0to9:printme$(x):next
  30. 148 print""me$(mp)"[146]"
  31. 149 poke198,0
  32. 150 geta$:ifa$=""then150
  33. 152 ifasc(a$)=13then220
  34. 155 ifa$=""ora$="+"ora$="[136]"ora$="[135]"thenprintme$(mp):mp=mp+1
  35. 157 ifa$="[145]"ora$=""ora$="-"ora$="[133]"ora$="[134]"thenprintme$(mp):mp=mp-1
  36. 170 ifmp<0thenmp=9
  37. 180 ifmp>9thenmp=0
  38. 190 print""me$(mp)"[146]"
  39. 200 goto150
  40. 220 onmp+1goto500,1000,1500,2500,2000,6000,7000,8000,4900,400
  41. 400 end
  42. 500 rem                                         --- neu eingeben ---
  43. 502 x$=""
  44. 505 print"[147]-------neuen begriffsatz eingeben-------"
  45. 510 print"name fuer den neuen begriffsatz:"
  46. 520 poke198,0:input"  _[157][157][157]";x$
  47. 525 ifx$="_"then100
  48. 526 ifx$=""then505
  49. 528 iflen(x$)<12then550
  50. 530 print"[150]zu lang ! (max 11 zeichen)[154]"    :gosub95:poke198,0:wait198,1
  51. 540 goto505
  52. 550 na$=x$:nb$=x$
  53. 560 forka=0to9
  54. 562 print"kategorie "ka":";
  55. 564 input"";ka$:print"[154]";
  56. 565 ifka$=""thenka$="nicht belegt    "     :print"[145]"ka$"[154]"
  57. 570 iflen(ka$)>16thenprint"[150]! zu lang! (max.16 zeichen)[154]":gosub95:ka$="":goto562
  58. 572 iflen(ka$)=16then580
  59. 575 forz=1to16-len(ka$):ka$=ka$+" ":next
  60. 580 kt$(ka)=ka$:ka$="":nextka
  61. 590 ab=0
  62. 595 rem                                             ---------
  63. 600 be$=""
  64. 605 ifab<350then610
  65. 607 print"[150]keine weiteren eingaben moeglich ![154]":gosub95
  66. 608 poke198,0:wait198,1:goto100
  67. 610 print"begriff"ab+1":"
  68. 620 poke198,0:input"  _[157][157][157]";be$           :print"[154]";
  69. 625 ifbe$="_"then 100
  70. 626 ifbe$=""thenprint"[145][145][145]":goto610
  71. 627 gosub8500:iffe=1then610
  72. 630 print"kategorie(0-9) ? ";
  73. 640 print" "ar"[157]/"kt$(ar)"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:gosub5000:print
  74. 670 ab=ab+1:be$(ab)=be$+str$(ar)
  75. 680 goto600
  76. 810 goto100
  77. 1000 rem                                         --- ergaenzen ---
  78. 1002 ifna$="keines"then150
  79. 1005 print"[147]---------begriffsatz ergaenzen----------"
  80. 1110 goto600
  81. 1500 rem                                         --- ansehen ---
  82. 1505 ifna$="keines"then150
  83. 1510 print"[147]----------begriffsatz ansehen-----------"
  84. 1555 print"[150]<ret>[154] unterbricht,[150]<_>[154] beendet auflistung"
  85. 1557 printtab(16)"[150]<space>[154]":                poke198,0:wait198,1:poke198,0
  86. 1565 for ka=0to9:print"kategorie"ka":";:print""kt$(ka)"[154]":next
  87. 1569 ifab=0then1620
  88. 1570 forz=1toab
  89. 1575 printz":"
  90. 1590 print""be$(z)"[150][157][157]()[154]"
  91. 1595 ifpeek(198)<>0thenpoke198,0:wait198,1:getx$:ifx$="_"then 100
  92. 1597 poke198,0
  93. 1600 nextz
  94. 1620 poke198,0:wait198,1:goto100
  95. 2000 rem                                         --- loeschen ---
  96. 2010 print"[147][150]----------begriffsatz loeschen----------"
  97. 2020 poke53281,2:poke53280,2
  98. 2030 print"filename :";
  99. 2040 poke198,0:input"  _[157][157][157]";z$
  100. 2050 ifz$="_"then90
  101. 2060 ifz$=""then2010
  102. 2070 open2,8,2,"satz "+z$:input#2,z         :close2
  103. 2080 gosub10100:print"[150]";:ifx>0then 2010
  104. 2082 ifz<30thenprint"sind sie sicher ??(j/n)":goto2087
  105. 2084 print"sie wollen "z"begriffe einfach so"
  106. 2086 print"loeschen ??(j/n)"
  107. 2087 getx$:ifx$=""then2087
  108. 2088 ifx$="j"then2090
  109. 2089 goto90
  110. 2090 open1,8,15,"s:satz "+z$:close1
  111. 2100 gosub10100:goto90
  112. 2500 rem                                         --- korrigieren ---
  113. 2501 ifna$="keines"then150
  114. 2505 nr=1:poke650,128
  115. 2510 print"[147]--------------korrigieren---------------"
  116. 2520 print"     f1[146] +10         k/ategorien"
  117. 2530 print"     f3[146]  +1         l/oeschen"
  118. 2540 print"     f5[146]  -1         a/endern"
  119. 2550 print"     f7[146] -10         m/enue"
  120. 2590 ifab=0then2650
  121. 2600 print" 1:[146]"
  122. 2601 print""be$(1)"[150][157][157]()[154]"
  123. 2650 poke198,0
  124. 2670 geta$:ifa$=""then2670
  125. 2675 ifab=0then2726
  126. 2680 ifa$="[133]"then nr=nr+10
  127. 2690 ifa$="[134]"then nr=nr+1
  128. 2700 ifa$="[135]"then nr=nr-1
  129. 2710 ifa$="[136]"then nr=nr-10
  130. 2713 if nr>ab then nr=1
  131. 2716 if nr<1  then nr=ab
  132. 2720 ifa$="l"then2960
  133. 2725 ifa$="a"then2800
  134. 2726 ifa$="m"thenpoke650,0:goto90
  135. 2729 ifa$="k"then3000
  136. 2750 ifab=0then2670
  137. 2752 print""nr"[157]:[146]   "
  138. 2755 print"                                        [145]";
  139. 2760 print""be$(nr)"[150][157][157]()[154]";
  140. 2780 goto2670
  141. 2800 rem                                         --- aendern ---
  142. 2802 print"   "
  143. 2804 print"  "left$(be$(nr),len(be$(nr))-2)" "
  144. 2810 poke198,0:be$="":input"";be$
  145. 2830 ifbe$=""then2810
  146. 2840 gosub8500:iffe=1then2810
  147. 2900 ar=val(right$(be$(nr),1))              :print"[154]kategorie(0-9) :";
  148. 2910 printar"[157]/";kt$(ar)"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";
  149. 2920 gosub5000
  150. 2930 be$(nr)=be$+str$(ar)
  151. 2940 print:print"[145][145]                                       ";
  152. 2945 print"                                         "
  153. 2950 goto2750
  154. 2960 rem                                         --- loeschen ---
  155. 2962 ifnr<abthen2970
  156. 2965 ab=ab-1:nr=nr-1
  157. 2966 ifab>0then2750
  158. 2967 print"     ":print"                                        "
  159. 2968 goto2750
  160. 2970 forx=nrtoab-1:be$(x)=be$(x+1):next
  161. 2980 ab=ab-1
  162. 2985 poke198,0:goto2750
  163. 3000 rem                                         --- kategorien ---
  164. 3005 nr=0
  165. 3010 print"b/egriffe  "
  166. 3020 print"kat."nr":   "kt$(nr)"[154]"
  167. 3030 print"                                        "
  168. 3050 geta$:ifa$=""then3050
  169. 3060 ifa$="[134]"ora$="[133]"then nr=nr+1
  170. 3070 ifa$="[135]"ora$="[136]"then nr=nr-1
  171. 3080 if nr>9 then nr=0
  172. 3090 if nr<0 then nr=9
  173. 3100 ifa$="l"thenkt$(nr)="nicht belegt    "
  174. 3110 ifa$="b"then2505
  175. 3120 ifa$="m"thenpoke650,0:goto90
  176. 3130 ifa$="a"then3200
  177. 3150 print"kat."nr":   "kt$(nr)"[154]"
  178. 3160 goto3050
  179. 3200 rem                                         --- kat aendern ---
  180. 3210 input"[145]         ";x$:print"[154]";
  181. 3220 iflen(x$)>16thengosub95:goto3210
  182. 3230 iflen(x$)=16then3250
  183. 3240 forz=1to16-len(x$):x$=x$+" ":next
  184. 3250 kt$(nr)=x$
  185. 3290 goto3150
  186. 4900 rem                                         --- spiel laden ---
  187. 4910 print"[152][147]           einen moment..."
  188. 4920 print"[144]load"chr$(34)"super quiz"chr$(34)",8"
  189. 4930 print"run50"
  190. 4940 poke631,13:poke632,13:poke198,2:new
  191. 5000 rem                                         --- kat.input ---
  192. 5010 poke198,0:print"";
  193. 5020 geta$:ifa$=""then5020
  194. 5025 ifasc(a$)=13 then print"[154]";:return
  195. 5030 ifasc(a$)<48 orasc(a$)>57then5020
  196. 5050 ar=val(a$):printar"[157]/";kt$(ar)"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]";:goto5020
  197. 6000 rem                                         --- sortieren ---
  198. 6005 ifna$="keines"then150
  199. 6010 print"[147]----------begriffsatz sortieren---------"
  200. 6015 poke198,0:print"bubble,bubble";
  201. 6020 y=0:forx=2toab:
  202. 6030 ifright$(be$(x-1),1)<=right$(be$(x),1)then6050
  203. 6040 be$=be$(x-1):be$(x-1)=be$(x):be$(x)=be$:y=1
  204. 6050 ifpeek(198)>0then6100
  205. 6055 nextx:print".";
  206. 6060 ify=1then6020
  207. 6070 print"ok.":forx=1to500:next
  208. 6080 goto100
  209. 6100 print:print"[150]! sortieren abgebrochen !":gosub95
  210. 6110 poke198,0:wait198,1:goto100
  211. 7000 rem                                         --- laden ---
  212. 7010 print"[147]------------begriffsatz laden-----------"
  213. 7030 print"filename :";
  214. 7040 poke198,0:input"  _[157][157][157]";na$
  215. 7050 ifna$="_"then100
  216. 7060 ifna$=""then7010
  217. 7070 open2,8,2,"satz "+na$:input#2,ab:       close2
  218. 7080 gosub10100:ifx>0then7010
  219. 7100 open2,8,2,"satz "+na$
  220. 7110 print"loading...":input#2,ab
  221. 7120 forka=0to9:input#2,kt$(ka):next
  222. 7150 forz=1toab:input#2,be$(z):next
  223. 7160 close2:nb$=na$:gosub10100:goto100
  224. 8000 rem                                         --- speichern ---
  225. 8005 ifna$="keines"then 150
  226. 8010 print"[147]----------begriffsatz abspeichern-------"
  227. 8030 open2,8,2,"satz "+na$+",s,w":print#2,ab:close2
  228. 8040 gosub10100:ifx=0then8100
  229. 8045 ifx<>63then8010
  230. 8050 print"altes file ueberschreiben (j/n) ?"
  231. 8055 poke198,0
  232. 8060 geta$:ifa$=""then8060
  233. 8065 ifa$<>"j"then8200
  234. 8070 open2,8,2,"@:satz "+na$+",s,w":print#2,ab:goto8120
  235. 8100 open2,8,2,"satz "+na$+",s,a"
  236. 8120 print"saving..."                       :forka=0to9:print#2,kt$(ka):next
  237. 8130 forz=1toab:print#2,be$(z):next
  238. 8170 close2:gosub10100:goto100
  239. 8200 rem                                             ----------
  240. 8210 print"namen aendern (j/n) ?"
  241. 8220 poke198,0
  242. 8230 geta$:ifa$=""then8230
  243. 8240 ifa$<>"j"then100
  244. 8250 input"neuer name ";na$
  245. 8270 open2,8,2,"satz "+na$+",s,w":print#2,ab:close2
  246. 8280 gosub10100:ifx=0then8100
  247. 8290 ifx=63thengosub95:print"[150]filename existiert bereits![154]":goto8250
  248. 8300 goto100
  249. 8500 rem                                         --- eingabe pruefen ---
  250. 8505 fe=0
  251. 8510 iflen(be$)<=37 then 8550
  252. 8530 print"[150]! zu lang ![154]":gosub95          :poke198,0:wait198,1
  253. 8540 print"[145]           "                    :print"           ":goto8620
  254. 8550 z=0
  255. 8560 forx=1tolen(be$)
  256. 8570 x$=mid$(be$,x,1):y=asc(x$)             :ify<>32thenify<65ory>90thenz=1
  257. 8580 nextx
  258. 8590 if z=0thenreturn
  259. 8600 print"[150]! bitte nur buchstaben ![154]"     :gosub95
  260. 8610 poke198,0:wait198,1:print"[145]                        "
  261. 8615 print"                        "
  262. 8620 fe=1:return
  263. 10000 :
  264. 10100 rem                                         --- fehlerkanal abfragen ---
  265. 10110 open3,8,15
  266. 10120 input#3,x,x$:ifx=63then10140
  267. 10130 ifx>0thenprint"[150]error"x": "x$"[154]"       :gosub95:poke198,0:wait198,1
  268. 10140 close3
  269. 10150 return
  270. 11000 rem                                         --- edit / ende ---
  271.