home *** CD-ROM | disk | FTP | other *** search
/ B Soft 1 / B-Soft_1_19xx_Maik__Mike_de_Side_A.d64 / wortspiel (.txt) < prev   
Commodore BASIC  |  2023-02-26  |  459b  |  14 lines
  1. 10 print"[147]":poke53281,0:poke53280,0:print""
  2. 20 print"   ein kleines programm von mr.joker"
  3. 30 input"maennl. name";qw$
  4. 40 input"weibl. name";we$
  5. 50 input"maennl. name";er$
  6. 60 input"ort (mit:in,auf,unter u.s.w.)";rt$
  7. 70 input"taetigkeit";ty$
  8. 80 input"taetigkeit 2.form";yu$
  9. 90 input"weibl. name";ui$
  10. 100 input"koerperteil";io$:print"[147]"
  11. 110 print qw$;" und ";we$;" wurden von ";er$;" ";rt$;" beim ";ty$;" erwischt."
  12. 120 print"darauf ";yu$;" ";er$;" mit ";ui$;" und leckte ";ui$;"s ";io$"."
  13. 130 forx=1to10000:nextx:new
  14.