home *** CD-ROM | disk | FTP | other *** search
open in: 
MacOS 8.1
|
Win98
|
DOS
view JSON data
|
view as text
This file was processed as: Text File
(text/txt).
| Confidence | Program | Detection | Match Type | Support
|
|---|
| 1%
| dexvert
| Text File (text/txt)
| fallback
| Supported |
| 100%
| file
| OS/2 REXX batch file, Non-ISO extended-ASCII text, with CRLF line terminators
| default
| |
| 100%
| perlTextCheck
| Likely Text (Perl)
| default
| |
| 100%
| siegfried
| x-fmt/111 Plain Text File
| default
| |
| 100%
| detectItEasy
| Format: plain text[CRLF]
| default (weak)
| |
| 100%
| xdgMime
| text/x-csrc
| default (weak)
|
|
hex view+--------+-------------------------+-------------------------+--------+--------+
|00000000| 2f 2a 2a 2a 49 4e 53 54 | 41 4c 4c 2d 50 72 6f 63 |/***INST|ALL-Proc|
|00000010| 65 64 75 72 65 20 66 81 | 72 20 57 4b 53 48 45 4c |edure f.|r WKSHEL|
|00000020| 4c 2f 32 2a 2a 2a 2f 0d | 0a 0d 0a 73 69 67 6e 61 |L/2***/.|...signa|
|00000030| 6c 20 6f 6e 20 68 61 6c | 74 20 6e 61 6d 65 20 53 |l on hal|t name S|
|00000040| 69 67 6e 61 6c 48 61 6e | 64 6c 65 72 20 20 20 20 |ignalHan|dler |
|00000050| 20 20 20 2f 2a 20 45 78 | 63 65 70 74 69 6f 6e 20 | /* Ex|ception |
|00000060| 68 61 6e 64 6c 65 72 20 | 2a 2f 0d 0a 63 61 6c 6c |handler |*/..call|
|00000070| 20 52 78 46 75 6e 63 41 | 64 64 20 27 53 79 73 4c | RxFuncA|dd 'SysL|
|00000080| 6f 61 64 46 75 6e 63 73 | 27 2c 20 27 52 65 78 78 |oadFuncs|', 'Rexx|
|00000090| 55 74 69 6c 27 2c 20 27 | 53 79 73 4c 6f 61 64 46 |Util', '|SysLoadF|
|000000a0| 75 6e 63 73 27 0d 0a 63 | 61 6c 6c 20 53 79 73 4c |uncs'..c|all SysL|
|000000b0| 6f 61 64 46 75 6e 63 73 | 0d 0a 0d 0a 2f 2a 20 2a |oadFuncs|..../* *|
|000000c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000000e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 20 2a 2f 0d 0a 53 |********|** */..S|
|000000f0| 6f 75 72 63 65 44 72 69 | 76 65 3d 22 22 0d 0a 53 |ourceDri|ve=""..S|
|00000100| 6f 75 72 63 65 44 69 72 | 3d 22 5c 47 45 52 4d 41 |ourceDir|="\GERMA|
|00000110| 4e 5c 22 0d 0a 45 78 65 | 44 65 73 74 3d 22 43 3a |N\"..Exe|Dest="C:|
|00000120| 5c 57 4b 53 48 45 4c 4c | 5c 22 0d 0a 46 69 6c 65 |\WKSHELL|\"..File|
|00000130| 2e 30 20 3d 20 35 0d 0a | 46 69 6c 65 2e 31 3d 22 |.0 = 5..|File.1="|
|00000140| 57 4b 53 48 45 4c 4c 2e | 45 58 45 22 0d 0a 46 69 |WKSHELL.|EXE"..Fi|
|00000150| 6c 65 2e 32 3d 22 57 4b | 53 48 45 4c 4c 2e 48 4c |le.2="WK|SHELL.HL|
|00000160| 50 22 0d 0a 46 69 6c 65 | 2e 33 3d 22 57 4b 53 48 |P"..File|.3="WKSH|
|00000170| 45 4c 4c 2e 49 4e 46 22 | 0d 0a 46 69 6c 65 2e 34 |ELL.INF"|..File.4|
|00000180| 3d 22 57 4b 53 4c 49 53 | 54 2e 43 4d 44 22 0d 0a |="WKSLIS|T.CMD"..|
|00000190| 46 69 6c 65 2e 35 3d 22 | 55 4e 5a 49 50 2e 45 58 |File.5="|UNZIP.EX|
|000001a0| 45 22 0d 0a 67 6c 6f 62 | 61 6c 5f 61 67 61 69 6e |E"..glob|al_again|
|000001b0| 3d 31 0d 0a 0d 0a 2f 2a | 20 2a 2a 2a 2a 2a 2a 2a |=1..../*| *******|
|000001c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000001e0| 2a 2a 2a 2a 20 2a 2f 0d | 0a 63 61 6c 6c 20 49 6e |**** */.|.call In|
|000001f0| 69 74 43 6f 6c 6f 72 73 | 0d 0a 0d 0a 72 63 20 3d |itColors|....rc =|
|00000200| 20 53 79 73 46 69 6c 65 | 54 72 65 65 28 22 69 6e | SysFile|Tree("in|
|00000210| 73 74 67 65 72 2e 63 6d | 64 22 2c 20 64 75 6d 6d |stger.cm|d", dumm|
|00000220| 79 2c 20 22 46 22 20 2c | 22 2a 2a 2a 2a 2a 22 29 |y, "F" ,|"*****")|
|00000230| 20 20 2f 2a 20 47 45 54 | 20 43 44 2d 52 4f 4d 2d | /* GET| CD-ROM-|
|00000240| 4c 65 74 74 65 72 20 2a | 2f 0d 0a 69 66 20 64 75 |Letter *|/..if du|
|00000250| 6d 6d 79 2e 30 20 3e 20 | 30 20 74 68 65 6e 20 64 |mmy.0 > |0 then d|
|00000260| 6f 0d 0a 20 20 53 6f 75 | 72 63 65 44 72 69 76 65 |o.. Sou|rceDrive|
|00000270| 3d 73 75 62 73 74 72 28 | 64 75 6d 6d 79 2e 31 2c |=substr(|dummy.1,|
|00000280| 33 38 2c 32 29 0d 0a 65 | 6e 64 0d 0a 65 6c 73 65 |38,2)..e|nd..else|
|00000290| 20 64 6f 0d 0a 20 20 73 | 61 79 0d 0a 20 20 73 61 | do.. s|ay.. sa|
|000002a0| 79 0d 0a 20 20 73 61 79 | 20 62 72 65 64 7c 7c 22 |y.. say| bred||"|
|000002b0| 46 45 48 4c 45 52 20 3a | 22 0d 0a 20 20 73 61 79 |FEHLER :|".. say|
|000002c0| 20 62 72 65 64 7c 7c 22 | 42 69 74 74 65 20 77 65 | bred||"|Bitte we|
|000002d0| 63 68 73 65 6c 6e 20 53 | 69 65 20 7a 75 65 72 73 |chseln S|ie zuers|
|000002e0| 74 20 61 75 66 20 49 68 | 72 20 43 44 2d 52 4f 4d |t auf Ih|r CD-ROM|
|000002f0| 2d 4c 61 75 66 77 65 72 | 6b 20 75 6e 64 20 73 74 |-Laufwer|k und st|
|00000300| 61 72 74 65 6e 20 64 61 | 6e 6e 20 49 4e 53 54 47 |arten da|nn INSTG|
|00000310| 45 52 2e 43 4d 44 22 0d | 0a 20 20 73 61 79 20 6e |ER.CMD".|. say n|
|00000320| 6f 72 6d 61 6c 0d 0a 20 | 20 65 78 69 74 0d 0a 65 |ormal.. | exit..e|
|00000330| 6e 64 0d 0a 0d 0a 64 6f | 20 77 68 69 6c 65 20 67 |nd....do| while g|
|00000340| 6c 6f 62 61 6c 5f 61 67 | 61 69 6e 20 3d 20 31 0d |lobal_ag|ain = 1.|
|00000350| 0a 20 20 20 4d 65 6e 20 | 3d 20 4d 61 69 6e 4d 65 |. Men |= MainMe|
|00000360| 6e 75 28 29 0d 0a 20 20 | 20 69 66 20 4d 65 6e 3d |nu().. | if Men=|
|00000370| 22 31 22 20 74 68 65 6e | 20 64 6f 0d 0a 20 20 20 |"1" then| do.. |
|00000380| 20 20 20 20 63 61 6c 6c | 20 47 6f 74 6f 58 59 20 | call| GotoXY |
|00000390| 35 2c 32 31 0d 0a 20 20 | 20 20 20 20 20 61 20 3d |5,21.. | a =|
|000003a0| 20 63 68 61 72 6f 75 74 | 28 2c 62 79 65 6c 6c 6f | charout|(,byello|
|000003b0| 77 7c 7c 22 57 65 6c 63 | 68 65 6e 20 4c 61 75 66 |w||"Welc|hen Lauf|
|000003c0| 77 65 72 6b 73 2d 42 75 | 63 68 73 74 61 62 65 6e |werks-Bu|chstaben|
|000003d0| 20 68 61 74 20 49 68 72 | 20 43 44 2d 52 4f 4d 20 | hat Ihr| CD-ROM |
|000003e0| 3f 20 20 22 29 0d 0a 20 | 20 20 20 20 20 20 53 6f |? ").. | So|
|000003f0| 75 72 63 65 44 72 69 76 | 65 3d 54 72 61 6e 73 6c |urceDriv|e=Transl|
|00000400| 61 74 65 28 53 79 73 47 | 65 74 4b 65 79 28 27 4e |ate(SysG|etKey('N|
|00000410| 4f 45 43 48 4f 27 29 29 | 0d 0a 20 20 20 20 20 20 |OECHO'))|.. |
|00000420| 20 53 6f 75 72 63 65 44 | 72 69 76 65 3d 53 6f 75 | SourceD|rive=Sou|
|00000430| 72 63 65 44 72 69 76 65 | 20 7c 7c 20 22 3a 22 0d |rceDrive| || ":".|
|00000440| 0a 20 20 20 65 6e 64 0d | 0a 20 20 20 69 66 20 4d |. end.|. if M|
|00000450| 65 6e 3d 22 32 22 20 74 | 68 65 6e 20 64 6f 0d 0a |en="2" t|hen do..|
|00000460| 20 20 20 20 20 20 20 63 | 61 6c 6c 20 47 6f 74 6f | c|all Goto|
|00000470| 58 59 20 35 2c 32 31 0d | 0a 20 20 20 20 20 20 20 |XY 5,21.|. |
|00000480| 61 20 3d 20 63 68 61 72 | 6f 75 74 28 2c 62 79 65 |a = char|out(,bye|
|00000490| 6c 6c 6f 77 7c 7c 22 4e | 65 75 65 73 20 57 4b 2d |llow||"N|eues WK-|
|000004a0| 53 68 65 6c 6c 2f 32 20 | 2d 56 65 72 7a 65 69 63 |Shell/2 |-Verzeic|
|000004b0| 68 6e 69 73 3a 20 22 29 | 0d 0a 20 20 20 20 20 20 |hnis: ")|.. |
|000004c0| 20 70 75 6c 6c 20 45 78 | 65 44 65 73 74 0d 0a 20 | pull Ex|eDest.. |
|000004d0| 20 20 20 20 20 20 69 66 | 20 72 69 67 68 74 28 45 | if| right(E|
|000004e0| 78 65 44 65 73 74 2c 31 | 29 20 5c 3d 20 22 5c 22 |xeDest,1|) \= "\"|
|000004f0| 20 74 68 65 6e 0d 0a 20 | 20 20 20 20 20 20 20 20 | then.. | |
|00000500| 20 45 78 65 44 65 73 74 | 3d 45 78 65 44 65 73 74 | ExeDest|=ExeDest|
|00000510| 7c 7c 22 5c 22 0d 0a 20 | 20 20 65 6e 64 0d 0a 20 |||"\".. | end.. |
|00000520| 20 20 69 66 20 4d 65 6e | 3d 22 33 22 20 74 68 65 | if Men|="3" the|
|00000530| 6e 20 64 6f 0d 0a 20 20 | 20 20 20 20 73 61 79 20 |n do.. | say |
|00000540| 6e 6f 72 6d 61 6c 0d 0a | 20 20 20 20 20 20 49 6e |normal..| In|
|00000550| 73 74 61 6c 6c 65 64 3d | 31 0d 0a 20 20 20 20 20 |stalled=|1.. |
|00000560| 20 43 61 6c 6c 20 49 6e | 73 74 61 6c 6c 0d 0a 20 | Call In|stall.. |
|00000570| 20 20 65 6e 64 0d 0a 20 | 20 20 69 66 20 4d 65 6e | end.. | if Men|
|00000580| 3d 22 34 22 20 74 68 65 | 6e 20 64 6f 0d 0a 20 20 |="4" the|n do.. |
|00000590| 20 20 20 20 20 63 61 6c | 6c 20 53 79 73 43 6c 73 | cal|l SysCls|
|000005a0| 0d 0a 20 20 20 20 20 20 | 20 67 6c 6f 62 61 6c 5f |.. | global_|
|000005b0| 61 67 61 69 6e 3d 30 0d | 0a 20 20 20 20 20 20 20 |again=0.|. |
|000005c0| 73 61 79 20 22 45 6e 64 | 65 2e 2e 2e 21 22 0d 0a |say "End|e...!"..|
|000005d0| 20 20 20 20 20 20 20 69 | 66 20 49 6e 73 74 61 6c | i|f Instal|
|000005e0| 6c 65 64 3d 31 20 74 68 | 65 6e 20 64 6f 0d 0a 20 |led=1 th|en do.. |
|000005f0| 20 20 20 20 20 20 20 20 | 20 73 61 79 0d 0a 20 20 | | say.. |
|00000600| 20 20 20 20 20 20 20 20 | 73 61 79 20 22 53 69 65 | |say "Sie|
|00000610| 20 6b 94 6e 6e 65 6e 20 | 64 69 65 20 57 4b 2d 53 | k.nnen |die WK-S|
|00000620| 68 65 6c 6c 2f 32 20 6a | 65 74 7a 74 20 76 6f 6e |hell/2 j|etzt von|
|00000630| 20 64 65 72 20 46 65 73 | 74 70 6c 61 74 74 65 20 | der Fes|tplatte |
|00000640| 73 74 61 72 74 65 6e 20 | 3a 22 0d 0a 20 20 20 20 |starten |:".. |
|00000650| 20 20 20 20 20 20 73 61 | 79 20 62 72 65 64 7c 7c | sa|y bred|||
|00000660| 45 78 65 44 65 73 74 7c | 7c 22 57 4b 53 48 45 4c |ExeDest|||"WKSHEL|
|00000670| 4c 2e 45 58 45 22 7c 7c | 22 20 22 7c 7c 53 6f 75 |L.EXE"|||" "||Sou|
|00000680| 72 63 65 44 72 69 76 65 | 0d 0a 20 20 20 20 20 20 |rceDrive|.. |
|00000690| 20 20 20 20 73 61 79 20 | 62 63 79 61 6e 7c 7c 22 | say |bcyan||"|
|000006a0| 44 65 72 20 50 61 72 61 | 6d 65 74 65 72 20 3c 22 |Der Para|meter <"|
|000006b0| 7c 7c 53 6f 75 72 63 65 | 44 72 69 76 65 7c 7c 22 |||Source|Drive||"|
|000006c0| 3e 20 77 69 72 64 20 62 | 65 6e 94 74 69 67 74 2c |> wird b|en.tigt,|
|000006d0| 20 64 61 6d 69 74 20 64 | 61 73 20 43 44 2d 52 4f | damit d|as CD-RO|
|000006e0| 4d 20 67 65 66 75 6e 64 | 65 6e 20 77 69 72 64 2e |M gefund|en wird.|
|000006f0| 22 0d 0a 20 20 20 20 20 | 20 20 65 6e 64 0d 0a 20 |".. | end.. |
|00000700| 20 20 20 20 20 20 73 61 | 79 20 6e 6f 72 6d 61 6c | sa|y normal|
|00000710| 0d 0a 20 20 20 20 20 20 | 20 65 78 69 74 0d 0a 20 |.. | exit.. |
|00000720| 20 20 65 6e 64 0d 0a 65 | 6e 64 0d 0a 0d 0a 0d 0a | end..e|nd......|
|00000730| 2f 2a 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |/* *****|********|
|00000740| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000750| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 20 2a |********|****** *|
|00000760| 2f 0d 0a 4d 61 69 6e 4d | 65 6e 75 3a 0d 0a 63 61 |/..MainM|enu:..ca|
|00000770| 6c 6c 20 53 79 73 43 6c | 73 0d 0a 20 20 20 20 61 |ll SysCl|s.. a|
|00000780| 20 3d 20 63 68 61 72 6f | 75 74 28 2c 62 79 65 6c | = charo|ut(,byel|
|00000790| 6c 6f 77 7c 7c 22 da c4 | c4 c4 c4 c4 c4 c4 c4 c4 |low||"..|........|
|000007a0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|000007b0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|000007c0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|000007d0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|000007e0| c4 c4 c4 c4 c4 bf 22 29 | 0d 0a 20 20 20 20 61 20 |......")|.. a |
|000007f0| 3d 20 63 68 61 72 6f 75 | 74 28 2c 22 b3 20 20 20 |= charou|t(,". |
|00000800| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000810| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 57 4b | | WK|
|00000820| 2d 53 68 65 6c 6c 2f 32 | 20 49 4e 53 54 41 4c 4c |-Shell/2| INSTALL|
|00000830| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000840| 20 20 20 20 20 20 20 20 | 20 20 20 b3 22 29 0d 0a | | .")..|
|00000850| 20 20 20 20 61 20 3d 20 | 63 68 61 72 6f 75 74 28 | a = |charout(|
|00000860| 2c 22 c3 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |,"......|........|
|00000870| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000880| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000890| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|000008a0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|000008b0| c4 b4 22 29 0d 0a 20 20 | 20 20 61 20 3d 20 63 68 |..").. | a = ch|
|000008c0| 61 72 6f 75 74 28 2c 22 | b3 20 20 20 20 20 20 20 |arout(,"|. |
|000008d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000008e0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000008f0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000900| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000910| 20 20 20 20 20 20 20 b3 | 22 29 0d 0a 20 20 20 20 | .|").. |
|00000920| 61 20 3d 20 63 68 61 72 | 6f 75 74 28 2c 22 b3 20 |a = char|out(,". |
|00000930| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000940| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000950| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000960| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000970| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 b3 22 29 | | .")|
|00000980| 0d 0a 20 20 20 20 61 20 | 3d 20 63 68 61 72 6f 75 |.. a |= charou|
|00000990| 74 28 2c 22 b3 20 20 20 | 20 20 20 20 20 20 20 20 |t(,". | |
|000009a0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000009b0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000009c0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000009d0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|000009e0| 20 20 20 b3 22 29 0d 0a | 20 20 20 20 61 20 3d 20 | .")..| a = |
|000009f0| 63 68 61 72 6f 75 74 28 | 2c 22 b3 20 20 20 20 20 |charout(|,". |
|00000a00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a40| 20 20 20 20 20 20 20 20 | 20 b3 22 29 0d 0a 20 20 | | .").. |
|00000a50| 20 20 61 20 3d 20 63 68 | 61 72 6f 75 74 28 2c 22 | a = ch|arout(,"|
|00000a60| b3 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00000a70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000a90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000aa0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 b3 | | .|
|00000ab0| 22 29 0d 0a 20 20 20 20 | 61 20 3d 20 63 68 61 72 |").. |a = char|
|00000ac0| 6f 75 74 28 2c 22 b3 20 | 20 20 20 20 20 20 20 20 |out(,". | |
|00000ad0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ae0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000af0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b10| 20 20 20 20 20 b3 22 29 | 0d 0a 20 20 20 20 61 20 | .")|.. a |
|00000b20| 3d 20 63 68 61 72 6f 75 | 74 28 2c 22 b3 20 20 20 |= charou|t(,". |
|00000b30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000b70| 20 20 20 20 20 20 20 20 | 20 20 20 b3 22 29 0d 0a | | .")..|
|00000b80| 20 20 20 20 61 20 3d 20 | 63 68 61 72 6f 75 74 28 | a = |charout(|
|00000b90| 2c 22 c3 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |,"......|........|
|00000ba0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000bb0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000bc0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000bd0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000be0| c4 b4 22 29 0d 0a 20 20 | 20 20 61 20 3d 20 63 68 |..").. | a = ch|
|00000bf0| 61 72 6f 75 74 28 2c 22 | b3 20 20 20 20 20 20 20 |arout(,"|. |
|00000c00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000c10| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000c20| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000c30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000c40| 20 20 20 20 20 20 20 b3 | 22 29 0d 0a 20 20 20 20 | .|").. |
|00000c50| 61 20 3d 20 63 68 61 72 | 6f 75 74 28 2c 22 b3 20 |a = char|out(,". |
|00000c60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000c70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000c80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000c90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ca0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 b3 22 29 | | .")|
|00000cb0| 0d 0a 20 20 20 20 61 20 | 3d 20 63 68 61 72 6f 75 |.. a |= charou|
|00000cc0| 74 28 2c 22 b3 20 20 20 | 20 20 20 20 20 20 20 20 |t(,". | |
|00000cd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ce0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000cf0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d10| 20 20 20 b3 22 29 0d 0a | 20 20 20 20 61 20 3d 20 | .")..| a = |
|00000d20| 63 68 61 72 6f 75 74 28 | 2c 22 b3 20 20 20 20 20 |charout(|,". |
|00000d30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000d70| 20 20 20 20 20 20 20 20 | 20 b3 22 29 0d 0a 20 20 | | .").. |
|00000d80| 20 20 61 20 3d 20 63 68 | 61 72 6f 75 74 28 2c 22 | a = ch|arout(,"|
|00000d90| b3 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |. | |
|00000da0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000db0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000dc0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000dd0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 b3 | | .|
|00000de0| 22 29 0d 0a 20 20 20 20 | 61 20 3d 20 63 68 61 72 |").. |a = char|
|00000df0| 6f 75 74 28 2c 22 c3 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |out(,"..|........|
|00000e00| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000e10| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000e20| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000e30| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000e40| c4 c4 c4 c4 c4 b4 22 29 | 0d 0a 20 20 20 20 61 20 |......")|.. a |
|00000e50| 3d 20 63 68 61 72 6f 75 | 74 28 2c 22 b3 20 20 20 |= charou|t(,". |
|00000e60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000e70| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000e80| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000e90| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ea0| 20 20 20 20 20 20 20 20 | 20 20 20 b3 22 29 0d 0a | | .")..|
|00000eb0| 20 20 20 20 61 20 3d 20 | 63 68 61 72 6f 75 74 28 | a = |charout(|
|00000ec0| 2c 22 b3 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |,". | |
|00000ed0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ee0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000ef0| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f00| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f10| 20 b3 22 29 0d 0a 20 20 | 20 20 61 20 3d 20 63 68 | .").. | a = ch|
|00000f20| 61 72 6f 75 74 28 2c 22 | b3 20 20 20 20 20 20 20 |arout(,"|. |
|00000f30| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f40| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f50| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f60| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00000f70| 20 20 20 20 20 20 20 b3 | 22 29 0d 0a 20 20 20 20 | .|").. |
|00000f80| 61 20 3d 20 63 68 61 72 | 6f 75 74 28 2c 22 c3 c4 |a = char|out(,"..|
|00000f90| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000fa0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000fb0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000fc0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00000fd0| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 b4 22 29 |........|......")|
|00000fe0| 0d 0a 20 20 20 20 61 20 | 3d 20 63 68 61 72 6f 75 |.. a |= charou|
|00000ff0| 74 28 2c 22 b3 20 20 20 | 20 20 20 20 20 20 20 20 |t(,". | |
|00001000| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001010| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001020| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001030| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 | | |
|00001040| 20 20 20 b3 22 29 0d 0a | 20 20 20 20 61 20 3d 20 | .")..| a = |
|00001050| 63 68 61 72 6f 75 74 28 | 2c 22 c0 c4 c4 c4 c4 c4 |charout(|,"......|
|00001060| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00001070| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00001080| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 c4 |........|........|
|00001090| c4 c4 c4 c4 c4 c4 c4 c4 | c4 c4 c4 c4 c4 c4 c4 28 |........|.......(|
|000010a0| 43 29 27 39 35 20 57 4f | 4b d9 22 29 0d 0a 20 20 |C)'95 WO|K.").. |
|000010b0| 20 20 63 61 6c 6c 20 47 | 6f 74 6f 58 59 20 35 2c | call G|otoXY 5,|
|000010c0| 34 0d 0a 20 20 20 20 61 | 20 3d 20 63 68 61 72 6f |4.. a| = charo|
|000010d0| 75 74 28 2c 62 63 79 61 | 6e 7c 7c 22 31 29 20 43 |ut(,bcya|n||"1) C|
|000010e0| 44 2d 52 4f 4d 20 4c 61 | 75 66 77 65 72 6b 20 20 |D-ROM La|ufwerk |
|000010f0| 20 20 20 20 3a 20 22 7c | 7c 62 72 65 64 7c 7c 53 | : "|||bred||S|
|00001100| 6f 75 72 63 65 44 72 69 | 76 65 29 0d 0a 20 20 20 |ourceDri|ve).. |
|00001110| 20 63 61 6c 6c 20 47 6f | 74 6f 58 59 20 35 2c 36 | call Go|toXY 5,6|
|00001120| 0d 0a 20 20 20 20 61 20 | 3d 20 63 68 61 72 6f 75 |.. a |= charou|
|00001130| 74 28 2c 62 63 79 61 6e | 7c 7c 22 32 29 20 50 72 |t(,bcyan|||"2) Pr|
|00001140| 6f 67 72 61 6d 6d 2d 56 | 65 72 7a 65 69 63 68 6e |ogramm-V|erzeichn|
|00001150| 69 73 20 3a 20 22 7c 7c | 62 72 65 64 7c 7c 45 78 |is : "|||bred||Ex|
|00001160| 65 44 65 73 74 29 0d 0a | 20 20 20 20 63 61 6c 6c |eDest)..| call|
|00001170| 20 47 6f 74 6f 58 59 20 | 35 2c 31 32 0d 0a 20 20 | GotoXY |5,12.. |
|00001180| 20 20 61 20 3d 20 63 68 | 61 72 6f 75 74 28 2c 62 | a = ch|arout(,b|
|00001190| 63 79 61 6e 7c 7c 22 33 | 29 20 4a 45 54 5a 54 20 |cyan||"3|) JETZT |
|000011a0| 49 4e 53 54 41 4c 4c 49 | 45 52 45 4e 20 21 20 20 |INSTALLI|EREN ! |
|000011b0| 20 20 20 22 29 0d 0a 20 | 20 20 20 63 61 6c 6c 20 | ").. | call |
|000011c0| 47 6f 74 6f 58 59 20 35 | 2c 31 34 0d 0a 20 20 20 |GotoXY 5|,14.. |
|000011d0| 20 61 20 3d 20 63 68 61 | 72 6f 75 74 28 2c 62 63 | a = cha|rout(,bc|
|000011e0| 79 61 6e 7c 7c 22 34 29 | 20 45 4e 44 45 21 20 52 |yan||"4)| ENDE! R|
|000011f0| 61 75 73 20 68 69 65 72 | 2e 2e 2e 20 21 20 20 20 |aus hier|... ! |
|00001200| 20 20 22 29 0d 0a 20 20 | 20 20 63 61 6c 6c 20 47 | ").. | call G|
|00001210| 6f 74 6f 58 59 20 35 2c | 31 38 0d 0a 20 20 20 20 |otoXY 5,|18.. |
|00001220| 61 20 3d 20 63 68 61 72 | 6f 75 74 28 2c 62 63 79 |a = char|out(,bcy|
|00001230| 61 6e 7c 7c 22 5f 20 3c | 2d 2d 2d 20 49 68 72 65 |an||"_ <|--- Ihre|
|00001240| 20 57 61 68 6c 20 3f 20 | 20 20 22 29 0d 0a 20 20 | Wahl ? | ").. |
|00001250| 20 20 63 61 6c 6c 20 47 | 6f 74 6f 58 59 20 35 2c | call G|otoXY 5,|
|00001260| 31 38 0d 0a 20 20 20 20 | 61 67 61 69 6e 3d 31 0d |18.. |again=1.|
|00001270| 0a 20 20 20 20 64 6f 20 | 77 68 69 6c 65 20 61 67 |. do |while ag|
|00001280| 61 69 6e 3d 31 0d 0a 20 | 20 20 20 20 20 20 4d 4d |ain=1.. | MM|
|00001290| 5f 6b 65 79 3d 54 72 61 | 6e 73 6c 61 74 65 28 53 |_key=Tra|nslate(S|
|000012a0| 79 73 47 65 74 4b 65 79 | 28 27 4e 4f 45 43 48 4f |ysGetKey|('NOECHO|
|000012b0| 27 29 29 0d 0a 20 20 20 | 20 20 20 20 69 66 20 4d |')).. | if M|
|000012c0| 4d 5f 6b 65 79 3d 22 31 | 22 7c 2c 0d 0a 20 20 20 |M_key="1|"|,.. |
|000012d0| 20 20 20 20 20 20 4d 4d | 5f 6b 65 79 3d 22 32 22 | MM|_key="2"|
|000012e0| 7c 2c 0d 0a 20 20 20 20 | 20 20 20 20 20 4d 4d 5f ||,.. | MM_|
|000012f0| 6b 65 79 3d 22 33 22 7c | 2c 0d 0a 20 20 20 20 20 |key="3"||,.. |
|00001300| 20 20 20 20 4d 4d 5f 6b | 65 79 3d 22 34 22 20 74 | MM_k|ey="4" t|
|00001310| 68 65 6e 20 64 6f 0d 0a | 20 20 20 20 20 20 20 20 |hen do..| |
|00001320| 20 20 20 61 67 61 69 6e | 3d 30 0d 0a 20 20 20 20 | again|=0.. |
|00001330| 20 20 20 20 20 20 20 73 | 61 79 20 4d 4d 5f 6b 65 | s|ay MM_ke|
|00001340| 79 0d 0a 20 20 20 20 20 | 20 20 65 6e 64 0d 0a 20 |y.. | end.. |
|00001350| 20 20 20 65 6e 64 0d 0a | 72 65 74 75 72 6e 20 4d | end..|return M|
|00001360| 4d 5f 6b 65 79 0d 0a 0d | 0a 0d 0a 2f 2f 20 2a 2a |M_key...|...// **|
|00001370| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001380| 2a 2a 20 49 4e 53 54 41 | 4c 4c 20 2a 2a 2a 2a 2a |** INSTA|LL *****|
|00001390| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000013a0| 2a 2a 2a 2a 2a 2a 0d 0a | 49 6e 73 74 61 6c 6c 3a |******..|Install:|
|000013b0| 0d 0a 20 20 63 61 6c 6c | 20 53 79 73 43 6c 73 0d |.. call| SysCls.|
|000013c0| 0a 20 20 45 72 72 6f 72 | 20 3d 20 30 0d 0a 20 20 |. Error| = 0.. |
|000013d0| 64 6f 20 69 20 3d 20 31 | 20 74 6f 20 46 69 6c 65 |do i = 1| to File|
|000013e0| 2e 30 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |.0 | |
|000013f0| 20 20 20 20 20 20 20 20 | 20 20 2f 2a 20 43 6f 70 | | /* Cop|
|00001400| 79 20 45 58 45 2d 46 69 | 6c 65 73 20 2a 2f 0d 0a |y EXE-Fi|les */..|
|00001410| 20 20 20 20 20 53 6f 75 | 72 63 65 3d 53 6f 75 72 | Sou|rce=Sour|
|00001420| 63 65 44 72 69 76 65 7c | 7c 53 6f 75 72 63 65 44 |ceDrive|||SourceD|
|00001430| 69 72 7c 7c 46 69 6c 65 | 2e 69 0d 0a 20 20 20 20 |ir||File|.i.. |
|00001440| 20 69 66 20 46 69 6c 65 | 45 78 69 73 74 73 28 53 | if File|Exists(S|
|00001450| 6f 75 72 63 65 29 20 3d | 20 30 20 74 68 65 6e 20 |ource) =| 0 then |
|00001460| 64 6f 0d 0a 20 20 20 20 | 20 20 20 20 73 61 79 20 |do.. | say |
|00001470| 62 72 65 64 7c 7c 22 46 | 45 48 4c 45 52 3a 20 51 |bred||"F|EHLER: Q|
|00001480| 75 65 6c 6c 64 61 74 65 | 69 20 6e 69 63 68 74 20 |uelldate|i nicht |
|00001490| 76 6f 72 68 61 6e 64 65 | 6e 3a 20 22 7c 7c 53 6f |vorhande|n: "||So|
|000014a0| 75 72 63 65 0d 0a 20 20 | 20 20 20 20 20 20 27 70 |urce.. | 'p|
|000014b0| 61 75 73 65 27 0d 0a 20 | 20 20 20 20 20 20 20 45 |ause'.. | E|
|000014c0| 72 72 6f 72 3d 31 0d 0a | 20 20 20 20 20 20 20 20 |rror=1..| |
|000014d0| 49 6e 73 74 61 6c 6c 65 | 64 20 3d 20 30 0d 0a 20 |Installe|d = 0.. |
|000014e0| 20 20 20 20 20 20 20 73 | 61 79 20 6e 6f 72 6d 61 | s|ay norma|
|000014f0| 6c 0d 0a 20 20 20 20 20 | 65 6e 64 0d 0a 20 20 20 |l.. |end.. |
|00001500| 20 20 65 6c 73 65 20 27 | 78 63 6f 70 79 20 27 53 | else '|xcopy 'S|
|00001510| 6f 75 72 63 65 20 45 78 | 65 44 65 73 74 0d 0a 20 |ource Ex|eDest.. |
|00001520| 20 65 6e 64 0d 0a 20 20 | 27 70 61 75 73 65 27 0d | end.. |'pause'.|
|00001530| 0a 20 20 69 66 20 45 72 | 72 6f 72 20 3d 20 30 20 |. if Er|ror = 0 |
|00001540| 74 68 65 6e 20 64 6f 20 | 20 20 20 20 20 20 20 20 |then do | |
|00001550| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 2f 2a | | /*|
|00001560| 20 4d 61 6b 65 20 44 65 | 73 6b 74 6f 70 2d 4f 62 | Make De|sktop-Ob|
|00001570| 6a 65 63 74 20 3f 20 2a | 2f 0d 0a 20 20 20 20 4d |ject ? *|/.. M|
|00001580| 4d 5f 69 6e 70 75 74 3d | 22 22 0d 0a 20 20 20 20 |M_input=|"".. |
|00001590| 64 6f 20 77 68 69 6c 65 | 20 4d 4d 5f 69 6e 70 75 |do while| MM_inpu|
|000015a0| 74 5c 3d 22 4a 22 20 26 | 20 4d 4d 5f 69 6e 70 75 |t\="J" &| MM_inpu|
|000015b0| 74 5c 3d 22 4e 22 20 20 | 20 2f 2a 20 53 65 63 75 |t\="N" | /* Secu|
|000015c0| 72 69 74 79 20 71 75 65 | 73 74 69 6f 6e 20 2a 2f |rity que|stion */|
|000015d0| 0d 0a 20 20 20 20 20 20 | 20 73 61 79 20 62 63 79 |.. | say bcy|
|000015e0| 61 6e 0d 0a 20 20 20 20 | 20 20 20 73 61 79 20 22 |an.. | say "|
|000015f0| 53 6f 6c 6c 20 65 69 6e | 20 57 4b 2d 53 68 65 6c |Soll ein| WK-Shel|
|00001600| 6c 2f 32 20 4f 62 6a 65 | 6b 74 20 61 75 66 20 64 |l/2 Obje|kt auf d|
|00001610| 65 72 20 41 72 62 65 69 | 74 73 6f 62 65 72 66 6c |er Arbei|tsoberfl|
|00001620| 84 63 68 65 20 65 72 7a | 65 75 67 74 20 77 65 72 |.che erz|eugt wer|
|00001630| 64 65 6e 20 28 4a 2f 4e | 29 20 3f 22 0d 0a 20 20 |den (J/N|) ?".. |
|00001640| 20 20 20 20 20 70 75 6c | 6c 20 4d 4d 5f 69 6e 70 | pul|l MM_inp|
|00001650| 75 74 0d 0a 20 20 20 20 | 65 6e 64 20 2f 2a 20 64 |ut.. |end /* d|
|00001660| 6f 20 77 68 69 6c 65 20 | 2a 2f 0d 0a 20 20 20 20 |o while |*/.. |
|00001670| 69 66 20 4d 4d 5f 69 6e | 70 75 74 20 3d 20 22 4a |if MM_in|put = "J|
|00001680| 22 20 74 68 65 6e 0d 0a | 20 20 20 20 20 20 20 63 |" then..| c|
|00001690| 61 6c 6c 20 4d 61 6b 65 | 4f 62 6a 65 63 74 0d 0a |all Make|Object..|
|000016a0| 20 20 65 6e 64 0d 0a 72 | 65 74 75 72 6e 0d 0a 0d | end..r|eturn...|
|000016b0| 0a 2f 2a 20 2a 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |./* *+++|++++++++|
|000016c0| 2b 2b 2b 2b 2b 2b 2b 2b | 2b 2b 2b 2b 2b 2b 2b 2b |++++++++|++++++++|
|000016d0| 20 2a 2f 0d 0a 53 69 67 | 6e 61 6c 48 61 6e 64 6c | */..Sig|nalHandl|
|000016e0| 65 72 3a 0d 0a 20 20 63 | 61 6c 6c 20 53 79 73 43 |er:.. c|all SysC|
|000016f0| 6c 73 0d 0a 20 20 73 61 | 79 20 62 72 65 64 7c 7c |ls.. sa|y bred|||
|00001700| 22 55 6e 74 65 72 62 72 | 65 63 68 75 6e 67 20 21 |"Unterbr|echung !|
|00001710| 22 0d 0a 20 20 73 61 79 | 20 6e 6f 72 6d 61 6c 0d |".. say| normal.|
|00001720| 0a 20 20 65 78 69 74 0d | 0a 0d 0a 0d 0a 2f 2a 20 |. exit.|...../* |
|00001730| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001740| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001750| 20 2a 2f 0d 0a 46 69 6c | 65 45 78 69 73 74 73 3a | */..Fil|eExists:|
|00001760| 20 70 72 6f 63 65 64 75 | 72 65 0d 0a 20 20 20 4d | procedu|re.. M|
|00001770| 61 73 6b 65 20 3d 20 61 | 72 67 28 31 29 0d 0a 20 |aske = a|rg(1).. |
|00001780| 20 20 72 63 20 3d 20 53 | 79 73 46 69 6c 65 54 72 | rc = S|ysFileTr|
|00001790| 65 65 28 4d 61 73 6b 65 | 2c 20 64 75 6d 6d 79 2c |ee(Maske|, dummy,|
|000017a0| 20 22 46 4f 22 20 2c 22 | 2a 2a 2a 2a 2a 22 29 0d | "FO" ,"|*****").|
|000017b0| 0a 20 20 20 69 66 20 64 | 75 6d 6d 79 2e 30 20 3e |. if d|ummy.0 >|
|000017c0| 20 30 20 74 68 65 6e 0d | 0a 20 20 20 20 20 72 65 | 0 then.|. re|
|000017d0| 74 75 72 6e 20 31 0d 0a | 20 20 20 65 6c 73 65 0d |turn 1..| else.|
|000017e0| 0a 20 20 20 20 20 72 65 | 74 75 72 6e 20 30 0d 0a |. re|turn 0..|
|000017f0| 0d 0a 2f 2a 20 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |../* ***|********|
|00001800| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001810| 2a 2a 2a 2b 20 20 2a 2f | 0d 0a 4d 61 6b 65 4f 62 |***+ */|..MakeOb|
|00001820| 6a 65 63 74 3a 0d 0a 20 | 20 53 65 74 75 70 53 74 |ject:.. | SetupSt|
|00001830| 72 69 6e 67 3d 22 54 49 | 54 4c 45 3d 57 4b 2d 53 |ring="TI|TLE=WK-S|
|00001840| 68 65 6c 6c 2f 32 20 28 | 44 29 3b 4f 42 4a 45 43 |hell/2 (|D);OBJEC|
|00001850| 54 49 44 3d 3c 57 4b 53 | 48 45 4c 4c 32 47 3e 3b |TID=<WKS|HELL2G>;|
|00001860| 41 53 53 4f 43 46 49 4c | 54 45 52 3d 2a 2e 49 44 |ASSOCFIL|TER=*.ID|
|00001870| 58 3b 45 58 45 4e 41 4d | 45 3d 22 7c 7c 45 78 65 |X;EXENAM|E="||Exe|
|00001880| 44 65 73 74 7c 7c 22 57 | 4b 53 48 45 4c 4c 2e 45 |Dest||"W|KSHELL.E|
|00001890| 58 45 3b 50 41 52 41 4d | 45 54 45 52 53 3d 22 7c |XE;PARAM|ETERS="||
|000018a0| 7c 53 6f 75 72 63 65 44 | 72 69 76 65 0d 0a 20 20 ||SourceD|rive.. |
|000018b0| 72 63 3d 53 79 73 43 72 | 65 61 74 65 4f 62 6a 65 |rc=SysCr|eateObje|
|000018c0| 63 74 28 22 57 50 50 72 | 6f 67 72 61 6d 22 2c 2c |ct("WPPr|ogram",,|
|000018d0| 0d 0a 20 20 20 20 20 45 | 78 65 44 65 73 74 7c 7c |.. E|xeDest|||
|000018e0| 22 57 4b 53 48 45 4c 4c | 2e 45 58 45 22 2c 2c 0d |"WKSHELL|.EXE",,.|
|000018f0| 0a 20 20 20 20 20 22 3c | 57 50 5f 44 45 53 4b 54 |. "<|WP_DESKT|
|00001900| 4f 50 3e 22 2c 2c 0d 0a | 20 20 20 20 20 53 65 74 |OP>",,..| Set|
|00001910| 75 70 53 74 72 69 6e 67 | 29 0d 0a 20 20 20 69 66 |upString|).. if|
|00001920| 20 72 63 3d 30 20 74 68 | 65 6e 20 64 6f 0d 0a 20 | rc=0 th|en do.. |
|00001930| 20 20 20 20 73 61 79 20 | 22 57 50 53 2d 4f 62 6a | say |"WPS-Obj|
|00001940| 65 6b 74 20 6b 6f 6e 6e | 74 65 20 4e 49 43 48 54 |ekt konn|te NICHT|
|00001950| 20 65 72 73 74 65 6c 6c | 74 20 77 65 72 64 65 6e | erstell|t werden|
|00001960| 2e 22 0d 0a 20 20 20 20 | 20 70 61 75 73 65 0d 0a |.".. | pause..|
|00001970| 20 20 20 65 6e 64 0d 0a | 20 20 20 65 6c 73 65 20 | end..| else |
|00001980| 64 6f 0d 0a 20 20 20 20 | 20 73 61 79 20 22 57 50 |do.. | say "WP|
|00001990| 53 2d 4f 62 6a 65 6b 74 | 20 77 75 72 64 65 20 65 |S-Objekt| wurde e|
|000019a0| 72 7a 65 75 67 74 20 21 | 22 0d 0a 20 20 20 65 6e |rzeugt !|".. en|
|000019b0| 64 0d 0a 72 65 74 75 72 | 6e 0d 0a 0d 0a 0d 0a 0d |d..retur|n.......|
|000019c0| 0a 0d 0a 0d 0a 2f 2a 20 | 2a 2a 2a 2a 2a 2a 2a 2a |...../* |********|
|000019d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000019e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000019f0| 2a 2a 2a 2a 2a 2a 2a 0d | 0a 20 20 20 2a 20 53 65 |*******.|. * Se|
|00001a00| 74 20 43 6f 6c 6f 72 20 | 53 74 72 69 6e 67 73 20 |t Color |Strings |
|00001a10| 66 6f 72 20 41 6e 73 69 | 43 6f 6c 6f 72 0d 0a 20 |for Ansi|Color.. |
|00001a20| 20 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a | ******|********|
|00001a30| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001a40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001a50| 2a 20 2a 2f 0d 0a 49 6e | 69 74 43 6f 6c 6f 72 73 |* */..In|itColors|
|00001a60| 3a 0d 0a 20 20 65 73 63 | 20 20 20 20 20 3d 20 27 |:.. esc| = '|
|00001a70| 31 42 27 78 20 20 20 20 | 20 20 20 20 20 20 2f 2a |1B'x | /*|
|00001a80| 20 64 65 66 69 6e 65 20 | 45 53 43 61 70 65 20 63 | define |ESCape c|
|00001a90| 68 61 72 61 63 74 65 72 | 20 2a 2f 0d 0a 20 20 72 |haracter| */.. r|
|00001aa0| 65 64 20 20 20 20 20 3d | 20 65 73 63 7c 7c 22 5b |ed =| esc||"[|
|00001ab0| 33 31 6d 22 20 20 20 20 | 2f 2a 20 41 4e 53 49 2e |31m" |/* ANSI.|
|00001ac0| 53 59 53 2d 63 6f 6e 74 | 72 6f 6c 20 66 6f 72 20 |SYS-cont|rol for |
|00001ad0| 72 65 64 20 66 6f 72 65 | 67 72 6f 75 6e 64 20 2a |red fore|ground *|
|00001ae0| 2f 0d 0a 20 20 79 65 6c | 6c 6f 77 20 20 3d 20 65 |/.. yel|low = e|
|00001af0| 73 63 7c 7c 22 5b 33 33 | 6d 22 20 20 20 20 2f 2a |sc||"[33|m" /*|
|00001b00| 20 41 4e 53 49 2e 53 59 | 53 2d 63 6f 6e 74 72 6f | ANSI.SY|S-contro|
|00001b10| 6c 20 66 6f 72 20 79 65 | 6c 6c 6f 77 20 66 6f 72 |l for ye|llow for|
|00001b20| 65 67 72 6f 75 6e 64 20 | 2a 2f 0d 0a 20 20 63 79 |eground |*/.. cy|
|00001b30| 61 6e 20 20 20 20 20 20 | 3d 20 65 73 63 7c 7c 22 |an |= esc||"|
|00001b40| 5b 33 36 6d 22 20 20 20 | 20 2f 2a 20 41 4e 53 49 |[36m" | /* ANSI|
|00001b50| 2e 53 59 53 2d 63 6f 6e | 74 72 6f 6c 20 66 6f 72 |.SYS-con|trol for|
|00001b60| 20 63 79 61 6e 20 66 6f | 72 65 67 72 6f 75 6e 64 | cyan fo|reground|
|00001b70| 20 2a 2f 0d 0a 20 20 6e | 6f 72 6d 61 6c 20 20 3d | */.. n|ormal =|
|00001b80| 20 65 73 63 7c 7c 22 5b | 30 6d 22 20 20 20 20 20 | esc||"[|0m" |
|00001b90| 2f 2a 20 41 4e 53 49 2e | 53 59 53 2d 63 6f 6e 74 |/* ANSI.|SYS-cont|
|00001ba0| 72 6f 6c 20 66 6f 72 20 | 72 65 73 65 74 74 69 6e |rol for |resettin|
|00001bb0| 67 20 61 74 74 72 69 62 | 75 74 65 73 20 74 6f 20 |g attrib|utes to |
|00001bc0| 6e 6f 72 6d 61 6c 20 2a | 2f 0d 0a 20 20 62 72 69 |normal *|/.. bri|
|00001bd0| 67 68 74 20 20 3d 20 65 | 73 63 7c 7c 22 5b 31 6d |ght = e|sc||"[1m|
|00001be0| 22 20 20 20 20 20 2f 2a | 20 41 4e 53 49 2e 53 59 |" /*| ANSI.SY|
|00001bf0| 53 2d 63 6f 6e 74 72 6f | 6c 20 66 6f 72 20 62 72 |S-contro|l for br|
|00001c00| 69 67 68 74 20 66 6f 72 | 65 67 72 6f 75 6e 64 20 |ight for|eground |
|00001c10| 63 6f 6c 6f 72 73 20 2a | 2f 0d 0a 20 20 62 72 65 |colors *|/.. bre|
|00001c20| 64 20 20 20 20 3d 20 62 | 72 69 67 68 74 20 7c 7c |d = b|right |||
|00001c30| 20 72 65 64 0d 0a 20 20 | 62 79 65 6c 6c 6f 77 20 | red.. |byellow |
|00001c40| 3d 20 62 72 69 67 68 74 | 20 7c 7c 20 79 65 6c 6c |= bright| || yell|
|00001c50| 6f 77 0d 0a 20 20 62 63 | 79 61 6e 20 20 20 3d 20 |ow.. bc|yan = |
|00001c60| 62 72 69 67 68 74 20 7c | 7c 20 63 79 61 6e 0d 0a |bright ||| cyan..|
|00001c70| 20 20 75 70 6c 69 6e 65 | 20 20 3d 20 65 73 63 7c | upline| = esc||
|00001c80| 7c 27 5b 31 41 27 20 20 | 20 20 20 2f 2a 20 43 75 ||'[1A' | /* Cu|
|00001c90| 72 73 6f 72 20 6f 6e 65 | 20 6c 69 6e 65 20 75 70 |rsor one| line up|
|00001ca0| 20 2a 2f 0d 0a 0d 0a 52 | 45 54 55 52 4e 0d 0a 0d | */....R|ETURN...|
|00001cb0| 0a 2f 2a 20 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |./* ****|********|
|00001cc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001cd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ce0| 2a 2a 2a 2a 0d 0a 20 20 | 20 2a 20 57 68 65 72 65 |****.. | * Where|
|00001cf0| 58 28 29 0d 0a 20 20 20 | 2a 2a 2a 2a 2a 2a 2a 2a |X().. |********|
|00001d00| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d10| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d20| 2a 2a 2a 2a 2a 2a 2a 2a | 20 2a 2f 0d 0a 57 68 65 |********| */..Whe|
|00001d30| 72 65 58 3a 20 70 72 6f | 63 65 64 75 72 65 0d 0a |reX: pro|cedure..|
|00001d40| 20 20 20 20 70 61 72 73 | 65 20 76 61 6c 75 65 20 | pars|e value |
|00001d50| 53 79 73 43 75 72 50 6f | 73 28 29 20 77 69 74 68 |SysCurPo|s() with|
|00001d60| 20 57 5f 7a 20 57 5f 73 | 0d 0a 72 65 74 75 72 6e | W_z W_s|..return|
|00001d70| 20 57 5f 73 0d 0a 0d 0a | 2f 2a 20 2a 2a 2a 2a 2a | W_s....|/* *****|
|00001d80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001d90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001da0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 0d 0a 20 20 20 |********|***.. |
|00001db0| 2a 20 57 68 65 72 65 59 | 28 29 0d 0a 20 20 20 2a |* WhereY|().. *|
|00001dc0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001dd0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001de0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 20 |********|******* |
|00001df0| 2a 2f 0d 0a 57 68 65 72 | 65 59 3a 20 70 72 6f 63 |*/..Wher|eY: proc|
|00001e00| 65 64 75 72 65 0d 0a 20 | 20 20 20 70 61 72 73 65 |edure.. | parse|
|00001e10| 20 76 61 6c 75 65 20 53 | 79 73 43 75 72 50 6f 73 | value S|ysCurPos|
|00001e20| 28 29 20 77 69 74 68 20 | 57 5f 7a 20 57 5f 73 0d |() with |W_z W_s.|
|00001e30| 0a 72 65 74 75 72 6e 20 | 57 5f 7a 0d 0a 0d 0a 2f |.return |W_z..../|
|00001e40| 2a 20 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |* ******|********|
|00001e50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001e70| 2a 2a 0d 0a 20 20 20 2a | 20 47 6f 74 6f 58 59 28 |**.. *| GotoXY(|
|00001e80| 78 2c 79 29 0d 0a 20 20 | 20 2a 2a 2a 2a 2a 2a 2a |x,y).. | *******|
|00001e90| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001ea0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00001eb0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 20 2a 2f 0d 0a 47 6f |********|* */..Go|
|00001ec0| 74 6f 58 59 3a 20 70 72 | 6f 63 65 64 75 72 65 0d |toXY: pr|ocedure.|
|00001ed0| 0a 20 20 20 20 47 5f 73 | 3d 61 72 67 28 31 29 0d |. G_s|=arg(1).|
|00001ee0| 0a 20 20 20 20 47 5f 7a | 3d 61 72 67 28 32 29 0d |. G_z|=arg(2).|
|00001ef0| 0a 20 20 20 20 47 5f 64 | 75 6d 6d 79 3d 53 79 73 |. G_d|ummy=Sys|
|00001f00| 43 75 72 50 6f 73 28 47 | 5f 7a 2c 20 47 5f 53 29 |CurPos(G|_z, G_S)|
|00001f10| 0d 0a 72 65 74 75 72 6e | 0d 0a 0d 0a 0d 0a |..return|...... |
+--------+-------------------------+-------------------------+--------+--------+
