home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 April / 64er_Magazin_88-04_1988_Markt__Technik_de_Side_A.d64 / henning (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  572b  |  23 lines
  1. 5 rem *** eis-kauf-programm ***
  2. 10 print "[147]"
  3. 20 print "der eismann ist da"
  4. 30 print "willst du ein eis?"
  5. 40 input e$
  6. 50 if e$="n" then print:print"schade":goto 200
  7. 60 print:print"hast du geld?"
  8. 70 input g$
  9. 80 if g$="n" then print"du gehst erst geld holen"
  10. 90 print:print"du gehst vorsichtig ueber die strasse"
  11. 100 print:print"du kaufst ein eis"
  12. 105 rem *** jetzt wird das eis gezahlt ***
  13. 110 x=x+1
  14. 120 print:print"willst du noch eins?"
  15. 130 input n$
  16. 140 if n$="n" then 170
  17. 150 print:print"du kaufst eis nummer ";x+1
  18. 160 goto 110
  19. 170 print:print"du hast bauchscmerzen bekommen"
  20. 180 if x=1 then print:print"eis bekommt dir nicht":goto 200
  21. 190 print:print x;" eis bekommen dir nicht"
  22. 200 end
  23.