LOADCONFIG configs/help3demo2.gier
text	Welcome to the GIER simulator!
sleep 5
text	The simulator has a paper tape reader,
show reader
sleep 4
text	a punch,
show punch
sleep 4
text	a typewriter,
show typewriter
sleep 4
text	a main control board,
show kb1
sleep 4
text	and an auxilliary control board.
show kb2
sleep 4
text	This GIER system has a disk drive, replacing the drum.
sound 1
sleep 4
text	We press the reset button, bringing GIER to a well-defined state.
press	mstop
sleep 4
text	We press the HP button, this loads the Help 3 system from the disk.
press	hp
sleep 4
text	A serial number and the date is written on the typewriter.
sleep 4
waitinput
text	We set today's date.
type 18
waitinput
type 19
waitinput
type 49
waitinput
type 41
waitinput
type 19
waitinput
type 27
waitinput
type 1
waitinput
type 7
waitinput
type 59
waitinput
type 7
waitinput
type 59
waitinput
type 6
waitinput
type 17
waitinput
sleep 4
text	We press reset and HP again.
press	mstop
press	hp
waitinput
sleep 4
text	We begin by compiling an ALGOL program.
sleep 4
text	First, we load the tape in the reader.
sleep 4
loadreader	tapes/demo/demon3.flx
sleep 4
text	We type the command "r,algol<"
type 41
waitinput
type 27
waitinput
type 49
waitinput
type 35
waitinput
type 55
waitinput
type 38
waitinput
type 35
waitinput
type 17
sleep 5
text	"r," means read from paper tape reader,
sleep 5
text	"algol": start the ALGOL compiler, "<" terminates the command.
sleep 5
text	The ALGOL compiler now reads the paper tape with the ALGOL program -
sleep 5
text	and compiles the program into machine language.
sleep 5
text	The compilation is done in nine passes.
sleep 5
text	This program was written by Jørgen Kjær while working for Haldor Topsøe.
sleep 5
text	Jørgen Kjær wrote several demonstration programs for the GIER machine.
sleep 5
text	The programs were used to demonstrate the GIER machine for guests.
sleep 5
waitinput
text	The compilation has finised.
sleep 1
text	We start the compiled program with the command "run<":
sleep 1
type 41
waitinput
type 20
waitinput
type 37
waitinput
type 17
waitinput
text	The program asks for the language, we select English:
type 53
waitinput
text	This is used to seed the random number generator.
sleep 5
type 36
waitinput
type 34
waitinput
type 0
sleep 5
text	We get the rules of the game.
sleep 10 
text
waitinput
text	I take two matches from group no. 1.
type 1
waitinput
type 27
waitinput
type 2
waitinput
type 27
wait 29
text	See, the typewriter has a red ribbon!
sleep 5
text
waitinput
text	Let's cheat a little:
type 2
waitinput
type 27
waitinput
type 4
waitinput
type 27
waitinput
text	You can't fool a GIER machine!
type 1
waitinput
type 27
waitinput
type 3
waitinput
type 27
waitinput
text	No way!
type 37
sleep 5
text
waitinput
text	Let's try something different.
type 37
waitinput
text	As you can hear, GIER has a loudspeaker.
sleep 5
text	We load a music program from tape:
loadreader	tapes/demo/MUSIK.flx
sleep 5
text	And read the tape:
type 41
waitinput
type 17
sleep 5
text	Listen to the music!
sleep 10
text
waitstop
text	The program has finished, GIER is stopped.
sleep 5
quit