home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / Misc / SLIDE-LABELER (.txt) < prev    next >
Encoding:
Commodore BASIC  |  2019-04-13  |  4.1 KB  |  131 lines
  1. 10 REM MARK BENTON APRIL 9TH 1991
  2. 20 REM SETUP SCREEN AND PRINTER
  3. 30 REM SET COLORS
  4. 40 POKE646,0:POKE53280,11:POKE53281,15
  5. 50 ESC$=CHR$(27)
  6. 60 REM SET SANSERIF CODES
  7. 70 SAN$=ESC$+CHR$(107)+CHR$(1)
  8. 80 REM SET NLQ CODES
  9. 90 NLQ$=ESC$+CHR$(120)+CHR$(49)
  10. 100 REM SET ELITE CODES
  11. 110 ELT$=ESC$+CHR$(77)
  12. 120 REM SET CONDENSED CODES
  13. 130 REM SET LEFT MARGIN CODES
  14. 140 MRG$=ESC$+CHR$(108)+CHR$(26)
  15. 150 REM SET CONDENSED CODES
  16. 160 CND$=ESC$+CHR$(27)+CHR$(15)
  17. 170 LNF$=ESC$+CHR$(51)+CHR$(27)
  18. 180 REM OPEN PRINTER
  19. 190 OPEN1,4,5
  20. 200 REM SET PRINTER TO NLQ SANSERIF ELITE CONDENSED
  21. 210 PRINT#1,NLQ$:PRINT#1,SAN$:PRINT#1,ELT$:PRINT#1,CND$:PRINT#1,LNF$
  22. 220 REM SET LEFT MARGIN AT 26
  23. 230 PRINT#1,MRG$
  24. 240 REM CLOSE PRINTER
  25. 250 CLOSE1,4,5
  26. 260 REM SLIDE LABEL.2
  27. 270 PRINT CHR$(14):REM SETS U/L'R CASEMODE
  28. 280 PRINT CHR$(8):REM DISABLE SHIFT-COMMODORE KEYS
  29. 290 PRINT"[147][145] [206][216]-1000 [211][204][201][196][197][160][204][193][194][197][204][197][210]"
  30. 300 PRINT" [198]OR 7/16 [216] 1 7/8 [204]ABELS"
  31. 310 PRINT"  *************************************"
  32. 320 PRINT"  *                                   *"
  33. 330 PRINT"  *                                   *"
  34. 340 PRINT"  *                                   *"
  35. 350 PRINT"  *************************************"
  36. 360 REM SET CURSOR POSISTION
  37. 370 X=3:Y=20:POKE781,Y:POKE782,X:POKE783,0:SYS65520
  38. 380 PRINT"[212]O [213]NDERLINE, PRESS [198]1 KEY"
  39. 390 PRINT"   [212]O [212]URN [207]FF [213]NDERLINING,"
  40. 400 PRINT"   PRESS [198]3 [203]EY"
  41. 410 REM SET CURSOR POSISTION
  42. 420 X=3:Y=3:POKE781,Y:POKE782,X:POKE783,0:SYS 65520
  43. 430 REM GET FIRST LINE OF LABEL
  44. 440 GOSUB710:NA$=B$
  45. 450 REM SET CURSOR POSISTION
  46. 460 X=3:Y=4:POKE781,Y:POKE782,X:POKE783,0:SYS65520
  47. 470 REM GET SECOND LINE OF LABEL
  48. 480 GOSUB710:AD$=B$
  49. 490 REM SET CURSOR POSISTION
  50. 500 X=3:Y=5:POKE781,Y:POKE782,X:POKE783,0:SYS65520
  51. 510 REM GET THIRD LINE OF LABEL
  52. 520 GOSUB710:CS$=B$
  53. 530 REM SET CURSOR POSISTION
  54. 540 X=3:Y=10:POKE781,Y:POKE782,X:POKE783,0:SYS65520
  55. 550 PRINT" [208]RINT [204]ABEL (Y/N)?"
  56. 560 REM GOTO PRINT Y/N SUBROUTINE
  57. 570 GOSUB 1100
  58. 580 IF PR$=CHR$(78)OR PR$=CHR$(206)THEN GOTO 290:REM IF N, THEN START OVER
  59. 582 IF PR$=CHR$(89)OR PR$=CHR$(217)THEN GOTO 600:REM IF Y, THEN PRINT LABEL
  60. 585 IF PR$=CHR$(13)OR PR$=CHR$(141)THEN GOTO 540:REM IF RETURN, GOTO QUESTION
  61. 586 REM LOCK OUT ALL BUT Y/N KEYS
  62. 587 IFPR$<>CHR$(78)ANDPR$<>CHR$(206) THEN GOTO 540
  63. 588 IFPR$<>CHR$(89)ANDPR$<>CHR$(217) THEN GOTO 540
  64. 590 X=3:Y=10:POKE781,Y:POKE782,X:POKE783,0:SYS65520
  65. 600 OPEN 1,4,7:REM OPEN PRINTER
  66. 610 PRINT#1,NA$:PRINT#1,AD$:PRINT#1,CS$:PRINT#1,ZI$:CLOSE1,4,7
  67. 620 REM SET CURSOR POSISTION
  68. 630 X=3:Y=11:POKE781,Y:POKE782,X:POKE783,0:SYS65520
  69. 640 PRINT "[208]RINT AGAIN (Y/N)?"
  70. 650 REM GOTO PRINT AGAIN SUBROUTINE
  71. 660 GOSUB 1150
  72. 670 IF PA$=CHR$(89)OR PA$=CHR$(217) THENGOTO 600
  73. 680 IF PA$=CHR$(78)OR PA$=CHR$(206) THENGOTO 290
  74. 685 IF PA$=CHR$(13)OR PA$=CHR$(141) THENGOTO 630:REM IF RETURN, GOTO QUESTION
  75. 686 IF PA$<>CHR$(78)OR PA$=CHR$(206) THENGOTO 630:REM IF NOT Y/N, GOTO QUESTION
  76. 687 IF PA$<>CHR$(89)OR PA$=CHR$(217) THENGOTO 630:REM IF NOT Y/N, GOTO QUESTION
  77. 700 :
  78. 710 :REM** SUB-ROUTINE STARTS HERE **
  79. 720 :
  80. 730 ESC$=CHR$(27)
  81. 740 UND$=(ESC$+CHR$(45)+CHR$(49))
  82. 750 OFF$=(ESC$+CHR$(45)+CHR$(48))
  83. 760 LL=35:REM SET LINE LENGTH HERE
  84. 770 :
  85. 780 OPEN9,0:A$="":B$="":REM OPEN KEYBOARD   (DEVICE 0) FOR INPUT & NUL A$ & B$
  86. 790 :
  87. 800 POKE204,0:REM TURN ON CRSR BLINK
  88. 810 :
  89. 820 REM TURN OFF QUOTE MODE, GET A CHARACTER
  90. 830 POKE212,0:GET#9,A$:IFA$=""THEN830
  91. 840 REM USE F1/F2 TO TURN ON UNDERLINING
  92. 850 IFA$=CHR$(133)ORA$=CHR$(137)THEN A$=UND$:B$=B$+A$:POKE646,6:LL=LL-1:GOTO 830
  93. 860 REM USE F3/F4 TO TUR OFF UNDERLINING
  94. 870 IFA$=CHR$(134)ORA$=CHR$(138)THEN A$=OFF$:B$=B$+A$:POKE646,0:LL=LL-1:GOTO 830
  95. 880 :
  96. 890 IFA$=CHR$(13)ORA$=CHR$(141)THEN GOTO 1500
  97. 900 REM LOOK FOR CARRIAGE RETURN
  98. 910 :REM IF FOUND - CLOSE CHANNEL-STOP       CRSR BLINK-RETURN TO CALLING PROG
  99. 920 :
  100. 930 IFA$=""ORA$="[157]"ORA$="[145]"ORA$=""THENGOTO830:REM DISABLE CRSR MOVEMENTS
  101. 940 IFA$="[148]" THEN GOTO 830
  102. 950 IFA$=""ORA$="[147]"THEN830:REM DISABLE     HOME & CLR/HOME KEYS
  103. 960 :REM CHECK FOR LINE LENGTH LIMIT
  104. 970 IF PEEK(211)=38 THEN CLOSE 9
  105. 975 IF PEEK(211)=38 THEN GOTO 1060
  106. 980 :
  107. 990 IFA$=CHR$(20)AND PEEK(211)=3 THEN GOTO 830:REM DISABLE DEL KEY IF AT START
  108. 1000 :REM OF THE LINE
  109. 1010 :
  110. 1020 IFA$=CHR$(20)THENPRINT" [157][157] [157]";:B$=LEFT$(B$,LEN(B$)-1):GOTO830:REM DELETE A
  111. 1030 :REM CHARACTER WHEN DEL KEY IS               PRESSED.
  112. 1040 :
  113. 1050 B$=B$+A$:PRINTA$;:GOTO830:REM PUT        CHARACTER INTO B$ & GET NEXT CHAR
  114. 1060 POKE 646,0
  115. 1062 PRINT "[147]  [204]INE [212]OO [204]ONG FOR [204]ABEL"
  116. 1070 INPUT " [195]ONTINUE (Y/N)";C$
  117. 1080 IF C$="Y" THEN GOTO 290
  118. 1090 IF C$<>"Y" THEN END
  119. 1100 OPEN9,0:PR$="":REM PRINT Y/N SUBROUTINE
  120. 1110 X=22:Y=10:POKE781,Y:POKE782,X:POKE783,0:SYS65520
  121. 1120 POKE 204,0
  122. 1130 GET#9,PR$:IFPR$=""THEN1130
  123. 1140 POKE 204,1:CLOSE9,0:RETURN
  124. 1150 OPEN9,0:PA$="":REM PRINT AGAIN SUBROUTINE
  125. 1160 X=22:Y=11:POKE781,Y:POKE782,X:POKE783,0:SYS65520
  126. 1170 POKE 204,0
  127. 1180 GET#9,PA$:IFPA$=""THEN1180
  128. 1190 POKE 204,1:CLOSE9,0:RETURN
  129. 1500 A$=OFF$:B$=B$+A$:POKE646,0
  130. 1510 A$="":CLOSE9:PRINT" ":POKE204,1:RETURN
  131.