ZXTape! KASTELY " "w $ **********  * Adatok *  ********** #0:0:7: ( 31999| -?10 ,0;1;" ALLITSD LE A MAGNOT ES VARJ! " 25r=9900&:h=32000}:v=235:100d <.r=9920&:h="a":v=146:100d F4r=9930&:h=32249}:v=86V:100d P4r=9940&:h=32339S~:v=86V:100d Z2:" FOLYTATODHAT A BETOLTES! ":"KASTELY 2" dr:A$:I=0v:B$=A$(I*2+1I*2+2):B=16*(B$(1)-480-7*(B$(1)"A"))+B$(2)-480-7*(B$(2)"A") n h+i,b:i x &"3A005BE60128153E0132015BCD2D7DCD457DCD6D7DCD877DCDBF7DC93A015BE6012809CD2D7D21000022025BC9ED5B025B2A0A5B0615C5D5010400EDB0D1CDDB7DC110F2C93A045B4F3EE7B930014F3A055BC605473EAAB8300147CDAA2222025B32095B2A065B2B7E32085BC9ED5B025B2A0A5B0615C5D5010400EBEDB0EBD1CDDB7DC110F0C93A095B21085BBEC83815E52A065B0654CB1E2310FBE1347E2A065B2B7718E1E52A065B015300090654CB162B10FBE1357E2A065B2B7718C8ED5B025B2A065B0615C5D506041AB612132310F9D1CDDB7DC110EEC9147AE607C07BD6E05FD07AD60857C9000000000000" &,"FF080808FF808080000000FF818181FF1C1C083E5D5D143682A2AAABABEFFFFF7E427E427E427E42071F3A7272D2FFD2E0F85C4E4E4BFF4BD2D2FFD2D2D2FFD24B4BFF4B4B4BFF4B00F0C2C2FB87FF7B00101010543810000010207E201000000008047E04080000B52DD6AD5AE5359AADD2AFD43BD5B6DD040A110A14A04080C0C0C0C0C0C0C0C0030303030303030300000000" &ʶ"0000360000007C000000D7000000D7000010D7840018FF8C001FBB9C000FC7FC0007FFF80001FFE00001FF800001FF800003FF800003FF800003FF000003FF000003FF000001FF800001FFE600003FFC00000FF80000000000" &Զ"00006C0000003E000000EB000000EB000021EB080031FF180039DDF8003FE3F0001FFFE00007FF800001FF800001FF800001FFC00001FFC00000FFC00000FFC00000FFC00001FF800067FF00003FFC00001FF0000000000000" ':"KASTELY"10 KASTELY 2 j :sp="32000":jo="0" "l$=°"16"+°"6"+°"19"+°"1"+"" "t$=°"16"+°"3"+°"19"+°"1"+"" Kq("7","2"):p="0":el="2":h$=" ":qu=p:a="5":b="12":z="1":t=p 2 "7000" ` "3070" a "4010" b "4050" d "2000" g a,b;"" o *^ * jo170 z$= z$="q"2700 z$="a"2600( z$="o"2400` z$="p"2500 290" 31=82700 31=42600( 31=22400` 31=12500 ' ******* ,b=23t=1t=0:5,27;" ":i=a17:i,b+1;t$:.01z# =,30-i:i,b+1;" ":i:q(z,1),q(z,2);2;1;"":z=z+1 A * * Jt(b=24a17)b=1i=a17:i,b;"":.01z# =,30-i:i,b;" ":i:i,b;"":2900T KNb=24a=17z8a,b;" ";18,24;"":2900T \ **Kijutas* ^/(a=17b=3qu=0)370r cp=p+502:qu=1:i=0502:14,29;"KI":.01z# =,i:14,29;"KI":i:14,29;1;"KI":h$=" " e1;6;17,29;"":i=0200:i:6;1;16,29;"":1,29;p;7;14,29;"KI" rb=29qu3000 |/b=27qua,b-1;" ":b=26  **Sprite** Cx170vx=-vx:23302[,250:23303[,125} Ax10 vx=-vx:23302[,84T:23303[,126~  y160y502vy=-vy x=x+vx:y=y+vy 23300[,x:23301[,y sp c(x/8)bƺ(x/8)+4b21-(y/8)a24-(y/8)a2900T  110n  * Szubr. * Ji="2"̰"23":ܰ"1";ڰ"2";ٰ"7";"6",i;"";"10",i;"";"14",i;"":i Ui="0"̰"31"Ͱ"2":ٰ"4";"18",i;"";"19",i;"";"20",i;"";"21",i;"":i lٰ"5";ܰ"1";"18","0";"";"18","24";"":"18","25";" ";"19","25";" ";"3","24";ڰ"2";"" l"14","29";"KI";ٰ"6";ܰ"1";"15","29";"";"16","29";"";"17","29";"":"17","3";ܰ"1";"" H1:i=69 :6;i,8;"";i,21;"":i Ai=10 13 :6;i,5;"";i,15;"":i ;i=1417:6;i,11 ;"":i:0 3;1;5,5;"";5,15;"";9 ,17;"";13 ,8;"";13 ,13 ;"";13 ,20;"";17,7;""  ^i=011 :2;i,25;" ":i:12 ,25;2;""  1,26;"PO:0";5,27;" ";5,29;el;"";8,27;"^";9 ,27;("opaq"jo);("^"jo)  3050 3 > ****Le****  a,b;" " i=a+1a+4  i,b;"":.05|L,30-i i,b;6;1;"":i  a=i-1:a,b;"":h$=l$:  ***Fel***  a,b;h$ $ i=a-1a-3-1 . i,b;"":.05|L,30-i 8 i,b;h$:i Ba=i:a,b;"":h$=" " L j ******* ~ a,b;h$:b=b-1:i=(a,b) 5 h$=(l$i=70F)+(t$i=67C)+(" "i=7) a,b;"":h$=t$2800  ******* a,b;h$:b=b+1:i=(a,b) 5 h$=(l$i=70F)+(t$i=67C)+(" "i=7) a,b;"":h$=t$2800  2 ******* Fa52660d P"b=8b=212200 Z da9 2690 n"b=5b=152200 x a13 b=11 2200  ***^^^**** a172760 b=11 2300  a13 2790 "b=5b=152300  a9 "b=8b=212300  ** *  t=1 ut=1:.04|# =,8:.04|# =,0:5,27;"":h$=" ":P=P+10 :1,29;P: R ** * Th23296[,0:sp:23296[,1:a,b;h$:h$=" ":el=el-1:EL>-12930r ^?4,8;1;" Veged van! ":2,-30 c 3050 e :10 rV4010:sp:5,29;el:2,7;1;"Egy ember meghalt" s!f="0"̰"-12"Ͱ"-1":װ".1",f:f t 3050 w@b=118,1;5;1;"":2945 |*18,24;1;5;"" &2,7;" " ,a=5:b=12 :a,b;"":350^ 350^ **Kijutas* .i=-50240(5:.01z# =,i:i 3050 ]:10 ,10 ;"Gratulalok!":i=0502:.05|L,20*:i::10 ********** Pjo0,2;"Nyomd meg a tuz gombot!":31163050 Ajo0,4;"Nyomj meg egy gombot!":0:0 ,0,2;" " װ".02","10": 0:1:7: N3,9 ;"SZELLEMKASTELY";21,7;" Vegh Miklos 1987" C$=18+1:D$=18+0:Q$(3,19):Q$(1)=" 1. GOMBOK":Q$(2)=" 2. KEMPSTONE J.":Q$(3)=" 3. START" EQ$(1)=(C$+Q$(1)JO=0)+(D$+Q$(1)JO=1) EQ$(2)=(C$+Q$(2)JO=1)+(D$+Q$(2)JO=0) c8,9 ;Q$(1);10 ,9 ;Q$(2);0;12 ,9 ;Q$(3)  0 '="1".05|L,30:jo=0 '="2".05|L,30:jo=1 ="3".05|L,30::  3080 23296[,1 .23306 [,174:23307 [,126~ -23302[,84T:23303[,126~ Ox=100d:y=80P:23300[,x:23301[,y:vx=8:vy=8 B>.5vx=-vx:23302[,250:23303[,125} .5vy=-vy  Di="18"̰"21":i,"0";ٰ"4";"":i ܰ"1":ڰ"2":ٰ"0" 1i="7"̰"17":i,"7";"":i Q"2","6";"";"3","6";"";"2","23";"";"3","23";"" i="4"̰"6":i,"7";"":i  i="4"̰"6":i,"24";"":i "7","10";"" Cڰ"0";ٰ"6";"15","16";"";"16","16";"";"17","16";"" "10","12";"" 9i=815:"17",i;"";ٰ"7";"":10 :i 4ڰ"0";"16","16";6;"";"17","16";"" "ܰ"0":ڰ"0":ٰ"7":3050 :: V **Adatok** XI8000@:i=17:w,r:q(i,1)=w:q(i,2)=r:i: @19,25,19,26,19,27,18,27,18,26,18,25,18,24 #'********************* #(*(C)1987 Vegh Miklos* #)* 7632. Pecs, * #**Kodolanyi J. u. 9.* #+********************* &:"KASTELY 2"5            5