1 PRINT"[147]"
2 PRINT"[144]       CASSETTE LABELS BY L. ARNOLD"
5 PRINT"THIS PROGRAM REQUIRES A PRINTER THAT MAY"
10 PRINT"BE MANUALLY SET TO CONDENSED PRINT."
15 FOR QQ=1 TO 5000:NEXT QQ
100 PRINT"[147]"
105 CLR
110 DIM S1$(15):DIM ES$(15)
115 DIM S2$(15)
120 PRINT "[158]SIDE 1[146][159]"
130 INPUT "SINGERS NAME ";A1$
140 INPUT "ALBUM NAME ";AN1$
150 D=1
160 INPUT "SONG TITLE ";S1$(D)
170 IF S1$(D)=""THEN210
172 IF LEN(S1$(D))>32THENPRINT"TOO LONG":GOTO160
175 IF LEN(S1$(D))<32THENS1$(D)=S1$(D)+" ":GOTO175
180 IF D=13 THEN 220
182 D=D+1
185 GOTO 160
190 D=D+1
200 IF D=14 THEN 220
210 S1$(D)="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":GOTO190
220 INPUT "CORRECTIONS";C$
221 IF C$="Y"THEN GOSUB 1000
224 PRINT "[147]"
225 PRINT "[158]SIDE 2[146][159]"
230 INPUT "SINGERS NAME ";A2$
240 INPUT "ALBUM NAME ";AL2$
250 D=1
260 INPUT "SONG TITLE ";S2$(D)
270 IF S2$(D)=""THEN310
272 IF LEN(S2$(D))>32THENPRINT"TOO LONG":GOTO260
275 IF LEN(S2$(D))<33THENS2$(D)=S2$(D)+" ":GOTO275
280 IF D=13 THEN 320
282 D=D+1
285 GOTO 260
290 D=D+1
300 IF D=14 THEN 320
310 S2$(D)="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]":GOTO290
320 INPUT "CORRECTIONS";C$
321 IF C$="Y"THEN GOSUB 1030
322 INPUT "OWNERS NAME";OW$
323 LET LM=INT((68-LEN(OW$))/2):LET RM=67-LM-LEN(OW$)
324 FOR AS=1 TO LM: NO$=NO$+" ":NEXT AS
325 NO$=NO$+OW$:FOR AS=1 TO RM: NO$=NO$+" ": NEXT AS
328 PRINT "MAKE SURE PRINTER IS ON CONDENSED PRINT, THEN HIT SPACE BAR."
329 GETG$:IFG$=""THEN329
330 OPEN 3,4
350 PRINT#3,"[207][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]";
351 PRINT#3,"[163][163][163][163][163][208]"
352 PRINT#3,"[165] SIDE A                           SIDE B               ";
353 PRINT#3,"            [167]"
360 FOR D=1TO13
370 PRINT#3,"[180] ";S1$(D);" ";S2$(D);"[170]"
380 NEXT D
390 PRINT#3,"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
391 PRINT#3,"[164][164][164][164][164][186]"
395 LET Z=60-(LEN(A1$)+LEN(AN1$))
396 FOR F=1 TO Z
397 AN1$=AN1$+" "
398 NEXT F
400 PRINT#3,"[165] A. ";A1$;"   ";AN1$;"[167]"
405 LET W=60-(LEN(A2$)+LEN(AL2$))
406 FOR V=1 TO W
407 AL2$=AL2$+" "
408 NEXT V
410 PRINT#3,"[165] B. ";A2$;"   ";AL2$;"[167]"
415 PRINT#3,"[204][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]";
416 PRINT#3,"[164][164][164][164][164][186]"
420 PRINT#3,"[165]                                                              ";
421 PRINT#3,"     [167]"
430 PRINT#3,"[165]";NO$;"[167]"
440 PRINT#3,"[165]                                                              ";
441 PRINT#3,"     [167]"
450 PRINT#3,"[173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195]";
451 PRINT#3,"[195][195][195][195][195][189]"
800 CLOSE3,4
805 PRINT:PRINT
810 INPUT"ANOTHER LABEL";H$
820 IF H$="Y" THEN 100
830 SYS64738
900 END
1000 EN$=A1$:EA$=AN1$
1010 FOR D=1 TO 13:ES$(D)=S1$(D):NEXT
1020 XX=1: GOTO 1050
1030 EN$=A2$: EA$=AL2$
1040 FOR D=1TO 13:ES$(D)=S2$(D):NEXT
1050 PRINT"[147]": PRINT EN$
1060 PRINT"E[146]DIT, C[146]ANCEL, SPACE[146] TO CONTINUE"
1070 GET EZ$:IF EZ$=""THEN 1070
1080 IF EZ$="C" THEN 1500
1090 IF EZ$=" " THEN 1110
1100 INPUT "NEW NAME:";EN$
1110 PRINT"[147]":PRINT EA$
1120 PRINT"E[146]DIT, C[146]ANCEL, SPACE[146] TO CONTINUE"
1130 GET EZ$:IF EZ$=""THEN 1130
1140 IF EZ$="C" THEN 1500
1150 IF EZ$=" " THEN 1170
1160 INPUT "NEW ALBUM NAME:";EA$
1170 FOR D=1 TO 13:PRINT"[147]"
1171 IF D>13 THEN 1500
1172 IF ES$(D)="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]" THEN 1280
1173 IF ES$(D)="[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]" THEN 1280
1174 PRINT ES$(D)
1180 PRINT"E[146]DIT, C[146]ANCEL, SPACE[146] TO CONTINUE"
1190 GET EZ$:IF EZ$=""THEN 1190
1200 IF EZ$="C" THEN 1500
1210 IF EZ$=" " THEN 1260
1220 INPUT "NEW SONG NAME:";ES$(D)
1221 IF ES$(D)=""THEN1280
1222 IF LEN(ES$(D))>32THENPRINT"TOO LONG":GOTO1220
1223 IF LEN(ES$(D))<32THENES$(D)=ES$(D)+" ":GOTO1223
1224 IF XX<>1 THEN ES$(D)=ES$(D)+" "
1260 NEXT D
1280 PRINT"[147]":PRINT"ADD SONGS THIS SIDE?"
1285 GET AS$: IF AS$="" THEN 1285
1290 IF AS$="N" THEN 1500
1310 INPUT "NEW SONG"; ES$(D)
1320 GOTO 1221
1500 PRINT"MORE CORRECTIONS?"
1510 GET MC$: IF MC$="" THEN 1510
1515 IF MC$="Y" THEN 1050
1520 IF XX = 1 THEN 1560
1530 A2$=EN$: AL2$=EA$
1540 FOR D = 1 TO 13: S2$(D)=ES$(D):NEXT D
1550 GOTO 1580
1560 A1$=EN$:AN1$=EA$
1570 XX=0:FOR D=1 TO 13: S1$(D)=ES$(D):NEXT
1580 RETURN
6682