Category : Files from Magazines
Archive   : VOL10N19.ZIP
Filename : CENTER3.WK1

Output of file : CENTER3.WK1 contained in archive : VOL10N19.ZIP
– /ÿÿ q Hd GCOUNTGFINISH  GGETWIDTHGPROMPT1GPROMPT2GRANGEGTEXTGTEXTLENGWIDTHG\RG\Xÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ0ÿÿÿÿÿÿÿÿ ÿÿÿÿ# ÿÿÿÿgÿÿÿÿÿÿÿÿÿÿÿÿi(ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿ ÿÿÿÿÿÿÿÿfÿÿÿÿÿÿÿÿ$%ò&ò'(\027E (
L<)'*ÿÿÿÿÿÿÿÿ-·ÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿÿqq ÿ'\x ÿ'{getlabel PROMPT1,RANGE}~ÿ'{getlabel PROMPT2,TEXT}~ÿ'{let TEXT,@trim(TEXT)}"ÿ'{let TEXTLEN,@length(TEXT)} ÿ'\rÿ'/rncTITLERANGE~{RANGE}~ÿ'{goto}TITLERANGE~ÿ'{let WIDTH,0}ÿ'{windowsoff}1ÿ'{for COUNT,1,@cols(TITLERANGE),1,GETWIDTH}>ÿ '{if TEXTLEN>WIDTH}{let TITLERANGE,TEXT}~{branch FINISH};ÿ
'{let TITLERANGE,@repeat(" ",(WIDTH-TEXTLEN)/2)&TEXT}
ÿ 'FINISHÿ '{goto}TITLERANGE~ÿ '/rndTITLERANGE~ÿ'GETWIDTH5ÿ'{let WIDTH,WIDTH+@cellpointer("width")}{right}ÿ'PROMPT1ÿ'Enter title range: ÿ'PROMPT2ÿ'Enter title:  ÿ'RANGE ÿ'TEXT ÿ'WIDTHÿ'TEXTLEN ÿ'COUNT ÿ' 

  3 Responses to “Category : Files from Magazines
Archive   : VOL10N19.ZIP
Filename : CENTER3.WK1

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: