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/DMP/DEMO2.BAS

@@ -1,48 +0,0 @@
-10 WSET 0
-20 COL 0, 30,0:CLS :CROFF 
-30 CHDIR "DMP"
-60 TLOAD 1,"gl4_1114.dat",11,14
-70 STILE 1
-100 WIN c(1,0,250,0,2,2,37,6,1,1,"")
-110 POS 3,3:PRINT "Herzlich Willkommen zu Basic 2.1"
-112 PAUSE 5000
-115 GOSUB 10000
-118 TPIC 30,0,240,29,14
-120 WIN c(2,0,250,0,2,12,26,25,1,1,"")
-122 PRINT "Hallo...":PAUSE 5000:CLS 
-130 POS 2,12:PRINT "Ich bin Robert Gluehfaden"
-140 POS 2,14:PRINT "und moechte Dir die neuen"
-150 POS 2,16:PRINT "Funktionen von Basic 2.1"
-160 PRINT "vorstellen.":PAUSE 9000:CLS 
-162 PRINT "Also lehne Dich zurueck"
-170 PRINT "und geniesse diese kleine"
-180 PRINT "Demo, denn es gibt viel"
-190 PRINT "Neues zu entdecken!"
-200 TLOAD 2,"GL5_1211.dat",12,11
-210 PAUSE 5000
-220 WIN r(1):WIN r(2):CLS 
-230 STILE 2
-240 GOSUB 10000
-250 TPIC 30,0,240,0,14
-260 WIN c(1,0,250,23,1,1,38,12,1,1,"")
-270 PRINT " Womit soll ich nur anfangen?"
-280 PRINT " Am Besten mit der Frage:"
-290 PRINT " Was kann man mit BASIC 2.1 auf dem"
-300 PRINT " HIVE denn so anstellen?"
-310 PAUSE 5000
-320 WIN c(2,0,250,23,14,16,38,27,1,1,"")
-330 PRINT "Vielleicht Musik ?":PAUSE 3000
-335 TLOAD 3,"gl1_1311.dat",13,11
-340 PLAY "plastic.dmp"
-350 PRINT "Bitte sehr..."
-360 PAUSE 5000
-370 BOX 30,0,14,12,28,0
-380 STILE 3
-390 TPIC 30,0,240,0,15
-400 PRINT " ":PRINT "Das ist cool was?"
-9999 END 
-10000 FOR i=60 TO 105
-10010 BEEP i
-10020 NEXT i
-10030 RETURN 
-

data/Errors.txt

@@ -1,14 +1,14 @@
 Syntax Error !
 Wrong Linenumber !
 Wrong Parameter !
-Break in Line 
-DATA Error ! 
+Break in Line
+DATA Error !
 File-Read-Error !
 No Programm in Memory !
 File exist! Overwrite? y/n
 Bye !!!
 in Line:
-SD-Card 
+SD-Card
 Recursion Error !
 Invalid Comparsion !
 Missing THEN !
@@ -22,7 +22,7 @@ Out of DATA Error !
 File-Open-Error !
 File-Delete-Error !
 File can't Rename !
-Function Error ! 
+Function Error !
 Wrong Filename !
 Missing Parameter FOR !
 Missing TO !
@@ -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