10 POKE55,255:POKE56,99:REM LOVE DATA FILE MAKER
20 DIM BX(11),BY(11),EX(11),EY(11)
30 FORN=0TO11:READBX(N),BY(N),EX(N),EY(N):NEXT
40 DATA -22,3,-22,-3,-22,-3,-14,-3
50 DATA -10,3,-10,-3,-10,-3,-2,-3
60 DATA -2,-3,-2,3,-2,3,-10,3
70 DATA 2,3,6,-3,6,-3,10,3
80 DATA 22,3,14,3,14,3,14,-3
90 DATA 14,-3,22,-3,20,0,14,0
100 CX=160:CY=100:A=2*(null)
110 NS=71
400 PRINTCHR$(147);:INPUT"FILENAME";F$:PA=25600
410 PRINT"COMPUTING SCREEN NUMBER: ";
420 FORSC=1TONS:PRINT SC;
430 GOSUB 1000
440 IFSC<>NSTHENPOKEPA-1,254:NEXTSC
450 POKEPA-1,255
460 SYS57812 F$,8
470 POKE193,0:POKE194,100
480 POKE174,INT(PA)AND255:POKE175,INT(PA/256):SYS62954
490 PRINT:PRINT"ANIMATION DATA FILE ";CHR$(34);F$;CHR$(34);" IS COMPLETE":END
500 POKEPA,INT(Y1):PA=PA+1
510 POKEPA,INT(X1)AND255:PA=PA+1:POKEPA,INT(X1/256):PA=PA+1
520 POKEPA,INT(Y2):PA=PA+1
530 POKEPA,INT(X2)AND255:PA=PA+1:POKEPA,INT(X2/256):PA=PA+1
540 POKEPA,0:PA=PA+1:POKEPA,0:PA=PA+1
550 RETURN
1000 FORN=0TO11
1010 ZE=-BX(N)*SIN(A)+30
1020 X1=50*BX(N)*COS(A)/ZE+CX:Y1=-100*BY(N)/ZE+CY
1030 ZE=-EX(N)*SIN(A)+30
1040 X2=50*EX(N)*COS(A)/ZE+CX:Y2=-100*EY(N)/ZE+CY
1050 GOSUB 500
1060 NEXTN:A=A-.0872665
1070 RETURN