MediaWiki:Sitenotice:
2024-03-02: The wiki ran out of disk space, so things were not working. This has been resolved by adding another 5GB of quota ;-) Thanks to Tim Lindner for reporting the issues.
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
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 "*****"