mirror of
https://github.com/mbirth/gwbasic.git
synced 2024-12-25 03:54:07 +00:00
Added SBPRO.BAS + CFG.
This commit is contained in:
parent
6c4123dffa
commit
a201f0e235
GPG Key ID:
A9928D7A098C3A9A
299
SBPRO/SBPRO.BAS
Normal file
299
SBPRO/SBPRO.BAS
Normal file
@ -0,0 +1,299 @@
|
||||
10 SAVE"sbpro.bak"
|
||||
20 WIDTH 80
|
||||
30 CLS
|
||||
40 COLOR 15,0,0
|
||||
50 KEY OFF
|
||||
60 OPEN "I",#1,"SBPRO.CFG"
|
||||
70 INPUT#1,PATH$
|
||||
80 IF PATH$="" THEN GOTO 160
|
||||
90 IF MID$(PATH$,2,2)<>":\" THEN GOTO 160
|
||||
100 CLOSE #1
|
||||
110 CLS:PRINT"Wollen Sie den PATH „ndern ???"
|
||||
120 A$=INKEY$:IF A$="" THEN 120
|
||||
130 IF A$="j" OR A$="J" THEN BR=1:GOTO 170
|
||||
140 IF A$="n" OR A$="N" THEN GOTO 380
|
||||
150 GOTO 120
|
||||
160 REM PATH INCORRECT
|
||||
170 CLOSE #1
|
||||
180 OPEN "O",#1,"SBPRO.CFG"
|
||||
190 CLS
|
||||
200 IF BR=1 THEN GOTO 220
|
||||
210 COLOR 12:PRINT"Der PATH in der Datei SBPRO.CFG ist Falsch oder nicht vorhanden!"
|
||||
220 PRINT
|
||||
230 PRINT"Bitte berichtigen!"
|
||||
240 COLOR 15
|
||||
250 PRINT
|
||||
260 PRINT"Geben Sie den Path der SBPro - Utilities an"
|
||||
270 INPUT"Neuer Path:",PATH$
|
||||
280 IF PATH$="" THEN GOTO 340
|
||||
290 IF MID$(PATH$,2,2)<>":\" THEN GOTO 340
|
||||
300 IF RIGHT$(PATH$,1)<>"\" THEN GOTO 340
|
||||
310 WRITE#1,PATH$
|
||||
320 CLOSE #1
|
||||
330 GOTO 380
|
||||
340 REM Fehler bei Eingabe!
|
||||
350 CLS
|
||||
360 PRINT"PATH INCORRECT!!! Geben Sie auch einen BackSlash am Ende an!"
|
||||
370 GOTO 220
|
||||
380 REM Hautpprogramm
|
||||
390 CLS
|
||||
400 COLOR 10
|
||||
410 WIDTH 40:PRINT"SoundBlaster Pro - Utility Program"
|
||||
420 COLOR 14
|
||||
430 PRINT" Geschrieben in GW-Basic"
|
||||
440 PRINT" von Markus Birth"
|
||||
450 LOCATE 10,1
|
||||
460 PRINT" /³ ¿"
|
||||
470 PRINT" / ³ ¿ ³ Û"
|
||||
480 PRINT" ÉÍÍѾ ³ ¿ ³ ³ ÛÛÛÛÛÜÜÜÜÜÜÜ"
|
||||
490 PRINT"LSP º ³ ³ ] ³ ³ ³ ÛÛÛÛÛÛÛÛMICROÛ"
|
||||
500 PRINT" ÈÍÍϸ ³ Ù ³ ³ ÛÛÛÛÛßßßßßßß"
|
||||
510 PRINT" \ ³ Ù ³ Û"
|
||||
520 PRINT" \³ Ù"
|
||||
530 LOCATE 24,1
|
||||
540 PRINT" Start mit Tastendruck";
|
||||
550 A$=INKEY$:IF A$="" THEN 550
|
||||
560 CLS
|
||||
570 WIDTH 80
|
||||
580 COLOR 15
|
||||
590 COLOR ,4,0:PRINT" SoundBlaster Pro - Utility Program "
|
||||
600 COLOR 8,0,0
|
||||
610 PRINT
|
||||
620 PRINT" ÄÄÄ ÄÄÄ ÄÄÄ ÄÄÄ ÄÄÄ"
|
||||
630 PRINT" ³\³/³ ³\³/³ ³\³/³ ³\³/³ ³\³/³"
|
||||
640 PRINT" ÄÄÄ ÄÄÄ ÄÄÄ ÄÄÄ ÄÄÄ"
|
||||
650 PRINT" ³/³\³ ³/³\³ ³/³\³ ³/³\³ ³/³\³"
|
||||
660 PRINT" ÄÄÄ ÄÄÄ ÄÄÄ ÄÄÄ ÄÄÄ"
|
||||
670 PRINT
|
||||
680 COLOR 14
|
||||
690 PRINT" RECRD - Aufnehmen"
|
||||
700 PRINT" PLAYD - Datei abspielen"
|
||||
710 PRINT" WV2VC - RIFF WAVE File in Creative Voice File umwandeln"
|
||||
720 PRINT" VC2WV - Creative Voice File in RIFF WAVE File umwandeln"
|
||||
730 PRINT" JOIVC - 2 Creative Voice Files verbinden"
|
||||
740 PRINT" VCHDR - Header f<>r Creative Voice File schreiben"
|
||||
750 PRINT" MIXER - SBPro Mixer Einstellungen vornehmen"
|
||||
760 PRINT" RDDRV - SoundDriver anzeigen"
|
||||
770 PRINT
|
||||
780 PRINT" TODOS - Quit"
|
||||
790 COLOR 31
|
||||
800 LOCATE 20,3:PRINT" Í ";:COLOR 15:PRINT"Í Í Í Í"
|
||||
810 X=1
|
||||
820 FUNCT$="Funktion w„hlen"
|
||||
830 COLOR 15,4
|
||||
840 LOCATE 24,1:PRINT USING"Aktuelle Funktion: \ \ Aktuelle Zeit: &:&:&";FUNCT$;LEFT$(TIME$,2);MID$(TIME$,4,2);RIGHT$(TIME$,2);
|
||||
850 A$(X)=INKEY$:IF X>5 THEN GOTO 990:IF A$(X)="" THEN GOTO 840
|
||||
860 GOTO 940
|
||||
870 GOTO 840
|
||||
880 IF X=1 THEN LOCATE 20,4:COLOR 15,0:PRINT A$(X);:COLOR 31:PRINT" Í":X=X+1:GOTO 930
|
||||
890 IF X=2 THEN LOCATE 20,6:COLOR 15,0:PRINT A$(X);:COLOR 31:PRINT" Í":X=X+1:GOTO 930
|
||||
900 IF X=3 THEN LOCATE 20,8:COLOR 15,0:PRINT A$(X);:COLOR 31:PRINT" Í":X=X+1:GOTO 930
|
||||
910 IF X=4 THEN LOCATE 20,10:COLOR 15,0:PRINT A$(X);:COLOR 31:PRINT" Í":X=X+1:GOTO 930
|
||||
920 IF X=5 THEN LOCATE 20,12:COLOR 15,0:PRINT A$(X):X=X+1:GOTO 930
|
||||
930 GOTO 830
|
||||
940 REM DATA šberpr<70>fung
|
||||
950 READ C$,D$:IF C$="END" THEN RESTORE:GOTO 830
|
||||
960 IF A$(X)=C$ OR A$(X)=D$ THEN A$(X)=D$:RESTORE:GOTO 880
|
||||
970 GOTO 950
|
||||
980 DATA a,A,b,B,c,C,d,D,e,E,f,F,g,G,h,H,i,I,j,J,k,K,l,L,m,M,n,N,o,O,p,P,q,Q,r,R,s,S,t,T,u,U,v,V,w,W,x,X,y,Y,z,Z,1,1,2,2,3,3,4,4,5,5,6,6,7,7,8,8,9,9,0,0,-,-,/,/,END,IF
|
||||
990 REM Hauptpprog
|
||||
1000 FCT$ = A$(1) + A$(2) + A$(3) + A$(4) + A$(5)
|
||||
1010 IF FCT$="RECRD" THEN GOTO 1110
|
||||
1020 IF FCT$="PLAYD" THEN GOTO
|
||||
1030 IF FCT$="WV2VC" THEN GOTO
|
||||
1040 IF FCT$="VC2WV" THEN GOTO
|
||||
1050 IF FCT$="JOIVC" THEN GOTO
|
||||
1060 IF FCT$="VCHDR" THEN GOTO
|
||||
1070 IF FCT$="RDDRV" THEN GOTO
|
||||
1080 IF FCT$="TODOS" THEN COLOR 15,0,0:CLS:END
|
||||
1090 LOCATE 20,3:COLOR 31,0,0:PRINT" Í ";:COLOR 15,0,0:PRINT"Í Í Í Í":X=1
|
||||
1100 GOTO 830
|
||||
1110 REM RECORD FILE
|
||||
1120 LOCATE 9,1
|
||||
1130 COLOR 15,0,0
|
||||
1140 FOR Z=0 TO 11
|
||||
1150 PRINT SPACE$(79)
|
||||
1160 NEXT Z
|
||||
1170 FUNCT$="Aufnahme eines Files"
|
||||
1180 COLOR 15,4
|
||||
1190 LOCATE 24,1:PRINT USING"Aktuelle Funktion: \ \ Aktuelle Zeit: &:&:&";FUNCT$;LEFT$(TIME$,2);MID$(TIME$,4,2);RIGHT$(TIME$,2);
|
||||
1200 A=1
|
||||
1210 X=28
|
||||
1220 LOCATE 3,11:COLOR X,0,0:PRINT"ÄÄÄ ÄÄÄ ÄÄÄ"
|
||||
1230 LOCATE 4,10:PRINT"³":LOCATE 4,14:PRINT"³":LOCATE 4,17:PRINT"³":LOCATE 4,24:PRINT"³"
|
||||
1240 LOCATE 5,11:PRINT"ÄÄÄ":LOCATE 5,18:PRINT"ÄÄÄ"
|
||||
1250 LOCATE 6,10:PRINT"³":LOCATE 6,13:PRINT"\":LOCATE 6,17:PRINT"³":LOCATE 6,24:PRINT"³"
|
||||
1260 LOCATE 7,18:PRINT"ÄÄÄ":LOCATE 7,25:PRINT"ÄÄÄ"
|
||||
1270 IF A=2 THEN GOTO 1320
|
||||
1280 A=A+1
|
||||
1290 X=12
|
||||
1300 FOR Z=0 TO 49999!:NEXT
|
||||
1310 GOTO 1220
|
||||
1320 COLOR 14,0,0
|
||||
1330 LOCATE 9,1
|
||||
1340 GOSUB 2710
|
||||
1350 LOCATE 9,1:PRINT SPACE$(75)
|
||||
1360 PRINT SPACE$(75)
|
||||
1370 PRINT SPACE$(75)
|
||||
1380 LOCATE 20,1:PRINT SPACE$(75)
|
||||
1390 LOCATE 21,1:PRINT SPACE$(75)
|
||||
1400 LOCATE 22,1:PRINT SPACE$(75)
|
||||
1410 INFO$="TYPE " + PATH$ + "VREC.HLP"
|
||||
1420 LOCATE 9,1:COLOR 14
|
||||
1430 PRINT"Info:"
|
||||
1440 SHELL INFO$
|
||||
1450 A$=INKEY$
|
||||
1460 LOCATE 24,1:COLOR 15,4:PRINT USING"Aktuelle Funktion: \ \ Aktuelle Zeit: &:&:&";FUNCT$;LEFT$(TIME$,2);MID$(TIME$,4,2);RIGHT$(TIME$,2);
|
||||
1470 IF A$="" THEN 1450
|
||||
1480 COLOR 15,0,0
|
||||
1490 FOR Z=9 TO 23
|
||||
1500 LOCATE Z,1:PRINT SPACE$(80);
|
||||
1510 NEXT Z
|
||||
1520 AUFRUF$=PATH$ + "VREC.EXE " + DATEI$ + " "
|
||||
1530 LOCATE 9,1:COLOR 15,0,0
|
||||
1540 PRINT"Wollen Sie die PuffergrӇe eingeben?"
|
||||
1550 FUNCT$="PuffergrӇe eingeben"
|
||||
1560 LOCATE 24,1:COLOR 15,4:PRINT USING"Aktuelle Funktion: \ \ Aktuelle Zeit: &:&:&";FUNCT$;LEFT$(TIME$,2);MID$(TIME$,4,2);RIGHT$(TIME$,2);
|
||||
1570 A$=INKEY$:IF A$="" THEN GOTO 1560
|
||||
1580 COLOR 15,0,0
|
||||
1590 IF A$="n" OR A$="N" THEN GOTO 1700
|
||||
1600 IF A$="j" OR A$="J" THEN GOTO 1620
|
||||
1610 GOTO 1560
|
||||
1620 REM BuffergrӇe eingeben
|
||||
1630 LOCATE 9,1:PRINT SPACE$(75)
|
||||
1640 COLOR 14,0,0
|
||||
1650 LOCATE 9,1
|
||||
1660 INPUT"BuffergrӇe [1-32] :",BUFG
|
||||
1670 IF BUFG<1 OR BUFG>32 THEN GOTO 1630
|
||||
1680 BUFG$=MID$(STR$(BUFG),2,2)
|
||||
1690 AUFRUF$=AUFRUF$+"/B:"+BUFG$+" "
|
||||
1700 REM Aufnahmequelle
|
||||
1710 FUNCT$="Aufnahmequelle eingeben"
|
||||
1720 LOCATE 24,1:COLOR 15,4:PRINT USING"Aktuelle Funktion: \ \ Aktuelle Zeit: &:&:&";FUNCT$;LEFT$(TIME$,2);MID$(TIME$,4,2);RIGHT$(TIME$,2);
|
||||
1730 COLOR 15,0,0
|
||||
1740 LOCATE 10,1
|
||||
1750 PRINT"Aufnahmequelle [M]ik/[C]d/[L]ine: "
|
||||
1760 LOCATE 24,1:COLOR 15,4:PRINT USING"Aktuelle Funktion: \ \ Aktuelle Zeit: &:&:&";FUNCT$;LEFT$(TIME$,2);MID$(TIME$,4,2);RIGHT$(TIME$,2);
|
||||
1770 QUELLE$=INKEY$:IF QUELLE$="" THEN 1760
|
||||
1780 IF QUELLE$="M" OR QUELLE$="m" THEN QUELLE$="LINE":GOTO 1820
|
||||
1790 IF QUELLE$="C" OR QUELLE$="c" THEN QUELLE$="CD":GOTO 1820
|
||||
1800 IF QUELLE$="L" OR QUELLE$="l" THEN QUELLE$="MIK":GOTO 1820
|
||||
1810 GOTO 1760
|
||||
1820 AUFRUF$=AUFRUF$+"/A:"+QUELLE$
|
||||
1830 REM Filter
|
||||
1840 LOCATE 11,1:COLOR 15,0,0
|
||||
1850 PRINT"Wollen Sie den Filter festlegen?"
|
||||
1860 FUNCT$="Filter festlegen"
|
||||
1870 LOCATE 24,1:COLOR 15,4:PRINT USING"Aktuelle Funktion: \ \ Aktuelle Zeit: &:&:&";FUNCT$;LEFT$(TIME$,2);MID$(TIME$,4,2);RIGHT$(TIME$,2);
|
||||
1880 A$=INKEY$:IF A$="" THEN 1870
|
||||
1890 COLOR 15,0,0
|
||||
1900 IF A$="j" OR A$="J" THEN 1930
|
||||
1910 IF A$="n" OR A$="N" THEN 2030
|
||||
1920 GOTO 1870
|
||||
1930 REM Filter festlegen
|
||||
1940 LOCATE 11,1:PRINT SPACE$(75)
|
||||
1950 COLOR 14,0,0
|
||||
1960 LOCATE 11,1
|
||||
1970 PRINT"Filter eingeben: [T]ief / [H]och"
|
||||
1980 LOCATE 24,1:COLOR 15,4:PRINT USING"Aktuelle Funktion: \ \ Aktuelle Zeit: &:&:&";FUNCT$;LEFT$(TIME$,2);MID$(TIME$,4,2);RIGHT$(TIME$,2);
|
||||
1990 A$=INKEY$:IF A$="" THEN 1980
|
||||
2000 IF A$="t" OR A$="T" THEN AUFRUF$=AUFRUF$+" /F:TIEF":GOTO 2030
|
||||
2010 IF A$="h" OR A$="H" THEN AUFRUF$=AUFRUF$+" /F:HOCH":GOTO 2030
|
||||
2020 GOTO 1980
|
||||
2030 REM Samplingrate
|
||||
2040 FUNCT$="Samplingrate eingeben"
|
||||
2050 LOCATE 24,1:COLOR 15,4:PRINT USING"Aktuelle Funktion: \ \ Aktuelle Zeit: &:&:&";FUNCT$;LEFT$(TIME$,2);MID$(TIME$,4,2);RIGHT$(TIME$,2);
|
||||
2060 LOCATE 12,1:COLOR 15,0,0
|
||||
2070 PRINT"Wollen Sie die Samplingrate eingeben?"
|
||||
2080 LOCATE 24,1:COLOR 15,4:PRINT USING"Aktuelle Funktion: \ \ Aktuelle Zeit: &:&:&";FUNCT$;LEFT$(TIME$,2);MID$(TIME$,4,2);RIGHT$(TIME$,2);
|
||||
2090 A$=INKEY$:IF A$="" THEN 2080
|
||||
2100 IF A$="j" OR A$="J" THEN 2130
|
||||
2110 IF A$="n" OR A$="N" THEN 2190
|
||||
2120 GOTO 2080
|
||||
2130 REM Eingabe
|
||||
2140 COLOR 15,0,0
|
||||
2150 LOCATE 12,1:PRINT SPACE$(75)
|
||||
2160 LOCATE 12,1:INPUT"22050 - STEREO / 4000-41000 - MONO : ",SAMPL$
|
||||
2170 IF VAL(SAMPL$)<4000 OR VAL(SAMPL$)>41000! THEN GOTO 2150
|
||||
2180 AUFRUF$=AUFRUF$+" /S:"+SAMPL$
|
||||
2190 REM Aufnahmemodus
|
||||
2200 FUNCT$="MONO/STEREO ausw„hlen"
|
||||
2210 COLOR 15,0,0
|
||||
2220 LOCATE 13,1:PRINT"W„hlen Sie den Aufnahmemodus: [M]ono/[S]tereo"
|
||||
2230 LOCATE 24,1:COLOR 15,4:PRINT USING"Aktuelle Funktion: \ \ Aktuelle Zeit: &:&:&";FUNCT$;LEFT$(TIME$,2);MID$(TIME$,4,2);RIGHT$(TIME$,2);
|
||||
2240 A$=INKEY$:IF A$="" THEN GOTO 2230
|
||||
2250 IF A$="m" OR A$="M" THEN AUFRUF$=AUFRUF$+" /M:MONO":GOTO 2320
|
||||
2260 IF A$="s" OR A$="S" THEN AUFRUF$=AUFRUF$+" /M:STEREO":GOTO 2320
|
||||
2270 GOTO 2230
|
||||
2280 REM Samplerate falsch
|
||||
2290 LOCATE 13,1:COLOR 12,0,0:PRINT"Geht nicht wegen Samplingrate !!!"
|
||||
2300 FOR Z=0 TO 10000:NEXT
|
||||
2310 GOTO 2200
|
||||
2320 REM LINE-Volume
|
||||
2330 FUNCT$="LINE-IN Lautst„rke"
|
||||
2340 LOCATE 24,1:COLOR 15,4:PRINT USING"Aktuelle Funktion: \ \ Aktuelle Zeit: &:&:&";FUNCT$;LEFT$(TIME$,2);MID$(TIME$,4,2);RIGHT$(TIME$,2);
|
||||
2350 LOCATE 14,1:COLOR 15,0,0
|
||||
2360 INPUT"Geben Sie die LINE-Lautst„rke (0-15) ein: ",LVOL
|
||||
2370 IF LVOL<0 OR LVOL>15 THEN GOTO 2320
|
||||
2380 REM Timer
|
||||
2390 FUNCT$="Timer Zeit einstellen"
|
||||
2400 LOCATE 24,1:COLOR 15,4:PRINT USING"Aktuelle Funktion: \ \ Aktuelle Zeit: &:&:&";FUNCT$;LEFT$(TIME$,2);MID$(TIME$,4,2);RIGHT$(TIME$,2);
|
||||
2410 LOCATE 15,1:COLOR 15,0,0
|
||||
2420 INPUT"Geben Sie die Aufnahmezeit in SEK ein: ",TMR
|
||||
2430 IF TMR<1 OR TMR>65535! THEN GOTO 2380
|
||||
2440 AUFRUF$=AUFRUF$+" /T:"+STR$(TMR)
|
||||
2450 LOCATE 20,1:COLOR 12,0,0
|
||||
2460 PRINT"Dr<44>cken Sie eine Taste zum Beginnen!"
|
||||
2470 LOCATE 24,1:COLOR 15,4:PRINT USING"Aktuelle Funktion: \ \ Aktuelle Zeit: &:&:&";FUNCT$;LEFT$(TIME$,2);MID$(TIME$,4,2);RIGHT$(TIME$,2);
|
||||
2480 A$=INKEY$:IF A$="" THEN GOTO 2470
|
||||
2490 REM Bildschirm Clearen
|
||||
2500 FOR Z=9 TO 23
|
||||
2510 COLOR 15,0,0
|
||||
2520 LOCATE Z,1:PRINT SPACE$(75)
|
||||
2530 NEXT Z
|
||||
2540 LOCATE 9,1:COLOR 14,0,0:PRINT AUFRUF$
|
||||
2550 PRINT"wird ausgef<65>hrt!!!"
|
||||
2560 LOCATE 11,1
|
||||
2570 AUFRUF$=AUFRUF$+" /Q /X="+CHR$(34)+"ECHO AUFNAHME LUFT!"+CHR$(34)
|
||||
2580 SHELL AUFRUF$
|
||||
2590 COLOR 15,0,0
|
||||
2600 FOR Z=9 TO 23
|
||||
2610 LOCATE Z,1:PRINT SPACE$(79)
|
||||
2620 NEXT Z
|
||||
2630 LOCATE 9,1:COLOR 10,0,0
|
||||
2640 PRINT"Aufnahme erfolgreich durchgef<65>hrt!!!"
|
||||
2650 PRINT:PRINT"Wenn bereit ---> Taste dr<64>cken"
|
||||
2660 FUNCT$="Wartet auf TASTENDRUCK"
|
||||
2670 LOCATE 24,1:COLOR 15,4:PRINT USING"Aktuelle Funktion: \ \ Aktuelle Zeit: &:&:&";FUNCT$;LEFT$(TIME$,2);MID$(TIME$,4,2);RIGHT$(TIME$,2);
|
||||
2680 IF A$="" THEN GOTO 2660
|
||||
2690 GOTO 560
|
||||
2700 END
|
||||
2710 REM Abfrage des Dateinamens
|
||||
2720 PRINT"Geben Sie den Dateinamen ein:"
|
||||
2730 PRINT
|
||||
2740 COLOR 31:PRINT" Í ";:COLOR 15:PRINT"Í Í Í Í Í Í Í"
|
||||
2750 X=1
|
||||
2760 DAT$(X)=INKEY$
|
||||
2770 LOCATE 24,1:COLOR 15,4:PRINT USING"Aktuelle Funktion: \ \ Aktuelle Zeit: &:&:&";FUNCT$;LEFT$(TIME$,2);MID$(TIME$,4,2);RIGHT$(TIME$,2);:IF DAT$(X)="" THEN 2760
|
||||
2780 GOSUB 2890
|
||||
2790 IF X=1 THEN LOCATE 11,2:COLOR 15,0:PRINT DAT$(X);:COLOR 31:PRINT" Í"
|
||||
2800 IF X=2 THEN LOCATE 11,4:COLOR 15,0:PRINT DAT$(X);:COLOR 31:PRINT" Í"
|
||||
2810 IF X=3 THEN LOCATE 11,6:COLOR 15,0:PRINT DAT$(X);:COLOR 31:PRINT" Í"
|
||||
2820 IF X=4 THEN LOCATE 11,8:COLOR 15,0:PRINT DAT$(X);:COLOR 31:PRINT" Í"
|
||||
2830 IF X=5 THEN LOCATE 11,10:COLOR 15,0:PRINT DAT$(X);:COLOR 31:PRINT" Í"
|
||||
2840 IF X=6 THEN LOCATE 11,12:COLOR 15,0:PRINT DAT$(X);:COLOR 31:PRINT" Í"
|
||||
2850 IF X=7 THEN LOCATE 11,14:COLOR 15,0:PRINT DAT$(X);:COLOR 31:PRINT" Í"
|
||||
2860 IF X=8 THEN LOCATE 11,16:COLOR 15,0:PRINT DAT$(X):GOTO 2960
|
||||
2870 X=X+1
|
||||
2880 GOTO 2760
|
||||
2890 REM Umwandlung KLEIN -> in GROSSbuchstaben
|
||||
2900 RESTORE
|
||||
2910 READ A$,B$:IF A$="END" THEN GOTO 2940
|
||||
2920 IF DAT$(X)=A$ OR DAT$(X)=B$ THEN DAT$(X)=B$:RETURN
|
||||
2930 GOTO 2910
|
||||
2940 REM Fehler
|
||||
2950 GOTO 2760
|
||||
2960 REM Ermittlung des Dateinamens
|
||||
2970 DATEI$=DAT$(1) + DAT$(2) + DAT$(3) + DAT$(4) + DAT$(5) + DAT$(6) + DAT$(7) + DAT$(8) + ".VOC"
|
||||
2980 RETURN
|
||||
|
||||
2
SBPRO/SBPRO.CFG
Normal file
2
SBPRO/SBPRO.CFG
Normal file
@ -0,0 +1,2 @@
|
||||
"C:\SBPRO\VOCUTIL\"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user