home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1985 July / 64er_Magazin_85-07_1985_Markt__Technik_de.d64 / cent.listing1 (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1985-01-01  |  3.0 KB  |  82 lines
  1. 0 rem  ********************************
  2. 1 rem  *                              *
  3. 2 rem  *         c64 centron          *
  4. 3 rem  *                              *
  5. 4 rem  *              von             *
  6. 5 rem  *      wolfgang fastenrath     *
  7. 6 rem  *              und             *
  8. 7 rem  *         elmar schulte        *
  9. 8 rem  *                              *
  10. 9 rem  *        tel. 02246/7132       *
  11. 10 rem *                              *
  12. 11 rem *       lohmar, april 1985     *
  13. 12 rem *                              *
  14. 13 rem ********************************
  15. 14 poke55,0:poke56,64:restore
  16. 15 of=16384:gosub1000:sys16384
  17. 20 of=25641:gosub1000
  18. 30 of=25661:gosub1000
  19. 40 of=28861:gosub1000
  20. 50 of=30131:gosub2000
  21. 60 of=30140:gosub2000
  22. 70 of=30162:gosub2000
  23. 80 of=30168:gosub2000
  24. 90 of=30355:gosub2000
  25. 100 of=30489:gosub2000
  26. 110 of=30544:gosub2000
  27. 120 of=30748:gosub2000
  28. 130 of=30761:gosub2000
  29. 140 of=30781:gosub2000
  30. 150 of=32221:gosub1000
  31. 160 of=32450:gosub1000
  32. 170 of=27969:gosub3000
  33. 180 of=27940:gosub3000
  34. 190 of=28091:gosub3000
  35. 200 of=25695:gosub1000
  36. 210 of=25783:gosub1000
  37. 220 of=28884:gosub1000
  38. 300 print"[147]<1> abspeichern
  39. 310 [153]"<2> testoption
  40. 315 print"<3> ende
  41. 320 [153]"bitte waehlen <1/2/3>
  42. 340 geta$:ifa$=""then340
  43. 345 ifa$="1"then350
  44. 347 ifa$="2"then400
  45. 348 ifa$="3"thenend
  46. 349 ifa$<>"1"ora$<>"2"ora$<>"3"then340
  47. 350 print"[147]'c64 centron' (bereich $6000 - $8000)"
  48. 360 print"wird auf diskette gespeichert"
  49. 370 sys 16421:end
  50. 400 poke16388,96:poke16393,224:poke16398,0:poke16401,0:poke16416,0:sys16384
  51. 410 poke16388,160:poke16393,160:poke16398,0:poke16401,0:poke16416,192:sys16384
  52. 420 poke1,53
  53. 430 print"[147]basic und c64 centron befinden sich":print"jetzt im ram."
  54. 440 print"die funktion kann getestet werden."
  55. 450 end
  56. 1000 i=0
  57. 1010 reada:ifa<0thenreturn
  58. 1020 pokeof+i,a:i=i+1:goto1010
  59. 1030 end
  60. 2000 reada:pokeof,a:reada:pokeof+1,a:return
  61. 3000 reada:pokeof,a:reada:pokeof+1,a:reada:pokeof+2,a:return
  62. 31999 data120,160,0,169,224,141,15,64,169,96,141,18,64,185,0,255,153,0,255,200
  63. 32000 data208,247,238,15,64,238,18,64
  64. 32001 data173,18,64,201,128,208,234,88,96,169,0,133,251,169
  65. 32002 data96,133,252,169,1,162,8,160,1,32,186,255,169,13,162,73,160,64,32,189
  66. 32003 data255,169,251,162,0,160,128,32,216,255,96,67,54,52,32,67,69,78,84,82
  67. 32004 data79,78,47,79,0,-55,169,194,160,254,-55,169,234,160,253,-55,13,163
  68. 32005 data13,83,82,160,160,80,204,82,195,13,204,13,211,160,13,214,13,160,13,43
  69. 32006 data141,-55,160,2,160,6,160,11,160,16,160,13,160,0,160,18,160,7,160,20
  70. 32007 data160,9,169,37,141,4,220,169,64,141,5,220,76,110,255,32,66,89
  71. 32008 data84,69,83,32,82,65,77,13,0,-55,147,13,32,42,32,67,54,52,32,67,69,78
  72. 32009 data84,82,79,78,32,42,32,0,-55,76,95,228,76,212,240,32,0,241,44,12,221
  73. 32010 data48,6,32,151,238,76,68,237,165,149,44,12,221,80,26,72,173,12,220,201
  74. 32011 data219,208,3,108,54,3,104,201,65,144,10,201,192,144,4,41,127,208,2,9,32
  75. 32012 data32,183,228,24,36,163,16,5,169,0,141,12,221,88,96,169,13,32,183,228,208
  76. 32013 data242,-55,141,1,221,173,13,221,173,0,221,41,251,141,0,221,9,4,141,0,221
  77. 32014 data169,16,44,13,221,240,251,96,-55,201,36,240,14,173,12,221,41,127,141
  78. 32015 data12,221,32,151,238,76,39,237,169,255,141,3,221,44,12,221,48,13,173,12
  79. 32016 data221,9,128,141,12,221,169,0,32,183,228,24,88,96,120,44,12,221,48,5,88
  80. 32017 data32,54,237,96,72,41,31,201,7,8,173,12,221,40,208,3,9,64,44,41,191,141
  81. 32018 data12,221,104,41,240,201,224,208,215,76,154,228,-55
  82.