papoanaya

#!/usr/bin/newlisp

(xml-type-tags nil nil nil nil) ; no extra tags

(define (url-encode str)
  (replace {([^a-zA-Z0-9])} 
           str (format "%%%2X" (char $1)) 0))

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; FUNCTIONS REQUIRING AUTHENTICATION ;;;;;;;;;;;;;;;;;;

papoanaya

;;
;; This code is in newLisp
;; Small timer I wrote to use it with the dismal spreadsheet being that the system I had did not have
;; a proper compiler. 
;;

(while true
       (setq c (read-key))
       (println  (time-of-day)))

papoanaya

    ;;
    ;; Web Sequence Diagram Interface - newLisp
    ;;

    (define (url-encode str) 
        (replace {([^a-zA-Z0-9])} str (format "%%%2X" (char $1)) 0))


    (define (url-decode str)
        (replace "+" str " ") ; optional

papoanaya

;; This code is in newLisp
;; 
;; Use the lipsum generator to generate Lorem Ipsum dummy paragraphs / words / bytes.
;;
;; Lorem Ipsum courtesy of www.lipsum.com by James Wilson
;;
;; @param what in "paras","words","bytes"]
;; @param amount of paras/words/bytes (for words minimum is 5, for bytes it is 27)
;; @param start always start with 'Lorem Ipsum' "true"/"false"