home *** CD-ROM | disk | FTP | other *** search
/ Pegasus Graphics Universe / Pegasus_Graphics_Universe.iso / p11 / fonts / font04 / fonts.txt < prev    next >
Text File  |  1992-12-20  |  8KB  |  245 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 /ASMS/ASMTESTS/081104PM.FON
  73. This is 081104NW.FON.
  74. \CALL TXTLNS
  75. \X MODE6\SCREEN 1,1,6
  76. \READ /P11/FONTS/FONT06/081106NW.FON
  77. \LOC 0,170\WID 640 DOTS\HEIGH 14\OVER 0,A,1
  78. F2--NEW MODE   F9--END   F10--MAIN MENU
  79. \LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
  80. \READ /P11/FONTS/FONT06/081106NW.FON
  81. This is 081106NW.FON.
  82. \CALL TXTLNS\READ /P11/FONTS/FONT06/081106PW.FON
  83. This is 081106PW.FON.
  84. \CALL TXTLNS\READ /P11/FONTS/FONT06/161506NW.FON
  85. This is 161506NW.FON.
  86. \CALL TXTLNS\READ /P11/FONTS/FONT06/162006NW.FON
  87. This is 162006NW.FON.
  88. \CALL TXTLNS\READ /P11/FONTS/FONT06/162006PW.FON
  89. This is 162006PW.FON.
  90. \CALL TXTLNS\READ /P11/FONTS/FONT06/242206PW.FON
  91. This is 242206PW.FON.
  92. \CALL TXTLNS\READ /P11/FONTS/FONT06/242906NW.FON
  93. This is 242906NW.FON.
  94. \CALL TXTLNS\READ /P11/FONTS/FONT06/242906PW.FON
  95. This is 242906PW.FON.
  96. \CALL TXTLNS
  97. \X MODE9\ON ERROR JUMP MODE17\SCREE 0,0,9\ON ERROR
  98. \WID 320 DOTS
  99. \READ /P11/FONTS/FONT09/081109NW.FON
  100. \LOC 0,170\WID 320 DOTS\HEIGH 14\OVER 0,A,1
  101. F2--NEW MODE   F9--END   F10--MAIN MENU
  102. \LOC 0,0\WID 320 DOTS\OVER 0\HEI 199
  103. \READ /P11/FONTS/FONT09/081109NW.FON
  104. This is 081109NW.FON.
  105. \CALL TXTLNS\READ /P11/FONTS/FONT09/081109PW.FON
  106. This is 081109PW.FON.
  107. \CALL TXTLNS\READ /P11/FONTS/FONT09/162009NW.FON
  108. This is 162009NW.FON.
  109. \CALL TXTLNS\READ /P11/FONTS/FONT09/162009PW.FON
  110. This is 162009PW.FON.
  111. \CALL TXTLNS\READ /P11/FONTS/FONT09/242909NW.FON
  112. This is 242909NW.FON.
  113. \CALL TXTLNS\READ /P11/FONTS/FONT09/242909PW.FON
  114. This is 242909PW.FON.
  115. \CALL TXTLNS\READ /P11/FONTS/FONT09/SNOWRD09.FON
  116. This is SNOWRD09.FON.
  117. \CALL TXTLNS
  118. \X MODE10\ON ERROR JUMP MODE14\SCREE 0,0,10\ON ERROR
  119. \WID 640 DOTS
  120. \READ /P11/FONTS/FONT10/081110NW.FON
  121. \LOC 0,170\WID 640 DOTS\HEIGH 14\OVER 0,A,1
  122. F2--NEW MODE   F9--END   F10--MAIN MENU
  123. \LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
  124. \READ /P11/FONTS/FONT10/081110NW.FON
  125. This is 081110NW.FON.
  126. \CALL TXTLNS\READ /P11/FONTS/FONT10/081110PW.FON
  127. This is 081110PW.FON.
  128. \CALL TXTLNS\READ /P11/FONTS/FONT10/162010NW.FON
  129. This is 162010NW.FON.
  130. \CALL TXTLNS\READ /P11/FONTS/FONT10/162010PW.FON
  131. This is 162010PW.FON.
  132. \CALL TXTLNS\READ /P11/FONTS/FONT10/242910NW.FON
  133. This is 242910NW.FON.
  134. \CALL TXTLNS\READ /P11/FONTS/FONT10/242910PW.FON
  135. This is 242910PW.FON.
  136. \CALL TXTLNS
  137. \X MODE13\ON ERROR JUMP MODE14\SCREE 0,0,13\ON ERROR
  138. \READ /P11/FONTS/FONT13/081113NW.FON\WAIT RET 2
  139. \LOC 0,170\WID 320 DOTS\HEIGH 11\OVER 0,A,1
  140. F2--NEW MODE   F9--END   F10--MAIN MENU
  141. \LOC 0,0\WID 320 DOTS\OVER 0\HEI 199
  142. \READ /P11/FONTS/FONT13/081113NW.FON
  143. This is 081113NW.FON.
  144. \CALL TXTLNS
  145. \READ /P11/FONTS/FONT13/081113PW.FON
  146. This is 081113PW.FON.
  147. \CALL TXTLNS\READ /P11/FONTS/FONT13/242213PW.FON
  148. This is 242213PW.FON.
  149. \CALL TXTLNS\READ /P11/FONTS/FONT13/242913PW.FON
  150. This is 242913PW.FON.
  151. \CALL TXTLNS
  152. \X MODE14\ON ERROR JUMP MODE16\SCREE 0,0,14\ON ERROR
  153. \READ /P11/FONTS/FONT14/081114NW.FON\WAIT RET 2
  154. \LOC 0,170\WID 640 DOTS\HEIGH 11\OVER 0,A,1
  155. F2--NEW MODE   F9--END   F10--MAIN MENU
  156. \LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
  157. \READ /P11/FONTS/FONT14/081114NW.FON
  158. This is 081114NW.FON.
  159. \CALL TXTLNS
  160. \READ /P11/FONTS/FONT14/081114PW.FON
  161. This is 081114PW.FON.
  162. \CALL TXTLNS\READ /P11/FONTS/FONT14/242214PW.FON
  163. This is 242214PW.FON.
  164. \CALL TXTLNS\READ /P11/FONTS/FONT14/242914PW.FON
  165. This is 242914PW.FON.
  166. \CALL TXTLNS
  167. \X MODE16\ON ERROR JUMP MODE17\SCREE 0,0,16\ON ERROR
  168. \READ /P11/FONTS/FONT16/081116NW.FON
  169. \LOC 0,170\WID 640 DOTS\HEIGH 11\OVER 0,A,1
  170. F2--NEW MODE   F9--END   F10--MAIN MENU
  171. \LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
  172. \READ /P11/FONTS/FONT16/081116NW.FON
  173. This is 081116NW.FON.
  174. \CALL TXTLNS\READ /P11/FONTS/FONT16/081116PW.FON
  175. This is 081116PW.FON.
  176. \CALL TXTLNS\READ /P11/FONTS/FONT16/162016NW.FON
  177. This is 162016NW.FON.
  178. \CALL TXTLNS\READ /P11/FONTS/FONT16/162016PW.FON
  179. This is 162016PW.FON.
  180. \CALL TXTLNS\READ /P11/FONTS/FONT16/242016NW.FON
  181. This is 242016NW.FON.
  182. \CALL TXTLNS\READ /P11/FONTS/FONT16/242916NW.FON
  183. This is 242916NW.FON.
  184. \CALL TXTLNS\READ /P11/FONTS/FONT16/242916PW.FON
  185. This is 242916PW.FON.
  186. \CALL TXTLNS
  187. \X MODE17\ON ERROR JUMP MODE18\SCREE 0,0,17\ON ERROR
  188. \READ /P11/FONTS/FONT17/081117NW.FON
  189. \LOC 0,170\WID 640 DOTS\HEIGH 11\OVER 0,A,1
  190. F2--NEW MODE   F9--END   F10--MAIN MENU
  191. \LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
  192. \READ /P11/FONTS/FONT17/081117NW.FON
  193. This is 081117NW.FON.
  194. \CALL TXTLNS\READ /P11/FONTS/FONT17/081117PW.FON
  195. This is 081117PW.FON.
  196. \CALL TXTLNS\READ /P11/FONTS/FONT17/162017NW.FON
  197. This is 162017NW.FON.
  198. \CALL TXTLNS\READ /P11/FONTS/FONT17/162017PW.FON
  199. This is 162017PW.FON.
  200. \CALL TXTLNS\READ /P11/FONTS/FONT17/242017NW.FON
  201. This is 242017NW.FON.
  202. \CALL TXTLNS\READ /P11/FONTS/FONT17/242917NW.FON
  203. This is 242917NW.FON.
  204. \CALL TXTLNS\READ /P11/FONTS/FONT17/242917PW.FON
  205. This is 242917PW.FON.
  206. \CALL TXTLNS
  207. \X MODE18\ON ERROR JUMP MODE19\SCREE 0,0,18\ON ERROR
  208. \READ /P11/FONTS/FONT18/081118NW.FON
  209. \LOC 0,170\WID 640 DOTS\HEIGH 11\OVER 0,A,1
  210. F2--NEW MODE   F9--END   F10--MAIN MENU
  211. \LOC 0,0\WID 640 DOTS\OVER 0\HEI 199
  212. \READ /P11/FONTS/FONT18/081118NW.FON
  213. This is 081118NW.FON.
  214. \CALL TXTLNS\READ /P11/FONTS/FONT18/081118PW.FON
  215. This is 081118PW.FON.
  216. \CALL TXTLNS\READ /P11/FONTS/FONT18/162018NW.FON
  217. This is 162018NW.FON.
  218. \CALL TXTLNS\READ /P11/FONTS/FONT18/162018PW.FON
  219. This is 162018PW.FON.
  220. \CALL TXTLNS\READ /P11/FONTS/FONT18/242018NW.FON
  221. This is 242018NW.FON.
  222. \CALL TXTLNS\READ /P11/FONTS/FONT18/242918NW.FON
  223. This is 242918NW.FON.
  224. \CALL TXTLNS\READ /P11/FONTS/FONT18/242918PW.FON
  225. This is 242918PW.FON.
  226. \CALL TXTLNS
  227. \X MODE19\WID 320 DOTS
  228. \ON ERROR JUMP MAINSCREEN\SCREEN 0,0,19\ON ERROR
  229. \READ /P11/FONTS/FONT19/081119NW.FON
  230. \LOC 0,170\WID 320 DOTS\HEIGH 14\OVER 0,A,1
  231. F2--NEW MODE   F9--END   F10--MAIN MENU
  232. \LOC 0,0\WID 320 DOTS\OVER 0\HEI 199
  233. \READ /ASMS/ASMTESTS/162019PM.FON
  234. This is 162019PM.FON.
  235. \CALL TXTLNS
  236. \JUMP MAINSCREEN
  237. \X TXTLNS\LOC 0,60\HEI 100\SCROLL 1
  238. the quick brown fox jumps over the lazy dog.
  239. THE QUICK BROWN FOX JUMPS OVER THE LAZY DOG.
  240. ~1234568790-=\[];',./
  241. `!@#$%^&*()_+|{}:"<>?
  242. \WAIT RETURN -1\BLANK 0,0,640,168\LOC 0,0\OVER 0\HEI 199
  243. \RETURN
  244. \X ENDIT\END
  245.