home *** CD-ROM | disk | FTP | other *** search
/ Vectronix 2 / VECTRONIX2.iso / FILES_01 / ST_PASCA.LZH / USERLIB.I < prev    next >
Text File  |  1987-04-22  |  6KB  |  258 lines
  1. (********************************************************)
  2. (*         procedure iz knjiznice  USERLIB              *)
  3. (*                                                      *)
  4. (*         Kolar Peter                                  *)
  5. (*                       Modified 9.5.1987              *)
  6. (********************************************************)
  7.  
  8. {
  9.          za uporabo podprogramov iz knjiznice userlib
  10.          napisi za deklaracijo spremenljivk
  11.          ( pred prvo proceduro ) include stavek:
  12.  
  13.          (*$I USERLIB.I *)
  14.  
  15. }
  16.  
  17. (********************************************************)
  18.  
  19. {------------------}
  20. {- module scrnlib -}
  21. {------------------}
  22.  
  23. procedure gotoxy(x,y:integer);
  24. external;
  25. (*
  26.     cursor se postavi na podano pozicijo:
  27.     x: 0..79
  28.     y: 0..24
  29. *)
  30.  
  31. procedure clrscr;
  32. external;
  33. (*
  34.    zbrise se zaslon,
  35.    cursor se postavi v levi zgornji rob - x=0, y=0
  36. *)
  37.  
  38. procedure CrtInit;               (* = clrscr *)
  39. external;
  40.  
  41. procedure CrtExit;               (* = clrscr *)
  42. external;
  43.  
  44. procedure Delay(time:integer);   (* time v milisec *)
  45. external;
  46.  
  47. procedure ClrEoln;
  48. external;
  49.  
  50. procedure DelLine;
  51. external;
  52.  
  53. procedure InsLine;
  54. external;
  55.  
  56. procedure LowVideo;  (* inverse on  *)
  57. external;
  58.  
  59. procedure NormVideo; (* inverse off *)
  60. external;
  61.  
  62. procedure Bell;      (* chr(7) *)
  63. external;
  64.  
  65. function Keypressed:boolean;  (* = keypress *)
  66. external;
  67.  
  68. function random(x:integer):integer;  (* 0 - x *)
  69. external;
  70.  
  71. procedure randomize;           (* do nothing *)
  72. external;
  73.  
  74.  
  75. procedure savecursor;
  76. external;
  77.  
  78. procedure restorecursor;
  79. external;
  80.  
  81. procedure cursor(on:boolean);
  82. external;
  83.  
  84. function inverse(on:boolean):char;
  85. external;
  86.  
  87. procedure wrap(on:boolean);
  88. external;
  89.  
  90. (********************************************************)
  91.  
  92. {------------------}
  93. {- module filelib -}
  94. {------------------}
  95.  
  96. procedure dgetpath(var path:string; drive:integer);
  97. external;
  98. (*
  99.    v stringu path se vrne trenutni poddirektorij na
  100.    podanem driveu - drive: 0 = default
  101.                            1 = A
  102.                            2 = B ...
  103. *)
  104.  
  105. function file_exists(fname:string):boolean;
  106. external;
  107. (*
  108.    funkcija vrne true ce datoteka obstaja v
  109.    trenurnem direktoriju, false ce je ni
  110. *)
  111.  
  112. (********************************************************)
  113.  
  114. {-----------------}
  115. {- module inplib -}
  116. {-----------------}
  117.  
  118. procedure readstr(stmest:integer;var str:string);
  119. external;
  120. (*
  121.    prebere poljuben string iz stdin in ga vrne v str
  122. *)
  123.  
  124. procedure readlong(var l:long_integer);
  125. external;
  126. (*
  127.    prebere stevilo in ga vrne v l
  128.    uporbljas lahko + in -
  129. *)
  130.  
  131. procedure readint(var i:integer);
  132. external;
  133. (*
  134.    prebere stevilo in ga vrne v i
  135.    uporbljas lahko + in -
  136. *)
  137.  
  138. (* uporabis lahko se  proceduro:
  139.   procedure input_string(stmest:integer;var str:string;veljavni:podmnznak);
  140.  
  141.   pri cemer je podmnznak = set of char
  142.  
  143.   podobno kot readstr, le da v podmnozici podmnznak navedes znake,
  144.   ki jih lahko pritiskas
  145. *)
  146.  
  147. (********************************************************)
  148.  
  149. {------------------}
  150. {- module straddr -}
  151. {------------------}
  152.  
  153. { funkcija str_addr vrne naslov prvega znaka v stringu.
  154.   poleg tega postavi za zadnje mesto v stringu chr(0),
  155.   zato mora imeti string VSAJ ENO mesto prosto !!! }
  156.  
  157. function str_addr(var str:string):long_integer;
  158. external;
  159.  
  160. { funkcija addr vrne naslov spremenljivke.
  161.   ker je spremenljivka lahko poljubnega tipa,
  162.   funkcijo definiraj sam pred uporabo . }
  163.  
  164. { function addr(var v:katerikoli):long_integer; }
  165.  
  166. (********************************************************)
  167.  
  168. {---------------}
  169. {- module peek -}
  170. {---------------}
  171.  
  172. function bpeek(addr:long_integer):byte;
  173. external;
  174.  
  175. function wpeek(addr:long_integer):integer;
  176. external;
  177.  
  178. function lpeek(addr:long_integer):long_integer;
  179. external;
  180.  
  181. (********************************************************)
  182.  
  183. {---------------}
  184. {- module poke -}
  185. {---------------}
  186.  
  187. procedure bpoke(addr:long_integer;b:byte);
  188. external;
  189.  
  190. procedure wpoke(addr:long_integer;w:integer);
  191. external;
  192.  
  193. procedure lpoke(addr:long_integer;l:long_integer);
  194. external;
  195.  
  196. (********************************************************)
  197.  
  198. {------------------}
  199. {- module convlib -}
  200. {------------------}
  201.  
  202. procedure bin_str(num:long_integer;stmest,osnova:integer; var str:string);
  203. external;
  204.  
  205. { vrne 0 ce je vse v redu, ali kazalec na prvi napacni znak }
  206. function str_bin(st:string;start,osnova:integer;
  207.                  var l:long_integer;add:boolean):integer;
  208. external;
  209.  
  210. function dec_int(str:string; var i:integer):boolean;
  211. external;
  212.  
  213. function hex_int(str:string; var i:integer):boolean;
  214. external;
  215.  
  216. procedure int_dec(num,stmest:integer;var str:string);
  217. external;
  218.  
  219. procedure int_hex(num,stmest:integer;var str:string);
  220. external;
  221.  
  222. procedure Vali(st:string; var i,code:integer); (* st -> i, code = 0 ali  *)
  223. external;                                      (* pa kaze na napako v st *)
  224.  
  225. procedure Stri(num,stmest:integer;var st:string);  (* num -> st *)
  226. external;
  227.  
  228. (********************************************************)
  229.  
  230. {-------------------}
  231. {- module convflib -}
  232. {-------------------}
  233.  
  234. procedure Val(st:string; var r:real; var code:integer);
  235. external;
  236.  
  237. procedure str(num:real;stcelih,stdec:integer;var st:string);
  238. external;
  239.  
  240. (********************************************************)
  241.  
  242. {------------------}
  243. {- module bitlib  -}
  244. {------------------}
  245.  
  246. function testl_bit(x:integer; sor:long_integer):boolean;
  247. external;
  248.  
  249. function test_bit(x:integer; sor:integer):boolean;
  250. external;
  251.  
  252. procedure setl_bit(x:integer; var sor:long_integer; state:boolean);
  253. external;
  254.  
  255. procedure set_bit(x:integer; var sor:integer; state:boolean);
  256. external;
  257.  
  258.