PROGRAM converttext;
uses crt;
const taille = 377;
const texte : array [1..taille,1..16] of char =
('                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ', 
 '                ',
 '  The Flamoots  ',
 '                ',
 '      and       ',
 '                ',
 'The Dark Vision ',
 '                ',
 '                ',
 ' have presented ',
 '                ',
 '                ',
 '      the       ',
 '                ',
 ' c o n t r a s t',
 '                ',
 '    d e m o     ',
 '                ',
 '                ',
 '                ',
 '  The Members   ',
 '  of our team   ',
 '                ',
 '  Coding        ',
 '                ',
 '      Type One  ',
 '      Morflame  ',
 '        Gopi    ',
 '      Bismarck  ',
 '       Karma    ',
 '        Sam     ',
 '                ',
 '                ',
 '  Graphics      ',
 '                ',
 '      Zoltan    ',
 '      Fred      ',
 '      Youvi     ',
 '                ',
 '                ',
 '  Music         ',
 '                ',
 '      Fred      ',
 '                ',
 '                ',
 ' Ansi''s Artist  ',
 '                ',
 '   Green Kawa   ',
 '                ',
 '                ',
 '    --------    ',
 '                ',
 '   Demo group   ',
 '   greetingz:   ',
 '                ',
 '    --------    ',
 '                ',
 ' Access Denied  ',
 '    Antares     ',
 '   Avalanche    ',
 '   Channel 38   ',
 '   Chryseis     ',
 '    Delusion    ',
 'Electronic Rats ',
 '      Eko       ',
 'Elctron. Images ',
 '    Enigma      ',
 '    Extreme     ',
 '  Future Crew   ',
 '      HDT       ',
 '  Hemoroids PC  ',
 '   Hypernova    ',
 '  ID SoftWare   ',
 '     Iguana     ',
 '    Infinity    ',
 '  Independants  ',
 '    Imagine     ',
 'Imphobia-Cascada',
 '   Isch-Crew    ',
 '     Lazer      ',
 '   Melting Pot  ',
 '     Natives    ',
 '    N- Factor   ',
 '      N F F     ',
 '     Outlaws    ',
 '   Renaissance  ',
 '      Split     ',
 '       S!P      ',
 ' Synergy Design ',
 '     Therapy    ',
 '     Triton     ',
 '    Vibrants    ',
 '      V L A     ',
 '      V S W     ',
 '      Witan     ',
 '                ',
 '   And all the  ',
 ' the demo groups',
 '      !!!!!     ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 ' Yahouuurt !!!  ',
 '   Yo, that''s   ',
 '    Type One    ',
 '  writing some  ',
 '    chars !!!   ',
 '                ',
 '                ',
 '  So i have to  ',
 'greet some guyz ',
 '................',
 ' Nikopol, Nemrod',
 ' ( Channel 38 ) ',
 '                ',
 ' Sinew Shy,Mesh,',
 '   Pom,Nic,LEM  ',
 '  (TRB - SPLIT) ',
 '                ',
 'Wizard, Darkness',
 '    (IMPCDA)    ',
 '                ',
 '  CEI President ',
 '    (OUTLAWS)   ',
 '                ',
 '- Emperor, PuZ -',
 '  (The Natives) ',
 '                ',
 '- White Shadow -',
 '  (Renaissance) ',
 '                ',
 ' - Pallbearer - ',
 ' (eng.ufl.edu)  ',
 '                ',
 '  - Zharkov -   ',
 ' ( EXOCET BBS ) ',
 '                ',
 '   - Shamen -   ',
 ' (Technoise BBS)',
 '................',
 ' - WarmBooter - ',
 ' - Hodek Pavel -',
 '   - Psyched -  ',
 '   - MArtist -  ',
 '    - Khi_2 -   ',
 '    - Yvan -    ',
 '    - Fly -     ',
 '   - Mr GUN -   ',
 '    - Abdel -   ',
 '    - Aldo -    ',
 '    - Recu -    ',
 '     - GLU -    ',
 '................',
 '  Fred Huygens  ',
 '   Greg Seront  ',
 '   Veronique    ',
 '   Sonneville   ',
 ' Claude Magheels',
 '  Guy Louchard  ',
 '     Raymond    ',
 '    Devillers   ',
 '  Yves Roggeman ',
 ' Thierry Massart',
 '................',
 ' And to all my  ',
 ' fans :-) and   ',
 ' guyz i had a   ',
 ' nice chat with ',
 '                ',
 ' A big kiss to  ',
 ' all my friends ',
 ' at the ULB     ',
 '     and all    ',
 ' flamoots around',
 ' the earth :-)  ',
 '                ',
 '................',
 '                ',
 ' Well, here are ',
 '   Morflame''s   ',
 '    greetz      ',
 '................',
 ' - Torlock Pop -',
 ' Hysteria was a ',
 '   great board  ',
 ' - Whitesnake - ',
 '(Yes, TDV lives)',
 '  - Mephisto -  ',
 ' We are waiting ',
 '    for you!    ',
 '-Gordon Sumway- ',
 '  - Top Gun -   ',
 ' The coolest Dj ',
 '   in Belgium   ',
 '  - FastJack -  ',
 'I''m waiting for ',
 '   your game!   ',
 '   - Shamen -   ',
 '   - Nikopol -  ',
 '   - Nemrod -   ',
 '    - Eryx -    ',
 '   - Spinal -   ',
 '    - PeP -     ',
 '   - Didier -   ',
 '   - Shade -    ',
 '  The  Perfect  ',
 '    Tourist     ',
 '................',
 '''Le Cercle Info ',
 '    de l''ULB''   ',
 '................',
 ' All funny girls',
 ' and  of course ',
 '  all my RPG''s  ',
 '    friends     ',
 '................',
 '  And remember, ',
 '  Time has  no  ',
 '     meaning    ',
 'There is no past',
 '    no future   ',
 '  There is just ',
 'the  endless now',
 '................',
 '                ',
 '                ',
 '  Karma greetz  ',
 '                ',
 '  Mesh (Split)  ',
 '     Alexel     ',
 '   (Isch Crew)  ',
 '      Ghory     ',
 '   (Isch Crew)  ',
 '     Wizard     ',
 '    (IMPCDA)    ',
 '  Benoit Voisin ',
 '                ',
 '                ',
 '                ',
 ' Bismarck greets',
 '                ',
 '     Wizard     ',
 '     Glaoum     ',
 '  White Dragon  ',
 '      Eska      ',
 '     Z-Soft     ',
 '  CEI president ',
 '                ',
 '                ',
 '                ',
 '                ',
 'SAM''s greetingz:',
 '                ',
 ' He He Cool Yek,',
 ' Sam want thanks',
 '  All the cool  ',
 '  guys who have ',
 '  made Wired 94 ',
 'possible, it was',
 ' A great party !',
 '  Now Sam want  ',
 'greet these fol-',
 ' lowing people :',
 '   Aldo, Fred,  ',
 '   Benoit, all  ',
 'TFL/TDV members,',
 '    MSX, Yvan   ',
 ' (des...),Fly,GG',
 '(see asm power),',
 '  Sabine,France ',
 ' (nice girl but ',
 'too bad for the ',
 ' bed),  Claudia ',
 '  Shiffer Rhaa, ',
 'Beavis and Butt-',
 ' head. And other',
 ' cool guys That ',
 '  I forgot for  ',
 '      now.      ',
 ' CU L8r Dude ...',
 '                ',
 '                ',
 '                ',
 '    Zoltan''s    ',
 '   greetings:   ',
 '                ',
 '    Lipton ,    ',
 ' and all those  ',
 ' who think they ',
 '   merit it.    ',
 '                ',
 '                ',
 '                ',
 '     Fred''s     ',
 '   greetings:   ',
 '                ',
 '                ',
 '  Hi to PC-boy  ',
 '  the smartest  ',
 '   guy in the   ',
 '     world.     ',
 '                ',
 ' Thanks to D0mm/',
 '   Animal Mine, ',
 '   because the  ',
 '  birth of this ',
 ' module has been',
 '  inspirated by ',
 '  Primal Urge = ',
 ' "plastikk.mod".',
 '                ',
 ' Hi to Darkness ',
 ' from IMPCDA who',
 ' doesn''t like my',
 ' FLamoutch style',
 '                ',
 '  a big kiss to ',
 ' the gfx girl of',
 '   Melting Pot  ',
 '  (aooooooow !) ',
 '                ',
 '  Hi to Nikopol ',
 ' from Channel 38',
 '                ',
 '                ',
 ' I wish to thank',
 ' my mom for the ',
 '  breakfast she ',
 ' prepared for me',
 ' before going to',
 '   Wired ''94.   ',
 '                ',
 '  And I mostly  ',
 '  thank GOD who ',
 ' have permitted ',
 ' this exe to run',
 '   during the   ',
 ' presentation in',
 '  spite of one  ',
 '  thousand bugs ',
 '     ! ! !      ',
 '                ',
 '                ',
 '                ',
 '   Gopi kisses  ',
 ' every girls he ',
 '   met at  the  ',
 ' Saint-Verhaegen',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ',
 '                ');

var textefich : text;
    x,y: word;
begin
	textmode (co80);
	assign(textefich,'textefin.inc');
	rewrite(textefich);
	write(textefich,'textes ');
	for y:=1 to taille do
	begin
		write(textefich,'BYTE ');
		for x:=1 to 16 do
		begin
			case texte[y,x] of #65..#90 : write(textefich,ord(texte[y,x])-64);
												 #97..#122 : write(textefich,ord(texte[y,x])-96);
												 #130 : write(textefich,27);
												 #138 : write(textefich,28);
												 #123 : write(textefich,29);
												 #133 : write(textefich,30);
												 #44 : write(textefich,31);
												 #63 : write(textefich,32);
												 #59 : write(textefich,33);
												 #46 : write(textefich,34);
												 #58 : write(textefich,35);
												 #47 : write(textefich,36);
												 #33 : write(textefich,37);
												 #42 : write(textefich,38);
												 #45 : write(textefich,39);
												 #49..#57 : write(textefich,ord(texte[y,x])-9);
												 #48 : write(textefich,49);
												 #40..#41 : write(textefich,ord(texte[y,x])+10);
												 #39 : write(textefich,52)
											 else write(textefich,0);
											 end;
			if x<16 then write(textefich,', ');
		end;
		writeln(textefich);
	end;
	close(textefich);
end.
