by Bernt Figaro (8 Submissions)
Category: Miscellaneous
Compatability: Visual Basic 3.0
Difficulty: Unknown Difficulty
Originally Published: Mon 29th March 1999
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
Corrected code for the dos2win/win2dos function doswin
API Declarations
Rem <[email protected]>
Rem <1999-03-26>
Rem Dos2Win/Win2Dos Converter
VBcoders
Rem <Visual Basic 1-2-3-4-5-6>
Rem <[email protected]>
Rem <1999-03-26>
Dim Mode%
Dim Text$
Function DosWin$(Mode%, Win$)
Rem
Rem +------------------------------+
Rem + 1995-10-16 +
Rem + (c) [email protected] +
Rem + Mode%=0: From DOS to Windows +
Rem + Mode%=1: from Windows to DOS +
Rem +------------------------------+
Rem
Dim A%, B%, I%, Ln%, Dummy$
Ln% = Len(Win$)
If Ln% = 0 Then Exit Function
Dummy$ = Win$
For I% = 1 To Ln%
B% = Asc(Mid$(Win$, I%, 1))
Select Case Mode%
Case 0
Select Case B%
Case 21: A% = 167
Case 128: A% = 199
Case 129: A% = 252
Case 130: A% = 233
Case 131: A% = 226
Case 132: A% = 228
Case 134: A% = 229
Case 135: A% = 231
Case 136: A% = 234
Case 137: A% = 235
Case 138: A% = 232
Case 139: A% = 239
Case 140: A% = 238
Case 141: A% = 236
Case 142: A% = 196
Case 143: A% = 197
Case 144: A% = 193
Case 145: A% = 230
Case 146: A% = 32
Case 147: A% = 243
Case 148: A% = 246
Case 149: A% = 242
Case 150: A% = 250
Case 151: A% = 249
Case 152: A% = 255
Case 153: A% = 214
Case 154: A% = 220
Case 155: A% = 162
Case 156: A% = 163
Case 157: A% = 165
Case 158 To 159: A% = 32
Case 160: A% = 227
Case 161: A% = 237
Case 162: A% = 243
Case 163: A% = 250
Case 164: A% = 241
Case 165: A% = 209
Case 166: A% = 170
Case 167: A% = 186
Case 168: A% = 191
Case 169: A% = 32
Case 170: A% = 172
Case 171: A% = 189
Case 172: A% = 188
Case 173: A% = 32
Case 174: A% = 171
Case 175: A% = 187
Case 176 To 190: A% = 32
Case 191: A% = 32
Case 192 To 223: A% = 32
Case 224: A% = 32
Case 225: A% = 223
Case 226 To 228: A% = 32
Case 229: A% = 229
Case 230 To 236: A% = 32
Case 237: A% = 248
Case 238 To 240: A% = 32
Case 241: A% = 177
Case 242 To 245: A% = 32
Case 246: A% = 246
Case 247: A% = 32
Case 248: A% = 176
Case 249 To 252: A% = 32
Case 253: A% = 178
Case 254: A% = 32
Case 255: A% = 152
Case Else
A% = B%
End Select
Case Else
Select Case B%
Case 127 To 144: A% = 32
Case 145: A% = 32
Case 146: A% = 32
Case 147 To 161: A% = 32
Case 162: A% = 155
Case 163: A% = 156
Case 164: A% = 36
Case 165: A% = 157
Case 166: A% = 124
Case 167: A% = 21
Case 168 To 169: A% = 32
Case 170: A% = 166
Case 171: A% = 174
Case 172: A% = 170
Case 175: A% = 196
Case 176: A% = 248
Case 177: A% = 241
Case 178: A% = 253
Case 179 To 180: A% = 32
Case 181: A% = 230
Case 182 To 185: A% = 32
Case 186: A% = 167
Case 187: A% = 175
Case 188: A% = 172
Case 189: A% = 172
Case 190: A% = 32
Case 191: A% = 168
Case 192: A% = 143
Case 193: A% = 143
Case 194 To 197: A% = 32
Case 198: A% = 146
Case 199: A% = 128
Case 200: A% = 144
Case 201: A% = 144
Case 202: A% = 32
Case 203: A% = 137
Case 204: A% = 141
Case 205: A% = 161
Case 206: A% = 140
Case 207: A% = 139
Case 208: A% = 32
Case 209: A% = 165
Case 210: A% = 149
Case 211: A% = 162
Case 212: A% = 147
Case 213: A% = 32
Case 214: A% = 153
Case 215 To 216: A% = 32
Case 217: A% = 151
Case 218: A% = 163
Case 219: A% = 150
Case 220: A% = 154
Case 221 To 222: A% = 32
Case 223: A% = 225
Case 224: A% = 134
Case 225: A% = 160
Case 226: A% = 131
Case 227: A% = 32
Case 228: A% = 132
Case 229: A% = 134
Case 230: A% = 145
Case 231: A% = 128
Case 232: A% = 138
Case 233: A% = 130
Case 234: A% = 136
Case 235: A% = 137
Case 236: A% = 141
Case 237: A% = 161
Case 238: A% = 140
Case 239: A% = 139
Case 240: A% = 32
Case 241: A% = 164
Case 242: A% = 149
Case 243: A% = 162
Case 244: A% = 147
Case 245: A% = 32
Case 246: A% = 148
Case 247: A% = 247
Case 248: A% = 237
Case 249: A% = 151
Case 250: A% = 163
Case 251: A% = 150
Case 252: A% = 129
Case 253: A% = 32
Case 254: A% = 32
Case 255: A% = 152
Case Else
A% = B%
End Select
End Select
Mid$(Dummy$, I%, 1) = Chr$(A%)
Next I%
DosWin$ = Dummy$
End Function
