home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 1 / 64er_Magazin_Sonderheft_01_86-01_19xx_Markt__Technik_de.d64 / hamburger (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  554b  |  16 lines
  1. 10 a$="hamburger":b$="senf":c$="ketchup":d$="salat":e$="fleisch":f$="broetchen"
  2. 11 input"was moechten sie bitte";z$
  3. 12 ifz$=a$then goto16
  4. 13 ifz$<>a$thenprint"haben wir nicht. wie waers mit einem hamburger?"
  5. 14 goto11
  6. 15 print"kommen sie morgen wieder, mir wird uebel":goto24
  7. 16 input"na prima, was gehoert dazu";z$
  8. 17 ifz$=b$thenprint"wie das schmeckt!":goto23
  9. 18 ifz$=c$thenprint"darf nicht fehlen!":goto23
  10. 19 ifz$=d$thenprint"sie sind ein kenner!":goto23
  11. 20 if z$=e$thengoto15
  12. 21 ifz$=f$thenprint"damit er nicht so in der hand rumflutscht!":goto23
  13. 22 print"aber wirklich nicht!"
  14. 23 input"was noch";z$:goto17
  15. 24 fora=1to3000:next:goto10
  16.