"":::::' 53281,0@ "ATARI ORIGINAL BY"j " JOHN WERNER"v:::" CONVERTED FOR USE ON THE COMMODORE BY":" TROY KRATZER"" DOCTOR K"*ED0-I(20),ASIDE$(20),BSIDE$(20),/X14000:X:2100603500?2""W<"ENTER TAPE TITLE"lF"MAX LENGTH 30"P" ******************************"Z TTLE$dBLK$" "nTL(TTLE$)2xBLKL15TL:BLKL1BLKL1BLKLBLKL21TLE$"*"(BLK$,BLKL)TTLE$(BLK$,BLKL)"*"E(TLE$)36160Z(TLE$)36170TLE$"*"(BLK$,BLKL1)TTLE$(BLK$,BLKL)"*"ST$"************************************"""I120"ENTER SIDE A SONG # ";I"MAX 17 SPACES"" *****************"/ ASIDE$(I)EASIDE$(I)""270KRI[""gI120}"ASIDE$(I)""330,"SIDE A SONG # ";I;" ";ASIDE$(I)6IJ:T"ENTER '0' FOR SIDE B":"OR ENTER SONG # TO EDIT ";IUI0350 V"" X ASIDE$(I)/ Z "TYPE OVER TO CORRECT"? \ ASIDE$(I)H ]270Q ^""_ cED1430k hI120 r"ENTER SIDE B SONG # ";I |"MAX 19 SPACES" " *******************"  BSIDE$(I) BSIDE$(I)""430  I ""!I120! BSIDE$(I)""470@!"SIDE B SONG # ";I;" ";BSIDE$(I)G!IO!:!"ENTER '0' TO PRINT LABEL":"OR ENTER SONG # TO EDIT ";I!I0490!""! BSIDE$(I)! "TYPE OVER TO CORRECT"! BSIDE$(I)!430!""""PRINTING LABEL""1,4>"1,""O"X14:1:Xi"1,ST$:1,TLE$:1,ST$"1,"SIDE A SIDE B ""&I120"0SL(ASIDE$(I))":ASIDE$(I)""BSIDE$(I)""610#DBL18SL:ASIDE$(I)ASIDE$(I)(BLK$,BL)#N1,ASIDE$(I);BSIDE$(I)'#X I3#bLF19IE#lX1LF:1:Xs#v1,""#X15:1:X#1#1# 1#"DONE"#::#"1 MAKE NEW LABEL"#"2 PRINT SAME LABEL"#"3 EDIT THIS LABEL"$"4 EXIT PROGRAM"3$:" ENTER CHOICE ";XN$ X 50,490,1005,2000W$650`$ED1z$"CHANGE TITLE ";CHT$$CHT$"N"270$ TTLE$$"TYPE OVER TO CORRECT"$$ TTLE$$. TTLE$$8"CORRECT ";CT$$BCT$"Y"100$L1040%%4C1$""4%>C123:C219:C324:C439:C559903:l%HJ0C1:C2$C2$(32)(157)(17)::C2$C2$(145)%RJ0C2:J0781,C3:C5%\C1$"""";J);C2$:"";C4J);C2$%fC1$""781,J:C5:781,C3J:C5%p:"";:C2$"":& ******************************& *& "":53281,0^& A$" CASSETTE LABEL MAKER ":A2:3550& A$" FOR THE COMMODORE 64":A3:3550& A$" ":A7:3550& "":X11500:X:& & L15& "";:PD1A:"";:PD' C,D:646,C:A$; 'W0D:'L:::<'0,15,11,15,12,15,15,15,1,300_'$ 1,15,15,15,12,15,11,15,0,300