home *** CD-ROM | disk | FTP | other *** search
/ Tiger Disk 105 / Tiger_Disk_105_20xx_Tiger-Crew-Disk_de_Side_B.d64 / shuffle-puzzle (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  2KB  |  62 lines
  1. 10 poke49152,0:poke53280,0:poke53281,0:gosub400
  2. 20 dimt(12):forx=0to11:readd:t(x)=d:next:va=49152:ve=peek(va)
  3. 30 data219,91,219,91,219,91,91,219,91,219,91,219
  4. 40 cr=91:rc=219:sp=32:po=1430:ts=1630
  5. 50 print"[147][150]       tasten 1 bis 6 zum aendern       ";
  6. 60 print"           return [146] = ausfuehren"
  7. 70 forx=0to4step2:pokepo+x,cr:next:forx=6to10step2:pokepo+x,rc:next
  8. 80 geta$:ifa$=""then80
  9. 90 ifa$=chr$(13)then170
  10. 100 a=val(a$):ifa<1ora>6then80
  11. 110 a=(a-1)*2:gosub130
  12. 120 goto80
  13. 130 n=peek(po+a):ifn=rcthenn=cr:pokepo+a,n:goto150
  14. 140 pokepo+a,rc
  15. 150 return
  16. 160 end
  17. 170 print"here we go!":l=0:l1=0
  18. 180 c=po+l:c=c-40:c1=peek(po+l):pokepo+l,32
  19. 190 forx=0to11-l1:pokec+x ,c1:pokec-1+x,32:fory=0to40:nexty,x:fory=0to75:next
  20. 200 pokec-1+x,32:c=c+40:pokec+x,c1:
  21. 210 c=po+2:c=c+40:c1=peek(po+l+2):pokepo+l+2,32
  22. 220 forx=lto-2+l1step-1:pokec+x,c1:pokec+1+x,32:fory=0to30:nexty,x:
  23. 230 fory=0to75:next
  24. 240 forn=1to4:pokec+1+x,32:c=c+40:pokec+1+x,c1:fory=1to75:nexty,n
  25. 250 l1=l1+2:l=l+4:ifl<>24then180
  26. 260 forx=12to0step-2
  27. 270 ifpeek(ts)<>t(0)thenx=7:y=2:goto290
  28. 280 x=1:y=2
  29. 290 ifpeek(ts+y)=t(x)then310
  30. 300 goto 340
  31. 310 x=x+1:y=y+2
  32. 320 ify<>12then 290
  33. 330 print"[158]jaaa!!! - ganz toll!":gosub490:goto380
  34. 340 print"[151]oops,  nicht richtig...!"
  35. 350 print"neuer versuch   <j/n> ?":ve=ve+1
  36. 360 geta$:ifa$=""then360
  37. 370 ifa$="j"thenprint"":pokeva,ve:restore:run20
  38. 380 print"[147][154]":poke53281,6:poke53280,14:print"du hattest"ve"versuche..."
  39. 390 end
  40. 400 print"[147][150]              the shuffle"
  41. 410 print"[154]         [213][192][201] [178] [178] [192][192][201] [192][192][201] [178]  [176][192][192]"
  42. 420 print"[155]         [221] [221] [221] [221]  [213][203]  [213][203] [221]  [221] "
  43. 430 print"[151]         [171][192][203] [221] [221] [213][203]  [213][203]  [221]  [171][192]"
  44. 440 print"[152]         [221]   [221] [221] [221]   [221]   [221]  [221] "
  45. 450 print"         [177]   [202][192][203][160][202][192][203] [202][192][203][160][173][192][192][173][192][192]"
  46. 460 print"            anleitung mit f1 "
  47. 465 print" [155]           start  mit taste "
  48. 470 geta$:ifa$=""then470
  49. 475 ifa$=chr$(133)thengosub500
  50. 480 return
  51. 490 forx=0to96:poke53280,x:poke53281,x:next:return
  52. 500 print"[147]anleitung:":print"der sinn des spieles ist, die zeichen"
  53. 510 print" ' [219] ' und ' [219][146] ' ":print"in eine abwechselnde reihenfolge"
  54. 520 print"zu bringen.":print"einem '[219][146]' muss also ein '[219]', diesem"
  55. 530 print"wieder ein '[219][146]' - usw. folgen.":print"das setzen der zeichen wird vom ";
  56. 540 print"pro-    gramm ausgefuehrt - deine aufgabe ist   es, die vorgegebene ";
  57. 545 print"reihenfolge der":print"zeichen so zu aendern, dass diese durch"
  58. 550 print"das versetzungs-schema in die genannte  folge gebracht werden."
  59. 560 print" zum aendern benutze die tasten 1 - 6,":print" wenn du fertig bist, ";
  60. 570 print"druecke return !":print"[155]   viel glueck ! - t i g e r c r e w"
  61. 580 poke198,0:wait198,1:poke198,0:return
  62.