Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Beide Seiten der vorigen Revision Vorhergehende Überarbeitung
tiny:software:baserw40 [2024/02/02 12:24] – [Beispiele] volkerptiny:software:baserw40 [2024/02/02 14:08] (aktuell) – [Beispiele] volkerp
Zeile 254: Zeile 254:
 30 LET X=A,A=A+2 30 LET X=A,A=A+2
 40 PROC PSET[X,D] 40 PROC PSET[X,D]
-50 LET X=X+1; XF X<=B THEN GOTO 40+50 LET X=X+1; IF X<=B THEN GOTO 40
 55 REM RECHTS (63,63) -> (63,0), Y=D->C 55 REM RECHTS (63,63) -> (63,0), Y=D->C
 60 LET Y=D,D=D-2 60 LET Y=D,D=D-2
 70 PROC PSET[B,Y] 70 PROC PSET[B,Y]
-80 LET Y=Y-1; YF Y>=C THEN GOTO 70+80 LET Y=Y-1; IF Y>=C THEN GOTO 70
 85 REM UNTEN (63,0) -> (0,0), X= B->A 85 REM UNTEN (63,0) -> (0,0), X= B->A
 90 LET I=B,B=B-2 90 LET I=B,B=B-2
 100 PROC PSET[X,C] 100 PROC PSET[X,C]
-110 LET X=X-1; XF X>=A THEN GOTO 100+110 LET X=X-1; IF X>=A THEN GOTO 100
 115 REM LINKS (0,0) -> (0,63), Y= C->D 115 REM LINKS (0,0) -> (0,63), Y= C->D
 120 LET Y=C,C=C+2 120 LET Y=C,C=C+2
 130 PROC PSET[A,Y] 130 PROC PSET[A,Y]
-140 LET Y=Y+1; YF Y<=D THEN GOTO 130+140 LET Y=Y+1; IF Y<=D THEN GOTO 130
 150 IF A<B THEN IF C<D THEN GOTO 30 150 IF A<B THEN IF C<D THEN GOTO 30
 9998 X=GTC 9998 X=GTC
  • tiny/software/baserw40.txt
  • Zuletzt geändert: 2024/02/02 14:08
  • von volkerp