home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / BASIC / ACCEPT.ZIP / P.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-08-02  |  585 b   |  20 lines
  1. '    P.BAS
  2. '       Prints a text string (t$) at the specified r% and c% with
  3. '       type% 1 = normal, type% 2 = high intensity, type% 3 = reverse video
  4.  
  5. SUB P(t$,r%,c%,type%) STATIC
  6.     pg% = 0
  7.     f% = 7: b% = 0: CALL CALCATTR(f%, b%, at%) 'normal attribute
  8.     f% = 10: CALL CALCATTR(f%, b%, hat%) ' high intensity
  9.     f% = 8: b% = 7: CALL CALCATTR(f%, b%, rat%) 'reverse video attribute
  10.  
  11.     IF type% = 1 THEN
  12.         CALL XQPRINTD(t$,r%,c%,at%,pg%)
  13.     ELSEIF type% = 2 THEN
  14.         CALL XQPRINTD(t$,r%,c%,hat%,pg%)
  15.     ELSEIF type% = 3 THEN
  16.         CALL XQPRINTD(t$,r%,c%,rat%,pg%)
  17.     END IF
  18. END SUB
  19.  
  20.