home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PCMAG / VOL6N17.ARC / QPRINT.BAS < prev    next >
Encoding:
BASIC Source File  |  1987-09-08  |  725 b   |  14 lines
  1. 10 'QPrint.Bas - quick print demonstration
  2. 20 '
  3. 30 TEST$ = "This is a test message."       'define the string to print
  4. 40 COLR% = 112                             'color 112 is black on white
  5. 50 QPRINT = 0                              'define before dimensioning array
  6. 60 DIM ARRAY%(51)                          'set aside room to hold the code
  7. 70 '
  8. 80 DEF SEG                                 'insure BASIC's default data segment
  9. 90 QPRINT = VARPTR(ARRAY%(0))              'find where the array starts
  10. 100 BLOAD "QPrint.Bin", QPRINT             'load assembler code into the array
  11. 110 '
  12. 120 LOCATE 10,1                            'specify where to print it
  13. 130 CALL QPRINT(TEST$, COLR%)              'call QPrint
  14.