home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1997 #3 / amigamamagazinepolishissue03-1 / ma_1995 / 05 / ami030a.txt < prev    next >
Text File  |  1997-04-07  |  2KB  |  146 lines
  1. ; Program MiniEdytorek
  2.  
  3. ;--------------------- procedurka ruchu kursora w dol
  4.  
  5. Statement KursorWDol{}
  6.  
  7.     Shared li,tl
  8.  
  9.     If tl+li<15
  10.  
  11.         li=li+1
  12.  
  13.         If li=8
  14.  
  15.             li=7:tl=tl+1
  16.  
  17.             WScroll 0,0,320,72,0,9
  18.  
  19.         End If
  20.  
  21.     End If
  22.  
  23. End Statement
  24.  
  25. ;--------------------- procedurka ruchu kursora w gore
  26.  
  27. Statement KursorWGore{}
  28.  
  29.     Shared li,tl
  30.  
  31.     If tl+li>0
  32.  
  33.             li=li-1
  34.  
  35.             If li<0
  36.  
  37.                 li=0:tl=tl-1
  38.  
  39.                 WScroll 0,0,320,72,0,-9
  40.  
  41.             End If
  42.  
  43.     End If
  44.  
  45. End Statement
  46.  
  47. ;--------------------- inicjalizacja
  48.  
  49. Dim li$(15)
  50.  
  51. Load IntuiFont 0,"pearl.font",8 ;wybor fontu
  52.  
  53. QuickPlay 1
  54.  
  55. MaxLen sciezka$=192
  56.  
  57. MaxLen plik$=192
  58.  
  59. SetPens 1
  60.  
  61. ;--------------------- otworzenie ekranu i okna
  62.  
  63. Screen 0,0,0,320,200,3,0,"Ekran MiniEdytorka",1,2:Use Screen 0
  64.  
  65. TextGadget 0,8,120,0,1," Ten gadzet nic nie robi "
  66.  
  67. Window 0,0,12,320,188,$1400+15,"Okienko edycyjne",1,2,0
  68.  
  69. Use Window 0:WindowInput 0
  70.  
  71. WindowFont 0
  72.  
  73. ;--------------------- zaprojektowanie menu
  74.  
  75. MenuTitle 0,0,"Plik"
  76.  
  77. MenuItem 0,0,0,0,"Wczytaj   ","W"
  78.  
  79. MenuItem 0,0,0,1,"Zapisz    ","Z"
  80.  
  81. MenuItem 0,0,0,2,"Koniec    ","K"
  82.  
  83. SetMenu 0,0
  84.  
  85. ;--------------------- glowna petla
  86.  
  87. petla
  88.  
  89. WLocate 0,li*9
  90.  
  91. EditFrom eat:li$(li+tl)=Edit$(li$(li+tl),36):eat=Editat
  92.  
  93. ;
  94.  
  95. Select EditExit ;ciekawe jaki klawisz nacisniety
  96.  
  97.     Case 27 ;klawisz [ESC]
  98.  
  99.         End
  100.  
  101.     Case 28 ;klawisz [UP]
  102.  
  103.         KursorWGore{}
  104.  
  105.     Case 29 ;klawisz [DOWN]
  106.  
  107.         KursorWDol{}
  108.  
  109.     Case 13 ;klawisz [ENTER]
  110.  
  111.         eat=0:KursorWDol{}
  112.  
  113. End Select
  114.  
  115. ;
  116.  
  117. Select Event
  118.  
  119.     Case 256 ;ktos cos wybral z menu
  120.  
  121.         Select ItemHit ;ciekawe co?
  122.  
  123.             Case 0 ;wczytaj
  124.  
  125.                 a$=FileRequest$("Wczytaj...",sciezka$,plik$)
  126.  
  127.             Case 1 ;zapisz
  128.  
  129.                 a$=FileRequest$("Zapisz...",sciezka$,plik$)
  130.  
  131.             Case 2 ;koniec
  132.  
  133.                 End
  134.  
  135.         End Select
  136.  
  137.     Case 512 ;zamknij okno
  138.  
  139.         End
  140.  
  141. End Select
  142.  
  143. ;----------- i jeszcze raz to samo...
  144.  
  145. Goto petla
  146.