-
Notifications
You must be signed in to change notification settings - Fork 0
/
ASC2ATARI.PAS
51 lines (48 loc) · 1.27 KB
/
ASC2ATARI.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 ASC2ATARI;
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('ASC2ATARI - Cette commande permet de convertir un ',
'un fichier ASCII en Atari 8 bits.');
WriteLn;
WriteLn('Syntaxe: ASC2ATARI [/?] input.bas output.lst');
WriteLn;
WriteLn(' input.bas Indique le nom du fichier BASIC … traiter');
WriteLn(' output.lst 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=#10 Then Write(Target,#155)
Else Write(Target,UpCase(C));
End;
Close(Target);
Close(Source);
End
Else
Begin
WriteLn('ParamŠtre attendue !');
Halt(1);
End;
END.