1 CLR:FORI=49152TO49162:N=N+PEEK(I):NEXT
2 FORI=40448TO40458:B=B+PEEK(I):NEXT
3 IFN<>1555THENLOAD"GRAPHER",8,1
4 IFB<>1475THENLOAD"BMC",8,1
5 POKE56,158:CLR
10 POKE53280,6:POKE53281,6:PRINTCHR$(142)"[147]"
20 FORI=1TO39:PRINT"=";:NEXT:PRINT"          HI-EDDI MOVIE-CREATOR        ";
30 PRINT"             BY  HANS HABERL            ":FORI=1TO40:PRINT"=";:NEXT
40 PRINT:PRINT"LISTE DER BEWEGUNGSABLAEUFE:":PRINT:I=0
50 READN$:IFN$="@"THEN110
60 I=I+1:READS$,SC,F
70 PRINTI;": ";N$;TAB(20);"(";SC;"BITMAP";:IFSC>1THENPRINT"S";
80 PRINT" )"
90 READA$:IFA$="E"THEN50
100 GOTO90
110 POKE19,64:INPUT"BITTE NUMMER EINGEBEN:";M:POKE19,0:PRINT:IFM<1ORM>ITHEN110
120 GOSUB1000:RESTORE:I=0
130 READN$,S$,SC,F:I=I+1:IFI=MTHEN160
140 READA$:IFA$="E"THEN130
150 GOTO140
160 INPUT"BMC (J/N)";D$:D$=LEFT$(D$,1):IFD$<>"J"ANDD$<>"N"THEN160
170 SYSEIN:Z=0:ZZ=0
200 READA$:IFA$="E"THENF=0:GOTO260
210 IFZ=0THENSYSNEU,16*15+6:POKE53280,8
220 IFZ=2THENSYSTAB
230 A=VAL(A$):READB:GOSUB4900:GOSUB500
240 Z=Z+1:IFZ<4THEN200
250 Z=0
260 ZZ=ZZ+1:POKE198,0:POKE53280,6:IFF=0ANDZ=0THEN320
270 A$="S":GOTO290
290 IFA$="S"THENGOSUB1100
300 IFA$="B"THENSYSAUS:END
310 IFF>0THEN200
320 SYSAUS:PRINT"DER SEQUENZSTRING LAUTET:":PRINTS$
330 INPUT"NOCH EIN MOVIE (J/N)";A$:IFLEFT$(A$,1)="J"THENRUN
340 END
500 SN=SIN(U*UU)/NN%:CS=COS(U*UU)/NN%:SM=SIN(V*UU)
510 XX%=MX(Z)-L/SQR(2)*SIN((45-U)*UU)+.5
520 YY%=MY(Z)+L/SQR(2)*COS((45-U)*UU)*SM+.5
530 AA%=L*CS+.5:BB%=-L*SN+.5
540 CC%=L*CS*SM+.5:EE%=-L*SN*SM+.5
550 DD=COS(V*UU)*30
560 IFY0=0ANDY1=0THEN700
600 KK%=NN%:X=X0:YY=Y0
610 FF=(X1-X)/NN%:LL=(Y1-YY)/KK%
620 SYSXY:RETURN
700 KK%=NN%/2+.5:PP=2*X1/NN%
710 SYSROT:RETURN
1000 EIN=49241:AUS=49252:NEU=49152:TAB=49199:GSV=49271:ROT=50316:XY=50672
1010 BMC=40448:MX(0)=79:MX(2)=MX(0):MX(1)=239:MX(3)=MX(1)
1020 MY(0)=48:MY(1)=MY(0):MY(2)=144:MY(3)=MY(2)
1030 UU=(null)/180:L=80:NN%=20
1090 RETURN
1100 IFD$="J"THENSYSBMC,7,8,1,LEFT$(N$,13)+"."+MID$(STR$(ZZ),2)
1110 IFD$="N"THENSYSGSV,LEFT$(N$,13)+"."+MID$(STR$(ZZ),2),8
1120 OPEN15,8,15:INPUT#15,A,A$:CLOSE15:IFA>0THENPRINTA;A$:SYSAUS:END
1130 RETURN
4900 ONFGOTO5010,5020,5030,5040,5050,5060,5070,5080,5090,5100
4910 ONF-10GOTO5110,5120,5130,5140,5150,5160,5170,5180,5190,5200
5000 REM FUNKTIONEN
5010 DEFFNR(X)=COS(A*X)/(.1*X*X+1)-.2
5015 X0=0:X1=3:Y0=0:Y1=0:U=20:V=25:RETURN
5020 DEFFNR(X)=COS(X-UU*A)*.7
5025 X0=0:X1=B:Y0=0:Y1=0:U=25:V=20:RETURN
5030 DEFFNR(E)=COS(A*X*X+B*Y*Y)*.7
5035 X0=-2:X1=2:Y0=-2:Y1=2:U=30:V=20:RETURN
5040 DEFFNR(E)=(A*X*X-B*Y*Y)/6
5045 X0=-3:X1=3:Y0=-3:Y1=3:U=25:V=15:RETURN
5050 DEFFNR(E)=ATN(SIN(Y+A*UU)*X)*B
5055 X0=-4:X1=4:Y0=-5:Y1=5:U=25:V=30:RETURN
5060 DEFFNR(E)=ATN(SIN(Y)*X)*.4
5065 X0=-4:X1=4:Y0=A:Y1=B:U=20:V=35:RETURN
5070 DEFFNR(E)=EXP(-X*X)*COS(Y-UU*A)*(1-Y/10)
5075 X0=-2:X1=2:Y0=-5:Y1=5:U=25:V=20:RETURN
5080 DEFFNR(X)=ATN(1/COS(X+A*UU)/B)/2
5085 X0=0:X1=5.1:Y0=0:Y1=0:U=25:V=40:RETURN
5090 DEFFNR(E)=ATN(1/COS(X)/COS(Y))/2
5095 X0=-3.7+SIN(A*UU):X1=3.7+SIN(A*UU)*B:Y0=-3.7+COS(A*UU):Y1=3.7+COS(A*UU)*B
5096 U=25:V=40:RETURN
5100 DEFFNR(E)=SIN(X+Y+A*UU)/2
5105 X0=0:X1=B:Y0=0:Y1=B:U=-25:V=30:RETURN
5110 DEFFNR(E)=SIN(X)*SIN(Y)*COS(A*UU)
5115 X0=-2.5:X1=2.5:Y0=-2.5:Y1=2.5:U=-20:V=30:RETURN
8000 REM CLIP-DATAS
8010 DATASOMBRERO,ABCDEFGHGFEDCB,2,1
8020 DATA1,0,1.1,0,1.2,0,1.3,0,1.4,0,1.5,0,1.6,0,1.7,0,E
8050 DATABLUBB,ABCDEFGHIJKLMNOP,4,2
8060 DATA0,4,22.5,4,45,4,67.5,4,90,4
8070 DATA112.5,4,135,4,157.5,4,180,4,202.5,4,225,4,247.5,4
8080 DATA270,4,292.5,4,315,4,337.5,4,E
8100 DATAIGLU,ABCDEFGHGFEDCB,2,3
8110 DATA1,.3,.9,.4,.8,.5,.7,.6,.6,.7,.5,.8,.4,.9,.3,1,E
8150 DATAMANTA,ABCDEFGHIJKJIHGFEDCB,3,4
8160 DATA.5,1.05,.48,1,.46,.9,.43,.77,.4,.6
8170 DATA.37,.4,.34,.2,.3,.03,.27,-.1,.25,-.2,.23,-.25,E
8200 DATAWELLEN,ABCDEFGHIJKLMNOP,4,5
8210 DATA0,.4,22.5,.4,45,.4,67.5,.4,90,.4
8220 DATA112.5,.4,135,.4,157.5,.4,180,.4,202.5,.4,225,.4,247.5,.4
8230 DATA270,.4,292.5,.4,315,.4,337.5,.4,E
8250 DATAWELLEN2,ABCDEFGH,2,5
8260 DATA0,0,22.5,.15,45,.28,67.5,.37,90,.4
8270 DATA112.5,.37,135,.28,157.5,.15,E
8300 DATARAUPE,ABCDEFGHIJKL,3,6
8310 DATA0,1,0,2.05,0,3.09,0,4.14,0,5.19,0,6.24,0,7.28
8320 DATA1.05,7.28,2.09,7.28,3.14,7.28,4.19,7.28,5.24,7.28,E
8350 DATABERGE,ABCDEFGHIJKLMNOP,4,7
8360 DATA0,.4,22.5,.4,45,.4,67.5,.4,90,.4
8370 DATA112.5,.4,135,.4,157.5,.4,180,.4,202.5,.4,225,.4,247.5,.4
8380 DATA270,.4,292.5,.4,315,.4,337.5,.4,E
8400 DATABRUNNEN,ABCDEFGHIJKLMNOP,4,8
8410 DATA5,1,27.5,1,50,1,72.5,1,95,1
8420 DATA117.5,1,140,1,162.5,1,185,1,207.5,1,230,1,252.5,1
8430 DATA275,1,297.5,1,320,1,342.5,1,E
8450 DATAKRISTALL,ABCDEFGHIJKLMNOP,4,9
8460 DATA5,1,27.5,1,50,1,72.5,1,95,1
8470 DATA117.5,1,140,1,162.5,1,185,1,207.5,1,230,1,252.5,1
8480 DATA275,1,297.5,1,320,1,342.5,1,E
8500 DATAKRISTALL2,ABCDEFGHIJKLMNOP,4,9
8510 DATA5,-1,27.5,-1,50,-1,72.5,-1,95,-1
8520 DATA117.5,-1,140,-1,162.5,-1,185,-1,207.5,-1,230,-1,252.5,-1
8530 DATA275,-1,297.5,-1,320,-1,342.5,-1,E
8550 DATAROCHEN,ABCDEFGHIJKL,4,10
8560 DATA5,5,27.5,5,50,5,72.5,5,95,5
8570 DATA117.5,5,140,5,162.5,5,185,5,207.5,5,230,5,252.5,5
8580 DATA275,5,297.5,5,320,5,342.5,5,E
8600 DATAMAD,ABCDEFGHIJKL,4,10
8610 DATA5,3,27.5,3.3,50,3.6,72.5,4,95,4.4
8620 DATA117.5,4.8,140,5.3,162.5,5.8,185,6.4,207.5,5.8,230,5.3,252.5,4.8
8630 DATA275,4.4,297.5,4,320,3.6,342.5,3.3,E
8650 DATABB,ABCDEFGHIJKLKJIHGFEDCB,3,11
8660 DATA0,0,16,0,32,0,49,0,65,0,81,0
8670 DATA98,0,114,0,130,0,147,0,163,0,179,0,E
8700 DATABLUBB2,ABCDEFGHIJKLMNOPQRSTUVWX,6,2
8710 DATA0,6.4,30,6,60,5.6,90,5.2,120,4.8,150,4.4,180,4,210,3.6,240,3.2
8720 DATA270,2.8,300,2.4,330,2,0,1.6,30,2,60,2.4,90,2.8,120,3.2
8730 DATA150,3.6,180,4,210,4.4,240,4.8,270,5.2,300,5.6,330,6,E
9999 DATA@