home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 January / 64er_Magazin_85-01_1985_Markt__Technik_de.d64 / lader (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  78 lines
  1. 10 rem interrupt-routine zur erzeugung
  2. 11 rem
  3. 12 rem eines maximal vierteiligen
  4. 13 rem
  5. 14 rem bildschirmes und 32 sprites
  6. 15 rem
  7. 16 rem auf einem commodore 64 computer
  8. 17 rem
  9. 18 rem       1984 by gebr. haas
  10. 19 rem
  11. 100 rem pruefsummen-kontrolle
  12. 101 rem
  13. 110 restore:ps=0
  14. 120 fora=0to511
  15. 130 read wert
  16. 140 ps=ps+wert
  17. 150 nexta
  18. 160 ifps<>60913thenprint"data-pruefsumme falsch !":end:*
  19. 199 rem
  20. 200 rem maschinencode uebertragen
  21. 201 rem
  22. 210 restore
  23. 220 fora=0to447
  24. 230 read wert
  25. 240 poke52544+a,wert
  26. 250 nexta
  27. 260 fora=0to63
  28. 265 read wert
  29. 270 forb=0to3
  30. 280 poke52992+b*64+a,wert
  31. 290 poke52992+b*64+18,95+50*b
  32. 295 nextb,a
  33. 299 rem
  34. 300 rem provic 64 abspeichern
  35. 301 rem
  36. 310 n$="provic 64"
  37. 320 fora=1tolen(n$)
  38. 330 poke49151+a,asc(mid$(n$,a,1))
  39. 340 nexta
  40. 350 poke183,len(n$)
  41. 360 poke187,0:poke188,192
  42. 370 poke185,1
  43. 380 poke193,64:poke194,205
  44. 390 poke174,0:poke175,208
  45. 400 poke186,8: rem fuer floppy   : 8                       fuer datasette: 1
  46. 410 sys62957:  rem save routine
  47. 420 end
  48. 999 rem
  49. 1000 rem provic 64 maschinencode
  50. 1001 rem
  51. 1002 data120,169,88,162,205,141,20,3,142,21,3,169,1,141,13,220,141,26,208
  52. 1003 data141,255,207,88,96,169,1,141,25,208,172,255,207,240,15,136,240,9,136
  53. 1004 data240,3,162,192,44,162,128,44,162,64,44,162,0,189,18,207,141,18,208
  54. 1005 data189,47,207,208,3,76,141,206,173,30,208,29,30,207,157,30,207,173,31
  55. 1006 data208,29,31,207,157,31,207,189,21,207,141,21,208,189,23,207,141,23
  56. 1007 data208,189,29,207,141,29,208,189,0,207,141,0,208,189,1,207,141,1,208
  57. 1008 data189,2,207,141,2,208,189,3,207,141,3,208,189,4,207,141,4,208,189,5
  58. 1009 data207,141,5,208,189,6,207,141,6,208,189,7,207,141,7,208,189,8,207,141
  59. 1010 data8,208,189,9,207,141,9,208,189,10,207,141,10,208,189,11,207,141,11
  60. 1011 data208,189,12,207,141,12,208,189,13,207,141,13,208,189,14,207,141,14
  61. 1012 data208,189,15,207,141,15,208,189,16,207,141,16,208,189,27,207,141,27
  62. 1013 data208,189,28,207,141,28,208,189,37,207,141,37,208,189,38,207,141,38
  63. 1014 data208,189,39,207,141,39,208,189,40,207,141,40,208,189,41,207,141,41
  64. 1015 data208,189,42,207,141,42,208,189,43,207,141,43,208,189,44,207,141,44
  65. 1016 data208,189,45,207,141,45,208,189,46,207,141,46,208,189,56,207,133,188
  66. 1017 data169,248,133,187,160,0,189,48,207,145,187,200,189,49,207,145,187,200
  67. 1018 data189,50,207,145,187,200,189,51,207,145,187,200,189,52,207,145,187
  68. 1019 data200,189,53,207,145,187,200,189,54,207,145,187,200,189,55,207,145
  69. 1020 data187,189,57,207,240,67,189,58,207,41,3,157,58,207,173,0,221,41,252
  70. 1021 data29,58,207,141,0,221,189,17,207,141,17,208,189,22,207,141,22,208,189
  71. 1022 data24,207,141,24,208,189,32,207,141,32,208,189,33,207,141,33,208,189
  72. 1023 data34,207,141,34,208,189,35,207,141,35,208,189,36,207,141,36,208,224
  73. 1024 data192,208,5,169,255,141,255,207,238,255,207,138,240,3,76,129,234,76
  74. 1025 data49,234,120,169,49,162,234,141,20,3,142,21,3,169,129,141,13,220,169
  75. 1026 data0,76,80,205,234,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,27,95,0,0,0,200
  76. 1027 data0,21,121,240,0,0,0,0,0,14,6,1,2,3,4,0,1,2,3,4,5,6,7,8,0,0,0,0,0,0
  77. 1028 data0,0,0,7,1,3,0,0,0,0,0
  78.