þþfX;*** HOT POKER ROUTINE ***X;*** by S.M. Baugh *** X*= $0600 †STMTABˆ „SORCË;;$CC„DESTÍ;;$CE „LLENÏ„INDXÐ;;$D1 „LCNTýX;ƒCLD#ƒPLA(ƒPLA-ƒSTA…INDX 2ƒPLA7ƒSTA…INDX <ƒPLAAƒPLAFƒSTA…LCNT KƒPLAPƒSTA…DEST UƒPLAZƒSTA…DEST dƒLDA‡STMTAB nƒSTA…SORC xƒLDA‡STMTAB ‚ƒSTA…SORC ‡X;ŒQ>–? P@Í7¥X;ª …FINDR%>´Q@Ë7¾ P„LLENÃX;È%>ÒQ@Ë7Ü R„INDXæ H…NEXTLð1úQ@Ë7 R„INDX H…NEXTL F…FOUNDX;" …NEXTL,, Q„SORC6 O„LLEN; P„SORC@ D…FINDRJ #„SORCT,^ D…FINDRcX;h …FOUND%>r …FLOOP3|Q@Ë7†R>, F…ONEDGšR>›¤ F…ONEDG®3¸Q@Ë7ÂR>,Ì F…TWODGÖR>›à F…TWODGåX;ê…HUNDS'„INDXô #„INDXþ11 ;Q@Ë7S>0& F…HENDS0>:%>?X;D …HLOOP,NQ@Í7XO>dbP@Í7l0v H…HLOOP{X;€…HENDS%„INDX…X;Š…TWODG'„INDX”1ž1£;¨Q@Ë7²S>0¼ F…TENDSÆ>Ð%>ÕX;Ú …TLOOP,äQ@Í7îO> øP@Í70  H…TLOOPX;…TENDS%„INDXX; …ONEDG'„INDX*1/;4Q@Ë7>S>0H F…OENDSR%>\,fO@Í7pP@Í7uX;z…OENDS#„DEST„ H…LNCHKŽ #„DEST“X;˜ …LNCHKQ>?¢P@Í7§X;¬ %„INDX±Q@Ë7¶R>›À F…ENDCHÊ3Ô,Þ D…FLOOPãX;è …RESET%>òQ@Ë7ü P„LLEN, D…FOUNDX;L…ENDCH"„LCNTV F…RETRN[X;° …NEWLN,º Q„SORCÄ O„LLENÉ P„SORCÎ D…RESETØ #„SORCâ,ì D…RESETñX; …RETRN:X;;D:PKSUB.SRC