home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1997 #3 / amigamamagazinepolishissue03-1 / ma_1995 / 03 / amikufr.txt < prev    next >
Text File  |  1997-04-06  |  3KB  |  121 lines
  1. <sr>* Nowe requestery pod 1.3
  2.  
  3. <a>Tomasz "Yanosik" Podgórski
  4.  
  5. <txt> Wszyscy znajâ requestery pod Kickstartem 1.3 -- szare,
  6. brzydkie, nudne. Aby je zastâpiê îadniejszymi, naleûy:
  7.  
  8. ^* Wykasowaê z Workbencha ok. 50 KB programów. Moûna uûyê FileMastera,
  9. DOpusa lub samego Workbencha.
  10.  
  11. ^* Skopiowaê do katalogu "C" program ARQ (ja mam wersjë 1.58), a do
  12. katalogu "Libs" dwie biblioteki: reqtools.library i req.library.
  13.  
  14. ^* W sekwencji startowej naleûy dopisaê po komendzie Patch nastëpujâcâ
  15. linië:
  16.  
  17. <l>run >nil: c:arq
  18.  
  19. <txt>i zapisaê plik.
  20.  
  21. ^* Teraz moûna zoptymalizowaê dyskietkë programem XCopy, by uporzâdkowaê
  22. fizyczne poîoûenie plików (przyôpiesza to wczytywanie).
  23.  
  24. Od tej pory mamy îadne animowane requestery.
  25.  
  26. <sr>* Wîasny Shell/CLI
  27.  
  28. <a>Arkadiusz Widawski
  29.  
  30. <txt> Czy chcielibyôcie, aby okno Shella lub CLI otwieraîo sië w
  31. wybranym przez Was miejscu, miaîo zaprojektowane przez Was
  32. wymiary i w dodatku wîasnâ nazwë?
  33.  
  34. To nic trudnego. Wystraczy wskazaê ikonë Shell z menu Workbencha,
  35. uaktywniê "info" i w okienku Tool Types na przykîad wpisaê:
  36. WINDOW=CON:0/155/640/100/Witaj Arku! (wspóîrzëdne okna oraz nazwa
  37. wedîug wîasnego projektu).
  38.  
  39. Wykonujemy funkcjë SAVE i od tej pory Wasze okienko bëdzie sië
  40. otwieraîo w miejscu zaplanowanym i w dodatku z wîasnâ nazwâ.
  41.  
  42. <sr>* Przesîuchanie dysku
  43.  
  44. <a>Sîawomir "Mr. Wolf" Wilk
  45.  
  46. <txt>Zapewne wielu z Was widziaîo demo Reklamy'92. Przedstawia
  47. ono humorystyczny blok reklamowy, skîadajâcy sië z zsamplowanych
  48. fragmentów reklam telewizyjnych. A jak to demo dziaîa? Po prostu
  49. odczytuje kolejno wszystkie sektory dyski i odtwarza je jako
  50. sample. Jaki z tego poûytek? Wystarczy po odczycie gîównego kodu
  51. wyciâgnâê dyskietkë ze stacji i wrzuciê jakâô innâ, np. z demem.
  52. Przesîuchujâc jâ usîyszymy zapewne trzaski, co jest zupeînie
  53. normalne. Jednak jeôli gdzieô na tym dysku znajdujâ sië sample,
  54. to je usîyszymy i nie bëdziemy juû ciâê dysku "w ciemno" w
  55. poszukiwaniu sampli, jeûeli lubimy je wycinaê...
  56.  
  57. <sr>* CED 3.5
  58.  
  59. <a>Dominik Skórka
  60.  
  61. <txt> Wiëkszoôê ludzi denerwuje w nowym CED-zie requester do
  62. wyboru plików oraz wycinanie i kopiowanie kawaîków tekstu.
  63.  
  64. Wyôwietlanie plików zaleûy od posiadanej na dysku biblioteki --
  65. jednej z trzech: reqtools.library, req.library lub asl.library.
  66. Jeûeli masz je wszystkie w katalogu Libs, to pokaûe sië requester
  67. z asl.library. Jeûeli jâ skasujesz, to pokaûe sië prosty w
  68. obsîudze requester z req.library, ale za to nie bëdziesz mógî
  69. wybraê ûadnej czcionki (zaîatwia to wîaônie asl).
  70.  
  71. Natomiast jeôli chcemy uûyê opcji COPY, a póúniej PASTE, to
  72. naleûy mieê w katalogu Devs plik clipboard.device. Nowy CED nie
  73. ma wîasnego bufora dla wycinków tekstu i bez device'a,
  74. obsîugujâcego schowek systemowy, nie moûna niê wyciâê.
  75.  
  76. <sr>** Czas w AMOS-ie
  77.  
  78. <a>Rafaî Morawski
  79.  
  80. <txt>Przedstawiam Wam przydatnâ procedurë, która podaje informacjë o
  81. dokîadnym czasie. Procedurë wywoîujemy w dowolnym punkcie naszego
  82. programu przez:
  83.  
  84. <l>_CZAS[X,Y,KOL]
  85.  
  86. X,Y -- wspóîrzëdne ekranu
  87.  
  88. KOL -- kolor tekstu
  89.  
  90. <txt>Oto ta procedura:
  91.  
  92. <l>Procedure _CZAS[X,Y,KOL]
  93.  
  94.  
  95. T$ = Space$(12)
  96.  
  97. Dreg(1) = Varptr(T$)
  98.  
  99. ADR = Doscall(-192)
  100.  
  101. MN = Leek(Varptr(T$)+4)
  102.  
  103. SEK = Leek(Varptr(T$)+8)
  104.  
  105. G = MN/60 : G$ = Mid$(Str$(G),2) : Rem godzina
  106.  
  107. M = MN mod 60 : M$ = Mid$(Str$(M),2) : Rem minuty
  108.  
  109. S = SEK/60 : S$ = Mid$(Str$(S),2) : Rem sekundy
  110.  
  111. IF G<10 Then G$ = "0" + G$
  112.  
  113. IF M<10 Then M$ = "0" + M$
  114.  
  115. IF S<10 Then S$ = "0" + S$
  116.  
  117. Inc KOL : Text X,Y,G$+":"+M$+":"+S$
  118.  
  119.  
  120. End Proc
  121.