home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1992 November / 64er_Magazin_92-11_1992_Markt__Technik_de_Side_B.d64 / startexter-patch (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  807b  |  27 lines
  1. 100 rem patch fuer startexter 64 ab 5.x
  2. 110 rem (w) 11/89 michael moeller
  3. 120 :
  4. 130 poke55,0:poke56,12:rem basicende setzen
  5. 140 rem load file o4 und o3
  6. 150 ifa=0thena=1:load"o4",8,1
  7. 160 ifa=1thenl1=peek(174):h1=peek(175):a=2:load"o3",8,1
  8. 170 l2=peek(174):h2=peek(175)
  9. 180 poke51190,54:rem file o3
  10. 190 poke5811,54:rem file o4
  11. 200 poke8331,54:poke9962,54:poke10492,54:poke13688,54
  12. 210 poke6768,64:poke6769,23:rem get umleiten
  13. 220 i=0
  14. 230 readz:ifz<0then270
  15. 240 poke5937+i,z:i=i+1:goto230
  16. 250 :
  17. 260 rem save files
  18. 270 open15,8,15,"s:o4,o3":close15
  19. 280 sys57812"o3",8
  20. 290 poke193,0:poke194,195:poke780,193:poke781,l2:poke782,h2:sys65496
  21. 300 sys57812"o4",8
  22. 310 poke193,45:poke194,12:poke780,193:poke781,l1:poke782,h1:sys65496
  23. 320 :
  24. 330 data32,160,35,240,48,32,195,35,240,43,32,172,35,240,38,32,77,52,162,4,221
  25. 340 data83,23,240,5,202,16,248,170,96,189,88,23,96,16,128,130,132,143,148,137
  26. 350 data138,139,140,234,234,234,234,234,234,234,234,234,-1
  27.