10 '
20 '
30 ' QUICKREF: A Quick Refresh For Function Keys (Version 1.0)
40 ' (c) Copyright 1983, LSI Associates All Rights Reserved
50 '
60 ' by Sheila Wersal
70 '
80 '
90 '
100 '
110 ' **************************** NOTICE *****************************
120 ' * A limited license is granted to all users of this program, *
130 ' * to make copies of this program and distribute them to other *
140 ' * users, on the following conditions: *
150 ' * 1. The notices contained in lines 10 through 640 of the *
160 ' * program are not to be altered or removed. *
170 ' * 2. The program is not to be distributed to others in *
180 ' * modified form. *
190 ' * 3. No fee is to be charged for copying or distributing *
200 ' * the program without an express written agreement with *
210 ' * LSI ASSOCIATES, P.O. Box G, Gilroy, CA 94020. *
220 ' * *
230 ' * (c) COPYRIGHT 1983 LSI Associates *
240 ' *****************************************************************
250 '
260 '
270 '
280 GOTO 370 ' BRANCH TO MAIN LINE PROGRAM
290 GOTO 1020 ' TEMPLATE ENTRY
300 GOTO 1460 ' WRITE FILE
310 GOTO 1960 ' PRINT FILE
320 GOTO 2810 ' READ FILE
330 GOTO 3310 ' PUT TO SCREEN
340 GOTO 4160 ' ERROR ROUTINE
350 GOTO 4250 ' FUNCTION KEYS
360 GOTO 4320 ' KEYBOARD ENTRY
370 COLOR 7,0:KEY OFF:CLS : LOCATE 6,1
380 PRINT " ????????????????????????????????????????????????????????????????????"
390 PRINT " ? ?"
400 PRINT " ? ?"
410 PRINT " ? ?"
420 PRINT " ? ?"
430 PRINT " ? ?"
440 PRINT " ? ?"
450 PRINT " ? ?"
460 PRINT " ? ?"
470 PRINT " ????????????????????????????????????????????????????????????????????"
480 LOCATE 9,33: PRINT "Q U I C K R E F"
490 LOCATE 12,25 : PRINT "(c) COPYRIGHT 1983 LSI Associates "
500 FOR DELAY = 1 TO 2000 : NEXT
510 FOR N=1 TO 10 : KEY N,"":NEXT
520 CLS
530 LOCATE 1,10:PRINT "This program will generate a listing of the function keys for any"
540 LOCATE 2,7 :PRINT "application program you desire. This listing will be apporx. 2x8"
550 LOCATE 3,7 :PRINT "inches in size and will lay on the top keyboard ledge very nicely"
560 LOCATE 4,7 :PRINT "providing quick refresh to the purpose of the function keys relative"
570 LOCATE 5,7 :PRINT "to the job you are running."
580 LOCATE 7,16:PRINT "For samples list the following files with opton 3."
590 LOCATE 9,23:PRINT "BASIC EW TEMPLE QR"
600 LOCATE 14,15: PRINT "If you have used this program and found it of value "
610 LOCATE 15,14: PRINT "your contribution ($10 suggested) will be appreciated."
620 LOCATE 17,33: PRINT "LSI Associates"
630 LOCATE 18,26: PRINT "P.O. Box G, Gilroy, CA 95020"
640 LOCATE 20,10: PRINT "You are encouraged to copy and share this program with others."
650 LOCATE 23,25 :COLOR 0,7 : PRINT " PRESS ANY KEY TO CONTINUE " : COLOR 7,0
660 ANYK$=INKEY$ : IF ANYK$="" GOTO 660
670 DIM FKEY$(10),AKEY$(10),CKEY$(10),SKEY$(10)
680 FOR L=1 TO 10 :FKEY$(L)="":AKEY$(L)="":CKEY$(L)="":SKEY$(L)="":NEXT L
690 TM$="n" : ANS$="" : ROWA$="" : ROWC$="" : ROWS$="" : TITLE$=""
700 CLS :COLOR 7,0:PRINT
710 LOCATE 2,11:COLOR 0,7:PRINT "F1";:COLOR 7,0
720 LOCATE 2,15:PRINT "CREATE";
730 LOCATE 2,31:COLOR 0,7:PRINT "F4";:COLOR 7,0
740 LOCATE 2,35:PRINT "DISPLAY";
750 LOCATE 2,51:COLOR 0,7:PRINT "F10";:COLOR 7,0
760 LOCATE 2,56:PRINT "EXIT TO DOS"
770 LOCATE 4,11:COLOR 0,7:PRINT "F2";:COLOR 7,0
780 LOCATE 4,15:PRINT "UPDATE"
790 LOCATE 4,31:COLOR 0,7:PRINT "F5";:COLOR 7,0
800 LOCATE 4,35:PRINT "DELETE"
810 LOCATE 4,51:COLOR 0,7:PRINT "ESC";:COLOR 7,0
820 LOCATE 4,56:PRINT "CANCEL Operation"
830 LOCATE 6,11:COLOR 0,7:PRINT "F3";:COLOR 7,0
840 LOCATE 6,15:PRINT "PRINT";
850 LOCATE 6,31:COLOR 0,7:PRINT "F6";:COLOR 7,0
860 LOCATE 6,35:PRINT "END Creation or Update"
870 PRINT
880 PRINT : LINE2$=STRING$(75,"-") : PRINT "Existing KEY files on disk" : PRINT LINE2$
890 FILES "*.KEY"
900 PRINT : PRINT LINE2$
910 K$=INKEY$ : IF K$ = "" GOTO 910
920 IF LEN (K$) <2 THEN BEEP: ELSE GOTO 940
930 GOTO 910
940 IF ASC(MID$(K$,2,1))=59 THEN GOSUB 4250
950 IF ASC(MID$(K$,2,1))=60 THEN GOSUB 4260
960 IF ASC(MID$(K$,2,1))=61 THEN GOSUB 4270
970 IF ASC(MID$(K$,2,1))=62 THEN GOSUB 4280
980 IF ASC(MID$(K$,2,1))=63 THEN GOSUB 4290
990 IF ASC(MID$(K$,2,1))=68 THEN GOTO 1050
1000 BEEP : GOTO 910
1010 ' ---------------------------- ROW INPUT ----------------------------------
1020 PRINT : PRINT "FILE NAME ? [Eight characters max (no extension)] ........ [ "FL$" ]";:LOCATE ,52:GOSUB 4470
1030 IF ANS$<>"" THEN FL$=ANS$
1040 ON S GOTO 1070,2810,2810,2810,1060,1460
1050 CLS:SYSTEM
1060 ON ERROR GOTO 4160:KILL FL$+".KEY": GOTO 680
1070 V=CSRLIN:LOCATE 25,25:COLOR 0,15:PRINT " F6 to END Creation or Update ";:LOCATE V,1:COLOR 7,0:PRINT
1080 FOR N= 1 TO 5 :KEY (N) OFF:NEXT:KEY (10) OFF
1090 PRINT "PROGRAM NAME"; TAB(20) "........";" [ ";TITLE$;" ] ";:LOCATE,20
1100 GOSUB 4320 : IF ANS$<>"" THEN TITLE$=ANS$
1110 PRINT
1120 FOR K = 1 TO 10
1130 PRINT "FUNCTION KEYS 1 -> 10";" (";K;") ";TAB(36) ".........";" [ ";FKEY$(K);" ]";:LOCATE,36
1140 GOSUB 4320 : IF ANS$<>"" THEN FKEY$(K)=ANS$
1150 PRINT
1160 NEXT K
1170 PRINT "TITLE FOR SECOND ROW ";
1180 PRINT " ............";" [ ";ROWA$;" ]";:LOCATE ,24
1190 GOSUB 4320 : IF ANS$<>"" THEN ROWA$=ANS$
1200 PRINT
1210 FOR A = 1 TO 10
1220 PRINT ROWA$; " KEYS 1 -> 10";" (";A;") ";TAB(36) ".........";" [ ";AKEY$(A);" ]";:LOCATE,36
1230 GOSUB 4320 : IF ANS$<>"" THEN AKEY$(A)=ANS$
1240 PRINT
1250 NEXT A
1260 PRINT "TITLE FOR THIRD ROW ";
1270 PRINT " ............";" [ ";ROWC$;" ]";:LOCATE ,24
1280 GOSUB 4320 : IF ANS$<>"" THEN ROWC$=ANS$
1290 PRINT
1300 FOR C = 1 TO 10
1310 PRINT ROWC$; " KEYS 1 -> 10";" (";C;") ";TAB(36) ".........";" [ ";CKEY$(C);" ]";:LOCATE,36
1320 GOSUB 4320 : IF ANS$<>"" THEN CKEY$(C)=ANS$
1330 PRINT
1340 NEXT C
1350 PRINT "TITLE FOR FOURTH ROW ";
1360 PRINT " ............";" [ ";ROWS$;" ]";:LOCATE ,24
1370 GOSUB 4320 : IF ANS$<>"" THEN ROWS$=ANS$
1380 PRINT
1390 FOR S = 1 TO 10
1400 PRINT ROWS$; " KEYS 1 -> 10";" (";S;") ";TAB(36) ".........";" [ ";SKEY$(S);" ]";:LOCATE,36
1410 GOSUB 4320 : IF ANS$<> "" THEN SKEY$(S)=ANS$
1420 PRINT
1430 NEXT S
1440 GOTO 1460
1450 ' ---------------------------- WRITE FILE ---------------------------------
1460 OPEN FL$+".KEY" FOR OUTPUT AS #1
1470 PRINT #1, TM$
1480 PRINT #1, TITLE$
1490 PRINT #1, FKEY$(1)
1500 PRINT #1, FKEY$(2)
1510 PRINT #1, FKEY$(3)
1520 PRINT #1, FKEY$(4)
1530 PRINT #1, FKEY$(5)
1540 PRINT #1, FKEY$(6)
1550 PRINT #1, FKEY$(7)
1560 PRINT #1, FKEY$(8)
1570 PRINT #1, FKEY$(9)
1580 PRINT #1, FKEY$(10)
1590 PRINT #1, ROWA$
1600 PRINT #1, AKEY$(1)
1610 PRINT #1, AKEY$(2)
1620 PRINT #1, AKEY$(3)
1630 PRINT #1, AKEY$(4)
1640 PRINT #1, AKEY$(5)
1650 PRINT #1, AKEY$(6)
1660 PRINT #1, AKEY$(7)
1670 PRINT #1, AKEY$(8)
1680 PRINT #1, AKEY$(9)
1690 PRINT #1, AKEY$(10)
1700 PRINT #1, ROWC$
1710 PRINT #1, CKEY$(1)
1720 PRINT #1, CKEY$(2)
1730 PRINT #1, CKEY$(3)
1740 PRINT #1, CKEY$(4)
1750 PRINT #1, CKEY$(5)
1760 PRINT #1, CKEY$(6)
1770 PRINT #1, CKEY$(7)
1780 PRINT #1, CKEY$(8)
1790 PRINT #1, CKEY$(9)
1800 PRINT #1, CKEY$(10)
1810 PRINT #1, ROWS$
1820 PRINT #1, SKEY$(1)
1830 PRINT #1, SKEY$(2)
1840 PRINT #1, SKEY$(3)
1850 PRINT #1, SKEY$(4)
1860 PRINT #1, SKEY$(5)
1870 PRINT #1, SKEY$(6)
1880 PRINT #1, SKEY$(7)
1890 PRINT #1, SKEY$(8)
1900 PRINT #1, SKEY$(9)
1910 PRINT #1, SKEY$(10)
1920 CLOSE #1
1930 KEY (6) OFF
1940 CLS :GOTO 680
1950 ' --------------------------- PRINT FILE ---------------------------------
1960 PRINT :PRINT : PRINT "ALIGN PAPER AND PRESS ANY KEY WHEN READY"
1970 P$=INKEY$ : IF P$ = "" GOTO 1970
1980 IF P$=CHR$(27) GOTO 680
1990 ON ERROR GOTO 4160
2000 WIDTH "LPT1:",255:LPRINT CHR$(15);
2010 PRINT : PRINT "Printing Template............."
2020 LINE3$ = STRING$(131,"-")
2030 LPRINT LINE3$;
2040 WIDTH "LPT1:",80:LPRINT CHR$(27)"E";CHR$(27)"G"
2050 IF TM$="N" OR TM$="n" THEN PAD = (38-LEN(TITLE$))\2 ELSE 2070
2060 GOTO 2080
2070 PAD = (36-LEN(TITLE$))\2
2080 TITLE$ = STRING$(PAD," ")+TITLE$
2090 LPRINT CHR$(142)+TITLE$;
2100 LPRINT CHR$(27)"F";CHR$(27)"H";
2110 LPRINT CHR$(15);:IF TM$="C" OR TM$="c" THEN LPRINT " (c)";
2120 IF TM$="TM" OR TM$="tm" THEN LPRINT " (tm)" ELSE LPRINT
2130 LPRINT CHR$(144):WIDTH "LPT1:",255
2140 LINE1$ = STRING$(131,"*")
2150 LPRINT LINE1$
2160 LPRINT "* FUNCTION KEY";
2170 LPRINT TAB(20) "---F 1---";
2180 LPRINT TAB(31) "---F 2---";
2190 LPRINT TAB(42) "---F 3---";
2200 LPRINT TAB(53) "---F 4---";
2210 LPRINT TAB(64) "---F 5---";
2220 LPRINT TAB(75) "---F 6---";
2230 LPRINT TAB(86) "---F 7---";
2240 LPRINT TAB(97) "---F 8---";
2250 LPRINT TAB(108) "---F 9---";
2260 LPRINT TAB(119) "---F10---";
2270 LPRINT TAB(131) "*"
2280 LPRINT "* ";
2290 LPRINT TAB(20) FKEY$(1);
2300 LPRINT TAB(31) FKEY$(2);
2310 LPRINT TAB(42) FKEY$(3);
2320 LPRINT TAB(53) FKEY$(4);
2330 LPRINT TAB(64) FKEY$(5);
2340 LPRINT TAB(75) FKEY$(6);
2350 LPRINT TAB(86) FKEY$(7);
2360 LPRINT TAB(97) FKEY$(8);
2370 LPRINT TAB(108) FKEY$(9);
2380 LPRINT TAB(119) FKEY$(10);
2390 LPRINT TAB(131) "*"
2400 LPRINT "* "ROWA$;
2410 LPRINT TAB(20) AKEY$(1);
2420 LPRINT TAB(31) AKEY$(2);
2430 LPRINT TAB(42) AKEY$(3);
2440 LPRINT TAB(53) AKEY$(4);
2450 LPRINT TAB(64) AKEY$(5);
2460 LPRINT TAB(75) AKEY$(6);
2470 LPRINT TAB(86) AKEY$(7);
2480 LPRINT TAB(97) AKEY$(8);
2490 LPRINT TAB(108) AKEY$(9);
2500 LPRINT TAB(119) AKEY$(10);
2510 LPRINT TAB(131) "*"
2520 LPRINT "* ";ROWC$;
2530 LPRINT TAB(20) CKEY$(1);
2540 LPRINT TAB(31) CKEY$(2);
2550 LPRINT TAB(42) CKEY$(3);
2560 LPRINT TAB(53) CKEY$(4);
2570 LPRINT TAB(64) CKEY$(5);
2580 LPRINT TAB(75) CKEY$(6);
2590 LPRINT TAB(86) CKEY$(7);
2600 LPRINT TAB(97) CKEY$(8);
2610 LPRINT TAB(108) CKEY$(9);
2620 LPRINT TAB(119) CKEY$(10);
2630 LPRINT TAB(131) "*"
2640 LPRINT "* ";ROWS$;
2650 LPRINT TAB(20) SKEY$(1);
2660 LPRINT TAB(31) SKEY$(2);
2670 LPRINT TAB(42) SKEY$(3);
2680 LPRINT TAB(53) SKEY$(4);
2690 LPRINT TAB(64) SKEY$(5);
2700 LPRINT TAB(75) SKEY$(6);
2710 LPRINT TAB(86) SKEY$(7);
2720 LPRINT TAB(97) SKEY$(8);
2730 LPRINT TAB(108) SKEY$(9);
2740 LPRINT TAB(119) SKEY$(10);
2750 LPRINT TAB(131) "*"
2760 LPRINT LINE1$
2770 LPRINT LINE3$
2780 'LPRINT CHR$(27)+"@";
2790 CLS :GOTO 680
2800 ' --------------------------- READ FILE ----------------------------------
2810 ON ERROR GOTO 4160 :OPEN FL$+".KEY" FOR INPUT AS #1
2820 FOR N = 1 TO 6:KEY(N) OFF:NEXT
2830 LINE INPUT #1, TM$
2840 LINE INPUT #1, TITLE$
2850 LINE INPUT #1, FKEY$(1)
2860 LINE INPUT #1, FKEY$(2)
2870 LINE INPUT #1, FKEY$(3)
2880 LINE INPUT #1, FKEY$(4)
2890 LINE INPUT #1, FKEY$(5)
2900 LINE INPUT #1, FKEY$(6)
2910 LINE INPUT #1, FKEY$(7)
2920 LINE INPUT #1, FKEY$(8)
2930 LINE INPUT #1, FKEY$(9)
2940 LINE INPUT #1, FKEY$(10)
2950 LINE INPUT #1, ROWA$
2960 LINE INPUT #1, AKEY$(1)
2970 LINE INPUT #1, AKEY$(2)
2980 LINE INPUT #1, AKEY$(3)
2990 LINE INPUT #1, AKEY$(4)
3000 LINE INPUT #1, AKEY$(5)
3010 LINE INPUT #1, AKEY$(6)
3020 LINE INPUT #1, AKEY$(7)
3030 LINE INPUT #1, AKEY$(8)
3040 LINE INPUT #1, AKEY$(9)
3050 LINE INPUT #1, AKEY$(10)
3060 LINE INPUT #1, ROWC$
3070 LINE INPUT #1, CKEY$(1)
3080 LINE INPUT #1, CKEY$(2)
3090 LINE INPUT #1, CKEY$(3)
3100 LINE INPUT #1, CKEY$(4)
3110 LINE INPUT #1, CKEY$(5)
3120 LINE INPUT #1, CKEY$(6)
3130 LINE INPUT #1, CKEY$(7)
3140 LINE INPUT #1, CKEY$(8)
3150 LINE INPUT #1, CKEY$(9)
3160 LINE INPUT #1, CKEY$(10)
3170 LINE INPUT #1, ROWS$
3180 LINE INPUT #1, SKEY$(1)
3190 LINE INPUT #1, SKEY$(2)
3200 LINE INPUT #1, SKEY$(3)
3210 LINE INPUT #1, SKEY$(4)
3220 LINE INPUT #1, SKEY$(5)
3230 LINE INPUT #1, SKEY$(6)
3240 LINE INPUT #1, SKEY$(7)
3250 LINE INPUT #1, SKEY$(8)
3260 LINE INPUT #1, SKEY$(9)
3270 LINE INPUT #1, SKEY$(10)
3280 CLOSE #1
3290 ON S GOTO 1070,1070,1960,3310
3300 ' --------------------------- PUT TO SCREEN ------------------------------
3310 IF TM$="N" OR TM$="n" THEN PAD = (75-LEN(TITLE$))\2 ELSE 3330
3320 GOTO 3340
3330 PAD = (72-LEN(TITLE$))\2
3340 TITLE$ = STRING$(PAD," ")+TITLE$
3350 CLS: COLOR 15,0 : PRINT TITLE$; : COLOR 7,0
3360 IF TM$="c" OR TM$="C" THEN PRINT " (c)";
3370 IF TM$="tm" OR TM$="TM" THEN PRINT " (tm)" ELSE PRINT
3380 LINE1$ = STRING$(75,"*")
3390 PRINT LINE1$
3400 PRINT "* FUNCTION KEY";
3410 PRINT TAB(20) "---F 1---";
3420 PRINT TAB(31) "---F 2---";
3430 PRINT TAB(42) "---F 3---";
3440 PRINT TAB(53) "---F 4---";
3450 PRINT TAB(64) "---F 5---";
3460 PRINT TAB(75)"*"
3470 PRINT "*";
3480 PRINT TAB(20) FKEY$(1);
3490 PRINT TAB(31) FKEY$(2);
3500 PRINT TAB(42) FKEY$(3);
3510 PRINT TAB(53) FKEY$(4);
3520 PRINT TAB(64) FKEY$(5);
3530 PRINT TAB(75)"*"
3540 PRINT "* "ROWA$;
3550 PRINT TAB(20) AKEY$(1);
3560 PRINT TAB(31) AKEY$(2);
3570 PRINT TAB(42) AKEY$(3);
3580 PRINT TAB(53) AKEY$(4);
3590 PRINT TAB(64) AKEY$(5);
3600 PRINT TAB(75)"*"
3610 PRINT "* ";ROWC$;
3620 PRINT TAB(20) CKEY$(1);
3630 PRINT TAB(31) CKEY$(2);
3640 PRINT TAB(42) CKEY$(3);
3650 PRINT TAB(53) CKEY$(4);
3660 PRINT TAB(64) CKEY$(5);
3670 PRINT TAB(75)"*"
3680 PRINT "* ";ROWS$;
3690 PRINT TAB(20) SKEY$(1);
3700 PRINT TAB(31) SKEY$(2);
3710 PRINT TAB(42) SKEY$(3);
3720 PRINT TAB(53) SKEY$(4);
3730 PRINT TAB(64) SKEY$(5);
3740 PRINT TAB(75)"*"
3750 PRINT LINE1$
3760 PRINT "* FUNCTION KEY";
3770 PRINT TAB(20) "---F 6---";
3780 PRINT TAB(31) "---F 7---";
3790 PRINT TAB(42) "---F 8---";
3800 PRINT TAB(53) "---F 9---";
3810 PRINT TAB(64) "---F10---";
3820 PRINT TAB(75)"*"
3830 PRINT "*";
3840 PRINT TAB(20) FKEY$(6);
3850 PRINT TAB(31) FKEY$(7);
3860 PRINT TAB(42) FKEY$(8);
3870 PRINT TAB(53) FKEY$(9);
3880 PRINT TAB(64) FKEY$(10);
3890 PRINT TAB(75)"*"
3900 PRINT "* "ROWA$;
3910 PRINT TAB(20) AKEY$(6);
3920 PRINT TAB(31) AKEY$(7);
3930 PRINT TAB(42) AKEY$(8);
3940 PRINT TAB(53) AKEY$(9);
3950 PRINT TAB(64) AKEY$(10);
3960 PRINT TAB(75)"*"
3970 PRINT "* ";ROWC$;
3980 PRINT TAB(20) CKEY$(6);
3990 PRINT TAB(31) CKEY$(7);
4000 PRINT TAB(42) CKEY$(8);
4010 PRINT TAB(53) CKEY$(9);
4020 PRINT TAB(64) CKEY$(10);
4030 PRINT TAB(75)"*"
4040 PRINT "* ";ROWS$;
4050 PRINT TAB(20) SKEY$(6);
4060 PRINT TAB(31) SKEY$(7);
4070 PRINT TAB(42) SKEY$(8);
4080 PRINT TAB(53) SKEY$(9);
4090 PRINT TAB(64) SKEY$(10);
4100 PRINT TAB(75)"*"
4110 PRINT LINE1$
4120 LOCATE 24,17:COLOR 0,15 :PRINT " PRESS ANY KEY TO RETURN TO SELECTION ";
4130 ANY$=INKEY$ : IF ANY$="" GOTO 4130
4140 COLOR 7,0 :CLS :GOTO 680
4150 ' --------------------------- ERROR ROUTINES -----------------------------
4160 IF ERR=53 OR ERR=52 GOTO 4210
4170 IF ERR = 27 OR ERR = 24 GOTO 4230
4180 IF ERR = 71 OR ERR = 70 GOTO 4220
4190 KEY 1,"LIST ":KEY 2,"RUN"+CHR$(13):KEY 3,"LOAD"+CHR$(34):KEY 4,"SAVE"+CHR$(34):KEY 5,"CONT":KEY ON
4200 ON ERROR GOTO 0 : GOTO 0
4210 BEEP :PRINT : PRINT " PROGRAM NOT FOUND " : RESUME 1020
4220 BEEP:PRINT:PRINT "Disk not ready or write protected......................":RESUME 1020
4230 BEEP:PRINT : PRINT "Printer not ready or out of paper....................":RESUME 1960
4240 ' --------------------------- FUNCTION KEYS ------------------------------
4250 V=CSRLIN:LOCATE 2,15:COLOR 31,0:PRINT "CREATE";:COLOR 7,0:S=1 :LOCATE V,1: RETURN 1020
4260 V=CSRLIN:LOCATE 4,15:COLOR 31,0:PRINT "UPDATE";: COLOR 7,0:S=2 :LOCATE V,1: RETURN 1020
4270 V=CSRLIN:LOCATE 6,15:COLOR 31,0:PRINT "PRINT";:COLOR 7,0:S=3 :LOCATE V,1: RETURN 1020
4280 V=CSRLIN:LOCATE 2,35:COLOR 31,0:PRINT "DISPLAY";:S=4 :COLOR 7,0:LOCATE V,1: RETURN 1020
4290 V=CSRLIN:LOCATE 4,35:COLOR 31,0:PRINT "DELETE";:S=5:COLOR 7,0:LOCATE V,1:RETURN 1020
4300 RETURN 1460
4310 ' --------------------------- KEYBOARD ENTRY AREA ------------------------
4320 ANS$="" : GOTO 4340
4330 BEEP
4340 K$=INKEY$ : IF K$ ="" GOTO 4340
4350 IF K$=CHR$(27) GOTO 680
4360 IF K$=CHR$(13) THEN RETURN
4370 IF LEN (K$)>1 THEN IF ASC(MID$(K$,2,1))=64 THEN GOTO 1460 ELSE 4330
4380 IF K$=CHR$(8) THEN XX=POS(0) ELSE 4430
4390 L1=LEN(ANS$)
4400 L2=L1-1
4410 ANS$=LEFT$(ANS$,L2)
4420 LOCATE,XX-1:PRINT " ";:LOCATE,XX-1:GOTO 4340
4430 PRINT K$;: ANS$=ANS$+K$
4440 GOTO 4340
4450 ' --------------------------- KEYBOARD ENTRY AREA FOR FILENAME -----------
4460 BEEP
4470 ANS$=""
4480 K$=INKEY$ : IF K$ ="" GOTO 4480
4490 IF K$=CHR$(27) GOTO 680
4500 IF K$=CHR$(13) THEN RETURN
4510 IF LEN (K$)>1 THEN GOTO 4460
4520 IF K$=CHR$(8) THEN XX=POS(0) ELSE 4570
4530 L1=LEN(ANS$)
4540 L2=L1-1
4550 ANS$=LEFT$(ANS$,L2)
4560 LOCATE,XX-1:PRINT " ";:LOCATE,XX-1:GOTO 4480
4570 PRINT K$;: ANS$=ANS$+K$
4580 GOTO 4480