home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 17 / 64er_Magazin_Sonderheft_17_19xx_Markt__Technik_de_Side_A.d64 / quadrix (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  140 lines
  1. 100 rem quadrix, ein denkspiel von
  2. 105 rem
  3. 110 rem walter trump
  4. 115 rem reichelsdorfer schulgasse 18
  5. 120 rem 8500 nuernberg 60
  6. 125 :
  7. 150 rem initialisieren
  8. 155 :
  9. 160 poke 53280,0:poke 53281,0
  10. 165 dim f(5,5),c$(5,5),q$(25),a$(5),b$(5)
  11. 170 z=rnd(-ti):def fnr(x)=int(rnd(1)*2)*2+x
  12. 175 u$="          quadrix "
  13. 180 r$="[157][145][152][176][192][192][192][174][157][157][157][157][157][221][157][221][157][221][157][173][192][192][192][189][145][157][221][157][145][221][157][145][221]"
  14. 185 l$="[157][145][160][160][160][160][160][157][157][157][157][157] [157] [157] [157]     [157][145] [157][145] [157][145] "
  15. 190 fa$="[158][156]":c$(0,0)=""
  16. 195 :
  17. 200 for y=1 to 5:c$(0,y)=c$(0,y-1)+""
  18. 205 for x=1 to 5:c$(x,y)=c$(x-1,y)+""
  19. 210 z=5*y-5+x:f(x,y)=z
  20. 215 q$(z)=mid$(fa$,y,1)+"   [157][157][157] "+chr$(z+64)+" [157][157][157]   "
  21. 220 next x,y
  22. 225 :
  23. 230 a$(0)="schade":b$(0)="anfaenger"
  24. 235 a$(1)="nicht schlecht":b$(1)="amateur"
  25. 240 a$(2)="prima":b$(2)="meister"
  26. 245 a$(3)="ausgezeichnet":b$(3)="profi"
  27. 250 a$(5)="unglaublich":b$(5)="genie"
  28. 255 :
  29. 260 gosub 660
  30. 265 :
  31. 300 rem tastaturabfrage
  32. 305 :
  33. 310 print c$(v,w) r$
  34. 315 print u$ mid$(ti$,1,2)"h "mid$(ti$,3,2)"m "mid$(ti$,5,2)"s"
  35. 320 get g$:if g$="" then 315
  36. 325 if g$="x" then d=-1:gosub 410
  37. 330 if g$="z" then d=+1:gosub 410
  38. 335 if g$="" then print c$(v,w) l$:w=(wand2)+2
  39. 340 if g$="" then print c$(v,w) l$:v=(vand2)+2
  40. 345 if g$="r" then gosub 910:gosub 610
  41. 350 if g$="m" then gosub 460
  42. 355 if g$="a" then gosub 510
  43. 360 if g$="s" then gosub 710
  44. 365 if g$="l" then gosub 760
  45. 370 if g$="e" then gosub 910:end
  46. 375 goto 310
  47. 380 :
  48. 400 rem drehen
  49. 405 :
  50. 410 z=f(v-1,w-1):f(v-1,w-1)=f(v+d,w-d):f(v+d,w-d)=f(v+1,w+1)
  51. 415 f(v+1,w+1)=f(v-d,w+d):f(v-d,w+d)=z
  52. 420 z=f(v,w-1):f(v,w-1)=f(v+d,w):f(v+d,w)=f(v,w+1)
  53. 425 f(v,w+1)=f(v-d,w):f(v-d,w)=z
  54. 430 for y=w-1 to w+1:for x=v-1 to v+1
  55. 435 print c$(x,y) q$(f(x,y)):next x,y
  56. 440 dr=dr+1:return
  57. 445 :
  58. 450 rem mischen
  59. 455 :
  60. 460 mi=1:for n=1 to 20
  61. 465 print c$(v,w) l$
  62. 470 v=fnr(2):w=fnr(2):d=fnr(-1)
  63. 475 print c$(v,w) r$:gosub 410:next
  64. 480 ti$="000000":dr=0:return
  65. 485 :
  66. 500 rem anleitung
  67. 505 :
  68. 510 print"[147]quadrix - anleitung
  69. 515 [153]"defdie 25 kleinen farbigen quadrate sollen
  70. 520 print"nach dem mischen wieder an ihre ur-
  71. 525 [153]"spruengliche position gebracht werden.
  72. 530 print"hierzu kann jeweils eine gruppe von
  73. 535 [153]"3x3 quadraten um ihr eingerahmtes
  74. 540 print"mittelquadrat gedreht werden.
  75. 545 [153]"m...mischen und uhr zurueckstellen
  76. 550 print"r...resultat anzeigen
  77. 555 [153]"s...speichern des spielstandes auf disk
  78. 560 print"l...laden des letzten spieles von disk
  79. 565 [153]"defaenderung des drehpunktes:(ohne shift)
  80. 570 print"linke  cursortaste...hoch-tief
  81. 575 [153]"rechte cursortaste...links-rechts
  82. 580 print"[150]drehung ausfuehren:(jeweils 90 grad)
  83. 585 [153]"z...gegen den uhrzeigersinn
  84. 590 print"x...im uhrzeigersinn
  85. 595 :
  86. 600 [143] auf taste warten
  87. 605 :
  88. 610 [153]"sysbitte druecken sie eine taste !";
  89. 615 [161] g$:[139] g$[178]"" [167] 615
  90. 620 :
  91. 650 [143] zeichnen
  92. 655 :
  93. 660 [153]"load"[163]10)"lista=anleitung  e=ende
  94. 665 for y=1 to 5:for x=1 to 5
  95. 670 print c$(x,y) q$(f(x,y))
  96. 675 next x,y:v=2:w=2:return
  97. 680 :
  98. 700 rem speichern
  99. 705 :
  100. 710 open 1,8,1,"@:-quadrix-daten"
  101. 715 print#1,"q";
  102. 720 for y=1 to 5:for x=1 to 5
  103. 725 print#1,f(x,y):next x,y
  104. 730 print#1,ti$:print#1,dr:print#1,mi
  105. 735 close 1
  106. 740 goto 810
  107. 745 :
  108. 750 rem laden
  109. 755 :
  110. 760 open 1,8,0,"-quadrix-daten"
  111. 765 get#1,g$:if g$<>"q" then 785
  112. 770 for y=1 to 5:for x=1 to 5
  113. 775 input#1,f(x,y):next x,y
  114. 780 input#1,ti$:input#1,dr:input#1,mi
  115. 785 close 1
  116. 790 goto 810
  117. 795 :
  118. 800 rem fehler-kanal
  119. 805 :
  120. 810 open 2,8,15:input#2,z,z$:close 2
  121. 815 if z=0 then 660
  122. 820 print"[147]"z$:goto 610
  123. 825 :
  124. 900 rem resultat
  125. 905 :
  126. 910 print"[147] quadrix - resultat:
  127. 915 [139] mi[178]0 [167] [153]" erst mischen!":[137] 975
  128. 920 q[178]0:r[178]0:[129] y[178]1 [164] 5:z[178]0:[129] x[178]1 [164] 5
  129. 925 [139] f(x,y)[178]5[172]y[170]x[171]5 [167] q[178]q[170]1:z[178]z[170]1
  130. 930 [130] x:r[178]r[170][181](z[173]5):[130] y
  131. 935 [153]"def "a$(r)"!"
  132. 940 [153]" sie sind ein quadrix-"b$(r)"."
  133. 945 [153]" sie haben"r"reihe"[199]([171]78[172](r[179][177]1))" wiederhergestellt.
  134. 950 print" insgesamt sind"q"quadrate richtig.
  135. 955 [153]" fuer diese leistung benoetigten sie
  136. 960 print""dr"drehungen und eine zeit von
  137. 965 [153]" "[202](ti$,1,2)" stunden "[202](ti$,3,2);
  138. 970 [153]" minuten "[202](ti$,5,2)" sekunden."
  139. 975 [142]
  140.