. ú ÚÄ¿ úÚÄ¿ ú . ÚÄÄÄÄÄÄÁÄÁÄij ³ÄÄÄÄÄÄÄ¿ ÀÄÄÄ¿ ÚÂÄÂÄij ³¿ ÚÄÄÄÄÙ ú ³ ³³ ³ú ³ ³³ ³ ú ú ³ ³³ ³ .³ ³³ ³ ú . ³ ³³ ÀÄÄÙ ³³ ÀÄÄÄÄ¿ ú ÀÄÙÀÄÄÄÄÄÄÙÀÄÄÄÄÄÄÙ ú ú ú ú . TUC_DEMO UNIT FOR TP/BP v7.0 ============================================================================== VERSION V1.0á þ RELEASE DATE: 16/03/1994 þ 2:48 ============================================================================== Well .. here it is .. the ultimate TEXT BASED demo unit .. here are the first options of it .. and .. here is the color map for the HEX BASED colors .. Well .. also .. if you have hints ,or bug reports ,leave an message to freaker on one of the hq's .. or .. on the apply site .. (you will find the number in the TUC_REL.NFO ! == WE WILL BE HAPPY IF YOU SENT SOME WORK MADE WITH THIS TPU TO ONE OF OUR HQ'S OR APPLY SITE ! == Color Foreground Highlight Background ================================================ Black 00 08 00 Blue 01 09 10 Green 02 0A 20 Cyan 03 0B 30 Red 04 0C 40 Magenta 05 0D 50 Yellow/Brown 06 0E 60 White/gray 07 0F 70 Example: To make a highligted green character on a red background the color code would be 0A+40=4A. To make the character blink add +blink for the result. { (c) CopyRight 1993,94 by Freaker! þ TuC ============================================================================== Help about command's ------------------------------------------------------------------------------ {-} {procedure/function in TUC_TEST.PAS {*} {procedure/function in TUC_DEMO.TPU {/} {procedure/function of Turbo Pascal {!} {NEEDED procedure/function of TUC_DEMO.TPU ============================================================================== Internal procedures/functions ... ------------------------------------------------------------------------------ procedure TUC_HSCINIT; [NEEDED when using HSC routines !] ð Use this when you use the HSC routines (required) procedure TUC_HSCCLOSE(fadehsc:boolean); [CLOSE HSC ROUTINES/only if HSCINIT] ð Use this to DEinitialize the hsc routines (true=fade music/false=no fade) procedure TUC_PLAYHSCBACK; [Play HSC file in background] ð Use this to play the HSC file AFTER blockwrite ! ------------------------------------------------------------------------------ procedure TUC_FADEINIT; [NEEDED when using FADING ROUTINES !] ð Use this when use of the FADING routines (required) procedure TUC_FADECLOSE; [CLOSE FADE ROUTINES ú only if FADEINIT] ð Use this to DEinitialize the fading routines Procedure TUC_FADEOUT(Speed : Integer); [FADE screen out] ð Fade out (delay in milliseconds) Procedure TUC_FADEIN(Speed : Integer); [FADE screen in] ð Fade in (delay in milliseconds) ------------------------------------------------------------------------------ procedure TUC_FLUSHKEYBOARD; [Flush keyboard buffer] ð flush keyboard buffer (after readkey/keypressed for example) function TUC_READKEY:char; [READKEY] ð READ key ,returns "char" as result function TUC_KEYPRESSED:boolean; [KEYPRESSED] ð KEYPRESSED ,returns TRUE if pressed any key ------------------------------------------------------------------------------ PROCEDURE TUC_CURSOROFF; [Turn cursor OFF] ð Turn cursor OFF PROCEDURE TUC_CURSORON; [Turn cursor ON] ð Turn cursor ON ------------------------------------------------------------------------------ procedure TUC_TSCRESET; [TINY SCROLLER SPEED RESET] ð RESET the speed of the TINY scroller procedure TUC_TSC(str:string;xloc,yloc:integer;rand:boolean); [TINY SCROLLER] ð put scroller on screen in following format: TUC_TSC("STRING TO SHOW",X-AXIS,Y-AXIS,TRUE/FALSE); where TRUE/FALSE is random color scroller or just WHITE scroller (or color defined with TUC_TSC_COLOR:=byte of color) procedure tuc_ssc_init; [SMOOTHSCROLL RESET] ð RESET ssc scroller (NECCESARY BEFORE STARTING THIS SCROLLER AGAIN !) procedure tuc_ssc(txt:string;row,yax1,yax2,attr:byte); [SMOOTHSCROLLER] ð TUC_SSC("STRING TO SHOW",X-AXIS,Y-AXIS,Y-AXIS,attribute); ------------------------------------------------------------------------------ procedure TUC_HILITE(OnOff:boolean); [BLINK on/off] ð HILITE characters (blink on/off) procedure TUC_QWRITE(xx,yy:byte;str:string;fc,bc:byte); [QUICKWRITE] ð QUICK WRITE (without CR) procedure TUC_QWRITELN(xx,yy:byte;str:string;fc,bc:byte); [QUICKWRITELN] ð QUICK WRITE (with CR) xx,yy is X-axis and Y-axis str is the string to write fc,bc are foreground color and background color procedure TUC_SWITCHMAP; [SWITCHCHRMAP] Procedure TUC_SWITCHMAP_RESET; ============================================================================== Costumisable parameters ------------------------------------------------------------------------------ const TUC_TSC_CHARDELAY : integer = 6; (character delay TSC scroller in mS) TUC_TSC_ENDDELAY : integer = 800; (enddelay after TSC scroller in mS) TUC_TSC_COLOR : byte = 15; (color of TSC scroller if non-random) TUC_SWITCHMAP_STATUS: boolean = false; (switchmap status / auto updated) } ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ÜÜÜÜÜÜÜÜÜÜÜÜÜÜÜ ß²²±±±°°°°°°°°°°°±±±±±°°±°°°±±±±±±±°°°°°°±±²² ÜÛ±±±±±°°±°°°°±±²ß ß²²±±±°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°±±ß Ü Ü²²±°°°°°°°°±°±±²² ß²²±±±°ßß²±°°°°°°±±±ßßßßßßßßßßß²±±±±±ß ܲ²²° ܲ²±±°°°±±Û±°°±±²²ß ß²²±ß ²±°°°°±±ß Ü²Ü ß²²±ß ܲ²±°²² ²²±±°°°°²²ßßßßßßßß ß ²±°°°±² ܲ±°° ܲ²±±°±² ²²±±°°°°² ²±°°°±± ²²±°°²² ²²²±±°²² ²²±±°°°°± ²±°°°±± ²²±°°±± ²²²±±°±± ²²±±°°°°± Ü²Ü ²±°°°±± ²²±°°±± ²²²±±°±± ²²±±°°°°²²Ü ܲ²±±°Û ²±°°°±± ²²±°°±± ²²²±±°±± ²²±±°°°°²²²²±±²²²±±°°±±²Ü ²±°°°±± ²²±°°²±²Ü ܲ²²±±°²± ß²²±±°°°°²²²±²±±°°°±²²ß ß²²±±°° ²²±°°²²²²²²²±±²²²²²±±°°°±±² ß²²±±°°°°²²±°°°±±²ß ß²²±± ß²±°°²°²²²²²±±²²±±°°°±±²²ß ß²²±±°°°°±±±±²² -Rising to the- ß²² ß²±°°°°°°°°°°°°°°°±±²²ß âhî ßßßßßßßßßßßß -T.O.P- ß ²±±±±±±²²²±²±±±±²²ß Undîçwíçld ßßßßßßßßßßßßßßßßß Cííçpíçàtiín ÜÛßÜ ÜÛßÜ ÜÛßß ÜÛÛßÜ ÜÛßß ÛÛßÜ ÛÛÛÜßß ÜÛÛßÜ ÛÛÜß ÛÛÜß ÛÛß Ü ßßÜ ÛÛß ÛÛ Û ÛÛ Ü ßßÜ ÛÛ ÛÛ Û ßÛÜÜ ÛÛÛß ßÛÜÜ ÛÛ Û ÛÛ ÛÛÛß Ý Ý Þ Ý Û Þ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³ ÚijĴ Senior Staff ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijĿ ³ ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ³ ³ ³ ³ ì FrEaKeR!................PREZIDENT ³ ³ ³ ³ ì Rover...................VICE PREZIDENT ³ ³ ³ ³ ³ ³ ÀijÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijÄÙ ³ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³ ÚijĴ Council staff ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijĿ ³ ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ those guys takes with the Senior staff some decisions ³ ³ ³ ³ ³ ³ ³ ³ Freaker (PreZ) í Rover (Vice-PreZ) ³ ³ ³ ³ ³ ³ ³ ³ Black Panther (Courier cordinator) í Willy Soft (Rover's Nø 1) ³ ³ ³ ³ ³ ³ ÀijÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijÄÙ ³ ÚÄÄÄÄÄÄÄÄÄÄ¿ ³ ÚijĴ Members ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijĿ ³ ³ ÀÄÄÄÄÄÄÄÄÄÄÙ ³ ³ ³ ³ ³ ³ ³ ³ Nemesis í Soul Leader í Night Shade í Hellmaster ³ ³ ³ ³ ³ ³ ³ ³ Lord Venger í The Black Panther í Malcar í Willy Soft ³ ³ ³ ³ ³ ³ ³ ³ Tasmaniac í Hitler í Nomadd í Dr. No í Death Stalker í Mixer ³ ³ ³ ³ ³ ³ ³ ³ Mister Minit í Malcar í Stone Killer í Death Stalker í Ramirez í Zaphod ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ÀijÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijÄÙ ³ ÚÄÄÄÄÄÄÄÄÄÄ¿ ³ ÚijĴ Couriers ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijĿ ³ ³ ÀÄÄÄÄÄÄÄÄÄÄÙ ³ ³ ³ ³ Freaker í Soul Leader í Sonic Boost í Hellmaster í Hitler í ZyXMoN ³ ³ ³ ³ ³ ³ ÀijÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijÄÙ ÚÄÙ ÀÄ¿ ³ CONTACT US AT THESE BOARDS... ³ ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÂÄÄÄÄÄÄÄÄÄÄÄÄÄij ³ BoArD NaMe ³ Nodez ³ TuC-sTaTuS ³ Tha NuMBa'Z ³ SySoP ³ ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÁÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´ ³ ToXiC DrEaMs 2 Lines -* WoRlD HQ *- +32-XXX-XXX-XXXX Freaker ³ ³ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ³ ³ Hell's Kitchen 1 Line -* APPLY HQ *- +32- 89- 71-6488 Lord Venger ³ ³ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ³ ³ Rebel Alliance 4 Lines -* US HQ *- +1-XXX-XXX-XXXX Night Shade ³ ³ The 7th Guest 1 Line -* EuRo HQ *- +32-XXX-XXX-XXXX Rover ³ ³ Terra Pia 1 Line -* BE HQ *- +32-XXX-XXX-XXXX Ramirez ³ ³ The Back Room 3 Lines -* CoUrIeR HQ *- +1-XXX-XXX-XXXX Nomadd ³ ³ Styletron 1 Line -* Amiga HQ *- +1-XXX-XXX-XXXX Malcar ³ ³ Thunder 2 Lines -* IBMPc HQ *- +32-XXX-XXX-XXXX Black Panther ³ ³ ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ³ ³ The Vengeance 1 Line -* Dist/Site *- +32-XXX-XXX-XXXX Hellmaster ³ ³ Dark Site 1 Line -* Dist/Site *- +32-XXX-XXX-XXXX Dr. No ³ ³ RoD 1 Line -* Dist/Site *- +1-XXX-XXX-XXXX Zaphod ³ ³ FatAl EdGe 2 Lines -* Dist/Site *- +1-XXX-XXX-XXXX Mixer ³ ³ GrOuïD Zîro 1 Line -* Dist/Site *- +1-XXX-XXX-XXXX Nemesis ³ ³ ³ ÀÄ¿ ÚÄÄÄÄÄÄÄÄÄÄ¿ ÚÄÙ ÚijĴ On Trial ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijĿ ³ ³ ÀÄÄÄÄÄÄÄÄÄÄÙ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ÀijÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijÄÙ ³ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³ ÚijĴ Greetzzzzzzz ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijĿ ³ ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ³ ³ ³ ³ ³ ³ ³ ³ Black Panther í Crazy Creep í Oakland í Willy Soft í Killroy í Felix ³ ³ ³ ³ ³ ³ ³ ³ Hard Core í Wolfric í X-Bow í Dinv í Fat Pat í TT í Scorpio í BOBO ³ ³ ³ ³ ³ ³ ³ ³ Duelist í Attitude í Neon í Gestapo í Dark Inventor í Lord Cyrix ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ ³ VSW í RAZOR í PTG í NEXUS í SLIVER í UTG í OTL í ACiD í iNC í PWA í AD ³ ³ ³ ³ ³ ³ ³ ³ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³ ÚijĴ And Fuckssss ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijĿ ³ ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ³ ³ ³ ³ ³ ³ ³ ³ DEATH DEALER whoehahaha ... bah ... fuck off ,and .. go to mommy !!!!! ³ ³ ³ ³ ³ ³ ÀijÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄijÄÙ ÚÄÙ ÀÄ¿ ³ If you would have more info ,or want to support TuC ,then login at our ³ ³ TuC - Application site: Hell's Kitchen ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³ ³ Numba: +32-89-716488 ³then leave an message to³ ³ ³ Login ID: TUC ³tha sysop or Freaker ,or³ ³ ³ Password: APPLY ³upload tha applica. form³ ³ ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³ If you like this program ,then please encourage to register/buy it ... ³ ³ Support the hard working author's ! ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿ ³ ** TùuùC iS LoOkInG FoR QuAlItY CoUrIeRs ** ³ ³ ** CoNtAcT Freaker! or Rover oN OnE Of ThE HQ's ** ³ ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ