home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #16 / NN_1992_16.iso / spool / comp / sources / hp48 / 235 < prev    next >
Encoding:
Text File  |  1992-07-28  |  6.4 KB  |  198 lines
  1. Newsgroups: comp.sources.hp48
  2. Path: sparky!uunet!seq!spell
  3. From: GLAUDE DAVID <dglaude@is1.vub.ac.be>
  4. Subject:  v06i014:  showgrb_gd - Grob Viewer v1.0, Part01/01
  5. Message-ID: <1992Jul29.012915.23240@seq.uncwil.edu>
  6. Followup-To: comp.sys.hp48
  7. Sender: spell@seq.uncwil.edu (Chris Spell)
  8. Organization: Univ. of North Carolina @ Wilmington
  9. Date: Wed, 29 Jul 1992 01:29:15 GMT
  10. Approved: spell@seq.uncwil.edu
  11. Lines: 189
  12.  
  13. Checksum:  797674624 (verify with brik -cv)
  14. Submitted-by: GLAUDE DAVID <dglaude@is1.vub.ac.be>
  15. Posting-number: Volume 6, Issue 14
  16. Archive-name: showgrb_gd/part01
  17.  
  18.  
  19. BEGIN_DOC showgrob.doc
  20.         Hello, HP48 users
  21. ( Q: is there any women in this mail server ???? ]
  22.  
  23.                 I am glad to give you the first SYS-RPL
  24.         application I wroted for a past examination. !!!
  25.         It is a simple Grob Viewer with a scrolling capability
  26.         that do not destroy PICT but work a bit the same as a
  27.         "PICT STO GRAPH".
  28.  
  29.         Keys are "explane" in the source I give you below.
  30.         Compiled version is given to save time to you.
  31.  
  32.         Mail me any comment or question.
  33.  
  34.         *******************************************
  35.         ;-)     English is not my best skill    ;-)
  36.         *******************************************
  37. END_DOC
  38.  
  39.  
  40. BEGIN_ASC showgrob.asc
  41. %%HP: T(1);
  42. "D9D202BA812BF8111920C0000D9D20CA0311359320F04FC2E4CF146592300B82
  43. 10CA3047A20D6E204054879647B21300D47079E60E8E6079E60D9D209FF303D8
  44. 16D9D20D5040B1FF3D9D2088704231D4B2130F8040B1FF3D9D2088704051D4B2
  45. 13099040B1FF3D9D2088704E61D4B21303A040B1FF3D9D2088704C81D4B21307
  46. 6040B1FF3D9D2088704740E0C2A20F20003586F6777427F6260224970274C657
  47. E2021393932352721C2A20F20004676C61657465604963713E2675726E21636E
  48. 22656847215E14121F04B50E0B2130C1B46B1FF3D9D208870418A3079E60D6E2
  49. 0405487964772D70B2130F7140745364423021EF3B2130D00403D816D9D20D50
  50. 40B1FF3D9D208870409615B2130F8040B1FF3D9D20887045E615B213099040B1
  51. FF3D9D2088704EA615B21303A040B1FF3D9D208870430715B2130F7140745364
  52. 423021EF3B21308523021EF3B2130DEBB09E5503353679E60D6E204054879647
  53. 79E601DE4058983743E4CA03144193B2130B2130B99D"
  54. END_ASC
  55.  
  56. BYTES: #D99Bh 372
  57.  
  58. BEGIN_UU showgrob.uue
  59. begin 644 showgrob
  60. M2%!(4#0X+42=+2"K&+*/$9$"#`#0V0*L,!%3.0(/]"Q._$%6*0.P*`&L`W0J
  61. MT.8"!$5X:70K,0!-!Y=NX.@&EV[0V0+Y/S"-89TMT`4$&__3V0*(!R0332LQ
  62. M\`@$&__3V0*(!P0532LQD`D$&__3V0*(!^0632LQ,`H$&__3V0*(!\0832LQ
  63. M<`8$&__3V0*(!W0$#BPJ\`(`4VAO=T=R;V(@0GD@1VQU+B`Q.3DR)2?!H@(O
  64. M`$!VQA961U8&E#87XV)7)^82-N8B5H9T$N5!(?%`6^"P$@,<2[;Q/YTM@'A`
  65. M@3IPZ09M+D!0A)=&=]('*S'P%P1'-48D`Q+^LQ(##4`PC6&=+=`%!!O_T]D"
  66. MB`<$:5$K,?`(!!O_T]D"B`=4;E$K,9`)!!O_T]D"B`?D:E$K,3`*!!O_T]D"
  67. MB`<T<%$K,?`7!$<U1B0#$OZS$@-8,B#A/RLQT+X+Z54P4V.7;M#F`@1%>&ET
  68. 4EVX0[02%B7,T3JPP010Y*S&P$@,`
  69. `
  70. end
  71. END_UU
  72.  
  73. -----------------------------------------------------------------------
  74. SOURCE FOR TOOLS :
  75.  
  76. BEGIN_SRC showgrob.m
  77. OU SHOWGROB
  78. LL SHOWGROB.LR
  79. SU XR
  80. SE ENTRIES.O
  81. SE ENTRIADD.O
  82. RE SHOWGROB.O
  83. END_SRC
  84.  
  85. BEGIN_SRC entriadd.a
  86. *
  87. * Missing in entries.a
  88. *
  89. =Restore16 EQU #0E05B *
  90. =Save16    EQU #0E047 *
  91. END_SRC
  92.  
  93. BEGIN_SRC showgrob.s
  94. * ShowGrob first distributed version.
  95. * by Glu ( Glaude David )
  96. * usage : one grob on first level !!!
  97. * key   : arrow                 to scroll
  98. *         shited arrow          to go to extremity
  99. *         on                    to quit
  100. *         next                  to see copyright message
  101. *---------------------------------------------------------
  102. *
  103. * Include the header file KEYDEFS.H, which defines words
  104. * like kcUpArrow at physical key numbers.
  105. *
  106. INCLUDE KEYDEFS.H
  107. *
  108. * Include the eight characters needed for binary download
  109. *
  110. ASSEMBLE
  111.         NIBASC  /HPHP48-D/
  112. RPL
  113. *
  114. * Begin the secondary
  115. *
  116. ::
  117.   CK1NOLASTWD
  118.   CK&DISPATCH1 # C
  119.   ::
  120.   RECLAIMDISP           ( *Claim the alpha display* )
  121.   ClrDA1IsStat          ( *Temporarily disable clock* )
  122. *                       ( *Try removing ClrDA1IsStat* )
  123.   VERYSLOW
  124.   TURNMENUOFF           ( *Turn off menu line* )
  125.   ZEROZERO              ( UserGrob #0 #0 )
  126.   ROT                   ( #0 #0 UserGrob )
  127.   XYGROBDISP            (  )
  128. *
  129.   FALSE                 ( FALSE )
  130.   { LAM Exit } BIND     ( *Bind POL exit flag* )
  131.   ' NOP                 ( *No display action*  )
  132.   ' ::                  ( *Hard key handler*   )
  133.     kpNoShift #=casedrop
  134.       ::
  135.          kcUpArrow    ?CaseKeyDef
  136.                           :: TakeOver SCROLLUP ;
  137.          kcLeftArrow  ?CaseKeyDef
  138.                           :: TakeOver SCROLLLEFT ;
  139.          kcDownArrow  ?CaseKeyDef
  140.                           :: TakeOver SCROLLDOWN ;
  141.          kcRightArrow ?CaseKeyDef
  142.                           :: TakeOver SCROLLRIGHT ;
  143.          kcNextRow    ?CaseKeyDef
  144.                           :: TakeOver Save16
  145.                              "ShowGrob By Glu. 1992"
  146.                              DISPROW1*
  147.                              "dglaude@is1.vub.ac.be"
  148.                              DISPROW2*  ERRBEEP
  149.                              VERYVERYSLOW Restore16 ;
  150.          kcOn         ?CaseKeyDef
  151.                           :: TakeOver
  152.                              TRUE ' LAM Exit STO ;
  153.          kcRightShift   #=casedrpfls
  154.          DROP 'DoBadKeyT
  155.       ;
  156.     kpRightShift #=casedrop
  157.       ::
  158.          kcUpArrow    ?CaseKeyDef
  159.                           :: TakeOver JUMPTOP ;
  160.          kcLeftArrow  ?CaseKeyDef
  161.                           :: TakeOver JUMPLEFT ;
  162.          kcDownArrow  ?CaseKeyDef
  163.                           :: TakeOver JUMPBOT ;
  164.          kcRightArrow ?CaseKeyDef
  165.                           :: TakeOver JUMPRIGHT ;
  166.          kcRightShift #=casedrpfls
  167.          DROP 'DoBadKeyT
  168.       ;
  169.     2DROP 'DoBadKeyT
  170.   ;
  171.   TrueTrue              ( *Key control flags* )
  172.   NULL{}                ( *No softkeys here*  )
  173.   ONEFALSE              ( *1st row, no suspend* )
  174.   ' LAM Exit            ( *App exit condition* )
  175.   ' ERRJMP              ( *Error handler* )
  176.   ParOuterLoop          ( *Run the ParOuterLoop* )
  177.   TURNMENUON            ( *Restore menu row* )
  178.   RECLAIMDISP           ( *Resize and clear display* )
  179.   ClrDAsOK              ( *Redraw display* )
  180.   ;
  181. ;
  182. END_SRC
  183. -----------------------------------------------------------------
  184.  
  185. BEGIN_RDME showgrob.rdm
  186. I hope source will help you to build aplication with TOOLS from HP.
  187. This is just a transformation of some of the exemples from TOOLS
  188.  but I think that the result is more usefull that these demo.
  189. I do not revendic any copyright .... Not even the idee is new !!!
  190. See TOOLS documentation for right copyright.
  191. END_RDME
  192.  
  193. --
  194. You can call me Glu.  To find me on IRC : /who dglaude*
  195.  If I am there ...  /msg Glu Hello Glu ... I am a HP48 user/programmer.
  196.  I will answer you as fast as possible.
  197. e-mail : dglaude@is1.vub.ac.be
  198.