home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1988 / 08_09 / xtra / grintest.bas < prev    next >
Encoding:
BASIC Source File  |  1988-05-27  |  505 b   |  17 lines
  1. REM **************************************************
  2. REM *                GRINTEST.BAS                    *
  3. REM *     Demo von Inline-Assembler in Turbo Basic   *
  4.  
  5. call Grinsemaennchen
  6. end
  7.  
  8.  
  9. sub Grinsemaennchen INLINE
  10. $INLINE_
  11. &HB8, &H00, &HB8, &H8E, &HC0, &HBF, &H00, &H00, &HB9,_
  12. &H00, &H20, &HB0, &H01, &HB4, &H94, &HF3, &HAB
  13. REM Für Monochrom-Screen Hex-Zahl Nr. 3 in &HB0 ändern.
  14. REM Zeichennr steht in Hex-Zahl Nr. 13 (&H01).
  15. REM Attribut steht in Hex-Zahl Nr. 15 (&H94).
  16. END SUB
  17.