pentomania   7:0:0  49999O 11 ,12 ;"LOADING"  0 0,0;""; ""50000P,8000@ (50012\ ) 0 -0,0;""; 2""50000P,442 3 0 70,0;""; <"" fp screen @PB!@!@((((((((((?((((( (((((/((((((((((((((((((((((((((((((((((((((((((((((((((((((/((((((( (((((((?(((((((((((((((/(/(|~B<B<B>< (><@<B< (B@bBfBbB?(@@BBDbB?(B|RBZBRB(<@BBBR@(|@JBB~J~(@B~BJN?(@@FBBBFB?(B@BBDFB (@~B<BBB>B (><~B</(/(GGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGGxxxxxxxxxxxxxxxxxxxxxxGGGGGGGGGGx______xxWWGGGGWWWWWWxGGGGGGGGGGx______xxWWGGGGWWWRWWxGGGGGGGGGGx__xxxxxxWW__GGGGWR__xGGGGGGGGGGx__xxxxxxWW__GGGGWR__xGGGGGGGGGGx__GGxxWWWW__xxGGWR__xGGGGGGGGGGx__GGxxWWWW__xxGGWR__xGGGGGGGGGGxGGGGGGWWxx__xxxxxx__xGGGGGGGGGGxGGGGGGWWxx__xxxxxx__xGGGGGGGGGGxWWGGWWxxxx____GGxx__xGGGGGGGGGGxWWGGWWxx____GGxx__xGGGGGGGGGGxWWWWWWxxGGGGGGG@__xGGGGGGGGGGxWWWWWWxxxxGGGGGGG@__xGGGGGGGGGGxxxxxxxxxxxxxxxxxxxxxxGGGGGGGGGGxxxxxxxxxxxxxxxxxxxxxxGGGGGGGGGGxXXXXXXXXXXXXXXXXXXXXxGGGGGGGGGGxxxxxxxxxxxxxxxxxxxxxxGGGGGGGGGGGGGGGxxxxxxxxxxxxGGGGGGGGGGGGGGGGGGGGxXXXXXXXXXXxGGGGGGGGGGGGGGGGGGGGxxxxxxxxxxxxGGGGGGGGGGp code Po*V:R:SG>w#=( 0*T:Q:QG>?w#= 0!X>w# y x !@>w# y x *T:Q:QO= 0:QG*T+#G:QGw +:QG*T+#G:QGw+ **#~?(( (>2~( +~ (**~Gx#~?(( ~( +~ (!X~ >2# y x !X: >w# x y *T!R>?w##w  ;p basic - ,- *********************** * * * PENTOMANIA * (* * 2* P. KING * <* * F* 1987 * P* * Z*********************** d140:** inst ** n340T:** init ** x550&:** game ** 120x ******* inst ******* '0.3,7:0.2~L,12 &0:7:7:0: 23659k\,1 0,11 ;"PENTOMANIA" 12,5;"Pentomania is a puzzle/game" &:"in which you, as the player must" &:"fill different white shapes with" &:"coloured pentominoes. (Dominoes" &:"with more sides). You may use" &:"each shape once only, and, since" &:"the higher levels, nine and over" &:"need all of the pieces to finish" &:"them, you should plan every move" :"very carefully." ,22,5;"PRESS ANY KEY TO START" =""250  T***** set up ***** h0:0: rsc=0:start=0 | s(12 )  &***** game ***** 0Mz=112 :s(z)=0:z:quit=0:start=1600X :7:7:11 ,5;"CHOOSE LEVEL (1 - 9)" D z$=:z$<"1"z$>"9"580D Nlevel=(z$):start=1 X b'19,12 ;"LEVEL ";(level) d 100d eK19,12 ;" ":21,6;" " lelevel=1gx=2:gy=2:gd=10 :ga=8:sx=20:sy=2:9000(# vflevel=2gx=2:gy=2:gd=10 :ga=10 :sx=20:sy=2:9000(# flevel=3gx=2:gy=2:gd=10 :ga=12 :sx=20:sy=2:9000(# elevel=4gx=0:gy=4:gd=6:ga=20:sx=21:sy=2:9000(# flevel=5gx=2:gy=2:gd=10 :ga=14:sx=20:sy=2:9000(# flevel=6gx=2:gy=2:gd=10 :ga=16:sx=20:sy=2:9000(# flevel=7gx=0:gy=2:gd=10 :ga=20:sx=21:sy=2:9000(# elevel=8gx=3:gy=5:gd=5:ga=11 :sx=24:sy=5:9000(# elevel=9 gx=3:gy=5:gd=5:ga=12 :sx=24:sy=5:9000(# flevel=10 gx=3:gy=5:gd=6:ga=10 :sx=24:sy=5:9000(# flevel=11 gx=4:gy=2:gd=12 :ga=5:sx=24:sy=5:9000(# flevel=12 gx=3:gy=5:gd=4:ga=15:sx=24:sy=5:9000(# flevel=13 gx=2:gy=6:gd=3:ga=20:sx=24:sy=5:9000(#  9500% t0:0:5:18,1;"1 = SELECT";:0:" ";:0:6:"2 = ROTATE" Y4:20,1;"3 = LOCATE";:0:" ";:2:"4 = REMOVE" 17:19,12 ;"5 = QUIT":0  z$=:z$<"1"z$>"5"790  ch=(z$) *ch=11060$ +ch=21950 ,ch=32110> -ch=42860, .ch=53090 quit=1  750  ** print small shapes** 23659k\,1 1:0:18,4;" ";:2:" ";:3:" ";:4:"";:5:"";:6:" ";:1:1:"";:2:"";:3:" ";:4:" ";:5:" ";:6:" " 1:0:19,4;" ";:2:" ";:3:" ";:4:" ";:5:" ";:6:"";:1:1:" ";:2:"";:3:" ";:4:"";:5:" ";:6:"" )1:0:20,4;"" ?7:0:22,4;"a b c d e f g h i j k l"  $**** choose shape **** .9500%:970 /50031o 3;7:0:20,7;"SELECT SHAPE A-L" 8!z$=:z$<"a"z$>"l"10808 Bz=(z$)-96` j shape=z k#z<70:z:1133m l1:z-6 mshape11190 t s(1)=11930 ulevel>71160 vz=09 wsy+z,sx+4;"" xz: y=""1145y z=04 sy+z,sx+2;"" z: shape21270  s(2)=11930 level>71230 z=18 sy+z,sx+4;"" z z=12 sy+z,sx+6;"" z: z=14 sy+z,sx+2;"" z sy+1,sx+3;""  shape31350F  s(3)=11930 level>71310  -z=27:sy+z,sx+4;"":z /z=25:sy+z,sx+6;"":z: ,z=13:sy+z,sx+2;"":z (.z=12:sy+z,sx+3;"":z: Fshape41430 P s(4)=11930 Qlevel>71400x Z-z=27:sy+z,sx+4;"":z dNz=23:sy+z,sx+6;"":sy+4+z,sx+6;"":z: x,z=13:sy+z,sx+2;"":z 8sy+1,sx+3;"":sy+3,sx+3;""  shape51510  s(5)=11930 level>71480 -z=27:sy+z,sx+4;"":z Dsy+4,sx+2;"":sy+5,sx+2;"": ,z=13:sy+z,sx+2;"":z sy+2,sx+1;""  shape615906  s(6)=11930 level>71560 Bsy+2,sx+2;"":sy+3,sx+2;"" 0z=47:sy+z,sx++4;"":z: sy+1,sx+1;"" ".z=23:sy+z,sx+2;"":z: 6shape71660| @ s(7)=11930 Alevel>71630^ J-z=27:sy+z,sx+4;"":z TNz=23:sy+z,sx+6;"":sy+4+z,sx+2;"":z: ^,z=13:sy+z,sx+2;"":z h:sy+1,sx+3;"":sy+3,sx+1;"": |shape81730  s(8)=11930 level>71700 -z=27:sy+z,sx+4;"":z Nz=23:sy+z,sx+6;"":sy+2+z,sx+2;"":z: ,z=13:sy+z,sx+2;"":z :sy+2,sx+1;"":sy+1,sx+3;"": shape9 1810  s(9 )=11930 level>71780 -z=27:sy+z,sx+2;"":z >sy+6,sx+4;"":sy+7,sx+4;""  ,z=13:sy+z,sx+1;"":z sy+3,sx+2;""  shape10 1860D !s(10 )=11930 level>71850: &oz=23:sy+z,sx+2;"":sy+2+z,sx+2;"":sy+4+z,sx+4;"":z 0 :Xsy+1,sx+1;"":sy+2,sx+1;"":sy+3,sx+2;"": Dshape11 1900l N!s(11 )=11930 Olevel>71890b X\z=18:sy+z,sx+4;"":z:z=34:sy+z,sx+6;"":z: bJz=14:sy+z,sx+2;"":z:sy+2,sx+3;"": l!s(12 )=11930 mlevel>71920 v\z=16:sy+z,sx+4;"":z:z=58:sy+z,sx+6;"":z: Zz=13:sy+z,sx+2;"":z:z=34:sy+z,sx+3;"":z: Z1:7:20,7;" ALREADY USED! ":z=1200:z:0  *** rotate or flip ***   9500% c0:6:18,1;"R = ROTATE";:0:" ";:4:"M = MIRROR" 95:20,7;"SPACE TO CONTINUE":0 (A$=:A$" "a$"r"a$"m"1982 50105:save square z=15:z "a$="r"50138:1982 "A$="m"50176:1982 4 >***** place tile ***** Hsox=source:soy=sox Rz=1̾(65361Q) \x=1̾(65361Q) f(sox)63?2210 psox=sox+1 zx sox=soy+32  soy=sox z (sox)=0 kp=sox sox,(sox)+128  9500% 7:0:18,1;"Arrow keys will move key-point to desired position on grid."::5:1:21,3;"PRESS SPACE TO MOVE SHAPE" 65259,(kp):soy=kp %A$=:k=a$:k=32 2340$ #k535k5682260 "k<8k>11 2250 'k=535k=8sox=sox-1 'k=568k=9 sox=sox+1 )k=546k=10 sox=sox+32 )k=557k=11 sox=sox-32 k=32 2340$ 7sox>23039Ysox<22528 Xsox=soy:2250 3soy,(65259):65259,(sox):sox,(kp)  soy=sox  2250 $D(65259)127sox,(65259):kp,(kp)-128: .G65257,kp-(kp/256)*256:65258,(kp/256) 8J65255,sox-(sox/256)*256:65256,(sox/256) B65254,0 L50214& V$(65254)12450 `H9500%:1:7:20,6;"SORRY - IT WONT FIT!" jz=1200:z t(kp,(kp)-128:sox,(65259) ~ 0  $(65254)02500 9500%:1:7:18,11 ;"WELL DONE!":0:5:1:20,2;"press any key for next level" a$=:a$=""2470 7level=(level+1):level>13 level=13 %quit=1:23659k\,2: s(shape)=1 50031o: ,**** reject shape **** 69500%:970 @97:0:20,7;"REJECT SHAPE A-L" J!a$=:a$<"a"a$>"l"2890J Tz=(a$)-96` Us(z)=0 ^%z>6col=64@+(z-6) _z6col=z h65254,col r50355 w50031o | ******* quit *******  9500% &>7:0:20,5;"REALLY QUIT?? (Y - N)" 0a$= :-a$="y"quit=1:23659k\,2: Da$"n"31200 N #' #(Hgrid=22528X+(gy*32 )+gx:source=22528X+(sy*32 )+sx #)50061:50083 #2O65367W,(grid/256):65366V,grid-((grid/256)*256) #765361Q,5 #Z%level765361Q,10 #d50000P #ilevel>750383 #n %23659k\,1:18,0;" ": ' "print": tar?  Ruieve riBXourcTXhapoXoX \Xk oBAnZ