ssg

// TinyGA experimental F# implementation
// SSG 11/27/2008
#light

open System // for random generator

print_endline "TinyGAFS v1.0 - SSG\n"

// check command line 
if Array.length Sys.argv <> 7 then 

ssg

{
SMUS (Shockwave Multi User Server) types
SSG - 02 Dec 2001
}

unit smus;

interface

uses

ssg

{ drawing code for ek$i universe - used in book poster - 2002 }

unit uvmain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, ComCtrls;

ssg

; ESCape Bootstrap-Loader v0.04 beta - (c) 1994 SSG
; This is a bootstrap loader I coded for one of my own "operating system" projects.
; It didn't go much farther than the loader and some init code anyways.
model tiny
.386

cseg segment use16

org  7c00h

ssg

{ ES BBS Intro - 1995 }
{ Binary can be get at http://www.pouet.net/prod.php?which=55705 }

{$M $800,0,655360}
{$N-,E-,F+}

uses Strings,XBuf,XMode;

const

ssg

{ - arteffect tdsn reader - (c) 1997 SSG/arteffect - 28th Sep 97 - 15:54 - }

uses

  XStream,XColl,XBuf,XMouse,Objects,qText,XStr,Dos;

type

  PArticle = ^TArticle;
  TArticle = record

ssg

let rec calc sum prev1 prev2 evensum = 
    if sum > 4000000 then evensum
    else
        let newsum = prev1 + prev2
        calc newsum prev2 newsum (if newsum % 2 = 0 then evensum + newsum else evensum)                     
printf "%d" (calc 0 0 1 0)

ssg

{ this is obviously missing a lot stuff (obj files) - but scrolltexts are fun to read }

uses XBuf,XProtect,XMode,crt,Dos;

const
  finished:boolean=false;
  game = 'SEXY FIGHTER';
  software = 'FROG';
  cracker = 'SSG & FatalicA';

ssg

{
adventure game engine 1.0

file format: AGE.INI

[rooms]
<room#>, <room name>, <gfxfile>, <exits>, <flags>
<room description line 1>
    .
    .

ssg

{
Coke Commander - The Kick Ass NC Clone (1996)
}

uses

QText,XStr,Views,Dialogs,App,Memory,XBuf,TVX,Drivers,Exec,Dos,XIO,Objects;

const