home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / sh0x / sh01.d64 / hamburger (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1995-03-30  |  554 b   |  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.