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 14:08] – [Beispiele] 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
  • tiny/software/baserw40.txt
  • Zuletzt geändert: 2024/05/31 09:13
  • von volkerp