››TO INIT1›MAKE "HEX1 "000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F"›END››TO INIT2›MAKE "HEX2 "202122232425262728292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F"›END››TO INIT3›MAKE "HEX3 "404142434445464748494A4B4C4D4E4F505152535455565758595A5B5C5D5E5F"›END››TO INIT4›MAKE "HEX4 "606162636465666768696A6B6C6D6E6F707172737475767778797A7B7C7D7E7F"›END››TO INIT5›MAKE "HEX5 "808182838485868788898A8B8C8D8E8F909192939495969798999A9B9C9D9E9F"›END››TO INIT6›MAKE "HEX6 "A0A1A2A3A4A5A6A7A8A9AAABACADAEAFB0B1B2B3B4B5B6B7B8B9BABBBCBDBEBF"›END››TO INIT7›MAKE "HEX7 "C0C1C2C3C4C5C6C7C8C9CACBCCCDCECFD0D1D2D3D4D5D6D7D8D9DADBDCDDDEDF"›END››TO INIT8›MAKE "HEX8 "E0E1E2E3E4E5E6E7E8E9EAEBECEDEEEFF0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF"›END››TO PRNT :A›MAKE "A 2 * :A›IF (:A <= 62) [PRNT1 GO "PRNTZ]›IF (:A <= 126) [PRNT2 GO "PRNTZ]›IF (:A <= 190) [PRNT3 GO "PRNTZ]›IF (:A <= 254) [PRNT4 GO "PRNTZ]›IF (:A <= 318) [PRNT5 GO "PRNTZ]›IF (:A <= 382) [PRNT6 GO "PRNTZ]›IF (:A <= 446) [PRNT7 GO "PRNTZ]›IF (:A <= 510) [PRNT8 GO "PRNTZ]›LABEL "PRNTZ›IF (:VAL <= 32) [MAKE "VAL 46]›IF (:VAL >= 128) [MAKE "VAL 46]›MAKE "POST (16 - :CNT) + 1›.REPLACE :POST :ASCL CHAR :VAL›TYPE :HCHR›END››TO PRNT1›MAKE "HCHR PIECE :A+1 :A+2 :HEX1›END››TO PRNT2›MAKE "A :A-64›MAKE "HCHR PIECE :A+1 :A+2 :HEX2›END››TO PRNT3›MAKE "A :A-128›MAKE "HCHR PIECE :A+1 :A+2 :HEX3›END››TO PRNT4›MAKE "A :A-192›MAKE "HCHR PIECE :A+1 :A+2 :HEX4›END››TO PRNT5›MAKE "A :A-256›MAKE "HCHR PIECE :A+1 :A+2 :HEX5›END››TO PRNT6›MAKE "A :A-320›MAKE "HCHR PIECE :A+1 :A+2 :HEX6›END››TO PRNT7›MAKE "A :A-384›MAKE "HCHR PIECE :A+1 :A+2 :HEX7›END››TO PRNT8›MAKE "A :A-448›MAKE "HCHR PIECE :A+1 :A+2 :HEX8›END››TO DUMP :B›TYPE :B TYPE [: ]›MAKE "ASCL [- - - - - - - - - - - - - - - -]›PRTLN :B 16›MAKE "B :B+16›MAKE "ASCL [- - - - - - - - - - - - - - - -]›DUMP :B›END››TO INITALL›INIT1 INIT2 INIT3 INIT4 INIT5 INIT6 INIT7 INIT8›END››TO DOLINE›MAKE "A .EXAMINE :B›MAKE "VAL :A›MAKE "B :B+1›PRNT :A›MAKE "CNT :CNT-1›END››TO PRTLN :B :CNT›LABEL "PRTLN2›IF (:CNT <=0) [GO "PRTLN9]›DOLINE›GO "PRTLN2›LABEL "PRTLN9›TYPE [ ] TYPE :ASCL PRINT [ ]›END››