home *** CD-ROM | disk | FTP | other *** search
/ B Soft 6 / B-Soft_6_19xx_Maik__Mike_de_Side_B.d64 / phonemania (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  925b  |  39 lines
  1. 0 rem  **************
  2. 1 rem  * 100% basic *
  3. 2 rem  * ---------- *
  4. 3 rem  *    von     *
  5. 4 rem  *champ/lagune*
  6. 5 rem  *  fuer die  *
  7. 6 rem  *b-soft disks*
  8. 7 rem  * ---------- *
  9. 8 rem  *  n-joy it  *
  10. 9 rem  **************
  11. 10 rem(NULL)
  12. 11 poke53281,0:poke53280,0:poke646,8
  13. 12 print"[147]die vorgeschichte !!
  14. 13 [153]"liebe spieler,
  15. 14 print"da ich jetzt zu faul bin eine
  16. 15 [153]"vorgeschichte zu schreiben, fangen wir
  17. 16 print"gleich mit dem spiel an.
  18. 17 [153]"press space
  19. 18 geta$:ifa$=""then18
  20. 19 print"[147]du bist am telefonieren.
  21. 20 [153]"was willst du tun ?"
  22. 21 [153]"1. auflegen
  23. 22 print"2. weiter telefonieren
  24. 23 [153]"3. gar nix tun.
  25. 24 input"na jetzt sag schon";a$
  26. 25 ifa$="1"then 29
  27. 26 ifa$="2"then 33
  28. 27 ifa$="3"then 36
  29. 28 goto 19
  30. 29 print"[147]gut, du legst den hoerer auf, und
  31. 30 [153]"ein paar sekunden spaeter klingelt es
  32. 31 print"wieder.
  33. 32 [137] 20
  34. 33 [153]"loaddu laberst und laberst und laberst"
  35. 34 [153]"und hoerst gar nicht mehr auf ...
  36. 35 goto 20
  37. 36 print"[147]du tust nix und hoerst nur zu."
  38. 37 goto 20
  39.