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 >
Commodore BASIC  |  2022-10-26  |  960b  |  29 lines
  1. 10 rem ********************************
  2. 20 rem *** patch zu archivator v2.1 ***
  3. 30 rem ********************************
  4. 40 rem ****** (w)1994 by j.boese ******
  5. 50 rem
  6. 60 poke55,0:poke56,16
  7. 70 if a=0 then :print"[147]archivator wird geladen...":clr:a=1:load"ar.v2.1",8,1
  8. 80 rem *** pointer auf patch nr.1 ***
  9. 90 poke14973,76:poke14974,90:poke14975,97
  10. 100 rem *** pointer auf patch nr.2 ***
  11. 110 poke19752,76:poke19753,99:poke19754,97
  12. 120 print"[147]patches installieren...":a=0
  13. 130 rem *** patch-routinen install. ***
  14. 140 read b :if b=-1 then goto 180
  15. 150 :    poke24922+a,b:a=a+1
  16. 160 goto 140:rem * solange bis -1=ende *
  17. 170 rem *** alte version loeschen ***
  18. 180 print"[147]alte version loeschen..."
  19. 190 open1,8,15,"s:ar.v2.1":close1
  20. 200 rem *** neue prog.vers. sichern ***
  21. 210 sys57812 "ar.v2.1",8
  22. 220 rem *** neue endadresse ***
  23. 230 poke174,115:poke175,97
  24. 240 poke193,128:poke194,43
  25. 250 print"[147]gepatchte version wird gesichert...":sys62957
  26. 260 print"[147]patchvorgang beendet!":end
  27. 32000 data32,106,56,32,152,52,76,128,58,32,210,255,201,34,208,6,165,212,73,1
  28. 32001 data133,212,76,43,77,-1
  29.