to callpascal
	cd "csls
	load "pascal2.lg
;	catch "error 	;is neccessary because of a bug in load
;	[
		compile "multi.pas
		prun "multi
		
		compile "tower.pas
		prun "tower
		
		compile "cards.pas
		prun "cards
		
		compile "psort.pas
		prun "psort
;	]
	cd "..
end