Revision as of 01:18, 17 November 2017 (view source) Dinosaur (talk \| contribs) m (→‎Source) ← Older edit		Revision as of 01:20, 17 November 2017 (view source) Dinosaur (talk \| contribs) m (→‎Source: Agh. Unmess.) Newer edit →
Line 2,196: INTEGER MSG !I/O unit number. COMMON/IODEV/ MSG !I talk to the trees... ~~c WRITE (MSG,1) !Roll forth a top/bottom boundary. No corner characters (etc.), damnit.~~ ~~c 1 FORMAT ("\|",<NC>(<W>("-"),"\|")) !Heavy reliance on runtime values in NC and W. But see FORMAT 22.~~ ~~c 2 FORMAT ("\|",<NC>(<W>(" "),"\|")) !No horizontal markings within a tile. See FORMAT 1.~~ ~~c WRITE (MSG,22) ((" ",L1 = 1,W),"\|",C = 1,NC) !Compare to FORMAT 2.~~ ~~c 22 FORMAT ("\|",666A1) !A constant FORMAT, a tricky WRITE.~~ ~~c 4 FORMAT ("\|",<NC - 1>(<W>("-"),"+"),<W>("-"),"\|") !With internal + rather than \|.~~ WRITE (MSG,1) TL,((HL,L = 1,W),TD,C = 1,NC - 1),(HL,L = 1,W),TR !Write the top edge, with downwards ticks. 1 FORMAT (666A1) !Surely long enough.

2048: Difference between revisions

2048 (view source)