home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 57 / 64er_Magazin_Sonderheft_57_19xx_Markt__Technik_de_Side_A.d64 / datamast.patch (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  907b  |  31 lines
  1. 10 rem patchprogramm zu datamaster 64, sonderheft 46 - rev 2
  2. 20 rem n.heusler, zwengauerweg 18, 8 muc 71, (c) nh-160590-arr
  3. 30 ifathen80
  4. 40 poke56,128:clr:sys58692
  5. 50 print"bitte datamaster-disk einlegen!
  6. 60 [151]198,0:[146]198,1:[151]198,0
  7. 70 a[178]1:[147]"mcode $8000",8,8
  8. 80 [153]:[153]"bitte warten!
  9. 90 fori=32768to37648:s=s+peek(i):next
  10. 100 ifs<>585422thenprint:print"bitte originalversion verwenden!":stop
  11. 110 print:print"datamaster ok. patch laeuft!
  12. 120 [151]35312,76:[151]35313,24:[151]35314,147
  13. 130 [129]i[178]37656[164]37677:[135]x:[151]i,x:h[178]h[170]x:[130]
  14. 140 [131]201,32,240,15
  15. 150 [131]201,42,240,11
  16. 160 [131]201,45,240,7
  17. 170 [131]201,47,240,3
  18. 180 [131]76,229,137,76,223,137
  19. 190 [139]h[179][177]2844[167][153]:[153]"data-fehler!":[144]
  20. 200 [153]:[153]"patch ok. neue version wird gespeichert
  21. 210 open15,8,15,"s:mcode $8000
  22. 220 [132]15,f:[139]f[179]2[167]240
  23. 230 [153]:[153]"diskettenfehler nr."f:[128]
  24. 240 [158](57812)"mcode $8000",8
  25. 250 [151]780,2:[151]781,46:[151]782,147
  26. 260 [151]2,0:[151]3,128:[158]65496
  27. 270 [132]15,f:[139]f[178]0[167]290
  28. 280 [153]:[153]"diskettenfehler nr."f:[128]
  29. 290 [160]15:[153]:[153]"alles ok. neue version auf diskette.
  30. 300 end
  31.