home *** CD-ROM | disk | FTP | other *** search
- 10 REM MARK BENTON APRIL 9TH 1991
- 20 REM SETUP SCREEN AND PRINTER
- 30 REM SET COLORS
- 40 POKE646,0:POKE53280,11:POKE53281,15
- 50 ESC$=CHR$(27)
- 60 REM SET SANSERIF CODES
- 70 SAN$=ESC$+CHR$(107)+CHR$(1)
- 80 REM SET NLQ CODES
- 90 NLQ$=ESC$+CHR$(120)+CHR$(49)
- 100 REM SET ELITE CODES
- 110 ELT$=ESC$+CHR$(77)
- 120 REM SET CONDENSED CODES
- 130 REM SET LEFT MARGIN CODES
- 140 MRG$=ESC$+CHR$(108)+CHR$(26)
- 150 REM SET CONDENSED CODES
- 160 CND$=ESC$+CHR$(27)+CHR$(15)
- 170 LNF$=ESC$+CHR$(51)+CHR$(27)
- 180 REM OPEN PRINTER
- 190 OPEN1,4,5
- 200 REM SET PRINTER TO NLQ SANSERIF ELITE CONDENSED
- 210 PRINT#1,NLQ$:PRINT#1,SAN$:PRINT#1,ELT$:PRINT#1,CND$:PRINT#1,LNF$
- 220 REM SET LEFT MARGIN AT 26
- 230 PRINT#1,MRG$
- 240 REM CLOSE PRINTER
- 250 CLOSE1,4,5
- 260 REM SLIDE LABEL.2
- 270 PRINT CHR$(14):REM SETS U/L'R CASEMODE
- 280 PRINT CHR$(8):REM DISABLE SHIFT-COMMODORE KEYS
- 290 PRINT"[147][145] [206][216]-1000 [211][204][201][196][197][160][204][193][194][197][204][197][210]"
- 300 PRINT" [198]OR 7/16 [216] 1 7/8 [204]ABELS"
- 310 PRINT" *************************************"
- 320 PRINT" * *"
- 330 PRINT" * *"
- 340 PRINT" * *"
- 350 PRINT" *************************************"
- 360 REM SET CURSOR POSISTION
- 370 X=3:Y=20:POKE781,Y:POKE782,X:POKE783,0:SYS65520
- 380 PRINT"[212]O [213]NDERLINE, PRESS [198]1 KEY"
- 390 PRINT" [212]O [212]URN [207]FF [213]NDERLINING,"
- 400 PRINT" PRESS [198]3 [203]EY"
- 410 REM SET CURSOR POSISTION
- 420 X=3:Y=3:POKE781,Y:POKE782,X:POKE783,0:SYS 65520
- 430 REM GET FIRST LINE OF LABEL
- 440 GOSUB710:NA$=B$
- 450 REM SET CURSOR POSISTION
- 460 X=3:Y=4:POKE781,Y:POKE782,X:POKE783,0:SYS65520
- 470 REM GET SECOND LINE OF LABEL
- 480 GOSUB710:AD$=B$
- 490 REM SET CURSOR POSISTION
- 500 X=3:Y=5:POKE781,Y:POKE782,X:POKE783,0:SYS65520
- 510 REM GET THIRD LINE OF LABEL
- 520 GOSUB710:CS$=B$
- 530 REM SET CURSOR POSISTION
- 540 X=3:Y=10:POKE781,Y:POKE782,X:POKE783,0:SYS65520
- 550 PRINT" [208]RINT [204]ABEL (Y/N)?"
- 560 REM GOTO PRINT Y/N SUBROUTINE
- 570 GOSUB 1100
- 580 IF PR$=CHR$(78)OR PR$=CHR$(206)THEN GOTO 290:REM IF N, THEN START OVER
- 582 IF PR$=CHR$(89)OR PR$=CHR$(217)THEN GOTO 600:REM IF Y, THEN PRINT LABEL
- 585 IF PR$=CHR$(13)OR PR$=CHR$(141)THEN GOTO 540:REM IF RETURN, GOTO QUESTION
- 586 REM LOCK OUT ALL BUT Y/N KEYS
- 587 IFPR$<>CHR$(78)ANDPR$<>CHR$(206) THEN GOTO 540
- 588 IFPR$<>CHR$(89)ANDPR$<>CHR$(217) THEN GOTO 540
- 590 X=3:Y=10:POKE781,Y:POKE782,X:POKE783,0:SYS65520
- 600 OPEN 1,4,7:REM OPEN PRINTER
- 610 PRINT#1,NA$:PRINT#1,AD$:PRINT#1,CS$:PRINT#1,ZI$:CLOSE1,4,7
- 620 REM SET CURSOR POSISTION
- 630 X=3:Y=11:POKE781,Y:POKE782,X:POKE783,0:SYS65520
- 640 PRINT "[208]RINT AGAIN (Y/N)?"
- 650 REM GOTO PRINT AGAIN SUBROUTINE
- 660 GOSUB 1150
- 670 IF PA$=CHR$(89)OR PA$=CHR$(217) THENGOTO 600
- 680 IF PA$=CHR$(78)OR PA$=CHR$(206) THENGOTO 290
- 685 IF PA$=CHR$(13)OR PA$=CHR$(141) THENGOTO 630:REM IF RETURN, GOTO QUESTION
- 686 IF PA$<>CHR$(78)OR PA$=CHR$(206) THENGOTO 630:REM IF NOT Y/N, GOTO QUESTION
- 687 IF PA$<>CHR$(89)OR PA$=CHR$(217) THENGOTO 630:REM IF NOT Y/N, GOTO QUESTION
- 700 :
- 710 :REM** SUB-ROUTINE STARTS HERE **
- 720 :
- 730 ESC$=CHR$(27)
- 740 UND$=(ESC$+CHR$(45)+CHR$(49))
- 750 OFF$=(ESC$+CHR$(45)+CHR$(48))
- 760 LL=35:REM SET LINE LENGTH HERE
- 770 :
- 780 OPEN9,0:A$="":B$="":REM OPEN KEYBOARD (DEVICE 0) FOR INPUT & NUL A$ & B$
- 790 :
- 800 POKE204,0:REM TURN ON CRSR BLINK
- 810 :
- 820 REM TURN OFF QUOTE MODE, GET A CHARACTER
- 830 POKE212,0:GET#9,A$:IFA$=""THEN830
- 840 REM USE F1/F2 TO TURN ON UNDERLINING
- 850 IFA$=CHR$(133)ORA$=CHR$(137)THEN A$=UND$:B$=B$+A$:POKE646,6:LL=LL-1:GOTO 830
- 860 REM USE F3/F4 TO TUR OFF UNDERLINING
- 870 IFA$=CHR$(134)ORA$=CHR$(138)THEN A$=OFF$:B$=B$+A$:POKE646,0:LL=LL-1:GOTO 830
- 880 :
- 890 IFA$=CHR$(13)ORA$=CHR$(141)THEN GOTO 1500
- 900 REM LOOK FOR CARRIAGE RETURN
- 910 :REM IF FOUND - CLOSE CHANNEL-STOP CRSR BLINK-RETURN TO CALLING PROG
- 920 :
- 930 IFA$=""ORA$="[157]"ORA$="[145]"ORA$=""THENGOTO830:REM DISABLE CRSR MOVEMENTS
- 940 IFA$="[148]" THEN GOTO 830
- 950 IFA$=""ORA$="[147]"THEN830:REM DISABLE HOME & CLR/HOME KEYS
- 960 :REM CHECK FOR LINE LENGTH LIMIT
- 970 IF PEEK(211)=38 THEN CLOSE 9
- 975 IF PEEK(211)=38 THEN GOTO 1060
- 980 :
- 990 IFA$=CHR$(20)AND PEEK(211)=3 THEN GOTO 830:REM DISABLE DEL KEY IF AT START
- 1000 :REM OF THE LINE
- 1010 :
- 1020 IFA$=CHR$(20)THENPRINT" [157][157] [157]";:B$=LEFT$(B$,LEN(B$)-1):GOTO830:REM DELETE A
- 1030 :REM CHARACTER WHEN DEL KEY IS PRESSED.
- 1040 :
- 1050 B$=B$+A$:PRINTA$;:GOTO830:REM PUT CHARACTER INTO B$ & GET NEXT CHAR
- 1060 POKE 646,0
- 1062 PRINT "[147] [204]INE [212]OO [204]ONG FOR [204]ABEL"
- 1070 INPUT " [195]ONTINUE (Y/N)";C$
- 1080 IF C$="Y" THEN GOTO 290
- 1090 IF C$<>"Y" THEN END
- 1100 OPEN9,0:PR$="":REM PRINT Y/N SUBROUTINE
- 1110 X=22:Y=10:POKE781,Y:POKE782,X:POKE783,0:SYS65520
- 1120 POKE 204,0
- 1130 GET#9,PR$:IFPR$=""THEN1130
- 1140 POKE 204,1:CLOSE9,0:RETURN
- 1150 OPEN9,0:PA$="":REM PRINT AGAIN SUBROUTINE
- 1160 X=22:Y=11:POKE781,Y:POKE782,X:POKE783,0:SYS65520
- 1170 POKE 204,0
- 1180 GET#9,PA$:IFPA$=""THEN1180
- 1190 POKE 204,1:CLOSE9,0:RETURN
- 1500 A$=OFF$:B$=B$+A$:POKE646,0
- 1510 A$="":CLOSE9:PRINT" ":POKE204,1:RETURN
-