1 PRINT"[147]"
10 POKE53280,0:POKE 53281,1
20 PRINT"[144]"
30 PRINT
40 PRINT" ERSTER KAEMPFER:"
50 PRINT
51 INPUT"NAME ";N$
52 PRINT
60 INPUT"LEBENSENERGIE ";LE
70 PRINT
80 INPUT"ATTACKE ";AT
90 PRINT
100 INPUT"PARADE ";PA
110 PRINT
120 INPUT"TREFFERPUNKTE (1W+?)";TP
130 PRINT
140 INPUT"RUESTUNGSSCHUTZ ";RS
150 PRINT"[147]"
160 PRINT
170 PRINT" ZWEITER KAEMPFER:"
180 PRINT
181 INPUT"NAME ";NA$
182 PRINT
190 INPUT"LEBENSENERGIE ";LZ
200 PRINT
210 INPUT"ATTACKE ";AZ
220 PRINT
230 INPUT"PARADE ";PZ
240 PRINT
250 INPUT"TREFFERPUNKTE (1W+?)";TZ
260 PRINT
270 INPUT"RUESTUNGSSCHUTZ ";RZ
280 PRINT
290 PRINT" DER KAMPF BEGINNT..."
300 PRINT:PRINT" ...TASTE..."
310 GET AA$:IF AA$=""THEN310
320 IF AA$=CHR$(32)THEN330
330 W=INT(20*RND(1))
340 IF W<=AT THEN360
350 IF W>AT THEN420
360 WG=INT(20*RND(1))
370 IF WG<=PZ THEN420
380 IF WG>PZ THEN390
390 SP=INT(6*RND(1)+TP)
400 LZ=LZ-SP+RZ
410 IF LZ<1 THEN520
420 WG=INT(20*RND(1))
430 IF WG<=AZ THEN460
440 IF WG>AZ THEN330
450 W=INT(20*RND(1))
460 IF W<=PA THEN330
470 IF W>PA THEN 480
480 SP=INT(6*RND(1)+TZ)
490 LE=LE-SP+RS
491 PRINT"[147]"
492 PRINT" "N$"      "NA$
493 PRINT
495 PRINT LE""LZ
500 IF LE<1 THEN570
510 GOTO 330
520 PRINT"[147]"
530 PRINT NA$" IST TOT."
540 PRINT
550 PRINT" LEBENSENERGIE VON "N$":"LE
560 END
570 PRINT"[147]"
580 PRINT N$" IST TOT."
590 PRINT
600 PRINT" LEBENSENERGIE VON "NA$":"LZ
610 END