home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / fonts / fonts.txt < prev    next >
Text File  |  1992-11-26  |  10KB  |  279 lines
  1. \ON KEY F2 JUMP SETMODE
  2. \ON KEY F9 JUMP ENDIT
  3. \ON KEY F10 JUMP MAINSCREEN
  4. \X MAINSCREEN\WIDTH 320 DOTS
  5. \SCREEN 0,0,4\READ /P11/FONTS/FONT04/081104PW.FON\CLEAR SCREEN
  6. \LOCATE 0,170\WIDTH 320 DOTS\HEIGHT 199\OVERLAY 0,A,2
  7. F2--NEW MODE   F9--END   F10--MAIN MENU
  8. \LOC 0,0\WID 320 DOTS\HEI 199\OVER 0,A,1
  9. This program will display all the fonts:
  10. \"
  11. The fonts are for screen modes:
  12. 4 4-color mode (includes mode 5)
  13. 6 2-color    (CGA)
  14. 9 16-color   (TANDY/TECMAR ONLY)
  15. 10 4-color   (TANDY/TECMAR ONLY)
  16. 13 16-color  (EGA)
  17. 14 16-color  (TANDY/TECMAR ONLY)
  18. 16 16-color  (EGA)
  19. 17 2-color   (VGA)
  20. 18 16-color  (VGA)
  21. 19 256-color (VGA)
  22. \"
  23. Scroll through, or press <F2> and the mode #.
  24. \ON KEY F2 JUMP SETMODE
  25. \WAIT RETURN -1
  26. \LOC 0,0
  27. Most fonts are named with a 6-number
  28. prefix consisting of the x-axis width,
  29. the y-axis width, and the mode number,
  30. each 2 digits.
  31. Next is a one-character code indicating
  32. whether the font is proportional (P) or
  33. non-proportional (N).  Non-proportional
  34. fonts can be displayed much faster than
  35. proportional ones but generally do not
  36. look as nice.  For proportional fonts
  37. the x-axis width is generally the width
  38. of the widest character (usually W).
  39. This is only a naming style, not a rule.
  40. \"
  41. \WAIT RETURN -1\LOC 0,0
  42. The last character is the color, which is
  43. normally white (W). Other colors and
  44. backgrounds can be made during display
  45. time by using a code in the \OVER,
  46. \"\SCROLL, and \CRAWL commands.
  47. \"
  48. For bitplane fonts (modes 13, 16 and 18)
  49. the font must be created as a bitmapped
  50. font in a monochrome mode (such as mode
  51. 17 or 6) and then the mode number should 
  52. be changed inside the file header (see
  53. the technical documentation for details
  54. on how to do this.)
  55. \"
  56. \WAIT RETURN -1\JUMP MODE4\X SETMODE
  57. \CLEAR SCREEN\LOC 0,0\WID 300 DOTS\OVER 0\HEI 99
  58. ENTER MODE #: (4,5,6,9,10,13,14,16,17,18,19)
  59. \CURSOR 8,8\QUESTION M
  60. \ON KEY F1 JUMP MAINSCREEN
  61. \ON KEY F2 JUMP SETMODE
  62. \ON KEY F9 JUMP ENDIT
  63. \ON KEY F10 JUMP MAINSCREEN
  64. \IF M<=5\JUMP MODE4\ELSE\IF M<=6\JUMP MODE6\ELSE\IF M<=9\JUMP MODE9\ELSE
  65. \IF M<=10\JUMP MODE10\ELSE\IF M<=13\JUMP MODE13\ELSE
  66. \IF M<=14\JUMP MODE14\ELSE\IF M<=16\JUMP MODE16\ELSE
  67. \IF M<=17\JUMP MODE17\ELSE\IF M<=18\JUMP MODE18\ELSE
  68. \IF M<=19\JUMP MODE19\ELSE
  69. \BEEP 55,55\BEEP 777,444\JUMP SETMODE\ENDIF
  70. \X MODE4\BLANK 0,0,640,169
  71. \LOC 0,0\WID 320 DOTS\OVER 0\HEI 199
  72. \READ /P11/FONTS/FONT04/081104NW.FON
  73. This is 081104NW.FON.
  74. \CALL TXTLNS\READ /P11/FONTS/FONT04/081104PW.FON
  75. This is 081104PW.FON.
  76. \CALL TXTLNS\READ /P11/FONTS/FONT04/162004NW.FON
  77. This is 162004NW.FON.
  78. \CALL TXTLNS\READ /P11/FONTS/FONT04/162004PW.FON
  79. This is 162004PW.FON.
  80. \CALL TXTLNS\READ /P11/FONTS/FONT04/222904NG.FON
  81. This is 222904NG.FON.
  82. \CALL TXTLNS\READ /P11/FONTS/FONT04/242904NW.FON
  83. This is 242904NW.FON.
  84. \CALL TXTLNS\READ /P11/FONTS/FONT04/242904PW.FON
  85. This is 242904PW.FON.
  86. \CALL TXTLNS\READ /P11/FONTS/FONT04/XMASSHOW.FON
  87. This is XMASSHOW.FON.
  88. \CALL TXTLNS\READ /P11/FONTS/FONT04/SNOWRD04.FON
  89. This is SNOWRD04.FON.
  90. \CALL TXTLNS\READ /P11/FONTS/FONT04/SMALLGRN.FON
  91. This is SMALLGRN.FON.
  92. \CALL TXTLNS
  93. \X MODE6\SCREEN 1,1,6
  94. \READ /P11/FONTS/FONT06/081106NW.FON
  95. \LOC 0,170\WID 640 DOTS\HEIGH 14\OVER 0,A,1
  96. F2--NEW MODE   F9--END   F10--MAIN MENU
  97. \LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
  98. \READ /P11/FONTS/FONT06/081106NW.FON
  99. This is 081106NW.FON.
  100. \CALL TXTLNS\READ /P11/FONTS/FONT06/081106PW.FON
  101. This is 081106PW.FON.
  102. \CALL TXTLNS\READ /P11/FONTS/FONT06/161506NW.FON
  103. This is 161506NW.FON.
  104. \CALL TXTLNS\READ /P11/FONTS/FONT06/162006NW.FON
  105. This is 162006NW.FON.
  106. \CALL TXTLNS\READ /P11/FONTS/FONT06/162006PW.FON
  107. This is 162006PW.FON.
  108. \CALL TXTLNS\READ /P11/FONTS/FONT06/242206PW.FON
  109. This is 242206PW.FON.
  110. \CALL TXTLNS\READ /P11/FONTS/FONT06/242906NW.FON
  111. This is 242906NW.FON.
  112. \CALL TXTLNS\READ /P11/FONTS/FONT06/242906PW.FON
  113. This is 242906PW.FON.
  114. \CALL TXTLNS
  115. \X MODE9\ON ERROR JUMP MODE17\SCREE 0,0,9\ON ERROR
  116. \WID 320 DOTS
  117. \READ /P11/FONTS/FONT09/081109NW.FON
  118. \LOC 0,170\WID 320 DOTS\HEIGH 14\OVER 0,A,1
  119. F2--NEW MODE   F9--END   F10--MAIN MENU
  120. \LOC 0,0\WID 320 DOTS\OVER 0\HEI 199
  121. \READ /P11/FONTS/FONT09/081109NW.FON
  122. This is 081109NW.FON.
  123. \CALL TXTLNS\READ /P11/FONTS/FONT09/081109PW.FON
  124. This is 081109PW.FON.
  125. \CALL TXTLNS\READ /P11/FONTS/FONT09/162009NW.FON
  126. This is 162009NW.FON.
  127. \CALL TXTLNS\READ /P11/FONTS/FONT09/162009PW.FON
  128. This is 162009PW.FON.
  129. \CALL TXTLNS\READ /P11/FONTS/FONT09/242909NW.FON
  130. This is 242909NW.FON.
  131. \CALL TXTLNS\READ /P11/FONTS/FONT09/242909PW.FON
  132. This is 242909PW.FON.
  133. \CALL TXTLNS\READ /P11/FONTS/FONT09/SNOWRD09.FON
  134. This is SNOWRD09.FON.
  135. \CALL TXTLNS
  136. \X MODE10\ON ERROR JUMP MODE14\SCREE 0,0,10\ON ERROR
  137. \WID 640 DOTS
  138. \READ /P11/FONTS/FONT10/081110NW.FON
  139. \LOC 0,170\WID 640 DOTS\HEIGH 14\OVER 0,A,1
  140. F2--NEW MODE   F9--END   F10--MAIN MENU
  141. \LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
  142. \READ /P11/FONTS/FONT10/081110NW.FON
  143. This is 081110NW.FON.
  144. \CALL TXTLNS\READ /P11/FONTS/FONT10/081110PW.FON
  145. This is 081110PW.FON.
  146. \CALL TXTLNS\READ /P11/FONTS/FONT10/162010NW.FON
  147. This is 162010NW.FON.
  148. \CALL TXTLNS\READ /P11/FONTS/FONT10/162010PW.FON
  149. This is 162010PW.FON.
  150. \CALL TXTLNS\READ /P11/FONTS/FONT10/242910NW.FON
  151. This is 242910NW.FON.
  152. \CALL TXTLNS\READ /P11/FONTS/FONT10/242910PW.FON
  153. This is 242910PW.FON.
  154. \CALL TXTLNS
  155. \X MODE13\ON ERROR JUMP MODE14\SCREE 0,0,13\ON ERROR
  156. \READ /P11/FONTS/FONT13/081113NW.FON\WAIT RET 2
  157. \LOC 0,170\WID 320 DOTS\HEIGH 11\OVER 0,A,1
  158. F2--NEW MODE   F9--END   F10--MAIN MENU
  159. \LOC 0,0\WID 320 DOTS\OVER 0\HEI 199
  160. \READ /P11/FONTS/FONT13/081113NW.FON
  161. This is 081113NW.FON.
  162. \CALL TXTLNS
  163. \READ /P11/FONTS/FONT13/081113PW.FON
  164. This is 081113PW.FON.
  165. \CALL TXTLNS\READ /P11/FONTS/FONT13/242213PW.FON
  166. This is 242213PW.FON.
  167. \CALL TXTLNS\READ /P11/FONTS/FONT13/242913PW.FON
  168. This is 242913PW.FON.
  169. \CALL TXTLNS
  170. \X MODE14\ON ERROR JUMP MODE16\SCREE 0,0,14\ON ERROR
  171. \READ /P11/FONTS/FONT14/081114NW.FON\WAIT RET 2
  172. \LOC 0,170\WID 640 DOTS\HEIGH 11\OVER 0,A,1
  173. F2--NEW MODE   F9--END   F10--MAIN MENU
  174. \LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
  175. \READ /P11/FONTS/FONT14/081114NW.FON
  176. This is 081114NW.FON.
  177. \CALL TXTLNS
  178. \READ /P11/FONTS/FONT14/081114PW.FON
  179. This is 081114PW.FON.
  180. \CALL TXTLNS\READ /P11/FONTS/FONT14/242214PW.FON
  181. This is 242214PW.FON.
  182. \CALL TXTLNS\READ /P11/FONTS/FONT14/242914PW.FON
  183. This is 242914PW.FON.
  184. \CALL TXTLNS
  185. \X MODE16\ON ERROR JUMP MODE17\SCREE 0,0,16\ON ERROR
  186. \READ /P11/FONTS/FONT16/081116NW.FON
  187. \LOC 0,170\WID 640 DOTS\HEIGH 11\OVER 0,A,1
  188. F2--NEW MODE   F9--END   F10--MAIN MENU
  189. \LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
  190. \READ /P11/FONTS/FONT16/081116NW.FON
  191. This is 081116NW.FON.
  192. \CALL TXTLNS\READ /P11/FONTS/FONT16/081116PW.FON
  193. This is 081116PW.FON.
  194. \CALL TXTLNS\READ /P11/FONTS/FONT16/162016NW.FON
  195. This is 162016NW.FON.
  196. \CALL TXTLNS\READ /P11/FONTS/FONT16/162016PW.FON
  197. This is 162016PW.FON.
  198. \CALL TXTLNS\READ /P11/FONTS/FONT16/242016NW.FON
  199. This is 242016NW.FON.
  200. \CALL TXTLNS\READ /P11/FONTS/FONT16/242916NW.FON
  201. This is 242916NW.FON.
  202. \CALL TXTLNS\READ /P11/FONTS/FONT16/242916PW.FON
  203. This is 242916PW.FON.
  204. \CALL TXTLNS
  205. \X MODE17\ON ERROR JUMP MODE18\SCREE 0,0,17\ON ERROR
  206. \READ /P11/FONTS/FONT17/081117NW.FON
  207. \LOC 0,170\WID 640 DOTS\HEIGH 11\OVER 0,A,1
  208. F2--NEW MODE   F9--END   F10--MAIN MENU
  209. \LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
  210. \READ /P11/FONTS/FONT17/081117NW.FON
  211. This is 081117NW.FON.
  212. \CALL TXTLNS\READ /P11/FONTS/FONT17/081117PW.FON
  213. This is 081117PW.FON.
  214. \CALL TXTLNS\READ /P11/FONTS/FONT17/162017NW.FON
  215. This is 162017NW.FON.
  216. \CALL TXTLNS\READ /P11/FONTS/FONT17/162017PW.FON
  217. This is 162017PW.FON.
  218. \CALL TXTLNS\READ /P11/FONTS/FONT17/242017NW.FON
  219. This is 242017NW.FON.
  220. \CALL TXTLNS\READ /P11/FONTS/FONT17/242917NW.FON
  221. This is 242917NW.FON.
  222. \CALL TXTLNS\READ /P11/FONTS/FONT17/242917PW.FON
  223. This is 242917PW.FON.
  224. \CALL TXTLNS
  225. \X MODE18\ON ERROR JUMP MODE19\SCREE 0,0,18\ON ERROR
  226. \READ /P11/FONTS/FONT18/081118NW.FON
  227. \LOC 0,170\WID 640 DOTS\HEIGH 11\OVER 0,A,1
  228. F2--NEW MODE   F9--END   F10--MAIN MENU
  229. \LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
  230. \READ /P11/FONTS/FONT18/081118NW.FON
  231. This is 081118NW.FON.
  232. \CALL TXTLNS\READ /P11/FONTS/FONT18/081118PW.FON
  233. This is 081118PW.FON.
  234. \CALL TXTLNS\READ /P11/FONTS/FONT18/162018NW.FON
  235. This is 162018NW.FON.
  236. \CALL TXTLNS\READ /P11/FONTS/FONT18/162018PW.FON
  237. This is 162018PW.FON.
  238. \CALL TXTLNS\READ /P11/FONTS/FONT18/242018NW.FON
  239. This is 242018NW.FON.
  240. \CALL TXTLNS\READ /P11/FONTS/FONT18/242918NW.FON
  241. This is 242918NW.FON.
  242. \CALL TXTLNS\READ /P11/FONTS/FONT18/242918PW.FON
  243. This is 242918PW.FON.
  244. \CALL TXTLNS
  245. \X MODE19\WID 320 DOTS
  246. \ON ERROR JUMP MAINSCREEN\SCREEN 0,0,19\ON ERROR
  247. \READ /P11/FONTS/FONT19/081119NW.FON
  248. \LOC 0,170\WID 320 DOTS\HEIGH 14\OVER 0,A,1
  249. F2--NEW MODE   F9--END   F10--MAIN MENU
  250. \LOC 0,0\WID 320 DOTS\OVER 0\HEI 199
  251. \READ /P11/FONTS/FONT19/081119NW.FON
  252. This is 081119NW.FON.
  253. \CALL TXTLNS\READ /P11/FONTS/FONT19/081119PW.FON
  254. This is 081119PW.FON.
  255. \CALL TXTLNS\READ /P11/FONTS/FONT19/162019NW.FON
  256. This is 162019NW.FON.
  257. \CALL TXTLNS\READ /P11/FONTS/FONT19/162019PW.FON
  258. This is 162019PW.FON.
  259. \CALL TXTLNS\READ /P11/FONTS/FONT19/242919PW.FON
  260. This is 242919PW.FON.
  261. \CALL TXTLNS\READ /P11/FONTS/FONT19/SNOWRD19.FON
  262. This is SNOWRD19.FON.
  263. \CALL TXTLNS\READ /P11/FONTS/FONT19/162019YE.FON
  264. This is 162019YE.FON.
  265. \CALL TXTLNS\READ /P11/FONTS/FONT19/162019GD.FON
  266. This is 162019GD.FON.
  267. \CALL TXTLNS\READ /P11/FONTS/FONT19/FONT_USA.FON
  268. This is FONT_USA.FON.
  269. \CALL TXTLNS
  270. \JUMP MAINSCREEN
  271. \X TXTLNS\LOC 0,60\HEI 100\SCROLL 1
  272. the quick brown fox jumps over the lazy dog.
  273. THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG.
  274. ~1234568790-=\[];',./
  275. `!@#$%^&*()_+|{}:"<>?
  276. \WAIT RETURN -1\BLANK 0,0,640,168\LOC 0,0\OVER 0\HEI 199
  277. \RETURN
  278. \X ENDIT\END
  279.