+- HP Forums (https://www.hpmuseum.org/forum)
+-- Forum: HP Software Libraries (/forum-10.html)
+--- Forum: General Software Library (/forum-13.html)
+--- Thread: (34S) Random alphanumeric sequence (/thread-8017.html)
(34S) Random alphanumeric sequence - nsg - 03-24-2017 02:37 AM
Code:
;; Generates random alphanumeric sequence (uppercase, lowercase and digits)
;; Input:
;; rX=length
;; Output:
;; rα=random word
;; Program stays in alpha mode after finish.
0001 LBL'RNα'
0002 CLα
0003 RAN#
0004 #062
0005 *
0006 IP
0007 #010
0008 x≤? Y
0009 SKIP 4
0010 R↓
0011 #048
0012 +
0013 SKIP 11
0014 -
0015 #26
0016 x≤? Y
0017 SKIP 4
0018 R↓
0019 #065
0020 +
0021 SKIP 3
0022 -
0023 #097
0024 +
0025 x→α
0026 R↓
0027 DSE X
0028 BACK 25
0029 αON
0030 END