Quelltext identisch zu [ccb7d1c70c30d846ea57748084a8e18c] Durch Vergleich mit [8055123eb539c021ed5d48cf64f94586] kann man sehen, wie ein Autostart in Tiny-BASIC realisiert wird. Ansonsten wie identisch.

Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)

    1 O.12
    2 REM PROGRAMMIDEE UND GESTALTUNG KARL-HEINZ DOELL 16.09.1986
    5 F.X=1TO32;O.42;N.X;P.
   10 P."*-*-*-*- PUNKTE SAMMELN -*-*-*-*"
   14 F.X=1TO32;O.42;N.X
   16 P.;P.
   20 P."ZWEI SPIELER MUESSEN VERSUCHEN";P.
   22 P."MIT HILFE EINES WUERFELS VIELE";P.
   24 P."PUNKTE WIE MOEGLICH ZU SAMMELN.";P.
   30 P."MAN KANN IN JEDER RUNDE MEHRMALS"
   32 P."WUERFELN UND ABBRECHEN WIE MAN";P.
   34 P."ES WUENSCHT.BEI EINER 6 WIRD DIE"
   36 P."WURFSERIE ABGEBROCHEN UND DIE";P.
   38 P."PUNKTE SIND VERLOREN.ES KOENNEN";P.
   40 P."MAXIMAL 66 PUNKTE ERREICHT";P.
   42 P."WERDEN UND MAXIMAL 10 RUNDEN";P.
   44 P."GEWUERFELT WERDEN."
   46 P.;F.X=1TO32;O.42;N.X
   50 P.;P."SPIELSTART  =  >ENTER<  ",;W=INC.
   55 O.12
  400 INP."ANZAHL DER RUNDEN"P
  405 IF P>10 G.400
  410 INP."GEGEN COMPUTER =1"E
  420 O.12
  450 J=H.(EE02);L=H.(EE14)
  500 REM WUERFEL UND DOSEN
  501 D=0;U=0;M=0;N=0;O=0;Q=48;V=48
  502 PO.H.(EFE0),187;PO.H.(EFE8),186;PO.H.(EFF7),187
  504 PO.H.(EFFF),186;PO.H.(EEE0),188;PO.H.(EEE8),189
  506 PO.H.(EEF7),188;PO.H.(EEFF),189;PO.H.(EE01),171
  508 PO.H.(EE0C),172;PO.H.(EE13),171;PO.H.(EE1E),172
  510 F.X=H.(EFE1)TOH.(EFE7);PO.X,226;N.X
  512 F.X=H.(EFF8)TOH.(EFFE);PO.X,226;N.X
  514 F.X=H.(EF00)TOH.(EFC0)STEP32;PO.X,232;N.X
  516 F.X=H.(EF08)TOH.(EFC8)STEP32;PO.X,244;N.X
  517 F.X=H.(EEF8)TOH.(EEFE);PO.X,238;N.X
  518 F.X=H.(EF17)TOH.(EFD7)STEP32;PO.X,232;N.X
  520 F.X=H.(EF1F)TOH.(EFDF)STEP32;PO.X,244;N.X
  521 F.X=H.(EEE1)TOH.(EEE7);PO.X,238;N.X
  522 F.X=H.(EFE9)TOH.(EF8C)STEP-31;PO.X,144;N.X
  524 F.X=H.(EFF6)TOH.(EF93)STEP-33;PO.X,145;N.X
  526 F.X=H.(EF6D)TOH.(EE6D)STEP-32;PO.X,159;N.X
  528 F.X=H.(EF72)TOH.(EE72)STEP-32;PO.X,192;N.X
  530 F.X=H.(EEC0)TOH.(EE63)STEP-31;PO.X,144;N.X
  532 F.X=H.(EEC9)TOH.(EE6C)STEP-31;PO.X,144;N.X
  534 F.X=H.(EED6)TOH.(EE73)STEP-33;PO.X,145;N.X
  536 F.X=H.(EEDF)TOH.(EE7C)STEP-33;PO.X,145;N.X
  538 F.X=H.(EE44)TOH.(EE4C);PO.X,248;N.X
  540 F.X=H.(EE53)TOH.(EE5B);PO.X,248;N.X
  542 F.X=H.(EE22)TOH.(EE2B);PO.X,158;N.X
  544 F.X=H.(EE34)TOH.(EE3D);PO.X,158;N.X
  545 Y=152;Z=153
  546 PO.H.(EDE1),Y;PO.H.(EDC1),Z;PO.H.(EDA2),Y;PO.H.(ED82),Z
  548 PO.H.(ED63),Y;PO.H.(ED43),Z;PO.H.(ED24),Y;PO.H.(ED04),Z
  549 Y=155;Z=156
  550 PO.H.(ED09),Y;PO.H.(ED29),Z;PO.H.(ED4A),Y;PO.H.(ED6A),Z
  552 PO.H.(ED8B),Y;PO.H.(EDAB),Z;PO.H.(EDCC),Y;PO.H.(EDEC),Z
  553 Y=152;Z=153
  554 PO.H.(EDF3),Y;PO.H.(EDD3),Z;PO.H.(EDB4),Y;PO.H.(ED94),Z
  556 PO.H.(ED75),Y;PO.H.(ED55),Z;PO.H.(ED36),Y;PO.H.(ED16),Z
  557 Y=155;Z=156
  558 PO.H.(ED1B),Y;PO.H.(ED3B),Z;PO.H.(ED5C),Y;PO.H.(ED7C),Z
  560 PO.H.(ED9D),Y;PO.H.(EDBD),Z;PO.H.(EDDE),Y;PO.H.(EDFE),Z
  562 F.X=H.(ECE5)TOH.(ECE8);PO.X,198;N.X
  564 F.X=H.(ECF7)TOH.(ECFA);PO.X,198;N.X
  566 GOS.580;GOS.590
  570 PO.H.(1B),H.(00);PO.H.(1C),H.(EC)
  572 PO.H.(1D),H.(60);PO.H.(1E),H.(EC)
  574 CALL H.(F6D1)
  576 PO.H.(EF2A),82;PO.H.(EF2B),46;PO.H.(EF34),82;PO.H.(EF35),46
  578 G.600
  580 REM DECKEL 1
  582 F.X=H.(ECC5)TOH.(ECC8);PO.X,255;N.X
  584 RET.
  590 REM DECKEL 2
  592 F.X=H.(ECD7)TOH.(ECDA);PO.X,255;N.X
  594 RET.
  600 PO.H.(EE83),83;PO.H.(EE84),80;PO.H.(EE85),73;PO.H.(EE86),69
  602 PO.H.(EE87),76;PO.H.(EE88),69;PO.H.(EE89),82;PO.H.(EEA5),49
  604 PO.H.(EE95),83;PO.H.(EE96),80;PO.H.(EE97),73;PO.H.(EE98),69
  606 PO.H.(EE99),76;PO.H.(EE9A),69;PO.H.(EE9B),82;PO.H.(EEBA),50
 1000 REM SPIELER 1
 1005 B=0;C=0;G=0
 1010 M=M+1
 1020 F.X=H.(EC6F)TOH.(EFEF)STEP32;PO.X,190;N.X
 1025 Q=Q+1
 1030 PO.H.(EF6A),Q
 1100 REM
 1101 O.12
 1102 P.">>>>  SIE HABEN",#3,C," PUNKTE  <<<<"
 1105 P."               "
 1110 P."    WUERFELN = ENTER    ",;W=INC.
 1130 PO.H.(EF22),32;PO.H.(EF26),32;PO.H.(EF62),32;PO.H.(EF66),32
 1132 PO.H.(EF64),32;PO.H.(EFA2),32;PO.H.(EFA6),32
 1150 F.X=H.(EC6F)TOH.(EFEF)STEP32;PO.X,190;N.X
 1160 G=G+1
 1200 REM WUERFELN
 1212 IF W#13 G.2000
 1213 N=N+1
 1215 A=RND(6)
 1216 GOS.32100
 1217 B=A
 1218 C=C+B
 1220 F.X=H.(EC6F)TOH.(EFEF)STEP32;PO.X,32;N.X
 1221 F.X=H.(EC70)TOH.(EFF0)STEP32;PO.X,32;N.X
 1222 IF A=1 G.3000
 1224 IF A=2 G.3020
 1226 IF A=3 G.3040
 1228 IF A=4 G.3060
 1230 IF A=5 G.3080
 1232 IF A=6 G.4000
 2000 REM BETRAG
 2001 IF G=1 G=0;G.1100
 2003 D=D+C
 2005 F.X=H.(ECC5)TOH.(ECC8);PO.X,32;N.X
 2007 PO.H.(ECC8),191;PO.H.(ECA8),143;PO.H.(ECA7),191
 2008 PO.H.(EC87),143;PO.H.(EC86),191;PO.H.(EC66),143
 2010 F.X=1TOC
 2011 OUT(1)=H.(CF);OUT(1)=0
 2012 PO.H.(EC60),207;PO.H.(EC61),207;PO.H.(EC60),32
 2013 OUT(1)=H.(CF);OUT(1)=255
 2014 PO.H.(EC82),207;PO.H.(EC61),32;PO.H.(EC83),207
 2016 PO.H.(EC82),32;PO.H.(ECA4),207;PO.H.(EC83),32
 2018 PO.H.(ECA5),207;PO.H.(ECA4),32;PO.H.(ECC6),207
 2020 PO.H.(ECA5),32;PO.H.(ECC6),32
 2022 PO.J,42
 2024 IF J=H.(EE0B) J=H.(EDE1)
 2026 IF J=H.(EDEB) J=H.(EDC1)
 2028 IF J=H.(EDCB) J=H.(EDA2)
 2030 IF J=H.(EDAA) J=H.(ED82)
 2032 IF J=H.(ED8A) J=H.(ED63)
 2034 IF J=H.(ED69) J=H.(ED43)
 2036 IF J=H.(ED49) J=H.(ED24)
 2038 IF J=H.(ED28) J=H.(ED04)
 2040 IF J=H.(ED08) G.10000
 2042 J=J+1;N.X
 2050 PO.H.(EC66),32;PO.H.(EC86),32;PO.H.(EC87),32
 2052 PO.H.(ECA7),32;PO.H.(ECA8),32;PO.H.(ECC8),32
 2054 GOS.580
 2060 O.12
 2065 P.
 2070 F.X=H.(EC6F)TOH.(EFEF)STEP32;PO.X,32;N.X
 2080 G.5000
 3000 PO.H.(EF64),207;G.1100
 3020 PO.H.(EF22),207;PO.H.(EFA6),207;G.1100
 3040 PO.H.(EF22),207;PO.H.(EF64),207;PO.H.(EFA6),207;G.1100
 3060 PO.H.(EF22),207;PO.H.(EF26),207
 3062 PO.H.(EFA2),207;PO.H.(EFA6),207;G.1100
 3080 PO.H.(EF22),207;PO.H.(EF26),207;PO.H.(EF64),207
 3082 PO.H.(EFA2),207;PO.H.(EFA6),207;G.1100
 4000 PO.H.(EF22),207;PO.H.(EF62),207;PO.H.(EFA2),207
 4002 PO.H.(EF26),207;PO.H.(EF66),207;PO.H.(EFA6),207
 4010 O.12
 4020 P." JA DA HATTEN SIE PECH "
 4022 P.
 4025 P.">>>DIESE RUNDE WAR UMSONST<<<",
 4030 F.W=1TO2000;N.W
 4040 F.X=H.(EC6F)TOH.(EFEF)STEP32;PO.X,197;N.X
 4045 F.X=H.(EC70)TOH.(EFF0)STEP32;PO.X,151;N.X
 4050 G.2060
 5000 REM SPIELER 2
 5005 S=0;T=0;G=0
 5015 F.X=H.(EC70)TOH.(EFF0)STEP32;PO.X,143;N.X
 5020 V=V+1
 5030 PO.H.(EF75),V
 5100 O.12
 5101 IFE=1P."COMPUTER HAT",#3,T," PUNKTE";F.W=1TO1000;N.W;G.5130
 5102 P."}}}}  SIE HABEN",#3,T," PUNKTE  {{{{"
 5105 P."               "
 5110 P."    WUERFELN = ENTER    ",;W=INC.
 5130 PO.H.(EF39),32;PO.H.(EF3D),32;PO.H.(EF79),32;PO.H.(EF7B),32
 5132 PO.H.(EF7D),32;PO.H.(EFB9),32;PO.H.(EFBD),32
 5150 F.X=H.(EC70)TOH.(EFF0)STEP32;PO.X,143;N.X
 5160 IF E=1 G.32000
 5170 G=G+1
 5200 REM WUERFELN
 5212 IF W#13 G.6000
 5213 O=O+1
 5215 R=RND(6)
 5216 GOS.32200
 5217 S=R
 5218 T=T+S
 5220 F.X=H.(EC70)TOH.(EFF0)STEP32;PO.X,32;N.X
 5221 F.X=H.(EC6F)TOH.(EFEF)STEP32;PO.X,32;N.X
 5222 IF R=1 G.7000
 5224 IF R=2 G.7020
 5226 IF R=3 G.7040
 5228 IF R=4 G.7060
 5230 IF R=5 G.7080
 5232 IF R=6 G.8000
 6000 REM BETRAG
 6001 IF G=1 G=0;G.5100
 6003 U=U+T
 6005 F.X=H.(ECD7)TOH.(ECDA);PO.X,32;N.X
 6007 PO.H.(ECD7),142;PO.H.(ECB7),190;PO.H.(ECB8),142
 6008 PO.H.(EC98),190;PO.H.(EC99),142;PO.H.(EC79),190
 6010 F.X=1TOT
 6011 OUT(1)=H.(CF);OUT(1)=0
 6012 PO.H.(EC7F),207;PO.H.(EC7E),207;PO.H.(EC7F),32
 6013 OUT(1)=H.(CF);OUT(1)=255
 6014 PO.H.(EC9D),207;PO.H.(EC7E),32;PO.H.(EC9C),207
 6016 PO.H.(EC9D),32;PO.H.(ECBB),207;PO.H.(EC9C),32
 6018 PO.H.(ECBA),207;PO.H.(ECBB),32;PO.H.(ECD9),207
 6020 PO.H.(ECBA),32;PO.H.(ECD9),32
 6022 PO.L,42
 6024 IF L=H.(EE1D) L=H.(EDF3)
 6026 IF L=H.(EDFD) L=H.(EDD3)
 6028 IF L=H.(EDDD) L=H.(EDB4)
 6030 IF L=H.(EDBC) L=H.(ED94)
 6032 IF L=H.(ED9C) L=H.(ED75)
 6034 IF L=H.(ED7B) L=H.(ED55)
 6036 IF L=H.(ED5B) L=H.(ED36)
 6038 IF L=H.(ED3A) L=H.(ED16)
 6040 IF L=H.(ED1A) G.20000
 6042 L=L+1;N.X
 6050 PO.H.(EC79),32;PO.H.(EC99),32;PO.H.(EC98),32
 6052 PO.H.(ECB8),32;PO.H.(ECB7),32;PO.H.(ECD7),32
 6054 GOS.590
 6058 IF M=P G.30000
 6060 O.12
 6065 P.
 6070 F.X=H.(EC70)TOH.(EFF0)STEP32;PO.X,32;N.X
 6080 G.1000
 7000 PO.H.(EF7B),207;G.5100
 7020 PO.H.(EF39),207;PO.H.(EFBD),207;G.5100
 7040 PO.H.(EF39),207;PO.H.(EF7B),207;PO.H.(EFBD),207;G.5100
 7060 PO.H.(EF39),207;PO.H.(EF3D),207
 7062 PO.H.(EFB9),207;PO.H.(EFBD),207;G.5100
 7080 PO.H.(EF39),207;PO.H.(EF3D),207;PO.H.(EF7B),207
 7082 PO.H.(EFB9),207;PO.H.(EFBD),207;G.5100
 8000 PO.H.(EF39),207;PO.H.(EF3D),207;PO.H.(EF79),207
 8002 PO.H.(EF7D),207;PO.H.(EFB9),207;PO.H.(EFBD),207
 8010 O.12
 8015 IF E=1 G.32040
 8020 P." JA DA HATTEN SIE PECH "
 8022 P.
 8025 P."\\\DIESE RUNDE WAR UMSONST////",
 8030 F.W=1TO2000;N.W
 8035 IF M=P G.30000
 8040 F.X=H.(EC70)TOH.(EFF0)STEP32;PO.X,197;N.X
 8045 F.X=H.(EC6F)TOH.(EFEF)STEP32;PO.X,148;N.X
 8050 G.6060
10000 REM GEWINNER 1
10005 PO.H.(1B),H.(00);PO.H.(1C),H.(EC)
10010 PO.H.(1D),H.(00);PO.H.(1E),H.(F0)
10015 CALL H.(F6D1)
10020 O.12
10022 P.;P.;P.
10025 F.X=1TO32;O.203;N.X;P.;P.
10030 P."  HERZLICHEN GLUECKWUNSCH  "
10035 P.;P.
10040 P."SPIELER 1 SIE HABEN DIESES SPIEL"
10045 P."MIT",#3,N," WUERFEN IN",#3,M," RUNDEN"
10048 P.
10050 P."ERFOLGREICH ABGESCHLOSSEN !!!"
10052 P.;P.
10054 F.X=1TO32;O.217;N.X
10055 P.;P.
10056 IF E=1 P."DER COMPUTER ERREICHTE NUR",#3,U;P.
10057 IF E=1 P."PUNKTE BEI",#3,O," WUERFEN !";G.10075
10060 P."IHR GEGNER ERREICHTE MIT",#3,O
10062 P.
10065 P."WUERFEN IN DER SELBEN ZEIT NUR"
10067 P.
10070 P.#3,U," PUNKTE."
10075 P.;P.;P.
10090 F.X=1TO32;O.203;N.X
10100 P.;P.
10105 P."NOCH EINMAL SPIELEN J/N ",;W=INC.
10110 IF W=74 O.12;G.400
10115 G.30100
20000 REM GEWINNER 2
20005 PO.H.(1B),H.(00);PO.H.(1C),H.(EC)
20010 PO.H.(1D),H.(00);PO.H.(1E),H.(F0)
20015 CALL H.(F6D1)
20020 O.12
20022 P.;P.;P.
20025 F.X=1TO32;O.204;N.X;P.;P.
20030 P."  HERZLICHEN GLUECKWUNSCH  ";P.;P.
20031 IF E=1 P."FUER MICH SELBST,DENN ICH HABE";P.
20032 P."SIE MIT",#3,O," WUERFEN IN",#3,M," RUNDEN"
20033 P.
20034 P."BESIEGT.  BITTE NICHT AERGERN !";G.20050
20035 P."SPIELER 2 SIE HABEN DIESES SPIEL"
20040 P."MIT",#3,O," WUERFEN IN",#3,M," RUNDEN"
20042 P.
20045 P."HERVORRAGEND GEWONNEN !!!"
20050 P.;P.;F.X=1TO32;O.217;N.X;P.;P.
20052 IF E=1 P."SIE ERREICHTEN LEIDER NUR",#3,D;P.
20053 IF E=1 P."PUNKTE MIT HILFE VON",#3,N," WUERFEN.";G.20070
20055 P."IHR GEGNER ERREICHTE MIT",#3,N
20058 P.
20060 P."WUERFEN IN DER GLEICHEN ZEIT NUR"
20065 P.#3,D," PUNKTE.
20070 P.;P.
20075 F.X=1TO32;O.204;N.X
20080 P.;P.
20100 P."NOCH EINMAL SPIELEN J/N ",;W=INC.
20105 IF W=74 O.12;G.400
20110 G.30100
30000 REM RUNDENENDE
30010 PO.H.(1B),H.(00);PO.H.(1C),H.(EC)
30015 PO.H.(1D),H.(00);PO.H.(1E),H.(F0)
30020 CALL H.(F6D1)
30025 O.12
30027 P.;P.
30030 F.X=1TO32;O.205;N.X
30035 P.;P."DIE VEREINBARTEN",#3,P," RUNDEN SIND"
30040 P.;P."ABGELAUFEN MIT FOLGENDEN";P.
30045 P."ERGEBNIS:";P.;P.
30050 F.X=1TO32;O.126;N.X;P.
30055 P."SPIELER 1 HAT",#3,N," mal GEWUERFELT"
30057 P.
30060 P."UND DABEI",#3,D," PUNKTE ERREICHT."
30062 P.;P.;F.X=1TO32;O.46;N.X
30064 P.;P.
30065 IF E=1 P."DER COMPUTER HATTE",#3,O," WUERFE";P.
30066 IF E=1 P."MIT INSGESAMT",#3,U," PUNKTEN.";G.30080
30070 P."SPIELER 2 HAT",#3,O," mal GEWUERFELT"
30072 P.
30075 P."UND DABEI",#3,U," PUNKTE ERREICHT."
30080 P.;P.
30085 F.X=1TO32;O.205;N.X;P.;P.
30090 P."NOCH EINMAL SPIELEN J/N ",;W=INC.
30095 IF W=74 O.12;G.400
30100 O.12;F.X=1TO15;P.;N.X
30105 P." AUF WIEDERSEHEN "
30110 F.X=1TO15;P.;N.X
30120 STOP
32000 REM COMPUTER
32007 G=G+1
32010 F=RND(7)
32012 IF G=1 F=RND(6)
32013 GOS.32290
32015 S=F
32016 IF F=7 G.6000
32018 O=O+1
32020 T=T+S
32025 F.X=H.(EC70)TOH.(EFF0)STEP32;PO.X,32;N.X
32030 IF F=1 G.7000
32032 IF F=2 G.7020
32034 IF F=3 G.7040
32036 IF F=4 G.7060
32038 IF F=5 G.7080
32039 IF F=6 G.8000
32040 P."NA SO EIN PECH";P.
32045 P."DAS MIR DAS PASSIEREN MUSS ?",
32047 F.W=1TO3000;N.W
32048 IF M=P G.30000
32050 G.6060
32100 POKEHEX(7600),A;CALL(HEX(7601));RET.
32200 POKEHEX(7600),R;CALL(HEX(7601));RET.
32290 IFF=7RET.
32300 POKEHEX(7600),F;CALL(HEX(7601));RET.