AÇÝPK1¤PK2¤PK3¤A¤ÌÄ€€€€ *** HOT POKER LOADER ***›*** by S.M. Baugh ***›11€;@r,;@r,‚;@r,ƒ;@,(6$(Creating file:  ÄºÐÏËÅÒ®ÓÕ 6AA€2A A @A@@ D:POKER.SUBd-„-@@r"…)6€7„<„,.>:…,- „n-„-@@r"…)67„<„,.>:…,- „x-„-@@r"…)6‚7„<„,.>:…,- „‚66(@%2 DIM PKR$(216):REM * Hot Poker Sub *Œ66(@ 3 PKR$(1,72)=>:@4,€>:@4,–88(@4 PKR$(73,144)=>:@4,>:@4, 99(@5 PKR$(145,216)=>:@4,‚>:@4,ªFF(@56 FOR L=1 TO 3:READ P:READ D:PKR$(P,P)=CHR$(D):NEXT L´--(@7 DATA 80,155,91,155,181,155¾ee(@T8 REM MAKE ÌÎÂÒ=1ST DATA LINE TO MOVE, ÎÂÒÌ=NBR OF DATA STATEMENTS, ÄÅÓÔ=DESTINATIONÈ??(@.9 REM INCLUDE: U=USR(ADR(PKR$),LNBR,NBRL,DEST)Ò1@( All done..AAH1ÜoAAH(J("I'm sorry, I've discovered error #F:A•,M(k(Press ÒÅÔÕÒÎ to continueoƒæA• @@èSS216,104,104,133,209,104,133,208,104,104,141,253,3,104,133,206,104,133,205,165›òOO136,133,203,165,137,133,204,169,0,168,145,205,160,2,177,203,133,207,160,1›üOO177,203,197,209,208,9,136,177,203,197,208,208,2,240,14,24,165,203,101,207›NN133,203,144,224,230,204,24,144,219,160,5,200,177,203,201,44,240,69,201,0›NN240,65,200,177,203,201,44,240,32,201,0,240,28,132,208,230,208,136,136,56›PP177,203,233,48,240,13,170,160,0,24,177,205,105,100,145,205,202,208,246,164›$NN208,132,208,136,136,56,177,203,233,48,240,13,170,160,0,24,177,205,105,10›.NN145,205,202,208,246,164,208,132,208,136,56,177,203,233,48,240,7,160,0,24›8QQ113,205,145,205,230,205,208,2,230,206,169,0,168,145,205,164,208,177,203,201›BLL0,240,13,200,24,144,140,160,2,177,203,133,207,24,144,129,206,253,3,240›LAA14,24,165,203,101,207,133,203,144,233,230,204,24,144,228,96›V* 216 BYTES›€D:HOTPOKER.BAS