10 REM STRADENK================C64
20 REM (P) COMMODORE DISC
30 REM ===========================
40 REM (C) BY E.-W. WOLTERS   V3.5
50 REM (V) A.M.               V2.0
60 REM
70 REM BASIC V2.0
80 REM C64 (SYSMC ERFORDERLICH)
90 REM ===========================
91 SYS57812"SYSMC",8,0:POKE780,0
92 POKE781,254:POKE782,191:SYS65493
93 POKE53280,13:POKE53281,13:POKE646,6
100 GOSUB 2380
110 A$="[194]"+Z5$:AA$=A$
120 FORI=1TO9:AA$=AA$+"[194] ":NEXT
130 AA$=AA$+A$+"[194]"
140 BB$="[194][195]"+ZA$+"[195]":A$=ZI$+"[195][194]"
150 FORI=1TO8:BB$=BB$+YM$+"[195]":NEXT:BB$=BB$+A$
160 PRINTCL$;:PRINTCHR$(14)
180 FORM=0TO39
190 POKE1024+M,102:POKE1984+M,102
200 FORS=1TO6:NEXTS
210 NEXTM
220 FORM=1TO23
230 L=L+40
240 POKE1024+L,102:POKE1063+L,102
250 NEXTM
260 SYSAT,13,3:PRINT"[211]"S2$"[212] [210] [193]"S2$"[196]"S2$"[197]"S2$"[206] [203]";
270 SYSAT,13,4:PRINTZ7$Z7$Z7$Z7$Z7$Z7$Z7$Z7$Z7$Z7$Z7$Z7$Z7$Z7$Z7$;
280 SYSAT,5,6:PRINT"[211]TRATEGIESPIEL FUER 2 [208]ERSONEN"
290 PRINTLEFT$(QR$,11)C4$C4$BL$"COPYR.BY [197].[215].[215]OLTERS"BK$
300 PRINTC3$LEFT$(QD$,6)"[199]ESPIELT WIRD MIT'[202]OY' U.'[195]URSORTAST.'
310 [153]C4$C4$C3$C3$"(null)UR (null)PIELANLEITUNG '(null)PACE' DRUECKEN!"
330 [161]A$:[139]A$[179][177][199](32)[167]330
340 [153]CL$[200](QR$,6)"(null)"S2$"(null)"S2$"RIGHT$"S2$"VAL (null)"S2$;
350 [153]"ATN"S2$"(null)"S2$"(null)"S2$"VAL"S2$"RIGHT$"S2$"(null)"S2$"(null)"S2$"(null)"S2$"CHR$ "
360 [153]C4$C3$"(null)ETZEN (null)IE ABWECHSELND EIN (null)EICHEN IN
370 PRINTC3$"DAS [211]PIELFELD. [202]EDES [218]EICHEN ERGIBT
380 [153]C3$"EINEN (null)(null)(null)(null)(null). VERSUCHEN (null)IE MOEGLICHST
390 PRINTC3$"3, 6, O.9 [218]EICHEN NEBENEINANDER ODER
400 [153]C3$"UNTEREINANDER ZU SETZEN UND ZU VERHIN-
410 PRINTC3$"DERN, DASS [201]HREM [199]EGNER DIESES GELINGT
420 [153]C3$"(null)EICHEN SETZEN M.'ASCEUERKN.' BZW.'(null)PACE'"
430 [153]C3$C4$"3  (null)EICHEN NEBEN.- ODER UNTEREINANDER
440 PRINTLEFT$(QR$,4)C4$"ERGIBT  1  [218]EICHEN ZUSAETZLICH!
450 [153]C3$C4$C4$"6  (null)EICHEN NEBEN.- ODER UNTEREINANDER
460 PRINTLEFT$(QR$,4)C4$"ERGIBT  2  [218]EICHEN ZUSAETZLICH!
470 [153]C3$C4$C4$"9  (null)EICHEN NEBEN.- ODER UNTEREINANDER
480 PRINTLEFT$(QR$,4)C4$"ERGIBT  3  [218]EICHEN ZUSAETZLICH!
490 [158]AT,9,24:[153]RN$[170]" * (null)EITER MIT '(null)PACE' * "[170]RF$;
510 [161]A$:[139]A$[179][177][199](32)[167]510
520 [141]2380:[153]CL$;
530 R1$[178][199](18)
540 SP[178]1163:ZE[178]1533
550 S1[178]18:Z1[178]12
560 [134] P1(60):[134] P2(60):[134] SN(11)
570 [151]53280,13:[151]53281,13
580 [153][199](142)
590 [153]C4$[200](QR$,5)"NAMEN EINGEBEN DANN 'RETURN'"
600 ZM[178]10
610 [129] X[178]1 [164] 2:ZM[178]ZM[170]3
620 [161] A$:L[178][195](NA$)
630 [139] A$[178][199](20)[175] L[177]0 [167] NA$[178][200](NA$,L[171]1):[137] 670
640 [139]A$[177]"@"[175]A$[179]"["[167]NA$[178]NA$[170]A$
650 [139] L[178]10 [167] A$[178][199](20):[137] 630
660 [158]AT,2,ZM[171]1:[153]"NAME SPIELER "X":"
670 [158]AT,20,ZM:[153]C2$NA$RN$[199](95)RF$" "
680 [139] A$[179][177][199](13)[167] 620
690 NA$(X)[178]NA$:NA$[178]""
700 [130] X
710 :
720 W[178]0:P1[178]0:P2[178]0:PA[178]PA[170]P1(Y):PB[178]PB[170]P2(Y)
730 [153]C2$CL$
740 [158]AT,8,3:[153]BL$"(null)LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$"
750 [153][163]8)"PEEK";
760 [129]I[178]1[164]11:[153]Z5$"PEEK";:[130]:[153]
770 [153][163]8)"PEEKLEN(null)LEN";
780 [129]I[178]1[164]8:[153]ZH$"LEN";:[130]:[153]"RIGHT$LENPEEK"
790 [129]I[178]1[164]8:[153][163]8)AA$
800 [153][163]8)BB$:[130]
810 [153][163]8)AA$
820 [153][163]8)"PEEKLENMID$LEN";
830 [129]I[178]1[164]8:[153]ZG$"LEN";:[130]:[153]"(null)LENPEEK"
840 [153][163]8)"PEEK";
850 [129]I[178]1[164]11:[153]Z5$"PEEK";:[130]:[153]
860 [153][163]8)"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"BK$
870 [143] --------------------------
880 [143]         TITEL
890 [143] --------------------------
900 [158]AT,0,0:[153]RE$RN$" "[200](NA$(1)[170]"         ",9)" "RF$BK$
910 [158]AT,13,0:[153]GR$"EWWV PROGRAMM"BK$;
920 [158]AT,27,0:[153]" "OE$RN$" "[200](NA$(2)[170]"         ",9)" "RF$BK$
930 Y[178]Y[170]1:SN[178]SN[170]1:SN(Y)[178]SN
940 [158]AT,0,5:[153]"SP./PKT"
950 [158]AT,32,5:[153]"SP./PKT"
960 :
970 ZP[178]6
980 [139]SN[177]10[167] 2270
990 [129] P[178]1[164]10
1000 ZP[178]ZP[170]1
1010 [158]AT,0,ZP:[153]RE$RN$[201]("   "[170][196](SN(P)),3)RF$;
1020 [153]" "RE$RN$[201]("   "[170][196](P1(P)),3)RF$;
1030 [158]AT,32,ZP:[153]OE$RN$[201]("   "[170][196](SN(P)),3)RF$;
1040 [153]" "OE$RN$[201]("   "[170][196](P2(P)),3)RF$BK$
1050 [158]AT,0,19:[153]"GES-PKT";:[158]AT,32,19:[153]"GES-PKT";
1060 [158]AT,0,21:[153]RE$RN$[201]("      "[170][196](PA),6)B2$RF$
1070 [158]AT,32,21:[153]OE$RN$[201]("      "[170][196](PB),6)B2$RF$
1080 [130] P
1090 Z[178][181]([187](1)[172]2)[170]1
1100 [139]Z[178]1[167] ZS[178]83:[137]1160
1110 [139]Z[178]2[167] ZS[178]88:[137]1440
1120 [139]ZS[178]83[167]1160
1121 [137]1440
1130 [143] -------------------------
1140 [143]    FELD WAEHLEN MIT JOY
1150 [143] -------------------------
1160 ZS[178]83:[151]1147,ZS:[151]55419,180:[151]1179,32
1170 [161]A$:JO[178][194](145)
1175 [139]JO[178]254[167]ZE[178]ZE[171]80:Z1[178]Z1[171]2
1180 [139]JO[178]253[167]ZE[178]ZE[170]80:Z1[178]Z1[170]2
1190 [139]JO[178]247[167]SP[178]SP[170]2:S1[178]S1[170]2
1200 [139]JO[178]251[167]SP[178]SP[171]2:S1[178]S1[171]2
1210 [139]JO[178]239[167] 1300
1220 [139]ZE[179]1213[167]ZE[178]1213:Z1[178]4
1230 [139]ZE[177]1853[167]ZE[178]1853:Z1[178]20
1240 [139]SP[179]1155[167]SP[178]1155:S1[178]10
1250 [139]SP[177]1171[167]SP[178]1171:S1[178]26
1260 [158]AT,S1[171]2,Z1:[153]BL$[170]"PEEK";:[158]AT,S1,Z1[171]2:[153]"PEEK"[170]C3$[170]"PEEK";
1270 [158]AT,S1,Z1:[153]BK$[170]"("[170]C3$[170]")";
1280 [158]AT,S1[170]4,Z1:[153]BL$[170]"PEEK";:[158]AT,S1,Z1[170]2:[153]"PEEK"[170]C3$[170]"PEEK"[170]BK$;
1290 [137]1170
1300 SZ[178](ZE[171]29)[170](SP[171]1144)
1310 [139][194](SZ)[178]83[176][194](SZ)[178]88[167]1260
1320 [151]SZ,ZS:P1[178]P1[170]1:P1(Y)[178]P1
1330 ZQ[178]6
1340 [129] Q[178]1[164]10
1350 ZQ[178]ZQ[170]1
1360 [158]AT,0,ZQ:[153]RE$RN$[201]("   "[170][196](SN(Q)),3)RF$;
1370 [153]" "RE$RN$[201]("   "[170][196](P1(Q)),3)RF$
1380 [158]AT,32,ZQ:[153]OE$RN$[201]("   "[170][196](SN(Q)),3)RF$;
1390 [153]" "OE$RN$[201]("   "[170][196](P2(Q)),3)RF$BK$
1400 [130] Q:[137] 1700
1410 [143] -------------------------
1420 [143]  FELD WAEHLEN MIT TASTEN
1430 [143] -------------------------
1440 ZS[178]88:[151]1179,ZS:[151]55451,180:[151]1147,32
1450 [161]A$:[139]A$[178][199](145)[167]ZE[178]ZE[171]80:Z1[178]Z1[171]2
1460 [139]A$[178][199](17)[167]ZE[178]ZE[170]80:Z1[178]Z1[170]2
1470 [139]A$[178][199](29)[167]SP[178]SP[170]2:S1[178]S1[170]2
1480 [139]A$[178][199](157)[167]SP[178]SP[171]2:S1[178]S1[171]2
1490 [139]A$[178][199](32)[167] 1580
1500 [139]ZE[179]1213[167]ZE[178]1213:Z1[178]4
1510 [139]ZE[177]1853[167]ZE[178]1853:Z1[178]20
1520 [139]SP[179]1155[167]SP[178]1155:S1[178]10
1530 [139]SP[177]1171[167]SP[178]1171:S1[178]26
1540 [158]AT,S1[171]2,Z1:[153]BL$[170]"PEEK";:[158]AT,S1,Z1[171]2:[153]"PEEK"[170]C3$[170]"PEEK";
1550 [158]AT,S1,Z1:[153]BK$[170]"("[170]C3$[170]")";
1560 [158]AT,S1[170]4,Z1:[153]BL$[170]"PEEK";:[158]AT,S1,Z1[170]2:[153]"PEEK"[170]C3$[170]"PEEK";
1570 [137]1450
1580 SZ[178](ZE[171]29)[170](SP[171]1144):
1590 [139][194](SZ)[178]83[176][194](SZ)[178]88[167]1540
1600 [151]SZ,ZS:P2[178]P2[170]1:P2(Y)[178]P2
1610 ZP[178]6
1620 [129] Z[178]1[164]10
1630 ZP[178]ZP[170]1
1640 [158]AT,0,ZP:[153]RE$RN$[201]("   "[170][196](SN(Z)),3)RF$;
1650 [153]" "RE$RN$[201]("   "[170][196](P1(Z)),3)RF$
1660 [158]AT,32,ZP:[153]OE$RN$[201]("   "[170][196](SN(Z)),3)RF$;
1670 [153]" "OE$RN$[201]("   "[170][196](P2(Z)),3)RF$BK$
1680 [130] Z
1690 [143] -------------------------
1700 [143]      PRUEF. SENKR.
1710 [143] -------------------------
1720 A[178]0:B[178]0:H[178]0:W[178]0
1730 WX[178]WX[171]1:[139]WX[179]0[167]WX[178]0
1740 [129] X1[178]1[164]9
1750 A[178]A[170]1:B[178]B[170]1:[139][194](SP[170]H[170]40)[179][177]ZS[167]A[178]0:B[178]B[171]1
1760 H[178]H[170]80
1770 [139]A[178]9[167]W[178]3
1780 [130]X1:WX[178]WX[170]W:W[178]0
1790 [139]B[179]3[167] 1970
1800 [139]B[179]6[167]1870
1810 A[178]0:H[178]0:[129] X2[178]1[164]13
1820 A[178]A[170]1:[139][194](SZ[170]H[171]480)[179][177]ZS[167]A[178]0
1830 H[178]H[170]80
1840 [139]A[178]6[167] W[178]2
1850 [139]A[177]6[167] W[178]0
1860 [130]X2:WX[178]WX[170]W:W[178]0
1870 A[178]0:H[178]0
1880 [129] X3[178]1[164]7
1890 A[178]A[170]1:[139][194](SZ[170]H[171]240)[179][177]ZS[167]A[178]0
1900 H[178]H[170]80
1910 [139]A[178]3[167]W[178]1
1920 [139]A[177]3[167] W[178]0
1930 [130]X3:WX[178]WX[170]W:W[178]0
1940 [143] -------------------------
1950 [143]      PRUEF. WAAGER.
1960 [143] -------------------------
1970 H[178]0:A[178]0:B[178]0
1980 [129] X4[178]1[164]18
1990 A[178]A[170]1:B[178]B[170]1:[139][194](SZ[170]H[171]18)[179][177]ZS[167]A[178]0:B[178]B[171]1
2000 H[178]H[170]2
2010 [139]A[178]9[167]W[178]3
2020 [130]X4:WX[178]WX[170]W:W[178]0
2030 [139]B[179]3[167] 2180
2040 [139]B[179]6[167]2110
2050 A[178]0:H[178]0:[129] X5[178]1[164]13
2060 A[178]A[170]1:[139][194](SZ[170]H[171]12)[179][177]ZS[167]A[178]0
2070 H[178]H[170]2
2080 [139]A[178]6[167]W[178]2
2090 [139]A[177]6[167] W[178]0
2100 [130]X5:WX[178]WX[170]W:W[178]0
2110 A[178]0:H[178]0
2120 [129] X6[178]1[164]7
2130 A[178]A[170]1:[139][194](SZ[170]H[171]6)[179][177]ZS[167]A[178]0
2140 H[178]H[170]2
2150 [139]A[178]3[167]W[178]1
2160 [139]A[177]3[167] W[178]0
2170 [130]X6:WX[178]WX[170]W:W[178]0
2180 W[178]0:A[178]0:H[178]0
2190 [139]ZS[178]83[167]ZA$[178][196](WX):[137]2200
2191 ZB$[178][196](WX)
2200 [139]WX[178]0[167]ZA$[178]"":ZB$[178]""
2210 [158]AT,0,3:[153]B3$;:[158]AT,32,3:[153]B2$;
2220 [158]AT,0,3:[153]ZA$;:[158]AT,31,3:[153]ZB$
2230 [139]P1[170]P2[178]81[167] 2300
2240 [139]WX[177]0[167] 1120
2250 [139]ZS[178]83[167]1440
2251 [137]1160
2270 [158]AT,7,24:[153]"NOCH EINE RUNDE? "[170]FL$[170]RN$[170]"Y"[170]RF$;
2280 [153]FO$[170]"ES / "[170]FL$[170]RN$[170]"N"[170]RF$[170]FO$[170]"O":[137]2320
2300 [158]AT,7,24:[153]"NOCH EIN SPIEL? "[170]FL$[170]RN$[170]"J"[170]RF$;
2310 [153]FO$[170]"A / "[170]FL$[170]RN$[170]"N"[170]RF$[170]FO$[170]"EIN"
2320 [161]A$:[139]A$[178]"J"[167]720
2330 [139]A$[178]"Y"[167][138]520
2340 [139]A$[178]"N"[167]2360
2350 [137]2320
2360 [153]CL$[200](QD$,5)[200](QR$,9)"DAS SPIEL IST BEENDET!"
2370 [128]
2380 [143] NACHSPANN ===============
2390 [143] * FARBCODES/STEUERCODES *
2400 C4$[178][199](017):RN$[178][199](018)
2410 RE$[178][199](028):C3$[178][199](029)
2420 GR$[178][199](030):BL$[178][199](031)
2430 OE$[178][199](129):FL$[178][199](130)
2440 FO$[178][199](132):BK$[178][199](144)
2450 C2$[178][199](145):RF$[178][199](146)
2460 CL$[178][199](147):AT[178]49152
2470 [143] *** ZEICHENSATZ/GRAPHIK *
2480 S2$[178][199](160):Z5$[178][199](166)
2490 Z7$[178][199](168):ZA$[178][199](171)
2500 ZG$[178][199](177):ZH$[178][199](178)
2510 ZI$[178][199](179):YM$[178][199](219)
2520 [143] ********* ZEICHENFOLGEN *
2530 [129] Q[178]1 [164] 40
2540 QD$[178]QD$[170]C4$:QR$[178]QR$[170]C3$
2550 [130]Q:B$[178][199](32)
2560 B2$[178]B$[170]B$:B3$[178]B2$[170]B$:[142]
2570 [143] =STRADENK===========ENDE=