10 PRINT CHR$(147):PRINT"  SIE WERDEN GLEICH EINEN MORD BEGEHEN ":PRINT
20 PRINT TAB(4)"NEHMEN SIE BLEISTIFT UND PAPIER!":PRINT:GOSUB 180:PRINT
30 PRINT"SCHREIBEN SIE EINE MEHRSTELLIGE ZAHL AUF":GOSUB180
40 PRINT"   SCHUETTELN SIE DIE ZAHL IN IHREM"
50 PRINT TAB(6)"GEISTIGEN SCHUETTELBECHER":PRINT
60 PRINTTAB(4)"SIE ERHALTEN EINE ANDERE ZAHL":PRINTTAB(8)"MIT DENSELBEN ZIFFERN"
70 PRINT:PRINT"  SUBTRAHIEREN SIE DIE BEIDEN ZAHLEN":GOSUB 180
80 PRINT"    BEISPIEL: 321 - 123 = 198[146]":PRINT:PRINT
90 PRINT"  SCHLEICHEN SIE SICH AN DAS ERGEBNIS":PRINT
100 PRINT"HERAN UND MORDEN SIE EINE ZIFFER DURCH":PRINT
110 PRINT " DURCHSTREICHEN-ABER BITTE KEINE NULL !":GOSUB 180
120 PRINT" ZAEHLEN SIE DIE UEBERLEBENDEN ZIFFERN":PRINTTAB(13)"ZUSAMMEN!":PRINT
130 PRINT:PRINTTAB(6)"ICH SAGE IHNEN DEN TOTEN":PRINT
140 PRINT:INPUT"SUMME DER UEBERLEBENDEN =";A
150 PRINT:PRINT"WENN FERTIG BITTE TASTE DRUECKEN[146]"
160 PRINT CHR$(147):Z=A/9:Y=(INT(Z)+1)*9:X=Y-A
170 PRINT:PRINT:PRINT:PRINT TAB(6)"SIE HABEN EINE[146]";X;"ERMORDET ":END
180 PRINT:PRINT"   WENN FERTIG BITTE RETURN DRUECKEN[146]"
190 GET A$:IF A$="" THEN 190
200 PRINT CHR$(147):RETURN