home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 1: Collection A / 17Bit_Collection_A.iso / files / 35.dms / 35.adf / terminal.bas < prev    next >
BASIC Source File  |  1988-05-22  |  351b  |  21 lines
  1. 5 'maybe this terminal prog works. off of Delphi 11/10/85.
  2.  
  3. 10 open "O",#1,"ser:": print #1, " " : close #1
  4.  
  5. 20 get a$: if a$="" then 60
  6.  
  7. 40 ?a$;: if a$=chr$(13) then ?
  8.  
  9. 50 gosub 70
  10.  
  11. 60 gosub 90:goto 20
  12.  
  13. 70 td=asc(a$): poke_w &hdff030,td+256: return
  14.  
  15. 90 a=peek_w (&hdff018) and 127: if a=b then return
  16.  
  17. 100 ?chr$(a);: if a=13 then ?
  18.  
  19. 110 b=a: return
  20.  
  21.