Q - WRITTEN BY: JON PURKEY/SQUIRREL 01/03/92 - MY ZIP+4: 22312-4949W: - I DO NOT HAVE ANY DOCUMENTATION ON HOW THE ZIP+4 BARCODES WORK. - I WROTE THIS PROGRAM AFTER COMPARING AND DECODING THE BAR-G  - CODES ON SEVERAL MAGAZINE MAIL IN CARDS AND ON OTHER ENVELOPES  - WITH THE CODES. I'M 99% CERTAIN I HAVE IT CORRECT, BUT I'M NOT  - MAKING ANY PROMISES. :) : : : 53280,14:53281,6:"ZIP+4 BARCODE CREATOR - BY: SQUIRREL" (142)3 " 1: ZIP+4 TO BARCODE"O " 2: BARCODE TO ZIP+4"[ "->";| #990:A$:A$"1"A$"2"35 (A$"2"500 -: d e(142):B$"L" f"ENTER 5 DIGIT ZIP CODE:"; gMX5:900 iT$X$:Z$X$ k:"ENTER ZIP+4 CODE:"; lMX4:900' mT$T$X$:P$X$A n"ZIP+4: "Z$"+"P$:P sT0:X19a xX$(T$,X,1) y(X$)1210,220,230,240,250,260,270,280,290,300 X : TT(T10)10 T1310,320,330,340,350,360,370,380,390,400 B$B$"L" : "L: LONG / S: SHORT") "BARCODE: "B$/ :8 800> :X TT0:B$B$"LLSSS":r TT1:B$B$"SSSLL": TT2:B$B$"SSLSL": TT3:B$B$"SSLLS": TT4:B$B$"SLSSL": TT5:B$B$"SLSLS": TT6:B$B$"SLLSS": TT7:B$B$"LSSSL":( "TT8:B$B$"LSSLS":B ,TT9:B$B$"LSLSS":H 5:\ 6B$B$"LLSSS":p @B$B$"LSLSS": JB$B$"LSSLS": TB$B$"LSSSL": ^B$B$"SLLSS": hB$B$"SLSLS": rB$B$"SLSSL": |B$B$"SSLLS": B$B$"SSLSL":B$B$"SSSLL"::D:"ENTER BARCODE USING S FOR THE SHORT"k"LINES AND L FOR THE LONG LINES.""EXAMPLE: LSSLSSL ... ETC.""YOU CAN ALSO USE: + FOR L AND - FOR S.""->";:L0:B$""990 A$:A$""520A$"+"A$"L"A$"-"A$"S",A$(13)L52550_(A$"L"A$"S")L52B$B$A$:LL1:A$;:520A$(20)L0X$(X$,L1):LL1:A$;:520!520&"BARCODE: "B$("ZIP+4: ";+X22250S$(B$,X,5)5600::"+";:X27425 ?S$(B$,X,5)D600: I:3JTT(T10)10dKT1310,320,330,340,350,360,370,380,390,400N(B$,47,5)(B$,5)595O"** ERROR IN VALIDATION! **"P"DIGITS DO NOT TOTAL VALIDATION CODE.":S800W:XS$"LLSSS""0";:TT0:615!YS$"SSSLL""1";:TT1:615BZS$"SSLSL""2";:TT2:615c[S$"SSLLS""3";:TT3:615\S$"SLSSL""4";:TT4:615]S$"SLSLS""5";:TT5:615^S$"SLLSS""6";:TT6:615_S$"LSSSL""7";:TT7:615`S$"LSSLS""8";:TT8:615)aS$"LSLSS""9";:TT9:615ab:"** ERROR IN ENTRY! **":S$;" *** POSITION:"X:ggm: "AGAIN? (Y/N) ";%990*A$:A$""805/A$"Y"A$"N"8054A$"Y"9" NO ">L0:X$""990A$:A$""902A$(13)LMXLA$"0"A$"9"LMXX$X$A$:LL1:A$;:905{A$(20)L0X$(X$,L1):LL1:A$;:902902:" ";:X125::" ";:X125::