Zeichensatz UTF-8+Z1013()+CTRL()-ohne Umlaute(äöüß)
1 O.12
2 REM PROGRAMMIDEE UND GESTALTUNG 12.7.1986 KARL-HEINZ DOELL
5 P."COMPUTERWUERFEL =1 eingeben"
6 P.;INP."EIGENER WUERFEL =0 eingeben"R
7 O.12
8 G.900
10 PO.H.(ECCA),83;PO.H.(ECCB),73;PO.H.(ECCC),69
12 PO.H.(ECCE),83;PO.H.(ECCF),80;PO.H.(ECD0),73;PO.H.(ECD1),69
14 PO.H.(ECD2),76;PO.H.(ECD3),84;PO.H.(ECD4),69;PO.H.(ECD5),78
16 PO.H.(ED2D),61;PO.H.(ED32),109;PO.H.(ED33),97
18 PO.H.(ED34),108
20 G.90
50 IF O=1 Q=49
51 IF O=2 Q=50
52 IF O=3 Q=51
53 IF O=4 Q=52
54 IF O=5 Q=53
55 IF O=6 Q=54
56 IF O=7 Q=55
57 IF O=8 Q=56
58 IF O=9 Q=57
59 IF O=10 Q=48
60 IF O=10 X=49
61 IF O=11 Q=49
62 IF O=12 Q=50
65 PO.H.(ED2F),X;PO.H.(ED30),Q
70 RET.
85 G.900
90 PO.H.(1B),H.(00);PO.H.(1C),H.(EC)
91 PO.H.(1D),H.(40);PO.H.(1E),H.(EC)
92 CALL H.(F6D1)
95 PO.H.(ECDA),14;PO.H.(ED37),14
96 PO.H.(ED94),14;PO.H.(EDF1),14
97 PO.H.(EF65),140;PO.H.(EF08),140
98 PO.H.(EEAB),140;PO.H.(EE4E),140
100 Z=196;J=207;H=H.(EC62);I=H.(EFDD)
102 P=3;K=-3;V=0;U=0
103 PO.I,J;PO.H,Z
105 P." ZUG FUER SPIELER 1"
106 N=0;O=0;X=32
107 IF R=0 G.109
108 GOS.800
109 PO.H,Z
110 W=INC.
111 IF R=0 N=12
112 IF W=13 G.505
113 PO.H,32
115 H=H+P
120 IF H=H.(EC7D) P=96
121 IF H=H.(EFDD) P=-3
122 IF H=H.(EFC2) P=-96
123 IF H=H.(EC62) P=99
125 IF H=H.(EE51) P=3
126 IF H=H.(EE51) V=V+1
127 IF H=H.(EE51) H=H.(EC62)
128 IF V=1 PO.H.(ECDA),196
129 IF V=2 PO.H.(ED37),196
130 IF V=3 PO.H.(ED94),196
131 IF V=4 PO.H.(EDF1),196
132 IF V=4 G.200
140 IF H=I K=-3
142 IF H=I I=H.(EFDD)
144 PO.I,207
150 PO.H,Z
152 O=O+1
155 IF O=12 PO.H.(ED30),50
156 IF O=N G.505
157 IF R=0 GOS.50
160 G.110
200 REM
201 PO.H.(1B),0;PO.H.(1C),H.(EC)
202 PO.H.(1D),0;PO.H.(1E),H.(F0)
203 CALLH.(F6D1)
204 O.12
220 F.W=1TO32;O.42;N.W;P.
222 F.W=1TO32;O.203;N.W
224 P.;P.
226 P." HERZLICHEN GLUECKWUNSCH"
228 P.;P.
230 F.W=1TO32;O.203;N.W;P.
232 F.W=1TO32;O.42;N.W
235 P.;P.
237 P."Die Jagd ist zu Ende."
239 P.;P."Der Spieler 1 hat gewonnen."
241 P.;P.
243 F.W=1TO16;O.251;O.32;N.W
245 P.;P.
247 P."Wollen Sie nochmal spielen ?"
249 P."____________________________";P.
250 P."Dann druecken Sie eine Taste."
252 P.
254 P."Bei Spielende >ENTER< druecken."
256 P.
258 F.W=1TO16;O.251;O.32;N.W;P.
260 W=INC.
261 IF W#13 G.1
262 IF W=13 O.12
263 TAB(485)
264 P."AUF WIEDERSEHEN"
266 F.W=1TO2400;N.W
268 O.12;STOP
500 K=-3;J=207;I=H.(EFDD)
502 U=0
505 P.;P." ZUG FUER SPIELER 2 ",
506 N=0;O=0;X=32
507 IF R=0 G.509
508 GOS.800
509 PO.I,J
510 W=INC.
511 IF R=0 N=12
512 IF W=13 G.105
513 PO.I,32
515 I=I+K
520 IF I=H.(EFC2) K=-96
521 IF I=H.(EC62) K=3
522 IF I=H.(EC7D) K=96
523 IF I=H.(EFDD) K=-99
525 IF I=H.(EDEE) K=-3
526 IF I=H.(EDEE) U=U+1
527 IF I=H.(EDEE) I=H.(EFDD)
528 IF U=1 PO.H.(EF65),207
529 IF U=2 PO.H.(EF08),207
530 IF U=3 PO.H.(EEAB),207
531 IF U=4 PO.H.(EE4E),207
532 IF U=4 G.600
540 IF I=H P=3
542 IF I=H H=H.(EC62)
544 PO.H,196
550 PO.I,J
552 O=O+1
555 IF O=12 PO.H.(ED30),50
556 IF O=N G.105
557 IF R=0 GOS.50
560 G.510
600 REM
610 PO.H.(1B),0;PO.H.(1C),H.(EC)
611 PO.H.(1D),0;PO.H.(1E),H.(F0)
612 CALLH.(F6D1)
613 O.12
620 F.W=1TO32;O.203;N.W;P.
622 F.W=1TO32;O.42;N.W
624 P.;P.
626 P." HERZLICHEN GLUECKWUNSCH"
628 P.;P.
630 F.W=1TO32;O.42;N.W
631 P.
632 F.W=1TO32;O.203;N.W
635 P.;P.
637 P."Die Jagd ist zu Ende."
639 P.;P."Der Spieler 2 hat gewonnen."
641 P.;P.
643 F.W=1TO32;O.184;N.W
645 P.;P.
647 P."Wollen Sie nochmal spielen ?"
649 P."____________________________";P.
650 P."Dann druecken Sie eine Taste."
652 P.
654 P."Bei Spielende >ENTER< druecken."
656 P.
658 F.W=1TO32;O.185;N.W;P.
660 W=INC.
661 IF W#13 G.1
662 IF W=13 O.12
663 TAB(485)
664 P."AUF WIEDERSEHEN"
666 F.W=1TO2400;N.W
668 O.12;STOP
800 PO.H.(ED30),32
802 N=RND(6)
803 IF N=1 Q=49
804 IF N=2 Q=50
805 IF N=3 Q=51
806 IF N=4 Q=52
807 IF N=5 Q=53
808 IF N=6 Q=54
810 PO.H.(ED30),Q
812 IF N<6 RET.
815 F.M=1TO2500;N.M
817 PO.H.(ED30),255
818 F.M=1TO2500;N.M
820 L=RND(6)
822 IF L=1 Q=49
823 IF L=2 Q=50
824 IF L=3 Q=51
825 IF L=4 Q=52
826 IF L=5 Q=53
827 IF L=6 Q=54
830 PO.H.(ED30),Q
832 N=N+L
835 RET.
900 GOS.1000
901 GOS.1020;GOS.1020;GOS.1020;GOS.1020;GOS.1020;GOS.1020
902 GOS.1020;GOS.1020;GOS.1020
904 GOS.1030;GOS.1020
906 GOS.1040;GOS.1020;GOS.1030;GOS.1080;GOS.1050;GOS.1080
908 GOS.1030;GOS.1070;GOS.1070;GOS.1070;GOS.1030;GOS.1060
910 GOS.1020;GOS.1060;GOS.1030;GOS.1060;GOS.1020;GOS.1060
912 GOS.1030;GOS.1070;GOS.1070;GOS.1070;GOS.1030;GOS.1080
914 GOS.1050;GOS.1080;GOS.1030;GOS.1020;GOS.1040;GOS.1020
916 GOS.1030;GOS.1020;GOS.1020;GOS.1020;GOS.1020;GOS.1020
918 GOS.1020;GOS.1020;GOS.1020;GOS.1020
920 IF R=0 G.10
950 PO.H.(ED0F),193;PO.H.(ED10),158
952 PO.H.(ED11),137;PO.H.(ED2F),159
954 PO.H.(ED31),192;PO.H.(ED4F),136
956 PO.H.(ED50),248;PO.H.(ED51),200
960 PO.H.(ECCA),73;PO.H.(ECCB),72;PO.H.(ECCC),82
962 PO.H.(ECCE),87;PO.H.(ECCF),85;PO.H.(ECD0),82;PO.H.(ECD1),70
964 PO.H.(ECD3),73;PO.H.(ECD4),83;PO.H.(ECD5),84
999 G.90
1000 A=H.(EC41);B=H.(EC42);C=H.(EC43)
1001 D=H.(EC61);E=H.(EC63)
1002 F=H.(EC81);G=H.(EC82);H=H.(EC83)
1010 PO.A,188;PO.B,182;PO.C,189;PO.D,180;PO.E,181
1011 PO.F,187;PO.G,183;PO.H,186
1015 RET.
1020 A=A+3;B=B+3;C=C+3;D=D+3;E=E+3;F=F+3;G=G+3;H=H+3
1022 G.1010
1030 A=A+69;B=B+69;C=C+69;D=D+69;E=E+69;F=F+69;G=G+69;H=H+69
1032 G.1010
1040 A=A+21;B=B+21;C=C+21;D=D+21;E=E+21;F=F+21;G=G+21;H=H+21
1042 G.1010
1050 A=A+15;B=B+15;C=C+15;D=D+15;E=E+15;F=F+15;G=G+15;H=H+15
1052 G.1010
1060 A=A+12;B=B+12;C=C+12;D=D+12;E=E+12;F=F+12;G=G+12;H=H+12
1062 G.1010
1070 A=A+9;B=B+9;C=C+9;D=D+9;E=E+9;F=F+9;G=G+9;H=H+9;G.1010
1080 A=A+6;B=B+6;C=C+6;D=D+6;E=E+6;F=F+6;G=G+6;H=H+6;G.1010