10 DIM SG$(2,19),TE$(19):REM SET UP ARRAYS
20 FORI=1TO2:FORJ=1TO19
30 SG$(I,J)="                   "
40 NEXTJ:NEXTI
50 SET$="+----------------------------------------+"
60 AX$="-------------------":ZX$="                  "
70 FM$="A":FC$="B"
80 PRINT"[147][144]CASSETTE SLEEVE MAKER[146]"
90 PRINT"ENTER THE NUMBER OF SIDES"
100 PRINT"YOU WISH TO LABEL (1/2)";
110 INPUTC:IFC<>1ANDC<>2THEN110
120 AT=C
130 PRINT"[147]THE NEXT SCREEN WILL"
140 PRINT"SHOW HALF OF A TAPE LABEL"
150 PRINT"ENTERED LINES MAY NOT[146] CONTAIN:"
160 PRINT"; OR , OR _, OR +, OR ^"
170 PRINT"HIT ANY KEY TO CONTINUE"
180 GETS$:IFS$=""THEN180
190 REM  *MAIN PROGRAM*
200 FORI=1TOC
210 FORJ=1TO19
220 GOSUB700:GOSUB1020
230 GOSUB650
240 PRINT"":FORR=1TOJ
250 IFR=15ORR=17THENPRINT"[145]"
260 PRINT"";SG$(I,R)
270 NEXTR
280 GOSUB910
290 IFJ>15THENPRINT"[145]"
300 GOSUB1170:INPUTC$
310 IFLEFT$(C$,1)=CHR$(94)ANDJ<15THENJ=15:GOTO220
320 SG$(I,J)=C$
330 GOSUB910:SG$(I,J)=LEFT$(SG$(I,J),19)
340 GOSUB1210
350 BB$=SG$(I,J):GOSUB1110:SG$(I,J)=BB$
360 PRINT"":FORIK=1TOJ:GOSUB1150
370 IFIK=JTHENPRINT"[145]"
380 PRINT"";SG$(I,IK):NEXTIK
390 GOSUB1060:IFKS$<>"Y"ANDKS$<>"N"THENPRINT"[145]":GOTO390
400 IFKS$="N"THENSG$(I,J)=ZX$:GOTO220
410 NEXTJ
420 NEXTI
430 REM     ** HARD COPY **
440 PRINT"[147]PRESS ANY KEY FOR PRINTOUT"
450 GETA$:IFA$=""THEN450
460 LB=2:LA=1:IFAT=1THENLA=1:LB=2
470 OPEN 4,4
480 PRINT#4,SET$
490 PRINT#4,"+ SIDE A               SIDE B            +"
500 FORJ=1TO19
510 TE$(J)="+ "+SG$(LA,J)+" "+SG$(LB,J)+"+":NEXTJ
520 FORJ=1TO14:PRINT#4,TE$(J):NEXTJ
530 PRINT#4,SET$
540 PRINT#4,TE$(15):PRINT#4,TE$(16)
550 PRINT#4,SET$
560 FORI=17TO19:PRINT#4,TE$(I):NEXTI
570 PRINT#4,SET$
580 CLOSE4
590 PRINT"[147]WOULD YOU LIKE ANOTHER LABEL (Y/N)";
600 INPUTA$:IFA$<>"Y"ANDA$<>"N"THEN600
610 IFA$="Y"THEN20
620 PRINT"[147]":END
630 REM    *** SUBROUTINES ***
640 REM  ---SUB POINTER----
650 GOSUB910
660 GOSUB1180:IFJ>15THENPRINT"[145]"
670 PRINTTAB(21)"_"
680 RETURN
690 REM  ------SUB SETUP-----
700 PRINT"[147]":IF I=2THEN810
710 FD$=" +"+AX$
720 PRINT" +SIDE ";FM$;"             [146]"
730 FORII=1TO14:PRINT" +":NEXTII
740 PRINTFD$
750 PRINT" +"
760 PRINT" +"
770 PRINTFD$
780 FORII=1TO3:PRINT" +":NEXTII
790 PRINT FD$
800 GOSUB970:RETURN
810 FD$="  "+AX$+"+"
820 PRINT" +SIDE ";FC$;"             [146]+"
830 FORII=1TO14:PRINTTAB(21)"+":NEXTII
840 PRINTFD$
850 PRINTTAB(21)"+"
860 PRINTTAB(21)"+"
870 PRINTFD$
880 FORII=1TO3:PRINTTAB(21)"+":NEXTII
890 PRINTFD$:GOSUB970:RETURN
900 REM  ---- SUB CURSOR ----
910 PRINT""
920 FORD=1TOJ
930 PRINT"[145]"
940 NEXTD:PRINT"[145]":RETURN
950 :
960 REM  ---- SUB 19 CHARACTERS ----
970 PRINT""
980 PRINTTAB(22)"___THIS IS 19"
990 PRINTTAB(25)"CHARACTERS"
1000 PRINTTAB(25)"FOR REFERENCE"
1010 RETURN
1020 PRINT""
1030 PRINT""TAB(23)"INPUT LINE #";J
1040 RETURN
1050 REM  ------SUB CORRECT----
1060 PRINT"":KS$=""
1070 PRINT""TAB(23)"IS THIS ENTRY"
1080 PRINTTAB(23)"CORRECT (Y/N)"
1090 PRINTTAB(29);:INPUTKS$
1100 REM    ------ SUB 19 STRING ------
1110 FR=LEN(BB$):F=19-FR:TR$=RIGHT$(ZX$,F)
1120 BB$=BB$+TR$:RETURN
1130 RETURN
1140 REM  ----SUB SKIP-----
1150 IFIK=15ORIK=17THEN PRINT"[145]"
1160 RETURN
1170 REM  ---SUB INPUT SKIP---
1180 IFJ=15ORJ>=17THEN PRINT"[145]"
1190 RETURN
1200 REM  ----SUB BLANK SPACE----
1210 FK$=LEFT$(SG$(I,J),1)
1220 IFFK$="_"ORFK$="+"THENSG$(I,J)=ZX$
1230 RETURN