" MARK BENTON APRIL 9TH 1991A SETUP SCREEN AND PRINTERR SET COLORSq(646,0:53280,11:53281,152ESC$(27)< SET SANSERIF CODESFSAN$ESC$(107)(1)P SET NLQ CODESZNLQ$ESC$(120)(49)d SET ELITE CODES nELT$ESC$(77)& x SET CONDENSED CODESB SET LEFT MARGIN CODES] MRG$ESC$(108)(26)w SET CONDENSED CODES CND$ESC$(27)(15) LNF$ESC$(51)(27) OPEN PRINTER 1,4,5 SET PRINTER TO NLQ SANSERIF ELITE CONDENSED' 1,NLQ$:1,SAN$:1,ELT$:1,CND$:1,LNF$C SET LEFT MARGIN AT 26O 1,MRG$c CLOSE PRINTERn 1,4,5  SLIDE LABEL.2  (14): SETS U/L'R CASEMODE  (8): DISABLE SHIFT-COMMODORE KEYS "" -1000 Š" ," OR 7/16 1 7/8 ABELS"= 6" *************************************"l @" * *" J" * *" T" * *" ^" *************************************" h SET CURSOR POSISTION= rX3:Y20:781,Y:782,X:783,0:65520_ |"O NDERLINE, PRESS 1 KEY" " O URN FF NDERLINING," " PRESS 3 EY"  SET CURSOR POSISTION X3:Y3:781,Y:782,X:783,0: 65520  GET FIRST LINE OF LABEL 710:NA$B$&  SET CURSOR POSISTIONN X3:Y4:781,Y:782,X:783,0:65520m  GET SECOND LINE OF LABEL} 710:AD$B$  SET CURSOR POSISTION X3:Y5:781,Y:782,X:783,0:65520  GET THIRD LINE OF LABEL 710:CS$B$  SET CURSOR POSISTION2X3:Y10:781,Y:782,X:783,0:65520M&" RINT ABEL (Y/N)?"m0 GOTO PRINT Y/N SUBROUTINEx: 1100D PR$(78) PR$(206) 290: IF N, THEN START OVERF PR$(89) PR$(217) 600: IF Y, THEN PRINT LABEL-I PR$(13) PR$(141) 540: IF RETURN, GOTO QUESTIONMJ LOCK OUT ALL BUT Y/N KEYSqKPR$(78)PR$(206) 540LPR$(89)PR$(217) 540NX3:Y10:781,Y:782,X:783,0:65520X 1,4,7: OPEN PRINTERb1,NA$:1,AD$:1,CS$:1,ZI$:1,4,7l SET CURSOR POSISTIONDvX3:Y11:781,Y:782,X:783,0:65520_ "RINT AGAIN (Y/N)?" GOTO PRINT AGAIN SUBROUTINE 1150 PA$(89) PA$(217) 600 PA$(78) PA$(206) 290 PA$(13) PA$(141) 630: IF RETURN, GOTO QUESTIONP PA$(78) PA$(206) 630: IF NOT Y/N, GOTO QUESTION PA$(89) PA$(217) 630: IF NOT Y/N, GOTO QUESTION::** SUB-ROUTINE STARTS HERE **:ESC$(27)UND$(ESC$(45)(49))OFF$(ESC$(45)(48))(LL35: SET LINE LENGTH HERE.:x 9,0:A$"":B$"": OPEN KEYBOARD (DEVICE 0) FOR INPUT & NUL A$ & B$~: 204,0: TURN ON CRSR BLINK*:4 TURN OFF QUOTE MODE, GET A CHARACTER>212,0:#9,A$:A$""830H USE F1/F2 TO TURN ON UNDERLININGSRA$(133)A$(137) A$UND$:B$B$A$:646,6:LLLL1: 830z\ USE F3/F4 TO TUR OFF UNDERLININGfA$(134)A$(138) A$OFF$:B$B$A$:646,0:LLLL1: 830p:zA$(13)A$(141) 1500 LOOK FOR CARRIAGE RETURNL: IF FOUND - CLOSE CHANNEL-STOP CRSR BLINK-RETURN TO CALLING PROGR:A$""A$""A$""A$""830: DISABLE CRSR MOVEMENTSA$"" 830A$""A$""830: DISABLE HOME & CLR/HOME KEYS: CHECK FOR LINE LENGTH LIMIT (211)38 91 (211)38 10607:uA$(20) (211)3 830: DISABLE DEL KEY IF AT START: OF THE LINE:A$(20)" ";:B$(B$,(B$)1):830: DELETE A: CHARACTER WHEN DEL KEY IS PRESSED.:KB$B$A$:A$;:830: PUT CHARACTER INTO B$ & GET NEXT CHARW$ 646,0z& " INE OO ONG FOR ABEL". " ONTINUE (Y/N)";C$8 C$"Y" 290B C$"Y" L9,0:PR$"": PRINT Y/N SUBROUTINE VX22:Y10:781,Y:782,X:783,0:65520` 204,02j#9,PR$:PR$""1130Et 204,1:9,0:n~9,0:PA$"": PRINT AGAIN SUBROUTINEX22:Y11:781,Y:782,X:783,0:65520 204,0#9,PA$:PA$""1180 204,1:9,0:A$OFF$:B$B$A$:646,0A$"":9:" ":204,1: