5 CLS:KEY OFF:SCREEN 0,0,0:WIDTH 80:CLEAR:FOR I=1 TO 10:KEY I,"":NEXT:KEY 2,"GOTO 60"+CHR$(13):KEY 10,"RUN"+CHR$(34)+"BLUEMENU"+CHR$(34)+CHR$(13):LIST 10-57
10 REM ***** ADDITIONAL DOCUMENTATION UNDER BLUEBERY.DOC IN DOS **********
11 '?????????????????????????????????????????????????????????????????????
13 '? *** LABELPRO.BAS (No Color)--MONOCHROME FOR THE IBM PC *** ?
14 '? ?
15 '? This is a bonus program for BLUEBERRY PIE A La Mode Buyers. ?
17 '? It is a combination LABEL, NOTE BOOK, "what have you", record and ?
19 '? filing system. It will print out 5 line labels on the EPSON or ?
21 '? GEMINI printer. The 6th line is held in file but not printed. ?
23 '? A BASIC programmer can alter this feature easily. NOTE-NOTE-NOTE ?
24 '? When asked for the LABEL RANGE in the print routine, ENTER first ?
25 '? file # and wait, the on prompt, enter second number. If you want ?
26 '? only a single FILE label, enter the same FILE number each time. ?
27 '? The format is INKEY$ protected. You need not use the KEY. ?
28 '? An expanded, commented version is on the 320K disk as BLUEBERY. ?
29 '? BAS. It also has inert COLOR STATEMENTS and has been modified for ?
30 '? demonstration purposes as a 6 line DATA-FILE and LABEL program. ?
32 '? The color statements in both BLUEBERY.BAS and LABELPRO.BAS can be ?
33 '? activated easily by any programmer. Color 7,0 statements are in- ?
34 '? cluded so that COLORS can be selectively called. See BLUEBERY.DOC ?
35 '? DOC and BLUEBRY2.DOC for more information. ? ? (c) G I N A C O -- 1963 Ver 5.2/320 ? ?????????????????????????????????????????????????????????????????????
55 ' ***** < F2 > to RUN ******* < F10 > For BLUEMENU *****
57 ' ====== To avoid DOCUMENTATION BOX each time, REM or DELETE line 5 ======
60 FOR I=1 TO 10:KEY I,"":NEXT
100 SCREEN 0,1,0,0:LOCATE 1,1,0,12,13:A$="":B$="":C$="":D$="":E$="":F$="":DEFINT A-Z:I=0:DIM A$(200),B$(200),C$(200),D$(200),E$(200),F$(200),INPTR$(50),FIN$(50),AA$(200):FINLEN=0:P!=0:IN$="":ON ERROR GOTO 9000
110 CLS:KEY OFF:BB$=TIME$:GOSUB 500:GOSUB 320:GOTO 150
150 GOSUB 760:DEF SEG=&H40:A!=PEEK(&H8):B!=PEEK(&H9):C!=PEEK(&HA):D!=PEEK(&HB):POKE &H8,C!:POKE &H9,D!:POKE &HA,A!:POKE &HB,B!:IF PEEK(&H9)=3 THEN LPT$="1"ELSE LPT$="2
160 LOCATE 7,30,0:COLOR 7,0:PRINT"Primary Printer = LPT";LPT$+":":COLOR 7,0:LOCATE 9,24:PRINT"To continue with program 1":LOCATE 11,24,0:PRINT"Reset LPT1 OR LPT2 2";" ";:GOSUB 1020:ON VAL(IN$)GOTO 190,150
170 GOSUB 760:DEF SEG=&H40:A!=PEEK(&H8):B!=PEEK(&H9):C!=PEEK(&HA):D!=PEEK(&HB):POKE &H8,C!:POKE &H9,D!:POKE &HA,A!:POKE &HB,B!:IF PEEK(&H9)=3 THEN LPT$="1"ELSE LPT$="2
180 LOCATE 7,30,0:COLOR 7,0:PRINT"Primary Printer = LPT";LPT$+":":COLOR 7,0:LOCATE 9,24:PRINT"To continue with program 1":LOCATE 11,24,0:PRINT"Reset LPT1 OR LPT2 2";" ";:GOSUB 1020:ON VAL(IN$)GOTO 860,170
190 CLS:GOSUB 350:GOSUB 850:GOSUB 390:GOTO 4610
200 REM ===== EMERGENCY REPAIR =====
210 CLS:GOSUB 350:GOSUB 850:GOTO 860
300 REM ===== PROGRAM FOR BOX PRINTOUT =======
310 CLS:GOSUB 340:GOTO 4500
320 REM ===== LPT1&2 SELECT ROUTINE ==========
330 COLOR 7,0:WW=76:TL=5:LL=13:LC=2:LOCATE TL,LC,0,0,7:PRINT TLC$;STRING$(WW,HL$);TRC$;:FOR I=(TL+1)TO(LL-1):LOCATE I,LC,0:PRINT VL$;:LOCATE I,(LC+WW+1),0:PRINT VL$;:NEXT:LOCATE LL,LC,0:PRINT BLC$;STRING$(WW,HL$);BRC$;:COLOR 7,0:RETURN
340 REM ===== PRINT BOX 1 =====
350 COLOR 7,0:WW=76:TL=1:LL=24:LC=2:LOCATE TL,LC,0:PRINT TLC$;STRING$(WW,HL$);TRC$;:FOR I=(TL+1)TO(LL-1):LOCATE I,LC,0:PRINT VL$;:LOCATE I,(LC+WW+1),0:PRINT VL$;:NEXT:LOCATE LL,LC,0:PRINT BLC$;STRING$(WW,HL$);BRC$;:COLOR 7,0:RETURN
360 REM ===== PRINT BOX 2 =====
370 WW=69:TL=18:LL=23:LC=6:LOCATE TL,LC,0:PRINT TLC$;STRING$(WW,HL$);TRC$;:FOR I=(TL+1)TO(LL-1):LOCATE I,LC,0:PRINT VL$;:LOCATE I,(LC+WW+1),0:PRINT VL$;:NEXT:LOCATE LL,LC,0:PRINT BLC$;STRING$(WW,HL$);BRC$;:RETURN
380 REM ===== PRINT BOX 3 =====
390 WW=23:TL=20:LL=22:LC=50:LOCATE TL,LC,0:PRINT TLC$;STRING$(WW,HL$);TRC$;:FOR I=(TL+1)TO(LL-1):LOCATE I,LC,0:PRINT VL$;:LOCATE I,(LC+WW+1),0:PRINT VL$;:NEXT:LOCATE LL,LC,0:PRINT BLC$;STRING$(WW,HL$);BRC$:RETURN
500 REM ===== INITIALIZATION ROUTINE =====
510 TLC$=CHR$(201):TRC$=CHR$(187):HL$=CHR$(205):BLC$=CHR$(200):BRC$=CHR$(188):VL$=CHR$(186):PR$="\ \ \ \
520 M1ST$="A ??"+CHR$(16)+" Add Records C ??"+CHR$(16)+" Choose Printer D ??"+CHR$(16)+" Disk Directories":
522 M2ND$="E ??"+CHR$(16)+" Edit Records L ??"+CHR$(16)+" Load Disk File P ??"+CHR$(16)+" Print Label Menu":
524 M3RD$="Q ??"+CHR$(16)+" Quit Program R ??"+CHR$(16)+" Review Records S ??"+CHR$(16)+" Save (Disk File)":
700 REM ===== ZIPCLEAR INPUT ROUTINES =====
710 DIM A(22):FOR I=0 TO 21:READ A(I):NEXT:DATA&h8B55:DATA&hB8EC:DATA&H0600:DATA&H07B7:DATA&H768B:DATA&H8A0C:DATA&H8B2C:DATA&HA76:DATA&HC8A:DATA&H768B:DATA&H8A08:DATA&H8B34:DATA&H676:DATA&H148A:DATA&HCDFE:DATA&HC9FE:DATA&HCEFE:DATA&HCAFE:DATA&H10CD
720 DATA&HCA5D:DATA&H8:DATA&H0:RETURN
730 REM ===== CLEAR LPT1&2 SELECT BOX =====
740 REM ===== R1%=UP.LEFT.ROW% :C1%=UP.LEFT COL% =====
750 REM ===== R2%=LOW.LEFT.ROW%:C2%=RIGHT.COL% =====
760 REM ===== CLEAR LPT1&2 SELECT BOX =====
770 R1=6:C1=3:R2=12:C2=76:DEF SEG:SUBRT=VARPTR(A(0)):CALL SUBRT(R1,C1,R2,C2):RETURN
780 REM ===== CLEAR TOP BOX FORM =====
790 R1=2:C1=3:R2=17:C2=78:DEF SEG:SUBRT=VARPTR(A(0)):CALL SUBRT(R1,C1,R2,C2):RETURN
800 REM ===== CLEAR UPPER 1/2 SCREEN FOR DIRECTORY =====
810 R1=1:C1=1:R2=17:C2=80:DEF SEG:SUBRT=VARPTR(A(0)):CALL SUBRT(R1,C1,R2,C2):LOCATE 18,2:PRINT"?";STRING$(76,"?");"?";:RETURN
820 REM ===== CLEAR BOTTOM BOX FORM =====
830 R1=19:C1=3:R2=23:C2=49:DEF SEG:SUBRT=VARPTR(A(0)):CALL SUBRT(R1,C1,R2,C2):RETURN
840 R1=19:C1=3:R2=23:C2=78:DEF SEG:SUBRT=VARPTR(A(0)):CALL SUBRT(R1,C1,R2,C2):RETURN
850 LOCATE 18,2,0:PRINT"?";STRING$(76,"?");"?";:RETURN
860 REM ===== QUERY CLEAR AND RETURN ROUTINE =====
870 GOSUB 11000:GOSUB 790:GOSUB 340:GOSUB 16000:ON MS GOTO 10010,170,15100,5210,4010,6010,7050,4520,3010
880 REM ===== FULL BOX FORM =====
890 R1=2:C1=3:R2=18:C2=78:DEF SEG:SUBRT=VARPTR(A(0)):CALL SUBRT(R1,C1,R2,C2):RETURN
900 REM ===== INSERT AND BOTTOM BOXES =====
910 LOCATE 21,52,0:PRINT SPC(22);:COLOR 7,0:RETURN
920 LOCATE 21,10,0:PRINT SPC(39);:COLOR 7,0:RETURN
930 REM ===== "SELECT" SUBROUTINE =====
940 LOCATE 21,51,0:PRINT SPC(21);:COLOR 7,0:LOCATE 21,76:COLOR 7,0:LOCATE 21,53:PRINT"SELECT ";:COLOR 7,0:RETURN
950 LOCATE 21,52,0:PRINT SPC(21);:COLOR 7,0:LOCATE 21,76:RETURN
1000 REM ===== END Of FORM GENERATION GO TO FORM INPUT TEXT =====
1010 IF INKEY$><""GOTO 1010
1020 IN$=INKEY$:IF IN$=""THEN 1020
1030 IF ASC(IN$)<49 OR ASC(IN$)>50 THEN SOUND 400,4:GOTO 1020
1040 RETURN
1050 IF INKEY$><""GOTO 1050
1060 IN$=INKEY$:IF IN$=""THEN 1060
1070 IF ASC(IN$)<49 OR ASC(IN$)>51 THEN SOUND 400,4:GOTO 1060
1080 RETURN
1090 IF INKEY$><""GOTO 1090
1100 IN$=INKEY$:IF IN$=""THEN 1100
1110 IF ASC(IN$)<49 OR ASC(IN$)>52 THEN SOUND 400,4:GOTO 1100
1120 RETURN
1130 IF INKEY$><""GOTO 1130
1140 IN$=INKEY$:IF IN$=""THEN 1140
1150 IF ASC(IN$)<49 OR ASC(IN$)>53 THEN SOUND 400,4:GOTO 1140
1160 RETURN
1170 IF INKEY$><""GOTO 1170
1180 IN$=INKEY$:IF IN$=""THEN 1180
1190 IF ASC(IN$)<49 OR ASC(IN$)>54 THEN SOUND 400,4:GOTO 1180
1200 RETURN
1210 IF INKEY$><""GOTO 1210
1220 IN$=INKEY$:IF IN$=""THEN 1220
1230 IF ASC(IN$)<49 OR ASC(IN$)>56 THEN SOUND 400,4:GOTO 1220
1240 RETURN
1250 IF INKEY$><""GOTO 1250
1260 IN$=INKEY$:IF IN$=""THEN 1260
1270 IF ASC(IN$)<49 OR VAL(IN$)>200 THEN SOUND 400,4:GOTO 1260
1280 RETURN
1290 IN$=INKEY$:IF IN$=""THEN 1290
1300 YN=0:IF(IN$="Y"OR IN$="y")THEN YN=1:RETURN
1310 IF(IN$="N"OR IN$="n")THEN YN=2:RETURN
1320 SOUND 400,4:GOTO 1290
1330 IF INKEY$><""GOTO 1330
1340 IN$=INKEY$:IF IN$=""THEN 1340
1350 IF IN$<>CHR$(13)THEN SOUND 400,4:GOTO 1340
1360 RETURN
1370 IN$=INKEY$:IF IN$=""THEN 1370
1380 IF(IN$=CHR$(65)OR IN$=CHR$(97))THEN PD=1:RETURN
1390 IF(IN$=CHR$(66)OR IN$=CHR$(98))THEN PD=2:RETURN
1400 IF(IN$=CHR$(67)OR IN$=CHR$(99))THEN PD=3:RETURN
1410 IF(IN$=CHR$(68)OR IN$=CHR$(100))THEN PD=4:RETURN
1420 SOUND 400,4:GOTO 1370
2000 REM ===== INPUT ROUTINE FOR LETTER RESPONSES =====
2010 FIN$="":IF FINLEN=0 THEN FINLEN=255
2020 IF INKEY$><""THEN 2020
2030 INPTR$=INKEY$:IF INPTR$=""THEN 2030
2040 IF INPTR$=CHR$(13)THEN RETURN
2050 IF INPTR$<>CHR$(8)THEN 2080
2060 IF FIN$=""THEN SOUND 600,4:GOTO 2030
2070 PRINT CHR$(29);"?";CHR$(29);:FIN$=LEFT$((FIN$),LEN(FIN$)-1):GOTO 2030
2080 IF LEN(FIN$)=FINLEN THEN SOUND 600,4:GOTO 2030
2090 IF ASC(INPTR$)<31 OR ASC(INPTR$)>125 THEN SOUND 400,4:GOTO 2030
2100 PRINT INPTR$;:FIN$=FIN$+INPTR$:GOTO 2030
2110 END
2500 REM ===== INITIAL FILE OR SINGLE LABEL INPUT PROGRAM =====
2510 GOSUB 780:GOSUB 820:COLOR 7,0:LOCATE 21,30,0:PRINT"Make DATA Entries ";:LOCATE 17,20:PRINT"Do not use QUOTATION MARKS when entering data!";:COLOR 7,0:GOSUB 5170:P!=200:FOR I!=1 TO 200:COLOR 6,0:GOSUB 5180:COLOR 7,0:COLOR 7,0:GOSUB 910
2520 LOCATE 21,52,0:PRINT"Record #:";:LOCATE 21,64,0:PRINT I!;:LOCATE 4,30,1,0,7:FINLEN=41:GOSUB 2000:A$(I!)=FIN$:COLOR 7,0:LOCATE 4,30,0:PRINT A$(I!):IF(A$(I!)="END"OR A$(I!)="end")THEN P!=I!
2530 IF(A$(I!)="END"OR A$(I!)="end")THEN 2600
2540 LOCATE 6,30,1:FINLEN=41:GOSUB 2000:B$(I!)=FIN$:COLOR 7,0:LOCATE 6,30,0:PRINT B$(I!);:LOCATE 8,30,1:FINLEN=41:GOSUB 2000:C$(I!)=FIN$:COLOR 7,0:LOCATE 8,30,0:PRINT C$(I!);:LOCATE 10,30,1:FINLEN=41:GOSUB 2000:D$(I!)=FIN$:COLOR 7,0:LOCATE 10,30,0
2550 PRINT D$(I!);:LOCATE 12,30,1:FINLEN=41:GOSUB 2000:E$(I!)=FIN$:COLOR 7,0:LOCATE 12,30,0:PRINT E$(I!);:LOCATE 14,30,1:FINLEN=41:GOSUB 2000:F$(I!)=FIN$:COLOR 7,0:LOCATE 14,30,0:PRINT F$(I!);
2560 GOSUB 820:LOCATE 21,20,0:COLOR 7,0:PRINT"Is this correct ";:COLOR 7,0:GOSUB 1290:IF YN=1 THEN 2590
2570 IF YN=2 THEN 2580
2580 GOSUB 820:GOSUB 910:GOSUB 920:LOCATE 21,18:COLOR 7,0:PRINT"Re-enter what line? ";:COLOR 7,0:LOCATE 21,55:PRINT" Line # ";:GOSUB 1170:LOCATE 21,64:PRINT VAL(IN$);:ON VAL(IN$)GOTO 5020,5030,5040,5050,5060,5070
2590 GOSUB 820:LOCATE 21,18:COLOR 7,0:PRINT"ENTER ";:COLOR 7:PRINT CHR$(34)"END"CHR$(34);:COLOR 7:PRINT" To CLOSE entries ";:NEXT:NEXT:LOCATE 21,18:COLOR 7,0:PRINT SPC(30):;PRINT"To Store on DISK 2";:COLOR 7,0
2600 GOSUB 820:COLOR 7,0:LOCATE 21,20:PRINT"SAVE to DISK ";:COLOR 7,0:GOSUB 1290:IF YN=1 THEN 3000
2610 IF YN=2 THEN 4500
3000 REM ===== DATA SAVE ROUTINE TO DISK =====
3010 GOSUB 840:GOSUB 390:COLOR 7,0:LOCATE 21,27,0:PRINT"What is FILE name? ";:GOSUB 950:FINLEN=14:LOCATE 21,52:COLOR 7,0:PRINT"DRIVE? ?:????????.???";:LOCATE 21,59,0:COLOR 7,0:GOSUB 2000:FILESPEC$=FIN$:COLOR 7,0:GOSUB 920:OPEN "O",1,FILESPEC$
3020 WRITE#1,P!:FOR I!=1 TO P!:WRITE#1,A$(I!),B$(I!),C$(I!),D$(I!),E$(I!),F$(I!):IF(A$(I!)="END"OR A$(I!)="end")THEN P!=I!
3030 IF(A$(I!)="END"OR A$(I!)="end")THEN 3050
3040 NEXT
3050 CLOSE:GOSUB 11000:GOTO 4500
4000 REM ===== DISK DATA READ ROUTINE =====
4010 GOSUB 840:GOSUB 390:LOCATE 21,27:COLOR 7,0:PRINT"What is FILE name? ";:GOSUB 950:FINLEN=14:LOCATE 21,52:COLOR 7,0:PRINT"DRIVE? ?:????????.???";:LOCATE 21,59,0:COLOR 7,0:GOSUB 2000:FILESPEC$=FIN$:COLOR 7,0:GOSUB 920:OPEN "I",1,FILESPEC$:INPUT#1,P!
4020 FOR I!=1 TO P!:INPUT#1,A$(I!),B$(I!),C$(I!),D$(I!),E$(I!),F$(I!):IF(A$(I!)="END"OR A$(I!)="end")THEN P!=I!
4030 IF(A$(I!)="END"OR A$(I!)="END")THEN 4050
4040 NEXT
4050 CLOSE:GOSUB 11000:GOSUB 780
4500 REM ===== CHANCE TO REVIEW NAMES =====
4510 GOTO 860
4520 REM ===== STARTING OUTPUT LOOP =====
4530 GOSUB 780:GOSUB 840:GOSUB 850:K!=1:NR=13
4540 LOCATE 4,7:FOR I=K!TO P!:GOTO 4550
4550 LOCATE,7:PRINT I;" ";:PRINT USING PR$;A$(I);B$(I):IF I=NR THEN 4570ELSE 4560
4560 NEXT
4570 GOSUB 840:LOCATE 21,30:COLOR 7,0:PRINT" ENTER to Continue!";:COLOR 7,0:GOSUB 1330:IF I=P!THEN 4590
4580 IF I a Number";:GOSUB 940:GOSUB 11000:GOSUB 1090:ON VAL(IN$)GOTO 4000,2500,2500,860
5000 REM ===== INDIVIDUAL LINE CORRECTION ROUTINE =====
5010 CLEAR 570:FOR I=4 TO 14 STEP 2:LOCATE I,28:PRINT" ";STRING$(41,254):NEXT:GOTO 5080
5020 COLOR 7,0:LOCATE 4,28:PRINT" ";STRING$(41,254):GOTO 5080
5030 COLOR 7,0:LOCATE 6,28:PRINT" ";STRING$(41,254):GOTO 5110
5040 COLOR 7,0:LOCATE 8,28:PRINT" ";STRING$(41,254):GOTO 5120
5050 COLOR 7,0:LOCATE 10,28:PRINT" ";STRING$(41,254):GOTO 5130
5060 COLOR 7,0:LOCATE 12,28:PRINT" ";STRING$(41,254):GOTO 5140
5070 COLOR 7,0:LOCATE 14,28:PRINT" ";STRING$(41,254):GOTO 5150
5080 LOCATE 4,30:COLOR 7,0:FINLEN=41:GOSUB 2000:A$(I!)=FIN$:LOCATE 4,30,0:PRINT A$(I!):COLOR 7,0:GOTO 2560
5090 IF(A$(I!)="END"OR A$(I!)="end")THEN P!=I!
5100 IF(A$(I!)="END"OR A$(I!)="end")THEN 2600
5110 LOCATE 6,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:B$(I!)=FIN$:LOCATE 6,30,0:PRINT B$(I!):COLOR 7,0:GOTO 2560
5120 LOCATE 8,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:C$(I!)=FIN$:LOCATE 8,30,0:PRINT C$(I!):COLOR 7,0:GOTO 2560
5130 LOCATE 10,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:D$(I!)=FIN$:LOCATE 10,30,0:PRINT D$(I!):COLOR 7,0:GOTO 2560
5140 LOCATE 12,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:E$(I!)=FIN$:LOCATE 12,30,0:PRINT E$(I!):COLOR 7,0:GOTO 2560
5150 LOCATE 14,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:F$(I!)=FIN$:LOCATE 14,30,0:PRINT F$(I!):COLOR 7,0:GOTO 2560
5160 REM ===== LINE COLOR LINE ROUTINE =====
5170 FOR Q=5 TO 15 STEP 2:LOCATE Q,15:PRINT STRING$(7,205):NEXT:LOCATE 4,15:PRINT"LINE 1: ":LOCATE 6,15:PRINT"LINE 2: ":LOCATE 8,15:PRINT"LINE 3: ":LOCATE 10,15:PRINT"LINE 4: ":LOCATE 12,15:PRINT"LINE 5: ":LOCATE 14,15:PRINT"LINE 6: ":RETURN
5180 REM ===== COLORS IN INPUT LINES =====
5190 LOCATE 2,28:COLOR 7:PRINT" "STRING$(15,32)CHR$(3):COLOR 7,0:LOCATE 2,22:PRINT"MAX for EXPANDED PRINT":LOCATE 2,47:PRINT"with 4 ? inch labels":FOR Q=4 TO 14 STEP 2:COLOR 7,0:LOCATE Q,30:PRINT STRING$(41,254);:COLOR 7,0:NEXT:RETURN
5200 REM ===== EDIT INDIVIDUAL RECORDS ROUTINE =====
5210 Z=0
5220 GOSUB 840:GOSUB 390:COLOR 7,0:LOCATE 20,18:PRINT"What RECORD NUMBER To edit ";:COLOR 7,0:LOCATE 22,18:PRINT"Enter RECORD NUMBER ";:GOSUB 940:GOSUB 1250:Z!=VAL(IN$):GOSUB 11000:IF I=0 THEN 11040:IF(Z!<1 OR Z!>P!)THEN 5220
5230 REM ===== DISPLAYING RECORDS TO BE EDITED =====
5240 ON Z!GOSUB 780:GOSUB 5160:GOSUB 5180:GOSUB 910:COLOR 7,0:LOCATE 21,53,0:PRINT"Record #: ":LOCATE 21,65:PRINT Z!:LOCATE 4,30:PRINT A$(Z!):IF A$(1)="END"THEN P!=Z!:COLOR 7,0
5250 LOCATE 6,30:PRINT B$(Z!):LOCATE 8,30:PRINT C$(Z!):LOCATE 10,30:PRINT D$(Z!):LOCATE 12,30:PRINT E$(Z!):LOCATE 14,30:PRINT F$(Z!)
5260 GOSUB 820:COLOR 7,0:GOSUB 920:LOCATE 21,20:PRINT"Is this correct ";:GOSUB 1290:IF YN=1 THEN 5450
5270 IF YN=2 THEN 5280
5280 GOSUB 820:GOSUB 910:GOSUB 920:LOCATE 21,18:COLOR 7,0:PRINT"Re-enter what LINE? ";:COLOR 7,0:LOCATE 21,55:PRINT" Line # ";:GOSUB 1170:LOCATE 21,64:PRINT VAL(IN$);:ON VAL(IN$)GOTO 5300,5310,5320,5330,5340,5350
5290 REM ===== INDIVIDUAL LINE ROUTINE FOR RECALLED RECORDS =====
5300 COLOR 7,0:LOCATE 4,30:PRINT STRING$(41,254):GOTO 5370
5310 COLOR 7,0:LOCATE 6,30:PRINT STRING$(41,254):GOTO 5400
5320 COLOR 7,0:LOCATE 8,30:PRINT STRING$(41,254):GOTO 5410
5330 COLOR 7,0:LOCATE 10,30:PRINT STRING$(41,254):GOTO 5420
5340 COLOR 7,0:LOCATE 12,30:PRINT STRING$(41,254):GOTO 5430
5350 COLOR 7,0:LOCATE 14,30:PRINT STRING$(41,254):GOTO 5440
5360 FOR Q=4 TO 14 STEP 2:LOCATE Q,30,1,0,7:PRINT STRING$(41,254):NEXT
5370 LOCATE 4,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:A$(Z!)=FIN$:LOCATE 4,30,0:PRINT A$(Z!):COLOR 7,0:GOTO 5260
5380 IF A$(Z!)="END"OR A$(Z!)="end")THEN P!=Z!
5390 IF A$(Z!)="END"OR A$(Z!)="end")THEN 5460
5400 LOCATE 6,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:B$(Z!)=FIN$:LOCATE 6,30,0:PRINT B$(Z!):COLOR 7,0:GOTO 5260
5410 LOCATE 8,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:C$(Z!)=FIN$:LOCATE 8,30,0:PRINT C$(Z!):COLOR 7,0:GOSUB 5260
5420 LOCATE 10,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:D$(Z!)=FIN$:LOCATE 10,30,0:PRINT D$(Z!):COLOR 7,0:GOTO 5260
5430 LOCATE 12,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:E$(Z!)=FIN$:LOCATE 12,30,0:PRINT E$(Z!):COLOR 7,0:GOTO 5260
5440 LOCATE 14,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:F$(Z!)=FIN$:LOCATE 14,30,0:PRINT F$(Z!):COLOR 7,0:GOSUB 5260
5450 REM ===== LOOK AT ANOTHER RECORD AFTER CORRECTION =====
5460 GOSUB 830:LOCATE 21,18:COLOR 7,0:PRINT"Edit another RECORD ";:GOSUB 1290:ON YN GOTO 5200,860
6000 REM ===== LABEL PRINT ROUTINES =====
6010 GOSUB 11000:GOSUB 780:LOCATE 3,32:COLOR 7,0:PRINT"LABEL/FILE PROGRAM":COLOR 7,0:LOCATE 4,32:COLOR 7,0:PRINT"??????????????????":COLOR 7,0:LOCATE 5,35:COLOR 7,0:PRINT"C H O I C E S":COLOR 7,0:LOCATE 6,35:COLOR 7,0:PRINT"?????????????":COLOR 7,0
6020 LOCATE 8,25:COLOR 7,0:PRINT"1ST Line EXPANDED Print.......1":COLOR 7,0:LOCATE 9,25:COLOR 7,0:PRINT"All lines EXPANDED Print......2":COLOR 7,0:LOCATE 10,25:COLOR 7,0:PRINT"All lines ITALICS.. ..........3":COLOR 7,0:LOCATE 11,25:COLOR 7,0
6030 PRINT"All lines 10 PITCH............4":COLOR 7,0:LOCATE 12,25:COLOR 7,0:PRINT"All lines COMPRESSED..........5":COLOR 7,0:LOCATE 13,25:COLOR 7,0:PRINT"Return to CONTROL Menu........6":COLOR 7,0:LOCATE 14,25:COLOR 7,0
6040 PRINT"Disk Directories..............7":LOCATE 15,25:PRINT"QUIT the program..............8";:COLOR 7,0:GOSUB 840:GOSUB 390:LOCATE 21,20:COLOR 7,0:PRINT"Select & a NUMBER ";:GOSUB 940:GOSUB 11000:GOSUB 1210
6050 ON VAL(IN$)GOTO 6070,6090,6110,6130,6150,860,15000,7040
6060 GOSUB 780:GOTO 4500
6070 REM ===== 1ST LINE EXPANDED =====
6080 GOSUB 780:GOSUB 6170:GOTO 6240
6090 REM ===== ALL LINES EXPANDED =====
6100 GOSUB 780:GOSUB 6170:GOTO 6280
6110 REM ===== ALL LINES ITALICS =====
6120 GOSUB 780:GOSUB 6170:GOTO 6320
6130 REM ===== 10 PITCH (PICA) =====
6140 GOSUB 780:GOSUB 6170:GOTO 6360
6150 REM ===== ALL LINES CONDENSED =====
6160 GOSUB 780:GOSUB 6170:GOTO 6400
6170 LOCATE 6,35:COLOR 7,0:PRINT"C H O I C E S":COLOR 7,0:LOCATE 7,35:COLOR 7,0:PRINT"?????????????":COLOR 7,0:LOCATE 9,25:COLOR 7,0:PRINT"Check Printer ON and SELECTED.":COLOR 7,0:LOCATE 10,25:COLOR 7,0:PRINT"CHECK LABELS LOADED AND ALIGNED":COLOR 7,0
6180 LOCATE 11,25:COLOR 7,0:PRINT"Select record RANGE to print":COLOR 7,0:LOCATE 13,25:COLOR 7,0:PRINT"I.E. FIRST Record Number to Print":LOCATE 14,31:PRINT"Then Last Record Number":COLOR 7,0:GOSUB 920:LOCATE 21,20:COLOR 7,0
6190 PRINT"Select Record Print Range ":LB!=0:LE!=0:GOSUB 910:LOCATE 21,52:COLOR 7,0:PRINT"First # ";:COLOR 7,0:LOCATE 21,60:GOSUB 1250:LB!=VAL(IN$):LOCATE 21,62:PRINT LB!;:FOR I=1 TO 2000:NEXT:GOSUB 910:LOCATE 21,52,0:COLOR 7,0:PRINT"Last #":COLOR 7,0
6200 GOSUB 11000:GOSUB 1250:LE!=VAL(IN$):LOCATE 21,62:PRINT LE!;:FOR I=1 TO 1000:NEXT:GOSUB 780:LOCATE 6,35:COLOR 7,0:PRINT"PRINT LABELS":COLOR 7,0:LOCATE 7,35:COLOR 7,0:PRINT"?????????????":COLOR 7,0:LOCATE 12,30:COLOR 7,0
6210 PRINT"How many of each labeL. ":COLOR 7,0:LOCATE 21,16:COLOR 7,0:PRINT"Indicate QUANTITY of each wanted";
6220 REM ===== NUMBER OF EACH LABEL =====
6230 GOSUB 910:LOCATE 21,52:COLOR 7,0:PRINT"# of each";:COLOR 7,0:NL!=0:GOSUB 1210:NL!=VAL(IN$):LOCATE 21,62:PRINT NL!;:FOR I=1 TO 2000:NEXT:GOSUB 11000:RETURN
6240 REM ===== 1ST LINE ONLY EXPANDED/EMPHASIZED PRINT =====
6250 LPRINT CHR$(27)+"@";:LPRINT CHR$(27)+"E";:FOR M!=1 TO NL!:FOR N!=LB!TO LE!:LPRINT CHR$(14);:LPRINT A$(N!):LPRINT CHR$(20);:LPRINT B$(N!):LPRINT C$(N!):LPRINT D$(N!):LPRINT E$(N!):LPRINT" ":NEXT:NEXT:LPRINT CHR$(27)+"@";:GOSUB 780:GOSUB 820
6260 LOCATE 20,13:COLOR 7,0:PRINT"To REPRINT This label/s 1";:LOCATE 21,13:COLOR 7,0:PRINT"To print DIFFERENT label/s 2";:LOCATE 22,13:COLOR 7,0:PRINT"To CONTROL Menu 3";:GOSUB 940:GOSUB 11000:GOSUB 1050
6270 NL!=1:ON VAL(IN$)GOTO 6250,6000,860
6280 REM ===== ALL LINES EXPANDED/EMPHASIZED PRINT =====
6290 LPRINT CHR$(27)+"@";:LPRINT CHR$(27)+"E";:FOR N!=LB!TO LE!:FOR M!=1 TO NL!:LPRINT CHR$(14);A$(N!):LPRINT CHR$(14);B$(N!):LPRINT CHR$(14);C$(N!):LPRINT CHR$(14);D$(N!):LPRINT CHR$(14);E$(N!):LPRINT" ":NEXT:NEXT:LPRINT CHR$(27)+"@";:GOSUB 780
6300 GOSUB 820:LOCATE 20,13:COLOR 7,0:PRINT"To REPRINT this label/s 1";:LOCATE 21,13:COLOR 7,0:PRINT"To print DIFFERENT label/s 2";:LOCATE 22,13:COLOR 7,0:PRINT"To CONTROL Menu 3";:GOSUB 940:GOSUB 11000:GOSUB 1050
6310 NL!=1:ON VAL(IN$)GOTO 6290,6000,860
6320 REM ===== ALL LINES ITACICS/EMPHASIZED =====
6330 LPRINT CHR$(27)+"@";:LPRINT CHR$(27);CHR$(69);:LPRINT CHR$(27)+CHR$(52);:FOR M!=1 TO NL!:FOR N!=LB!TO LE!:LPRINT A$(N!):LPRINT B$(N!):LPRINT C$(N!):LPRINT D$(N!):LPRINT E$(N!):LPRINT" ":NEXT:NEXT:LPRINT CHR$(27)+"@";:GOSUB 780:GOSUB 820
6340 LOCATE 20,13:COLOR 7,0:PRINT"To REPRINT this label/s 1";:LOCATE 21,13:COLOR 7,0:PRINT"To print DIFFERENT label/s 2";:LOCATE 22,13:COLOR 7,0:PRINT"To CONTROL Menu 3";:GOSUB 940:GOSUB 11000:GOSUB 1050
6350 NL!=1:ON VAL(IN$)GOTO 6330,6000,860
6360 REM ===== 10 PITCH (PICA) PRINT =====
6370 LPRINT CHR$(27);CHR$(64);:LPRINT CHR$(27);CHR$(69);:LPRINT CHR$(27)+CHR$(66)+CHR$(1);:FOR M!=1 TO NL!:FOR N!=LB!TO LE!:LPRINT A$(N!):LPRINT B$(N!):LPRINT C$(N!):LPRINT D$(N!):LPRINT E$(N!):LPRINT" ":NEXT:NEXT:LPRINT CHR$(27)+"@";:GOSUB 780
6380 GOSUB 820:LOCATE 20,13:COLOR 7,0:PRINT"To REPRINT this label/s 1";:LOCATE 21,13:COLOR 7,0:PRINT"To print DIFFERENT label/s 2";:LOCATE 22,13:COLOR 7,0:PRINT"To CONTROL Menu 3";:GOSUB 940:GOSUB 11000:GOSUB 1050
6390 NL!=1:ON VAL(IN$)GOTO 6370,6000,860
6400 REM ===== ALL LINES CONDENSED =====
6410 LPRINT CHR$(27);CHR$(64);:FOR M!=1 TO NL!:FOR N!=LB!TO LE!:LPRINT CHR$(15);A$(N!):LPRINT B$(N!):LPRINT C$(N!):LPRINT D$(N!):LPRINT E$(N!):LPRINT CHR$(27)+"@":NEXT:NEXT:LPRINT CHR$(27)+"@";:GOSUB 780:GOSUB 820:LOCATE 20,13:COLOR 7,0
6420 PRINT"To REPRINT this label/s 1";:LOCATE 21,13:COLOR 7,0:PRINT"To print DIFFERENT label/s 2";:LOCATE 22,13:COLOR 7,0:PRINT"To CONTROL Menu 3";:GOSUB 940:GOSUB 11000:GOSUB 1050
6430 NL!=1:ON VAL(IN$)GOTO 6410,6000,860
7000 REM ===== PRINT OUT FIRST LINE OF EACH RECORD =====
7010 LPRINT TAB(30)"FIRST LINES OF ";FILESPEC$:LPRINT:LPRINT:PN!=0:PN!=5:CLS:PRINT:PRINT TAB(25)"FIRST LINES OF ";FILESPEC$:PRINT:PRINT:FOR I!=1 TO P!:PRINT TAB(10);I!;A$(I!):LPRINT TAB(10);I!;A$(I!):PN!=PN!+1
7020 IF PN!=55 THEN LPRINT CHR$(140):LPRINT STRING$(10,5):PN!=5
7030 NEXT:GOSUB 11000:END
7040 REM ===== FINAL SCREEN DISPLAY =====
7050 GOSUB 780:GOSUB 840:GOSUB 11000:LOCATE 8,23:COLOR 7,0:PRINT"Print first LINE of records 1";:LOCATE 9,33:PRINT"";:LOCATE 11,23:PRINT"Return to CONTROL Menu 2";
7060 LOCATE 13,23:PRINT"Thanks! Bye! To QUIT - 3";
7070 GOSUB 1060:ON VAL(IN$)GOTO 7000,860,7100
7100 CLS:END
9000 REM ===== ERROR TRAP ROUTINE =====
9010 GOSUB 920:KEY ON:KEY OFF:LOCATE 25,28,0:COLOR 7,0:PRINT" ERROR ";:COLOR 7,0:PRINT" #";ERR;" IN LINE #";ERL;:FOR T!=1 TO 1000:NEXT:IF ERR=53 THEN LOCATE 20,10:PRINT SPC(30),ELSE 9030
9020 LOCATE 20,10:PRINT"File not found ";:PRINT" ** Load CORRECT Disk";
9030 IF ERR=54 THEN LOCATE 20,10:PRINT SPC(30),ELSE 9050
9040 LOCATE 20,10:PRINT"Bad file mode ";:PRINT" ** Correct File Mode
9050 IF ERR=55 THEN LOCATE 20,10:PRINT SPC(30),ELSE 9070
9060 LOCATE 20,10:PRINT"File already OPEN ";:PRINT" ** CLOSE and REOPEN";
9070 IF ERR=61 THEN LOCATE 20,10:PRINT SPC(30),ELSE 9090
9080 LOCATE 20,10:PRINT"Disk FULL ";:PRINT" ** Install New Disk";
9090 IF ERR=70 THEN LOCATE 20,10:PRINT SPC(30),ELSE 9110
9100 LOCATE 20,10:PRINT"Disk WRITE PROTECT ";:PRINT" ** Remove W/P Tab";
9110 IF ERR=71 THEN LOCATE 20,10:PRINT SPC(30),ELSE 9130
9120 LOCATE 20,10:PRINT"Disk NOT READY ";:PRINT" ** CLOSE Drive Door";
9130 IF ERR=24 THEN LOCATE 20,10:PRINT SPC(30),ELSE 9150
9140 LOCATE 20,10:PRINT"Printer OFF-LINE ";:PRINT" ** Set ON-LINE Mode";
9150 IF ERR=25 THEN LOCATE 20,10:PRINT SPC(30),ELSE 9170
9160 LOCATE 20,10:PRINT"Printer not ON ";:PRINT" ** Check Printer ON";
9170 IF ERR=27 THEN LOCATE 20,10:PRINT SPC(30),ELSE 9200
9180 LOCATE 20,10:PRINT"OUT OF PAPER! ";:PRINT" ** Check Paper Path";
9190 LOCATE 22,20:GOSUB 910:GOSUB 920:GOSUB 380:RETURN
9200 GOSUB 9190:LOCATE 22,10,0:PRINT"Correct SYSTEM ERROR - ENTER";:LOCATE 22,10,0:GOSUB 1330:KEY ON:KEY OFF:COLOR 7,0:RESUME 860
10000 REM ===== ADD TO LOADED FILE =====
10010 GOSUB 780:GOSUB 840:GOSUB 380:GOSUB 5160:GOSUB 5180:NP!=0:NP!=P!:P!=200:GOSUB 920:COLOR 7,0:LOCATE 21,30:PRINT"MAKE DATA ENTRIES ";:LOCATE 17,26:PRINT"Do not use QUOTATION MARKS when entering data!";:COLOR 7,0:IF NP!=0 THEN NP!=1:COLOR 6,0
10020 FOR I!=NP!TO P!:GOSUB 5180:COLOR 7,0:GOSUB 910:COLOR 7,0:LOCATE 21,52,0:PRINT"RECORD #: ";:LOCATE 21,60,0:PRINT I!;:LOCATE 4,30,1:FINLEN=41:GOSUB 2000:A$(I!)=FIN$:LOCATE 4,30,0:PRINT A$(I!):IF(A$(I!)="END"OR A$(I!)="end")THEN P!=I!
10030 IF(A$(I!)="END"OR A$(I!)="end")THEN 2600
10040 LOCATE 6,30,1:FINLEN=41:GOSUB 2000:B$(I!)=FIN$:LOCATE 6,30,0:PRINT B$(I!):LOCATE 8,30,1:FINLEN=41:GOSUB 2000:C$(I!)=FIN$:LOCATE 8,30,0:PRINT C$(I!):LOCATE 10,30,1:FINLEN=41:GOSUB 2000:D$(I!)=FIN$:LOCATE 10,30,0:PRINT D$(I!):LOCATE 12,30,1
10050 FINLEN=41:GOSUB 2000:E$(I!)=FIN$:LOCATE 12,30,0:PRINT E$(I!):LOCATE 14,30,1:FINLEN=41:GOSUB 2000:F$(I!)=FIN$:LOCATE 14,30,0:PRINT F$(I!)
10060 GOSUB 820:GOSUB 920:LOCATE 21,20:COLOR 7,0:PRINT"Is this correct ";:COLOR 7,0:GOSUB 1290:IF YN=1 THEN 10090
10070 IF YN=2 THEN 10080
10080 GOSUB 820:GOSUB 910:GOSUB 920:LOCATE 21,20:COLOR 7,0:PRINT"Re-enter what LINE? ";:COLOR 7,0:LOCATE 21,55:PRINT" Line # ";:GOSUB 1170:LOCATE 21,64:PRINT VAL(IN$);:ON VAL(IN$)GOTO 10130,10140,10150,10160,10170,10180
10090 GOSUB 820:GOSUB 920:LOCATE 21,18:COLOR 7,0:PRINT"ENTER ";:COLOR 7:PRINT CHR$(34)"END"CHR$(34);:COLOR 7:PRINT" To CLOSE Entries ";:NEXT:NEXT RUN
10120 REM ===== ADDED FILES - INDIVIDUAL LINE CORRECTION ROUTINE =====
10130 COLOR 7,0:LOCATE 4,28:PRINT" ";STRING$(41,254):GOTO 10190
10140 COLOR 7,0:LOCATE 6,28:PRINT" ";STRING$(41,254):GOTO 10220
10150 COLOR 7,0:LOCATE 8,28:PRINT" ";STRING$(41,254):GOTO 10230
10160 COLOR 7,0:LOCATE 10,28:PRINT" ";STRING$(41,254):GOTO 10240
10170 COLOR 7,0:LOCATE 12,28:PRINT" ";STRING$(41,254):GOTO 10250
10180 COLOR 7,0:LOCATE 14,28:PRINT" ";STRING$(41,254):GOTO 10260
10190 LOCATE 4,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:A$(I!)=FIN$:LOCATE 4,30,0:PRINT A$(I!):COLOR 7,0:GOTO 10060
10200 IF(A$(I!)="END"OR A$(I!)="end")THEN P!=I!
10210 IF(A$(I!)="END"OR A$(I!)="end")THEN 2600
10220 LOCATE 6,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:B$(I!)=FIN$:LOCATE 6,30,0:PRINT B$(I!):COLOR 7,0:GOTO 10060
10230 LOCATE 8,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:C$(I!)=FIN$:LOCATE 8,30,0:PRINT C$(I!):COLOR 7,0:GOTO 10060
10240 LOCATE 10,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:D$(I!)=FIN$:LOCATE 10,30,0:PRINT D$(I!):COLOR 7,0:GOTO 10060
10250 LOCATE 12,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:E$(I!)=FIN$:LOCATE 12,30,0:PRINT E$(I!):COLOR 7,0:GOTO 10060
10260 LOCATE 14,30,1:COLOR 7,0:FINLEN=41:GOSUB 2000:F$(I!)=FIN$:LOCATE 14,30,0:PRINT F$(I!):COLOR 7,0:GOTO 10060
10270 CLS:END
11000 REM ===== ELAPSED TIME PRINTOUT SUBROUTINE =====
11010 N$=TIME$:DEF FNH(H$)=VAL(LEFT$(H$,2)):DEF FNM(M$)=VAL(MID$(M$,4,2)):DEF FNS(S$)=VAL(RIGHT$(S$,2)):TMH!=(FNH(N$))-FNH(BB$):TMM!=(FNM(N$)-FNM(BB$)):TMS!=(FNS(N$)-FNS(BB$)):KEY ON:KEY OFF:LOCATE 25,3:PRINT"Start Time ";BB$;:LOCATE 25,30
11020 PRINT"End Time ";N$;:LOCATE 25,55:PRINT"Elapsed Time ";TMH!;":";ABS(TMM!);":";ABS(TMS!);:RETURN
11030 END
11040 GOSUB 780:LOCATE 10,30,0:PRINT"Are Records in the File?";:GOTO 860
15000 REM ===== DISK DIRECTORY REVIEW ROUTINE =====
15100 GOSUB 810:GOSUB 840:GOSUB 380:GOSUB 910:LOCATE 21,20,0:PRINT"What Drive (A,B,C,D)";:KEY OFF:GOSUB 940:GOSUB 1370:LOCATE 21,65,0:PRINT IN$;:ON PD GOTO 15200,15300,15400,15500
15200 LOCATE 3,1:FILES"A:*.*":COLOR 0,7:LOCATE 2,32:PRINT" Drive A: ":COLOR 7,0:GOTO 15600
15300 LOCATE 3,1:FILES"B:*.*":COLOR 0,7:LOCATE 2,32:PRINT" Drive B: ":COLOR 7,0:GOTO 15600
15400 LOCATE 3,1:FILES"C:*.*":COLOR 0,7:LOCATE 2,32:PRINT" Drive C: ":COLOR 7,0:GOTO 15600
15500 LOCATE 3,1:FILES"D:*.*":COLOR 0,7:LOCATE 2,32:PRINT" Drive D: ":COLOR 7,0
15600 GOSUB 840:COLOR 7,0:LOCATE 20,24:PRINT"Another Directory? ";:LOCATE 22,24:COLOR 7,0:PRINT"Return to CONTROL Menu? ";:COLOR 7,0
15630 GOSUB 1010:ON VAL(IN$)GOTO 15680,15700
15680 GOTO 15000
15700 GOSUB 810:GOTO 860
16000 REM ===== CONTROL MENU DISPLAY ROUTINE =====
16010 GOSUB 840:GOSUB 850:LOCATE 20,9,0:PRINT M1ST$:LOCATE 21,9:PRINT M2ND$:LOCATE 22,9,0:PRINT M3RD$;:LOCATE 18,25:PRINT" Select and a Letter ";:LOCATE 19,27:PRINT STRING$(27,"~");
16020 IN$=INKEY$:IF IN$=""THEN 16020
16100 IF(IN$="A"OR IN$="a")THEN MS=1:GOSUB 850:RETURN
16110 IF(IN$="C"OR IN$="c")THEN MS=2:GOSUB 850:RETURN
16120 IF(IN$="D"OR IN$="d")THEN MS=3:GOSUB 850:RETURN
16140 IF(IN$="E"OR IN$="e")THEN MS=4:GOSUB 850:RETURN
16160 IF(IN$="L"OR IN$="l")THEN MS=5:GOSUB 850:RETURN
16180 IF(IN$="P"OR IN$="p")THEN MS=6:GOSUB 850:RETURN
16200 IF(IN$="Q"OR IN$="q")THEN MS=7:GOSUB 850:RETURN
16220 IF(IN$="R"OR IN$="r")THEN MS=8:GOSUB 850:RETURN
16240 IF(IN$="S"OR IN$="s")THEN MS=9:GOSUB 850:RETURN
16260 SOUND 100,4:GOTO 16020
16270 END
65000 REM ===== FINAL PROGRAM SAVE ROUTINE =====
65100 SAVE"B:LABELPRO.BAS