Here is a utility to create a machinelanguage title screen that can be used with any binary-load program. When a binary program is appended to the title file, you can binary-load the resulting compound file. The GRAPHICS 0 title screen will display the characters you entered with whatever colors you selected while the main program continues to load. This method of loading a title screen does not require any additional memory in the main program. Once the title has been loaded, the main program can load right over the top of it.
    Type in the DATA from Listing 1 using the M/L Editor, found elsewhere in this issue, saving the file to disk as TITLMAKR.EXE. Title Maker is a machine-language program written with the MAC/65 assembler, which works with just about every DOS configuration. When binary loaded, it executes automatically (address $3700).
    The main menu is simple to understand:
    [C] Clear editor memory-Erases the title screen from memory and puts you in the editor. Be sure you don't hit this before first saving your work. There is no warning prompt.
    [E] Editor screen-Switches from the main menu to the editor so you can continue editing the title screen. Select will return you from the editor to main menu again.
    [L] Load a screen from disk-Normally used to load a previously saved title screen so you can edit it further. It will also load the title from a program that has already been appended to the title file. However, do not save a screen with the same name as a program file, or it will erase the original program. Keep a backup copy of any program you append to a title screen. If the file you load is not in the proper binary format used by Title Maker, it assumes you are loading an ASCII text file and will automatically load the first 24 lines, converting the ASCII to screen format. Your ASCII text file should have an EOL (RETURN character) at the end of each line. Each line must be no longer than 40 bytes, including the EOL. If the file is more then 24 lines, you can expect a load of the first 24 lines only. The ASCII load routine sets the color registers to default (black and white). You can then set your desired screen colors.
    [S] Save a screen to disk-Saves the title screen to disk in a binary-load format. Actually, it's a small machine-language program along with the screen data that will binary load and display the title on your screen. It can be reloaded into the editor later, using the "L" function, to either change it or finish an incomplete screen. The saved file will also contain the screen colors you have selected. In order to keep the screen in view after the load has finished, a graphics call must either be delayed by your main program, or a simple cursor position with a prompt and a get-key routine should be used. Of course, if your program is long, this method probably would not be necessary.
    [1-9] Disk directory-Type the number of the desired drive, and the filenames will be displayed. Press any key, and you return to main menu.



    The editor uses 40 columns and all the standard Atari editor keys to display 254 of the 256 ATASCII characters, just like the BASIC editor. The return key simply moves the cursor to the left column, as usual, but no character is displayed. If the cursor is on the bottom line, it will return to the top-left corner. The screen will not scroll. The clear key works the opposite from the BASIC editor. Pressing Shift-Clear or Control-Clear will only display the ATASCII "arrow" character, and will not clear the screen. This is a precaution in case you accidentally hit it while trying for a nearby key. To actually clear the screen while still in the editor mode, just press Escape first, then Shift-Clear. This is helpful, should you want to start over and retain the same screen colors. If you want to clear the screen with default colors, use the "C" option from the main menu.
    Using the GRAPHICS 0 Atari character set, create the desired title screen. You will notice that when you print a character in the bottom-right corner of the screen, the character is printed and the cursor jumps to the topleft of the screen, rather than scrolling the entire screen. You can save your work from time to time by pressing the start key from the editor screen or with the "S" option from the main menu.

    Control-arrow key: responds for cursor placement, just like the BASIC editor.
    Shift-Control/up-down arrows: changes the screen color register. You can cycle back and forth through all 128 colors.
    Shift-Control < or > : changes the screen border colors.
    Shift-Control-O or -P: changes the text luminance. If you should happen to find a blank screen after loading a file, try changing the text luminance to read the screen. It might have been set to the same value as the screen color, hiding the text from view.
    Option: displays the help menu. Press any key to return to editor.
    Select: returns to the main menu from editor.
    Start: returns to the main menu and sets up for a binary save of the screen.

    Using DOS, copy with /Append the binary program to the title file. For example, let's say your title file is TITLE. EXE, and the binary program is DATABASE.EXE. With a backup copy of each on the same disk (Drive 1), and using Atari DOS, type the following:

C [RETURN]
DATABA5E.EXE,TITLE.EKE/A [RETURN]

    The DATABASE.EXE program will be appended to the TITLE.EXE program. Then delete the backup copy of DATABASE. EXE and rename the TITLE.EXE to DATABASE.EXE. The new program will be about eight single-density sectors longer than the original.
    When you binary-load the new compound program, the title screen will load and display, and the main program will automatically load and execute. For best display purposes, your main program should display a "Press Any Key" type of prompt on the screen before clearing the title. Then it should look for a keypress before making a graphics call. A good example of this is the Title Maker program itself. Watch the screen as it loads. You can even load the title screen from the program itself, as a sample.
    BASIC programmers who would like to use the Title Maker, don't fret. There is a way you too can use this utility for BASIC AUTORUN-type files. Listing 2 is a small but efficient means for you to do so. To access this method, type in the TITLMAKR.BAS program (Listing 2), using BASIC Editor II to verify your work. Once you have done this, save it to disk for backup use. Now run the BASIC program. What it does is create a binary file (AUTOBOOT.TM) that you can append to any of your Title Maker screen files to be used with a saved BASIC program. Once you do this and have appended the AUTOBOOT.TM file, rename it to AUTORUN.SYS and rename your BASIC program to AUTORUN.BAS. Next time you reboot that disk, it will load your title screen and automatically run the AUTORUN.BAS program.
    For an added touch of show, here is a neat trick you might want to try. Make several screen files and append them all together. When you binary-load a compound screen file, each screen will be displayed, one at a time, in the order they were appended to the main file.

    Using Title Maker, you can make your programs look as professional as the commercial ones. Try it. I know you'll be pleased with the results.

---

    Larry Black got his first computer, an Atari 400, six years ago and now hopes for a career in computers. Title Maker is his first published program.

LISTING 1:

1000 DATA 255,255,0,112,195,115,0,0,0,
72,128,161,142,174,142,161,6926
1010 DATA 142,172,142,175,142,167,142,
128,163,239,237,240,245,244,233,238,96
00
1020 DATA 231,128,176,242,229,243,229,
238,244,243,128,200,0,0,0,0,7547
1030 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,1030
1040 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,1040
1050 DATA 0,0,0,0,0,0,78,78,78,78,78,7
8,78,78,78,78,20
1060 DATA 78,78,78,78,78,78,78,78,78,7
8,78,78,78,78,78,78,1668
1070 DATA 78,78,78,78,78,78,78,78,78,7
8,78,78,78,78,128,78,2428
1080 DATA 78,78,78,78,78,78,78,78,70,0
,44,97,114,114,121,0,1059
1090 DATA 0,34,108,97,99,187,7,115,0,7
1,78,78,78,78,78,78,1004
1100 DATA 78,78,78,78,78,128,128,128,8
9,0,0,0,0,0,0,0,5759
1110 DATA 77,77,77,77,77,77,77,77,77,7
7,77,77,77,77,77,77,1582
1120 DATA 77,77,0,0,0,0,0,0,0,0,0,128,
128,128,128,128,311
1130 DATA 86,0,204,128,128,128,128,128
,0,0,0,84,0,0,0,0,6676
1140 DATA 73,85,0,0,0,0,0,73,79,0,0,0,
0,0,0,0,2678
1150 DATA 0,0,0,217,128,128,128,128,86
,0,128,0,128,128,0,128,3032
1160 DATA 0,0,0,0,0,0,0,85,128,128,85,
0,0,0,66,128,8245
1170 DATA 89,0,0,0,0,85,85,85,85,0,0,2
17,128,128,128,128,3837
1180 DATA 86,0,0,0,128,128,0,0,0,0,73,
128,0,0,0,0,5013
1190 DATA 128,128,0,0,0,0,66,128,89,0,
0,0,128,128,0,0,7317
1200 DATA 128,0,0,217,128,128,128,194,
0,0,0,0,128,128,0,0,9508
1210 DATA 0,0,217,128,0,0,0,0,128,128,
0,0,0,0,66,128,7843
1220 DATA 89,0,0,0,128,128,213,213,213
,0,0,0,128,128,128,194,6309
1230 DATA 0,0,0,0,128,128,0,0,0,0,217,
128,0,0,0,0,6561
1240 DATA 128,128,204,89,0,0,66,128,89
,0,0,0,128,128,85,85,970
1250 DATA 85,0,0,0,128,128,128,194,0,0
,0,0,0,0,0,0,5191
1260 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,1260
1270 DATA 0,0,0,0,0,0,0,0,0,0,0,0,128,
128,128,89,8070
1280 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,1280
1290 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,1290
1300 DATA 0,0,0,0,217,128,128,89,73,12
8,74,0,0,72,128,89,1864
1310 DATA 0,73,128,128,128,128,89,0,73
,128,0,72,128,200,0,73,2816
1320 DATA 128,128,128,89,0,73,128,128,
128,128,89,0,217,128,128,89,6170
1330 DATA 217,128,128,74,72,128,128,89
,0,217,128,0,0,128,89,0,1924
1340 DATA 217,128,72,128,200,0,0,217,1
28,0,0,0,0,217,128,0,1387
1350 DATA 0,214,89,0,217,128,128,86,21
7,128,282,128,128,200,128,89,281
1360 DATA 0,217,128,128,128,128,89,0,2
17,128,128,194,0,0,0,217,5162
1370 DATA 128,128,89,0,0,217,128,128,1
28,128,86,0,66,128,128,86,4567
1380 DATA 217,128,0,214,194,0,128,89,0
,217,128,0,0,128,89,8,1992
1390 DATA 217,128,282,128,74,0,0,217,1
28,0,0,0,0,217,128,202,4429
1400 DATA 128,74,0,0,66,128,128,86,217
,128,0,0,0,0,128,89,935
1410 DATA 0,217,128,0,0,128,89,0,217,1
28,0,202,128,74,0,217,5448
1420 DATA 128,128,128,89,0,217,128,0,2
02,128,74,0,66,128,128,0,3224
1430 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,1430
1440 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,1440
1450 DATA 0,0,0,0,0,128,128,0,0,0,0,0,
0,0,0,0,3114
1460 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,1460
1470 DATA 0,0,0,0,0,0,0,0,0,0,8,99,9,1
28,128,72,7727
1480 DATA 74,72,74,72,74,72,74,72,74,7
2,74,72,74,72,74,72,1400
1490 DATA 74,72,74,72,74,72,74,72,74,7
2,74,72,74,72,74,72,1410
1500 DATA 74,72,74,72,74,128,0,85,82,8
2,82,82,82,82,82,82,2246
1510 DATA 82,82,82,82,72,78,78,78,78,7
8,78,78,78,74,82,82,2196
1520 DATA 82,82,82,82,82,82,82,82,82,8
2,82,82,85,0,0,0,9021
1530 DATA 77,77,77,77,77,77,77,77,77,7
7,77,72,128,78,78,78,2650
1540 DATA 78,78,78,78,78,128,74,77,77,
77,77,77,77,77,77,77,2312
1550 DATA 77,77,77,77,0,0,0,0,0,0,0,0,
0,0,0,0,2320
1560 DATA 0,0,70,0,44,47,33,36,41,46,3
9,14,14,14,0,71,5731
1570 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,
0,0,1570
1580 DATA 0,0,0,0,0,0,0,0,70,77,77,77,
77,77,77,77,9217
1590 DATA 77,77,77,77,77,77,77,77,77,7
1,0,0,0,0,0,0,5765
1600 DATA 0,0,0,0,0,0,242,252,0,252,25
5,255,102,73,212,73,391
1610 DATA 32,170,73,120,160,0,140,47,2
,132,203,169,112,133,204,165,9454
1620 DATA 88,133,207,165,89,133,208,16
2,2,177,203,145,207,200,208,249,5606
1630 DATA 230,204,230,208,202,16,242,1
77,203,145,207,200,192,192,208,247,821
6
1640 DATA 162,0,177,203,157,197,2,200,
232,224,4,208,245,169,34,141,1911
1650 DATA 47,2,88,96,162,96,169,12,157
,66,3,32,86,228,162,96,5780
1660 DATA 169,3,157,66,3,169,28,157,74
,3,169,0,157,75,3,169,3446
1670 DATA 210,157,68,3,169,73,157,69,3
,76,86,228,83,58,155,226,7645
1680 DATA 2,227,2,102,73,255,255,203,0
,205,0,132,128,64,104,54,6472
1690 DATA 99,55,67,69,76,83,88,9,56,5,
56,250,59,21,62,39,727
1700 DATA 60,27,28,29,30,31,126,127,15
6,157,158,159,254,255,246,247,5382
1710 DATA 200,202,206,287,200,2,255,20
0,2,0,197,2,255,197,2,0,6469
1720 DATA 198,2,255,198,2,0,0,0,0,0,68
,49,58,102,105,108,310
1730 DATA 101,110,97,109,101,46,101,12
0,116,155,68,73,58,42,46,42,2148
1740 DATA 155,96,112,66,176,123,0,66,6
4,132,2,2,2,2,2,2,6891
1750 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,
2,2,2022
1760 DATA 2,65,183,54,32,128,75,58,155
,160,0,0,255,255,0,112,6246
1770 DATA 195,115,179,163,178,165,165,
174,128,128,172,175,161,164,162,169,37
58
1780 DATA 174,161,178,185,128,128,179,
161,182,165,165,106,201,136,16,3,8679
1790 DATA 108,10,0,141,223,54,165,12,1
41,91,60,165,13,141,92,60,4474
1800 DATA 173,36,2,141,224,54,173,37,2
,141,225,54,169,0,133,206,7605
1810 DATA 32,23,63,76,93,60,32,205,55,
32,0,64,32,162,55,162,2754
1820 DATA 2,32,144,55,162,16,32,123,59
,162,16,160,220,169,54,32,5447
1830 DATA 148,59,160,4,32,131,59,32,12
8,55,41,127,201,49,48,10,2063
1840 DATA 201,58,16,6,141,177,54,76,11
1,60,41,95,162,4,100,55,2714
1850 DATA 95,56,221,104,54,240,6,202,1
6,248,76,77,55,138,10,170,6405
1860 DATA 189,109,54,133,212,232,189,1
09,54,133,213,108,212,0,162,16,8505
1870 DATA 169,7,157,66,3,169,0,160,32,
156,59,76,86,228,32,181,6256
1880 DATA 55,189,216,54,141,48,2,189,2
17,54,141,49,2,76,175,55,4923
1890 DATA 169,178,141,200,2,141,198,2,
169,12,141,197,2,169,34,141,6610
1900 DATA 47,2,96,169,0,240,248,169,13
6,133,106,32,170,73,32,181,8155
1910 DATA 55,133,82,169,64,133,16,141,
14,210,96,165,203,162,124,32,8052
1920 DATA 219,55,32,185,55,169,124,166
,203,133,213,134,208,169,64,133,1836
1930 DATA 212,133,207,160,0,162,2,177,
212,145,207,200,208,249,230,213,7154
1940 DATA 230,208,202,16,242,160,192,1
98,212,198,207,177,212,145,207,136,671
0
1950 DATA 208,249,96,165,206,208,6,32,
185,55,32,226,62,32,41,57,4240
1960 DATA 165,206,208,2,230,206,32,67,
57,32,175,55,32,242,56,32,4889
1970 DATA 88,57,173,252,2,201,255,208,
34,173,31,208,201,3,240,21,9828
1980 DATA 201,5,208,3,76,47,55,201,6,2
08,3,76,7,62,173,220,5635
1990 DATA 2,201,17,208,221,32,2,57,76,
30,56,32,231,56,232,208,7623
2000 DATA 203,32,128,55,162,12,221,119
,54,240,53,202,16,248,96,56,8161
2010 DATA 91,57,166,84,224,23,208,10,2
01,155,240,46,166,85,224,39,9726
2020 DATA 240,79,166,85,224,39,208,9,2
01,155,240,5,32,244,62,169,9663
2030 DATA 155,72,169,0,170,168,32,156,
59,169,11,157,66,3,169,27,4259
2040 DATA 32,86,228,104,32,164,56,76,3
0,56,166,85,240,3,76,194,6570
2050 DATA 56,169,29,76,146,56,72,169,2
55,162,2,157,178,2,202,16,7206
2060 DATA 250,169,0,168,170,32,156,59,
169,11,157,66,3,104,76,86,4087
2070 DATA 228,32,244,62,32,200,56,76,3
0,56,32,220,56,177,212,72,7062
2080 DATA 32,154,57,104,133,93,24,105,
128,160,0,145,212,96,169,64,7389
2090 DATA 133,212,165,203,133,213,160,
0,96,162,5,221,132,54,240,127,312
2100 DATA 202,16,248,96,169,8,141,31,2
08,169,255,141,252,2,169,0,9488
2110 DATA 141,220,2,96,120,32,33,60,16
9,64,133,212,133,213,32,9,6087
2120 DATA 64,165,176,141,186,54,169,58
,141,200,2,141,198,2,169,0,6627
2130 DATA 141,197,2,162,2,32,144,55,32
,128,55,32,29,60,162,0,1173
2140 DATA 32,144,55,169,216,141,186,54
,169,0,133,19,169,7,160,233,8596
2150 DATA 162,61,32,92,228,162,3,189,1
56,54,157,197,2,202,16,247,9624
2160 DATA 162,1,181,186,149,84,202,16,
249,96,162,3,189,197,92,57,8928
2170 DATA 87,58,2,157,156,54,202,16,24
7,162,1,181,84,149,186,282,879
2180 DATA 16,249,96,138,133,212,10,24,
101,212,170,189,138,54,133,212,837
2190 DATA 232,189,138,54,133,213,160,0
,232,189,138,54,48,10,177,212,9448
2200 DATA 24,105,2,145,212,76,30,56,17
7,212,56,233,2,76,141,57,6436
2210 DATA 169,0,133,84,133,85,230,85,1
69,126,76,164,56,32,173,57,6847
2220 DATA 76,93,59,160,132,169,71,162,
152,32,164,59,169,0,133,207,8470
2230 DATA 133,208,166,207,169,128,157,
69,131,224,14,240,5,169,0,157,8765
2240 DATA 70,131,32,128,55,166,207,201
,155,208,7,224,3,48,42,76,6305
2250 DATA 160,58,41,127,201,27,240,33,
224,0,208,34,201,58,208,2,7557
2260 DATA 169,49,201,49,48,204,201,59,
16,200,32,139,58,230,207,169,616
2270 DATA 58,32,139,58,230,207,76,188,
57,104,104,76,47,55,201,126,7490
2280 DATA 208,29,198,207,169,32,32,139
,58,165,208,240,2,198,208,165,2239
2290 DATA 207,201,1,208,157,198,207,16
9,32,32,139,58,76,188,57,201,9032
2300 DATA 46,208,20,166,207,224,3,48,1
37,166,208,208,133,32,139,58,9137
2310 DATA 230,207,230,208,76,188,57,20
1,42,240,25,201,63,240,21,201,1166
2320 DATA 49,48,241,201,58,16,3,76,94,
58,41,95,201,65,88,58,3795
2330 DATA 83,59,48,228,201,91,16,224,1
66,207,224,10,208,13,166,208,1894
2340 DATA 208,9,72,169,46,32,139,58,10
4,230,207,166,207,224,14,240,2699
2350 DATA 199,166,208,224,4,240,193,32
,139,58,230,207,165,208,240,184,5914
2360 DATA 230,208,76,188,57,166,207,15
7,161,54,56,233,32,157,69,131,9118
2370 DATA 224,13,240,5,169,0,157,70,13
1,96,157,161,54,169,0,157,7242
2380 DATA 69,131,32,33,60,169,31,32,16
4,56,32,220,56,177,212,72,7292
2390 DATA 32,154,57,104,160,0,145,212,
32,104,60,162,32,32,123,59,4413
2400 DATA 162,32,160,160,169,54,32,148
,59,164,209,32,131,59,152,48,6754
2410 DATA 108,162,32,165,210,157,66,3,
160,58,169,132,32,148,59,160,7472
2420 DATA 6,169,0,32,156,59,32,86,228,
152,48,81,162,32,165,210,8399
2430 DATA 157,66,3,201,11,240,18,160,5
,185,58,132,217,226,54,208,673
2440 DATA 5,136,16,245,48,3,76,80,62,1
60,192,169,3,32,156,59,5244
2450 DATA 160,64,169,132,32,148,59,32,
86,228,152,16,3,76,67,59,3460
2460 DATA 160,156,169,54,162,32,32,148
,59,160,4,169,0,32,156,59,4000
2470 DATA 32,86,228,152,48,7,165,206,2
08,2,230,206,96,32,195,59,9510
2480 DATA 169,253,32,164,56,160,157,16
9,72,162,203,32,164,59,84,59,7645
2490 DATA 79,60,32,128,55,104,104,169,
8,133,209,162,32,32,123,59,5574
2500 DATA 32,29,60,32,220,56,177,212,1
33,93,32,162,57,165,289,201,1094
2510 DATA 8,240,3,76,5,56,76,47,55,169
,12,157,66,3,76,86,2197
2520 DATA 228,169,3,157,66,3,152,157,7
4,3,169,0,157,75,3,76,3298
2530 DATA 86,228,157,69,3,152,157,68,3
,96,157,73,3,152,157,72,5653
2540 DATA 3,96,132,212,133,213,134,207
,169,130,133,208,160,0,177,212,3423
2550 DATA 201,96,240,12,145,207,200,20
8,245,230,213,230,208,76,176,59,5702
2560 DATA 96,56,233,100,72,162,0,56,23
3,10,48,3,232,208,249,142,343
2570 DATA 170,72,169,0,24,105,10,202,2
08,250,141,171,72,104,56,237,826
2580 DATA 171,72,141,171,72,162,1,189,
170,72,24,105,144,157,170,72,8399
2590 DATA 202,16,244,169,8,133,209,96,
169,232,162,54,160,4,32,6,6284
2600 DATA 60,76,167,57,133,207,134,208
,152,133,209,24,105,3,133,210,97
2610 DATA 160,11,177,207,153,186,71,13
6,16,248,96,162,0,240,2,162,9223
2620 DATA 2,142,240,2,96,162,16,32,123
,59,169,2,133,82,173,223,8074
2630 DATA 54,133,106,32,170,73,169,64,
141,190,2,169,0,141,182,2,6334
2640 DATA 173,91,60,133,12,173,92,60,1
33,13,172,224,54,174,80,60,7134
2650 DATA 75,61,225,54,169,7,32,92,228
,108,10,0,32,0,0,169,1947
2660 DATA 90,133,12,169,60,133,13,76,4
4,55,169,0,133,186,133,187,7650
2670 DATA 96,169,64,133,212,165,204,13
3,213,162,2,160,0,152,133,209,1316
2680 DATA 145,212,200,208,251,230,213,
202,16,246,169,128,133,213,173,177,656
0
2690 DATA 54,24,105,96,141,29,73,162,4
0,169,0,168,32,141,61,162,6140
2700 DATA 32,32,123,59,162,32,169,3,15
7,66,3,169,6,157,74,3,3178
2710 DATA 160,176,169,54,32,148,59,32,
86,228,152,16,3,76,95,61,4084
2720 DATA 162,32,169,5,157,66,3,160,0,
169,4,32,148,59,160,20,3543
2730 DATA 169,0,32,156,59,32,86,228,15
2,48,74,173,0,4,201,48,5109
2740 DATA 48,6,32,181,61,76,247,60,160
,124,166,209,224,2,208,3,9712
2750 DATA 140,13,4,140,0,4,141,1,4,160
,13,185,0,4,201,97,3129
2760 DATA 16,3,56,233,32,145,212,136,1
6,241,162,13,164,209,200,192,3106
2770 DATA 3,208,3,160,0,232,132,209,13
8,24,101,212,133,212,144,2,9852
2780 DATA 230,213,76,190,60,76,70,61,1
66,209,240,27,165,212,24,105,9859
2790 DATA 13,133,212,144,2,230,213,232
,224,3,208,242,165,212,24,105,3409
2800 DATA 1,133,212,144,2,230,213,96,1
62,32,32,123,59,162,76,61,6685
2810 DATA 71,62,27,169,40,160,0,32,141
,61,169,27,141,76,61,32,3564
2820 DATA 128,55,76,47,55,32,38,61,32,
169,61,162,30,169,66,160,5594
2830 DATA 5,32,141,61,169,253,32,164,5
6,169,17,141,76,61,169,2,5947
2840 DATA 133,209,32,38,61,165,212,56,
233,3,133,212,176,2,198,213,1694
2850 DATA 76,70,61,133,207,169,73,133,
208,152,24,101,212,133,218,165,2681
2860 DATA 213,105,0,133,211,160,0,177,
207,145,210,200,202,208,248,165,7167
2870 DATA 212,24,105,40,133,212,144,2,
230,213,96,166,209,240,33,160,2946
2880 DATA 0,169,124,145,212,160,13,145
,212,165,212,24,105,13,133,212,553
2890 DATA 144,2,230,213,232,224,3,208,
230,162,0,134,209,32,58,61,9078
2900 DATA 160,13,185,0,4,24,105,96,153
,0,4,136,16,244,96,165,6065
2910 DATA 19,201,4,208,21,169,216,205,
186,54,240,6,141,186,54,76,9835
2920 DATA 0,62,169,176,208,246,169,0,1
33,19,76,98,228,32,0,64,5789
2930 DATA 162,2,32,144,55,32,88,57,32,
162,55,160,8,169,244,162,8462
2940 DATA 54,32,6,60,162,5,189,226,54,
157,58,132,202,16,247,32,8632
2950 DATA 173,57,162,32,169,11,157,66,
3,160,96,169,73,32,148,59,5661
2960 DATA 160,123,169,0,32,156,59,32,8
6,228,152,48,3,76,72,62,4115
2970 DATA 67,63,93,59,32,67,59,76,93,5
9,32,123,59,162,32,160,4591
2980 DATA 160,169,54,32,148,59,160,4,3
2,131,59,152,16,3,76,67,2547
2990 DATA 59,169,125,32,164,56,169,1,1
41,254,2,169,23,133,210,162,9999
3000 DATA 32,169,5,157,66,3,166,40,169
,0,140,72,3,141,73,3,2882
3010 DATA 32,156,59,160,0,169,4,140,68
,3,141,69,3,32,148,59,3005
3020 DATA 32,86,228,192,137,240,8,192,
128,48,4,32,200,62,96,169,8065
3030 DATA 9,166,210,208,15,162,32,189,
72,3,56,233,1,240,19,141,7620
3040 DATA 72,3,169,11,162,0,141,66,3,3
2,86,228,198,210,165,210,1372
3050 DATA 16,173,160,0,140,254,2,132,8
4,132,85,169,155,32,164,56,8044
3060 DATA 198,84,169,64,133,94,165,206
,208,2,230,206,169,0,141,198,2595
3070 DATA 2,169,4,141,200,2,169,12,141
,197,2,76,88,57,162,0,4822
3080 DATA 201,128,48,3,41,127,232,201,
96,16,12,201,32,48,5,56,3519
3090 DATA 233,32,176,3,24,105,64,224,0
,240,3,24,105,128,133,93,6278
3100 DATA 96,32,242,56,169,188,133,207
,160,14,185,41,73,24,105,128,7785
3110 DATA 145,207,136,16,245,200,132,2
0,165,207,141,33,63,165,208,141,1657
3120 DATA 34,63,165,20,201,192,240,224
,173,252,2,201,255,240,68,63,4698
3130 DATA 97,63,243,76,242,56,120,169,
0,133,212,165,205,133,213,162,4080
3140 DATA 71,169,0,168,145,212,200,208
,251,230,213,202,16,246,88,96,5116
3150 DATA 226,2,227,2,72,63,0,64,49,64
,120,169,207,133,212,169,185
3160 DATA 67,133,213,169,64,133,207,16
5,204,133,208,162,2,160,0,177,1191
3170 DATA 212,145,207,200,208,249,230,
213,230,208,202,16,242,198,212,198,977
1
3180 DATA 207,160,192,177,212,145,207,
136,208,249,88,96,196,64,210,64,3558
3190 DATA 209,210,210,210,210,210,210,
210,210,210,210,210,210,210,197,236,19
70
3200 DATA 64,250,64,252,221,128,168,16
5,172,176,128,173,165,174,181,128,5469
3210 DATA 221,252,8,65,48,65,209,210,2
10,210,210,210,210,210,210,210,8992
3220 DATA 210,210,216,210,210,210,210,
210,210,210,210,210,210,210,210,210,17
98
3230 DATA 216,210,210,210,210,210,210,
210,210,210,210,210,210,197,252,87,276
3240 DATA 65,121,65,252,252,0,163,175,
174,180,178,175,172,0,11,0,8376
3250 DATA 220,221,222,223,0,29,0,35,11
7,114,115,111,114,0,109,111,5607
3260 DATA 118,101,109,101,110,116,127,
65,128,65,252,252,167,65,32,66,9181
3270 DATA 252,252,0,179,168,166,180,15
,163,180,178,172,0,11,0,220,8921
3280 DATA 221,0,29,0,35,104,97,110,103
,101,0,115,99,114,101,101,5277
3290 DATA 110,0,99,111,108,111,114,0,2
52,252,0,179,168,166,180,15,529
3300 DATA 163,180,178,172,0,11,0,156,1
58,0,29,0,35,104,97,110,3226
3310 DATA 103,101,0,98,111,114,100,101
,114,0,99,111,108,111,114,0,4869
3320 DATA 252,252,0,179,168,166,180,15
,163,180,178,172,0,11,0,175,8251
3330 DATA 176,0,29,0,35,104,97,110,103
,101,0,116,101,120,116,0,4013
3340 DATA 108,117,109,105,110,101,110,
14,252,252,71,66,72,66,252,252,2500
3350 DATA 80,66,99,66,128,175,176,180,
169,175,174,128,0,29,0,40,6252
3360 DATA 37,44,48,0,109,101,110,117,1
11,66,112,66,252,252,120,66,9829
3370 DATA 139,66,128,179,165,172,165,1
63,180,128,0,29,0,45,97,105,6070
3380 DATA 110,0,109,101,110,117,151,66
,152,66,252,252,160,66,181,66,1657
3390 DATA 128,179,180,161,178,180,128,
128,0,29,0,51,97,118,101,0,4280
3400 DATA 115,99,114,101,101,110,191,6
6,192,66,252,252,231,66,49,67,1407
3410 DATA 252,218,210,210,210,210,210,
210,210,210,210,210,210,210,210,210,20
28
3420 DATA 210,210,210,210,210,210,210,
210,210,210,210,210,210,210,210,210,19
80
3430 DATA 210,210,215,210,210,210,210,
210,195,0,0,0,0,0,252,223,108
3440 DATA 48,50,37,51,51,0,33,46,57,0,
43,37,57,0,52,47,8460
3450 DATA 0,35,47,46,52,41,46,53,37,22
2,252,61,67,89,67,218,7764
3460 DATA 210,210,210,210,210,210,210,
210,210,210,210,210,210,210,210,210,20
20
3470 DATA 210,210,210,210,210,210,210,
210,210,210,210,195,3,68,18,68,2019
3480 DATA 72,128,180,169,180,172,165,1
28,128,173,161,171,165,178,128,200,559
7
3490 DATA 81,68,100,68,8,99,9,17,25,24
,25,0,0,44,97,114,9747
3500 DATA 114,121,0,34,108,97,99,107,1
51,68,191,68,209,210,210,210,3786
3510 DATA 210,210,210,210,210,210,210,
210,210,196,128,173,225,233,238,128,20
9
3520 DATA 173,229,238,245,128,193,210,
210,210,210,210,210,210,210,210,210,17
93
3530 DATA 210,210,197,0,252,229,68,1,6
9,252,0,252,0,0,187,163,9447
3540 DATA 189,0,0,35,108,101,97,114,0,
37,186,105,116,111,114,0,4108
3550 DATA 109,101,109,111,114,121,13,6
9,35,69,252,0,252,0,0,187,6616
3560 DATA 165,189,0,0,37,100,105,116,1
11,114,0,115,99,114,101,101,6084
3570 DATA 110,53,69,85,69,252,0,252,0,
0,187,172,189,0,0,44,5488
3580 DATA 111,97,100,0,97,0,115,99,114
,101,101,110,0,102,114,111,5648
3590 DATA 109,0,100,105,115,107,93,69,
125,69,252,0,252,0,0,187,7694
3600 DATA 179,189,0,0,51,97,118,101,0,
98,105,110,97,114,121,0,4755
3610 DATA 108,111,97,100,0,115,99,114,
101,101,110,133,69,153,69,252,9757
3620 DATA 0,252,0,0,187,184,189,0,0,37
,120,105,116,0,116,111,5460
3630 DATA 0,36,47,51,173,69,196,69,252
,0,252,0,187,145,141,153,1314
3640 DATA 189,0,36,105,115,107,0,36,10
5,114,101,99,116,111,114,121,6954
3650 DATA 213,69,215,69,252,0,252,253,
69,37,70,252,0,218,210,210,4317
3660 DATA 210,210,210,210,210,210,210,
210,210,210,210,210,210,210,210,210,22
20
3670 DATA 210,210,210,210,210,210,210,
210,210,210,210,210,210,210,210,210,22
30
3680 DATA 210,210,210,195,80,70,91,70,
189,128,179,229,236,229,227,244,9018
3690 DATA 128,158,0,128,143,71,160,71,
81,82,82,82,82,82,82,82,5666
3700 DATA 82,82,82,82,82,82,82,82,82,6
9,183,71,200,71,124,72,7551
3710 DATA 128,179,163,178,165,165,174,
128,128,179,161,182,165,128,74,124,338
2
3720 DATA 223,71,240,71,124,36,110,26,
102,105,108,101,110,97,109,101,7310
3730 DATA 14,101,120,116,0,124,7,72,24
,72,65,82,82,82,82,82,3530
3740 DATA 82,82,82,82,82,82,82,82,82,8
2,82,68,47,72,48,72,3459
3750 DATA 124,36,64,72,64,72,124,87,72
,105,72,90,82,82,82,82,5068
3760 DATA 82,82,82,82,82,82,82,82,82,8
2,82,82,67,96,157,72,5878
3770 DATA 174,72,124,72,128,165,242,24
2,239,242,128,141,128,131,145,144,5656
3780 DATA 144,128,74,124,197,72,215,72
,124,128,156,176,242,229,243,243,8505
3790 DATA 128,225,238,249,128,235,229,
249,158,124,96,0,73,218,73,128,2585
3800 DATA 128,128,128,128,128,128,128,
128,164,233,242,229,227,244,239,242,14
48
3810 DATA 249,128,239,230,128,164,242,
233,246,229,128,131,145,128,128,128,62
63
3820 DATA 128,128,128,128,128,128,128,
128,156,176,242,229,243,243,128,225,90
83
3830 DATA 238,249,128,235,229,249,158,
128,128,128,128,128,128,128,128,128,34
59
3840 DATA 128,128,164,233,243,235,128,
164,233,242,229,227,244,239,242,249,43
73
3850 DATA 128,161,227,227,229,243,243,
128,165,178,178,175,178,129,128,255,86
60
3860 DATA 255,102,73,212,73,32,170,73,
120,160,0,140,47,2,132,203,7944
3870 DATA 169,112,133,204,165,88,133,2
07,165,89,133,208,162,2,177,203,3789
3880 DATA 145,207,200,208,249,230,204,
230,208,202,16,242,177,203,145,207,936
6
3890 DATA 200,192,192,208,247,162,0,17
7,203,157,197,2,200,232,224,4,4365


3900 DATA 208,245,169,34,141,47,2,88,9
6,162,96,169,12,157,66,3,5906
3910 DATA 32,86,228,162,96,169,3,157,6
6,3,169,28,157,74,3,169,6862
3920 DATA 0,157,75,3,169,210,157,68,3,
169,73,157,69,3,76,86,6078
3930 DATA 228,83,58,155,226,2,227,2,10
2,73,176,123,255,123,128,128,1930
3940 DATA 128,128,128,180,169,180,172,
165,128,173,161,171,165,178,128,128,51
87
3950 DATA 128,128,128,128,226,249,128,
172,225,242,242,249,128,162,236,225,12
93
3960 DATA 227,235,128,128,128,128,128,
128,128,128,128,176,242,229,243,243,87
18
3970 DATA 128,187,175,176,180,169,175,
174,189,128,230,239,242,128,168,165,87
09
3980 DATA 172,176,128,179,227,242,229,
229,238,128,128,128,128,128,32,128,397
6
3990 DATA 63,128,112,112,112,66,64,128
,2,2,2,2,2,2,2,2,7721
4000 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,
2,65,5280
4010 DATA 32,128,226,2,227,2,0,55,0,0,
0,0,0,0,0,0,6571

LISTING 2: BASIC

IT 0 REM Title Maker Listing 2
HV 1 REM Save as TITLMAKR.BAS
DW 2 REM Creates binary file to retain
MS 3 REM Title screen without READY
VD 4 REM prompt and RUN "D:AUTORUN.BAS"
PV 5 REM /Append to Title screen file.
PW 10 DIM F$(14):F$="D1:AUTOBOOT.TM"
XL 20 GRAPHICS 0:POKE 710,34:POKE 709,42
OL 30 TRAP 20:? :? "What drive to write "
   :? F$(4);" to > ";:INPUT I
TI 40 IF I<0 OR I>9 THEN 20
LS 50 TRAP 40000:F$(2,2)=CHR$(I+48):CLOSE
    #1:OPEN #1,8,0,F$:RESTORE
SX 60 POKE 752,1:? :?
VK 70 FOR I=1 TO 120:READ BYTE:? I;"↑"
DG 80 PUT #1,BYTE:NEXT I:? "→→→ bytes"
WP 90 ? :? "File saved as ";F$
JR 100 CL05E #1:POKE 710,148:POKE 752,0:E
   ND
QG 110 DATA 89,0,89,8,112,0,4,98,4,173,31
   ,208,41,4,240,10
CZ 120 DATA 169,18,141,33,3,169,4,141,34,
   3,96,251,243,51,246,33
QK 130 DATA 4,163,246,51,246,60,246,76,22
   8,243,0,238,33,4,172,33
DB 140 DATA 4,192,39,208,10,169,0,141,33,
   3,169,228,141,34,3,185
EC 150 DATA 59,4,160,1,96,67,65,82,155,80
   ,79,75,46,56,57,44
HU 160 DATA 80,69,69,75,40,53,54,49,41,58
   ,82,85,46,34,68,58
PZ 170 DATA 65,85,84,79,82,85,78,46,66,65
   ,83,155,226,2,227,2
VK 180 DATA 0,4,224,2,225,2,17,4