gistfile1.st

#! /usr/bin/gst -f

Object subclass: Automat [
	oddelejMezery: soubor uloz: soubor2[
		|vstup vystup retezec|
		vystup:=FileStream open: soubor2 mode: FileStream write.
		vstup:=FileStream open: soubor mode: FileStream read.
		[ vstup atEnd ] whileFalse: [
			retezec := vstup upTo: Character space.
			vystup nextPutAll: retezec.
		].
		vystup close.
		vstup close.
	]
]

Transcript show: 'Cesta k prvnimu: '.
soubor1:=stdin nextLine.
Transcript show: 'Cesta kam ulozit: '.
soubor2:=stdin nextLine.
Automat new oddelejMezery: soubor1 uloz: soubor2.