10 REM CASLDR.200 by James Yi 73327,1653 04/29/88
20 REM This BASIC loader creates the actual running program
30 REM Loads any cassette files.  It will stop loading when file named ';END' is detected, or if you break it, or 
40 REM When it runs into IO error, or memory runs out.
50 REM If a file is aborted in the middl of a load for any reason,
55 REM that file will be rendered useless and should be destroyed.
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,63968,CASLDR,205,220,131,205,98,44,42,180,238,37,34,170,248,1,89,248,197,205,81,51,205,205,51,245,205,191,45
110 DATA 33,199,249,205,158,103,175,50,76,247,33,70,247,229,205,204,17,225,241,254,156,202,159,248,254,208,202,230,248,254
120 DATA 211,202,47,249,33,206,249,205,30,249,205,67,52,195,103,248,205,115,45,205,104,130,229,205,55,52,33,0,0,229,17,0,1
130 DATA 205,131,49,194,42,249,205,194,21,225,229,1,0,0,126,35,254,26,202,203,248,3,4,5,202,190,248,209,225,120,177,202,225
140 DATA 248,213,205,168,130,235,225,218,128,249,197,205,22,131,235,193,5,202,165,248,201,126,254,59,194,243,248,35,126,254
150 DATA 69,202,136,249,205,166,43,196,44,43,205,98,44,205,102,48,205,166,43,229,33,6,0,25,229,42,253,244,229,205,55,52,209
160 DATA 225,205,131,49,225,202,194,21,205,44,43,33,189,249,205,158,103,175,205,143,249,62,255,195,143,249,193,193,195,27,249
170 DATA 205,195,43,196,44,43,205,98,44,42,253,244,35,35,68,77,42,149,242,205,168,130,218,128,249,229,42,97,246,9,34,97,246
180 DATA 11,11,197,205,9,44,193,54,128,209,229,213,35,235,43,217,19,19,33,70,247,235,62,8,205,6,110,225,229,197,54,32,35,11
190 DATA 120,177,194,110,249,43,112,35,112,35,112,195,12,249,205,33,249,30,7,195,136,4,193,62,255,205,143,249,175,50,147,249
200 DATA 30,0,243,31,218,160,249,83,205,171,249,195,153,249,58,147,249,147,87,205,171,249,195,160,249,205,201,143,21,194,174
210 DATA 249,29,192,209,251,201,0,0,0,0,0,0,73,79,32,69,114,114,111,114,7,0,70,111,117,110,100,32,0,85,110,107,110,111,119
220 DATA 110,32,102,105,108,101,32,116,121,112,101,7,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