' ************************************************************************** ' * * ' * BITMAPED PRODUCTIONS * ' * * ' * PRESENTS * ' * * ' * * ' * 'COOL SCROLL!! * ' * * ' * CODE - YAZOO * ' * GFX - YAZOO & MERCURY * ' * MUSIC - XTC (FROM SWIV) * ' * SAMPLE - MEGA LO MANIA (DEMO VERSION) * ' * * ' * * ' * RELEASED ON 19.8.91 * ' * * ' * BITMAPED PRODUCTIONS ARE... * ' * * ' * YAZOO * MERCURY * K-TEL * ' * WATCH OUT FOR OUR MEGA DEMO!! * ' * THIS IS AN ASCII FILE SO YOU CAN'T RIP OUR GFX, MUSIC ETC! * ' ************************************************************************** TITLE PART1 THELASTBIT Procedure TITLE Hide Screen Close 0 Auto View Off Unpack 11 To 0 Screen Display 0,136,-80,, Unpack 12 To 1 Screen 1 Palette $0,$0 Screen Display 1,230,170,, View For Q=-80 To 40 Step 1 Screen Display 0,136,Q,, View Wait Vbl Next Q Screen 1 Fade 5,,$FFF Repeat Until Mouse Key<>0 For Q=40 To -90 Step -1 Screen Display 0,136,Q,, View Wait Vbl Next Q Screen 1 Fade 5 Wait 75 Screen Close 0 Screen Close 1 Auto View On End Proc ' Procedure PART1 Unpack 6 To 0 Screen Hide 0 Screen Open 1,390,22,32,Lowres Screen Display 1,126,40,, Unpack 10 To 3 Screen 3 Screen Hide 3 Unpack 10 To 4 Palette $0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0,$0 Screen 1 Flash Off Fade 1 Wait 15 Paper 0 Cls View Screen Display 4,126,40,, Screen To Back 4 Screen 4 Fade 5 To 3 Wait 100 Screen 4 Shift Up 1,8,31,1 Curs Off Music 1 Screen 1 Flash Off Curs Off Wait 15 Double Buffer Rem Large Scroll Text SC$="ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789.,'!?@&* " S$="#02 ** WELCOME!! ** TO ANOTHER #03 ** BITMAPED PRODUTIONS DEMO ** CALLED ** COOL SCROLL ** " S$=S$+" HMMMM LETS HAVE SOME COLOUR....#24 AHH THAT LOOKS BETTER!! #23 #07 " S$=S$+" O.K. HERE ARE THE CREDITS..... #22 #02 CODE AND FONT BY * YAZOO * " S$=S$+" MUSIC RIPPED FROM * SWIV * AND IS BY * 'XTC' * " S$=S$+" METAL LOGO BY * MERCURY * " S$=S$+" INTRO GFX RENDERED ON * REAL 3D * BY * YAZOO * " S$=S$+" SAMPLE FROM * MEGA LO MANIA, DEMO VERSION * " S$=S$+" O.K. FIRST BUISNESS.... #21 #06 CONTACT YAZOO FOR 2 THINGS........" S$=S$+" THEY ARE TO ** JOIN ** YES I SAID JOIN BP OR TO TRADE NEW STUFF, LEGAL ONLY, THANX!" S$=S$+" TO JOIN SEND AN EXAMPLE OF WHAT YOU DO, CODE, GFX, MUSIC OR EVEN CREATE AMOS 3D OBJECTS" S$=S$+" THE LAST IS QUITE IMPORTANT, COS I AM HOPELESS USING 'OM'!! " S$=S$+" WELL ANY WAY HERE IS MY ADDRESS...... " S$=S$+" #05 #22 104 BP HQ, LONDON ROAD, STANWAY, COLCHESTER, ESSEX, CO3 5HD, ENGLAND." S$=S$+" OR YOU CAN WRITE TO MERCURY AT THE FOLLOWING................ " S$=S$+" 133 STRAIGHT ROAD, LEXDEN, COLCHESTER, ESSEX, CO3 5DE, ENGLAND." S$=S$+" SQUEEZE A RAT EAR DO QUIT THIS DEMO!!! " S$=S$+" #08 #21 WELL THAT WAS IT!! DON'T WORRY IF YOU MISSED EM, COS THEY ARE IN THE" S$=S$+" END PART!!??!! " S$=S$+" #08 #25 DO YOU LIKE THIS FONT? ITS A 22 COLOUR FONT WHICH IS VERY VERSITILE!!" S$=S$+" AS YOU HAVE NOTICED!!! WELL ANY WAY THE BACK GROUND COLOURS ARE *NOT* DUN WITH" S$=S$+" THE 'RAINBOW' COMMAND OR SUCH LIKE, THEY ARE ON THE FONT, WHICH MAKES CYCLING EM EASIER!" S$=S$+" #02 SOON TO COME FROM BP THATS BITMAPED PRODUCTIONS TO YOU!!" S$=S$+" ** MEGA DEMO 1 ** CHAIN DEMO ** COPPER INTRO ** 3D DEMO ** " S$=S$+" STOP PRESS!! THE COPPER INTRO WILL NOW BE IN THE MEGA DEMO, WATCH OUT FOR IT!!! " S$=S$+" YOU MAY NOTICE THAT THIS IS COMPILED, THAT IS FOR 2 REASONS..." S$=S$+" 1. SO NO ONE RIPPES OUR MUSIC, GFX ETC " S$=S$+" 2. AND FOR SPEED, THERE IS A BIG IMPROVMENT IN OUT COPPER INTRO!!!" S$=S$+" #04 #08 #24 O.K. NOW SOME GREETZ............" S$=S$+" K TEL, NICE TO HEAR FROM YOU ON YOUR HOLLS!!" S$=S$+" MERCURY, LETS HAVE SOME MORE GFX SOON!! AND SORRY I SPELT YA NAME WRONG IN THE LAST DEMO!!!" S$=S$+" WILL, HMM LET ME TELL YOU WHAT I HAVE IN MY ROOM...... AAAAAARRRRRRRRGGGGGGGGGGGHHHHH!! HE HE!" S$=S$+" SYNTEX, STILL HAVE NOT SEEN ONE OF YOUR DEMOS!!" S$=S$+" ALL AT VUDOO SOFTWARE, HMM 3D IS NOT USER FRIENDLY IS IT?? " S$=S$+" HANISSIS, HMMMM NICE DEMO, I HAVE JUST SEEN YOUR 'AMOS DEMO 1' NOT BAD" S$=S$+" BUT THEM VECTORS!!! I LIKE THE FLOOD FILL AT THE END THOUGH!" S$=S$+" FANAFIX, I HAVE NOT SEEN ONE OF YOUR DEMOS BUT THEY SOUND GOOD, SEND ME SOME!!!" S$=S$+" AND TO ALL AMOS FANS OUT THERE!!" S$=S$+" NOTE... AT THE END YOU ARE PRESENTED WITH A 'YAZOO' LOGO, AT THAT POINT YOU MUST RESET YOUR COMPUTER!" S$=S$+" WELL WITH THAT I WRAP THE TEXT BYE........." S$=S$+" #23 #02 & BITMAPED PRODUTIONS 1991 RELEASE DATE... 19.8.91 #01 #21 @ " LGH=Len(SC$) Dim X(LGH) Dim Y(LGH) Dim C(LGH) Dim V(LGH) Restore For Q=1 To LGH Read TEMP$ Read X(Q) Read Y(Q) Read C(Q) Read V(Q) Next Q POS=1 MAIN: Do Gosub SCR0LL Screen Swap Wait Vbl If Mouse Key<>0 Then Goto FINNISHPROC Loop SCR0LL: Screen 1 Screen Copy Physic(1),2,0,380,22 To Logic(1),0,0 If COUNT=11 Then Gosub CHAR Inc COUNT Return CHAR: NCHAR$=Mid$(S$,POS,1) If NCHAR$="#" Then Goto FX CN=Instr(SC$,NCHAR$) Screen Copy 0,X(CN),Y(CN),C(CN),V(CN) To Logic(1),350,0 Inc POS If POS=Len(S$) Then POS=1 COUNT=1 Return FX: Inc POS NCHAR$=Mid$(S$,POS,2) POS=POS+2 Rem text colour If NCHAR$="01" Then Fade 2,,$0,,$0,$0,$0,$0,$0,$0,$0,$0,$0 If NCHAR$="02" Then Fade 2,,$FFF,,$888,$0,$0,$0,$0,$0,$0,$0,$0 If NCHAR$="03" Then Fade 2,,$FFF,,$888,$AAA,$AAA,$AAA,$AAA,$AAA,$AAA,$AAA,$AAA If NCHAR$="04" Then Fade 2,,$FFF,,$888,$330,$440,$550,$660,$770,$880,$990,$AA0 If NCHAR$="05" Then Fade 2,,,,,$F00,$D00,$B00,$900,$700,$500,$300,$100 If NCHAR$="06" Then Fade 2,,$FAA,,$8AA,$FAA,$DAA,$BAA,$9AA,$7AA,$5AA,$3AA,$1AA,,,,,,,,,,,,,,,,,,,,, If NCHAR$="07" Then Fade 2,,,,,$FFF,$FDD,$FBB,$F99,$F77,$F55,$F33,$F00 If NCHAR$="08" Then Fade 2,,$0,,$0 Rem back ground! If NCHAR$="21" Then Fade 2,,,,,,,,,,,,,,$0,$0,$0,$0,$0,$0,$0,$0 If NCHAR$="22" Then Fade 2,,,,,,,,,,,,,,$400,$800,$A00,$B00,$B00,$B00,$B00,$B00 If NCHAR$="23" Then Fade 2,,,,,,,,,,,,,,$4,$8,$A,$B,$B,$B,$B,$B If NCHAR$="24" Then Fade 2,,,,,,,,,,,,,,$110,$220,$330,$440,$550,$660,$770,$880 If NCHAR$="25" Then Fade 2,,,,,,,,,,,,,,$888,$AAA,$FFF,$AAA,$888,$800,$A00,$F00 Goto CHAR Data "A",1,0,21,21 Data "B",21,0,41,21 Data "C",41,0,61,21 Data "D",61,0,81,21 Data "E",81,0,101,21 Data "F",101,0,121,21 Data "G",121,0,141,21 Data "H",141,0,161,21 Data "I",161,0,181,21 Data "J",181,0,201,21 Data "K",201,0,221,21 Data "L",221,0,241,21 Data "M",241,0,261,21 Data "N",261,0,281,21 Data "O",281,0,301,21 Data "P",301,0,321,21 Data "Q",1,21,21,42 Data "R",21,21,41,42 Data "S",41,21,61,42 Data "T",61,21,81,42 Data "U",81,21,101,42 Data "V",101,21,121,42 Data "W",121,21,141,42 Data "X",141,21,161,42 Data "Y",161,21,181,42 Data "Z",181,21,201,42 Data "0",201,21,221,42 Data "1",221,21,241,42 Data "2",241,21,261,42 Data "3",261,21,281,42 Data "4",281,21,301,42 Data "5",301,21,321,42 Data "6",1,42,21,64 Data "7",21,42,41,64 Data "8",41,42,61,64 Data "9",61,42,81,64 Data ".",81,42,101,64 Data ",",101,42,121,64 Data "'",121,42,141,64 Data "!",141,42,161,64 Data "?",161,42,181,64 Data "@",181,42,201,64 Data "*",201,42,221,64 Data " ",221,42,241,64 Data " ",241,42,261,64 FINNISHPROC: Screen 1 Fade 1 Wait 15 Screen 4 Shift Off Fade 1 Wait 15 Screen Close 4 For Q=63 To 1 Step -1 Volume Q Wait 2 Next Q Music Off Volume 63 Screen Close 1 Screen Close 0 End Proc ' Procedure THELASTBIT Auto View Off Unpack 9 To 0 Palette $0,$0,$0,$0,$0,$0,$0,$0 Unpack 8 To 1 Screen Display 1,136,60,, Screen Display 0,146,40,, Screen To Front 0 Screen 0 Screen 1 Palette $0,$0 View Screen 0 Fade 5,$0,$FFF,$DDD,$BBB,$999,$777,$555,$333 Wait 75 Screen 1 Fade 5,$0,$FFF Sam Play %1111,1,13000 Wait 500 Fade 5 Wait 75 Screen 0 Fade 5 Wait 75 Screen Close 0 Screen Close 1 Unpack 13 To 0 Screen Show 0 Palette $0,$0,$0,$0,$0,$0,$0,$0,$0 Screen Display 0,236,150,, View Fade 5,$0,$0,$FF8,$88F,$F88,$8F8,$0,$0 Wait 75 Do Loop Rem HA An infinate loop!!!! End Proc