Created
August 15, 2025 19:27
-
-
Save artlung/83db7929d3623243f655c12cc317ed1f to your computer and use it in GitHub Desktop.
This file contains hidden or bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| 1 REM ARTLUNG START | |
| 3 CALL CLEAR | |
| 5 CALL CHAR(33, "000000FFFFFFFFFF") | |
| 7 CALL VCHAR(11, 1, 33) | |
| 11 CALL VCHAR(11, 2, 33) | |
| 15 CALL VCHAR(11, 3, 33) | |
| 19 CALL VCHAR(11, 4, 33) | |
| 23 CALL VCHAR(11, 5, 33) | |
| 27 CALL VCHAR(11, 6, 33) | |
| 31 CALL VCHAR(11, 7, 33) | |
| 35 CALL VCHAR(11, 8, 33) | |
| 39 CALL VCHAR(11, 9, 33) | |
| 43 CALL VCHAR(11, 10, 33) | |
| 47 CALL VCHAR(11, 11, 33) | |
| 51 CALL VCHAR(11, 12, 33) | |
| 55 CALL VCHAR(11, 13, 33) | |
| 59 CALL VCHAR(11, 14, 33) | |
| 63 CALL VCHAR(11, 15, 33) | |
| 67 CALL VCHAR(11, 16, 33) | |
| 71 CALL VCHAR(11, 17, 33) | |
| 75 CALL VCHAR(11, 18, 33) | |
| 79 CALL VCHAR(11, 19, 33) | |
| 83 CALL VCHAR(11, 20, 33) | |
| 87 CALL VCHAR(11, 21, 33) | |
| 91 CALL VCHAR(11, 22, 33) | |
| 95 CALL VCHAR(11, 23, 33) | |
| 99 CALL VCHAR(11, 24, 33) | |
| 103 CALL VCHAR(11, 25, 33) | |
| 107 CALL VCHAR(11, 26, 33) | |
| 111 CALL VCHAR(11, 27, 33) | |
| 115 CALL VCHAR(11, 28, 33) | |
| 119 CALL VCHAR(11, 29, 33) | |
| 123 CALL VCHAR(11, 30, 33) | |
| 127 CALL VCHAR(11, 31, 33) | |
| 131 CALL VCHAR(11, 32, 33) | |
| 133 CALL CHAR(34, "003F3F3F3F3F3F3F") | |
| 135 CALL VCHAR(2, 3, 34) | |
| 139 CALL VCHAR(5, 3, 34) | |
| 141 CALL CHAR(35, "3F3F3F3F3F3F3F3F") | |
| 143 CALL VCHAR(3, 3, 35) | |
| 147 CALL VCHAR(6, 3, 35) | |
| 151 CALL VCHAR(7, 3, 35) | |
| 155 CALL VCHAR(8, 3, 35) | |
| 157 CALL CHAR(36, "3F3F000000000000") | |
| 159 CALL VCHAR(4, 3, 36) | |
| 161 CALL CHAR(37, "3F3F3F3F3F3F0000") | |
| 163 CALL VCHAR(9, 3, 37) | |
| 165 CALL CHAR(38, "00FFFFFFFFFFFFFF") | |
| 167 CALL VCHAR(2, 4, 38) | |
| 171 CALL VCHAR(5, 4, 38) | |
| 175 CALL VCHAR(2, 5, 38) | |
| 179 CALL VCHAR(5, 5, 38) | |
| 183 CALL VCHAR(2, 6, 38) | |
| 187 CALL VCHAR(5, 6, 38) | |
| 191 CALL VCHAR(2, 7, 38) | |
| 195 CALL VCHAR(5, 7, 38) | |
| 199 CALL VCHAR(2, 8, 38) | |
| 203 CALL VCHAR(5, 8, 38) | |
| 207 CALL VCHAR(2, 9, 38) | |
| 211 CALL VCHAR(5, 9, 38) | |
| 215 CALL VCHAR(2, 13, 38) | |
| 219 CALL VCHAR(2, 16, 38) | |
| 223 CALL VCHAR(2, 17, 38) | |
| 227 CALL VCHAR(2, 18, 38) | |
| 231 CALL VCHAR(2, 19, 38) | |
| 235 CALL VCHAR(2, 20, 38) | |
| 239 CALL VCHAR(2, 21, 38) | |
| 241 CALL CHAR(39, "FFFFFFFFFFFFFFFF") | |
| 243 CALL VCHAR(3, 4, 39) | |
| 247 CALL VCHAR(6, 4, 39) | |
| 251 CALL VCHAR(7, 4, 39) | |
| 255 CALL VCHAR(8, 4, 39) | |
| 259 CALL VCHAR(3, 5, 39) | |
| 263 CALL VCHAR(6, 5, 39) | |
| 267 CALL VCHAR(7, 5, 39) | |
| 271 CALL VCHAR(8, 5, 39) | |
| 275 CALL VCHAR(3, 6, 39) | |
| 279 CALL VCHAR(6, 6, 39) | |
| 283 CALL VCHAR(7, 6, 39) | |
| 287 CALL VCHAR(8, 6, 39) | |
| 291 CALL VCHAR(3, 7, 39) | |
| 295 CALL VCHAR(6, 7, 39) | |
| 299 CALL VCHAR(7, 7, 39) | |
| 303 CALL VCHAR(8, 7, 39) | |
| 307 CALL VCHAR(3, 8, 39) | |
| 311 CALL VCHAR(6, 8, 39) | |
| 315 CALL VCHAR(7, 8, 39) | |
| 319 CALL VCHAR(8, 8, 39) | |
| 323 CALL VCHAR(3, 9, 39) | |
| 327 CALL VCHAR(6, 9, 39) | |
| 331 CALL VCHAR(7, 9, 39) | |
| 335 CALL VCHAR(8, 9, 39) | |
| 339 CALL VCHAR(3, 13, 39) | |
| 343 CALL VCHAR(4, 14, 39) | |
| 347 CALL VCHAR(5, 14, 39) | |
| 351 CALL VCHAR(6, 15, 39) | |
| 355 CALL VCHAR(7, 15, 39) | |
| 359 CALL VCHAR(3, 17, 39) | |
| 363 CALL VCHAR(4, 17, 39) | |
| 367 CALL VCHAR(5, 17, 39) | |
| 371 CALL VCHAR(3, 18, 39) | |
| 375 CALL VCHAR(4, 18, 39) | |
| 379 CALL VCHAR(5, 18, 39) | |
| 383 CALL VCHAR(6, 18, 39) | |
| 387 CALL VCHAR(7, 18, 39) | |
| 391 CALL VCHAR(3, 19, 39) | |
| 395 CALL VCHAR(4, 19, 39) | |
| 399 CALL VCHAR(5, 19, 39) | |
| 403 CALL VCHAR(6, 19, 39) | |
| 407 CALL VCHAR(7, 19, 39) | |
| 411 CALL VCHAR(3, 20, 39) | |
| 415 CALL VCHAR(4, 20, 39) | |
| 419 CALL VCHAR(4, 23, 39) | |
| 423 CALL VCHAR(5, 23, 39) | |
| 427 CALL VCHAR(6, 23, 39) | |
| 431 CALL VCHAR(7, 23, 39) | |
| 435 CALL VCHAR(3, 24, 39) | |
| 439 CALL VCHAR(4, 24, 39) | |
| 443 CALL VCHAR(5, 24, 39) | |
| 447 CALL VCHAR(6, 24, 39) | |
| 451 CALL VCHAR(7, 24, 39) | |
| 455 CALL VCHAR(8, 24, 39) | |
| 459 CALL VCHAR(3, 25, 39) | |
| 463 CALL VCHAR(4, 25, 39) | |
| 467 CALL VCHAR(5, 25, 39) | |
| 471 CALL VCHAR(6, 25, 39) | |
| 475 CALL VCHAR(7, 25, 39) | |
| 479 CALL VCHAR(8, 25, 39) | |
| 483 CALL VCHAR(2, 26, 39) | |
| 487 CALL VCHAR(3, 26, 39) | |
| 491 CALL VCHAR(4, 26, 39) | |
| 495 CALL VCHAR(7, 26, 39) | |
| 499 CALL VCHAR(8, 26, 39) | |
| 503 CALL VCHAR(3, 27, 39) | |
| 507 CALL VCHAR(4, 27, 39) | |
| 511 CALL VCHAR(7, 27, 39) | |
| 515 CALL VCHAR(8, 27, 39) | |
| 519 CALL VCHAR(3, 28, 39) | |
| 523 CALL VCHAR(4, 28, 39) | |
| 527 CALL VCHAR(7, 28, 39) | |
| 531 CALL VCHAR(8, 28, 39) | |
| 535 CALL VCHAR(4, 29, 39) | |
| 537 CALL CHAR(40, "FFFF000000000000") | |
| 539 CALL VCHAR(4, 4, 40) | |
| 543 CALL VCHAR(4, 5, 40) | |
| 547 CALL VCHAR(4, 6, 40) | |
| 551 CALL VCHAR(4, 7, 40) | |
| 555 CALL VCHAR(4, 8, 40) | |
| 559 CALL VCHAR(4, 9, 40) | |
| 561 CALL CHAR(41, "FFFFFFFFFFFF0000") | |
| 563 CALL VCHAR(9, 4, 41) | |
| 567 CALL VCHAR(9, 5, 41) | |
| 571 CALL VCHAR(9, 6, 41) | |
| 575 CALL VCHAR(9, 7, 41) | |
| 579 CALL VCHAR(9, 8, 41) | |
| 583 CALL VCHAR(9, 9, 41) | |
| 585 CALL CHAR(42, "00FEFEFEFEFEFEFE") | |
| 587 CALL VCHAR(2, 10, 42) | |
| 591 CALL VCHAR(5, 10, 42) | |
| 593 CALL CHAR(43, "FEFEFEFEFEFEFEFE") | |
| 595 CALL VCHAR(3, 10, 43) | |
| 599 CALL VCHAR(6, 10, 43) | |
| 603 CALL VCHAR(7, 10, 43) | |
| 607 CALL VCHAR(8, 10, 43) | |
| 609 CALL CHAR(44, "FEFC000000000000") | |
| 611 CALL VCHAR(4, 10, 44) | |
| 613 CALL CHAR(45, "FEFEFEFEFEFE0000") | |
| 615 CALL VCHAR(9, 10, 45) | |
| 617 CALL CHAR(46, "00FF7F7F7F3F3F1F") | |
| 619 CALL VCHAR(2, 12, 46) | |
| 621 CALL CHAR(47, "1F0F0F0707030303") | |
| 623 CALL VCHAR(3, 12, 47) | |
| 625 CALL CHAR(48, "0100000000000000") | |
| 627 CALL VCHAR(4, 12, 48) | |
| 629 CALL CHAR(49, "FFFFFFFF7F7F3F3F") | |
| 631 CALL VCHAR(4, 13, 49) | |
| 633 CALL CHAR(50, "1F1F0F0F07070303") | |
| 635 CALL VCHAR(5, 13, 50) | |
| 637 CALL CHAR(51, "0101010000000000") | |
| 639 CALL VCHAR(6, 13, 51) | |
| 641 CALL CHAR(52, "0080C0C0E0F0F0F0") | |
| 643 CALL VCHAR(2, 14, 52) | |
| 645 CALL CHAR(53, "F8FCFCFCFEFEFFFF") | |
| 647 CALL VCHAR(3, 14, 53) | |
| 649 CALL CHAR(54, "FFFFFFFFFF7F7F3F") | |
| 651 CALL VCHAR(6, 14, 54) | |
| 653 CALL CHAR(55, "3F1F1F0F0F070703") | |
| 655 CALL VCHAR(7, 14, 55) | |
| 657 CALL CHAR(56, "0303010100000000") | |
| 659 CALL VCHAR(8, 14, 56) | |
| 661 CALL CHAR(57, "003F1F1F1F0F0F07") | |
| 663 CALL VCHAR(2, 15, 57) | |
| 665 CALL CHAR(58, "0703030101000000") | |
| 667 CALL VCHAR(3, 15, 58) | |
| 669 CALL CHAR(59, "8080C0C0E0E0E0F0") | |
| 671 CALL VCHAR(4, 15, 59) | |
| 673 CALL CHAR(60, "F8F8F8FCFCFEFFFF") | |
| 675 CALL VCHAR(5, 15, 60) | |
| 677 CALL CHAR(61, "FFFFFFFFFFFF7F7F") | |
| 679 CALL VCHAR(8, 15, 61) | |
| 681 CALL CHAR(62, "3F3F1F1F0E0C0400") | |
| 683 CALL VCHAR(9, 15, 62) | |
| 685 CALL CHAR(63, "FFFFFFFFFFFFFF7F") | |
| 687 CALL VCHAR(3, 16, 63) | |
| 689 CALL CHAR(64, "7F3F3F3F1F0F0F07") | |
| 691 CALL VCHAR(4, 16, 64) | |
| 693 CALL CHAR(65, "0707030301010000") | |
| 695 CALL VCHAR(5, 16, 65) | |
| 697 CALL CHAR(66, "008080C0C0E0E0F0") | |
| 699 CALL VCHAR(6, 16, 66) | |
| 701 CALL CHAR(67, "F0F8F8F8FCFEFCFC") | |
| 703 CALL VCHAR(7, 16, 67) | |
| 705 CALL CHAR(68, "F8F8F0F0E0C0C0C0") | |
| 707 CALL VCHAR(8, 16, 68) | |
| 709 CALL CHAR(69, "8080000000000000") | |
| 711 CALL VCHAR(9, 16, 69) | |
| 713 CALL CHAR(70, "7FFF3F3F3F1F1F0F") | |
| 715 CALL VCHAR(6, 17, 70) | |
| 717 CALL CHAR(71, "0707030303010100") | |
| 719 CALL VCHAR(7, 17, 71) | |
| 721 CALL CHAR(72, "FF7F7F3F3F1F1F0F") | |
| 723 CALL VCHAR(8, 18, 72) | |
| 725 CALL CHAR(73, "0F07070303010101") | |
| 727 CALL VCHAR(9, 18, 73) | |
| 729 CALL CHAR(74, "FEFEFCFCF8F8F0F0") | |
| 731 CALL VCHAR(8, 19, 74) | |
| 733 CALL CHAR(75, "E0E0C0C0C0800000") | |
| 735 CALL VCHAR(9, 19, 75) | |
| 737 CALL CHAR(76, "FFFFFFFFFFFFFEFE") | |
| 739 CALL VCHAR(5, 20, 76) | |
| 741 CALL CHAR(77, "FEFCFCF8F8F0F0E0") | |
| 743 CALL VCHAR(6, 20, 77) | |
| 745 CALL CHAR(78, "E0C0C08080800000") | |
| 747 CALL VCHAR(7, 20, 78) | |
| 749 CALL CHAR(79, "FFFFFFFFFFFEFEFC") | |
| 751 CALL VCHAR(3, 21, 79) | |
| 753 CALL CHAR(80, "FCFCF8F8F0F0E0E0") | |
| 755 CALL VCHAR(4, 21, 80) | |
| 757 CALL CHAR(81, "C0C0808080000000") | |
| 759 CALL VCHAR(5, 21, 81) | |
| 761 CALL CHAR(82, "00F8F0F0F0E0E0C0") | |
| 763 CALL VCHAR(2, 22, 82) | |
| 765 CALL CHAR(83, "C080808000000000") | |
| 767 CALL VCHAR(3, 22, 83) | |
| 769 CALL CHAR(84, "0001030303030707") | |
| 771 CALL VCHAR(4, 22, 84) | |
| 773 CALL CHAR(85, "07070F0F0F0F0F0F") | |
| 775 CALL VCHAR(5, 22, 85) | |
| 777 CALL CHAR(86, "0F0F0F0F0F070707") | |
| 779 CALL VCHAR(6, 22, 86) | |
| 781 CALL CHAR(87, "0703030303010100") | |
| 783 CALL VCHAR(7, 22, 87) | |
| 785 CALL CHAR(88, "0000000000000103") | |
| 787 CALL VCHAR(2, 23, 88) | |
| 789 CALL CHAR(89, "031F1F1F3F7F7FFF") | |
| 791 CALL VCHAR(3, 23, 89) | |
| 793 CALL CHAR(90, "7F3F3F1F1F070303") | |
| 795 CALL VCHAR(8, 23, 90) | |
| 797 CALL CHAR(91, "0001030F3FFFFFFF") | |
| 799 CALL VCHAR(2, 24, 91) | |
| 801 CALL CHAR(92, "FF7F1F0701000000") | |
| 803 CALL VCHAR(9, 24, 92) | |
| 805 CALL CHAR(93, "0000000000000003") | |
| 807 CALL VCHAR(1, 25, 93) | |
| 809 CALL CHAR(94, "1FFFFFFFFFFFFFFF") | |
| 811 CALL VCHAR(2, 25, 94) | |
| 813 CALL CHAR(95, "FFFFFFFFFF7F0300") | |
| 815 CALL VCHAR(9, 25, 95) | |
| 817 CALL CHAR(96, "00000000000000FF") | |
| 819 CALL VCHAR(1, 26, 96) | |
| 821 CALL CHAR(97, "FFFFFFF8C0C08080") | |
| 823 CALL VCHAR(5, 26, 97) | |
| 825 CALL CHAR(98, "80C0FFFFFFFFFFFF") | |
| 827 CALL VCHAR(6, 26, 98) | |
| 829 CALL CHAR(99, "FFFFFFFFFFFFFF00") | |
| 831 CALL VCHAR(9, 26, 99) | |
| 833 CALL CHAR(100, "00000000000000F0") | |
| 835 CALL VCHAR(1, 27, 100) | |
| 837 CALL CHAR(101, "FCFFFFFFFFFFFFFF") | |
| 839 CALL VCHAR(2, 27, 101) | |
| 841 CALL CHAR(102, "FFFFFF0000000000") | |
| 843 CALL VCHAR(5, 27, 102) | |
| 847 CALL VCHAR(5, 28, 102) | |
| 851 CALL VCHAR(5, 29, 102) | |
| 853 CALL CHAR(103, "0000FFFFFFFFFFFF") | |
| 855 CALL VCHAR(6, 27, 103) | |
| 859 CALL VCHAR(6, 28, 103) | |
| 863 CALL VCHAR(6, 29, 103) | |
| 865 CALL CHAR(104, "FFFFFFFFFFF8C000") | |
| 867 CALL VCHAR(9, 27, 104) | |
| 869 CALL CHAR(105, "00C0F0FCFEFFFFFF") | |
| 871 CALL VCHAR(2, 28, 105) | |
| 873 CALL CHAR(106, "FEFCF0C000000000") | |
| 875 CALL VCHAR(9, 28, 106) | |
| 877 CALL CHAR(107, "000000000000C0E0") | |
| 879 CALL VCHAR(2, 29, 107) | |
| 881 CALL CHAR(108, "E0F0FCFCFEFEFFFF") | |
| 883 CALL VCHAR(3, 29, 108) | |
| 885 CALL CHAR(109, "FFFFFFFFFFFFFFFE") | |
| 887 CALL VCHAR(7, 29, 109) | |
| 889 CALL CHAR(110, "FEFCF8F8E0C0C000") | |
| 891 CALL VCHAR(8, 29, 110) | |
| 893 CALL CHAR(111, "8080C0C0E0E0E0E0") | |
| 895 CALL VCHAR(4, 30, 111) | |
| 897 CALL CHAR(112, "F0F0E00000000000") | |
| 899 CALL VCHAR(5, 30, 112) | |
| 901 CALL CHAR(113, "000080F0E0F0E0E0") | |
| 903 CALL VCHAR(6, 30, 113) | |
| 905 CALL CHAR(114, "C0C0C08080800000") | |
| 907 CALL VCHAR(7, 30, 114) | |
| 909 FOR DELAY=1 TO 500 | |
| 911 NEXT DELAY | |
| 913 REM UNIQUE STRINGS 83 | |
| 915 REM ARTLUNG END |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment