home *** CD-ROM | disk | FTP | other *** search
/ Publication 8 / Publication_08_1996_High-Tech_de_Side_B.d64 / bombenleger (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  1KB  |  35 lines
  1. 2 print"[147]":poke53280,0:poke53281,0
  2. 3 print"           >> bombenleger <<            "
  3. 4 print"sie haben den auftrag, eine bombe zu    entschaerfen.
  4. 5 [153]"sie sollen versuchen, die richtigen     leitungen in der richtigen"
  5. 6 [153]"reihenfolge zu durchtrennen"
  6. 7 [153]"es sind 3 stellen moeglich."
  7. 10 [153]"viel glueck !!"
  8. 11 [153]"              taste druecken."
  9. 12 [146]198,1:[161]e$
  10. 30 [153]"load        (NULL)lenlenlenlenlenlenlenlenlenright$"
  11. 31 [153]"(NULL)lenlenlenlenlenlenlen<mid$right$mid$sys1mid$(NULL)   -lenlenlenlenlenright$
  12. 32 print"[194]       [202][195][195][195][195][195][195][195][195][195][203]     [202][195][201]
  13. 33 [153]"(NULL)lenlenlenright$                spc(spc(spc(spc(len(NULL)
  14. 34 print"[158]2   [209][178][195][195][195][195][195][195][195][195][178][195][195][195][195][195][195]@[158]5
  15. 35 [153]"    sys3peek        peek      peek"
  16. 36 [153]"    (NULL)(NULL)        peek      spc(
  17. 37 print"    [194]         [194]     [158]6 [166]"
  18. 38 print"          [146]    [171][195][195][195][195][195][195][195][203]
  19. 39 [153]"     sys4    waitlenlenlenlen(NULL)
  20. 40 print"welche reihenfolge ?"
  21. 41 input"stelle 1 ";a
  22. 42 input"stelle 2 ";b
  23. 43 input"stelle 3 ";c
  24. 50 ifa=3andb=6andc=1then100
  25. 60 print"[147]leider sind sie ein opfer ihrer eigenen ueberheblichkeit geworden."
  26. 70 print"tut mir leid ! sie haben verloren !!":goto130
  27. 100 print"[147]gratuliere ! sie scheinen ein spezialistzu sein ! wie haben sie das"
  28. 110 printtab(28)"[145]gemacht ?"
  29. 120 print"sie sind wohl sprengmeister, was ?"
  30. 130 print"noch eine runde <j/n> ?"
  31. 140 gete$:ife$=""then140
  32. 150 ife$="j"then1
  33. 160 ife$="n"thensys64760
  34. 170 goto140
  35.