*(14)"HIS IS A 80 COLUMN PROGRAM" "************************************************************************""*   - 1 2 8 ֠1.0  *"3"*  *""* HIS IS A LABEL GENERATING PROGRAM, IT WILL CREATE DATA IN A .SEQ *"("* FILE FORMAT FOR MAKING LABELS. OU CAN STORE UP TO 12 NAMES PER FILE*"52"* F YOU HAVE DEAS TO IMPROVE THE PROGRAM PLEASE WRITE ME AT MY *"<"* NIE MAILING ADDRESS (). *"F"************************** NJOY HE ROGRAM ***************************": 3P K$;Z ************* LABEL.BAS WRITTEN BY ANDREW GARDNER ********************d -----------------------------------------------------------------------n5:(14):%x:C0: N$(12),A$(12),C$(12),S$(12),Z$(12),RC$(12):500: C 1  "LEAR ALL LABELS IN MEMORY [/]"D K$` K$"" K$"Y" C0j : C12 "ABEL AREA IS FULL, RESS ANY KEY TO RETURN TO MENU": K$:500! TC12:(147):22)"NDREWS ARDNER'S ABEL ENERATOR V1.0"B!"ABEL # ";C1:CC1!" "!" "!" """ """ "*"""<"" AME:"N""DDRESS:"`"" ITY:"r""" TATE:""," IP:""6"EMINDER: O NOT USE [OMMAS] IN YOUR ENTRIES, THEY ARE ENTERED AUTOMATICALLY"#@"";N$(C)v#J(N$(C))352210:2240:" ":320#T"";A$(C)$^(A$(C))352210:2240:" ":3404$h"";C$(C)$r(C$(C))352210:2240:" ":360$|"";S$(C)L%(S$(C))22210:2240:" ":380q%"";Z$(C)%(Z$(C))52210:2240:" ":400 & ** ENTRY VERIFICATION **&2260:"PRESS [] FOR MAIN MENU: [] TO REEDIT CURRENT ENTRY: [] FOR MORE ENTRIES": C12 500&""' C12 500,' V$:V$""V$"E"2240:CC1:250J'V$""V$"M"2240:500h'V$""V$"A"2240:180q'460' ** MAIN MENU **'(147)23)"ABEL ENERATOR AIN ENU V1.0"'SP$" " (SP$"ŒNTER NEW LABEL DATA":23506(SP$"֒IEW LABELS ON SCREEN":2350_(&SP$"ӒTORE LABELS ON DISK":2350(0SP$"ĒELETE LABEL FILE":2350(:SP$"̒OAD LABEL DATA":2350(DSP$"ВRINT LABELS":2350(NSP$"ђUIT":2350F)X"ROGRAM WRITTEN BY NDREW ARDNER 9/86 ..."f)b M$: M$"" M$"E" 130)l M$"" M$"V" 690)v M$"" M$"S" 890) M$"" M$"L" 1200) M$"" M$"P" 1450) M$"" M$"D" 1970 * M$"" M$"Q" 2150*610?* ** VIEW LABEL ON SCREEN ROUTIENE **U*2380: M1 500e* "";:TB0s* N1 C* TB)N$(N);:TBTB26* TB78 ::::;:TB0* N:"";:TB0* A1 C* TB)A$(A);:TBTB26+  TB78 ::::;:TB0+ A:"";:TB0*+  T1 Ca+* TB);C$(T)", "S$(T)" "Z$(T);" #";T;:TBTB26+4 TB78 ::::;:TB0+> T:+H"": SE1SE0:,R 24)"RESS [] TO RETURN TO MENU"(,\ K$D,f K$"" K$"M" 500M,p860h,z *** STORE LABELS ***, 2380:X0: M1 500,2260:"ABEL TORAGE OUTINE",20)"LACE STOREGE DISK INTO DISK DRIVE")-25)"NTER:":31)"[]EW LABEL FILE"J-31)"[]LD LABEL FILE"a-31)"[]XIT"k- K$- K$"" K$"N" 1010- K$"" K$"O" X5: 1010- K$"" K$"E" 500- 960."NTER LABEL FILE NAME";F$: X5 #2,("@:."F$),W: 1060+. (F$) 12 ~. "ILE NAME MUST NOT EXCEEDE 12 CHARACTERS LN LENGTH: TRY AGAIN":$"": 1000.: 1050. #2,("."F$),W.$ 2450: E1 890.. P 1 C.82,N$(P): 2450: E1 890/B2,A$(P): 2450: E1 890(/L2,C$(P): 2450: E1 890H/V2,S$(P): 2450: E1 890h/`2,Z$(P): 2450: E1 890~/j2450: E1 890/t P:2,"END": 2450: E1 890/~#2/"ILE TORAGE OMPLETED: RESS [] FOR MENU"/ K$0 K$"" K$"M" 50001170.0 ** LOAD LABEL DATA **p0"ILE LOAD ROUTINE"0SP$"̒OAD FILE":23500SP$"ĒISK IRECTORY":23500SP$"͒AIN ENU":23500 K$0 K$"" K$"L" 13001 K$"" K$"D" 2290:120051 K$"" K$"M" 500?1 1250a1"NTER FILE NAME";F$1 #2,("."F$): 2520: E1 12001(C012 P 1 121<2,N$(P): 2520: E1 12001F2,A$(P): 2520: E1 12002P2,C$(P): 2520: E1 1200$2Z2,S$(P): 2520: E1 1200E2d2,Z$(P): 2520: E1 12002n N$(P)"END" A$(P)"END" C$(P)"END" S$(P)"END" Z$(P)"END" 14102xCP: P2#22"ILE LOADED PRESS ANY KEY FOR MENU"2 K$:5003 *** PRINT LABELS ***,32380: M1 500T3(147)25)"ABEL PRINT ROUTINE"3SP$"LL LABELS IN MEMORY":23503SP$"ӒELECTED LABELS":23503SP$"͒AIN MENU":23503 K$: K$"" K$"M" 5004 K$"" K$"A" 15404 K$"" K$"S" 1780)41500?4 ** PRINT ALL **T42380: M1 5004"OW MANY TIMES SHOULD PRINT ALL:";NP:(147)4"(147)4,258046 FO1 16204@ FO0 14404J 15704T 5,4H5^""X5h LP NPh5r P 1 Cr5|1750}5 26505 P:LPLP15555""5614)"INISHED PRINTING LABELS: PRESS ANY KEY FOR MENU"?6 K$I61450i6 ** SWITCH TO UPPERCASE **u6 (14){66 ** PRINT SELECTED RECORD ROUTIENE **62380: M1 14406(147)27)"ELECTED RINT OUTINE"6SE1:69097"NTER LABEL NUMBER TO BE PRINTED-> ";LNX7&"OW MANY LABELS-> ";NLp702580: FO1 18707: FO0 14407D 18407N""7X5,48b N 1 NL:PLN8l 26508vN!858""814)"INISHED PRINTING LABELS: RESS ANY KEY TO CONTINUE"8 K$:144088 *** DELETE ROUTIENE ***#9 (147)25)"ELETE ILE OUTIENE":D$"".9 ""K9".*": 2450: E1 5009""9"NTER [ILE NAME] TO BE DELETED: OR ENTER [XIT]:";D$ : D$"EXIT" D$ "" 500B:"RE YOU SURE YOU WANT TO DELETE "D$" [/]"e: K$: K$"" K$"N" 1970:  K$"" K$"Y" 2080: 2050: "."D$: 2450 : E1 500:*: 30)""D$" :AS BEEN DELETED";4 25)"NOTHER FILE TO DELETE [/]" ;> K$';H K$"" K$"Y" 1970C;R K$"" K$"N" 500N;\ 2110`;f *** END ***;p2260:30)"RE YOU SURE /Ο";z K$; K$"" K$"Y" :(147):; K$"" K$"N" 500;2170< ** TOO MANY CHARACTERS ERROR:MESSAGE **l<(7)"OO MANY CHARACTERS OR SPACES:REENTER DATA": 2r<< ** COMMAND LINE **<" ":= ** SOUND BELL **=(7);%=W= *** DIRECTORY LISTING OF RELATIVE FILES ***f= ".*":15= "RESS [] TO ONTINUE"= K$= K$"" K$"C" =$ 2320=. *** UNDERLINE MENU ***>8 SP$" ">B A>L *** CHECK MEMORY FOR LABELS ***R>V C 1 >` 2260:(147):"***************************** O ABELS N EMORY *****************************"M?j "RESS [] FOR MENU":T1200:T:30)" ": T1200:p?t K$: K$"" K$"M" M1:{?~ 2410? : M0:? *** DISK ERROR CHECKING ***? DS 1 DS 50 ? "ISK RROR-:";DS$:#2? E1@ "RESS ANY KEY TO CANCIL" @ K$:,@  : R@ ** CHECK DISK ERROR FOR READ **d@ DS 20 @ "ISK RROR-:",DS$:#2@ "RESS ANY KEY TO CANCIL"@ E1: K$@ @ ** PRINT ON LABEL ROUTIENE **@ (147)]A( "LIGHN LABELS IN PRINTER THEN PRESS:":35)"[] TO PRINT":35)"[] TO CANCIL"A2 T1200: T:" ": T1200: TA< K$: K$"" K$"P" FO1:AF K$"" K$"C" FO0:AP 2600BZ ** START PRINTING ON LABELS ***Bd N$(P)6Bn A$(P)WBx C$(P)", "S$(P)" "Z$(P)cB :::uB 5,(17)N$(P)B 5,(17)A$(P)B 5,(17)C$(P)", "S$(P)" "Z$(P)B 5,(13)B 5,(13)B 5,(13)B