home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 63 / 64er_Magazin_Sonderheft_63_19xx_Markt__Technik_de_Side_A.d64 / init (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  3KB  |  76 lines
  1. 10 rem ********************************
  2. 20 rem * funktionenhilfe fuer den c64 *
  3. 30 rem * michael suhr                 *
  4. 40 rem * 5160 dueren wernerstr. 10    *
  5. 50 rem * tel: 02421/14666             *
  6. 70 rem ********************************
  7. 100 :
  8. 110 rem mc-datas
  9. 120 :
  10. 130 data 32,253,174,32,235,183,142,168,2,165,20,141
  11. 140 data 169,2,165,21,141,170,2,173,169,2,24,105
  12. 150 data 12,141,169,2,144,9,24,173,170,2,105,1
  13. 160 data 141,170,2,173,169,2,141,0,208,173,170,2
  14. 170 data 141,16,208,173,168,2,105,50,141,1,208,173
  15. 180 data 169,2,56,233,12,141,169,2,176,5,169,0
  16. 190 data 141,170,2,173,168,2,74,74,74,141,172,2
  17. 200 data 173,170,2,24,74,173,169,2,41,254,106,74
  18. 210 data 74,141,171,2,169,0,133,251,169,96,133,252
  19. 220 data 24,173,171,2,42,42,42,144,2,230,252,24
  20. 230 data 101,251,133,251,144,2,230,252,24,174,172,2
  21. 240 data 240,56,169,0,141,175,2,169,0,141,174,2
  22. 250 data 24,169,64,109,174,2,141,174,2,144,3,238
  23. 260 data 175,2,24,169,1,109,175,2,141,175,2,202
  24. 270 data 208,230,24,173,174,2,101,251,133,251,144,2
  25. 280 data 230,252,24,165,252,109,175,2,133,252,173,168
  26. 290 data 2,41,7,101,251,133,251,173,169,2,41,7
  27. 300 data 73,7,170,169,1,160,0,202,48,3,10,208
  28. 310 data 250,141,173,2,177,251,13,173,2,145,251,96
  29. 320 data 120,169,0,133,1,160,0,169,0,133,251,169
  30. 330 data 96,133,252,169,0,145,251,200,192,0,240,8
  31. 340 data 76,243,192,230,252,76,243,192,165,252,201,128
  32. 350 data 208,245,160,0,169,0,133,251,169,88,133,252
  33. 360 data 169,16,145,251,200,192,0,240,8,76,20,193
  34. 370 data 230,252,76,20,193,165,252,201,92,208,245,169
  35. 380 data 55,133,1,88,96,48
  36. 390 :
  37. 400 rem spritedatas
  38. 410 :
  39. 420 data0,24,0,0,24,0,0,60,0,0,60,0,0,126,0,0,255,0,0,24,0,0,24,0,0,24,0
  40. 430 data0,24,0,0,24,0,0,24,0,0,24,0,0,60,0,0,60,0,0,126,0,0,0,0,0,0,0,0,0,0,0
  41. 440 data0,0,0,0,0
  42. 450 :
  43. 460 rem fehlerunterdrueckung
  44. 470 :
  45. 480 data 224,128,240,3,134,144,96,76,139,227
  46. 490 :
  47. 500 rem ** startwerte einlesen ***
  48. 510 rem die wichtigen variablen im ueberblick
  49. 520 rem s1   maschinenroutine
  50. 530 rem s2   high-res loeschen
  51. 540 rem st   status
  52. 550 rem y,y1,y2,y3                       werte einer fkt.
  53. 560 rem x                              parameter der fkt.
  54. 570 rem za,ze,f,z,s                               zaehler
  55. 580 rem a,h,hh,h1..h9                       hilfsgroessen
  56. 590 rem fl,fe                      flaggen;div.bedeutung
  57. 600 rem nu,be,ex,de,lu           flaggen fuer berechnetes
  58. 610 rem e$,es$,me$                    beinhalten die fkt.
  59. 620 rem q$,a$,b$,c$                           hilfstrings
  60. 630 rem de(),de$(),lu()                  errechnete werte
  61. 640 :
  62. 650 s1=49152:s2=49380
  63. 660 fora=49152to49457
  64. 670 readh:pokea,h:hh=hh+h
  65. 680 next:ifhh<>36747thenprint"[198]ehler in [196]atas!":end
  66. 690 fora=23808to23808+62
  67. 700 readh:pokea,h
  68. 710 next
  69. 720 fora=700to709:readh:pokea,h:next
  70. 730 syss2
  71. 740 poke 49457-28,peek(699):rem farbe der graphik
  72. 750 :
  73. 760 load"hprogramm",8
  74. 770 :
  75. 0 
  76.