home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh3x
/
sh37d.d64
/
solowuerfeln
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
8KB
|
229 lines
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]"LOAD DAS 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
(.txt)
(.txt)