home *** CD-ROM | disk | FTP | other *** search
/ Commodore Disc 42 / Commodore_Disc_42_19xx_-_de.d64 / einsiedler (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  76 lines
  1. 10 rem einsiedlerspiel =========64
  2. 20 rem (p) commodore disc       ==
  3. 30 rem ===========================
  4. 40 rem (c) by e. schulz         ==
  5. 50 rem        schoenwalde       ==
  6. 60 rem                          ==
  7. 70 rem basic v2.0               ==
  8. 80 rem c64                      ==
  9. 90 rem ===========================
  10. 95 gosub1000:poke646,0:poke53281,1
  11. 100 printcl$c1$"           das einsiedlerspiel"
  12. 110 printc1$" zum setzen faehrst du mit den cursor-
  13. 120 [153]c1$" steuertasten unter den zu setzenden
  14. 130 printc1$" stein, drueckst space und faehrst dann
  15. 140 [153]c1$" unter die zielposition und drueckst
  16. 150 printc1$" erneut space."
  17. 160 printc1$" mit (*) kannst du das spiel beenden."
  18. 170 printc1$c1$" waehle eine der 2 moeglichkeiten
  19. 180 [153]c1$" 1 = loesung
  20. 190 printc1$" 2 = volles feld
  21. 200 [161]a$:a[178][197](a$):[139]a[179]1[176]a[177]2[167]200
  22. 210 [145]a[137]220,220
  23. 220 [153]cl$c1$"           das einsiedlerspiel
  24. 230 print:print"*****************************************
  25. 240 [153]r1$"                (NULL) (NULL) (NULL)
  26. 245 printr1$"                [209] [209] [209]
  27. 250 [153]r1$"            (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)
  28. 260 printr1$"            [209] [209] [209] [215] [209] [209] [209]
  29. 270 [153]r1$"            (NULL) (NULL) (NULL) (NULL) (NULL) (NULL) (NULL)
  30. 275 printr1$"                [209] [209] [209]
  31. 280 [153]r1$"                (NULL) (NULL) (NULL)
  32. 285 printc4$"**
  33. 290 [153]c4$"**
  34. 295 printc4$"*****************************************"
  35. 300 x=1403:pokex,30:pokex+54272,0:za=32
  36. 310 ifa=1then340
  37. 320 geta$:ifa$="*"then540
  38. 330 gosub410:goto320
  39. 340 readx$:i=1
  40. 350 w=val(mid$(x$,i,1)):a$=mid$(sc$,w,1):ifa$=kl$then540
  41. 360 fort=1to 00:next
  42. 370 gosub410:i=i+1:ifi<=len(x$)then350
  43. 380 goto340
  44. 410 ifa$<>" "then480
  45. 420 ify<>0then450
  46. 430 ifpeek(x-40)<>81thenreturn
  47. 440 y=x-40:pokey,42:return
  48. 450 ifpeek(x-40)<>87or(abs(y-x+40)<>4andabs(y-x+40)<>160)thenpokey,81:y=0:return
  49. 460 ifpeek((y-x+40)/2+x-40)<>81thenpokey,81:y=0:return
  50. 470 pokex-40,81:poke(y-x+40)/2+x-40,87:pokey,87:y=0:z=z+1:return
  51. 480 ifa$=c3$andpeek(x-80)=32thenpokex,32:x=x-80
  52. 490 ifa$=c1$andpeek(x+80)=32thenpokex,32:x=x+80
  53. 500 ifa$=c4$andpeek(x-2)=32thenpokex,32:x=x-2
  54. 510 ifa$=c2$andpeek(x+2)=32thenpokex,32:x=x+2
  55. 520 pokex,30:pokex+54272,0
  56. 530 return
  57. 540 ifa<>1then560
  58. 545 poke782,1:poke781,23:sys65520:print"der computer hat dir jetzt die loesung"
  59. 550 print" gezeigt. nun bist du an der reihe.":goto590
  60. 560 poke782,7:poke781,23:sys65520:print"du hast":printz"steine geschlagen."
  61. 570 ifza-z>1thenprint"     es sind noch"za-z"steine uebrig.":goto590
  62. 580 print"           das ist optimal !!!
  63. 590 [161]a$:[139]a$[178]""[167]590
  64. 600 [138]
  65. 610 [131]"51153445225433511533225445111533535115254452111533"
  66. 620 [131]"53445225511534452255115344522533222544521153351122"
  67. 630 [131]"54453345225254453511515335122544535115452254115335"
  68. 640 [131]"254455445221153353511541533545225153356"
  69. 1000 c1$[178][199](017):c2$[178][199](029)
  70. 1010 c3$[178][199](145):c4$[178][199](157)
  71. 1020 kl$[178][199](064):cl$[178][199](147)
  72. 1030 sc$[178]c1$[170]c2$[170]c3$[170]c4$[170]" "[170]kl$
  73. 1040 r1$[178]c4$[170]"**"[170]c1$[170]c4$[170]c4$[170]"**"
  74. 2000 [142]
  75. 3300 [143] programmende=============
  76.