Polluks: Category

2015-09-11T11:08:16Z

Luis46coco: Created page with " 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 PRIN..."

2013-03-25T03:36:38Z

Created page with " 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 PRIN..."

New page

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 "*****"

← Older revision		Revision as of 07:08, 11 September 2015
Line 57:		Line 57:
	660 DATA "Wm. Barden","*"		660 DATA "Wm. Barden","*"
	670 DATA "*****"		670 DATA "*****"

			[[Category:BASIC]]

LABELS - Revision history

Polluks: Category

Luis46coco: Created page with " 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 PRIN..."