10 REM CASBAK.200 by James Yi 73327,1653 04/29/88
20 REM A file backup utility
25 REM Backup important files to a cassette and store them away as a disaster prevention.
30 REM Backs up all BA, DO, CO files in the current bank to cassette.
35 REM Use CASLDR.200 to load them back in.
40 REM
50 REM
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,63900,CASBAK,205,98,44,205,220,131,33,181,242,229,126,254,255,202,42,249,183,202,34,249,1,23,249,197,229,35,35
110 DATA 35,229,33,142,249,205,158,103,225,17,70,247,6,8,126,18,35,19,231,5,194,127,248,225,126,230,240,254,192,202,201,248
120 DATA 254,160,202,251,248,254,128,202,170,248,33,124,249,205,158,103,175,205,84,249,62,255,205,84,249,205,204,43,213,205
130 DATA 31,6,193,8,43,124,181,200,229,34,253,244,96,105,229,205,112,51,205,173,51,225,209,195,76,48,42,180,238,37,34,220,248
140 DATA 205,204,43,213,235,205,115,51,225,6,0,17,0,0,213,126,18,19,254,26,202,232,248,35,5,194,223,248,209,245,229,235,205
150 DATA 68,24,225,241,254,26,194,217,248,201,205,204,43,235,229,17,251,244,205,165,50,205,118,51,205,173,51,225,205,161,65
160 DATA 35,35,80,89,195,76,48,205,192,21,62,10,205,20,98,205,194,21,225,1,11,0,9,195,95,248,225,17,70,247,33,150,249,205,167
170 DATA 50,33,0,0,229,34,251,244,34,255,244,35,34,253,244,229,205,118,51,205,173,51,209,225,205,76,48,62,255,205,84,249,175
180 DATA 50,88,249,30,0,243,31,218,101,249,83,205,112,249,195,94,249,58,88,249,147,87,205,112,249,195,101,249,205,201,143,21
190 DATA 194,115,249,29,192,209,251,201,85,110,107,110,111,119,110,32,102,105,108,101,32,116,121,112,101,0,83,97,118,105,110
200 DATA 103,32,0,59,69,78,68,32,32,32
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