r-moeritz

; findprgadr.s
;
; find and print program address
; works by calling into a rom routine, causing the sp to be saved.

*= $c0f7

linprt = $bdcd

findadr         sei                     ; stop irqs from touching the stack

r-moeritz

; Mr. Ed by Chris Miller Jul, 1986

; *** constants ***
columns   = 40          ; screen size
linesize  = 250         ; max allowed
screenbeg = 1024+40     ; top of text scr
screenend = 2024        ; end of text scr
rows      = 24          ; screenend-screenbeg/columns

; *** important memory ***

r-moeritz

   5 sys 49152
  10 print chr$(147):poke 49408+33,0:poke 49455+33,0
  15 for a=832 to 896:poke a,255:next
  20 for a=2040 to 2047:poke a,13:next
  30 poke 49408+21,255:poke 49455+21,255
  40 for a=49408 to 49422 step 2:poke a,b*25+50:poke a+47,b*25+50:b=b+1:next
  50 for a=49409 to 49423 step 2:poke a,100:poke a+47,200:next

r-moeritz

REM  *****  BASIC  *****

Function VLOOKUP(SearchValue As Variant, CellRange As Object, Column As Integer, Mode As Integer) As Variant
	Dim svc As Object
	Dim arg AS Variant
	
    svc = createUnoService("com.sun.star.sheet.FunctionAccess")
    arg = Array(SearchValue, CellRange, Column, Mode)

    VLOOKUP = svc.callFunction("VLOOKUP", arg)

r-moeritz

var readline = require('readline').createInterface({
    input: process.stdin,
    output: process.stdout
});

var trueskill = require('com.izaakschroeder.trueskill').create(1000);

console.log('mu: %d, sigma: %d, beta: %d, tau: %d',
    trueskill.mu.toFixed(3), 
    trueskill.sigma.toFixed(3), 

r-moeritz

namespace DuckTyping
{
  using System;

  class Aviary
  { // The Aviary "module"
    public class __Duck__
    {
      public void Quack()
      {

r-moeritz

(in-package #:c)
(defparameter *compile-in-constants* t)
(in-package #:cl-user)
(compile-file "hello.lisp" :system-p t)
(c:build-program "binary" :lisp-files '("hello.obj"))

r-moeritz

(c:build-program "binary" :lisp-files '("hello.obj"))

r-moeritz

(ext:install-c-compiler)
(compile-file "hello.lisp" :system-p t)

r-moeritz

(princ "Hello world!")
(terpri)
(quit)