 
ô > DefRoom 1.22 ô 25-May-94 V1.00 ô 02-Aug-97 V1.20 (: 2Wë&86:Þ Obj% &301,Buf% &100,ctrl% 20,data% 127,Sprite% 7,Icon% 31:X%=ctrl%:Y%=X%256 <-Room0%=&8000:rom0%=4:rom1%=5:Room1%=&8000 F3ô Room1%=FNalloc(&4000):IFRoom1%=0:Room1%=&8000 P2OSGBPB=&FFD1:in%=0:out%=0:rm%=-1:blk%=0:*FX4,1 Zòasm:î… ç¤err:òend:à d?ñ‰3"Jet Set Willy Room Editor"''‰4"(C)1989-97  J.G.Harston" nñ''':òHelp x"ï 23;9,7;0;0;0; 23;4,38;0;0;0; ‚$ï 23;10,&60;0;0;0;23;7,31;0;0;0; Œï 23,136,255,0,0,0,0,0,0,0 –,ï 23,137,128,128,128,128,128,128,128,128   ï 23,138,16,0,16,0,16,0,16,0 ª,ï 23,139,255,128,128,128,128,128,128,128 ´%ãA%=0¸16:ñŠ32,A%);"‰":í:ñÄ40,"ˆ") ¾4x%=0:y%=0:òBlk:î… ç¤err:òend:à ‹ A%=¦(200):òclr1 Èõý¤menu:òend:à Ò: Ü1Ý¤alloc(L%):ÞA%-1:ç“-A%-512>L%:ÞA%L%:=A% ‹ =0 æ: ð#Ý¤err:ñŠ0,22);:ö:òCloseAll:=¦-1 ú:ÝòCloseAllçin%:A%=in%:in%=0:Ù#A%çout%:A%=out%:out%=0:Ù#A%"á,:6Ýòend:*FX4@à:áJ:T4Ý¤menu:çy%>16:x%=8:çy%>21:x%=21:çy%=23:y%=0:x%=0^.ñŠx%,y%);:A$=¾:çy%<17:çA$=½13:x%=0:A$=½138hçA$>½135 € A$<½140:òMove:=0rBçy%<16:ç§"1234",A$):ñŠ33,blk%*2+1)" "½9" ";:blk%=»A$-1:òBlk:=0|"çy%<16:ç§" 0"+½135,A$):òPut:=0†çy%=16:òName:=0çy%>16 € y%<22:òExit:=0šçy%=22:òBorder:=0¤çA$>"_":A$=½(—A$-32)®ç§"EDOQHLSR*",A$)=0:=0¸%ô IF A$="M" Copy to another room?Â&ô IF A$="W" Swap with another roomÌô IF A$="C" PROCConvsÖô IF A$="G" PROCGuardianàçA$="E":òEdChar:=0êçA$="O":òAddObj:=0ôçA$="D":òDelObj:=0þçA$="R":òRoom:=0òWin:çA$="Q":=¹çA$="H":Û:òHelp:A%=¥çA$="*":òOscli:=0&çA$="L":òLoad:=00çA$="S":òSave:ï12,26:òInfo:=0D:N*ÝòBlk:ñŠ33,blk%*2+1)">"½9"<"Šx%,y%);:áX:b/ÝòPut:Ad%=Buf%+x%4+y%*8:By%=3*4^(3-(x%€3))lC?Ad%=(?Ad% €¬By%)„(blk%*By%3):ï128+blk%:x%=(x%+1)€31:çx%=0:ï13vá€:Š8ÝòMove:çy%>17 € y%<22:ñŠ6,y%)¤d(Buf%?(y%-18+233),3);”òmv:xt%=-1:áž Ýòmv:çA$=½137:x%=(x%+1)€31:á¨çA$=½136:x%=(x%-1)€31:á²çA$=½138:y%=y%+1-(y%=16):á¼çA$=½139:y%=(y%-1)€(y%>0):áÆáÐ:ÚÝòName:A%=—A$:çrm%<0:áäKçA%>31 € A%<128:Buf%?(x%+128)=A%:ïA%-12*(A%=127):x%=(x%+1)€31:çx%=0:ï13îáø:WÝòRoom:ñŠ6,22)‰3;Š0,22)"Room=   ";:ï8,8,8:è""A$:çA$="":ñŠ6,21);¤d(rm%,3);Šx%,y%);:áòPutR:rm%=»A$:òGetR8òcopy(&A3FF+&10000*rom1%,Obj%,513):òDisp:x%=0:y%=0:á :*ÝòDisp:çrm%<0:á4ãA%=0¸7:ï23,128+A%:ãB%=0¸7>(ïBuf%?(161+A%*9+B%-1*(A%=7)):í:í:ï30H;ãA%=0¸127:B%=Buf%?A%:ãC%=0¸3:ï128+(B%64):B%=(B%*4)€&FFRí:ç(A%€7)=7:ñ\í:òPrN(Buf%+128,¹):ãA%=0¸1f@òslope(A%,Buf%?(214+4*A%),Buf%!(215+4*A%),Buf%?(217+4*A%)):íp>A%=240:õçBuf%?A%<>255:òSprite(Buf%?A%,Buf%?(A%+1)):A%=A%+2z.ýBuf%?A%=255 „A%>255:òObjects:òInfo:òChars„!ï19,0,¤c(Buf%?160 8),0,0,0:áŽÝ¤c(A%)=(A%2+4*(A%€1))€7˜"Ý¤d(A%,N%)=Â"        "+ÃA%,N%)¢>Ý¤o0(A%,N%)=Â½(48+A%64)+½(48+(A%€&38)8)+½(48+(A%€7)),N%)¬BÝ¤file(A%,A$):$data%=A$:?X%=data%:X%?1=data%256:=(º&FFDD)€&FF¶:À*Ýòslope(Type%,Dir%,Ad%,Num%):çNum%<1:áÊ"sx%=Ad%€31:sy%=(Ad%€&1E0)32:õÔDñŠsx%,sy%);½(133-A%);:sx%=sx%+2*(Dir%„(1-Type%))-1:sy%=sy%-Type%Þ2Num%=Num%-1:ýNum%<1 „ sx%>31 „ sx%<0 „ sy%<0:áè:ò.ÝòPrN(A%,F%):ãC%=0¸31:B%=A%?C%:çB%>32:F%=¹ü1çF%:çB%>31 € B%<128:ïB%-12*(B%=127) ‹ çF%:ï32ç±<1 „ ±>39:C%=32í:ç±>6:ñ‰(40-±);á$:.8Ý¤r(R%):R%=R%€255:çR%<64:=Room0%+256*R%+rom0%*&100008,çR%<128:=Room1%+256*(R%-64)+rom1%*&10000B
=&7F00L:VÝòGetR:çrm%<0:á`òcopy(¤r(rm%),Buf%,256):ájÝòPutR:çrm%<0:átòcopy(Buf%,¤r(rm%),256):á~:ˆÝòcopy(Src%,Dst%,Len%)’>!&70=Src%:!&72=Dst%:!&74=Len%:?&76=Src%&10000+Dst%&10000œ
Ömc%:á¦:°Ýòasm:Þmc%50:ãa%=0¸1ºAP%=mc%:[OPT a%*2:\ &70/1=>src, &72/3=>dst, &74/5=len, &76=romÄ"LDA &F4:PHA:LDA &76:JSR SetRomÎ LDY #0:LDA &75:BEQ ZeroPagesØ	.loopâ(LDA (&70),Y:STA (&72),Y:INY:BNE loopì$INC &71:INC &73:DEC &75:BNE loopö.ZeroPages LDA &74:BEQ ZeroBytes
.ZeroPageLpLDA (&70),Y:STA (&72),Y:INYDEC &74:BNE ZeroPageLp(.ZeroBytes2PLA<.SetRomFSTA &F4:STA &FE30:RTSP]í:áZ:d(ÝòObjects:ObjN%=0:ã A%=?Obj%+1 ¸ 256n`ç((Obj%?A%)€63)=rm%:ñŠ(Obj%?(A%+256))€31,Obj%?(A%+256)32-8*(Obj%?A%>127))"‡";:ObjN%=ObjN%+1xí:á‚:ŒBÝòSprite(Num%,Psn%):òcopy(&A000+8*Num%+rom1%*&10000,Sprite%,8)–,Sprite%?2=Psn%:Num%=?Sprite%€7:çNum%=0:á &çNum%=3:ãz%=0¸10:ñŠ16,z%)½138;:í:áªçNum%=4:á:ô Arrows´@ic%=(((Sprite%?1 € Sprite%?0)„ Sprite%?2)€&E0)+256*Sprite%?5¾"ñŠSprite%?2 €31,Sprite%?316);È$òcopy(ic%,Icon%+&10000*rom1%,32)Ò<ãz%=0¸3:ï23,140+z%:ãw%=0¸7:ïIcon%?(w%*2+(z%€1)+8*(z%€2))Ü!í:í:ï140,141,8,8,10,142,143:áæ:ð5ÝòInfo:ñŠ0,18)"Left :"'"Right:"'"Up   :"'"Down :"ú6ãA%=0¸3:òPrExit(A%):í:ñ"Room :"¤d(rm%,3);:òInfoB:áYÝòInfoB:ñŠ12,22)"Border:";¤d(Buf%?160,3);‰3"Objects:"¤d(ObjN%,3)"/";256-?Obj%;"  ";:á::ÝòPrExit(A%):B%=Buf%?(233+A%):ñŠ6,A%+18);¤d(B%,3);" ";".òcopy(¤r(B%)+128,data%,32):òPrN(data%,£):á,:6¡ÝòChars:ãC%=0 ¸ 7:çC%<>6:ñŠ33,C%*2);Á"BkGnd:Wall: Floor:Nasty:Slope:Conv.:******Objct:",C%*6+1,6);Š34,C%*2+1);½(128+C%);:çC%<6:ñ½9;½9;¤o0(Buf%?(160+C%*9),3);@í:áJ:TEÝòExit:çA$=½13:çxt%>-1:Buf%?(y%-18+233)=xt%:xt%=-1:òPrExit(y%-18)^çA$=½13:y%=y%+1:áhçA$<"0" „ A$>"9":ár8xt%=(»A$+10*(xt%€(xt%>-1)))€255:ñŠ6,y%);¤d(xt%,3);:á|:†0ÝòBorder:çA$=½13:çxt%>-1:Buf%?222=xt%:xt%=-1çA$=½13:y%=0:x%=0:ášçA$<"0" „ A$>"9":á¤9xt%=(»A$+10*(xt%€(xt%>-1)))€255:ñŠ19,y%);¤d(xt%,3);:á®:¸!ÝòAddObj:ç?Obj%=0 „ rm%>127:áÂRA%=?Obj%:Obj%?A%=rm%+16*(y%€8):Obj%?(A%+256)=x%+32*y%:?Obj%=A%-1:ObjN%=ObjN%+1Ì8òcopy(Obj%,&A3FF+&10000*rom1%,513):ñ"‡";½8;:òInfoB:áÖ:à-ÝòDelObj:ç?Obj%=255 „ rm%>127 „ ObjN%=0:áê Num%=?Obj%:ã A%=Num%+1 ¸ 256ôªç((Obj%?A%)€63)=rm%:ç((Obj%?A%)€128)=(y%€8)*16:çObj%?(A%+256)=((x%+32*y%)€255):Obj%?A%=Obj%?(?Obj%+1):Obj%?(A%+256)=Obj%?(?Obj%+257):?Obj%=?Obj%+1:ObjN%=ObjN%-1:ï32,8þ1í:òcopy(Obj%,&A3FF+&10000*rom1%,513):òInfoB:á:*ÝòHelp:ñ"JSW Room editor instructions"8ñ'"1,2,3,4 Select room blocks"'"R : Select new room"&'ñ"H : Help    C : Conveyors/Slopes"0ñ"S : Save    L : Load":áD:NÝòclr:ñŠ0,23);‰79;:ï30:áXÝòclr1:ñŠ0,23);‰39;:ï30:áb!ÝòWin:ï28,0,24,39,18,31,0,5:ál:v3ÝòLoad:è"Rooms file to load: "f$:çf$<>"":òLoadR€2ï13:è"Objects file to load: "f$:çf$<>"":òLoadOŠï12,26:òDisp:á”"ÝòLoadR:è"Load rooms to : "st%ž>è"Link room exits? "lk$:çÀlk$,1)="y" „ Àlk$,1)="Y":lk$="Y"¨"òPutR:in%=Ž(f$):çin%=0:òErrO:á²"?X%=in%:A%=4:r%=st%:õ:ñ½13;r%;¼6X%!1=Buf%:X%!5=256:Ö OSGBPB:òcopy(Buf%,¤r(r%),256)Æçlk$="Y":òLinkRoomsÐ&r%=r%+1:ýÅ#in%:Ù#in%:in%=0:òGetR:áÚ*ÝòLinkRooms:!data%=Buf%!233:ãlk%=0 ¸ 3ädçdata%?lk%<>r%:òcopy(¤r(data%?lk%),Buf%,256):Buf%?(233+(lk%‚1))=r%:òcopy(Buf%,¤r(data%?lk%),256)îí:áø$ÝòLoadO:in%=Ž(f$):çin%=0:òErrO:á,?X%=in%:A%=4:X%!1=Obj%:X%!5=513:Ö OSGBPB4Ù#in%:in%=0:òcopy(Obj%,&A3FF+&10000*rom1%,513):á: 3ÝòSave:è"Rooms file to save: "f$:çf$<>"":òSaveR*2ï13:è"Objects file to save: "f$:çf$<>"":òSaveO4á>9ÝòSaveR:è"Save room start: "st%:è"Save room end: "en%Hdç(st%<64 € en%>63) „ (st%>191 € en%<192):ñŠ0,23);"Must be continuous in 0-63 or 192-255";:A%=¥:áR$òPutR:out%=®(f$):çout%=0:òErrO:á\)?X%=out%:A%=2:ã r%=st% ¸ en%:ñ½13;r%;f:òcopy(¤r(r%),Buf%,256):X%!1=Buf%:X%!5=256:Ö OSGBPB:ír%p9Ù#out%:out%=0:òGetR:òSetAd(f$,((st%‚&C0)„&300)*256):áz&ÝòSaveO:out%=®(f$):çout%=0:òErrO:á„&òcopy(&A3FF+&10000*rom1%,Obj%,513)Ž;?X%=out%:A%=2:X%!1=Obj%:X%!5=513:Ö OSGBPB:Ù#out%:out%=0˜òSetAd(f$,&3A3FF):á¢:¬BÝòSetAd(A$,B%):X%!2=B%:A%=¤file(2,A$):X%!6=B%:A%=¤file(3,A$):á¶%ÝòErrO:ñ"Can't open file";:A%=¥:áÀ:ÊÝòOscli:ê A$:òWin:Û:*FX4Ô;õè†"*"A$:ÿA$:ñ":";:õA$=¾:ý§½13+"LlSs*",A$):çA$="*":ï127ÞCýA$<>"*":ñ:çA$="L" „ A$="l":òLoad:á ‹ ç A$="S" „ A$="s":òSave:áèï12,26:ÿ"FX4,1":òInfo:áò:üÝòEdChar:çrm%=-1:á	3èŠ0,23);"Edit char: "c$:òclr:çc$<"1" „ c$>"7":á	7ï28,0,16,31,0,12:C%=»c$:xo%=Buf%+152+C%*9-10*(C%=7)	1ãyc%=0 ¸ 7:ñŠ1,1+yc%);:A%=xo%?yc%:ã xc%=0 ¸ 7	$*A%=A%*2:ç(A%€256):û135:ï32:û128 ‹ ï139	.%í:ñ"‰"¤d(xo%?yc%,4):í:ñ" "Ä8,"ˆ")	8-xc%=0:yc%=0:çC%<7:ñ'" Attr="¤o0(xo%?-1,3)	BpõõñŠ1+xc%,1+yc%);:A$=¾:çA$>½135 € A$<½140:xc%=(xc%-(A$=½137)+(A$=½136))€7:yc%=(yc%-(A$=½138)+(A$=½139))€7:ý0	L‚ý§" 012A"+½13,A$):çA$="A"„A$="a":çC%<7:ñŠ6,11);‰3;½8;½8;½8;:è""f$:çf$<>"":f$=Â"00"+f$,3):xo%?-1=64*»Àf$,1)+8*»Áf$,2,1)+»Âf$,1)	V&çA$="A":çC%<7:ñŠ6,11)¤o0(xo%?-1,3)	`1çA$=" ":A$=½(49+((xo%?yc% € (2^(7-xc%)))<>0))	j2çA$="0":xo%?yc%=xo%?yc% € ¬ (2^(7-xc%)):ï139,8	t9çA$="1":xo%?yc%=xo%?yc% „ (2^(7-xc%)):û135:ï32,8:û128	~7ñŠ10,1+yc%);¤d(xo%?yc%,4):ýA$=½13:òPutR:ï26:òDisp:áÿ