Domovská stránka Prehľadávať Pomoc
Prihlásiť sa
eric
/
Topspeed_JPI
1
0
Fork 0
Súbory Issues 0 Pull requesty 0 Wiki
Branch: master
Branche Tagy
Topspeed_JPI
/
TS-V3
/
GRAPHIX
/
SAMPLE20.LST

SAMPLE20.LST 11 KB
Permanentný odkaz História Raw

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285 
  1. Listing:
    2. 

  2. 

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

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

  5.     3  (*                                                                            *)
    6. 

  6.     4  (*                             PopUps Example                                 *)
    7. 

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

  8.     6  (*                                                                            *)
    9. 

  9.     7  (* PSW 10/31/90 11:39pm                                                       *)
    10. 

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

  11.     9  
    12. 

  12.    10  MODULE Sample20;
    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 GrPorts;
    26. 

  26.    24    IMPORT GrFonts;
    27. 

  27.    25    IMPORT Meta;
    28. 

  28.    26    IMPORT IO;
    29. 

  29.    27    IMPORT Lib;
    30. 

  30.    28  
    31. 

  31.    29    FROM GrConst IMPORT rect;
    32. 

  32. *****         ^ duplicate identifier
    33. 

  33.    30    FROM GrPorts IMPORT adsPort;
    34. 

  34. *****         ^ duplicate identifier
    35. 

  35.    31    FROM GrFonts IMPORT adsFont;
    36. 

  36. *****         ^ duplicate identifier
    37. 

  37.    32  
    38. 

  38.    33  (* standard memory allocation procedures *)
    39. 

  39.    34    FROM Storage IMPORT ALLOCATE, DEALLOCATE, Available;
    40. 

  40.    35  
    41. 

  41.    36    VAR
    42. 

  42.    37      GrafixCard,
    43. 

  43.    38      CommPort:   INTEGER;
    44. 

  44.    39      ch:         CHAR;
    45. 

  45.    40      scrnR,tR:   GrConst.rect;
    46. 

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

  47.    41      imagePtr:   GrConst.adsImage;
    48. 

  48. *****                          ^ not supported yet
    49. 

  49.    42      i,j:        INTEGER;
    50. 

  50.    43      imBytes:    CARDINAL;
    51. 

  51.    44      memBytes:   WORD;
    52. 

  52. *****                  ^ undeclared identifier
    53. 

  53.    45      menuTitle:  ARRAY [0..128] OF CHAR;
    54. 

  54. *****                            ^ not supported yet
    55. 

  55. *****                                    ^ not supported yet
    56. 

  56.    46  
    57. 

  57.    47  
    58. 

  58.    48    PROCEDURE OpenWindow(VAR R: rect; TITLE: ARRAY OF CHAR);
    59. 

  59. *****                                                      ^ not supported yet
    60. 

  60.    49      VAR
    61. 

  61.    50        tR:rect;
    62. 

  62.    51        tsize:    INTEGER;
    63. 

  63.    52        tdescent: INTEGER;
    64. 

  64.    53        scrnPort: adsPort;
    65. 

  65.    54        txftptr: adsFont;
    66. 

  66.    55    BEGIN
    67. 

  67.    56  
    68. 

  68.    57      imBytes := VAL(CARDINAL, Meta.ImageSize(R));
    69. 

  69. *****                 ^ undeclared identifier
    70. 

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

  71. *****                                    ^ not supported yet
    72. 

  72. *****                                              ^ not supported yet
    73. 

  73.    58  
    74. 

  74.    59      IF NOT(Available(imBytes)) THEN
    75. 

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

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

  77.    60        GrQry.GrQuit('Insufficient memory', 1);
    78. 

  78. *****        ^ not supported yet
    79. 

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

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

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

  82.    61      END;
    83. 

  83.    62  
    84. 

  84.    63      ALLOCATE(ADDRESS(imagePtr), imBytes );
    85. 

  85. *****      ^ not supported yet
    86. 

  86. *****               ^ undeclared identifier
    87. 

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

  88. *****                                          ^ not supported yet
    89. 

  89.    64  
    90. 

  90.    65      Meta.ReadImage(R,imagePtr);     (* Save the window area *)
    91. 

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

  92. *****           ^ not supported yet
    93. 

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

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

  95.    66      Meta.FillRect(R,1);             (* Clear the window     *)
    96. 

  96. *****      ^ not supported yet
    97. 

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

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

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

  100.    67      Meta.PenMode(GrConst.zXORz);            (* Outline the window   *)
    101. 

  101. *****      ^ not supported yet
    102. 

  102. *****           ^ not supported yet
    103. 

  103. *****                   ^ not supported yet
    104. 

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

  105.    68      Meta.FrameRect(R);
    106. 

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

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

  108. *****                     ^ not supported yet
    109. 

  109.    69  
    110. 

  110.    70      Meta.GetPort( scrnPort );   (* get address of current port *)
    111. 

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

  112. *****           ^ not supported yet
    113. 

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

  114.    71  
    115. 

  115.    72      (* assign address of the current port's font record *)
    116. 

  116.    73      txftptr := scrnPort^.txFont;
    117. 

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

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

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

  120.    74  
    121. 

  121.    75      (* get values of some font fields *)
    122. 

  122.    76      tdescent := txftptr^.descent;
    123. 

  123. *****                  ^ not supported yet
    124. 

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

  125.    77      tsize := txftptr^.lnSpacing;
    126. 

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

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

  128.    78  
    129. 

  129.    79      (* Display title block  *)
    130. 

  130.    80      Meta.SetRect(tR, R.Xmin,R.Ymin,R.Xmax,R.Ymin+tsize);
    131. 

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

  132. *****           ^ not supported yet
    133. 

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

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

  135. *****                         ^ not supported yet
    136. 

  136. *****                              ^ not supported yet
    137. 

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

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

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

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

  141. *****                                              ^ not supported yet
    142. 

  142. *****                                                        ^ not supported yet
    143. 

  143.    81      Meta.FillRect(tR,0);
    144. 

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

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

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

  147. *****                        ^ not supported yet
    148. 

  148.    82      Meta.MoveTo (tR.Xmin+5, tR.Ymax - tdescent );
    149. 

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

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

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

  152. *****                      ^ not supported yet
    153. 

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

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

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

  156.    83      Meta.DrawString(TITLE)
    157. 

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

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

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

  160.    84    END OpenWindow;
    161. 

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

  162.    85  
    163. 

  163.    86    PROCEDURE CloseWindow(VAR R:rect);
    164. 

  164.    87    BEGIN
    165. 

  165.    88     Meta.RasterOp (GrConst.zREPz);
    166. 

  166. *****     ^ not supported yet
    167. 

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

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

  169. *****                            ^ not supported yet
    170. 

  170.    89     Meta.WriteImage (R, imagePtr);   (* Restore the window area *)
    171. 

  171. *****     ^ not supported yet
    172. 

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

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

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

  175.    90     DEALLOCATE(imagePtr, imBytes);
    176. 

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

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

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

  179.    91    END CloseWindow;
    180. 

  180. *****        ^ not supported yet
    181. 

  181.    92  
    182. 

  182.    93  BEGIN
    183. 

  183.    94    (* init the system *)
    184. 

  184.    95  
    185. 

  185.    96    GrQry.GrInit(GrafixCard, CommPort);
    186. 

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

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

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

  189.    97  
    190. 

  190.    98    i := Meta.InitGrafix(-GrafixCard);
    191. 

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

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

  193. *****                                    ^ not supported yet
    194. 

  194.    99    IF (i # 0) THEN
    195. 

  195.   100       GrQry.GrInitErr(GrafixCard, CommPort, i)
    196. 

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

  197. *****             ^ not supported yet
    198. 

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

  199.   101    END;
    200. 

  200.   102  
    201. 

  201.   103    Meta.SetDisplay(GrConst.GrafPg0);
    202. 

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

  203. *****         ^ not supported yet
    204. 

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

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

  206.   104    Meta.ScreenRect(scrnR);
    207. 

  207. *****    ^ not supported yet
    208. 

  208. *****         ^ not supported yet
    209. 

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

  210.   105    Meta.FillRect(scrnR, 3);
    211. 

  211. *****    ^ not supported yet
    212. 

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

  213. *****                  ^ not supported yet
    214. 

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

  215.   106    Meta.SetRect(tR, 75, 75, 250, 150);
    216. 

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

  217. *****         ^ not supported yet
    218. 

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

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

  220.   107  
    221. 

  221.   108    FOR j := 1 TO 3 DO
    222. 

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

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

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

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

  226.   110      Meta.DrawString('Press a key to show menu  ');
    227. 

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

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

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

  230.   111      ch := IO.RdKey();            (* Wait for a keypress        *)
    231. 

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

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

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

  234.   112      menuTitle := 'Menu Title';
    235. 

  235. *****      ^ not supported yet
    236. 

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

  237.   113      OpenWindow (tR, menuTitle);
    238. 

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

  239. *****                  ^ not supported yet
    240. 

  240. *****                      ^ not supported yet
    241. 

  241.   114  
    242. 

  242.   115      Meta.MoveTo(10,20);
    243. 

  243. *****      ^ not supported yet
    244. 

  244. *****           ^ not supported yet
    245. 

  245. *****                       ^ not supported yet
    246. 

  246.   116      Meta.DrawString('Press a key to remove menu');
    247. 

  247. *****      ^ not supported yet
    248. 

  248. *****           ^ not supported yet
    249. 

  249. *****                      ^ not supported yet
    250. 

  250.   117      ch := IO.RdKey();            (* Wait for a keypress        *)
    251. 

  251. *****            ^ not supported yet
    252. 

  252. *****               ^ not supported yet
    253. 

  253. *****                     ^ not supported yet
    254. 

  254.   118      CloseWindow(tR);
    255. 

  255. *****      ^ not supported yet
    256. 

  256. *****                  ^ not supported yet
    257. 

  257.   119      Meta.OffsetRect(tR, 150,20)
    258. 

  258. *****      ^ not supported yet
    259. 

  259. *****           ^ not supported yet
    260. 

  260. *****                      ^ not supported yet
    261. 

  261. *****                                ^ not supported yet
    262. 

  262.   120    END;
    263. 

  263.   121  
    264. 

  264.   122    Meta.MoveTo(10,20);
    265. 

  265. *****    ^ not supported yet
    266. 

  266. *****         ^ not supported yet
    267. 

  267. *****                     ^ not supported yet
    268. 

  268.   123    Meta.DrawString('Press Return to terminate   ');
    269. 

  269. *****    ^ not supported yet
    270. 

  270. *****         ^ not supported yet
    271. 

  271. *****                    ^ not supported yet
    272. 

  272.   124    ch := IO.RdKey();              (* Wait for a keypress        *)
    273. 

  273. *****          ^ not supported yet
    274. 

  274. *****             ^ not supported yet
    275. 

  275. *****                   ^ not supported yet
    276. 

  276.   125  
    277. 

  277.   126    GrQry.GrQuit('', 0);
    278. 

  278. *****    ^ not supported yet
    279. 

  279. *****          ^ not supported yet
    280. 

  280. *****                      ^ not supported yet
    281. 

  281.   127  END Sample20.
    282. 

  282. 

  283.   152 errors
    284. 

  284. 

  285.