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