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 >
Wrap
Commodore BASIC
|
2022-10-26
|
21KB
|
606 lines
1 ifpeek(49152)+peek(49153)<>88thenload"toto.code",8,8
10 sys65409:poke53280,0:poke53281,0
12 sp$="d":uf$="12":fu$="titelbild":gosub3000
20 sys49161,"programmiert von nikolaus heusler
21 [158]49161,"zwengauerweg 18 . 8000 muenchen 71
22 print:sys49161,"64'er sonderheft #56
24 [153]:[158]49161,"maerz, april, mai 1990
26 print:sys49161,"programmversion v"+uf$
28 print:sys49161,"(c) nh-250390-arr ein nss-programm
30 [158]49161,"alle rechte vorbehalten
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]
40 as[178]8:tm[178]11:[141]3100
42 [134]mz(12),sb$(as,8),tp(12),kt$(6),ta$(3),eg$(12),kr(12,10,as),tt$(9)
43 [134]ok(as,10),ri(as,12)
44 fz[178][198]("to"):ns[178]7:nr[178]11:nk[178]10
46 wr$[178]"d-mark":de[178]1:g1$[178]"11":g2$[178]"10":g3$[178]" 9":[141]25740
50 [129]i[178]1[164]12:[135]mz(i):[130]:[131]31,29,31,30,31,30,31,31,30,31,30,31
51 [129]i[178]1[164]6:[135]kt$(i):[130]:[131]abc,acb,bac,bca,cab,cba
52 [129]i[178]1[164]9:[135]tt$(i):[130]:[131]b-1,b-2,b-x,abc,acb,bac,bca,cab,cba
54 ta$(1)[178]"1":ta$(2)[178]"2":ta$(3)[178]"x
59 fori=1toas:forj=1to8:readsb$(i,j):nextj,i
60 open15,8,15
100 tm=1:gosub3100:sys49161,"bitte heutiges datum eingeben
102 [153]:[158]49161," . .199 "
104 [153]"on";:[158]49152,2,fz,a$
106 [139][195](a$)[179]2[176][197](a$)[179]1[176][197](a$)[177]31[167]104
108 a[178][197](a$):[153]"on";:[158]49152,2,fz,b$
110 [139][195](b$)[179]2[176][197](b$)[179]1[176][197](b$)[177]12[167]104
112 [139]a[177]mz([197](b$))[167]104
114 b[178][197](b$):[153]"on";:[158]49152,1,fz,c$
116 [139]c$[179]"0"[176]c$[177]"9"[167]114
118 [139]b[179][177]2[176]c$[178]"2"[176]c$[178]"6"[167]122
120 [139]a[178]29[167]104
122 d$[178]a$[170]"."[170]b$[170]".9"[170]c$
200 fu$[178]"hauptmenue":[141]3000
210 [153]" 1 - tips eingeben
212 print" 2 - tippschein ausfuellen
214 [153]" 3 - spielergebnisse eingeben
216 print" 4 - tips auswerten
218 [153]" 5 - service
220 print" 9 - programmende
225 [141]3050:[158]49155,"123459
228 a=peek(2)-48:ifa=9thensys64738
230 onagosub21000,22000,23000,24000,25000
240 goto200
3000 poke53265,11:print"[147][142][152]fussballtoto/auswertung v"uf$" "sp$" nh-25039
3001 [151]1063,48:[151]55335,[194](55334)
3002 [158]49161,fu$:[153]"on"d$[163]31)"f:"[196]([184](0))
3003 [153]"on"[163]31)[199](148)
3004 [153]"totototototototototototototototototototototototototototototototototototototototo
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]
3007 [151]1943,99:[151]56215,[194](56214)
3008 [153]"":[151]53265,27:[142]
3050 tm[178]2:[141]3100
3052 [151]214,19:[158]58732:[153]" programmwunsch: --> ";:[151]198,.:[142]
3100 z%[178][194](214):[151]781,24:[158]59903:[151]781,23:[158]59903
3101 [153]"
3102 ontmgosub3110,3120,3114,3130,3140,3135,3150,3160,3170,3180,3190
3108 poke214,z%:sys58732:return
3110 print"eingabe ueber tastatur
3112 [153]"<return> - abschluss <del> - korr":[142]
3114 [153]"eingabe ueber tastatur <*> - rueck":[137]3112
3120 [153]"bitte programm waehlen - ziffer druecken":[142]
3130 [153]"bitte eingeben: abc, acb, bac, bca, cab
3131 print"oder cba <del> = korr <*> = zurueck":return
3135 print"bitte taste druecken !
3136 [153]"<*> - abbruch":[142]
3140 [153]"frage mit <j> fuer ja oder <n> fuer
3141 print"nein beantworten!":return
3150 print"bitte 1, 2 oder x eingeben !
3152 [153]"<del> - korrektur <*> - abbruch":[142]
3160 [153]"<b> - bildschirm <d> - drucker
3162 print"<*> - abbruch":return
3170 print"<z> - ziffern <b> - buchstaben":goto3162
3180 print"bitte warten - ausdruck erfolgt!":return
3190 print"augenblick bitte... computer rechnet !":return
3200 print:sys49161,"bitte runde eingeben!":tm=3:gosub3100
3202 print:sys49161," /199 "
3204 print"[145]";:sys49152,2,fz,a$:ifa$="*"thenab=1:return
3206 iflen(a$)<2orval(a$)<1orval(a$)>52then3204
3210 print"[145]";:sys49152,1,fz,b$:ifb$="*"thenab=1:return
3212 ifb$<"0"orb$>"9"then3204
3214 ab=.:sr$=a$+"/9"+b$:return
3300 tm=6:gosub3100:poke198,.
3302 wait198,1:geta$:ifa$="*"thenab=1:return
3304 ab=.:return
3400 input#15,f1,f1$,f2,f3
3402 iff1<2thenok=1:return
3404 print"diskettenfehler nummer"f1
3405 print"text: "f1$
3406 print"track"f2"[157], sektor"f3:tm=6:gosub3100
3408 print" 1 - nochmal versuchen
3409 [151]198,.:[153]" 9 - abbruch --> ";:[158]49155,"19*":ok[178][194](2):[153]
3410 [139]ok[178]49[167]ok[178][171]1:[142]
3412 ok[178].:[142]
3500 [141]3200:[139]ab[167][142]
3502 [141]3000:[153]
3503 [158]49161,"bitte datendisk 19"[170][201](sr$,2)[170]" einlegen!
3504 gosub3300:ifabthenreturn
3505 print#15,"i":close2:open2,8,2,"toto-data "+sr$+",s,r
3506 [132]15,f1,f1$,f2,f3:[139]f1[179][177]62[167]3520
3507 [153]"achtung: zur runde "sr$" wurden noch
3508 print"[163][163][163][163][163][163][163] keine tips eingegeben !
3510 [153]"bitte taste druecken":[151]198,.:[146]198,1:[137]3524
3520 [139]f1[178].[167]ab[178].:[142]
3522 [141]3404:[139]ok[178][171]1[167]3502
3524 [160]2:ab[178]1:[142]
4000 tm[178]11:[141]3100:[129]j[178]1[164]nk:pt[178]1
4004 [129]k[178]1[164]nr
4012 t[178]tp(k):[139]t[177]3[167]4020
4014 kr(k,j,i)[178]t:[137]4030
4020 tz$[178][202](sb$(i,pt),j,1):kt$[178]kt$(t[171]3)
4022 [129]f[178]1[164]3:[139][202](kt$,f,1)[178]tz$[167]4026
4024 [130]:[153]"systemblock fehlerhaft !":[137]3300
4026 kr(k,j,i)[178]f:pt[178]pt[170]1
4030 [130]k,j
4040 [142]
4100 [129]j[178]1[164]nk
4104 [129]k[178]1[164]nr
4106 eg[178][197](eg$(k)):[139]eg[178].[167]eg[178]3
4108 [139]kr(k,j,i)[178]eg[167]ok(i,j)[178]1[170]ok(i,j)
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))
4112 [130]:[142]
5000 [151]768,185:[159]4,4,0:[152]4,"";:[160]4:[151]768,139:[142]
5100 tm[178]8:[141]3100
5101 [153]" ausgabegeraet ? ";:[158]49155,"bd*":[153][199]([194](2))
5102 ab[178].:dv[178]4:sa$[178]" ":ce$[178][199](13):[139][194](2)[178]42[167]ab[178]1:[142]
5104 [139][194](2)[178]66[167]dv[178]3:sa$[178]"":ce$[178]"":[137]3000
5106 [141]5000:[139]st[178].[167]5110
5108 [153]" drucker nicht betriebsbereit!":[141]3300:ab[178]1:[142]
5110 [153]" ausdruck gestartet !":tm[178]10:[137]3100
5200 tm[178]3:[141]3100:[153]"
5202 print"[145] von tipschein ";:sys49152,3,fz,a$:ifa$="*"thenab=1:return
5203 ifval(a$)<1orval(a$)>nsthen5202
5204 print"":a=val(a$)
5206 print"[145] bis tipschein ";:sys49152,3,fz,a$:ifa$="*"thenab=1:return
5207 ab=.:ifval(a$)<aorval(a$)>nsthen5206
5208 b=val(a$):return
5300 close4:open4,dv,qq:return
5400 print" bitte geben sie den zu zahlenden ein-
5402 [153]" satz pro tipschein in "wr$" ein
5404 poke198,2*(de-1):poke631,54:poke632,48
5405 print" einsatz pro schein ";:sys49152,4,fz,a$:ifa$="*"thenab=1:return
5406 ab=.:es=val(a$):ifes<1thenprint"[145][145][145]":goto5404
5408 return
5410 print#4:print#4," ab einsatz fuer"ns"scheine
5412 [152]4," einsatz:"[201](" "[170][196](ns),3)" x"[201](" "[170][196](es),8);
5414 es[178]es[172]ns:[152]4," ="[201](" "[170][196](es),12)"-
5416 print#4,spc(28)"-----------
5418 gv$[178]"gewinn ":sm[178]sm[171]es:s0[178][182](sm):[139]sm[179].[167]gv$[178]"verlust
5422 print#4,spc(16)"brutto"gv$right$(" "+str$(s0),9)
5426 print#4:return
5500 a$=right$(" "+str$(int(a*1000+.5)/10),5)
5502 ifmid$(a$,4,1)<>"."thena$=right$(a$,3)+".0
5504 [139][202](a$,3,1)[178]" "[167]a$[178]" 0"[170][201](a$,2)
5506 [152]4,a$" %":[142]
10000 [131]bcaaccccab,ccbcaaccaa,ccccbcaacc,aaccccbccc
10001 [131]aaaaaaaaaa,aaaaaaaaaa,aaaaaaaaaa,aaaaaaaaaa
10002 [131]abccccccaa,ccababcccc,aaccaaabcc,ccaaccaaab
10003 [131]aaaaaaaaaa,aaaaaaaaaa,aaaaaaaaaa,aaaaaaaaaa
10004 [131]aacacccccc,ccacccaaaa,bcccaaccaa,cabaaaaacc
10005 [131]abacbcbcbc,aaaaaaaaaa,aaaaaaaaaa,aaaaaaaaaa
10006 [131]aaaacccccc,ccaaccaaaa,aaccaaccaa,ccccaaaacc
10007 [131]bcbcaaaaaa,aaaabcbcbc,aaaaaaaaaa,aaaaaaaaaa
10008 [131]aaaaaacccc,ccccaaccaa,ccaaccaacc,aaccccaaaa
10009 [131]aaaaaaaaaa,bcbcbcaaaa,aaaaaabcbc,aaaaaaaaaa
10010 [131]ccaaaaaacc,aaccccaacc,aaccaaccaa,ccaaccccaa
10011 [131]aaaaaaaaaa,aaaaaaaaaa,bcbcbcbcaa,aaaaaaaabc
10012 [131]ccccaaaaaa,aaaaccccaa,ccaaccaacc,aaccaacccc
10013 [131]aaaaaaaaaa,aaaaaaaaaa,aaaaaaaaaa,bcbcbcbcbc
10014 [131]abaaaaaaab,aabaaaaaab,aaabaaaaab,aaaabaaaab
10015 [131]aaaaabaaab,aaaaaabaab,aaaaaaabab,aaaaaaaabb
21000 fu$[178]"eingabe tips":[141]3000
21010 [141]3200:[139]ab[167][142]
21020 [141]3000:[153]:[158]49161,"bitte bankentips eingeben
21022 fori=1to12:tp(i)=0:next
21030 print:print"bankentip spiel-nr. tip 1/2/x
21031 [153]"---------------------------------on
21032 fori=1to4:print" nr."i:next
21034 print"[145][145][145][145][145][145][145]
21040 [129]i[178]1[164]4
21042 tm[178]3:[141]3100:[153]"on";:[158]49152,2,fz,a$
21044 [139]a$[178]"*"[167]21000
21046 a[178][197](a$):[139]a[179]1[176]a[177]nr[167]21042
21047 [139]tp(a)[167]21042
21048 tm[178]7:[141]3100:[153]"on";
21049 [158]49155,"12x*"[170][199](20)
21050 [139][194](2)[178]20[176][194](2)[178]42[167][153]:[137]21042
21052 b[178][194](2)[171]48:[153][199]([194](2)):[139]b[177]2[167]b[178]3
21054 tp(a)[178]b
21055 [153]:[153]:[130]
21060 [141]3000:[153]:[158]49161,"bitte systemzahlen eingeben
21062 print:print"spiel-nr. systemtip
21064 [153]"------------------------":tm[178]4:[141]3100
21065 [129]i[178]1[164]nr:[153]" "i[163]12);
21066 [139]tp(i)[167][153][163]12)"bankentip: "ta$(tp(i)):[137]21068
21067 [153]"12x
21068 next:fori=1tonr
21070 poke214,8+i:sys58732:iftp(i)then21090
21072 printtab(12)"12x[157][157][157]";:tp$="":t1$="a":t2$="b":t3$="c":forj=1to2
21074 sys49155,t1$+t2$+t3$+"*"+chr$(20)
21075 t$=chr$(peek(2)):ift$="*"then21020
21076 ift$=chr$(20)andtp$>""thenprint"[157]1[145]":goto21072
21078 ift$=chr$(20)thengosub21900:goto21070
21080 tp$=tp$+t$:printt$;:ift$=t1$thent1$="
21082 [139]t$[178]t2$[167]t2$[178]"
21084 ift$=t3$thent3$="
21086 [130]:tp$[178]tp$[170]t1$[170]t2$[170]t3$:[153]"cmdcmd"tp$
21087 [129]j[178]1[164]6:[139]tp$[178]kt$(j)[167]tp(i)[178]j[170]3
21088 [130]j
21090 [130]i
21100 tm[178]5:[141]3100:[158]49158,19,27,"eingaben ok?":[153][163]27)"(ja/nein) ";
21102 [158]49155,"jn":[139][194](2)[178]78[167][142]
21110 [141]3000:[153]
21112 [158]49161,"bitte datendisk 19"[170][201](sr$,2)[170]" einlegen!
21114 gosub3300:ifabthenreturn
21120 close2:print#15,"i":open2,8,2,"toto-data "+sr$+",s,r":close2
21122 input#15,f1,f1$,f2,f3:iff1=62then21200
21124 iff1=0then21150
21126 gosub3404:ifok=-1then21110
21128 return
21150 print"achtung: fuer die runde "sr$" wurden
21152 [153]"schon daten gespeichert. sollen diese
21154 print"ueberschrieben (geloescht) werden?
21156 [153]" 1 - alte datei ueberschreiben
21158 print" 9 - abbruch --> ";
21160 sys49155,"19*":print:ifpeek(2)<>49thenreturn
21162 print#15,"s:toto-data "+sr$:gosub3400:ifok=0thenreturn
21164 ifok=-1then21110
21166 goto21120
21200 close2:open2,8,2,"toto-data "+sr$+",s,w
21202 [141]3400:[139]ok[178][171]1[167]21200
21204 [139]ok[178].[167][142]
21206 [152]2,"+":[152]2,"-":[129]i[178]1[164]12:[152]2,tp(i):[130]:[160]2:[141]3400
21208 [139]ok[178][171]1[167]21200
21210 [142]
21900 ii[178]i
21910 i[178]i[171]1:[139]i[179]1[167]i[178]ii:[142]
21912 [139]tp(i)[177]3[167]tp(i)[178].:[142]
21914 [137]21910
22000 fu$[178]"tippschein ausf.":[141]3000
22010 [141]3500:[139]ab[167][142]
22012 [132]2,a$:[139]a$[179][177]"+"[167][153]"datenfehler auf datendisk !
22014 input#2,a$:fori=1to12:input#2,tp(i):next:close2
22020 print"tips werden gereiht und sortiert.
22024 [153]" 1 - ohne unterbrechung
22026 print" 2 - fortsetzung nach tastendruck
22028 [153]" 9 - abbruch
22030 print"um die listen auf dem drucker auszuge-
22031 tm[178]6:[141]3100
22032 [153]"ben, bitte <1> waehlen und das naechste
22033 print"menue abwarten. --> ";
22034 sys49155,"129*":ifpeek(2)<>49andpeek(2)<>50thenreturn
22036 ta=peek(2)-49:gosub3000:print"":sys49161,"bitte warten
22040 [129]i[178]1[164]ns
22042 [141]4000:[141]3000:[153]" kontroll-ausgabe schein nr."i"cmd:
22044 print:print" ihr":print"nr tip zahlenfolgen
22045 [153]"----------------------------
22050 forj=1tonr:printright$(str$(j),2)" "tt$(tp(j))" ";
22052 fork=1tonk
22054 printta$(kr(j,k,i))" ";:next:print:next
22056 iftathengosub3300:ifabthenreturn
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]
22058 [130]i
22100 [141]3000:[153]" 1 - tippreihen als zahlenfolgen
22102 print" 2 - tippscheine ausfuellen
22104 [153]" 3 - tippschein-vorlagen
22109 print" 9 - hauptmenue
22110 [141]3050:[158]49155,"1239*
22112 a=peek(2)-48:ifa>8ora<1thenreturn
22114 onagosub22200,22400,22600:goto22100
22200 gosub3000
22202 gosub5200:ifabthenreturn
22204 gosub5100:ifabthenreturn
22210 gosub5300
22212 fori=atob:ifdv=3andi>athengosub3000
22213 print#4,"ausgabe tippschein nr."i" ("sr$")"chr$(13)
22214 print#4," ihr":print#4,"nr tip zahlenfolgen ("d$")
22216 [152]4,"----------------------------
22218 forj=1tonr:print#4,right$(str$(j),2)" "tt$(tp(j))" ";
22220 fork=1tonk
22222 print#4,ta$(kr(j,k,i))" ";:next:print#4:next
22224 print#4,"----------------------------
22226 [139]dv[178]3[167][141]3300:[139]ab[167][142]
22227 [152]4,ce$ce$ce$;
22228 [130]:[160]4:[142]
22400 [141]3000
22402 [141]5200:[139]ab[167][142]
22404 [141]5000:[139]st[167]5108
22420 dv[178]4:[141]5300
22422 [129]i[178]a[164]b:[141]3000
22424 [153]" bitte wettschein einlegen!
22426 print" drucker-zeilenabstand: 6 lines/inch
22427 [153]" druckk.-oberkante = formular-oberk.":[141]3300:[139]ab[167][142]
22428 di$[178]""[170][199](128)[170][199](128)[170][199](128)[170][199](128)[170]"":[143] fuer mps 803
22429 tm[178]10:[141]3100
22430 [129]j[178]1[164]nr:[129]di[178]1[164]3:[152]4," "di$;:[130]:[152]4,di$;
22432 [129]k[178]1[164]nk
22434 kr[178]kr(j,k,i):df$[178]" ":[141]22900
22439 k$[178]k1$[170]di$[170]k2$[170]di$[170]k3$[170]di$
22440 [152]4,k$;:[130]:[152]4:[130]
22442 [129]ht[178]1[164]13[171]nr:[152]4:[130]:[152]4," "i
22446 [130]:[142]
22600 [141]3000
22602 [141]5200:[139]ab[167][142]
22604 [141]5000:[139]st[167]5108
22620 dv[178]4:[141]5300:[153]" druck auf blanko-papier gestartet
22622 tm=10:gosub3100:fori=atob:print#4:print#4
22623 print#4," runde: "sr$" datum: "d$:print#4,"schein:"i
22624 print#4:print#4,"diese schablone gibt an, an welchen stellen sie auf dem tipp-
22625 [152]4,"schein nummer"i"die kreuze machen muessen.
22626 print#4:print#4,"spiel!tip 1!tip 2!tip 3!tip 4!tip 5!tip 6!tip ";
22627 print#4,"7!tip 8!tip 9!tip10!":print#4,"-------------";
22628 print#4,"-----------------------------------------------------
22630 [129]j[178]1[164]nr:[152]4,[201](" "[170][196](j),4)" ";
22632 [129]k[178]1[164]nk
22634 kr[178]kr(j,k,i):k$[178]"!------
22636 df$=".":gosub22900
22637 k$="!"+k1$+" "+k2$+" "+k3$
22640 print#4,k$;:next:print#4,"!":next
22642 print#4,"-------------";
22644 print#4,"-----------------------------------------------------
22646 [152]4:[152]4:[152]4:[130]:[142]
22900 k1$[178]df$:k2$[178]df$:k3$[178]df$
22902 [139]kr[178]1[167]k1$[178]"x":[142]
22904 [139]kr[178]2[175]de[178]1[167]k3$[178]"x":[142]
22906 [139]kr[178]2[175]de[178]2[167]k2$[178]"x":[142]
22908 [139]kr[178]3[175]de[178]1[167]k2$[178]"x":[142]
22910 [139]kr[178]3[175]de[178]2[167]k3$[178]"x":[142]
22912 [153]"fehler im programm!!":[144]
23000 fu$[178]"eingabe ergebnis":[141]3000
23010 [141]3500:[139]ab[167][142]
23012 [132]2,a$:[139]a$[179][177]"+"[167][153]"datenfehler auf datendisk !
23014 input#2,a$:ifa$="-"then23100
23020 print"achtung: zur runde "sr$" wurden schon
23022 [153]"tab(tab(tab(tab(tab(tab(tab( die ergebnisse der spiele ein-
23024 print" gegeben.
23026 [153]" 1 - ergebnisse ueberschreiben
23028 print" 2 - gespeicherte ergebnisse zeigen":tm=6:gosub3100
23030 print" 9 - abbruch --> ";
23032 sys49155,"129*":ifpeek(2)<49orpeek(2)>50thenclose2:return
23034 ifpeek(2)=49then23100
23036 gosub3000:print:sys49161,"gespeicherte ergebnisse: "+sr$
23038 print:fori=1to12:input#2,a$:next:fori=1to12step2
23040 input#2,a$:input#2,b$:print" spiel"itab(14)": "a$tab(23);
23044 print"spiel"i+1tab(32)": "b$
23046 next:close2:print"(taste)":poke198,.:wait198,1:poke198,.:goto23000
23100 close2:gosub3000:sys49161,"bitte spielergebnisse eingeben
23101 [153]:[158]49161,"runde "[170]sr$
23102 tm[178]7:[141]3100
23110 [129]i[178]1[164]nr
23116 [158]49158,[181]((i[171]1)[173]2)[172]2[170]8,3[170]20[172]((i[171]1)[175]1),"spiel nr. ";
23118 [153][201](" "[170][196](i),2)": cmd";:[158]49155,"12x*"[170][199](20)
23120 [139][194](2)[178]42[167][142]
23122 [139][194](2)[178]20[175]i[177]1[167]i[178]i[171]1:[137]23116
23123 [139][194](2)[178]20[167]23116
23124 eg$(i)[178][199]([194](2)):[153]eg$(i)
23126 [130]:tm[178]6:[141]3100
23128 [153]:[158]49161,"eingabe ok ? (j/n) ":[153]"cmdcmdcmdcmdcmdcmdcmdcmdcmdcmdcmd";:[158]49155,"jn*
23130 ifpeek(2)=42thenreturn
23132 ifpeek(2)=78then23100
23200 gosub3000:print" neue daten werden gespeichert...
23202 [160]2:[159]2,8,2,"toto-data "[170]sr$[170]",s,r":[141]3400:[139]ok[178][171]1[167]23200
23204 [139]ok[178].[167][142]
23206 [132]2,a$:[132]2,a$:[129]i[178]1[164]12:[132]2,tp(i):[130]:[160]2
23210 [152]15,"s:toto-data "[170]sr$:[141]3400:[139]ok[178][171]1[167][153]"onononononononon":[137]23210
23212 [160]2:[159]2,8,2,"toto-data "[170]sr$[170]",s,w":[141]3400
23214 [139]ok[178][171]1[167][153]"onononononononon":[137]23212
23216 [139]ok[178].[167][142]
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]
23220 [160]2
23222 [141]3400:[139]ok[178][171]1[167][153]"onononononononon":[137]23210
23224 [142]
24000 fu$[178]"auswertung":[141]3000
24010 [141]3500:[139]ab[167][142]
24012 [132]2,a$:[139]a$[179][177]"+"[167][153]"datenfehler auf datendisk !
24014 input#2,a$:ifa$="+"then24020
24015 print"achtung: zu runde "sr$" wurden noch
24016 [153]"tab(tab(tab(tab(tab(tab(tab( keine spiel-ergebnisse einge-
24017 print" geben!":goto3300
24020 fori=1to12:input#2,tp(i):next:fori=1to12:input#2,eg$(i):next
24022 close2
24024 gosub3000:print"spiele werden ausgewertet...
24025 [158]49161,"bitte warten":tm[178]11:[141]3100
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
24028 [153]"
24030 fori=1tons
24032 print"[145]bearbeite schein"i"[157] von"ns"[157]. "
24034 gosub4000:gosub4100:next
24100 gosub3000:print" 1 - tippreihen als zahlenfolgen
24102 [153]" 2 - trefferzahlen-tabelle
24104 print" 3 - uebersicht gesamttreffer
24106 [153]" 4 - gewinnklassen
24107 print" 5 - ausgabe der gewinnsummen
24108 [153]" 6 - statistik
24109 print" 9 - hauptmenue
24120 [141]3050:[158]49155,"1239*456
24122 a=peek(2)-48:ifa>8ora<1thenreturn
24124 onagosub24200,24300,24400,24500,24600,24700:goto24100
24200 gosub3000
24202 gosub5200:ifabthenreturn
24204 gosub5100:ifabthenreturn
24205 p1=24+nk*(dv-3):p2=nk*(dv-2):p3=6+nk*(dv-3)
24210 gosub5300
24211 fori=atob:ifdv=3andi>athengosub3000
24212 ifdv=3thenpoke214,3:sys58732
24213 print#4,"ausgabe tippschein nr."i" ("sr$")"ce$
24214 print#4,spc(10)"("d$")"spc(p2)"aus-":print#4," ihr"spc(p1)"wer-
24215 [152]4,"nr tip zahlenfolgen"[166]p3)"tung
24216 ifdv=4thenprint#4,"----------";
24217 print#4,"----------------------------------
24218 [129]j[178]1[164]nr:[152]4,[201]([196](j),2)" "tt$(tp(j))" ";
24220 [129]k[178]1[164]nk
24222 [152]4,ta$(kr(j,k,i))" "sa$;:[130]:[152]4," "eg$(j):[130]
24223 [139]dv[178]4[167][152]4,"----------";
24224 [152]4,"----------------------------------
24225 print#4,"treffer ";
24226 forj=1tonk:print#4,right$(str$(ok(i,j)),2)sa$;:next:print#4
24236 ifdv=3thengosub3300:ifabthenreturn
24237 print#4,ce$ce$ce$;
24238 next:close4:return
24300 gosub3000:print"ausgabe nur auf drucker moeglich!
24302 [141]5200:[139]ab[167][142]
24304 [141]5000:[139]st[167]5108
24306 [153]"druck gestartet
24310 dv=4:gosub5300:print#4:print#4:print#4,"runde: "sr$" datum: "d$
24312 print#4:print#4,"tabellarische auswertung der trefferzahlen
24314 n%[178]nr:[139]n%[179]5[167]n%[178]5
24315 [152]4:[152]4,"schein !"[166]n%[172]2[171]10)"anzahl der treffer"[166]n%[172]2[171]9)"!
24316 kj$="nummer ! 1! 2! 3! 4! 5! 6! 7! 8! 9! 10! 11! 12!
24317 [141]24350
24318 kj$[178]"--------------------------------------------------------":[141]24350
24320 [129]i[178]a[164]b:[152]4,[201](" "[170][196](i),5)" !";
24322 [129]j[178]1[164]nr:[152]4,[201](" "[170][196](ri(i,j)),3)"!";:[130]:[152]4:[130]
24326 kj$[178]"--------------------------------------------------------":[141]24350
24328 [152]4,"gesamt !";
24330 [129]j[178]1[164]nr:[152]4,[201](" "[170][196](ri(0,j)),3)"!";:[130]:[152]4:[152]4
24332 [152]4:[152]4:[160]4:[142]
24350 [152]4,[200](kj$,4[172]nr[170]8):[142]
24400 [141]3000
24404 [141]5100:[139]ab[167][142]
24406 [141]5300
24412 [152]4,ce$ce$"runde: "sr$" datum: "d$:[152]4
24414 [152]4," u e b e r s i c h t"ce$
24416 [152]4," gesamttreffer auf"as"tippscheinen":[152]4
24420 [152]4," "[201](" "[170][196](ri(0,g1)),2);
24421 [152]4," x "g1$" richtige (gewinnklasse i)
24422 print#4," "right$(" "+str$(ri(0,g2)),2);
24423 print#4," x "g2$" richtige (gewinnklasse ii)
24424 [152]4," "[201](" "[170][196](ri(0,g3)),2);
24425 [152]4," x "g3$" richtige (gewinnklasse iii)
24428 print#4,ce$" * * * * *"ce$
24432 fori=g3-1to1step-1
24434 print#4," "right$(" "+str$(ri(0,i)),2)" x"i"treffer
24436 [130]:[139]dv[178]4[167][152]4:[152]4:[160]4:[142]
24438 [160]4:[137]3300
24500 [141]3000
24502 [141]5200:[139]ab[167][142]
24504 [141]5100:[139]ab[167][142]
24506 [141]5300
24508 [129]i[178]a[164]b
24510 [139]a[179][177]i[175]dv[178]3[167][141]3000
24512 [152]4:[152]4,"runde: "sr$" datum: "d$:[152]4
24514 [152]4,"erreichte gewinnklassen: tippschein"i
24516 [152]4:[152]4," gewinnklasse i ("g1$" richt.):"ri(i,g1)"mal
24518 print#4:print#4," gewinnklasse ii ("g2$" richt.):"ri(i,g2)"mal
24520 [152]4:[152]4," gewinnklasse iii ("g3$" richt.):"ri(i,g3)"mal
24522 ifdv=3thengosub3300:ifabthenreturn
24524 print#4,ce$ce$ce$;
24526 next:close4:return
24600 gosub3000
24602 tm=3:gosub3100:print" bitte geben sie die einzelgewinne
24604 [153]" in "wr$" ein (ganze zahlen)
24606 print" wert "g1$" richtige ";:sys49152,8,fz,a$:ifa$="*"thenreturn
24608 w1=val(a$):ifw1<1thenprint"[145][145][145]":goto24606
24610 print" wert "g2$" richtige ";:sys49152,8,fz,a$:ifa$="*"thenreturn
24612 w2=val(a$):ifw2<1thenprint"[145][145][145]":goto24610
24614 print" wert "g3$" richtige ";:sys49152,8,fz,a$:ifa$="*"thenreturn
24616 w3=val(a$):ifw3<1thenprint"[145][145][145]":goto24614
24618 gosub5400:ifabthenreturn
24620 sm=.:gosub5100:ifabthenreturn
24622 gosub5300
24624 print#4,ce$ce$"runde: "sr$" datum: "d$:print#4
24626 print#4,"ausgabe der gewinnsummen
24628 [152]4,"gewinnklassen i - iii":[152]4,"in "wr$ce$
24630 [139]dv[178]3[167][141]3300:[139]ab[167][142]
24632 [129]i[178]1[164]ns:[139]dv[178]3[167][141]3000
24634 [152]4:[152]4,"ausgabe schein nr."i
24636 [152]4," gk i:"[201](" "[170][196](ri(i,g1)),3);
24638 [152]4," x"[201](" "[170][196](w1),8)" =";:h1[178]w1[172]ri(i,g1)
24640 [152]4,[201](" "[170][196](h1),9)
24646 [152]4," gk ii:"[201](" "[170][196](ri(i,g2)),3);
24648 [152]4," x"[201](" "[170][196](w2),8)" =";:h2[178]w2[172]ri(i,g2)
24650 [152]4,[201](" "[170][196](h2),9)
24656 [152]4," gk iii:"[201](" "[170][196](ri(i,g3)),3);
24658 [152]4," x"[201](" "[170][196](w3),8)" =";:h3[178]w3[172]ri(i,g3)
24660 [152]4,[201](" "[170][196](h3),9)
24664 [152]4," summe dieses tippscheines:";
24666 [152]4,[201](" "[170][196](h3[170]h2[170]h1),10)
24668 sm[178]sm[170]h1[170]h2[170]h3:[139]dv[178]3[167][141]3300:[139]ab[167][142]
24670 [130]
24672 [152]4,ce$"---------------------------------------
24674 print#4,ce$" summe ";
24676 print#4,right$(" "+str$(sm),10)
24678 gosub5410:print#4:print#4," - ";
24680 ifsm=.thenprint#4,"leider nicht gewonnen! -":goto24690
24681 ifsm<0thenprint#4,"das war wohl leider nichts! -":goto24690
24682 ifsm<1000thenprint#4,"immerhin ein kleiner gewinn! -":goto24690
24684 ifsm<50000thenprint#4,"gratulation zu ihrem gewinn! -":goto24690
24686 print#4,"gratulation zu dem super-gewinn! -
24690 [139]dv[178]4[167][152]4:[152]4:[160]4:[142]
24692 [160]4:[137]3300
24700 [141]3000
24702 [153]" ausgabe nur auf drucker moeglich !
24704 gosub5000:ifstthen5108
24708 print" druck gestartet.
24710 dv[178]4:[141]5300:tm[178]10:[141]3100:[152]4:[152]4
24720 [152]4,"runde: "sr$" datum: "d$:[152]4
24722 [152]4,"s t a t i s t i k / auswertung
24724 print#4:print#4:print#4,"einzel-qualitaet der"ns"scheine":print#4
24726 print#4,"schein treffer quote
24728 [152]4,"------------------------
24730 ss=.:fori=1tons:print#4,right$(" "+str$(i),4);
24732 s=.:forj=1tonk:s=s+ok(i,j):next:print#4,right$(" "+str$(s),9);
24734 print#4," ";:ss=ss+s:a=s/nr/nk:gosub5500:next
24736 print#4,"------------------------
24738 [152]4,"gesamt"[201](" "[170][196](ss),7)" ";:a[178]ss[173]nr[173]nk[173]ns:[141]5500
24740 [152]4:[152]4:[152]4,"gesamtauswertung der tippkolonnen
24742 print#4:s=.:fori=1tonr:print#4,right$(str$(i),2)" treffer:";
24744 print#4,right$(" "+str$(ri(0,i)),4)" = ";:a=ri(0,i)/nk/ns
24746 s=s+ri(0,i):gosub5500:next:print#4,"-------------------------
24748 [152]4,"gesamt: "[201](" "[170][196](s),4)" = 100.0 %
24750 print#4:print#4:print#4,"qualitaet der eingegebenen tips:
24752 [152]4:[152]4," aus-
24753 print#4," ihr wer- als
24754 [152]4,"nr tip tung treffer":[152]4,"----------------------
24756 s=.:forj=1tonr:print#4,right$(str$(j),2)" "tt$(tp(j))" "eg$(j)" ";
24758 iftp(j)>3then24764
24760 rc=100:ifta$(tp(j))<>eg$(j)thenrc=.
24762 goto24770
24764 t=val(eg$(j)):ift<1thent=3
24766 t$=mid$(tt$(tp(j)),t,1):rc=.:ift$="a"thenrc=100
24768 ift$="b"thenrc=50
24770 s=s+rc/100:a=rc/100:gosub5500:next
24772 print#4,"----------------------
24774 [152]4,"gesamt: ";:a[178]s[173]nr:[141]5500:[152]4:[152]4:[152]4:[142]
25000 fu$[178]"service":[141]3000
25010 [153]" 1 - anzahl der tippscheine:"ns
25012 [153]" 2 - anzahl der tippkolonnen:"nk
25014 [153]" 3 - anzahl der spiele:"nr
25015 [153]" 4 - sekundaeradresse drucker:"qq
25016 [153]" 5 - fixe systembloecke zeigen
25017 print" 6 - moduswahl: momentan ";:ifde=1thenprint"deutsch":goto25019
25018 print"oesterr.
25019 [153]" 9 - hauptmenue
25020 gosub3050:sys49155,"1239*456
25022 a[178][194](2)[171]48:[139]a[177]8[176]a[179]1[167][142]
25024 [145]a[141]25200,25300,25400,25500,25600,25700:[137]25000
25100 [141]3000:[153]" veraenderung "t$:[153]" alter wert:"o
25102 tm[178]3:[141]3100
25104 [153]" neuer wert: ";:[158]49152,3,fz,a$:[139]a$[178]""[176]a$[178]"*"[167]k[178]o:[142]
25106 k[178][197](a$)
25107 [139]k[177]m[167][153]" maximalwert"m"cmd nicht ueberschreiten!onononon":[137]25104
25108 [139]k[179]i[167][153]" eingabe zu klein! onononon":[137]25104
25109 [139]k[178].[175]a$[178]"0"[167][142]
25110 [139]k[178].[167][153]" eingabe formal falsch! onononon":[137]25104
25111 [142]
25200 t$[178]"anzahl tippscheine":m[178]as:i[178]1:o[178]ns:[141]25100:ns[178]k:[142]
25300 t$[178]"anzahl tippkolonnen":m[178]10:i[178]1:o[178]nk:[141]25100:nk[178]k:[142]
25400 t$[178]"anzahl spiele":m[178]12:o[178]nr:i[178]1:[141]25100:nr[178]k:[142]
25500 t$[178]"sekundaeradresse drucker":i[178].:m[178]255:o[178]qq:[141]25100:qq[178]k:[142]
25600 [141]3000
25602 [141]5200:[139]ab[167][142]
25604 tm[178]9:[141]3100:[153]" ziffern- oder buchstabenanz. ? ";
25605 [158]49155,"*zb":[153][199]([194](2))
25606 [139][194](2)[178]42[167][142]
25608 wb[178][194](2):[141]5100:[139]ab[167][142]
25610 [141]5300
25611 [129]i[178]a[164]b:[139]dv[178]3[175]i[177]a[167][141]3000
25620 [152]4,ce$"ausgabe systemblock tippschein"i:[152]4
25622 [152]4,[166]17)"1":[152]4," spiel 1234567890
25624 print#4," ----------------
25626 [129]j[178]1[164]nr[171]4:[152]4," "j" ";
25628 [139]wb[178]66[167][152]4,[200](sb$(i,j),nk):[137]25638
25630 [129]k[178]1[164]nk:k$[178][202](sb$(i,j),k,1)
25632 [139]k$[178]"a"[167][152]4,"1";:[137]25636
25633 [139]k$[178]"b"[167][152]4,"2";:[137]25636
25634 [152]4,"0";
25636 [130]:[152]4
25638 [130]:[152]4," ----------------"ce$ce$
25640 [139]dv[178]3[167][141]3300:[139]ab[167][160]4:[142]
25642 [130]:[160]4:[142]
25700 [141]3000:[153]"moduswahl:
25702 print" 1 - deutsch waehrung : d-mark
25704 [153]" tippschein: 1 0 2
25706 print" spiele : 11
25708 [153]" 2 - oesterr. waehrung : schilling
25710 print" tippschein: 1 2 0
25712 [153]" spiele : 12":tm[178]6:[141]3100
25714 [153]" bitte waehlen ! --> ";:[151]198,.
25716 [158]49155,"12*":[139][194](2)[178]42[167][142]
25718 [139][194](2)[178]49[167]25730
25720 wr$[178]"schilling":de[178]2:nr[178]12:g1$[178]"12":g2$[178]"11":g3$[178]"10":sp$[178]"a":[137]25740
25730 wr$[178]"d-mark":de[178]1:nr[178]11:g1$[178]"11":g2$[178]"10":g3$[178]" 9":sp$[178]"d
25740 g1=val(g1$):g2=val(g2$):g3=val(g3$):return