Unterschiede
Hier werden die Unterschiede zwischen zwei Versionen angezeigt.
Beide Seiten der vorigen Revision Vorhergehende Überarbeitung Nächste Überarbeitung | Vorhergehende Überarbeitung | ||
tiny:software:baserw40 [2024/02/02 10:25] – volkerp | tiny:software:baserw40 [2024/02/02 14:08] (aktuell) – [Beispiele] volkerp | ||
---|---|---|---|
Zeile 156: | Zeile 156: | ||
===== ES 2k ===== | ===== ES 2k ===== | ||
+ | |||
+ | {{: | ||
Die Erweiterung **baserw2k** liegt als Binärdatei vor und muss vorab in den Speicher geladen werden ( nach 8000h ) | Die Erweiterung **baserw2k** liegt als Binärdatei vor und muss vorab in den Speicher geladen werden ( nach 8000h ) | ||
Zeile 241: | Zeile 243: | ||
Test Data s.o. | Test Data s.o. | ||
+ | |||
+ | -- Quadrat-Spirale | ||
+ | |||
+ | 1 PROC SETRR[8, | ||
+ | 5 REM SPIRALE | ||
+ | 10 PROC CLS | ||
+ | 15 REM A=X LINKS, B=X RECHTS, C=Y UNTEN, D=Y OBEN | ||
+ | 20 LET A=0, | ||
+ | 25 REM OBEN (0,63) -> (63,63), X=A->B | ||
+ | 30 LET X=A,A=A+2 | ||
+ | 40 PROC PSET[X,D] | ||
+ | 50 LET X=X+1; IF X<=B THEN GOTO 40 | ||
+ | 55 REM RECHTS (63,63) -> (63,0), Y=D->C | ||
+ | 60 LET Y=D,D=D-2 | ||
+ | 70 PROC PSET[B,Y] | ||
+ | 80 LET Y=Y-1; IF Y>=C THEN GOTO 70 | ||
+ | 85 REM UNTEN (63,0) -> (0,0), X= B->A | ||
+ | 90 LET I=B,B=B-2 | ||
+ | 100 PROC PSET[X,C] | ||
+ | 110 LET X=X-1; IF X>=A THEN GOTO 100 | ||
+ | 115 REM LINKS (0,0) -> (0,63), Y= C->D | ||
+ | 120 LET Y=C,C=C+2 | ||
+ | 130 PROC PSET[A,Y] | ||
+ | 140 LET Y=Y+1; IF Y<=D THEN GOTO 130 | ||
+ | 150 IF A<B THEN IF C<D THEN GOTO 30 | ||
+ | 9998 X=GTC | ||
+ | 9999 END | ||
</ | </ | ||
===== ES 2.3 ===== | ===== ES 2.3 ===== | ||
+ | |||
+ | Im ES2.3 lässt sich die baserw4.0 direkt bzw. mit kleinen Abstrichen direkt nutzen. Beispiel: Testbild | ||
{{: | {{: | ||