Basic 2.2

.gitattributes

@@ -5,7 +5,7 @@
 *.spin    text
 
 *.bat     text eol=crlf
-*.BAS     text eol=crlf
+*.TXT     text eol=crlf
 DATA.DAT  text eol=crlf
 
 *.MAP     binary

data/BACKREST.TXT

@@ -0,0 +1,34 @@
+5 WSET 0:CROFF 
+10 COL 0,55,$56:CLS 
+15 MOUSE 1,0
+18 STILE 15
+20 WIN c(1,255,55,88,0,0,39,29,3,0,"Demonstration von Backup und Restore")
+30 FONT "Was koennte man mit diesen Funktionen",55,0,0,0,4
+40 FONT "so anstellen? Na zum Beispiel dieses",55,0,0,0,5
+50 FONT "Fenster darstellen und im Vordergrund",55,0,0,0,6
+60 FONT "ein zweites Fenster oeffnen,um zum Bsp.",55,0,0,0,7
+70 FONT "einen Hinweistext anzuzeigen",55,0,0,0,8
+80 FONT "Das ist noch nicht sehr spektakulaer, ",55,0,0,0,12
+90 FONT "aber wenn das Fenster geloescht wird,",55,0,0,0,13
+100 FONT "stellen wir den Hintergrund wieder her!",55,0,0,0,14
+110 FONT "Druecke bitte eine Taste",55,9,0,8,17
+150 a=INKEY 
+152 b=MB 0
+155 IF a=0 AND b=0 THEN GOTO 150
+160 BACKUP 5,6,39,28,$30000
+180 WIN c(2,0,88,99,5,6,38,27,4,1,"Infofenster")
+185 COL 0,88,0
+196 WSET 2
+200 CLS :PRINT "Nun wollen wir das Fenster"
+210 PRINT "wieder loeschen."
+211 PRINT " ":PRINT " "
+215 PRINT "   Druecke bitte eine Taste"
+220 a=INKEY 
+225 b=WIN 
+227 IF a=0 AND b<>22THEN GOTO 220
+230 RECOVER 5,6,39,28,$30000
+240 WSET 1
+250 COL 0,55,$56
+260 CRON 
+280 END 
+

data/BENCH1.TXT

@@ -0,0 +1,11 @@
+3 CLS 
+5 PRINT "Warte auf Sekunde 0"
+10 a=GTIME (3)
+11 IF a>0 THEN GOTO 10
+20 PRINT "Start"
+30 FOR i=1 TO 1000
+40 NEXT i
+90 c=GTIME (3):d=GTIME (2)
+100 PRINT "stop"
+110 PRINT "Laufzeit:";c;"sek"
+

data/DATA.TXT

@@ -0,0 +1,22 @@
+10 CLS 
+12 DATA 10
+20 READ n
+30 n=n-1
+40 DIM #n(n,1),a(n)
+60 FOR i=0 TO n
+70 READ #n(i,0),#n(i,1),a(i)
+80 NEXT i
+90 INPUT "Altersgrenze?:";g
+100 IF g<1 THEN GOTO 90
+110 PRINT "Aelter als ";g;" Jahre sind:":PRINT " "
+120 FOR i=0 TO n
+130 IF a(i)>g THEN PRINT #n(i,1);" ";#n(i,0);",";a(i):K=1
+140 NEXT i
+150 IF k=0 THEN PRINT "Keine Personen!"
+160 REM        Daten
+210 DATA Hinz,Mario,16,Kunz,Ines,13
+220 DATA Fender,Tom,23,Cohn,Sarah,19
+230 DATA Tille,Hans-Juergen,34,Spaeth,Robert,20
+240 DATA Schneider,Olga,67,Sachse,Caesar,12
+250 DATA Fritz,Matthias,44,Schroeder,Frank,52
+

data/Errors.txt

@@ -37,7 +37,7 @@ Missing Point !
 <Key? / ESC >
 File-Read-Error !
 Missing  Equal Sign !
-* Vers.2.10-02/2014 *
+* Vers.2.20-05/2014 *
 F1HELP F2LOAD F3SAVE F4DIR F5RUN F6LIST
 -Basic-Bytes-Free *
  Datei(en)

data/HELP/ADSR

@@ -1,13 +0,0 @@
-ADSR-SID-Soundfunktionen
-
-Syntax:
-ADSR <chan>,<attack>,
-     <decay>,<sustain>,
-     <release>
-
-Huellkurve fuer Kanal 
-<chan> einstellen 
-attack-Anstiegszeit, 
-decay-Abfallzeit bis
-sustainlevel, 
-release-Ausklingzeit 

data/HELP/CUT

@@ -1,12 +0,0 @@
-CUT-SID-Soundfunktionen
-
-Syntax:
-CUT<expr>,<expr>
-
-Cutoff-Frequenz und Reso-
-nazwert des 
-Filters setzen
-(0-1100),(0-15)
-
-Bsp.:
-CUT 345,10

data/HELP/FLT

@@ -1,13 +0,0 @@
-FLT-SID-Soundfunktionen
-
-Syntax:
-FLT <lp>,<hp>,<bp>
-
-Filtertyp setzen 
-lp=Lowpass, 
-hp=Highpass,
-bp=Bandpass
-
-HINWEIS: 
--1=gesetzt
- 0=nicht gesetzt

data/HELP/FMASK

@@ -1,12 +0,0 @@
-FMASK-SID-Soundfunktionen
-
-Syntax:
-FMASK<chan1>,<chan2>,
-     <chan3>
-
-FMASK legt fest, welche 
-Kanaele den gewaehlten
-Filtertyp benutzen 
-sollen.
--1=setzen
- 0=nicht setzen