Screen Open 0,320,256,2,Lowres : Flash Off : Curs Off : Hide On : Cls 0
Default : Cls 0 : Hide On
Wait Vbl
Close Workbench : Close Editor : Led Off : Break Off
Reserve As Chip Work 11,3000
Set Tempras 11,3000
Wait Vbl
Load "bespr.abk",1
Load "bemus.abk",3
Load "be5.abk",5
Load "be6.abk",6
Load "be7.abk",7
Load "be8.abk",8
Load "be9.abk",9
Load "be10.abk",10
Wait Vbl
Music 1
T$=" AND IT'S YET ANOTHER FANATIX DEMO... THIS WAS JUST DONE TO DEMONSTRATE THE KIND"
T$=T$+" OF SMOOTH HARDWARE SCROLLING THAT AMOS IS CAPABLE OF... YOU MAY THINK THAT THE BIT AT THE BACK JERKS,"
T$=T$+" BUT IT IS MOVING A PIXEL AT A TIME, AND TO MAKE IT SLOWER I USED MORE VBL'S.... "
T$=T$+" ANYWAY, IT IS CALLED THE BEASTLY DEMO, AND DRAWS IDEAS FROM BEAST 1, BEAST 2, AND A DEMO BY KEFRENS."
T$=T$+" THE CODING WAS BY JAG, THE GFX BY JAG AND CLOUDS BOTCHED BY CHAOS, AND MUSIC BY KEFRENS... "
T$=T$+"WE ARE MADLY TRYING TO GET THIS STUPID MEGADEMO WORKING BEFORE THE 12TH OF JULY IN TIME FOR THE 16-BIT SHOW..."
T$=T$+" THE LANGUAGE IN THIS MEGADEMO HAS BEEN TONED DOWN, AS 3 WAS SENT BACK TO BE CENSORED!!?! "
T$=T$+" HONESTLY, IT WAS HARDLY WORTH IT, BUT WE DID IT BECAUSE IF WE DIDN'T A CERTAIN S.S. WOULD NOT PUT IT IN"
T$=T$+" THE PD LIBRARY. SO BE CAREFUL EVERYBODY ELSE, ALTHOUGH IT TAKES ONLY HALF AND HOUR TO CENSOR SOMETHING"
T$=T$+", IT IS A LOT OF HASSLE.... WE HOPE YOU ENJOY THE BOB TRAINER ON THIS DISK, IT IS BRILLIANT, AND IT IS "
T$=T$+"OVER 200K LONG!!! THE MUSIC WAS RESPONSIBLE, BUT WE'VE BEEN LOOKING FOR A DEMO TO STICK IT IN FOR A LONG TIME.... "
T$=T$+" I THINK THERE WILL BE ANOTHER DEMO PART TO CODE, IT DEPENDS HOW BIG THIS TURNS OUT TO BE. IT HAS A FAIR BIT OF GFX AND MUSIC, BUT"
T$=T$+" I SHOULD BE ABLE TO FIT A SMALL ONE ON. A BEETLEMANIA DEMO PERHAPS, I STILL HAVE 3 DAYS TO GET THIS FINISHED!! AND WE ONLY SENT OFF"
T$=T$+" MEGADEMO 3 A FEW WEEKS AGO. WE AT FANATIX HAVE A HOBBY CALLED 'SPEED CODING'... I WILL HOPEFULLY GET THE COMPILER FROM THE 16-BIT SHOW"
T$=T$+" UNLESS MANDARIN (EUROPRESS SOFTWARE) HAVE BEEN LAME AND RELEASED IT LATE. IF THEY HAVE I WILL NEVER FORGIVE THEM, AS WE WERE GOING TO"
T$=T$+" MAKE MEGADEMO 5 A REAL WORK OF ART... WITHOUT THE COMPILER THIS WILL NOT BE POSSIBLE, AND WE WILL HAVE TO DELAY AND WRITE A LAME GAME"
T$=T$+" OR SOMETHING..... GREETS GO TO THE FOLLOWING COOL PEOPLE: CYBORNETICS, SYNTEX, BENSON, CUROS AND STAVROS, GAZ 'N MATT, ROBOTS, PANTHORUS,"
T$=T$+" FRANCOIS L, SANDRA S, AND THE LAME EFFORTS CALLED ARBITEZ (HOW'S THE MEGADEMO?? HA HA!! WHEN WILL OYU GIVE UP AND DIE?)... "
T$=T$+"I AM PRETTY ANNOYED WITH TOME, AS THE SCREENCOPY METHOD OF SCROLLING MAPS IS A BIT CRAP, SO I AM WORKING ON A ROUTINE TO HARDWARE SCROLL IT. WISH ME LUCK,"
T$=T$+" I'M GOING TO NEED IT. OH WELL, I'M OFF NOW, GOT A DENTIST'S APPOINTMENT IN A FEW MINUTES... BYE..... "
CH=1
No Mask
Unpack 5 To 0 : Hide On
Screen Display 0,110,121,,
Wait Vbl
Unpack 6 To 1
Screen Display 1,110,102,,
Wait Vbl
Unpack 7 To 2
Screen Display 2,110,71,,
Wait Vbl
Unpack 8 To 3
Palette $0,$FFF,$999,$777,$444,$222,,
Screen Display 3,110,40,,
Wait Vbl
Unpack 9 To 4
Screen Display 4,110,248,,
Wait Vbl
Unpack 10 To 5
Screen Display 5,110,265,,
Wait Vbl
Screen Open 6,800,32,8,Lowres : Flash Off : Curs Off : Hide On : Cls 0
Get Palette 5
Screen Display 6,110,265,,
Wait Vbl
Screen Offset 6,1,
Screen To Front 5
Wait Vbl : Wait Vbl
Dual Playfield 6,5
For F=0 To 7 : Colour(F+8),Colour(F) : Next F
Get Sprite Palette %11111111
Screen To Front 4 : Screen To Front 3 : Screen To Front 2 : Screen To Front 1 : Screen To Front 0
Set Rainbow 0,0,162,"","",""
Rainbow 0,0,40,162
Wait Vbl
Gosub RPAINT
Wait Vbl
A$="Let RB=0; Restart: Let RA=1; Pause; Loop: Let RA=RA+6; Let X=RA; Let RB=RB+1; If RB=5 then Jump G; H: If X>384 then Jump Restart; Pause; Jump Loop; G: Let RB=0; Jump H;"
B$="Restart: Let X=0; Loop: Let X=X+1; If X>320 then Jump Restart; Pause; Pause; Pause; Jump Loop"
C$="Restart: Let X=0; Loop: Let X=X+1; If X>320 then Jump Restart; Pause; Pause; Jump Loop"
D$="Restart: Let X=0; Loop: Let X=X+1; If X>320 then Jump Restart; Pause; Jump Loop"
E$="Restart: Let X=0; Loop: Let X=X+2; If X>320 then Jump Restart; Pause; Jump Loop"
F$="Restart: Let X=0; Loop: Let X=X+4; If X>320 then Jump Restart; Pause; Jump Loop"
G$="Restart: Let X=1; Loop: Let X=X+8; If X>321 then Jump Restart; Pause; Jump Loop"
Channel 1 To Screen Offset 0
Channel 2 To Screen Offset 1
Channel 3 To Screen Offset 2
Channel 4 To Screen Offset 3
Channel 5 To Screen Offset 4
Channel 6 To Screen Offset 5
Channel 0 To Screen Offset 6
Amal 0,A$ : Wait Vbl : Amal 1,B$ : Wait Vbl : Amal 2,C$ : Wait Vbl : Amal 3,D$ : Wait Vbl : Amal 4,E$ : Wait Vbl : Amal 5,F$ : Wait Vbl : Amal 6,G$
For F=0 To 6
Amal On F : Wait Vbl
Next F
Do
SC=Amreg(0)
N=Amreg(1)
If N=4 Then Gosub NCHAR
If Mouse Key=1 Then Goto DIE
Wait Vbl
Loop
NCHAR:
B=Asc(Mid$(T$,CH,1))
Inc CH : If CH=Len(T$) Then CH=1
Paste Bob SC-32,0,B : Paste Bob SC+352,0,B
Return
RPAINT:
Restore RDATA
For F=0 To 161
Read R : Rain(0,F)=R
Next F
Return
RDATA:
Data $6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6,$6
Data $108,$108,$108,$108,$108,$108,$108,$108,$108,$108,$108,$108,$108,$108,$108,$108,$20A,$20A,$20A,$20A,$20A,$20A,$20A,$20A,$20A,$20A
Data $20A,$20A,$40D,$40D,$40D,$40D,$40D,$40D,$40D,$40D,$40D,$40D,$40D,$40D,$40D,$40D,$40D,$40D,$70F,$70F
Data $70F,$70F,$70F,$70F,$70F,$70F,$70F,$70F,$A0F,$A0F,$A0F,$A0F,$A0F,$A0F,$A0F,$A0F
Data $C0F,$C0F,$C0F,$C0F,$C0F,$C0F,$C0F,$C0F,$C0F,$C0F,$F0F,$F0F,$F0F,$F0F,$F0F,$F0F,$F0F,$F0F,$F0F
Data $F0D,$F0D,$F0D,$F0D,$F0D,$F0D,$F0D,$F0D,$F0D,$F0B,$F0B,$F0B,$F0B,$F0B,$F0B,$F0B,$F0B,$F0B,$F08,$F08,$F08,$F08
Data $F08,$F08,$F08,$F08,$F06,$F06,$F06,$F06,$F06,$F06,$F06,$F06,$F03,$F03,$F03,$F03,$F03,$F03
Data $F12,$F12,$F12,$F12,$F12,$F12,$F32,$F32,$F32,$F32,$F32,$F63,$F63,$F63
