Retrointernals

5 PRINT"":=:="" 10 DIM,,,, 12 ="":="" 13 ="":="":= 14 ="":="":="" 15 =:=:="":="" 16 ="":="" 17 POKE, 18 GOTO4900 20 =MID$,, 21 IF=""THEN="":GOSUB1560:GOTO23 22 PRINT"":GOTO1600 23 IF=THEN1630 24 IF=THEN="":GOSUB1565:IF=THEN1630 25 IF=THENGOSUB1550:="":="":GOTO1620 27 PRINT"":GOTO1600 30 =MID$,, 31 IF=""THEN="":GOSUB1560:GOTO33 32 PRINT"":GOTO1600 33 IF=THEN1630 34 IF=THENPRINT"":="":GOTO1600 35 PRINT"":GOTO1600 41 PRINT:GOSUB1550 42 PRINT"" 44 POKE,:POKE, 46 IF>THEN52 51 ONGOTO2000240022002300210026002500270028002900300031003200 52 =- 53 ONGOTO33003400350036003700380044504100420042504300435044004500 57 IF=THENPRINT"":GOTO60 58 PRINT"" 60 PRINT"" 61 PRINT"":IF>THEN63 62 ONGOTO64666870727476788082848688909192939495969899 63 =-:ONGOTO100102104105106 64 PRINT"":GOTO110 66 PRINT"":GOTO110 68 PRINT"":GOTO110 70 PRINT"":GOTO110 72 PRINT"":GOTO110 74 PRINT"":GOTO110 76 PRINT"":GOTO110 78 PRINT"":GOTO110 80 IF=THEN1920 81 PRINT"":GOTO110 82 PRINT"":GOTO110 84 PRINT"":GOTO110 86 PRINT"":GOTO110 88 PRINT"":GOTO110 90 PRINT"":GOTO110 91 PRINT"":GOTO110 92 PRINT"":GOTO110 93 PRINT"":GOTO110 94 PRINT"":GOTO110 95 PRINT"":GOTO110 96 PRINT"":GOTO110 98 PRINT"":GOTO110 99 PRINT"":GOTO110 100 IF=THEN1920 101 PRINT"":GOTO109 102 IF=THEN1920 103 PRINT"":GOTO109 104 PRINT"":GOTO109 105 PRINT"":GOTO109 106 IF=THEN1920 107 PRINT"":GOTO109 109 =+ 110 =:PRINT:PRINT"":FOR=TO:IF,=""THEN,="" 111 IF,=""THEN114 112 PRINT,"":=+:IF=THENPRINT 114 NEXT:PRINT:IF=>THEN116 115 PRINT 116 GOTO140 118 PRINT"" 120 IF,=""THEN130 122 FOR=TO 123 IF,=""THENPRINT"" 124 IF,=""THENPRINT"" 125 IF,=""THENPRINT"" 126 IF,=""THENPRINT"" 128 NEXT:RETURN 130 PRINT"":RETURN 140 IF=AND=THEN=+:=+ 142 IF=THENPRINT"":GOSUB1900 144 IF>THENPRINT"":GOSUB1554:GOTO1650 146 IF>THENPRINT"":GOSUB1900 150 ="":GOSUB1560:IF=THEN=+:IF>THEN= 151 IF>AND=AND=THEN="":GOSUB1560:GOTO181 155 IF=AND=THENPRINT"":GOSUB1552:PRINT"":GOTO1890 160 IF=AND=THEN1760 165 IF=THENPRINT"":=:GOSUB1900 166 IF=THEN=+:PRINT"":GOSUB1900 167 IF=AND=THENPRINT"":=:GOSUB1900 168 IF=AND=THEN=:=:= 169 IF>THENPRINT"":GOSUB1554:GOTO1650 180 GOTO300 181 IF=THEN300 184 PRINT"":GOSUB1900 300 ="":INPUT"":=LEN:=+ 302 IF=THENPRINT"":GOTO305 303 PRINT"" 305 IF=THEN42 306 IF>THEN360 308 IF=""THEN1500 310 IF=""THENGOSUB118:GOTO1600 320 IF=""AND=THEN=:GOTO41 321 IF=""AND=THEN=:GOTO41 322 IF=""AND=THEN=:GOTO41 323 IF=""AND=AND=THEN1630 324 IF=""AND=AND=THEN=:GOTO41 325 IF=""AND=AND=THEN1630 326 IF=""AND=AND=THEN=:GOTO41 327 IF=""AND=AND=THEN397 328 IF=""AND=THENPRINT:GOSUB1552:GOTO1720 329 IF=""AND=THEN=:PRINT:GOSUB1552:POKE+,:POKE+,:GOTO42 330 IF=""AND=THEN=:PRINT:GOSUB1552:POKE+,:POKE+,:GOTO42 331 IF=""AND=AND=THEN1780 333 IF=""AND=THEN=:GOTO41 334 IF=""AND=THEN=:GOTO41 335 IF=""AND=THEN=:GOTO41 336 IF=""AND=THEN=:GOTO41 337 IF=""AND=THEN=:GOTO41 338 IF=""AND=THEN=:GOTO41 341 IF=""AND=THEN=:GOTO41 342 IF=""AND=THEN=:GOTO41 343 IF=""AND=THEN=:GOTO41 344 IF=""AND=THEN=:GOTO41 345 IF=""AND=THEN=:=:GOTO41 348 IF=""AND=THEN=:=:PRINT:GOSUB1552:POKE+,:POKE+,:GOTO42 350 IF=""AND=THEN=:=:PRINT:GOSUB1552:POKE+,:POKE+,:GOTO42 351 IF=""AND=THEN=:GOTO41 352 IF=""AND=THEN=:=:=:GOTO41 353 IF=""AND=AND=THEN=:=:GOTO41 354 FOR=TO:IF,<>THEN359 355 IF=""THEN=-:GOTO41 356 IF=""THEN=+:GOTO41 357 IF=""THEN=+:GOTO41 358 IF=""THEN=-:GOTO41 359 NEXT:PRINT"":GOTO1600 360 IFASC>THEN366 361 IFASC>THEN364 362 FOR=TO:IFLEFT$,=MID$,*-,THENONGOTO5005302042030550400370570 363 NEXT:PRINT:GOTO1600 364 FOR=TO:IFLEFT$,=MID$,*-,THENONGOTO430600435620875640660 365 NEXT:PRINT:GOTO1600 366 FOR=TO:IFLEFT$,=MID$,*-,THENONGOTO700730750760774800830860 367 NEXT:PRINT:GOTO1600 368 NEXT 370 =MID$,,:IF=AND=""AND=THEN=:GOTO41 371 IF=AND=AND=""THEN1630 372 IF=AND=AND=""THEN="":GOSUB1560:GOTO1930 373 IF=AND=""AND=AND=THEN=:GOTO41 374 IF=AND=""THEN1545 375 IF=AND=""AND=THEN1545 376 IF=AND=""THEN=:GOTO41 377 IF=AND=""THEN=:GOTO41 378 IF=AND=""AND=THEN=:GOTO41 379 IF=AND=""THEN1545 381 IF=AND=AND=AND=""THEN=:GOTO41 382 IF=AND=""AND=AND=THEN1630 385 IF=AND=AND=""THEN=:=:GOTO41 386 IF=AND<>AND=""THENPRINT:GOTO1600 387 IF=AND=AND=""THEN=:GOTO41 388 IF=AND=""THENPRINT"":GOTO1600 389 IF=AND=AND=""THEN1630 390 IF=AND=AND=""THEN1630 391 IF=AND=""AND=THEN=:GOTO41 397 PRINT"":GOTO1600 400 GOSUB1400 405 FOR=TO:IF=THENPRINT"":GOTO1600 406 :NEXT 407 FOR=TO:IF,=THEN410 408 NEXT:IF=""THENPRINT"":GOTO1600 409 PRINT"":GOTO1600 410 FOR=TO:IF=""THEN412 411 NEXT:PRINT"":PRINT"":GOSUB1820:GOTO1600 412 PRINT:=:,="":GOSUB1552:GOTO42 420 GOSUB1400 421 FOR=TO:IF=THEN423 422 NEXT:PRINT"":GOTO1600 423 FOR=TO:IF,=""THEN425 424 NEXT:PRINT"":GOSUB1840:GOTO1600 425 ="":,=:GOTO41 430 GOTO1500 435 =MID$,,:IF=AND=THEN= 436 IF=AND=""AND=THENPRINT:GOSUB1550:="":=:GOTO1620 437 IF=AND=""AND=THEN="":=:GOTO1620 438 IF=AND=AND=""THENPRINT:GOTO1600 439 IF=AND=""THENPRINT"":GOTO1600 440 IF=AND=""THENPRINT"":GOTO1600 441 IF=AND=AND=""THEN="":GOSUB1565:IF=THEN481 442 IF=AND=""THENPRINT"":GOTO1600 443 IF=AND=AND=""THEN="":=:GOTO1620 444 IF=AND=AND=""THEN="":=:GOTO1620 445 IF=AND=""THENPRINT:GOTO1600 446 IF=AND=""THENPRINT"":GOTO1600 447 IF=AND=AND=""THENPRINT"":GOTO1600 448 IF=AND=""THENPRINT"":GOTO1600 449 IF=AND=""THENPRINT"":GOTO1600 450 IF=AND=""THENPRINT"":GOTO1600 451 IF=AND=""AND=THEN="":=:GOTO1620 452 IF=AND=""THENPRINT"":GOTO1600 453 IF=AND=AND=""THEN="":=:GOTO1620 454 IF=AND=""AND=THENPRINT:GOTO1600 455 IF=AND=""AND=THENPRINT"":GOTO1600 456 IF=AND=""THENPRINT"":GOTO1600 457 IF=AND=""THENPRINT"":GOTO1600 458 IF=AND=AND=""THENPRINT"":GOTO1600 459 IF=AND=""THENPRINT"":GOTO1600 460 IF=AND=AND=""THENPRINT"":GOTO1600 461 IF=AND=AND=""THENPRINT"":GOTO1600 463 IF=AND=""THENPRINT"":GOTO1600 464 IF=AND=""THENPRINT"":GOTO1600 465 IF=AND=""AND=THEN="":=:GOTO1620 466 IF=AND=""THENPRINT"":GOTO1600 467 IF=AND=""THENPRINT"":GOTO1600 468 IF=AND=""AND=THEN="":=:GOTO1620 469 IF=AND=""THENPRINT"":GOTO1600 470 IF=AND=""AND=THEN="":GOTO1620 471 IF=""AND=AND=THEN="":GOSUB1565:GOTO482 472 IF=AND=""AND=THENPRINT"":GOTO1600 473 IF=AND=AND=AND=""THEN="":=:GOTO1620 480 PRINT"":GOTO1600 481 PRINT"":GOTO1600 482 IF=THEN1630 483 GOSUB1560:IF=THEN485 484 PRINT"":GOTO1600 485 ="":=:=:GOTO1620 500 =MID$,, 501 IF=AND=AND=""THEN512 506 IF=AND=""AND=THEN6="":=:PRINT:GOTO1600 510 PRINT"":GOTO1600 512 PRINT"":GOSUB1552:PRINT"" 513 GOSUB1554:GOTO1650 530 =MID$,,:IF=AND=""THEN1997 531 IF=AND=""THEN=:=:GOTO41 532 IF=AND=""THEN=:=:=:GOTO41 533 IF=AND=""THEN="":GOSUB1565:GOTO1994 534 IF=AND=""THEN="":GOSUB1565:GOTO1991 535 IF=AND=""THEN1997 540 PRINT"":GOTO1600 550 =MID$,, 551 IF=AND=""THEN="":GOSUB1560:GOTO555 552 PRINT"":GOTO1600 555 IF=THEN1630 556 IF=THENPRINT"":=:GOTO1600 558 PRINT"":GOTO1600 570 =MID$,, 571 IF=THENPRINT"":=:GOTO1600 572 PRINT"":=+:GOTO1600 576 GOTO1600 600 =MID$,,:=CHR$ 601 IF=""THEN="":GOSUB1560:IF=THENPRINT:=:GOTO1600 605 PRINT"":GOTO1600 620 =MID$,, 621 IF=AND=""AND=THEN="":=:=:GOTO1620 622 IF=AND=""AND=THEN2=:="":=:=:GOTO1620 638 PRINT"":GOTO1600 640 =MID$,, 641 IF=AND=""THEN="":=:GOTO1620 645 PRINT"":GOTO1600 660 =MID$,,:=CHR$ 661 IF=AND=""THENPRINT"":GOSUB1554:GOTO1940 662 IF=AND=""AND=AND=THENPRINT"":GOTO665 664 PRINT"":GOTO1600 665 =:,="":=:GOTO1600 700 PRINT"":POKE,:POKE, 701 PRINT"" 702 INPUT"" 704 IF=""THEN42 705 IF=""THEN707 706 GOTO700 707 PRINT"" 708 INPUT"" 709 IF=""THEN780 710 IF=""THENNEW 711 GOTO700 730 =MID$,, 731 IF=AND=""THENPRINT"":GOTO1600 732 IF=AND=""THENPRINT"":GOTO1600 733 IF=AND=""THENPRINT:GOSUB1552:GOTO1699 734 IF=""AND>=THEN="":GOSUB1560:GOTO741 735 IF=""THEN="":GOSUB1560:GOTO744 740 PRINT"":GOTO1600 741 IF=THEN1630 742 IF=THENPRINT"":PRINT"":GOTO1600 744 IF=THEN1630 745 IF=THENPRINT"":GOTO1600 750 =MID$,, 751 IF=AND=AND=""THEN="":GOSUB1560:IF=THEN757 754 PRINT"":GOTO1600 757 PRINT"":=:GOSUB1552:=:GOTO42 760 =MID$,, 761 IF=AND=""THENPRINT"":GOSUB1552:PRINT"":GOTO771 770 PRINT"":GOTO1600 771 =:GOSUB1552:GOTO42 774 PRINT"" 775 INPUT"" 780 PRINT"":PRINT"":=CHR$ 781 OPEN,,,"" 782 PRINT#, 783 PRINT#, 784 PRINT#, 785 PRINT#, 786 PRINT#, 787 PRINT#, 788 FOR=TO:IF=""THEN="" 789 PRINT#, 790 NEXT 791 FOR=TO:FOR=TO:IF,=""THEN,="" 792 PRINT#,, 793 NEXT, 794 IF=""THEN5="" 795 IF=""THEN1="" 796 IF=""THEN2="" 799 PRINT#,:CLOSE:GOTO42 800 =MID$,, 801 IF=AND=""THEN="":GOSUB1560:IF=THEN=:PRINT:GOTO1600 803 IF=AND=""THEN="":GOSUB1560:IF=THEN=:PRINT:GOTO1600 804 IF=AND=""THEN="":GOSUB1560:IF=THEN=:PRINT:GOTO1600 805 IF=""THEN="":GOSUB1560:IF=THEN815 806 IF=AND=AND=""THENPRINT:GOSUB1552:GOTO1740 807 PRINT"":GOTO1600 815 ="":GOSUB1560:IF=THEN1630 816 IF=THEN=:PRINT:GOTO1600 830 =MID$,,:=++ 831 IF=AND=""AND=THEN835 832 PRINT"":GOTO1600 835 INPUT"":IFLEFT$,=""THEN837 836 PRINT"":GOTO1600 837 PRINT:=:=+:IF=THEN=:GOTO1600 838 GOTO1600 860 =MID$,, 861 IF=""THEN="":GOSUB1560:GOTO865 863 PRINT"":GOTO1600 865 IF=THEN1630 866 IF=THENPRINT"":=:GOTO1600 875 =MID$,, 876 IF=AND=""AND=THENPRINT:GOTO1600 877 IF=AND=""THENPRINT:=:GOTO1600 878 IF=AND=""AND=THENPRINT:GOTO1600 879 IF=AND=""THEN=:PRINT:GOTO1600 880 IF=AND=""AND=THENPRINT:GOTO1600 881 IF=AND=""THEN=:GOTO41 882 IF=AND=""AND=AND=THENPRINT:GOTO1600 883 IF=AND=AND=""THEN7=:GOTO41 884 IF=AND=AND=""THENPRINT:=:GOTO1600 885 IF=AND=AND=""THENPRINT:GOTO1600 886 IF=AND=""THENPRINT:GOTO1600 887 IF=AND=""AND=THEN=:GOTO41 888 IF=AND=""THENPRINT:GOTO1600 889 IF=AND=""THENPRINT"":GOTO1600 890 IF=""AND=THEN="":GOSUB1560:IF=THENPRINT:=:GOTO1600 891 IF=AND=""THENPRINT:=:GOTO1600 892 IF=AND=""AND=THEN1=:=:=:GOTO41 893 IF=AND=""THENPRINT"":GOTO1600 895 PRINT"":GOTO1600 998 PRINT"" 999 INPUT"" 1000 PRINT"":PRINT"" 1002 OPEN,,,"" 1003 INPUT#,,,,,,,,,,,,,,,,,,,,,,, 1004 INPUT#,,,,,,,,,,,,,,,,,,,,,, 1006 INPUT#,,,,,,,,,,,,, 1007 FOR=TO:INPUT#, 1008 IF=""THEN="" 1009 NEXT 1010 FOR=TO:FOR=TO:INPUT#,, 1011 IF,=""THEN,="" 1012 NEXT, 1013 INPUT#,,, 1014 IF=""THEN5="" 1015 IF=""THEN1="" 1016 IF=""THEN2="" 1020 CLOSE:GOTO42 1400 IFASC=THEN=:GOTO1404 1402 = 1404 =MID$,,:IF=AND=AND=""THEN5=:="":RETURN 1405 IF=AND=AND=""THEN5=:="":RETURN 1406 IF=AND=AND=AND=""THEN="":=:RETURN 1408 IF=AND=AND=""THEN="":GOSUB1565:IF=THEN=:="" 1410 IF=AND=AND=""THEN="":GOSUB1560:IF=THEN=:="" 1411 IF=AND=AND=""THEN=:=:="":RETURN 1412 IF=""THEN="":RETURN 1413 IF=AND=""THEN="":=:RETURN 1414 IF=AND=""THEN="":=:RETURN 1416 IF=AND=""AND=THEN="":,="":=:RETURN 1418 IF=""THEN="":RETURN 1420 IF=AND=""THEN="":=:RETURN 1421 IF=AND=""AND=THEN="":=:RETURN 1422 IF=AND=""AND=THEN="":=:RETURN 1423 IF=AND=""AND=THEN="":=:RETURN 1424 IF=AND=""AND=THEN=:="":RETURN 1425 IF=AND=""AND=THEN="":=:RETURN 1426 IF=""THEN="":RETURN 1427 IF=AND=""AND=THEN="":=:RETURN 1428 IF=""THEN="":RETURN 1429 IF=AND=""AND=THEN="":=:RETURN 1432 IF=""THEN="":RETURN 1434 IF=""THEN="":RETURN 1436 IF=""THEN="":RETURN 1438 IF=""THEN="":RETURN 1442 IF=""THEN="":RETURN 1444 IF=""THENINPUT"":=LEFT$,:GOTO1456 1446 IF=""THEN="":RETURN 1448 IF=""THEN="":RETURN 1450 IF=""THEN="":RETURN 1452 IF=""THEN="":RETURN 1454 ="":RETURN 1456 IF=""AND=THEN="":=:RETURN 1458 IF=""THEN="":RETURN 1460 IF=""THEN="":RETURN 1462 IF=""AND=AND=THEN="":GOSUB1560:GOTO1466 1464 IF=""THEN="":RETURN 1466 IF=THENPRINT:PRINT"":GOTO1986 1468 IF=THEN="":=:RETURN 1500 GOSUB1518:PRINT"":POKE,:POKE,:PRINT"":= 1502 PRINT"" 1504 FOR=TO:IF=""THEN="" 1505 IF=""THEN1512 1508 IF=""AND=THENPRINT"":=+:GOTO1511 1509 IF=""AND=THENPRINT"":=+:GOTO1511 1510 PRINT"":=+ 1511 PRINT 1512 NEXT:IF=THENPRINT"" 1513 PRINT"" 1514 GOSUB1556:GOTO42 1518 IF=THENPOKE+,:POKE+,:RETURN 1520 IF=THENPOKE+,:POKE+,:RETURN 1521 RETURN 1545 PRINT"":GOTO1600 1550 FOR=TO:NEXT:RETURN 1552 FOR=TO:NEXT:RETURN 1554 FOR=TO:NEXT:RETURN 1556 FOR=TO:NEXT:RETURN 1560 =:FOR=TO:IF=THEN=:RETURN 1561 NEXT:RETURN 1565 =:FOR=TO:IF,=THEN=:RETURN 1566 NEXT:RETURN 1570 =:POKE+,:POKE+,:POKE+, 1571 READ,,:IF<THENPOKE+,:RETURN 1572 POKE+,:POKE+,:POKE+,:FOR=TO:NEXT 1573 GOTO1571 1600 GOSUB1554:PRINT"" 1605 FOR=TO:PRINT:NEXT:GOTO60 1620 PRINT"":FOR=TO:IF,=""THEN,=:GOSUB1552:GOTO42 1621 NEXT:GOTO1600 1630 PRINT"":GOTO1600 1650 PRINT"":POKE,:POKE, 1651 PRINT""SPC("" 1652 PRINT""SPC("":PRINT""SPC("" 1653 PRINT""SPC("" 1654 PRINT""SPC("" 1655 PRINT""SPC("" 1656 PRINT"" 1657 PRINT"" 1658 PRINT"" 1659 PRINT"" 1660 =:POKE+,:POKE+,:POKE+,:POKE+,:POKE,:POKE+, 1661 FOR=TO:NEXT:FOR=TOSTEP-:POKE+,:FOR=TO:NEXT,:POKE+, 1662 PRINT"":PRINT"" 1663 PRINT"" 1664 PRINT"""" 1665 PRINT"":INPUT"" 1666 IF=""THENNEW 1667 IF=""THENRUN 1668 GOTO1650 1699 PRINT"" 1700 PRINT"" 1701 PRINT"" 1702 PRINT"":PRINT"" 1703 PRINT"":PRINT"" 1704 PRINT"":PRINT"" 1705 PRINT"" 1706 PRINT"" 1707 PRINT"":PRINTSPC("" 1708 GOSUB1556:GOSUB1556:GOTO42 1720 POKE+,:POKE+,:POKE+,:POKE+,:POKE+, 1722 FOR=TOSTEP 1724 POKE+,:POKE,:NEXT:GOSUB1554 1728 POKE+,:POKE+,:PRINT"" 1730 PRINT"":PRINT"":GOSUB1552 1731 IF=THEN1736 1734 PRINT"":PRINT"":GOSUB1556:GOTO1650 1736 PRINT"":GOSUB1554:=:GOTO42 1740 PRINT"":PRINT"" 1741 PRINT"":PRINT"" 1742 PRINT"":INPUT"" 1744 IF=""THEN42 1745 IF=THENPRINT"":=:=:GOSUB1554:GOTO42 1746 GOTO1742 1760 PRINT"":GOSUB1552:FOR=TOSTEP- 1761 POKE+,:POKE,:FOR=TO:NEXT 1763 NEXT:GOSUB1552:POKE+,:POKE+,:=:GOTO42 1780 PRINT"":PRINT"" 1782 PRINT"" 1784 GOSUB1556:NEW 1800 =:POKE+,:POKE+,:POKE+, 1802 READ,,:=+:IF>THENRETURN 1803 IF=THENGOSUB4924 1804 POKE+,:POKE+,:POKE+,:POKE+,:POKE+, 1806 POKE+,:POKE,:POKE+, 1808 FOR=TO:NEXT:GOTO1802 1820 IF=AND=AND=""THEN6=:RETURN 1821 IF=AND=AND=""THEN7=:RETURN 1822 IF=AND=AND=""THEN6=:RETURN 1823 IF=AND=AND=""THEN5=:RETURN 1826 RETURN 1840 IF=AND=AND=""THEN6=:RETURN 1845 RETURN 1890 GOSUB1554:PRINT"":GOSUB1556 1891 FOR=TO:IF,=""THEN21="":= 1892 NEXT:=:= 1893 PRINT"":GOSUB1554 1894 PRINT"":GOSUB1552:PRINT"":GOSUB1552 1895 PRINT"":GOSUB1552:GOTO42 1900 PRINT"":GOSUB1554:PRINT:PRINT"":RETURN 1920 PRINT"":PRINT"" 1921 INPUT"" 1922 PRINT"":GOSUB1554:GOTO1650 1930 IF=THENPRINT"":GOTO1600 1931 IF=THEN="":GOTO373 1940 PRINT"":POKE,:GOSUB1957 1941 ="" 1942 FOR=TO:PRINT:NEXT:PRINT""SPC("" 1944 PRINT"":GOSUB1552 1945 PRINT"":GOSUB1552 1946 PRINT"":PRINT"" 1947 PRINT"":GOSUB1552 1948 PRINTSPC("":PRINTSPC("" 1949 PRINTSPC("":PRINTSPC("":GOSUB1552 1950 GOSUB1552 1951 PRINTSPC("":PRINT"" 1952 PRINTSPC("":GOSUB1554:GOTO42 1957 IF=THEN5=:=+:RETURN 1958 IF=THEN5=:= 1959 RETURN 1986 GOSUB1554:PRINT"" 1988 FOR=TO:PRINT:NEXT:PRINT:GOTO60 1991 IF=THENPRINT"":GOTO1600 1992 IF=THEN=:=:GOTO41 1994 IF=THEN1630 1995 IF=THEN=:,="":=:=:=:GOTO41 1996 GOTO1600 1997 PRINT:GOSUB1550:PRINT"":GOSUB1554:GOTO1650 2000 REM 2020 PRINTSPC("" 2021 PRINTSPC("":PRINTSPC("" 2022 PRINTSPC("" 2023 PRINT"" 2024 PRINTSPC("" 2025 IF=THENPRINTSPC("":GOTO2027 2026 PRINTSPC("" 2027 IF=THENPRINT"":GOTO2029 2028 PRINT"" 2029 IF=THENPRINT"":GOTO2031 2030 PRINT"" 2031 IF=THENPRINT"":GOTO2033 2032 PRINT"" 2033 IF=THENPRINT"":GOTO2040 2034 PRINT"" 2040 GOTO57 2100 REM 2120 PRINT"":PRINT"":PRINT"" 2122 PRINT"":PRINT"" 2124 PRINT"" 2126 PRINT"" 2128 PRINT"" 2130 PRINT"" 2132 PRINT"" 2134 PRINT"" 2136 PRINT"" 2138 PRINT"" 2140 PRINT"" 2142 PRINT"":FOR=TO:PRINT"":NEXT 2150 GOTO57 2200 REM 2210 ="":="" 2220 REM 2230 PRINTSPC("" 2232 PRINTSPC("" 2236 PRINTSPC("" 2238 PRINTSPC("" 2240 PRINTSPC("" 2242 PRINT"" 2244 PRINT"" 2246 PRINTSPC("" 2248 PRINTSPC("" 2250 PRINT"":PRINTSPC("" 2252 PRINTSPC(:PRINTSPC( 2255 IF=THEN57 2256 IF=THENPRINT""SPC("" 2257 PRINTSPC("":GOSUB1554:GOTO1650 2300 REM 2310 ="" 2330 PRINT"":PRINT"" 2332 PRINT""SPC("" 2334 PRINT""SPC("" 2336 PRINT""SPC("":PRINTSPC(""SPC("" 2338 PRINT""SPC(""SPC("" 2340 PRINT""SPC("" 2342 PRINT""SPC("" 2344 PRINTSPC("" 2346 PRINT""SPC("" 2348 PRINTSPC("":PRINT"":FOR=TO:PRINT"":NEXT 2350 IF=THENPRINT"":PRINT:GOTO57 2360 GOTO57 2400 REM 2430 PRINTSPC("":PRINTSPC("":PRINTSPC("" 2432 PRINT"" 2434 PRINT"" 2436 PRINT"" 2437 PRINT"" 2438 PRINT"" 2440 PRINT"" 2442 PRINT"" 2443 PRINT"":FOR=TO:PRINT"":NEXT 2444 PRINT"":FOR=TO:PRINT"":NEXT 2446 PRINT"":FOR=TO:PRINT"":NEXT 2450 PRINT"" 2460 GOTO57 2500 REM 2530 PRINTSPC("":PRINTSPC("" 2532 PRINTSPC("" 2534 PRINTSPC("" 2536 PRINT"" 2538 PRINT"" 2540 PRINT"" 2542 PRINT"" 2544 PRINT"" 2546 PRINT"" 2548 PRINT"" 2549 PRINT"" 2550 PRINT"" 2560 GOTO57 2600 REM 2630 PRINT"":PRINT"" 2632 PRINT"":PRINT"":PRINT"" 2634 PRINT"":PRINT"":PRINT"" 2636 PRINT"":PRINT"" 2638 PRINT"":PRINT"" 2640 PRINT"" 2660 GOTO57 2700 REM 2730 PRINT""SPC("":PRINT""SPC("" 2731 PRINT"" 2732 FOR=TO:PRINT""SPC("":NEXT 2734 PRINT"" 2735 PRINT""SPC("":PRINT""SPC("" 2736 IF=THENRETURN 2737 IF=THENRETURN 2738 IF=THENRETURN 2739 IF=THEN2742 2740 PRINT"":PRINT"":PRINT"" 2741 PRINT"":GOTO57 2742 PRINT"":PRINT"" 2743 PRINT"":PRINT"" 2744 PRINT"" 2745 GOTO57 2800 PRINT"":IF=THEN1920 2810 PRINTSPC("":PRINTSPC("":PRINTSPC("" 2812 PRINT"":PRINTSPC("" 2814 PRINTSPC(""SPC("":PRINTSPC(""SPC("" 2816 PRINTSPC(""SPC("" 2818 PRINTSPC(""SPC("":PRINTSPC(""SPC("" 2820 PRINT"" 2822 PRINTSPC(""SPC("":PRINTSPC("" 2825 IF=THENGOSUB2840 2826 IF=THENGOSUB2846 2827 IF=THENPRINT""SPC("" 2828 IF=THENGOSUB2852 2829 IF=THENGOSUB2858 2832 GOTO57 2840 PRINT""SPC("":="" 2841 FOR=TO:PRINT:NEXT:RETURN 2846 PRINT"":RETURN 2852 RETURN 2858 PRINT"":RETURN 2900 REM 2910 PRINT""SPC("":PRINT""SPC("" 2912 PRINT"" 2914 PRINT""SPC("" 2916 PRINT"" 2918 PRINT"" 2920 PRINT"" 2921 PRINT"" 2922 PRINT"" 2924 PRINT""SPC("" 2926 PRINT""SPC("" 2928 PRINT""SPC("" 2930 PRINT""SPC("" 2932 PRINT"":PRINT"" 2940 GOTO57 3000 REM 3010 PRINT"":PRINT""SPC("" 3012 PRINT""SPC("" 3014 PRINT""SPC("" 3016 PRINT""SPC("" 3018 PRINT""SPC("" 3020 PRINT""SPC("" 3022 PRINT""SPC("" 3024 PRINT"":PRINT"" 3026 PRINT"" 3028 PRINT"" 3029 IF=THEN3035 3030 IF=THENPRINT""SPC("" 3031 PRINTSPC("" 3032 PRINTSPC("":GOTO57 3035 ="" 3036 PRINT""SPC("":FOR=TO:PRINT:NEXT 3037 PRINTSPC("":GOTO57 3100 REM 3110 PRINT"":PRINT"" 3112 PRINT"":PRINT"":PRINT"" 3113 PRINT"" 3114 PRINT"":PRINT"" 3116 PRINT"" 3118 PRINT"" 3120 PRINT""SPC("" 3122 PRINT""SPC("" 3124 PRINT""SPC("" 3126 PRINT"" 3130 GOTO57 3200 REM 3210 PRINT"":PRINT"" 3212 PRINT""SPC("":PRINT""SPC(""SPC("" 3214 PRINT"":PRINT"" 3216 PRINT"" 3218 PRINT"":PRINT""SPC("" 3220 PRINT"" 3222 PRINT"" 3224 PRINT"" 3226 PRINT"" 3230 IF=THEN3240 3231 PRINT""SPC("" 3232 PRINTSPC("":GOTO57 3240 GOTO57 3300 REM 3310 =:GOSUB2730:= 3312 PRINT"" 3314 PRINT""SPC("" 3320 POKE+,:POKE+,:POKE+,:POKE+,:POKE+,:POKE, 3321 POKE+,:POKE+,:POKE+,:POKE+, 3350 =+:GOTO57 3400 =:GOSUB2730:= 3410 PRINT"" 3412 IF=THEN3415 3413 PRINT""SPC("":PRINTSPC("" 3414 PRINTSPC("" 3415 PRINT"" 3416 PRINTSPC("" 3417 PRINTSPC("" 3450 =+:GOTO57 3500 REM 3512 PRINT""SPC("" 3514 PRINTSPC("" 3516 ="" 3517 FOR=TO:PRINT:NEXT 3518 PRINTSPC(""SPC("" 3520 PRINTSPC("" 3522 PRINT"" 3524 PRINTSPC(""SPC("" 3526 IF=THEN3528 3527 PRINT"":FOR=TO:PRINT:NEXT:GOTO3540 3528 PRINT"":FOR=TO:PRINT:NEXT 3540 =+:GOTO57 3600 REM 3610 PRINTSPC("":PRINTSPC("":PRINTSPC(""SPC("" 3612 PRINTSPC(""SPC("":=+:IF=THEN3614 3613 GOTO3612 3614 PRINT""SPC("":PRINT"" 3615 PRINT""SPC("":PRINT"" 3616 PRINT"":PRINT""SPC("" 3617 PRINT"":PRINT"" 3620 =+:=:GOTO57 3700 REM 3707 IF=THEN3712 3710 IF=THENPRINT"" 3711 FOR=TO:PRINT"":NEXT:GOTO3714 3712 PRINT"":FOR=TO:PRINT"":NEXT 3714 PRINT"" 3716 PRINT"" 3718 PRINT"":PRINT"" 3720 IF=THEN=+:GOTO57 3722 IF=THENPRINT""SPC(" 3724 PRINTSPC("" 3726 =+:GOTO57 3800 REM 3810 PRINTSPC("":PRINTSPC("" 3811 PRINTSPC("":PRINTSPC("" 3812 PRINTSPC("":PRINTSPC("" 3813 PRINT"" 3814 PRINT"" 3815 PRINT"" 3816 PRINTSPC("" 3817 PRINTSPC("" 3818 PRINTSPC("":PRINT""SPC("":PRINT""SPC("" 3830 =+:GOTO57 4100 REM 4110 PRINT"":PRINT""SPC("" 4112 ="" 4113 FOR=TO:PRINT:NEXT 4120 PRINT"" 4121 PRINT""SPC("" 4122 PRINT""SPC("" 4124 IF=THENPRINT"":GOTO4128 4126 PRINT"" 4128 PRINT"":PRINTSPC("":PRINTSPC("" 4130 PRINTSPC("":PRINTSPC("" 4132 IF=AND=THENPRINT""SPC("" 4134 IF=THENPRINT""SPC("" 4136 IF=THEN4146 4140 =+:GOTO57 4146 IF=THENPRINT""SPC("" 4147 PRINTSPC("":=+:GOTO57 4200 REM 4210 PRINT"" 4212 PRINT"" 4214 PRINT"" 4216 PRINT"" 4218 PRINT"" 4220 PRINT"" 4222 PRINT"" 4224 PRINT"" 4226 PRINT"" 4228 PRINT"" 4230 PRINT""SPC("" 4232 PRINT"" 4234 IF=THENPRINT""SPC("" 4240 =+:GOTO57 4250 IF=THEN1920 4256 PRINT""SPC(""SPC("":PRINTSPC("" 4258 PRINTSPC("":PRINTSPC("" 4260 PRINTSPC("":PRINTSPC("" 4262 PRINTSPC("":PRINTSPC("" 4264 PRINTSPC("":PRINTSPC("" 4266 PRINTSPC("":PRINTSPC("" 4268 PRINTSPC("":PRINTSPC("" 4270 PRINT"" 4271 IF=THEN4275 4272 IF=THENPRINT""SPC("" 4275 =+:GOTO57 4300 IF=THEN1920 4304 PRINTSPC(""SPC("":PRINTSPC(""SPC("" 4306 PRINTSPC("":PRINTSPC("" 4307 ="" 4308 FOR=TO:PRINT:NEXT 4310 PRINTSPC(""SPC("":PRINTSPC(""SPC("" 4312 PRINTSPC(""SPC("":PRINTSPC(""SPC("" 4320 =+:GOTO57 4350 IF=THEN4362 4360 PRINT"":GOTO4370 4362 PRINT"" 4370 =+:GOTO57 4400 POKE,:POKE, 4410 PRINTSPC("":PRINTSPC("" 4412 PRINTSPC(""SPC("":PRINTSPC(""SPC("" 4414 PRINTSPC("":PRINTSPC(""SPC("" 4416 PRINTSPC(""SPC("" 4422 POKE+,:POKE+,:POKE,:POKE+,:POKE+, 4424 POKE+,:POKE+, 4426 =+:GOTO57 4450 REM 4454 PRINTSPC("":PRINTSPC("" 4456 PRINT"" 4457 FOR=TO 4458 PRINT"":NEXT 4460 PRINT"" 4462 PRINT""SPC("" 4464 PRINT"" 4465 PRINT"" 4466 PRINTSPC("" 4468 PRINT"" 4470 PRINT"" 4472 PRINT"":FOR=TO:PRINT"":NEXT 4475 =+:GOTO57 4500 IF=THEN1920 4502 =:GOSUB2730:= 4504 PRINT""SPC("":PRINT""SPC(""SPC("" 4506 PRINT""SPC("":PRINT""SPC("" 4507 PRINT""SPC(""SPC("" 4508 PRINT""SPC("":PRINT""SPC("" 4510 PRINT"":PRINT"" 4512 IF=THEN4520 4513 PRINT""SPC("" 4514 PRINTSPC("" 4520 =+:GOTO57 4700 GOTO60 4900 POKE,:POKE, 4910 PRINT"":PRINT"" 4912 PRINT"":PRINT"":PRINT"" 4914 PRINT"":PRINT"":PRINT"" 4916 PRINT"":PRINT"":PRINT"" 4918 PRINT"":PRINT"" 4920 PRINT"":PRINTSPC("":PRINTSPC("":PRINTSPC("" 4922 PRINTSPC("":PRINTSPC("":= 4923 GOSUB1800:GOTO5000 4924 PRINTSPC("":PRINTSPC("":PRINTSPC("" 4926 RETURN 5000 POKE+,:POKE+,:=:POKE+,:POKE+,:=CHR$ 5001 FOR=TO:READ:POKE+,:NEXT 5002 FOR=TO:READ:POKE+,:NEXT 5003 FOR=TO:READ:POKE+,:NEXT 5004 POKE+,:FOR=TOSTEP-:POKE+,:FOR=TO:NEXT:NEXT 5006 POKE+,:POKE+,:FOR=TOSTEP 5007 POKE,:POKE,:POKE+,:POKE+,:POKE+,:POKE+,- 5008 FOR=TO:NEXT 5009 =+:IF>THEN= 5010 NEXT:PRINT"" 5011 PRINT"":PRINT"" 5012 PRINT"" 5013 PRINT"" 5014 PRINT"":PRINT"" 5015 FOR=TO:FOR=TO:READ,:NEXT,:POKE+, 5055 FOR=TO:READ:POKE+,:NEXT 5060 FOR=TO:READ:POKE+,:NEXT 5065 FOR=TO:READ:POKE+,:NEXT 5070 PRINT"":PRINT"":=CHR$ 5071 INPUT"" 5072 IFLEFT$,=""THENGOTO998 5080 FOR=TO:FOR=TO:READ:,=:IF=""THEN= 5082 NEXT,:GOTO42 5900 DATA,,,,,,,,,,,,,,,,,,,, 5902 DATA,,,,,,,,,,,,,,,,,,,, 5904 DATA,, 6000 DATA,,,,,,,,,,,,,,,,,,,,,,,,,, 6002 DATA,,,,,,,,,,,,,,,,, 6004 DATA,,,,,,,,,,,,,,,,, 6006 DATA,,,,,,,,,,,,,,,,,,,,,,, 6008 DATA,,,,,,,,,,,,,,,,, 6010 DATA,,,,,,,,,,,,,,,,,,,, 6012 DATA,,,,,,,,,,,,,,,,,,,,,,,,,, 6014 DATA,,,,,,,,,,,,,,,,, 6016 DATA,,,,,,,,,,,,,,,,, 6040 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 6042 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 6043 DATA,,,,,,,,,,,,,, 6100 DATA,,,,,,,,,,,,,,,,,,,,,,,,,, 6105 DATA,,,,,,,,,,,,,,,,, 6110 DATA,,,,,,,,,,,,,,,,, 6120 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 6122 DATA,,,,,,,,,,,,,,,,,,,,,,,,,, 6124 DATA,,,,, 6130 DATA,,,,,,,,,,,,,,,,,,,,,,,,,,,,, 6132 DATA,,,,,,,,,,,,,,,,,,,,,,,,,, 6134 DATA,,,,, 6200 DATA,,,,,,,,,,,, 6205 DATA,,,,,,,,,,,,, 6210 DATA,,,,,,,,,,, 6215 DATA,,,,,,,,,,, 6220 DATA,,,,,, 6225 DATA,,,, 6230 DATA,,,,,,,