start tok64 d64-ZL74dA
0 POKE50257,16:POKE198,0:IFPEEK(12288)=255THEN60
10 POKE53280,0:POKE53281,0:PRINT"{clear}{down*4}{cyan}{space*3}zum saven jetzt {reverse on}ctrl{reverse off} {reverse on}s{reverse off} druecken !":PRINT"{down}{space*3}sonst {reverse on}space{reverse off} !"
40 IFPEEK(203)<>60THEN40
50 IFPEEK(203)=60THEN50
55 SYS8576:POKE46,73:CLR
60 POKE50257,20:PRINT"{clear}":SYS8192:si=54272:fh=si+1:w=si+4:a=si+5:h=si+6:l=si+24:DIMu$(20):PRINT"{clear}"CHR$(14)CHR$(8);:n=14:GOSUB120:GOTO290
120 FORi=1TOn:READu$(i):NEXTi:FORk=1TOn:FORj=1TOLEN(u$(k)):b$=MID$(u$(k),j,1):PRINTb$;:GOSUB150:NEXTj:PRINT:PRINT:NEXTk:RETURN
150 IFb$=" "THENRETURN
160 POKEl,15:POKEa,19:POKEh,0:POKEfh,74:POKEw,33:FORsd=1TO10:NEXTsd:POKEw,32:RETURN:DATA"{space*7}{156}{reverse on} Paulchen's{space*2}Schiebung {reverse off}{space*30}":DATA"{green} Bei diesem Spiel musst Du die beiden":DATA" Paulchen wieder zurueckschieben.{space*6}"
210 DATA" Hierzu bewege den Cursor auf das{space*6}":DATA" zu verschiebende Feld und druecke{space*5}":DATA" {reverse on} SPACE {reverse off} oder {reverse on} FEUER {reverse off}. Wenn beide ":DATA" Paulchen wieder richtig sind,kann noch"
250 DATA" mal das gleiche Bild abgerufen werden.":DATA" Z.B. fuer mehrere Spieler.{space*12}":DATA" Die Tasten sind {reverse on} A {reverse off},{reverse on} Z {reverse off},{reverse on} , {reverse off},{reverse on} . {reverse off} ! ":DATA" oder Joystick Port 2 .":DATA" Das Mischen wird mit {reverse on} SPACE {reverse off} gestartet"
286 DATA" und auch wieder gestoppt.{space*13}":DATA"{space*13}Viel Spass!{space*15}"
290 PRINT"{space*11}{cyan} Druecke SPACE":WAIT203,64,64:PRINT"{clear}"CHR$(142):DIMv(18,3):FORi=0TO18:FORj=0TO3:READv(i,j):NEXT:NEXT:DATA1,5,1,5,-1,5,1,5,-1,5,1,5,-1,5,-1,5,,,,:DATA-5,1,5,1,-1,1,-5,5,-1,1,-5,5,-1,-5,5,-1,,,,
360 DATA-5,1,5,1,-1,1,-5,5,-1,1,-5,5,-1,-5,5,-1,,,,:DATA-5,1,-5,1,-1,-5,1,-5,-1,1,-5,-5,-1,-5,-1,-5:v=53248:FORi=0TO63:READa:POKE896+i,a:NEXT:DATA0,0,0,0,0,0,120,0,60,132,0,66:DATA148,198,89,73,199,38,46,56,232
430 DATA66,238,132,129,239,2,128,68,2:DATA128,254,2,65,125,4,62,56,248,3:DATA147,128,14,16,252,57,239,27,80:DATA130,4,160,68,2,0,56,0,0,0,0,0:DATA0,0,173:POKEv+29,255:POKE53265,27:DIMa$(15):r$="{down}{left*9}"
520 a$(0)="{space*8}b"+r$+"{space*2}{arrow left}^!{pound}#$b"+r$+"jk@lmnopq"+r$+"VWXYZ{sh +}{cm -}{sh -}{pi}":a$(0)=a$(0)+r$+"{space*4}{cm r}{cm w}@@e"+r$+"{a*4}{reverse on}@{reverse off}dd{reverse on}a{reverse off}f":a$(1)="{space*8}b"+r$+"{space*5}%&'b"+r$+";<=>?{sh asterisk}ABC"+r$+"{@*4}{cm asterisk}{sh space}{cm k}{cm i}{cm t}"
550 a$(1)=a$(1)+r$+"{@*4}{cm h}{cm j}{cm l}{cm y}{cm u}"+r$+"{d*4}{reverse on}bcdef":a$(2)="{space*8}b"+r$+" ()*+{space*3}b"+r$+"DEFGHIJKL"+r$+"{cm @}{cm g}{cm +}{cm m}{cm pound}{@*3}e"+r$:a$(2)=a$(2)+"@{cm d}{sh @}{cm f}{cm c}{@*3}e"+r$+"{reverse on}ghij{reverse off}d{reverse on}kl{reverse off}df":a$(3)="{space*8}b"+r$+" ,-./ghib"+r$+"MNOPQRSTU"+r$+"{sh pound}{cm n}{cm q}{cm d}{cm z}{cm s}{cm p}{cm a}{cm e}"+r$
590 a$(3)=a$(3)+"{@*3}{cm x}{cm v}{cm b}{space*2}b"+r$+"d{reverse on}m{reverse off}dd{reverse on}no{reverse off}aac":a$(4)="{space*4}{reverse on}pqrst{reverse off}"+r$+"{space*6}{reverse on}*+,{reverse off}"+r$+"{space*3}{reverse on}>?{sh asterisk}ABC{reverse off}"+r$:a$(4)=a$(4)+"{space*2}{reverse on}YZ{sh +}{cm -}{sh -}{pi}{cm asterisk}{reverse off}"+r$+"{space*3}{reverse on}{cm a}{cm e}{cm r}{cm w}{reverse off} b"+r$+"{a*8}c":a$(5)="{reverse on}uvwxyz[{pound}{reverse off}e"+r$+"{reverse on}-./01{reverse off}@@{reverse on}23{reverse off}"+r$+"{reverse on}DEFGH{reverse off}@{reverse on}IJK"+r$
640 a$(5)=a$(5)+"{reverse on}{sh space}{cm k}{reverse off}{space*2}{reverse on}{cm i}{cm t}{cm @}{reverse off}@e"+r$+"{space*6}{reverse on}{cm h}{cm j}{cm l}{reverse off}"+r$+"{a*8}c":a$(6)="@{reverse on}]^{arrow left} !{reverse off}]{reverse on}#${reverse off}"+r$+"{reverse on}45{reverse off}@@{reverse on}6789:{reverse off}"+r$+"{reverse on}LMN{reverse off}@{reverse on}OPQRS{reverse off}"+r$:a$(6)=a$(6)+"@@{reverse on}{cm g}{cm +}{cm m}{reverse off}{space*2}{reverse on}{cm pound}{sh pound}{reverse off}"+r$+"{reverse on}{cm y}{cm u}{cm d}{sh @}{reverse off}{space*4}b"+r$+"{a*8}c"
670 a$(7)="{reverse on}%&'(){reverse off}{space*3}b"+r$+"{reverse on};<={reverse off}{space*5}b"+r$+"{reverse on}TUVWX{reverse off}{space*3}b"+r$:a$(7)=a$(7)+"{reverse on}{cm n}{cm q}{cm d}{cm z}{reverse off} {reverse on}{cm s}{cm p}{reverse off} b"+r$+"{space*2}{reverse on}{cm f}{cm c}{cm x}{cm v}{reverse off}{space*2}b"+r$+"{a*8}c":FORi=0TO7:a$(i+8)="{light green}"+a$(i):NEXT:FORi=0TO7:a$(i)="{dark gray}"+a$(i):NEXT
710 a$(15)="{orange}{@*8}e"+r$+"{@*8}e"+r$+"{@*8}e"+r$+"{@*8}e"+r$:a$(15)=a$(15)+"{@*8}e"+r$+"{d*8}f":DIMp$(18):p1$="{right*9}":p2$="{down*6}":p$(0)="nn":p$(1)=p$(0)+p1$
760 p$(2)=p$(1)+p1$:p$(3)=p$(2)+p1$:p$(5)=p$(0)+p2$:p$(6)=p$(5)+p1$:p$(7)=p$(6)+p1$:p$(8)=p$(7)+p1$:p$(10)=p$(5)+p2$:p$(11)=p$(10)+p1$:p$(12)=p$(11)+p1$:p$(13)=p$(12)+p1$:p$(15)=p$(10)+p2$
870 p$(16)=p$(15)+p1$:p$(17)=p$(16)+p1$:p$(18)=p$(17)+p1$:DIMps(15):DIMp2(15):DIMs(18):SYS4*4096:FORa=0TO12STEP4:FORi=aTOa+3:ps(i)=i+c:NEXTi:c=c+1:NEXTa
980 POKE53265,11:POKE53270,PEEK(53270)OR16:PRINTCHR$(147);:POKE53281,1:POKE53282,0:POKE53283,7:PRINTCHR$(14):POKE53272,29:FORi=0TO15:PRINT"{home}"p$(ps(i))a$(i):NEXTi:PRINT"{home}";:FORi=1TO24:PRINT"nn{left*2}{down}";:NEXT:PRINT"nn";:PRINT"{home}{down}{left*2}";:FORi=1TO24:PRINT"nn{left*2}{down}";:NEXT
1070 PRINT"{left}bn";:POKE2023,14:POKE56295,8:POKE53281,10:i=0:POKE53265,27:SYS8656:POKE53281,10
1100 z=INT(RND(0)*4):z=ps(15)+v(ps(15),z):IFps(i)=zTHEN1100
1120 FORi=0TO15:IFps(i)<>zTHENNEXT
1130 pa=ps(i):ps(i)=ps(15):ps(15)=pa:PRINT"{home}"p$(pa)a$(15)"{home}"p$(ps(i))a$(i):IFPEEK(56320)<>111ANDPEEK(203)<>60THEN1100
1170 FORi=0TO15:p2(i)=ps(i):s(ps(i))=i:NEXTi
1190 v=53248:POKE53272,29:POKE2042,14:POKEv+41,6:POKEv+4,54:POKEv+5,68:ti$="{0*6}":z=0:POKEv+21,4:PRINT"{home}"p$(15)"{down*6}{space*6}tuvw:"ti$"{space*4}txy:"z;:POKE53265,27
1240 POKE214,24:POKE211,14:SYS58640:PRINTti$"{right*8}"z;:SYS8352:IFPEEK(2)THEN1240
1260 x=PEEK(53252):y=PEEK(53253):sp=INT((x-16)/72)+INT((y-36)/48)*5:IFps(15)<>sp-5ANDps(15)<>sp+5ANDps(15)<>sp+1ANDps(15)<>sp-1THEN1240
1310 z=z+1:h1=ps(15):ps(15)=sp:ps(s(sp))=h1:h2=s(sp):s(sp)=15:s(h1)=h2:PRINTCHR$(19)p$(ps(15))a$(15):PRINTCHR$(19)p$(h1)a$(h2):c=0:FORa=0TO12STEP4:FORi=aTOa+3:IFps(i)<>i+cTHEN1240
1410 NEXTi:c=c+1:NEXTa:t=ti:PRINT"{clear}":POKE53252,250:POKE53253,75:POKE53270,200:POKE56576,151:POKE53272,21:POKE53281,15:PRINT:PRINT"{orange} du hast es geschafft {!*3}":PRINT:PRINT" du brauchtest"INT(t/60)"sekunden ":PRINT:PRINT" und"z"zuege."
1490 PRINT"{down*2} nochmal das letzte puzzle ? (l)":PRINT" oder neu mischen{space*10}? (m)"
1510 GETa$:IFa$=""THEN1510
1520 IFa$="l"THEN1550
1530 IFa$<>"m"THEN1510
1540 POKEv+21,0:GOTO980
1550 POKE53265,11:POKE53280,0:POKE53281,10:POKE56325,64:PRINT"{clear}":POKE53282,0:POKE53283,7:PRINTCHR$(14):FORi=0TO15:ps(i)=p2(i):s(ps(i))=i:NEXTi:POKE53272,29:POKE53270,216:FORi=0TO15:PRINT"{home}"p$(ps(i))a$(i):NEXTi:PRINT"{home}";:FORi=1TO24:PRINT"nn{left*2}{down}";:NEXT:PRINT"nn";
1670 PRINT"{home}{down}{left*2}";:FORi=1TO24:PRINT"nn{left*2}{down}";:NEXT:PRINT"{left}bn";:POKE2023,14:POKE56295,8:GOTO1190
stop tok64
(bastext 1.0)