home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / dbase / cbin / testint.prg < prev    next >
Encoding:
Text File  |  1987-07-06  |  1.9 KB  |  99 lines
  1. * testint.prg
  2. * tests inter.prg, inter.bin
  3. * AS 7/5/87
  4.  
  5. set procedure to inter.prg
  6. load \cbin\inter
  7.  
  8. ? "CONVENTIONAL MEMORY"
  9. ax = 0
  10. do inter with 18,ax,0,0,0
  11. ? ax,"Kbytes conventional memory"
  12.  
  13. ?
  14. ? "EXPANDED MEMORY MANAGER"
  15. ? "assumes you have Lotus/Intel/Microsoft compatible expanded memory"
  16. ? "if you don't, the numbers are meaningless"
  17.  
  18. ax = 64 * 256
  19. al = 0            && for return value
  20. do inter with 103,ax,0,0,0
  21. ? al,"EMM status"
  22.  
  23. ax = 66 * 256
  24. store 0 to bx,cx,dx
  25. do inter with 103,ax,bx,cx,dx
  26. ? bx, "EMM pages free"
  27. ? dx, "EMM total pages"
  28. ? bx*16, "EMM Kbytes free"
  29. ? dx*16, "total EMM Kbytes"
  30.  
  31. ax = 70 * 256
  32. al = 0            && for return value
  33. do inter with 103,ax,0,0,0
  34. ? al,"EMM version number"
  35.  
  36. ?
  37. ? "CLOCK -- raw number of ticks"
  38. store 0 to cx,dx,al
  39. do inter with 26,ax,0,cx,dx
  40. ? iif(al=0, "no clock rollover", "clock did rollover")
  41. ? dx+(cx*32768),"ticks"
  42.  
  43. ?
  44. ? "PRINTER STATUS"
  45. ax=2*256
  46. store 0 to ah,dx
  47. do inter with 23,ax,0,0,dx
  48. ? "using LPT" + chr(dx+1+48)
  49. ? ah,"status byte"
  50.  
  51. ?
  52. ? "EQUIPMENT BYTE"
  53. ax = 0
  54. do inter with 17,ax,0,0,0
  55. ? ax,"equipment byte"
  56. ? "how do you test bits with mod()????"
  57.  
  58. ?
  59. ? "KEYBOARD TEST"
  60. ? "doesn't work properly for non-alphanumeric keys!"
  61. ? "Press (((almost))) any key"
  62. al = 0
  63. do inter with 33,8*256,0,0,0
  64. ? "You pressed key#",al
  65.  
  66. ?
  67. ? "SCROLLING TEST"
  68. ? "This should blank out screen from (5,5) to (15,15)"
  69. do inter with 16,6*256+10,5*256,5*256+5,15*256+15
  70.  
  71. ?
  72. ? "GRAPHICS TEST"
  73. ? "This is a paltry graphics display"
  74. ? "It probably won't work on a Hercules card..."
  75. wait
  76. * set mode to graphics
  77. set status off
  78. do inter with 16,6,0,0,0
  79. * draw some dots
  80. store 0 to row, column
  81. do while row < 200
  82.     do inter with 16,12*256+1,0,column,row
  83.     column = column + 15
  84.     row = row + 5
  85. enddo
  86. * wait for key
  87. do inter with 33,8*256,0,0,0
  88. * restore text mode
  89. do inter with 16,2,0,0,0
  90.  
  91.  
  92.  
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.