JERRY für Z1013- und JKCEMU-BASIC

Wenn Sie das Programm selbst ausprobieren möchten, dann markieren Sie die entsprechende Tabellenspalte, kopieren diese in die Zwischenablage und fügen dann den Text im Emulatorfenster (Z1013-BASIC-Interpreter vorher starten!) bzw. im JKCEMU-Texteditor ein.

Achtung! Das Programm ist nur auf einem originalen Z1013 oder in einer Z1013-Emulation lauffähig. Das Compilieren für andere Zielsysteme ist nicht sinnvoll.

Version für Z1013-BASIC-Interpreter Version für JKCEMU-BASIC-Compiler

5 OUTC.12 10 PO.H.(EC0C),146 20 PO.H.(EC0D),160 30 PO.H.(EC0E),160 40 PO.H.(EC0F),149 50 PO.H.(EC2A),146 60 PO.H.(EC2B),147 70 PO.H.(EC30),145 80 PO.H.(EC49),153 90 PO.H.(EC51),155 100 PO.H.(EC69),152 110 PO.H.(EC71),161 120 PO.H.(EC89),159 130 PO.H.(EC91),152 140 PO.H.(ECA9),159 150 PO.H.(ECB0),144 160 PO.H.(ECB1),158 170 PO.H.(ECB2),158 180 PO.H.(ECB3),158 190 PO.H.(ECB4),150 200 PO.H.(ECB5),149 210 PO.H.(ECC9),145 220 PO.H.(ECD2),146 230 PO.H.(ECD3),160 240 PO.H.(ECD4),149 250 PO.H.(ECD5),174 260 PO.H.(ECD6),145 270 PO.H.(ECEA),150 280 PO.H.(ECEB),149 290 PO.H.(ECEC),248 300 PO.H.(ECED),248 310 PO.H.(ECF1),153 320 PO.H.(ECF3),146 330 PO.H.(ECF4),135 340 PO.H.(ECF5),134 350 PO.H.(ECF6),147 360 PO.H.(ECF7),145 370 PO.H.(ED06),146 380 PO.H.(ED07),147 390 PO.H.(ED08),158 400 PO.H.(ED09),158 410 PO.H.(ED0A),150 420 PO.H.(ED0B),149 430 PO.H.(ED0D),174 440 PO.H.(ED11),152 450 PO.H.(ED12),144 460 PO.H.(ED16),174 470 PO.H.(ED17),173 480 PO.H.(ED18),159 490 PO.H.(ED25),153 500 PO.H.(ED2C),145 510 PO.H.(ED2D),159 520 PO.H.(ED31),159 530 PO.H.(ED33),174 540 PO.H.(ED34),173 545 PO.H.(ED35),192 550 PO.H.(ED36),195 560 PO.H.(ED38),159 570 PO.H.(ED3A),174 580 PO.H.(ED3B),158 590 PO.H.(ED3C),173 600 PO.H.(ED45),152 610 PO.H.(ED4E),248 620 PO.H.(ED4F),248 630 PO.H.(ED51),145 640 PO.H.(ED53),155 645 PO.H.(ED54),195 650 PO.H.(ED55),155 660 PO.H.(ED56),171 670 PO.H.(ED57),172 680 PO.H.(ED58),146 690 PO.H.(ED59),160 700 PO.H.(ED5A),159 705 PO.H.(ED5B),177 710 PO.H.(ED5C),192 720 PO.H.(ED65),159 730 PO.H.(ED6D),153 740 PO.H.(ED70),150 750 PO.H.(ED71),149 760 PO.H.(ED72),159 770 PO.H.(ED73),133 780 PO.H.(ED74),160 790 PO.H.(ED75),132 800 PO.H.(ED76),144 810 PO.H.(ED77),158 815 PO.H.(ED79),223 820 PO.H.(ED7A),171 830 PO.H.(ED7B),248 840 PO.H.(ED7C),172 850 PO.H.(ED85),159 860 PO.H.(ED8D),161 870 PO.H.(ED90),248 880 PO.H.(ED91),248 890 PO.H.(ED92),152 900 PO.H.(ED93),146 910 PO.H.(ED94),149 920 PO.H.(ED95),144 923 PO.H.(ED99),213 925 PO.H.(ED9A),222 930 PO.H.(ED9B),153 940 PO.H.(EDA5),155 950 PO.H.(EDAC),246 960 PO.H.(EDAD),156 970 PO.H.(EDAF),153 980 PO.H.(EDB1),145 985 PO.H.(EDB2),248 990 PO.H.(EDB4),153 1000 PO.H.(EDBB),152 1010 PO.H.(EDC5),156 1020 PO.H.(EDCC),144 1030 PO.H.(EDCD),155 1040 PO.H.(EDCE),145 1050 PO.H.(EDD2),145 1060 PO.H.(EDD3),150 1070 PO.H.(EDD4),149 1080 PO.H.(EDD9),146 1090 PO.H.(EDDA),147 1100 PO.H.(EDD5),248 1110 PO.H.(EDD6),248 1120 PO.H.(EDD7),248 1130 PO.H.(EDD8),248 1140 PO.H.(EDE6),150 1150 PO.H.(EDE7),149 1160 PO.H.(EDE8),248 1170 PO.H.(EDE9),248 1180 PO.H.(EDEA),146 1190 PO.H.(EDEB),147 1200 PO.H.(EDED),156 1210 PO.H.(EDEF),150 1215 PO.H.(EDF0),149 1220 PO.H.(EDF1),145 1230 PO.H.(EDF3),145 1240 PO.H.(EDF5),191 1250 PO.H.(EDF6),142 1260 PO.H.(EDF8),144 1270 PO.H.(EDF9),159 1280 PO.H.(EE0E),150 1290 PO.H.(EE0F),149 1300 PO.H.(EE11),145 1310 PO.H.(EE12),145 1320 PO.H.(EE14),150 1330 PO.H.(EE15),160 1340 PO.H.(EE16),160 1350 PO.H.(EE17),147 1355 PO.H.(EE18),144 1360 PO.H.(EE30),158 1370 PO.H.(EE31),193 1380 PO.H.(EE32),158 1390 PO.H.(EE33),150 1400 PO.H.(EE34),149 1410 PO.H.(EE35),248 1420 PO.H.(EE36),146 1430 PO.H.(EE37),147 1440 PO.H.(EE4F),146 1450 PO.H.(EE50),147 1460 PO.H.(EE53),192 1470 PO.H.(EE56),150 1480 PO.H.(EE57),149 1490 PO.H.(EE6D),146 1495 PO.H.(EE6E),147 1500 PO.H.(EE73),192 1510 PO.H.(EE78),145 1520 PO.H.(EE8B),146 1530 PO.H.(EE8C),147 1535 PO.H.(EE91),30 1540 PO.H.(EE93),192 1550 PO.H.(EE94),207 1560 PO.H.(EE99),145 1570 PO.H.(EEA9),146 1580 PO.H.(EEAA),147 1585 PO.H.(EEB1),31 1590 PO.H.(EEB3),192 1595 PO.H.(EEB6),248 1600 PO.H.(EEBA),150 1610 PO.H.(EEBB),149 1620 PO.H.(EEC6),131 1630 PO.H.(EEC7),146 1640 PO.H.(EEC8),147 1645 PO.H.(EECD),248 1650 PO.H.(EED3),192 1660 PO.H.(EED4),207 1670 PO.H.(EED6),156 1680 PO.H.(EED7),145 1685 PO.H.(EED8),248 1690 PO.H.(EEDC),145 1710 PO.H.(EEE1),248 1720 PO.H.(EEE5),129 1730 PO.H.(EEE7),145 1740 PO.H.(EEEB),146 1750 PO.H.(EEEC),147 1760 PO.H.(EEED),144 1770 PO.H.(EEF3),192 1780 PO.H.(EEF7),155 1800 PO.H.(EEF9),151 1810 PO.H.(EEFA),132 1820 PO.H.(EEFC),172 1830 PO.H.(EF00),153 1840 PO.H.(EF02),150 1850 PO.H.(EF03),160 1860 PO.H.(EF04),147 1870 PO.H.(EF05),158 1880 PO.H.(EF06),155 1890 PO.H.(EF08),145 1900 PO.H.(EF09),146 1910 PO.H.(EF0A),147 1920 PO.H.(EF0C),144 1930 PO.H.(EF13),192 1940 PO.H.(EF14),207 1950 PO.H.(EF17),156 1960 PO.H.(EF18),144 1970 PO.H.(EF1B),144 1980 PO.H.(EF20),133 1990 PO.H.(EF21),149 2000 PO.H.(EF25),146 2010 PO.H.(EF26),156 2020 PO.H.(EF28),144 2030 PO.H.(EF2B),144 2031 PO.H.(EF2E),74 2032 PO.H.(EF2F),69 2033 PO.H.(EF30),82 2034 PO.H.(EF31),82 2035 PO.H.(EF32),89 2040 PO.H.(EF33),192 2050 PO.H.(EF37),192 2060 PO.H.(EF38),145 2070 PO.H.(EF3A),144 2080 PO.H.(EF41),192 2090 PO.H.(EF42),130 2100 PO.H.(EF44),192 2110 PO.H.(EF47),130 2120 PO.H.(EF48),159 2130 PO.H.(EF4A),144 2140 PO.H.(EF4B),145 2150 PO.H.(EF57),192 2160 PO.H.(EF58),192 2170 PO.H.(EF59),144 2180 PO.H.(EF61),153 2190 PO.H.(EF64),192 2200 PO.H.(EF67),144 2210 PO.H.(EF69),153 2220 PO.H.(EF6C),150 2230 PO.H.(EF6D),149 2240 PO.H.(EF6E),248 2250 PO.H.(EF6F),248 2260 PO.H.(EF70),248 2270 PO.H.(EF71),248 2280 PO.H.(EF72),248 2290 PO.H.(EF73),248 2300 PO.H.(EF74),248 2310 PO.H.(EF75),248 2320 PO.H.(EF76),248 2330 PO.H.(EF77),200 2340 PO.H.(EF78),172 2350 PO.H.(EF81),152 2360 PO.H.(EF83),144 2370 PO.H.(EF86),153 2380 PO.H.(EF89),152 2390 PO.H.(EF97),153 2400 PO.H.(EFA0),144 2410 PO.H.(EFA2),144 2420 PO.H.(EFA4),144 2430 PO.H.(EFA6),152 2440 PO.H.(EFA8),144 2450 PO.H.(EFB7),152 2460 PO.H.(EFC0),171 2470 PO.H.(EFC1),144 2480 PO.H.(EFC3),144 2490 PO.H.(EFC5),144 2520 PO.H.(EFC8),159 2530 PO.H.(EFD6),153 2540 PO.H.(EFE1),171 2550 PO.H.(EFE2),144 2560 PO.H.(EFE3),171 2570 PO.H.(EFE4),144 2610 PO.H.(EFE8),155 2620 PO.H.(EFF6),152 2630 PO.H.(EFF1),230 2640 PO.H.(EFC7),144 2650 PO.H.(EFC6),171 2660 PO.H.(EEC5),192 2670 PO.H.(EEA6),152 2680 PO.H.(EE86),153 2690 PO.H.(EE67),144 2700 PO.H.(EE48),144 2710 PO.H.(EE29),144 2720 PO.H.(EE09),192 2730 PO.H.(ECE8),156 2740 PO.H.(ECC8),155 2750 PO.H.(ECA7),145 2760 PO.H.(EC86),145 2770 PO.H.(EC65),149 2780 PO.H.(EC64),160 2790 PO.H.(EC63),160 2800 PO.H.(EC62),146 2810 PO.H.(EC81),153 2820 PO.H.(ECA1),156 2830 PO.H.(ECC2),158 2840 PO.H.(ECA2),171 2850 PO.H.(EC82),144 2860 PO.H.(EC83),158 2870 PO.H.(EC84),158 2880 PO.H.(EC85),145 2890 PO.H.(ECA6),145 2900 PO.H.(ECC7),155 2910 PO.H.(ECE7),156 2920 PO.H.(EE08),192 2930 PO.H.(EE28),144 2940 PO.H.(EE47),144 2950 PO.H.(EE66),144 2960 PO.H.(EE85),153 2970 PO.H.(EEA5),152 2980 PO.H.(EEC4),192 2990 PO.H.(EEE4),192 3000 PO.H.(EFE5),171 3010 PO.H.(EFE6),146 3020 PO.H.(EFE7),147 3025 L=0 3030 F.I=1 TO 2000 3040 N.I 3050 PO.H.(ED36),255 3060 PO.H.(ED54),255 3070 PO.H.(ED36),254 3080 PO.H.(ED54),254 3090 PO.H.(ED36),253 3100 PO.H.(ED54),253 3110 PO.H.(ED36),252 3120 PO.H.(ED54),252 3130 PO.H.(ED36),251 3140 PO.H.(ED54),251 3150 PO.H.(ED36),250 3160 PO.H.(ED54),250 3170 PO.H.(ED36),249 3180 PO.H.(ED54),249 3190 PO.H.(ED36),248 3200 PO.H.(ED54),248 3210 PO.H.(ED36),32 3220 PO.H.(ED54),32 3221 PO.H.(ED19),203 3222 F.I=1 TO 60 3223 N.I 3224 PO.H.(ECFA),203 3225 PO.H.(ED19),32 3226 F.I=1 TO 60 3227 N.I 3228 PO.H.(ECBB),203 3229 PO.H.(ECFC),203 3230 PO.H.(ECFA),32 3231 F.I=1 TO 60 3232 N.I 3233 PO.H.(EC9D),203 3234 PO.H.(ECDE),203 3235 PO.H.(ECBB),32 3236 PO.H.(ECFC),32 3237 F.I=1 TO 60 3238 N.I 3239 PO.H.(EC5F),203 3240 PO.H.(EC9F),203 3241 PO.H.(EC9D),32 3242 PO.H.(ECDE),32 3243 F.I=1 TO 60 3244 N.I 3245 PO.H.(EC5F),32 3246 PO.H.(EC9F),32 3250 PO.H.(ED36),248 3260 PO.H.(ED54),248 3270 PO.H.(ED36),249 3280 PO.H.(ED54),249 3290 PO.H.(ED36),250 3300 PO.H.(ED54),250 3310 PO.H.(ED36),251 3320 PO.H.(ED54),251 3330 PO.H.(ED36),252 3340 PO.H.(ED54),252 3350 PO.H.(ED36),253 3360 PO.H.(ED54),253 3370 PO.H.(ED36),254 3380 PO.H.(ED54),254 3390 PO.H.(ED36),195 3400 PO.H.(ED54),195 3410 L=L+1 3420 IF L>2 G.3440 3430 G.3030 3440 REM HALLO 3450 PO.H.(EDFA),79 3460 F.I=1 TO 80 3470 N.I 3480 PO.H.(EDFB),79 3490 PO.H.(EDFA),76 3500 F.I=1 TO 80 3510 N.I 3520 PO.H.(EDFC),79 3530 PO.H.(EDFB),76 3540 PO.H.(EDFA),76 3550 F.I=1 TO 80 3560 N.I 3570 PO.H.(EDFD),79 3580 PO.H.(EDFC),76 3590 PO.H.(EDFB),76 3600 PO.H.(EDFA),65 3610 F.I=1 TO 80 3620 N.I 3625 R=0 3630 PO.H.(EDFE),79 3640 PO.H.(EDFD),76 3650 PO.H.(EDFC),76 3660 PO.H.(EDFB),65 3670 PO.H.(EDFA),72 3680 R=R+1 3690 IF R>1 G.3800 3700 F.I=1 TO 500 3710 N.I 3720 PO.H.(EDFA),32 3730 PO.H.(EDFB),32 3740 PO.H.(EDFC),32 3750 PO.H.(EDFD),32 3760 PO.H.(EDFE),32 3770 F.I=1 TO 100 3780 N.I 3790 G.3630 3800 F.I=1 TO 1000 3810 N.I 3820 PO.H.(EDFF),79 3830 PO.H.(EDFE),76 3840 PO.H.(EDFD),76 3850 PO.H.(EDFC),65 3860 PO.H.(EDFB),72 3870 PO.H.(EDFA),32 3880 F.I=1 TO 80 3890 N.I 3900 PO.H.(EDFF),76 3910 PO.H.(EDFE),76 3920 PO.H.(EDFD),65 3930 PO.H.(EDFC),72 3940 PO.H.(EDFB),32 3950 F.I=1 TO 80 3960 N.I 3970 PO.H.(EDFF),76 3980 PO.H.(EDFE),65 3990 PO.H.(EDFD),72 4000 PO.H.(EDFC),32 4010 F.I=1 TO 80 4020 N.I 4030 PO.H.(EDFF),65 4040 PO.H.(EDFE),72 4050 PO.H.(EDFD),32 4060 F.I=1 TO 80 4070 N.I 4080 PO.H.(EDFF),72 4090 PO.H.(EDFE),32 4100 F.I=1 TO 80 4110 N.I 4120 PO.H.(EDFF),32 4130 L=0 4140 G.3050 5 CLS 10 POKE &HEC0C,146 20 POKE &HEC0D,160 30 POKE &HEC0E,160 40 POKE &HEC0F,149 50 POKE &HEC2A,146 60 POKE &HEC2B,147 70 POKE &HEC30,145 80 POKE &HEC49,153 90 POKE &HEC51,155 100 POKE &HEC69,152 110 POKE &HEC71,161 120 POKE &HEC89,159 130 POKE &HEC91,152 140 POKE &HECA9,159 150 POKE &HECB0,144 160 POKE &HECB1,158 170 POKE &HECB2,158 180 POKE &HECB3,158 190 POKE &HECB4,150 200 POKE &HECB5,149 210 POKE &HECC9,145 220 POKE &HECD2,146 230 POKE &HECD3,160 240 POKE &HECD4,149 250 POKE &HECD5,174 260 POKE &HECD6,145 270 POKE &HECEA,150 280 POKE &HECEB,149 290 POKE &HECEC,248 300 POKE &HECED,248 310 POKE &HECF1,153 320 POKE &HECF3,146 330 POKE &HECF4,135 340 POKE &HECF5,134 350 POKE &HECF6,147 360 POKE &HECF7,145 370 POKE &HED06,146 380 POKE &HED07,147 390 POKE &HED08,158 400 POKE &HED09,158 410 POKE &HED0A,150 420 POKE &HED0B,149 430 POKE &HED0D,174 440 POKE &HED11,152 450 POKE &HED12,144 460 POKE &HED16,174 470 POKE &HED17,173 480 POKE &HED18,159 490 POKE &HED25,153 500 POKE &HED2C,145 510 POKE &HED2D,159 520 POKE &HED31,159 530 POKE &HED33,174 540 POKE &HED34,173 545 POKE &HED35,192 550 POKE &HED36,195 560 POKE &HED38,159 570 POKE &HED3A,174 580 POKE &HED3B,158 590 POKE &HED3C,173 600 POKE &HED45,152 610 POKE &HED4E,248 620 POKE &HED4F,248 630 POKE &HED51,145 640 POKE &HED53,155 645 POKE &HED54,195 650 POKE &HED55,155 660 POKE &HED56,171 670 POKE &HED57,172 680 POKE &HED58,146 690 POKE &HED59,160 700 POKE &HED5A,159 705 POKE &HED5B,177 710 POKE &HED5C,192 720 POKE &HED65,159 730 POKE &HED6D,153 740 POKE &HED70,150 750 POKE &HED71,149 760 POKE &HED72,159 770 POKE &HED73,133 780 POKE &HED74,160 790 POKE &HED75,132 800 POKE &HED76,144 810 POKE &HED77,158 815 POKE &HED79,223 820 POKE &HED7A,171 830 POKE &HED7B,248 840 POKE &HED7C,172 850 POKE &HED85,159 860 POKE &HED8D,161 870 POKE &HED90,248 880 POKE &HED91,248 890 POKE &HED92,152 900 POKE &HED93,146 910 POKE &HED94,149 920 POKE &HED95,144 923 POKE &HED99,213 925 POKE &HED9A,222 930 POKE &HED9B,153 940 POKE &HEDA5,155 950 POKE &HEDAC,246 960 POKE &HEDAD,156 970 POKE &HEDAF,153 980 POKE &HEDB1,145 985 POKE &HEDB2,248 990 POKE &HEDB4,153 1000 POKE &HEDBB,152 1010 POKE &HEDC5,156 1020 POKE &HEDCC,144 1030 POKE &HEDCD,155 1040 POKE &HEDCE,145 1050 POKE &HEDD2,145 1060 POKE &HEDD3,150 1070 POKE &HEDD4,149 1080 POKE &HEDD9,146 1090 POKE &HEDDA,147 1100 POKE &HEDD5,248 1110 POKE &HEDD6,248 1120 POKE &HEDD7,248 1130 POKE &HEDD8,248 1140 POKE &HEDE6,150 1150 POKE &HEDE7,149 1160 POKE &HEDE8,248 1170 POKE &HEDE9,248 1180 POKE &HEDEA,146 1190 POKE &HEDEB,147 1200 POKE &HEDED,156 1210 POKE &HEDEF,150 1215 POKE &HEDF0,149 1220 POKE &HEDF1,145 1230 POKE &HEDF3,145 1240 POKE &HEDF5,191 1250 POKE &HEDF6,142 1260 POKE &HEDF8,144 1270 POKE &HEDF9,159 1280 POKE &HEE0E,150 1290 POKE &HEE0F,149 1300 POKE &HEE11,145 1310 POKE &HEE12,145 1320 POKE &HEE14,150 1330 POKE &HEE15,160 1340 POKE &HEE16,160 1350 POKE &HEE17,147 1355 POKE &HEE18,144 1360 POKE &HEE30,158 1370 POKE &HEE31,193 1380 POKE &HEE32,158 1390 POKE &HEE33,150 1400 POKE &HEE34,149 1410 POKE &HEE35,248 1420 POKE &HEE36,146 1430 POKE &HEE37,147 1440 POKE &HEE4F,146 1450 POKE &HEE50,147 1460 POKE &HEE53,192 1470 POKE &HEE56,150 1480 POKE &HEE57,149 1490 POKE &HEE6D,146 1495 POKE &HEE6E,147 1500 POKE &HEE73,192 1510 POKE &HEE78,145 1520 POKE &HEE8B,146 1530 POKE &HEE8C,147 1535 POKE &HEE91,30 1540 POKE &HEE93,192 1550 POKE &HEE94,207 1560 POKE &HEE99,145 1570 POKE &HEEA9,146 1580 POKE &HEEAA,147 1585 POKE &HEEB1,31 1590 POKE &HEEB3,192 1595 POKE &HEEB6,248 1600 POKE &HEEBA,150 1610 POKE &HEEBB,149 1620 POKE &HEEC6,131 1630 POKE &HEEC7,146 1640 POKE &HEEC8,147 1645 POKE &HEECD,248 1650 POKE &HEED3,192 1660 POKE &HEED4,207 1670 POKE &HEED6,156 1680 POKE &HEED7,145 1685 POKE &HEED8,248 1690 POKE &HEEDC,145 1710 POKE &HEEE1,248 1720 POKE &HEEE5,129 1730 POKE &HEEE7,145 1740 POKE &HEEEB,146 1750 POKE &HEEEC,147 1760 POKE &HEEED,144 1770 POKE &HEEF3,192 1780 POKE &HEEF7,155 1800 POKE &HEEF9,151 1810 POKE &HEEFA,132 1820 POKE &HEEFC,172 1830 POKE &HEF00,153 1840 POKE &HEF02,150 1850 POKE &HEF03,160 1860 POKE &HEF04,147 1870 POKE &HEF05,158 1880 POKE &HEF06,155 1890 POKE &HEF08,145 1900 POKE &HEF09,146 1910 POKE &HEF0A,147 1920 POKE &HEF0C,144 1930 POKE &HEF13,192 1940 POKE &HEF14,207 1950 POKE &HEF17,156 1960 POKE &HEF18,144 1970 POKE &HEF1B,144 1980 POKE &HEF20,133 1990 POKE &HEF21,149 2000 POKE &HEF25,146 2010 POKE &HEF26,156 2020 POKE &HEF28,144 2030 POKE &HEF2B,144 2031 POKE &HEF2E,74 2032 POKE &HEF2F,69 2033 POKE &HEF30,82 2034 POKE &HEF31,82 2035 POKE &HEF32,89 2040 POKE &HEF33,192 2050 POKE &HEF37,192 2060 POKE &HEF38,145 2070 POKE &HEF3A,144 2080 POKE &HEF41,192 2090 POKE &HEF42,130 2100 POKE &HEF44,192 2110 POKE &HEF47,130 2120 POKE &HEF48,159 2130 POKE &HEF4A,144 2140 POKE &HEF4B,145 2150 POKE &HEF57,192 2160 POKE &HEF58,192 2170 POKE &HEF59,144 2180 POKE &HEF61,153 2190 POKE &HEF64,192 2200 POKE &HEF67,144 2210 POKE &HEF69,153 2220 POKE &HEF6C,150 2230 POKE &HEF6D,149 2240 POKE &HEF6E,248 2250 POKE &HEF6F,248 2260 POKE &HEF70,248 2270 POKE &HEF71,248 2280 POKE &HEF72,248 2290 POKE &HEF73,248 2300 POKE &HEF74,248 2310 POKE &HEF75,248 2320 POKE &HEF76,248 2330 POKE &HEF77,200 2340 POKE &HEF78,172 2350 POKE &HEF81,152 2360 POKE &HEF83,144 2370 POKE &HEF86,153 2380 POKE &HEF89,152 2390 POKE &HEF97,153 2400 POKE &HEFA0,144 2410 POKE &HEFA2,144 2420 POKE &HEFA4,144 2430 POKE &HEFA6,152 2440 POKE &HEFA8,144 2450 POKE &HEFB7,152 2460 POKE &HEFC0,171 2470 POKE &HEFC1,144 2480 POKE &HEFC3,144 2490 POKE &HEFC5,144 2520 POKE &HEFC8,159 2530 POKE &HEFD6,153 2540 POKE &HEFE1,171 2550 POKE &HEFE2,144 2560 POKE &HEFE3,171 2570 POKE &HEFE4,144 2610 POKE &HEFE8,155 2620 POKE &HEFF6,152 2630 POKE &HEFF1,230 2640 POKE &HEFC7,144 2650 POKE &HEFC6,171 2660 POKE &HEEC5,192 2670 POKE &HEEA6,152 2680 POKE &HEE86,153 2690 POKE &HEE67,144 2700 POKE &HEE48,144 2710 POKE &HEE29,144 2720 POKE &HEE09,192 2730 POKE &HECE8,156 2740 POKE &HECC8,155 2750 POKE &HECA7,145 2760 POKE &HEC86,145 2770 POKE &HEC65,149 2780 POKE &HEC64,160 2790 POKE &HEC63,160 2800 POKE &HEC62,146 2810 POKE &HEC81,153 2820 POKE &HECA1,156 2830 POKE &HECC2,158 2840 POKE &HECA2,171 2850 POKE &HEC82,144 2860 POKE &HEC83,158 2870 POKE &HEC84,158 2880 POKE &HEC85,145 2890 POKE &HECA6,145 2900 POKE &HECC7,155 2910 POKE &HECE7,156 2920 POKE &HEE08,192 2930 POKE &HEE28,144 2940 POKE &HEE47,144 2950 POKE &HEE66,144 2960 POKE &HEE85,153 2970 POKE &HEEA5,152 2980 POKE &HEEC4,192 2990 POKE &HEEE4,192 3000 POKE &HEFE5,171 3010 POKE &HEFE6,146 3020 POKE &HEFE7,147 3025 L=0 3030 FOR I=1 TO 2000 3040 NEXT I 3050 POKE &HED36,255 3060 POKE &HED54,255 3070 POKE &HED36,254 3080 POKE &HED54,254 3090 POKE &HED36,253 3100 POKE &HED54,253 3110 POKE &HED36,252 3120 POKE &HED54,252 3130 POKE &HED36,251 3140 POKE &HED54,251 3150 POKE &HED36,250 3160 POKE &HED54,250 3170 POKE &HED36,249 3180 POKE &HED54,249 3190 POKE &HED36,248 3200 POKE &HED54,248 3210 POKE &HED36,32 3220 POKE &HED54,32 3221 POKE &HED19,203 3222 FOR I=1 TO 60 3223 NEXT I 3224 POKE &HECFA,203 3225 POKE &HED19,32 3226 FOR I=1 TO 60 3227 NEXT I 3228 POKE &HECBB,203 3229 POKE &HECFC,203 3230 POKE &HECFA,32 3231 FOR I=1 TO 60 3232 NEXT I 3233 POKE &HEC9D,203 3234 POKE &HECDE,203 3235 POKE &HECBB,32 3236 POKE &HECFC,32 3237 FOR I=1 TO 60 3238 NEXT I 3239 POKE &HEC5F,203 3240 POKE &HEC9F,203 3241 POKE &HEC9D,32 3242 POKE &HECDE,32 3243 FOR I=1 TO 60 3244 NEXT I 3245 POKE &HEC5F,32 3246 POKE &HEC9F,32 3250 POKE &HED36,248 3260 POKE &HED54,248 3270 POKE &HED36,249 3280 POKE &HED54,249 3290 POKE &HED36,250 3300 POKE &HED54,250 3310 POKE &HED36,251 3320 POKE &HED54,251 3330 POKE &HED36,252 3340 POKE &HED54,252 3350 POKE &HED36,253 3360 POKE &HED54,253 3370 POKE &HED36,254 3380 POKE &HED54,254 3390 POKE &HED36,195 3400 POKE &HED54,195 3410 L=L+1 3420 IF L>2 THEN 3440 3430 GOTO 3030 3440 REM HALLO 3450 POKE &HEDFA,79 3460 FOR I=1 TO 80 3470 NEXT I 3480 POKE &HEDFB,79 3490 POKE &HEDFA,76 3500 FOR I=1 TO 80 3510 NEXT I 3520 POKE &HEDFC,79 3530 POKE &HEDFB,76 3540 POKE &HEDFA,76 3550 FOR I=1 TO 80 3560 NEXT I 3570 POKE &HEDFD,79 3580 POKE &HEDFC,76 3590 POKE &HEDFB,76 3600 POKE &HEDFA,65 3610 FOR I=1 TO 80 3620 NEXT I 3625 R=0 3630 POKE &HEDFE,79 3640 POKE &HEDFD,76 3650 POKE &HEDFC,76 3660 POKE &HEDFB,65 3670 POKE &HEDFA,72 3680 R=R+1 3690 IF R>1 THEN 3800 3700 FOR I=1 TO 500 3710 NEXT I 3720 POKE &HEDFA,32 3730 POKE &HEDFB,32 3740 POKE &HEDFC,32 3750 POKE &HEDFD,32 3760 POKE &HEDFE,32 3770 FOR I=1 TO 100 3780 NEXT I 3790 GOTO 3630 3800 FOR I=1 TO 1000 3810 NEXT I 3820 POKE &HEDFF,79 3830 POKE &HEDFE,76 3840 POKE &HEDFD,76 3850 POKE &HEDFC,65 3860 POKE &HEDFB,72 3870 POKE &HEDFA,32 3880 FOR I=1 TO 80 3890 NEXT I 3900 POKE &HEDFF,76 3910 POKE &HEDFE,76 3920 POKE &HEDFD,65 3930 POKE &HEDFC,72 3940 POKE &HEDFB,32 3950 FOR I=1 TO 80 3960 NEXT I 3970 POKE &HEDFF,76 3980 POKE &HEDFE,65 3990 POKE &HEDFD,72 4000 POKE &HEDFC,32 4010 FOR I=1 TO 80 4020 NEXT I 4030 POKE &HEDFF,65 4040 POKE &HEDFE,72 4050 POKE &HEDFD,32 4060 FOR I=1 TO 80 4070 NEXT I 4080 POKE &HEDFF,72 4090 POKE &HEDFE,32 4100 FOR I=1 TO 80 4110 NEXT I 4120 POKE &HEDFF,32 4130 L=0 4140 GOTO 3050

Version für Z1013-BASIC-Interpreter	Version für JKCEMU-BASIC-Compiler
5 OUTC.12 10 PO.H.(EC0C),146 20 PO.H.(EC0D),160 30 PO.H.(EC0E),160 40 PO.H.(EC0F),149 50 PO.H.(EC2A),146 60 PO.H.(EC2B),147 70 PO.H.(EC30),145 80 PO.H.(EC49),153 90 PO.H.(EC51),155 100 PO.H.(EC69),152 110 PO.H.(EC71),161 120 PO.H.(EC89),159 130 PO.H.(EC91),152 140 PO.H.(ECA9),159 150 PO.H.(ECB0),144 160 PO.H.(ECB1),158 170 PO.H.(ECB2),158 180 PO.H.(ECB3),158 190 PO.H.(ECB4),150 200 PO.H.(ECB5),149 210 PO.H.(ECC9),145 220 PO.H.(ECD2),146 230 PO.H.(ECD3),160 240 PO.H.(ECD4),149 250 PO.H.(ECD5),174 260 PO.H.(ECD6),145 270 PO.H.(ECEA),150 280 PO.H.(ECEB),149 290 PO.H.(ECEC),248 300 PO.H.(ECED),248 310 PO.H.(ECF1),153 320 PO.H.(ECF3),146 330 PO.H.(ECF4),135 340 PO.H.(ECF5),134 350 PO.H.(ECF6),147 360 PO.H.(ECF7),145 370 PO.H.(ED06),146 380 PO.H.(ED07),147 390 PO.H.(ED08),158 400 PO.H.(ED09),158 410 PO.H.(ED0A),150 420 PO.H.(ED0B),149 430 PO.H.(ED0D),174 440 PO.H.(ED11),152 450 PO.H.(ED12),144 460 PO.H.(ED16),174 470 PO.H.(ED17),173 480 PO.H.(ED18),159 490 PO.H.(ED25),153 500 PO.H.(ED2C),145 510 PO.H.(ED2D),159 520 PO.H.(ED31),159 530 PO.H.(ED33),174 540 PO.H.(ED34),173 545 PO.H.(ED35),192 550 PO.H.(ED36),195 560 PO.H.(ED38),159 570 PO.H.(ED3A),174 580 PO.H.(ED3B),158 590 PO.H.(ED3C),173 600 PO.H.(ED45),152 610 PO.H.(ED4E),248 620 PO.H.(ED4F),248 630 PO.H.(ED51),145 640 PO.H.(ED53),155 645 PO.H.(ED54),195 650 PO.H.(ED55),155 660 PO.H.(ED56),171 670 PO.H.(ED57),172 680 PO.H.(ED58),146 690 PO.H.(ED59),160 700 PO.H.(ED5A),159 705 PO.H.(ED5B),177 710 PO.H.(ED5C),192 720 PO.H.(ED65),159 730 PO.H.(ED6D),153 740 PO.H.(ED70),150 750 PO.H.(ED71),149 760 PO.H.(ED72),159 770 PO.H.(ED73),133 780 PO.H.(ED74),160 790 PO.H.(ED75),132 800 PO.H.(ED76),144 810 PO.H.(ED77),158 815 PO.H.(ED79),223 820 PO.H.(ED7A),171 830 PO.H.(ED7B),248 840 PO.H.(ED7C),172 850 PO.H.(ED85),159 860 PO.H.(ED8D),161 870 PO.H.(ED90),248 880 PO.H.(ED91),248 890 PO.H.(ED92),152 900 PO.H.(ED93),146 910 PO.H.(ED94),149 920 PO.H.(ED95),144 923 PO.H.(ED99),213 925 PO.H.(ED9A),222 930 PO.H.(ED9B),153 940 PO.H.(EDA5),155 950 PO.H.(EDAC),246 960 PO.H.(EDAD),156 970 PO.H.(EDAF),153 980 PO.H.(EDB1),145 985 PO.H.(EDB2),248 990 PO.H.(EDB4),153 1000 PO.H.(EDBB),152 1010 PO.H.(EDC5),156 1020 PO.H.(EDCC),144 1030 PO.H.(EDCD),155 1040 PO.H.(EDCE),145 1050 PO.H.(EDD2),145 1060 PO.H.(EDD3),150 1070 PO.H.(EDD4),149 1080 PO.H.(EDD9),146 1090 PO.H.(EDDA),147 1100 PO.H.(EDD5),248 1110 PO.H.(EDD6),248 1120 PO.H.(EDD7),248 1130 PO.H.(EDD8),248 1140 PO.H.(EDE6),150 1150 PO.H.(EDE7),149 1160 PO.H.(EDE8),248 1170 PO.H.(EDE9),248 1180 PO.H.(EDEA),146 1190 PO.H.(EDEB),147 1200 PO.H.(EDED),156 1210 PO.H.(EDEF),150 1215 PO.H.(EDF0),149 1220 PO.H.(EDF1),145 1230 PO.H.(EDF3),145 1240 PO.H.(EDF5),191 1250 PO.H.(EDF6),142 1260 PO.H.(EDF8),144 1270 PO.H.(EDF9),159 1280 PO.H.(EE0E),150 1290 PO.H.(EE0F),149 1300 PO.H.(EE11),145 1310 PO.H.(EE12),145 1320 PO.H.(EE14),150 1330 PO.H.(EE15),160 1340 PO.H.(EE16),160 1350 PO.H.(EE17),147 1355 PO.H.(EE18),144 1360 PO.H.(EE30),158 1370 PO.H.(EE31),193 1380 PO.H.(EE32),158 1390 PO.H.(EE33),150 1400 PO.H.(EE34),149 1410 PO.H.(EE35),248 1420 PO.H.(EE36),146 1430 PO.H.(EE37),147 1440 PO.H.(EE4F),146 1450 PO.H.(EE50),147 1460 PO.H.(EE53),192 1470 PO.H.(EE56),150 1480 PO.H.(EE57),149 1490 PO.H.(EE6D),146 1495 PO.H.(EE6E),147 1500 PO.H.(EE73),192 1510 PO.H.(EE78),145 1520 PO.H.(EE8B),146 1530 PO.H.(EE8C),147 1535 PO.H.(EE91),30 1540 PO.H.(EE93),192 1550 PO.H.(EE94),207 1560 PO.H.(EE99),145 1570 PO.H.(EEA9),146 1580 PO.H.(EEAA),147 1585 PO.H.(EEB1),31 1590 PO.H.(EEB3),192 1595 PO.H.(EEB6),248 1600 PO.H.(EEBA),150 1610 PO.H.(EEBB),149 1620 PO.H.(EEC6),131 1630 PO.H.(EEC7),146 1640 PO.H.(EEC8),147 1645 PO.H.(EECD),248 1650 PO.H.(EED3),192 1660 PO.H.(EED4),207 1670 PO.H.(EED6),156 1680 PO.H.(EED7),145 1685 PO.H.(EED8),248 1690 PO.H.(EEDC),145 1710 PO.H.(EEE1),248 1720 PO.H.(EEE5),129 1730 PO.H.(EEE7),145 1740 PO.H.(EEEB),146 1750 PO.H.(EEEC),147 1760 PO.H.(EEED),144 1770 PO.H.(EEF3),192 1780 PO.H.(EEF7),155 1800 PO.H.(EEF9),151 1810 PO.H.(EEFA),132 1820 PO.H.(EEFC),172 1830 PO.H.(EF00),153 1840 PO.H.(EF02),150 1850 PO.H.(EF03),160 1860 PO.H.(EF04),147 1870 PO.H.(EF05),158 1880 PO.H.(EF06),155 1890 PO.H.(EF08),145 1900 PO.H.(EF09),146 1910 PO.H.(EF0A),147 1920 PO.H.(EF0C),144 1930 PO.H.(EF13),192 1940 PO.H.(EF14),207 1950 PO.H.(EF17),156 1960 PO.H.(EF18),144 1970 PO.H.(EF1B),144 1980 PO.H.(EF20),133 1990 PO.H.(EF21),149 2000 PO.H.(EF25),146 2010 PO.H.(EF26),156 2020 PO.H.(EF28),144 2030 PO.H.(EF2B),144 2031 PO.H.(EF2E),74 2032 PO.H.(EF2F),69 2033 PO.H.(EF30),82 2034 PO.H.(EF31),82 2035 PO.H.(EF32),89 2040 PO.H.(EF33),192 2050 PO.H.(EF37),192 2060 PO.H.(EF38),145 2070 PO.H.(EF3A),144 2080 PO.H.(EF41),192 2090 PO.H.(EF42),130 2100 PO.H.(EF44),192 2110 PO.H.(EF47),130 2120 PO.H.(EF48),159 2130 PO.H.(EF4A),144 2140 PO.H.(EF4B),145 2150 PO.H.(EF57),192 2160 PO.H.(EF58),192 2170 PO.H.(EF59),144 2180 PO.H.(EF61),153 2190 PO.H.(EF64),192 2200 PO.H.(EF67),144 2210 PO.H.(EF69),153 2220 PO.H.(EF6C),150 2230 PO.H.(EF6D),149 2240 PO.H.(EF6E),248 2250 PO.H.(EF6F),248 2260 PO.H.(EF70),248 2270 PO.H.(EF71),248 2280 PO.H.(EF72),248 2290 PO.H.(EF73),248 2300 PO.H.(EF74),248 2310 PO.H.(EF75),248 2320 PO.H.(EF76),248 2330 PO.H.(EF77),200 2340 PO.H.(EF78),172 2350 PO.H.(EF81),152 2360 PO.H.(EF83),144 2370 PO.H.(EF86),153 2380 PO.H.(EF89),152 2390 PO.H.(EF97),153 2400 PO.H.(EFA0),144 2410 PO.H.(EFA2),144 2420 PO.H.(EFA4),144 2430 PO.H.(EFA6),152 2440 PO.H.(EFA8),144 2450 PO.H.(EFB7),152 2460 PO.H.(EFC0),171 2470 PO.H.(EFC1),144 2480 PO.H.(EFC3),144 2490 PO.H.(EFC5),144 2520 PO.H.(EFC8),159 2530 PO.H.(EFD6),153 2540 PO.H.(EFE1),171 2550 PO.H.(EFE2),144 2560 PO.H.(EFE3),171 2570 PO.H.(EFE4),144 2610 PO.H.(EFE8),155 2620 PO.H.(EFF6),152 2630 PO.H.(EFF1),230 2640 PO.H.(EFC7),144 2650 PO.H.(EFC6),171 2660 PO.H.(EEC5),192 2670 PO.H.(EEA6),152 2680 PO.H.(EE86),153 2690 PO.H.(EE67),144 2700 PO.H.(EE48),144 2710 PO.H.(EE29),144 2720 PO.H.(EE09),192 2730 PO.H.(ECE8),156 2740 PO.H.(ECC8),155 2750 PO.H.(ECA7),145 2760 PO.H.(EC86),145 2770 PO.H.(EC65),149 2780 PO.H.(EC64),160 2790 PO.H.(EC63),160 2800 PO.H.(EC62),146 2810 PO.H.(EC81),153 2820 PO.H.(ECA1),156 2830 PO.H.(ECC2),158 2840 PO.H.(ECA2),171 2850 PO.H.(EC82),144 2860 PO.H.(EC83),158 2870 PO.H.(EC84),158 2880 PO.H.(EC85),145 2890 PO.H.(ECA6),145 2900 PO.H.(ECC7),155 2910 PO.H.(ECE7),156 2920 PO.H.(EE08),192 2930 PO.H.(EE28),144 2940 PO.H.(EE47),144 2950 PO.H.(EE66),144 2960 PO.H.(EE85),153 2970 PO.H.(EEA5),152 2980 PO.H.(EEC4),192 2990 PO.H.(EEE4),192 3000 PO.H.(EFE5),171 3010 PO.H.(EFE6),146 3020 PO.H.(EFE7),147 3025 L=0 3030 F.I=1 TO 2000 3040 N.I 3050 PO.H.(ED36),255 3060 PO.H.(ED54),255 3070 PO.H.(ED36),254 3080 PO.H.(ED54),254 3090 PO.H.(ED36),253 3100 PO.H.(ED54),253 3110 PO.H.(ED36),252 3120 PO.H.(ED54),252 3130 PO.H.(ED36),251 3140 PO.H.(ED54),251 3150 PO.H.(ED36),250 3160 PO.H.(ED54),250 3170 PO.H.(ED36),249 3180 PO.H.(ED54),249 3190 PO.H.(ED36),248 3200 PO.H.(ED54),248 3210 PO.H.(ED36),32 3220 PO.H.(ED54),32 3221 PO.H.(ED19),203 3222 F.I=1 TO 60 3223 N.I 3224 PO.H.(ECFA),203 3225 PO.H.(ED19),32 3226 F.I=1 TO 60 3227 N.I 3228 PO.H.(ECBB),203 3229 PO.H.(ECFC),203 3230 PO.H.(ECFA),32 3231 F.I=1 TO 60 3232 N.I 3233 PO.H.(EC9D),203 3234 PO.H.(ECDE),203 3235 PO.H.(ECBB),32 3236 PO.H.(ECFC),32 3237 F.I=1 TO 60 3238 N.I 3239 PO.H.(EC5F),203 3240 PO.H.(EC9F),203 3241 PO.H.(EC9D),32 3242 PO.H.(ECDE),32 3243 F.I=1 TO 60 3244 N.I 3245 PO.H.(EC5F),32 3246 PO.H.(EC9F),32 3250 PO.H.(ED36),248 3260 PO.H.(ED54),248 3270 PO.H.(ED36),249 3280 PO.H.(ED54),249 3290 PO.H.(ED36),250 3300 PO.H.(ED54),250 3310 PO.H.(ED36),251 3320 PO.H.(ED54),251 3330 PO.H.(ED36),252 3340 PO.H.(ED54),252 3350 PO.H.(ED36),253 3360 PO.H.(ED54),253 3370 PO.H.(ED36),254 3380 PO.H.(ED54),254 3390 PO.H.(ED36),195 3400 PO.H.(ED54),195 3410 L=L+1 3420 IF L>2 G.3440 3430 G.3030 3440 REM HALLO 3450 PO.H.(EDFA),79 3460 F.I=1 TO 80 3470 N.I 3480 PO.H.(EDFB),79 3490 PO.H.(EDFA),76 3500 F.I=1 TO 80 3510 N.I 3520 PO.H.(EDFC),79 3530 PO.H.(EDFB),76 3540 PO.H.(EDFA),76 3550 F.I=1 TO 80 3560 N.I 3570 PO.H.(EDFD),79 3580 PO.H.(EDFC),76 3590 PO.H.(EDFB),76 3600 PO.H.(EDFA),65 3610 F.I=1 TO 80 3620 N.I 3625 R=0 3630 PO.H.(EDFE),79 3640 PO.H.(EDFD),76 3650 PO.H.(EDFC),76 3660 PO.H.(EDFB),65 3670 PO.H.(EDFA),72 3680 R=R+1 3690 IF R>1 G.3800 3700 F.I=1 TO 500 3710 N.I 3720 PO.H.(EDFA),32 3730 PO.H.(EDFB),32 3740 PO.H.(EDFC),32 3750 PO.H.(EDFD),32 3760 PO.H.(EDFE),32 3770 F.I=1 TO 100 3780 N.I 3790 G.3630 3800 F.I=1 TO 1000 3810 N.I 3820 PO.H.(EDFF),79 3830 PO.H.(EDFE),76 3840 PO.H.(EDFD),76 3850 PO.H.(EDFC),65 3860 PO.H.(EDFB),72 3870 PO.H.(EDFA),32 3880 F.I=1 TO 80 3890 N.I 3900 PO.H.(EDFF),76 3910 PO.H.(EDFE),76 3920 PO.H.(EDFD),65 3930 PO.H.(EDFC),72 3940 PO.H.(EDFB),32 3950 F.I=1 TO 80 3960 N.I 3970 PO.H.(EDFF),76 3980 PO.H.(EDFE),65 3990 PO.H.(EDFD),72 4000 PO.H.(EDFC),32 4010 F.I=1 TO 80 4020 N.I 4030 PO.H.(EDFF),65 4040 PO.H.(EDFE),72 4050 PO.H.(EDFD),32 4060 F.I=1 TO 80 4070 N.I 4080 PO.H.(EDFF),72 4090 PO.H.(EDFE),32 4100 F.I=1 TO 80 4110 N.I 4120 PO.H.(EDFF),32 4130 L=0 4140 G.3050	5 CLS 10 POKE &HEC0C,146 20 POKE &HEC0D,160 30 POKE &HEC0E,160 40 POKE &HEC0F,149 50 POKE &HEC2A,146 60 POKE &HEC2B,147 70 POKE &HEC30,145 80 POKE &HEC49,153 90 POKE &HEC51,155 100 POKE &HEC69,152 110 POKE &HEC71,161 120 POKE &HEC89,159 130 POKE &HEC91,152 140 POKE &HECA9,159 150 POKE &HECB0,144 160 POKE &HECB1,158 170 POKE &HECB2,158 180 POKE &HECB3,158 190 POKE &HECB4,150 200 POKE &HECB5,149 210 POKE &HECC9,145 220 POKE &HECD2,146 230 POKE &HECD3,160 240 POKE &HECD4,149 250 POKE &HECD5,174 260 POKE &HECD6,145 270 POKE &HECEA,150 280 POKE &HECEB,149 290 POKE &HECEC,248 300 POKE &HECED,248 310 POKE &HECF1,153 320 POKE &HECF3,146 330 POKE &HECF4,135 340 POKE &HECF5,134 350 POKE &HECF6,147 360 POKE &HECF7,145 370 POKE &HED06,146 380 POKE &HED07,147 390 POKE &HED08,158 400 POKE &HED09,158 410 POKE &HED0A,150 420 POKE &HED0B,149 430 POKE &HED0D,174 440 POKE &HED11,152 450 POKE &HED12,144 460 POKE &HED16,174 470 POKE &HED17,173 480 POKE &HED18,159 490 POKE &HED25,153 500 POKE &HED2C,145 510 POKE &HED2D,159 520 POKE &HED31,159 530 POKE &HED33,174 540 POKE &HED34,173 545 POKE &HED35,192 550 POKE &HED36,195 560 POKE &HED38,159 570 POKE &HED3A,174 580 POKE &HED3B,158 590 POKE &HED3C,173 600 POKE &HED45,152 610 POKE &HED4E,248 620 POKE &HED4F,248 630 POKE &HED51,145 640 POKE &HED53,155 645 POKE &HED54,195 650 POKE &HED55,155 660 POKE &HED56,171 670 POKE &HED57,172 680 POKE &HED58,146 690 POKE &HED59,160 700 POKE &HED5A,159 705 POKE &HED5B,177 710 POKE &HED5C,192 720 POKE &HED65,159 730 POKE &HED6D,153 740 POKE &HED70,150 750 POKE &HED71,149 760 POKE &HED72,159 770 POKE &HED73,133 780 POKE &HED74,160 790 POKE &HED75,132 800 POKE &HED76,144 810 POKE &HED77,158 815 POKE &HED79,223 820 POKE &HED7A,171 830 POKE &HED7B,248 840 POKE &HED7C,172 850 POKE &HED85,159 860 POKE &HED8D,161 870 POKE &HED90,248 880 POKE &HED91,248 890 POKE &HED92,152 900 POKE &HED93,146 910 POKE &HED94,149 920 POKE &HED95,144 923 POKE &HED99,213 925 POKE &HED9A,222 930 POKE &HED9B,153 940 POKE &HEDA5,155 950 POKE &HEDAC,246 960 POKE &HEDAD,156 970 POKE &HEDAF,153 980 POKE &HEDB1,145 985 POKE &HEDB2,248 990 POKE &HEDB4,153 1000 POKE &HEDBB,152 1010 POKE &HEDC5,156 1020 POKE &HEDCC,144 1030 POKE &HEDCD,155 1040 POKE &HEDCE,145 1050 POKE &HEDD2,145 1060 POKE &HEDD3,150 1070 POKE &HEDD4,149 1080 POKE &HEDD9,146 1090 POKE &HEDDA,147 1100 POKE &HEDD5,248 1110 POKE &HEDD6,248 1120 POKE &HEDD7,248 1130 POKE &HEDD8,248 1140 POKE &HEDE6,150 1150 POKE &HEDE7,149 1160 POKE &HEDE8,248 1170 POKE &HEDE9,248 1180 POKE &HEDEA,146 1190 POKE &HEDEB,147 1200 POKE &HEDED,156 1210 POKE &HEDEF,150 1215 POKE &HEDF0,149 1220 POKE &HEDF1,145 1230 POKE &HEDF3,145 1240 POKE &HEDF5,191 1250 POKE &HEDF6,142 1260 POKE &HEDF8,144 1270 POKE &HEDF9,159 1280 POKE &HEE0E,150 1290 POKE &HEE0F,149 1300 POKE &HEE11,145 1310 POKE &HEE12,145 1320 POKE &HEE14,150 1330 POKE &HEE15,160 1340 POKE &HEE16,160 1350 POKE &HEE17,147 1355 POKE &HEE18,144 1360 POKE &HEE30,158 1370 POKE &HEE31,193 1380 POKE &HEE32,158 1390 POKE &HEE33,150 1400 POKE &HEE34,149 1410 POKE &HEE35,248 1420 POKE &HEE36,146 1430 POKE &HEE37,147 1440 POKE &HEE4F,146 1450 POKE &HEE50,147 1460 POKE &HEE53,192 1470 POKE &HEE56,150 1480 POKE &HEE57,149 1490 POKE &HEE6D,146 1495 POKE &HEE6E,147 1500 POKE &HEE73,192 1510 POKE &HEE78,145 1520 POKE &HEE8B,146 1530 POKE &HEE8C,147 1535 POKE &HEE91,30 1540 POKE &HEE93,192 1550 POKE &HEE94,207 1560 POKE &HEE99,145 1570 POKE &HEEA9,146 1580 POKE &HEEAA,147 1585 POKE &HEEB1,31 1590 POKE &HEEB3,192 1595 POKE &HEEB6,248 1600 POKE &HEEBA,150 1610 POKE &HEEBB,149 1620 POKE &HEEC6,131 1630 POKE &HEEC7,146 1640 POKE &HEEC8,147 1645 POKE &HEECD,248 1650 POKE &HEED3,192 1660 POKE &HEED4,207 1670 POKE &HEED6,156 1680 POKE &HEED7,145 1685 POKE &HEED8,248 1690 POKE &HEEDC,145 1710 POKE &HEEE1,248 1720 POKE &HEEE5,129 1730 POKE &HEEE7,145 1740 POKE &HEEEB,146 1750 POKE &HEEEC,147 1760 POKE &HEEED,144 1770 POKE &HEEF3,192 1780 POKE &HEEF7,155 1800 POKE &HEEF9,151 1810 POKE &HEEFA,132 1820 POKE &HEEFC,172 1830 POKE &HEF00,153 1840 POKE &HEF02,150 1850 POKE &HEF03,160 1860 POKE &HEF04,147 1870 POKE &HEF05,158 1880 POKE &HEF06,155 1890 POKE &HEF08,145 1900 POKE &HEF09,146 1910 POKE &HEF0A,147 1920 POKE &HEF0C,144 1930 POKE &HEF13,192 1940 POKE &HEF14,207 1950 POKE &HEF17,156 1960 POKE &HEF18,144 1970 POKE &HEF1B,144 1980 POKE &HEF20,133 1990 POKE &HEF21,149 2000 POKE &HEF25,146 2010 POKE &HEF26,156 2020 POKE &HEF28,144 2030 POKE &HEF2B,144 2031 POKE &HEF2E,74 2032 POKE &HEF2F,69 2033 POKE &HEF30,82 2034 POKE &HEF31,82 2035 POKE &HEF32,89 2040 POKE &HEF33,192 2050 POKE &HEF37,192 2060 POKE &HEF38,145 2070 POKE &HEF3A,144 2080 POKE &HEF41,192 2090 POKE &HEF42,130 2100 POKE &HEF44,192 2110 POKE &HEF47,130 2120 POKE &HEF48,159 2130 POKE &HEF4A,144 2140 POKE &HEF4B,145 2150 POKE &HEF57,192 2160 POKE &HEF58,192 2170 POKE &HEF59,144 2180 POKE &HEF61,153 2190 POKE &HEF64,192 2200 POKE &HEF67,144 2210 POKE &HEF69,153 2220 POKE &HEF6C,150 2230 POKE &HEF6D,149 2240 POKE &HEF6E,248 2250 POKE &HEF6F,248 2260 POKE &HEF70,248 2270 POKE &HEF71,248 2280 POKE &HEF72,248 2290 POKE &HEF73,248 2300 POKE &HEF74,248 2310 POKE &HEF75,248 2320 POKE &HEF76,248 2330 POKE &HEF77,200 2340 POKE &HEF78,172 2350 POKE &HEF81,152 2360 POKE &HEF83,144 2370 POKE &HEF86,153 2380 POKE &HEF89,152 2390 POKE &HEF97,153 2400 POKE &HEFA0,144 2410 POKE &HEFA2,144 2420 POKE &HEFA4,144 2430 POKE &HEFA6,152 2440 POKE &HEFA8,144 2450 POKE &HEFB7,152 2460 POKE &HEFC0,171 2470 POKE &HEFC1,144 2480 POKE &HEFC3,144 2490 POKE &HEFC5,144 2520 POKE &HEFC8,159 2530 POKE &HEFD6,153 2540 POKE &HEFE1,171 2550 POKE &HEFE2,144 2560 POKE &HEFE3,171 2570 POKE &HEFE4,144 2610 POKE &HEFE8,155 2620 POKE &HEFF6,152 2630 POKE &HEFF1,230 2640 POKE &HEFC7,144 2650 POKE &HEFC6,171 2660 POKE &HEEC5,192 2670 POKE &HEEA6,152 2680 POKE &HEE86,153 2690 POKE &HEE67,144 2700 POKE &HEE48,144 2710 POKE &HEE29,144 2720 POKE &HEE09,192 2730 POKE &HECE8,156 2740 POKE &HECC8,155 2750 POKE &HECA7,145 2760 POKE &HEC86,145 2770 POKE &HEC65,149 2780 POKE &HEC64,160 2790 POKE &HEC63,160 2800 POKE &HEC62,146 2810 POKE &HEC81,153 2820 POKE &HECA1,156 2830 POKE &HECC2,158 2840 POKE &HECA2,171 2850 POKE &HEC82,144 2860 POKE &HEC83,158 2870 POKE &HEC84,158 2880 POKE &HEC85,145 2890 POKE &HECA6,145 2900 POKE &HECC7,155 2910 POKE &HECE7,156 2920 POKE &HEE08,192 2930 POKE &HEE28,144 2940 POKE &HEE47,144 2950 POKE &HEE66,144 2960 POKE &HEE85,153 2970 POKE &HEEA5,152 2980 POKE &HEEC4,192 2990 POKE &HEEE4,192 3000 POKE &HEFE5,171 3010 POKE &HEFE6,146 3020 POKE &HEFE7,147 3025 L=0 3030 FOR I=1 TO 2000 3040 NEXT I 3050 POKE &HED36,255 3060 POKE &HED54,255 3070 POKE &HED36,254 3080 POKE &HED54,254 3090 POKE &HED36,253 3100 POKE &HED54,253 3110 POKE &HED36,252 3120 POKE &HED54,252 3130 POKE &HED36,251 3140 POKE &HED54,251 3150 POKE &HED36,250 3160 POKE &HED54,250 3170 POKE &HED36,249 3180 POKE &HED54,249 3190 POKE &HED36,248 3200 POKE &HED54,248 3210 POKE &HED36,32 3220 POKE &HED54,32 3221 POKE &HED19,203 3222 FOR I=1 TO 60 3223 NEXT I 3224 POKE &HECFA,203 3225 POKE &HED19,32 3226 FOR I=1 TO 60 3227 NEXT I 3228 POKE &HECBB,203 3229 POKE &HECFC,203 3230 POKE &HECFA,32 3231 FOR I=1 TO 60 3232 NEXT I 3233 POKE &HEC9D,203 3234 POKE &HECDE,203 3235 POKE &HECBB,32 3236 POKE &HECFC,32 3237 FOR I=1 TO 60 3238 NEXT I 3239 POKE &HEC5F,203 3240 POKE &HEC9F,203 3241 POKE &HEC9D,32 3242 POKE &HECDE,32 3243 FOR I=1 TO 60 3244 NEXT I 3245 POKE &HEC5F,32 3246 POKE &HEC9F,32 3250 POKE &HED36,248 3260 POKE &HED54,248 3270 POKE &HED36,249 3280 POKE &HED54,249 3290 POKE &HED36,250 3300 POKE &HED54,250 3310 POKE &HED36,251 3320 POKE &HED54,251 3330 POKE &HED36,252 3340 POKE &HED54,252 3350 POKE &HED36,253 3360 POKE &HED54,253 3370 POKE &HED36,254 3380 POKE &HED54,254 3390 POKE &HED36,195 3400 POKE &HED54,195 3410 L=L+1 3420 IF L>2 THEN 3440 3430 GOTO 3030 3440 REM HALLO 3450 POKE &HEDFA,79 3460 FOR I=1 TO 80 3470 NEXT I 3480 POKE &HEDFB,79 3490 POKE &HEDFA,76 3500 FOR I=1 TO 80 3510 NEXT I 3520 POKE &HEDFC,79 3530 POKE &HEDFB,76 3540 POKE &HEDFA,76 3550 FOR I=1 TO 80 3560 NEXT I 3570 POKE &HEDFD,79 3580 POKE &HEDFC,76 3590 POKE &HEDFB,76 3600 POKE &HEDFA,65 3610 FOR I=1 TO 80 3620 NEXT I 3625 R=0 3630 POKE &HEDFE,79 3640 POKE &HEDFD,76 3650 POKE &HEDFC,76 3660 POKE &HEDFB,65 3670 POKE &HEDFA,72 3680 R=R+1 3690 IF R>1 THEN 3800 3700 FOR I=1 TO 500 3710 NEXT I 3720 POKE &HEDFA,32 3730 POKE &HEDFB,32 3740 POKE &HEDFC,32 3750 POKE &HEDFD,32 3760 POKE &HEDFE,32 3770 FOR I=1 TO 100 3780 NEXT I 3790 GOTO 3630 3800 FOR I=1 TO 1000 3810 NEXT I 3820 POKE &HEDFF,79 3830 POKE &HEDFE,76 3840 POKE &HEDFD,76 3850 POKE &HEDFC,65 3860 POKE &HEDFB,72 3870 POKE &HEDFA,32 3880 FOR I=1 TO 80 3890 NEXT I 3900 POKE &HEDFF,76 3910 POKE &HEDFE,76 3920 POKE &HEDFD,65 3930 POKE &HEDFC,72 3940 POKE &HEDFB,32 3950 FOR I=1 TO 80 3960 NEXT I 3970 POKE &HEDFF,76 3980 POKE &HEDFE,65 3990 POKE &HEDFD,72 4000 POKE &HEDFC,32 4010 FOR I=1 TO 80 4020 NEXT I 4030 POKE &HEDFF,65 4040 POKE &HEDFE,72 4050 POKE &HEDFD,32 4060 FOR I=1 TO 80 4070 NEXT I 4080 POKE &HEDFF,72 4090 POKE &HEDFE,32 4100 FOR I=1 TO 80 4110 NEXT I 4120 POKE &HEDFF,32 4130 L=0 4140 GOTO 3050

Der Autor des Z1013-Programms JERRY ist mir leider nicht bekannt.