home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #18 / NN_1992_18.iso / spool / comp / sys / hp48 / 4264 < prev    next >
Encoding:
Text File  |  1992-08-14  |  5.0 KB  |  140 lines
  1. Newsgroups: comp.sys.hp48
  2. Path: sparky!uunet!math.fu-berlin.de!fauern!fauna!immd1.informatik.uni-erlangen.de!kskalb
  3. From: kskalb@immd1.informatik.uni-erlangen.de (Klaus Kalb)
  4. Subject: Local key assignments
  5. Message-ID: <BszFD2.zH@immd4.informatik.uni-erlangen.de>
  6. Sender: news@immd4.informatik.uni-erlangen.de
  7. Organization: CSD., University of Erlangen
  8. Date: Fri, 14 Aug 1992 16:34:13 GMT
  9. Lines: 129
  10.  
  11. Hello !
  12.  
  13. Playing around with the ParOuterLoop, I came up with a way to make
  14. local user key assignments. 
  15.  
  16. Please try this piece of software and mail any comments, especially
  17. bug reports to me.
  18.  
  19. Hey, that's what people call a beta-release, isn't it ? ;-)
  20.  
  21. I didn't post the source code to save bandwidth.
  22. If there's interest in the source, drop me a line.
  23.  
  24. Since I don't consider this piece of software finished, I didn't
  25. post it to comp.sources.hp48 yet. I want to here your opinion before
  26. doing so.
  27.  
  28. BEGIN_DOC lusr.doc
  29.  
  30. THIS LIBRARY ISN'T TESTED THOROUGHLY YET, SO BE PREPARED TO LOOSE
  31. YOUR MEMORY. BACKUP YOUR HP48 BEFORE RUNNING THIS PROGRAM.
  32.  
  33. This library (id 1674) provides key assignments local to the
  34. current directory. 
  35.  
  36. It has 4 visible commands:
  37.  
  38.     AboutLUSR:     -->
  39.             have a guess
  40.  
  41.     LUSR:        -->
  42.             Starts the LUSER-Mode if USER mode is off.
  43.             Terminates LUSER-Mode if LUSER mode is on.
  44.             Terminates USER-Mode if USER mode is on.
  45.  
  46.     LASN:        Object Keycode -->
  47.             Makes a key assignment local to the current dir.
  48.  
  49.     LDELKEY:    KeyCode -->
  50.             Removes a local key assignment.
  51.  
  52.  
  53. How it works:
  54.  
  55.     The local assigments are stored in a global variable named
  56.     'KEYS'. The format of this list is
  57.         { Object1 KeyCode1 ... ObjectN KeyCodeN .... }
  58.     where KeyCodeN is the keycode (as used by ASN) of the key
  59.     and ObjectN is the object bound to that key.
  60.     If there is such a variable in the path, it overrides the
  61.     standard interpretation of the key.
  62.  
  63.     As long as LUSER-mode is on, there will be LUSER instead of
  64.     USER in the top row of the display.
  65.  
  66.     LUSER-mode is terminated as soon as the normal USER-mode
  67.     is terminated.
  68.  
  69. Known Bugs:
  70.  
  71.     --- Assigning real numbers of the form rc.p will
  72.         cause confusion, maybe even crashes.
  73.  
  74.      --- Doesn't work with MSTK, HSTACK and friends.
  75.         (Well, I just tried and it seems to work with MSTK,
  76.          but I won't guarentee anything ;-)
  77.  
  78.     --- The small L in front of USER will flash.
  79.  
  80.     --- It will get slow if there are lots of assignments.
  81.  
  82.     --- KEYS isn't just recalled, it is evaluated.
  83.         Well, actually this is not a bug, it's a feature.
  84.  
  85.                             -KK
  86.  
  87. END_DOC 
  88.  
  89. BEGIN_ASC
  90. %%HP: T(3)A(R)F(.);
  91. "04B204F40091C45535250213E2032302C6F63616C6025737562702B656973791
  92. A86BF300000009C30050000D9D2011920A860090770B2130D9D2084E2040B454
  93. 953511226B3A16442309E550B2130D9D203A446881306AC3039916C0126E0E30
  94. 18A30B21308A86300D9D20ECE819FF30D9D202AC1429D1429E20A8650032230C
  95. A13029E20A8640048916B9F0632230FA450881308131688130D2E3098F26FED3
  96. 098F26E4E309545079E6084E2040B454953531581B2130B21308A86200D9D20F
  97. DE819FF30D9D202AC1429D148813029E20A8630029E20A86500FA450D2E30954
  98. 5079E6084E2040B454953531581B2130B21308A86100D9D20D8A1439916D9D20
  99. 11920E300016735B213011920E30001373579E60D9D20CAD8339916D9D20C209
  100. 31A683B21301A68311920D4000FEF30E1B20B100060000400001010101070000
  101. B821B213079E60D9D2029D1429E20A865001BF2629E20A86400DA916C01266B6
  102. 50B213018A300CA300CA309FF3018A3079E60D9D20D8A142FA30B213079E60D9
  103. D20827835409314F8358B93B213058983B21308A86000D9D20E1632C2A207300
  104. 0C45535250213E2032302C6F63616C6025737562702B6569737858A13F2A2485
  105. A1C2A2013000642594021343E20383E2932302021373A34353A35393D13A2485
  106. A1C2A201300025F4D494440213637343020202020202269702D2B4B4233A2485
  107. A1ED2A24A5A193632B2130E4A2032000D0FFF7CDFF05DFF2ACFF96CFF73CFFE4
  108. A202B0000000000000000006400000000000001500000000A500000000000000
  109. 0000000000000000000000009400040C455352510040C41435E420070C44454C
  110. 4B45495300901426F65747C455352500071000940001400093000E8A04D19"
  111. END_ASC
  112.  
  113. BEGIN_UU lusr.uu
  114. begin 644 lusr.lib
  115. M2%!(4#0X+45 *T!/ !E,55-2(#$N,#(@;&]C86P@=7-E<B!K97ES&8JV/P  
  116. M ) \  4 T-D"$2F@:  )=[ 2 YTM@.0"!$M%65,1(K:C840RD%X%*S'0V0*C
  117. M1(88 Z8\,)EA#"'FX .!.K 2 ZAH ]#9 LZ.D?\#G2T@RD&2'23I HI6 ",R
  118. MP!H#DBZ@: 1 F&&;#S8B Z]4@!@#&!.&& ,M/I#X8N\]D/AB3CZ01067;H#D
  119. M @1+15E3$X6Q$@,K,8"*)@"=+?#M&/D_T-D"HAPDV4&(,2#I HHV )(NH&@%
  120. M\$H%+3Z01067;H#D @1+15E3$X6Q$@,K,8"*%@"=+="H09,9UMD"$2G@ P!A
  121. M-[42 Q$IX , ,3=UZ0:=+<#:.),9UMD"+) 3:C@K,1!J.!$IT 0 [S_@L0(;
  122. M &    0 $! 0$'   (L2*S%PZ0:=+2#909(NH&@%$/MBDBZ@: 30FF$,(69K
  123. M!2LQ$*@#P#H K /Y/Q"H Y=NT-D"C1HDKP,K,7#I!ITM@'(X19 3]#B%F[,2
  124. M X6)LQ(#J&@ T-D"'C;"H@(W ,!4-24%$N,"(P/"]C86Q@92-U<F![)6EC>'
  125. MA1KSHD)8&BPJ$ , 1E))(#$T+C X+CDR(" Q-SHT-3HU.1VC0E@:+"H0 P!2
  126. M3TU)1" Q-C<T(" @(" @8GD@+4M+,J-"6!K>HD):&CDVLA(#3BHP @ -_W_<
  127. M_U#]+\K_:?Q_P_].*B +          !@!        %$     6@          
  128. M              !) $# 5#4E%0 $3$%33@)PP$14Q+14E#4 "4%B;W5T3%53
  129. /4@!P 0!) ! $ #D X*@ 
  130.  
  131. end
  132. END_UU
  133.   
  134.  
  135. ---
  136. ------------------------------------------------------------------------------
  137.     Klaus Kalb     | mail :  IMMD1 / Martenstr. 3 / W-8520 Erlangen / Germany 
  138.  Werch ein Illtum  | email:  kskalb@immd1.informatik.uni-erlangen.de   
  139. ------------------------------------------------------------------------------
  140.