home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 17 / CD_ASCQ_17_101194.iso / vrac / vester_e.zip / TIFLABEL.BAS < prev    next >
BASIC Source File  |  1994-08-08  |  13KB  |  229 lines
  1. 10 CLEAR,32768!:KEY OFF:CLS
  2. 15 GOTO 2000
  3. 20 X$="system"+CHR$(13):KEY 10,X$
  4. 25 X$="files":KEY 9,X$
  5. 30 DEF SEG=&H5F00
  6. 40 BLOAD "label.asm",&H100
  7. 50 PRINT:PRINT:PRINT"                          PIX LABELLING"
  8. 60 PRINT:PRINT:PRINT"   This program is for labelling pix with your call sign or other words"
  9. 70 PRINT"which are cut-out of some unique background material. For example, if you"
  10. 80 PRINT"want to use mahogany wood, just make a background file which is a digital "
  11. 90 PRINT"picture taken of mahogany (usually up close). Then make a background file"
  12. 100 PRINT"of whatever color or pattern you'd like to see on edges of cut-out letters."
  13. 110 PRINT"Generally the letters will be a two color (B & W) file which came from some"
  14. 120 PRINT"computer graphics program or from using a hand scanner to capture a printed"
  15. 130 PRINT"font that caught your eye. This program is set up to accept TIF graphic"
  16. 140 PRINT"files. I use the Marstek scanner to capture. There are a number of programs"
  17. 150 PRINT"which allow you to re-size and rearrange the letters to fit and generally"
  18. 160 PRINT"tell you how many pixels wide the final file is and how many pixels (ie,"
  19. 170 PRINT"lines) long it is. You can get the three dimensional effect by first running"
  20. 180 PRINT"a new file out using the edge color or pattern for the Background file---"
  21. 190 PRINT"then using this new file as a Pix to be labelled, only this time use the"
  22. 200 PRINT"Background file that you want as the front face of the letters, and offset"
  23. 210 PRINT"vertically and horizontally this new overwrite."
  24. 220 PRINT:PRINT"   All filenames below will have their suffix added by the program."
  25. 230 PRINT:PRINT:INPUT"    Path and Filename of TIF Label (font) file";A$
  26. 235 IF A$="" THEN GOTO 230
  27. 240 A$=A$+".tif"
  28. 250 PRINT:PRINT:INPUT"   Number of horizontal pixels in TIF file";HP
  29. 255 IF HP=0 THEN GOTO 250
  30. 260 B=HP/8:POKE &H1CE,B
  31. 270 PRINT:PRINT:INPUT"    Path and Filename of file to be labelled";B$
  32. 275 IF B$="" THEN GOTO 270
  33. 280 PRINT:PRINT:PRINT"    What mode is pix file ? (3)Scottie 1 (4)Scottie 2 (5)AVT90 (6)AVT94"
  34. 290 INPUT"(7)Martin 1 (77)Martin 2 (8)Wraase 96 (9)FAX480 (96)ColorFAX";I
  35. 300 IF I=0 GOTO 280
  36. 310 PRINT:PRINT:INPUT"    Plain color letters (Y or N--Default=N)";L$
  37. 320 IF L$="" THEN L$="n"
  38. 330 IF L$="n" THEN GOTO 390
  39. 340 PRINT:PRINT:INPUT"   RED component (138 to 202--138 being bright red)";R
  40. 345 IF R=0 THEN GOTO 340
  41. 350 PRINT:PRINT:INPUT"   GREEN component (138 to 202)";G
  42. 355 IF G=0 THEN GOTO 350
  43. 360 PRINT:PRINT:INPUT"   BLUE component (138 to 202)";B
  44. 365 IF B=0 THEN GOTO 360
  45. 370 POKE &H204,184:POKE &H205,R:POKE &H207,144:POKE &H20F,184:POKE &H210,G:POKE &H212,144
  46. 380 POKE &H21A,184:POKE &H21B,B:POKE &H21D,144:POKE &H184,5:POKE &H1F5,0:GOTO 490
  47. 390 PRINT:PRINT:INPUT"    Path and Filename of Background file";C$
  48. 395 IF C$="" THEN GOTO 390
  49. 400 PRINT:PRINT:INPUT"    Mode for Background file (3)(4)(5)(6)(7)(77)(8)(9) or (96)";J
  50. 410 IF J=3 THEN C$=C$+".s1":JL=878:GOTO 490
  51. 420 IF J=4 THEN C$=C$+".s2":JL=568:GOTO 490
  52. 430 IF J=5 THEN C$=C$+".90":JL=768:GOTO 490
  53. 440 IF J=6 THEN C$=C$+".94":JL=960:GOTO 490
  54. 450 IF J=7 THEN C$=C$+".m1":JL=915:GOTO 490
  55. 455 IF J=77 THEN C$=C$+".m2":JL=464:GOTO 490
  56. 460 IF J=8 THEN C$=C$+".96":JL=745:GOTO 490
  57. 470 IF J=9 THEN C$=C$+".fax":JL=546:GOTO 490
  58. 471 IF J=96 THEN C$=C$+".cfx":JL=1638:GOTO 490
  59. 480 GOTO 400
  60. 490 PRINT:PRINT:INPUT"    Path and Filename for Output file";D$
  61. 500 IF I=3 THEN B$=B$+".s1":D$=D$+".s1":LL=878:L=288:L%=256
  62. 510 IF I=4 THEN B$=B$+".s2":D$=D$+".s2":LL=568:L=184:L%=256
  63. 520 IF I=5 THEN B$=B$+".90":D$=D$+".90":LL=768:L=256:L%=240
  64. 530 IF I=6 THEN B$=B$+".94":D$=D$+".94":LL=960:L=320:L%=200
  65. 540 IF I=7 THEN B$=B$+".m1":D$=D$+".m1":LL=915:L=302:L%=256
  66. 545 IF I=77 THEN B$=B$+".m2":D$=D$+".m2":LL=464:L=152:L%=256
  67. 550 IF I=8 THEN B$=B$+".96":D$=D$+".96":LL=745:L=248:L%=256
  68. 560 IF I=9 THEN B$=B$+".fax":D$=D$+".fax":LL=546:L%=480:POKE &H20C,88:L=195
  69. 565 IF I=96 THEN B$=B$+".cfx":D$=D$+".cfx":LL=1638:L%=480:L=546
  70. 570 PRINT:PRINT:INPUT"   Horizontal Offset in pixels (default=0)";H
  71. 580 PRINT:PRINT:INPUT"   Vertical Offset in lines from top (default=0)";V
  72. 590 HB=INT(H/256):HA=H-256*HB:POKE &H1A8,HA:POKE &H1A9,HB:POKE &H241,HA:POKE &H242,HB
  73. 600 VB=INT((L%-V)/256):VA=L%-V-256*VB:POKE &H1C0,VA:POKE &H1C1,VB
  74. 610 LLB=INT(LL/256):LLA=LL-256*LLB:POKE &H1DE,LLA:POKE &H1DF,LLB:POKE &H248,LLA:POKE &H249,LLB
  75. 620 JLB=INT(JL/256):JLA=JL-256*JLB:POKE &H1EE,JLA:POKE &H1EF,JLB
  76. 630 LB=INT (L/256):LA=L-256*LB:POKE &H20D,LA:POKE &H20E,LB
  77. 640 ZL=2*L:ZLB=INT(ZL/256):ZLA=ZL-256*ZLB:POKE &H218,ZLA:POKE &H219,ZLB
  78. 650 LB%=INT(L%/256):LA%=L%-256*LB%:POKE &H1BB,LA%:POKE &H1BC,LB%
  79. 660 K=&H100:CALL K(D$,C$,B$,A$)
  80. 670 A$=D$
  81. 675 IF I=96 THEN L=546:LL=1638:P=536:GOTO 1910
  82. 700 BLOAD "vu64ba.asm",&H100
  83. 720 IF I=3 THEN L=288
  84. 730 IF I=3 THEN L=288
  85. 740 IF I=4 THEN L=184
  86. 750 IF I=5 THEN L=256
  87. 760 IF I=6 THEN L=320
  88. 770 IF I=7 THEN GOTO 1180
  89. 780 IF I=77 THEN GOTO 1180
  90. 790 IF I=8 THEN L=248
  91. 800 POKE &H226,2  'No. poked here=pixels scrolled per left arrow depression
  92. 810 POKE &H427,PT
  93. 820 IF I=9 THEN GOTO 1360
  94. 830 P=L-PT:P2=INT(P/256):P1=P-P2*256
  95. 840 POKE &H15D,P1:POKE &H15E,P2:POKE &H45B,P1:POKE &H45C,P2
  96. 850 IF I=4 THEN POKE &H3EA,16:LL=568
  97. 860 IF I=5 THEN POKE &H3EA,0:LL=768
  98. 870 IF I=7 THEN POKE &H3EA,9:LL=915
  99. 880 IF I=77 THEN POKE &H3EA,8:LL=464
  100. 890 IF I=8 THEN POKE &H3EA,1:LL=745
  101. 900 IF I=6 THEN POKE &H3EA,0:LL=960
  102. 910 IF I=3 THEN POKE &H3EA,14:LL=878
  103. 920 IF EX=0 THEN GOTO 960
  104. 930     'next two lines put in expand by 2 for modes desired
  105. 940 IF I=4 THEN P=320:POKE &H43B,235:POKE &H43C,27:POKE &H15A,0:POKE &H15B,2
  106. 950 IF I=77 THEN P=2*P:POKE &H43B,235:POKE &H43C,27:POKE &H15A,0:POKE &H15B,2
  107. 960 OF=(640-2*P)/2:OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H13B,OF1:POKE &H13C,OF2
  108. 970 LL2=INT(LL/256):LL1=LL-256*LL2:POKE &H1FD,LL1:POKE &H1FE,LL2:POKE &H242,LL1:POKE &H243,LL2
  109. 980 IF V=1 THEN GOTO 1020
  110. 990 VC=0:PRINT:PRINT:PRINT"  Is Video Card (1)Trident mode 5D (2)Tseng mode 2E (3)ATI mode 62"
  111. 1000 INPUT"(4)Paradise mode 5F (5)Chips&Tech mode 79 (6)Genoa mode 5C (7)VESA (Default=1)";VC
  112. 1010 IF VC=0 THEN VC=1       'default choice
  113. 1020 IF VC=1 THEN GOTO 1540
  114. 1030 IF VC=2 THEN GOTO 1100
  115. 1040 IF VC=3 THEN GOTO 1560
  116. 1050 IF VC=4 THEN GOTO 1630
  117. 1060 IF VC=5 THEN GOTO 1700
  118. 1070 IF VC=6 THEN GOTO 1760
  119. 1080 IF VC=7 THEN GOTO 1840
  120. 1090 GOTO 990
  121. 1100 POKE &H113,46:POKE &H142,205:POKE &H144,136:POKE &H145,216:POKE &H146,238:POKE &H147,195
  122. 1110 K=&H100
  123. 1120 IF I=99 THEN CALL K(C%,S%,A$):GOTO 1140
  124. 1130 CALL K(S%,A$)
  125. 1140 KEY ON
  126. 1150 PRINT:PRINT:PRINT:PRINT"    If you need to center letters better, hit F2 to re-RUN. If pix is OK"
  127. 1160 PRINT"   and you used d:filename option, hit F10 and ENTER to return to DOS so "
  128. 1170 PRINT"   you can copy the file in d: to whatever name and location you want.":END
  129. 1180 POKE &H180,128:POKE &H3DA,128:POKE &H3CB,64:POKE &H3BC,192
  130. 1190 IF I=77 THEN L=152:GOTO 800
  131. 1200 L=302:GOTO 800
  132. 1210 L=282
  133. 1220 BLOAD "vurobol.asm",&H100
  134. 1230 POKE &H4BD,10:POKE &H350,10      'initial color offset in robot 72
  135. 1240 PT=4     'pixels trimmed on Robot 72
  136. 1250 POKE &H16A,(141-PT):POKE &H3D4,(141-PT)
  137. 1260 POKE &H46A,(76+4*PT)
  138. 1270 POKE &H4D5,(75+4*PT)
  139. 1280 POKE &H337,TU:POKE &H33F,TU:POKE &H2D7,TU:POKE &H2DF,TU
  140. 1290 IF BR=0 THEN POKE &H4EC,208:POKE &H4ED,232:POKE &H4EE,235:POKE &H4EF,4
  141. 1300 IF BR=2 THEN POKE &H4EC,235:POKE &H4ED,6
  142. 1310 OF=(640-2*L)/2:OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H13B,OF1:POKE &H13C,OF2
  143. 1320 POKE &H226,2:POKE &H1FD,102:POKE &H1FE,2:POKE &H242,102:POKE &H243,2:POKE &H15D,102
  144. 1330 IF I=2 THEN GOTO 1350
  145. 1340 POKE &H1FD,85:POKE &H242,85:POKE &H15D,85
  146. 1350 GOTO 980
  147. 1360 POKE &H15D,24:POKE &H15E,2:POKE &H184,235:POKE &H185,1:POKE &H180,0:POKE &H3A8,235:POKE &H3A9,57
  148. 1370 POKE &H3EA,10:POKE &H3A2,224:POKE &H3A3,1:POKE &H13B,52:POKE &H13C,0:POKE &H16A,128:POKE &H16B,2
  149. 1380 LL=546:GOTO 970
  150. 1390 PRINT:PRINT:PRINT:INPUT"   Do you choose (1)1024x768 or (2)640x480 (Default=1)";S
  151. 1400 IF S=0 THEN S=1
  152. 1410 BLOAD "vuwx.asm",&H100
  153. 1420 IF S=2 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1:POKE &H113,93
  154. 1430 PRINT:PRINT:INPUT"   What White level count do you choose (Default=138)";W
  155. 1440 IF W=0 THEN W=138
  156. 1450 POKE &H170,W:POKE &H174,W:POKE &H176,W
  157. 1460 GOTO 990
  158. 1470 BLOAD "vuro36l.asm",&H100
  159. 1480 IF BR=0 THEN POKE &H4EC,208:POKE &H4ED,232:POKE &H4EE,235:POKE &H4EF,4
  160. 1490 IF BR=2 THEN POKE &H4EC,235:POKE &H4ED,6
  161. 1500 POKE &H4BD,8:POKE &H350,8      'initial color offset in robot 36
  162. 1510 LL=616:POKE &H13B,140:POKE &H226,1:POKE &H15D,100:POKE &H1F2,12
  163. 1520 IF I=11 THEN LL=576:POKE &H15D,64:POKE &H3BB,64:POKE &H3EF,0:POKE &H4A8,0:POKE &H441,0:POKE &H2F6,32:POKE &H303,32
  164. 1530 GOTO 970
  165. 1540 IF I=6 THEN POKE &H113,&H5C
  166. 1550 GOTO 1110
  167. 1560 POKE &H113,&H62:POKE &H444,192:POKE 321,235:POKE 322,90  'ATI video mode 62
  168. 1570 POKE 324,136:POKE 325,196
  169. 1580 POKE 326,128:POKE 327,228:POKE 328,225:POKE 329,208:POKE 330,227:POKE 331,8
  170. 1590 POKE 332,220:POKE 333,176:POKE 334,178:POKE 335,254:POKE 336,202:POKE 337,239:POKE 338,195
  171. 1600 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1:POKE 321,233:POKE 322,66:POKE 323,4:POKE &H58A,192
  172. 1610 IF I=6 THEN POKE &H113,&H61
  173. 1620 GOTO 1110
  174. 1630 POKE &H113,&H5F:POKE 321,186:POKE 322,206          'Paradise video mode 5f
  175. 1640 POKE 323,3:POKE 324,176:POKE 325,9:POKE 326,136:POKE 327,220:POKE 328,208
  176. 1650 POKE 329,228:POKE 330,208:POKE 331,228:POKE 332,208:POKE 333,228:POKE 334,208:POKE 335,228
  177. 1660 POKE 336,239:POKE 337,195
  178. 1670 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  179. 1680 IF I=6 THEN POKE &H113,&H5E
  180. 1690 GOTO 1110
  181. 1700 POKE &H113,&H79:POKE 321,186:POKE 322,214            'Chips & Tech Mode 79
  182. 1710 POKE 323,3:POKE 324,176:POKE 325,16:POKE 326,136:POKE 327,220:POKE 328,208
  183. 1720 POKE 329,228:POKE 330,208:POKE 331,228:POKE 332,239:POKE 333,195
  184. 1730 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  185. 1740 IF I=6 THEN POKE &H113,&H78
  186. 1750 GOTO 1110
  187. 1760 POKE &H113,&H5C:POKE 321,186:POKE 322,196                   'Genoa mode 5c
  188. 1770 POKE 323,3:POKE 324,176:POKE 325,6:POKE 326,238:POKE 327,66:POKE 328,236
  189. 1780 POKE 329,36:POKE 330,199:POKE 331,128:POKE 332,227:POKE 333,7:POKE 334,208
  190. 1790 POKE 335,227:POKE 336,208:POKE 337,227:POKE 338,208:POKE 339,227:POKE 340,8
  191. 1800 POKE 341,216:POKE 342,238:POKE 343,195
  192. 1810 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  193. 1820 IF I=6 THEN POKE &H113,&H7E
  194. 1830 GOTO 1110
  195. 1840 POKE &H111,79:POKE &H113,2:POKE 321,177                   'VESA mode 101
  196. 1850 POKE 322,BS:POKE 323,210:POKE 324,227:POKE 325,136:POKE 326,218
  197. 1860 POKE 327,48:POKE 328,246:POKE 329,184:POKE 330,5:POKE 331,79:POKE 332,49:POKE 333,219:POKE 334,205
  198. 1861 POKE 335,16:POKE 336,195
  199. 1870 IF S=1 THEN POKE &H44A,5:GOTO 1900
  200. 1880 IF I=99 THEN POKE &H16A,128:POKE &H16B,2:POKE &H155,224:POKE &H156,1
  201. 1890 IF I=6 THEN POKE &H398,0
  202. 1900 GOTO 1110
  203. 1910 BLOAD "trusho.asm",&H100
  204. 1915 P2=INT(P/256):P1=P-256*P2:POKE &H3B0,P1:POKE &H3B1,P2:POKE &H46B,P1:POKE &H46C,P2
  205. 1920 OF=3*(640-P)/2:OF2=INT(OF/256):OF1=OF-256*OF2:POKE &H13C,OF1:POKE &H13D,OF2:POKE &H512,OF1:POKE &H513,OF2
  206. 1925 Z=2*L:ZB=INT(Z/256):ZA=Z-256*ZB:POKE &H3CA,ZA:POKE &H3CB,ZB
  207. 1930 W=2*L+32:WB=INT(W/256):WA=W-256*WB:POKE &H3A9,WA:POKE &H3AA,WB:POKE &H3E5,WA:POKE &H3E6,WB
  208. 1935 LB=INT(L/256):LA=L-256*LB:POKE &H3BC,LA:POKE &H3BD,LB:POKE &H3C3,LA:POKE &H3C4,LB
  209. 1940 U=3*L:UB=INT(U/256):UA=U-256*UB:POKE &H55F,UA:POKE &H560,UB:POKE &H531,UA:POKE &H532,UB
  210. 1945 POKE &H427,10:POKE &H226,2  'poke to &h226 is pixels per left arrow depress
  211. 1950 LL2=INT(LL/256):LL1=LL-256*LL2:POKE &H1FD,LL1:POKE &H1FE,LL2:POKE &H242,LL1:POKE &H243,LL2:POKE &H15D,LL1:POKE &H15E,LL2
  212. 1955 Q=BL-3*P:QB=INT(Q/256):QA=Q-256*QB:POKE &H3D6,QA:POKE &H3D7,QB
  213. 1960 POKE &H39A,233:POKE &H39B,107:POKE &H39C,253:POKE &H11A,0:POKE &H11B,0:POKE &H2B8,235:POKE &H2B9,6:POKE &H3AC,1:POKE &H3B4,1
  214. 1965 POKE &H3A2,224:POKE &H3A3,1
  215. 1970 GOTO 1840
  216. 2000    '                   SYSTEM CONFIGURATION
  217. 2010    'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx
  218. 2020 V=0     'V=0 is manual video card choice---V=1 is automatic choice
  219. 2030 VC=1    'Video card 1=Trident 2=Tseng 3=ATI 4=Paradise 5=Chips 6=Genoa
  220. 2040         '7=VESA (VESA card or VESA driver.Pick BS below to get full pix).
  221. 2045 BS=4    'Bank Shift for different VESA configurations-values from 0 to 6
  222. 2046 BL=2048 'Bytes/Line in TRUCOLOR modes-ATI=1920 and Diamond PRO=2048
  223. 2050 DR$="d" 'RAMDISK drive designation--make letter D match your drive
  224. 2060 BR=2    'Robot brightness control-br=2 is high-br=1 is med-br=0 is low
  225. 2070 TU=2    'Robot tuning increment with F and G in ten's of cycles
  226. 2080 PT=6    'Pixels trimmed from edge of picture--see line 810 for Robot
  227. 2090 EX=1    'For S2 and M2. EX=0 is as rcvd. EX=1 is EXpanded to fill screen
  228. 2100 GOTO 20
  229.