/*********************************************/
/* Morseträningsprogram för Soundblaster Pro */
/*********************************************/

#include  <io.h>
#include  <dos.h>
#include  <bios.h>
#include  <stdio.h>
#include  <fcntl.h>
#include  <string.h>
#include  <stdlib.h>
#include  <alloc.h>
#include  <time.h>
#include  <mem.h>

#include  <sbc.h>
#include  <sbcvoice.h>
#include  <loaddrv.c>

extern int prog_timer(int freq);
extern void rest_timer(void);
extern unsigned long timerticks;
extern void newdelay(unsigned int delval);
extern void fm_write(unsigned char reg,unsigned char data);

int minlength,maxlength;
int note;
int showstat=0;
char *shwstatstr[2]={"G","V"};
char *itonestr[2]={"Av","På"};
char *noisestr[3]={"Inget","Brus","Pile-Up"};
int mastervol,beepvol,noisevol,lineinvol;
int wpm;
int dah;
int dit;
int pause,letter_pause,word_pause;
int noisetype;



int numsamples;
char far *sample[100];

unsigned char letters[] =
		  {"ABCDEFGHIJKLMNOPQRSTUVWXYZÅÄÖ0123456789.,?!:\"'()/-*=~ +@"};


unsigned int freq,ifreq;
unsigned char beep_on_val,beep_off_val,itone_on_val,itone_off_val;
unsigned char fnum_hi[] = {1,1,1,1,1,1,2,2,2,2,2,2};
unsigned char fnum_lo[] = {0x6b,0x81,0x98,0xb0,0xca,0xe5,
						   0x02,0x20,0x41,0x63,0x87,0xae};
unsigned int itonestat;


unsigned char letters2[56];
unsigned char charstat[56];
int numchars;

/*                                       A/D m A/D c S/R m S/R c  */

char beep[16] = {0X021,0X021,0X000,0X000,0X0C0,0X0C0,0X0FC,0X0FC,
				 0X000,0X000,0X001,0X000,0X000,0X000,0X000,0X000};


FILE* cfgfile;
char cfgfname[80];

main(int argc, char **argv)
{
int key;
int i;

	if(init())
		exit(1);

	while(1) {
		key = getch();

		switch(key){
			case '1': random_text(0);break;
			case '2': random_text(1);break;
			case '3': text_from_disk();break;
			case 't': select_characters();break;
			case 'm': set_minmax();break;
			case 'w': set_wpm();break;
			case 'f': set_tone_freq();break;
			case 'i': set_itone();break;
			case 'g': show_hide();break;
			case 'b': set_backg_noise();break;
			case 'v': set_volumes();break;
			case 's': save_config();break;
			case 'l': load_config();break;
			case 'a': quit();
		}
		draw_menu();
	}
}

init()
{
	int i;
	extern  char far * near voice_drv;
	char    far *lpVoiceBuf ;
	FILE* f;
	unsigned int vocsize;
	int handle;
	unsigned numread,segp;

	if ( ! GetEnvSetting() ) {
		if (sbc_check_card() & 6) {
			if (sbc_test_int()) {
				if (sbc_test_dma() >= 0) {
					if ((voice_drv = LoadDriver("CT-VOICE.DRV")) != 0) {
						if (!ctvm_init()) {
							ctvm_speaker(1);
							strcpy(cfgfname,"MORSE.CFG");
							if(cfgfile = fopen(cfgfname,"rb"))
								load_config2();
							else {
								wpm = 20;
								note = 77;
								for(i=0;i<56;i++)
									charstat[i]=1;

								minlength=2;
								maxlength=5;
								mastervol=12;
								beepvol=15;
								noisevol=8;
								noisetype=0;
								itonestat=0;
								freq = 4;
								ifreq = 6;
							}

							numchars = 0;
							for(i=0;i<56;i++) {
								if (charstat[i])
									letters2[numchars++] = letters[i];
							}

							randomize();

							numsamples = 0;

							handle=_open("MORSE1.DAT",O_RDONLY);

							while(1){
								DosRead(handle,(char far*)&vocsize,2,&numread);
								if(! numread) break;
								if(allocmem((unsigned)((vocsize+15) >> 4),&segp) != -1) {
									printf("Malloc error!\n");
									ctvm_terminate();
									return(1);
								}
								FP_SEG(sample[numsamples]) = segp;
								FP_OFF(sample[numsamples]) = 0 ;
								DosRead(handle,sample[numsamples],vocsize,&numread);
								numsamples++;
							}
							close(handle);

							prog_timer(1000);
							init_beep();
							set_tone_freq2();
							set_volume2();

							HideCur();
							clrscr();
							draw_menu();
							set_wpm2();
							return(0);
						}
					}
					else {
						printf("Error loading CT-VOICE.DRV!\n");
						return(1);
					}
				}
				else {
					printf("Error on DMA channel.\n");
					return(1);
				}
			}
			else {
				printf("Error on interrupt.\n");
				return(1);
			}
		}
		else {
			printf("Sound Blaster Card not found or wrong I/O settings.\n") ;
			return(1);
		}
	}
	else {
		printf("BLASTER environment not set or incomplete or invalid.\n");
		return(1);
	}
}


quit()
{
int i,k=0;

	printf("\nVill du verkligen sluta (J\\n)?\n");

	while( (k != 'n') && (k!= 'j') && (k!=13))
		k = getch();

	if((k == 13) || (k == 'j')) {
		clrscr();

		for(i=0;i<numsamples;i++)
			freemem(FP_SEG(sample[i]));

		rest_timer();
		ctvm_speaker(0);
		ctvm_terminate();
		ShowCur();
		exit(0);
	}
}


draw_menu()
{
	clrscr();
	printf("//////////////////////////////////////////////////////////////////\n");
	printf("//  MORSETRÄNARE FÖR SOUNDBLASTER PRO AV MATS PETERSSON SM5SXL  //\n");
	printf("//////////////////////////////////////////////////////////////////\n\n");
	printf("Välj ett alternativ:\n\n");
	printf("1  : Grupper med slumpvisa tecken, 5-ställiga\n");
	printf("2  : Grupper med slumpvisa tecken, variabel längd\n");
	printf("3  : Text från fil\n");
	printf("T  : Välj tecken\n");
	printf("M  : Sätt min/max längd för grupper med variabel längd\n");
	printf("W  : Sätt hastighet i WPM (%d)\n",wpm);
	printf("F  : Sätt tonfrekvens (Morse=%d, Interferens=%d)\n",freq,ifreq);
	printf("I  : Interferens-ton på/av (%s)\n",itonestr[itonestat]);
	printf("G  : Visa/göm text (%s)\n",shwstatstr[showstat]);
	printf("B  : Sätt typ av bakgrundsljud (%s)\n",noisestr[noisetype]);
	printf("V  : Sätt volym\n");
	printf("S  : Spara konfiguration\n");
	printf("L  : Ladda konfiguration\n");
	printf("A  : Avsluta\n");
}


set_minmax()
{
char minstr[10],maxstr[10];

	ShowCur();
	printf("\nMin längd (%d): ",minlength);
	gets(minstr);
	if(strlen(minstr)) {
		while(! (minlength = atoi(minstr)))
			gets(minstr);
	}

	printf("Max längd (%d): ",maxlength);
	gets(maxstr);
	if(strlen(maxstr)) {
		while(! (maxlength = atoi(maxstr)))
			gets(maxstr);
	}
	HideCur();
}


random_text(int mode)
{
unsigned char rndstring[80];
unsigned char rndletter;
unsigned i;
int strlength;

	clrscr();
	newdelay(500);

	if(noisetype)
		switch_on_noise();
	if(itonestat)
		switch_on_itone();

	while(! kbhit())
	{
		switch(mode){
		case 0:{
				 strlength=5;
				 for(i = 0;i < strlength;i++) {
					rndletter=letters2[random(numchars)];
					rndstring[i] = rndletter;
				}
			  }break;
		case 1:{
				strlength=random(maxlength-(minlength-1))+minlength;
				for(i = 0;i < strlength;i++) {
					rndletter=letters2[random(numchars)];
					rndstring[i] = rndletter;
				}
			   }
		}
		rndstring[strlength]=0;
		output(rndstring);
	}
	getch();
	if(itonestat)
		switch_off_itone();
	if(noisetype)
		switch_off_noise();
}


text_from_disk()
{
FILE* f;
char txtfname[80];
char filestr[80];

	ShowCur();
	printf("\nTextfil att sända: ");
	gets(txtfname);
	HideCur();
	if(strlen(txtfname) == 0)
		return;

	if(f = fopen(txtfname,"rt")){
		clrscr();
		if(noisetype)
			switch_on_noise();
		if(itonestat)
			switch_on_itone();

		while(fgets(filestr,80,f) != NULL){
			output(filestr);
			if(kbhit()) {
							getch();
							break;
						}
		}
		fclose(f);
		if(itonestat)
			switch_off_itone();
		if(noisetype)
			switch_off_noise();
	}
	else
	{
		printf("Kan inte hitta %s!\n",txtfname);
		newdelay(2000);
	}
}


switch_on_noise()
{
int i;

	set_voc_vol(0);
	switch(noisetype){
		case 1: ctvm_output(sample[0]+0x1a);break;
		case 2: ctvm_output(sample[1]+0x1a);break;
	}
	for(i=0;i<noisevol+1;i++){
		set_voc_vol(i);
		newdelay(40);
	}
	newdelay(1000);
}

switch_off_noise()
{
int i;

	for(i=noisevol;i>-1;i--){
		set_voc_vol(i);
		newdelay(40);
	}
	ctvm_stop();
}

switch_on_itone()
{
	fm_write(0xb1,itone_on_val);         /* Beep ON */
}
switch_off_itone()
{
	fm_write(0xb1,itone_off_val);
}


select_characters()
{
int i,key,k;
unsigned char kstr[2],*ptr;

	draw_charscr();

	while(1){
		if(bioskey(1))
		{
			key = bioskey(0);
			k = key & 0xff;
			if(k==27) break;

			switch(k){
				case 0:
				{
					k = (key >> 8) & 0xff;

					switch(k){
						case 48: {
										for(i=0;i<29;i++)
											charstat[i] ^= 1;
								 }break;
						case 31: {
										for(i=29;i<39;i++)
											charstat[i] ^= 1;
								 }break;
						case 45: {
										for(i=39;i<56;i++)
											charstat[i] ^= 1;
								 }
					}

				}break;
				default:
				{
					kstr[0] = k;
					kstr[1] = 0;
					ptr = strupr(kstr);
					k = ptr[0];

					charstat[strchr(letters,k)-letters] ^= 1;
				}
			}
			draw_charscr();
		}
	}

	numchars = 0;
	for(i=0;i<56;i++)
	{
		if (charstat[i])
			letters2[numchars++] = letters[i];
	}
}

draw_charscr()
{
int i;

	clrscr();
	printf("\n%s\n",letters);

	for(i=0;i<56;i++){
		if(charstat[i])
			printf("X");
		else
			printf(" ");
	}

	printf("\n\nAlt-B Bokstäver     Alt-S Siffror     Alt-X Övriga \n");
}



set_wpm()
{
unsigned char wpmstr[5];

	ShowCur();
	printf("\nNy hastighet i WPM: ");
	gets(wpmstr);
	HideCur();
	if(! strlen(wpmstr)) return;
	while(! (wpm = atoi(wpmstr)))
		gets(wpmstr);

	set_wpm2();
}

set_wpm2()
{
	dit = 60000/(wpm*50);
	dah = dit*3;
	pause = dit;
	letter_pause = dah-pause;
	word_pause = dit*7-letter_pause;
}


set_tone_freq()
{
char freqstr[10];

	ShowCur();
	printf("\nFrekvens morse (0-11): ",freq);
	gets(freqstr);
	if(strlen(freqstr))
		freq = atoi(freqstr);

	printf("Frekvens interferens (0-11): ",ifreq);
	gets(freqstr);
	if(strlen(freqstr))
		ifreq = atoi(freqstr);

	HideCur();
	set_tone_freq2();
}

set_tone_freq2()
{
	beep_on_val = 0x34|fnum_hi[freq];
	beep_off_val = 0x14|fnum_hi[freq];

	itone_on_val = 0x34|fnum_hi[ifreq];
	itone_off_val = 0x14|fnum_hi[ifreq];

	fm_write(0xa0,fnum_lo[freq]);
	fm_write(0xa1,fnum_lo[ifreq]);
}

show_hide()
{
	showstat ^= 1;
}

set_backg_noise()
{
char noisetypestr[10];

	ShowCur();
	printf("\nTyp av bakgrundsljud (0=%s, 1=%s, 2=%s): ",noisestr[0],noisestr[1],noisestr[2]);
	gets(noisetypestr);
	HideCur();
	if(strlen(noisetypestr)==0) return;
	noisetype = atoi(noisetypestr);
}


set_itone()
{
	itonestat ^= 1;
}


set_volumes()
{
char str[10];

	outportb(ct_io_addx+4,0x22);
	mastervol = inportb(ct_io_addx+5) & 0xf;

	outportb(ct_io_addx+4,0x26);
	beepvol = inportb(ct_io_addx+5) & 0xf;

	outportb(ct_io_addx+4,0x2E);
	lineinvol = inportb(ct_io_addx+5) & 0xf;



	ShowCur();
	printf("\nTotal (%d): ",mastervol);
	gets(str);
	if(strlen(str))
		mastervol=atoi(str);

	printf("Toner (%d): ",beepvol);
	gets(str);
	if(strlen(str))
		beepvol = atoi(str);

	printf("Bakgrundsljud (%d): ",noisevol);
	gets(str);
	if(strlen(str))
		noisevol = atoi(str);

	printf("Line In (%d): ",lineinvol);
	gets(str);
	if(strlen(str))
		lineinvol = atoi(str);

	HideCur();
	set_volume2();
}

set_volume2()
{
	outportb(ct_io_addx+4,0x22);
	outportb(ct_io_addx+5,(mastervol<<4)+mastervol);
	outportb(ct_io_addx+4,0x26);
	outportb(ct_io_addx+5,(beepvol<<4)+beepvol);
	outportb(ct_io_addx+4,0x2e);
	outportb(ct_io_addx+5,(lineinvol<<4)+lineinvol);
}

set_voc_vol(int vol)
{
	outportb(ct_io_addx+4,0x04);
	outportb(ct_io_addx+5,(vol<<4)+vol);
}


save_config()
{
	ShowCur();
	printf("\nSpara som: ");
	gets(cfgfname);
	HideCur();

	if(! strlen(cfgfname))
		return;

	if(! (strchr(cfgfname,'.')))
		strcat(cfgfname,".CFG");

	printf("\nSparar konfiguration...\n");
	cfgfile=fopen(cfgfname,"wb");

	fwrite(&wpm,2,1,cfgfile);
	fwrite(&note,2,1,cfgfile);
	fwrite(&charstat,1,56,cfgfile);
	fwrite(&minlength,2,1,cfgfile);
	fwrite(&maxlength,2,1,cfgfile);
	if(! strnicmp(strupr(cfgfname),"MORSE.CFG",9)) {
		fwrite(&mastervol,2,1,cfgfile);
		fwrite(&beepvol,2,1,cfgfile);
/*		fwrite(&itonevol,2,1,cfgfile); */
		fwrite(&noisevol,2,1,cfgfile);
		fwrite(&noisetype,2,1,cfgfile);
		fwrite(&lineinvol,2,1,cfgfile);
		fwrite(&freq,2,1,cfgfile);
		fwrite(&ifreq,2,1,cfgfile);
		fwrite(&itonestat,2,1,cfgfile);
	}
	fclose(cfgfile);
	newdelay(1000);
}

load_config()
{
int i;

	ShowCur();
	printf("\n.CFG fil att ladda: ");
	gets(cfgfname);
	HideCur();
	if(strlen(cfgfname) == 0) return;

	if(! (strchr(cfgfname,'.')))
		strcat(cfgfname,".CFG");

	if(! (cfgfile=fopen(cfgfname,"rb"))) {
		printf("Kan inte hitta %s!\n",cfgfname);
		newdelay(1000);
	}
	else
	{
		load_config2();
		numchars = 0;
		for(i=0;i<56;i++) {
			if (charstat[i])
				letters2[numchars++] = letters[i];
		}
		set_wpm2();
	}
}

load_config2()
{
		fread(&wpm,2,1,cfgfile);
		fread(&note,2,1,cfgfile);
		fread(&charstat,1,56,cfgfile);
		fread(&minlength,2,1,cfgfile);
		fread(&maxlength,2,1,cfgfile);
		if(! strnicmp(strupr(cfgfname),"MORSE.CFG",9)) {
			fread(&mastervol,2,1,cfgfile);
			fread(&beepvol,2,1,cfgfile);
/*			fread(&itonevol,2,1,cfgfile); */
			fread(&noisevol,2,1,cfgfile);
			fread(&noisetype,2,1,cfgfile);
			fread(&lineinvol,2,1,cfgfile);
			fread(&freq,2,1,cfgfile);
			fread(&ifreq,2,1,cfgfile);
			fread(&itonestat,2,1,cfgfile);
		}
		fclose(cfgfile);
}


output(unsigned char *string)
{
int i;
unsigned char *ptr;

	if(showstat)
		if(strlen(string) > (79-GetCurX()))
			printf("\n");

	ptr = strupr(string);

	for(i=0;i<strlen(string);i++)
	{
		switch(ptr[i]) {
		   case 'A': letter_a();break;
		   case 'B': letter_b();break;
		   case 'C': letter_c();break;
		   case 'D': letter_d();break;
		   case 'E': letter_e();break;
		   case 'F': letter_f();break;
		   case 'G': letter_g();break;
		   case 'H': letter_h();break;
		   case 'I': letter_i();break;
		   case 'J': letter_j();break;
		   case 'K': letter_k();break;
		   case 'L': letter_l();break;
		   case 'M': letter_m();break;
		   case 'N': letter_n();break;
		   case 'O': letter_o();break;
		   case 'P': letter_p();break;
		   case 'Q': letter_q();break;
		   case 'R': letter_r();break;
		   case 'S': letter_s();break;
		   case 'T': letter_t();break;
		   case 'U': letter_u();break;
		   case 'V': letter_v();break;
		   case 'W': letter_w();break;
		   case 'X': letter_x();break;
		   case 'Y': letter_y();break;
		   case 'Z': letter_z();break;
		   case 134: letter_aa();break;   /* å */
		   case 132: letter_ae();break;   /* ä */
		   case 148: letter_oe();break;   /* ö */
		   case 143: letter_aa();break;   /* Å */
		   case 142: letter_ae();break;   /* Ä */
		   case 153: letter_oe();break;   /* Ö */

		   case '0': letter_0();break;
		   case '1': letter_1();break;
		   case '2': letter_2();break;
		   case '3': letter_3();break;
		   case '4': letter_4();break;
		   case '5': letter_5();break;
		   case '6': letter_6();break;
		   case '7': letter_7();break;
		   case '8': letter_8();break;
		   case '9': letter_9();break;

		   case '.': letter_punkt();break;
		   case ',': letter_komma();break;
		   case '?': letter_fragetecken();break;
		   case '!': letter_utropstecken();break;
		   case ':': letter_kolon();break;
		   case  34: letter_citationstecken();break;
		   case  39: letter_apostrof();break;
		   case '(': letter_vansterparentes();break;
		   case ')': letter_hogerparentes();break;
		   case '/': letter_brakstreck();break;
		   case '-': letter_bindestreck();break;

		   case '*': letter_repetition();break;
		   case '=': letter_atskillnad();break;
		   case '~': letter_lystring();break;
		   case 251: letter_vantatecken();break;
		   case '+': letter_sluttecken();break;
		   case '@': letter_avslutning();break;
		   case ' ': {
						newdelay(word_pause);
						if(showstat)
							putchar(32);
						continue;
					 }
		}
		if(showstat)
			putchar((unsigned int)ptr[i]);
		newdelay(letter_pause);
		if(kbhit()) return;
	}
	if(showstat)
		putchar(32);
	newdelay(word_pause);
}


letter_a() {
   tone(dit);
   tone(dah);
}
letter_b() {
	tone(dah);
	tone(dit);
	tone(dit);
	tone(dit);
}
letter_c() {
	tone(dah);
	tone(dit);
	tone(dah);
	tone(dit);
}
letter_d() {
	tone(dah);
	tone(dit);
	tone(dit);
}
letter_e() {
	tone(dit);
}
letter_f() {
	tone(dit);
	tone(dit);
	tone(dah);
	tone(dit);
}
letter_g() {
	tone(dah);
	tone(dah);
	tone(dit);
}
letter_h() {
	tone(dit);
	tone(dit);
	tone(dit);
	tone(dit);
}
letter_i() {
	tone(dit);
	tone(dit);
}
letter_j() {
	tone(dit);
	tone(dah);
	tone(dah);
	tone(dah);
}
letter_k() {
	tone(dah);
	tone(dit);
	tone(dah);
}
letter_l() {
	tone(dit);
	tone(dah);
	tone(dit);
	tone(dit);
}
letter_m() {
	tone(dah);
	tone(dah);
}
letter_n() {
	tone(dah);
	tone(dit);
}
letter_o() {
	tone(dah);
	tone(dah);
	tone(dah);
}
letter_p() {
	tone(dit);
	tone(dah);
	tone(dah);
	tone(dit);
}
letter_q() {
	tone(dah);
	tone(dah);
	tone(dit);
	tone(dah);
}
letter_r() {
	tone(dit);
	tone(dah);
	tone(dit);
}
letter_s() {
	tone(dit);
	tone(dit);
	tone(dit);
}
letter_t() {
	tone(dah);
}
letter_u() {
	tone(dit);
	tone(dit);
	tone(dah);
}
letter_v() {
	tone(dit);
	tone(dit);
	tone(dit);
	tone(dah);
}
letter_w() {
	tone(dit);
	tone(dah);
	tone(dah);
}
letter_x() {
	tone(dah);
	tone(dit);
	tone(dit);
	tone(dah);
}
letter_y() {
	tone(dah);
	tone(dit);
	tone(dah);
	tone(dah);
}
letter_z() {
	tone(dah);
	tone(dah);
	tone(dit);
	tone(dit);
}
letter_aa() {
	tone(dit);
	tone(dah);
	tone(dah);
	tone(dit);
	tone(dah);
}
letter_ae() {
	tone(dit);
	tone(dah);
	tone(dit);
	tone(dah);
}
letter_oe() {
	tone(dah);
	tone(dah);
	tone(dah);
	tone(dit);
}


letter_0() {
	tone(dah);
	tone(dah);
	tone(dah);
	tone(dah);
	tone(dah);
}
letter_1() {
	tone(dit);
	tone(dah);
	tone(dah);
	tone(dah);
	tone(dah);
}
letter_2() {
	tone(dit);
	tone(dit);
	tone(dah);
	tone(dah);
	tone(dah);
}
letter_3() {
	tone(dit);
	tone(dit);
	tone(dit);
	tone(dah);
	tone(dah);
}
letter_4() {
	tone(dit);
	tone(dit);
	tone(dit);
	tone(dit);
	tone(dah);
}
letter_5() {
	tone(dit);
	tone(dit);
	tone(dit);
	tone(dit);
	tone(dit);
}
letter_6() {
	tone(dah);
	tone(dit);
	tone(dit);
	tone(dit);
	tone(dit);
}
letter_7() {
	tone(dah);
	tone(dah);
	tone(dit);
	tone(dit);
	tone(dit);
}
letter_8() {
	tone(dah);
	tone(dah);
	tone(dah);
	tone(dit);
	tone(dit);
}
letter_9() {
	tone(dah);
	tone(dah);
	tone(dah);
	tone(dah);
	tone(dit);
}


letter_punkt() {
	tone(dit);
	tone(dah);
	tone(dit);
	tone(dah);
	tone(dit);
	tone(dah);
}
letter_komma() {
	tone(dah);
	tone(dah);
	tone(dit);
	tone(dit);
	tone(dah);
	tone(dah);
}
letter_fragetecken() {
	tone(dit);
	tone(dit);
	tone(dah);
	tone(dah);
	tone(dit);
	tone(dit);
}
letter_utropstecken() {
	tone(dit);
	tone(dit);
	tone(dah);
	tone(dah);
	tone(dit);
}
letter_kolon() {
	tone(dah);
	tone(dah);
	tone(dah);
	tone(dit);
	tone(dit);
	tone(dit);
}
letter_citationstecken() {
	tone(dit);
	tone(dah);
	tone(dit);
	tone(dit);
	tone(dah);
	tone(dit);
}
letter_apostrof() {
	tone(dit);
	tone(dah);
	tone(dah);
	tone(dah);
	tone(dah);
	tone(dit);
}
letter_vansterparentes() {
	tone(dah);
	tone(dit);
	tone(dah);
	tone(dah);
	tone(dit);
}
letter_hogerparentes() {
	tone(dah);
	tone(dit);
	tone(dah);
	tone(dah);
	tone(dit);
	tone(dah);
}
letter_brakstreck() {
	tone(dah);
	tone(dit);
	tone(dit);
	tone(dah);
	tone(dit);
}
letter_bindestreck() {
	tone(dah);
	tone(dit);
	tone(dit);
	tone(dit);
	tone(dit);
	tone(dah);
}


letter_repetition() {
	tone(dit);
	tone(dit);
	newdelay(letter_pause);
	tone(dit);
	tone(dit);
}
letter_atskillnad() {
	tone(dah);
	tone(dit);
	tone(dit);
	tone(dit);
	tone(dah);
}
letter_lystring() {
	tone(dah);
	tone(dit);
	tone(dah);
	tone(dit);
	tone(dah);
}
letter_vantatecken() {
	tone(dit);
	tone(dah);
	tone(dit);
	tone(dit);
	tone(dit);
}
letter_sluttecken() {
	tone(dit);
	tone(dah);
	tone(dit);
	tone(dah);
	tone(dit);
}
letter_avslutning() {
	tone(dit);
	tone(dit);
	tone(dit);
	tone(dah);
	tone(dit);
	tone(dah);
}


init_beep()
{
/* Beep tone */

	fm_write(0x20,beep[0]);            /* am/vib/ksr/multiple */
	fm_write(0x23,beep[1]);

	fm_write(0x40,beep[2]);            /* ksl/total level */
	fm_write(0x43,beep[3]);

	fm_write(0x60,beep[4]);            /* attack/decay rate */
	fm_write(0x63,beep[5]);

	fm_write(0x80,beep[6]);            /* sustain level/release rate */
	fm_write(0x83,beep[7]);

	fm_write(0xe0,beep[8]);            /*  wave select */
	fm_write(0xe3,beep[9]);

	fm_write(0xc0,beep[10]);           /* feedback/connection */

/* Inteference tone */

	fm_write(0x21,beep[0]);            /* am/vib/ksr/multiple */
	fm_write(0x24,beep[1]);

	fm_write(0x41,beep[2]);            /* ksl/total level */
	fm_write(0x44,beep[3]);

	fm_write(0x61,beep[4]);            /* attack/decay rate */
	fm_write(0x64,beep[5]);

	fm_write(0x81,beep[6]);            /* sustain level/release rate */
	fm_write(0x84,beep[7]);

	fm_write(0xe1,beep[8]);            /*  wave select */
	fm_write(0xe4,beep[9]);

	fm_write(0xc1,beep[10]);           /* feedback/connection */
}

tone(int len)
{
	fm_write(0xb0,beep_on_val);         /* Beep ON */
	newdelay(len);
	fm_write(0xb0,beep_off_val);         /* Beep OFF */
	newdelay(pause);
}

DosRead (int handle, char far *Buffer, unsigned wLen, unsigned *wByteRead)
{
	union REGS regs;
	struct SREGS segregs;

	regs.h.ah = 0x3f ;
	regs.x.bx = handle;
	regs.x.dx = FP_OFF(Buffer);
	regs.x.cx = wLen;
	segregs.ds = FP_SEG(Buffer);

	intdosx(&regs, &regs, &segregs);

	if(regs.x.cflag)    /* error */
		*wByteRead = 0;
	else
		*wByteRead = regs.x.ax ;

	return(*wByteRead);
}


HideCur()
{
	 asm{
		push ax
		push cx

		mov ah,01h
		mov ch,00100110b
		mov cl,00000111b
		int 10H

		pop cx
		pop ax
	 }
}

ShowCur()
{
	 asm{
		push ax
		push cx

		mov ah,01H
		mov ch,00000110b
		mov cl,00000111b
		int 10H

		pop cx
		pop ax
	 }
}

GetCurX()
{
	asm{
		push bx
		push cx

		mov ah,03h
		mov ch,0
		mov cl,24
		mov bh,0
		int 10h

		mov al,dl
		mov ah,0

		pop cx
		pop bx
	}
}
.