home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / dosutils / managsrc.arj / PRINTERU.ASI < prev    next >
Encoding:
Text File  |  1992-05-23  |  4.6 KB  |  315 lines
  1. b$=chr$(27)
  2.  
  3. printers:
  4. cls
  5. print "Here are the printers you can select:"
  6. print
  7. print
  8. print "F1- AEG Olympia NP 80-24E, Epson Mode."
  9. print
  10. print "F2- AEG Olympia NP 80-24E, IBM Mode."
  11. print
  12. print "F3- AEG Olympia NP 80-24E, IBM AGM Mode."
  13. print
  14. print "Esc- Quit."
  15. print
  16. print
  17. print "Please press the key corresponding to your choice. ";
  18.  
  19. wait:
  20. gosub continue:
  21.  
  22. if a$=b$ then
  23. end
  24. endif
  25.  
  26. if extended=0 then wait:
  27. if a$=";" then aegolyme:
  28. if a$="<" then aegolymi:
  29. if a$="=" then aegolyia:
  30. goto wait:
  31.  
  32. aegolyme:
  33. cls
  34. print "Here are the features you can select:"
  35. print
  36. print
  37. print "F1- Character Pitch and Printing Modes."
  38. print
  39. print "Esc- Quit This Menu."
  40. print
  41. print
  42. print "Please press the key corresponding to your choice. ";
  43.  
  44. wait1:
  45. gosub continue:
  46. if a$=b$ then printers:
  47. if extended=0 then wait1:
  48. if a$=";" then characte:
  49. goto wait1:
  50.  
  51. characte:
  52. cls
  53. print "Here are the features you can select:"
  54. print
  55. print
  56. print "F1- 10 CPI (Pica)."
  57. print
  58. print "F2- 12 CPI (Elite)."                     
  59. print
  60. print "F3- 15 CPI."                             
  61. print
  62. print "F4- Toggle Proportional On/Off."
  63. print
  64. print "F5- Select Condensed."
  65. print
  66. print "F6- Cancel Condensed."
  67. print
  68. print "F7- Select/Cancel Double-Width."
  69. print
  70. print "N- Next Menu."
  71. print
  72. print "Esc- Quit This Menu."
  73. print
  74. print
  75. print "Please press the key corresponding to your choice. ";
  76.  
  77. wait2:
  78. gosub continue:
  79. if a$=b$ then aegolyme:
  80. if a$="n" then charact2:
  81. if a$="N" then charact2:
  82. if extended=0 then wait2:
  83. if a$=";" then pica:
  84. if a$="<" then elite:
  85. if a$="=" then fifteenc:
  86. if a$=">" then proporti:
  87. if a$="?" then selectco:
  88. if a$="@" then cancelco:
  89. if a$="A" then doublewi:
  90. goto wait2:
  91.  
  92. pica:
  93. a$=b$+"P"
  94. lprint a$
  95. gosub testchar:
  96. goto characte:
  97.  
  98. elite:
  99. a$=b$+"M"
  100. lprint a$
  101. gosub testchar:
  102. goto characte:
  103.  
  104. fifteenc:
  105. a$=b$+"g"
  106. lprint a$
  107. gosub testchar:
  108. goto characte:
  109.  
  110. proporti:
  111.  
  112. if proporti=0 then
  113. a$=b$+"p 1"
  114. lprint a$
  115. proporti=1
  116. gosub testchar:
  117. goto characte:
  118. endif
  119.  
  120. if proporti=1 then
  121. a$=b$+"p 0"
  122. lprint a$
  123. proporti=0
  124. gosub testchar:
  125. goto characte:
  126. endif
  127.  
  128. selectco:
  129. a$=b$+"SI"
  130. lprint a$
  131. gosub testchar:
  132. goto characte:
  133.  
  134. cancelco:
  135. a$=chr$(18)
  136. lprint a$
  137. gosub testchar:
  138. goto characte:
  139.  
  140. doublewi:
  141.  
  142. if doublewi=0 then
  143. a$=b$+"W 1"
  144. lprint a$
  145. doublewi=1
  146. gosub testchar:
  147. goto characte:
  148. endif
  149.  
  150. if doublewi=1 then
  151. a$=b$+"W 0"
  152. lprint a$
  153. doublewi=0
  154. gosub testchar:
  155. goto characte:
  156. endif
  157.  
  158. charact2:
  159. cls
  160. print "Here are the remaining features you can select:"
  161. print
  162. print
  163. print "F8- Select Bold."
  164. print
  165. print "F9- Cancel Bold."
  166. print
  167. print "F10- Select/Cancel Double-Height."
  168. print
  169. print "<Alt-F1>- Select Superscript."
  170. print
  171. print "<Alt-F2>- Select Subscript."
  172. print
  173. print "<Alt-F3>- Cancel Superscript."
  174. print
  175. print "<Alt-F4>- Cancel Subscript."
  176. print
  177. print "<Alt-F5>- Select/Cancel Underlining."
  178. print
  179. print "Esc- Quit This Menu."
  180. print
  181. print
  182. print "Please press the key corresponding to your choice. ";
  183.  
  184. wait3:
  185. gosub continue:
  186. if a$=b$ then characte:
  187. if extended=0 then wait3:
  188. if a$="B" then selectbo:
  189. if a$="C" then cancelbo:
  190. if a$="D" then doublehe:
  191. if a$="h" then selectsu:
  192. if a$="i" then selectsb:
  193. if a$="j" then cancelsu:
  194. if a$="k" then cancelsb:
  195. if a$="l" then underlin:
  196. goto wait3:
  197.  
  198. selectbo:
  199. a$=b$+"E"
  200. lprint a$
  201. a$=b$+"G"
  202. lprint a$
  203. gosub testchar:
  204. goto charact2:
  205.  
  206. cancelbo:
  207. a$=b$+"F"
  208. lprint a$
  209. a$=b$+"H"
  210. lprint a$
  211. gosub testchar:
  212. goto charact2:
  213.  
  214. doublehe:
  215.  
  216. if doublehe=0 then
  217. a$=b$+"w 1"
  218. lprint a$
  219. doublehe=1
  220. gosub testchar:
  221. goto charact2:
  222. endif
  223.  
  224. if doublehe=1 then
  225. a$=b$+"w 0"
  226. lprint a$
  227. doublehe=0
  228. gosub testchar:
  229. goto charact2:
  230. endif
  231.  
  232. selectsu:
  233. a$=b$+"S 1"
  234. lprint a$
  235. gosub testchar:
  236. goto charact2:
  237.  
  238. selectsb:
  239. a$=b$+"S 0"
  240. lprint a$
  241. gosub testchar:
  242. goto charact2:
  243.  
  244. cancelsu:
  245. a$=b$+"T"
  246. lprint a$
  247. gosub testchar:
  248. goto charact2:
  249.  
  250. cancelsb:
  251. a$=b$+"T"
  252. lprint a$
  253. gosub testchar:
  254. goto charact2:
  255.  
  256. underlin:
  257.  
  258. if underlin=0 then
  259. a$=b$+"- 1"
  260. lprint a$
  261. underlin=1
  262. gosub testchar:
  263. goto charact2:
  264. endif
  265.  
  266. if underlin=1 then
  267. a$=b$+"- 0"
  268. lprint a$
  269. underlin=0
  270. gosub testchar:
  271. goto charact2:
  272. endif
  273.  
  274. aegolymi:
  275. end
  276.  
  277. aegolyia:
  278. end
  279.  
  280. continue:
  281. a$=inkey$
  282. if a$="" then continue:
  283. return
  284.  
  285. testchar:
  286. cls
  287. print "Do you want to test the feature you've selected? ";
  288. gosub continue:
  289.  
  290. if a$="y" then
  291. lprint "This is a test."
  292. print
  293. print "Press any key to return to the Character Menu. ";
  294. gosub continue:
  295. return
  296. endif
  297.  
  298. if a$="Y" then
  299. lprint "This is a test."
  300. print
  301. print "Press any key to return to the Character Menu. ";
  302. gosub continue:
  303. return
  304. endif
  305.  
  306. if a$="n" then
  307. return
  308. endif
  309.  
  310. if a$="N" then
  311. return
  312. endif
  313.  
  314. end
  315.