Agon Light2 Load Screen

   10 REM BBC Basic header file
   20 REM Written by Steve Lovejoy aka Lovejoy777
   30 REM Icon design by Arnold Meszaros (netangel)
   100 :
   101 REM Initialization, getting system vars, setting others
   102 REM MODE 0  = 80x60, 16 colours.
   103 REM MODE 1  = 80x60, 4 colours.
   104 REM MODE 2  = 80x60, 2 colours.
   105 REM MODE 3  = 80x30, 64 colours.
   106 REM MODE 4  = 80x30, 16 colours.
   107 REM MODE 7  = 40x25, 16 colours orig bbcmicro.
   108 REM MODE 8  = 40x30, 64 colours.
   109 REM MODE 12 = 40X25, 64 colours.
   110 M% = 8: REM Screen mode
   120 BG% = 140: REM Background color (blue)
   130 FG%= 15: REM Foreground color (white)
   140 MODE M%: COLOUR BG%: COLOUR FG%: CLS
   150 W%=FN_GETBYTE_VDP(&13): REM Screen width in chars
   160 H%=FN_GETBYTE_VDP(&14): REM Screen height in chars
   170 C%=FN_GETBYTE_VDP(&15): REM Number of colours
   180 F%=48000: REM Free BASIC bytes
   200 :
   201 REM Agon Light "Sitting Kung Fu man" logo chars
   210 VDU 23,200,7,15,31,31,31,31,31,63
   220 VDU 23,201,192,224,240,240,240,240,240,248
   230 VDU 23,202,63,63,31,15,15,15,7,7
   240 VDU 23,203,248,248,240,224,224,224,192,192
   250 VDU 23,204,0,1,7,15,31,63,127,127
   260 VDU 23,205,7,199,199,195,227,225,240,240
   270 VDU 23,206,192,195,195,135,135,15,15,31
   280 VDU 23,207,0,0,224,240,248,252,252,254
   290 VDU 23,208,0,0,1,1,3,3,7,7
   300 VDU 23,209,255,255,255,255,255,255,255,255
   310 VDU 23,210,248,248,248,240,224,225,193,195
   320 VDU 23,211,63,63,127,255,255,255,255,255
   330 VDU 23,212,255,255,255,255,255,255,223,223
   340 VDU 23,213,0,0,128,128,128,192,192,192
   350 VDU 23,214,7,7,15,15,15,15,15,31
   360 VDU 23,215,255,247,231,231,231,199,135,130
   370 VDU 23,216,199,135,135,143,15,15,31,31
   380 VDU 23,217,207,207,207,199,199,195,129,1
   390 VDU 23,218,224,224,224,240,240,240,240,240
   400 VDU 23,219,31,31,31,31,15,15,15,31
   410 VDU 23,220,128,128,128,128,129,143,135,143
   420 VDU 23,221,31,63,15,0,128,224,224,195
   430 VDU 23,222,252,240,128,0,3,7,35,243
   440 VDU 23,223,1,1,1,129,193,225,241,241
   450 VDU 23,224,240,240,240,240,240,240,240,240
   460 VDU 23,225,31,31,3,3,3,3,7,15
   470 VDU 23,226,223,255,255,255,255,255,254,254
   480 VDU 23,227,199,135,135,7,15,15,31,31
   490 VDU 23,228,241,241,241,248,248,248,248,248
   500 VDU 23,229,253,255,255,255,255,255,255,127
   510 VDU 23,230,240,248,248,224,224,224,240,248
   520 VDU 23,231,31,63,63,63,31,31,15,0
   530 VDU 23,232,254,252,252,252,248,248,224,0
   540 VDU 23,233,31,60,32,0,0,0,0,0
   550 VDU 23,234,120,28,12,12,0,0,0,0
   560 VDU 23,235,127,127,127,127,127,63,15,0
   570 VDU 23,236,248,252,252,252,252,248,240,0
   580 VDU 23,237,255,254,252,248,240,224,192,128
   600 :
   601 REM Displaying the logo line by line
   602 REM From custom chars defined previously
   610 COLOUR 15: PRINT TAB(2,1);"  ";CHR$(200);CHR$(201);"   ";
   630 COLOUR 15: PRINT TAB(2,2);"  ";CHR$(202);CHR$(203);"   ";
   650 COLOUR 15: PRINT TAB(2,3);" ";CHR$(204);CHR$(205);CHR$(206);CHR$(207);"  ";
   670 COLOUR 15: PRINT TAB(2,4);CHR$(208);CHR$(209);CHR$(210);CHR$(211);CHR$(212);CHR$(213);" ";
   690 COLOUR 15: PRINT TAB(2,5);CHR$(214);CHR$(215);CHR$(216);CHR$(209);CHR$(217);CHR$(218);" ";
   710 COLOUR 15: PRINT TAB(2,6);CHR$(219);CHR$(220);CHR$(221);CHR$(222);CHR$(223);CHR$(224);" ";
   730 COLOUR 15: PRINT TAB(2,7);CHR$(225);CHR$(226);CHR$(227);CHR$(228);CHR$(229);CHR$(230);" ";
   750 COLOUR 15: PRINT TAB(2,8);CHR$(231);CHR$(232);CHR$(233);CHR$(234);CHR$(235);CHR$(236);" ";
   800 :
   801 REM Displaying the header title and imfo line by line.
   830 PRINT TAB(10,1);"** AGON LIGHT2 BASIC V3 **"
   850 PRINT TAB(10,3);"MODE:(";M%;") ";W%;"x";H%;" COLOURS:";C%;
   860 PRINT TAB(10,5);"BASIC BYTES FREE:";F%;
   870 PRINT TAB(10,7);"CPU:ZILOG eZ80"
   900 :
   901 REM SET READY PROMPT.
   910 COLOUR BG%: COLOUR FG%
   920 PRINT TAB(0,11);"AGON READY."
   930 REM NEW
   940 END
   950 :
   960 DEF FN_GETBYTE_VDP(V%): A%=&A0: L%=V%: =USR(&FFF4)
   970 :
   980 DEF FN_GETWORD_VDP(V%): =FN_GETBYTE_VDP(V%)+256*FN_GETBYTE_VDP(V%+1)