10 REM DO2BA.200 by James Yi 73327,1653 06/28/88
20 REM This BASIC loader creates the actual running program
25 REM Use this utility when there isn't enough memory to LOAD a Basic program downloaded as text file.
30 REM It directly converts a Basic program saved as a text file into a tokenized .BA file.
40 REM It destroys the text file in the process, so save the original text file if you want to see it again.
60 REM 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,
65 REM and it will simply be ignored, so the conversion will still be successful.
67 REM In case you have entered the wrong file name, press <CTRL> to safely recover the file.
68 REM DO NOT use RESET button instead!
70 PRINT"Read REM lines"
80 READS:IFS>MAXRAMTHENCLEAR200ELSECLEAR200,S
90 GOSUB1000:RESTORE:READS,E,F$:PRINT"Installing "F$:FORA=STOE:READB:POKEA,B:NEXT:SAVEMF$,S,E,S:PRINT"Done!":N=255:GOSUB1000:MENU
100 DATA 63574,64044,DO2BA,42,105,246,56,0,21,223,218,107,248,33,146,116,205,158,103,62,1,195,20,98,33,199,249,205,158,103,205
110 DATA 42,42,205,98,44,33,233,249,205,158,103,205,240,84,215,200,205,67,45,205,202,90,205,189,43,202,119,248,229,235,34,37
120 DATA 250,229,205,104,130,193,8,35,229,197,68,77,42,97,246,229,43,19,217,9,34,39,250,193,225,8,34,35,250,225,197,202,235
130 DATA 248,124,181,202,235,248,36,37,68,77,202,195,248,1,0,1,8,229,42,37,250,17,108,239,197,213,229,205,85,60,34,37,250,235
140 DATA 27,42,35,250,68,77,225,43,205,33,131,35,235,225,193,205,85,60,225,195,180,248,42,149,242,34,33,250,225,205,201,143
150 DATA 229,126,214,26,202,6,249,35,254,243,194,246,248,43,54,0,35,50,232,249,183,54,0,196,168,65,227,229,43,215,225,218,48
160 DATA 249,202,44,249,205,158,103,205,69,79,58,22,253,230,2,202,44,249,205,128,249,199,209,195,98,249,205,22,9,235,34,43
170 DATA 250,235,205,113,6,209,42,33,250,1,41,250,62,4,245,205,176,249,10,119,35,3,241,61,194,68,249,1,108,239,205,176,249
180 DATA 10,119,35,3,183,194,84,249,34,33,250,235,58,232,249,183,194,242,248,205,128,249,205,98,44,225,205,44,43,205,220,131
190 DATA 42,149,242,34,103,239,195,11,42,42,39,250,235,42,33,250,205,176,249,54,0,35,205,176,249,54,0,35,34,97,246,223,202
200 DATA 173,249,126,254,26,202,167,249,183,194,169,249,54,13,35,54,10,35,195,150,249,54,26,201,223,216,213,197,1,1,0,205,168
210 DATA 130,193,209,19,229,42,39,250,35,34,39,250,225,201,32,32,42,42,32,84,101,120,116,32,116,111,32,66,97,115,105,99,32
220 DATA 67,111,110,118,101,114,116,101,114,32,42,42,13,10,0,80,114,101,115,115,32,60,67,84,82,76,62,32,116,111,32,98,114,101
230 DATA 97,107,32,102,114,111,109,32,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
240 DATA 120,105,116,93,0,0,0,0,0,0,0,0,0,255,0,0
1000 REM +++++Sound routine+++++
1010 RESTORE1050:FORA=63574TO63613:READB:POKEA,B:NEXT:CALL63574,N:RETURN
1050 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
1060 DATA 117,248,29,192,209,251,201