Kezdőlap Felfedezés Súgó
Bejelentkezés
eric
/
Topspeed_JPI
1
0
Másolás 0
Fájlok Problémák 0 Beolvasztási kérések 0 Wiki
Branch: master
Branch-ok Tag-ek
Topspeed_JPI
/
TS-V3
/
GRAPHIX
/
SAMPLE03.LST

SAMPLE03.LST 9.5 KB
Állandó hivatkozás Előzmények Nyers

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243 
  1. Listing:
    2. 

  2. 

  3.     1  (******************************************************************************)
    4. 

  4.     2  (*                              SAMPLE03.MOD                                  *)
    5. 

  5.     3  (*                                                                            *)
    6. 

  6.     4  (*                             SetFont Example                                *)
    7. 

  7.     5  (* Taken from SAMPLE03.PAS - Metagraphics Software Corporation (c) 1987-1989  *)
    8. 

  8.     6  (*                                                                            *)
    9. 

  9.     7  (* PSW 10/31/90 08:20pm                                                       *)
    10. 

  10.     8  (******************************************************************************)
    11. 

  11.     9  
    12. 

  12.    10  MODULE Sample03;
    13. 

  13.    11  (*
    14. 

  14.    12   *  Graphix
    15. 

  15.    13   *  Release 3.7
    16. 

  16.    14   *  (c) Copyright 1986-1992 PMI
    17. 

  17.    15   *  Green Bay, Wisconsin
    18. 

  18.    16   *  (414) 468-6040
    19. 

  19.    17   *  All rights reserved
    20. 

  20.    18   *
    21. 

  21.    19   *)
    22. 

  22.    20  
    23. 

  23.    21    IMPORT GrQry;
    24. 

  24.    22    IMPORT GrConst;
    25. 

  25.    23    IMPORT GrFonts;
    26. 

  26.    24    IMPORT GrPorts;
    27. 

  27.    25    IMPORT Meta;
    28. 

  28.    26    IMPORT IO;
    29. 

  29.    27  
    30. 

  30.    28  (* standard memory allocation procedures *)
    31. 

  31.    29    FROM Storage IMPORT ALLOCATE, DEALLOCATE, Available;
    32. 

  32.    30  
    33. 

  33.    31    VAR
    34. 

  34.    32      GrafixCard,
    35. 

  35.    33      CommPort:   INTEGER;
    36. 

  36.    34      i, loadErr: INTEGER;
    37. 

  37.    35      font1Ptr,
    38. 

  38.    36      font2Ptr,
    39. 

  39.    37      font3Ptr,
    40. 

  40.    38      original:   GrFonts.adsFont;
    41. 

  41. *****                          ^ not supported yet
    42. 

  42.    39      filename:   ARRAY[0..128] OF CHAR;
    43. 

  43. *****                           ^ not supported yet
    44. 

  44. *****                                   ^ not supported yet
    45. 

  45.    40      scrnR:      GrConst.rect;
    46. 

  46. *****                          ^ not supported yet
    47. 

  47.    41      ch:         CHAR;
    48. 

  48.    42      scrnPort:   GrPorts.adsPort;
    49. 

  49. *****                          ^ not supported yet
    50. 

  50.    43  
    51. 

  51.    44  
    52. 

  52.    45  BEGIN
    53. 

  53.    46    (* init the system *)
    54. 

  54.    47  
    55. 

  55.    48    GrQry.GrInit(GrafixCard, CommPort);
    56. 

  56. *****    ^ not supported yet
    57. 

  57. *****          ^ not supported yet
    58. 

  58. *****                                     ^ not supported yet
    59. 

  59.    49  
    60. 

  60.    50    i := Meta.InitGrafix(-GrafixCard);
    61. 

  61. *****         ^ not supported yet
    62. 

  62. *****              ^ not supported yet
    63. 

  63. *****                                    ^ not supported yet
    64. 

  64.    51  
    65. 

  65.    52    IF (i # 0) THEN
    66. 

  66.    53      (* Display reason for no go *)
    67. 

  67.    54      GrQry.GrInitErr(GrafixCard, CommPort, i);
    68. 

  68. *****      ^ not supported yet
    69. 

  69. *****            ^ not supported yet
    70. 

  70. *****                                             ^ not supported yet
    71. 

  71.    55    END;
    72. 

  72.    56  
    73. 

  73.    57  (* get original fonts buffer pointer *)
    74. 

  74.    58    Meta.GetPort(scrnPort);
    75. 

  75. *****    ^ not supported yet
    76. 

  76. *****         ^ not supported yet
    77. 

  77. *****                 ^ not supported yet
    78. 

  78.    59    original := scrnPort^.txFont;
    79. 

  79. *****    ^ not supported yet
    80. 

  80. *****                ^ not supported yet
    81. 

  81. *****                          ^ not supported yet
    82. 

  82.    60  
    83. 

  83.    61    ALLOCATE(ADDRESS(font1Ptr), 3000);
    84. 

  84. *****    ^ not supported yet
    85. 

  85. *****             ^ undeclared identifier
    86. 

  86. *****                     ^ not supported yet
    87. 

  87. *****                                    ^ not supported yet
    88. 

  88.    62    loadErr := Meta.FileLoad('SYSTEM08.FNT', ADDRESS(font1Ptr), 3000);
    89. 

  89. *****               ^ not supported yet
    90. 

  90. *****                    ^ not supported yet
    91. 

  91. *****                             ^ not supported yet
    92. 

  92. *****                                             ^ undeclared identifier
    93. 

  93. *****                                                     ^ not supported yet
    94. 

  94. *****                                                                    ^ not supported yet
    95. 

  95.    63    IF (loadErr < 0) THEN
    96. 

  96.    64      GrQry.GrQuit('FileLoad(SYSTEM08.FNT) Error.', 1);
    97. 

  97. *****      ^ not supported yet
    98. 

  98. *****            ^ not supported yet
    99. 

  99. *****                   ^ not supported yet
    100. 

  100. *****                                                     ^ not supported yet
    101. 

  101.    65    END;
    102. 

  102.    66  
    103. 

  103.    67    ALLOCATE(ADDRESS(font2Ptr), 3000);
    104. 

  104. *****    ^ not supported yet
    105. 

  105. *****             ^ undeclared identifier
    106. 

  106. *****                     ^ not supported yet
    107. 

  107. *****                                    ^ not supported yet
    108. 

  108.    68    loadErr := Meta.FileLoad('SYSTEM16.FNT', ADDRESS(font2Ptr), 3000);
    109. 

  109. *****               ^ not supported yet
    110. 

  110. *****                    ^ not supported yet
    111. 

  111. *****                             ^ not supported yet
    112. 

  112. *****                                             ^ undeclared identifier
    113. 

  113. *****                                                     ^ not supported yet
    114. 

  114. *****                                                                    ^ not supported yet
    115. 

  115.    69    IF (loadErr < 0) THEN
    116. 

  116.    70      GrQry.GrQuit('FileLoad(SYSTEM16.FNT) Error.', 1);
    117. 

  117. *****      ^ not supported yet
    118. 

  118. *****            ^ not supported yet
    119. 

  119. *****                   ^ not supported yet
    120. 

  120. *****                                                     ^ not supported yet
    121. 

  121.    71    END;
    122. 

  122.    72  
    123. 

  123.    73    ALLOCATE(ADDRESS(font3Ptr), 4000);
    124. 

  124. *****    ^ not supported yet
    125. 

  125. *****             ^ undeclared identifier
    126. 

  126. *****                     ^ not supported yet
    127. 

  127. *****                                    ^ not supported yet
    128. 

  128.    74    loadErr := Meta.FileLoad('ROMANSIM.FNT', ADDRESS(font3Ptr), 4000);
    129. 

  129. *****               ^ not supported yet
    130. 

  130. *****                    ^ not supported yet
    131. 

  131. *****                             ^ not supported yet
    132. 

  132. *****                                             ^ undeclared identifier
    133. 

  133. *****                                                     ^ not supported yet
    134. 

  134. *****                                                                    ^ not supported yet
    135. 

  135.    75    IF (loadErr < 0) THEN
    136. 

  136.    76      GrQry.GrQuit('FileLoad(ROMANSIM.FNT) Error.', 1);
    137. 

  137. *****      ^ not supported yet
    138. 

  138. *****            ^ not supported yet
    139. 

  139. *****                   ^ not supported yet
    140. 

  140. *****                                                     ^ not supported yet
    141. 

  141.    77    END;
    142. 

  142.    78  
    143. 

  143.    79    Meta.ScreenRect(scrnR);
    144. 

  144. *****    ^ not supported yet
    145. 

  145. *****         ^ not supported yet
    146. 

  146. *****                    ^ not supported yet
    147. 

  147.    80    Meta.SetDisplay(GrConst.GrafPg0);
    148. 

  148. *****    ^ not supported yet
    149. 

  149. *****         ^ not supported yet
    150. 

  150. *****                    ^ not supported yet
    151. 

  151. *****                            ^ not supported yet
    152. 

  152.    81    Meta.EraseRect(scrnR);
    153. 

  153. *****    ^ not supported yet
    154. 

  154. *****         ^ not supported yet
    155. 

  155. *****                   ^ not supported yet
    156. 

  156.    82    Meta.TextSize(14, 14);      (* Set text size for stroked font, ROMANSIM.FNT *)
    157. 

  157. *****    ^ not supported yet
    158. 

  158. *****         ^ not supported yet
    159. 

  159. *****                        ^ not supported yet
    160. 

  160.    83    Meta.TextFace(GrConst.cProportional);
    161. 

  161. *****    ^ not supported yet
    162. 

  162. *****         ^ not supported yet
    163. 

  163. *****                  ^ not supported yet
    164. 

  164. *****                          ^ not supported yet
    165. 

  165.    84  
    166. 

  166.    85    Meta.SetFont(ADDRESS(font1Ptr));            (* Set font 1 active            *)
    167. 

  167. *****    ^ not supported yet
    168. 

  168. *****         ^ not supported yet
    169. 

  169. *****                 ^ undeclared identifier
    170. 

  170. *****                         ^ not supported yet
    171. 

  171.    86    Meta.MoveTo(10, 130);
    172. 

  172. *****    ^ not supported yet
    173. 

  173. *****         ^ not supported yet
    174. 

  174. *****                       ^ not supported yet
    175. 

  175.    87    Meta.DrawString('Text output using SYSTEM08.FNT');
    176. 

  176. *****    ^ not supported yet
    177. 

  177. *****         ^ not supported yet
    178. 

  178. *****                    ^ not supported yet
    179. 

  179.    88  
    180. 

  180.    89    Meta.SetFont(ADDRESS(font2Ptr));            (* Set font 2 active            *)
    181. 

  181. *****    ^ not supported yet
    182. 

  182. *****         ^ not supported yet
    183. 

  183. *****                 ^ undeclared identifier
    184. 

  184. *****                         ^ not supported yet
    185. 

  185.    90    Meta.MoveTo(10, 150);
    186. 

  186. *****    ^ not supported yet
    187. 

  187. *****         ^ not supported yet
    188. 

  188. *****                       ^ not supported yet
    189. 

  189.    91    Meta.DrawString('Text output using SYSTEM16.FNT');
    190. 

  190. *****    ^ not supported yet
    191. 

  191. *****         ^ not supported yet
    192. 

  192. *****                    ^ not supported yet
    193. 

  193.    92  
    194. 

  194.    93    Meta.SetFont(ADDRESS(font3Ptr));            (* Set font 3 active            *)
    195. 

  195. *****    ^ not supported yet
    196. 

  196. *****         ^ not supported yet
    197. 

  197. *****                 ^ undeclared identifier
    198. 

  198. *****                         ^ not supported yet
    199. 

  199.    94    Meta.MoveTo(10, 170);
    200. 

  200. *****    ^ not supported yet
    201. 

  201. *****         ^ not supported yet
    202. 

  202. *****                       ^ not supported yet
    203. 

  203.    95    Meta.DrawString('Text output using ROMANSIM.FNT');
    204. 

  204. *****    ^ not supported yet
    205. 

  205. *****         ^ not supported yet
    206. 

  206. *****                    ^ not supported yet
    207. 

  207.    96  
    208. 

  208.    97    Meta.SetFont(ADDRESS(original));            (* Set original font  active    *)
    209. 

  209. *****    ^ not supported yet
    210. 

  210. *****         ^ not supported yet
    211. 

  211. *****                 ^ undeclared identifier
    212. 

  212. *****                         ^ not supported yet
    213. 

  213.    98    Meta.MoveTo(10, 190);
    214. 

  214. *****    ^ not supported yet
    215. 

  215. *****         ^ not supported yet
    216. 

  216. *****                       ^ not supported yet
    217. 

  217.    99    Meta.DrawString('Text output using original system font');
    218. 

  218. *****    ^ not supported yet
    219. 

  219. *****         ^ not supported yet
    220. 

  220. *****                    ^ not supported yet
    221. 

  221.   100  
    222. 

  222.   101    Meta.MoveTo(10, 20);
    223. 

  223. *****    ^ not supported yet
    224. 

  224. *****         ^ not supported yet
    225. 

  225. *****                      ^ not supported yet
    226. 

  226.   102    Meta.DrawString('Press return to terminate');
    227. 

  227. *****    ^ not supported yet
    228. 

  228. *****         ^ not supported yet
    229. 

  229. *****                    ^ not supported yet
    230. 

  230.   103    ch := IO.RdChar();                          (* Wait for a keypress          *)
    231. 

  231. *****          ^ not supported yet
    232. 

  232. *****             ^ not supported yet
    233. 

  233. *****                    ^ not supported yet
    234. 

  234.   104  
    235. 

  235.   105    GrQry.GrQuit('', 0);
    236. 

  236. *****    ^ not supported yet
    237. 

  237. *****          ^ not supported yet
    238. 

  238. *****                      ^ not supported yet
    239. 

  239.   106  END Sample03.
    240. 

  240. 

  241.   131 errors
    242. 

  242. 

  243.