home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / ENTRY.ZIP / MENU.BAS < prev    next >
Encoding:
BASIC Source File  |  1988-04-07  |  659 b   |  19 lines
  1. 10 ON ERROR GOTO 180
  2. 20 DIM P$(10),L$(10)
  3. 30 DATA 4
  4. 40 DATA Create & Modify Data Entry Screens,DESIGN.BAS
  5. 50 DATA Perform Data Entry,FORM.BAS
  6. 60 DATA Convert Direct Access Data Entry File to Sequential,CONVERT.BAS
  7. 70 DATA Convert Direct Access Data Entry File to Sequential with Commas,CONVERT2.BAS
  8. 80 CLS : KEY OFF
  9. 90 READ C : FOR L=1 TO C : READ P$(L),L$(L) : PRINT L;P$(L) : PRINT : NEXT L
  10. 100 PRINT " 0 Stop" : PRINT
  11. 110 PRINT "ENTER SELECTION ";
  12. 120 K$=INKEY$ : IF K$="" THEN 120
  13. 130 K=ASC(K$)-48
  14. 140 IF K<0 OR K>C THEN 120
  15. 150 PRINT K$;
  16. 160 IF K=0 THEN CLS : KEY ON : END
  17. 170 CHAIN L$(K)
  18. 180 CLS : PRINT "ERROR ";ERR;" AT ";ERL : END
  19.