ADRIVE:
CLS
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºFLOPPY COPY BY MURRAY PARKINSONº"
PRINT "ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ"
PRINT "º                               º"
PRINT "ºSELECT THE DISK DRIVE YOU WANT º"
PRINT "ºTO COPY FROM (A: B:)           º"
PRINT "º                               º"
PRINT "ºDRIVE [A]                      º"
PRINT "º                               º"
PRINT "ºPRESS (ENTER) TO START         º"
PRINT "º                               º"
PRINT "ºPRESS (ESC) TO EXIT            º"
PRINT "º                               º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
DO
LET A$ = INKEY$
IF A$ = "A" THEN GOTO ADRIVE
IF A$ = "B" THEN GOTO BDRIVE
IF A$ = CHR$(13) THEN GOTO COPYDISKA
IF A$ = CHR$(27) THEN END
LOOP
COPYDISKA:
CLS
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºFLOPPY COPY BY MURRAY PARKINSONº"
PRINT "ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ"
PRINT "º                               º"
PRINT "ºSTARTING DISK COPY...          º"
PRINT "ºON DRIVE (A:)                  º"
PRINT "º                               º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
MKDIR "C:\DISKTMP"
SHELL "COPY A:\*.* C:\DISKTMP"
CLS
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºFLOPPY COPY BY MURRAY PARKINSONº"
PRINT "ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ"
PRINT "º                               º"
PRINT "ºPUT NEW DISK INTO              º"
PRINT "ºDRIVE (A:)                     º"
PRINT "º                               º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
SLEEP
SHELL "COPY C:\DISKTMP\*.* A:\"
CLS
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºFLOPPY COPY BY MURRAY PARKINSONº"
PRINT "ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ"
PRINT "º                               º"
PRINT "ºDISK COPY IS DONE              º"
PRINT "ºON DRIVE (A:)                  º"
PRINT "º                               º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
KILL "C:\DISKTMP\*.*"
RMDIR "C:\DISKTMP"
END
BDRIVE:
CLS
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºFLOPPY COPY BY MURRAY PARKINSONº"
PRINT "ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ"
PRINT "º                               º"
PRINT "ºSELECT THE DISK DRIVE YOU WANT º"
PRINT "ºTO COPY FROM (A: B:)           º"
PRINT "º                               º"
PRINT "ºDRIVE [B]                      º"
PRINT "º                               º"
PRINT "ºPRESS (ENTER) TO START         º"
PRINT "º                               º"
PRINT "ºPRESS (ESC) TO EXIT            º"
PRINT "º                               º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
DO
LET A$ = INKEY$
IF A$ = "A" THEN GOTO ADRIVE
IF A$ = CHR$(13) THEN GOTO COPYDISKB
IF A$ = CHR$(27) THEN END
LOOP
COPYDISKB:
CLS
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºFLOPPY COPY BY MURRAY PARKINSONº"
PRINT "ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ"
PRINT "º                               º"
PRINT "ºSTARTING DISK COPY...          º"
PRINT "ºON DRIVE (B:)                  º"
PRINT "º                               º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
MKDIR "C:\DISKTMP"
SHELL "COPY B:\*.* C:\DISKTMP"
CLS
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºFLOPPY COPY BY MURRAY PARKINSONº"
PRINT "ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ"
PRINT "º                               º"
PRINT "ºPUT NEW DISK INTO              º"
PRINT "ºDRIVE (B:)                     º"
PRINT "º                               º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
SLEEP
SHELL "COPY C:\DISKTMP\*.* B:\"
CLS
PRINT "ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»"
PRINT "ºFLOPPY COPY BY MURRAY PARKINSONº"
PRINT "ÇÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĶ"
PRINT "º                               º"
PRINT "ºDISK COPY IS DONE              º"
PRINT "ºON DRIVE (B:)                  º"
PRINT "º                               º"
PRINT "ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ"
KILL "C:\DISKTMP\*.*"
RMDIR "C:\DISKTMP"
END