1 POKE53280,0:POKE53281,0:PRINT"[147][142]","[157][157][152]*** DSA-KAMPFSYSTEM ***":PRINT"WRITTEN BY KAI GRASHOFF ALIAS SOULSUCKER":PRINT"IN 1992.":PRINT"IMPROVED BY MAIK HOLSTEIN ALIAS JTR":PRINT"IN 1998.":GOSUB19
2 SR$="----------------------------------------":INPUT"[147]NAME DES 1. KAEMPFERS";A$:INPUT"NAME DES 2. KAEMPFERS";B$:PRINT"ATTACKE-WERT VON "A$:INPUTAT:PRINT"ATTACKE-WERT VON ";B$:INPUTAA:PRINT"PARADE-WERT VON ";A$:INPUTPT:PRINT"PARADE-WERT VON ";B$:INPUTPA:PRINT"LEBENSENERGIE VON ";A$:INPUTLE
3 PRINT"LEBENSENERGIE VON ";B$:INPUTLP:PRINT"RUESTUNGSSCHUTZ VON ";A$:INPUTRW:PRINT"RUESTUNGSSCHUTZ VON ";B$:INPUTRS:PRINT"TREFFERPUNKTE VON "A$" (1W6+?)":INPUTTW:PRINT"TREFFERPUNKTE VON "B$" (1W6+?)":INPUTTP
4 GOSUB18:GOSUB17:AW=INT(20*RND(1))+1:IFAW<=ATTHENPRINT"ATTACKE GELUNGEN! ("A$")":GOTO6
5 IFAW>ATTHENPRINT"ATTACKE VERSAGT! ("A$")":GOTO10
6 VW=INT(20*RND(1))+1:IFVW<=PATHENPRINT"PARADE ERFOLGREICH! ("B$")":GOTO10
7 IFVW>PATHENPRINT"PARADE VERPATZT! ("B$")":GOTO8
8 SP=INT(6*RND(1))+1+TW:IFSP<=RSTHENPRINT"KEIN SCHADEN!":GOTO10
9 IFSP>RSTHENSP=SP-RS:PRINT"SCHADENSPUNKTE:";SP:LP=LP-SP:IFLP<=0THEN22
10 KW=INT(20*RND(1))+1:IFKW<=AATHENPRINT"ATTACKE GELUNGEN! ("B$")":GOTO12
11 IFKW>AATHENPRINT"ATTACKE VERSAGT! ("B$")":GOTO21
12 PW=INT(20*RND(1))+1:IFPW<=PTTHENPRINT"PARADE ERFOLGREICH! ("A$")":GOTO21
13 IFPW>PTTHENPRINT"PARADE VERPATZT! ("A$")":GOTO14
14 SW=INT(6*RND(1))+1+TP:IFSW<=RWTHENPRINT"KEIN SCHADEN!":GOTO21
15 IFSW>RWTHENSW=SW-RW:PRINT"SCHADENSPUNKTE:";SW:LE=LE-SW:IFLE<=0THEN23
16 GOTO21
17 PRINT"[147]"SR$;"LEBENSENERGIE - 1. KAEMPFER:"LE:PRINT"LEBENSENERGIE - 2. KAEMPFER:"LP:PRINTSR$:RETURN
18 PRINT"BITTE EINE TASTE DRUECKEN...";
19 GETZZ$:IFZZ$=""THEN19
20 RETURN
21 PRINT"ONCE AGAIN!":GOTO4
22 PRINT"GAME OVER, ";B$"!":PRINT"",,,"[157]TOT":GOSUB19:GOTO24
23 PRINT"GAME OVER, ";A$"!":PRINT"",,,"[157]TOT":GOSUB19:GOTO24
24 PRINT"[147]","[152] NOCH EINMAL (J/N)?"
25 GOSUB19:IFZZ$="N"THENNEW
26 IFZZ$="J"THENRUN2
27 GOTO25