#include <conio.h>
#include <stdio.h>
#include "stratego.h"
inledning(num)
int num;
{
	int count=1600,skarmstart,count2=1601,scroll=0,test=1;
	char *text[3];
	FILE *fi;
	text[0]="Nu startar du ett spel som heter Stratego, ett mycket rolig spel. Sj„lva programet kommer ifr†n Info Soft Stockholm, det „r skrivet i turboc & prolog av (truboc) Stefan Rapp med Elias M†rtensons hj„lp (prolog) Gustav Berggren .....";
	text[1]="                                                                     Ha trodde du scrollen var slut fel h„r kommer mera som jag skulle s„ga tack f”r att du kommer att l„sa klart scrollen med v„nliga Info Soft ......................";
	text[2]=".........................................................................nu b”rjar den om fr†n b”rjan tryck p† en tagnent f”r att sluta scrollen !!!!                                                                                  ";
	fi=fopen("stratego.cfg","r");
	fscanf(fi,"%d",&skarmstart);
	fclose(fi);
	clrscr();
	switch(num){
		case 1:
			for(;count2<1760;count2+=2)
				pokeb(skarmstart,count2,2);
			while(test){
				for(count2=0;count2<230;count2++){
					pokeb(skarmstart,1758,text[scroll][count2]);
					for(count=1600;count<1760;count+=2)
						pokeb(skarmstart,count,peek(skarmstart,count+2));

					delay(130);
					if(kbhit()!=0){
						test=false;
						count2=230;
					}
				}
				scroll++;
				if(scroll>2)
					scroll=0;

			}
			bioskey(0);
			break;
	}
}
/* num = 1 b”rjan
			 = 2 b”rjan av st„lla upp pj„serna
			 = 3 b”rja sj„lva spelet
			 avslutning = n„r man v„ljer avsluta !!*/

avslutning(){}