home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1986 January / 64er_Magazin_86-01_1986_Markt__Technik_de.d64 / ieee-generator (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1986-01-01  |  3.6 KB  |  94 lines
  1. 10 poke45,0:poke46,113:clr
  2. 20 print"[147]ieee-rom generator
  3. 30 [153]"c1986 by mike lamm
  4. 40 print"bitte warten......
  5. 50 [153]
  6. 60 f$[178]"1541.ieee-dos
  7. 70 open15,8,15,"i"
  8. 80 input#15,ds,ds$,t,s,m:ifdsthenprint"disk-error:"ds;ds$,t,s:goto320
  9. 90 c=5*4096
  10. 100 fori=14*4096to16*4096-1step128
  11. 110 print#15,"m-r"chr$(i-int(i/256)*256);chr$(int(i/256));chr$(128)
  12. 120 forj=0to127:get#15,a$:pokec,asc(a$+chr$(0)):c=c+1:nextj
  13. 130 print"*";
  14. 140 nexti:print:print
  15. 150 reada:readb
  16. 160 fori=atoa+b-1:readd:pokei,d:nexti
  17. 170 poke28678,44:poke28704,142:poke28705,64:poke28706,3:sys7*4096
  18. 180 ifpeek(832)<>224thenprint"?uebertragungsfehler":goto320
  19. 190 print"overlay gestartet"
  20. 200 restore
  21. 210 forl=1to10
  22. 220 reada:readb
  23. 230 fori=atoa+b-1:readd:pokei,d:nexti,l
  24. 240 poke23746,8:poke25253,5:poke25257,2:poke25261,20
  25. 250 sys7*4096
  26. 260 print:input"abspeichern";a$
  27. 270 ifa$<>"j"then320
  28. 280 poke193,0:poke194,80:poke174,0:poke175,112
  29. 290 l=len(f$):fori=1tol:pokei+831,asc(mid$(f$,i,1)):next
  30. 300 poke183,l:poke187,64:poke188,3
  31. 310 sys 62954
  32. 320 close1:close15:end
  33. 330 rem pruefsummen-routine
  34. 340 data 28672,36
  35. 350 data162,112,134,35,169,31,141,230,110,169,0,133,34,168,162,32,24,198,35
  36. 360 data113,34,200,208,251,202,208,246,105,0,170,73,255,141,230,110,96
  37. 370 rem $e5b7
  38. 380 data 21943,4
  39. 390 data201,69,67,45
  40. 400 rem $e5c4
  41. 410 data 21956,3
  42. 420 data50,48,51
  43. 430 rem $e780
  44. 440 data 22400,28
  45. 450 data96,142,1,24,142,3,24,169,206,141,0,24,169,49,141,2,24,169,104,141,0
  46. 460 data28,169,111,141,2,28,96
  47. 470 rem $e860
  48. 480 data 22624,526
  49. 490 data162,69,154,169,76,13,0,24,41,237,141,0,24,169,0,141,3,24,169,23,141
  50. 500 data2,24,169,255,141,1,24,173,0,24,41,251,9,3,141,0,24,44,0,24,80,4,48
  51. 510 data249,16,125,169,253,45,0,24,141,0,24,41,8,133,248,173,1,24,73,255,133
  52. 520 data150,169,4,13,0,24,141,0,24,160,0,165,150,41,96,201,64,240,41,201,32
  53. 530 data240,6,201,96,240,47,208,70,165,150,197,119,240,11,201,63,208,2,132
  54. 540 data121,132,123,76,4,233,133,121,132,122,169,32,133,131,133,132,133,123
  55. 550 data208,39,132,122,165,150,197,120,208,229,133,122,132,121,240,232,165
  56. 560 data123,240,21,165,150,133,132,72,41,15,133,131,104,41,240,201,224,208
  57. 570 data5,88,32,192,218,120,44,0,24,80,251,76,124,232,165,121,240,14,169,252
  58. 580 data45,0,24,141,0,24,32,50,233,76,231,235,169,250,45,0,24,9,4,141,0,24
  59. 590 data165,122,240,3,32,220,233,76,231,235,120,169,2,13,0,24,141,0,24,44,0
  60. 600 data24,48,42,112,249,32,7,209,176,5,181,242,106,176,83,165,132,41,240,201
  61. 610 data240,240,75,165,131,201,1,240,19,44,0,24,48,11,80,249,169,251,45,0,24
  62. 620 data141,0,24,96,76,91,232,120,169,253,45,0,24,141,0,24,169,4,13,0,24,141
  63. 630 data0,24,44,0,24,48,231,80,249,173,0,24,41,251,141,0,24,169,2,13,0,24,141
  64. 640 data0,24,44,0,24,48,208,80,249,76,109,233,169,253,45,0,24,141,0,24,41,8
  65. 650 data133,248,173,1,24,73,255,133,133,120,169,4,13,0,24,141,0,24,44,0,24
  66. 660 data48,170,80,249,169,251,45,0,24,141,0,24,88,32,183,207,76,50,233,169
  67. 670 data72,13,0,24,141,0,24,76,231,235,120,32,235,208,176,6,166,130,181,242
  68. 680 data48,1,96,169,89,141,2,24,169,255,141,3,24,173,0,24,9,16,141,0,24,169
  69. 690 data2,44,0,24,48,73,240,249,189,62,2,73,255,141,1,24,181,242,9,183,45,0
  70. 700 data24,141,0,24,173,0,24,48,48,41,6,201,6,240,176,41,2,208,241,88,32,170
  71. 710 data211,120,169,4,44,0,24,48,26,240,249,169,255,141,1,24,169,72,13,0,24
  72. 720 data141,0,24,169,4,44,0,24,48,4,208,249,240,151,76,91,232,173,0,24,9,64
  73. 730 data141,0,24,96,169,2,13,0,24,41,254,141,0,24,96,170,170,170,170,170,170
  74. 740 data170,170,170,170,170,170
  75. 750 rem $eaa4
  76. 760 data 23204,3
  77. 770 data32,129,231
  78. 780 rem $eb3d
  79. 790 data 23357,14
  80. 800 data9,16,141,0,24,32,16,255,234,234,234,234,234,234
  81. 810 rem $ebda
  82. 820 data 23514,22
  83. 830 data234,234,234,234,234,234,234,234,234,234,32,128,231,88,234,234,234,234
  84. 840 data234,234,234,234
  85. 850 rem $f384
  86. 860 data 25476,8
  87. 870 data3,133,74,165,34,32,72,255
  88. 880 rem $ff10
  89. 890 data 28432,72
  90. 900 data173,12,24,9,12,41,253,141,12,24,173,2,24,41,254,141,2,24,173,0,24,41
  91. 910 data3,9,72,133,120,73,96,133,119,173,12,24,9,2,141,12,24,173,0,24,41,238
  92. 920 data141,0,24,173,2,24,9,1,141,2,24,96,208,2,169,44,41,126,73,254,10,5,74
  93. 930 data233,4,133,74,96
  94.