-
Notifications
You must be signed in to change notification settings - Fork 0
/
ATARI2ASC.PAS
51 lines (48 loc) · 1.26 KB
/
ATARI2ASC.PAS
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
{ @author: Sylvain Maltais (support@gladir.com)
@created: 2024
@website(https://www.gladir.com/ataritools)
@abstract(Target: Turbo Pascal 7, Free Pascal 3.2)
}
Program ATARI2ASC;
Var
Source,Target:Text;
C:Char;
BEGIN
If(ParamStr(1)='/?')or(ParamStr(1)='--help')or(ParamStr(1)='-h')or
(ParamStr(1)='/h')or(ParamStr(1)='/H')Then Begin
WriteLn('ATARI2ASC - Cette commande permet de convertir un ',
'un fichier Atari 8 bits en ASCII.');
WriteLn;
WriteLn('Syntaxe: ATARI2ASC [/?] input.bas output.lst');
WriteLn;
WriteLn(' input.lst Indique le nom du fichier Atari … traiter');
WriteLn(' output.bas Indique le nom du fichier traiter');
End
Else
If ParamCount>0 Then Begin
{$I-}Assign(Source,ParamStr(1));
Reset(Source);{$I+}
If IOResult<>0 Then BEgin
WriteLn('Impossible de lire le fichier : ',ParamStr(1));
Halt(2);
End;
{$I-}Assign(Target,ParamStr(2));
Rewrite(Target);{$I+}
If IOResult<>0 Then Begin
WriteLn('Impossible d''‚crire le fichier : ',ParamStr(2));
Halt(3);
End;
While Not EOF(Source)do Begin
Read(Source,C);
If C=#155 Then Write(Target,#10)
Else Write(Target,C);
End;
Close(Target);
Close(Source);
End
Else
Begin
WriteLn('ParamŠtre attendue !');
Halt(1);
End;
END.