<div id='wikitext'>
<pre><b> File: ADVENT.TX of Disk: Disks/PDP8-Net/multos8</b></pre>
<pre><b>(Source file text) </b></pre>
<hr />
<pre>
814 PRINT#1:SEG$(G$,1,1);
815 NEXT Z
820 IF X&gt;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)&lt;(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&gt;3.5*L GOTO 907
902 PRINT#1:TAB(X+S);G$;G$;G$;
903 IF (X+S+3*L)&lt;(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$;\GO TO 912
907 PRINT#1:TAB(7*L-X+S);G$;G$;G$;
908 IF (7*L-X+S+3*L)&lt;(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:
913 NEXT X
914 RETURN
920FOR X=0 TO 7*L STEP (7*L)/(C*3)
921 PRINT#1:TAB(S);G$;G$;
922 IF X&gt;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&lt;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$;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:&quot;  &quot;;\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
1000 END</pre>
<hr/>
</div>