RETURN
770 FOR X=1 TO A\PRINT#1: TAB(S);G$;G$;H$;H$;G$;G$;G$;G$;G$;G$\NEXT X
772 RETURN
780 FOR X=1 TO A\PRINT#1: TAB(8*L+S);G$;G$\NEXT X
782 RETURN
790 FOR X=1 TO A\PRINT#1: TAB(4*L+S);G$;G$;G$;G$;G$;G$\NEXT X
792 RETURN
800 FOR X=1 TO A\PRINT#1: TAB(S);G$;G$;G$;G$;G$;G$\NEXT X
805 RETURN
810 FOR X=1 TO C/2
811 PRINT#1: TAB(S);
812 FOR Y=1 TO 2
813 FOR Z=1 TO (5*L)-X
814 PRINT#1: SEG$(G$,1,1);
815 NEXT Z
820 IF X>3 THEN 950\V=X
830 PRINT#1: H$(2*V);\NEXT Y
832 PRINT#1:\NEXT X
834 RETURN
840 FOR X=1 TO C/2\PRINT#1: TAB(S);H$(X);
842 FOR Y=1 TO (10*L)-(2*X)
843 PRINT#1: SEG$(G$,1,1);
844 NEXT Y
845 PRINT#1:
850 NEXT X
852 RETURN
860 FOR X=4*L TO 7*L STEP (14*L)/(C*6)
861 PRINT#1: TAB(7*L-X+S);G$;G$;G$;
862 IF (7*L-X+S+3*L)<(X+S) GOTO 868
863 FOR I=(7*L-X) TO X\PRINT#1: SEG$(G$,1,1);\NEXT I
864 GOTO 871
868 PRINT#1: TAB(X+S);G$;G$;G$;
871 PRINT#1: \NEXT X
872 RETURN
880 FOR X=0 TO 6*L STEP 6*L/C\PRINT#1: TAB(X+S);G$;G$;G$;G$\NEXT X
882 RETURN
890 FOR X=6*L TO 0 STEP -6*L/C\PRINT#1: TAB(X+S);G$;G$;G$;G$\NEXT X
892 RETURN
900 FOR X=0 TO 7*L STEP (14*L)/(C*6)
901 IF X>3.5*L GOTO 907
902 PRINT#1: TAB(X+S);G$;G$;G$;
903 IF (X+S+3*L)<(7*L-X+S) GOTO 906
904 FOR I=X TO (7*L-X)\PRINT#1: SEG$(G$,1,1);\NEXT I
905 GOTO 912
906 PRINT#1: TAB(7*L-X+S);G$;G$;G$;\GOTO 912
907 PRINT#1: TAB(7*L-X+S);G$;G$;G$;
908 IF (7*L-X+S+3*L)<(X+S) GOTO 911
909 FOR I=(7*L-X) TO X\PRINT#1: SEG$(G$,1,1);\NEXT I
910 GOTO 912
911 PRINT#1: TAB(X+S);G$;G$;G$;
912 PRINT#1:    \NEXT X
913 RETURN
920F