HAUNTED HOUSE TITLE

   10 REM *****************************************
   20 REM * User Defined Character Title Screen   *
   30 REM * Version 1.0                           *
   40 REM *                                       *
   50 REM * Written for the Agon Light2           *
   60 REM * By Steve Lovejoy       2023           *
   70 REM *****************************************
   80 MODE 8 : REM 40x30, 16 colours.
   85 VDU 23,1,0;0;0;0; : REM Disable cursor
   90 REM ASSIGN H to CHRS.
   100 VDU 23,201,0,56,56,56,56,56,57,59
   110 VDU 23,202,0,28,28,28,28,28,252,252
   120 VDU 23,203,57,56,56,56,56,56,56,48
   130 VDU 23,204,252,60,28,28,28,28,28,12
   140 REM ASSIGN A to CHARS.
   150 VDU 23,205,0,1,1,3,3,7,7,7
   160 VDU 23,206,0,128,128,128,192,192,224,224
   170 VDU 23,207,15,14,14,30,30,28,60,56
   180 VDU 23,208,96,112,112,240,248,60,28,30
   190 REM ASSIGN U to CHARS.
   200 VDU 23,209,0,16,56,56,56,56,56,56
   210 VDU 23,210,0,8,28,28,28,28,28,28
   220 VDU 23,211,56,56,56,56,56,60,60,30
   230 VDU 23,212,28,28,28,28,28,60,60,120
   240 REM ASSIGN N to CHARS.
   250 VDU 23,213,0,24,24,28,30,62,63,63
   260 VDU 23,214,0,8,28,28,28,28,28,156
   270 VDU 23,215,63,59,57,56,56,56,56,56
   280 VDU 23,216,252,252,252,252,124,124,60,28
   290 REM ASSIGN T to CHARS.
   300 VDU 23,217,0,12,29,25,1,1,1,1
   310 VDU 23,218,0,240,248,248,192,192,192,192
   320 VDU 23,219,1,1,1,1,1,1,1,1
   330 VDU 23,220,192,192,192,192,192,192,192,192
   340 REM ASSIGN E to CHARS.
   350 VDU 23,221,0,12,30,30,30,30,30,30
   360 VDU 23,222,0,124,124,24,0,0,56,124
   370 VDU 23,223,30,30,30,30,30,30,30,30
   380 VDU 23,224,56,0,0,0,0,56,124,56
   390 REM ASSIGN D to CHARS.
   400 VDU 23,225,0,48,57,56,56,56,56,56
   410 VDU 23,226,0,192,224,240,60,28,28,28
   420 VDU 23,227,56,56,56,56,56,56,56,48
   430 VDU 23,228,28,28,28,60,252,248,240,192
   440 REM ASSIGN O to CHARS.
   450 VDU 23,229,0,2,6,15,30,60,56,120
   460 VDU 23,230,0,96,96,120,124,28,30,14
   470 VDU 23,231,120,120,120,120,56,60,30,14
   480 VDU 23,232,14,14,14,30,30,60,120,112
   490 REM ASSIGN S to CHARS.
   500 VDU 23,233,0,7,15,31,62,60,62,31
   510 VDU 23,234,0,16,188,28,30,12,0,128
   520 VDU 23,235,15,3,0,0,56,56,60,30
   530 VDU 23,236,240,248,124,124,124,120,240,224
   600 :
   610 REM From custom chars defined previously.
   615 : REM HAUNTED
   620 REM DISPLAY H (2x2) CHARS.
   630 COLOUR 1: PRINT TAB(12,10);CHR$(201);CHR$(202)
   640 COLOUR 1: PRINT TAB(12,11);CHR$(203);CHR$(204)
   650 REM DISPLAY A (2x2) CHARS.
   660 COLOUR 1: PRINT TAB(14,10);CHR$(205);CHR$(206)
   670 COLOUR 1: PRINT TAB(14,11);CHR$(207);CHR$(208)
   680 REM DISPLAY U (2x2) CHARS.
   690 COLOUR 1: PRINT TAB(16,10);CHR$(209);CHR$(210)
   700 COLOUR 1: PRINT TAB(16,11);CHR$(211);CHR$(212)
   710 REM DISPLAY N (2x2) CHARS.
   720 COLOUR 1: PRINT TAB(18,10);CHR$(213);CHR$(214)
   730 COLOUR 1: PRINT TAB(18,11);CHR$(215);CHR$(216)
   740 REM DISPLAY T (2x2) CHARS.
   750 COLOUR 1: PRINT TAB(20,10);CHR$(217);CHR$(218)
   760 COLOUR 1: PRINT TAB(20,11);CHR$(219);CHR$(220)
   770 REM DISPLAY E (2x2) CHARS.
   780 COLOUR 1: PRINT TAB(22,10);CHR$(221);CHR$(222)
   790 COLOUR 1: PRINT TAB(22,11);CHR$(223);CHR$(224)
   800 REM DISPLAY D (2x2) CHARS.
   810 COLOUR 1: PRINT TAB(24,10);CHR$(225);CHR$(226)
   820 COLOUR 1: PRINT TAB(24,11);CHR$(227);CHR$(228)
   825 : REM HOUSE
   830 REM DISPLAY H (2x2) CHARS.
   840 COLOUR 1: PRINT TAB(14,13);CHR$(201);CHR$(202)
   850 COLOUR 1: PRINT TAB(14,14);CHR$(203);CHR$(204)
   860 REM DISPLAY O (2x2) CHARS.
   870 COLOUR 1: PRINT TAB(16,13);CHR$(229);CHR$(230)
   900 COLOUR 1: PRINT TAB(16,14);CHR$(231);CHR$(232)
   910 REM DISPLAY U (2x2) CHARS.
   920 COLOUR 1: PRINT TAB(18,13);CHR$(209);CHR$(210)
   930 COLOUR 1: PRINT TAB(18,14);CHR$(211);CHR$(212)
   940 REM DISPLAY S (2x2) CHARS.
   950 COLOUR 1: PRINT TAB(20,13);CHR$(233);CHR$(234)
   960 COLOUR 1: PRINT TAB(20,14);CHR$(235);CHR$(236)
   970 REM DISPLAY E (2x2) CHARS.
   980 COLOUR 1: PRINT TAB(22,13);CHR$(221);CHR$(222)
   990 COLOUR 1: PRINT TAB(22,14);CHR$(223);CHR$(224)
   999 COLOUR 2
   1000 END