home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 February / 64er_Magazin_87-02_1987_Markt__Technik_de_Side_B.d64 / bamovie (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1987-01-01  |  3.1 KB  |  101 lines
  1. 20 poke52,29:poke56,29:poke51,115:poke55,115:clr
  2. 30 poke255,0:poke254,15:poke2,30
  3. 40 an=12300:en=(peek(704)+peek(705)*256)
  4. 100 poke646,peek(53281)-1
  5. 105 print"[147]film editor"chr$(13)"   1. film abspielen":ze=2
  6. 110 print"   2. adressen setzen
  7. 120 [153]"   3. farben setzen
  8. 130 print"   ------------------------
  9. 140 [153]"   4. sequenzen schneiden
  10. 150 print"   5. sequenzen anschauen
  11. 160 [153]"   6. sequenzen laden
  12. 170 print"   7. sequenzen speichern
  13. 180 [153]"   ------------------------
  14. 190 print"   8. directory
  15. 200 [153]"   9. dos-commands":[153]">
  16. 210 ifze>18thenprint" ":ze=0:goto230
  17. 212 ifze<2thenprint"[145][145][145] ":ze=20:goto230
  18. 215 poke198,0:wait198,1:geta$
  19. 220 if(a$<"1"ora$>"9")and(a$<>""anda$<>"[145]")anda$<>chr$(13)then210
  20. 230 ifa$=""thenze=ze+2:print"":poke214,ze:print:print">":print"[145][145][145] ":goto210
  21. 240 ifa$="[145]"thenze=ze-2:print"":poke214,ze:print:print">":print" ":goto210
  22. 245 ifa$=chr$(13)thena=ze/2:goto260
  23. 250 a=val(a$)
  24. 260 onagoto1000,2000,3000,4000,5000,6000,8000,7000,8500
  25. 1000 sys7540:poke251,int(an/256):poke250,an-peek(251)*256
  26. 1010 poke253,int(en/256):poke252,en-peek(253)*256:poke53272,24
  27. 1020 sys7543:poke53272,21
  28. 1030 goto100
  29. 2000 print"[147]bilder im speicher: "int(((peek(704)+peek(705)*256)-12300)/1000)
  30. 2010 print" anfangsbild nr.    "int((an-12300)/1000)"[157][157][157][157][157]";
  31. 2015 inputa:an=a*1000+12300:ifa>52thenprint"[145][145][145]":goto2010
  32. 2020 print" endbild nr.    "int((en-12300)/1000)"[157][157][157][157][157]";
  33. 2025 inputa:en=a*1000+12300
  34. 2030 ifen<=anora>53or(peek(704)+peek(705)*256)<enthenprint"[145][145][145]":goto2020
  35. 2040 print" speed (geschw.)      "peek(2)"[157][157][157][157][157][157]";
  36. 2045 inputa:ifa<256thenpoke2,a:goto100
  37. 2050 print"[145][145][145]":goto2040
  38. 3000 a=0:input"[147]hintergrund";a:ifa<256thenpoke255,a:goto3020
  39. 3010 goto3000
  40. 3020 a=15:input"vorderggrund";a:ifa<256thenpoke254,a:goto100
  41. 3030 print"[145][145]";:goto3020
  42. 4000 print"[147]":clr:gosub20000
  43. 4010 print""x".ter cut"
  44. 4020 input"start bild";s(x):ifs(x)<0then4100
  45. 4025 if(s(x)*1000)+12300>enthenprint"[145][145][145]":goto4020
  46. 4027 ifs(x)>52thenprint"[145][145][145]":goto4020
  47. 4030 input"end bild";e(x)
  48. 4035 if(e(x)*1000)+12300>=enthenprint"[145][145][145]":goto4030
  49. 4037 ifs(x)=>e(x)thenprint"[145][145][145]":goto4030
  50. 4040 poke53272,24:fore=s(x)toe(x):s=e*1000+12300
  51. 4050 poke253,int(s/256):poke252,s-peek(253)*256:sys7540:sys7546
  52. 4060 poke198,0:wait198,1:poke198,0:next:poke53272,21:poke646,peek(53281)-1
  53. 4070 a$="j":input"[147]in ordnung (j/n)";a$:ifa$="n"then4010
  54. 4080 x=x+1:ifx<11then4010
  55. 4100 print"[147]"x"cuts !":rem gosub9000:goto100
  56. 4105 input"zirca wieviele sequenzen";q:dimf(q),g(q)
  57. 4110 print"reihenfolge der cuts
  58. 4120 e[178]1
  59. 4130 a[178]0:[153]""e". sequenz / cut nr.";:[133]a:f(e)[178]a:[139]a[177]x[171]1[167][153]"ononon":[137]4130
  60. 4135 [139]a[179]0[167]4150
  61. 4136 [133]"vor- oder rueckwaerts (0 oder 1)";g(e)
  62. 4140 e[178]e[170]1:[139]e[171]1[179]q[167]4130
  63. 4150 e[178]e[171]1
  64. 4200 [153]"load"e" sequenzen":q[178]e:[141]9000:[137]100
  65. 5000 [139]q[178]0[167]100
  66. 5005 [151]53272,24:[158]7540:[129]e[178]1[164]q:s[178]s(f(e))[172]1000[170]12300:a[178]e(f(e))[172]1000[170]12300
  67. 5010 [151]251,[181](s[173]256):[151]250,s[171][194](251)[172]256
  68. 5020 [151]253,[181](a[173]256):[151]252,a[171][194](253)[172]256
  69. 5025 [139][194](203)[178]1[167][151]53272,21:[137]100
  70. 5030 [139]g(e)[178]1[167][158]7552:[130]:[137]5005
  71. 5040 [158]7549:[130]
  72. 5100 [137]5005
  73. 6000 [153]"loadsequenz laden":[156]:[141]20000
  74. 6010 a$[178]"":[133]"filename";a$:[139]a$[178]""[167]100
  75. 6020 [159]2,8,2,a$[170]",s,r"
  76. 6030 [132]2,q:[132]2,x:[134] f(q),g(q):[139]st[179][177]0[167][160]2:[137]6000
  77. 6040 [129]e[178]0[164]q:[132]2,f(e),g(e):[130]
  78. 6050 [129]e[178]0[164]x:[132]2,s(e),e(e):[130]
  79. 6060 [160]2:[137]100
  80. 7000 [153]"load":[159]1,8,0,"$":[161]#1,a$,a$
  81. 7010 [139][194](203)[179][177]64[167][160]1:[137]100
  82. 7015 [161]#1,a$,a$:[139]st[178]64[167][160]1:[141]9000:[137]100
  83. 7020 [161]#1,a$,b$:[153][198](a$[170][199](0))[170]256[172][198](b$[170][199](0));
  84. 7030 [161]#1,a$:[153]a$;:[139]a$[179][177]""[167]7030
  85. 7040 [153]:[137]7010
  86. 8000 [139]q[178]0[167]100
  87. 8005 [153]"loadsequenz sichern"
  88. 8010 a$[178]"":[133]"filename";a$:[139]a$[178]""[167]100
  89. 8020 [159]2,8,2,a$[170]",s,w"
  90. 8030 [152]2,q:[152]2,x:[139]st[179][177]0[167][160]2:[137]8005
  91. 8040 [129]e[178]0[164]q:[152]2,f(e):[152]2,g(e):[130]
  92. 8050 [129]e[178]0[164]x:[152]2,s(e):[152]2,e(e):[130]
  93. 8060 [160]2:[137]100
  94. 8500 a$[178]"":[151]631,34:[151]198,1:[133]"loadkommando";a$
  95. 8510 [159]1,8,15,a$:[160]1
  96. 8520 [159]1,8,15:[132]1,a,a$,b,c:[160]1
  97. 8530 [153]""a" "a$" "b" "c:[139]a[178]0[167]100
  98. 8540 [141]9000:[137]8500
  99. 9000 [153]"bitte taste":[151]198,0:[146]198,1:[151]198,0:[142]
  100. 20000 an[178]12300:en[178]([194](704)[170][194](705)[172]256):[142]
  101.