initial push (version 2.1)

data/AD-PORT.BAS

@@ -0,0 +1,11 @@
+10 CLS 
+20 CROFF 
+30 a=PORT i(0)
+31 b=PORT i(1)
+32 c=PORT i(2)
+33 d=PORT i(3)
+35 POS 0,10
+40 PRINT TAB (1);a;TAB (6);b;TAB (11);c;TAB (16);d
+45 PORT o(6,a)
+50 GOTO 30
+

data/ARRAY.BAS

@@ -0,0 +1,12 @@
+5 CROFF 
+10 DIM a(7,7,7)
+20 FOR i=0 TO 7
+30 FOR d=0 TO 7
+40 FOR b=0 TO 7
+50 a(b,d,i)=c
+55 c=c+1
+60 PRINT "a(";b;",";d;",";i;")=";a(b,d,i)
+70 NEXT b
+80 NEXT d
+90 NEXT i
+

data/BACKREST.BAS

@@ -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/BALLER.BAS

@@ -0,0 +1,80 @@
+5 CROFF 
+10 COL 0,$e6,0
+15 CLS 
+20 TLOAD 2,"fontkc.dat",16,11
+30 STILE 2
+32 TLOAD 15,"man.dat",1,1
+35 MBOUND 0,463,623,463
+37 MOUSE 1,1
+40 f(0)=$e6
+50 f(1)=0
+60 f(2)=$56
+70 e=50
+80 p=0
+100 WAVE 1,4
+200 ADSR 1,1,0,255,10
+1000 a(0)=32
+1010 a(1)=165
+1020 b(0)=32
+1030 b(1)=12
+1040 b(2)=13
+1050 c=20:REM          cursor
+1100 s=0
+1200 GOSUB 6000
+2000 k=MB (0)
+2010 c=MGET (1)
+2100 REM         ziel darstellen
+2130 IF t(3)=0 THEN GOSUB 6000
+2140 IF TIMER c(1)=1 THEN t(4)=0
+2150 IF t(4)=0 THEN TILE 32,$e6,0,0,t(1),t(2)
+2160 IF t(4)=0 THEN t(3)=0
+2170 IF k=255 THEN GOSUB 10000
+2230 IF s<0 THEN s=0
+3000 GOTO 2000
+5000 REM        
+5020 s=s-1
+5030 IF s<0 THEN RETURN 
+5040 TILE 124,f(0),f(1),f(2),d,s
+5080 IF d=t(1)   AND s=t(2) THEN t(3)=0
+5085 TILE 32,f(0),f(1),f(2),d,s
+5090 IF t(3)=0 THEN NOTE 1,60
+5100 IF t(3)=0 THEN s=-1
+5110 IF t(3)=0 THEN p=p+1
+5120 IF t(3)=0 THEN e=e-1
+5125 IF t(3)=0 THEN GOSUB 7000
+5130 IF e=0 THEN GOTO 8000
+5140 NTOFF 1
+5900 GOTO 5000
+6000 t(1)=FN int(RND (38))
+6010 t(2)=FN int(RND (24))+2
+6020 TILE 128,$e6,0,0,t(1),t(2)
+6030 t(3)=1
+6040 TIMER s(1,15)
+6050 t(4)=1
+6900 RETURN 
+7000 POS 0,0
+7010 PRINT "Punkte:";p;TAB (12);"Feinde:";e;" ";TAB (24);"Schuss:";m
+7900 RETURN 
+8000 REM        ende
+8010 CLS :NTOFF 1
+8020 x=m-50
+8030 IF !x<5 THEN #a="Superschuetze"
+8040 IF !x>4 THEN #a="sehr guter Schuetze"
+8050 IF !x>8 THEN #a="guter Schuetze"
+8060 IF !x>10 THEN #a="maessiger Schuetze"
+8070 IF !x>15 THEN #a="lausiger Schuetze"
+8080 IF !x>19 THEN #a="absoluter Blindgaenger"
+8100 PRINT "Sie haben alle Feinde vernichtet."
+8110 PRINT "und haben dafuer ";m;" Schuss"
+8120 PRINT "benoetigt!"
+8130 PRINT "Sie sind ein ";#a
+8200 MOUSE 0,0
+8500 END 
+10000 NOTE 1,75:NTOFF 1
+10010 IF s=0 THEN d=c
+10020 IF s=0 THEN s=29
+10030 IF s=29 THEN GOSUB 5000
+10040 m=m+1
+10050 GOSUB 7000
+10060 RETURN 
+

data/BEEP.BAS

@@ -0,0 +1,7 @@
+10 FOR i=40 TO 107
+20 BEEP i
+30 NEXT i
+40 FOR i=106 TO 40 STEP -1
+50 BEEP i
+60 NEXT i
+

data/BUTTON2.BAS

@@ -0,0 +1,30 @@
+5 MOUSE 1,0:STILE 15
+6 DIM #a(255)
+7 DIM #w(255)
+8 WSET 0
+10 COL 0,255,0:CLS :CROFF 
+11 #a(1)="Button gedrueckt"
+13 #a(2)="Icon gedrueckt  "
+14 #w(21)="Fenster links   "
+15 #w(22)="Fenster rechts  "
+16 #t="Hilfefenster"
+17 #f="Dies ist ein Hilfefenster,"
+18 #g="aber mit dem WIN-Befehl"
+19 #h="erzeugt !"
+20 WIN c(2,0,250,$e6,5,10,35,20,4,0,#t)
+22 FONT #f,250,0,$e6,0,1
+23 FONT #g,250,0,$e6,0,2
+24 FONT #h,250,0,$e6,0,3
+25 FONT "Dadurch ist der MBOX-Befehl",250,0,$e6,0,4
+30 FONT "ueberfluessig!!!",250,0,$e6,0,5
+40 #b="Das ist ein Testknopf!"
+50 BUTTON t(1,255,66,8,19,#b)
+52 BUTTON i(2,16,$e6,0,250,23,10)
+56 w=WIN 
+60 a=MB (0)
+65 WSET 0
+70 POS 10,24:PRINT #a(a)     
+71 POS 10,24:PRINT #w(w)
+80 IF a=0 AND w=0 THEN GOTO 56
+120 GOTO 56
+

data/BUTTONS.BAS

@@ -0,0 +1,28 @@
+10 COL 0,30,0
+15 CLS 
+18 MBOUND 0,0,639,479
+20 CROFF 
+30 MOUSE 1,34
+31 BUTTON t(11,0,33,1,2,"Knopf11")
+32 BUTTON t(12,0,155,20,2,"Knopf12")
+33 BUTTON t(13,0,166,30,2,"Knopf13")
+34 BUTTON t(15,0,188,5,25,"Ende->")
+35 BUTTON t(14,0,199,20,25,"Knopf14")
+40 BUTTON t(1,0,44,1,5,"Knopf1")
+41 BUTTON t(2,0,44,1,10,"Knopf2")
+42 BUTTON t(3,0,44,1,15,"Knopf3")
+43 BUTTON t(4,0,55,20,5,"Knopf4")
+44 BUTTON t(5,0,66,20,10,"Knopf5")
+45 BUTTON t(6,0,77,30,5,"Knopf6")
+46 BUTTON t(7,0,88,30,10,"Knopf7")
+47 BUTTON t(8,0,99,30,15,"Knopf8")
+48 BUTTON t(9,0,68,30,20,"Knopf9")
+49 BUTTON t(10,0,111,30,25,"Knopf10")
+50 a=MB 0
+52 POS 2,22:PRINT "X:";MGET (1),"Y:";MGET (2);" "
+55 IF a>0 THEN GOSUB 100
+60 IF a=15 THEN CLS :END 
+70 GOTO 50
+100 POS 19,22:PRINT "Knopf:";a;"  "
+110 RETURN 
+

data/CLIM2.BAS

@@ -0,0 +1,69 @@
+10 WSET 0:CROFF 
+20 COL 255,0,255:CLS 
+30 TLOAD 1,"fontkc.dat",16,11
+40 STILE 1
+50 WAVE 1,1
+60 ADSR 1,0,10,30,10
+100 MAP l"clim1.map":MAP d
+110 k=8:s=1
+120 MAP w
+520 PLAYER p(165,0,44,0,35,24)
+530 PLAYER b(32,60,62,32,32,32,32,32,32,32)
+535 PLAYER i(36,36,36,36,36,36)
+540 SPRITE p(1,128,13,0,55,0,3,8,24,10,24)
+550 SPRITE p(2,128,13,0,55,0,4,8,24,22,8)
+551 SPRITE p(3,134,135,0,128,0,1,12,20,12,24)
+555 SPRITE p(4,174,167,0,200,0,2,24,33,24,24)
+556 FOR i=1 TO 6
+557 PLAYER e(i,45,0,250,0)
+558 NEXT i
+560 SPRITE s(s)  
+570 SPRITE m(1)
+580 FONT "SPEED:",0,44,0,1,1
+600 a=INKEY 
+601 x=GETX (2):y=GETY (2)
+602 PLAYXY a
+603 IF x=16 AND y=1 THEN GOTO 1300
+610 IF a=45 THEN s=s-1
+611 IF s<1 THEN s=1
+612 IF a=43 THEN s=s+1
+613 IF s>255 THEN s=255
+614 SPRITE s(s):#d=s:#d=#d+"-"
+615 #s=#d+" "
+619 IF a=43 OR a=45 THEN FONT #s,0,44,0,7,1
+620 b=PLAYER (1)
+622 c=PLAYER (2)
+623 IF c>0 THEN GOSUB 1000
+630 IF b>0 THEN GOTO 800
+640 GOTO 600
+800 REM         Kollision mit Sprite
+801 SPRITE m(0)
+805 x=GETX (2):y=GETY (2)
+810 FOR i=99 TO 10 STEP -5
+811 TILE 165,255,0,255,x,y
+820 BEEP i                   
+821 TILE 165,0,44,0,x,y
+830 NEXT i
+840 SPRITE m(0)
+845 CLS 
+850 POS 8,15:PRINT "Du hast verloren!!!"
+860 PAUSE 2000
+870 SPRITE m(2)
+880 MAP c
+885 CLS 
+886 a=INKEY :a=0
+890 GOTO 100
+1000 REM         item einsammeln
+1010 NOTE 1,95:NTOFF 1
+1015 PAUSE 80
+1020 NOTE 1,85:NTOFF 1
+1030 TILE 45,0,250,0,16,k
+1040 k=k-1
+1200 RETURN 
+1300 NOTE 1,95:NTOFF 1:PAUSE 100
+1310 NOTE 1,85:NTOFF 1:PAUSE 100
+1320 NOTE 1,75:NTOFF 1:PAUSE 1000
+1330 SPRITE m(0)
+1340 CLS 
+1350 END 
+

data/CLIMBER2.BAS

@@ -0,0 +1,99 @@
+10 CROFF 
+15 PLAYER k(2,3,4,5,32)
+20 COL 255,0,255:CLS 
+30 TLOAD 1,"fontkc.dat",16,11
+40 STILE 1
+50 WAVE 1,1
+60 ADSR 1,0,10,30,10
+100 MAP w
+110 k=8:s=1
+200 #a=STRING$ (32,"-")
+210 #a(1)=STRING$ (31,"-")
+220 #a(2)=STRING$ (17,"-")
+230 #a(3)=STRING$ (5,"-")
+240 FONT #a(3),0,250,0,32,24
+250 FONT #a,0,250,0,1,24
+260 FONT #a(1),0,250,0,1,16
+270 FONT #a(1),0,250,0,1,8
+280 FONT #a(2),0,250,0,8,20
+290 FONT #a(2),0,250,0,8,12
+300 FOR i=15 TO 25
+310 FONT "-",0,250,0,2,i
+320 FONT "-",0,250,0,30,i
+330 NEXT i
+340 FOR i=7 TO 25
+350 FONT "-",0,250,0,10,i
+360 FONT "-",0,250,0,22,i
+370 NEXT i
+380 #a(4)="$-$"
+390 #a(5)="$$$"
+400 FONT "$",0,$e6,0,15,12:FONT "$",0,$e6,0,17,12
+410 FONT #a(5),0,$e6,0,15,20
+420 FONT "$",0,$e6,0,6,16
+430 FONT "$",0,$e6,0,26,16
+440 FONT "$",0,$e6,0,2,20
+450 FONT "$",0,$e6,0,30,20
+460 FOR i=0 TO 8
+470 TILE 31,0,$80,0,16,i
+480 NEXT i
+490 FONT ">",0,$33,0,15,3
+500 FONT "<",0,$33,0,17,3
+510 PLAYER p(165,0,44,0,35,24)
+520 PLAYER c(32,31,128,13,175,0)
+530 PLAYER b(32,60,62,32,32,32,32,32,32,32)
+535 PLAYER i(36,36,36,36,36,36)
+540 SPRITE p(1,128,13,0,55,0,3,8,24,10,24)
+550 SPRITE p(2,128,13,0,55,0,4,8,24,22,8)
+551 FOR i=1 TO 6
+552 PLAYER e(i,45,0,250,0)
+553 NEXT i
+560 SPRITE s(s)  
+570 SPRITE m(1)
+580 FONT "SPEED +/-:",0,44,0,1,1
+600 a=INKEY 
+601 x=GETX (2):y=GETY (2)
+602 IF x=16 AND y=1 THEN GOTO 1300
+604 PLAYXY a
+605 b=PLAYER (1)
+610 IF a=45 THEN s=s-1
+611 IF s<1 THEN s=1
+612 IF a=43 THEN s=s+1
+613 IF s>255 THEN s=255
+614 SPRITE s(s):#d=s:#d=#d+"-"
+615 #s=#d+" "
+619 IF a=43 OR a=45 THEN FONT #s,0,44,0,11,1
+622 c=PLAYER (2)
+623 IF c>0 THEN GOSUB 1000
+630 IF b>0 THEN GOTO 800
+640 GOTO 600
+800 REM       Kollision mit Sprite
+801 SPRITE m(0)
+805 x=GETX (2):y=GETY (2)
+810 FOR i=99 TO 10 STEP -5
+811 TILE 165,255,0,255,x,y
+820 BEEP i                   
+821 TILE 165,0,44,0,x,y
+830 NEXT i
+840 SPRITE m(0)
+845 CLS 
+850 POS 8,15:PRINT "Du hast verloren!!!"
+860 PAUSE 2000
+870 SPRITE m(2)
+880 MAP c
+885 CLS 
+886 a=INKEY :a=0
+890 GOTO 100
+1000 REM       item einsammeln
+1010 NOTE 1,85:NTOFF 1
+1015 PAUSE 80
+1020 NOTE 1,95:NTOFF 1
+1030 TILE 45,0,250,0,16,k
+1040 k=k-1
+1200 RETURN 
+1300 REM   Level fertig
+1310 NOTE 1,95:NTOFF 1:PAUSE 100
+1320 NOTE 1,85:NTOFF 1:PAUSE 100
+1330 NOTE 1,75:NTOFF 1:PAUSE 1000
+1340 SPRITE m(0):CLS 
+1350 GOTO 100
+

data/COLOR.BAS

@@ -0,0 +1,15 @@
+10 CLS 
+20 FOR i=0 TO 255 STEP 5
+25 COL 0,i-5,1
+30 PRINT "B";
+40 NEXT i
+50 FOR i=0 TO 255 STEP 5
+60 COL i,0,1
+70 PRINT "C";
+80 NEXT i
+90 FOR a=0 TO 255 STEP 5
+100 b=255-a
+110 COL b,a,1
+115 PRINT "D";
+130 NEXT a
+

data/COLORBOX.BAS

@@ -0,0 +1,25 @@
+10 COL 0,255,0
+20 CLS 
+22 TLOAD 1,"sysfontb.dat",16,11
+23 STILE 1
+30 FOR i=0 TO 100
+40 x=RND (39)
+50 y=RND (29)
+60 BOX i,x,y,x+5,y+5,1
+70 NEXT i
+80 FOR i=100 TO 0 STEP -1
+90 x=RND (39):y=RND (29)
+100 BOX i,x,y,x+5,y+5,0
+110 NEXT i
+120 FOR i=0 TO 100
+130 x=RND (39):y=RND (29)
+140 FRAME i+5,i,i+10,x,y,x+5,y+5
+150 NEXT i
+155 CROFF 
+160 FOR i=100 TO 0 STEP -1
+170 x=RND (39):y=RND (29)
+180 WIN c(1,i+5,i,i+10,x,y,x+8,y+8,4,0,"Hey!")
+185 PRINT "Hey!"
+190 NEXT i
+200 WSET 0
+

data/DATA.BAS

@@ -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/DATA.DAT

@@ -0,0 +1,7 @@
+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

@@ -0,0 +1,48 @@
+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/DMPPLAY.BAS

@@ -0,0 +1,180 @@
+10 COL 0,$e6,0
+17 DIM g(20)
+20 CROFF 
+22 TLOAD 1,"font1.dat",16,11
+25 STILE 1
+30 CLS 
+32 MAP l"mappl.dat"
+35 MAP d
+40 FONT "SID-DMP-PLAYER",$e6,0,$80,13,1
+45 FONT "DATEILISTE",$e6,0,$80,5,4
+50 FONT "DATEIINFORMATIONEN",$e6,0,$80,20,4
+55 FONT "POWERED BY",$e6,0,$80,3,27
+56 FONT "TRIOS-BASIC 2.1",$e6,0,$80,1,28
+60 CROFF 
+70 p(5)=0
+73 TLOAD 15,"mouse3.dat",1,1
+75 MOUSE 1,0
+76 BOX $92,23,26,34,28,0
+77 FRAME 0,$92,0,23,26,34,28
+80 BUTTON i(1,126,$92,0,0,24,27)
+90 BUTTON i(2,16,$92,0,0,27,27)
+100 BUTTON i(4,171,$92,0,0,30,27)
+102 BUTTON i(3,127,$92,0,0,33,27)
+114 TILE 30,$e6,0,0,18,6
+116 TILE 31,$e6,0,0,18,23
+130 CHDIR "dmp"
+140 DIR "DMP",0
+150 a(1)=GFILE 
+151 a(2)=18
+152 a(3)=a(1)
+153 IF a(1)>a(2) THEN a(3)=a(2)
+160 GOSUB 20000:REM       Dateiliste anzeigen
+192 REM            scrolldownzaehler setzen
+193 a(6)=1
+195 GFILE 1
+200 GOSUB 10000
+210 TILE 17,$e6,0,0,13,6
+900 b=GFILE 
+910 c=5:REM               erste zeile
+920 d=25:REM               letzte zeile
+930 y=6
+940 f=0:REM               dateinummer
+2000 m(1)=MB (0)
+2002 x(1)=MGET (1)
+2005 y(1)=MGET (2)
+2006 IF m(1)=0 THEN GOTO 2040
+2010 ON m(1) GOSUB 7000,6000,5000,9000
+2040 IF x(1)>0 AND x(1)<13 AND y(1)>5 AND y(1)<b+6 AND m(1)=255 THEN GOSUB 8000
+2100 IF x(1)=18 AND y(1)=23 AND m(1)=255 THEN GOSUB 11000
+2200 IF x(1)=18 AND y(1)=6 AND m(1)=255 THEN GOSUB 12000
+2300 IF p=1 AND GDMP =0 THEN GOSUB 5000
+2310 IF p=1 THEN p(5)=GDMP 
+2490 #g=p(5)
+2495 IF p=1 THEN FONT "    ",$e6,0,$80,30,14
+2500 FONT #g,$e6,0,$80,29,14
+3000 GOTO 2000
+5000 REM                naechster titel
+5020 FONT "  ",$e6,0,$80,13,y
+5030 y=y+1
+5032 IF y>23 THEN GOSUB 11000
+5035 IF y>23 THEN y=23
+5040 f=f+1
+5050 IF f>b THEN GOSUB 20000
+5055 IF f>b THEN f=1
+5060 IF f=1 THEN y=6
+5070 GFILE f
+5100 TILE 17,$e6,0,0,13,y
+5120 IF p>1 THEN GOSUB 9000
+5125 GOSUB 10000
+5130 IF p=1 THEN PLAY #z
+5900 RETURN 
+6000 REM               playfunktion
+6010 p=p+1
+6011 #b=CHR$ (10)
+6015 #a=CHR$ (16)
+6016 IF p=1 THEN GOSUB 10000
+6017 IF p=1 THEN PLAY #z
+6018 IF p=1 THEN FONT #b,0,$92,0,27,27
+6020 IF p=2 THEN PLAY 1
+6025 IF p=2 THEN FONT #a,$92,0,0,27,27
+6028 IF p=3 THEN FONT #b,0,$92,0,27,27
+6030 IF p=3 THEN PLAY 1
+6035 IF p=3 THEN p=1
+6900 RETURN 
+7000 REM               titel zurueck
+7020 FONT "  ",$e6,0,$80,13,y
+7030 y=y-1
+7032 IF y<6 THEN GOSUB 12000
+7035 IF y<6 THEN y=6
+7040 f=f-1
+7050 IF f<1 THEN f=1
+7060 IF f=b THEN y=5+b
+7070 GFILE f
+7110 TILE 17,$e6,0,0,13,y
+7120 IF p>1 THEN GOSUB 9000
+7125 GOSUB 10000
+7130 IF p=1 THEN PLAY #z
+7900 RETURN 
+8000 REM              mauskoordinatenabfrage
+8001 a(2)=0
+8003 m(1)=MB (0)
+8005 IF m(1)=255 THEN a(2)=1
+8020 FONT "  ",$e6,0,$80,13,y
+8030 y=y(1)
+8040 f=y-5+a(4):REM             titelauswahl
+8050 GFILE f
+8070 TILE 17,$e6,0,0,13,y
+8080 IF a(2)=1 THEN PLAY 0
+8085 IF a(2)=1 THEN GOSUB 10000
+8090 IF a(2)=1 THEN PLAY #z
+8100 IF a(2)=1 THEN p=1
+8110 #b=CHR$ (10)
+8120 IF p=1 THEN FONT #b,0,$92,0,27,27
+8900 RETURN 
+9000 REM               player-stop
+9010 PLAY 0
+9020 p=0
+9030 #a=CHR$ (16)
+9040 FONT #a,$92,0,0,27,27
+9100 RETURN 
+10000 REM             dateiattribute einlesen
+10010 OPEN #z,R
+10020 FOR i=0 TO 20
+10030 g(i)=GATTR (i)
+10040 NEXT i
+10050 CLOSE 
+10100 FONT #z,$e6,0,$80,23,6
+10110 FONT "GROESSE:",$e6,0,31,21,8
+10115 FONT "SAMPLES:",$e6,0,31,21,12
+10117 FONT "DMP-POS:",$e6,0,31,21,14
+10120 #x=g(0)
+10122 u=g(0)/25
+10125 #u=u
+10130 FONT #x,$e6,0,$F0,29,8
+10133 FONT "  ",$e6,0,$f0,33,12
+10135 FONT #u,$e6,0,$f0,29,12
+10140 FONT "DATUM  :",$e6,0,31,21,10
+10150 #n=g(1)+"-"+g(2)+"-"+g(3)
+10230 FONT "  ",$e6,0,$f0,37,10
+10500 FONT #n,$e6,0,$f0,29,10
+10900 RETURN 
+11000 REM            scroll-up
+11001 REM            a(4) scrollzaehler
+11002 REM            a(5) endemarker scrollup
+11020 IF a(4)+18=a(1) THEN a(5)=1
+11025 IF a(4)+18<a(1) THEN a(5)=0
+11028 IF a(5)=0 THEN a(4)=a(4)+1
+11030 IF a(5)=0 THEN SCRUP 1,$e6,1,6,17,23,1
+11035 IF a(5)=0 THEN y=y-1
+11037 IF y<6 THEN y=6
+11040 a(7)=a(4)+18
+11050 GFILE a(7)
+11060 FONT #z,$e6,0,$80,1,23
+11900 RETURN 
+12000 REM            scrolldown
+12005 IF a(4)>0 THEN a(6)=0
+12010 IF a(6)=0 THEN a(4)=a(4)-1
+12030 IF a(6)=0 THEN SCRDN 1,$e6,1,6,17,23,1
+12035 IF a(6)=0 THEN y=y+1
+12037 IF y>23 THEN y=23
+12040 IF a(4)=0 THEN a(6)=1
+12050 a(7)=a(4)+1
+12060 GFILE a(7)
+12065 FONT #z,$e6,0,$80,1,6
+12900 RETURN 
+13000 REM          Fortschrittsanzeige
+13010 r=GDMP 
+13030 u=r/18:REM           wert pro block
+13040 t=GDMP /u
+13050 t=18-t
+13800 POS 5,28:PRINT t;
+13900 RETURN 
+20000 REM       Dateiliste anzeigen
+20010 FOR i=1 TO a(3)
+20020 GFILE i
+20030 FONT #z,$e6,$0,$80,1,i+5
+20040 NEXT i
+20050 a(4)=0:REM       scrollzaehler zuruecksetzen
+20060 RETURN 
+

data/Errors.txt

@@ -0,0 +1,44 @@
+Syntax Error !
+Wrong Linenumber !
+Wrong Parameter !
+Break in Line 
+DATA Error ! 
+File-Read-Error !
+No Programm in Memory !
+File exist! Overwrite? y/n
+Bye !!!
+in Line:
+SD-Card 
+Recursion Error !
+Invalid Comparsion !
+Missing THEN !
+Invalid RETURN !
+Parameter out of Range !
+Missing Quote !
+Dimension Error !
+Invalid Variable !
+Missing Comma !
+Out of DATA Error !
+File-Open-Error !
+File-Delete-Error !
+File can't Rename !
+Function Error ! 
+Wrong Filename !
+Missing Parameter FOR !
+Missing TO !
+To many Parameters !
+File-Write-Error !
+End of Line in String !
+Invalid Hex-Character !
+Invalid Binary-Character !
+Invalid literal Value !
+Division by Zero Error !
+Missing Point !
+<Key? / ESC >
+File-Read-Error !
+Missing  Equal Sign !
+* Vers.2.10-02/2014 *
+F1HELP F2LOAD F3SAVE F4DIR F5RUN F6LIST
+-Basic-Bytes-Free *
+ Datei(en)
+43

data/FARBEN.BAS

@@ -0,0 +1,6 @@
+10 CLS 
+20 FOR i=5 TO 260 STEP 5
+25 COL 0,i-5,1
+30 PRINT i-5,
+40 NEXT i
+

data/FONTS.BAS

@@ -0,0 +1,16 @@
+5 COL 0,$54,0
+10 CLS 
+20 CROFF 
+30 TLOAD 1,"font5.dat",16,11
+40 STILE 1
+50 #a="VERSCHIEDENSTE FONTS BENUTZEN"
+60 FOR i=1 TO 10
+72 FOR f=0 TO 255 STEP 4
+80 FONT #a,$54,f,0,2,2
+100 NEXT f
+110 NEXT i
+120 TLOAD 1,"font2.dat",16,11
+130 STILE 1
+140 TLOAD 1,"font4.dat",16,11
+150 STILE 1
+

data/FUNCT2.BAS

@@ -0,0 +1,30 @@
+4 COL 0,250,0
+5 CLS :POS 7,2
+10 PRINT "FUNC A(X,Y)=[1/(1/x+1/y)]
+15 FUNC a(x,y)=[1/(1/x+1/y)]
+20 a=270:b=180
+30 c=FUNC a(a,b)
+40 POS 1,5
+50 PRINT "Parallelschaltung von 2 Widerstaenden"
+55 y=10
+60 FOR i=1 TO 3
+70 FOR d=1 TO 8
+74 x=10
+75 IF i=2 THEN x=9
+80 READ f
+85 IF d>6 AND i=2 THEN x=11
+90 POS x+d,y:PRINT CHR$ (f);
+100 NEXT d
+110 y=y+2:NEXT i
+112 POS 14,8:PRINT "R1";TAB (22);"R1=";a;" ";CHR$ (19)
+113 POS 14,12:PRINT "R2";TAB (22);"R2=";b;" ";CHR$ (19)
+115 POS 9,18
+120 PRINT "Rges=";c;" ";CHR$ (19)
+122 PRINT " "
+130 INPUT "Neuer Wert fuer R1:";a
+135 INPUT "Neuer Wert fuer R2:";b
+140 RESTORE 1000:BOX 250,0, 8,39,29,0:GOTO 30
+1000 DATA 159,144,143,139,139,140,144,158
+1100 DATA 144,152,32,32,32,32,153,144
+1200 DATA 157,144,143,139,139,140,144,156
+

data/FUNCTION.BAS

@@ -0,0 +1,8 @@
+10 FUNC a(x)=[FN atn(x/(1-x*x))]
+20 a=0.707
+30 b=FUNC a(a)
+40 CLS :PRINT "Berechnung von Arc Sin"
+50 PRINT "FUNC a(x)=[FN atn(x/(1-x*x))]"
+60 PRINT " "
+80 PRINT "arc sin(";a;")=";b
+

data/HELP/ADSR

@@ -0,0 +1,13 @@
+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/AND

@@ -0,0 +1,12 @@
+Logical Operators
+
+Syntax:
+Operator
+	Description
+AND
+	True wenn beide [x] und [y] True sind.
+NOT
+	True wenn [x] nicht True ist.
+OR
+	True wenn [x] oder [y] True ist.
+

data/HELP/ASC

@@ -0,0 +1,10 @@
+ASC - STRINGFUNKTION
+
+Syntax:
+ASC (string)
+
+Gibt dem ASCII-Wert des
+ersten Stringzeichens 
+zurueck.
+Bsp.: Print ASC("B")
+      ergibt 66

data/HELP/BACKUP

@@ -0,0 +1,12 @@
+BACKUP-Fensterfunktion
+
+Syntax:
+BACKUP x,y,xx,yy,RAM
+
+sichert einen Bildschirm
+bereich in den RAM
+
+RAM-Adresse im E-RAM
+
+Bsp.:
+BACKUP 5,6,39,28,$30000

data/HELP/BEEP

@@ -0,0 +1,11 @@
+BEEP-SID-Soundfunktionen
+
+Syntax:
+BEEP {<expr>}
+
+Beep ohne Parameter ist
+ein Systemsignal.
+Beep mit parameter
+laesst sich als kleines
+Musik-Modul nutzen.
+(0-255)

data/HELP/BIN

@@ -0,0 +1,10 @@
+BIN - Ausgabebefehle
+
+Syntax:
+BIN (WERT)
+
+Gibt den Integerwert
+WERT in binaerer Form
+aus
+Bsp.:Print BIN(122)
+     ergibt 01111010

data/HELP/BLOAD

@@ -0,0 +1,6 @@
+BLOAD - Systembefehle
+
+Syntax:
+BLOAD "Filename"
+
+startet eine Bin-Datei von SD-Card

data/HELP/BOX

@@ -0,0 +1,12 @@
+BOX - GRAFIKFUNKTION
+
+Syntax:
+BOX Farbe,x,y,xx,yy,mode
+
+Zeichnet eine farbige 
+Box von x,y bis xx,yy 
+mit der angegebenen 
+Farbe.
+mode:
+1=mit Schatten
+0=ohne Schatten

data/HELP/BUTTON

@@ -0,0 +1,30 @@
+BUTTON - Fensterfunktion
+
+Syntax:
+BUTTON <opt>,<expr..expr>
+
+erstellt einen Text oder
+Icon-Button
+opt-t=Text, i=Iconbutton
+
+Textbutton
+(nr,vor,hint,x,y,“Text“)
+nr-Button-Nr
+vor-Vordergrundfarbe
+hint-Hintergrundfarbe
+x,y-Position
+Text-Buttontext
+
+Iconbutton
+(tnr,f1,f2,f3,x,y)
+tnr-Tilenr,das den Button
+    darstellt
+f1..f3-Farben des Tiles
+x,y-Position
+
+Bsp.:
+BUTTON t(11,0,33,1,2,“KNOPF“)
+BUTTON i(2,16,$e6,0,250,23,10)
+
+HINWEIS:
+32 Buttons sind erlaubt!

data/HELP/BYE

@@ -0,0 +1,9 @@
+BYE - Systembefehle
+
+Syntax:
+Bye
+
+Beendet TRIOS-Basic, 
+alternativ kann auch 
+die Taste F12 
+gedrueckt werden.

data/HELP/CHDIR

@@ -0,0 +1,10 @@
+CHDIR - Dateifunktion
+
+Syntax:
+CHDIR"Name"
+
+Wechselt in das 
+Verzeichnis Name
+CHDIR".." wechselt 
+wieder ins
+Root-Verzeichnis

data/HELP/CHR$

@@ -0,0 +1,10 @@
+CHR$ - STRINGFUNKTION
+
+Syntax:
+CHR$ (expr)
+
+Gibt dem Dezimalwert 
+zugeordneten Zeichencode 
+aus.
+Bsp.: Print chr$(65) 
+      gibt ein A aus

data/HELP/CIRC

@@ -0,0 +1,9 @@
+CIRC - GRAFIKFUNKTION
+
+Syntax:
+CIRC <color>,<x>,<y>,<r>
+
+Zeichnet einen Kreis mit
+dem Mittelpunkt x,y und
+dem Radius r in der 
+Farbe color.

data/HELP/CLEAR

@@ -0,0 +1,7 @@
+CLEAR-Speicherfunktionen
+
+Syntax:
+CLEAR
+
+Loescht alle Variablen
+im Speicher

data/HELP/CLOSE

@@ -0,0 +1,8 @@
+CLOSE-Dateifunktion
+
+Syntax:
+CLOSE
+
+Schliesst die aktuell 
+geoeffnete Datei
+

data/HELP/CLS

@@ -0,0 +1,6 @@
+CLS-Bildschirmfunktion
+
+Syntax:
+CLS 
+
+Bildschirm loeschen

data/HELP/COL

@@ -0,0 +1,9 @@
+COL - BILDSCHIRMFUNKTION
+
+Syntax:
+col<Vor>,<Hinter>,<Cursor>
+
+setzt die Vordergrund, 
+Hintergrund,Cursorfarbe
+
+Werte (0-255)

data/HELP/COM

@@ -0,0 +1,18 @@
+COM-ser. Schnittstelle
+
+Syntax:
+COM S(on,baud)
+
+serielle Schnittstelle
+oeffnen (1,57600) oder 
+schliessen (0).
+
+<expr>=COM R
+Byte von der seriellen
+Schnittstelle lesen, 
+wartet auf Zeichen
+
+<expr>=COM G
+Byte von der seriellen
+Schnittstelle lesen 
+ohne zu warten

data/HELP/COMP$

@@ -0,0 +1,10 @@
+COMP$ - Stringfunktion
+
+Syntax:
+COMP$(Str1,Str2) 
+
+vergleicht STR1 mit STR2.
+Sind beide Strings gleich
+wird -1 und sind beide
+Strings ungleich,0 
+zurueckgegeben.