home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Best of German Only 1
/
romside_best_of_german_only_1.iso
/
doshelp
/
batorder
/
demo.bat
< prev
next >
Wrap
DOS Batch File
|
1993-03-31
|
7KB
|
382 lines
@ECHO OFF
REM GESCHRIEBEN 1993 VON MARKUS SCHNITZER, ZWIEFALTEN.
REM DEMONSTRATION ZUR ANWENDUNG DER BEFEHLE.
CD BEFEHLE
CLS
REM JANEIN
:START
GOTOXY 21 12
ECHOATTR 7 4 2 WOLLEN SIE MIT DER DEMO BEGINNEN (J/N)
JANEIN 0
IF ERRORLEVEL 2 GOTO ENDE
IF ERRORLEVEL 1 GOTO WEITER
IF ERRORLEVEL 0 GOTO START
:WEITER
REM BOX
CLS
BOX 20 5 60 17 3 255 3
GOTOXY 31 6
ECHOATTR 4 0 1 B A T O R D E R S
GOTOXY 34 7
ECHOATTR 12 0 1 VERSION: 2.0
GOTOXY 30 9
ECHO GESCHRIEBEN 1993 VON
GOTOXY 26 10
ECHO MARKUS SCHNITZER, ZWIEFALTEN.
GOTOXY 31 13
ECHO A C H T U N G ! ! !
GOTOXY 26 14
ECHO DAS IST EINE UNREGISTRIERTE
GOTOXY 31 15
ECHO SHAREWAREVERSION!!!
GOTOXY 18 23
PAUSE
REM
CLS
BOX 1 1 77 22 4 255 1
GOTOXY 28 2
ECHOATTR 15 1 5 S Y S T E M I N F O
REM PC-TYP
GOTOXY 3 4
ECHOATTR 15 3 2 PC-TYP ~~~~~~~~~~~~~~~~~ :
PCTYP
IF ERRORLEVEL 2 GOTO PC
IF ERRORLEVEL 1 GOTO XT
IF ERRORLEVEL 0 ECHO AT
GOTO WEITER2
:PC
ECHO PC
GOTO WEITER2
:XT
ECHO XT
:WEITER2
REM CO-PROZESSOR
GOTOXY 3 5
ECHOATTR 15 3 2 CO-PROZESSOR ~~~~~~~~~~~ :
COPROZ
IF ERRORLEVEL 3 GOTO 487
IF ERRORLEVEL 2 GOTO 287
IF ERRORLEVEL 1 GOTO 87
IF ERRORLEVEL 0 ECHO KEINER
GOTO WEITER3
:487
ECHO 80387/80487
GOTO WEITER3
:287
ECHO 80287
GOTO WEITER3
:87
ECHO 8087
GOTO WEITER3
:WEITER3
REM MEMAVAIL
GOTOXY 3 6
ECHOATTR 15 3 2 VERFÜGBARER SPEICHER~~~~ :
ECHOATTR 7 0 2 ~~BYTE
MEMAVAIL
REM MAUS
GOTOXY 3 7
ECHOATTR 15 3 2 MAUSTREIBER INSTALLIERT~ :
MAUS
IF ERRORLEVEL 1 GOTO MAUS
IF ERRORLEVEL 0 ECHO JA
GOTO WEITER4
:MAUS
ECHO NEIN
:WEITER4
REM BOOTDRIV
GOTOXY 3 8
ECHOATTR 15 3 2 BOOTLAUFWERK ~~~~~~~~~~~ :
BOOTDRIV 1
IF ERRORLEVEL 4 GOTO D
IF ERRORLEVEL 3 GOTO C
IF ERRORLEVEL 2 GOTO B
IF ERRORLEVEL 1 ECHO A:
GOTO WEITER5
:D
ECHO D:
GOTO WEITER5
:C
ECHO C:
GOTO WEITER5
:B
ECHO B:
:WEITER5
REM SERIELL
GOTOXY 3 9
ECHOATTR 15 3 2 SERIELLE SCHNITTSTELLEN~ :
SERIELL
IF ERRORLEVEL 5 GOTO EINE
IF ERRORLEVEL 4 GOTO ZWEI
IF ERRORLEVEL 3 ECHO 3 ODER MEHR
GOTO WEITER6
:EINE
ECHO 1
GOTO WEITER6
:ZWEI
ECHO 2
:WEITER6
REM PARALLEL
GOTOXY 3 10
ECHOATTR 15 3 2 PARALELLE SCHNITTSTELLEN :
PARALLEL
IF ERRORLEVEL 5 GOTO EINEP
IF ERRORLEVEL 4 GOTO ZWEIP
IF ERRORLEVEL 3 ECHO 3 ODER MEHR
GOTO WEITER7
:EINEP
ECHO 1
GOTO WEITER7
:ZWEIP
ECHO 2
:WEITER7
REM VIDEOMOD
GOTOXY 3 11
ECHOATTR 15 3 2 VIDEOMODUS ~~~~~~~~~~~~~ :
VIDEOMOD
IF ERRORLEVEL 3 GOTO MONO
IF ERRORLEVEL 2 GOTO 80
IF ERRORLEVEL 1 GOTO 40
IF ERRORLEVEL 0 ECHO UNDEFINIERT
GOTO WEITER8
:MONO
ECHO 80X25 MONOCHROM
GOTO WEITER8
:80
ECHO 80X25 COLOR
GOTO WEITER8
:40
ECHO 40X25 COLOR
:WEITER8
REM DRUCKER
GOTOXY 3 12
ECHOATTR 15 3 2 DRUCKERSTATUS ~~~~~~~~~~ :
DRUCKER
IF ERRORLEVEL 5 GOTO ON
IF ERRORLEVEL 4 GOTO ONP
IF ERRORLEVEL 3 GOTO AUS
IF ERRORLEVEL 2 GOTO OFFP
IF ERRORLEVEL 1 GOTO OFF
IF ERRORLEVEL 0 ECHO KEINE ANGABE VORHANDEN
GOTO WEITER9
:ON
ECHO ON LINE
SEND 7 > PRN
ECHO DEMO.BAT TESTET DIE FUNKTION DES DRUCKERS... > PRN
GOTO WEITER9
:ONP
ECHO ON LINE UND KEIN PAPIER
GOTO WEITER9
:AUS
ECHO AUS ODER NICHT VORHANDEN
GOTO WEITER9
:OFFP
ECHO OFF LINE UND KEIN PAPIER
GOTO WEITER9
:OFF
ECHO OFF LINE
:WEITER9
REM SOUND
GOTOXY 30 15
ECHOATTR 15 1 5 . . . UND ~ T Ö N E
NOSOUND
REM OKTAVE 4
GOTOXY 10 17
ECHOATTR 7 1 6 ~~ C ~
SOUND 262
WARTE 2000
ECHOATTR 7 2 6 ~~ D ~
SOUND 294
WARTE 2000
ECHOATTR 7 3 6 ~~ E ~
SOUND 330
WARTE 2000
ECHOATTR 7 4 6 ~~ F ~
SOUND 349
WARTE 2000
ECHOATTR 7 5 6 ~~ G ~
SOUND 392
WARTE 2000
ECHOATTR 7 6 6 ~~ A ~
SOUND 440
WARTE 2000
ECHOATTR 7 11 6 ~~ H ~
SOUND 494
WARTE 2000
ECHOATTR 7 12 6 ~~ C2~
SOUND 523
WARTE 2000
NOSOUND
GOTOXY 17 19
PAUSE
REM VCARD
VCARD
IF ERRORLEVEL 1 GOTO COLOR
IF ERRORLEVEL 0 BOX 1 5 78 22 5 7 1
GOTO WEITER10
:COLOR
BOX 1 5 78 22 4 5 3
:WEITER10
GOTOXY 23 6
ECHOATTR 1 0 5 R E C H E N F U N K T I O N E N
GOTOXY 3 8
ECHOATTR 2 0 2 ABSOLUTWERT VON 12345 ~~~~~~ :
GOTOXY 36 8
ABSS 12345 18
GOTOXY 3 9
ECHOATTR 3 0 2 ARCTANGENS ~VON 12345 ~~~~~~ :
GOTOXY 36 9
ARCTANS 12345 18
GOTOXY 3 10
ECHOATTR 4 0 2 COSINUS ~~~ VON 12345 ~~~~~~ :
GOTOXY 36 10
COSS 12345 18
GOTOXY 3 11
ECHOATTR 5 0 2 SINUS ~~~~~ VON 12345 ~~~~~~ :
GOTOXY 36 11
SINS 12345 18
GOTOXY 3 12
ECHOATTR 6 0 2 EXPONENTIALFUNKTION VON 1234 :
GOTOXY 35 12
EXPS 1234 18
GOTOXY 3 13
ECHOATTR 8 0 2 LOGARITHMUS~ VON 12345 ~~~~~ :
GOTOXY 36 13
LNS 12345 18
GOTOXY 3 14
ECHOATTR 2 0 2 PI ~~~~~~~~~~~~~~~~~~~~~~~~~ :
GOTOXY 36 14
PIS 18
GOTOXY 3 15
ECHOATTR 3 0 2 12345,12345 HOCH 5 ~~~~~~~~~ :
GOTOXY 36 15
POTENZS 12345.12345 5 18
GOTOXY 3 16
ECHOATTR 4 0 2 QUADRAT VON 12345 ~~~~~~~~~~ :
GOTOXY 36 16
SQRS 12345 18
GOTOXY 3 17
ECHOATTR 5 0 2 QUADRATWURZEL VON 12345 ~~~~ :
GOTOXY 36 17
SQRTS 12345 18
GOTOXY 3 18
ECHOATTR 6 0 2 RUNDEN VON 12345.54321 ~~~~~ :
GOTOXY 36 18
RUNDEN 12345.54321
GOTOXY 17 20
PAUSE
REM VIDEO.BAT
BOX 13 9 67 13 2 7 1
GOTOXY 15 10
CD..
CALL VIDEO.BAT
CD BEFEHLE
GOTOXY 17 12
PAUSE
REM CLSXY
CLSXY 0 18 79 25 16
GOTOXY 28 18
ECHOATTR 7 1 1 Z U F A L L Z A H L E N
ECHO.
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
ZUFALL 1000 1
GOTOXY 18 22
PAUSE
BOX 1 5 78 15 4 7 2
GOTOXY 5 8
ECHOATTR 3 0 0 ~~~~ DDDD ~~~ A ~~~ SSSSS ~~~~~~~~~ W ~ W ~~~ A ~~~ RRRRR ~ SSSSS ~~~~~
GOTOXY 5 9
ECHOATTR 6 0 0 ~~~~ DD D ~~ A A ~~ SSS ~~~~~~~~~~~ W W W ~~ A A ~~~ R ~R ~ SSS ~~~~~~~
GOTOXY 5 10
ECHOATTR 4 0 0 ~~~~ DD D ~ AAAAA ~~~ SSS ~~~~~~~~~ WWWWW ~ AAAAA ~~ RRR ~~~~ SSS ~~~~~
GOTOXY 5 11
ECHOATTR 2 0 0 ~~~~ DDDD ~ AA AA ~ SSSSS ~~~~~~~~~~ W W ~~ AA AA ~ RR RR ~ SSSSS ~~~~~
GOTOXY 16 14
PAUSE
CLS
ECHO GESCHRIEBEN 1993 VON MARKUS SCHNITZER, ZWIEFALTEN.
ECHO A C H T U N G ! ! ! DIESE VERSION IST NICHT REGISTRIERT, UNTERSTüTZEN SIE
ECHO DEN AUTOR UND NUTZEN SIE DIE VORTEILE EINER REGISTRATION.
ECHO.
ECHO DIESE VERSION DARF NUR 3 MONATE ZUM TEST VERWENDET WERDEN !!!
ECHO.
ECHO NäHERES IN DER DATEI REGISTER.TXT UND HANDBUCH.TXT.
:ENDE
CD..