home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1994 #1 / monster.zip / monster / PROG_BAS / PRO98SRC.ZIP / ANSIPRIN.BAS next >
BASIC Source File  |  1994-01-14  |  142b  |  11 lines
  1. SUB ANSIPrint(BYVAL Oput$)
  2.  
  3. For i%=1 to len(Oput$)
  4.     Reg 1,&h200
  5.     Reg 4,asc(Mid$(OPut$,i%,1))
  6.     CALL INTERRUPT &H21
  7. Next i%
  8.  
  9. END SUB
  10.  
  11.