home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1994 December
/
64er_Magazin_94-12_1994_Markt__Technik_de_Side_A.d64
/
ar21.patch.bas
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
960b
|
29 lines
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