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 [2022/08/04 06:39] – ↷ Seite von tiny:baserw40 nach tiny:software:baserw40 verschoben 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 16: Zeile 16:
 werden die neuen Prozeduren dem BASIC bekannt gemacht. Danach können die neuen Befehle genutzt werden.((Im Emulator JTCEMU ist die Nutzung der neuen Befehle im Texteditor erst ab Version 2.1 möglich.)) werden die neuen Prozeduren dem BASIC bekannt gemacht. Danach können die neuen Befehle genutzt werden.((Im Emulator JTCEMU ist die Nutzung der neuen Befehle im Texteditor erst ab Version 2.1 möglich.))
  
-**Hinweis**: in der [[tiny:rombank|]] ist die Basic-Erweiterung ab Adresse **3000h** dauerhaft verfügbar. Es ist hierzu SETRR[8,%3000] zu nutzen.+**Hinweis**: in der [[tiny:erweiterungen:rombank]] ist die Basic-Erweiterung ab Adresse **3000h** dauerhaft verfügbar. Es ist hierzu SETRR[8,%3000] zu nutzen.
    
  
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 191: Zeile 193:
  
 <code> <code>
 +
 +64x64 Bildpunkte, (0,0) ist links unten
 +
 +       (0,63)           (63,63)
 +       +-----------------+
 +       |                 |
 +       |        (X,Y)    |
 +       |                 |
 + ^     |                 |
 + |     +-----------------+
 + y     (0,0)            (63,0)
 +   x ->     
 +
 +
 Test Grafik Test Grafik
  
Zeile 227: 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 =====
 +
 +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.1659595162.txt.gz
  • Zuletzt geändert: 2022/08/04 06:39
  • von volkerp