home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / bp_6_93 / bonus / winer / chap11-1.bas < prev    next >
BASIC Source File  |  1992-05-12  |  410b  |  24 lines
  1. '*********** CHAP11-1.BAS - demonstrates calling the PrtSc interrupt
  2.  
  3. 'Copyright (c) 1992 Ethan Winer
  4.  
  5. DEFINT A-Z
  6. TYPE RegType
  7.   AX AS INTEGER
  8.   BX AS INTEGER
  9.   CX AS INTEGER
  10.   DX AS INTEGER
  11.   BP AS INTEGER
  12.   SI AS INTEGER
  13.   DI AS INTEGER
  14.   FL AS INTEGER
  15. END TYPE
  16. DIM Registers AS RegType
  17.  
  18. CLS
  19. FOR X% = 1 TO 24
  20.   PRINT STRING$(80, X% + 64);
  21. NEXT
  22.  
  23. CALL Interrupt(5, Registers, Registers)
  24.