home *** CD-ROM | disk | FTP | other *** search
/ Sauce 'n' Code 3 / sauce-n-code-03.adf / Source_Code / Jiffy_Disk.asc < prev    next >
Encoding:
Text File  |  1996-01-22  |  15.5 KB  |  480 lines
  1. ' Jiffy Disk v1.5
  2. ' ¯¯¯¯¯¯¯¯¯¯¯¯¯¯¯
  3. ' cODED bY ßudda/NFA 
  4. ' StARtEd :  Back in the old dayz  
  5. ' FiNiSHed:  In the cruel past 
  6.  
  7. ' ** CAUTION! Some extensions used in here...
  8.  
  9. Set Buffer 12
  10. Break Off 
  11. Request Off 
  12. Amos Lock 
  13. Wb To Front 
  14.  
  15. Load "Jiffy_Disk.abk"
  16.  
  17. Dim A$(16),B$(16),C$(16),D$(16),E$(16),F$(16),G$(16)
  18. Dim S1(16),S2(16),S3(16),S4(16),S5(16),S6(16),S7(16)
  19. Dim BL1$(16),BL2$(16),BL3$(16),BL4$(16),BL5$(16),BL6$(16),BL7$(16)
  20. Dim IT1$(16),IT2$(16),IT3$(16),IT4$(16),IT5$(16),IT6$(16),IT7$(16)
  21. Dim UL1$(16),UL2$(16),UL3$(16),UL4$(16),UL5$(16),UL6$(16),UL7$(16)
  22. LABEL_NUMBER=1
  23. MUS=1
  24. ESC$=Chr$(27)
  25. BOLD$=ESC$+"[1m"
  26. ITALIC$=ESC$+"[3m"
  27. UNDERLINE$=ESC$+"[4m"
  28. Global MUS
  29. Resource Bank 5
  30. P$="BA 0,0;"
  31. P$=P$+"BO 0,0,1,456,192;IN 2,0,2;SP 2,0;GB 4,11,451,189;IN 1,0,2;SP 0,0;"
  32. P$=P$+"BU 1,0,0,22,11,0,0,1;[UN 0,0,BP41+;][BR 0;]KY 128 69+,0;"
  33. P$=P$+"BO 456,0,1,640,192;"
  34. P$=P$+"LI 78,40,34,368;ED 2,95,43,34,40,'',0,1;"
  35. P$=P$+"LI 78,56,34,368;ED 3,95,59,34,40,'',0,1;"
  36. P$=P$+"LI 78,72,34,368;ED 4,95,75,34,40,'',0,1;"
  37. P$=P$+"LI 78,88,34,368;ED 5,95,91,34,40,'',0,1;"
  38. P$=P$+"LI 78,104,34,368;ED 6,95,107,34,40,'',0,1;"
  39. P$=P$+"LI 78,120,34,368;ED 7,95,123,34,40,'',0,1;"
  40. P$=P$+"LI 78,136,34,368;ED 8,95,139,34,40,'',0,1;"
  41. P$=P$+"BO 464,50,10,632,173;"
  42. P$=P$+"BU 9,472,164,152,15,0,0,1;[LI 0,0,3BP*28+,152;PR 32,4,'PRINT LABEL',1BP+;][BR 0;]"
  43. P$=P$+"BU 10,472,128,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 20,4,'«««<',1BP+;][BR 0;]"
  44. P$=P$+"BU 11,560,128,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 16,4,'>»»»',1BP+;][BR 0;]"
  45. P$=P$+"PR 512,119,'Label Move',1;"
  46. P$=P$+"PO 136,21,'TeXt To AppeAR oN lABEl',2,3;"
  47. P$=P$+"PO 56,44,'1',2,1;"
  48. P$=P$+"PO 56,60,'2',2,1;"
  49. P$=P$+"PO 56,76,'3',2,1;"
  50. P$=P$+"PO 56,92,'4',2,1;"
  51. P$=P$+"PO 56,107,'5',2,1;"
  52. P$=P$+"PO 56,123,'6',2,1;"
  53. P$=P$+"PO 56,141,'7',2,1;"
  54. P$=P$+"PR 104,155,'Maximum 40 Characters Per Line!',1;"
  55. P$=P$+"PR 32,2,'JIFFY DISK V1.5',1;"
  56. P$=P$+"BU 12,560,45,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 16,4,'WiPe',1BP+;][BR 0;] KY 128 69+,0;"
  57. P$=P$+"BU 13,472,45,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 12,4,'ABouT',1BP+;][BR 0;] KY 128 95+,0;"
  58. P$=P$+"BU 14,472,72,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 12,4,'ReSeT',1BP+;][BR 0;]"
  59. P$=P$+"BU 15,560,72,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 8,4,'L.Feed',1BP+;][BR 0;]"
  60. P$=P$+"BU 16,376,42,24,11,0,0,1;[UN 0,0,40BP-;][]"
  61. P$=P$+"BU 17,400,42,24,11,0,0,1;[UN 0,0,40BP-;][]"
  62. P$=P$+"BU 18,424,42,24,11,0,0,1;[UN 0,0,40BP-;][]"
  63. P$=P$+"BU 19,376,58,24,11,0,0,1;[UN 0,0,40BP-;][]"
  64. P$=P$+"BU 20,400,58,24,11,0,0,1;[UN 0,0,40BP-;][]"
  65. P$=P$+"BU 21,424,58,24,11,0,0,1;[UN 0,0,40BP-;][]"
  66. P$=P$+"BU 22,376,74,24,11,0,0,1;[UN 0,0,40BP-;][]"
  67. P$=P$+"BU 23,400,74,24,11,0,0,1;[UN 0,0,40BP-;][]"
  68. P$=P$+"BU 24,424,74,24,11,0,0,1;[UN 0,0,40BP-;][]"
  69. P$=P$+"BU 25,376,90,24,11,0,0,1;[UN 0,0,40BP-;][]"
  70. P$=P$+"BU 26,400,90,24,11,0,0,1;[UN 0,0,40BP-;][]"
  71. P$=P$+"BU 27,424,90,24,11,0,0,1;[UN 0,0,40BP-;][]"
  72. P$=P$+"BU 28,376,106,24,11,0,0,1;[UN 0,0,40BP-;][]"
  73. P$=P$+"BU 29,400,106,24,11,0,0,1;[UN 0,0,40BP-;][]"
  74. P$=P$+"BU 30,424,106,24,11,0,0,1;[UN 0,0,40BP-;][]"
  75. P$=P$+"BU 31,376,122,24,11,0,0,1;[UN 0,0,40BP-;][]"
  76. P$=P$+"BU 32,400,122,24,11,0,0,1;[UN 0,0,40BP-;][]"
  77. P$=P$+"BU 33,424,122,24,11,0,0,1;[UN 0,0,40BP-;][]"
  78. P$=P$+"BU 34,376,138,24,11,0,0,1;[UN 0,0,40BP-;][]"
  79. P$=P$+"BU 35,400,138,24,11,0,0,1;[UN 0,0,40BP-;][]"
  80. P$=P$+"BU 36,424,138,24,11,0,0,1;[UN 0,0,40BP-;][]"
  81. P$=P$+"PR 488,63,'Printer Controls',1;"
  82. P$=P$+"BU 37,8,177,24,11,1,0,1;[UN 0,0,40BP-;][]"
  83. P$=P$+"PR 40,179,'Letter Quality',1;"
  84. P$=P$+"PR 464,2,'CONTROL BIT',1;"
  85. P$=P$+"BU 38,472,144,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 12,4,'First',1BP+;][BR 0;]"
  86. P$=P$+"BU 39,560,144,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 16,4,'Last',1BP+;][BR 0;]"
  87. P$=P$+"BU 40,8,41,24,11,0,0,1;[UN 0,0,40BP-;][]"
  88. P$=P$+"BU 41,8,57,24,11,0,0,1;[UN 0,0,40BP-;][]"
  89. P$=P$+"BU 42,8,74,24,11,0,0,1;[UN 0,0,40BP-;][]"
  90. P$=P$+"BU 43,8,89,24,11,0,0,1;[UN 0,0,40BP-;][]"
  91. P$=P$+"BU 44,8,105,24,11,0,0,1;[UN 0,0,40BP-;][]"
  92. P$=P$+"BU 45,8,121,24,11,0,0,1;[UN 0,0,40BP-;][]"
  93. P$=P$+"BU 46,8,138,24,11,0,0,1;[UN 0,0,40BP-;][]"
  94. P$=P$+"BU 47,472,98,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 16,4,'Save',1BP+;][BR 0;]"
  95. P$=P$+"BU 48,560,98,64,15,0,0,1;[LI 0,0,3BP*28+,64;PR 16,4,'Load',1BP+;][BR 0;]"
  96. P$=P$+"PR 512,89,'Disk Stuff',1;"
  97. P$=P$+"PR 383,32,'B',1;"
  98. P$=P$+"PR 407,32,'I',1;"
  99. P$=P$+"PR 431,32,'U',1;"
  100. P$=P$+"PR 16,31,'C',1;"
  101. P$=P$+"BO 0,192,1,640,245;"
  102. P$=P$+"BO 8,204,19,632,241;"
  103. P$=P$+"PR 0,194,'INTRESTING WINDOW FOR ANY MESSAGES',1;"
  104. P$=P$+"EX;"
  105. Resource Screen Open 0,640,256,0
  106. Colour 17,$FFF : Colour 18,$900 : Colour 19,$0
  107. Curs Off 
  108. Cls 0
  109. Limit Mouse 128,42 To 434,251
  110. On Error Goto ER
  111. Track Loop On 
  112. St Play 3
  113. Dialog Open 1,P$,17,5000
  114. XXX=Dialog Run(1)
  115. Paste Icon 490,11,1
  116. Gosub UP
  117. MAIN:
  118. Do 
  119.    BT=Dialog(1)
  120.    If BT=1 Then Goto QUIT
  121.    If BT=9 Then Gosub PR
  122.    If BT=10 Then Gosub BACK
  123.    If BT=11 Then Gosub FRONT
  124.    If BT=12 Then Gosub WIPE
  125.    If BT=13 Then Proc ABOUT
  126.    If BT=14 Then Gosub RES
  127.    If BT=15 Then Gosub FEE
  128.    If BT=38 Then Gosub FI
  129.    If BT=39 Then Gosub LA
  130.    If BT=47 Then Gosub SAV
  131.    If BT=48 Then Gosub LOA
  132. Loop 
  133.  
  134. QUIT:
  135. Dialog Close 1
  136. St Stop 
  137. End 
  138.  
  139. SAV:
  140. Gosub _GET_STRING
  141. Dialog Freeze 1
  142. _FILE["Select File To Save Labels To.",$800]
  143. NAME$=Param$
  144. Dialog Unfreeze 1
  145. If NAME$="" Then Return 
  146. Open Out 1,NAME$
  147. For L=1 To 16
  148.    Proc CONVERT[A$(L),1]
  149.    Print #1,Param$ : Print #1,BL1$(L) : Print #1,IT1$(L) : Print #1,UL1$(L)
  150.    Proc CONVERT[B$(L),1]
  151.    Print #1,Param$ : Print #1,BL2$(L) : Print #1,IT2$(L) : Print #1,UL2$(L)
  152.    Proc CONVERT[C$(L),1]
  153.    Print #1,Param$ : Print #1,BL3$(L) : Print #1,IT3$(L) : Print #1,UL3$(L)
  154.    Proc CONVERT[D$(L),1]
  155.    Print #1,Param$ : Print #1,BL4$(L) : Print #1,IT4$(L) : Print #1,UL4$(L)
  156.    Proc CONVERT[E$(L),1]
  157.    Print #1,Param$ : Print #1,BL5$(L) : Print #1,IT5$(L) : Print #1,UL5$(L)
  158.    Proc CONVERT[F$(L),1]
  159.    Print #1,Param$ : Print #1,BL6$(L) : Print #1,IT6$(L) : Print #1,UL6$(L)
  160.    Proc CONVERT[G$(L),1]
  161.    Print #1,Param$ : Print #1,BL7$(L) : Print #1,IT7$(L) : Print #1,UL7$(L)
  162. Next L
  163. Close 1
  164. Return 
  165.  
  166. LOA:
  167. _FILE["Select File To Load Labels From.",$1000]
  168. NAME$=Param$
  169. If NAME$="" Then Return 
  170. Open In 1,NAME$
  171. For L=1 To 16
  172.    Input #1,A$(L) : Input #1,BL1$(L) : Input #1,IT1$(L) : Input #1,UL1$(L)
  173.    Proc CONVERT[A$(L),2] : A$(L)=Param$
  174.    Input #1,B$(L) : Input #1,BL2$(L) : Input #1,IT2$(L) : Input #1,UL2$(L)
  175.    Proc CONVERT[B$(L),2] : B$(L)=Param$
  176.    Input #1,C$(L) : Input #1,BL3$(L) : Input #1,IT3$(L) : Input #1,UL3$(L)
  177.    Proc CONVERT[C$(L),2] : C$(L)=Param$
  178.    Input #1,D$(L) : Input #1,BL4$(L) : Input #1,IT4$(L) : Input #1,UL4$(L)
  179.    Proc CONVERT[D$(L),2] : D$(L)=Param$
  180.    Input #1,E$(L) : Input #1,BL5$(L) : Input #1,IT5$(L) : Input #1,UL5$(L)
  181.    Proc CONVERT[E$(L),2] : E$(L)=Param$
  182.    Input #1,F$(L) : Input #1,BL6$(L) : Input #1,IT6$(L) : Input #1,UL6$(L)
  183.    Proc CONVERT[F$(L),2] : F$(L)=Param$
  184.    Input #1,G$(L) : Input #1,BL7$(L) : Input #1,IT7$(L) : Input #1,UL7$(L)
  185.    Proc CONVERT[G$(L),2] : G$(L)=Param$
  186. Next L
  187. Close 1
  188. Gosub UP
  189. Return 
  190.  
  191. FI:
  192. Gosub _GET_STRING
  193. LABEL_NUMBER=1
  194. Gosub UP
  195. Return 
  196.  
  197. LA:
  198. Gosub _GET_STRING
  199. LABEL_NUMBER=16
  200. Gosub UP
  201. Return 
  202.  
  203. BACK:
  204. Gosub _GET_STRING
  205. Dec LABEL_NUMBER
  206. If LABEL_NUMBER<1 Then LABEL_NUMBER=1
  207. Gosub UP
  208. Return 
  209.  
  210. FRONT:
  211. Gosub _GET_STRING
  212. Inc LABEL_NUMBER
  213. If LABEL_NUMBER>16 Then LABEL_NUMBER=16
  214. Gosub UP
  215. Return 
  216.  
  217. UP:
  218. Window 0
  219. Gr Writing 1
  220. Text 540,138,(Right$("00"+Mid$(Str$(LABEL_NUMBER),2),2))
  221. For TICK=16 To 36
  222.    Dialog Update 1,TICK,0
  223. Next TICK
  224. Dialog Update 1,2,A$(LABEL_NUMBER)
  225. If BL1$(LABEL_NUMBER)=BOLD$ Then Dialog Update 1,16,1
  226. If IT1$(LABEL_NUMBER)=ITALIC$ Then Dialog Update 1,17,1
  227. If UL1$(LABEL_NUMBER)=UNDERLINE$ Then Dialog Update 1,18,1
  228. Dialog Update 1,3,B$(LABEL_NUMBER)
  229. If BL2$(LABEL_NUMBER)=BOLD$ Then Dialog Update 1,19,1
  230. If IT2$(LABEL_NUMBER)=ITALIC$ Then Dialog Update 1,20,1
  231. If UL2$(LABEL_NUMBER)=UNDERLINE$ Then Dialog Update 1,21,1
  232. Dialog Update 1,4,C$(LABEL_NUMBER)
  233. If BL3$(LABEL_NUMBER)=BOLD$ Then Dialog Update 1,22,1
  234. If IT3$(LABEL_NUMBER)=ITALIC$ Then Dialog Update 1,23,1
  235. If UL3$(LABEL_NUMBER)=UNDERLINE$ Then Dialog Update 1,24,1
  236. Dialog Update 1,5,D$(LABEL_NUMBER)
  237. If BL4$(LABEL_NUMBER)=BOLD$ Then Dialog Update 1,25,1
  238. If IT4$(LABEL_NUMBER)=ITALIC$ Then Dialog Update 1,26,1
  239. If UL4$(LABEL_NUMBER)=UNDERLINE$ Then Dialog Update 1,27,1
  240. Dialog Update 1,6,E$(LABEL_NUMBER)
  241. If BL5$(LABEL_NUMBER)=BOLD$ Then Dialog Update 1,28,1
  242. If IT5$(LABEL_NUMBER)=ITALIC$ Then Dialog Update 1,29,1
  243. If UL5$(LABEL_NUMBER)=UNDERLINE$ Then Dialog Update 1,30,1
  244. Dialog Update 1,7,F$(LABEL_NUMBER)
  245. If BL6$(LABEL_NUMBER)=BOLD$ Then Dialog Update 1,31,1
  246. If IT6$(LABEL_NUMBER)=ITALIC$ Then Dialog Update 1,32,1
  247. If UL6$(LABEL_NUMBER)=UNDERLINE$ Then Dialog Update 1,33,1
  248. Dialog Update 1,8,G$(LABEL_NUMBER)
  249. If BL7$(LABEL_NUMBER)=BOLD$ Then Dialog Update 1,34,1
  250. If IT7$(LABEL_NUMBER)=ITALIC$ Then Dialog Update 1,35,1
  251. If UL7$(LABEL_NUMBER)=UNDERLINE$ Then Dialog Update 1,36,1
  252. Gr Writing 0
  253. Return 
  254.  
  255. RES:
  256. Open Port 3,"PRT:"
  257. If Port(3)=False
  258.    MESS1$="The printer isn't responding.  Check that it's ON-LINE.  And try again."
  259.    MESS2$="The problem could be  that you don't own a printer.  Silly you."
  260.    MESS3$="But then again it could probably just be cableing/connector problems."
  261.    Gosub MESS
  262.    Close 3
  263.    Return 
  264. End If 
  265. X=Free
  266. Print #3,ESC$+"c"
  267. Print #3,ESC$+"#1"
  268. Close 3
  269. Return 
  270.  
  271. FEE:
  272. Open Port 3,"PRT:"
  273. If Port(3)=False
  274.    MESS1$="The printer isn't responding.  Check that it's ON-LINE.  And try again."
  275.    MESS2$="The problem could be  that you don't own a printer.  Silly you."
  276.    MESS3$="But then again it could probably just be cableing/connector problems."
  277.    Gosub MESS
  278.    Close 3
  279.    Return 
  280. End If 
  281. X=Free
  282. Print #3,ESC$+"D"+Chr$(10)
  283. Multi Wait 
  284. Close 3
  285. Return 
  286.  
  287. _GET_STRING:
  288. A$(LABEL_NUMBER)=Rdialog$(1,2)
  289. If Rdialog(1,40)=1 Then S1(LABEL_NUMBER)=(40-Len(A$(LABEL_NUMBER)))/2
  290. If Rdialog(1,16)=1 Then BL1$(LABEL_NUMBER)=BOLD$
  291. If Rdialog(1,17)=1 Then IT1$(LABEL_NUMBER)=ITALIC$
  292. If Rdialog(1,18)=1 Then UL1$(LABEL_NUMBER)=UNDERLINE$
  293. B$(LABEL_NUMBER)=Rdialog$(1,3)
  294. If Rdialog(1,41)=1 Then S2(LABEL_NUMBER)=(40-Len(B$(LABEL_NUMBER)))/2
  295. If Rdialog(1,19)=1 Then BL2$(LABEL_NUMBER)=BOLD$
  296. If Rdialog(1,20)=1 Then IT2$(LABEL_NUMBER)=ITALIC$
  297. If Rdialog(1,21)=1 Then UL2$(LABEL_NUMBER)=UNDERLINE$
  298. C$(LABEL_NUMBER)=Rdialog$(1,4)
  299. If Rdialog(1,42)=1 Then S3(LABEL_NUMBER)=(40-Len(C$(LABEL_NUMBER)))/2
  300. If Rdialog(1,22)=1 Then BL3$(LABEL_NUMBER)=BOLD$
  301. If Rdialog(1,23)=1 Then IT3$(LABEL_NUMBER)=ITALIC$
  302. If Rdialog(1,24)=1 Then UL3$(LABEL_NUMBER)=UNDERLINE$
  303. D$(LABEL_NUMBER)=Rdialog$(1,5)
  304. If Rdialog(1,43)=1 Then S4(LABEL_NUMBER)=(40-Len(D$(LABEL_NUMBER)))/2
  305. If Rdialog(1,25)=1 Then BL4$(LABEL_NUMBER)=BOLD$
  306. If Rdialog(1,26)=1 Then IT4$(LABEL_NUMBER)=ITALIC$
  307. If Rdialog(1,27)=1 Then UL4$(LABEL_NUMBER)=UNDERLINE$
  308. E$(LABEL_NUMBER)=Rdialog$(1,6)
  309. If Rdialog(1,44)=1 Then S5(LABEL_NUMBER)=(40-Len(E$(LABEL_NUMBER)))/2
  310. If Rdialog(1,28)=1 Then BL5$(LABEL_NUMBER)=BOLD$
  311. If Rdialog(1,29)=1 Then IT5$(LABEL_NUMBER)=ITALIC$
  312. If Rdialog(1,30)=1 Then UL5$(LABEL_NUMBER)=UNDERLINE$
  313. F$(LABEL_NUMBER)=Rdialog$(1,7)
  314. If Rdialog(1,45)=1 Then S6(LABEL_NUMBER)=(40-Len(F$(LABEL_NUMBER)))/2
  315. If Rdialog(1,31)=1 Then BL6$(LABEL_NUMBER)=BOLD$
  316. If Rdialog(1,32)=1 Then IT6$(LABEL_NUMBER)=ITALIC$
  317. If Rdialog(1,33)=1 Then UL6$(LABEL_NUMBER)=UNDERLINE$
  318. G$(LABEL_NUMBER)=Rdialog$(1,8)
  319. If Rdialog(1,46)=1 Then S7(LABEL_NUMBER)=(40-Len(G$(LABEL_NUMBER)))/2
  320. If Rdialog(1,34)=1 Then BL7$(LABEL_NUMBER)=BOLD$
  321. If Rdialog(1,35)=1 Then IT7$(LABEL_NUMBER)=ITALIC$
  322. If Rdialog(1,36)=1 Then UL7$(LABEL_NUMBER)=UNDERLINE$
  323. Return 
  324.  
  325. PR:
  326. Gosub _GET_STRING
  327. NORM$=(ESC$+"[22m")+(ESC$+"[23m")+(ESC$+"[24m")+(ESC$+"[0m")
  328. Open Port 3,"PRT:"
  329. If Port(3)=False
  330.    MESS1$="The printer isn't responding.  Check that it's ON-LINE.  And try again."
  331.    MESS2$="The problem could be that you don't own a printer.  Silly you."
  332.    MESS3$="But then again it could probably just be cableing/connector problems."
  333.    Gosub MESS
  334.    Close 3
  335.    Return 
  336. End If 
  337. X=Free
  338. If Rdialog(1,37)=1 Then Print #3,ESC$+"D"
  339. Dialog Freeze 1
  340. Print #3,ESC$+'[2"z'
  341. Print #3,Space$(S1(LABEL_NUMBER))+BL1$(LABEL_NUMBER)+IT1$(LABEL_NUMBER)+UL1$(LABEL_NUMBER)+A$(LABEL_NUMBER)+NORM$
  342. Print #3,Space$(S2(LABEL_NUMBER))+BL2$(LABEL_NUMBER)+IT2$(LABEL_NUMBER)+UL2$(LABEL_NUMBER)+B$(LABEL_NUMBER)+NORM$
  343. Print #3,Space$(S3(LABEL_NUMBER))+BL3$(LABEL_NUMBER)+IT3$(LABEL_NUMBER)+UL3$(LABEL_NUMBER)+C$(LABEL_NUMBER)+NORM$
  344. Print #3,Space$(S4(LABEL_NUMBER))+BL4$(LABEL_NUMBER)+IT4$(LABEL_NUMBER)+UL4$(LABEL_NUMBER)+D$(LABEL_NUMBER)+NORM$
  345. Print #3,Space$(S5(LABEL_NUMBER))+BL5$(LABEL_NUMBER)+IT5$(LABEL_NUMBER)+UL5$(LABEL_NUMBER)+E$(LABEL_NUMBER)+NORM$
  346. Print #3,Space$(S6(LABEL_NUMBER))+BL6$(LABEL_NUMBER)+IT6$(LABEL_NUMBER)+UL6$(LABEL_NUMBER)+F$(LABEL_NUMBER)+NORM$
  347. Print #3,Space$(S7(LABEL_NUMBER))+BL7$(LABEL_NUMBER)+IT7$(LABEL_NUMBER)+UL7$(LABEL_NUMBER)+G$(LABEL_NUMBER)+NORM$
  348. Close 3
  349. Dialog Unfreeze 1
  350. Return 
  351.  
  352. MESS:
  353. Dialog Freeze 1
  354. Window 0
  355. Gr Writing 1
  356. Text 20,214,MESS1$
  357. Text 20,224,MESS2$
  358. Text 20,234,MESS3$
  359. While Mouse Key=0 : Wend 
  360. Ink 0 : Bar 20,205 To 620,235
  361. Gr Writing 0
  362. Dialog Unfreeze 1
  363. Return 
  364.  
  365. ER:
  366. MESS1$="Some sort of error which calls itself: "+Str$(Errn)+" "+Err$(Errn)
  367. If Errn=171 or Errn=177 Then MESS1$="The printer port is currently in use by something." : MESS2$="If your dick is in it please remove and click"
  368. If Errn=174 Then MESS1$="Please check cables as nothing can get through to the printer!"
  369. If Errn=172 Then MESS1$="This Amiga and printer have eaten all the memory up.  Feed me!"
  370. Gosub MESS
  371. Resume MAIN
  372.  
  373. WIPE:
  374. For LLLL=1 To 16
  375.    A$(LLLL)=""
  376.    B$(LLLL)=""
  377.    C$(LLLL)=""
  378.    D$(LLLL)=""
  379.    E$(LLLL)=""
  380.    F$(LLLL)=""
  381.    G$(LLLL)=""
  382.    BL1$(LLLL)=""
  383.    IT1$(LLLL)=""
  384.    UL1$(LLLL)=""
  385.    BL2$(LLLL)=""
  386.    IT2$(LLLL)=""
  387.    UL2$(LLLL)=""
  388.    BL3$(LLLL)=""
  389.    IT3$(LLLL)=""
  390.    UL3$(LLLL)=""
  391.    BL4$(LLLL)=""
  392.    IT4$(LLLL)=""
  393.    UL4$(LLLL)=""
  394.    BL5$(LLLL)=""
  395.    IT5$(LLLL)=""
  396.    UL5$(LLLL)=""
  397.    BL6$(LLLL)=""
  398.    IT6$(LLLL)=""
  399.    UL6$(LLLL)=""
  400.    BL7$(LLLL)=""
  401.    IT7$(LLLL)=""
  402.    UL7$(LLLL)=""
  403. Next LLLL
  404. Gosub UP
  405. Return 
  406.  
  407. Procedure ABOUT
  408.    ABOUT$="BA 140,50;SI 376,136;SA 1;"
  409.    ABOUT$=ABOUT$+"BO 0,0,1,376,136;IN 2,0,2;SP 2,0;GB 4,11,371,133;IN 1,0,2;SP 0,0;"
  410.    ABOUT$=ABOUT$+"BO 8,16,19,368,128;"
  411.    ABOUT$=ABOUT$+"BU 1,280,108,80,15,0,0,1;[LI 0,0,3BP*28+,80;PR 12,4,'WICKED!',1BP+;][BR 0;]"
  412.    ABOUT$=ABOUT$+"PR 160,23,'cODED bY',2;"
  413.    ABOUT$=ABOUT$+"PR 176,36,'GUI bY',2;"
  414.    ABOUT$=ABOUT$+"PO 240,23,'ßudda/NFA',3,2;"
  415.    ABOUT$=ABOUT$+"PO 240,36,'ßudda/NFA',3,2;"
  416.    ABOUT$=ABOUT$+"PR 32,56,'Easy to use label designer.  Created to',1;"
  417.    ABOUT$=ABOUT$+"PR 24,64,'allow me to print text onto address labels',1;"
  418.    ABOUT$=ABOUT$+"PR 24,72,'to use as disk labels and jiffy stickers!',1;"
  419.    ABOUT$=ABOUT$+"PR 112,80,'Use it how you wish.',1;"
  420.    ABOUT$=ABOUT$+"PR 32,88,'Before printing to any labels do a test',1;"
  421.    ABOUT$=ABOUT$+"PR 16,96,'and see if everything is in-line. Good Luck',1;"
  422.    ABOUT$=ABOUT$+"PR 8,2,'ABOUT THIS SILLY LITTLE PROGRAM',1;"
  423.    ABOUT$=ABOUT$+"BU 2,16,111,24,11,"+(Str$(MUS)-" ")+",0,1;[UN 0,0,40BP-;][]"
  424.    ABOUT$=ABOUT$+"PR 48,113,'Music?',1;"
  425.    ABOUT$=ABOUT$+"EX;"
  426.    Dialog Freeze 1
  427.    Dialog Open 2,ABOUT$
  428.    XXX=Dialog Run(2)
  429.    Paste Icon 150,68,1
  430.    Do 
  431.       BT=Dialog(2)
  432.       If BT=2
  433.          If Rdialog(2,2)=0
  434.             St Pause On 
  435.             MUS=0
  436.          End If 
  437.          If Rdialog(2,2)=1
  438.             St Pause Off 
  439.             MUS=1
  440.          End If 
  441.       End If 
  442.       Exit If BT=1
  443.    Loop 
  444.    Dialog Close 2
  445.    Dialog Unfreeze 1
  446. End Proc
  447. Procedure _FILE[MSG$,MO]
  448.    If Exist("libs:req.library")=True
  449.       Amos To Back 
  450.       Lpos Freq 75,2
  451.       Lcust Freq 16,40,20
  452.       Lset Freq Dir Dir$
  453.       FILE$=Lfreq(MSG$,MO+$20+$4+$40+$80)
  454.       Amos To Front 
  455.    End If 
  456. End Proc[FILE$]
  457. Procedure CONVERT[L$,WAY]
  458.    For I=1 To Len(L$)
  459.       A$=Mid$(L$,I,1)
  460.       If WAY=1
  461.          If A$=","
  462.             Mid$(L$,I,1)="|"
  463.          End If 
  464.       End If 
  465.       If WAY=2
  466.          If A$="|"
  467.             Mid$(L$,I,1)=","
  468.          End If 
  469.       End If 
  470.    Next I
  471. End Proc[L$]
  472.  
  473.  
  474.  
  475.  
  476.  
  477.  
  478.  
  479.  
  480.