home *** CD-ROM | disk | FTP | other *** search
/ Magazyn Amiga Shareware Floppies / ma45.dms / ma45.adf / Listingi / MagazynAMIGA3 / KursAMOSA.txt < prev    next >
Text File  |  2002-10-23  |  2KB  |  86 lines
  1. ' ******* DOS: Zabezpieczenie *******
  2. MASKA$="HSPARWED"
  3. PLIK$=Fsel$("")
  4. If PLIK$="" Then End
  5. PLIK$=PLIK$+Chr$(0)
  6. '--------------------- bity protekcji
  7. If Instr(MASKA$,"D")=0 Then Add BITY,1
  8. If Instr(MASKA$,"E")=0 Then Add BITY,2
  9. If Instr(MASKA$,"W")=0 Then Add BITY,4
  10. If Instr(MASKA$,"R")=0 Then Add BITY,8
  11. If Instr(MASKA$,"A") Then Add BITY,16
  12. If Instr(MASKA$,"P") Then Add BITY,32
  13. If Instr(MASKA$,"S") Then Add BITY,64
  14. If Instr(MASKA$,"H") Then Add BITY,128
  15. ' -------------------- ustaw 
  16. Dreg(1)=Varptr(PLIK$)
  17. Dreg(2)=BITY
  18. _PROTECT=Doscall(-186)
  19. If _PROTECT=0
  20.     Print "Bˆ¥d!"
  21. End If
  22.  
  23.  
  24.  
  25. ' ******* Exec: taski *******
  26. Print "Zwykˆa pr©dko˜†:";
  27. Gosub TEST
  28. Wait Key
  29. Home 
  30. Cls 1
  31. '------------------ zamykamy taski
  32. Print "Task zamkni©ty:";
  33. _FORBID=Execall(-132)
  34. Gosub TEST
  35. '------------------ otw¢rz zamkni©te taski
  36. _PERMIT=Execall(-138)
  37. End
  38. '------------------ zmierz pr©dko˜†
  39. TEST:
  40.   T=Timer
  41.  For I=0 To 320
  42.     For I2=10 To 190
  43.       Plot I,I2
  44.     Next I2
  45.   Next I
  46.   T=(Timer-T)/50
  47.   Print T;" sekund!"
  48. Return 
  49.  
  50.  
  51.  
  52. ' ******* DOS: Czas systemowy *******
  53. '------------------- bufor
  54. TEKST$=Space$(12)+Chr$(0)
  55. '------------------- we« czas systemowy
  56. Dreg(1)=Varptr(TEKST$)
  57. _DATESTAMP=Doscall(-192)
  58. '------------------- policz
  59. G=Leek(Varptr(TEKST$)+4)
  60. S=Leek(Varptr(TEKST$)+8)/50
  61. M=G mod 60 : G=G/60
  62. G$="00" : M$="00" : S$="00" : 
  63. Right$(G$,Len(Str$(G))-1)=Str$(G)-" "
  64. Right$(M$,Len(Str$(M))-1)=Str$(M)-" "
  65. Right$(S$,Len(Str$(S))-1)=Str$(S)-" "
  66. '------------------- wy˜wietl
  67. Print G$+":"+M$+":"+S$
  68.  
  69.  
  70.  
  71. ' ******* Exec: Jak sprawdziê wektory? *******
  72. EXECBASE=Leek(4)
  73. '---------------- sprawd« wektory
  74. For I=0 To 4
  75.   Read WEKTOR$,ADRES
  76.   N=Leek(EXECBASE+ADRES)
  77.   Print WEKTOR$;Hex$(N,8);
  78.   If N Then Print " co˜ tu mamy" Else Print " ok"
  79. Next 
  80. '------------ nazwa wektora, adres
  81. Data "ColdCapture ",$2A
  82. Data "CoolCapture ",$2E
  83. Data "WarmCapture ",$32
  84. Data "KickMemPtr  ",$222
  85. Data "KickTagPtr  ",$226
  86.