JohnEarnest

to command
 local 'x readlist
 unless word? first :x
 [pr [?] output command]
 output first :x
end

to select :verb :ops :default
 if empty? :ops [default :verb stop]
 if equal? first :ops :verb

JohnEarnest

to any :list
	output item random size :list :list
end

to idle
	output any [
		[Go on, go on.]
		[What does that suggest to you?]
		[How does that make you feel?]
	]

JohnEarnest

USING:
    kernel
    sequences
    sequences.deep
    math
    math.functions
    math.order
    math.ranges
    math.primes
    math.primes.factors

JohnEarnest

\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
\ LCD Driver
\ 
\ This project uses FlashForth to write text
\ to the LCD display on the Microchip PICDEM
\ PIC18 Explorer Demo Board, running on a
\ PIC18F8722 microcontroller.
\
\ John Earnest
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\

JohnEarnest

import java.util.*;
import java.net.*;
import java.io.*;

public class Web {
  public static void main(String[] args) throws Exception {
		ServerSocket server = new ServerSocket(10101);

		while(true) {
			Socket  s     = server.accept();

JohnEarnest

\
\ Garbage.fs
\
\  A compact, simple implementation of a garbage-collected
\  cons-pair heap utilizing Cheney's algorithm.
\  Pointers to pairs are identified by a pattern in the
\  high-order bits of a value, chosen not to collide
\  with the constants "true" or "false".
\

JohnEarnest

/**
* Stop
*
* A prototype game exploring the idea of a
* bullet hell space-shooter in which the
* player takes an entirely defensive role
* and must protect others in addition to
* themselves.
*
* Known issues/ things to ponder: