home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / basic / library / zbasic / pia / keys.bas < prev    next >
BASIC Source File  |  1987-07-02  |  203b  |  7 lines
  1. REM *** KEYS.BAS ***
  2. IF LEN(C$)=1 THEN BEEP: GOTO 3120
  3. C$=MID$(C$,2,1)
  4. IF ASC(C$)=52 THEN GOSUB 3150 : REM Data entry (insert)
  5. IF ASC(C$)=51 THEN GOSUB 3500 : REM Exit correction mode (page down)
  6.  
  7.