Unterschiede
Hier werden die Unterschiede zwischen zwei Versionen angezeigt.
Beide Seiten der vorigen Revision Vorhergehende Überarbeitung | |||
tiny:software:baserw40 [2024/02/02 12:24] – [Beispiele] volkerp | tiny: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; | + | 50 LET X=X+1; |
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; | + | 80 LET Y=Y-1; |
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; | + | 110 LET X=X-1; |
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; | + | 140 LET Y=Y+1; |
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 |