HPAVC

home *** CD-ROM | disk | FTP | other *** search

/ HPAVC / HPAVC CD-ROM.iso / pc / CONTRSRC.ZIP / SRC / BISMARCK / STARWAR / CONVERT.PAS < prev next >

Wrap

Pascal/Delphi Source File | 1994-11-20 | 9.5 KB | 422 lines

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.