%%HP: T(0)A(R)F(.); DIR DUMP « CLOSEIO { } 0 255 SUBGET 'ALMEM' STO » RDALL « CLOSEIO { } 0 243 SUBGET » WRALL « CLOSEIO 0 243 SUBSEND » RDCH « CLOSEIO 32 + SWAP 32 + SWAP { } 3 ROLLD SUBGET » WRCH « 'N' STO DUP SIZE 31 + N + N 32 + DUP 1 - NEG 'N' STO SWAP CLOSEIO SUBSEND » SUBGET « FOR I "AL~F0" IF I 15 ‰ THEN "0" + END I -11 CF -12 CF R¨B -11 SF -12 SF ¨STR DUP SIZE 1 - 3 SWAP SUB + "0R " + XMIT DROP 49 SRECV CLOSEIO DROP 18 49 SUB + NEXT " " XMIT DROP "END " XMIT DROP CLOSEIO » SUBSEND « 1 3 ROLLD FOR I GETI "AL~F0" IF I 15 ‰ THEN "0" + END I -11 CF -12 CF R¨B -11 SF -12 SF ¨STR DUP SIZE 1 - 3 SWAP SUB + "0W" + SWAP + " " + XMIT CLOSEIO DROP NEXT " " XMIT DROP "END " XMIT DROP CLOSEIO » PPAR { (-6.5,-3.1) (6.5,3.2) X 0 (0,0) FUNCTION Y } N -253 END