M JIM BATES PROGRAMJAT PLUS4-RE AT-IRTA: DECSI GYOZO (1991. SZEPT. 15.)n""(14):4,2,0:0,2,3:1,2,1,1,"ELCOME TO THE GAME OF (,1,6,"HE OBJECT IS VERY SIMPLE.....2,1,8,"OU MUST RELEASE THE RISONER BY MOV- ING THE ILES AROUND THE BOARD.J<,1,11,"IMPLY PRESS THE NUMBER CORRESPONDING"~F,1,12,"TO THE ILE YOU WISH TO MOVE AND THEN"P,1,13,"MOVE IT BY PRESSING RELEVANT CURSOR KEY."Z,1,16,"HAT'S REALLY ALL THERE IS TO IT!"d,1,18,"OW - IF YOU'RE READY....."-n,1,23,"RESS A EY":A$fx""(142)(8):0,1:4,1:1343,2:1344,64:A3549:8O17:O," "::8,"_"140:ER30A$""A1$"":A$A$A1$O0232:,0,O,A$:1OAA2:O,32:HAA40:A3709180hA$"  1"A0$""A1$"      "B$A$"2"C$A$"3",D$A$"4"ZE$"  5"E1$"   "E2$"   ""F$E$"6",G$E$"7" 6H$E$"8"9@I$"  9 "WJI1$" "kTI2$" "^J$"  0  "hJ1$"    "rJ2$"    "S|J3$"    "J4$" ͒  "A$A$A1$:B$B$A1$:C$C$A1$:D$D$A1$:E$E$E1$E2$:E0$A0$""A0$,F$F$E1$E2$:G$G$E1$E2$:H$H$E1$E2$:I$I$I1$I1$I1$I1$I1$I1$I1$I2$pI0$A0$""A0$:J$J$J1$J2$J2$J2$:K$J2$J2$J3$J4$AX30:AY3:BX23:BY8:CX23:CY13:DX30:DY18:EX2:EY3FX16:FY3:GX2:GY18:HX16:HY18:IX16:IY8:JX2:JY8:S0:TI$"000000";,9,0," RELEASE THE PRISONER ":,38,12,"ђݝ":,30,8,I0$,AX,AY,A$:,BX,BY,B$:,CX,CY,C$:,DX,DY,D$:,EX,EY,E$:,FX,FY,F$,GX,GY,G$:,HX,HY,H$:,IX,IY,I$:,JX,JY,J$:,JX,JY5,K$:4903,910,2:SS1,0,24,"":""S" ":,7,24,"SELECT A TILE (1-0) OR HELP"+(3456)481410OA0:1540:T$X$:T$"0"T$"10"oT$"_",1,24," ":430{T(T$)T01520:510&T1,AX1,AY1,"1"0T2,BX1,BY1,"2":T3,CX1,CY1,"3"DT4,DX1,DY1,"4"NT5,EX1,EY1,"5"7XT6,FX1,FY1,"6"SbT7,GX1,GY1,"7"olT8,HX1,HY1,"8"vT9,IX1,IY1,"9"T10,JX1,JY1,"0",16,24,"DIRECTION (CURSOR)"A0:1540:DI$X$:T670,730,790,850,910,990,1070,1150,1230,1310PDI$(17)(3072AX40(AY5))102,AX,AY,A0$:AYAY5:720DI$(145)(3072AX40(AY1))102,AX,AY,A0$:AYAY5:720DI$(29)(3079AX40AY)102,AX,AY,A0$:AXAX7:720 DI$(157)(3071AX40AY)102,AX,AY,A0$:AXAX7:7202,AX1,AY1,"":"1":1520:490F,AX,AY,A$:480DI$(17)(3072BX40(BY5))102,BX,BY,A0$:BYBY5:780DI$(145)(3072BX40(BY1))102,BX,BY,A0$:BYBY5:780DI$(29)(3079BX40BY)102,BX,BY,A0$:BXBX7:780DDI$(157)(3071BX40BY)102,BX,BY,A0$:BXBX7:780i,BX1,BY1,"":"2":1520:490} ,BX,BY,B$:480DI$(17)(3072CX40(CY5))102,CX,CY,A0$:CYCY5:840 DI$(145)(3072CX40(CY1))102,CX,CY,A0$:CYCY5:840=*DI$(29)(3079CX40CY)102,CX,CY,A0$:CXCX7:840{4DI$(157)(3071CX40CY)102,CX,CY,A0$:CXCX7:840>,CX1,CY1,"":"3":1520:490H,CX,CY,C$:480RDI$(17)(3072DX40(DY5))102,DX,DY,A0$:DYDY5:9007\DI$(145)(3072DX40(DY1))102,DX,DY,A0$:DYDY5:900tfDI$(29)(3079DX40DY)102,DX,DY,A0$:DXDX7:900pDI$(157)(3071DX40DY)102,DX,DY,A0$:DXDX7:900z,DX1,DY1,"":"4":1520:490,DX,DY,D$:4800 DI$(17)(3072EX40(EY5))102(3079EX40(EY5))102960v DI$(145)(3072EX40(EY1))102(3079EX40(EY5))102970 DI$(29)(3086EX40EY)102,EX,EY,E0$:EXEX7:980 DI$(157)(3071EX40EY)102,EX,EY,E0$:EXEX7:980!,EX1,EY1,"":"5":1520:4903!,EX,EY,E0$:EYEY5:980K!,EX,EY,E0$:EYEY5_!,EX,EY,E$:480!DI$(17)(3072FX40(FY5))102(3079FX40(FY5))1021040!DI$(145)(3072FX40(FY1))102(3079FX40(FY5))1021050*"DI$(29)(3086FX40FY)102,FX,FY,E0$:FXFX7:1060i"DI$(157)(3071FX40FY)102,FX,FY,E0$:FXFX7:1060",FX1,FY1,"":"6":1520:490",FX,FY,E0$:FYFY5:1060",FX,FY,E0$:FYFY5"$,FX,FY,F$:480#.DI$(17)(3072GX40(GY5))102(3079GX40(GY5))1021120e#8DI$(145)(3072GX40(GY1))102(3079GX40(GY5))1021130#BDI$(29)(3086GX40GY)102,GX,GY,E0$:GXGX7:1140#LDI$(157)(3071GX40GY)102,GX,GY,E0$:GXGX7:1140$V,GX1,GY1,"":"7":1520:490%$`,GX,GY,E0$:GYGY5:1140=$j,GX,GY,E0$:GYGY5Q$t,GX,GY,G$:480$~DI$(17)(3072HX40(HY5))102(3079HX40(HY5))1021200$DI$(145)(3072HX40(HY1))102(3079HX40(HY5))1021210%DI$(29)(3086HX40HY)102,HX,HY,E0$:HXHX7:1220[%DI$(157)(3071HX40HY)102,HX,HY,E0$:HXHX7:1220%,HX1,HY1,"":"8":1520:490%,HX,HY,E0$:HYHY5:1220%,HX,HY,E0$:HYHY5%,HX,HY,H$:480 &DI$(17)(3072IX40(IY10))102,IX,IY,I0$:IYIY5:1300P&DI$(145)(3072IX40(IY1))102,IX,IY,I0$:IYIY5:1300&DI$(29)(3079IX40IY)102(3079IX40(IY9))1021280&DI$(157)(3071IX40IY)102(3071IX40(IY9))1021290&,IX1,IY1,"":"9":1520:490',IX,IY,I0$:IXIX7:13000' ,IX,IY,I0$:IXIX7D',IX,IY,I$:480'DI$(17)(3072JX40(JY10))102(3079JX40(JY10))1021360'(DI$(145)(3072JX40(JY1))102(3079JX40(JY5))1021370(2DI$(29)(3086JX40JY)102(3086JX40(JY5))1021380X(<DI$(157)(3066JX40JY)102(3066JX40(JY5))1021390x(F,JX1,JY1,"0":1520:490(P,JX,JY,E0$:,JX,JY5,E0$:JYJY5:1400(Z,JX,JY,E0$:,JX,JY5,E0$:JYJY5:1400(d,JX,JY,E0$:,JX,JY5,E0$:JXJX7:1400")n,JX,JY,E0$:,JX,JY5,E0$:JXJX7C)x,JX,JY,J$:,JX,JY5,K$:480s),3,0," C O N G R A T U L A T I O N S ! "),38,12,"   ":,24,11,"݂THANKS "),24,13," BUDDY"*HO$(TI$,2,1):M$(TI$,3,2):S$(TI$,2)L*,7,24," "q*O18:P60080020:1,P,2:P,O*,0,24,"":"MOVES"S"TIME:"HO$":"M$":"S$" ONCE MORE?(Y/N)"*,5,24,":"*A$:A$"Y"120*A$"N"1520:1490*65529 +1,897,5:(+O36:,JX,JYO,J2$::E+O1333:X$:X$""1560Y+A0:Ս1530:i+:1530:A1+"1,982,5:1,917,3:1,1022,3:1,982,5:1,996,2+,B((0)15)1:,JX2,JY3,"",6B2(B2),JX2,JY6,"":,JX2,JY6,""!,@,JX2,JY4,""s,JB1620,1630,1640,1650,1660,1670,1680,1690,1700,1710,1720,1730,1740,1750,1760,T"RELEASE  ME!":1540,^"IT'S DARK IN HERE ":1540-h"I'M GOING CRAZY ":15403-r"CALL  A LAWYER":1540c-|"OH MOTHER!!!":1540-"I'M  DYING":1540-"I'VE  GOTTA GO":1540-"I MUST  GET OUT!":1540#."NOBODY  CARES":1540S."BE  QUICKER":1540."I'M  INNOCENT":1540."I'M FEEL- ING SICK":1540."PLEASE  HURRY!":1540/"HELP ME  PLEASE":1540C/"CALL  A DOCTOR":1540