Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

Link zu dieser Vergleichsansicht

Beide Seiten der vorigen Revision Vorhergehende Überarbeitung
Nächste Überarbeitung		 Vorhergehende Überarbeitung
tiny:software:baserw40 [2024/02/02 10:25] – volkerptiny:software:baserw40 [2024/05/31 09:13] (aktuell) – [Download] volkerp
Zeile 6: Zeile 6:
 ===== Download ===== ===== Download =====
  
-  * {{ :tiny:baserw.zip |}} Erweiterungen für die TINY-Systeme+  * {{ :tiny:baserw.zip |}} Erweiterungen für die TINY-Systeme (v1 und v1.1 (Rombank))
  
 ===== ES 4.0 ===== ===== ES 4.0 =====
Zeile 38: Zeile 38:
 PROC CLS Bildschirm löschen        statt OPTC[12] PROC CLS Bildschirm löschen        statt OPTC[12]
 PROC COLOR[FG,HG] Textfarben setzen   statt OSETEB[%F7A0,%F0] PROC COLOR[FG,HG] Textfarben setzen   statt OSETEB[%F7A0,%F0]
-PROC AT[X,Y] Textcursor positionieren  statt LET X=,Y=,Z=;C%0827+PROC AT[zeile,spalte] Textcursor positionieren  statt LET X=,Y=,Z=;C%0827
                                                                 bzw. OSETRR[%5B,..];OSETR[%5B,..]                                                                 bzw. OSETRR[%5B,..];OSETR[%5B,..]
 +(Achtung: in der ersten Version sind bei AT die Parameter vertauscht!)
  
 10 PROC CLS 10 PROC CLS
Zeile 119: Zeile 120:
 210 LET C=0,A=12,B=5,I=0 210 LET C=0,A=12,B=5,I=0
 215 PROC COLOR[0,C] 215 PROC COLOR[0,C]
-220 PROC AT[A, B];PRINT"  ", +220 PROC AT[B,A];PRINT"  ", 
-230 PROC AT[A, B+1];PRINT"  ",+230 PROC AT[B+1,A];PRINT"  ",
 240 LET C=C+15,A=A+2,I=I+1 240 LET C=C+15,A=A+2,I=I+1
 250 IF I=8 THEN LET B=7,A=12 250 IF I=8 THEN LET B=7,A=12
Zeile 127: Zeile 128:
 310 PROC COLOR[15,0] 310 PROC COLOR[15,0]
 330 LET C=0 330 LET C=0
-340 PROC AT[C $MOD 16 + 12, C/16 + 10]+340 PROC AT[C/16 + 10, C $MOD 16 + 12]
 345 IF C<32 THEN PROC PTC[14];REM VORAB ESC 345 IF C<32 THEN PROC PTC[14];REM VORAB ESC
 350 PROC PTC[C] 350 PROC PTC[C]
Zeile 133: Zeile 134:
 400 REM TEXT 400 REM TEXT
 410 PROC COLOR[0,15] 410 PROC COLOR[0,15]
-420 PROC AT[13,19];PRINT"JU+TE-COMPUTER" +420 PROC AT[19,13];PRINT"JU+TE-COMPUTER" 
-430 PROC AT[18,20];PRINT"*6K*"+430 PROC AT[20,18];PRINT"*6K*"
 9999 PROC AT[0,0];PROC COLOR[2,13];END 9999 PROC AT[0,0];PROC COLOR[2,13];END
- 
  
 Beispiel Data Beispiel Data
Zeile 156: Zeile 156:
  
 ===== ES 2k ===== ===== ES 2k =====
 +
 +{{:tiny:software:spirale.png|}}
  
 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,%1C00]
 +5 REM SPIRALE
 +10 PROC CLS
 +15 REM A=X LINKS, B=X RECHTS, C=Y UNTEN, D=Y OBEN
 +20 LET A=0,B=63,C=0,D=63
 +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
 </code> </code>
  
  
 ===== ES 2.3 ===== ===== ES 2.3 =====
 +
 +Im ES2.3 lässt sich die baserw4.0 direkt bzw. mit kleinen Abstrichen direkt nutzen. Beispiel: Testbild
  
 {{:tiny:es23_testbild.png|}} {{:tiny:es23_testbild.png|}}
  
  • tiny/software/baserw40.1706869530.txt.gz
  • Zuletzt geändert: 2024/02/02 10:25
  • von volkerp