TITLE NOVA LOADEE LOC 17000 BEG: IORST LDA 2,[FOO] LDA 0,(2) MOV 0,0(SNR) JMP LUP SKPBZ 7 JMP .-1 DOAS 0,7 INC 2,2 JMP BEG+2 LUP: SKPDN TTI JMP A DIAS 0,TTI SKPBZ 7 JMP .-1 DOAS 0,7 SKPBN TTO DOAS 0,TTO A: SKPDN 6 JMP LUP DIAS 0,6 LDA 1,[177] AND 0,1 LDA 0,[3] SUB 0,1(SZR) JMP LUP BLK: JSR GET MOV 3,1 JSR GET MOV 3,2 MOVL% 1,1(SNC) JMP STBLK L: JSR GET STA 3,(2) INC 2,2 INC 1,1(SZR) JMP L JMP BLK STBLK: MOVZR 1,1(SNR) MOV 1,1(SNC) HALT LDA 0,[^G] DOAS 0,TTO MOVL% 2,2(SZC) HALT JMP (2) GET: STA 3,GX STA 2,G2 JSR CH MOVS 3,2 ADDZL 2,2 JSR CH REPEAT 3,ADDZL 3,3 ADD 3,2 JSR CH ADD 2,3 LDA 2,G2 JMP @GX GX: 0 G2: 0 CH: STA 3,CX SKPDN 6 JMP .-1 DIAS 3,6 LDA 0,[177] AND 0,3 MOVZR 0,0 AND 3,0 SUB% 0,3(SNR) HALT MOV 0,3 JMP @CX CX: 0 FOO: ^Z "J "S 33 "U 0 END BEG  G;~G,3 Y;G,5 Y;]G,7a Y;G,Y Y;-rG,[u Y;.{G,] Y;/G,_ Y;0G,L40,~ Y;A#G,Q Y;B1G,w Y;C@G,F Y;DG,G-] [! dG-m [! rG-w [! ~G-f ~ [!G-# [!1G-; [!IG-( [!,G-!0 [!mG-#w [!DG-%L [!RG-'W [!Yj#~0G-) [!G-+n [! YAG,% YAG,' YAG- AA+#S} 'R\P+ ANGE LAST SPACE TO A CR. ENDSTR: MOVE J,F ; END OF READIN. SET J TO THE LAST DSK IOT. MOVE F,L ; SET F TO THE FIRST LETTER TO BE PLOTTED. SETZ B, JRST PLTCHR SETEND: SETZM @F ; PLACE A ZERO IN THE LIST FOR A HALT. JRST ENDSTR MORCTL: .IOT 5,E CAIN E,23 JRST OCT023 CAIN E,2 JRST OCT002 MOVE A,H IMUL A,D SUB A,B IMULI A,6 JUMPG A,.+5 JUMPE A,RELMAX+3 .IOT 3,[10] AOJL A,.-1 JRST RELMAX+3 .IOT 3,[4] SOJG A,.-1 JRST RELMAX+3 CPOP: POP P,C BPOP: POP P,B APOP: POP P,A POPJ P, OVRCOR: CAIL F,PLTC+500. MOVEI F,PLTC-1 AOJ F, POPJ P, OCT023: SETZ D, .IOT 5,A CAIN A,40 JRST .+5 SUBI A,60 IMULI D,10. ADD D,A JRST OCT023+1 MOVE M,D ; SET UP I. IMULI M,6 MOVEI A,2200. IDIV A,M MOVE I,A SUB I,H SUB I,H JRST MORCTL OCT002: SETZ C, .IOT 5,B CAIN B,40 JRST .+5 SUBI B,60 IMULI C,10. ADD C,B JRST OCT002+1 MOVE B,H IMUL B,D SUB C,H ; CREATE VALUE FOR C. ADD H,C SUB I,C SUB I,C JRST MORCTL FALSAF: .CLOSE 3, .CLOSE 5, .VALUE .INSRT DAVIDS APHPLT PLTC: BLOCK 501. PDL: BLOCK 5 END GO  Im[M@#&1)iL_;5Z2#&,|CSwQLW@"oiLa-0@"BiLO! XDiLgS!iLiuKr@!jiL[@"fiLG".<`@!e)iL!!p%iL]6d@!iLip@"0iLkN. @!Y#ziLS:5p@!WiLG2|{`@"'@SB`!ٵiLY&4P@!KiLo/!$6iLC2TY!BuiLiS@@!@iLʛ!{CgLiL[>u!q 7iLmHs!k -waI @!3lrdiL_2N<@!0;u5iLu;![;u'iLU?&K`!U'iLIVn@!(;uiLgRMj`!KiL;@!#iLa]!AiL[W-7@!iL]2|@@!%b(6@QLW!3iLGJ~<`@! q'iLG;%}9!)CSw_" =@!iLY>=p@"x iL]R,;`@!iLaJ=\@! c/xiLG&<` }iL]RR` %J?_2 QLW@ xiL3 nX#iLG? iLI' iL"C[@ ae&@@ hACjiLY>0@ f %#CSwSB` iL7[o ]iL]2N< EuiLG>n  `iLE:ex $-iL[&$` $[ .iLY' $PIm"@# iL-Hs y no)CSwI  4#h}iLI  Wb7CSwG&<`@ )eiLo'P C UiLMKy 7@FiLi)0 %:FbiLHs RiiL); `{iLa2v  m