home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / 1990 / 10 / einsteig / makenum.bas < prev    next >
BASIC Source File  |  1990-07-20  |  1KB  |  43 lines
  1. '* ------------------------------------------------------ *
  2. '*                   MAKENUM.BAS                          *
  3. '*                 Zeilenumerierer                        *
  4. '*           (c) 1990 W.Rinke & TOOLBOX                   *
  5. '* ------------------------------------------------------ *
  6.  
  7. '$INCLUDE: 'REGISTER.INC'
  8.  
  9. DIM Done AS INTEGER
  10. DIM ch   AS STRING * 1
  11.  
  12.  
  13. Zeile = 1
  14.  
  15. PRINT USING "####"; Zeile; : PRINT ": ";
  16. DO
  17.   Done = GetCh(ch)
  18.   PRINT (ch);
  19.   IF ch = CHR$(13) THEN
  20.     Done = GetCh(ch)
  21.     Zeile = Zeile + 1
  22.     PRINT USING "####"; Zeile; : PRINT ": ";
  23.   END IF
  24. LOOP UNTIL Done
  25.  
  26.  
  27. FUNCTION GetCh% (ch$)
  28.  
  29.   Regs.ax = &HB00
  30.   CALL INTERRUPT(&H21, Regs, Regs)
  31.   Status = Regs.ax AND &HFF
  32.   IF Status = &HFF THEN
  33.     Regs.ax = &H700
  34.     CALL INTERRUPT(&H21, Regs, Regs)
  35.     ch$ = CHR$((Regs.ax AND &HFF))
  36.   END IF
  37.   GetCh% = (Status = 0)
  38.  
  39. END FUNCTION
  40.  
  41. '* ------------------------------------------------------- *
  42. '*                 Ende von MAKENUM.BAS                    *
  43.