10 PRINT"[147]":POKE53281,0:POKE53280,0:PRINT""
20 PRINT"   EIN KLEINES PROGRAMM VON MR.JOKER"
30 INPUT"MAENNL. NAME";QW$
40 INPUT"WEIBL. NAME";WE$
50 INPUT"MAENNL. NAME";ER$
60 INPUT"ORT (MIT:IN,AUF,UNTER U.S.W.)";RT$
70 INPUT"TAETIGKEIT";TY$
80 INPUT"TAETIGKEIT 2.FORM";YU$
90 INPUT"WEIBL. NAME";UI$
100 INPUT"KOERPERTEIL";IO$:PRINT"[147]"
110 PRINT QW$;" UND ";WE$;" WURDEN VON ";ER$;" ";RT$;" BEIM ";TY$;" ERWISCHT."
120 PRINT"DARAUF ";YU$;" ";ER$;" MIT ";UI$;" UND LECKTE ";UI$;"S ";IO$"."
130 FORX=1TO10000:NEXTX:NEW