Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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% = 0: REM Screen mode
- 120 BG% = 132: 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%=HIMEM-LOMEM: REM Free BASIC bytes
- 190 BV$=*VERSION: REM Basic Version
- 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 : ZILOG eZ80 **"
- 850 PRINT TAB(10,3);"MODE:(";M%;") ";W%;"x";H%;" COLOURS:";C%;
- 860 PRINT TAB(10,5);BV$;
- 865
- 870 PRINT TAB(10,7)"BASIC BYTES FREE:";F%;
- 900 :
- 901 REM SET READY PROMPT.
- 910 COLOUR BG%: COLOUR FG%
- 920 PRINT TAB(0,11);"AGON READY."
- 930 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)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement