This repository has been archived by the owner on Jul 13, 2021. It is now read-only.
-
Notifications
You must be signed in to change notification settings - Fork 2
/
dfvnc.bas
106 lines (100 loc) · 3.1 KB
/
dfvnc.bas
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
ON ERROR GOTO FEHL
color 15
print"Dark Forces Voice Name Changer (DFVNC) v1.00"
print" written by RoboCop INDUSTRIES"
color 7
PARA$=COMMAND$
IF PARA$="+4933223198 NUM2NAM" THEN GOTO NumbersToNames
IF PARA$="+4933223198 NAM2NUM" THEN GOTO NamesToNumbers
GOTO Syntax
FEHL:
print
print"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
print"!! WARNUNG !!"
print"!! Ein Fehler ist aufgetreten !!"
print"!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
goto GanzEnde
NumbersToNames:
print"Gew„hlte Funktion: ";:color 14:print"Nummer ==> Name"
color 7
OPEN "I",#1,"NAMES.LST"
OPEN "O",#2,"DFVNC.LOG"
on error goto FEHLER
PRINT#2,"þ LOG-Datei vom Dark Forces Voice Name Changer v1.00"
print#2,"þ von RoboCop INDUSTRIES"
print#2,"þ"
print#2,"þ Gew„hlte Funktion: NUM2NAM"
print#2,"---------------------------------------------------"
X=1
1 line input#1,FIL$
x$=mid$(str$(x),2,20)+".VOC"
print"Benenne ";x$;" in ";FIL$;" um ... ";
print#2,X$;" ===> ";FIL$;" ... ";
name x$ as fil$
print "OK"
print#2,"OK"
x=x+1
if eof(1) then
print#2,"þ <EOLF - End Of List File >"
goto Ende
end if
goto 1
NamesToNumbers:
print"Gew„hlte Funktion: ";:color 14:print"Name ==> Nummer"
color 7
OPEN "I",#1,"NAMES.LST"
OPEN "O",#2,"DFVNC.LOG"
ON ERROR GOTO FEHLER
PRINT#2,"þ LOG-Datei vom Dark Forces Voice Name Changer v1.00"
print#2,"þ von RoboCop INDUSTRIES"
print#2,"þ"
print#2,"þ Gew„hlte Funktion: NAM2NUM"
print#2,"---------------------------------------------------"
X=1
2 line input#1,FIL$
x$=MID$(str$(x),2,20)+".VOC"
print"Benenne ";FIL$;" in ";X$;" um ... ";
print#2,FIL$;" ===> ";X$;" ... ";
name fil$ as x$
print "OK"
print#2,"OK"
x=x+1
if eof(1) then
print#2,"þ <EOLF - End Of List File >"
goto Ende
end if
goto 2
FEHLER:
print#2,""
print#2,"==================================================="
PRINT#2," !!!WARNUNG!!!"
print#2,"Ein unbekannter Fehler ist aufgetreten! Vielleicht"
print#2,"haben Sie die FALSCHE FUNKTION gew„hlt. Wenn es das"
print#2,"nicht war, k”nnen wir Ihnen auch nicht helfen."
print#2,"==================================================="
color 12
print
print"==================================================="
PRINT" !!!WARNUNG!!!"
print"Ein unbekannter Fehler ist aufgetreten! Vielleicht"
print"haben Sie die FALSCHE FUNKTION gew„hlt. Wenn es das"
print"nicht war, k”nnen wir Ihnen auch nicht helfen."
print"==================================================="
color 7
goto GanzEnde
Syntax:
print
print"Syntax: DFVNC [Serialnummer] [Funktion]
print
print" Serialnummer - Ihre Serialnummer"
print" Funktion - gewnschte Funktion:"
print" NUM2NAM - Nummern zu Namen"
print" (z.B.: 1.VOC => DOOR2-1.VOC, ...)"
print" NAM2NUM - Namen zu Nummern"
print" (z.B.: DOOR2-2.VOC => 2.VOC, ...)"
print
goto GanzEnde
Ende:
print#2,"þ Programm beendet."
GanzEnde: