Ich habe in Zeile 440 einmal gosub und in Zeile 450 alles in einer Zeile.
Zeile 440 soll der Heli nach links fliegen und in 450 nach rechts.
Da aber noch eine Sprite hinzugefügt wird, habe ich kein platz mehr in der Zeile und wollte deshalb "gosub 940" verwenden.
In Zeile 960 ist das "return", aber das Programm wird dann beendet ? Was mach ich falsch?
Sorry hat schon lange kein Basic mehr! 
10 s=54272:poke s+24,15:poke s,220:poke s+1,68:poke s+5,15:poke s+6,215
20 xp=165:yp=100
30 poke s+7,120:poke s+8,100:poke s+12,15:poke s+13,215
40 print"{clear}":v=53248:poke v+21,1
50 POKE646,14:POKE53281,14:poke53280,14
60 PRINT "{reverse on}{light blue} ";
70 PRINT "{reverse off}{reverse on} ";
80 PRINT "{reverse off}{reverse on} ";
90 PRINT "{reverse off}{reverse on} {reverse off} {reverse on} ";
100 PRINT "{reverse off}{reverse on} {reverse off} {reverse on}{yellow}{sh pound} {127}{reverse off} {reverse on}{light blue} ";
110 PRINT "{reverse off}{reverse on} {reverse off} {reverse on}{yellow} {reverse off} {reverse on}{light blue} ";
120 PRINT "{reverse off}{reverse on} {reverse off} {yellow}{127}{reverse on} {reverse off}{sh pound} {reverse on}{light blue} ";
130 PRINT "{reverse off}{reverse on} {reverse off} {reverse on} {reverse off} {reverse on} ";
140 PRINT "{reverse off}{reverse on} ";
150 PRINT "{reverse off}{reverse on} ";
160 PRINT "{reverse off}{reverse on} ";
170 PRINT "{reverse off}{reverse on} ";
180 PRINT "{reverse off}{reverse on} ";
190 PRINT "{reverse off}{reverse on} ";
200 PRINT "{reverse off}{reverse on} ";
210 PRINT "{reverse off}{reverse on} "
220 PRINT " {reverse on} {reverse off} {reverse on} "
230 PRINT "{reverse on} ";
240 PRINT "{reverse off}{reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} {reverse off} {reverse on} "
250 PRINT "{light green}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}{cm o}";
260 PRINT "{reverse on}{green} ";
270 PRINT "{reverse off}{reverse on} ";
280 PRINT "{reverse off}{reverse on} ";
290 PRINT "{reverse off}{reverse on} ";
300 poke214,0:PRINT "{reverse off}{reverse on} ";
310 for s1=12288 to 12350:read q1:poke s1,q1:next
320 for s2=12352 to 12414:read q2:poke s2,q2:next
330 for s3=12416 to 12478:read q3:poke s3,q3:next
340 for s4=12480 to 12542:read q4:poke s4,q4:next
350 for s5=12544 to 12606:read q5:poke s5,q5:next
360 for s6=12608 to 12670:read q6:poke s6,q6:next
370 for s7=12672 to 12734:read q7:poke s7,q7:next
380 poke v+39,15:poke v+1,68
390 p=192
400 J=PEEK(56320):rem Joy port 2
410 p=p+1:if p>194 then p=192
420 if p=192 then gosub 920
430 if p=193 then gosub 930
440 IF J=123 THEN gosub 940:rem J2 links
450 IF J=119 THEN xp=xp+1:p=196:ifxp>=310 then xp=310:rem J2 rechts
460 IF J=126 then yp=yp-1:ifyp<50 then yp=50:rem J2 hoch
470 IF J=125 then yp=yp+1:ifyp>=190 then yp=190:rem J2 runter
480 IF J=127 AND yp<190 then yp=yp+1:rem schwerkraft
490 IF J=110 then POKE53277,1:POKE53271,1:rem J2 hoch+button
500 IF J=109 then POKE53277,0:POKE53271,0:rem J2 runter+button
510 if p=194 then gosub 930
520 poke 2040,p
530 xrp=xp : hb%=0
540 if xrp>255 then hb%=2^sn% : xrp=xp-256
550 poke v+sn%, xrp
560 poke v+16,hb%
570 poke v+1,yp
580 rem get s$
590 poke v+39,1
600 rem if s$="" then goto 400
610 rem poke vic+21,0
615 goto 400
620 REM heli 1
630 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,1,255,128,0,24,0
640 DATA 0,60,0,0,36,0,0,60,0,0,24,0,0,36,0,0,0,0,0,0,0,0,0,0
650 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
660 REM heli 2
670 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,126,0,0,24,0
680 DATA 0,60,0,0,36,0,0,60,0,0,24,0,0,36,0,0,0,0,0,0,0,0,0,0
690 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
700 REM heli 3
710 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,24,0
720 DATA 0,60,0,0,36,0,0,60,0,0,24,0,0,36,0,0,0,0,0,0,0,0,0,0
730 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
740 REM heli links
750 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,0,24,0
760 DATA 0,126,32,0,159,224,0,127,0,0,8,0,0,63,0,0
770 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
780 Rem heli rechts
790 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,0,0,24,0
800 DATA 4,126,0,7,249,0,0,254,0,0,16,0,0,252,0,0,0,0,0,0,0,0,0,0
810 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
820 REM heli links 2
830 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,24,0
840 DATA 0,126,32,0,159,224,0,127,0,0,8,0,0,63,0,0
850 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
860 REM heli rechts 2
870 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,24,0,0,24,0
880 DATA 4,126,0,7,249,0,0,254,0,0,16,0,0,252,0,0,0,0,0,0,0,0,0,0
890 DATA 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0
900 rem sound
910 data 7,14,14,204,14,2,248,56,0,112,112,0,0,60,0,-1
920 poke s+4,129:poke s+4,128:return
930 poke s+11,129:poke s+11,128:return
940 xp=xp-1
950 if p<195 then p=195:if p=195 then p=197:if p=197 then p=195
960 if xp<10 then xp=10:return
Alles anzeigen