Directory of image this file is from
This file as a plain text file

OR X=0 TO 7*L STEP (7*L)/(C*3)
921 PRINT#1: TAB(S);G$;G$;
922 IF X>2*L GOTO 926\PRINT#1: G$;
923 FOR I=1 TO X\PRINT#1: SEG$(G$,1,1);\NEXT I
924 GOTO 930
926 PRINT#1: TAB(X+S);G$;G$;G$;
927 IF X+3*L<8*L GOTO 930
928 FOR I=X+3*L TO 10*L\PRINT#1: SEG$(G$,1,1);\NEXT I
929 GOTO 932
930 PRINT#1: TAB(8*L+S);G$;G$;
932 PRINT#1:
933 NEXT X
934 RETURN
940 FOR X=1 TO A*3
941 PRINT#1:
942 NEXT X
943 RETURN
950 FOR W=1 TO X-3\PRINT#1: "  ";\NEXT W
952 B=3\GOTO 830
960 FOR X=4*L TO 7*L STEP L*4/C\PRINT#1: TAB(X+S);G$;G$;G$\NEXT X
962 RETURN
970 FOR X=7*L TO 4*L STEP -4*L/C\PRINT#1: TAB(X+S);G$;G$;G$\NEXT X
972 RETURN
990 FOR X= 1 TO C*3
991 PRINT#1:
992 NEXT X
993 CLOSE #1
1000 END