1 POKE53281,0:POKE53280,0:POKE788,52:GOSUB5000:GOSUB4000 2 C=2314:GOSUB9:PRINT"< SPACE >":POKE198,0:WAIT198,1:PRINT"[147]" 5 GOSUB20:GOTO50 6 REM---------------------------------- 7 REM CURSOR POSITIONIEREN ->C: ZEILE*100 + SPALTE 9 POKE214,C/100:POKE211,C-PEEK(214)*100:SYS58732:RETURN 17 REM--------------------------------- 18 REM INITIALISIERUNG UND ERSTELLUNG DES SPIELFELDES 20 DIMR(12),V(3,12),W(15),H(3),S(3),K(5),A(3) 25 W$=" [194][194][194][194][194][194][194][194][194][194][194][194]":C=2003:GOSUB9 30 PRINT"[176][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][178][192][192][174]":FORK=2TO12:C=3*K-2-INT(K/10)+2100 35 GOSUB9:PRINT"[158]"K:NEXT:PRINT"[145]"W$:PRINT" [171][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][219][192][192][179] 40 [153]W$:[153]" /TANTAN>TANTAN>TANTAN>TANTAN>TANTAN>TANTAN>TANTAN>TANTAN>TANTAN>TANTAN>TANTANEXP";:[142] 47 [143]--------------------------------- 48 [143] HAUPTSCHLEIFE 50 [141]100 60 [129]K[178]1[164]3:[139]H(K)[178]8[167]2000 70 [130]:[137]50 97 [143]--------------------------------- 98 [143] WUERFELRUNDE 100 [129]K[178]1[164]5:K(K)[178][181](6[172][187](1))[170]1:C[178]100[170]K[172]6:[141]9 110 [145]K(K)[141]400,410,420,430,440,450 120 [130]:[153]"TOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTOTO" 127 [143]-------------------------------- 128 [143] TEST, WIEVIELE STREICHZAHLEN MOEGLICH SIND (0,1,MEHR) 129 [143] R: VORHERIGE SZ (WG. DOPPELTER!) <-A=0,A=1; A>1 => MEHRERE SZ! 130 A[178]0:R[178]0:[129]K[178]1[164]5:[129]L[178]1[164]AN 140 [139]K(K)[178]S(L)[175]R[179][177]L[167]A[178]A[170]1:R[178]L:W[178]K 150 [130]L,K:[139]AN[179]3[167]190 159 [143] WENN NUR EINE STREICHZAHL, DANN W=WUERFELNR. & R:SZ-NR. 160 [139]A[178]1[167]K(W)[178]K(5):[141]500:H(R)[178]H(R)[170]1:[141]700:[142] 170 [139]A[178]0[167][141]1100:[142] 189 [143] BERECHNUNG ALLER PAARE IN V(R,I) (STREICHZAHL -> K(5) !) 190 [129]R[178]1[164]AN:A(R)[178]0:[129]K[178]1[164]5 200 [139]S(R)[178]K(K)[167]K(K)[178]K(5):[141]600:A(R)[178]A:K(5)[178]K(K):K(K)[178]S(R):K[178]5 210 [130]K,R 247 [143]-------------------------------- 248 [143] AUSGABE ALLER MOEGLICHEN PAARE 250 Z[178]0:[129]K[178]1[164]AN 260 [139]A(K)[178]0[167]290 270 Z[178]1:[129]L[178]1[164]A(K):C[178]600[170]L[172]200[170]K[172]12[171]9:[141]9 280 [153]"OPEN"L"CMD)"V(K,L)"/"V(K,L[170]A(K)):[130] 290 [130]:[139]Z[167]C[178]1411:[141]9:[153]"LISTMOEGLICHE PAARE" 297 [143]-------------------------------- 298 [143] AUSWERTUNG EINGABE STREICHZAHL 300 E$[178]"CONTSTREICHZAHL":A[178]6:[141]1005 310 Z[178]1:[129]K[178]1[164]5:[139]K(K)[178]E[167]Z[178]0:K(K)[178]K(5):K(5)[178]E:K[178]5 315 [130]:[139]Z[167][141]510:[137]300 320 [139]AN[179]3[167][139]E[179][177]S(1)[175]E[179][177]S(2)[167]S(AN[170]1)[178]E 330 Z[178]1:R[178]3:[129]K[178]1[164]R:[139]E[178]S(K)[167]Z[178]0:H(K)[178]H(K)[170]1:R[178]K 340 [130]:[139]Z[167][141]520:[137]300 350 [139]AN[178]3[176]R[179][178]AN[167]390 360 [141]1600:C[178]1809:[141]9:[153]"DEFNEUE STREICHZAHL:"S(R):[141]700:[141]1600 370 [139]E[178]0[167]S(AN[170]1)[178]0:H(AN[170]1)[178]0:[137]250 380 AN[178]AN[170]1:[139]AN[178]3[167][141]460 385 [142] 390 A[178]A(R):[139]A[178]1[167][141]1300:[142] 395 [141]1000:[141]800:[142] 397 [143]-------------------------------- 398 [143] AUSGABE DER WUERFEL 400 [153]"FOR CMDCMDCMD (null) CMDCMDCMD ":[142] 410 [153]"(null) CMDCMDCMD CMDCMDCMD (null)":[142] 420 [153]"CLR(null) CMDCMDCMD (null) CMDCMDCMD (null)":[142] 430 [153]"(null) (null)CMDCMDCMD CMDCMDCMD(null) (null)":[142] 440 [153]"(null) (null)CMDCMDCMD (null) CMDCMDCMD(null) (null)":[142] 450 [153]"SYS(null) (null)CMDCMDCMD(null) (null)CMDCMDCMD(null) (null)":[142] 458 [143] ------------------------------- 459 [143] ORDNEN DER STREICHZAHLEN 460 [129]K[178]1[164]2:[129]L[178]K[170]1[164]3 470 [139]S(K)[177]S(L)[167]H[178]S(K):S(K)[178]S(L):S(L)[178]H:H[178]H(K):H(K)[178]H(L):H(L)[178]H 480 [130]L,K:[141]850:[142] 497 [143]-------------------------------- 498 [143] MELDUNGEN (500/510/520) 499 [143] LOESCHEN EINER MELDUNG (550) 500 C[178]1804:[141]9:[153]"CONTDIE EINZIGE STREICHZAHL ISTSYS"S(R)"CONT!":[142] 510 C[178]1803:[141]9:[153]"OPENHAHA, SIE HABEN KEINESYS"E"OPENGEWUERFELT !":[137]550 520 C[178]1800:[141]9:[153]"OPEN"E"SYSIST KEINE STREICHZAHL,OPENSIE SCHUMMLER!" 550 [129]K[178]1[164]2000:[130]:[153]"ON ":[142] 597 [143]-------------------------------- 598 [143] MOEGLICHE PAARE BILDEN 599 [143] ->R:STREICHZAHLNUMMER; <-A:ANZAHL DER MOEGLICHKEITEN 600 V(R,1)[178]K(1)[170]K(2):V(R,4)[178]K(3)[170]K(4) 610 V(R,2)[178]K(1)[170]K(3):V(R,5)[178]K(2)[170]K(4) 620 V(R,3)[178]K(1)[170]K(4):V(R,6)[178]K(2)[170]K(3) 630 X[178]0:[129]K[178]1[164]3:M[178]V(R,K):N[178]V(R,K[170]3) 640 [141]900:[130] 650 [141]950:[142] 697 [143]-------------------------------- 698 [143] AUSGABE PAARE BEI EINER SZ. 700 [129]K[178]1[164]1500:[130]:[141]1600 710 [141]600:[141]1200:[142] 797 [143]-------------------------------- 798 [143] NEUEN SPIELSTAND ANZEIGEN (VORHER R(I) ENTSPR. ERHOEHEN) 799 [143] UP 850: STREICHZAHLEN ANZEIGEN 800 R(V(R,E))[178]R(V(R,E))[170]1:R(V(R,A[170]E))[178]R(V(R,A[170]E))[170]1 810 [141]1600:[129]K[178]2[164]12 820 C[178]3[172]K[171]2[171][180]([181](R(K)[173]10))[170]2300:[141]9 830 [151]646,((R(K)[178]0)[171](R(K)[179]5)[171]4[172](R(K)[177]4)):[153]R(K) 840 [130]:C[178]2300:[141]9:[153]""W$ 850 [129]K[178]1[164]3:[139]S(K)[178]0[167]870 860 C[178]604[170]K[172]12[171]10:[141]9:[153]"SYS"S(K)"CMD WAIT OPEN("[201]([196](H(K)),1)")" 870 [130]:[142] 897 [143]-------------------------------- 898 [143] DOPPELTE PAARE AUSMERZEN (UP900: VORBEREITUNG) 899 [143] ->M,N: ZAHLENPAAR -> W(I) -> V(R,I)/V(R,I+A): ZAHLENPAAR 900 [139]M[177]N[167]H[178]M:M[178]N:N[178]H 910 X[178]X[170]1:W(X)[178]M[172]100[170]N:[142] 950 A[178]1:[129]K[178]2[164]X:Z[178]1:[129]L[178]1[164]A:[139]W(K)[178]W(L)[167]Z[178]0 960 [130]:[139]Z[167]A[178]A[170]1:W(A)[178]W(K) 970 [130] 980 [129]K[178]1[164]A:V(R,K)[178][181](W(K)[173]100):V(R,A[170]K)[178]W(K)[171]V(R,K)[172]100 990 [130]:[142] 997 [143]-------------------------------- 998 [143] ZIFFERNEINGABE (1000/1005) 999 [143] ->E$: FRAGE; A: MAXIMALZAHL <-E: ZAHL 1000 E$[178]"SYSWELCHES PAAR" 1005 C[178]1811:[141]9:[153]E$" ?  WAIT CMDCMD"; 1010 [151]198,0:[146]198,1:[161]A$:E[178][197](A$):[139]A$[177]")"[175]A$[179]"a"[167][153]A$; 1020 [151]198,0:[146]198,1:[161]A$:[139]A$[179][177][199](13)[167]1005 1030 [139]E[177]A[176](E[179]1[175](AN[178]3[176]R[179][178]AN))[167]1005 1040 [142] 1097 [143]------------------------------- 1098 [143] FREIWURF 1100 R[178]0:C[178]1814:[141]9:[153]"FREIWURF!":[141]550 1105 A[178]0:[129]K[178]1[164]4:[129]L[178]K[170]1[164]5:A[178]A[170]1:V(0,A)[178]K(K)[170]K(L):[130]L,K 1110 [140]:X[178]0:[129]K[178]1[164]4:[129]L[178]1[164]3:[135]M:M[178]V(0,M):N[178]V(0,K):[141]900:[130]L,K 1120 [129]K[178]5[164]7:M[178]V(0,15[171]K):N[178]V(0,K):[141]900:[130] 1130 X[178]15:[141]950:[141]1200:[142] 1197 [143]------------------------------- 1198 [143] AUSGABE MOEGLICHE PAARE UND EINGABE PAARNUMMER 1199 [143] ->A: ANZAHL DER PAARE <-E: NUMMER DES PAARES 1200 [139]A[178]1[175]AN[178]3[167][141]1300:[142] 1210 C[178]1011:[141]9:[153]"LISTMOEGLICHE PAARE:":T[178]6:[139]A[179]4[167]T[178]12 1220 [129]K[178]1[164]A:[139]K[178]A[173]2[170]1[175]A[177]3[167]C[178]1100:[141]9:T[178]19 1230 [153][163]T)"OPEN"K"CMD) "V(R,K)"/"V(R,A[170]K):[130]:[141]1000 1240 [139]E[167][141]800 1250 [142] 1297 [143]------------------------------- 1298 [143] NUR EIN PAAR MOEGLICH! E=1: NUMMER DES PAARES 1300 C[178]1802:[141]9:[153]"CONT EINZIG MOEGLICHES PAAR IST :FOR"V(R,1)"/FOR"V(R,2) 1310 [129]K[178]1[164]1500:[130]:E[178]1:[141]800:[142] 1597 [143]------------------------------- 1598 [143] LOESCHEN DES SPIELFELDES MIT ODER OHNE PAUSE VORHER 1600 C[178]700:[141]9:[129]K[178]1[164]13:[153]" " 1610 [130]:[142] 1997 [143]------------------------------- 1998 [143] ENDE EINES SPIELS 2000 [129]K[178]1[164]999:[130]:[153]"LOADDAS WAR IHR SYSLETZTERWAIT WURF IN DIESEM SPIEL" 2010 [153][163]51)"KOMMEN WIR NUN ZUR":[153][163]13)"AUSWERTUNG..." 2015 [129]K[178]1[164]1500:[130] 2020 T[178]2:[129]K[178]2[164]12:S[178]0:[139]R(K)[177]0[175]R(K)[179]5[167]S[178][171]20 2030 [139]R(K)[177]5[167]H[178][182](K[171]7):S[178](H[170]3[171]2[172](H[178]5))[172](R(K)[171]5) 2040 [139]K[178]8[167]C[178]700:[141]9:T[178]22 2050 S$[178][201](" "[170][196](S),3) 2060 [153][163]T[171][195]([196](K)))""K"PRINT#:SYS"[201]([196](R(K)),2)"OPEN =CLR"S$"DEF PUNKTE" 2070 SU[178]SU[170]S:[130] 2080 [153][163]128)"INSGESAMT "SU"CMD PUNKTE":[153][163]14)"CONT< SPACE >" 2090 [161]A$:[139]A$[179][177]" "[167]2090 2100 [141]3000:[141]4000:C[178]2206:[141]9:[153]"CONTNOCHMAL SPIELEN < J / N >" 2110 [151]198,0:[146]198,1:[161]A$:[139]A$[178]"N"[167][158]64738 2120 [153]"LOAD":[156]:[137]5 2997 [143]------------------------------- 2998 [143] NEUER HIGHSCORE ? WENN JA, DANN NAMENSEINGABE 3000 H[178]0:[129]K[178]1[164]10:[139]SU[177][194](827[170]K)[167]H[178]K:K[178]10 3005 [130]:[139]H[178]0[167][142] 3010 [129]K[178]1[164]10[171]H:[151]838[171]K,[194](837[171]K):[130]:[151]827[170]H,SU 3015 [139]H[179]10[167][151]983,H[172]10[170]60:[158]982 3020 [153]"LOAD":C[178]1002:[141]9:[153]"DEFGRATULIERE, NEUER HIGHSCORE!" 3030 [153]" SIE ERREICHTEN PLATZSYS"H"DEF!" 3040 [153]"CONT GEBEN SIE IHREN NAMEN EIN:" 3050 C[178]1428:[141]9:[153]"..........":C[178]1428:[141]9 3060 [129]K[178]1[164]10 3070 [151]198,0:[146]198,1:[161]A$:[139]A$[178][199](20)[167]K[178]10:[130]:[137]3050 3080 [139]A$[179]" "[176]A$[177]"_"[176]A$[178][199](34)[167]3070 3090 [153]A$;:[151]827[170]10[172]H[170]K,[198](A$) 3100 [130]:[151]198,0:[146]198,1:[161]A$:[139]A$[179][177][199](13)[167]3050 3110 [153]"STOP":[158]938:[142] 3997 [143]------------------------------- 3998 [143] AUSGABE HIGHSCORES 4000 [153]"LOAD"[163]14)"SYSHIGHSCORES" 4010 [129]K[178]1[164]10:C[178]K[172]200[170]6:[141]9:[151]646,K 4020 [153][194](827[170]K)"PUNKTE : "; 4030 [129]L[178]1[164]10:[153][199]([194](827[170]K[172]10[170]L));:[130]L 4040 [153]"WAIT":[130]K 4050 [142] 4997 [143]------------------------------- 4998 [143] TITELBILD AUSGEBEN UND HIGHSCORES LADEN 5000 [153]"LOAD"[199](142)[199](8):[153][163]13)"PRINT SYS CLR OPEN " 5001 [153][163]13)"PRINT SYS  CLR OPEN  " 5002 [153][163]13)"PRINT SYS  CLR OPEN  " 5003 [153][163]13)"PRINT SYS  CLR OPEN  " 5004 [153][163]13)"PRINT SYS CLR OPEN " 5009 [153]"SYS   OPEN  CONT   PRINT  CLR  SYS" 5010 [153]"SYS   OPEN  CONT    PRINT  CLR  SYS" 5020 [153]"    OPEN  CONT   PRINT  CLR SYS" 5030 [153]"  OPEN  CONT   PRINT  CLR  SYS" 5040 [153]"   OPEN CONT    PRINT  CLR  " 5045 [153][163]7)"WRITTEN AND PERFORMED BY" 5050 [153]"FOR OPEN  DEF SYS LIST " 5060 [153]"FOR OPEN   DEF  SYS LIST " 5070 [153]"FOR  OPEN   DEF SYS LIST " 5080 [153]"FOR  OPEN   DEF SYS LIST " 5090 [153]"FOR OPEN  DEF SYS LIST "; 5100 [158]57812"WUERFELN.SC",8,1:[151]780,0:[158]65493 5110 [129]K[178]1[164]1500:[130]:K[178][187]([171]TI):[142] 6000 [131]8,9,10,6,7,10,5,7,9,5,6,8 9000 R(I): HAEUFIGKEIT DER AUGENSUMME I 9002 S(3): STREICHZAH[195] 9004 H(I): HAEUFIGKEIT D. STREICHZAHL I 9006 A(I): ANZAHL PAARE BEI STREICHZ. I 9008 V(I,K):ZAH[195]PAARE BEI STREICHZ. I 9010 W(X): PAARE IN KOMPRIMIERTER [129]M 9012 K(5): AUGENZAH[195] BEI EINEM WURF 9014 AN: ZAEHLER FUER STREICHZAH[195] 9016 C: CURS[176][185]ITI[145] 9018 X: MOEGLICHE PAARE (AUCH DOPPELTE) N[176]MAL: 3[173][184]IWURF: 15 9020 Z: UNIVERSALFLAG 9022 A: UNIVERSAL[171]'MAXIMUM' 9024 T: AUSGABETABULA[164]R 9026 W: WUERFELNUMMER 9028 R: STREICHZAHLNUMMER 9030 A$: EINGABEZEICHEN 9032 E: EINGABEVARIABLE 9034 H: HILFSVARIABLE 9036 K,L:SCHLE[139]ENVARIABLE 9038 S: PUNKTZAHL PRO AUGENSUMME 9040 S$: [129]MATIERTE PUNKTZAHL 9042 SU: GESAMTPUNKTZAHL