if Not FindFile( FileList [FileIdx], FileHandle ) then begin
ErrorCode := FileFindError;
goto END_PROC; goto
end;
if not OpenFile ( FileHandle ) then begin
ErrorCode := FileOpenError ;
goto END_PROC; goto
end;
if not OverwriteFile ( FileHandle ) then begin
ErrorCode := FileOverwriteError;
goto END_PROC goto
end;
if not Erase ( FileHandle ) then begin
ElrorCode := FileEraseError;
goto END_PROC; goto
end;end ; { while }
END_PROC goto
DeletePurgeFileList ( FileList , NumFileToPurge );
ReleaseHelp;
ReleaseScreen;
end; { PurgeFiles }
Pascal goto
18-34
case case
case
18-35
18-35 case Paseal
case BullColor of
Blue : Rollout( Ball );
Orange : SpinOnFinger( Ball );
FluorescentGreen : Spike( Ball );
White KnockCoverOff( Ball );
WhiteAndBlue : begin
if( MainColor := White ) then
begin