CLS
COLOR 7, 4
CLS
LOCATE 1, 1
COLOR , 1: PRINT "QBASIC Backup                                                                   "
COLOR , 7: PRINT "                                                                                "
COLOR 7, 4
PRINT
PRINT
PRINT
PRINT
PRINT
PRINT "                ÚÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ¿"
PRINT "                ³                                                   ³"
PRINT "                ³                   QBASIC Backup                   ³"
PRINT "                ³                    Version 1.0                    ³"
PRINT "                ³                 By Murray parkinson               ³"
PRINT "                ÃÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ´"
PRINT "                ³                     <  OK  >                      ³"
PRINT "                ÀÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÙ"
SLEEP
MENU:
CLS
SOUND 500, 4
LOCATE 1, 1
COLOR , 1: PRINT "QBASIC Backup by murray parkinson                                               "
COLOR , 7: PRINT "                                                                                "
COLOR 7, 4
PRINT
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºMENU:                                                                         º"
PRINT "º                                                                              º"
PRINT "º1) BACKUP FILE                                                                º"
PRINT "º2) RESTORE FILE                                                               º"
PRINT "º3) EXIT                                                                       º"
PRINT "º                                                                              º"
PRINT "º                                                                              º"
PRINT "º                                                                              º"
PRINT "º                                                                              º"
PRINT "º                                                                              º"
PRINT "º                                                                              º"
PRINT "º                                                                              º"
PRINT "º                                                                              º"
PRINT "º                                                                              º"
PRINT "º                                                                              º"
PRINT "º                                                                              º"
PRINT "º                                                                              º"
PRINT "º                                                                              º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
DO
LET a$ = INKEY$
IF a$ = "1" GOTO BKF
IF a$ = "2" GOTO RSF
IF a$ = "3" THEN CLS : END
LOOP
BKF:
CLS
SOUND 500, 4
LOCATE 1, 1
COLOR , 1: PRINT "QBASIC Backup by murray parkinson                                               "
COLOR , 7: PRINT "                                                                                "
COLOR 7, 4
PRINT
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºENTER THE NAME OF THE FILE YOU WANT TO BACKUP:º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
INPUT FILENAME$
SOUND 500, 4
PRINT
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºENTER THE NAME OF THE DRIVE YOU WANT TO BACKUP THE FILE TO:º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
PRINT
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºA:\ B:\ C:\ D:\ E:\ F:\ G:\º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
INPUT DN$
CLS
SOUND 500, 4
LOCATE 1, 1
COLOR , 1: PRINT "QBASIC Backup by murray parkinson                                               "
COLOR , 7: PRINT "                                                                                "
COLOR 7, 4
PRINT
PRINT
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºCOPY IN PROGRESS...º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
MKDIR DN$ + "BACKUP"
OPEN DN$ + "BACKUP\INFO.DAT" FOR OUTPUT AS #1
PRINT #1, FILENAME$
CLOSE
LET P$ = "COPY " + FILENAME$ + " " + DN$ + "BACKUP\FILE.BAK"
SHELL P$
PRINT
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºALL DONE PRESS ANY KEY TO GO BACK TO THE MENUº"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
SLEEP
GOTO MENU
RSF:
CLS
SOUND 500, 4
LOCATE 1, 1
COLOR , 1: PRINT "QBASIC Backup by murray parkinson                                               "
COLOR , 7: PRINT "                                                                                "
COLOR 7, 4
PRINT
PRINT
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºENTER THE NAME OF THE DRIVE WITH THE BACKUP FILE ON IT:º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
INPUT DN2$
OPEN DN2$ + "BACKUP\INFO.DAT" FOR INPUT AS #1
INPUT #1, DATINFO$
CLOSE
P2$ = "COPY " + DN2$ + "BACKUP\FILE.BAK" + " " + DATINFO$
SHELL P2$
PRINT
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºALL DONE PRESS ANY KEY TO GO BACK TO THE MENUº"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
SLEEP
GOTO MENU