home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 56 / 64er_Magazin_Sonderheft_56_19xx_Markt__Technik_de_Side_B.d64 / toto (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1990-01-01  |  20.0 KB  |  606 lines
  1. 1 ifpeek(49152)+peek(49153)<>88thenload"toto.code",8,8
  2. 10 sys65409:poke53280,0:poke53281,0
  3. 12 sp$="d":uf$="12":fu$="titelbild":gosub3000
  4. 20 sys49161,"programmiert von  nikolaus heusler
  5. 21 [158]49161,"zwengauerweg 18 . 8000 muenchen 71
  6. 22 print:sys49161,"64'er sonderheft #56
  7. 24 [153]:[158]49161,"maerz, april, mai 1990
  8. 26 print:sys49161,"programmversion  v"+uf$
  9. 28 print:sys49161,"(c) nh-250390-arr   ein nss-programm
  10. 30 [158]49161,"alle rechte vorbehalten
  11. 32 print"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]
  12. 40 as[178]8:tm[178]11:[141]3100
  13. 42 [134]mz(12),sb$(as,8),tp(12),kt$(6),ta$(3),eg$(12),kr(12,10,as),tt$(9)
  14. 43 [134]ok(as,10),ri(as,12)
  15. 44 fz[178][198]("to"):ns[178]7:nr[178]11:nk[178]10
  16. 46 wr$[178]"d-mark":de[178]1:g1$[178]"11":g2$[178]"10":g3$[178]" 9":[141]25740
  17. 50 [129]i[178]1[164]12:[135]mz(i):[130]:[131]31,29,31,30,31,30,31,31,30,31,30,31
  18. 51 [129]i[178]1[164]6:[135]kt$(i):[130]:[131]abc,acb,bac,bca,cab,cba
  19. 52 [129]i[178]1[164]9:[135]tt$(i):[130]:[131]b-1,b-2,b-x,abc,acb,bac,bca,cab,cba
  20. 54 ta$(1)[178]"1":ta$(2)[178]"2":ta$(3)[178]"x
  21. 59 fori=1toas:forj=1to8:readsb$(i,j):nextj,i
  22. 60 open15,8,15
  23. 100 tm=1:gosub3100:sys49161,"bitte heutiges datum eingeben
  24. 102 [153]:[158]49161,"  .  .199 "
  25. 104 [153]"on";:[158]49152,2,fz,a$
  26. 106 [139][195](a$)[179]2[176][197](a$)[179]1[176][197](a$)[177]31[167]104
  27. 108 a[178][197](a$):[153]"on";:[158]49152,2,fz,b$
  28. 110 [139][195](b$)[179]2[176][197](b$)[179]1[176][197](b$)[177]12[167]104
  29. 112 [139]a[177]mz([197](b$))[167]104
  30. 114 b[178][197](b$):[153]"on";:[158]49152,1,fz,c$
  31. 116 [139]c$[179]"0"[176]c$[177]"9"[167]114
  32. 118 [139]b[179][177]2[176]c$[178]"2"[176]c$[178]"6"[167]122
  33. 120 [139]a[178]29[167]104
  34. 122 d$[178]a$[170]"."[170]b$[170]".9"[170]c$
  35. 200 fu$[178]"hauptmenue":[141]3000
  36. 210 [153]"     1 - tips eingeben
  37. 212 print"     2 - tippschein ausfuellen
  38. 214 [153]"     3 - spielergebnisse eingeben
  39. 216 print"     4 - tips auswerten
  40. 218 [153]"     5 - service
  41. 220 print"     9 - programmende
  42. 225 [141]3050:[158]49155,"123459
  43. 228 a=peek(2)-48:ifa=9thensys64738
  44. 230 onagosub21000,22000,23000,24000,25000
  45. 240 goto200
  46. 3000 poke53265,11:print"[147][142][152]fussballtoto/auswertung v"uf$" "sp$"  nh-25039
  47. 3001 [151]1063,48:[151]55335,[194](55334)
  48. 3002 [158]49161,fu$:[153]"on"d$[163]31)"f:"[196]([184](0))
  49. 3003 [153]"on"[163]31)[199](148)
  50. 3004 [153]"totototototototototototototototototototototototototototototototototototototototo
  51. 3006 print"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]
  52. 3007 [151]1943,99:[151]56215,[194](56214)
  53. 3008 [153]"":[151]53265,27:[142]
  54. 3050 tm[178]2:[141]3100
  55. 3052 [151]214,19:[158]58732:[153]"     programmwunsch: --> ";:[151]198,.:[142]
  56. 3100 z%[178][194](214):[151]781,24:[158]59903:[151]781,23:[158]59903
  57. 3101 [153]"
  58. 3102 ontmgosub3110,3120,3114,3130,3140,3135,3150,3160,3170,3180,3190
  59. 3108 poke214,z%:sys58732:return
  60. 3110 print"eingabe ueber tastatur
  61. 3112 [153]"<return> - abschluss       <del> - korr":[142]
  62. 3114 [153]"eingabe ueber tastatur     <*> - rueck":[137]3112
  63. 3120 [153]"bitte programm waehlen - ziffer druecken":[142]
  64. 3130 [153]"bitte eingeben: abc, acb, bac, bca, cab
  65. 3131 print"oder cba   <del> = korr   <*> = zurueck":return
  66. 3135 print"bitte taste druecken !
  67. 3136 [153]"<*> - abbruch":[142]
  68. 3140 [153]"frage mit <j> fuer ja oder <n> fuer
  69. 3141 print"nein beantworten!":return
  70. 3150 print"bitte 1, 2 oder x eingeben !
  71. 3152 [153]"<del> - korrektur         <*> - abbruch":[142]
  72. 3160 [153]"<b> - bildschirm       <d> - drucker
  73. 3162 print"<*> - abbruch":return
  74. 3170 print"<z> - ziffern          <b> - buchstaben":goto3162
  75. 3180 print"bitte warten - ausdruck erfolgt!":return
  76. 3190 print"augenblick bitte... computer rechnet !":return
  77. 3200 print:sys49161,"bitte runde eingeben!":tm=3:gosub3100
  78. 3202 print:sys49161,"  /199 "
  79. 3204 print"[145]";:sys49152,2,fz,a$:ifa$="*"thenab=1:return
  80. 3206 iflen(a$)<2orval(a$)<1orval(a$)>52then3204
  81. 3210 print"[145]";:sys49152,1,fz,b$:ifb$="*"thenab=1:return
  82. 3212 ifb$<"0"orb$>"9"then3204
  83. 3214 ab=.:sr$=a$+"/9"+b$:return
  84. 3300 tm=6:gosub3100:poke198,.
  85. 3302 wait198,1:geta$:ifa$="*"thenab=1:return
  86. 3304 ab=.:return
  87. 3400 input#15,f1,f1$,f2,f3
  88. 3402 iff1<2thenok=1:return
  89. 3404 print"diskettenfehler nummer"f1
  90. 3405 print"text: "f1$
  91. 3406 print"track"f2"[157], sektor"f3:tm=6:gosub3100
  92. 3408 print"     1 - nochmal versuchen
  93. 3409 [151]198,.:[153]"     9 - abbruch   --> ";:[158]49155,"19*":ok[178][194](2):[153]
  94. 3410 [139]ok[178]49[167]ok[178][171]1:[142]
  95. 3412 ok[178].:[142]
  96. 3500 [141]3200:[139]ab[167][142]
  97. 3502 [141]3000:[153]
  98. 3503 [158]49161,"bitte datendisk 19"[170][201](sr$,2)[170]" einlegen!
  99. 3504 gosub3300:ifabthenreturn
  100. 3505 print#15,"i":close2:open2,8,2,"toto-data "+sr$+",s,r
  101. 3506 [132]15,f1,f1$,f2,f3:[139]f1[179][177]62[167]3520
  102. 3507 [153]"achtung: zur runde "sr$" wurden noch
  103. 3508 print"[163][163][163][163][163][163][163]  keine tips eingegeben !
  104. 3510 [153]"bitte taste druecken":[151]198,.:[146]198,1:[137]3524
  105. 3520 [139]f1[178].[167]ab[178].:[142]
  106. 3522 [141]3404:[139]ok[178][171]1[167]3502
  107. 3524 [160]2:ab[178]1:[142]
  108. 4000 tm[178]11:[141]3100:[129]j[178]1[164]nk:pt[178]1
  109. 4004 [129]k[178]1[164]nr
  110. 4012 t[178]tp(k):[139]t[177]3[167]4020
  111. 4014 kr(k,j,i)[178]t:[137]4030
  112. 4020 tz$[178][202](sb$(i,pt),j,1):kt$[178]kt$(t[171]3)
  113. 4022 [129]f[178]1[164]3:[139][202](kt$,f,1)[178]tz$[167]4026
  114. 4024 [130]:[153]"systemblock fehlerhaft !":[137]3300
  115. 4026 kr(k,j,i)[178]f:pt[178]pt[170]1
  116. 4030 [130]k,j
  117. 4040 [142]
  118. 4100 [129]j[178]1[164]nk
  119. 4104 [129]k[178]1[164]nr
  120. 4106 eg[178][197](eg$(k)):[139]eg[178].[167]eg[178]3
  121. 4108 [139]kr(k,j,i)[178]eg[167]ok(i,j)[178]1[170]ok(i,j)
  122. 4110 [130]:ri(i,ok(i,j))[178]1[170]ri(i,ok(i,j)):ri(0,ok(i,j))[178]1[170]ri(0,ok(i,j))
  123. 4112 [130]:[142]
  124. 5000 [151]768,185:[159]4,4,0:[152]4,"";:[160]4:[151]768,139:[142]
  125. 5100 tm[178]8:[141]3100
  126. 5101 [153]"  ausgabegeraet ? ";:[158]49155,"bd*":[153][199]([194](2))
  127. 5102 ab[178].:dv[178]4:sa$[178]" ":ce$[178][199](13):[139][194](2)[178]42[167]ab[178]1:[142]
  128. 5104 [139][194](2)[178]66[167]dv[178]3:sa$[178]"":ce$[178]"":[137]3000
  129. 5106 [141]5000:[139]st[178].[167]5110
  130. 5108 [153]"  drucker nicht betriebsbereit!":[141]3300:ab[178]1:[142]
  131. 5110 [153]"  ausdruck gestartet !":tm[178]10:[137]3100
  132. 5200 tm[178]3:[141]3100:[153]"
  133. 5202 print"[145]  von tipschein ";:sys49152,3,fz,a$:ifa$="*"thenab=1:return
  134. 5203 ifval(a$)<1orval(a$)>nsthen5202
  135. 5204 print"":a=val(a$)
  136. 5206 print"[145]  bis tipschein ";:sys49152,3,fz,a$:ifa$="*"thenab=1:return
  137. 5207 ab=.:ifval(a$)<aorval(a$)>nsthen5206
  138. 5208 b=val(a$):return
  139. 5300 close4:open4,dv,qq:return
  140. 5400 print"  bitte geben sie den zu zahlenden ein-
  141. 5402 [153]"  satz pro tipschein in "wr$" ein
  142. 5404 poke198,2*(de-1):poke631,54:poke632,48
  143. 5405 print"  einsatz pro schein ";:sys49152,4,fz,a$:ifa$="*"thenab=1:return
  144. 5406 ab=.:es=val(a$):ifes<1thenprint"[145][145][145]":goto5404
  145. 5408 return
  146. 5410 print#4:print#4,"   ab  einsatz fuer"ns"scheine
  147. 5412 [152]4,"   einsatz:"[201](" "[170][196](ns),3)" x"[201]("      "[170][196](es),8);
  148. 5414 es[178]es[172]ns:[152]4," ="[201]("               "[170][196](es),12)"-
  149. 5416 print#4,spc(28)"-----------
  150. 5418 gv$[178]"gewinn ":sm[178]sm[171]es:s0[178][182](sm):[139]sm[179].[167]gv$[178]"verlust
  151. 5422 print#4,spc(16)"brutto"gv$right$("          "+str$(s0),9)
  152. 5426 print#4:return
  153. 5500 a$=right$("     "+str$(int(a*1000+.5)/10),5)
  154. 5502 ifmid$(a$,4,1)<>"."thena$=right$(a$,3)+".0
  155. 5504 [139][202](a$,3,1)[178]" "[167]a$[178]"  0"[170][201](a$,2)
  156. 5506 [152]4,a$" %":[142]
  157. 10000 [131]bcaaccccab,ccbcaaccaa,ccccbcaacc,aaccccbccc
  158. 10001 [131]aaaaaaaaaa,aaaaaaaaaa,aaaaaaaaaa,aaaaaaaaaa
  159. 10002 [131]abccccccaa,ccababcccc,aaccaaabcc,ccaaccaaab
  160. 10003 [131]aaaaaaaaaa,aaaaaaaaaa,aaaaaaaaaa,aaaaaaaaaa
  161. 10004 [131]aacacccccc,ccacccaaaa,bcccaaccaa,cabaaaaacc
  162. 10005 [131]abacbcbcbc,aaaaaaaaaa,aaaaaaaaaa,aaaaaaaaaa
  163. 10006 [131]aaaacccccc,ccaaccaaaa,aaccaaccaa,ccccaaaacc
  164. 10007 [131]bcbcaaaaaa,aaaabcbcbc,aaaaaaaaaa,aaaaaaaaaa
  165. 10008 [131]aaaaaacccc,ccccaaccaa,ccaaccaacc,aaccccaaaa
  166. 10009 [131]aaaaaaaaaa,bcbcbcaaaa,aaaaaabcbc,aaaaaaaaaa
  167. 10010 [131]ccaaaaaacc,aaccccaacc,aaccaaccaa,ccaaccccaa
  168. 10011 [131]aaaaaaaaaa,aaaaaaaaaa,bcbcbcbcaa,aaaaaaaabc
  169. 10012 [131]ccccaaaaaa,aaaaccccaa,ccaaccaacc,aaccaacccc
  170. 10013 [131]aaaaaaaaaa,aaaaaaaaaa,aaaaaaaaaa,bcbcbcbcbc
  171. 10014 [131]abaaaaaaab,aabaaaaaab,aaabaaaaab,aaaabaaaab
  172. 10015 [131]aaaaabaaab,aaaaaabaab,aaaaaaabab,aaaaaaaabb
  173. 21000 fu$[178]"eingabe tips":[141]3000
  174. 21010 [141]3200:[139]ab[167][142]
  175. 21020 [141]3000:[153]:[158]49161,"bitte bankentips eingeben
  176. 21022 fori=1to12:tp(i)=0:next
  177. 21030 print:print"bankentip   spiel-nr.   tip 1/2/x
  178. 21031 [153]"---------------------------------on
  179. 21032 fori=1to4:print"  nr."i:next
  180. 21034 print"[145][145][145][145][145][145][145]
  181. 21040 [129]i[178]1[164]4
  182. 21042 tm[178]3:[141]3100:[153]"on";:[158]49152,2,fz,a$
  183. 21044 [139]a$[178]"*"[167]21000
  184. 21046 a[178][197](a$):[139]a[179]1[176]a[177]nr[167]21042
  185. 21047 [139]tp(a)[167]21042
  186. 21048 tm[178]7:[141]3100:[153]"on";
  187. 21049 [158]49155,"12x*"[170][199](20)
  188. 21050 [139][194](2)[178]20[176][194](2)[178]42[167][153]:[137]21042
  189. 21052 b[178][194](2)[171]48:[153][199]([194](2)):[139]b[177]2[167]b[178]3
  190. 21054 tp(a)[178]b
  191. 21055 [153]:[153]:[130]
  192. 21060 [141]3000:[153]:[158]49161,"bitte systemzahlen eingeben
  193. 21062 print:print"spiel-nr.   systemtip
  194. 21064 [153]"------------------------":tm[178]4:[141]3100
  195. 21065 [129]i[178]1[164]nr:[153]"   "i[163]12);
  196. 21066 [139]tp(i)[167][153][163]12)"bankentip: "ta$(tp(i)):[137]21068
  197. 21067 [153]"12x
  198. 21068 next:fori=1tonr
  199. 21070 poke214,8+i:sys58732:iftp(i)then21090
  200. 21072 printtab(12)"12x[157][157][157]";:tp$="":t1$="a":t2$="b":t3$="c":forj=1to2
  201. 21074 sys49155,t1$+t2$+t3$+"*"+chr$(20)
  202. 21075 t$=chr$(peek(2)):ift$="*"then21020
  203. 21076 ift$=chr$(20)andtp$>""thenprint"[157]1[145]":goto21072
  204. 21078 ift$=chr$(20)thengosub21900:goto21070
  205. 21080 tp$=tp$+t$:printt$;:ift$=t1$thent1$="
  206. 21082 [139]t$[178]t2$[167]t2$[178]"
  207. 21084 ift$=t3$thent3$="
  208. 21086 [130]:tp$[178]tp$[170]t1$[170]t2$[170]t3$:[153]"cmdcmd"tp$
  209. 21087 [129]j[178]1[164]6:[139]tp$[178]kt$(j)[167]tp(i)[178]j[170]3
  210. 21088 [130]j
  211. 21090 [130]i
  212. 21100 tm[178]5:[141]3100:[158]49158,19,27,"eingaben ok?":[153][163]27)"(ja/nein) ";
  213. 21102 [158]49155,"jn":[139][194](2)[178]78[167][142]
  214. 21110 [141]3000:[153]
  215. 21112 [158]49161,"bitte datendisk 19"[170][201](sr$,2)[170]" einlegen!
  216. 21114 gosub3300:ifabthenreturn
  217. 21120 close2:print#15,"i":open2,8,2,"toto-data "+sr$+",s,r":close2
  218. 21122 input#15,f1,f1$,f2,f3:iff1=62then21200
  219. 21124 iff1=0then21150
  220. 21126 gosub3404:ifok=-1then21110
  221. 21128 return
  222. 21150 print"achtung: fuer die runde "sr$" wurden
  223. 21152 [153]"schon daten gespeichert. sollen diese
  224. 21154 print"ueberschrieben (geloescht) werden?
  225. 21156 [153]"     1 - alte datei ueberschreiben
  226. 21158 print"     9 - abbruch    --> ";
  227. 21160 sys49155,"19*":print:ifpeek(2)<>49thenreturn
  228. 21162 print#15,"s:toto-data "+sr$:gosub3400:ifok=0thenreturn
  229. 21164 ifok=-1then21110
  230. 21166 goto21120
  231. 21200 close2:open2,8,2,"toto-data "+sr$+",s,w
  232. 21202 [141]3400:[139]ok[178][171]1[167]21200
  233. 21204 [139]ok[178].[167][142]
  234. 21206 [152]2,"+":[152]2,"-":[129]i[178]1[164]12:[152]2,tp(i):[130]:[160]2:[141]3400
  235. 21208 [139]ok[178][171]1[167]21200
  236. 21210 [142]
  237. 21900 ii[178]i
  238. 21910 i[178]i[171]1:[139]i[179]1[167]i[178]ii:[142]
  239. 21912 [139]tp(i)[177]3[167]tp(i)[178].:[142]
  240. 21914 [137]21910
  241. 22000 fu$[178]"tippschein ausf.":[141]3000
  242. 22010 [141]3500:[139]ab[167][142]
  243. 22012 [132]2,a$:[139]a$[179][177]"+"[167][153]"datenfehler auf datendisk !
  244. 22014 input#2,a$:fori=1to12:input#2,tp(i):next:close2
  245. 22020 print"tips werden gereiht und sortiert.
  246. 22024 [153]"     1 - ohne unterbrechung
  247. 22026 print"     2 - fortsetzung nach tastendruck
  248. 22028 [153]"     9 - abbruch
  249. 22030 print"um die listen auf dem drucker auszuge-
  250. 22031 tm[178]6:[141]3100
  251. 22032 [153]"ben, bitte <1> waehlen und das naechste
  252. 22033 print"menue abwarten.    --> ";
  253. 22034 sys49155,"129*":ifpeek(2)<>49andpeek(2)<>50thenreturn
  254. 22036 ta=peek(2)-49:gosub3000:print"":sys49161,"bitte warten
  255. 22040 [129]i[178]1[164]ns
  256. 22042 [141]4000:[141]3000:[153]"    kontroll-ausgabe schein nr."i"cmd:
  257. 22044 print:print"   ihr":print"nr tip       zahlenfolgen
  258. 22045 [153]"----------------------------
  259. 22050 forj=1tonr:printright$(str$(j),2)" "tt$(tp(j))"   ";
  260. 22052 fork=1tonk
  261. 22054 printta$(kr(j,k,i))" ";:next:print:next
  262. 22056 iftathengosub3300:ifabthenreturn
  263. 22057 sys49158,13,31,"[164][164][164][164][164][164][164][164][157][157][157][157][157][157][157][157]programm[157][157][157][157][157][157][157][157]rechnet[160]
  264. 22058 [130]i
  265. 22100 [141]3000:[153]"     1 - tippreihen als zahlenfolgen
  266. 22102 print"     2 - tippscheine ausfuellen
  267. 22104 [153]"     3 - tippschein-vorlagen
  268. 22109 print"     9 - hauptmenue
  269. 22110 [141]3050:[158]49155,"1239*
  270. 22112 a=peek(2)-48:ifa>8ora<1thenreturn
  271. 22114 onagosub22200,22400,22600:goto22100
  272. 22200 gosub3000
  273. 22202 gosub5200:ifabthenreturn
  274. 22204 gosub5100:ifabthenreturn
  275. 22210 gosub5300
  276. 22212 fori=atob:ifdv=3andi>athengosub3000
  277. 22213 print#4,"ausgabe tippschein nr."i" ("sr$")"chr$(13)
  278. 22214 print#4,"   ihr":print#4,"nr tip      zahlenfolgen     ("d$")
  279. 22216 [152]4,"----------------------------
  280. 22218 forj=1tonr:print#4,right$(str$(j),2)" "tt$(tp(j))"   ";
  281. 22220 fork=1tonk
  282. 22222 print#4,ta$(kr(j,k,i))" ";:next:print#4:next
  283. 22224 print#4,"----------------------------
  284. 22226 [139]dv[178]3[167][141]3300:[139]ab[167][142]
  285. 22227 [152]4,ce$ce$ce$;
  286. 22228 [130]:[160]4:[142]
  287. 22400 [141]3000
  288. 22402 [141]5200:[139]ab[167][142]
  289. 22404 [141]5000:[139]st[167]5108
  290. 22420 dv[178]4:[141]5300
  291. 22422 [129]i[178]a[164]b:[141]3000
  292. 22424 [153]"  bitte wettschein einlegen!
  293. 22426 print"  drucker-zeilenabstand: 6 lines/inch
  294. 22427 [153]"  druckk.-oberkante = formular-oberk.":[141]3300:[139]ab[167][142]
  295. 22428 di$[178]""[170][199](128)[170][199](128)[170][199](128)[170][199](128)[170]"":[143] fuer mps 803
  296. 22429 tm[178]10:[141]3100
  297. 22430 [129]j[178]1[164]nr:[129]di[178]1[164]3:[152]4," "di$;:[130]:[152]4,di$;
  298. 22432 [129]k[178]1[164]nk
  299. 22434 kr[178]kr(j,k,i):df$[178]" ":[141]22900
  300. 22439 k$[178]k1$[170]di$[170]k2$[170]di$[170]k3$[170]di$
  301. 22440 [152]4,k$;:[130]:[152]4:[130]
  302. 22442 [129]ht[178]1[164]13[171]nr:[152]4:[130]:[152]4,"    "i
  303. 22446 [130]:[142]
  304. 22600 [141]3000
  305. 22602 [141]5200:[139]ab[167][142]
  306. 22604 [141]5000:[139]st[167]5108
  307. 22620 dv[178]4:[141]5300:[153]"  druck auf blanko-papier gestartet
  308. 22622 tm=10:gosub3100:fori=atob:print#4:print#4
  309. 22623 print#4," runde: "sr$"           datum: "d$:print#4,"schein:"i
  310. 22624 print#4:print#4,"diese schablone gibt an, an welchen stellen sie auf dem tipp-
  311. 22625 [152]4,"schein nummer"i"die kreuze machen muessen.
  312. 22626 print#4:print#4,"spiel!tip 1!tip 2!tip 3!tip 4!tip 5!tip 6!tip ";
  313. 22627 print#4,"7!tip 8!tip 9!tip10!":print#4,"-------------";
  314. 22628 print#4,"-----------------------------------------------------
  315. 22630 [129]j[178]1[164]nr:[152]4,[201]("    "[170][196](j),4)" ";
  316. 22632 [129]k[178]1[164]nk
  317. 22634 kr[178]kr(j,k,i):k$[178]"!------
  318. 22636 df$=".":gosub22900
  319. 22637 k$="!"+k1$+" "+k2$+" "+k3$
  320. 22640 print#4,k$;:next:print#4,"!":next
  321. 22642 print#4,"-------------";
  322. 22644 print#4,"-----------------------------------------------------
  323. 22646 [152]4:[152]4:[152]4:[130]:[142]
  324. 22900 k1$[178]df$:k2$[178]df$:k3$[178]df$
  325. 22902 [139]kr[178]1[167]k1$[178]"x":[142]
  326. 22904 [139]kr[178]2[175]de[178]1[167]k3$[178]"x":[142]
  327. 22906 [139]kr[178]2[175]de[178]2[167]k2$[178]"x":[142]
  328. 22908 [139]kr[178]3[175]de[178]1[167]k2$[178]"x":[142]
  329. 22910 [139]kr[178]3[175]de[178]2[167]k3$[178]"x":[142]
  330. 22912 [153]"fehler im programm!!":[144]
  331. 23000 fu$[178]"eingabe ergebnis":[141]3000
  332. 23010 [141]3500:[139]ab[167][142]
  333. 23012 [132]2,a$:[139]a$[179][177]"+"[167][153]"datenfehler auf datendisk !
  334. 23014 input#2,a$:ifa$="-"then23100
  335. 23020 print"achtung: zur runde "sr$" wurden schon
  336. 23022 [153]"tab(tab(tab(tab(tab(tab(tab(  die ergebnisse der spiele ein-
  337. 23024 print"         gegeben.
  338. 23026 [153]"     1 - ergebnisse ueberschreiben
  339. 23028 print"     2 - gespeicherte ergebnisse zeigen":tm=6:gosub3100
  340. 23030 print"     9 - abbruch   --> ";
  341. 23032 sys49155,"129*":ifpeek(2)<49orpeek(2)>50thenclose2:return
  342. 23034 ifpeek(2)=49then23100
  343. 23036 gosub3000:print:sys49161,"gespeicherte ergebnisse: "+sr$
  344. 23038 print:fori=1to12:input#2,a$:next:fori=1to12step2
  345. 23040 input#2,a$:input#2,b$:print"     spiel"itab(14)": "a$tab(23);
  346. 23044 print"spiel"i+1tab(32)": "b$
  347. 23046 next:close2:print"(taste)":poke198,.:wait198,1:poke198,.:goto23000
  348. 23100 close2:gosub3000:sys49161,"bitte spielergebnisse eingeben
  349. 23101 [153]:[158]49161,"runde "[170]sr$
  350. 23102 tm[178]7:[141]3100
  351. 23110 [129]i[178]1[164]nr
  352. 23116 [158]49158,[181]((i[171]1)[173]2)[172]2[170]8,3[170]20[172]((i[171]1)[175]1),"spiel nr. ";
  353. 23118 [153][201](" "[170][196](i),2)":  cmd";:[158]49155,"12x*"[170][199](20)
  354. 23120 [139][194](2)[178]42[167][142]
  355. 23122 [139][194](2)[178]20[175]i[177]1[167]i[178]i[171]1:[137]23116
  356. 23123 [139][194](2)[178]20[167]23116
  357. 23124 eg$(i)[178][199]([194](2)):[153]eg$(i)
  358. 23126 [130]:tm[178]6:[141]3100
  359. 23128 [153]:[158]49161,"eingabe ok ? (j/n)  ":[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";:[158]49155,"jn*
  360. 23130 ifpeek(2)=42thenreturn
  361. 23132 ifpeek(2)=78then23100
  362. 23200 gosub3000:print"    neue daten werden gespeichert...
  363. 23202 [160]2:[159]2,8,2,"toto-data "[170]sr$[170]",s,r":[141]3400:[139]ok[178][171]1[167]23200
  364. 23204 [139]ok[178].[167][142]
  365. 23206 [132]2,a$:[132]2,a$:[129]i[178]1[164]12:[132]2,tp(i):[130]:[160]2
  366. 23210 [152]15,"s:toto-data "[170]sr$:[141]3400:[139]ok[178][171]1[167][153]"onononononononon":[137]23210
  367. 23212 [160]2:[159]2,8,2,"toto-data "[170]sr$[170]",s,w":[141]3400
  368. 23214 [139]ok[178][171]1[167][153]"onononononononon":[137]23212
  369. 23216 [139]ok[178].[167][142]
  370. 23218 [152]2,"+":[152]2,"+":[129]i[178]1[164]12:[152]2,tp(i):[130]:[129]i[178]1[164]12:[152]2,eg$(i):[130]
  371. 23220 [160]2
  372. 23222 [141]3400:[139]ok[178][171]1[167][153]"onononononononon":[137]23210
  373. 23224 [142]
  374. 24000 fu$[178]"auswertung":[141]3000
  375. 24010 [141]3500:[139]ab[167][142]
  376. 24012 [132]2,a$:[139]a$[179][177]"+"[167][153]"datenfehler auf datendisk !
  377. 24014 input#2,a$:ifa$="+"then24020
  378. 24015 print"achtung: zu runde "sr$" wurden noch
  379. 24016 [153]"tab(tab(tab(tab(tab(tab(tab(  keine spiel-ergebnisse einge-
  380. 24017 print"         geben!":goto3300
  381. 24020 fori=1to12:input#2,tp(i):next:fori=1to12:input#2,eg$(i):next
  382. 24022 close2
  383. 24024 gosub3000:print"spiele werden ausgewertet...
  384. 24025 [158]49161,"bitte warten":tm[178]11:[141]3100
  385. 24026 [129]i[178].[164]ns:[129]j[178].[164]nk:ok(i,j)[178].:[130]:[129]j[178].[164]12:ri(i,j)[178].:[130]j,i
  386. 24028 [153]"
  387. 24030 fori=1tons
  388. 24032 print"[145]bearbeite schein"i"[157] von"ns"[157]. "
  389. 24034 gosub4000:gosub4100:next
  390. 24100 gosub3000:print"     1 - tippreihen als zahlenfolgen
  391. 24102 [153]"     2 - trefferzahlen-tabelle
  392. 24104 print"     3 - uebersicht gesamttreffer
  393. 24106 [153]"     4 - gewinnklassen
  394. 24107 print"     5 - ausgabe der gewinnsummen
  395. 24108 [153]"     6 - statistik
  396. 24109 print"     9 - hauptmenue
  397. 24120 [141]3050:[158]49155,"1239*456
  398. 24122 a=peek(2)-48:ifa>8ora<1thenreturn
  399. 24124 onagosub24200,24300,24400,24500,24600,24700:goto24100
  400. 24200 gosub3000
  401. 24202 gosub5200:ifabthenreturn
  402. 24204 gosub5100:ifabthenreturn
  403. 24205 p1=24+nk*(dv-3):p2=nk*(dv-2):p3=6+nk*(dv-3)
  404. 24210 gosub5300
  405. 24211 fori=atob:ifdv=3andi>athengosub3000
  406. 24212 ifdv=3thenpoke214,3:sys58732
  407. 24213 print#4,"ausgabe tippschein nr."i" ("sr$")"ce$
  408. 24214 print#4,spc(10)"("d$")"spc(p2)"aus-":print#4,"   ihr"spc(p1)"wer-
  409. 24215 [152]4,"nr tip      zahlenfolgen"[166]p3)"tung
  410. 24216 ifdv=4thenprint#4,"----------";
  411. 24217 print#4,"----------------------------------
  412. 24218 [129]j[178]1[164]nr:[152]4,[201]([196](j),2)" "tt$(tp(j))"   ";
  413. 24220 [129]k[178]1[164]nk
  414. 24222 [152]4,ta$(kr(j,k,i))" "sa$;:[130]:[152]4,"  "eg$(j):[130]
  415. 24223 [139]dv[178]4[167][152]4,"----------";
  416. 24224 [152]4,"----------------------------------
  417. 24225 print#4,"treffer ";
  418. 24226 forj=1tonk:print#4,right$(str$(ok(i,j)),2)sa$;:next:print#4
  419. 24236 ifdv=3thengosub3300:ifabthenreturn
  420. 24237 print#4,ce$ce$ce$;
  421. 24238 next:close4:return
  422. 24300 gosub3000:print"ausgabe nur auf drucker moeglich!
  423. 24302 [141]5200:[139]ab[167][142]
  424. 24304 [141]5000:[139]st[167]5108
  425. 24306 [153]"druck gestartet
  426. 24310 dv=4:gosub5300:print#4:print#4:print#4,"runde: "sr$"     datum: "d$
  427. 24312 print#4:print#4,"tabellarische auswertung der trefferzahlen
  428. 24314 n%[178]nr:[139]n%[179]5[167]n%[178]5
  429. 24315 [152]4:[152]4,"schein !"[166]n%[172]2[171]10)"anzahl der treffer"[166]n%[172]2[171]9)"!
  430. 24316 kj$="nummer !  1!  2!  3!  4!  5!  6!  7!  8!  9! 10! 11! 12!
  431. 24317 [141]24350
  432. 24318 kj$[178]"--------------------------------------------------------":[141]24350
  433. 24320 [129]i[178]a[164]b:[152]4,[201]("    "[170][196](i),5)"  !";
  434. 24322 [129]j[178]1[164]nr:[152]4,[201]("  "[170][196](ri(i,j)),3)"!";:[130]:[152]4:[130]
  435. 24326 kj$[178]"--------------------------------------------------------":[141]24350
  436. 24328 [152]4,"gesamt !";
  437. 24330 [129]j[178]1[164]nr:[152]4,[201]("  "[170][196](ri(0,j)),3)"!";:[130]:[152]4:[152]4
  438. 24332 [152]4:[152]4:[160]4:[142]
  439. 24350 [152]4,[200](kj$,4[172]nr[170]8):[142]
  440. 24400 [141]3000
  441. 24404 [141]5100:[139]ab[167][142]
  442. 24406 [141]5300
  443. 24412 [152]4,ce$ce$"runde: "sr$"      datum: "d$:[152]4
  444. 24414 [152]4,"          u e b e r s i c h t"ce$
  445. 24416 [152]4,"   gesamttreffer auf"as"tippscheinen":[152]4
  446. 24420 [152]4," "[201](" "[170][196](ri(0,g1)),2);
  447. 24421 [152]4," x "g1$" richtige (gewinnklasse   i)
  448. 24422 print#4," "right$(" "+str$(ri(0,g2)),2);
  449. 24423 print#4," x "g2$" richtige (gewinnklasse  ii)
  450. 24424 [152]4," "[201](" "[170][196](ri(0,g3)),2);
  451. 24425 [152]4," x "g3$" richtige (gewinnklasse iii)
  452. 24428 print#4,ce$"               * * * * *"ce$
  453. 24432 fori=g3-1to1step-1
  454. 24434 print#4,"            "right$(" "+str$(ri(0,i)),2)" x"i"treffer
  455. 24436 [130]:[139]dv[178]4[167][152]4:[152]4:[160]4:[142]
  456. 24438 [160]4:[137]3300
  457. 24500 [141]3000
  458. 24502 [141]5200:[139]ab[167][142]
  459. 24504 [141]5100:[139]ab[167][142]
  460. 24506 [141]5300
  461. 24508 [129]i[178]a[164]b
  462. 24510 [139]a[179][177]i[175]dv[178]3[167][141]3000
  463. 24512 [152]4:[152]4,"runde: "sr$"      datum: "d$:[152]4
  464. 24514 [152]4,"erreichte gewinnklassen: tippschein"i
  465. 24516 [152]4:[152]4,"  gewinnklasse   i ("g1$" richt.):"ri(i,g1)"mal
  466. 24518 print#4:print#4,"  gewinnklasse  ii ("g2$" richt.):"ri(i,g2)"mal
  467. 24520 [152]4:[152]4,"  gewinnklasse iii ("g3$" richt.):"ri(i,g3)"mal
  468. 24522 ifdv=3thengosub3300:ifabthenreturn
  469. 24524 print#4,ce$ce$ce$;
  470. 24526 next:close4:return
  471. 24600 gosub3000
  472. 24602 tm=3:gosub3100:print"  bitte geben sie die einzelgewinne
  473. 24604 [153]"  in "wr$" ein (ganze zahlen)
  474. 24606 print"  wert "g1$" richtige ";:sys49152,8,fz,a$:ifa$="*"thenreturn
  475. 24608 w1=val(a$):ifw1<1thenprint"[145][145][145]":goto24606
  476. 24610 print"  wert "g2$" richtige ";:sys49152,8,fz,a$:ifa$="*"thenreturn
  477. 24612 w2=val(a$):ifw2<1thenprint"[145][145][145]":goto24610
  478. 24614 print"  wert "g3$" richtige ";:sys49152,8,fz,a$:ifa$="*"thenreturn
  479. 24616 w3=val(a$):ifw3<1thenprint"[145][145][145]":goto24614
  480. 24618 gosub5400:ifabthenreturn
  481. 24620 sm=.:gosub5100:ifabthenreturn
  482. 24622 gosub5300
  483. 24624 print#4,ce$ce$"runde: "sr$"      datum: "d$:print#4
  484. 24626 print#4,"ausgabe der gewinnsummen
  485. 24628 [152]4,"gewinnklassen i - iii":[152]4,"in "wr$ce$
  486. 24630 [139]dv[178]3[167][141]3300:[139]ab[167][142]
  487. 24632 [129]i[178]1[164]ns:[139]dv[178]3[167][141]3000
  488. 24634 [152]4:[152]4,"ausgabe schein nr."i
  489. 24636 [152]4,"  gk   i:"[201]("  "[170][196](ri(i,g1)),3);
  490. 24638 [152]4," x"[201]("        "[170][196](w1),8)" =";:h1[178]w1[172]ri(i,g1)
  491. 24640 [152]4,[201]("             "[170][196](h1),9)
  492. 24646 [152]4,"  gk  ii:"[201]("  "[170][196](ri(i,g2)),3);
  493. 24648 [152]4," x"[201]("        "[170][196](w2),8)" =";:h2[178]w2[172]ri(i,g2)
  494. 24650 [152]4,[201]("             "[170][196](h2),9)
  495. 24656 [152]4,"  gk iii:"[201]("  "[170][196](ri(i,g3)),3);
  496. 24658 [152]4," x"[201]("        "[170][196](w3),8)" =";:h3[178]w3[172]ri(i,g3)
  497. 24660 [152]4,[201]("             "[170][196](h3),9)
  498. 24664 [152]4,"  summe dieses tippscheines:";
  499. 24666 [152]4,[201]("             "[170][196](h3[170]h2[170]h1),10)
  500. 24668 sm[178]sm[170]h1[170]h2[170]h3:[139]dv[178]3[167][141]3300:[139]ab[167][142]
  501. 24670 [130]
  502. 24672 [152]4,ce$"---------------------------------------
  503. 24674 print#4,ce$"                summe       ";
  504. 24676 print#4,right$("             "+str$(sm),10)
  505. 24678 gosub5410:print#4:print#4,"  - ";
  506. 24680 ifsm=.thenprint#4,"leider nicht gewonnen! -":goto24690
  507. 24681 ifsm<0thenprint#4,"das war wohl leider nichts! -":goto24690
  508. 24682 ifsm<1000thenprint#4,"immerhin ein kleiner gewinn! -":goto24690
  509. 24684 ifsm<50000thenprint#4,"gratulation zu ihrem gewinn! -":goto24690
  510. 24686 print#4,"gratulation zu dem super-gewinn! -
  511. 24690 [139]dv[178]4[167][152]4:[152]4:[160]4:[142]
  512. 24692 [160]4:[137]3300
  513. 24700 [141]3000
  514. 24702 [153]"  ausgabe nur auf drucker moeglich !
  515. 24704 gosub5000:ifstthen5108
  516. 24708 print"  druck gestartet.
  517. 24710 dv[178]4:[141]5300:tm[178]10:[141]3100:[152]4:[152]4
  518. 24720 [152]4,"runde: "sr$"      datum: "d$:[152]4
  519. 24722 [152]4,"s t a t i s t i k  / auswertung
  520. 24724 print#4:print#4:print#4,"einzel-qualitaet der"ns"scheine":print#4
  521. 24726 print#4,"schein  treffer    quote
  522. 24728 [152]4,"------------------------
  523. 24730 ss=.:fori=1tons:print#4,right$("   "+str$(i),4);
  524. 24732 s=.:forj=1tonk:s=s+ok(i,j):next:print#4,right$("        "+str$(s),9);
  525. 24734 print#4,"    ";:ss=ss+s:a=s/nr/nk:gosub5500:next
  526. 24736 print#4,"------------------------
  527. 24738 [152]4,"gesamt"[201]("     "[170][196](ss),7)"    ";:a[178]ss[173]nr[173]nk[173]ns:[141]5500
  528. 24740 [152]4:[152]4:[152]4,"gesamtauswertung der tippkolonnen
  529. 24742 print#4:s=.:fori=1tonr:print#4,right$(str$(i),2)" treffer:";
  530. 24744 print#4,right$("  "+str$(ri(0,i)),4)" = ";:a=ri(0,i)/nk/ns
  531. 24746 s=s+ri(0,i):gosub5500:next:print#4,"-------------------------
  532. 24748 [152]4,"gesamt:    "[201]("  "[170][196](s),4)" = 100.0 %
  533. 24750 print#4:print#4:print#4,"qualitaet der eingegebenen tips:
  534. 24752 [152]4:[152]4,"        aus-
  535. 24753 print#4,"   ihr  wer-   als
  536. 24754 [152]4,"nr tip  tung  treffer":[152]4,"----------------------
  537. 24756 s=.:forj=1tonr:print#4,right$(str$(j),2)" "tt$(tp(j))"   "eg$(j)"     ";
  538. 24758 iftp(j)>3then24764
  539. 24760 rc=100:ifta$(tp(j))<>eg$(j)thenrc=.
  540. 24762 goto24770
  541. 24764 t=val(eg$(j)):ift<1thent=3
  542. 24766 t$=mid$(tt$(tp(j)),t,1):rc=.:ift$="a"thenrc=100
  543. 24768 ift$="b"thenrc=50
  544. 24770 s=s+rc/100:a=rc/100:gosub5500:next
  545. 24772 print#4,"----------------------
  546. 24774 [152]4,"gesamt:        ";:a[178]s[173]nr:[141]5500:[152]4:[152]4:[152]4:[142]
  547. 25000 fu$[178]"service":[141]3000
  548. 25010 [153]"     1 - anzahl der tippscheine:"ns
  549. 25012 [153]"     2 - anzahl der tippkolonnen:"nk
  550. 25014 [153]"     3 - anzahl der spiele:"nr
  551. 25015 [153]"     4 - sekundaeradresse drucker:"qq
  552. 25016 [153]"     5 - fixe systembloecke zeigen
  553. 25017 print"     6 - moduswahl: momentan ";:ifde=1thenprint"deutsch":goto25019
  554. 25018 print"oesterr.
  555. 25019 [153]"     9 - hauptmenue
  556. 25020 gosub3050:sys49155,"1239*456
  557. 25022 a[178][194](2)[171]48:[139]a[177]8[176]a[179]1[167][142]
  558. 25024 [145]a[141]25200,25300,25400,25500,25600,25700:[137]25000
  559. 25100 [141]3000:[153]"  veraenderung "t$:[153]"  alter wert:"o
  560. 25102 tm[178]3:[141]3100
  561. 25104 [153]"  neuer wert: ";:[158]49152,3,fz,a$:[139]a$[178]""[176]a$[178]"*"[167]k[178]o:[142]
  562. 25106 k[178][197](a$)
  563. 25107 [139]k[177]m[167][153]"  maximalwert"m"cmd nicht ueberschreiten!onononon":[137]25104
  564. 25108 [139]k[179]i[167][153]"  eingabe zu klein!                    onononon":[137]25104
  565. 25109 [139]k[178].[175]a$[178]"0"[167][142]
  566. 25110 [139]k[178].[167][153]"  eingabe formal falsch!               onononon":[137]25104
  567. 25111 [142]
  568. 25200 t$[178]"anzahl tippscheine":m[178]as:i[178]1:o[178]ns:[141]25100:ns[178]k:[142]
  569. 25300 t$[178]"anzahl tippkolonnen":m[178]10:i[178]1:o[178]nk:[141]25100:nk[178]k:[142]
  570. 25400 t$[178]"anzahl spiele":m[178]12:o[178]nr:i[178]1:[141]25100:nr[178]k:[142]
  571. 25500 t$[178]"sekundaeradresse drucker":i[178].:m[178]255:o[178]qq:[141]25100:qq[178]k:[142]
  572. 25600 [141]3000
  573. 25602 [141]5200:[139]ab[167][142]
  574. 25604 tm[178]9:[141]3100:[153]"  ziffern- oder buchstabenanz. ? ";
  575. 25605 [158]49155,"*zb":[153][199]([194](2))
  576. 25606 [139][194](2)[178]42[167][142]
  577. 25608 wb[178][194](2):[141]5100:[139]ab[167][142]
  578. 25610 [141]5300
  579. 25611 [129]i[178]a[164]b:[139]dv[178]3[175]i[177]a[167][141]3000
  580. 25620 [152]4,ce$"ausgabe systemblock tippschein"i:[152]4
  581. 25622 [152]4,[166]17)"1":[152]4,"  spiel 1234567890
  582. 25624 print#4,"  ----------------
  583. 25626 [129]j[178]1[164]nr[171]4:[152]4,"    "j" ";
  584. 25628 [139]wb[178]66[167][152]4,[200](sb$(i,j),nk):[137]25638
  585. 25630 [129]k[178]1[164]nk:k$[178][202](sb$(i,j),k,1)
  586. 25632 [139]k$[178]"a"[167][152]4,"1";:[137]25636
  587. 25633 [139]k$[178]"b"[167][152]4,"2";:[137]25636
  588. 25634 [152]4,"0";
  589. 25636 [130]:[152]4
  590. 25638 [130]:[152]4,"  ----------------"ce$ce$
  591. 25640 [139]dv[178]3[167][141]3300:[139]ab[167][160]4:[142]
  592. 25642 [130]:[160]4:[142]
  593. 25700 [141]3000:[153]"moduswahl:
  594. 25702 print"   1 - deutsch    waehrung  : d-mark
  595. 25704 [153]"                  tippschein: 1 0 2
  596. 25706 print"                  spiele    : 11
  597. 25708 [153]"   2 - oesterr.   waehrung  : schilling
  598. 25710 print"                  tippschein: 1 2 0
  599. 25712 [153]"                  spiele    : 12":tm[178]6:[141]3100
  600. 25714 [153]" bitte waehlen ! --> ";:[151]198,.
  601. 25716 [158]49155,"12*":[139][194](2)[178]42[167][142]
  602. 25718 [139][194](2)[178]49[167]25730
  603. 25720 wr$[178]"schilling":de[178]2:nr[178]12:g1$[178]"12":g2$[178]"11":g3$[178]"10":sp$[178]"a":[137]25740
  604. 25730 wr$[178]"d-mark":de[178]1:nr[178]11:g1$[178]"11":g2$[178]"10":g3$[178]" 9":sp$[178]"d
  605. 25740 g1=val(g1$):g2=val(g2$):g3=val(g3$):return
  606.