20 POKE52,29:POKE56,29:POKE51,115:POKE55,115:CLR
30 POKE255,0:POKE254,15:POKE2,30
40 AN=12300:EN=(PEEK(704)+PEEK(705)*256)
100 POKE646,PEEK(53281)-1
105 PRINT"[147]FILM EDITOR"CHR$(13)"   1. FILM ABSPIELEN":ZE=2
110 PRINT"   2. ADRESSEN SETZEN
120 [153]"   3. FARBEN SETZEN
130 PRINT"   ------------------------
140 [153]"   4. SEQUENZEN SCHNEIDEN
150 PRINT"   5. SEQUENZEN ANSCHAUEN
160 [153]"   6. SEQUENZEN LADEN
170 PRINT"   7. SEQUENZEN SPEICHERN
180 [153]"   ------------------------
190 PRINT"   8. DIRECTORY
200 [153]"   9. DOS-COMMANDS":[153]">
210 IFZE>18THENPRINT" ":ZE=0:GOTO230
212 IFZE<2THENPRINT"[145][145][145] ":ZE=20:GOTO230
215 POKE198,0:WAIT198,1:GETA$
220 IF(A$<"1"ORA$>"9")AND(A$<>""ANDA$<>"[145]")ANDA$<>CHR$(13)THEN210
230 IFA$=""THENZE=ZE+2:PRINT"":POKE214,ZE:PRINT:PRINT">":PRINT"[145][145][145] ":GOTO210
240 IFA$="[145]"THENZE=ZE-2:PRINT"":POKE214,ZE:PRINT:PRINT">":PRINT" ":GOTO210
245 IFA$=CHR$(13)THENA=ZE/2:GOTO260
250 A=VAL(A$)
260 ONAGOTO1000,2000,3000,4000,5000,6000,8000,7000,8500
1000 SYS7540:POKE251,INT(AN/256):POKE250,AN-PEEK(251)*256
1010 POKE253,INT(EN/256):POKE252,EN-PEEK(253)*256:POKE53272,24
1020 SYS7543:POKE53272,21
1030 GOTO100
2000 PRINT"[147]BILDER IM SPEICHER: "INT(((PEEK(704)+PEEK(705)*256)-12300)/1000)
2010 PRINT" ANFANGSBILD NR.    "INT((AN-12300)/1000)"[157][157][157][157][157]";
2015 INPUTA:AN=A*1000+12300:IFA>52THENPRINT"[145][145][145]":GOTO2010
2020 PRINT" ENDBILD NR.    "INT((EN-12300)/1000)"[157][157][157][157][157]";
2025 INPUTA:EN=A*1000+12300
2030 IFEN<=ANORA>53OR(PEEK(704)+PEEK(705)*256)<ENTHENPRINT"[145][145][145]":GOTO2020
2040 PRINT" SPEED (GESCHW.)      "PEEK(2)"[157][157][157][157][157][157]";
2045 INPUTA:IFA<256THENPOKE2,A:GOTO100
2050 PRINT"[145][145][145]":GOTO2040
3000 A=0:INPUT"[147]HINTERGRUND";A:IFA<256THENPOKE255,A:GOTO3020
3010 GOTO3000
3020 A=15:INPUT"VORDERGGRUND";A:IFA<256THENPOKE254,A:GOTO100
3030 PRINT"[145][145]";:GOTO3020
4000 PRINT"[147]":CLR:GOSUB20000
4010 PRINT""X".TER CUT"
4020 INPUT"START BILD";S(X):IFS(X)<0THEN4100
4025 IF(S(X)*1000)+12300>ENTHENPRINT"[145][145][145]":GOTO4020
4027 IFS(X)>52THENPRINT"[145][145][145]":GOTO4020
4030 INPUT"END BILD";E(X)
4035 IF(E(X)*1000)+12300>=ENTHENPRINT"[145][145][145]":GOTO4030
4037 IFS(X)=>E(X)THENPRINT"[145][145][145]":GOTO4030
4040 POKE53272,24:FORE=S(X)TOE(X):S=E*1000+12300
4050 POKE253,INT(S/256):POKE252,S-PEEK(253)*256:SYS7540:SYS7546
4060 POKE198,0:WAIT198,1:POKE198,0:NEXT:POKE53272,21:POKE646,PEEK(53281)-1
4070 A$="J":INPUT"[147]IN ORDNUNG (J/N)";A$:IFA$="N"THEN4010
4080 X=X+1:IFX<11THEN4010
4100 PRINT"[147]"X"CUTS !":REM GOSUB9000:GOTO100
4105 INPUT"ZIRCA WIEVIELE SEQUENZEN";Q:DIMF(Q),G(Q)
4110 PRINT"REIHENFOLGE DER CUTS
4120 E[178]1
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
4135 [139]A[179]0[167]4150
4136 [133]"VOR- ODER RUECKWAERTS (0 ODER 1)";G(E)
4140 E[178]E[170]1:[139]E[171]1[179]Q[167]4130
4150 E[178]E[171]1
4200 [153]"LOAD"E" SEQUENZEN":Q[178]E:[141]9000:[137]100
5000 [139]Q[178]0[167]100
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
5010 [151]251,[181](S[173]256):[151]250,S[171][194](251)[172]256
5020 [151]253,[181](A[173]256):[151]252,A[171][194](253)[172]256
5025 [139][194](203)[178]1[167][151]53272,21:[137]100
5030 [139]G(E)[178]1[167][158]7552:[130]:[137]5005
5040 [158]7549:[130]
5100 [137]5005
6000 [153]"LOADSEQUENZ LADEN":[156]:[141]20000
6010 A$[178]"":[133]"FILENAME";A$:[139]A$[178]""[167]100
6020 [159]2,8,2,A$[170]",S,R"
6030 [132]2,Q:[132]2,X:[134] F(Q),G(Q):[139]ST[179][177]0[167][160]2:[137]6000
6040 [129]E[178]0[164]Q:[132]2,F(E),G(E):[130]
6050 [129]E[178]0[164]X:[132]2,S(E),E(E):[130]
6060 [160]2:[137]100
7000 [153]"LOAD":[159]1,8,0,"$":[161]#1,A$,A$
7010 [139][194](203)[179][177]64[167][160]1:[137]100
7015 [161]#1,A$,A$:[139]ST[178]64[167][160]1:[141]9000:[137]100
7020 [161]#1,A$,B$:[153][198](A$[170][199](0))[170]256[172][198](B$[170][199](0));
7030 [161]#1,A$:[153]A$;:[139]A$[179][177]""[167]7030
7040 [153]:[137]7010
8000 [139]Q[178]0[167]100
8005 [153]"LOADSEQUENZ SICHERN"
8010 A$[178]"":[133]"FILENAME";A$:[139]A$[178]""[167]100
8020 [159]2,8,2,A$[170]",S,W"
8030 [152]2,Q:[152]2,X:[139]ST[179][177]0[167][160]2:[137]8005
8040 [129]E[178]0[164]Q:[152]2,F(E):[152]2,G(E):[130]
8050 [129]E[178]0[164]X:[152]2,S(E):[152]2,E(E):[130]
8060 [160]2:[137]100
8500 A$[178]"":[151]631,34:[151]198,1:[133]"LOADKOMMANDO";A$
8510 [159]1,8,15,A$:[160]1
8520 [159]1,8,15:[132]1,A,A$,B,C:[160]1
8530 [153]""A" "A$" "B" "C:[139]A[178]0[167]100
8540 [141]9000:[137]8500
9000 [153]"BITTE TASTE":[151]198,0:[146]198,1:[151]198,0:[142]
20000 AN[178]12300:EN[178]([194](704)[170][194](705)[172]256):[142]