(34S) Random alphanumeric sequence

[nsg]

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