home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1989 April / 64er_Magazin_89-04_1989_Markt__Technik_de.d64 / mord (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  923b  |  21 lines
  1. 10 print chr$(147):print"  sie werden gleich einen mord begehen ":print
  2. 20 print tab(4)"nehmen sie bleistift und papier!":print:gosub 180:print
  3. 30 print"schreiben sie eine mehrstellige zahl auf":gosub180
  4. 40 print"   schuetteln sie die zahl in ihrem"
  5. 50 print tab(6)"geistigen schuettelbecher":print
  6. 60 printtab(4)"sie erhalten eine andere zahl":printtab(8)"mit denselben ziffern"
  7. 70 print:print"  subtrahieren sie die beiden zahlen":gosub 180
  8. 80 print"    beispiel: 321 - 123 = 198[146]":print:print
  9. 90 print"  schleichen sie sich an das ergebnis":print
  10. 100 print"heran und morden sie eine ziffer durch":print
  11. 110 print " durchstreichen-aber bitte keine null !":gosub 180
  12. 120 print" zaehlen sie die ueberlebenden ziffern":printtab(13)"zusammen!":print
  13. 130 print:printtab(6)"ich sage ihnen den toten":print
  14. 140 print:input"summe der ueberlebenden =";a
  15. 150 print:print"wenn fertig bitte taste druecken[146]"
  16. 160 print chr$(147):z=a/9:y=(int(z)+1)*9:x=y-a
  17. 170 print:print:print:print tab(6)"sie haben eine[146]";x;"ermordet ":end
  18. 180 print:print"   wenn fertig bitte return druecken[146]"
  19. 190 get a$:if a$="" then 190
  20. 200 print chr$(147):return
  21.