equal
deleted
inserted
replaced
70 end; |
70 end; |
71 |
71 |
72 function AddCmd(Time: Word; str: shortstring): PCmd; |
72 function AddCmd(Time: Word; str: shortstring): PCmd; |
73 var command: PCmd; |
73 var command: PCmd; |
74 begin |
74 begin |
75 if (lastcmd <> nil) and (lastcmd^.cmd = '+') then |
75 if (lastcmd <> nil) and (lastcmd^.cmd = '+') and (str[1] <> 'F') and (str[1] <> 'G') then |
76 begin |
76 begin |
77 command:= lastcmd; |
77 command:= lastcmd; |
78 end else |
78 end else |
79 begin |
79 begin |
80 new(command); |
80 new(command); |