home *** CD-ROM | disk | FTP | other *** search
/ CP/M / CPM_CDROM.iso / commodor / caslbl (.txt) < prev    next >
Commodore BASIC  |  1993-05-20  |  3KB  |  132 lines
  1. 1 PRINT"[147]"
  2. 2 PRINT"[144]       CASSETTE LABELS BY L. ARNOLD"
  3. 5 PRINT"THIS PROGRAM REQUIRES A PRINTER THAT MAY"
  4. 10 PRINT"BE MANUALLY SET TO CONDENSED PRINT."
  5. 15 FOR QQ=1 TO 5000:NEXT QQ
  6. 100 PRINT"[147]"
  7. 105 CLR
  8. 110 DIM S1$(15):DIM ES$(15)
  9. 115 DIM S2$(15)
  10. 120 PRINT "[158]SIDE 1[146][159]"
  11. 130 INPUT "SINGERS NAME ";A1$
  12. 140 INPUT "ALBUM NAME ";AN1$
  13. 150 D=1
  14. 160 INPUT "SONG TITLE ";S1$(D)
  15. 170 IF S1$(D)=""THEN210
  16. 172 IF LEN(S1$(D))>32THENPRINT"TOO LONG":GOTO160
  17. 175 IF LEN(S1$(D))<32THENS1$(D)=S1$(D)+" ":GOTO175
  18. 180 IF D=13 THEN 220
  19. 182 D=D+1
  20. 185 GOTO 160
  21. 190 D=D+1
  22. 200 IF D=14 THEN 220
  23. 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
  24. 220 INPUT "CORRECTIONS";C$
  25. 221 IF C$="Y"THEN GOSUB 1000
  26. 224 PRINT "[147]"
  27. 225 PRINT "[158]SIDE 2[146][159]"
  28. 230 INPUT "SINGERS NAME ";A2$
  29. 240 INPUT "ALBUM NAME ";AL2$
  30. 250 D=1
  31. 260 INPUT "SONG TITLE ";S2$(D)
  32. 270 IF S2$(D)=""THEN310
  33. 272 IF LEN(S2$(D))>32THENPRINT"TOO LONG":GOTO260
  34. 275 IF LEN(S2$(D))<33THENS2$(D)=S2$(D)+" ":GOTO275
  35. 280 IF D=13 THEN 320
  36. 282 D=D+1
  37. 285 GOTO 260
  38. 290 D=D+1
  39. 300 IF D=14 THEN 320
  40. 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
  41. 320 INPUT "CORRECTIONS";C$
  42. 321 IF C$="Y"THEN GOSUB 1030
  43. 322 INPUT "OWNERS NAME";OW$
  44. 323 LET LM=INT((68-LEN(OW$))/2):LET RM=67-LM-LEN(OW$)
  45. 324 FOR AS=1 TO LM: NO$=NO$+" ":NEXT AS
  46. 325 NO$=NO$+OW$:FOR AS=1 TO RM: NO$=NO$+" ": NEXT AS
  47. 328 PRINT "MAKE SURE PRINTER IS ON CONDENSED PRINT, THEN HIT SPACE BAR."
  48. 329 GETG$:IFG$=""THEN329
  49. 330 OPEN 3,4
  50. 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]";
  51. 351 PRINT#3,"[163][163][163][163][163][208]"
  52. 352 PRINT#3,"[165] SIDE A                           SIDE B               ";
  53. 353 PRINT#3,"            [167]"
  54. 360 FOR D=1TO13
  55. 370 PRINT#3,"[180] ";S1$(D);" ";S2$(D);"[170]"
  56. 380 NEXT D
  57. 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]";
  58. 391 PRINT#3,"[164][164][164][164][164][186]"
  59. 395 LET Z=60-(LEN(A1$)+LEN(AN1$))
  60. 396 FOR F=1 TO Z
  61. 397 AN1$=AN1$+" "
  62. 398 NEXT F
  63. 400 PRINT#3,"[165] A. ";A1$;"   ";AN1$;"[167]"
  64. 405 LET W=60-(LEN(A2$)+LEN(AL2$))
  65. 406 FOR V=1 TO W
  66. 407 AL2$=AL2$+" "
  67. 408 NEXT V
  68. 410 PRINT#3,"[165] B. ";A2$;"   ";AL2$;"[167]"
  69. 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]";
  70. 416 PRINT#3,"[164][164][164][164][164][186]"
  71. 420 PRINT#3,"[165]                                                              ";
  72. 421 PRINT#3,"     [167]"
  73. 430 PRINT#3,"[165]";NO$;"[167]"
  74. 440 PRINT#3,"[165]                                                              ";
  75. 441 PRINT#3,"     [167]"
  76. 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]";
  77. 451 PRINT#3,"[195][195][195][195][195][189]"
  78. 800 CLOSE3,4
  79. 805 PRINT:PRINT
  80. 810 INPUT"ANOTHER LABEL";H$
  81. 820 IF H$="Y" THEN 100
  82. 830 SYS64738
  83. 900 END
  84. 1000 EN$=A1$:EA$=AN1$
  85. 1010 FOR D=1 TO 13:ES$(D)=S1$(D):NEXT
  86. 1020 XX=1: GOTO 1050
  87. 1030 EN$=A2$: EA$=AL2$
  88. 1040 FOR D=1TO 13:ES$(D)=S2$(D):NEXT
  89. 1050 PRINT"[147]": PRINT EN$
  90. 1060 PRINT"E[146]DIT, C[146]ANCEL, SPACE[146] TO CONTINUE"
  91. 1070 GET EZ$:IF EZ$=""THEN 1070
  92. 1080 IF EZ$="C" THEN 1500
  93. 1090 IF EZ$=" " THEN 1110
  94. 1100 INPUT "NEW NAME:";EN$
  95. 1110 PRINT"[147]":PRINT EA$
  96. 1120 PRINT"E[146]DIT, C[146]ANCEL, SPACE[146] TO CONTINUE"
  97. 1130 GET EZ$:IF EZ$=""THEN 1130
  98. 1140 IF EZ$="C" THEN 1500
  99. 1150 IF EZ$=" " THEN 1170
  100. 1160 INPUT "NEW ALBUM NAME:";EA$
  101. 1170 FOR D=1 TO 13:PRINT"[147]"
  102. 1171 IF D>13 THEN 1500
  103. 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
  104. 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
  105. 1174 PRINT ES$(D)
  106. 1180 PRINT"E[146]DIT, C[146]ANCEL, SPACE[146] TO CONTINUE"
  107. 1190 GET EZ$:IF EZ$=""THEN 1190
  108. 1200 IF EZ$="C" THEN 1500
  109. 1210 IF EZ$=" " THEN 1260
  110. 1220 INPUT "NEW SONG NAME:";ES$(D)
  111. 1221 IF ES$(D)=""THEN1280
  112. 1222 IF LEN(ES$(D))>32THENPRINT"TOO LONG":GOTO1220
  113. 1223 IF LEN(ES$(D))<32THENES$(D)=ES$(D)+" ":GOTO1223
  114. 1224 IF XX<>1 THEN ES$(D)=ES$(D)+" "
  115. 1260 NEXT D
  116. 1280 PRINT"[147]":PRINT"ADD SONGS THIS SIDE?"
  117. 1285 GET AS$: IF AS$="" THEN 1285
  118. 1290 IF AS$="N" THEN 1500
  119. 1310 INPUT "NEW SONG"; ES$(D)
  120. 1320 GOTO 1221
  121. 1500 PRINT"MORE CORRECTIONS?"
  122. 1510 GET MC$: IF MC$="" THEN 1510
  123. 1515 IF MC$="Y" THEN 1050
  124. 1520 IF XX = 1 THEN 1560
  125. 1530 A2$=EN$: AL2$=EA$
  126. 1540 FOR D = 1 TO 13: S2$(D)=ES$(D):NEXT D
  127. 1550 GOTO 1580
  128. 1560 A1$=EN$:AN1$=EA$
  129. 1570 XX=0:FOR D=1 TO 13: S1$(D)=ES$(D):NEXT
  130. 1580 RETURN
  131. 6682 
  132.