1 'DO2BA.200 by James Yi 6/28/88
2 'This BASIC loader creates the actual running program
3 'Use this utility when there isn't enough memory to LOAD a Basic program downloaded as text file.
4 'It directly converts a Basic program saved as a text file into a tokenized .BA file.
5 'It destroys the text file in the process, so save the original text file if you want to see it again.
6 'When the conversion is finished, type the program name to be saved and kill the remaining of the original text file.
7 'If there is garbage that is not a part of the Basic program in the text file, you'll see it displayed and hear a BEEP,
8 'and it will simply be ignored, so the conversion will still be successful.
9 'In case you have entered the wrong file name, press <CTRL> to safely recover the file (DO NOT use RESET button)
10 PRINT"Read remarks in this program"
20 READS:IFS>MAXRAMTHENCLEAR200ELSECLEAR200,S
30 GOSUB1010:RESTORE:READS,E,F$:PRINT"Installing CO2BA.CO":FORA=STOE:READB:POKEA,B:NEXT:SAVEMF$,S,E,S:PRINT"Done!":N=255:GOSUB1010:MENU
100 DATA 63574,64043,DO2BA,42,105,246,56,0,21,223,218,107,248,33,146,116,205,158,103,62,1,195,20,98,33,191,249,205,158,103,205
110 DATA 42,42,205,98,44,33,226,249,205,158,103,205,240,84,215,200,205,67,45,205,202,90,205,189,43,202,119,248,235,34,30,250
120 DATA 229,205,104,130,193,8,35,229,197,68,77,42,97,246,229,43,19,217,9,34,32,250,193,225,8,34,28,250,225,197,202,234,248
130 DATA 124,181,202,234,248,36,37,68,77,202,194,248,1,0,1,8,229,42,30,250,17,108,239,197,213,229,205,85,60,34,30,250,235,27
140 DATA 42,28,250,68,77,225,43,205,33,131,35,235,225,193,205,85,60,225,195,179,248,42,149,242,34,26,250,225,205,201,143,229
150 DATA 126,214,26,202,5,249,35,254,243,194,245,248,43,54,0,35,50,225,249,183,54,0,196,168,65,227,229,43,215,225,218,47,249
160 DATA 202,43,249,205,158,103,205,69,79,58,22,253,230,2,202,43,249,205,120,249,199,209,195,97,249,205,22,9,235,34,42,250
170 DATA 235,205,113,6,209,42,26,250,1,40,250,62,4,245,205,168,249,10,119,35,3,241,61,194,67,249,1,108,239,205,168,249,10,119
180 DATA 35,3,183,194,83,249,34,26,250,235,58,225,249,183,194,241,248,205,120,249,33,34,250,34,249,238,205,77,79,195,143,131
190 DATA 42,32,250,235,42,26,250,205,168,249,54,0,35,205,168,249,54,0,35,34,97,246,223,202,165,249,126,254,26,202,159,249,183
200 DATA 194,161,249,54,13,35,54,10,35,195,142,249,54,26,201,223,216,213,197,1,1,0,205,168,130,193,209,19,229,42,32,250,35
210 DATA 34,32,250,225,201,32,42,42,42,32,84,101,120,116,32,116,111,32,66,97,115,105,99,32,67,111,110,118,101,114,116,101,114
220 DATA 32,42,42,42,13,10,0,80,114,101,115,115,32,60,67,84,82,76,62,32,116,111,32,98,114,101,97,107,32,102,114,111,109,32
230 DATA 101,114,114,111,114,46,13,10,76,111,97,100,32,102,114,111,109,32,91,60,67,82,62,61,69,120,105,116,93,0,0,0,0,0,0,0
240 DATA 0,83,97,118,101,32,34,0,255,0,0
1000 'Sound routine
1010 RESTORE1020:FORA=63574TO63613:READB:POKEA,B:NEXT:CALL63574,N:RETURN
1020 DATA 50,90,248,30,0,243,31,218,103,248,83,205,114,248,195,96,248,58,90,248,147,87,205,114,248,195,103,248,205,201,143,21,194
1030 DATA 117,248,29,192,209,251,201