#pragma noroot/* (C) 1998, 1999 Kelvin W Sherlock *  * 1WSW sucks * */#define sfFileTypeEntriesLength 0x0001#include <stdfile.h>#include <memory.h>#include <stdlib.h>#include <string.h>#include "pd.h"#pragma optimize -1#pragma lint -1/* * present a dialog box & send all selected files to the the printer * * * */// allow all files to be selectedSFTypeList2 List ={	1,	{ 0xC000, 0, 0 }        	};	//Word LList[] = {1, 0xc000, 0, 0, 0 };MultiReplyRecord Reply;void DoOpen(void){Word i;//'volatile' prevents wrongly optimizing by O/C// (the inline assembly confuses it)fileEntryRec *volatile p;Word count;GSString255 *tmp;	SFMultiGet2 ( 0x78, 0x2b, 0, (Ref)"\pSelect files to dump:",	        NULL,	// filterproc		&List, &Reply);	if (count = Reply.good)	{		//asm { brk 0xea }				HLock((Handle)Reply.namesHandle);		p = *((fileEntryRec **)Reply.namesHandle);		asm	//move past the header (word)		{			lda #2			clc			adc <p			sta <p			lda #0			adc <p+2			sta <p+2		}		for(i = 0; i < count; i++)		{			//skip it if it's a directory			if (p->fileType != 0x0f)			{				tmp = __P2GSMalloc(&p->nameLength);					if (tmp)				{					do_it(tmp);					free(tmp);				}			}			asm // move to the next entry			{				ldy #6		// offset to prefix byte;				lda [p],y 	// pstring - length of string				and #0xff	// strip it				clc		// +2 for ftype, +4 for aux + 1 for length byte				adc #7				adc <p				sta <p				lda #0				adc <p+2				sta <p+2			}		}		DisposeHandle((Handle)Reply.namesHandle);	}}