;-----------------------------------------------
;
;  Soft Videotex  --  RScript  --  Esimerkki
;
;  Copyright © 1989 Soft Service
;
;-----------------------------------------------

	call init

restart:
	echo "<CS><COF><CYA><NBG><DBL><APD><CRLF>"
	echo "<YEL><DBL>Soft Videotex  -  Esimerkki<CRLF>"
	echo "<APD><CRLF>"
	echo "<CYA> 1. Automaattinen sivunhaku<CRLF>"
;	echo "<CYA> 2. Yhteys tunnuksella<CRLF>"
;	echo "<CYA>       - TeleSampo<CRLF>"
;	echo "<CYA>       - Turun Telset<CRLF>"
;	echo "<CYA>       - Kymppikanava (Aamulehti)<CRLF>" 
	echo "<CRLF>"
	echo "<CYA> L. Lopeta<CRLF>"
	echo "<APD><APD><CYA> Valinta:<YEL><CON>"

	key flush

	echo "<COF>"
	if "<INKEY>" = "1" then change scripts/valinta-1.vtex
;	if "<INKEY>" = "2" then change scripts/valinta-2.vtex
	if "<INKEY>" ~= "L" then quit
	;
	goto restart

init:
	; Yleinen alustus

	; Määritä muutamia Videotex-koodeja

	; Ohjausmerkit
	set APB "^H"		; Active Position Backward
	set APF "^I"		; Active Position Forward
	set APD "^J"		; Active Position Down
	set APU "^K"		; Active Position Up
	set CS  "^L"		; Clear Screen
	set APR "^M"		; Active Position Return
	set CON "^Q"		; Cursor On
	set COF "^T"		; Cursor Off
	set APH "^~"		; Active Position Home
	set APA "^_"		; Active Position Adressing
	set ESC "^["		; ESCape
	set CRLF "<APR><APD>"	; "Carriage Return + Line Feed"

	; Värit (tekstiä varten)
	set RED "<ESC>A"	; RED
	set GRE "<ESC>B"	; GREen
	set YEL "<ESC>C"	; YELlow
	set BLU "<ESC>D"	; BLUe
	set MAG "<ESC>E"	; MAGenta
	set CYA "<ESC>F"	; CYAn
	set WHI "<ESC>G"	; WHIte

	; Värit (grafiikkaa varten)
	set REDG "<ESC>Q"	; RED Graphics
	set GREG "<ESC>R"	; GREen
	set YELG "<ESC>S"	; YELlow
	set BLUG "<ESC>T"	; BLUe
	set MAGG "<ESC>U"	; MAGenta
	set CYAG "<ESC>V"	; CYAn
	set WHIG "<ESC>W"	; WHIte

	; Sarjaohjaukset
	set NRM "<ESC>L"	; NoRMal
	set DBL "<ESC>M"	; DouBLe
	set CNT "<ESC>Y"	; CoNTinous Mosaics
	set SEP "<ESC>Z"	; SEParated Graphics
	set BBG "<ESC>\\"	; Black BackGround
	set NBG "<ESC>]"	; New BackGround
	set HOL "<ESC>~"	; HOLd mosaics
	set REL "<ESC>_"	; RELease mosaics

	return