home *** CD-ROM | disk | FTP | other *** search
/ C64'er / C64'er.iso / 87xx / 8702b.d64 / bamovie (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  3KB  |  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.