PQQLIX2Y2X1Y1Z1XYZADFILEOUTFILEINOVSHHSGVXYSCHYPTANAAAAl A"AAADA  % %  % % @@P@P@P@AY@@@y@@@pqx@@E3@ ff*GFILEGEN* COPYRIGHT 1981 BY C. SPENCER - PROGRAM TO GENERATE A FILE OF DATA FOR GRAPHICAL INPUTVERSION 1.12+6-A<YY9,9,9,9,9,9,9,9,;@,;@,;@,;@,F! AP!INITIALIZE ARRAYSPINPUT DATAZ- @)  OR INPUT-dTJ7@<@,4D)7@<@,4d)7@<@,4T An Ax' AP'GRAPHICS INITIALIZATION; A ;TV OVERSCAN CORRECTION AND CENTERING VALUES! A!TRANSLATION INPUT AROTATION INPUT" A"SCALE CHANGE INPUT6 A6POINT PLOTTING AND OVERSCAN CORRECTION**INPUT FILESPEC AND WRITE OUTPUT FILE. A.FILENAME INPUT AND FILE OUTPUTDATA INPUT - KEYBOARD)& ENTER TO TERMINATE INPUT.) -@. A0& POINT  (,,)."6A A 8,- 8,-  8,-  A"',$@8-@8CHANGE TO CORRECT SHAPE OF OBJECTJ -&$T$^GRAPHICS INITIALIZATIONh- +-  SCREEN RESOLUTION?m   X , Y rG%  ) 320 X 160 HI-RESG  ) 160 X 80 MED-RES| A/ B"@%-@/ A -@+0@@@0@@@0@@@SCREEN-CENTER COORDINATES&@AA-@y-@9 A -AY-@y$XINPUT TRANSLATIONb""  OF NEW ORIGIN:l A  X0=v A0 Y0=xO:,!@$A zO:,!@$A0-@&@8,-8,& -@&@8,-8,& $ INPUT ROTATION*% A%  (DEGREES)4-6>O:,@A H"A R-@&@\-8,$E:,%8,$G:,f-8,$E:,&8,$G:,p 8,-8,-u 8,-8,-z $// 'THE ANGLE MUST BE LESS THAN DEGREES. AINPUT SCALE FACTOR A  ŭA# B#-@&@ 6-$M:8,$8,%8,$8,,$8,"A.8,"A86-8,'8, AB6-@ AL 6-D:, AQ6-V))68,-P:N:8,,$$O:G:,,%%?P,`&68,-8,&8,!A@j68,- A`t8, @$A`~68,-P:@$&?P,5)68,-P:N:8,,$$O:E:,,%%?P,568,-8,8,$%!A&68,-P:+6',%?P,& A 8,$% @$A118,-P:+++@$&@,&,',%?P,   $,,POINT PLOTTING AND OVERSCAN CORRECTION--,8@,$%@$&8@,(-@&@2/8,$%@$&8,< F PLOTTING .P$xDATA INPUT - DISK% A@! INPUT %! .D1:!7B:,%@,.* @@* AP@ A-@A@"6A A@ 8,- 8,- 8,-  AP'@ A @))CHECK RESULTS AND WRITE OUTPUT FILEJ2 A2 IS OUTPUT SATISFACTORY ( OR )T^RR7@<@,4Y)7@<@,4y)7@<@,4A`hRR7@<@,4N)7@<@,4n)7@<@,4A r A| A` OUTPUT  .D1:7B:,%@,. @@-@&@)) @8,&,8,&,8, 11 @6A ,6A ,6A @,,  FILE &@ DATA POINTS ! :INITIALIZE ARRAYSDE+@%@'-@@E @ N-@@ 5 @COPYRIGHT (C) 1981G-@ @W @BYi-@@ @ C. SPENCERX>-@ 68,-/68,->68,-bX68,-!68,-068,-?68,-N68,-R X(l$CORRECT DATA POINTS3 A / CHANGE POINT VALUES ( OR )3TJ7@<@,4N)7@<@,4n)7@<@,4T A # A 0  POINT #" A @ (,,)" 8,-  8,- 8,-  A D:GFILEGEN.BAS