home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1991 February / 64er_Magazin_91-02_1991_Markt__Technik_de_Side_A.d64 / v1.20-patch (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  806b  |  31 lines
  1. 100 a=a+1
  2. 110 if a=1 then load "gp2",8,1
  3. 120 if a=2 then load "gp3",8,1
  4. 130 for p=1 to 10   : read a,n
  5. 140 for i=0 to n    : read d
  6. 150 poke a+i,d      : next : next
  7. 160 a$="gp2" : a=52 : e=76 : gosub 200
  8. 170 a$="gp3" : a=76 : e=96 : gosub 200
  9. 180 print "sie besitzen nun giga-paint v1.2"
  10. 190 end
  11. 200 open 1,8,15,"s:"+a$    : close 1
  12. 210 sys 57812 a$,8
  13. 220 poke 193,0      : poke 194,a
  14. 230 poke 781,0      : poke  782,e
  15. 240 poke 780,193    : sys 65496 : return
  16. 300 data 15856, 3,162,  0,165, 70
  17. 310 data 15905, 1,169,  0
  18. 320 data 19408, 1,162,  0
  19. 330 data 19599, 0,234
  20. 340 data 19928, 0, 12
  21. 350 data 19954, 1, 48,205
  22. 360 data 20390,12,229, 61,176, 11,138
  23. 370 data          101,184,176,  4,197
  24. 380 data           50,144,  2
  25. 390 data 16093, 2, 76,246, 95
  26. 400 data 24546,27,0,0,0,0,0,0,0,0,0,0
  27. 410 data          0,0,0,0,0,0,0,0,0,0
  28. 420 data          141, 77, 67,169,  0
  29. 430 data          133, 30, 96
  30. 440 data 19439, 2, 76,245, 75
  31.