paste 2; 24;陊elcome to... *********************** * * %* paste the game * * * *  glenn malcolm * * 2000 strong tyrrell * * * *********************** ** Initialisation  9000(# Z 韌ameStart d駌 = -1 i 1 n 韒ainLoop s鷕他:醅10 ,12 ;1;"you win"; 12 ,4;0; "you鴗he閎abies.":雗=1 23:绾(n/3):0.05|L烫,n:髇:0 x 90Z  ** mainLoop  阹eturns r 雐 = 1蘮umBabies /馾X = 0:馾Y=0:駅$ =:駌 = -1 麰鷎$ = "5"笋dX = -1:韈heckMove:鷕>0笋s(r,2)=1 E鷎$ = "6"笋dY = +1:韈heckMove:鷕>0笋s(r,1)=1 E鷎$ = "7"笋dY = -1:韈heckMove:鷕>0笋s(r,3)=1  E鷎$ = "8"笋dX = +1:韈heckMove:鷕>0笋s(r,4)=1  鷎$ = "q"笋r=0: A鷕>0笋pB=r:0.1}L烫,-1:0:韉rawBaby:1 O鷕 = 0隧drawPaste:駊asteX = pasteX + dX:駊asteY = pasteY + dY:韉rawPaste $鷚(i)遂1490 )馾ir =(* 4 ) + 1 .,鷇ir = 1笋dX = 0:馾Y = -1 3+鷇ir = 2笋dX = 1:馾Y = 0 8+鷇ir = 3笋dX = 0:馾Y = 1 =,鷇ir = 4笋dX = -1:馾Y = 0 ? 駌 = 0 B雑 = 1蘮umBabies G鷕遂1300 Q鷊(i,j)=0遂1300 V&馼X = b(j,1):馼Y = b(j,2) [B(bX+dX > boardWidth)(bX+dX < 1)笋r = 1 :1300 `B(bY+dY > boardHeight)(bY+dy < 1)笋r = 1:1300 eP鷏(bX+dX,bY+dY) > 0塌g(i,l(bX+dX,bY+dY))1笋r = 1:1300 j7鷅X+dX = pasteX芺Y+dY= pasteY笋r = 1:1300 骿 鷕0遂1490 3雑 = 1蘮umBabies:鷊(i,j)1遂1308 (駆(b(j,1),b(j,2)) = 0 骿 雑 = 1蘮umBabies #/鷊(i,j)=-1笋g(i,j) = 1:1470 (鷊(i,j)1遂1470 2駊B = j:韉rawBaby j笋g(pG,k)=-1 駁(o,k)=0 "鷊(pG,k)0笋sum=sum+1 髃 鷚(o)笋w(pG)=1 駑(o)=1 鷖um=numbabies笋r=1  .1}L烫,pG  d** checkMove f 阹eturns r n@(pasteX+dX > boardWidth)(pasteX+dX < 1)笋r = -1: sA(pasteY+dY > boardHeight)(pasteY+dy < 1)笋r = -1: x@鷏(pasteX+dX,pasteY+dY) > 0笋r = l(pasteX+dX,pasteY+dY):  駌=0: X** gameStart ]阛ssume nubBabies > 1 b90:0: 1:0:0:0: g+駊X = 13 :駊Y = 7:韕astePicture l(7:0:0:1:: o "the ." p 0 q " 10蘷in the 續ust " r " the babies扑" s " 刻them 胩make them" t " sticky." v " 20篑them芽" x " each other." { " 30 the ﹊s 蘰aste them" | " together 硉hey are ."  踬7;1;"萄." $ 踯0; " 40魌he cursor keys."  " 50魆题."  踬7;1;"game."  0 羂" 60 please INPUT the x DIM FOR ":" the board (2 TO ";maxBoardWidth;"):":頱oardWidth 胇 鷅oardWidth<2 舃oardWidth > maxBoardWidth 缩"每range.":1.25 ,1:7105 芵:" 70 please INPUT the y DIM FOR ":" the board (2 TO ";maxBoardHeight;"):":頱oardHeight 蒧 鷅oardHeight<2 舃oardHeight>maxBoardHeight 缩"每range.":1.25 ,1:7110 薑 駇ax=boardWidth*boardHeight-2: 鷐ax>maxNumBabies 笋max=maxNumBabies 蠶:" 80 please INPUT the number of:":" babies (2 TO ";max;"):": 頽umBabies 赑 鷑umBabies<2 舗umBabies>max 缩"每range.":1.25 ,1:7120  韉rawScreen 阛ssume nubBabies > 1 -雐=1蘠oardWidth:雑=1蘠oardHeight 駆(i,j)=0:骿:骾 嶵馼(1,1)=1:馼(1,2)=1:駆(1,1)=1 榋馼(2,1)=boardWidth:馼(2,2)=1:駆(boardWidth,1)=2 漮鷑umBabies>2笋b(3,1)=1:馼(3,2)=boardHeight:駆(1,boardHeight)=3 鷑umBabies>3笋b(4,1)=boardWidth:馼(4,2)=boardHeight:駆(boardWidth,boardHeight)=4 (駊asteX=((boardWidth/2)+1) )駊asteY=((boardHeight/2)+1) 雐 = 5蘮umBabies * 馼(i,1) =(* boardWidth)+1 + 馼(i,2) =(* boardHeight)+1 *鷏(b(i,1),b(i,2))遂7355 5鷅(i,1)=pasteX芺(i,2)=pasteY遂7355  駆(b(i,1),b(i,2))=i 骾 蔮雐 = 1蘮umBabies:駑(i)=0:雑=14:駍(i,j)=0:骿:雑 = 1蘮umBabies 鷌=j笋g(i,j)=1 鷌蒵笋g(i,j)= 0 骿:骾  韉rawAll  @** drawBlank J ** pX,pY O 赾(pX+pY) T 賐oardInk Y.醅pY*3-2,pX*3-2; " " ^.醅pY*3-1,pX*3-2; " " h  ** drawBaby ** pB (駊X = b(pB,1):駊Y = b(pB,2) 赾(pX+pY):賐oardInk .醅pY*3-2,pX*3-2; "悜" .醅pY*3-1,pX*3-2; "挀" 蘄駍quareX=24*pX-16:駍quareY = 167-24*(pY-1) 裠鷖(pB,1)琐squareX+1,squareY:3,0:鰏quareX+11 ,squareY:3,0 講鷖(pB,3)琐squareX+1,squareY-15:3,0:鰏quareX+11 ,squareY-15:3,0 踴鷖(pB,2)琐squareX+15,squareY-1:0,-3:鰏quareX+15,squareY-11 :0,-3 鄁鷖(pB,4)琐squareX,squareY-1:0,-3:鰏quareX,squareY-11 :0,-3  ** drawPaste 赾(pasteX+pasteY)  賐oardInk !6醅pasteY*3-2,pasteX*3-2; "敃" &6醅pasteY*3-1,pasteX*3-2; "枟" : l ** drawAll v雐 = 1蘮umBabies { 駊B = i 韉rawBaby 骾 韉rawPaste 斅踬2;1;12 ,24; " 2000 ";13 ,24;"glenn ";14,24;"strong ";15,24;" & ";16,24;"malcolm";17,24;"tyrrell"  !4** drawScreen !>/鏱gPaper:赽gPaper:1:7:0: !C踬2;1;12 ,24; " ";13 ,24;" ";14,24;"please ";15,24;".";16,24;" ";17,24;" " !H 離 = 0蘠oardWidth-1 !R!難 = 0蘠oardHeight-1 !\赾(boardWidth-x+boardHeight-y) !f'賑(boardWidth-x+boardHeight-y+1) !pW醅1+(boardHeight-1-y)*3,1+(boardWidth-1-x)*3; " " !zW醅2+(boardHeight-1-y)*3,1+(boardWidth-1-x)*3; " " !賑(x+1+y) !赾(x+y+2) !籱鷛 < boardWidth-1缩1+y*3,3+x*3; "";2+y*3,3+x*3; "" !繣鷜 < boardheight-1缩3+y*3,1+x*3; "寣" !臶鷛 < boardWidth-1苰 < boardHeight-1缩3+y*3,3+x*3; "" !荅鷜 = 0苮 < boardWidth-1缩0,3+x*3; "" !蒦鷜 = boardHeight-1苮 < boardWidth-1缩琤oardHeight * 3,3+x*3;"" !蔉鷛 = 0苰 < boardHeight-1缩3+y*3,0; "" !診鷛 = boardWidth-1苰 < boardHeight-1缩3+y*3,boardWidth*3; "" ! 賐gPaper !鐽鷛 = 0缩1+y*3,0; "";2+y*3,0; "" !韒鷛 = boardWidth-1缩1+y*3,boardWidth*3;"";2+y*3,boardWidth*3;"" !/鷜 = 0缩0,1+x*3; "儍" !鱃鷜 = boardHeight-1缩琤oardHeight*3,1+x*3; "寣" !髖:髕 "#踮c(2);0,0; " " "I踮c(boardWidth+boardHeight);琤oardHeight*3,boardWidth*3; " " ";踮c(1+boardHeight);琤oardHeight*3,0; " " "$9踮c(boardWidth+1);0,boardWidth*3; " " ")'駊X=25:駊Y=7:韕astePicture ". "`** pastePicture "a阷X,pY (label coords) "e%7:3 :1:1 "j醅pY,pX; "paste" "o赽gPaper:7:0 "t6鰌X*8 + 10 ,(22-pY)*8+22 "y-18,-30 "~!10 ,-10 ,* 0.4L烫 "36$,0 " 10 ,10 ,* 0.4L烫 "-18,30 " 2 "離 = 020 "6鰌X*8+10 +x,(22-pY)*8+22 "0,10 +x "髕 " #(** Initialisation #)."please PAUSE while DATA is being":"READ ." #* 0 #-馾rawBlank = 8000@ #2馾rawScreen = 85004! #<馾rawBaby = 8100 #A馾rawAll = 8300l #F馾rawPaste = 8200 #K駁ameStart = 7000X #P駊astePicture = 8800`" #U駊ressKey = 7900 #Z馽heckMove = 6500d #_駇ainLoop = 1000 #d駇ergeGroups = 6000p #馼oardPaper1 = 4 #馼oardPaper2 = 6 #朖駇axBoardWidth=7:駇axBoardHeight = 7:駇axNumBabies = 12 #馼oardInk = 0 #馼gPaper = 0 #閣(maxNumBabies) #2閎(maxNumBabies,2):閟(maxNumBabies,4) #!閘(maxBoardWidth,maxBoardHeight) #間(maxNumBabies,maxNumBabies) #)閏(maxBoardWidth+maxBoardHeight+2) #駎oggle =0 #2雐 = 1蘭axBoardWidth+maxBoardHeight+2 # 鷗oggle笋c(i)=boardPaper1 # toggle笋c(i)=boardPaper2 # 駎oggle =胻oggle #骾 #** Returns current line # ** number: $-蝜() =23621 E\+ 255 *23622F\ %** Load UDGs %濞l() &雑 = 07 & 鉾here &雐 = 07 & 鉽alue &*魒here + i,value &4骾 &>骿 &H &\** UDG Data. &f淅"a" &h淠00000111 &i淠00011000 &j淠00100000 &k淠01000011C &l淠01000000@ &m淠10001100 &n淠10010010 &o淠10000000 &p淅"b" &r淠11100000 &s淠00011000 &t淠11000100 &u淠00000010 &v淠00000010 &w淠001100011 &x淠01001001I &y淠00000001 &z淅"c" &|淠10000000 &}淠10000000 &~淠10000000 &淠01000011C &淠01000000@ &淠00100000 &淠00011000 &淠00000111 &淅"d" &淠00000001 &淠00000001 &淠00000001 &淠11000010 &淠00000010 &淠00000100 &淠00011000 &淠11100000 &淅"e" &淠00000000 &淠00000000 &淠00000001 &淠00000011 &淠00000011 &淠00000100 &淠00001000 &淠00001011 &淅"f" &淠01000000@ &淠11000000 &淠11000000 &淠11000000 &淠11000000 &淠00100000 &淠00010000 &淠11010000 &淅"g" &淠00010100 &淠00010101 &淠00100100$ &淠00100101% &淠01000101E &淠01000111G &淠00100000 &淠00011111 '淅"h" '淠01101000h ' 淠10101000 ' 淠01100100d ' 淠11100100 ' 淠11100010 ' 淠11100010 '淠00000100 '淠11111000 awblan@awscree4!awbabawall awpast mestarX癮stepictur`"皉esskeeckmovd璦inloo璭rgegrouppardpaperardpaper璦xboardwidt璦xboardheigh璦xnumbabie ardinpape磑ggl&&穐er禷lu傍 谤"ardwidtardheigh璦 畊mbabieR!癮ste癮ste扳硄uare 硄uareGrⅧⅨ扮z硊Ks? 倉 擋 岤囌 僑