Antic Magazine 1985 December/Antic_Magazine_1985_12_Antic.atr/dump.log

Text File | 2023-02-26 | 2KB | 1 lines

¢¢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¢¢