200 OPEN "I",1,"DAT":INPUT #1,DAT$:CLOSE 1
10000 PRINT CHR$(12):PRINT:PRINT TAB(29);"EINDE.":PRINT TAB(29);"======":PRINT:PRINT:PRINT
10010 PRINT"Er moet nu nog een 'back-up' van de schijf gemaakt worden.":PRINT
10020 PRINT"Plaats daarvoor de schijf 'Back-up kassa' in de B-drive."
10030 PRINT TAB(28);"GOTO GOTO GOTO GOTO GOTO GOTO GOTO GOTO GOTO GOTO GOTO GOTO GOTO"
10040 PRINT"Druk daarna op een willekeurige toets.";:A$=INPUT$(1):PRINT:PRINT
10050 OPEN "O",1,"B:DAT"
10060 WRITE #1,DAT$
10070 CLOSE 1
10080 OPEN "I",1,"RUBRIEK"
10090 INPUT #1,A:DIM RUBR$(A),RUBRBED(A)
10100 FOR I=1 TO A
10110 INPUT #1,RUBR$(I),RUBRBED(I)
10120 NEXT I
10130 CLOSE 1
10140 OPEN "O",1,"B:RUBRIEK"
10150 PRINT #1,A
10160 FOR I=1 TO A
10170 WRITE #1,RUBR$(I),RUBRBED(I)
10180 NEXT I
10190 CLOSE 1
10200 FOR J=1 TO J
10210 OPEN "I",1,LEFT$(RUBR$(J),4)
10220 OPEN "O",2,"B:"+LEFT$(RUBR$(J),4)
10230 WHILE NOT EOF(1)
10240 INPUT #1,DA,OMS$,BED
10250 WRITE #2,DA,OMS$,BED
10260 WEND
10270 CLOSE 1,2
10280 NEXT J
10290 OPEN "I",1,"INKSPE"
10300 OPEN "O",2,"B:INKSPE"
10310 WHILE NOT EOF(1)
10320 INPUT #1,DA,OMS$,BED
10330 WRITE #2,DA,OMS$,BED
10340 WEND
10350 CLOSE 1,2
10360 OPEN "I",1,"INKOMST"
10370 OPEN "O",2,"B:INKOMST"
10380 WHILE NOT EOF(1)
10390 INPUT #1,INK
10400 WRITE #2,INK
10410 WEND
10420 CLOSE 1,2
10430 OPEN "I",1,"PLANRUBR"
10440 OPEN "O",2,"B:PLANRUBR"
10450 WHILE NOT EOF(1)
10460 INPUT #1,PLAN$,PLANBED
10470 WRITE #2,PLAN$,PLANBED
10480 WEND
10490 CLOSE 1,2
10500 PRINT"De 'back-up' is klaar, de schijven kunnen nu uit de drives ver- wijderd worden."
10510 PRINT:SYSTEM
0 CLOSE 1,2
10500 PRINT"De 'back-up'