home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 12 / Commodore_Disc_12_19xx_-_de.d64 / dateigenerator (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  8KB  |  274 lines
  1. 0 dim fr$(100,2),an$(100,5),ra(100)
  2. 1 goto500
  3. 2 :
  4. 3 ************************************
  5. 4 *       dateigenerator             *
  6. 5 *      written 1987 by             *
  7. 6 *  --- dieter borchert -----       *
  8. 7 ************************************
  9. 8 :
  10. 9 :
  11. 10 rem get-routine
  12. 20 print"bitte geben sie  "gg$"  ein:
  13. 25 bl$[178]"stopandcmd":[153][199](8);
  14. 40 [153]bl$;
  15. 50 [161]x$:[139]x$[178]""[167]dx[178]0:[137]50
  16. 51 [139]x$[178]"cmd"[167]x$[178][199](20)
  17. 52 [139][195](te$)[177]la[167][141]100:[137]120
  18. 53 [139]x$[178]""[167]x$[178][199](32)
  19. 54 [139]x$[178]"on"[176]x$[178]""[167]50
  20. 55 [139]x$[178][199](20)[175][195](te$)[177]0[167]te$[178][200](te$,[195](te$)[171]1):[153]x$;:[137]40
  21. 56 [139]x$[178][199](20)[167]50
  22. 57 [139]x$[178][199](147)[175][195](te$)[179]1[167]50
  23. 58 [139]x$[178][199](147)[167][153][199](32);:fx[178][195](te$):[129]i1[178]fx[164]0[169][171]1:[153][199](20);:[130]:[141]90:[137]40
  24. 60 [139]x$[178][199](19)[176]x$[178][199](34)[176]x$[178][199](44)[176]x$[178][199](3)[176]x$[178][199](148)[167]50
  25. 61 [139]x$[178]"input"[167]sz[178]1:en$[178]"":te$[178]"":[142]
  26. 64 [139]x$[178][199](13)[167]80
  27. 70 [153]x$;:te$[178]te$[170]x$:[137]40
  28. 80 en$[178]te$:te$[178]"":[153][199](32):[142]
  29. 90 te$[178]"":[142]
  30. 100 [139]x$[178][199](13)[176]x$[178][199](147)[176]x$[178][199](20)[167]dx[178]1
  31. 105 [142]
  32. 120 [139]dx[179][177]0[167]55
  33. 130 [137]50
  34. 400 [143] directory
  35. 401 [153]"load":[159]1,8,0,"$":[151]781,1:[158]65478:[161]a$,a$:e$[178][199](0)
  36. 402 [161]a$,a$,a1$,a2$:[139]st[167][158]65484:[160]1:[137]407
  37. 403 [153][198](a1$[170]e$)[170]256[172][198](a2$[170]e$);
  38. 404 [161]a$,b$:[139]a$[167][153]a$b$;:[137]404
  39. 405 [153]a$:[137]402
  40. 407 [153]"   (taste)
  41. 408 geta$:ifa$=""then408
  42. 409 return
  43. 500 printchr$(142);chr$(8)
  44. 501 poke788,52:poke808,225
  45. 502 x=211:y=214:cs=58732:ifpeek(51356)=169then504
  46. 503 sys(57812)"qm garbage mc",8,1:poke780,0:sys65493
  47. 504 sys51356:fa$(1)="frage aendern":fa$(2)="eine antwort aendern"
  48. 505 fa$(3)="alle antworten aendern":fa$(4)="die richtige antwort aendern"
  49. 1000 poke53280,6:poke53281,6:poke646,1
  50. 1001 print"[147]----------------------------------------";
  51. 1002 print"       quiz - datei - generator"
  52. 1010 print"      (c) 1987 by commodore disc"
  53. 1020 print"----------------------------------------";
  54. 1030 print"aktuelle datei: ";da$;tab(35);en
  55. 1040 print"   1) datei laden / speichern
  56. 1060 [153]"   2) diskettenbefehl / datei aendern"
  57. 1070 [153]"   3) neue datei eingeben
  58. 1080 print"   4) datei ansehen / ergaenzen
  59. 1090 [153]"   5) eintraege loeschen / schluss
  60. 1100 print"----------------------------------------";
  61. 1110 print"  die garbage collection-routine von "
  62. 1111 print" j.varnholdt wurde im 64'er sonderheft"
  63. 1112 print" 7/86  peeks und pokes veroeffentlicht";
  64. 1140 geta$:ifa$=""then1140
  65. 1145 ifa$<"0"ora$>"9"then1140
  66. 1150 onval(a$)gosub2000,2500,3000,4000,5000
  67. 1160 goto1000
  68. 2000 rem daten laden / speichern
  69. 2001 print"[147] (l)aden oder (s)peichern "
  70. 2002 geta$:ifa$=""then2002
  71. 2003 ifa$="[133]"thenreturn
  72. 2004 ifa$<>"l"anda$<>"s"then2002
  73. 2010 print"[147]dateinamen eingeben: ";
  74. 2011 la=15:gosub25
  75. 2012 ifen$=""andda$<>""then2020
  76. 2014 da$=en$:ifright$(da$,4)<>".dat"then2010
  77. 2020 ifa$="l"then2300
  78. 2050 open2,8,2,"@0:"+da$+",s,w"
  79. 2051 open15,8,15:input#15,a,a$:ifa$<>"ok"thenclose2:close15:return
  80. 2060 print#2,en
  81. 2070 fori=1toen
  82. 2075 forj=1to2
  83. 2080 print#2,fr$(i,j)","chr$(13);
  84. 2085 nextj
  85. 2090 nexti
  86. 2100 fori=1toen
  87. 2110 forj=1to5
  88. 2120 print#2,an$(i,j);","chr$(13);
  89. 2130 nextj
  90. 2140 nexti
  91. 2150 fori=1toen
  92. 2160 print#2,ra(i);","chr$(13);
  93. 2170 nexti
  94. 2180 close2:close15
  95. 2190 return
  96. 2300 open2,8,2,da$+",s,r"
  97. 2301 open15,8,15:input#15,a,a$:ifa$<>"ok"thenclose2:close15:return
  98. 2310 input#2,en
  99. 2320 fori=1toen
  100. 2325 forj=1to2
  101. 2330 input#2,fr$(i,j)
  102. 2335 nextj
  103. 2340 nexti
  104. 2350 fori=1toen
  105. 2360 forj=1to5
  106. 2370 input#2,an$(i,j)
  107. 2380 nextj
  108. 2390 nexti
  109. 2400 fori=1toen
  110. 2410 input#2,ra(i)
  111. 2420 nexti
  112. 2430 close2:close15
  113. 2440 return
  114. 2500 rem directory / aendern
  115. 2510 print"[147](d)iskettenbefehl oder":print"(a)endern der datei"
  116. 2520 geta$:ifa$=""then2520
  117. 2521 ifa$="[133]"thenreturn
  118. 2530 ifa$<>"d"anda$<>"a"then2520
  119. 2540 ifa$="d"then6000
  120. 2550 e1=1
  121. 2560 print"[147]----------------------------------------";fr$(e1,1)
  122. 2570 printfr$(e1,2)
  123. 2580 print"----------------------------------------"
  124. 2590 print"frage nummer ";e1:print
  125. 2600 ford=1to5
  126. 2610 printd"[157]) ";an$(e1,d)
  127. 2620 nextd
  128. 2625 print"die richtige antwort ist antwort  ";ra(e1)
  129. 2626 ifsz=1then2650
  130. 2630 print"wollen sie (a)lles oder nur
  131. 2640 [153]"    (e)ine eingabe aendern   ?"
  132. 2650 [161]a$:[139]a$[178]""[167]2650
  133. 2655 [139]a$[178]"input"[167][142]
  134. 2660 [139]a$[178]""[167]e1[178]e1[170]1:[139]e1[177]en[167]e1[178]en:[137]2650
  135. 2661 [139]a$[178]">"[167]e1[178]e1[170]5:[139]e1[177]en[167]e1[178]e1[171]5:[137]2670
  136. 2662 [139]a$[178]"<"[167]e1[178]e1[171]5:[139]e1[179]1[167]e1[178]e1[170]5:[137]2670
  137. 2665 [139]a$[178]"cmd"[167]e1[178]e1[171]1:[139]e1[179]1[167]e1[178]1:[137]2650
  138. 2670 [139]a$[178]""[176]a$[178]"cmd"[176]a$[178]"<"[176]a$[178]">"[167]2560
  139. 2680 [139]sz[178]1[167]2650
  140. 2690 [139]a$[178]"a"[167]2720
  141. 2700 [139]a$[178]"e"[167]2800
  142. 2710 [137]2650
  143. 2720 df[178]1:d1[178]en:en[178]e1:[141]3020:en[178]d1
  144. 2730 [142]
  145. 2800 d1[178]en:en[178]e1:x1[178]1:[151]x,8:[151]y,20:[158]cs:[153]">"
  146. 2805 [129]i[178]1[164]4:[151]x,10:[151]y,19[170]i:[158]cs:[153]fa$(i):[130]
  147. 2810 [161]a$:[139]a$[178]""[167]2810
  148. 2820 [139]a$[178]"on"[175]x1[178]1[167]2810
  149. 2830 [139]a$[178]""[175]x1[178]4[167]2810
  150. 2835 [139]a$[178]"on"[167]x1[178]x1[171]1:[141]2890:[137]2810
  151. 2840 [139]a$[178]""[167]x1[178]x1[170]1:[141]2880:[137]2810
  152. 2850 [139]a$[178]"input"[167][142]
  153. 2860 [139]a$[178][199](13)[167]2900
  154. 2870 [151]x,8:[151]y,18[170]x1:[158]cs:[153]" ":[151]x,8:[151]y,19[170]x1:[158]cs:[153]">":[142]
  155. 2880 [151]x,8:[151]y,18[170]x1:[158]cs:[153]" ":[151]x,8:[151]y,19[170]x1:[158]cs:[153]">":[142]
  156. 2890 [151]x,8:[151]y,20[170]x1:[158]cs:[153]" ":[151]x,8:[151]y,19[170]x1:[158]cs:[153]">":[142]
  157. 2900 [145]x1[137]2920,2940,2960,2980
  158. 2920 [129]i[178]0[164]8:[151]781,i:[158]59903:[130]:gg$[178]"frage "[170][196](en)
  159. 2921 [151]x,0:[151]y,5:[158]cs:[153]"----------------------------------------";
  160. 2922 [151]x,0:[151]y,0:[158]cs:[153]"----------------------------------------";
  161. 2923 [151]x,0:[151]y,7:[158]cs:[153]"bitte geben sie frage ";en;" ein";
  162. 2924 la[178]78:[141]25:fr$(e1,1)[178]en$
  163. 2925 [139]sz[178]1[167]sz[178]0:en[178]d1:[142]
  164. 2926 la[178]78:[151]x,0:[151]y,3:[158]cs:[141]25:fr$(e1,2)[178]en$
  165. 2927 [139]sz[178]1[167]sz[178]0:en[178]d1:[142]
  166. 2928 en[178]d1:[142]
  167. 2940 e3[178]6:[139]fr$(e1,2)[178]""[167]e3[178]e3[171]2
  168. 2941 [129]i[178]0[164]e3:[151]781,i:[158]59903:[130]
  169. 2942 [153]"zu veraendernde antwort: ";
  170. 2943 [161]a$:[139]a$[178]""[167]2943
  171. 2944 [139]a$[178][199](13)[175]e2[177]0[167]2947
  172. 2945 [139]a$[179]"1"[176]a$[177]"5"[167]2943
  173. 2946 [153]a$;"cmd";:e2[178][197](a$):[137]2943
  174. 2947 [129]i[178]8[164]17:[151]781,i:[158]59903:[130]
  175. 2948 [151]x,0:[151]y,10:[158]cs:[153]"----------------------------------------"
  176. 2949 [151]x,0:[151]y,13:[158]cs:[153]"----------------------------------------"
  177. 2950 [151]x,0:[151]y,15:[158]cs:[153]"antwort ";e2
  178. 2951 [151]x,0:[151]y,11:[158]cs:la[178]78:[141]25:an$(e1,e2)[178]en$
  179. 2952 en[178]d1:[142]
  180. 2960 [129]i[178]7[164]16:[151]781,i:[158]59903:[130]
  181. 2961 [129]d[178]1[164]5
  182. 2962 [151]x,0:[151]y,10:[158]cs:[153]"----------------------------------------"
  183. 2963 [151]x,0:[151]y,13:[158]cs:[153]"----------------------------------------"
  184. 2964 [151]x,0:[151]y,15:[158]cs:[153]"antwort ";d
  185. 2965 [151]x,0:[151]y,11:[158]cs:la[178]78:[141]25:an$(e1,d)[178]en$
  186. 2966 [129]i[178]11[164]12:[151]781,i:[158]59903:[130]
  187. 2967 [130]d
  188. 2968 en[178]d1:[142]
  189. 2980 [129]i[178]20[164]24:[151]781,i:[158]59903:[130]
  190. 2981 [151]x,0:[151]y,20:[158]cs:[153]"nummer der richtigen antwort ? ";
  191. 2982 [161]a$:[139]a$[178]""[167]2982
  192. 2983 [139]a$[178][199](13)[175]ra(en)[177]0[175]ra(en)[179]6[167]2986
  193. 2984 [139]a$[179]"1"[176]a$[177]"5"[167]2982
  194. 2985 ra(en)[178][197](a$):[153]ra(en);"cmdcmdcmd";:[137]2982
  195. 2986 en[178]d1:[142]
  196. 3000 [143] neue datei eingeben
  197. 3001 [153]"loadwenn sie eine neue datei eingeben,
  198. 3002 print"dann werden alle daten geloescht."
  199. 3003 print"wollen sie immer noch (j/n) ?"
  200. 3004 geta$:ifa$=""then3004
  201. 3005 ifa$="n"thenreturn
  202. 3006 ifa$="j"then3008
  203. 3007 goto3004
  204. 3008 print"[147]wollen sie die daten vorher noch"
  205. 3009 print"abspeichern  (j/n) ?"
  206. 3010 geta$:ifa$=""then3010
  207. 3011 ifa$="n"then3019
  208. 3012 ifa$="j"thena$="s":gosub2010:goto3019
  209. 3013 goto3010
  210. 3019 la=200:en=1
  211. 3020 print"[147]":gg$="frage "+str$(en)
  212. 3030 pokex,0:pokey,5:syscs:print"----------------------------------------";
  213. 3031 pokex,0:pokey,0:syscs:print"----------------------------------------";
  214. 3035 pokex,0:pokey,7:syscs:print"bitte geben sie frage ";en;" ein";
  215. 3040 la=78:gosub25:fr$(en,1)=en$
  216. 3045 ifsz=1thensz=0:en=en-1:return
  217. 3050 la=78:pokex,0:pokey,3:syscs:gosub25:fr$(en,2)=en$
  218. 3055 ifsz=1thensz=0:en=en-1:return
  219. 3060 ford=1to5
  220. 3070 pokex,0:pokey,10:syscs:print"----------------------------------------"
  221. 3075 pokex,0:pokey,13:syscs:print"----------------------------------------"
  222. 3080 pokex,0:pokey,15:syscs:print"antwort ";d
  223. 3090 pokex,0:pokey,11:syscs:la=78:gosub25:an$(en,d)=en$
  224. 3100 fori=11to12:poke781,i:sys59903:next
  225. 3110 nextd
  226. 3115 pokex,0:pokey,20:syscs:print"nummer der richtigen antwort ? ";
  227. 3116 geta$:ifa$=""then3116
  228. 3117 ifa$=chr$(13)andra(en)>0andra(en)<6then3120
  229. 3118 ifa$<"1"ora$>"5"then3116
  230. 3119 ra(en)=val(a$):printra(en);"[157][157][157]";:goto3116
  231. 3120 print"                (taste)
  232. 3121 [161]a$:[139]a$[178]""[167]3121
  233. 3122 [139]a$[178]"input"[167][142]
  234. 3123 [139]df[178]1[167]df[178]0:[142]
  235. 3125 en[178]en[170]1:[137]3020
  236. 4000 [143] datei ansehen / ergaenzen
  237. 4010 [153]"load(a)nsehen oder (e)rgaenzen "
  238. 4020 [161]a$:[139]a$[178]""[167]4020
  239. 4021 [139]a$[178]"input"[167][142]
  240. 4022 [139]a$[178]"a"[167]4030
  241. 4023 [139]a$[178]"e"[167]4060
  242. 4024 [137]4020
  243. 4030 sz[178]1:[141]2550:sz[178]0:[142]
  244. 4060 en[178]en[170]1:[137]3020
  245. 5000 [143]
  246. 5001 [153]"load(e)intraege loeschen / (s)chluss"
  247. 5008 [161]a$:[139]a$[178]""[167]5008
  248. 5010 [139]a$[178]"e"[175]en[179]1[167][142]
  249. 5011 [139]a$[178]"input"[167][142]
  250. 5012 [139]a$[179][177]"e"[175]a$[179][177]"s"[167]5010
  251. 5013 [139]a$[178]"s"[167][137]7000
  252. 5014 [151]x,2:[151]y,3:[158]cs:[153]"die letzten "
  253. 5015 [153]"  eintraege werden geloescht."
  254. 5016 [151]x,14:[151]y,3:[158]cs:la[178]1:[141]25:an[178][197](en$)
  255. 5017 [129]i[178]en[171]an[170]1[164]en:fr$(i,1)[178]"":fr$(i,2)[178]"":[129]j[178]1[164]5:an$(i,j)[178]"":[130]j
  256. 5018 ra(i)[178]0:[130]i:en[178]en[171]an
  257. 5019 [153]"ok.   (return)"
  258. 5020 [161]a$:[139]a$[179][177][199](13)[167]5020
  259. 5021 [142]
  260. 6000 [143] diskettenbefehl
  261. 6010 [153]"load(d)irectory":[153]"(s)cratch":[153]"(v)alidate":[153]"(q)uit"
  262. 6020 [161]a$:[139]a$[178]""[167]6020
  263. 6021 [139]a$[178]"d"[167][141]400:[137]6010
  264. 6022 [139]a$[178]"s"[167][153]"name des files: ";:la[178]15:[141]25:sc$[178]"s"[170][199](58)[170]en$:[137]6026
  265. 6023 [139]a$[178]"q"[167][142]
  266. 6024 [139]a$[178]"v"[167][159]2,8,15:[152]2,"v":[160]2:[137]6010
  267. 6025 [137]6010
  268. 6026 [159]2,8,15:[152]2,sc$:[160]2:[137]6010
  269. 7000 [153]"load"
  270. 7010 [151]53280,2:[151]53281,2:[151]646,2
  271. 7020 [151]1,55:[153]"load"[170][199](34)[170]"qm zeichensatz"[170][199](34)[170]",8"
  272. 7030 [153]"run"
  273. 7040 [151]631,19:[151]632,13:[151]633,13:[151]198,3:[162]
  274.