Sitenotice:
2020: NameSpaces are going to be implemented this year to better separate content. OS-9 Al (talk) 11:18, 15 April 2020 (CDT)
2020-05-17: If a page gives you an error about some revision not being found, just EDIT the page and the old page should appear in the editor. If it does, just SAVE that and the page should be restored. OS-9 Al (talk) 12:22, 17 May 2020 (CDT)

LABELS

From CoCopedia - The Tandy/Radio Shack Color Computer Wiki
Jump to navigation Jump to search
100 DIM A$(20)
110 CLS: PRINT@5,"MAILING LABEL PROGRAM"
120 NL=1: LB=6: LM=0
130 PRINT@32,"SPCL CODE SEQUENCE, Y OR N";: INPUT S$
140 IF (S$<>"Y") AND (S$<>"N") THEN PRINT@54,"": GOTO 130
150 IF S$="N" THEN 250
160 GOSUB 440
170 PRINT@64,"ENTER CODE SEQUENCE,"+CHR$(13)+"END BY -1"
180 PRINT@105,"":PRINT:PRINT
190 PRINT@105,"";:INPUT 5: IF S-I THEN 230
200 IF (S<0) OR (S>255) THEN PRINT@448,"INVALID CODE": GOSUB 450:GOTO 180
210 A$=CHR$(S):GOSUB 490
220 GOTO 180
230 PRINT@64,"":PRINT:PRINT
240 GOSUB 520
250 PRINT@64,"# OF LABELS EACH";:INPUT NL
260 IF (NL<1) OR (NL>1000) THEN PRINT@80,"": GOTO 250
270 PRINT@96,"# OF LINES PER LABEL";:INPUT LB
280 IF (LB<1) OR (LB>100) THEN PRINT@116,"": GOTO 270
290 PRINT@128,"LEFT MARGIN, 0-60";: INPUT LM
300 IF (LM<0) OR (LN>60) THEN PRINT@145,"": GOTO 290
310 PRINT@160,"TEST RUN, Y OR N";: INPUT T$
320 IF (T$<>"Y") AND (T$<>"N") THEN PRINT@176,"": GOTO 310
330 RESTORE: GOSUB 440
340 I=1
350 READ A$(I): IF A$(I)="*****" THEN 110
360 IF A$(I)="*" THEN 380
370 I=I+1: GOTO 350
380 I=I-1: FOR J=1 TO NL
390 GOSUB 540
400 IF T$<>"Y" THEN 420
410 PRINT@176,"": GOTO 310
420 NEXT J
430 GOTO 340
440 PRINT@448,"READY PRINTER"
450 FOR I=1 TO 1000: NEXT I
460 PRINT@448,"
470 RETURN
480 REM***CHANGE NEXT "PRIMT#-2," TO "LPRINT" FOR MC-10***
490 PRINT#-2,A$;
500 RETURN
510 REM***CHANGE NEXT "PRINT#-2," TO "LPRINT" FOR MC-10***
520 PRIMT#-2
530 RETURN
540 FOR K=1 TO I
550 FOR L=1 TO LM: A$=" ": GOSUB 490: NEXT L
560 A$=A$(K): GOSUB 490: GOSUB 520
570 NEXT K
580 M=LB-I: IF M<0 THEN PRINT@448,"TOO MANY LINES IN LABEL":GOSUB 450: GOTO 600
590 FOR K=1 TO M: GOSUB 520: NEXT K
600 RETURN
610 DATA "WM. BARDEN, JR.", "250 N.S. MEMORY LANE"
620 DATA "MICRO CITY, CA 99999","*"
630 DATA "FORREST MIMS III","987 TEXAN FOREVER DRIVE"
640 DATA "LITTLE SPRING, TX 77777","*"
650 DATA "DENNIS KITZ","ARKHAM CORNERS","MISKATONIC CITY, MA 03333","*"
660 DATA "Wm. Barden","*"
670 DATA "*****"