290
03.05.2025, 16:52 Uhr
BICa5105
|
Programm dazu noch:
10 SCREEN5,0,5,1:COLOR15:CLS: DIMS$(200):I=0 20 READA$:IFA$="*"THENN=I-1:GOTO30ELSES$(I)=A$:I=I+1:GOTO20 30 FORI=1TON:Z=1-P:SCREEN5,P,5,Z:LINE(140,80)-(175,115),0,BF: DRAWS$(I):SCREEN5,Z,5,P:P=Z:NEXTI:GOTO30
40 DATA "c0M148,111;c15M+23,0;M+0,-23;M-23,0;M+0,23;M150,109;M+19,0;M+0,-19;M-19,0;M+0,19" 50 DATA "c0M147,110;c15M+22,1;M+0,-23;M-22,1;M+0,21;M152,108;M+18,1;M+0,-19;M-18,1;M+0,17" 60 DATA "c0M146,110;c15M+20,1;M+0,-23;M-20,1;M+0,21;M154,108;M+18,1;M+0,-19;M-18,1;M+0,17" 70 DATA "c0M145,110;c15M+19,1;M+0,-23;M-19,1;M+0,21;M156,108;M+17,1;M+0,-19;M-17,1;M+0,17" 80 DATA "c0M145,110;c15M+16,1;M+0,-23;M-16,1;M+0,21;M158,108;M+15,1;M+0,-19;M-15,1;M+0,17" 90 DATA "c0M146,109;c15M+12,2;M+0,-23;M-12,2;M+0,19;M161,108;M+13,2;M+0,-21;M-13,2;M+0,17" 100 DATA "c0M146,109;c15M+9,2;M+0,-23;M-9,2;M+0,19;M163,108;M+11,2;M+0,-21;M-11,2;M+0,17" 110 DATA "c0M147,109;c15M+6,2;M+0,-23;M-6,2;M+0,19;M165,108;M+8,2;M+0,-21;M-8,2;M+0,17" 120 DATA "c0M149,109;c15M+1,2;M+0,-23;M-1,2;M+0,19;M167,108;M+5,2;M+0,-21;M-5,2;M+0,17" 130 DATA "c0M150,109;c15M-2,2;M+0,-23;M+2,2;M+0,19;M169,109;M+2,2;M+0,-23;M-2,2;M+0,19" 140 DATA "c0M152,108;c15M-5,2;M+0,-21;M+5,2;M+0,17;M170,109;M-1,2;M+0,-23;M+1,2;M+0,19" 150 DATA "c0M154,108;c15M-8,2;M+0,-21;M+8,2;M+0,17;M172,109;M-6,2;M+0,-23;M+6,2;M+0,19" 160 DATA "c0M156,108;c15M-11,2;M+0,-21;M+11,2;M+0,17;M173,109;M-9,2;M+0,-23;M+9,2;M+0,19" 170 DATA "c0M158,108;c15M-13,2;M+0,-21;M+13,2;M+0,17;M173,109;M-12,2;M+0,-23;M+12,2;M+0,19" 180 DATA "c0M161,108;c15M-15,1;M+0,-19;M+15,1;M+0,17;M174,110;M-16,1;M+0,-23;M+16,1;M+0,21" 190 DATA "c0M163,108;c15M-17,1;M+0,-19;M+17,1;M+0,17;M174,110;M-19,1;M+0,-23;M+19,1;M+0,21" 200 DATA "c0M165,108;c15M-18,1;M+0,-19;M+18,1;M+0,17;M173,110;M-20,1;M+0,-23;M+20,1;M+0,21" 210 DATA "c0M167,108;c15M-18,1;M+0,-19;M+18,1;M+0,17;M172,110;M-22,1;M+0,-23;M+22,1;M+0,21" 220 DATA "c0M169,109;c15M-19,0;M+0,-19;M+19,0;M+0,19;M171,111;M-23,0;M+0,-23;M+23,0;M+0,23" 230 DATA "c0M170,109;c15M-18,-1;M+0,-17;M+18,-1;M+0,19;M169,111;M-22,-1;M+0,-21;M+22,-1;M+0,23" 240 DATA "c0M172,109;c15M-18,-1;M+0,-17;M+18,-1;M+0,19;M166,111;M-20,-1;M+0,-21;M+20,-1;M+0,23" 250 DATA "c0M173,109;c15M-17,-1;M+0,-17;M+17,-1;M+0,19;M164,111;M-19,-1;M+0,-21;M+19,-1;M+0,23" 260 DATA "c0M173,109;c15M-15,-1;M+0,-17;M+15,-1;M+0,19;M161,111;M-16,-1;M+0,-21;M+16,-1;M+0,23" 270 DATA "c0M174,110;c15M-13,-2;M+0,-17;M+13,-2;M+0,21;M158,111;M-12,-2;M+0,-19;M+12,-2;M+0,23" 280 DATA "c0M174,110;c15M-11,-2;M+0,-17;M+11,-2;M+0,21;M155,111;M-9,-2;M+0,-19;M+9,-2;M+0,23" 290 DATA "c0M173,110;c15M-8,-2;M+0,-17;M+8,-2;M+0,21;M153,111;M-6,-2;M+0,-19;M+6,-2;M+0,23" 300 DATA "c0M172,110;c15M-5,-2;M+0,-17;M+5,-2;M+0,21;M150,111;M-1,-2;M+0,-19;M+1,-2;M+0,23" 310 DATA "c0M171,111;c15M-2,-2;M+0,-19;M+2,-2;M+0,23;M148,111;M+2,-2;M+0,-19;M-2,-2;M+0,23" 320 DATA "c0M169,111;c15M+1,-2;M+0,-19;M-1,-2;M+0,23;M147,110;M+5,-2;M+0,-17;M-5,-2;M+0,21" 330 DATA "c0M166,111;c15M+6,-2;M+0,-19;M-6,-2;M+0,23;M146,110;M+8,-2;M+0,-17;M-8,-2;M+0,21" 340 DATA "c0M164,111;c15M+9,-2;M+0,-19;M-9,-2;M+0,23;M145,110;M+11,-2;M+0,-17;M-11,-2;M+0,21" 350 DATA "c0M161,111;c15M+12,-2;M+0,-19;M-12,-2;M+0,23;M145,110;M+13,-2;M+0,-17;M-13,-2;M+0,21" 360 DATA "c0M158,111;c15M+16,-1;M+0,-21;M-16,-1;M+0,23;M146,109;M+15,-1;M+0,-17;M-15,-1;M+0,19" 370 DATA "c0M155,111;c15M+19,-1;M+0,-21;M-19,-1;M+0,23;M146,109;M+17,-1;M+0,-17;M-17,-1;M+0,19" 380 DATA "c0M153,111;c15M+20,-1;M+0,-21;M-20,-1;M+0,23;M147,109;M+18,-1;M+0,-17;M-18,-1;M+0,19" 390 DATA "c0M150,111;c15M+22,-1;M+0,-21;M-22,-1;M+0,23;M149,109;M+18,-1;M+0,-17;M-18,-1;M+0,19" 400 DATA "*" -- https://www.youtube.com/@robotronA5105 Dieser Beitrag wurde am 03.05.2025 um 16:53 Uhr von BICa5105 editiert. |