Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- 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
Advertisement
Advertisement