%%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 RB -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 RB -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
Make your own free website on Tripod.com