1
...

1
.>.>.>

1
2
3
4
5
6
7
8
9
/* REXX */  
                                                                  
"EXECIO * DISKR ORDERDAT (STEM orderData."                         
                                                                   
if 0 <> RC then                                                    
  do                                                               
    say 'ERROR: Unable to read in the ORDERDAT file'               
    exit 8                                                         
  end                                                              
 ...

1
2
3
4
5
6
7
8
9
                                                            
                               
/**************************/   
/* Process the order data */                             
/**************************/                             
                                                         
/* Initialise our known retailers list and totals */     
retailers.0     = 0                                      
cancelledOrders = 0                                      
 ...

1
2
3
4
5
6
7
8
9
"EXECIO * DISKR ORDERDAT (STEM orderData."                         
                                                                   
if 0 <> RC then                                                    
  do                                                               
    say 'ERROR: Unable to read in the ORDERDAT file'               
    exit 8                                                         
  end                                                              
                               
/**************************/   
 ...

1
2
3
4
5
6
7
8
9
  DFGG                                                                 
"EXECIO * DISKR ORDERDAT (STEM orderData."                         
                                                                   
if 0 <> RC then                                                    
  do                                                               
    say 'ERROR: Unable to read in the ORDERDAT file'               
    exit 8                                                         
  end                                                              
                               
 ...

1
2
3
4
5
6
7
8
9
                                                                   
"EXECIO * DISKR ORDERDAT (STEM orderData."                         
                                                                   
if 0 <> RC then                                                    
  do                                                               
    say 'ERROR: Unable to read in the ORDERDAT file'               
    exit 8                                                         
  end                                                              
                               
 ...

1
2
3
4
5
6
7
                     
                                                                   
if 0 <> RC then                                                    
  do                                                               
    say 'ERROR: Unable to read in the ORDERDAT file'               
    exit 8                                                         
  end                                                              

1
2
3
4
5
6
7
8
9
                                                                   
"EXECIO * DISKR ORDERDAT (STEM orderData."                         
                                                                   
if 0 <> RC then                                                    
  do                                                               
    say 'ERROR: Unable to read in the ORDERDAT file'               
    exit 8                                                         
  end                                                              
                               
 ...

1
2
3
4
5
6
7
8
9
                                                                   
"EXECIO * DISKR ORDERDAT (STEM orderData."                         
                                                                   
if 0 <> RC then                                                    
  do                                                               
    say 'ERROR: Unable to read in the ORDERDAT file'               
    exit 8                                                         
  end                                                              
                               
 ...

1
2
3
4
5
6
7
8
9
                                                                   
"EXECIO * DISKR ORDERDAT (STEM orderData."                         
                                                                   
if 0 <> RC then                                                    
  do                                                               
    say 'ERROR: Unable to read in the ORDERDAT file'               
    exit 8                                                         
  end                                                              
                               
 ...

1
2
3
4
5
6
7
8
9
                                                                   
"EXECIO * DISKR ORDERDAT STEM orderData"                         
                                                                   
if 0 <> RC then                                                    
  do                                                               
    say 'ERROR: Unable to read in the ORDERDAT file'               
    exit 8                                                         
  end                                                              
                               
 ...

1
2
3
4
5
6
7
8
9
                                                                   
"EXECIO * DISKR ORDERDAT (STEM orderData"                         
                                                                   
if 0 <> RC then                                                    
  do                                                               
    say 'ERROR: Unable to read in the ORDERDAT file'               
    exit 8                                                         
  end                                                              
                               
 ...

1
2
3
4
5
6
7
8
9
                                                                   
"EXECIO * DISKR ORDERDAT (STEM orderData)"                         
                                                                   
if 0 <> RC then                                                    
  do                                                               
    say 'ERROR: Unable to read in the ORDERDAT file'               
    exit 8                                                         
  end                                                              
                               
 ...

1
2
3
4
5
6
7
8
9
                                                                   
"EXECIO * DISKR ORDERDAT (STEM orderData."                         
                                                                   
if 0 <> RC then                                                    
  do                                                               
    say 'ERROR: Unable to read in the ORDERDAT file'               
    exit 8                                                         
  end                                                              
                               
 ...

1
2
3
4
5
6
7
8
9
f~^kn~+c+ia~^+~cf+?/                        
                   [f!c-ki~:~b/au>++*+k~~r~bn!*+i                   
                <kk]k/>rkbrn~!:?[->+uc*a+af~>^b+ub+k                
              +i?:fn>+b+kb^+>kn?+ii/kb++u>?a+^+?+u>u?c+             
            i:+~/+>++:kba+~b?+:>+rr!b+k+++u?n<k!b**<i<c~i           
          <!^<<<<krb~^/]>>-u~/*-:<ck^<++!!:n+!kcbinc[~kr-:          
         *k:!kb?>c~>>*u!nnrbabi>+irn>i?+~+?>icc*+ci+i+!<<rb         
        ^knnb<!<!i<b^r<i!^/]>f/>>a/?>i~>~>>>b--.r/rucffa!/<n        
        <:u<?ua<cr<*:<i:bb<fu/nb.>b:r:*?**>n:!>::~/*+.>>r-:.:       
 ...

1
2
3
4
(defun outer (a b)
  (defun inner () (* a b)))
(outer 5 3)
(format t "~a" (inner))

1
2
3
4
5
6
7
8
9
;; the following code does not work: can't find #'defun
;; must use labels form
;(defun funcs ()
;  (defun mult-by-10 (x) (* 10 x))
;  (defun add-1 (x) (+1 x))
;  '(#'mult-by-10 #'add-1))
 
(let ((z 5))
  (defun my-mult (x y) (* x y)) ; will be in package scope
 ...

1
2
3
4
5
6
7
(defun funcs ()
  (defun mult-by-10 (x) (* 10 x))
  (defun add-1 (x) (+1 x))
  '(#'mult-by-10 #'add-1))
 
(mult-by-10 5)
(add-1 3)

1
2
3
4
5
6
7
8
9
 (funcall (lambda (toi three xexp xx pred)
           (funcall (lambda (x)
                      (map (quote (vector character)) (lambda (i) (funcall (lambda (x) (code-char (+ 48 x))) (ldb (byte (funcall toi (lambda (f) (lambda (x) (funcall f (funcall f (funcall f x)))))) i) x)))
                           (funcall (lambda (x)
                                      (declare (special x))
                                      (funcall (lambda (tf) (funcall (lambda (f) (funcall tf f)) (lambda (f) (funcall tf f))))
                                               (lambda (f)
                                                 (cons (funcall toi x)
                                                       (unless (funcall (funcall x (lambda (x) nil)) t)
 ...

1
(setf a '(1 2 3 4 5))

1
2
3
4
5
6
7
8
9
        program TEST 
                integer ans 
                do 
                        read (*,*) ans 
                        if (ans.eq.42) stop 
                        write (*,*) ans 
                enddo 
                stop 
        end

1
2
3
4
5
6
(defun fu (x y)
(loop
(when (or (= x 0) (= y 0)) (return (+ x y)))
(if (> x y) (setq x (mod x y)) (setq y (mod y x)))
)
)

1
2
3
4
(defun foo ()
    (format t "Hello, world"))
(with-output-to-string (*standard-output*)
    (foo))

1
2
3
4
(defun main ()
  (format t "hello world!~%" )
  (quit)
  )

1
2
3
(defun si:top-level ()
  (format t "hello world!~%" )
  )

1
(princ "hellow world!")

1
(princ "hellow world!" (mod -7 3))

1
(mod -7 3)

1
2
3
4
5
6
 
(defun fu (x y)
(loop
(when (or (= x 0) (= y 0)) (return (+ x y)))
(if (> x y) (setq x (mod x y)) (setq y (mod y x)))
)