10 REM ********************************
20 REM *** PATCH ZU ARCHIVATOR V2.1 ***
30 REM ********************************
40 REM ****** (W)1994 BY J.BOESE ******
50 REM
60 POKE55,0:POKE56,16
70 IF A=0 THEN :PRINT"[147]ARCHIVATOR WIRD GELADEN...":CLR:A=1:LOAD"AR.V2.1",8,1
80 REM *** POINTER AUF PATCH NR.1 ***
90 POKE14973,76:POKE14974,90:POKE14975,97
100 REM *** POINTER AUF PATCH NR.2 ***
110 POKE19752,76:POKE19753,99:POKE19754,97
120 PRINT"[147]PATCHES INSTALLIEREN...":A=0
130 REM *** PATCH-ROUTINEN INSTALL. ***
140 READ B :IF B=-1 THEN GOTO 180
150 :    POKE24922+A,B:A=A+1
160 GOTO 140:REM * SOLANGE BIS -1=ENDE *
170 REM *** ALTE VERSION LOESCHEN ***
180 PRINT"[147]ALTE VERSION LOESCHEN..."
190 OPEN1,8,15,"S:AR.V2.1":CLOSE1
200 REM *** NEUE PROG.VERS. SICHERN ***
210 SYS57812 "AR.V2.1",8
220 REM *** NEUE ENDADRESSE ***
230 POKE174,115:POKE175,97
240 POKE193,128:POKE194,43
250 PRINT"[147]GEPATCHTE VERSION WIRD GESICHERT...":SYS62957
260 PRINT"[147]PATCHVORGANG BEENDET!":END
32000 DATA32,106,56,32,152,52,76,128,58,32,210,255,201,34,208,6,165,212,73,1
32001 DATA133,212,76,43,77,-1