; Program MiniEdytorek

;--------------------- procedurka ruchu kursora w dol

Statement KursorWDol{}

	Shared li,tl

	If tl+li<15

		li=li+1

		If li=8

			li=7:tl=tl+1

			WScroll 0,0,320,72,0,9

		End If

	End If

End Statement

;--------------------- procedurka ruchu kursora w gore

Statement KursorWGore{}

	Shared li,tl

	If tl+li>0

    		li=li-1

    		If li<0

        		li=0:tl=tl-1

        		WScroll 0,0,320,72,0,-9

    		End If

	End If

End Statement

;--------------------- inicjalizacja

Dim li$(15)

Load IntuiFont 0,"pearl.font",8 ;wybor fontu

QuickPlay 1

MaxLen sciezka$=192

MaxLen plik$=192

SetPens 1

;--------------------- otworzenie ekranu i okna

Screen 0,0,0,320,200,3,0,"Ekran MiniEdytorka",1,2:Use Screen 0

TextGadget 0,8,120,0,1," Ten gadzet nic nie robi "

Window 0,0,12,320,188,$1400+15,"Okienko edycyjne",1,2,0

Use Window 0:WindowInput 0

WindowFont 0

;--------------------- zaprojektowanie menu

MenuTitle 0,0,"Plik"

MenuItem 0,0,0,0,"Wczytaj   ","W"

MenuItem 0,0,0,1,"Zapisz    ","Z"

MenuItem 0,0,0,2,"Koniec    ","K"

SetMenu 0,0

;--------------------- glowna petla

petla

WLocate 0,li*9

EditFrom eat:li$(li+tl)=Edit$(li$(li+tl),36):eat=Editat

;

Select EditExit ;ciekawe jaki klawisz nacisniety

	Case 27 ;klawisz [ESC]

		End

	Case 28 ;klawisz [UP]

		KursorWGore{}

	Case 29 ;klawisz [DOWN]

		KursorWDol{}

	Case 13 ;klawisz [ENTER]

		eat=0:KursorWDol{}

End Select

;

Select Event

	Case 256 ;ktos cos wybral z menu

		Select ItemHit ;ciekawe co?

			Case 0 ;wczytaj

				a$=FileRequest$("Wczytaj...",sciezka$,plik$)

			Case 1 ;zapisz

				a$=FileRequest$("Zapisz...",sciezka$,plik$)

			Case 2 ;koniec

				End

		End Select

	Case 512 ;zamknij okno

		End

End Select

;----------- i jeszcze raz to samo...

Goto petla