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 12:24] – [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
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; XF X<=B THEN GOTO 40+50 LET X=X+1; IF X<=B THEN GOTO 40
 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; YF Y>=C THEN GOTO 70+80 LET Y=Y-1; IF Y>=C THEN GOTO 70
 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; XF X>=A THEN GOTO 100+110 LET X=X-1; IF X>=A THEN GOTO 100
 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; YF Y<=D THEN GOTO 130+140 LET Y=Y+1; IF Y<=D THEN GOTO 130
 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
  • tiny/software/baserw40.1706876697.txt.gz
  • Zuletzt geändert: 2024/02/02 12:24
  • von volkerp