tom-seddon

colours={
(255 ,250 ,250):"		snow",
(248 ,248 ,255):"		ghost white",
(248 ,248 ,255):"		GhostWhite",
(245 ,245 ,245):"		white smoke",
(245 ,245 ,245):"		WhiteSmoke",
(220 ,220 ,220):"		gainsboro",
(255 ,250 ,240):"		floral white",
(255 ,250 ,240):"		FloralWhite",
(253 ,245 ,230):"		old lace",

tom-seddon

colours={(255,250,250):"snow", (248,248,255):"ghost white", (248,248,255):"GhostWhite", (245,245,245):"white smoke", (245,245,245):"WhiteSmoke", (220,220,220):"gainsboro", (255,250,240):"floral white", (255,250,240):"FloralWhite", (253,245,230):"old lace", (253,245,230):"OldLace", (250,240,230):"linen", (250,235,215):"antique white", (250,235,215):"AntiqueWhite", (255,239,213):"papaya whip", (255,239,213):"PapayaWhip", (255,235,205):"blanched almond", (255,235,205):"BlanchedAlmond", (255,228,196):"bisque", (255,218,185):"peach puff", (255,218,185):"PeachPuff", (255,222,173):"navajo white", (255,222,173):"NavajoWhite", (255,228,181):"moccasin", (255,248,220):"cornsilk", (255,255,240):"ivory", (255,250,205):"lemon chiffon", (255,250,205):"LemonChiffon", (255,245,238):"seashell", (240,255,240):"honeydew", (245,255,250):"mint cream", (245,255,250):"MintCream", (240,255,255):"azure", (240,248,255):"alice blue", (240,248,255):"AliceBlue", (230,230,250):"lavender", (255,240,245):"lavender blush", (255,240,245):"Lave

tom-seddon

#ifdef _MSC_VER
struct Frame
{
  struct Frame *caller;
	void *ret;
};

int backtrace(void **array,int size)
{
	struct Frame *frame;

tom-seddon

;;; point-undo.el --- undo/redo position

;;  Copyright (C) 2006 rubikitch <[email protected]>
;;  Version: $Id: point-undo.el 1221 2006-02-27 03:54:15Z rubikitch $

;;  This program is free software; you can redistribute it and/or modify
;;  it under the terms of the GNU General Public License as published by
;;  the Free Software Foundation; either version 2 of the License, or
;;  (at your option) any later version.
;;    This program is distributed in the hope that it will be useful,

tom-seddon

;;
(require 'cl)

(defstruct wm-window buffer point start hscroll dedicated persistent-parameters)

(defvar wm-workspaces nil)
(defvar wm-layouts '(wm-layout-stacked-columns
		     wm-layout-stacked-rows
		     wm-layout-grid
		     wm-layout-bisection

tom-seddon

(defun wm-layout-pyramid ()
  (wm-reset-layout)
  (let* ((options '(nil			  ;0
		    nil			  ;1
		    (h)			  ;2
		    (h 1 v)		  ;3
		    (h h 2 v)		  ;4
		    (h h 1 v 2 v)	  ;5
		    (h h 1 v 2 v v)	  ;6
		    (h h 1 v v 3 v v)	  ;7

tom-seddon

10REM>IWAR
20REM SPACE WAR
30REM Jobst Brandt 1/4/82
40REM Chris Osborn 22/3/15
50REM  (conv Apple II -> IBM CGA)
60REM Tom Seddon 25/3/15
70REM  (conv IBM CGA -> BBC Micro)
80D$="25/3/15"
90DIMC(46),OA(21,3),S(16,2),E(8,2),Q(4),V1$(2),N$(2),A1$(2)
100REM  Star locs and size: Xmax=720, Ymax=360, Smax=0, Smin=0

tom-seddon

clear mod1
keycode 0x42 = Meta_L
keycode 0x45 = Meta_R
add mod2 = Meta_L Meta_R

tom-seddon

@0


@1
MOV UP ACC#X
SWP
MOV UP ACC#Y
MOV UP DOWN
MOV ACC DOWN#Y
SWP

tom-seddon

@0


@1
MOV UP ACC
JNZ S
MOV -999 ACC
S:MOV ACC DOWN

@2