home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / armbob / armbob_1 / ARMBOB / !ArmBob / progs / h / vdu < prev   
Encoding:
Text File  |  1995-04-05  |  723 b   |  69 lines

  1. /* Little library of output functions. GCW 02/03/94 */
  2.  
  3. vdu(s)
  4. {
  5.  local out,i;
  6.  out = fopen("rawvdu:","w");
  7.  for(i=0;i<sizeof(s);putc(s[i++],out));
  8.  fclose(out);
  9. }
  10.  
  11. mode(n)
  12. { vdu(""+22+n); }
  13.  
  14. tab_to(x,y)
  15. { vdu(""+31+x+y); }
  16.  
  17. colour(n)
  18. { vdu(""+17+n); }
  19.  
  20. gcol(k,n)
  21. { vdu(""+18+k+n); }
  22.  
  23. clg()
  24. { vdu(""+16); }
  25.  
  26. cls()
  27. { vdu(""+12); }
  28.  
  29. plot(k,x,y)
  30. { vdu(""+25+k+(x%256)+(x/256)+(y%256)+(y/256)); }
  31.  
  32. move(x,y)
  33. { plot(4,x,y); }
  34.  
  35. line(x1,y1,x2,y2)
  36. {
  37.  move(x1,y1);
  38.  plot(5,x2,y2);
  39. }
  40.  
  41. point(x,y)
  42. { plot(69,x,y); }
  43.  
  44. circle(x,y,r)
  45. {
  46.  move(x,y);
  47.  plot(145,r,0);
  48. }
  49.  
  50. circlefill(x,y,r)
  51. {
  52.  move(x,y);
  53.  plot(153,r,0);
  54. }
  55.  
  56. rectangle(x,y,w,h)
  57. {
  58.  move(x,y);
  59.  plot(97,w,h);
  60. }
  61.  
  62. cursor(n)
  63. {
  64.  vdu(""+23+1+(n%256)+(n/256));
  65. }
  66.  
  67.  
  68. // Now add your own.
  69.