2 POKE51,.:POKE52,158:POKE55,.:POKE56,158:POKE808,225:DIM C(1),C1(1)
5 PRINT"[147][144]":FORT=.TO4:READA:POKE53280+T,A:NEXT:C(0)=2:C(1)=7:C1(0)=5:C1(1)=8
10 IFPEEK(49152)=76THEN500
20 FORT=828TO903:READC:POKET,C:NEXT
25 DATA12,12,5,2,7
30 DATA120,169,51,133,1,169,208,162,,133,35,134,34,169,224,133,37,134,36,162,17
40 DATA160,,177,34,145,36,200,208,249,230,37,230,35,202,208,240,169,55,133,1,88
50 DATA96
60 DATA169,1,162,208,160,255,32,189,255,169,1,162,8,160,,32,186,255,32,192,255
70 DATA176,2,169,,133,255,169,1,32,195,255,96
75 SYS828
80 SYS871:IFPEEK(255)=.THEN110
90 PRINT"[147]"SPC(7)"BITTE FLOPPY EINSCHALTEN !!!"
100 PRINTSPC(14)"( TASTE )":POKE198,0:WAIT198,1:GOTO80
110 GOSUB400:IFA<>.THEN80
120 SYS57812"57344 ZEICHENS.",8,1:POKE780,0:SYS65493
130 GOSUB400:IFA<>.THEN80
140 SYS57812"49152 MP",8,1:POKE780,0:SYS65493
150 GOSUB400:IFA<>.THEN80
180 GOTO500
200 DATA"                [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
201 DATA"                [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
202 DATA"                [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
203 DATA"[169]            [151][223][146][144]   [201]   [201]   [201]   [201]   [201]   [201]"
204 DATA"[151] [146]             [146][144]  [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
205 DATA"[151] [146]    THE[151]      [146][144]  [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
206 DATA"[151] [146]    [193][193][193]      [146][144]  [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
207 DATA"[151] [146]  PAILGAME[151]   [146][144]   [201]   [201]   [201]   [201]   [201]   [201]"
208 DATA"[151] [146] [193][193][193][193][193][193][193][193][193][193]  [146][144]  [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
209 DATA"[151][223][155]            [146][169][144]  [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
210 DATA"                [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
211 DATA"-VON E.SCHWAN[144]-   [201]   [201]   [201]   [201]   [201]   [201]"
212 DATA"                [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
213 DATA"                [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
214 DATA"                [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
215 DATA"                 [201]   [201]   [201]   [201]   [201]   [201]"
216 DATA"[193][193][193][193][193][193][193][193][193][193][193][193][193][193][193] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
217 DATA"                [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
218 DATA"                [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
219 DATA"    [172][162][162][162][162][162][162][187]     [201]   [201]   [201]   [201]   [201]   [201]"
220 DATA"    [151][161][146]- [149]00[151] -[161][144]    [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194] [192][193][194]"
221 DATA"    [155][188][162][162][162][162][162][162][146][190][144]    [195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196][200][195] [196]"
222 DATA"                [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199] [197][198][199]"
223 DATA
400 POKE53265,11:OPEN1,8,15:INPUT#1,A,B$:CLOSE1:IFA=.THENRETURN
410 POKE53265,27:PRINT"[147]DISK ERROR :"A" "B$
420 POKE198,0:WAIT198,1:RETURN
500 JO=56320:POKE53265,11:POKE56576,4:POKE53272,57:POKE648,204:PRINT"[147]":MO=.
511 PRINT"[147][172][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][146][187]";
512 PRINT"[161]*                                    *[161][146]";
513 PRINT"[161]             THE PAILGAME             [161][146]";
514 PRINT"[161]             [183][183][183][183][183][183][183][183][183][183][183][183]             [161][146]";
515 PRINT"[161]                                      [161][146]";
516 PRINT"[161][158]  SINN DES SPIELES IST ES, ALLE       [144][161][146]";
517 PRINT"[161][158]  FELDER DES 6 X 6 SPIELPLANES ZU     [144][161][146]";
518 PRINT"[161][158]  EROBERN.                            [144][161][146]";
519 PRINT"[161][149]  DAS BESETZEN EINES FELDES ERREICHT  [144][161][146]";
520 PRINT"[161][149]  MAN DURCH SETZEN EINES PUNKTES MIT  [144][161][146]";
521 PRINT"[161][149]  DEM CURSOR.                         [144][161][146]";
522 PRINT"[161][158]  JEDES FELD KANN MIT MEHREREN PUNK-  [144][161][146]";
523 PRINT"[161][158]  TEN AUFGEFUELLT WERDEN.             [144][161][146]";
524 PRINT"[161][149]  IST DAS FELD JEDOCH UEBERFUELLT,SO  [144][161][146]";
525 PRINT"[161][149]  LAUFT ES UEBER UND VERTEILT DIE     [144][161][146]";
526 PRINT"[161][149]  PUNKTE AUF DIE UMLIEGENDEN FELDER.  [144][161][146]";
527 PRINT"[161][158]  DADURCH LASSEN SICH AUCH DIE FEL-   [144][161][146]";
528 PRINT"[161][158]  DER DES GEGNERS EROBERN, DA DIE     [144][161][146]";
529 PRINT"[161][158]  UBERGELAUFENEN PUNKTE DIE BENACH-   [144][161][146]";
530 PRINT"[161][158]  BARTEN FELDER BESETZEN.             [144][161][146]";
531 PRINT"[161]                                      [161][146]";
532 PRINT"[161]                                      [161][146]";
533 PRINT"[161]            WEITER MIT FIRE           [161][146]";
534 PRINT"[161]*                                    *[161][146]";
535 PRINT"[188][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][162][145]";:POKE53223,126:POKE56295,.
540 POKE53265,27:IFPEEK(JO)<>111THEN540
545 P$=""
550 PRINTP$"":A=6:E=20
555 PRINTSPC(A)"             "SPC(E+1);
560 PRINTSPC(A)" 1 SPIELER _ [144] "SPC(E);
565 PRINTSPC(A)" 2 SPIELER   [144] "SPC(E);
570 PRINTSPC(A)" - DEMO -    [144] "SPC(E);
575 PRINTSPC(A)"   ENDE      [144] "SPC(E);
580 PRINTSPC(A)"             [144] "SPC(E);
585 PRINTSPC(A+1)"             "
590 T=0:A=52601:X=0
595 IFPEEK(JO)=111THEN595
600 POKEA+X*40,159:T=T+1:IFPEEK(JO)=111THEN710
610 IFPEEK(JO)<>127THENGOSUB670
620 IFT<>10THEN600
630 POKEA+X*40,160:T=T-1:IFPEEK(JO)=111THEN710
640 IFPEEK(JO)<>127THENGOSUB670
650 IFTTHEN630
660 GOTO600
670 J=PEEK(JO):IFJ<>126THEN690
680 IFX<>0THENPOKEA+X*40,160:X=X-1
685 GOTO705
690 IFJ<>125THENRETURN
700 IFX<>3THENPOKEA+X*40,160:X=X+1
705 IFPEEK(JO)<>127THEN705
707 RETURN
710 POKEA+40*X,159:ONX+1GOTO750,730,3000,720
720 POKE56334,0:POKE788,49:POKE789,234:POKE648,4:POKE53272,21:POKE56576,7
725 POKE56334,1:POKE53269,0:POKE54296,.:POKE808,237:PRINT"[147][144]":END
730 GOSUB850:POKE52769,177:GOSUB820:N$(0)=A$
740 GOSUB850:POKE52769,178:GOSUB820:N$(1)=A$:POKE49570,0:GOTO900
750 GOSUB850:POKE52770,160:GOSUB820:N$(0)=A$:POKE49570,128:GOTO1000
810 REM
820 PRINT"";:S=0
823 POKE52885+S,227:GETA$:IFA$=""THEN823
826 IFA$<" "ORA$>"Z"THEN833
830 IFS<10THENPRINT"[159]"A$;:POKE52885+S,160:S=S+1:GOTO823
833 IFA$=CHR$(13)THENIFSTHEN845
834 IFA$=CHR$(20)THENIFSTHENPRINT"[157] [157]";:POKE52885+S,160:S=S-1:GOTO823
840 GOTO823
845 SYS50479,52845,S,A$:RETURN
849 :
850 PRINTP$"[159]":A=15:E=3
860 PRINTSPC(A)"                     "SPC(E+1);
865 PRINTSPC(A)" NAME DES  .SPIELERS [144] [159]"SPC(E);
870 PRINTSPC(A)"                     [144] [159]"SPC(E);
875 PRINTSPC(A)"    *            *   [144] [159]"SPC(E);
880 PRINTSPC(A)"                     [144] [159]"SPC(E);
885 PRINTSPC(A)"                     [144] "SPC(E);
890 PRINTSPC(A+1)"                     "
895 RETURN
900 IFMOTHEN1000
905 MO=1:PRINT"[153]":A=10:E=2
910 PRINTSPC(A)"                           "SPC(E+1);
920 PRINTSPC(A)"  2 JOYSTICKS VORHANDEN ?  [144] [153]"SPC(E);
930 PRINTSPC(A)"         (J/N)             [144] [153]"SPC(E);
940 PRINTSPC(A)"                           [144] [153]"SPC(E);
950 PRINTSPC(A+1)"[144]                           "
960 GETA$:IFA$<>"J"ANDA$<>"N"THEN960
970 IFA$="J"THENJA=2:GOTO1000
980 JA=1
990 :
1000 PRINT"[144][147]":POKE53265,27
1010 PRINT"";:POKE63,70:POKE64,0:POKE65,209:POKE66,9
1020 FORT=0TO22:READA$:PRINTA$:NEXT
1030 SYS49155:POKE49816,0:POKE53248,152:POKE53249,59:POKE53240,47:POKE53269,1
1035 POKE53264,0:POKE53287,1:FORT=.TO3:POKE50587+T,.:NEXT
1040 S=INT(RND(TI)*2):IFS=1THEN1060
1050 SYS50866:S=.:GOSUB1500:IFPEEK(254)THEN2000
1060 S=1:ONX+1GOTO1100,1065
1065 IFJA=2THENSYS50874
1070 GOSUB1500:IFPEEK(254)THEN2000
1080 GOTO1050
1099 REM COMPUTERZUG
1100 SYS49152,1:IFPEEK(254)THEN2500
1110 GOTO1050
1120 :
1500 PRINT"[159]                [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"N$(S)"'S ZUG"
1510 SYS50747:GETA$:IFA$=CHR$(133)THEN2110
1515 SYS49757:SYS49152,S,PEEK(50587)+6*PEEK(50588)
1520 IFPEEK(253)=.THEN1510
1530 RETURN
2000 PRINT"[153]":A=10:E=8:A$="           ":POKE53269,0
2010 PRINTSPC(A)"                     "SPC(E+1);
2020 PRINTSPC(A)" BRAVO, "N$(S);LEFT$(A$,11-LEN(N$(S)))"   [144] [153]"SPC(E);
2030 PRINTSPC(A)"                     [144] [153]"SPC(E);
2040 PRINTSPC(A)" DU HAST GEWONNEN !! [144] [153]"SPC(E);
2050 PRINTSPC(A)"                     [144] [153]"SPC(E);
2060 PRINTSPC(A)"  WEITER MIT FIRE !  [144] [153]"SPC(E);
2070 PRINTSPC(A)"                     [144] "SPC(E);
2080 PRINTSPC(A+1)"                     "
2100 IFPEEK(JO)<>111ANDPEEK(JO+1)<>239THEN2100
2110 P$="":POKE56334,0:POKE788,49:POKE789,234:POKE56334,1
2120 GOTO550
2130 :
2499 REM COMPUTER GEWINNT
2500 PRINT"[153]":A=10:E=8:A$="           ":POKE53269,0
2510 PRINTSPC(A)"                     "SPC(E+1);
2520 PRINTSPC(A)"  TJA, "N$(S);LEFT$(A$,11-LEN(N$(S)))"    [144] [153]"SPC(E);
2530 PRINTSPC(A)"                     [144] [153]"SPC(E);
2540 PRINTSPC(A)"  LEIDER VERLOREN.   [144] [153]"SPC(E);
2550 PRINTSPC(A)"                     [144] [153]"SPC(E);
2560 PRINTSPC(A)"  WEITER MIT FIRE !  [144] [153]"SPC(E);
2570 PRINTSPC(A)"                     [144] "SPC(E);
2580 PRINTSPC(A+1)"                     "
2590 IFPEEK(JO)<>111ANDPEEK(JO+1)<>239THEN2590
2600 P$="":POKE56334,0:POKE788,49:POKE789,234:POKE56334,1
2610 GOTO550
3000 PRINT"[144][147]":POKE53265,27:N$(0)="KARL":N$(1)="JUPP":POKE49570,128
3010 PRINT"";:POKE63,70:POKE64,0:POKE65,209:POKE66,9
3020 FORT=0TO22:READA$:PRINTA$:NEXT
3030 SYS49155:POKE49816,0
3035 FORT=.TO3:POKE50587+T,.:NEXT
3040 S=INT(RND(TI)*2):IFS=1THEN3060
3050 POKE49568,7:POKE49567,2:S=.:GOSUB3500:IFPEEK(254)THEN3100
3060 POKE49568,2:POKE49567,7:S=1:GOSUB3500:IFPEEK(254)THEN3100
3070 GOTO3050
3100 POKE49568,7:POKE49567,2:GOTO2000
3120 :
3500 PRINT"[159]                [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"N$(S)"'S ZUG"
3510 SYS49152,1:SYS49757
3520 FORQ=0TO600:NEXT:RETURN